X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=636b90efddeee61e85cdff436f53dc5038f7412b;hb=4a6b190fd5ebdcf5846421383b1f1211b64a6786;hp=d594243accc1f7e8c16720ea8746ec2738d2b8ad;hpb=81269eb9ce700853f25e70bb5be83a0247eb9983;p=elisp.git

diff --git a/emacs.el b/emacs.el
index d594243..636b90e 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))
@@ -436,6 +435,12 @@ 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")
+     (font-lock-comment-delimiter-face :foreground "magenta")
+     (font-lock-comment-face :foreground "blue")
+     (font-lock-variable-name-face :foreground "green")
+     (shadow :foreground "black")
+     (warning :foreground "black" :background "red")
      ))
   )