From 199e09ef7ba42fd37b1d6e9c7ccdb335a3fbb6bc Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 15:39:07 +0000 Subject: [PATCH] Rename `mime-view-quit' -> `mime-preview-quit'. --- mime-view.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index b00bf55..dbdff13 100644 --- a/mime-view.el +++ b/mime-view.el @@ -731,7 +731,7 @@ The compressed face will be piped to this command.") (define-key mime-view-mode-map "a" (function mime-preview-follow-current-entity)) (define-key mime-view-mode-map - "q" (function mime-view-quit)) + "q" (function mime-preview-quit)) (define-key mime-view-mode-map "h" (function mime-view-show-summary)) (define-key mime-view-mode-map @@ -1031,7 +1031,7 @@ It calls following-method selected from variable (defun mime-preview-move-to-upper () "Move to upper entity. -If there is no upper entity, call function `mime-view-quit'." +If there is no upper entity, call function `mime-preview-quit'." (interactive) (let (cinfo) (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo))) @@ -1049,7 +1049,7 @@ If there is no upper entity, call function `mime-view-quit'." (throw 'tag t) ) ) - (mime-view-quit) + (mime-preview-quit) )))) (defun mime-preview-move-to-previous () @@ -1154,7 +1154,7 @@ If reached to (point-min), it calls function registered in variable ;;; @@ quitting ;;; -(defun mime-view-quit () +(defun mime-preview-quit () "Quit from MIME-View buffer. It calls function registered in variable `mime-view-quitting-method-alist'." -- 1.7.10.4