fix for 80 letters limit

emacs.el

@@ -13,7 +13,8 @@
 
 (progn
   (defvar buffer-file-changed-functions nil "Hook run when buffer file changed.
-Each function is called with two args, the filename before changing and after changing.")
+Each function is called with two args, the filename before changing and after
+changing.")
   (declare-function run-buffer-file-changed-functions "emacs.el")
   (add-hook 'post-command-hook
             'run-buffer-file-changed-functions)
@@ -40,8 +41,9 @@ Each function is called with two args, the filename before changing and after ch
 (require 'url)
 
 (defun dllib-if-unfound (url &optional byte-compile-p force-download-p)
-  "If library does not exist, download it from URL and locate it in \"~/emacs.d/lisp/\".
-Return nil if library unfound and failed to download, otherwise the path where the library installed."
+  "If library does not exist, download it from URL and locate it in
+\"~/emacs.d/lisp/\". Return nil if library unfound and failed to download,
+otherwise the path where the library installed."
   (let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
          (lib (file-name-sans-extension (file-name-nondirectory url)))
          (lpath (concat dir lib ".el"))
@@ -54,13 +56,14 @@ Return nil if library unfound and failed to download, otherwise the path where t
                                          t)
                           (when (and byte-compile-p
                                      (require 'bytecomp nil t))
-                            (and (file-exists-p (byte-compile-dest-file lpath)) 
+                            (and (file-exists-p (byte-compile-dest-file lpath))
                                  (delete-file (byte-compile-dest-file lpath)))
                             (byte-compile-file lpath))
                           )
                  (error (and (file-writable-p lpath)
                              (delete-file lpath))
-                        (message "downloading %s...something wrong happened!" url)
+                        (message "downloading %s...something wrong happened!"
+                                 url)
                         nil))
                (locate-library lib))
       locate-p)))
@@ -69,17 +72,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
 ;; start and quit
 
 (setq inhibit-startup-message t)
-(setq frame-title-format (list '(:eval (format-time-string (or display-time-format "")))
-                               " | %b "
-                               '(:eval (number-to-string (length (buffer-list-not-start-with-space))))
-                               " buffers ["
-                               invocation-name
-                               " "
-                               emacs-version
-                               " "
-                               (symbol-name system-type)
-                               "] "
-                               '(:eval (symbol-name last-command))))
+(setq frame-title-format
+      (list '(:eval (format-time-string (or display-time-format
+                                            "")))
+            " | %b "
+            '(:eval (number-to-string (length
+                                       (buffer-list-not-start-with-space))))
+            " buffers ["
+            invocation-name
+            " "
+            emacs-version
+            " "
+            (symbol-name system-type)
+            "] "
+            '(:eval (symbol-name last-command))))
 
 (setq set-terminal-title-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
 (defun set-terminal-title (&rest args)
@@ -102,7 +108,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
                       " "
                       (symbol-name system-type)
                       "] "
-                      (abbreviate-file-name (or buffer-file-name default-directory))))
+                      (abbreviate-file-name (or buffer-file-name
+                                                default-directory))))
 (add-hook 'buffer-file-changed-functions
           (lambda (p c)
             (my-set-terminal-title)))
@@ -127,7 +134,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
   (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))) ; does not work?
+  ;; (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))
+                                        ;; does not work?
   )
 ;; (add-to-list 'default-frame-alist '(cursor-type . box))
 (if window-system (menu-bar-mode 1) (menu-bar-mode 0))
