# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 985913574 0
# Node ID 838adca2d2fdb2db577ca1d8a4d887e188824e6c
# Parent  6dee6cc113a58673b26f4f045b7ba3928ceb8f4e
(interactive-form): Fix paren typo.

diff -r 6dee6cc113a5 -r 838adca2d2fd lisp/subr.el
--- a/lisp/subr.el	Thu Mar 29 15:52:56 2001 +0000
+++ b/lisp/subr.el	Fri Mar 30 00:52:54 2001 +0000
@@ -1468,7 +1468,7 @@
 	   (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)