# HG changeset patch # User yuuji@gentei.org # Date 1300930690 -32400 # Node ID 2f9069006bdb7479088e730fa8b286a5fdea8848 # Parent 9c5a764a871f5eac8cdaf1f38e1c86fd1ce33292 avoid using goto-line diff -r 9c5a764a871f -r 2f9069006bdb yatexmth.el --- a/yatexmth.el Wed Mar 16 10:26:25 2011 +0900 +++ b/yatexmth.el Thu Mar 24 10:38:10 2011 +0900 @@ -2,7 +2,7 @@ ;;; YaTeX math-mode-specific functions. ;;; yatexmth.el ;;; (c)1993-2010 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Wed Mar 16 10:18:04 2011 on firestorm +;;; Last modified Thu Mar 24 10:30:18 2011 on firestorm ;;; $Id$ ;;; [Customization guide] @@ -635,7 +635,7 @@ (progn (YaTeX-math-display-list (car list) cols) (setq cols (% (1+ cols) maxcols)))) (setq list (cdr list))) - (goto-line 4) + (goto-char (point-min)) (forward-line 3) (use-local-map YaTeX-math-menu-map) (setq buffer-read-only t) (unwind-protect diff -r 9c5a764a871f -r 2f9069006bdb yatexsec.el --- a/yatexsec.el Wed Mar 16 10:26:25 2011 +0900 +++ b/yatexsec.el Thu Mar 24 10:38:10 2011 +0900 @@ -2,7 +2,7 @@ ;;; YaTeX sectioning browser. ;;; yatexsec.el ;;; (c) 1994,1998,1999,2003 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:10:34 2003 on firestorm +;;; Last modified Thu Mar 24 10:35:24 2011 on firestorm ;;; $Id$ (defvar YaTeX-sectioning-level @@ -133,7 +133,8 @@ (or (and ln (string< "" ln) (progn - (goto-line (max 1 (1- (string-to-int ln)))) + (goto-char (point-min)) + (forward-line (max 0 (- (string-to-int ln) 2))) (and (search-forward ptn nil t) (goto-char (match-beginning 0)))))