-
-(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)))))