From ea1295ff2ca55adfc79f029d87a0b7a1a949238d Mon Sep 17 00:00:00 2001 From: Po Lu Date: Thu, 10 Aug 2023 13:32:30 +0800 Subject: [PATCH] ; * lisp/calendar/cal-move.el (calendar-scroll-left): Fix last change. --- lisp/calendar/cal-move.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el index 35adb2d80df..b494659a8ee 100644 --- 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)) -- 2.39.2