comparison yatexprc.el @ 326:d989511a492a dev

Keep YaTeX-parent-file in absolute-path
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 05 Nov 2014 09:09:22 +0900
parents 2561570d7194
children d972598d233b
comparison
equal deleted inserted replaced
325:2561570d7194 326:d989511a492a
1 ;;; yatexprc.el --- YaTeX process handler 1 ;;; yatexprc.el --- YaTeX process handler
2 ;;; 2 ;;;
3 ;;; (c)1993-2013 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2013 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Wed Nov 5 08:28:49 2014 on firestorm 4 ;;; Last modified Wed Nov 5 09:07:25 2014 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Code: 7 ;;; Code:
8 ;(require 'yatex) 8 ;(require 'yatex)
9 (require 'yatexlib) 9 (require 'yatexlib)
1033 (setq YaTeX-parent-file mfa) 1033 (setq YaTeX-parent-file mfa)
1034 ;(YaTeX-switch-to-buffer main-file setbuf) 1034 ;(YaTeX-switch-to-buffer main-file setbuf)
1035 (funcall ff main-file) 1035 (funcall ff main-file)
1036 ) 1036 )
1037 (t (setq main-file (read-file-name "Enter your main text: " nil nil 1)) 1037 (t (setq main-file (read-file-name "Enter your main text: " nil nil 1))
1038 (setq YaTeX-parent-file main-file) 1038 (setq YaTeX-parent-file (expand-file-name main-file))
1039 ; (YaTeX-switch-to-buffer main-file setbuf)) 1039 ; (YaTeX-switch-to-buffer main-file setbuf))
1040 (funcall ff main-file)) 1040 (funcall ff main-file))
1041 ))) 1041 )))
1042 nil) 1042 nil)
1043 1043

yatex.org