[elpa] externals/vertico b517f35 3/3: vertico-directory-up: Handle ~user/ paths

[ELPA Syncer]

branch: externals/vertico
commit b517f35598f4c941a8f1b5e1aef885a93b149bc7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-directory-up: Handle ~user/ paths
---
 extensions/vertico-directory.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index 60b1823..72c91b6 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -71,12 +71,12 @@
   (when (and (> (point) (minibuffer-prompt-end))
              (eq (char-before) ?/)
              (vertico-directory--completing-file-p))
+    (let ((path (buffer-substring (minibuffer-prompt-end) (point))))
+      (when (string-match-p "\\`~[^/]*/\\'" path)
+        (delete-minibuffer-contents)
+        (insert (file-name-directory (expand-file-name path)))))
     (save-excursion
       (goto-char (1- (point)))
-      (when (and (= (1- (point)) (minibuffer-prompt-end))
-                 (eq (char-before) ?~))
-        (delete-char -1)
-        (insert (expand-file-name "~")))
       (when (search-backward "/" (minibuffer-prompt-end) t)
         (delete-region (1+ (point)) (point-max))
         t))))