X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=a8303c94fa0489f6d2b6cf9b5978957c2a420193;hb=a7e48c45060cc7f5a339818f8b1e29884d925182;hp=28e5daaeef3793ac2fa131984ca76a513609b7d5;hpb=40f0fc08f83c1749305a2790123ffb8bbc488460;p=elisp.git
diff --git a/emacs.el b/emacs.el
index 28e5daa..a8303c9 100644
--- a/emacs.el
+++ b/emacs.el
@@ -802,7 +802,7 @@ printer."
(if (> temp 50)
(concat
(let ((s (format "%dC " temp)))
- (if (> temp 65) (propertize s 'face
+ (if (> temp 70) (propertize s 'face
'font-lock-warning-face)
s))
)
@@ -1641,6 +1641,11 @@ int main(int argc, char **argv) {
+
@@ -1964,18 +1969,18 @@ a file in /tmp"
;; (when (ff/load-or-alert "flyspell-timer" t)
;; (add-hook 'flyspell-mode-hook 'flyspell-timer-ensure-idle-timer))
-;; (defun ff/start-flyspell () (interactive)
- ;; (ff/configure-faces
- ;; '(
- ;; ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
- ;; ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
- ;; (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
- ;; (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
- ;; ))
+(defun ff/start-flyspell () (interactive)
+ (ff/configure-faces
+ '(
+ ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
+ ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
+ (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
+ (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
+ ))
;; (flyspell-buffer)
- ;; )
+ )
-;; (add-hook 'flyspell-mode-hook 'ff/start-flyspell)
+(add-hook 'flyspell-mode-hook 'ff/start-flyspell)
(defun ff/pick-dictionnary () (interactive)
(when (and (boundp 'flyspell-mode) flyspell-mode)