Update.
[elisp.git] / emacs.el
index a9f982f..a8303c9 100644 (file)
--- 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)
@@ -800,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))
               )
@@ -1639,6 +1641,11 @@ int main(int argc, char **argv) {
 <head>
 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
 <title></title>
+<style>
+p {
+ color:#009900;
+}
+</style>
 </head>
 
 <body>
@@ -1965,10 +1972,12 @@ a file in /tmp"
 (defun ff/start-flyspell () (interactive)
   (ff/configure-faces
    '(
-     (flyspell-incorrect :background "#ff0000" :foreground "black")
-     (flyspell-duplicate :background "#ff9000" :foreground "black")
+     ;; (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)
+  ;; (flyspell-buffer)
   )
 
 (add-hook 'flyspell-mode-hook 'ff/start-flyspell)