procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eval-defun-1): Cope with atoms as args.

Browse source
This commit is contained in:
Richard M. Stallman 2001-12-21 14:07:45 +00:00
parent 3be9b0cab7
commit 726e8778c8
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mode.el
View file

@ -530,7 +530,9 @@ Interactively, with prefix argument, print output into current buffer."
Likewise for other constructs as necessary." Likewise for other constructs as necessary."
;; The code in edebug-defun should be consistent with this, but not ;; The code in edebug-defun should be consistent with this, but not
;; the same, since this gets a macroexpended form. ;; the same, since this gets a macroexpended form.
(cond ((and (eq (car form) 'defvar) (cond ((not (listp form))
form)
((and (eq (car form) 'defvar)
(cdr-safe (cdr-safe form))) (cdr-safe (cdr-safe form)))
;; Force variable to be bound. ;; Force variable to be bound.
(cons 'defconst (cdr form))) (cons 'defconst (cdr form)))