From: Francois Fleuret 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)