From b7e381a704cfc546b87530d060eb6bd1a801be5f Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Fri, 13 Aug 2021 12:11:01 +0300 Subject: [PATCH] chore: add doc and FSF copyright for the copied function --- lyrics-fetcher-genius.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lyrics-fetcher-genius.el b/lyrics-fetcher-genius.el index b5891bd..3a6f01e 100644 --- a/lyrics-fetcher-genius.el +++ b/lyrics-fetcher-genius.el @@ -1,6 +1,8 @@ ;;; lyrics-fetcher-genius.el --- Fetch lyrics from genius.com -*- lexical-binding: t -*- ;; Copyright (C) 2021 Korytov Pavel +;; Copyright (C) 2021 Syohei YOSHIDA +;; Copyright (C) 2014-2021 Free Software Foundation, Inc. ;; Author: Korytov Pavel ;; Maintainer: Korytov Pavel @@ -178,6 +180,13 @@ first song." (assoc key (assoc 'result (car results-songs))))))) (defun lyrics-fetcher-genius--dom-print (dom &optional pretty xml) + "Print DOM at point as HTML/XML. + +If PRETTY, indent the HTML/XML logically. If XML, generate XML +instead of HTML. + +This function was copied from Emacs 28.1 to ensure the backward +compatibilty with Emacs 27." (let ((column (current-column))) (insert (format "<%s" (dom-tag dom))) (let ((attr (dom-attributes dom)))