equal
deleted
inserted
replaced
15 (let ( lineno end ) |
15 (let ( lineno end ) |
16 (forward-line 1) |
16 (forward-line 1) |
17 (backward-char 1) |
17 (backward-char 1) |
18 (setq end (point)) |
18 (setq end (point)) |
19 (forward-line 0) |
19 (forward-line 0) |
20 (if (not (search-forward-regexp "^\\([1-9][0-9]*\\):" end t)) |
20 (if (not (search-forward-regexp "^\\([1-9][0-9]*\\)[:-]" end t)) |
21 (message "Not at line number...") |
21 (message "Not at line number...") |
22 (setq lineno (string-to-number (match-string 1))) |
22 (setq lineno (string-to-number (match-string 1))) |
23 (if (search-backward-regexp "^$" nil t) |
23 (if (search-backward-regexp "^$" nil t) |
24 (forward-char) |
24 (forward-char) |
25 (goto-char (point-min))) |
25 (goto-char (point-min))) |