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

Also fix calendar-scroll-left

Browse source 
* lisp/calendar/cal-move.el (calendar-scroll-left): Use
`calendar-event-buffer' instead of assuming that EVENT's
posn-window is always a window.
This commit is contained in:
Po Lu 2023-08-10 13:30:33 +08:00
parent 11116043ae
commit b556c180f6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -157,9 +157,10 @@ EVENT is an event like `last-nonmenu-event'."
(interactive (list (prefix-numeric-value current-prefix-arg)
last-nonmenu-event))
(unless arg (setq arg 1))
(save-selected-window
(save-current-buffer
;; Nil if called from menu-bar.
(if (setq event (event-start event)) (select-window (posn-window event)))
(when (setq event (event-start event))
(select-buffer (calendar-event-buffer event)))
(calendar-cursor-to-nearest-date)
(unless (zerop arg)
(let ((old-date (calendar-cursor-to-date))