From 726e8778c81119ae3ba25b6b22b77c47299f2bc3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Dec 2001 14:07:45 +0000 Subject: [PATCH] (eval-defun-1): Cope with atoms as args. --- lisp/emacs-lisp/lisp-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.39.5