From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 6 Jan 2025 05:40:12 +0000 (+0100)
Subject: ; Quote function symbols in man.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee7414e7d9d43ec82eadce09758a0ffb45473cfd;p=emacs.git

; Quote function symbols in man.el

* lisp/man.el (Man-init-defvars, Man-translate-references)
(Man-highlight-references, Man-page-from-arguments)
(Man-follow-manual-reference): Quote function symbols.

(cherry picked from commit fe6a28acaca4bc24883dff04aec0f9e6097b7466)
---

diff --git a/lisp/man.el b/lisp/man.el
index 41779b30663..9cbc13f3893 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -617,7 +617,7 @@ This is necessary if one wants to dump man.el with Emacs."
 
   (setq Man-filter-list
 	;; Avoid trailing nil which confuses customize.
-	(apply 'list
+        (apply #'list
 	 (cons
 	  Man-sed-command
 	  (if (eq system-type 'windows-nt)
@@ -748,7 +748,7 @@ and the `Man-section-translations-alist' variables)."
 	    section (match-string 1 ref))))
     (if (string= name "")
         ;; see Bug#66390
-	(mapconcat 'identity
+        (mapconcat #'identity
                    (mapcar #'shell-quote-argument
                            (split-string ref "\\s-+"))
                    " ")                 ; Return the reference as is
@@ -1423,13 +1423,13 @@ default type, `Man-xref-man-page' is used for the buttons."
   (if (string-match "-k " Man-arguments)
       (progn
 	(Man-highlight-references0 nil Man-reference-regexp 1
-				   'Man-default-man-entry
+                                   #'Man-default-man-entry
 				   (or xref-man-type 'Man-xref-man-page))
 	(Man-highlight-references0 nil Man-apropos-regexp 1
-				   'Man-default-man-entry
+                                   #'Man-default-man-entry
 				   (or xref-man-type 'Man-xref-man-page)))
     (Man-highlight-references0 Man-see-also-regexp Man-reference-regexp 1
-			       'Man-default-man-entry
+                               #'Man-default-man-entry
 			       (or xref-man-type 'Man-xref-man-page))
     (Man-highlight-references0 Man-synopsis-regexp Man-header-regexp 0 2
 			       'Man-xref-header-file)
@@ -1637,7 +1637,7 @@ manpage command."
 (defun Man-page-from-arguments (args)
   ;; Skip arguments and only print the page name.
   (mapconcat
-   'identity
+   #'identity
    (delete nil
 	   (mapcar
 	    (lambda (elem)
@@ -1958,7 +1958,7 @@ Specify which REFERENCE to use; default is based on word at point."
                            Man--last-refpage
                          (car Man--refpages))))
 	     (defaults
-	       (mapcar 'substring-no-properties
+              (mapcar #'substring-no-properties
                        (cons default Man--refpages)))
              (prompt (format-prompt "Refer to" default))
 	     (chosen (completing-read prompt Man--refpages