Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-play.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children d95e72db5c07
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
2 2
3 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1995/9/26 (separated from tm-view.el) 6 ;; Created: 1995/9/26 (separated from tm-view.el)
7 ;; Version: $Id: tm-play.el,v 1.1.1.1 1996/12/18 03:55:32 steve Exp $ 7 ;; Version: $Id: tm-play.el,v 1.2 1996/12/22 00:29:41 steve Exp $
8 ;; Keywords: mail, news, MIME, multimedia 8 ;; Keywords: mail, news, MIME, multimedia
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
25 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 (require 'tm-view) 29 (require 'tm-view)
30
31 (defvar mime-viewer/external-progs "/usr/local/share/tm"
32 "*Directory containing tm external methods.")
33
34 (add-to-list 'exec-path mime-viewer/external-progs)
35
36 (let ((paths (parse-colon-path (getenv "PATH"))))
37 (or (member mime-viewer/external-progs paths)
38 (setenv "PATH"
39 (mapconcat (function identity)
40 (append paths (list mime-viewer/external-progs))
41 path-separator))
42 ))
43 30
44 31
45 ;;; @ content decoder 32 ;;; @ content decoder
46 ;;; 33 ;;;
47 34