fix that visible-mark-active hangs around until the next command when the mark is...

diff --git a/visible-mark.el b/visible-mark.el
index f1235099cba1f07f468af7e4571b5a56aed0c93a..1d962152dbf9d6f8688dca9e4b904af234f4a3e0 100644 (file)
--- a/visible-mark.el
+++ b/visible-mark.el
@@ -189,7 +189,7 @@ the last defined face will be reused."
         (overlays visible-mark-overlays)
         (faces visible-mark-faces)
         (faces-forward visible-mark-forward-faces))
-    (if mark-active (setq faces (cons 'visible-mark-active (cdr faces))))
+    (when (and mark-active (not deactivate-mark)) (setq faces (cons 'visible-mark-active (cdr faces))))
     (dotimes (i visible-mark-max)
       (visible-mark-move-overlay (pop overlays) (pop marks) (car faces))
       (if (cdr faces) (pop faces)))