procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

find-function-mode-lower-precedence: Also remove the global bindings

Browse source 
* lisp/emacs-lisp/find-func.el (find-function-mode): When
find-function-mode-lower-precedence is non-nil, apply the
bindings in such a way that we can also remove them when the
mode is deactivated.  Approach due to Stefan Monnier.
This commit is contained in:
Sean Whitton 2025-03-12 11:00:16 +08:00
parent 9838b88c2e
commit ad57fbc58f
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/find-func.el
View file

@ -854,20 +854,14 @@ See `find-function-on-key'."
(if find-function-mode
(make-sparse-keymap)
find-function-mode-map))
(named-let define-keys ((from find-function-mode-map)
(into (current-global-map))
(prefix []))
(map-keymap (lambda (event binding)
(let* ((key (vector event))
(prefixed (vconcat prefix key)))
(if-let* (((keymapp binding))
(ninto (lookup-key into key))
((keymapp ninto)))
(define-keys binding ninto prefixed)
(if find-function-mode
(global-set-key prefixed binding)
(global-unset-key prefixed)))))
from))))
(let ((parent (keymap-parent (current-global-map))))
(if find-function-mode
(unless (memq find-function-mode-map parent)
(setf (keymap-parent (current-global-map))
(make-composed-keymap (list find-function-mode-map
parent))))
(when (memq find-function-mode-map parent)
(delq find-function-mode-map parent))))))
;;;###autoload
(defun find-function-setup-keys ()