; * lisp/calendar/cal-move.el (calendar-scroll-left): Fix last change.

diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el
index 35adb2d80dfa614a0936d798f804cf4fc28e6a52..b494659a8eea7dcf2ff6d9d5afcf4011f6fd570d 100644 (file)
--- a/lisp/calendar/cal-move.el
+++ b/lisp/calendar/cal-move.el
@@ -158,9 +158,8 @@ EVENT is an event like `last-nonmenu-event'."
                      last-nonmenu-event))
   (unless arg (setq arg 1))
   (save-current-buffer
-    ;; Nil if called from menu-bar.
-    (when (setq event (event-start event))
-      (select-buffer (calendar-event-buffer event)))
+    (when (event-start event)
+      (set-buffer (calendar-event-buffer event)))
     (calendar-cursor-to-nearest-date)
     (unless (zerop arg)
       (let ((old-date (calendar-cursor-to-date))