(minibuffer-current-input): Special case for directory names

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2ed4d3d03eb92c36fda51708f6a0574d7011507c..969171022edf76a3e3f611a8c8f794ebc95c5076 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4228,6 +4228,11 @@ possible completions."
                                       minibuffer-completion-table
                                       minibuffer-completion-predicate))))
       (setq prf (funcall adjust-fn prf)))
+    (and minibuffer-completing-file-name
+         (string-empty-p str) (string-suffix-p "/" prf)
+         (let ((tmp prf))
+           (setq prf (file-name-parent-directory prf)
+                 str (file-relative-name tmp prf))))
     (cons str prf)))
 
 (defun minibuffer--get-action (symbol)