yatex

diff yatexsec.el @ 531:6ea85aaae6f2

Workaround for Emacs26 (switch-to-buffer)
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 30 May 2018 08:33:07 +0900
parents 77a2fd4fd634
children 5eb2b1d824f3
line diff
     1.1 --- a/yatexsec.el	Fri Dec 26 01:06:32 2014 +0900
     1.2 +++ b/yatexsec.el	Wed May 30 08:33:07 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatexsec.el --- YaTeX sectioning browser
     1.5  ;;; 
     1.6 -;;; (c) 1994-2013 by HIROSE Yuuji [yuuji@yatex.org]
     1.7 +;;; (c) 1994-2017 by HIROSE Yuuji [yuuji@yatex.org]
     1.8  ;;; Last modified Sun Dec 21 14:16:35 2014 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11 @@ -134,7 +134,7 @@
    1.12  	   (and ln (string< "" ln)
    1.13  		(progn
    1.14  		  (goto-char (point-min))
    1.15 -		  (forward-line (max 0 (- (string-to-int ln) 2)))
    1.16 +		  (forward-line (max 0 (- (YaTeX-str2int ln) 2)))
    1.17  		  (and
    1.18  		   (search-forward ptn nil t)
    1.19  		   (goto-char (match-beginning 0)))))
    1.20 @@ -345,7 +345,7 @@
    1.21        (set-buffer secbuf)
    1.22        (goto-char (point-max))
    1.23        (while (re-search-backward pattern nil t)
    1.24 -	(if (< ln (string-to-int (YaTeX-match-string 1))) nil
    1.25 +	(if (< ln (YaTeX-str2int (YaTeX-match-string 1))) nil
    1.26  	  (beginning-of-line)
    1.27  	  (search-forward YaTeX-ec)
    1.28  	  (looking-at YaTeX-TeX-token-regexp)