(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 2a2c88a9a1737c11cf9399f61062961f406dd964..9b59c672ead23f382266a6cf56188e2b5b82750f 100644 (file)
--- 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))))
 \f