Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 499:16763e5b7481 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Extension should include period. Fixed
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 30 Oct 2017 21:02:35 +0900
parents c0827f80b18e
children d675f6d06481
comparison
equal deleted inserted replaced
497:c0827f80b18e 499:16763e5b7481
1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Sun Sep 17 10:22:02 2017 on firestorm 4 ;;; Last modified Mon Oct 30 21:00:21 2017 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
1306 (fname (if rin (substring latex-cmd (1+ rin)) "")) 1306 (fname (if rin (substring latex-cmd (1+ rin)) ""))
1307 (r (YaTeX-assoc-regexp preview-command YaTeX-dvi2-command-ext-alist)) 1307 (r (YaTeX-assoc-regexp preview-command YaTeX-dvi2-command-ext-alist))
1308 (ext (if r (cdr r) ""))) 1308 (ext (if r (cdr r) "")))
1309 (and (null r) 1309 (and (null r)
1310 (eq (get 'dvi2-command 'format) 'pdf) 1310 (eq (get 'dvi2-command 'format) 'pdf)
1311 (setq ext "pdf")) 1311 (setq ext ".pdf"))
1312 (concat 1312 (concat
1313 (if (string= fname "") 1313 (if (string= fname "")
1314 (setq fname (substring (file-name-nondirectory 1314 (setq fname (substring (file-name-nondirectory
1315 (buffer-file-name)) 1315 (buffer-file-name))
1316 0 -4)) 1316 0 -4))

yatex.org