Mercurial > hg > xemacs-beta
diff lisp/tm/tm-view.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:18:39 +0200 |
| parents | 0d2f883870bc |
| children | b980b6286996 |
line wrap: on
line diff
--- a/lisp/tm/tm-view.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/tm/tm-view.el Mon Aug 13 09:18:39 2007 +0200 @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) -;; Version: $Revision: 1.2 $ +;; Version: $Revision: 1.3 $ ;; Keywords: mail, news, MIME, multimedia ;; This file is part of tm (Tools for MIME). @@ -42,7 +42,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 1.2 1997/02/15 22:21:30 steve Exp $") + "$Id: tm-view.el,v 1.3 1997/03/08 23:26:58 steve Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -732,8 +732,10 @@ (defun mime-viewer/define-keymap (&optional mother) (let ((mime/viewer-mode-map (if mother (copy-keymap mother) - (make-keymap)))) - (suppress-keymap mime/viewer-mode-map) + (make-keymap) + ))) + (or mother + (suppress-keymap mime/viewer-mode-map)) (define-key mime/viewer-mode-map "u" (function mime-viewer/up-content)) (define-key mime/viewer-mode-map