Mercurial > emacs
comparison lisp/calendar/appt.el @ 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 | 93e11478c954 |
children | bbc7f9c9ad6e 539530fa389c |
comparison
equal
deleted
inserted
replaced
82175:9977c5e7dead | 82176:907a4e983597 |
---|---|
529 (setq appt-time-msg-list (delq element appt-time-msg-list))))) | 529 (setq appt-time-msg-list (delq element appt-time-msg-list))))) |
530 (appt-check) | 530 (appt-check) |
531 (message ""))) | 531 (message ""))) |
532 | 532 |
533 | 533 |
534 (eval-when-compile (defvar number) | 534 (defvar number) |
535 (defvar original-date) | 535 (defvar original-date) |
536 (defvar diary-entries-list)) | 536 (defvar diary-entries-list) |
537 ;;;###autoload | 537 ;;;###autoload |
538 (defun appt-make-list () | 538 (defun appt-make-list () |
539 "Update the appointments list from today's diary buffer. | 539 "Update the appointments list from today's diary buffer. |
540 The time must be at the beginning of a line for it to be | 540 The time must be at the beginning of a line for it to be |
541 put in the appointments list (see examples in documentation of | 541 put in the appointments list (see examples in documentation of |
632 | 632 |
633 | 633 |
634 (defun appt-sort-list (appt-list) | 634 (defun appt-sort-list (appt-list) |
635 "Sort an appointment list, putting earlier items at the front. | 635 "Sort an appointment list, putting earlier items at the front. |
636 APPT-LIST is a list of the same format as `appt-time-msg-list'." | 636 APPT-LIST is a list of the same format as `appt-time-msg-list'." |
637 (sort appt-list (lambda (e1 e2) (< (caar e1) (caar e2))))) | 637 (sort appt-list (lambda (e1 e2) (< (caar e1) (caar e2))))) |
638 | 638 |
639 | 639 |
640 (defun appt-convert-time (time2conv) | 640 (defun appt-convert-time (time2conv) |
641 "Convert hour:min[am/pm] format to minutes from midnight. | 641 "Convert hour:min[am/pm] format to minutes from midnight. |
642 A period (.) can be used instead of a colon (:) to separate the | 642 A period (.) can be used instead of a colon (:) to separate the |