Mercurial > emacs
comparison lisp/calendar/cal-move.el @ 94312:eaaf578ce48f
(calendar-scroll-left): Handle case when event-start is nil.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 24 Apr 2008 05:43:27 +0000 |
parents | bf9ef749c23e |
children | e49abd957e81 |
comparison
equal
deleted
inserted
replaced
94311:d550d8d3e7f3 | 94312:eaaf578ce48f |
---|---|
142 EVENT is an event like `last-nonmenu-event'." | 142 EVENT is an event like `last-nonmenu-event'." |
143 (interactive (list (prefix-numeric-value current-prefix-arg) | 143 (interactive (list (prefix-numeric-value current-prefix-arg) |
144 last-nonmenu-event)) | 144 last-nonmenu-event)) |
145 (unless arg (setq arg 1)) | 145 (unless arg (setq arg 1)) |
146 (save-selected-window | 146 (save-selected-window |
147 (select-window (posn-window (event-start event))) | 147 ;; Nil if called from menu-bar. |
148 (if (setq event (event-start event)) (select-window (posn-window event))) | |
148 (calendar-cursor-to-nearest-date) | 149 (calendar-cursor-to-nearest-date) |
149 (unless (zerop arg) | 150 (unless (zerop arg) |
150 (let ((old-date (calendar-cursor-to-date)) | 151 (let ((old-date (calendar-cursor-to-date)) |
151 (today (calendar-current-date)) | 152 (today (calendar-current-date)) |
152 (month displayed-month) | 153 (month displayed-month) |