Browse Source

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 years ago
parent
commit
6abc114f18
1 changed files with 6 additions and 5 deletions
  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)