Supress some warnings

Makefile

@@ -395,3 +395,8 @@ sexp_elisp_syntax_check := \
 $(test_syntax_els): test-syntax-%: $(dotfiles_dir)/%
 	$(emacs) -Q --debug-init --batch \
 		--eval '(let ((file "$<")) $(sexp_elisp_syntax_check))' --kill
+
+
+
+run-emacs:
+	$(emacs) -nw

emacs.el

@@ -33,11 +33,13 @@
 (defmacro defvar-set (symbol value &optional docstring)
   "Define SYMBOL as a variable and set to VALUE.
 
-Variable will be defined with DOCSTRING."
-  `(set (defvar ,symbol
-          nil
-          ,(or docstring
-               (symbol-name symbol)))
+Variable will be defined with DOCSTRING if given, otherwise do not set even
+VALUE when defining SYMBOL."
+  `(set (if ,docstring
+            (defvar ,symbol
+              nil
+              ,docstring)
+          (defvar ,symbol))
         ,value))
 
 (defmacro safe-require-or-eval (feature)
@@ -362,8 +364,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                           (expand-file-name "~/dbx/apps/bin"))
 
   (when window-system
-    (setq w32-enable-synthesized-fonts t))
-  (setq w32-apps-modifier 'meta)
+    (defvar-set w32-enable-synthesized-fonts t))
+  (defvar-set w32-apps-modifier 'meta)
   (setq file-name-coding-system 'sjis))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -403,9 +405,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   ;; if TERM is not screen use default value
   (if (getenv "TMUX")
       ;; if use tmux locally just basename of current dir
-      (setq terminal-title-format
-            '((file-name-nondirectory (directory-file-name
-                                       default-directory))))
+      (defvar-set terminal-title-format
+        '((file-name-nondirectory (directory-file-name
+                                   default-directory))))
     (if (and (let ((tty-type (frame-parameter nil
                                               'tty-type)))
                (and tty-type
@@ -413,18 +415,18 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                                               "-"))
                            "screen")))
              (not (getenv "SSH_CONNECTION")))
-        (setq terminal-title-format
-              '((file-name-nondirectory (directory-file-name
-                                         default-directory))))
+        (defvar-set terminal-title-format
+          '((file-name-nondirectory (directory-file-name
+                                     default-directory))))
       ;; seems that TMUX is used locally and ssh to remote host
-      (setq terminal-title-format
-            `("em:"
-              ,user-login-name
-              "@"
-              ,(car (split-string system-name
-                                  "\\."))
-              ":"
-              default-directory))
+      (defvar-set terminal-title-format
+        `("em:"
+          ,user-login-name
+          "@"
+          ,(car (split-string system-name
+                              "\\."))
+          ":"
+          default-directory))
       )
     )
   (terminal-title-mode))
@@ -633,8 +635,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 (defvar-set hl-line-face 'my-hl-line) ;; (setq hl-line-face nil)
 (global-hl-line-mode 1) ;; (hl-line-mode 1)
 (defvar-set hl-line-global-modes
-      '(not
-        term-mode))
+  '(not
+    term-mode))
 
 (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
 (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
@@ -727,6 +729,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                                           "bmk"))
 (add-hook 'recentf-load-hook
           (lambda ()
+            (defvar recentf-exclude)
             (add-to-list 'recentf-exclude
                          (regexp-quote bookmark-default-file))))
 
@@ -822,7 +825,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (when (safe-require-or-eval 'scim-bridge)
     ;; Turn on scim-mode automatically after loading .emacs
     (add-hook 'after-init-hook 'scim-mode-on)
-    (setq scim-cursor-color "red")
+    (defvar-set scim-cursor-color "red")
     (scim-define-preedit-key ?\^h t)
     (scim-define-common-key ?\* nil)
     (scim-define-common-key ?\^/ nil)))
@@ -835,7 +838,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
      (kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
     (global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
     (when (>= emacs-major-version 23)
-      (setq anthy-accept-timeout 1))))
+      (defvar-set anthy-accept-timeout 1))))
 
 ;; quail
 ;; aproposs input-method for some information
