Mercurial > hgrepos > hgweb.cgi > yatex
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 |