]> code.delx.au - gnu-emacs-elpa/commitdiff
Removed redundand code
authorAlexey Veretennikov <alexey.veretennikov@gmail.com>
Thu, 31 Dec 2015 12:46:30 +0000 (13:46 +0100)
committerAlexey Veretennikov <alexey.veretennikov@gmail.com>
Thu, 31 Dec 2015 12:46:30 +0000 (13:46 +0100)
Removed ovl-start after comments in emacs-devel since
it was redundant

loccur.el

index 9b110b0c21df31c916ce63192a29a9cfdf52a266..add5a44f0cff1e9326bbf8dc70b0b0315cac87e8 100644 (file)
--- a/loccur.el
+++ b/loccur.el
@@ -274,9 +274,8 @@ REGEX is an argument to `loccur'."
       (mapcar (lambda (line)
                 (let ((beginning (car line)))
                   (unless ( = (- beginning prev-end) 1)
-                    (let ((ovl-start (if (= prev-end 1) 1 prev-end))
-                          (ovl-end  (1- beginning)))
-                      (push (list ovl-start ovl-end) overlays)))
+                    (let ((ovl-end  (1- beginning)))
+                      (push (list prev-end ovl-end) overlays)))
                   (setq prev-end (nth 3 line))))
               buffer-matches)
       (push (list (1+ prev-end) (point-max)) overlays)