Permalink
Browse files

Use `read-directory-name' to get completion.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
  • Loading branch information...
1 parent a37fa71 commit 55953ffdac2b4062ad05965ce9003e40d8283fc6 @ruediger ruediger committed Dec 12, 2012
Showing with 4 additions and 2 deletions.
  1. +2 −1 haskell-cabal.el
  2. +2 −1 haskell-process.el
View
@@ -160,8 +160,9 @@
and indeed just prompting the user. Do them all."
(let* ((file (haskell-cabal-find-file))
(dir (when file (file-name-directory file))))
- (read-from-minibuffer
+ (read-directory-name
(format "Cabal dir%s: " (if file (format " (%s)" (file-relative-name file)) ""))
+ nil
(or dir default-directory))))
(defun haskell-cabal-compute-checksum (cabal-dir)
View
@@ -555,8 +555,9 @@ to be loaded by ghci."
(defun haskell-process-prompt-dir (session)
"Prompt for the current directory."
- (read-from-minibuffer
+ (read-directory-name
"Set current directory: "
+ nil
(or (haskell-session-get session 'current-dir)
(if (buffer-file-name)
(file-name-directory (buffer-file-name))

0 comments on commit 55953ff

Please sign in to comment.