From: morioka Date: Fri, 13 Mar 1998 15:32:50 +0000 (+0000) Subject: (mime-view-menu-list): Modify menu. X-Git-Tag: semi-1_1_0~102 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=717f37cb5736ce4f8fb546527aa0b5a538bf88b1;p=elisp%2Fsemi.git (mime-view-menu-list): Modify menu. --- diff --git a/mime-view.el b/mime-view.el index 73161fc..feae505 100644 --- a/mime-view.el +++ b/mime-view.el @@ -665,15 +665,15 @@ 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-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-preview-scroll-down-entity) - (scroll-up "Scroll to next content" mime-preview-scroll-up-entity) - (play "Play Content" mime-preview-play-current-entity) - (extract "Extract Content" mime-view-extract-current-entity) - (print "Print" mime-view-print-current-entity) - (x-face "Show X Face" mime-view-display-x-face) + '((up "Move to upper entity" mime-preview-move-to-upper) + (previous "Move to previous entity" mime-preview-move-to-previous) + (next "Move to next entity" mime-preview-move-to-next) + (scroll-down "Scroll-down" mime-preview-scroll-down-entity) + (scroll-up "Scroll-up" mime-preview-scroll-up-entity) + (play "Play current entity" mime-preview-play-current-entity) + (extract "Extract current entity" mime-preview-extract-current-entity) + (print "Print current entity" mime-view-print-current-entity) + (x-face "Show X Face" mime-view-display-x-face) ) "Menu for MIME Viewer")