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

Issue a message on `C-x 1' when there's nothing to do

Browse source 
* lisp/window.el (delete-other-windows): Make `C-x 1' issue a
message when there's no other windows to delete (bug#10999).
This commit is contained in:
Lars Ingebrigtsen 2019-08-17 16:31:55 -07:00
parent 669599b0f4
commit 78541163c6
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/window.el
View file

@ -4260,7 +4260,11 @@ any window whose `no-delete-other-windows' parameter is non-nil."
(throw 'done nil)))
;; If WINDOW is the main window of its frame do nothing.
(unless (eq window main)
(if (eq window main)
;; Give a message to the user if this has been called as a
;; command.
(when (called-interactively-p 'interactive)
(message "No other windows to delete"))
(delete-other-windows-internal window main)
(window--check frame))
;; Always return nil.