[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Juri Linkov]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.178 
emacs/lisp/emacs-lisp/lisp-mode.el:1.179
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.178    Sat Jun 25 14:10:23 2005
--- emacs/lisp/emacs-lisp/lisp-mode.el  Mon Jul  4 01:05:56 2005
***************
*** 631,640 ****
         ;; 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
                        ',(get (eval (nth 1 form)) 'saved-face))
!                  (put ',(eval (nth 1 form)) 'customized-face
!                       ',(eval (nth 2 form))))
           (put (eval (nth 1 form)) 'saved-face nil)))
        ((eq (car form) 'progn)
         (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
--- 631,640 ----
         ;; Resetting `saved-face' temporarily to nil is needed to let
         ;; `defface' change the spec, regardless of a saved spec.
         (prog1 `(prog1 ,form
!                  (put ,(nth 1 form) 'saved-face
                        ',(get (eval (nth 1 form)) 'saved-face))
!                  (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))))