@@ -843,8 +846,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 (defun my-load-mozc-el ()
   "Use mozc.el as japanese im."
   (when (safe-require-or-eval 'mozc)
-    (setq defauit-input-method "japanese-mozc")
-    (setq mozc-leim-title "[MZ]")
+    (defvar-set defauit-input-method "japanese-mozc")
+    (defvar-set mozc-leim-title "[MZ]")
     ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1127,9 +1130,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 (add-hook 'sh-mode-hook
           (lambda ()
             (local-set-key
-              (kbd "C-x C-e")
-              'my-execute-shell-command-current-line)))
-(setq sh-here-document-word "__EOC__")
+             (kbd "C-x C-e")
+             'my-execute-shell-command-current-line)))
+(defvar-set sh-here-document-word "__EOC__")
 
 (defun my-execute-shell-command-current-line ()
   "Run current line as shell command."
@@ -1216,6 +1219,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
 (when (autoload-eval-lazily 'cc-vars
           nil
+        (defvar c-default-style)
         (add-to-list 'c-default-style
                      '(c-mode . "k&r"))
         (add-to-list 'c-default-style
@@ -1223,8 +1227,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
         (add-hook 'c-mode-common-hook
                   (lambda ()
                     ;; why c-basic-offset in k&r style defaults to 5 ???
-                    (setq c-basic-offset 4
-                          indent-tabs-mode nil)
+                    (defvar-set c-basic-offset 4)
+                    (defvar-set indent-tabs-mode nil)
                     ;; (set-face-foreground 'font-lock-keyword-face "blue")
                     (c-toggle-hungry-state -1)
                     ;; (and (require 'gtags nil t)
@@ -1255,7 +1259,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
               )))
 
 (eval-after-load "js"
-  (setq js-indent-level 2))
+  (defvar-set js-indent-level 2))
 
 (add-to-list 'interpreter-mode-alist
              '("node" . js-mode))
@@ -1277,6 +1281,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 
 (add-hook 'view-mode-hook
           (lambda()
+            (defvar view-mode-map)
             (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)
@@ -1312,11 +1317,11 @@ IF OK-IF-ALREADY-EXISTS is true force download."
           (lambda ()
             (view-mode 1)
             (setq truncate-lines nil)))
-(setq Man-notify-method (if window-system
-                            'newframe
-                          'aggressive))
+(defvar-set Man-notify-method (if window-system
+                                  'newframe
+                                'aggressive))
 
-(setq woman-cache-filename (expand-file-name (concat user-emacs-directory
+(defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory
                                                      "woman_cache.el")))
 (defalias 'man 'woman)
 
@@ -1324,8 +1329,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;; python
 
 (when (autoload-eval-lazily 'python '(python-mode))
-  (setq python-python-command (or (executable-find "python3")
-                                  (executable-find "python")))
+  (defvar-set python-python-command (or (executable-find "python3")
+                                        (executable-find "python")))
   ;; (defun my-python-run-as-command ()
   ;;   ""
   ;;   (interactive)
@@ -1333,6 +1338,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   (defun my-python-display-python-buffer ()
     ""
     (interactive)
+    (defvar python-buffer)
     (set-window-text-height (display-buffer python-buffer
                                             t)
                             7))
@@ -1404,11 +1410,13 @@ IF OK-IF-ALREADY-EXISTS is true force download."
   ;; (setq term-ansi-default-program shell-file-name)
   (add-hook 'term-setup-hook
             (lambda ()
-              (setq term-display-table (make-display-table))))
+              (defvar-set term-display-table (make-display-table))))
   (add-hook 'term-mode-hook
             (lambda ()
+              (defvar term-raw-map)
               (unless (memq (current-buffer)
                             (and (featurep 'multi-term)
+                                 (defvar multi-term-buffer-list)
                                  ;; current buffer is not multi-term buffer
                                  multi-term-buffer-list))
                 ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
@@ -1448,7 +1456,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
               ;;      (local-unset-key (kbd "C-c")))
               ;; (define-key cua--prefix-override-keymap
               ;;"\C-c" 'term-interrupt-subjob)
-              (set (make-local-variable 'hl-line-range-function)
+              (set (make-local-variable (defvar hl-line-range-function))
                    (lambda ()
                      '(0 . 0)))
               ))
@@ -1458,6 +1466,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; buffer switching
 
+(defvar bs-configurations)
 (when (autoload-eval-lazily 'bs '(bs-show)
         ;; (add-to-list 'bs-configurations
         ;; '("processes" nil get-buffer-process ".*" nil nil))
@@ -1477,8 +1486,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
         )
   ;; (global-set-key "\C-x\C-b" 'bs-show)
   (defalias 'list-buffers 'bs-show)
-  (setq bs-default-configuration "files-and-terminals")
-  (setq bs-default-sort-name "by nothing")
+  (defvar-set bs-default-configuration "files-and-terminals")
+  (defvar-set bs-default-sort-name "by nothing")
   (add-hook 'bs-mode-hook
             (lambda ()
               ;; (setq bs-default-configuration "files")
@@ -1846,7 +1855,7 @@ the list."
       (if (file-executable-p file)
           (start-process file nil file)
         (when (y-or-n-p
-               "this file cant be executed. mark as executable and go? : ")
+               "This file cant be executed.  Mark as executable and go? ")
           (set-file-modes file
                           (file-modes-symbolic-to-number "u+x" (file-modes file)))
           (start-process file nil file)))))
@@ -1867,7 +1876,7 @@ the list."
   (put 'dired-find-alternate-file 'disabled nil)
   ;; when using dired-find-alternate-file
   ;; reuse current dired buffer for the file to open
-  (setq dired-ls-F-marks-symlinks t)
+  (defvar-set dired-ls-F-marks-symlinks t)
 
   (when (safe-require-or-eval 'ls-lisp)
     (setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
@@ -1877,9 +1886,9 @@ the list."
           '("%Y-%m-%d %H:%M"
             "%Y-%m-%d      ")))
 
-  (setq dired-dwim-target t)
-  (setq dired-hide-details-hide-symlink-targets nil)
-  (setq dired-hide-details-hide-information-lines nil)
+  (defvar-set dired-dwim-target t)
+  (defvar-set dired-hide-details-hide-symlink-targets nil)
+  (defvar-set dired-hide-details-hide-information-lines nil)
 
   ;; (add-hook 'dired-after-readin-hook
   ;;           'my-replace-nasi-none)
@@ -1925,8 +1934,8 @@ the list."
                 (dired-hide-details-mode t)
                 (local-set-key "l" 'dired-hide-details-mode))
               (let ((file "._Icon\015"))
-                (when  nil (file-readable-p file)
-                       (delete-file file)))))
+                (when nil (file-readable-p file)
+                      (delete-file file)))))
 
   (and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/pack.el"
                       t)
@@ -1948,6 +1957,7 @@ the list."
 
 ;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html
 
+(defvar dired-marker-char)
 (defun my-dired-toggle-mark()
   (let ((cur (cond ((eq (following-char) dired-marker-char) ?\040)
                    (t dired-marker-char))))
@@ -1987,7 +1997,7 @@ Optional prefix ARG says how many lines to unflag; default is one line."
 
 (autoload-eval-lazily 'eshell nil
 
-  (setq eshell-banner-message (format "Welcome to the Emacs shell
+  (defvar-set eshell-banner-message (format "Welcome to the Emacs shell
 %s
 C-x t to toggling emacs-text-mode
 
@@ -2142,20 +2152,21 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
           (setq eshell-history-index nil))
       ad-do-it))
 
-  (setq eshell-directory-name (concat user-emacs-directory
-                                      "eshell/"))
-  (setq eshell-term-name "eterm-color")
-  (setq eshell-scroll-to-bottom-on-input t)
-  (setq eshell-cmpl-ignore-case t)
-  (setq eshell-cmpl-cycle-completions nil)
-  (setq eshell-highlight-prompt nil)
-  (setq eshell-ls-initial-args '("-hCFG"
-                                 "--color=auto"
-                                 "--time-style=long-iso"))     ; "-hF")
-
-  (setq eshell-prompt-function
-        'my-eshell-prompt-function)
-
+  (defvar-set eshell-directory-name (concat user-emacs-directory
+                                            "eshell/"))
+  (defvar-set eshell-term-name "eterm-color")
+  (defvar-set eshell-scroll-to-bottom-on-input t)
+  (defvar-set eshell-cmpl-ignore-case t)
+  (defvar-set eshell-cmpl-cycle-completions nil)
+  (defvar-set eshell-highlight-prompt nil)
+  (defvar-set eshell-ls-initial-args '("-hCFG"
+                                       "--color=auto"
+                                       "--time-style=long-iso"))     ; "-hF")
+
+  (defvar-set eshell-prompt-function
+    'my-eshell-prompt-function)
+
+  (defvar eshell-last-command-status)
   (defun my-eshell-prompt-function()
     "Prompt function.
 
@@ -2224,9 +2235,10 @@ It looks like:
               ;; (eshell/export "GIT_EDITOR=")
               (eshell/export "LC_MESSAGES=C")
               (switch-to-buffer (current-buffer)) ; move buffer top of list
-              (set (make-local-variable 'hl-line-range-function)
+              (set (make-local-variable (defvar hl-line-range-function))
                    (lambda ()
                      '(0 . 0)))
+              (defvar eshell-virtual-targets)
               (add-to-list 'eshell-virtual-targets
                            '("/dev/less"
                              (lambda (str)
@@ -2237,6 +2249,9 @@ It looks like:
 
   (add-hook 'eshell-mode-hook
             (lambda ()
+              (defvar eshell-visual-commands)
+              (defvar eshell-output-filter-functions)
+              (defvar eshell-command-aliases-list)
               (add-to-list 'eshell-visual-commands "vim")
               ;; (add-to-list 'eshell-visual-commands "git")
               (add-to-list 'eshell-output-filter-functions