chiark / gitweb /
el/dot-emacs.el: Fix conflict between face and overlay variable names.
authorMark Wooding <mdw@distorted.org.uk>
Tue, 1 Aug 2017 13:48:17 +0000 (14:48 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 1 Aug 2017 13:48:17 +0000 (14:48 +0100)
el/dot-emacs.el

index 02bf93de44282f2eb3fcd26fc26811ee72f62111..967d8ea3f12e534f3698a7a4949a29f24f5d816b 100644 (file)
@@ -1551,7 +1551,7 @@ (let ((dollar (make-glyph-code ?$ 'mdw-ellipsis-face))
 ;;;--------------------------------------------------------------------------
 ;;; Where is point?
 
 ;;;--------------------------------------------------------------------------
 ;;; 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")
   (((type graphic)))
   (((min-colors 64)) :background "darkblue")
   (((class color)) :background "blue")
@@ -1575,7 +1575,7 @@ (defun mdw-configure-point-overlay ()
          (setq s (concat s ss))))
       (when (or left right)
        (overlay-put ov 'before-string s)))
          (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))
 
     (delete-overlay ov)
     ov))