From: Francois Fleuret <francois@fleuret.org>
Date: Tue, 7 Jan 2014 15:01:44 +0000 (+0100)
Subject: Update.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=40f0fc08f83c1749305a2790123ffb8bbc488460;p=elisp.git

Update.
---

diff --git a/emacs.el b/emacs.el
index a9f982f..28e5daa 100644
--- a/emacs.el
+++ b/emacs.el
@@ -384,6 +384,8 @@ load-warning buffer in case of failure."
   (ff/configure-faces
    '((italic :underline nil)
      (info-title-2 :foreground "green")
+     (font-lock-comment-delimiter-face :foreground "black")
+     (font-lock-comment-face :foreground "black")
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
      (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
      (diff-added :background "gray90" :foreground "green4" :weight 'bold)
@@ -1962,16 +1964,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-buffer)
-  )
-
-(add-hook 'flyspell-mode-hook 'ff/start-flyspell)
+;; (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)
 
 (defun ff/pick-dictionnary () (interactive)
   (when (and (boundp 'flyspell-mode) flyspell-mode)
diff --git a/vm b/vm
index f196896..519cb69 100644
--- a/vm
+++ b/vm
@@ -545,6 +545,10 @@ an attachment")
 (add-hook 'vm-mail-send-hook 'ff/check-no-leading-from)
 (add-hook 'vm-mail-send-hook 'ff/check-no-excess-wording)
 (add-hook 'vm-mail-send-hook 'flyspell-mode-off)
+
+(defadvice vm-mail-send-and-exit (before ff/switch-flyspell-off nil activate)
+  (flyspell-mode-off))
+
 ;; Append so that it happens after the mime encoding
 ;; (add-hook 'vm-mail-send-hook 'ff/check-badly-encoded-address t)