; 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 41779b306639f750ea882e315c1b2bb0b99d3f51..9cbc13f389361088cd6dcb5150c83f4b67b94105 100644 (file)
--- 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