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