nil check.
This commit is contained in:
parent
432de2e4f9
commit
2cc43498fa
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user