abbrev hack.
This commit is contained in:
parent
efd71c5d81
commit
2fca797f42
@ -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)
|
Loading…
Reference in New Issue
Block a user