Skip to content

Commit 733030b

Browse files
committed
Fixed indicator void issue.
1 parent 64430ad commit 733030b

File tree

1 file changed

+10
-9
lines changed

1 file changed

+10
-9
lines changed

line-reminder.el

Lines changed: 10 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -187,15 +187,16 @@ IN-INT : integer using to check if is contain one of the IN-LIST."
187187

188188
(defun line-reminder--ind-delete-dups ()
189189
"Remove duplicates for indicators overlay once."
190-
(let ((record-lst '()) (new-lst '()) (mkr nil) (mkr-pos -1))
191-
(dolist (ind ind-managed-absolute-indicators)
192-
(setq mkr (car ind))
193-
(setq mkr-pos (marker-position mkr))
194-
(if (line-reminder--is-contain-list-integer record-lst mkr-pos)
195-
(remove-overlays mkr-pos mkr-pos 'ind-indicator-absolute t)
196-
(push mkr-pos record-lst)
197-
(push ind new-lst)))
198-
(setq ind-managed-absolute-indicators new-lst)))
190+
(when (equal line-reminder-show-option 'indicators)
191+
(let ((record-lst '()) (new-lst '()) (mkr nil) (mkr-pos -1))
192+
(dolist (ind ind-managed-absolute-indicators)
193+
(setq mkr (car ind))
194+
(setq mkr-pos (marker-position mkr))
195+
(if (line-reminder--is-contain-list-integer record-lst mkr-pos)
196+
(remove-overlays mkr-pos mkr-pos 'ind-indicator-absolute t)
197+
(push mkr-pos record-lst)
198+
(push ind new-lst)))
199+
(setq ind-managed-absolute-indicators new-lst))))
199200

200201
(defun line-reminder--ind-remove-indicator (pos)
201202
"Remove the indicator to position POS."

0 commit comments

Comments
 (0)