Mercurial > emacs
changeset 34853:807a610a7a98
(combine-run-hooks): Remove.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 23 Dec 2000 20:53:24 +0000 |
| parents | 981f3cedd760 |
| children | bf1bc2158b55 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 0 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sat Dec 23 19:23:24 2000 +0000 +++ b/lisp/subr.el Sat Dec 23 20:53:24 2000 +0000 @@ -1117,35 +1117,6 @@ (combine-after-change-execute))) -(defvar combine-run-hooks t - "List of hooks delayed. Or t if we're not delaying hooks.") - -(defmacro combine-run-hooks (&rest body) - "Execute BODY, but delay any `run-hooks' until the end." - (let ((saved-combine-run-hooks (make-symbol "saved-combine-run-hooks")) - (saved-run-hooks (make-symbol "saved-run-hooks"))) - `(let ((,saved-combine-run-hooks combine-run-hooks) - (,saved-run-hooks (symbol-function 'run-hooks))) - (unwind-protect - (progn - ;; If we're not delaying hooks yet, setup the delaying mode - (unless (listp combine-run-hooks) - (setq combine-run-hooks nil) - (fset 'run-hooks - ,(lambda (&rest hooks) - (setq combine-run-hooks - (append combine-run-hooks hooks))))) - ,@body) - ;; If we were not already delaying, then it's now time to set things - ;; back to normal and to execute the delayed hooks. - (unless (listp ,saved-combine-run-hooks) - (setq ,saved-combine-run-hooks combine-run-hooks) - (fset 'run-hooks ,saved-run-hooks) - (setq combine-run-hooks t) - (if ,saved-combine-run-hooks - (apply 'run-hooks ,saved-combine-run-hooks))))))) - - (defmacro with-syntax-table (table &rest body) "Evaluate BODY with syntax table of current buffer set to a copy of TABLE. The syntax table of the current buffer is saved, BODY is evaluated, and the