procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Po Lu 2023-08-10 13:32:30 +08:00
parent b556c180f6
commit ea1295ff2c
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/calendar/cal-move.el
View file

@ -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))