From: Miles Bader <miles@gnu.org>
Date: Fri, 30 Mar 2001 00:53:08 +0000 (+0000)
Subject: (interactive-form): Fix paren typo.
X-Git-Tag: emacs-pretest-21.0.101~107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a27b451eb729c01a87d6583a1c80fbe4510e43d4;p=emacs.git

(interactive-form): Fix paren typo.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 061aa93cbd5..d1d1a8b1a0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-30  Miles Bader  <miles@gnu.org>
+
+	* subr.el (interactive-form): Fix paren typo.
+
 2001-03-29  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* emacs-lisp/profile.el: Say that it's obsolete in the header
diff --git a/lisp/subr.el b/lisp/subr.el
index 67f9b83887d..ffb6f7f0ca6 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1468,7 +1468,7 @@ If function is a command (see `commandp'), value is a list of the form
 	   (when (stringp (car function))
 	     (setq function (cdr function)))
 	   (let ((form (car function)))
-	     (when (eq (car-safe form 'interactive))
+	     (when (eq (car-safe form) 'interactive)
 	       (copy-sequence form)))))))
 
 (defun assq-delete-all (key alist)