From 2fca797f420cee718b2a5de753f858ca4c4ffc51 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 23 Apr 2010 18:21:22 +0900
Subject: [PATCH] abbrev hack.

---
 elisp/ghc.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/elisp/ghc.el b/elisp/ghc.el
index abfd0cc..434f803 100644
--- a/elisp/ghc.el
+++ b/elisp/ghc.el
@@ -48,6 +48,7 @@
 (defvar ghc-initialized nil)
 
 (defun ghc-init ()
+  (ghc-abbrev-init)
   (unless ghc-initialized
     (define-key haskell-mode-map ghc-completion-key  'ghc-complete)
     (define-key haskell-mode-map ghc-document-key    'ghc-browse-document)
@@ -60,4 +61,8 @@
     (ghc-comp-init)
     (setq ghc-initialized t)))
 
+(defun ghc-abbrev-init ()
+  (make-local-variable 'dabbrev-case-fold-search)
+  (setq dabbrev-case-fold-search nil))
+
 (provide 'ghc)
\ No newline at end of file