aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/subr.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index a2af6421173..5f8d830051c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3457,6 +3457,8 @@ See also `with-temp-file' and `with-output-to-string'."
3457 3457
3458(defmacro with-silent-modifications (&rest body) 3458(defmacro with-silent-modifications (&rest body)
3459 "Execute BODY, pretending it does not modify the buffer. 3459 "Execute BODY, pretending it does not modify the buffer.
3460This macro is Typically used around modifications of
3461text-properties which do not really affect the buffer's content.
3460If BODY performs real modifications to the buffer's text, other 3462If BODY performs real modifications to the buffer's text, other
3461than cosmetic ones, undo data may become corrupted. 3463than cosmetic ones, undo data may become corrupted.
3462 3464
@@ -3464,10 +3466,7 @@ This macro will run BODY normally, but doesn't count its buffer
3464modifications as being buffer modifications. This affects things 3466modifications as being buffer modifications. This affects things
3465like `buffer-modified-p', checking whether the file is locked by 3467like `buffer-modified-p', checking whether the file is locked by
3466someone else, running buffer modification hooks, and other things 3468someone else, running buffer modification hooks, and other things
3467of that nature. 3469of that nature."
3468
3469Typically used around modifications of text-properties which do
3470not really affect the buffer's content."
3471 (declare (debug t) (indent 0)) 3470 (declare (debug t) (indent 0))
3472 (let ((modified (make-symbol "modified"))) 3471 (let ((modified (make-symbol "modified")))
3473 `(let* ((,modified (buffer-modified-p)) 3472 `(let* ((,modified (buffer-modified-p))