# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1404656349 -32400
# Node ID f654ef888a4ced2ee6b44fca607a129198fbaeaa
# Parent  b16e6b1cf00bb0a052178bb6676bc60a728ced7d
Set old file name as default value on read-file-name at \include*

diff -r b16e6b1cf00b -r f654ef888a4c yatexadd.el
--- a/yatexadd.el	Sat Nov 23 01:04:05 2013 +0900
+++ b/yatexadd.el	Sun Jul 06 23:19:09 2014 +0900
@@ -1,7 +1,7 @@
 ;;; yatexadd.el --- YaTeX add-in functions
 ;;; yatexadd.el rev.20
 ;;; (c)1991-2013 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Nov 21 15:50:56 2013 on firestorm
+;;; Last modified Sun Jul  6 13:59:09 2014 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -1708,7 +1708,9 @@
     (save-excursion
       (YaTeX-visit-main t)
       (let*((insert-default-directory)
-	    (file (read-file-name (or prompt "Input file: ") "")))
+	    (default (and (boundp 'old) (stringp old) old))
+	    (file (read-file-name (or prompt "Input file: ") ""
+				  default nil default)))
 	(setq file (substring file 0 (string-match "\\.tex$" file))))))))
 
 (fset 'YaTeX::input 'YaTeX::include)