| 1 | ;;; sun.el --- keybinding for standard default sunterm keys |
| 2 | |
| 3 | ;; Copyright (C) 1987 Free Software Foundation, Inc. |
| 4 | |
| 5 | ;; Author: Jeff Peck <peck@sun.com> |
| 6 | ;; Keywords: terminals |
| 7 | |
| 8 | ;; This file is part of GNU Emacs. |
| 9 | |
| 10 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 11 | ;; it under the terms of the GNU General Public License as published by |
| 12 | ;; the Free Software Foundation; either version 2, or (at your option) |
| 13 | ;; any later version. |
| 14 | |
| 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 18 | ;; GNU General Public License for more details. |
| 19 | |
| 20 | ;; You should have received a copy of the GNU General Public License |
| 21 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
| 22 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 23 | ;; Boston, MA 02111-1307, USA. |
| 24 | |
| 25 | ;;; Commentary: |
| 26 | |
| 27 | ;; The function key sequences for the console have been converted for |
| 28 | ;; use with function-key-map, but the *tool stuff hasn't been touched. |
| 29 | |
| 30 | ;;; Code: |
| 31 | |
| 32 | (defun scroll-down-in-place (n) |
| 33 | (interactive "p") |
| 34 | (previous-line n) |
| 35 | (scroll-down n)) |
| 36 | |
| 37 | (defun scroll-up-in-place (n) |
| 38 | (interactive "p") |
| 39 | (next-line n) |
| 40 | (scroll-up n)) |
| 41 | |
| 42 | (defun kill-region-and-unmark (beg end) |
| 43 | "Like kill-region, but pops the mark [which equals point, anyway.]" |
| 44 | (interactive "r") |
| 45 | (kill-region beg end) |
| 46 | (setq this-command 'kill-region-and-unmark) |
| 47 | (set-mark-command t)) |
| 48 | |
| 49 | (defun select-previous-complex-command () |
| 50 | "Select Previous-complex-command" |
| 51 | (interactive) |
| 52 | (if (zerop (minibuffer-depth)) |
| 53 | (repeat-complex-command 1) |
| 54 | ;; FIXME: this function does not seem to exist. -stef'01 |
| 55 | (previous-complex-command 1))) |
| 56 | |
| 57 | (defun rerun-prev-command () |
| 58 | "Repeat Previous-complex-command." |
| 59 | (interactive) |
| 60 | (eval (nth 0 command-history))) |
| 61 | |
| 62 | (defvar grep-arg nil "Default arg for RE-search") |
| 63 | (defun grep-arg () |
| 64 | (if (memq last-command '(research-forward research-backward)) grep-arg |
| 65 | (let* ((command (car command-history)) |
| 66 | (command-name (symbol-name (car command))) |
| 67 | (search-arg (car (cdr command))) |
| 68 | (search-command |
| 69 | (and command-name (string-match "search" command-name))) |
| 70 | ) |
| 71 | (if (and search-command (stringp search-arg)) (setq grep-arg search-arg) |
| 72 | (setq search-command this-command |
| 73 | grep-arg (read-string "REsearch: " grep-arg) |
| 74 | this-command search-command) |
| 75 | grep-arg)))) |
| 76 | |
| 77 | (defun research-forward () |
| 78 | "Repeat RE search forward." |
| 79 | (interactive) |
| 80 | (re-search-forward (grep-arg))) |
| 81 | |
| 82 | (defun research-backward () |
| 83 | "Repeat RE search backward." |
| 84 | (interactive) |
| 85 | (re-search-backward (grep-arg))) |
| 86 | \f |
| 87 | ;; |
| 88 | ;; handle sun's extra function keys |
| 89 | ;; this version for those who run with standard .ttyswrc and no emacstool |
| 90 | ;; |
| 91 | ;; sunview picks up expose and open on the way UP, |
| 92 | ;; so we ignore them on the way down |
| 93 | ;; |
| 94 | |
| 95 | (defvar sun-raw-prefix (make-sparse-keymap)) |
| 96 | (define-key function-key-map "\e[" sun-raw-prefix) |
| 97 | |
| 98 | (define-key sun-raw-prefix "210z" [r3]) |
| 99 | (define-key sun-raw-prefix "213z" [r6]) |
| 100 | (define-key sun-raw-prefix "214z" [r7]) |
| 101 | (define-key sun-raw-prefix "216z" [r9]) |
| 102 | (define-key sun-raw-prefix "218z" [r11]) |
| 103 | (define-key sun-raw-prefix "220z" [r13]) |
| 104 | (define-key sun-raw-prefix "222z" [r15]) |
| 105 | (define-key sun-raw-prefix "193z" [redo]) |
| 106 | (define-key sun-raw-prefix "194z" [props]) |
| 107 | (define-key sun-raw-prefix "195z" [undo]) |
| 108 | ;; (define-key sun-raw-prefix "196z" 'ignore) ; Expose-down |
| 109 | ;; (define-key sun-raw-prefix "197z" [put]) |
| 110 | ;; (define-key sun-raw-prefix "198z" 'ignore) ; Open-down |
| 111 | ;; (define-key sun-raw-prefix "199z" [get]) |
| 112 | (define-key sun-raw-prefix "200z" [find]) |
| 113 | ;; (define-key sun-raw-prefix "201z" 'kill-region-and-unmark) ; Delete |
| 114 | (define-key sun-raw-prefix "224z" [f1]) |
| 115 | (define-key sun-raw-prefix "225z" [f2]) |
| 116 | (define-key sun-raw-prefix "226z" [f3]) |
| 117 | (define-key sun-raw-prefix "227z" [f4]) |
| 118 | (define-key sun-raw-prefix "228z" [f5]) |
| 119 | (define-key sun-raw-prefix "229z" [f6]) |
| 120 | (define-key sun-raw-prefix "230z" [f7]) |
| 121 | (define-key sun-raw-prefix "231z" [f8]) |
| 122 | (define-key sun-raw-prefix "232z" [f9]) |
| 123 | (define-key sun-raw-prefix "233z" [f10]) |
| 124 | (define-key sun-raw-prefix "234z" [f11]) |
| 125 | (define-key sun-raw-prefix "235z" [f12]) |
| 126 | (define-key sun-raw-prefix "A" [up]) ; R8 |
| 127 | (define-key sun-raw-prefix "B" [down]) ; R14 |
| 128 | (define-key sun-raw-prefix "C" [right]) ; R12 |
| 129 | (define-key sun-raw-prefix "D" [left]) ; R10 |
| 130 | |
| 131 | (global-set-key [r3] 'backward-page) |
| 132 | (global-set-key [r6] 'forward-page) |
| 133 | (global-set-key [r7] 'beginning-of-buffer) |
| 134 | (global-set-key [r9] 'scroll-down) |
| 135 | (global-set-key [r11] 'recenter) |
| 136 | (global-set-key [r13] 'end-of-buffer) |
| 137 | (global-set-key [r15] 'scroll-up) |
| 138 | (global-set-key [redo] 'redraw-display) ;FIXME: collides with default. |
| 139 | (global-set-key [props] 'list-buffers) |
| 140 | (global-set-key [put] 'sun-select-region) |
| 141 | (global-set-key [get] 'sun-yank-selection) |
| 142 | (global-set-key [find] 'exchange-point-and-mark) |
| 143 | (global-set-key [f3] 'scroll-down-in-place) |
| 144 | (global-set-key [f4] 'scroll-up-in-place) |
| 145 | (global-set-key [f6] 'shrink-window) |
| 146 | (global-set-key [f7] 'enlarge-window) |
| 147 | |
| 148 | |
| 149 | ;; Since .emacs gets loaded before this file, a hook is supplied |
| 150 | ;; for you to put your own bindings in. |
| 151 | |
| 152 | (defvar sun-raw-prefix-hooks nil |
| 153 | "List of forms to evaluate after setting sun-raw-prefix.") |
| 154 | |
| 155 | (when sun-raw-prefix-hooks |
| 156 | (message "sun-raw-prefix-hooks is obsolete! Use term-setup-hook instead!") |
| 157 | (let ((hooks sun-raw-prefix-hooks)) |
| 158 | (while hooks |
| 159 | (eval (car hooks)) |
| 160 | (setq hooks (cdr hooks))))) |
| 161 | |
| 162 | \f |
| 163 | ;;; This section adds definitions for the emacstool users |
| 164 | ;; emacstool event filter converts function keys to C-x*{c}{lrt} |
| 165 | ;; |
| 166 | ;; for example the Open key (L7) would be encoded as "\C-x*gl" |
| 167 | ;; the control, meta, and shift keys modify the character {lrt} |
| 168 | ;; note that (unshifted) C-l is ",", C-r is "2", and C-t is "4" |
| 169 | ;; |
| 170 | ;; {c} is [a-j] for LEFT, [a-i] for TOP, [a-o] for RIGHT. |
| 171 | ;; A higher level insists on encoding {h,j,l,n}{r} (the arrow keys) |
| 172 | ;; as ANSI escape sequences. Use the shell command |
| 173 | ;; % setkeys noarrows |
| 174 | ;; if you want these to come through for emacstool. |
| 175 | ;; |
| 176 | ;; If you are not using EmacsTool, |
| 177 | ;; you can also use this by creating a .ttyswrc file to do the conversion. |
| 178 | ;; but it won't include the CONTROL, META, or SHIFT keys! |
| 179 | ;; |
| 180 | ;; Important to define SHIFTed sequence before matching unshifted sequence. |
| 181 | ;; (talk about bletcherous old uppercase terminal conventions!*$#@&%*&#$%) |
| 182 | ;; this is worse than C-S/C-Q flow control anyday! |
| 183 | ;; Do *YOU* run in capslock mode? |
| 184 | ;; |
| 185 | |
| 186 | ;; Note: al, el and gl are trapped by EmacsTool, so they never make it here. |
| 187 | |
| 188 | (defvar suntool-map (make-sparse-keymap) |
| 189 | "*Keymap for Emacstool bindings.") |
| 190 | |
| 191 | (define-key suntool-map "gr" 'beginning-of-buffer) ; r7 |
| 192 | (define-key suntool-map "iR" 'backward-page) ; R9 |
| 193 | (define-key suntool-map "ir" 'scroll-down) ; r9 |
| 194 | (define-key suntool-map "kr" 'recenter) ; r11 |
| 195 | (define-key suntool-map "mr" 'end-of-buffer) ; r13 |
| 196 | (define-key suntool-map "oR" 'forward-page) ; R15 |
| 197 | (define-key suntool-map "or" 'scroll-up) ; r15 |
| 198 | (define-key suntool-map "b\M-L" 'rerun-prev-command) ; M-AGAIN |
| 199 | (define-key suntool-map "b\M-l" 'prev-complex-command) ; M-Again |
| 200 | (define-key suntool-map "bl" 'redraw-display) ; Again |
| 201 | (define-key suntool-map "cl" 'list-buffers) ; Props |
| 202 | (define-key suntool-map "dl" 'undo) ; Undo |
| 203 | (define-key suntool-map "el" 'ignore) ; Expose-Open |
| 204 | (define-key suntool-map "fl" 'sun-select-region) ; Put |
| 205 | (define-key suntool-map "f," 'copy-region-as-kill) ; C-Put |
| 206 | (define-key suntool-map "gl" 'ignore) ; Open-Open |
| 207 | (define-key suntool-map "hl" 'sun-yank-selection) ; Get |
| 208 | (define-key suntool-map "h," 'yank) ; C-Get |
| 209 | (define-key suntool-map "il" 'research-forward) ; Find |
| 210 | (define-key suntool-map "i," 're-search-forward) ; C-Find |
| 211 | (define-key suntool-map "i\M-l" 'research-backward) ; M-Find |
| 212 | (define-key suntool-map "i\M-," 're-search-backward) ; C-M-Find |
| 213 | |
| 214 | (define-key suntool-map "jL" 'yank) ; DELETE |
| 215 | (define-key suntool-map "jl" 'kill-region-and-unmark) ; Delete |
| 216 | (define-key suntool-map "j\M-l" 'exchange-point-and-mark); M-Delete |
| 217 | (define-key suntool-map "j," |
| 218 | (lambda () (interactive) (pop-mark))) ; C-Delete |
| 219 | |
| 220 | (define-key suntool-map "fT" 'shrink-window-horizontally) ; T6 |
| 221 | (define-key suntool-map "gT" 'enlarge-window-horizontally) ; T7 |
| 222 | (define-key suntool-map "ft" 'shrink-window) ; t6 |
| 223 | (define-key suntool-map "gt" 'enlarge-window) ; t7 |
| 224 | (define-key suntool-map "cT" (lambda (n) (interactive "p") (scroll-down n))) |
| 225 | (define-key suntool-map "dT" (lambda (n) (interactive "p") (scroll-up n))) |
| 226 | (define-key suntool-map "ct" 'scroll-down-in-place) ; t3 |
| 227 | (define-key suntool-map "dt" 'scroll-up-in-place) ; t4 |
| 228 | (define-key ctl-x-map "*" suntool-map) |
| 229 | |
| 230 | ;; Since .emacs gets loaded before this file, a hook is supplied |
| 231 | ;; for you to put your own bindings in. |
| 232 | |
| 233 | (defvar suntool-map-hooks nil |
| 234 | "List of forms to evaluate after setting suntool-map.") |
| 235 | |
| 236 | (when suntool-map-hooks |
| 237 | (message "suntool-map-hooks is obsolete! Use term-setup-hook instead!") |
| 238 | (let ((hooks suntool-map-hooks)) |
| 239 | (while hooks |
| 240 | (eval (car hooks)) |
| 241 | (setq hooks (cdr hooks))))) |
| 242 | |
| 243 | ;; |
| 244 | ;; If running under emacstool, arrange to call suspend-emacstool |
| 245 | ;; instead of suspend-emacs. |
| 246 | ;; |
| 247 | ;; First mouse blip is a clue that we are in emacstool. |
| 248 | ;; |
| 249 | ;; C-x C-@ is the mouse command prefix. |
| 250 | |
| 251 | (autoload 'sun-mouse-handler "sun-mouse" |
| 252 | "Sun Emacstool handler for mouse blips (not loaded)." t) |
| 253 | |
| 254 | (defun emacstool-init () |
| 255 | "Set up Emacstool window, if you know you are in an emacstool." |
| 256 | ;; Make sure sun-mouse and sun-fns are loaded. |
| 257 | (require 'sun-fns) |
| 258 | (define-key ctl-x-map "\C-@" 'sun-mouse-handler) |
| 259 | |
| 260 | ;; FIXME: this function does not seem to exist either. -stef'01 |
| 261 | (if (< (sun-window-init) 0) |
| 262 | (message "Not a Sun Window") |
| 263 | (progn |
| 264 | (substitute-key-definition 'suspend-emacs 'suspend-emacstool global-map) |
| 265 | (substitute-key-definition 'suspend-emacs 'suspend-emacstool esc-map) |
| 266 | (substitute-key-definition 'suspend-emacs 'suspend-emacstool ctl-x-map)) |
| 267 | (send-string-to-terminal |
| 268 | (concat "\033]lEmacstool - GNU Emacs " emacs-version "\033\\")))) |
| 269 | |
| 270 | (defun sun-mouse-once () |
| 271 | "Converts to emacstool and sun-mouse-handler on first mouse hit." |
| 272 | (interactive) |
| 273 | (emacstool-init) |
| 274 | (sun-mouse-handler)) ; Now, execute this mouse blip. |
| 275 | (define-key ctl-x-map "\C-@" 'sun-mouse-once) |
| 276 | |
| 277 | ;;; sun.el ends here |