/[emacs]/emacs/lisp/calendar/appt.el
ViewVC logotype

Diff of /emacs/lisp/calendar/appt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42.4.5 by miles, Thu Apr 1 04:29:03 2004 UTC revision 1.42.4.6 by miles, Tue Jul 6 09:14:19 2004 UTC
# Line 449  NEW-TIME is a string giving the date." Line 449  NEW-TIME is a string giving the date."
449                    (same-window-p (buffer-name appt-disp-buf)))                    (same-window-p (buffer-name appt-disp-buf)))
450          ;; By default, split the bottom window and use the lower part.          ;; By default, split the bottom window and use the lower part.
451          (appt-select-lowest-window)          (appt-select-lowest-window)
452          (split-window))          (select-window (split-window)))
453        (pop-to-buffer appt-disp-buf))        (switch-to-buffer appt-disp-buf))
454      (setq mode-line-format      (calendar-set-mode-line
455            (concat "-------------------- Appointment in "       (format " Appointment in %s minutes. %s " min-to-app new-time))
                   min-to-app " minutes. " new-time " %-"))  
456      (erase-buffer)      (erase-buffer)
457      (insert appt-msg)      (insert appt-msg)
458      (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t))      (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t))

Legend:
Removed from v.1.42.4.5  
changed lines
  Added in v.1.42.4.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26