1.1 --- a/yatex.el	Wed Jan 03 23:53:56 2018 +0900
     1.2 +++ b/yatex.el	Wed Jan 03 23:56:27 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
     1.5 -;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Tue Jan  2 23:11:09 2018 on firestorm
     1.7 +;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.8 +;;; Last modified Wed Jan  3 23:54:28 2018 on firestorm
     1.9  ;;; $Id$
    1.10  ;;; The latest version of this software is always available at;
    1.11  ;;; https://www.yatex.org/
    1.12 @@ -16,7 +16,7 @@
    1.13  
    1.14  ;;; Code:
    1.15  (require 'yatexlib)
    1.16 -(defconst YaTeX-revision-number "1.80.1"
    1.17 +(defconst YaTeX-revision-number "1.80.2"
    1.18    "Revision number of running yatex.el")
    1.19  
    1.20  ;---------- Local variables ----------
    1.21 @@ -1994,6 +1994,19 @@
    1.22    "*Alist of files' processor vs. its extension;
    1.23  See also the documentation of YaTeX-processed-file-regexp-alist.")
    1.24  
    1.25 +;; Will go to yatexflt.el
    1.26 +(defun YaTeX-filter-goto-source (file other-win)
    1.27 +  "Go to corresponding text source of the graphic file"
    1.28 +  (cond
    1.29 +   ((file-exists-p file)
    1.30 +    (let ((buf (find-file-noselect file)))
    1.31 +      (funcall (cond (other-win 'YaTeX-switch-to-buffer-other-window)
    1.32 +		     ((get-buffer-window buf) 'goto-buffer-window)
    1.33 +		     (t 'YaTeX-switch-to-buffer))
    1.34 +	       buf)
    1.35 +      
    1.36 +  ))))
    1.37 +
    1.38  (defvar YaTeX-file-processor-alist-default
    1.39    (list (cons YaTeX-cmd-tgif ".obj")
    1.40  	(cons YaTeX-cmd-gimp ".xcf")
    1.41 @@ -2004,6 +2017,9 @@
    1.42  	(cons YaTeX-cmd-edit-ai ".ai")
    1.43  	'("dia" . ".dia")
    1.44  	(cons YaTeX-cmd-ooo ".odg")
    1.45 +	(cons 'YaTeX-filter-goto-source ".diag")
    1.46 +	(cons 'YaTeX-filter-goto-source ".dot")
    1.47 +	;; List of target file itself below...
    1.48  	(cons YaTeX-cmd-edit-images ".jpeg")
    1.49  	(cons YaTeX-cmd-edit-images ".jpg")
    1.50  	(cons YaTeX-cmd-edit-images ".png")
    1.51 @@ -2258,12 +2274,7 @@
    1.52  (defun YaTeX-goto-corresponding-*-other-window (arg)
    1.53    "Parse current line and call suitable function."
    1.54    (interactive "P")
    1.55 -  (cond
    1.56 -   ((YaTeX-goto-corresponding-label arg t))
    1.57 -   ;;((YaTeX-goto-corresponding-environment))
    1.58 -   ((YaTeX-goto-corresponding-file t))
    1.59 -   ;;((YaTeX-goto-corresponding-BEGIN-END))
    1.60 -   (t (message "I don't know where to go."))))
    1.61 +  (YaTeX-goto-corresponding-* t))
    1.62  
    1.63  (defun YaTeX-comment-region (alt-prefix)
    1.64    "Comment out region by '%'.

     2.1 --- a/yatexprc.el	Wed Jan 03 23:53:56 2018 +0900
     2.2 +++ b/yatexprc.el	Wed Jan 03 23:56:27 2018 +0900
     2.3 @@ -1,7 +1,7 @@
     2.4  ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
     2.5  ;;; 
     2.6 -;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org]
     2.7 -;;; Last modified Tue Jan  2 23:31:34 2018 on firestorm
     2.8 +;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     2.9 +;;; Last modified Wed Jan  3 23:54:10 2018 on firestorm
    2.10  ;;; $Id$
    2.11  
    2.12  ;;; Code: