.emacs: small changes

.emacs

@@ -50,7 +50,8 @@
   (add-to-list 'default-frame-alist '(cursor-type . box))
   (add-to-list 'default-frame-alist '(background-color . "white"))
   (add-to-list 'default-frame-alist '(foreground-color . "gray10"))
-  (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))) ;聞いてないみたい
+  ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100))) ;聞いてないみたい
+  )
 (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
 (tool-bar-mode 0)
 (set-scroll-bar-mode nil)
@@ -178,7 +179,7 @@
                               (call-interactively (key-binding (kbd "M-TAB")))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; letters and font-lock-mode
+;; letters, font-lock mode and fonts
 
 (show-paren-mode 1)
 (setq show-paren-style 'mixed)
@@ -210,6 +211,26 @@
 ;;     ("\n" . '(0 my-eol-face t nil))
 ;;     ("\f" . 'my-pagebreak-face)))
 
+;; 現在行をハイライト
+;; http://wiki.riywo.com/index.php?Meadow
+(defface hlline-face
+  '((((type x w32)
+      (class color)
+      (background dark))
+     (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも
+    (((type x w32)
+      (class color)
+      (background light))
+     (:background "gainsboro"))
+    (t
+     (:underline "black")))
+  "*Face used by hl-line.")
+;; (defface hlline-ul-face
+;;   '((t (:underline "yellow")))
+;;   "underline yellow")
+(setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil)
+(global-hl-line-mode 1) ;; (hl-line-mode 1)
+
 (setq font-lock-global-modes
       '(not
         help-mode
@@ -598,16 +619,16 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                             'newframe
                           'pushy))
 
-(setq multi-term-program shell-file-name)
+;; (setq multi-term-program shell-file-name)
 (and (dllib-if-unfound "multi-term"
                        "http://www.emacswiki.org/emacs/download/multi-term.el"
                        t)
      (require 'multi-term nil t))
 
 ;; http://d.hatena.ne.jp/goinger/20100416/1271399150
-(setq term-ansi-default-program shell-file-name)
-(and (require 'term nil t)
-     (setq term-display-table (make-display-table)))
+;; (setq term-ansi-default-program shell-file-name)
+(add-hook 'term-setup-hook (lambda ()
+                             (setq term-display-table (make-display-table))))
 (add-hook 'term-mode-hook (lambda ()
                             (define-key term-raw-map "\C-y" 'term-paste)
                             ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
@@ -622,6 +643,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                             (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))
                             (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z"))
                             (set (make-variable-buffer-local 'scroll-margin) 0)))
+;; (add-hook 'term-exec-hook 'forward-char)
 
 ;; (when (and (executable-find "git")
 ;;            (require 'sgit-mode nil t))
@@ -1750,27 +1772,6 @@ this is test, does not rename files"
 ;; 	      default-frame-alist)
 ;; ) ;;デフォルトのフレーム設定
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; 現在行をハイライト
-;; http://wiki.riywo.com/index.php?Meadow
-(defface hlline-face
-  '((((type x w32)
-      (class color)
-      (background dark))
-     (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも
-    (((type x w32)
-      (class color)
-      (background light))
-     (:background "gainsboro"))
-    (t
-     (:underline "yellow")))
-  "*Face used by hl-line.")
-(defface hlline-ul-face
-  '((t (:underline "yellow")))
-  "underline yellow")
-(setq hl-line-face 'hlline-face)
-(global-hl-line-mode 1)
-
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; ;; emacsを殺伐とさせる
 ;; ;; 補完させるとき失敗するからなし