abbrev hack.

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)