mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Make calendar-exit actually respect the KILL parameter

Browse source 
* lisp/calendar/calendar.el (calendar-exit): Really kill off all
the buffers (if requested) (bug#53870).
This commit is contained in:
Lars Ingebrigtsen 2022-02-09 09:32:24 +01:00
parent 7f9335f91d
commit 65a61154d8
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/calendar/calendar.el
View file

@ -1861,7 +1861,9 @@ concatenated and the result truncated."
buffs))
(defun calendar-exit (&optional kill)
"Get out of the calendar window and hide it and related buffers."
"Get out of the calendar window and hide it and related buffers.
If KILL (interactively, the prefix), kill the buffers instead of
hiding them."
(interactive "P")
(let ((diary-buffer (get-file-buffer diary-file))
(calendar-buffers (calendar-buffer-list)))
@ -1880,7 +1882,12 @@ concatenated and the result truncated."
(iconify-frame (window-frame w)))
(quit-window kill w))))
(dolist (b calendar-buffers)
(quit-windows-on b kill))))))
(quit-windows-on b kill)))
;; Finally, kill non-displayed buffers (if requested).
(when kill
(dolist (b calendar-buffers)
(when (buffer-live-p b)
(kill-buffer b)))))))
(defun calendar-current-date (&optional offset)
"Return the current date in a list (month day year).