branch: elpa/crux
commit de603e953ed382277fd352c1a3a71924548ae7d9
Author: thdox <th...@free.fr>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Add function other-window-or-switch-buffer
Move to other window if one exists, or switch to most recent buffer.
Source is http://mbork.pl/2017-02-26_other-window-or-switch-buffer.
---
README.md | 1 +
crux.el | 9 +++++++++
2 files changed, 10 insertions(+)
diff --git a/README.md b/README.md
index 101043e..146962a 100644
--- a/README.md
+++ b/README.md
@@ -70,6 +70,7 @@ Command |
Suggested Keybinding(s)
`crux-upcase-region` | <kbd>C-x C-u</kbd> |
`upcase-region` when `transient-mark-mode` is on and region is active.
`crux-downcase-region` | <kbd>C-x C-l</kbd> |
`downcase-region` when `transient-mark-mode` is on and region is active.
`crux-capitalize-region` | <kbd>C-x M-c</kbd> |
`capitalize-region` when `transient-mark-mode` is on and region is active.
+`crux-other-window-or-switch-buffer` | <kbd>M-o</kbd> |
Select other window, or switch to most recent buffer if only one windows.
Here's how you'd bind some of the commands to keycombos:
diff --git a/crux.el b/crux.el
index fa9259c..d0a5931 100644
--- a/crux.el
+++ b/crux.el
@@ -621,6 +621,15 @@ Repeated invocations toggle between the two most recently
open buffers."
(switch-to-buffer (other-buffer (current-buffer) 1)))
;;;###autoload
+(defun crux-other-window-or-switch-buffer ()
+ "Call `other-window' if more than one window is visible.
+Switch to most recent buffer otherwise."
+ (interactive)
+ (if (one-window-p)
+ (switch-to-buffer nil)
+ (other-window 1)))
+
+;;;###autoload
(defun crux-kill-other-buffers ()
"Kill all buffers but the current one.
Doesn't mess with special buffers."
