yatex
changeset 321:f654ef888a4c dev
Set old file name as default value on read-file-name at \include*
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 06 Jul 2014 23:19:09 +0900 |
parents | b16e6b1cf00b |
children | c456fd55013e |
files | yatexadd.el |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line diff
1.1 --- a/yatexadd.el Sat Nov 23 01:04:05 2013 +0900 1.2 +++ b/yatexadd.el Sun Jul 06 23:19:09 2014 +0900 1.3 @@ -1,7 +1,7 @@ 1.4 ;;; yatexadd.el --- YaTeX add-in functions 1.5 ;;; yatexadd.el rev.20 1.6 ;;; (c)1991-2013 by HIROSE Yuuji.[yuuji@yatex.org] 1.7 -;;; Last modified Thu Nov 21 15:50:56 2013 on firestorm 1.8 +;;; Last modified Sun Jul 6 13:59:09 2014 on firestorm 1.9 ;;; $Id$ 1.10 1.11 ;;; Code: 1.12 @@ -1708,7 +1708,9 @@ 1.13 (save-excursion 1.14 (YaTeX-visit-main t) 1.15 (let*((insert-default-directory) 1.16 - (file (read-file-name (or prompt "Input file: ") ""))) 1.17 + (default (and (boundp 'old) (stringp old) old)) 1.18 + (file (read-file-name (or prompt "Input file: ") "" 1.19 + default nil default))) 1.20 (setq file (substring file 0 (string-match "\\.tex$" file)))))))) 1.21 1.22 (fset 'YaTeX::input 'YaTeX::include)