projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.97.
[elisp/tm.git]
/
tm-latex.el
diff --git
a/tm-latex.el
b/tm-latex.el
index
5440ea4
..
472fbcb
100644
(file)
--- 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>
;;;
;;;
;;; 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.2 1995/01/10 02:01:06 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))
(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"))))
(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
(if (or (<= (buffer-size) 0)
(y-or-n-p "Replace the existing buffer?"))
(progn
@@
-46,3
+46,5
@@
; ("type" . "latex")
; (method . mime/decode-text/latex)
; ))
; ("type" . "latex")
; (method . mime/decode-text/latex)
; ))
+
+(provide 'tm-latex)