(combine-run-hooks): New function.

1 files changed, 29 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 9074d3bbd3e..ee6eadaa59f 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1089,6 +1089,35 @@ in BODY."
          . ,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)
+           (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