diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-11 08:45:57 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-11 08:45:57 +0000 |
| commit | d450854ac87e6e7c90fdea61a2b0275844a57089 (patch) | |
| tree | 95f68fd59a4eec98d3d42335b68175f99c4ba120 /lisp | |
| parent | 25ef9ed36fda7a26e58dc4b363dbf96574c4462a (diff) | |
| download | emacs-d450854ac87e6e7c90fdea61a2b0275844a57089.tar.gz | |
Added headers, removed function-key bindings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/sun.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lisp/term/sun.el b/lisp/term/sun.el index d89810ba18b..fb9c926a163 100644 --- a/lisp/term/sun.el +++ b/lisp/term/sun.el @@ -1,4 +1,8 @@ -;; keybinding for standard default sunterm keys +;; sun.el --- keybinding for standard default sunterm keys + +;; Author: Jeff Peck <peck@sun.com> +;; Keywords: terminals + ;; Copyright (C) 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,11 +22,12 @@ ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. -;; Jeff Peck, Sun Microsystems Inc <peck@sun.com> +;;; Commentary: ;; The function key sequences for the console have been converted for ;; use with function-key-map, but the *tool stuff hasn't been touched. +;;; Code: (defun ignore-key () "interactive version of ignore" @@ -104,7 +109,7 @@ (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 "193z" [redo]) (define-key sun-raw-prefix "194z" [props]) (define-key sun-raw-prefix "195z" [undo]) ; (define-key sun-raw-prefix "196z" 'ignore-key) ; Expose-down @@ -129,7 +134,7 @@ (global-set-key [r11] 'recenter) (global-set-key [r13] 'end-of-buffer) (global-set-key [r15] 'scroll-up) -(global-set-key [again] 'redraw-display) +(global-set-key [redo] 'redraw-display) (global-set-key [props] 'list-buffers) (global-set-key [undo] 'undo) (global-set-key [put] 'sun-select-region) @@ -156,7 +161,7 @@ )) -;;; This section adds defintions for the emacstool users +;;; This section adds definitions for the emacstool users ;;; emacstool event filter converts function keys to C-x*{c}{lrt} ;;; ;;; for example the Open key (L7) would be encoded as "\C-x*gl" @@ -271,3 +276,5 @@ (sun-mouse-handler) ; Now, execute this mouse blip. ) (define-key ctl-x-map "\C-@" 'sun-mouse-once) + +;;; sun.el ends here |