;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Sun Jun 11 18:37:41 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/x-apollo.el ;;; emacs version 19.28.93.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`x-apollo.el' was compiled for Emacs 19.29 or later")) #@40 Kill the entire line containing point. (defalias 'apollo-kill-entire-line #[nil "y!" [0 kill-line 1] 2 (#$ . 482) nil]) #@37 Scroll window to right ten columns. (defalias 'apollo-scroll-window-right #[nil "!" [scroll-left 10] 2 (#$ . 613) nil]) #@36 Scroll window to left ten columns. (defalias 'apollo-scroll-window-left #[nil "!" [scroll-right 10] 2 (#$ . 742) nil]) #@68 Move window forward one line leaving cursor at position in window. (defalias 'apollo-scroll-window-forward-line #[nil "!" [scroll-up 1] 2 (#$ . 870) nil]) #@69 Move window backward one line leaving cursor at position in window. (defalias 'apollo-scroll-window-backward-line #[nil "!" [scroll-down 1] 2 (#$ . 1034) nil]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"@A\"BC\"DE\"FG\"" [global-set-key [S-tab] " " [C-tab] [S-return] " " [C-return] [linedel] apollo-kill-entire-line [chardel] delete-char [leftbar] beginning-of-line [rightbar] end-of-line [leftbox] apollo-scroll-window-left [rightbox] apollo-scroll-window-right [S-up] apollo-scroll-window-backward-line [S-down] apollo-scroll-window-forward-line [select] set-mark-command [S-insert] overwrite-mode [S-linedel] yank [S-chardel] [copy] copy-region-as-kill [S-cut] kill-region [paste] [S-undo] undo [S-left] backward-word [S-right] forward-word [upbox] scroll-down [S-upbox] beginning-of-buffer [downbox] scroll-up [S-downbox] end-of-buffer [S-redo] toggle-read-only [exit] save-buffer [S-cancel] kill-buffer [S-save] [S-leftbar] [cmd] execute-extended-command [S-rightbar] [next] other-window [S-next] delete-window [read] find-file-read-only [edit] find-file [S-shell] shell [S-help] manual-entry] 3)