mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Give Completion Preview bindings higher precedence

Browse source 
* lisp/completion-preview.el
(completion-preview-active-mode): add keymap to
'minor-mode-overriding-map-alist' so it takes precedence
over other minor mode maps that bind TAB, such as
'eshell-cmpl-mode' in Eshell.  (bug#74404)
This commit is contained in:
Eshel Yaron 2024-11-17 16:55:30 +01:00
parent 902696c3ae
commit 30bcba27c8
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/completion-preview.el
View file

@ -322,8 +322,15 @@ Completion Preview mode adds this function to
"Mode for when the completion preview is shown." "Mode for when the completion preview is shown."
:interactive nil :interactive nil
(if completion-preview-active-mode (if completion-preview-active-mode
(add-hook 'window-selection-change-functions (progn
#'completion-preview--window-selection-change nil t) (add-hook 'window-selection-change-functions
#'completion-preview--window-selection-change nil t)
;; Give keymap precedence over other minor mode maps.
;; TODO: Use explicit minor mode precedence instead when
;; implemented (bug#74492).
(setf (alist-get 'completion-preview-active-mode
minor-mode-overriding-map-alist)
completion-preview-active-mode-map))
(remove-hook 'window-selection-change-functions (remove-hook 'window-selection-change-functions
#'completion-preview--window-selection-change t) #'completion-preview--window-selection-change t)
(completion-preview-hide))) (completion-preview-hide)))