(interactive-form): Fix paren typo.

2 files changed, 5 insertions, 1 deletions

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)