From 90fec20ab652d5e7311322bdd2aa8916e03edeef Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Jun 1995 23:03:59 +0000 Subject: [PATCH] (eval-defun): Don't change defvar to defconst if it has just one argument. --- lisp/emacs-lisp/lisp-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))) -- 2.39.2