icomplete-fido-exit: New command for the M-j binding
* lisp/icomplete.el (icomplete-fido-exit): New command. (icomplete-fido-mode-map): Use it (bug#38992).
This commit is contained in:
parent
335a9bd215
commit
e734961d4c
1 changed files with 8 additions and 1 deletions
|
@ -284,6 +284,13 @@ require user confirmation."
|
|||
(t
|
||||
(icomplete-force-complete-and-exit)))))
|
||||
|
||||
(defun icomplete-fido-exit ()
|
||||
"Exit minibuffer properly honoring the REQUIRE-MATCH argument."
|
||||
(interactive)
|
||||
(if minibuffer--require-match
|
||||
(minibuffer-complete-and-exit)
|
||||
(exit-minibuffer)))
|
||||
|
||||
(defun icomplete-fido-backward-updir ()
|
||||
"Delete char before or go up directory, like `ido-mode'."
|
||||
(interactive)
|
||||
|
@ -299,7 +306,7 @@ require user confirmation."
|
|||
(define-key map (kbd "RET") 'icomplete-fido-ret)
|
||||
(define-key map (kbd "C-m") 'icomplete-fido-ret)
|
||||
(define-key map (kbd "DEL") 'icomplete-fido-backward-updir)
|
||||
(define-key map (kbd "M-j") 'exit-minibuffer)
|
||||
(define-key map (kbd "M-j") 'icomplete-fido-exit)
|
||||
(define-key map (kbd "C-s") 'icomplete-forward-completions)
|
||||
(define-key map (kbd "C-r") 'icomplete-backward-completions)
|
||||
(define-key map (kbd "<right>") 'icomplete-forward-completions)
|
||||
|
|
Loading…
Add table
Reference in a new issue