diff options
| author | Glenn Morris | 2008-04-24 05:43:27 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-04-24 05:43:27 +0000 |
| commit | b2cbe2af53ea342696f3dcdafd971b2d3c99b891 (patch) | |
| tree | 5b5486203f966363084891b31df742ffc6421155 | |
| parent | f971f8bc3a3c0bf5146446a7ac5bf76f94a8d6f1 (diff) | |
| download | emacs-b2cbe2af53ea342696f3dcdafd971b2d3c99b891.tar.gz emacs-b2cbe2af53ea342696f3dcdafd971b2d3c99b891.zip | |
(calendar-scroll-left): Handle case when event-start is nil.
| -rw-r--r-- | lisp/calendar/cal-move.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el index cd59ed7ff28..1eeea1a9a2d 100644 --- a/lisp/calendar/cal-move.el +++ b/lisp/calendar/cal-move.el | |||
| @@ -144,7 +144,8 @@ EVENT is an event like `last-nonmenu-event'." | |||
| 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)) |