equal
deleted
inserted
replaced
23 (save-excursion |
23 (save-excursion |
24 (move-beginning-of-line 1) |
24 (move-beginning-of-line 1) |
25 (setq start (point)) |
25 (setq start (point)) |
26 (move-end-of-line 1) |
26 (move-end-of-line 1) |
27 (setq stop (point)) |
27 (setq stop (point)) |
28 (setq line (filter-buffer-substring start stop nil t)) |
28 (setq line (filter-buffer-substring start stop)) |
29 (string-match fregex line) |
29 (string-match fregex line) |
30 (setq fname (match-string 1 line)) |
30 (setq fname (match-string 1 line)) |
31 (when fname |
31 (when fname |
32 (setq fline (string-to-int (match-string 2 line))) |
32 (setq fline (string-to-int (match-string 2 line))) |
33 ) |
33 ) |