diff options
| author | Richard M. Stallman | 2001-12-21 14:07:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-12-21 14:07:45 +0000 |
| commit | 726e8778c81119ae3ba25b6b22b77c47299f2bc3 (patch) | |
| tree | 7b9e491ba98f9175c6f2859f134c7a06067eec00 | |
| parent | 3be9b0cab7f4959dcce4dc4d8841d7737f754544 (diff) | |
| download | emacs-726e8778c81119ae3ba25b6b22b77c47299f2bc3.tar.gz emacs-726e8778c81119ae3ba25b6b22b77c47299f2bc3.zip | |
(eval-defun-1): Cope with atoms as args.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 2c92099da53..1f691233208 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -530,7 +530,9 @@ Interactively, with prefix argument, print output into current buffer." | |||
| 530 | Likewise for other constructs as necessary." | 530 | Likewise for other constructs as necessary." |
| 531 | ;; The code in edebug-defun should be consistent with this, but not | 531 | ;; The code in edebug-defun should be consistent with this, but not |
| 532 | ;; the same, since this gets a macroexpended form. | 532 | ;; the same, since this gets a macroexpended form. |
| 533 | (cond ((and (eq (car form) 'defvar) | 533 | (cond ((not (listp form)) |
| 534 | form) | ||
| 535 | ((and (eq (car form) 'defvar) | ||
| 534 | (cdr-safe (cdr-safe form))) | 536 | (cdr-safe (cdr-safe form))) |
| 535 | ;; Force variable to be bound. | 537 | ;; Force variable to be bound. |
| 536 | (cons 'defconst (cdr form))) | 538 | (cons 'defconst (cdr form))) |