# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1037802712 0
# Node ID 4bdcb09d9f254d481874c1c5a651f3c9ac9d65a5
# Parent  33dafec6a9de6a2188f83802642a72a0c79f1ae8
(symbol-file): Accept a non-atomic `function' arg.
(with-local-quit): Add debug and indentation info.

diff -r 33dafec6a9de -r 4bdcb09d9f25 lisp/subr.el
--- a/lisp/subr.el	Wed Nov 20 12:58:37 2002 +0000
+++ b/lisp/subr.el	Wed Nov 20 14:31:52 2002 +0000
@@ -925,7 +925,7 @@
     (let ((files load-history)
 	  file)
       (while files
-	(if (memq function (cdr (car files)))
+	(if (member function (cdr (car files)))
 	    (setq file (car (car files)) files nil))
 	(setq files (cdr files)))
       file)))
@@ -1603,6 +1603,7 @@
 
 (defmacro with-local-quit (&rest body)
   "Execute BODY with `inhibit-quit' temporarily bound to nil."
+  (declare (debug t) (indent 0))
   `(condition-case nil
        (let ((inhibit-quit nil))
 	 ,@body)