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.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index d2ebde7..1660fe7 100644
--- a/lisp/org-mouse.el
+++ b/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)
diff --git a/lisp/org.el b/lisp/org.el
index 5f32910..ef81192 100644
--- a/lisp/org.el
+++ b/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))))