aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/font-lock.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index f8d2f2b88db..82c12548c1d 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -620,6 +620,7 @@ Major/minor modes can set this variable if they know which option applies.")
620 ;; We use this to preserve or protect things when modifying text properties. 620 ;; We use this to preserve or protect things when modifying text properties.
621 (defmacro save-buffer-state (varlist &rest body) 621 (defmacro save-buffer-state (varlist &rest body)
622 "Bind variables according to VARLIST and eval BODY restoring buffer state." 622 "Bind variables according to VARLIST and eval BODY restoring buffer state."
623 (declare (indent 1) (debug let))
623 (let ((modified (make-symbol "modified"))) 624 (let ((modified (make-symbol "modified")))
624 `(let* ,(append varlist 625 `(let* ,(append varlist
625 `((,modified (buffer-modified-p)) 626 `((,modified (buffer-modified-p))
@@ -634,8 +635,6 @@ Major/minor modes can set this variable if they know which option applies.")
634 ,@body) 635 ,@body)
635 (unless ,modified 636 (unless ,modified
636 (restore-buffer-modified-p nil))))) 637 (restore-buffer-modified-p nil)))))
637 (put 'save-buffer-state 'lisp-indent-function 1)
638 (def-edebug-spec save-buffer-state let)
639 ;; 638 ;;
640 ;; Shut up the byte compiler. 639 ;; Shut up the byte compiler.
641 (defvar font-lock-face-attributes)) ; Obsolete but respected if set. 640 (defvar font-lock-face-attributes)) ; Obsolete but respected if set.