emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/beardbolt 325327bc70 273/323: Use inhibit-modification-


From: ELPA Syncer
Subject: [elpa] externals/beardbolt 325327bc70 273/323: Use inhibit-modification-hooks when modifying buffer
Date: Thu, 9 Mar 2023 10:58:38 -0500 (EST)

branch: externals/beardbolt
commit 325327bc704926932829335d853baf52e6160397
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Use inhibit-modification-hooks when modifying buffer
    
    (bb--handle-finish-compile): Also simplify.
---
 beardbolt.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/beardbolt.el b/beardbolt.el
index 6f8459bf8e..154276dd52 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -610,7 +610,6 @@ Argument STR compilation finish status."
          (split-width-threshold (min split-width-threshold 100)))
     (with-current-buffer output-buffer
       (asm-mode)
-      (font-lock-mode -1)
       (setq bb--source-buffer src-buffer)
       (bb--output-mode)
       (buffer-disable-undo)
@@ -620,6 +619,7 @@ Argument STR compilation finish status."
         (display-buffer (current-buffer) `(() (inhibit-same-window . t)))
         ;; Replace buffer contents but save point and scroll
         (let* ((output-window (get-buffer-window))
+               (inhibit-modification-hooks t)
                (old-point (and output-window (window-point output-window)))
                (old-window-start (and output-window (window-start 
output-window))))
           (erase-buffer)
@@ -635,8 +635,7 @@ Argument STR compilation finish status."
                    (set-window-start output-window old-window-start)
                    (set-window-point output-window old-point))
                  (bb--make-line-mappings)
-                 (bb--rainbowize src-buffer)
-                 (font-lock-mode 1))))
+                 (bb--rainbowize src-buffer))))
         (when-let ((w (get-buffer-window compilation-buffer)))
           (quit-window nil w)))
        (t



reply via email to

[Prev in Thread] Current Thread [Next in Thread]