 ;; -------------------------------------------------------------------------
 ;; メジャーモードの設定や読み込み
 
+;; lisp-interaction-mode の設定
+(let nil
+  (add-hook 'lisp-interaction-mode
+            (lambda nil
+              (define-key lisp-interaction-mode-map "\C-cff" 'find-function)
+              (define-key lisp-interaction-mode-map "\C-cfv" 'find-variable)
+              (define-key lisp-interaction-mode-map "\C-cfl" 'find-library)
+              (define-key lisp-interaction-mode-map "\C-cdf" 'describe-function)
+              (define-key lisp-interaction-mode-map "\C-cdf" 'describe-variable)
+              ))
+  )
+
 ;; markdown-mode
 ;; 読み込めたら *scratch* に使うから kui/autoload-if-exist じゃなくて require
 (when (kui/package-require 'markdown-mode nil nil t)

  (unless package-archive-contents (package-refresh-contents))
  (let ((pkg-list (kui/package-update-available-package-list)))
    (if pkg-list
        (dolist (pkg-name pkg-list) (package-install pkg-name))
      (message "No update available package"))))

;; インストールされていないパッケージを require した時に、

;; インストール済みでアップデート可能なパッケージをリストアップ
(defun kui/package-update-available-package-list ()
  "Return package list which have updates."
  (unless package--initialized (package-initialize t))
  (unless package-archive-contents (package-refresh-contents))
  (remove-if (lambda (pname) (not (kui/package-update-available-p pname)))
             package-activated-list))

