From 9bf59dd0b57e88b65325da25c0c8ac744b469fe7 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 25 Jun 2009 07:29:32 +0200 Subject: [PATCH] Keep byte compiler happy --- lisp/org-agenda.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2d53def63..781fa1bc2 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1236,6 +1236,7 @@ works you probably want to add it to `org-agenda-custom-commands' for good." "Hook for org-agenda-mode, run after the mode is turned on.") (defvar org-agenda-type nil) (defvar org-agenda-force-single-file nil) +(defvar org-agenda-marked-entries) ;; Defined further down in this file (defun org-agenda-mode () "Mode for time-sorted view on action items in Org-mode files. @@ -6290,7 +6291,7 @@ This will remove the markers, and the overlays." (message "Action: [r]efile [$]archive [A]rch-to-sib [t]odo [+]tag [-]tag") (let* ((action (read-char-exclusive)) (entries (reverse org-agenda-marked-entries)) - cmd rfloc state e (cnt 0)) + cmd rfloc state e tag (cnt 0)) (cond ((equal action ?$) (setq cmd '(org-agenda-archive))) -- 2.11.4.GIT