From 6a84719a027430a82ab64f2b39757982693c1f3f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 23 Dec 2000 20:53:24 +0000 Subject: [PATCH] (combine-run-hooks): Remove. --- lisp/subr.el | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 087b8cfcd0f..e2897481164 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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 -- 2.39.2