Auto commit by The Sugar System.

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 1858c33fc04aa3cd6b8aaf08a73f1dc60d84d874..bce079bb738145222f3f298235c27d1b25d74a65 100644 (file)
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -5,7 +5,7 @@
 (add-to-list 'load-path "/usr/local/share/emacs/site-lisp")
 
 ;; Setting for encodings of the environment -----------------------------------
-(set-language-environment 'Japanese)
+;(set-language-environment 'Japanese)
 (set-default-coding-systems 'utf-8)
 (set-terminal-coding-system 'utf-8)
 (setq default-file-name-coding-system 'utf-8)
@@ -124,9 +124,7 @@
       (mapcar (lambda (mode)
                 (add-to-list 'ac-modes mode))
               '(autoconf-mode
-                erlang-mode
-                haskell-mode
-                haskell-cabal-mode))
+                erlang-mode))
       (setq ac-modes (remove 'css-mode ac-modes))
       (add-hook 'erlang-mode-hook
                 (lambda ()
@@ -270,7 +268,6 @@
 (autoload 'inferior-haskell-find-definition "inf-haskell" "" t)
 (autoload 'inferior-haskell-find-haddock "inf-haskell" "" t)
 
-
 (add-to-list 'auto-mode-alist '("\\.hs$" . haskell-mode))
 (add-to-list 'auto-mode-alist '("\\.hsc$" . haskell-mode))
 
@@ -278,6 +275,11 @@
 (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-ghci)
 
+(load-if-present "~/sandbox/_input-method/haskell-unicode-input-method/haskell-unicode-input-method")
+ (add-hook 'haskell-mode-hook
+   (lambda () (set-input-method "haskell-unicode")))
+
+
 ;; Hoogle
 (autoload 'hoogle-lookup "hoogle" "Hoogle" t)
 (global-set-key (kbd "C-c h") 'hoogle-lookup)