Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 574:80692d8b8828 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New switch YaTeX-proc-feed-relative suppress absolute path name. Because bibtex fails to write output blg files when absolute path given.
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 05 Oct 2019 12:46:17 +0900
parents 6ea85aaae6f2
children 117a846879bc
comparison
equal deleted inserted replaced
573:9e07513fc2ef 574:80692d8b8828
1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Wed May 30 08:32:30 2018 on firestorm 4 ;;; Last modified Sat Oct 5 12:44:16 2019 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
1339 (buffer-file-name)) 1339 (buffer-file-name))
1340 0 -4)) 1340 0 -4))
1341 (setq fname (substring fname 0 (rindex fname ?.)))) 1341 (setq fname (substring fname 0 (rindex fname ?.))))
1342 ext))) 1342 ext)))
1343 1343
1344 (defvar YaTeX-proc-feed-relative t
1345 "Non-nil means feed process relative path name of target file.")
1344 (defun YaTeX-get-latex-command (&optional switch) 1346 (defun YaTeX-get-latex-command (&optional switch)
1345 "Specify the latex-command name and its argument. 1347 "Specify the latex-command name and its argument.
1346 If there is a line which begins with string: \"%#!\", the following 1348 If there is a line which begins with string: \"%#!\", the following
1347 strings are assumed to be the latex-command and arguments. The 1349 strings are assumed to be the latex-command and arguments. The
1348 default value of latex-command is: 1350 default value of latex-command is:
1358 (let (parent tparent magic) 1360 (let (parent tparent magic)
1359 (setq parent 1361 (setq parent
1360 (cond 1362 (cond
1361 (YaTeX-parent-file 1363 (YaTeX-parent-file
1362 (if YaTeX-dos (expand-file-name YaTeX-parent-file) 1364 (if YaTeX-dos (expand-file-name YaTeX-parent-file)
1363 YaTeX-parent-file)) 1365 (if YaTeX-proc-feed-relative
1366 (file-relative-name YaTeX-parent-file)
1367 YaTeX-parent-file)))
1364 (t (save-excursion 1368 (t (save-excursion
1365 (YaTeX-visit-main t) 1369 (YaTeX-visit-main t)
1366 (file-name-nondirectory (buffer-file-name))))) 1370 (file-name-nondirectory (buffer-file-name)))))
1367 magic (YaTeX-get-builtin "!") 1371 magic (YaTeX-get-builtin "!")
1368 tparent (file-name-nondirectory parent)) 1372 tparent (file-name-nondirectory parent))

yatex.org