Don't wrap defvar within eval-when-compile.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09b584a9497e3f2d639d5a8a93566965f05e16eb..422d1936eead2634258d01bbcadf567a5c7f29e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-07-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * calendar/appt.el: Don't wrap defvar within eval-when-compile.
+
        * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right)
        (calendar-scroll-left-three-months)
        (calendar-scroll-right-three-months): Clean up namespace.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 7f343f300dcde5d4572cae5e57db875bfce3334f..94df068b012ddb1108b0080ef57a558e3356ac74 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -531,9 +531,9 @@ The time should be in either 24 hour format or am/pm format."
     (message "")))
 
 
-(eval-when-compile (defvar number)
-                  (defvar original-date)
-                  (defvar diary-entries-list))
+(defvar number)
+(defvar original-date)
+(defvar diary-entries-list)
 ;;;###autoload
 (defun appt-make-list ()
   "Update the appointments list from today's diary buffer.
@@ -634,7 +634,7 @@ appointment package (if it is not already active)."
 (defun appt-sort-list (appt-list)
   "Sort an appointment list, putting earlier items at the front.
 APPT-LIST is a list of the same format as `appt-time-msg-list'."
-(sort appt-list (lambda (e1 e2) (< (caar e1) (caar e2)))))
+  (sort appt-list (lambda (e1 e2) (< (caar e1) (caar e2)))))
 
 
 (defun appt-convert-time (time2conv)