mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(calendar-scroll-left): Handle case when event-start is nil.

Browse source
This commit is contained in:
Glenn Morris 2008-04-24 05:43:27 +00:00
parent f971f8bc3a
commit b2cbe2af53
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/calendar/cal-move.el
View file

@ -144,7 +144,8 @@ EVENT is an event like `last-nonmenu-event'."
last-nonmenu-event))
(unless arg (setq arg 1))
(save-selected-window
(select-window (posn-window (event-start event)))
;; Nil if called from menu-bar.
(if (setq event (event-start event)) (select-window (posn-window event)))
(calendar-cursor-to-nearest-date)
(unless (zerop arg)
(let ((old-date (calendar-cursor-to-date))