X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=emacs.el;h=5d573072eba7da8c1a26544719a95ad1cd3906c3;hp=d594243accc1f7e8c16720ea8746ec2738d2b8ad;hb=9ef8b4c572e372d389906b330a904f07f69585a5;hpb=81269eb9ce700853f25e70bb5be83a0247eb9983

diff --git a/emacs.el b/emacs.el
index d594243..5d57307 100644
--- a/emacs.el
+++ b/emacs.el
@@ -33,6 +33,8 @@
 
 ;; This is where I put most of my emacs-related files
 (setq ff/emacs-dir "~/private/emacs")
+(unless (file-exists-p ff/emacs-dir)
+  (mkdir ff/emacs-dir t))
 
 ;; Give the focus to the emacs window if we are under a windowing
 ;; system
@@ -76,9 +78,6 @@
 ;; Activate the dynamic completion of buffer names
 (iswitchb-mode 1)
 
-(unless (file-exists-p ff/emacs-dir)
-  (mkdir ff/emacs-dir))
-
 ;; Save the minibuffer history
 (setq savehist-file (concat ff/emacs-dir "/savehist"))
 (when (functionp 'savehist-mode) (savehist-mode 1))
@@ -392,7 +391,7 @@ load-warning buffer in case of failure."
    '((italic :underline nil)
      (info-title-2 :foreground "green")
      (font-lock-comment-delimiter-face :foreground "black")
-     (font-lock-comment-face :foreground "black")
+     (font-lock-comment-face :foreground "blue")
      (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)
@@ -436,6 +435,10 @@ load-warning buffer in case of failure."
      (selector/selection :background "yellow")
      (gui-button-face :background "green" :foreground "white")
      (enotes/information-face :foreground "cyan")
+
+     (file-name-shadow :foreground "black")
+     (shadow :foreground "black")
+     (warning :foreground "black" :background "red")
      ))
   )