1;;; x-apollo.el --- Apollo support functions 2 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 4;; 2006, 2007 Free Software Foundation, Inc. 5 6;; This file is part of GNU Emacs. 7 8;; GNU Emacs is free software; you can redistribute it and/or modify 9;; it under the terms of the GNU General Public License as published by 10;; the Free Software Foundation; either version 2, or (at your option) 11;; any later version. 12 13;; GNU Emacs is distributed in the hope that it will be useful, 14;; but WITHOUT ANY WARRANTY; without even the implied warranty of 15;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16;; GNU General Public License for more details. 17 18;; You should have received a copy of the GNU General Public License 19;; along with GNU Emacs; see the file COPYING. If not, write to the 20;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 21;; Boston, MA 02110-1301, USA. 22 23;;; Commentary: 24 25;;; Code: 26 27(defun apollo-kill-entire-line () 28 "Kill the entire line containing point." 29 (interactive) 30 (beginning-of-line) 31 (kill-line 1)) 32 33(defun apollo-scroll-window-right () 34 "Scroll window to right ten columns." 35 (interactive) 36 (scroll-left 10)) 37 38(defun apollo-scroll-window-left () 39 "Scroll window to left ten columns." 40 (interactive) 41 (scroll-right 10)) 42 43(defun apollo-scroll-window-forward-line () 44 "Move window forward one line leaving cursor at position in window." 45 (interactive) 46 (scroll-up 1)) 47 48(defun apollo-scroll-window-backward-line () 49 "Move window backward one line leaving cursor at position in window." 50 (interactive) 51 (scroll-down 1)) 52 53;;; Define and Enable the Function Key Bindings. 54 55(global-set-key [S-tab] "\C-i") ;Shift TAB 56(global-set-key [C-tab] "\C-i") ;Control TAB 57(global-set-key [S-return] "\C-m") ;Shift RET 58(global-set-key [C-return] "\C-m") ;Control RET 59(global-set-key [linedel] 'apollo-kill-entire-line) ;LINE DEL 60(global-set-key [chardel] 'delete-char) ;CHAR DEL 61(global-set-key [leftbar] 'beginning-of-line) ;LEFT BAR ARROW 62(global-set-key [rightbar] 'end-of-line) ;RIGHT BAR ARROW 63(global-set-key [leftbox] 'apollo-scroll-window-left) ;LEFT BOX ARROW 64(global-set-key [rightbox] 'apollo-scroll-window-right) ;RIGHT BOX ARROW 65(global-set-key [S-up] 'apollo-scroll-window-backward-line) ;Shift UP ARROW 66(global-set-key [S-down] 'apollo-scroll-window-forward-line) ;Shift DOWN ARROW 67(global-set-key [select] 'set-mark-command) ;MARK 68(global-set-key [S-insert] 'overwrite-mode) ;INS MODE 69(global-set-key [S-linedel] 'yank) ;Shift LINE DEL 70(global-set-key [S-chardel] 'delete-char) ;Shift CHAR DEL 71(global-set-key [copy] 'copy-region-as-kill) ;COPY 72(global-set-key [S-cut] 'kill-region) ;CUT 73(global-set-key [paste] 'yank) ;PASTE 74(global-set-key [S-undo] 'undo) ;UNDO 75(global-set-key [S-left] 'backward-word) ;Shift LEFT ARROW 76(global-set-key [S-right] 'forward-word) ;Shift RIGHT ARROW 77(global-set-key [upbox] 'scroll-down) ;UP BOX ARROW 78(global-set-key [S-upbox] 'beginning-of-buffer) ;Shift UP BOX ARROW 79(global-set-key [downbox] 'scroll-up) ;DOWN BOX ARROW 80(global-set-key [S-downbox] 'end-of-buffer) ;Shift DOWN BOX ARROW 81(global-set-key [S-redo] 'toggle-read-only) ;Shift AGAIN 82(global-set-key [exit] 'save-buffer) ;EXIT 83(global-set-key [S-cancel] 'kill-buffer) ;ABORT 84(global-set-key [S-save] 'save-buffer) ;SAVE 85(global-set-key [S-leftbar] 'beginning-of-buffer) ;Shift LEFT BAR ARROW 86(global-set-key [cmd] 'execute-extended-command) ;CMD 87(global-set-key [S-rightbar] 'end-of-buffer) ;Shift RIGHT BAR ARROW 88(global-set-key [next] 'other-window) ;NEXT WNDW 89(global-set-key [S-next] 'delete-window) ;Shift NEXT WNDW 90(global-set-key [read] 'find-file-read-only) ;READ 91(global-set-key [edit] 'find-file) ;EDIT 92(global-set-key [S-shell] 'shell) ;SHELL 93(global-set-key [S-help] 'manual-entry) ;HELP 94 95(provide 'x-apollo) 96 97;;; arch-tag: 4f3e86f4-557c-44b3-978e-144fc4dc812e 98;;; x-apollo.el ends here 99