abbrev hack.

This commit is contained in:
Kazu Yamamoto 2010-04-23 18:21:22 +09:00
parent efd71c5d81
commit 2fca797f42

View File

@ -48,6 +48,7 @@
(defvar ghc-initialized nil) (defvar ghc-initialized nil)
(defun ghc-init () (defun ghc-init ()
(ghc-abbrev-init)
(unless ghc-initialized (unless ghc-initialized
(define-key haskell-mode-map ghc-completion-key 'ghc-complete) (define-key haskell-mode-map ghc-completion-key 'ghc-complete)
(define-key haskell-mode-map ghc-document-key 'ghc-browse-document) (define-key haskell-mode-map ghc-document-key 'ghc-browse-document)
@ -60,4 +61,8 @@
(ghc-comp-init) (ghc-comp-init)
(setq ghc-initialized t))) (setq ghc-initialized t)))
(defun ghc-abbrev-init ()
(make-local-variable 'dabbrev-case-fold-search)
(setq dabbrev-case-fold-search nil))
(provide 'ghc) (provide 'ghc)