Mercurial > emacs
comparison lisp/subr.el @ 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 | 9aa3fd6779f7 |
| children | 90213af2c5ba |
comparison
equal
deleted
inserted
replaced
| 33996:d3bd47722971 | 33997:07634865ec4b |
|---|---|
| 1138 ;; back to normal and to execute the delayed hooks. | 1138 ;; back to normal and to execute the delayed hooks. |
| 1139 (unless (listp ,saved-combine-run-hooks) | 1139 (unless (listp ,saved-combine-run-hooks) |
| 1140 (setq ,saved-combine-run-hooks combine-run-hooks) | 1140 (setq ,saved-combine-run-hooks combine-run-hooks) |
| 1141 (fset 'run-hooks ,saved-run-hooks) | 1141 (fset 'run-hooks ,saved-run-hooks) |
| 1142 (setq combine-run-hooks t) | 1142 (setq combine-run-hooks t) |
| 1143 (apply 'run-hooks ,saved-combine-run-hooks)))))) | 1143 (if ,saved-combine-run-hooks |
| 1144 (apply 'run-hooks ,saved-combine-run-hooks))))))) | |
| 1144 | 1145 |
| 1145 | 1146 |
| 1146 (defmacro with-syntax-table (table &rest body) | 1147 (defmacro with-syntax-table (table &rest body) |
| 1147 "Evaluate BODY with syntax table of current buffer set to a copy of TABLE. | 1148 "Evaluate BODY with syntax table of current buffer set to a copy of TABLE. |
| 1148 The syntax table of the current buffer is saved, BODY is evaluated, and the | 1149 The syntax table of the current buffer is saved, BODY is evaluated, and the |