(interactive-form): Fix paren typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 061aa93cbd59b8cfec0873878d9764f1f940e3c7..d1d1a8b1a0f2c89f7f8837413bf7463aba6184f6 100644 (file)
--- 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 67f9b83887d22e7426cf028f7fb410f47582fa39..ffb6f7f0ca62dd96beac5ce1bcd64a6e331442d0 100644 (file)
--- 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)