diff --git a/yatex.el b/yatex.el index 4bb8941..ecfcedf 100644 --- a/yatex.el +++ b/yatex.el @@ -1,6 +1,6 @@ ;;; yatex.el --- Yet Another tex-mode for emacs //�쒹// -*- coding: sjis -*- ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed May 30 23:22:15 2018 on firestorm +;;; Last modified Fri Jun 1 08:30:26 2018 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; https://www.yatex.org/ @@ -867,6 +867,9 @@ ;;autoload from yatexpkg.el (autoload 'YaTeX-package-auto-usepackage "yatexpkg" "Auto \\usepackage" t) +;;autoload from yatexflt.el +(autoload 'YaTeX-filter-goto-source "yatexflt" "Go to graphic source file" t) + ;;; ;; YaTeX-mode functions ;;; @@ -2027,19 +2030,6 @@ "*Alist of files' processor vs. its extension; See also the documentation of YaTeX-processed-file-regexp-alist.") -;; Will go to yatexflt.el -(defun YaTeX-filter-goto-source (file other-win) - "Go to corresponding text source of the graphic file" - (cond - ((file-exists-p file) - (let ((buf (find-file-noselect file))) - (funcall (cond (other-win 'YaTeX-switch-to-buffer-other-window) - ((get-buffer-window buf) 'goto-buffer-window) - (t 'YaTeX-switch-to-buffer)) - buf) - - )))) - (defvar YaTeX-file-processor-alist-default (list (cons YaTeX-cmd-tgif ".obj") (cons YaTeX-cmd-gimp ".xcf") diff --git a/yatexflt.el b/yatexflt.el index 97b3e5b..5c28a9e 100644 --- a/yatexflt.el +++ b/yatexflt.el @@ -1,7 +1,7 @@ ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*- ;;; ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Sun Jan 21 16:33:16 2018 on firestorm +;;; Last modified Fri Jun 1 08:28:40 2018 on firestorm ;;; $Id$ ;;; Commentary: @@ -85,6 +85,17 @@ graph [charset=\"utf-8\"]}" ))) +;;;###autoload +(defun YaTeX-filter-goto-source (file other-win) + "Go to corresponding text source of the graphic file" + (cond + ((file-exists-p file) + (let ((buf (find-file-noselect file))) + (funcall (cond (other-win 'YaTeX-switch-to-buffer-other-window) + ((get-buffer-window buf) 'goto-buffer-window) + (t 'YaTeX-switch-to-buffer)) + buf))))) + (defvar YaTeX-filter-special-env-alist-private nil) (defvar YaTeX-filter-special-env-alist (append YaTeX-filter-special-env-alist-private