annotate lisp/term/sun.el @ 106543:3b9052789379

(malayalam-composable-pattern): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Sat, 12 Dec 2009 02:28:05 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17517
8f952e921136 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14170
diff changeset
1 ;;; sun.el --- keybinding for standard default sunterm keys
2140
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
2
64701
34bd8e434dd7 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64651
diff changeset
3 ;; Copyright (C) 1987, 2001, 2002, 2003, 2004,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94671
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
5
2140
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
6 ;; Author: Jeff Peck <peck@sun.com>
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
7 ;; Keywords: terminals
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
8
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
9 ;; This file is part of GNU Emacs.
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
10
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
14 ;; (at your option) any later version.
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
19 ;; GNU General Public License for more details.
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
20
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 5029
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94671
f3ab0c2464f5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
2140
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
24 ;;; Commentary:
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 ;; The function key sequences for the console have been converted for
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 ;; use with function-key-map, but the *tool stuff hasn't been touched.
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28
2140
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
29 ;;; Code:
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 (defun scroll-down-in-place (n)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 (interactive "p")
84795
6aed7b3522e4 * term/w32-win.el (w32-drag-n-drop): Use mapc instead of mapcar.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 84728
diff changeset
33 (forward-line (- n))
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 (scroll-down n))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 (defun scroll-up-in-place (n)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 (interactive "p")
84795
6aed7b3522e4 * term/w32-win.el (w32-drag-n-drop): Use mapc instead of mapcar.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 84728
diff changeset
38 (forward-line n)
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 (scroll-up n))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 (defun kill-region-and-unmark (beg end)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 "Like kill-region, but pops the mark [which equals point, anyway.]"
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 (interactive "r")
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 (kill-region beg end)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (setq this-command 'kill-region-and-unmark)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (set-mark-command t))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (defun rerun-prev-command ()
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 "Repeat Previous-complex-command."
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (interactive)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (eval (nth 0 command-history)))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (defvar grep-arg nil "Default arg for RE-search")
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 (defun grep-arg ()
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 (if (memq last-command '(research-forward research-backward)) grep-arg
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 (let* ((command (car command-history))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 (command-name (symbol-name (car command)))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (search-arg (car (cdr command)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38475
diff changeset
59 (search-command
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 (and command-name (string-match "search" command-name)))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 )
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 (if (and search-command (stringp search-arg)) (setq grep-arg search-arg)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38475
diff changeset
63 (setq search-command this-command
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 grep-arg (read-string "REsearch: " grep-arg)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 this-command search-command)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 grep-arg))))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 (defun research-forward ()
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 "Repeat RE search forward."
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 (interactive)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 (re-search-forward (grep-arg)))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 (defun research-backward ()
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 "Repeat RE search backward."
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 (interactive)
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 (re-search-backward (grep-arg)))
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77
38475
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
78 ;;
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
79 ;; handle sun's extra function keys
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
80 ;; this version for those who run with standard .ttyswrc and no emacstool
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
81 ;;
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38475
diff changeset
82 ;; sunview picks up expose and open on the way UP,
38475
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
83 ;; so we ignore them on the way down
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
84 ;;
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
85548
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
86 (defvar sun-raw-prefix
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
87 (let ((map (make-sparse-keymap)))
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
88 (define-key map "210z" [r3])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
89 (define-key map "213z" [r6])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
90 (define-key map "214z" [r7])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
91 (define-key map "216z" [r9])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
92 (define-key map "218z" [r11])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
93 (define-key map "220z" [r13])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
94 (define-key map "222z" [r15])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
95 (define-key map "193z" [redo])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
96 (define-key map "194z" [props])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
97 (define-key map "195z" [undo])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
98 ;; (define-key map "196z" 'ignore) ; Expose-down
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
99 ;; (define-key map "197z" [put])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
100 ;; (define-key map "198z" 'ignore) ; Open-down
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
101 ;; (define-key map "199z" [get])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
102 (define-key map "200z" [find])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
103 ;; (define-key map "201z" 'kill-region-and-unmark) ; Delete
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
104 (define-key map "224z" [f1])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
105 (define-key map "225z" [f2])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
106 (define-key map "226z" [f3])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
107 (define-key map "227z" [f4])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
108 (define-key map "228z" [f5])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
109 (define-key map "229z" [f6])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
110 (define-key map "230z" [f7])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
111 (define-key map "231z" [f8])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
112 (define-key map "232z" [f9])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
113 (define-key map "233z" [f10])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
114 (define-key map "234z" [f11])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
115 (define-key map "235z" [f12])
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
116 (define-key map "A" [up]) ; R8
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
117 (define-key map "B" [down]) ; R14
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
118 (define-key map "C" [right]) ; R12
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
119 (define-key map "D" [left]) ; R10
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
120 map))
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
38475
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
122 ;; Since .emacs gets loaded before this file, a hook is supplied
916f157c7118 (ignore-key, sun-esc-bracket, meta-flag): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 17517
diff changeset
123 ;; for you to put your own bindings in.
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124
498
b8f4bc96f789 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 466
diff changeset
125 (defvar sun-raw-prefix-hooks nil
b8f4bc96f789 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 466
diff changeset
126 "List of forms to evaluate after setting sun-raw-prefix.")
466
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128
a5749ca987d0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
64651
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
130 (defun terminal-init-sun ()
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
131 "Terminal initialization function for sun."
85548
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
132 (define-key input-decode-map "\e[" sun-raw-prefix)
64651
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
133
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
134 (global-set-key [r3] 'backward-page)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
135 (global-set-key [r6] 'forward-page)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
136 (global-set-key [r7] 'beginning-of-buffer)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
137 (global-set-key [r9] 'scroll-down)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
138 (global-set-key [r11] 'recenter)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
139 (global-set-key [r13] 'end-of-buffer)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
140 (global-set-key [r15] 'scroll-up)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
141 (global-set-key [redo] 'redraw-display) ;FIXME: collides with default.
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
142 (global-set-key [props] 'list-buffers)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
143 (global-set-key [put] 'sun-select-region)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
144 (global-set-key [get] 'sun-yank-selection)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
145 (global-set-key [find] 'exchange-point-and-mark)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
146 (global-set-key [f3] 'scroll-down-in-place)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
147 (global-set-key [f4] 'scroll-up-in-place)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
148 (global-set-key [f6] 'shrink-window)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
149 (global-set-key [f7] 'enlarge-window)
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
150
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
151 (when sun-raw-prefix-hooks
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
152 (message "sun-raw-prefix-hooks is obsolete! Use term-setup-hook instead!")
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
153 (let ((hooks sun-raw-prefix-hooks))
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
154 (while hooks
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
155 (eval (car hooks))
84728
04f556b17d19 Remove emacstool-related code.
Glenn Morris <rgm@gnu.org>
parents: 83648
diff changeset
156 (setq hooks (cdr hooks))))))
64651
af1c58687bdd * term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents: 64084
diff changeset
157
85548
a91afd109e55 (sun-raw-prefix): Fill as part of declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84795
diff changeset
158 ;; arch-tag: db761d47-fd7d-42b4-aae1-04fa116b6ba6
2140
c049f2ca31f6 Added headers, removed function-key bindings.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 498
diff changeset
159 ;;; sun.el ends here