mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(combine-run-hooks): Remove.

Browse Source
This commit is contained in:
Stefan Monnier 2000-12-23 20:53:24 +00:00
parent aeb2b8fc29
commit 6a84719a02
1 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/subr.el
View File

@ -1117,35 +1117,6 @@ in BODY."
(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