Remove compiler warnings due to #'

* lisp/gnus/mm-decode.el (mm-convert-shr-links):
* lisp/ps-print.el (ps-print-region-function):
Remove compiler warnings due to #'.

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 87941b88450a774d885d9cbc4e03cefd067d44ae..e1a0435b55ac12f1ff07dfe89095d252c18e75c0 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1865,7 +1865,7 @@ text/html;\\s-*charset=\\([^\t\n\r \"'>]+\\)[^>]*>" nil t)
        ;; Mask keys that launch `widget-button-click'.
        ;; Those bindings are provided by `widget-keymap'
        ;; that is a parent of `gnus-article-mode-map'.
-       (dolist (key (where-is-internal #'widget-button-click widget-keymap))
+       (dolist (key (where-is-internal 'widget-button-click widget-keymap))
          (unless (lookup-key keymap key)
            (define-key keymap key #'ignore)))
        ;; Avoid `shr-next-link' and `shr-previous-link' in `keymap' so

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index baf290f4be6e6a8ae10abe5c94ba1fc90db9be8f..59b37dd0acf3e0c43388420b5401077fc1773531 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1773,7 +1773,7 @@ See `ps-lpr-command'."
 
 (defcustom ps-print-region-function
   (if (memq system-type '(ms-dos windows-nt))
-      #'w32-direct-ps-print-region-function
+      'w32-direct-ps-print-region-function
     #'call-process-region)
   "Specify a function to print the region on a PostScript printer.
 See definition of `call-process-region' for calling conventions.  The fourth