fix: context-tag prompt uses read-string
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user