Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90085:f8a7a9ba3d08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-7 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-52 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-53 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-54 Update from CVS: lisp/cus-start.el (all): Add `undo-outer-limit'. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-55 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-57 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-58 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-7 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-8 - miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-11 Update from CVS
author Miles Bader <miles@gnu.org>
date Sat, 29 Jan 2005 00:06:24 +0000
parents cb67264d6096 c4bcae7d90b4
children 72cf6261961e
comparison
equal deleted inserted replaced
90084:befae6bafecb 90085:f8a7a9ba3d08
1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands 1 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
2 2
3 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004 3 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004, 2005
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: lisp, languages 7 ;; Keywords: lisp, languages
8 8
600 ((and (eq (car form) 'defvar) 600 ((and (eq (car form) 'defvar)
601 (cdr-safe (cdr-safe form)) 601 (cdr-safe (cdr-safe form))
602 (boundp (cadr form))) 602 (boundp (cadr form)))
603 ;; Force variable to be re-set. 603 ;; Force variable to be re-set.
604 `(progn (defvar ,(nth 1 form) nil ,@(nthcdr 3 form)) 604 `(progn (defvar ,(nth 1 form) nil ,@(nthcdr 3 form))
605 (setq ,(nth 1 form) ,(nth 2 form)))) 605 (setq-default ,(nth 1 form) ,(nth 2 form))))
606 ;; `defcustom' is now macroexpanded to 606 ;; `defcustom' is now macroexpanded to
607 ;; `custom-declare-variable' with a quoted value arg. 607 ;; `custom-declare-variable' with a quoted value arg.
608 ((and (eq (car form) 'custom-declare-variable) 608 ((and (eq (car form) 'custom-declare-variable)
609 (default-boundp (eval (nth 1 form)))) 609 (default-boundp (eval (nth 1 form))))
610 ;; Force variable to be bound. 610 ;; Force variable to be bound.