fix(emacs/lean-project): use better prompt message for lean-project-create

This commit is contained in:
Soonho Kong 2014-10-08 13:04:31 -07:00
parent d542771ba1
commit b6d475c3ac

View file

@ -18,7 +18,7 @@
(defun lean-project-create (directory) (defun lean-project-create (directory)
(interactive (interactive
(list (read-directory-name "Project root: "))) (list (read-directory-name "Specify the project root directory: ")))
(let ((project-file (concat (file-name-as-directory directory) (let ((project-file (concat (file-name-as-directory directory)
lean-project-file-name))) lean-project-file-name)))
(if (file-exists-p project-file) (if (file-exists-p project-file)