Mercurial > emacs
changeset 49176:56966d83f3a5
(sh-mode-map): Use command remapping instead of
substitute-key-definition.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 12 Jan 2003 20:51:12 +0000 |
| parents | 97abde229069 |
| children | f47ff7e8f5f5 |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 9 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el Sun Jan 12 20:50:32 2003 +0000 +++ b/lisp/progmodes/sh-script.el Sun Jan 12 20:51:12 2003 +0000 @@ -1,6 +1,6 @@ ;;; sh-script.el --- shell-script editing commands for Emacs -;; Copyright (C) 1993, 94, 95, 96, 97, 1999, 2001 +;; Copyright (C) 1993, 94, 95, 96, 97, 1999, 2001, 2003 ;; Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer <occitan@esperanto.org> @@ -443,21 +443,15 @@ (define-key map "`" 'skeleton-pair-insert-maybe) (define-key map "\"" 'skeleton-pair-insert-maybe) - (substitute-key-definition 'complete-tag 'comint-dynamic-complete - map (current-global-map)) - (substitute-key-definition 'newline-and-indent 'sh-newline-and-indent - map (current-global-map)) - (substitute-key-definition 'delete-backward-char - 'backward-delete-char-untabify - map (current-global-map)) + (define-key map [remap complete-tag] 'comint-dynamic-complete) + (define-key map [remap newline-and-indent] 'sh-newline-and-indent) + (define-key map [remap delete-backward-char] + 'backward-delete-char-untabify) (define-key map "\C-c:" 'sh-set-shell) - (substitute-key-definition 'beginning-of-defun - 'sh-beginning-of-compound-command - map (current-global-map)) - (substitute-key-definition 'backward-sentence 'sh-beginning-of-command - map (current-global-map)) - (substitute-key-definition 'forward-sentence 'sh-end-of-command - map (current-global-map)) + (define-key map [remap beginning-of-defun] + 'sh-beginning-of-compound-command) + (define-key map [remap backward-sentence] 'sh-beginning-of-command) + (define-key map [remap forward-sentence] 'sh-end-of-command) (define-key map [menu-bar insert] (cons "Insert" menu-map)) (define-key menu-map [sh-while] '("While Loop" . sh-while)) (define-key menu-map [sh-until] '("Until Loop" . sh-until))