               (kui/pop-as-assoc keys (nthcdr 2 seq)))
       nil)))
 
-(defun kui/cons-to-assoc (seq)
-  "Convert SEQ to a association list."
-  (let ((k (nth 0 seq))
-        (v (nth 1 seq)))
-    (message "%s=%s" k v)
-    (if seq
-        (cons (list k v)
-              (kui/cons-to-assoc (nthcdr 2 seq)))
-      nil)))
-
 ;; このファイル(init.el)を開く
 (defun kui/find-init-file ()
   "Edit init file.

(setq default-file-name-coding-system 'utf-8-unix)

;; meadow 向けの設定
(if (string-equal system-type "windows-nt") (let () ))

;; git checkout によるファイル変更などに追従する
;; (custom-set-variables '(auto-revert-check-vc-info t))

          ))

  ;; デフォルトで有効にする。
  (global-whitespace-mode 1)
  (setq whitespace-action '(auto-cleanup))
  (defun kui/whitespace-auto-cleanup-enable ()
    (interactive)
    (set (make-local-variable 'whitespace-action) '(auto-cleanup)))
  (defun kui/whitespace-auto-cleanup-disable ()
    (interactive)
    (set (make-local-variable 'whitespace-action) nil))
  )

;; gnu global (gtags)
(with-lib "gtag"
  (global-set-key "\M-tg" nil)
  (global-set-key "\M-tgt" 'gtags-find-tag)
  (global-set-key "\M-tgr" 'gtags-find-rtag)
