Mercurial > emacs
changeset 42235:103ed59cfd30
(eval-defun-1): Cope with atoms as args.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Dec 2001 14:07:45 +0000 |
| parents | 64fa0eed5865 |
| children | a31cdf6c9173 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Fri Dec 21 13:00:35 2001 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Fri Dec 21 14:07:45 2001 +0000 @@ -530,7 +530,9 @@ Likewise for other constructs as necessary." ;; The code in edebug-defun should be consistent with this, but not ;; 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))) ;; Force variable to be bound. (cons 'defconst (cdr form)))