mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(calendar-event-to-date): Set buffer in case calendar isn't current.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-08 06:29:31 +00:00
parent e2bb905e9e
commit be6231e3d1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/calendar/cal-menu.el
View File

@ -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)))