Mercurial > emacs
changeset 63988:7f1acc9f0399
(eval-defun-1): Remove unnecessary quotes.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 04 Jul 2005 01:05:56 +0000 |
| parents | 56d2561b1c9f |
| children | a1d03660a223 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Mon Jul 04 01:05:26 2005 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Mon Jul 04 01:05:56 2005 +0000 @@ -631,10 +631,10 @@ ;; 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))))