From: PHO <pho@cielonegro.org>
Date: Thu, 13 Jan 2011 12:32:52 +0000 (+0900)
Subject: Auto commit by The Sugar System.
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=8418ef0e9a880cdf210f7ec4d0e6137713a65665;p=sugar.git

Auto commit by The Sugar System.
---

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 1858c33..bce079b 100644
--- 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)