Преглед на файлове

more small compiler errors

* lisp/org-mouse.el (org-agenda-earlier): Declaring previously unknown
  function.
  (org-agenda-later): Declaring previously unknown function.
  (org-agenda-mode-map): Declaring previously unknown variable.
* lisp/org.el (org-read-date-analyze): Explicitly ignore the return
  value of a function.
Eric Schulte преди 13 години
родител
ревизия
a034526448
променени са 2 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 3 0
      lisp/org-mouse.el
  2. 1 1
      lisp/org.el

+ 3 - 0
lisp/org-mouse.el

@@ -149,6 +149,8 @@
 		  (newhead hdmarker &optional fixface just-this))
 (declare-function org-verify-change-for-undo "org-agenda" (l1 l2))
 (declare-function org-apply-on-list "org-list" (function init-value &rest args))
+(declare-function org-agenda-earlier "org-agenda" (arg))
+(declare-function org-agenda-later "org-agenda" (arg))
 
 (defvar org-mouse-plain-list-regexp "\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) "
   "Regular expression that matches a plain list.")
@@ -1128,6 +1130,7 @@ This means, between the beginning of line and the point."
 
 
 ; (setq org-agenda-mode-hook nil)
+(defvar org-agenda-mode-map)
 (add-hook 'org-agenda-mode-hook
    #'(lambda ()
      (setq org-mouse-context-menu-function 'org-mouse-agenda-context-menu)

+ 1 - 1
lisp/org.el

@@ -14853,7 +14853,7 @@ user."
 	  (if (> year 2037)
 	      (setq year 2037  org-read-date-analyze-forced-year t)))
       (condition-case nil
-	  (encode-time second minute hour day month year)
+	  (ignore (encode-time second minute hour day month year))
 	(error
 	 (setq year (nth 5 defdecode))
 	 (setq org-read-date-analyze-forced-year t))))