diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index 7e74f6c..f10d2c3 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -34,7 +34,13 @@
 
 (defvar ghc-check-warning-fringe (propertize "?" 'display '(left-fringe question-mark)))
 
-(defvar ghc-display-error nil)
+(defvar ghc-display-error nil
+  "*An action to display errors/warnings for 'M-n' and 'M-p:
+
+nil            does not display errors/warnings.
+'minibuffer    displays errors/warnings in the minibuffer.
+'other-buffer  displays errors/warnings in the other buffer.
+")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
diff --git a/elisp/ghc.el b/elisp/ghc.el
index 9933e59..3586cda 100644
--- a/elisp/ghc.el
+++ b/elisp/ghc.el
@@ -12,10 +12,8 @@
 ;; Or if you wish to display error each goto next/prev error,
 ;; set ghc-display-error valiable.
 ;;
-;; (autoload 'ghc-init "ghc" nil t)
 ;; (setq ghc-display-error 'minibuffer) ; to minibuffer
 ;; ; (setq ghc-display-error 'other-buffer) ; to other-buffer
-;; (add-hook 'haskell-mode-hook (lambda () (ghc-init)))
 
 ;;