yatex

changeset 321:f654ef888a4c dev

find changesets by author, revision, files, or words in the commit message
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)