Permalink
Browse files

Merge pull request #106 from nurpax/customize-error-collapse-default

Add a customization option for the default visibility of multi-line errors
  • Loading branch information...
2 parents 28e3228 + f6c5df5 commit 2566a89b86d52122fb5ed5c4fee8c4c7bfd7b12c @chrisdone chrisdone committed Dec 28, 2012
Showing with 8 additions and 1 deletion.
  1. +8 −1 haskell-interactive-mode.el
@@ -43,6 +43,13 @@
:type '(choice function (const :tag "None" nil))
:group 'haskell)
+(defcustom haskell-interactive-mode-hide-multi-line-errors
+ t
+ "Hide collapsible multi-line compile messages by default."
+ :type 'boolean
+ :group 'haskell)
+
+
(defvar haskell-interactive-greetings
(list "Hello, Haskell!"
"The lambdas must flow."
@@ -337,7 +344,7 @@ Key bindings:
'read-only t
'rear-nonsticky t
'collapsible t
- 'invisible t
+ 'invisible haskell-interactive-mode-hide-multi-line-errors
'message-length (length (match-string 2 message)))))
(unless lines
(insert (propertize (concat message "\n")

0 comments on commit 2566a89

Please sign in to comment.