From 1232083369bf9339633836832e2d31f1ecc37b29 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 20 Nov 2002 14:31:52 +0000 Subject: [PATCH] (symbol-file): Accept a non-atomic `function' arg. (with-local-quit): Add debug and indentation info. --- lisp/subr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2