Mercurial > emacs
changeset 48475:4bdcb09d9f25
(symbol-file): Accept a non-atomic `function' arg.
(with-local-quit): Add debug and indentation info.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 20 Nov 2002 14:31:52 +0000 |
| parents | 33dafec6a9de |
| children | 29e63846608d |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)