diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
| commit | e6ce8c4239a0b7003430d94a5f591e1d4ad50213 (patch) | |
| tree | 17852bba62da89f449af8c75f4fe50a3fb89852f /lisp/textmodes/tex-mode.el | |
| parent | a569b4801085fa14c3bd0d153e389636645908b9 (diff) | |
| download | emacs-e6ce8c4239a0b7003430d94a5f591e1d4ad50213.tar.gz | |
Use forward-line rather than goto-line.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 8c8a9d5ac1a..ed975ab45c6 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -2210,7 +2210,7 @@ for the error messages." (with-syntax-table tex-error-parse-syntax-table (backward-up-list 1) (skip-syntax-forward "(_") - (while (not + (while (not (and (setq try-filename (thing-at-point 'filename)) (not (string= "" try-filename)) @@ -2229,7 +2229,10 @@ for the error messages." (find-file-noselect filename)) (save-excursion (if new-file - (progn (goto-line linenum) (setq last-position nil)) + (progn + (goto-char (point-min)) + (forward-line (1- linenum)) + (setq last-position nil)) (goto-char last-position) (forward-line (- linenum last-linenum))) ;; first try a forward search for the error text, |