From 790deb10f60a4b66bec7f64b7e6eaa3de0d8a6ed Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 May 1997 13:16:15 +0000 Subject: [PATCH] (mime-view-define-keymap): fixed problem about [tab], [delete] and [backspace] keys. --- mime-view.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/mime-view.el b/mime-view.el index 47d2d88..6c584fa 100644 --- a/mime-view.el +++ b/mime-view.el @@ -6,7 +6,7 @@ ;; Created: 1994/7/13 ;; Renamed: 1994/8/31 from tm-body.el ;; Renamed: 1997/02/19 from tm-view.el -;; Version: $Revision: 0.90 $ +;; Version: $Revision: 0.91 $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -40,7 +40,7 @@ ;;; (defconst mime-view-RCS-ID - "$Id: mime-view.el,v 0.90 1997-05-27 03:10:23 morioka Exp $") + "$Id: mime-view.el,v 0.91 1997-05-28 13:16:15 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -765,6 +765,12 @@ The compressed face will be piped to this command.") ;; ">" (function end-of-buffer)) (define-key mime-view-mode-map "?" (function describe-mode)) + (define-key mime-view-mode-map + [tab] (function mime-view-move-to-next)) + (define-key mime-view-mode-map + [delete] (function mime-view-scroll-down-entity)) + (define-key mime-view-mode-map + [backspace] (function mime-view-scroll-down-entity)) (if (functionp default) (cond (running-xemacs (set-keymap-default-binding mime-view-mode-map default) -- 1.7.10.4