We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d08fdac commit 61dcaafCopy full SHA for 61dcaaf
loccur.el
@@ -274,9 +274,8 @@ REGEX is an argument to `loccur'."
274
(mapcar (lambda (line)
275
(let ((beginning (car line)))
276
(unless ( = (- beginning prev-end) 1)
277
- (let ((ovl-start (if (= prev-end 1) 1 prev-end))
278
- (ovl-end (1- beginning)))
279
- (push (list ovl-start ovl-end) overlays)))
+ (let ((ovl-end (1- beginning)))
+ (push (list prev-end ovl-end) overlays)))
280
(setq prev-end (nth 3 line))))
281
buffer-matches)
282
(push (list (1+ prev-end) (point-max)) overlays)
0 commit comments