# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803775839 0
# Node ID e6b42a6ea8e6ca5d544924aad31b566b5f0d728c
# Parent  f2e9eb6a8939b95e99399c176e00a48c57942285
(eval-defun): Don't change defvar to defconst
if it has just one argument.

diff -r f2e9eb6a8939 -r e6b42a6ea8e6 lisp/emacs-lisp/lisp-mode.el
--- 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))))