nil check.

This commit is contained in:
Kazu Yamamoto 2012-01-06 11:12:28 +09:00
parent 432de2e4f9
commit 2cc43498fa

View File

@ -56,8 +56,10 @@
(display-buffer buf)))
(defun ghc-read-expression (default)
(if default
(let ((prompt (format "Expression (%s): " default)))
(read-string prompt default nil)))
(read-string prompt default nil))
(read-string "Expression: ")))
(defun ghc-find-module-name ()
(save-excursion