emacs-orgmode
[Top][All Lists]
Advanced

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

[O] [PATCH] Reduce scope of inhibit-modification-hooks


From: Aaron Jensen
Subject: [O] [PATCH] Reduce scope of inhibit-modification-hooks
Date: Sun, 19 Mar 2017 13:56:02 -0700

This fixes the fontification error discussed here:

http://lists.gnu.org/archive/html/emacs-orgmode/2017-03/msg00423.html

and here:

http://lists.gnu.org/archive/html/emacs-orgmode/2017-02/msg00280.html
---
 lisp/org-src.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/org-src.el b/lisp/org-src.el
index dfc422b..b0f952f 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -525,19 +525,19 @@ as `org-src-fontify-natively' is non-nil."
          (let ((inhibit-modification-hooks nil))
            (erase-buffer)
            ;; Add string and a final space to ensure property change.
-           (insert string " ")
-           (unless (eq major-mode lang-mode) (funcall lang-mode))
-           (org-font-lock-ensure)
-           (let ((pos (point-min)) next)
-             (while (setq next (next-property-change pos))
-               ;; Handle additional properties from font-lock, so as to
-               ;; preserve, e.g., composition.
-               (dolist (prop (cons 'face font-lock-extra-managed-props))
-                 (let ((new-prop (get-text-property pos prop)))
-                   (put-text-property
-                    (+ start (1- pos)) (1- (+ start next)) prop new-prop
-                    org-buffer)))
-               (setq pos next)))))
+           (insert string " "))
+         (unless (eq major-mode lang-mode) (funcall lang-mode))
+         (org-font-lock-ensure)
+         (let ((pos (point-min)) next)
+           (while (setq next (next-property-change pos))
+             ;; Handle additional properties from font-lock, so as to
+             ;; preserve, e.g., composition.
+             (dolist (prop (cons 'face font-lock-extra-managed-props))
+               (let ((new-prop (get-text-property pos prop)))
+                 (put-text-property
+                  (+ start (1- pos)) (1- (+ start next)) prop new-prop
+                  org-buffer)))
+             (setq pos next))))
        ;; Add Org faces.
        (let ((src-face (nth 1 (assoc-string lang org-src-block-faces t))))
           (when (or (facep src-face) (listp src-face))
--
2.10.0



reply via email to

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