warning msg if ghc-mod does not exist.

This commit is contained in:
Kazu Yamamoto 2010-01-07 10:51:05 +09:00
parent dee57710ab
commit 8ae67a5f66

View File

@ -50,7 +50,8 @@
;;; ;;;
(defun ghc-load-keyword (&rest args) (defun ghc-load-keyword (&rest args)
(when (ghc-which ghc-module-command) (if (not (ghc-which ghc-module-command))
(message "%s not found" ghc-module-command)
(ghc-read-lisp (ghc-read-lisp
(lambda () (lambda ()
(let ((msg (mapconcat 'identity (cons ghc-module-command args) " "))) (let ((msg (mapconcat 'identity (cons ghc-module-command args) " ")))