X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=a8303c94fa0489f6d2b6cf9b5978957c2a420193;hb=6c3f9b69ee5f2417199393d35268cf8fc1f969d8;hp=a9f982fa29da940f460af07e8f3bb559ed2f5b52;hpb=ad1b7c7b0216af322622612b7e0d001deb71a893;p=elisp.git diff --git a/emacs.el b/emacs.el index a9f982f..a8303c9 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) @@ -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) {