Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 4b173ad71786
children 8fc7fe29b841
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; tm-view.el --- interactive MIME viewer for GNU Emacs 1 ;;; tm-view.el --- interactive MIME viewer for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) 6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
7 ;; Version: $Revision: 1.2 $ 7 ;; Version: $Revision: 1.3 $
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
40 40
41 ;;; @ version 41 ;;; @ version
42 ;;; 42 ;;;
43 43
44 (defconst mime-viewer/RCS-ID 44 (defconst mime-viewer/RCS-ID
45 "$Id: tm-view.el,v 1.2 1996/12/22 00:29:43 steve Exp $") 45 "$Id: tm-view.el,v 1.3 1997/02/02 05:06:20 steve Exp $")
46 46
47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) 47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
48 (defconst mime/viewer-version mime-viewer/version) 48 (defconst mime/viewer-version mime-viewer/version)
49 49
50 50
739 (define-key mime/viewer-mode-map 739 (define-key mime/viewer-mode-map
740 "p" (function mime-viewer/previous-content)) 740 "p" (function mime-viewer/previous-content))
741 (define-key mime/viewer-mode-map 741 (define-key mime/viewer-mode-map
742 "n" (function mime-viewer/next-content)) 742 "n" (function mime-viewer/next-content))
743 (define-key mime/viewer-mode-map 743 (define-key mime/viewer-mode-map
744 "\e\t" (function mime-viewer/previous-content))
745 (define-key mime/viewer-mode-map
746 "\t" (function mime-viewer/next-content))
747 (define-key mime/viewer-mode-map
744 " " (function mime-viewer/scroll-up-content)) 748 " " (function mime-viewer/scroll-up-content))
745 (define-key mime/viewer-mode-map 749 (define-key mime/viewer-mode-map
746 "\M- " (function mime-viewer/scroll-down-content)) 750 "\M- " (function mime-viewer/scroll-down-content))
747 (define-key mime/viewer-mode-map 751 (define-key mime/viewer-mode-map
748 "\177" (function mime-viewer/scroll-down-content)) 752 "\177" (function mime-viewer/scroll-down-content))
751 (define-key mime/viewer-mode-map 755 (define-key mime/viewer-mode-map
752 "\C-\M-m" (function mime-viewer/previous-line-content)) 756 "\C-\M-m" (function mime-viewer/previous-line-content))
753 (define-key mime/viewer-mode-map 757 (define-key mime/viewer-mode-map
754 "v" (function mime-viewer/play-content)) 758 "v" (function mime-viewer/play-content))
755 (define-key mime/viewer-mode-map 759 (define-key mime/viewer-mode-map
756 "e" (function mime-viewer/extract-content)) 760 "e" (function mime-viewer/extract-content))
757 (define-key mime/viewer-mode-map 761 (define-key mime/viewer-mode-map
758 "\C-c\C-p" (function mime-viewer/print-content)) 762 "\C-c\C-p" (function mime-viewer/print-content))
759 (define-key mime/viewer-mode-map 763 (define-key mime/viewer-mode-map
760 "x" (function mime-viewer/display-x-face)) 764 "x" (function mime-viewer/display-x-face))
761 (define-key mime/viewer-mode-map 765 (define-key mime/viewer-mode-map
806 810
807 key feature 811 key feature
808 --- ------- 812 --- -------
809 813
810 u Move to upper content 814 u Move to upper content
811 p Move to previous content 815 p or M-TAB Move to previous content
812 n Move to next content 816 n or TAB Move to next content
813 SPC Scroll up or move to next content 817 SPC Scroll up or move to next content
814 M-SPC Scroll down or move to previous content 818 M-SPC or DEL Scroll down or move to previous content
815 DEL Scroll down or move to previous content
816 RET Move to next line 819 RET Move to next line
817 M-RET Move to previous line 820 M-RET Move to previous line
818 v Decode current content as `play mode' 821 v Decode current content as `play mode'
819 e Decode current content as `extract mode' 822 e Decode current content as `extract mode'
820 C-c C-p Decode current content as `print mode' 823 C-c C-p Decode current content as `print mode'