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

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

[elpa] externals/org 635a601dd5: org-self-insert-command: Do not trigger


From: ELPA Syncer
Subject: [elpa] externals/org 635a601dd5: org-self-insert-command: Do not trigger folding checks
Date: Wed, 15 Mar 2023 10:58:20 -0400 (EDT)

branch: externals/org
commit 635a601dd552f430e132b4d31de0091c2dba4c0e
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-self-insert-command: Do not trigger folding checks
    
    * lisp/org.el (org-self-insert-command): Do not trigger folding checks
    for interactive edits.
---
 lisp/org.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index b27dc1b189..c5ea3ebb73 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16489,7 +16489,8 @@ overwritten, and the table is not marked as requiring 
realignment."
        t)
      (looking-at "[^|\n]*  |"))
     ;; There is room for insertion without re-aligning the table.
-    (self-insert-command N)
+    (org-fold-core-ignore-modifications
+      (self-insert-command N))
     (org-table-with-shrunk-field
      (save-excursion
        (skip-chars-forward "^|")
@@ -16499,8 +16500,9 @@ overwritten, and the table is not marked as requiring 
realignment."
        (delete-region (- (point) 2) (1- (point))))))
    (t
     (setq org-table-may-need-update t)
-    (self-insert-command N)
-    (org-fix-tags-on-the-fly)
+    (org-fold-core-ignore-modifications
+      (self-insert-command N)
+      (org-fix-tags-on-the-fly))
     (when org-self-insert-cluster-for-undo
       (if (not (eq last-command 'org-self-insert-command))
          (setq org-self-insert-command-undo-counter 1)



reply via email to

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