From: Andreas Schwab <schwab@suse.de>
Date: Sun, 12 Jan 2003 20:46:08 +0000 (+0000)
Subject: (emerge-setup-fixed-keymaps): Use command remapping instead of
X-Git-Tag: ttn-vms-21-2-B4~11726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96473b342d379f6a7c69b82d0c443d223cd7f817;p=emacs.git

(emerge-setup-fixed-keymaps): Use command remapping instead of
substitute-key-definition.
---

diff --git a/lisp/emerge.el b/lisp/emerge.el
index e08e566ee2a..2fb47ee8ab7 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -400,10 +400,8 @@ Must be set before Emerge is loaded."
   ;; Allow emerge-fast-keymap to be referenced indirectly
   (fset 'emerge-fast-keymap emerge-fast-keymap)
   ;; Suppress write-file and save-buffer
-  (substitute-key-definition 'write-file 'emerge-query-write-file
-			     emerge-fast-keymap (current-global-map))
-  (substitute-key-definition 'save-buffer 'emerge-query-save-buffer
-			     emerge-fast-keymap (current-global-map))
+  (define-key emerge-fast-keymap [remap write-file] 'emerge-query-write-file)
+  (define-key emerge-fast-keymap [remap save-buffer] 'emerge-query-save-buffer)
 
   (define-key emerge-basic-keymap [menu-bar] (make-sparse-keymap))
 
@@ -1432,10 +1430,8 @@ Otherwise, the A or B file present is copied to the output file."
   (substitute-key-definition 'save-buffer
 			     'emerge-query-save-buffer
 			     emerge-edit-keymap)
-  (substitute-key-definition 'write-file 'emerge-query-write-file
-			     emerge-edit-keymap (current-global-map))
-  (substitute-key-definition 'save-buffer 'emerge-query-save-buffer
-			     emerge-edit-keymap (current-global-map))
+  (define-key emerge-edit-keymap [remap write-file] 'emerge-query-write-file)
+  (define-key emerge-edit-keymap [remap save-buffer] 'emerge-query-save-buffer)
   (use-local-map emerge-fast-keymap)
   (setq emerge-edit-mode nil)
   (setq emerge-fast-mode t))