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 |
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) |