From 11361a8b9898df2f9e2054118434f59dd0f22b46 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 27 Jul 2007 20:00:05 +0000 Subject: [PATCH] Don't wrap defvar within eval-when-compile. --- lisp/ChangeLog | 2 ++ lisp/calendar/appt.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09b584a9497..422d1936eea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-07-27 Stefan Monnier + * 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 7f343f300dc..94df068b012 100644 --- 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) -- 2.39.5