Commit 90fec20a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(eval-defun): Don't change defvar to defconst

if it has just one argument.
parent dc61cb9d
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment