From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Dec 2001 14:07:45 +0000 (+0000)
Subject: (eval-defun-1): Cope with atoms as args.
X-Git-Tag: ttn-vms-21-2-B4~17555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=726e8778c81119ae3ba25b6b22b77c47299f2bc3;p=emacs.git

(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 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."
 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)))