           (mapc (lambda (buf-name) (kill-buffer (get-file-buffer buf-name)))
                 project-files)
           (message (format "Kill Buffer %d" project-file-count)))
-          )
+        )
       )
     ))
 

  _r_: open recentf files
  _s_: open system configure files
  _w_: open workspace files
  _n_: create files (C-j ok)
^
^
"


    (if dir-isone
        (concat dir-string
                (completing-read
                 prompt-string
                 (delq nil
                       (mapcar (lambda (str) (if (< dirname-length (length str))
