X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-latex.el;h=472fbcb2733d1167f3239f2a1ec5236bb11e09c4;hb=53ab6c426401d04d0d0ce99d6df144187be6ba01;hp=1bdfb28fdd49fd67fa5a365462c295de5b1d142a;hpb=f6b5737ac980aa191b15543d4481f4f5a5697bb9;p=elisp%2Ftm.git

diff --git a/tm-latex.el b/tm-latex.el
index 1bdfb28..472fbcb 100644
--- a/tm-latex.el
+++ b/tm-latex.el
@@ -1,14 +1,14 @@
 ;;;
-;;; tm-latex: tm-view internal decoder for tm-view
+;;; tm-latex: tm-view internal decoder for LaTeX
 ;;;
 ;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/11/11)
 ;;;
 ;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;
-;;; $Id: tm-latex.el,v 1.1 1994/11/29 18:20:07 morioka Exp $
+;;; $Id: tm-latex.el,v 3.0 1995/09/14 15:51:35 morioka Exp $
 ;;;
 
-(provide 'tm-latex)
+(require 'tm-view)
 
 (defun mime/decode-text/latex (beg end cal)
   (let* ((cur-buf (current-buffer))
@@ -16,8 +16,8 @@
 	 (name (or (cdr (assoc "name" cal))
 		   (cdr (assoc "x-name" cal))
 		   (concat (make-temp-name "tm") ".tex"))))
-    (switch-to-buffer mime/preview-buffer)
-    (find-file (expand-file-name name mime/tmp-dir))
+    (switch-to-buffer mime::article/preview-buffer)
+    (funcall mime/find-file-function (expand-file-name name mime/tmp-dir))
     (if (or (<= (buffer-size) 0)
 	    (y-or-n-p "Replace the existing buffer?"))
 	(progn
@@ -41,8 +41,10 @@
 	     (method . mime/decode-text/latex)
 	     ))
 
-(set-atype 'mime/content-decoding-condition
-	   '((type . "application/octet-stream")
-	     ("type" . "latex")
-	     (method . mime/decode-text/latex)
-	     ))
+;(set-atype 'mime/content-decoding-condition
+;	   '((type . "application/octet-stream")
+;	     ("type" . "latex")
+;	     (method . mime/decode-text/latex)
+;	     ))
+
+(provide 'tm-latex)