Mercurial > emacs
changeset 12352:e6b42a6ea8e6
(eval-defun): Don't change defvar to defconst
if it has just one argument.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Jun 1995 23:03:59 +0000 |
| parents | f2e9eb6a8939 |
| children | 1bc9f984ca30 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Wed Jun 21 19:46:58 1995 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Wed Jun 21 23:03:59 1995 +0000 @@ -277,7 +277,8 @@ (end-of-defun) (beginning-of-defun) (read (current-buffer))))) - (if (eq (car form) 'defvar) + (if (and (eq (car form) 'defvar) + (cdr-safe (cdr-safe form))) (setq form (cons 'defconst (cdr form)))) (prin1 (eval form))))