yatex

changeset 544:ab6c176c676a dev

Move all dot-filter definitions to yatexflt.el
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 02 Jun 2018 10:39:58 +0900
parents b5e987a3e75c
children ea6956f10ce7
files yatex.el yatexflt.el
diffstat 2 files changed, 16 insertions(+), 15 deletions(-) [+]
line diff
     1.1 --- a/yatex.el	Thu May 31 22:16:59 2018 +0900
     1.2 +++ b/yatex.el	Sat Jun 02 10:39:58 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatex.el --- Yet Another tex-mode for emacs //쒹// -*- coding: sjis -*-
     1.5  ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Wed May 30 23:22:15 2018 on firestorm
     1.7 +;;; Last modified Fri Jun  1 08:30:26 2018 on firestorm
     1.8  ;;; $Id$
     1.9  ;;; The latest version of this software is always available at;
    1.10  ;;; https://www.yatex.org/
    1.11 @@ -867,6 +867,9 @@
    1.12  ;;autoload from yatexpkg.el
    1.13  (autoload 'YaTeX-package-auto-usepackage "yatexpkg" "Auto \\usepackage" t)
    1.14  
    1.15 +;;autoload from yatexflt.el
    1.16 +(autoload 'YaTeX-filter-goto-source "yatexflt" "Go to graphic source file" t)
    1.17 +
    1.18  ;;;
    1.19  ;; YaTeX-mode functions
    1.20  ;;;
    1.21 @@ -2027,19 +2030,6 @@
    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")
     2.1 --- a/yatexflt.el	Thu May 31 22:16:59 2018 +0900
     2.2 +++ b/yatexflt.el	Sat Jun 02 10:39:58 2018 +0900
     2.3 @@ -1,7 +1,7 @@
     2.4  ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*-
     2.5  ;;; 
     2.6  ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     2.7 -;;; Last modified Sun Jan 21 16:33:16 2018 on firestorm
     2.8 +;;; Last modified Fri Jun  1 08:28:40 2018 on firestorm
     2.9  ;;; $Id$
    2.10  
    2.11  ;;; Commentary:
    2.12 @@ -85,6 +85,17 @@
    2.13    graph [charset=\"utf-8\"]}"
    2.14       )))
    2.15  
    2.16 +;;;###autoload
    2.17 +(defun YaTeX-filter-goto-source (file other-win)
    2.18 +  "Go to corresponding text source of the graphic file"
    2.19 +  (cond
    2.20 +   ((file-exists-p file)
    2.21 +    (let ((buf (find-file-noselect file)))
    2.22 +      (funcall (cond (other-win 'YaTeX-switch-to-buffer-other-window)
    2.23 +		     ((get-buffer-window buf) 'goto-buffer-window)
    2.24 +		     (t 'YaTeX-switch-to-buffer))
    2.25 +	       buf)))))
    2.26 +
    2.27  (defvar YaTeX-filter-special-env-alist-private nil)
    2.28  (defvar YaTeX-filter-special-env-alist
    2.29    (append YaTeX-filter-special-env-alist-private