浏览代码

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 12 年之前
父节点
当前提交
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
 Parameters are alternating variable names and values that will be bound
 before running the agenda command."
 before running the agenda command."
   (org-eval-in-environment (org-make-parameter-alist parameters)
   (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)
 (defvar org-agenda-info nil)