From 486798e32ac16fecad701236a72a1251c51951cb Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Fri, 8 Oct 2021 10:58:24 +0900
Subject: [PATCH] Auto commit by The Sugar System.

---
 dot-files/_emacs_el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index c54ee01..7084821 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -570,9 +570,11 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(appt-message-warning-time 20)
  '(browse-url-browser-function (quote browse-url-firefox))
  '(canlock-password "a14fa4d2601465d55585c291fa8b3943e189e716")
+ '(cl-old-struct-compat-mode t)
  '(clean-buffer-list-delay-general 7)
  '(cleite:auto-refresh-interval nil)
  '(cleite:measure-srpc-call-time t)
+ '(column-number-mode t)
  '(compilation-scroll-output (quote first-error))
  '(completion-ignored-extensions
    (quote
@@ -591,6 +593,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
       (height . 25)
       (right-fringe)
       (left-fringe))))
+ '(display-time-mode t)
  '(ditz-find-issue-directory-automatically-flag t)
  '(ecb-add-path-for-not-matching-files (quote (t)))
  '(ecb-help-info-path "/usr/pkg/info/ecb.info")
@@ -602,6 +605,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(ecb-windows-width 0.2)
  '(electric-indent-mode nil)
  '(elscreen-display-tab t)
+ '(global-undo-tree-mode t)
  '(global-whitespace-mode t)
  '(graphviz-dot-auto-indent-on-newline nil)
  '(graphviz-dot-auto-indent-on-semi nil)
@@ -611,6 +615,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(ido-ignore-files
    (quote
     ("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./" "\\.ttc")))
+ '(ido-mode (quote both) nil (ido))
  '(ido-work-directory-list-ignore-regexps (quote ("^\\(/mnt/ibm/\\|/Volumes/IBM80GB/\\)")))
  '(indent-tabs-mode nil)
  '(ispell-dictionary "english")
@@ -714,6 +719,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(package-selected-packages
    (quote
     (elscreen-fr color-theme-modern elscreen elscreen-multi-term projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
+ '(projectile-mode t nil (projectile))
  '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil))))
  '(riece-layout "default")
  '(riece-layout-alist
@@ -735,6 +741,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(safe-local-variable-values (quote ((todo-categories "Todo" "Todo" "Todo" "Todo"))))
  '(select-enable-clipboard t)
  '(session-use-package t nil (session))
+ '(skk-background-mode (quote light))
  '(tramp-auto-save-directory "/tmp/tramp-auto-save")
  '(tramp-completion-reread-directory-timeout 2)
  '(tramp-default-host "localhost")
@@ -757,6 +764,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(w3m-output-coding-system (quote utf-8))
  '(w3m-terminal-coding-system (quote utf-8))
  '(w3m-use-cookies t)
+ '(which-function-mode t)
  '(whitespace-global-modes (quote (not mew-draft-mode mew-summary-mode)))
  '(whitespace-style
    (quote
@@ -774,6 +782,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(font-lock-comment-face ((t (:foreground "white smoke"))))
  '(font-lock-keyword-face ((t (:foreground "salmon"))))
  '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
+ '(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  '(navi2ch-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
  '(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))
  '(navi2ch-bm-updated-unread-face ((t (:foreground "DarkSeaGreen3" :weight bold))))
-- 
2.40.0