From d5caa89dfeb58dbce528951efdf3dd945f1161a3 Mon Sep 17 00:00:00 2001 From: "Samuel W. Flint" Date: Fri, 25 Jul 2025 13:32:07 -0500 Subject: [PATCH] Move key bindings to a minor mode with remap to avoid assuming bindings --- recursive-narrow.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/recursive-narrow.el b/recursive-narrow.el index 2e16625..6248022 100755 --- a/recursive-narrow.el +++ b/recursive-narrow.el @@ -24,7 +24,7 @@ ;; to your .emacs file: ;; ;; (require 'recursive-narrow) -;; +;; (recursive-narrow-mode) ;;; License: @@ -114,9 +114,19 @@ Performs the exact same function but also allows (recenter)) (widen)))) - -(global-set-key (kbd "C-x n w") 'recursive-widen) -(global-set-key (kbd "C-x n n") 'recursive-narrow-or-widen-dwim) +(defvar recursive-narrow-mode-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd " ") #'recursive-narrow-or-widen-dwim) + (define-key map (kbd " ") #'recursive-widen) + map) + "Keymap for `recursive-narrow-mode'.") + +;;;###autoload +(define-minor-mode recursive-narrow-mode + "Enable recursive narrowing." + :global t + :keymap recursive-narrow-mode-map + :lighter " (||)") (provide 'recursive-narrow)