Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5d1825c6
Commit
5d1825c6
authored
Jan 12, 2003
by
Andreas Schwab
Browse files
(sh-mode-map): Use command remapping instead of
substitute-key-definition.
parent
8c4d9806
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
15 deletions
+9
-15
lisp/progmodes/sh-script.el
lisp/progmodes/sh-script.el
+9
-15
No files found.
lisp/progmodes/sh-script.el
View file @
5d1825c6
;;; 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 @@ the car and cdr are the same symbol.")
(
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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment