From 9a2f15bf7cb67699902722a1182c07391b4fef0f Mon Sep 17 00:00:00 2001 From: lxsameer Date: Sat, 25 Dec 2010 20:00:46 +0330 Subject: [PATCH] file-exists-p bug fixed --- src/lib/project.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lib/project.el b/src/lib/project.el index 7b3bc55..d0514ba 100644 --- a/src/lib/project.el +++ b/src/lib/project.el @@ -26,10 +26,10 @@ (defun new-project () "New project basic function" (setq project-name (read-string "Project Name: ")) ;; Shit IDE use unix-project-name for dealing with project OS activity stuffs - setq unix-project-name (replace-regexp-in-string "\ " "_" project-name) + (setq unix-project-name (replace-regexp-in-string "\ " "_" project-name)) ;; if specified directory does not exists, shit will make it - (setq project-path (read-directory-name "Project Path: ")) - (if (not (file-exists-p (project-path))) + (setq project-path (read-directory-name "Project Path: " nil nil nil project-name)) + (if (not (file-exists-p project-path)) (progn (mkdir project-path) (log "Project directory created")