Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexprc.el @ 436:e78a87bc2c9e dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
current file treated as absolute path(YaTeX-preview-jump-line)
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 08 Jan 2016 08:18:54 +0859
parents 5cce749f9bbb
children 7a9d30752353
comparison
equal deleted inserted replaced
435:8a9ef7c96a0a 436:e78a87bc2c9e
1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2015 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2015 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Thu Oct 1 15:52:50 2015 on firestorm 4 ;;; Last modified Fri Jan 8 08:18:14 2016 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
1067 (widen) 1067 (widen)
1068 (let*((pf (or YaTeX-parent-file 1068 (let*((pf (or YaTeX-parent-file
1069 (save-excursion (YaTeX-visit-main t) (buffer-file-name)))) 1069 (save-excursion (YaTeX-visit-main t) (buffer-file-name))))
1070 (pdir (file-name-directory pf)) 1070 (pdir (file-name-directory pf))
1071 (bnr (substring pf 0 (string-match "\\....$" pf))) 1071 (bnr (substring pf 0 (string-match "\\....$" pf)))
1072 (cf (file-relative-name (buffer-file-name) pdir)) 1072 ;(cf (file-relative-name (buffer-file-name) pdir))
1073 (cf (buffer-file-name)) ;2016-01-08
1073 (buffer (get-buffer-create " *preview-jump-line*")) 1074 (buffer (get-buffer-create " *preview-jump-line*"))
1074 (line (count-lines (point-min) (point-end-of-line))) 1075 (line (count-lines (point-min) (point-end-of-line)))
1075 (previewer (YaTeX-preview-default-previewer)) 1076 (previewer (YaTeX-preview-default-previewer))
1076 (cmd (cond 1077 (cmd (cond
1077 ((string-match "xdvi" previewer) 1078 ((string-match "xdvi" previewer)

yatex.org