-(defcustom global-visible-mark-mode-exclude-alist nil
- "A list of buffer names to be excluded."
- :group 'visible-mark
- :type '(repeat regexp))
+
+;;; example faces
+
+(defface visible-mark-face1
+ '((((type tty) (class mono)))
+ (t (:background "light salmon")))
+ "Example face which can be customized and added to subsequent face lists."
+ :group 'visible-mark)
+
+(defface visible-mark-face2
+ '((((type tty) (class mono)))
+ (t (:background "light goldenrod")))
+ "Example face which can be customized and added to subsequent face lists."
+ :group 'visible-mark)
+
+(defface visible-mark-forward-face1
+ '((((type tty) (class mono)))
+ (t (:background "pale green")))
+ "Example face which can be customized and added to subsequent face lists."
+ :group 'visible-mark)
+
+(defface visible-mark-forward-face2
+ nil
+ "Placeholder face for customization and addition to subsequent face lists."
+ :group 'visible-mark)
+
+
+
+
+(defvar visible-mark-overlays nil
+ "The overlays used for mark faces. Used internally by visible-mark-mode.")
+(make-variable-buffer-local 'visible-mark-overlays)
+
+