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

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index d1f4efd64aca6122109901beaecd7df90829d4fc..6736159d60fd6e773dded6f7a08e61d4ea7e554b 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -453,7 +453,9 @@ Interactively, with prefix argument, print output into current buffer."
 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)))