Browse Source

Keep the compiler happy.

Bastien Guerry 14 năm trước cách đây
mục cha
commit
fc702a8345
1 tập tin đã thay đổi với 4 bổ sung4 xóa
  1. 4 4
      lisp/org-agenda.el

+ 4 - 4
lisp/org-agenda.el

@@ -2470,11 +2470,14 @@ s   Search for keywords                 C   Configure custom agenda commands
 	   ((equal c ?q) (error "Abort"))
 	   (t (error "Invalid key %c" c))))))))
 
+(defvar org-agenda-overriding-arguments nil) ; dynamically scoped parameter
+(defvar org-agenda-last-arguments nil
+  "The arguments of the previous call to `org-agenda'.")
 (defun org-run-agenda-series (name series)
   (org-let (nth 1 series) '(org-prepare-agenda name))
   (let* ((org-agenda-multi t)
 	 (redo (list 'org-run-agenda-series name (list 'quote series)))
-	 (org-agenda-overriding-arguments 
+	 (org-agenda-overriding-arguments
 	  (or org-agenda-overriding-arguments
 	      (unless (null (delq nil (get 'org-agenda-redo-command 'last-args)))
 		(get 'org-agenda-redo-command 'last-args))))
@@ -3418,11 +3421,8 @@ When EMPTY is non-nil, also include days without any entries."
 
 ;;; Agenda Daily/Weekly
 
-(defvar org-agenda-overriding-arguments nil) ; dynamically scoped parameter
 (defvar org-agenda-start-day nil  ; dynamically scoped parameter
 "Custom commands can set this variable in the options section.")
-(defvar org-agenda-last-arguments nil
-  "The arguments of the previous call to `org-agenda'.")
 (defvar org-starting-day nil) ; local variable in the agenda buffer
 (defvar org-agenda-current-span nil
   "The current span used in the agenda view.") ; local variable in the agenda buffer