From: John Foerch <jjfoerch@earthlink.net>
Date: Tue, 7 Dec 2010 20:16:00 +0000 (-0500)
Subject: visible-mark-initialize-faces: remove
X-Git-Tag: v0.1~14
X-Git-Url: https://iankelling.org/git/?a=commitdiff_plain;h=2fb1930f7e200ce5feeac236fa548e43345fc75c;p=visible-mark

visible-mark-initialize-faces: remove

user should provide the faces
---

diff --git a/visible-mark.el b/visible-mark.el
index b5206db..c73dee5 100644
--- a/visible-mark.el
+++ b/visible-mark.el
@@ -46,8 +46,6 @@
   "The overlays used in this buffer.")
 (make-variable-buffer-local 'visible-mark-overlays)
 
-(defvar visible-mark-non-trailing-faces nil)
-
 (defcustom visible-mark-inhibit-trailing-overlay t
   "If non-nil, inhibit trailing overlay with underline face."
   :group 'visible-mark
@@ -67,21 +65,6 @@
   "A list of buffer names to be excluded"
   :group 'visible-mark
   :type '(repeat regexp))
-
-(defun visible-mark-initialize-faces ()
-  (if (and visible-mark-inhibit-trailing-overlay
-           (null visible-mark-non-trailing-faces))
-      (let (faces)
-        (dotimes (i visible-mark-max)
-          (let ((face (or (nth i visible-mark-faces) 'visible-mark-face))
-                (symbol (intern (format "visible-mark-non-trailing-face%s" i))))
-            (copy-face face symbol)
-            (set-face-attribute symbol nil
-                                :foreground (or (face-attribute face :background) t)
-                                :background 'unspecified
-                                :underline t)
-            (push symbol faces)))
-        (setq visible-mark-non-trailing-faces (nreverse faces)))))
                   
 (defun visible-mark-initialize-overlays ()
   (mapcar 'delete-overlay visible-mark-overlays)
@@ -130,7 +113,6 @@
   :group 'visible-mark
   (if visible-mark-mode
       (progn
-        (visible-mark-initialize-faces)
         (visible-mark-initialize-overlays)
         (add-hook 'post-command-hook 'visible-mark-move-overlays nil t))
     (mapcar 'delete-overlay visible-mark-overlays)