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))) (display-buffer buf)))
(defun ghc-read-expression (default) (defun ghc-read-expression (default)
(let ((prompt (format "Expression (%s): " default))) (if default
(read-string prompt default nil))) (let ((prompt (format "Expression (%s): " default)))
(read-string prompt default nil))
(read-string "Expression: ")))
(defun ghc-find-module-name () (defun ghc-find-module-name ()
(save-excursion (save-excursion