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