Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
  • Loading branch information...
commit 55953ffdac2b4062ad05965ce9003e40d8283fc6 1 parent a37fa71
@ruediger ruediger authored
Showing with 4 additions and 2 deletions.
  1. +2 −1  haskell-cabal.el
  2. +2 −1  haskell-process.el
View
3  haskell-cabal.el
@@ -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
3  haskell-process.el
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.