From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 17 Aug 2019 23:31:55 +0000 (-0700)
Subject: Issue a message on `C-x 1' when there's nothing to do
X-Git-Tag: emacs-27.0.90~1579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78541163c63794a80c101c0011e05e7ac65734b2;p=emacs.git

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

* lisp/window.el (delete-other-windows): Make `C-x 1' issue a
message when there's no other windows to delete (bug#10999).
---

diff --git a/lisp/window.el b/lisp/window.el
index 5af66a036d1..2345f398e72 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -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.