From 5b33c36e579fdf8c127a53e542b4f02ce3bab2b8 Mon Sep 17 00:00:00 2001 From: Thomas Ulmer Date: Thu, 17 Apr 2025 11:27:39 -0700 Subject: various small changes and additions --- emacs/site-lisp/my-funcs.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'emacs/site-lisp/my-funcs.el') diff --git a/emacs/site-lisp/my-funcs.el b/emacs/site-lisp/my-funcs.el index 01bf5cc..37a8b7b 100644 --- a/emacs/site-lisp/my-funcs.el +++ b/emacs/site-lisp/my-funcs.el @@ -57,6 +57,12 @@ mark. Does the same of ARG number sexps if given" (save-buffers-kill-terminal) (delete-frame))) +(defun toggle-window-other-reachability () + (interactive) + (let* ((win (get-buffer-window (current-buffer))) + (current (window-parameter win 'no-other-window))) + (set-window-parameter win 'no-other-window (not current)))) + ;; indent code when pasting, from ;; https://trey-jackson.blogspot.com/2008/03/emacs-tip-15-indent-yanked-code.html -- cgit v1.2.3