(eval-defun-1): Remove unnecessary quotes.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 972fe6bafc88c17e2dc93b602201e49fe8469362..1ee4665005ad11cb6d7abba04fc48f6a9280127e 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -631,10 +631,10 @@ Reinitialize the face according to the `defface' specification."
         ;; Resetting `saved-face' temporarily to nil is needed to let
         ;; `defface' change the spec, regardless of a saved spec.
         (prog1 `(prog1 ,form
-                  (put ',(eval (nth 1 form)) 'saved-face
+                  (put ,(nth 1 form) 'saved-face
                        ',(get (eval (nth 1 form)) 'saved-face))
-                  (put ',(eval (nth 1 form)) 'customized-face
-                       ',(eval (nth 2 form))))
+                  (put ,(nth 1 form) 'customized-face
+                       ,(nth 2 form)))
           (put (eval (nth 1 form)) 'saved-face nil)))
        ((eq (car form) 'progn)
         (cons 'progn (mapcar 'eval-defun-1 (cdr form))))