浏览代码

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Conflicts:

	ChangeLog
Carsten Dominik 17 年之前
父节点
当前提交
cb8c0e81a9
共有 2 个文件被更改,包括 20 次插入2 次删除
  1. 12 1
      ChangeLog
  2. 8 1
      org.el

+ 12 - 1
ChangeLog

@@ -10,6 +10,17 @@
 	(org-check-agenda-marker-table): New functions.
 	(org-check-agenda-marker-table): New functions.
 	(org-agenda-marker-table): New variable.
 	(org-agenda-marker-table): New variable.
 
 
+2008-03-08  Glenn Morris  <rmg@gnu.org>
+
+	(list-diary-entries-hook): Declare for compiler.
+	(org-get-entries-from-diary): Require diary-lib.
+
+2008-03-07  Glenn Morris  <rmg@gnu.org>
+
+	(org-agenda-sunrise-sunset): Require solar.
+	(calendar-longitude, calendar-latitude, calendar-location-name):
+	Declare for compiler.
+
 2008-03-07  Bastien Guerry  <bzg@altern.org>
 2008-03-07  Bastien Guerry  <bzg@altern.org>
 
 
 	* org-export-latex.el (org-export-as-latex): Revert the change
 	* org-export-latex.el (org-export-as-latex): Revert the change
@@ -53,7 +64,7 @@
 
 
 2008-03-05  Carsten Dominik  <dominik@science.uva.nl>
 2008-03-05  Carsten Dominik  <dominik@science.uva.nl>
 
 
-	* org.el "htmlize"): Removed hack to fix face problem with
+	* org.el "htmlize": Removed hack to fix face problem with
 	htmlize, it no longer seem necessary.
 	htmlize, it no longer seem necessary.
 
 
 2008-03-05  Bastien Guerry  <bzg@altern.org>
 2008-03-05  Bastien Guerry  <bzg@altern.org>

+ 8 - 1
org.el

@@ -2377,7 +2377,7 @@ the fonts used by the agenda, here is an example:
           font-weight: 600;
           font-weight: 600;
        }
        }
        .org-todo {
        .org-todo {
-          color: #cc6666;Week-agenda:
+          color: #cc6666;
           font-weight: bold;
           font-weight: bold;
        }
        }
        .org-done {
        .org-done {
@@ -21578,9 +21578,11 @@ MATCH is being ignored."
 ;;; Diary integration
 ;;; Diary integration
 
 
 (defvar org-disable-agenda-to-diary nil)          ;Dynamically-scoped param.
 (defvar org-disable-agenda-to-diary nil)          ;Dynamically-scoped param.
+(defvar list-diary-entries-hook)
 
 
 (defun org-get-entries-from-diary (date)
 (defun org-get-entries-from-diary (date)
   "Get the (Emacs Calendar) diary entries for DATE."
   "Get the (Emacs Calendar) diary entries for DATE."
+  (require 'diary-lib)
   (let* ((fancy-diary-buffer "*temporary-fancy-diary-buffer*")
   (let* ((fancy-diary-buffer "*temporary-fancy-diary-buffer*")
 	 (diary-display-hook '(fancy-diary-display))
 	 (diary-display-hook '(fancy-diary-display))
 	 (pop-up-frames nil)
 	 (pop-up-frames nil)
@@ -23695,12 +23697,17 @@ the cursor position."
   (interactive)
   (interactive)
   (org-agenda-execute-calendar-command 'list-calendar-holidays))
   (org-agenda-execute-calendar-command 'list-calendar-holidays))
 
 
+(defvar calendar-longitude)
+(defvar calendar-latitude)
+(defvar calendar-location-name)
+
 (defun org-agenda-sunrise-sunset (arg)
 (defun org-agenda-sunrise-sunset (arg)
   "Display sunrise and sunset for the cursor date.
   "Display sunrise and sunset for the cursor date.
 Latitude and longitude can be specified with the variables
 Latitude and longitude can be specified with the variables
 `calendar-latitude' and `calendar-longitude'.  When called with prefix
 `calendar-latitude' and `calendar-longitude'.  When called with prefix
 argument, latitude and longitude will be prompted for."
 argument, latitude and longitude will be prompted for."
   (interactive "P")
   (interactive "P")
+  (require 'solar)
   (let ((calendar-longitude (if arg nil calendar-longitude))
   (let ((calendar-longitude (if arg nil calendar-longitude))
 	(calendar-latitude  (if arg nil calendar-latitude))
 	(calendar-latitude  (if arg nil calendar-latitude))
 	(calendar-location-name
 	(calendar-location-name