From: ueno <ueno>
Date: Tue, 2 Oct 2001 03:15:16 +0000 (+0000)
Subject: * mime-view.el: Add `mime-view-maybe-inherit-widget-keymap' to
X-Git-Tag: emiko-1_14_1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=385e1484543e78c54e34566c08ba8f6f295cb053;p=elisp%2Fsemi.git

* mime-view.el: Add `mime-view-maybe-inherit-widget-keymap' to
`mime-view-mode-map' instead of `mime-view-define-keymap-hook'.
[cf. <emacs-mime-ja:950>]
---

diff --git a/mime-view.el b/mime-view.el
index b6ca861..4cedeff 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1221,7 +1221,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
   (when (boundp 'widget-keymap)
     (set-keymap-parent (current-local-map) widget-keymap)))
 
-(add-hook 'mime-view-define-keymap-hook 'mime-view-maybe-inherit-widget-keymap)
+(add-hook 'mime-view-mode-hook 'mime-view-maybe-inherit-widget-keymap)
 	  
 (defun mime-view-define-keymap (&optional default)
   (let ((mime-view-mode-map (if (keymapp default)