Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-play.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
2 2
3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,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: 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.5 1997/03/28 02:29:06 steve Exp $ 7 ;; Version: $Id: tm-play.el,v 1.6 1997/04/10 05:55:52 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
421 421
422 422
423 ;;; @ rot13-47 423 ;;; @ rot13-47
424 ;;; 424 ;;;
425 425
426 (unless (boundp 'view-mode-map) 426 (or (boundp 'view-mode-map)
427 (require 'view)) 427 (require 'view)
428 )
428 429
429 (defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map)) 430 (defconst mime-view-text/plain-mode-map (copy-keymap view-mode-map))
430 (define-key mime-view-text/plain-mode-map 431 (define-key mime-view-text/plain-mode-map
431 "q" (function mime-view-text/plain-exit)) 432 "q" (function mime-view-text/plain-exit))
432 433