[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2b91453 3/3: Issue a message on `C-x o' and there's
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 2b91453 3/3: Issue a message on `C-x o' and there's no other window |
Date: |
Sat, 17 Aug 2019 19:36:08 -0400 (EDT) |
branch: master
commit 2b9145312c4cebfd95d2d0e78ba93dbbbc9019c4
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/window.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/lisp/window.el b/lisp/window.el
index 2345f39..723671e 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))))