[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico ea9070e 1/3: vertico-directory-up: Expand tilde
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico ea9070e 1/3: vertico-directory-up: Expand tilde when going up from ~/ (#163) |
Date: |
Thu, 2 Dec 2021 10:57:47 -0500 (EST) |
branch: externals/vertico
commit ea9070ebce93fcb14f3a7e15703bf345834812b3
Author: Masahiro Nakamura <13937915+tsuu32@users.noreply.github.com>
Commit: GitHub <noreply@github.com>
vertico-directory-up: Expand tilde when going up from ~/ (#163)
---
extensions/vertico-directory.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index f31f165..0e201e4 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -73,6 +73,9 @@
(vertico-directory--completing-file-p))
(save-excursion
(goto-char (1- (point)))
+ (when (eq (char-before) ?~)
+ (delete-char -1)
+ (insert (expand-file-name "~")))
(when (search-backward "/" (minibuffer-prompt-end) t)
(delete-region (1+ (point)) (point-max))
t))))