Mercurial > emacs
changeset 33997:07634865ec4b
(combine-run-hooks): Only run-hooks if there's a hook to run.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 29 Nov 2000 14:53:37 +0000 |
| parents | d3bd47722971 |
| children | 3d86eb495347 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Wed Nov 29 14:53:29 2000 +0000 +++ b/lisp/subr.el Wed Nov 29 14:53:37 2000 +0000 @@ -1140,7 +1140,8 @@ (setq ,saved-combine-run-hooks combine-run-hooks) (fset 'run-hooks ,saved-run-hooks) (setq combine-run-hooks t) - (apply 'run-hooks ,saved-combine-run-hooks)))))) + (if ,saved-combine-run-hooks + (apply 'run-hooks ,saved-combine-run-hooks))))))) (defmacro with-syntax-table (table &rest body)