浏览代码

org-agenda.el: Fix compiler warning

Bastien Guerry 13 年之前
父节点
当前提交
4f601b6748
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -3839,6 +3839,7 @@ command.  A good way to set it is through options in
 somewhat less efficient) way of determining what is included in
 somewhat less efficient) way of determining what is included in
 the daily/weekly agenda, see `org-agenda-skip-function'.")
 the daily/weekly agenda, see `org-agenda-skip-function'.")
 
 
+(defvar org-agenda-buffer-tmp-name nil)
 ;;;###autoload
 ;;;###autoload
 (defun org-agenda-list (&optional arg start-day span)
 (defun org-agenda-list (&optional arg start-day span)
   "Produce a daily/weekly view from all files in variable `org-agenda-files'.
   "Produce a daily/weekly view from all files in variable `org-agenda-files'.
@@ -6981,7 +6982,6 @@ Negative selection means regexp must not match for selection of an entry."
 (defun org-add-to-string (var string)
 (defun org-add-to-string (var string)
   (set var (concat (symbol-value var) string)))
   (set var (concat (symbol-value var) string)))
 
 
-(defvar org-agenda-buffer-tmp-name nil)
 (defun org-agenda-goto-date (date)
 (defun org-agenda-goto-date (date)
   "Jump to DATE in agenda."
   "Jump to DATE in agenda."
   (interactive (list (let ((org-read-date-prefer-future
   (interactive (list (let ((org-read-date-prefer-future