From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 17 Aug 2019 23:35:54 +0000 (-0700)
Subject: Issue a message on `C-x o' and there's no other window
X-Git-Tag: emacs-27.0.90~1578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b9145312c4cebfd95d2d0e78ba93dbbbc9019c4;p=emacs.git

Issue a message on `C-x o' and there's no other window

* lisp/window.el (other-window): Issue a message when the user
types `C-x o' and there's no other window to select (bug#10999).
---

diff --git a/lisp/window.el b/lisp/window.el
index 2345f398e72..723671efa57 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3926,6 +3926,7 @@ select.  The argument ALL-FRAMES has the same meaning as in
 always effectively nil."
   (interactive "p")
   (let* ((window (selected-window))
+         (original-window window)
 	 (function (and (not ignore-window-parameters)
 			(window-parameter window 'other-window)))
 	 old-window old-count)
@@ -3968,6 +3969,10 @@ always effectively nil."
 	   (t
 	    (setq count (1+ count)))))
 
+        (when (and (eq window original-window)
+                   (called-interactively-p 'interactive))
+          (message "No other window to select"))
+
 	(select-window window)
 	;; Always return nil.
 	nil))))