[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 635a601dd5: org-self-insert-command: Do not trigger folding checks,
ELPA Syncer <=