From 2cc43498fa49560541870123a95ca0106e7f2896 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Fri, 6 Jan 2012 11:12:28 +0900 Subject: [PATCH] nil check. --- elisp/ghc-info.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/elisp/ghc-info.el b/elisp/ghc-info.el index 33e022b..42391e7 100644 --- a/elisp/ghc-info.el +++ b/elisp/ghc-info.el @@ -56,8 +56,10 @@ (display-buffer buf))) (defun ghc-read-expression (default) - (let ((prompt (format "Expression (%s): " default))) - (read-string prompt default nil))) + (if default + (let ((prompt (format "Expression (%s): " default))) + (read-string prompt default nil)) + (read-string "Expression: "))) (defun ghc-find-module-name () (save-excursion