From 46b468c819f516a05a3538196bbaa6c9dfc01645 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Sat, 25 Jan 2020 22:10:30 +0900
Subject: [PATCH] Update visible-mark config

---
 emacs.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index c29a29f..e3b0a81 100644
--- a/emacs.el
+++ b/emacs.el
@@ -529,7 +529,10 @@ Otherwize hook it."
   (add-to-list 'ivy-sort-functions-alist
                '(counsel-mark-ring)))
 (run-with-idle-timer 10 t
-                     'push-mark)
+                     (lambda ()
+                       (push-mark)
+                       (when (fboundp 'visible-mark-move-overlays)
+                         (visible-mark-move-overlays))))
 
 (when (fboundp 'back-button-mode)
   (back-button-mode 1))
@@ -540,7 +543,7 @@ Otherwize hook it."
 
 (when (fboundp 'global-visible-mark-mode)
   (set-variable 'visible-mark-max 2)
-  (set-variable 'visible-mark-faces '(visible-mark-face1 visible-mark-face2))
+  ;; (set-variable 'visible-mark-faces '(visible-mark-face1 visible-mark-face2))
 
   ;; http://emacs.rubikitch.com/visible-mark/
   ;; transient-mark-modeでC-SPC C-SPC、あるいはC-SPC C-gすると消えるバグ修正
@@ -555,6 +558,11 @@ THEM are function and its args."
 
   (global-visible-mark-mode 1))
 
+;; visible-mark-mode
+;; visible-mark-overlays
+;; mark-ring
+;; (equal mark-ring (cl-copy-list mark-ring))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; title and mode-line