/[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.168 by rms, Sat Jan 15 18:11:33 2005 UTC revision 1.169 by monnier, Fri Jan 28 16:27:13 2005 UTC
# Line 1  Line 1 
1  ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands  ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
2    
3  ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004  ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004, 2005
4  ;;           Free Software Foundation, Inc.  ;;           Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 602  Reinitialize the face according to the ` Line 602  Reinitialize the face according to the `
602                (boundp (cadr form)))                (boundp (cadr form)))
603           ;; Force variable to be re-set.           ;; Force variable to be re-set.
604           `(progn (defvar ,(nth 1 form) nil ,@(nthcdr 3 form))           `(progn (defvar ,(nth 1 form) nil ,@(nthcdr 3 form))
605                   (setq ,(nth 1 form) ,(nth 2 form))))                   (setq-default ,(nth 1 form) ,(nth 2 form))))
606          ;; `defcustom' is now macroexpanded to          ;; `defcustom' is now macroexpanded to
607          ;; `custom-declare-variable' with a quoted value arg.          ;; `custom-declare-variable' with a quoted value arg.
608          ((and (eq (car form) 'custom-declare-variable)          ((and (eq (car form) 'custom-declare-variable)

Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169

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