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
141e63d5
Commit
141e63d5
authored
Jan 15, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
dbe38b32
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
28 additions
and
28 deletions
+28
-28
lisp/term/sun.el
lisp/term/sun.el
+28
-28
No files found.
lisp/term/sun.el
View file @
141e63d5
...
...
@@ -94,33 +94,33 @@
(
defvar
sun-esc-bracket
nil
"*If non-nil, rebind ESC [ as prefix for Sun function keys."
)
(
define-prefix-command
'sun-raw-prefix
'sun-raw-map
)
(
define-prefix-command
'sun-raw-prefix
)
(
define-key
function-key-map
"\e["
'sun-raw-prefix
)
(
define-key
sun-raw-
map
"210z"
[r3]
)
(
define-key
sun-raw-
map
"213z"
[r6]
)
(
define-key
sun-raw-
map
"214z"
[r7]
)
(
define-key
sun-raw-
map
"216z"
[r9]
)
(
define-key
sun-raw-
map
"218z"
[r11]
)
(
define-key
sun-raw-
map
"220z"
[r13]
)
(
define-key
sun-raw-
map
"222z"
[r15]
)
(
define-key
sun-raw-
map
"193z"
[again]
)
(
define-key
sun-raw-
map
"194z"
[props]
)
(
define-key
sun-raw-
map
"195z"
[undo]
)
; (define-key sun-raw-
map
"196z" 'ignore-key) ; Expose-down
; (define-key sun-raw-
map
"197z" [put])
; (define-key sun-raw-
map
"198z" 'ignore-key) ; Open-down
; (define-key sun-raw-
map
"199z" [get])
(
define-key
sun-raw-
map
"200z"
[find]
)
; (define-key sun-raw-
map
"201z" 'kill-region-and-unmark) ; Delete
(
define-key
sun-raw-
map
"226z"
[t3]
)
(
define-key
sun-raw-
map
"227z"
[t4]
)
(
define-key
sun-raw-
map
"229z"
[t6]
)
(
define-key
sun-raw-
map
"230z"
[t7]
)
(
define-key
sun-raw-
map
"A"
[up]
)
; R8
(
define-key
sun-raw-
map
"B"
[down]
)
; R14
(
define-key
sun-raw-
map
"C"
[right]
)
; R12
(
define-key
sun-raw-
map
"D"
[left]
)
; R10
(
define-key
sun-raw-
prefix
"210z"
[r3]
)
(
define-key
sun-raw-
prefix
"213z"
[r6]
)
(
define-key
sun-raw-
prefix
"214z"
[r7]
)
(
define-key
sun-raw-
prefix
"216z"
[r9]
)
(
define-key
sun-raw-
prefix
"218z"
[r11]
)
(
define-key
sun-raw-
prefix
"220z"
[r13]
)
(
define-key
sun-raw-
prefix
"222z"
[r15]
)
(
define-key
sun-raw-
prefix
"193z"
[again]
)
(
define-key
sun-raw-
prefix
"194z"
[props]
)
(
define-key
sun-raw-
prefix
"195z"
[undo]
)
; (define-key sun-raw-
prefix
"196z" 'ignore-key) ; Expose-down
; (define-key sun-raw-
prefix
"197z" [put])
; (define-key sun-raw-
prefix
"198z" 'ignore-key) ; Open-down
; (define-key sun-raw-
prefix
"199z" [get])
(
define-key
sun-raw-
prefix
"200z"
[find]
)
; (define-key sun-raw-
prefix
"201z" 'kill-region-and-unmark) ; Delete
(
define-key
sun-raw-
prefix
"226z"
[t3]
)
(
define-key
sun-raw-
prefix
"227z"
[t4]
)
(
define-key
sun-raw-
prefix
"229z"
[t6]
)
(
define-key
sun-raw-
prefix
"230z"
[t7]
)
(
define-key
sun-raw-
prefix
"A"
[up]
)
; R8
(
define-key
sun-raw-
prefix
"B"
[down]
)
; R14
(
define-key
sun-raw-
prefix
"C"
[right]
)
; R12
(
define-key
sun-raw-
prefix
"D"
[left]
)
; R10
(
global-set-key
[r3]
'backward-page
)
(
global-set-key
[r6]
'forward-page
)
...
...
@@ -146,10 +146,10 @@
;;; Since .emacs gets loaded before this file, a hook is supplied
;;; for you to put your own bindings in.
(
defvar
sun-raw-
map
-hooks
nil
"List of forms to evaluate after setting sun-raw-
map
."
)
(
defvar
sun-raw-
prefix
-hooks
nil
"List of forms to evaluate after setting sun-raw-
prefix
."
)
(
let
((
hooks
sun-raw-
map
-hooks
))
(
let
((
hooks
sun-raw-
prefix
-hooks
))
(
while
hooks
(
eval
(
car
hooks
))
(
setq
hooks
(
cdr
hooks
))
...
...
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