/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.178 by rms, Sat Jun 25 14:10:23 2005 UTC revision 1.179 by jurta, Mon Jul 4 01:05:56 2005 UTC
# Line 631  Reinitialize the face according to the ` Line 631  Reinitialize the face according to the `
631           ;; Resetting `saved-face' temporarily to nil is needed to let           ;; Resetting `saved-face' temporarily to nil is needed to let
632           ;; `defface' change the spec, regardless of a saved spec.           ;; `defface' change the spec, regardless of a saved spec.
633           (prog1 `(prog1 ,form           (prog1 `(prog1 ,form
634                     (put ',(eval (nth 1 form)) 'saved-face                     (put ,(nth 1 form) 'saved-face
635                          ',(get (eval (nth 1 form)) 'saved-face))                          ',(get (eval (nth 1 form)) 'saved-face))
636                     (put ',(eval (nth 1 form)) 'customized-face                     (put ,(nth 1 form) 'customized-face
637                          ',(eval (nth 2 form))))                          ,(nth 2 form)))
638             (put (eval (nth 1 form)) 'saved-face nil)))             (put (eval (nth 1 form)) 'saved-face nil)))
639          ((eq (car form) 'progn)          ((eq (car form) 'progn)
640           (cons 'progn (mapcar 'eval-defun-1 (cdr form))))           (cons 'progn (mapcar 'eval-defun-1 (cdr form))))

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26