From: morioka <morioka>
Date: Fri, 13 Mar 1998 15:07:50 +0000 (+0000)
Subject: Rename `mime-view-move-to-' -> `mime-preview-move-to-'.
X-Git-Tag: semi-1_1_0~112
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9328a7bbf7c5b7a824e9d668f5e353ca61b149cb;p=elisp%2Fsemi.git

Rename `mime-view-move-to-' -> `mime-preview-move-to-'.
---

diff --git a/mime-view.el b/mime-view.el
index 56f3193..784bacd 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -665,9 +665,9 @@ The compressed face will be piped to this command.")
 
 (defconst mime-view-menu-title "MIME-View")
 (defconst mime-view-menu-list
-  '((up		 "Move to upper content"      mime-view-move-to-upper)
-    (previous	 "Move to previous content"   mime-view-move-to-previous)
-    (next	 "Move to next content"	      mime-view-move-to-next)
+  '((up		 "Move to upper content"      mime-preview-move-to-upper)
+    (previous	 "Move to previous content"   mime-preview-move-to-previous)
+    (next	 "Move to next content"	      mime-preview-move-to-next)
     (scroll-down "Scroll to previous content" mime-view-scroll-down-entity)
     (scroll-up	 "Scroll to next content"     mime-view-scroll-up-entity)
     (play	 "Play Content"               mime-view-play-current-entity)
@@ -703,15 +703,15 @@ The compressed face will be piped to this command.")
 			      (make-sparse-keymap)
 			      )))
     (define-key mime-view-mode-map
-      "u"        (function mime-view-move-to-upper))
+      "u"        (function mime-preview-move-to-upper))
     (define-key mime-view-mode-map
-      "p"        (function mime-view-move-to-previous))
+      "p"        (function mime-preview-move-to-previous))
     (define-key mime-view-mode-map
-      "n"        (function mime-view-move-to-next))
+      "n"        (function mime-preview-move-to-next))
     (define-key mime-view-mode-map
-      "\e\t"     (function mime-view-move-to-previous))
+      "\e\t"     (function mime-preview-move-to-previous))
     (define-key mime-view-mode-map
-      "\t"       (function mime-view-move-to-next))
+      "\t"       (function mime-preview-move-to-next))
     (define-key mime-view-mode-map
       " "        (function mime-view-scroll-up-entity))
     (define-key mime-view-mode-map
@@ -743,7 +743,7 @@ The compressed face will be piped to this command.")
     (define-key mime-view-mode-map
       "?"        (function describe-mode))
     (define-key mime-view-mode-map
-      [tab] (function mime-view-move-to-next))
+      [tab] (function mime-preview-move-to-next))
     (define-key mime-view-mode-map
       [delete] (function mime-view-scroll-down-entity))
     (define-key mime-view-mode-map
@@ -1028,7 +1028,7 @@ It calls following-method selected from variable
 ;;; @@ moving
 ;;;
 
-(defun mime-view-move-to-upper ()
+(defun mime-preview-move-to-upper ()
   "Move to upper entity.
 If there is no upper entity, call function `mime-view-quit'."
   (interactive)
@@ -1051,7 +1051,7 @@ If there is no upper entity, call function `mime-view-quit'."
 	(mime-view-quit)
 	))))
 
-(defun mime-view-move-to-previous ()
+(defun mime-preview-move-to-previous ()
   "Move to previous entity.
 If there is no previous entity, it calls function registered in
 variable `mime-view-over-to-previous-method-alist'."
@@ -1069,7 +1069,7 @@ variable `mime-view-over-to-previous-method-alist'."
 	  ))
       )))
 
-(defun mime-view-move-to-next ()
+(defun mime-preview-move-to-next ()
   "Move to next entity.
 If there is no previous entity, it calls function registered in
 variable `mime-view-over-to-next-method-alist'."