diff options
author | Bastien Guerry <bzg@altern.org> | 2012-07-12 14:29:54 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-07-12 14:29:54 +0200 |
commit | 620737757ffb926b92148d1bdd21730864aa4e40 (patch) | |
tree | 3904c16d0cdd149221af96c96879d1892a40c0b0 | |
parent | a265b15f1250afa9f53020f1c354efbe199512e7 (diff) | |
download | org-mode-620737757ffb926b92148d1bdd21730864aa4e40.tar.gz |
org.el: Fix bug in `org-refile'.
* org.el (org-refile): Fix bug: prevent looping when calling
`org-set-tags' internally.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7d664c9..65c6875 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10839,7 +10839,9 @@ prefix argument (`C-u C-u C-u C-c C-w')." org-log-refile) (unless (eq org-log-refile 'note) (save-excursion (org-add-log-note)))) - (and org-auto-align-tags (org-set-tags nil t)) + (and org-auto-align-tags + (let ((org-loop-over-headlines-in-active-region nil)) + (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") ;; If we are refiling for capture, make sure that the ;; last-capture pointers point here |