 ;; インストール済みでアップデート可能なパッケージをリストアップ
 (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))
 


;; 自動保存機能
(setq auto-save-default t
      auto-save-list-file-name "~/.emacs-auto-save-list" ;; 自動保存に関する情報
      auto-save-intrval 50  ;; 自動保存する打鍵回数
      auto-save-timeout 10)  ;; 自動保存する時間

;; フォントロックモード (強調表示等) を有効にする
;; (global-font-lock-mode t)

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

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