From 8418ef0e9a880cdf210f7ec4d0e6137713a65665 Mon Sep 17 00:00:00 2001 From: PHO Date: Thu, 13 Jan 2011 21:32:52 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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) -- 2.40.0