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