fix: context-tag prompt uses read-string

This commit is contained in:
2026-07-17 22:11:06 -04:00
parent b8b984c14c
commit 9be62342ca
2 changed files with 2 additions and 2 deletions

View File

@@ -3441,7 +3441,7 @@ Optional PROJECT-TAG and CONTEXT-TAG can be given to create .projectile and .dir
(t default-directory))))
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
(tag (read-string "Project tag (blank to skip): "))
(ctx (completing-read "Context tag: " (quote ("TDNDE" "Perso" "")) nil t)))
(ctx (read-string "Context tag (or blank): ")))
(list dirs tag ctx)))
(let ((count 0)

View File

@@ -2525,7 +2525,7 @@ Optional PROJECT-TAG and CONTEXT-TAG can be given to create .projectile and .dir
(t default-directory))))
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
(tag (read-string "Project tag (blank to skip): "))
(ctx (completing-read "Context tag: " (quote ("TDNDE" "Perso" "")) nil t)))
(ctx (read-string "Context tag (or blank): ")))
(list dirs tag ctx)))
(let ((count 0)