瀏覽代碼

emacs.el: Small fixes

pull/15/head
10sr 8 年之前
父節點
當前提交
64495e47fa
共有 1 個檔案被更改,包括 10 行新增6 行删除
  1. +10
    -6
      emacs.el

+ 10
- 6
emacs.el 查看文件

@@ -50,6 +50,7 @@ Otherwize hook it."

At compile time the feature will be loaded immediately."
`(eval-and-compile
(message "safe-require-or-eval: Trying to require %s" ,feature)
(require ,feature nil t)))

(defmacro autoload-eval-lazily (feature &optional functions &rest body)
@@ -714,7 +715,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; (setq whitespace-newline 'font-lock-comment-face)
(set-variable 'whitespace-line-column nil)
(global-whitespace-mode t)
(add-hook 'dired-mod-hook
(add-hook 'dired-mode-hook
(lambda ()
(setq whitespace-style nil)))
(if (eq (display-color-cells)
@@ -771,11 +772,14 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(set-variable 'ahs-idle-interval 0.6)
(global-auto-highlight-symbol-mode 1))

(when (safe-require-or-eval 'cyberpunk-theme)
(load-theme 'cyberpunk t)
(set-face-attribute 'button
nil
:inherit 'highlight))
;; (when (safe-require-or-eval 'cyberpunk-theme)
;; (load-theme 'cyberpunk t)
;; (set-face-attribute 'button
;; nil
;; :inherit 'highlight))

(when (safe-require-or-eval 'grandshell-theme)
(load-theme 'grandshell t))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file handling


Loading…
取消
儲存