소스 검색

Fix agenda bulk refile bug

Fix bulk refiling in the agenda due to commit
9ec5529 (Fix jumping to last refile location in agenda, 2009-08-20)

This restores the original behaviour.
Bernt Hansen 15 년 전
부모
커밋
64d3186ff6
1개의 변경된 파일8개의 추가작업 그리고 9개의 파일을 삭제
  1. 8 9
      lisp/org-agenda.el

+ 8 - 9
lisp/org-agenda.el

@@ -5481,18 +5481,17 @@ If this information is not given, the function uses the tree at point."
 		       (org-agenda-error)))
 	   (buffer (marker-buffer marker))
 	   (pos (marker-position marker))
-	   (rfloc))
-      (setq rfloc (or rfloc
+	   (rfloc (or rfloc
 		      (org-refile-get-location
 		       (if goto "Goto: " "Refile to: ") buffer
 		       org-refile-allow-creating-parent-nodes))))
-    (with-current-buffer buffer
-      (save-excursion
-	(save-restriction
-	  (widen)
-	  (goto-char marker)
-	  (org-remove-subtree-entries-from-agenda)
-	  (org-refile goto buffer rfloc))))))
+      (with-current-buffer buffer
+	(save-excursion
+	  (save-restriction
+	    (widen)
+	    (goto-char marker)
+	    (org-remove-subtree-entries-from-agenda)
+	    (org-refile goto buffer rfloc)))))))
 
 (defun org-agenda-open-link (&optional arg)
   "Follow the link in the current line, if any.