Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Replaced read-string with completing-read

  • Loading branch information...
commit 34aefb87436153eb94bff38fba88bb613cdf5bc4 1 parent b83fd83
@rboles authored
Showing with 5 additions and 5 deletions.
  1. +5 −5 my-project.el
View
10 my-project.el
@@ -57,8 +57,7 @@ match"
(cdr (assoc name my-project-alist))
)
-(defun my-project-alist-property (name prop &optional val
- )
+(defun my-project-alist-property (name prop &optional val)
"Returns PROP value associated with project identified by NAME.
If VAL is provided, the project alist property is set to VAL and VAL
@@ -78,9 +77,10 @@ returned."
(interactive)
(let* ((projects (my-project-alist-names))
(project (if my-project my-project
- (read-string "Project: "
- (car projects)
- (cons 'projects 1))))
+ (completing-read
+ "Project: "
+ (my-project-alist-names)
+ nil t)))
(prefix (my-project-alist-property project :prefix))
(spaces (my-project-alist-property project :spaces))
(space nil))
Please sign in to comment.
Something went wrong with that request. Please try again.