diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-08 06:29:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-08 06:29:31 +0000 |
| commit | be6231e3d15f63b31bec28137ab7a571c239c2bb (patch) | |
| tree | 2bfe5ec24c533b1b5fd496155edd28bcdfc974bd /lisp | |
| parent | e2bb905e9e22f25ef85002735e9d301438120242 (diff) | |
| download | emacs-be6231e3d15f63b31bec28137ab7a571c239c2bb.tar.gz emacs-be6231e3d15f63b31bec28137ab7a571c239c2bb.tar.bz2 emacs-be6231e3d15f63b31bec28137ab7a571c239c2bb.zip | |
(calendar-event-to-date): Set buffer in case calendar isn't current.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/cal-menu.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 3313992d0b3..96faf2b4957 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -177,8 +177,9 @@ (put 'insert-weekly-diary-entry 'menu-enable '(calendar-cursor-to-date)) (defun calendar-event-to-date () - "Date of last event. Nil if last event was not done on a date." + "Date of last event. Value is nil if last event was not done on a date." (save-excursion + (set-buffer (window-buffer (posn-window (event-start last-input-event)))) (goto-char (posn-point (event-start last-input-event))) (calendar-cursor-to-date))) |