Remove some dead code and fix variable init

emacs.el

@@ -738,7 +738,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
      (expand-file-name (concat user-emacs-directory
                                "bmk")))
 (with-eval-after-load 'recentf
-  (defvar recentf-exclude)
+  (defvar recentf-exclude nil)
   (add-to-list 'recentf-exclude
                (regexp-quote bookmark-default-file)))
 
@@ -832,14 +832,14 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (autoload-eval-lazily 'sl))
 
 (with-eval-after-load 'make-mode
-  (defvar makefile-mode-map)
+  (defvar makefile-mode-map (make-sparse-keymap))
   (define-key makefile-mode-map (kbd "C-m") 'newline-and-indent)
   ;; this functions is set in write-file-functions, i cannot find any
   ;; good way to remove this.
   (fset 'makefile-warn-suspicious-lines 'ignore))
 
 (with-eval-after-load 'verilog-mode
-  (defvar verilog-mode-map)
+  (defvar verilog-mode-map (make-sparse-keymap))
   (define-key verilog-mode-map ";" 'self-insert-command))
 
 (setq diff-switches "-u")
@@ -898,11 +898,11 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                   '("build.gradle\\'" . groovy-mode)))
 
 (with-eval-after-load 'yaml-mode
-  (defvar yaml-mode-map)
+  (defvar yaml-mode-map (make-sparse-keymap))
   (define-key yaml-mode-map (kbd "C-m") 'newline))
 
 (with-eval-after-load 'html-mode
-  (defvar html-mode-map)
+  (defvar html-mode-map (make-sparse-keymap))
   (define-key html-mode-map (kbd "C-m") 'reindent-then-newline-and-indent))
 
 (with-eval-after-load 'text-mode
@@ -912,7 +912,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
              (expand-file-name "~/.info/emacs-ja"))
 
 (with-eval-after-load 'apropos
-  (defvar apropos-mode-map)
+  (defvar apropos-mode-map (make-sparse-keymap))
   (define-key apropos-mode-map "n" 'next-line)
   (define-key apropos-mode-map "p" 'previous-line))
 
@@ -946,7 +946,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
 (when (autoload-eval-lazily 'markdown-mode
           '(markdown-mode gfm-mode)
-        (defvar gfm-mode-map)
+        (defvar gfm-mode-map (make-sparse-keymap))
         (define-key gfm-mode-map (kbd "C-m") 'electric-indent-just-newline))
   (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'gfm-mode))
   (set-variable 'markdown-command (or (executable-find "markdown")
@@ -989,7 +989,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   ;; currently do not use js2-mode
   ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
   ;; (add-to-list 'auto-mode-alist '("\\.jsm\\'" . js2-mode))
-  (defvar js2-mode-map)
+  (defvar js2-mode-map (make-sparse-keymap))
   (define-key js2-mode-map (kbd "C-m") (lambda ()
                                          (interactive)
                                          (js2-enter-key)
@@ -1024,7 +1024,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (setq uniquify-min-dir-content 1))
 
 (with-eval-after-load 'view
-  (defvar view-mode-map)
+  (defvar view-mode-map (make-sparse-keymap))
   (define-key view-mode-map "j" 'scroll-up-line)
   (define-key view-mode-map "k" 'scroll-down-line)
   (define-key view-mode-map "v" 'toggle-read-only)
@@ -1059,12 +1059,12 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;; python
 
 (when (autoload-eval-lazily 'python '(python-mode)
-        (defvar python-mode-map)
+        (defvar python-mode-map (make-sparse-keymap))
         (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)
         (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)
         (define-key python-mode-map (kbd "C-m") 'newline-and-indent)
 
-        (defvar inferior-python-mode-map)
+        (defvar inferior-python-mode-map (make-sparse-keymap))
         (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
         (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)
         )
@@ -1077,7 +1077,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (defun my-python-display-python-buffer ()
     ""
     (interactive)
-    (defvar python-buffer)
+    (defvar python-buffer nil)
     (set-window-text-height (display-buffer python-buffer
                                             t)
                             7))
@@ -1094,8 +1094,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
             "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
             t)
            (autoload-eval-lazily 'gauche-mode '(gauche-mode run-scheme)
-             (defvar gauche-mode-map)
-             (defvar scheme-mode-map)
+             (defvar gauche-mode-map (make-sparse-keymap))
+             (defvar scheme-mode-map (make-sparse-keymap))
              (define-key gauche-mode-map
                (kbd "C-c C-z") 'run-gauche-other-window)
              (define-key scheme-mode-map
@@ -1106,8 +1106,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
     (set-variable 'scheme-program-name s)
     (set-variable 'gauche-program-name s))
 
-  (defvar gauche-program-name)
-  (defvar scheme-buffer)
+  (defvar gauche-program-name nil)
+  (defvar scheme-buffer nil)
 
   (defun run-gauche-other-window ()
     "Run gauche on other window"
@@ -1150,41 +1150,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
         (cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist))
   )
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; GNU GLOBAL(gtags)
-;; http://uguisu.skr.jp/Windows/gtags.html
-;; http://eigyr.dip.jp/gtags.html
-;; http://cha.la.coocan.jp/doc/gnu_global.html
-
-(let ((d "/opt/local/share/gtags/"))
-  (and (file-directory-p d)
-       (add-to-list 'load-path
-                    d)))
-
-(when (autoload-eval-lazily 'gtags '(gtags-mode)
-        ;; (local-set-key "\M-t" 'gtags-find-tag)
-        ;; (local-set-key "\M-r" 'gtags-find-rtag)
-        ;; (local-set-key "\M-s" 'gtags-find-symbol)
-        ;; (local-set-key "\C-t" 'gtags-pop-stack)
-        (defvar gtags-mode-map)
-        (define-key gtags-mode-map (kbd "C-x t h")
-          'gtags-find-tag-from-here)
-        (define-key gtags-mode-map (kbd "C-x t t") 'gtags-find-tag)
-        (define-key gtags-mode-map (kbd "C-x t r") 'gtags-find-rtag)
-        (define-key gtags-mode-map (kbd "C-x t s") 'gtags-find-symbol)
-        (define-key gtags-mode-map (kbd "C-x t p") 'gtags-find-pattern)
-        (define-key gtags-mode-map (kbd "C-x t f") 'gtags-find-file)
-        (define-key gtags-mode-map (kbd "C-x t b") 'gtags-pop-stack) ;back
-
-        (defvar gtags-select-mode-map)
-        (define-key gtags-select-mode-map (kbd "C-m") 'gtags-select-tag)
-        )
-  (add-hook 'gtags-mode-hook
-            (lambda ()
-              (view-mode 1)
-              (set-variable 'gtags-select-buffer-single t)
-              )))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; term mode
 
@@ -1195,7 +1160,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (set-variable 'multi-term-dedicated-window-height 20))
 
 (when (autoload-eval-lazily 'term '(term ansi-term)
-        (defvar term-raw-map)
+        (defvar term-raw-map (make-sparse-keymap))
         ;; (define-key term-raw-map "\C-xl" 'term-line-mode)
         ;; (define-key term-mode-map "\C-xc" 'term-char-mode)
         (define-key term-raw-map (kbd "<up>") 'scroll-down-line)
@@ -1236,7 +1201,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
               (set-variable 'term-display-table (make-display-table))))
   (add-hook 'term-mode-hook
             (lambda ()
-              (defvar term-raw-map)
+              (defvar term-raw-map (make-sparse-keymap))
               ;; (unless (memq (current-buffer)
               ;;               (and (featurep 'multi-term)
               ;;                    (defvar multi-term-buffer-list)
@@ -1303,35 +1268,6 @@ IF OK-IF-ALREADY-EXISTS is true force download."
     (call-interactively 'iswitchb-buffer)))
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; sdic
-
-(when (autoload-eval-lazily 'sdic '(sdic-describe-word-at-point))
-  ;; (define-key my-prefix-map "\C-w" 'sdic-describe-word)
-  (defvar sdic-buffer-name)
-  (define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo)
-  (defun sdic-describe-word-at-point-echo ()
-    ""
-    (interactive)
-    (save-window-excursion
-      (sdic-describe-word-at-point))
-    (with-current-buffer sdic-buffer-name
-      (message (buffer-substring (point-min)
-                                 (progn (goto-char (point-min))
-                                        (or (and (re-search-forward "^\\w"
-                                                                    nil
-                                                                    t
-                                                                    4)
-                                                 (progn (forward-line -1) t)
-                                                 (point-at-eol))
-                                            (point-max)))))))
-
-  (set-variable 'sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))
-  (set-variable ' sdic-waei-dictionary-list
-                  '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
-  (set-variable 'sdic-disable-select-window t)
-  (set-variable ' sdic-window-height 7))
-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; ilookup
@@ -1405,7 +1341,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 
   (set-variable 'ilookup-default "ja")
   (when (locate-library "google-translate")
-    (defvar ilookup-dict-alist)
+    (defvar ilookup-dict-alist nil)
     (add-to-list 'ilookup-dict-alist
                  '("gt" .
                    (lambda (word)
@@ -1594,7 +1530,7 @@ the list."
 ;;             (dired ".")))
 
 (with-eval-after-load 'dired
-  (defvar dired-mode-map)
+  (defvar dired-mode-map (make-sparse-keymap))
   (define-key dired-mode-map "o" 'my-dired-x-open)
   (define-key dired-mode-map "i" 'dired-get-file-info)
   (define-key dired-mode-map "f" 'find-file)
@@ -1809,7 +1745,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 (set-variable 'eshell-directory-name (concat user-emacs-directory
                                              "eshell/"))
 (set-variable 'eshell-term-name "eterm-color")
-(set-variable 'eshell-scroll-to-bottom-on-input t)
+(set-variable 'eshell-scroll-to-bottom-on-input 'this)
 (set-variable 'eshell-cmpl-ignore-case t)
 (set-variable 'eshell-cmpl-cycle-completions nil)
 (set-variable 'eshell-highlight-prompt nil)
@@ -1865,7 +1801,7 @@ It looks like:
           ))
 
 (with-eval-after-load 'eshell
-  (defvar eshell-mode-map)
+  (defvar eshell-mode-map (make-sparse-keymap))
   ;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()
   ;;                                               (interactive)
   ;;                             (switch-to-buffer (other-buffer))))
@@ -1886,7 +1822,7 @@ It looks like:
   ;; (define-key eshell-mode-map
   ;;   (kbd "C-n") 'eshell-next-matching-input-from-input)
 
-  (defvar eshell-virtual-targets)
+  (defvar eshell-virtual-targets nil)
   (add-to-list 'eshell-virtual-targets
                '("/dev/less"
                  (lambda (str)
@@ -1894,14 +1830,14 @@ It looks like:
                        (with-current-buffer nil)))
                  nil))
 
-  (defvar eshell-visual-commands)
+  (defvar eshell-visual-commands nil)
   (add-to-list 'eshell-visual-commands "vim")
 
-  (defvar eshell-output-filter-functions)
+  (defvar eshell-output-filter-functions nil)
   (add-to-list 'eshell-output-filter-functions
                'eshell-truncate-buffer)
 
-  (defvar eshell-command-aliases-list)
+  (defvar eshell-command-aliases-list nil)
   (mapcar (lambda (alias)
             (add-to-list 'eshell-command-aliases-list
                          alias))