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

["Francesco Pizzolante" <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org>]

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 <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org>
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