aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/icomplete.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 5126c035de1..3b3cabb890e 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -276,15 +276,13 @@ require user confirmation."
276 (interactive) 276 (interactive)
277 (let* ((dir (and (eq (icomplete--category) 'file) 277 (let* ((dir (and (eq (icomplete--category) 'file)
278 (file-name-directory (icomplete--field-string)))) 278 (file-name-directory (icomplete--field-string))))
279 (current (car (completion-all-sorted-completions))) 279 (current (car completion-all-sorted-completions))
280 (probe (and dir current 280 (probe (and dir current
281 (expand-file-name (directory-file-name current) dir)))) 281 (expand-file-name (directory-file-name current) dir))))
282 (cond ((and probe (file-directory-p probe) (not (string= current "./"))) 282 (cond ((and probe (file-directory-p probe) (not (string= current "./")))
283 (icomplete-force-complete)) 283 (icomplete-force-complete))
284 (current
285 (icomplete-force-complete-and-exit))
286 (t 284 (t
287 (exit-minibuffer))))) 285 (icomplete-force-complete-and-exit)))))
288 286
289(defun icomplete-fido-backward-updir () 287(defun icomplete-fido-backward-updir ()
290 "Delete char before or go up directory, like `ido-mode'." 288 "Delete char before or go up directory, like `ido-mode'."