瀏覽代碼

org-agenda.el: bugfix, remove useless `org-agenda-current-span'.

* org-agenda.el (org-agenda-list): Fix bug: don't rely on
`org-agenda-current-span' when calling `org-agenda-list'.
Bastien Guerry 14 年之前
父節點
當前提交
82224d6b34
共有 1 個文件被更改,包括 2 次插入4 次删除
  1. 2 4
      lisp/org-agenda.el

+ 2 - 4
lisp/org-agenda.el

@@ -3492,10 +3492,8 @@ given in `org-agenda-start-on-weekday'."
   (setq org-agenda-last-arguments (list include-all start-day span))
   (org-compile-prefix-format 'agenda)
   (org-set-sorting-strategy 'agenda)
-  (let* ((span (org-agenda-ndays-to-span (or span
-					     org-agenda-current-span
-					     org-agenda-ndays
-					     org-agenda-span)))
+  (let* ((span (org-agenda-ndays-to-span 
+		(or span org-agenda-ndays org-agenda-span)))
 	 (today (org-today))
 	 (sd (or start-day today))
 	 (ndays (org-agenda-span-to-ndays span sd))