From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Francesco Pizzolante" Subject: [PATCH] Protect org-agenda-prepare-buffers with org-unmodified Date: Thu, 31 Jan 2013 16:44:57 +0100 Message-ID: <87a9rp9x1i.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: mailing-list-org-mode Hello, This patch protects changes done in org-agenda-prepare-buffers with org-unmodified instead of saving/restoring buffer-modified-p. This avoids modification hooks to run. Regards, Francesco >From 6ce481a40a64510d67708ca63d27bdb434ee3e5a Mon Sep 17 00:00:00 2001 From: Francesco Pizzolante Date: Thu, 31 Jan 2013 16:35:31 +0100 Subject: [PATCH] Protect org-agenda-prepare-buffers with org-unmodified * org.el (org-agenda-prepare-buffers): stable TINYCHANGE --- lisp/org.el | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ca751a7..a578371 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17008,7 +17008,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (inhibit-read-only t) (org-inhibit-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) - bmp file re) + file re) (save-excursion (save-restriction (while (setq file (pop files)) @@ -17018,7 +17018,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) - (setq bmp (buffer-modified-p)) + (org-unmodified (org-refresh-category-properties) (org-refresh-properties org-effort-property 'org-effort) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime) @@ -17045,8 +17045,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved org-comment-string)) (while (re-search-forward re nil t) (add-text-properties - (match-beginning 0) (org-end-of-subtree t) pc))) - (set-buffer-modified-p bmp))))) + (match-beginning 0) (org-end-of-subtree t) pc)))))))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda -- 1.7.9