1.1 --- a/yatexflt.el	Tue Jan 23 10:44:10 2018 +0900
     1.2 +++ b/yatexflt.el	Sat Jun 02 10:39:58 2018 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*-
     1.5  ;;; 
     1.6  ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sun Jan 21 16:33:16 2018 on firestorm
     1.8 +;;; Last modified Fri Jun  1 08:28:40 2018 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Commentary:
    1.12 @@ -85,6 +85,17 @@
    1.13    graph [charset=\"utf-8\"]}"
    1.14       )))
    1.15  
    1.16 +;;;###autoload
    1.17 +(defun YaTeX-filter-goto-source (file other-win)
    1.18 +  "Go to corresponding text source of the graphic file"
    1.19 +  (cond
    1.20 +   ((file-exists-p file)
    1.21 +    (let ((buf (find-file-noselect file)))
    1.22 +      (funcall (cond (other-win 'YaTeX-switch-to-buffer-other-window)
    1.23 +		     ((get-buffer-window buf) 'goto-buffer-window)
    1.24 +		     (t 'YaTeX-switch-to-buffer))
    1.25 +	       buf)))))
    1.26 +
    1.27  (defvar YaTeX-filter-special-env-alist-private nil)
    1.28  (defvar YaTeX-filter-special-env-alist
    1.29    (append YaTeX-filter-special-env-alist-private