@@ -135,7 +143,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
 (tool-bar-mode 0))
 (and (fboundp 'set-scroll-bar-mode)
 (set-scroll-bar-mode nil))
-(add-hook 'kill-emacs-hook      ; load when exitting to examine if file is written properly
+(add-hook 'kill-emacs-hook
+          ;; load when exitting to examine if file is written properly
           (lambda ()
             (when (file-readable-p "~/.emacs")
               (load-file "~/.emacs"))
@@ -185,8 +194,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; global keys
 
-(and (dllib-if-unfound "https://raw.github.com/k1LoW/emacs-drill-instructor/master/drill-instructor.el"
-                       t)
+(and (dllib-if-unfound
+      "https://raw.github.com/k1LoW/emacs-drill-instructor/master/\
+drill-instructor.el"
+      t)
      (require 'drill-instructor nil t)
      (setq drill-instructor-global t)
      (let ((map drill-instructor-key-map))
@@ -194,8 +205,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
        (define-key map (kbd "DEL") nil)
        (define-key map (kbd "C-h") nil)))
 '(mapc (lambda (key)
-        (global-set-key (read-kbd-macro key) 'ignore))
-      '("<up>" "<down>" "<right>" "<left>"))
+         (global-set-key (read-kbd-macro key) 'ignore))
+       '("<up>" "<down>" "<right>" "<left>"))
 
 (define-key my-prefix-map (kbd "C-o") 'occur)
 
@@ -286,7 +297,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
 
 (fset 'yes-or-no-p 'y-or-n-p)
 
-(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval'
+(define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol)
+                                        ;; complete symbol when `eval'
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; letters, font-lock mode and fonts
@@ -297,7 +309,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
   (mac-set-input-method-parameter 'japanese 'cursor-color "red")
   (mac-set-input-method-parameter 'roman 'cursor-color "black"))
 
-(when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない
+(when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
            (boundp 'input-method-inactivate-hook))
   (add-hook 'input-method-activate-hook
             (lambda () (set-cursor-color "red")))
@@ -336,7 +348,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
 (when (require 'whitespace nil t)
   (setq whitespace-style '(face newline newline-mark empty tabs lines trailing))
   ;; (setq whitespace-newline 'font-lock-comment-face)
-  (add-to-list 'whitespace-display-mappings `(newline-mark ?\n ,(vconcat "$\n")))
+  (add-to-list 'whitespace-display-mappings
+               `(newline-mark ?\n ,(vconcat "$\n")))
   (global-whitespace-mode t))
 
 ;; highlight current line
@@ -345,7 +358,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
   '((((type x w32)
       (class color)
       (background dark))
-     (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも
+     (:background "midnightblue"))
     (((type x w32)
       (class color)
       (background light))
@@ -367,9 +380,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
 
 ;; fonts
 
-(defun my-set-ascii-and-jp-font-with-size (list)
+(defun my-set-ascii-and-jp-font (list)
   ""
-  (if (> emacs-major-version 22)
+  (if (> emacs-major-version 22) ;; font spec is available in emacs23 and later
       (progn                            ; 23 or later
         (set-face-attribute 'default nil
                             :family (nth 0 list)
@@ -380,7 +393,6 @@ Return nil if library unfound and failed to download, otherwise the path where t
         (set-fontset-font "fontset-default"
                           'katakana-jisx0201
                           (font-spec :family (nth 2 list) :size (nth 3 list))))
-                                        ; font spec is available in emacs23 and later, cannot used in emacs22
     (progn                              ; 22
       (set-face-attribute 'default nil
                           :family (nth 0 list)
@@ -392,23 +404,26 @@ Return nil if library unfound and failed to download, otherwise the path where t
                         'katakana-jisx0201
                         (cons (nth 2 list) "jisx0201.*"))
       )))
-;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 90 "takaogothic" 13))
-;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "takaogothic" 14))
-;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "ms gothic" 14))
-;; (my-set-ascii-and-jp-font-with-size '("monaco" 75 "takaogothic" 11))
-;; (my-set-ascii-and-jp-font-with-size '("monaco" 90 "takaogothic" 13))
-;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
+;; (my-set-ascii-and-jp-font '("dejavu sans mono" 90 "takaogothic" 13))
+;; (my-set-ascii-and-jp-font '("dejavu sans mono" 100 "takaogothic" 14))
+;; (my-set-ascii-and-jp-font '("dejavu sans mono" 100 "ms gothic" 14))
+;; (my-set-ascii-and-jp-font '("monaco" 75 "takaogothic" 11))
+;; (my-set-ascii-and-jp-font '("monaco" 90 "takaogothic" 13))
+;; (my-set-ascii-and-jp-font '("ProggyCleanTTSZ" 120 "takaogothic" 11))
 ;; あ a
 
-(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
+(and (dllib-if-unfound
+      "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
                        t)
      (progn
        (require 'set-modeline-color nil t)))
 
 (let ((fg (face-foreground 'default))
       (bg (face-background 'default)))
-  (set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) fg bg))
-  (set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) bg fg)))
+  (set-face-background 'mode-line-inactive
+                       (if (face-inverse-video-p 'mode-line) fg bg))
+  (set-face-foreground 'mode-line-inactive
+                       (if (face-inverse-video-p 'mode-line) bg fg)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling
@@ -507,8 +522,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
       ;; message-send-mail-function 'smtpmail-send-it
       smtpmail-smtp-server "smtp.gmail.com"
       smtpmail-smtp-service 587
-      smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
-      smtpmail-auth-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))
+      smtpmail-starttls-credentials '(("smtp.gmail.com" 587
+                                       "8.slashes@gmail.com" nil))
+      smtpmail-auth-credentials '(("smtp.gmail.com" 587
+                                   "8.slashes@gmail.com" nil))
       user-mail-address "8.slashes@gmail.com")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -528,9 +545,13 @@ Return nil if library unfound and failed to download, otherwise the path where t
 ;; package
 
 (when (require 'package nil t)
-  (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
-  (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
-  (add-to-list 'package-archives '("ELPA" . "http://tromey.com/elpa/"))
+  (add-to-list 'package-archives
+               '("melpa" . "http://melpa.milkbox.net/packages/")
+               t)
+  (add-to-list 'package-archives
+               '("marmalade" . "http://marmalade-repo.org/packages/"))
+  (add-to-list 'package-archives
+               '("ELPA" . "http://tromey.com/elpa/"))
   (package-initialize))
 
 (require 'sudoku nil t)
@@ -541,7 +562,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
 (require 'simple nil t)
 
 (and window-system
-     (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el" t)
+     (dllib-if-unfound
+      "https://raw.github.com/10sr/emacs-lisp/master/save-window-size.el"
+                       t)
      (require 'save-window-size nil t))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -584,7 +607,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
 
 (add-hook 'sh-mode-hook
           (lambda ()
-            (define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))
+            (define-key sh-mode-map
+              (kbd "C-x C-e")
+              'my-execute-shell-command-current-line)))
 
 (defun my-execute-shell-command-current-line ()
   ""
@@ -614,15 +639,19 @@ Return nil if library unfound and failed to download, otherwise the path where t
                           7))
 (add-hook 'python-mode-hook
           (lambda ()
-            (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-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)))
 
 (add-hook 'inferior-python-mode-hook
           (lambda ()
             (my-python-display-python-buffer)
-            (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
-            (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))
+            (define-key inferior-python-mode-map
+              (kbd "<up>") 'comint-previous-input)
+            (define-key inferior-python-mode-map
+              (kbd "<down>") 'comint-next-input)))
 
 (add-hook 'text-mode-hook
           (lambda ()
@@ -638,15 +667,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
             (define-key apropos-mode-map "p" 'previous-line)
             ))
 
-(define-key minibuffer-local-map (kbd "C-u") (lambda () (interactive) (delete-region (point-at-bol) (point))))
+(define-key minibuffer-local-map (kbd "C-u")
+  (lambda () (interactive) (delete-region (point-at-bol) (point))))
 
 (add-hook 'isearch-mode-hook
           (lambda ()
-            ;; (define-key isearch-mode-map (kbd "C-j") 'isearch-other-control-char)
-            ;; (define-key isearch-mode-map (kbd "C-k") 'isearch-other-control-char)
-            ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-other-control-char)
+            ;; (define-key isearch-mode-map
+            ;;   (kbd "C-j") 'isearch-other-control-char)
+            ;; (define-key isearch-mode-map
+            ;;   (kbd "C-k") 'isearch-other-control-char)
+            ;; (define-key isearch-mode-map
+            ;;   (kbd "C-h") 'isearch-other-control-char)
             (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
-            (define-key isearch-mode-map (kbd "M-r") 'isearch-query-replace-regexp)))
+            (define-key isearch-mode-map (kbd "M-r")
+              'isearch-query-replace-regexp)))
 
 (add-hook 'outline-mode-hook
           (lambda ()
@@ -657,10 +691,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
 (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'outline-mode))
 (setq markdown-command (or (executable-find "markdown")
                            (executable-find "markdown.pl")))
-(when (dllib-if-unfound "http://jblevins.org/projects/markdown-mode/markdown-mode.el"
+(when (dllib-if-unfound
+       "http://jblevins.org/projects/markdown-mode/markdown-mode.el"
                         t)
   (add-to-list 'auto-mode-alist (cons "\\.md\\'" 'markdown-mode))
-  (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil)
+  (autoload 'markdown-mode
+    "markdown-mode" "Major mode for editing Markdown files." nil)
   (add-hook 'markdown-mode-hook
             (lambda ()
               (outline-minor-mode 1)
@@ -678,7 +714,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
             (c-toggle-hungry-state -1)
             ))
 
-(when (dllib-if-unfound "https://raw.github.com/mooz/js2-mode/master/js2-mode.el"
+(when (dllib-if-unfound
+       "https://raw.github.com/mooz/js2-mode/master/js2-mode.el"
                         t)
   (autoload 'js2-mode "js2-mode" nil t)
   (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
@@ -714,14 +751,18 @@ Return nil if library unfound and failed to download, otherwise the path where t
 
 (add-hook 'view-mode-hook
           (lambda()
-            (define-key view-mode-map "j" (lambda() (interactive) (scroll-up 1)))
-            (define-key view-mode-map "k" (lambda() (interactive) (scroll-down 1)))
+            (define-key view-mode-map "j"
+              (lambda() (interactive) (scroll-up 1)))
+            (define-key view-mode-map "k"
+              (lambda() (interactive) (scroll-down 1)))
             (define-key view-mode-map "v" 'toggle-read-only)
             (define-key view-mode-map "q" 'bury-buffer)
             ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
             ;; (define-key view-mode-map "?" 'nonincremental-re-search-backward)
-            ;; (define-key view-mode-map "n" 'nonincremental-repeat-search-forward)
-            ;; (define-key view-mode-map "N" 'nonincremental-repeat-search-backward)
+            ;; (define-key view-mode-map
+            ;;   "n" 'nonincremental-repeat-search-forward)
+            ;; (define-key view-mode-map
+            ;;   "N" 'nonincremental-repeat-search-backward)
             (define-key view-mode-map "/" 'isearch-forward-regexp)
             (define-key view-mode-map "?" 'isearch-backward-regexp)
             (define-key view-mode-map "n" 'isearch-repeat-forward)
@@ -745,8 +786,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
      (require 'gtkbm nil t)
      (global-set-key (kbd "C-x C-d") 'gtkbm))
 
-(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
-                       t)
+(and (dllib-if-unfound
+      "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
+      t)
      (require 'git-command nil t)
      (define-key ctl-x-map "g" 'git-command))
 
@@ -773,16 +815,20 @@ Return nil if library unfound and failed to download, otherwise the path where t
             (setq term-display-table (make-display-table))))
 (add-hook 'term-mode-hook
           (lambda ()
-            (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer
-                                                (multi-term-list)))
+            (unless (memq (current-buffer)
+                          (and (featurep 'multi-term)
+                               ;; current buffer is not multi-term buffer
+                               (multi-term-list)))
               ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
               ;; (define-key term-raw-map "\C-r" 'term-send-raw)
               ;; (define-key term-raw-map "\C-s" 'term-send-raw)
               ;; (define-key term-raw-map "\C-f" 'forward-char)
               ;; (define-key term-raw-map "\C-b" 'backward-char)
               ;; (define-key term-raw-map "\C-t" 'set-mark-command)
-              (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")))
+              (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")))
             (define-key term-raw-map (kbd "C-p") 'term-send-raw)
             (define-key term-raw-map (kbd "C-n") 'term-send-raw)
             (define-key term-raw-map "q" 'my-term-quit-or-send-raw)
@@ -790,7 +836,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
             (define-key term-raw-map [delete] 'term-send-raw)
             (define-key term-raw-map (kbd "DEL") 'term-send-backspace)
             (define-key term-raw-map "\C-y" 'term-paste)
-            (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
+            (define-key term-raw-map
+              "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
             '(define-key term-mode-map (kbd "C-x C-q") 'term-pager-toggle)
             ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
             ;;   (define-key term-raw-map (read-kbd-macro key) 'term-send-raw))
@@ -800,7 +847,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
             ;; (cua-mode 0)
             ;; (and cua-mode
             ;;      (local-unset-key (kbd "C-c")))
-            ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
+            ;; (define-key cua--prefix-override-keymap
+            ;;"\C-c" 'term-interrupt-subjob)
             (set (make-local-variable 'hl-line-range-function)
                  (lambda ()
                    '(0 . 0)))
@@ -814,11 +862,18 @@ Return nil if library unfound and failed to download, otherwise the path where t
   ;; (global-set-key "\C-x\C-b" 'bs-show)
   (defalias 'list-buffers 'bs-show))
 
-;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
-(add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
-(add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))
-;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)
-;;                               '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))
+;; (add-to-list 'bs-configurations
+;; '("processes" nil get-buffer-process ".*" nil nil))
+(add-to-list 'bs-configurations
+             '("same-dir" nil buffer-same-dir-p ".*" nil nil))
+(add-to-list 'bs-configurations
+             '("this-frame" nil (lambda (buf)
+                                  (memq buf (my-frame-buffer-get)))
+               ".*" nil nil))
+;; (setq bs-configurations (list
+;; '("processes" nil get-buffer-process ".*" nil nil)
+;; '("files-and-scratch" "^\\*scratch\\*$" nil nil
+;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
 (setq bs-default-configuration "this-frame")
 (setq bs-default-sort-name "by name")
 (add-hook 'bs-mode-hook
@@ -855,13 +910,17 @@ Return nil if library unfound and failed to download, otherwise the path where t
     (set-buffer sdic-buffer-name)
     (message (buffer-substring (point-min)
                                (progn (goto-char (point-min))
-                                      (or (and (re-search-forward "^\\w" nil t 4)
+                                      (or (and (re-search-forward "^\\w"
+                                                                  nil
+                                                                  t
+                                                                  4)
                                                (progn (previous-line) t)
                                                (point-at-eol))
                                           (point-max)))))))
 
 (setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))
-(setq sdic-waei-dictionary-list '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
+(setq sdic-waei-dictionary-list
+      '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))
 (setq sdic-disable-select-window t)
 (setq sdic-window-height 7)
 (when (require 'sdic nil t)
@@ -918,7 +977,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
 ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804
 ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el
 
-(when (dllib-if-unfound "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
+(when (dllib-if-unfound
+       "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"
                         t)
   (setq auto-mode-alist
         (cons '("\.gosh\\'" . gauche-mode) auto-mode-alist))
@@ -928,9 +988,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
   (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)
   (add-hook 'gauche-mode-hook
             (lambda ()
-              (define-key gauche-mode-map (kbd "C-c C-z") 'run-gauche-other-window)
-              (define-key scheme-mode-map (kbd "C-c C-c") 'scheme-send-buffer)
-              (define-key scheme-mode-map (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
+              (define-key gauche-mode-map
+                (kbd "C-c C-z") 'run-gauche-other-window)
+              (define-key scheme-mode-map
+                (kbd "C-c C-c") 'scheme-send-buffer)
+              (define-key scheme-mode-map
+                (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
               )))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -950,7 +1013,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
   (recentf-mode 1)
   ;; (add-to-list 'recentf-filename-handlers 'abbreviate-file-name)
   (add-to-list 'recentf-exclude (regexp-quote recentf-save-file))
-  (and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
+  (and (dllib-if-unfound
+        "https://raw.github.com/10sr/emacs-lisp/master/recentf-show.el"
                          t)
        (require 'recentf-show nil t)
        (define-key ctl-x-map (kbd "C-r") 'recentf-show)))
@@ -958,7 +1022,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
 (add-hook 'recentf-dialog-mode-hook
           (lambda ()
             (recentf-save-list)
-            ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") 'my-recentf-cd-and-find-file)
+            ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f")
+            ;; 'my-recentf-cd-and-find-file)
             (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)
             (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)
             (define-key recentf-dialog-mode-map "p" 'previous-line)
@@ -977,11 +1042,12 @@ Return nil if library unfound and failed to download, otherwise the path where t
     (message "%s"
              (with-temp-buffer
                (insert-file-contents f)
-               (buffer-substring-no-properties (point-min)
-                                               (progn (goto-line (if arg
-                                                                     (prefix-numeric-value arg)
-                                                                   10))
-                                                      (point-at-eol)))))))
+               (buffer-substring-no-properties
+                (point-min)
+                (progn (goto-line (if arg
+                                      (prefix-numeric-value arg)
+                                    10))
+                       (point-at-eol)))))))
 
 (defun my-dired-diff ()
   ""
@@ -1071,8 +1137,10 @@ Return nil if library unfound and failed to download, otherwise the path where t
   (let ((file (dired-get-filename t)))
     (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? : ")
-        (set-file-modes file (file-modes-symbolic-to-number "u+x" (file-modes file)))
+      (when (y-or-n-p
+             "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)))))
 
 ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html
@@ -1088,7 +1156,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
   )
 (setq dired-listing-switches "-lhFG")
 
-(put 'dired-find-alternate-file 'disabled nil) ; when using dired-find-alternate-file reuse current dired buffer for the file to open
+(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)
 
 (require 'ls-lisp)
@@ -1120,14 +1190,17 @@ Return nil if library unfound and failed to download, otherwise the path where t
             (define-key dired-mode-map "B" 'gtkbm-add-current-dir)
             (define-key dired-mode-map "b" 'gtkbm)
             (define-key dired-mode-map "h" 'my-dired-echo-file-head)
-            (define-key dired-mode-map "@" (lambda () (interactive) (my-x-open ".")))
+            (define-key dired-mode-map "@" (lambda ()
+                                             (interactive) (my-x-open ".")))
             (define-key dired-mode-map (kbd "TAB") 'other-window)
             ;; (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)
             (define-key dired-mode-map "/" 'dired-isearch-filenames)
             (define-key dired-mode-map (kbd "DEL") 'dired-up-directory)
             (define-key dired-mode-map (kbd "C-h") 'dired-up-directory)
-            (substitute-key-definition 'dired-next-line 'my-dired-next-line dired-mode-map)
-            (substitute-key-definition 'dired-previous-line 'my-dired-previous-line dired-mode-map)
+            (substitute-key-definition 'dired-next-line
+                                       'my-dired-next-line dired-mode-map)
+            (substitute-key-definition 'dired-previous-line
+                                       'my-dired-previous-line dired-mode-map)
             (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)
             (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
             (let ((file "._Icon\015"))
@@ -1141,8 +1214,9 @@ Return nil if library unfound and failed to download, otherwise the path where t
                (lambda ()
                  (define-key dired-mode-map "P" 'dired-do-pack-or-unpack))))
 
-(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
-                       t)
+(and (dllib-if-unfound
+      "https://raw.github.com/10sr/emacs-lisp/master/dired-list-all-mode.el"
+      t)
      (require 'dired-list-all-mode nil t)
      (setq dired-listing-switches "-lhFG")
      (add-hook 'dired-mode-hook
@@ -1202,7 +1276,8 @@ Optional prefix ARG says how many lines to unflag; default is one line."
   "t if FILE is owned by me."
   (eq (user-uid) (nth 2 (file-attributes file))))
 
-;; ;; http://www.bookshelf.jp/pukiwiki/pukiwiki.php?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9
+"http://www.bookshelf.jp/pukiwiki/pukiwiki.php\
+?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9"
 ;; ;; written by Stefan Reichoer <reichoer@web.de>
 ;; (defun eshell/less (&rest args)
 ;;   "Invoke `view-file' on the file.
@@ -1304,8 +1379,9 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
             (insert user-login-name
                     "@"
                     (or (getenv "HOSTNAME")
-                        (substring (shell-command-to-string (or (executable-find "hostname")
-                                                                "echo ''"))
+                        (substring (shell-command-to-string
+                                    (or (executable-find "hostname")
+                                        "echo ''"))
                                    0
                                    -1)))
             (setq p4 (point))
@@ -1331,7 +1407,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
           (lambda ()
             ;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()
             ;;                                               (interactive)
-            ;;                                               (switch-to-buffer (other-buffer))))
+            ;;                             (switch-to-buffer (other-buffer))))
             (define-key eshell-mode-map (kbd "C-u") (lambda ()
                                                       (interactive)
                                                       (eshell-goto-prompt)
@@ -1340,9 +1416,12 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
                                                       (interactive)
                                                       (eshell-goto-prompt)
                                                       (my-keyboard-quit)))
-            (define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)
-            (define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)
-            (define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)
+            (define-key eshell-mode-map
+              (kbd "DEL") 'my-eshell-backward-delete-char)
+            (define-key eshell-mode-map
+              (kbd "C-p") 'eshell-previous-matching-input-from-input)
+            (define-key eshell-mode-map
+              (kbd "C-n") 'eshell-next-matching-input-from-input)
             (apply 'eshell/addpath exec-path)
             (set (make-local-variable 'scroll-margin) 0)
             ;; (eshell/export "GIT_PAGER=")
@@ -1364,7 +1443,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
           (lambda ()
             (add-to-list 'eshell-visual-commands "vim")
             ;; (add-to-list 'eshell-visual-commands "git")
-            (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
+            (add-to-list 'eshell-output-filter-functions
+                         'eshell-truncate-buffer)
             (mapcar (lambda (alias)
                       (add-to-list 'eshell-command-aliases-list
                                    alias))
@@ -1374,7 +1454,13 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
                                         ; ("lla" "ls -al $*")
                       ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")
                       ("aptin" "apt-get install $*")
-                      ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")
+                      ("eless"
+                       "cat >>> (with-current-buffer \
+(get-buffer-create \"*eshell output\") \
+(erase-buffer) \
+(setq buffer-read-only nil) \
+(current-buffer));\
+(view-buffer (get-buffer \"*eshell output*\"))")
                       ("g" "git $*")
                       ))
             ))
@@ -1408,7 +1494,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
   ""
   (make-local-variable 'my-buffer-file-last-modified-time)
   (setq my-buffer-file-last-modified-time
-        (format-time-string "%Y/%m/%d %H:%M" (my-get-file-last-modified-time buffer-file-name))))
+        (format-time-string "%Y/%m/%d %H:%M"
+                            (my-get-file-last-modified-time buffer-file-name))))
 
 (add-hook 'find-file-hook
           'my-set-buffer-file-last-modified-time)
@@ -1419,7 +1506,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; frame buffer
-;; todo: work well when opening the file that was already opened on another window
+;; todo:
+;;    work well when opening the file that was already opened on another window
 
 (add-hook 'after-make-frame-functions
           (lambda (f)
@@ -1533,11 +1621,26 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
                                   'ignore
                                 'message))))
     (cond ((active-minibuffer-window) nil)
-          ((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)
-          ((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)
-          (buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)
-          ((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)
-          ((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)
+          ((not buffer-file-name)
+           (funcall fun
+                    "%ssaving... this buffer doesn't visit any file." cm)
+           nil)
+          ((not (file-exists-p buffer-file-name))
+           (funcall fun
+                    "%ssaving... file not exist. save manually first." cm)
+           nil)
+          (buffer-read-only
+           (funcall fun
+                    "%ssaving... this buffer is read-only." cm)
+           nil)
+          ((not (buffer-modified-p))
+           (funcal fun
+                   "%ssaving... not modified yet." cm)
+           nil)
+          ((not (file-writable-p buffer-file-name))
+           (funcall fun
+                    "%ssaving... you cannot change this file." cm)
+           nil)
           (t (funcall fun "%ssaving..." cm)
              (save-buffer)
              (funcall fun "%ssaving... done." cm)))))
@@ -1556,7 +1659,8 @@ when SEC is nil, stop auto save if enabled."
       (progn (when my-auto-save-this-buffer
                (cancel-timer my-auto-save-this-buffer)
                (setq my-auto-save-this-buffer nil))
-             (setq my-auto-save-this-buffer (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
+             (setq my-auto-save-this-buffer
+                   (run-with-idle-timer sec t 'my-save-this-buffer silent-p)))
     (when my-auto-save-this-buffer
       (cancel-timer my-auto-save-this-buffer)
       (setq my-auto-save-this-buffer nil))))
@@ -1595,7 +1699,8 @@ when SEC is nil, stop auto save if enabled."
   (setq file (expand-file-name file))
   (message "Opening %s..." file)
   (cond ((eq system-type 'windows-nt)
-         (call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))
+         (call-process "cmd.exe" nil 0 nil
+                       "/c" "start" "" (convert-standard-filename file)))
         ((eq system-type 'darwin)
          (call-process "open" nil 0 nil file))
         ((getenv "DISPLAY")
@@ -1682,7 +1787,9 @@ this is test, does not rename files"
       (catch 'end-flag
         (while t
           (setq action
-                (read-key-sequence-vector (format "size[%dx%d] 1: maximize; 2, 3: split; 0: delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
+                (read-key-sequence-vector
+                 (format "size[%dx%d] 1: maximize; 2, 3: split; 0: \
+delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
                                                   (window-width)
                                                   (window-height))))
           (setq c (aref action 0))
@@ -1699,7 +1806,8 @@ this is test, does not rename files"
                 ((= c ?o)
                  (other-window 1))
                 ((memq c '(?d ?0))
-                 (unless (eq (selected-window) (next-window (selected-window) 0 1))
+                 (unless (eq (selected-window)
+                             (next-window (selected-window) 0 1))
                    (delete-window (selected-window))))
                 ((= c ?1)
                  (delete-other-windows))
@@ -1743,7 +1851,8 @@ this is test, does not rename files"
   "use anthy.el as japanese im."
   ;; anthy
   (when (require 'anthy nil t)
-    (global-set-key (kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
+    (global-set-key
+     (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))))
@@ -1766,9 +1875,11 @@ this is test, does not rename files"
 (defun start-ckw-bash ()
   ""
   (interactive)
-  (start-process "ckw_bash"
-                 nil
-                 "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい
+  (start-process
+   "ckw_bash"
+   nil
+   "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe"))
+;; command seems to have to be in c drive
 
 (defun my-w32-add-export-path (&rest args)
   ""