From b7b6a72869c8dcdf0627ee2470e5678a5ffeade6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 6 Aug 2010 12:51:56 +0200 Subject: [PATCH] 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 --- lisp/org-indent.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 45865d172..83eaac546 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -203,8 +203,9 @@ useful to make it ever so slightly different." (defun org-indent-remove-properties (beg end) "Remove indentations between BEG and END." - (org-unmodified - (remove-text-properties beg end '(line-prefix nil wrap-prefix nil)))) + (let ((inhibit-modification-hooks t)) + (org-unmodified + (remove-text-properties beg end '(line-prefix nil wrap-prefix nil))))) (defun org-indent-remove-properties-from-string (string) "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. Assumes that BEG is at the beginning of a line." (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 (save-excursion (goto-char beg)