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