[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ea1295ff2ca 3/3: ; * lisp/calendar/cal-move.el (calendar-scroll-l
From: |
Po Lu |
Subject: |
master ea1295ff2ca 3/3: ; * lisp/calendar/cal-move.el (calendar-scroll-left): Fix last change. |
Date: |
Thu, 10 Aug 2023 01:39:25 -0400 (EDT) |
branch: master
commit ea1295ff2ca55adfc79f029d87a0b7a1a949238d
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
; * 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))