From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 4 Mar 2020 23:58:32 +0000 (+0200)
Subject: icomplete-fido-exit: New command for the M-j binding
X-Git-Tag: emacs-27.0.91~102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e734961d4c;p=emacs.git

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).
---

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index efe64d855a2..0a655d1e9e9 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -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)