# HG changeset patch # User Oleksandr Gavenko # Date 1425209917 -7200 # Node ID 19234649ba689eed8a96f70c4f61aeac7edd64d1 # Parent 6de0de0a4033125f47328c031fab6aa30c0ef27a Fix: Warning: `goto-line' is for interactive use only; use `forward-line' instead. diff -r 6de0de0a4033 -r 19234649ba68 my-log-mode.el --- a/my-log-mode.el Sun Mar 01 13:32:03 2015 +0200 +++ b/my-log-mode.el Sun Mar 01 13:38:37 2015 +0200 @@ -34,14 +34,12 @@ (cond ( (and fname (file-exists-p fname)) (find-file-other-window fname) - (goto-line fline) - ) + (goto-char (point-min)) + (forward-line (1- fline)) ) ( t (if fname (message "File '%s' is not found (default directory is '%s')." fname default-directory) - (message "No file under current line.") - ) - ) + (message "No file under current line.") ) ) ) ))