ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Do not call modification hooks when triggering indentation 

* lisp/org-indent.el (org-indent-remove-properties):
(org-indent-add-properties): Make sure changing these properties does
not trigger modification hooks
This commit is contained in:
Carsten Dominik 2010-08-06 12:51:56 +02:00
parent 2b1d745c09
commit b7b6a72869
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-indent.el
View File

@ -203,8 +203,9 @@ useful to make it ever so slightly different."
(defun org-indent-remove-properties (beg end) (defun org-indent-remove-properties (beg end)
"Remove indentations between BEG and END." "Remove indentations between BEG and END."
(org-unmodified (let ((inhibit-modification-hooks t))
(remove-text-properties beg end '(line-prefix nil wrap-prefix nil)))) (org-unmodified
(remove-text-properties beg end '(line-prefix nil wrap-prefix nil)))))
(defun org-indent-remove-properties-from-string (string) (defun org-indent-remove-properties-from-string (string)
"Remove indentations between BEG and END." "Remove indentations between BEG and END."
@ -219,7 +220,8 @@ useful to make it ever so slightly different."
"Add indentation properties between BEG and END. "Add indentation properties between BEG and END.
Assumes that BEG is at the beginning of a line." Assumes that BEG is at the beginning of a line."
(when (or t org-indent-mode) (when (or t org-indent-mode)
(let (ov b e n level exit nstars) (let ((inhibit-modification-hooks t)
ov b e n level exit nstars)
(org-unmodified (org-unmodified
(save-excursion (save-excursion
(goto-char beg) (goto-char beg)