my-log-mode.el
changeset 1247 6de0de0a4033
parent 1246 abd80227aa4b
child 1248 19234649ba68
equal deleted inserted replaced
1246:abd80227aa4b 1247:6de0de0a4033
    27       (setq stop (point))
    27       (setq stop (point))
    28       (setq line (filter-buffer-substring start stop))
    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-number (match-string 2 line))))
    33         )
       
    34       )
    33       )
    35     (cond
    34     (cond
    36      ( (and fname (file-exists-p fname))
    35      ( (and fname (file-exists-p fname))
    37        (find-file-other-window fname)
    36        (find-file-other-window fname)
    38        (goto-line fline)
    37        (goto-line fline)