From 4ff1a98ae276f87f3b40f4546fcf5b3a37fd0fb9 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 5 Mar 1997 17:34:50 +0000 Subject: [PATCH] `mime-prefix' -> `mime-edit-prefix'. --- mime-edit.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 40e2377..ffe413e 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.60 $ +;; Version: $Revision: 0.61 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.60 1997-03-04 13:03:32 morioka Exp $") + "$Id: mime-edit.el,v 0.61 1997-03-05 17:34:50 morioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -133,8 +133,8 @@ ;;; @ variables ;;; -(defvar mime-prefix "\C-c\C-x" - "*Keymap prefix for MIME commands.") +(defvar mime-edit-prefix "\C-c\C-x" + "*Keymap prefix for MIME-Edit commands.") (defvar mime-ignore-preceding-spaces nil "*Ignore preceding white spaces if non-nil.") @@ -594,7 +594,7 @@ Tspecials means any character that matches with it in header must be quoted.") (setq mime-edit-minor-mime-map (make-sparse-keymap 'mime-edit-minor-mime-map)) (define-key - mime-edit-minor-mime-map mime-prefix mime-edit-mime-map) + mime-edit-minor-mime-map mime-edit-prefix mime-edit-mime-map) )) (add-minor-mode 'mime-edit-mode-flag '((" MIME-Edit " mime-transfer-level-string)) @@ -790,7 +790,7 @@ TABs at the beginning of the line are not a part of the message: --[[audio/basic][base64]]...audio encoded in base64 here... User customizable variables (not documented all of them): - mime-prefix + mime-edit-prefix Specifies a key prefix for MIME minor mode commands. mime-ignore-preceding-spaces @@ -838,8 +838,8 @@ User customizable variables (not documented all of them): (use-local-map (copy-keymap (or (current-local-map) (make-sparse-keymap)))) ) - (if (not (lookup-key (current-local-map) mime-prefix)) - (define-key (current-local-map) mime-prefix mime-edit-mime-map)) + (if (not (lookup-key (current-local-map) mime-edit-prefix)) + (define-key (current-local-map) mime-edit-prefix mime-edit-mime-map)) ;; Set transfer level into mode line ;; -- 1.7.10.4