From da40526c8a93895b20bf7f8f292a1ace9bf9df07 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 24 Aug 2021 23:01:20 -0500
Subject: Setup `repeat-mode' real nice like
---
lisp/acdw.el | 13 +++++++++++++
1 file changed, 13 insertions(+)
(limited to 'lisp')
diff --git a/lisp/acdw.el b/lisp/acdw.el
index 7e82a9a..bd64af3 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -566,5 +566,18 @@ It's called 'require-private' for historical reasons."
(forward-sexp 2)
('scan-error (end-of-buffer))))
+
+;;; Crux tweaks
+
+;; `crux-other-window-or-switch-buffer' doesn't take an argument.
+(defun acdw/other-window-or-switch-buffer (&optional arg)
+ "Call `other-window' or switch buffers, depending on window count."
+ (interactive "P")
+ (if (one-window-p)
+ (switch-to-buffer nil)
+ (other-window (or arg 1))))
+
+
+
(provide 'acdw)
;;; acdw.el ends here
--
cgit 1.4.1-21-gabe81