Mercurial > emacs
changeset 82176:907a4e983597
Don't wrap defvar within eval-when-compile.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 27 Jul 2007 20:00:05 +0000 |
| parents | 9977c5e7dead |
| children | f673ee49d36e |
| files | lisp/ChangeLog lisp/calendar/appt.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)