From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jun 1995 23:03:59 +0000 (+0000)
Subject: (eval-defun): Don't change defvar to defconst
X-Git-Tag: emacs-19.34~3507
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90fec20ab652d5e7311322bdd2aa8916e03edeef;p=emacs.git

(eval-defun): Don't change defvar to defconst
if it has just one argument.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 2a2c88a9a17..9b59c672ead 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -277,7 +277,8 @@ With argument, insert value in current buffer after the defun."
 		(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))))