emacs-orgmode
[Top][All Lists]
Advanced

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

[O] [PATCH] Protect org-agenda-prepare-buffers with org-unmodified


From: Francesco Pizzolante
Subject: [O] [PATCH] Protect org-agenda-prepare-buffers with org-unmodified
Date: Thu, 31 Jan 2013 16:44:57 +0100
User-agent: Gnus/5.130004 (Ma Gnus v0.4) Emacs/24.2 (windows-nt)

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 <address@hidden>
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



reply via email to

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