equal
deleted
inserted
replaced
15 ;; Very pure release. |
15 ;; Very pure release. |
16 |
16 |
17 ;;; Code: |
17 ;;; Code: |
18 |
18 |
19 (defun my-log-goto (point) |
19 (defun my-log-goto (point) |
20 "" |
20 "Visit file according to error specification at POINT." |
21 (interactive "d") |
21 (interactive "d") |
22 (let ( start stop line fname fline (fregex "^\\([^:]+\\):\\([[:digit:]]+\\):") ) |
22 (let ( start stop line fname fline (fregex "^\\([^:]+\\):\\([[:digit:]]+\\):") ) |
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)) |