File tree Expand file tree Collapse file tree 1 file changed +10
-9
lines changed Expand file tree Collapse file tree 1 file changed +10
-9
lines changed Original file line number Diff line number Diff 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."
You can’t perform that action at this time.
0 commit comments