diff options
author | Francesco Pizzolante <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org> | 2013-01-31 16:35:31 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-11 15:46:56 +0100 |
commit | 5e22630f00cd4d106e19bab0b857b1edeffb1949 (patch) | |
tree | e340794c663bcf42be13fb479c2c1fcbdafa2af9 | |
parent | b05259ee9b5eb7bb008913f20e0dc86edf825bcb (diff) | |
download | org-mode-5e22630f00cd4d106e19bab0b857b1edeffb1949.tar.gz |
Protect `org-agenda-prepare-buffers' with `org-unmodified'
* org.el (org-agenda-prepare-buffers): Protect with
`org-unmodified'.
TINYCHANGE
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 20d3e54..83cfc01 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17469,7 +17469,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)) @@ -17479,7 +17479,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) @@ -17506,8 +17506,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 |