From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 20 Nov 2002 14:31:52 +0000 (+0000)
Subject: (symbol-file): Accept a non-atomic `function' arg.
X-Git-Tag: ttn-vms-21-2-B4~12324
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1232083369bf9339633836832e2d31f1ecc37b29;p=emacs.git

(symbol-file): Accept a non-atomic `function' arg.
(with-local-quit): Add debug and indentation info.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 10e48e7a405..093812d13c5 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -925,7 +925,7 @@ It can also be nil, if the definition is not associated with any file."
     (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 @@ See also `with-temp-file' and `with-output-to-string'."
 
 (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)