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))))
|
(t default-directory))))
|
||||||
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
|
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
|
||||||
(tag (read-string "Project tag (blank to skip): "))
|
(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)))
|
(list dirs tag ctx)))
|
||||||
|
|
||||||
(let ((count 0)
|
(let ((count 0)
|
||||||
|
|||||||
@@ -2525,7 +2525,7 @@ Optional PROJECT-TAG and CONTEXT-TAG can be given to create .projectile and .dir
|
|||||||
(t default-directory))))
|
(t default-directory))))
|
||||||
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
|
(list (read-directory-name "Directory to convert: " nil initial-path t initial-path)))))
|
||||||
(tag (read-string "Project tag (blank to skip): "))
|
(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)))
|
(list dirs tag ctx)))
|
||||||
|
|
||||||
(let ((count 0)
|
(let ((count 0)
|
||||||
|
|||||||
Reference in New Issue
Block a user