el/dot-emacs.el: Get `re-builder' to use `string' syntax by default.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 2fdc9ab..63f6e9d 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1198,7 +1198,7 @@ doesn't match any of the regular expressions in
 (mdw-define-face region
   (((min-colors 64)) :background "grey30")
   (((class color)) :background "blue")
-  ((t) :inverse-video t))
+  (t :inverse-video t))
 (mdw-define-face match
   (((class color)) :background "blue")
   (t :inverse-video t))
@@ -1223,7 +1223,8 @@ doesn't match any of the regular expressions in
 (mdw-define-face fringe
   (t :foreground "yellow"))
 (mdw-define-face show-paren-match
-  (((class color)) :background "darkgreen")
+  (((min-colors 64)) :background "darkgreen")
+  (((class color)) :background "green")
   (t :underline t))
 (mdw-define-face show-paren-mismatch
   (((class color)) :background "red")
@@ -1550,7 +1551,7 @@ doesn't match any of the regular expressions in
 ;;;--------------------------------------------------------------------------
 ;;; Where is point?
 
-(mdw-define-face mdw-point-overlay
+(mdw-define-face mdw-point-overlay-face
   (((type graphic)))
   (((min-colors 64)) :background "darkblue")
   (((class color)) :background "blue")
@@ -1574,7 +1575,7 @@ doesn't match any of the regular expressions in
          (setq s (concat s ss))))
       (when (or left right)
        (overlay-put ov 'before-string s)))
-    (overlay-put ov 'face 'mdw-point-overlay)
+    (overlay-put ov 'face 'mdw-point-overlay-face)
     (delete-overlay ov)
     ov))