# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1185566405 0
# Node ID 907a4e983597c788208896ee807c136a5194b1ad
# Parent  9977c5e7dead340efa20726dd6a857b4309189c3
Don't wrap defvar within eval-when-compile.

diff -r 9977c5e7dead -r 907a4e983597 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 27 10:42:55 2007 +0000
+++ b/lisp/ChangeLog	Fri Jul 27 20:00:05 2007 +0000
@@ -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 -r 9977c5e7dead -r 907a4e983597 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Fri Jul 27 10:42:55 2007 +0000
+++ b/lisp/calendar/appt.el	Fri Jul 27 20:00:05 2007 +0000
@@ -531,9 +531,9 @@
     (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 @@
 (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)