浏览代码

org-agenda.el (org-batch-agenda): Let-bind `org-agenda-sticky' to nil during batch export

* org-agenda.el (org-batch-agenda): Let-bind
`org-agenda-sticky' to nil during batch export.

Thanks to Rainer for spotting this.
Bastien Guerry 11 年之前
父节点
当前提交
6abc114f18
共有 1 个文件被更改,包括 6 次插入5 次删除
  1. 6 5
      lisp/org-agenda.el

+ 6 - 5
lisp/org-agenda.el

@@ -3129,11 +3129,12 @@ longer string it is used as a tags/todo match string.
 Parameters are alternating variable names and values that will be bound
 before running the agenda command."
   (org-eval-in-environment (org-make-parameter-alist parameters)
-    (if (> (length cmd-key) 2)
-	(org-tags-view nil cmd-key)
-      (org-agenda nil cmd-key)))
-  (set-buffer org-agenda-buffer-name)
-  (princ (buffer-string)))
+    (let (org-agenda-sticky)
+      (if (> (length cmd-key) 2)
+	  (org-tags-view nil cmd-key)
+	(org-agenda nil cmd-key)))
+    (set-buffer org-agenda-buffer-name)
+    (princ (buffer-string))))
 
 (defvar org-agenda-info nil)