From: Francois Fleuret <francois@fleuret.org>
Date: Sat, 19 May 2012 19:53:18 +0000 (+0200)
Subject: Cosmetics.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=2aed80dfca45ed89267c1f7c3c576002f4fa0e05;p=elisp.git

Cosmetics.
---

diff --git a/emacs.el b/emacs.el
index 3e49e71..0f19654 100644
--- a/emacs.el
+++ b/emacs.el
@@ -342,7 +342,7 @@ load-warning buffer in case of failure."
    ))
 
 ;; "tool" bar? Are you kidding?
-(when (boundp 'tool-bar-mode) (tool-bar-mode -1))
+(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
 
 ;; ;; If my own letter icon is here, use it and change its color
 ;; (when (file-exists-p "~/local/share/emacs/letter.xbm")
@@ -491,11 +491,13 @@ load-warning buffer in case of failure."
 (add-hook 'sh-mode-hook
           (lambda ()
             (set-face-attribute 'sh-heredoc nil
-                                :foreground "black"
-                                :background "#fff0f0")
+                                :foreground "#604000"
+                                :background "white"
+                                :italic t)
             (set-face-attribute 'sh-heredoc-face nil
-                                :foreground "black"
-                                :background "#fff0f0")
+                                :foreground "#604000"
+                                :background "white"
+                                :italic t)
             ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1129,6 +1131,8 @@ goback argument, go back where we were."
 ;; Failsafe version if we can't load bbdb
 (defun ff/explicit-name (email) email)
 
+(load "vc-git")
+
 (when (ff/load-or-alert "bbdb")
 
   (setq
@@ -1192,6 +1196,8 @@ ff/known-address-face is used."
     )
 
   (ff/configure-faces '((ff/robot-address-face :foreground "green4")
+                        (ff/personal-address-face :foreground "dark magenta"
+                                                  :weight 'bold)
                         (ff/important-address-face :foreground "blue2"
                                                    ;; :underline t
                                                    ;; :background "white"
@@ -1200,7 +1206,6 @@ ff/known-address-face is used."
                                                    ;; :slant 'italic
                                                    )))
 
-
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1424,12 +1429,15 @@ universal argument starts xfig even if the .fig does not exist"
 \\usepackage[utf8]{inputenc}
 \\usepackage{amsmath}
 \\usepackage{amssymb}
-\\usepackage{hyperref}
+\\usepackage{microtype}
 
 %% \\usepackage[pdftex]{graphicx}
 %% \\usepackage{eurosym}
 
+\\usepackage{hyperref}
+
 \\hypersetup{
+  pdfborder={0 0 0},
   colorlinks=true,
   linkcolor=blue,
   urlcolor=blue,