From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 23 Dec 2000 20:53:24 +0000 (+0000)
Subject: (combine-run-hooks): Remove.
X-Git-Tag: emacs-pretest-21.0.95~293
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a84719a027430a82ab64f2b39757982693c1f3f;p=emacs.git

(combine-run-hooks): Remove.
---

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