Browse Source

Fix some warnings

pull/15/head
10sr 8 years ago
parent
commit
a2143f779f
1 changed files with 6 additions and 5 deletions
  1. +6
    -5
      emacs.el

+ 6
- 5
emacs.el View File

@@ -441,7 +441,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(count-lines (point-max)
(point-min)))))

(when (require 'git-ps1-mode nil t)
(when (safe-require-or-eval 'git-ps1-mode)
(git-ps1-mode))

;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title
@@ -615,7 +615,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."

;; highlight current line
;; http://wiki.riywo.com/index.php?Meadow
(defface my-hl-line
(defface 10sr-hl-line
'((((min-colors 256)
(background dark))
(:background "color-234"))
@@ -624,9 +624,10 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(:background "color-234"))
(t
(:underline "black")))
"*Face used by hl-line.")
(set-variable 'hl-line-face 'my-hl-line) ;; (setq hl-line-face nil)
"*Face used by hl-line."
:group '10sr)
(global-hl-line-mode 1) ;; (hl-line-mode 1)
(set-variable 'hl-line-face '10sr-hl-line) ;; (setq hl-line-face nil)
(set-variable 'hl-line-global-modes
'(not
term-mode))
@@ -1554,7 +1555,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."

(when (autoload-eval-lazily 'google-translate '(google-translate-translate
google-translate-at-point))
(set-varlable 'google-translate-default-source-language "auto")
(set-variable 'google-translate-default-source-language "auto")
(set-variable 'google-translate-default-target-language "ja"))




Loading…
Cancel
Save