From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Nov 1996 21:46:35 +0000 (+0000)
Subject: (combine-after-change-calls): New macro.
X-Git-Tag: emacs-20.1~3395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ec9c94e21e908bd2d7825aa13b1a4664a07aa3b;p=emacs.git

(combine-after-change-calls): New macro.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 83cc198040d..0634ce21be7 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -783,6 +783,24 @@ See also `with-temp-file' and `with-output-to-string'."
        (prog1
 	   (buffer-string)
 	 (kill-buffer nil)))))
+
+(defmacro combine-after-change-calls (&rest body)
+  "Execute BODY, but don't call the after-change functions till the end.
+If BODY makes changes in the buffer, they are recorded
+and the functions on `after-change-functions' are called several times
+when BODY is finished.
+The return value is rthe value of the last form in BODY.
+
+If `before-change-functions' is non-nil, then calls to the after-change
+functions can't be deferred, so in that case this macro has no effect.
+
+Do not alter `after-change-functions' or `before-change-functions'
+in BODY."
+  `(unwind-protect
+       (let ((combine-after-change-calls t))
+	 . ,body)
+     (combine-after-change-execute)))
+
 
 (defvar save-match-data-internal)