;; macros to go with oemacs ; suntool-map is the map for "\C-x*", the oemacs prefix for function keys ; commented-out lines agree with the settings in $(EMACS)/lisp/term/sun.el (setq suntool-map-hooks '( ; not your usual hook list ; (define-key suntool-map "al" 'keyboard-quit) ; Stop ; (define-key suntool-map "bl" 'redraw-display) ; Again L2 ; (define-key suntool-map "b\M-l" 'repeat-complex-command); M-Again = C-X ESC ; (define-key repeat-complex-command-map "\C-x*b\M-l" ; 'previous-complex-command) ; M-Again M-Again... (define-key suntool-map "bL" 'rerun-prev-command) ; AGAIN (no confirm) ; (define-key suntool-map "b\M-L" 'rerun-prev-command) ; M-AGAIN ; (define-key suntool-map "cl" 'buffer-menu) ; Props ; (define-key suntool-map "dl" 'undo) ; Undo ; (define-key suntool-map "el" 'ignore-key) ; Front ; (define-key suntool-map "fl" 'sun-select-region) ; Copy ; (define-key suntool-map "f," 'copy-region-as-kill) ; C-Copy ; (define-key suntool-map "gl" 'ignore-key) ; Open ; (define-key suntool-map "hl" 'sun-yank-selection) ; Paste ; (define-key suntool-map "h," 'yank) ; C-Paste ; (define-key suntool-map "il" 'research-forward) ; Find (with default) ; (define-key suntool-map "i\M-l" 'research-backward) ; M-Find ; (define-key suntool-map "iL" 'isearch-forward-regexp) ; FIND (incremental) ; (define-key suntool-map "i\M-L" 'isearch-backward-regexp); M-FIND ; (define-key suntool-map "i," 're-search-forward) ; C-Find (ordinary) ; (define-key suntool-map "i\M-," 're-search-backward) ; C-M-Find (define-key suntool-map "jl" 'sun-cut-region) ; Cut (define-key suntool-map "j," 'kill-region-and-unmark) ; C-Cut (define-key suntool-map "jL" 'pop-the-mark) ; CUT ; (define-key suntool-map "j\M-l" 'exchange-point-and-mark); M-Cut (define-key suntool-map "at" 'bury-buffer) ; F1 ; (define-key suntool-map "bt" 'toggle-selective-display) ; F2 ; (define-key suntool-map "ct" 'scroll-down-in-place) ; F3 ; (define-key suntool-map "cT" '(lambda(n) (interactive "p") (scroll-down n))) ; (define-key suntool-map "dt" 'scroll-up-in-place) ; F4 ; (define-key suntool-map "dT" '(lambda(n) (interactive "p") (scroll-up n))) (define-key suntool-map "et" 'jumpup) ; F5 ; (define-key suntool-map "ft" 'shrink-window) ; F6 ; (define-key suntool-map "fT" 'shrink-window-horizontally) ; Shift-F6 ; (define-key suntool-map "gt" 'enlarge-window) ; F7 ; (define-key suntool-map "gT" 'enlarge-window-horizontally) ; Shift-F7 (define-key suntool-map "ht" 'tags-search) ; F8 (define-key suntool-map "it" 'tags-query-replace) ; F9 (define-key suntool-map "jt" 'narrow-to-region) ; F10 (define-key suntool-map "j\M-t" 'narrow-to-page) ; M-F10 (define-key suntool-map "kt" 'revert-buffer) ; F11 (define-key suntool-map "k\M-t" 'quick-revert-other-buffer) ; M-F11 (define-key suntool-map "lt" 'goto-line) ; F12 (define-key suntool-map "l\M-t" 'goto-line) ; M-F12 (define-key suntool-map "ar" 'redraw-display) ; Pause, R1 (define-key suntool-map "br" 'call-secondlast-kbd-macro) ; PrSc, R2 (define-key suntool-map "cr" 'ignore-key) ; Scroll Lock Break, R3 (define-key suntool-map "dr" 'unbound-key) ; KP=, R4 (define-key suntool-map "d\M-r" 'bind-last-kbd-macro-to-KP=) ; M-KP=, M-R4 (define-key suntool-map "er" 'unbound-key) ; KP/, R5 (define-key suntool-map "e\M-r" 'bind-last-kbd-macro-to-KP/) ; M-KP/, M-R5 (define-key suntool-map "fr" 'unbound-key) ; KP*, R6 (define-key suntool-map "f\M-r" 'bind-last-kbd-macro-to-KP*) ; M-KP*, M-R6 ; (define-key suntool-map "gr" 'beginning-of-buffer) ; Home, R7 ; (define-key suntool-map "hr" 'previous-line) ; Up, R8 ; (define-key suntool-map "ir" 'scroll-down) ; PgUp, R9 ; (define-key suntool-map "iR" 'backward-page) ; Shift-PGUP ; (define-key suntool-map "jr" 'backward-char) ; Lft, R10 (define-key suntool-map "kr" "\C-u\C-l") ; KP5, R11 ; (define-key suntool-map "lr" 'forward-char) ; Rt, R12 ; (define-key suntool-map "mr" 'end-of-buffer) ; End, R13 ; (define-key suntool-map "nr" 'next-line) ; Dn, R14 ; (define-key suntool-map "or" 'scroll-up) ; PgDn, R15 ; (define-key suntool-map "oR" 'forward-page) ; Shift-PGUP (define-key suntool-map "ab" 'apropos) ; Help (define-key suntool-map "a\M-b" 'mouse-help) ; M-Help (define-key suntool-map "aB" 'describe-bindings) ; HELP (define-key suntool-map "a\M-B" 'describe-mouse-bindings); M-HELP (define-key suntool-map "a\"" 'command-apropos) ; C-Help (define-key suntool-map "a\C-B" 'apropos) ; C-HELP (define-key suntool-map "a\M-\C-B" 'help-for-dummies) ; M-C-HELP (define-key suntool-map "bb" 'ignore-key) ; Alt (define-key suntool-map "cb" 'ignore-key) ; AltGraph (define-key suntool-map "db" 'auto-fill-mode) ; Keypad Ins (define-key suntool-map "eb" 'overwrite-mode) ; Keypad Del (define-key suntool-map "fb" 'call-last-kbd-macro) ; Keypad Enter (define-key suntool-map "gb" 'forward-paragraph) ; Keypad + (define-key suntool-map "hb" 'backward-paragraph) ; Keypad - )) ; redefinition of emacs functions (defun end-of-buffer () "Move point to the end of the buffer; leave a mark at previous position. Scroll so that point is at the bottom of the window, if possible." (interactive) (push-mark) (goto-char (point-max)) (recenter -1)) ; new functions (defun jumpup () "Scroll so that point is at the top of the window." (interactive)(recenter 0)) (defun quick-revert-buffer () "Revert the buffer without asking for confirmation." (interactive) (revert-buffer t t)) (defun quick-revert-other-buffer (n) "Revert the Nth other buffer without asking for confirmation." (interactive "p") (other-window n) (revert-buffer t t) (other-window (- n))) (defun bind-last-kbd-macro-to-KP= () "Assign the last keyboard macro to the = key on the numeric keypad." (interactive) (define-key suntool-map "dr" last-kbd-macro)) (defun bind-last-kbd-macro-to-KP/ () "Assign the last keyboard macro to the / key on the numeric keypad." (interactive) (define-key suntool-map "er" last-kbd-macro)) (defun bind-last-kbd-macro-to-KP* () "Assign the last keyboard macro to the * key on the numeric keypad." (interactive) (define-key suntool-map "fr" last-kbd-macro)) (defvar secondlast-kbd-macro nil) (defun pre-end-kbd-macro () "Preserve last-kbd-macro as secondlast-kbd-macro, then end-kbd-macro." (interactive) (setq secondlast-kbd-macro last-kbd-macro) (end-kbd-macro)) (substitute-key-definition 'end-kbd-macro 'pre-end-kbd-macro global-map) (substitute-key-definition 'end-kbd-macro 'pre-end-kbd-macro esc-map) (substitute-key-definition 'end-kbd-macro 'pre-end-kbd-macro ctl-x-map) (defun call-secondlast-kbd-macro (n) "Like call-last-kbd-macro, but uses the macro defined before that." (interactive "p") (let ((last-kbd-macro secondlast-kbd-macro)) (call-last-kbd-macro n))) ; The turn-numlock-on/off commands are created automatically by oemacs ; when the NumLock light changes state. (defun turn-numlock-on () ; numlock is always off when oemacs starts "Bind keys in keypad area to numeric interpretations." (interactive) (setq hb-binding (lookup-key suntool-map "hb")) (setq gb-binding (lookup-key suntool-map "gb")) (setq fb-binding (lookup-key suntool-map "fb")) (setq eb-binding (lookup-key suntool-map "eb")) (setq db-binding (lookup-key suntool-map "db")) (define-key suntool-map "hb" "-") (define-key suntool-map "gb" "+") (define-key suntool-map "fb" "\C-j") (define-key suntool-map "eb" ".") (define-key suntool-map "db" "0")) (defun turn-numlock-off () "Rebind keys in keypad area to function-key interpretations." (interactive) (define-key suntool-map "hb" hb-binding) (define-key suntool-map "gb" gb-binding) (define-key suntool-map "fb" fb-binding) (define-key suntool-map "eb" eb-binding) (define-key suntool-map "db" db-binding)) (defvar hb-binding nil) (defvar gb-binding nil) (defvar fb-binding nil) (defvar eb-binding nil) (defvar db-binding nil)