Mercurial > hgrepos > hgweb.cgi > yatex

changeset 544:ab6c176c676a dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- a/yatex.el	Thu May 31 22:16:59 2018 +0900
+++ b/yatex.el	Sat Jun 02 10:39:58 2018 +0900
@@ -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")
--- a/yatexflt.el	Thu May 31 22:16:59 2018 +0900
+++ b/yatexflt.el	Sat Jun 02 10:39:58 2018 +0900
@@ -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

yatex.org