From 2fb1930f7e200ce5feeac236fa548e43345fc75c Mon Sep 17 00:00:00 2001 From: John Foerch Date: Tue, 7 Dec 2010 15:16:00 -0500 Subject: [PATCH] visible-mark-initialize-faces: remove user should provide the faces --- visible-mark.el | 18 ------------------ 1 file changed, 18 deletions(-) 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) -- 2.30.2