home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / emulator / gosmacs.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.8 KB  |  36 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:44:24 1992
  2. ;;; from file /u/jwz/emacs19/lisp/emulators/gosmacs.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼é┬┬ç" [boundp non-gosmacs-binding-alist nil] 2)
  14. (fset 'set-gosmacs-bindings #[nil "└┴!ëç" [rebind-and-record (("" compile) ("" save-buffers-kill-emacs) ("    " insert-file) ("" save-some-buffers) ("" next-error) ("" switch-to-buffer) ("" insert-file) ("" undo) ("" find-file-other-window) ("" shrink-window) ("!" shell-command) ("d" delete-window) ("n" gosmacs-next-window) ("p" gosmacs-previous-window) ("z" enlarge-window) ("" scroll-one-line-up) ("" save-buffers-kill-emacs) ("!" line-to-top-of-window) ("(" backward-paragraph) (")" forward-paragraph) ("?" apropos) ("h" delete-previous-word) ("j" indent-sexp) ("q" query-replace) ("r" replace-string) ("z" scroll-one-line-down) ("" suspend-emacs)) non-gosmacs-binding-alist] 2 "\
  15. Rebind some keys globally to make GNU Emacs resemble Gosling Emacs.
  16. Use \\[set-gnu-bindings] to restore previous global bindings." nil])
  17. (fset 'rebind-and-record #[(bindings) "└\n½á\n@ë@ A@ ╞ \"D    B╚ \"ê+\nAë¼`    ƒ)ç" [nil old bindings this key newdef lookup-key global-map global-set-key] 5 "\
  18. Establish many new global bindings and record the bindings replaced.
  19. Arg is an alist whose elements are (KEY DEFINITION).
  20. Value is a similar alist whose elements describe the same KEYs
  21. but each with the old definition that was replaced,"])
  22. (fset 'set-gnu-bindings #[nil "└    !ç" [rebind-and-record non-gosmacs-binding-alist] 2 "\
  23. Restore the global bindings that were changed by \\[set-gosmacs-bindings]." nil])
  24. (fset 'gosmacs-previous-window #[nil "└┴ !ç" [select-window previous-window] 2 "\
  25. Select the window above or to the left of the window now selected.
  26. From the window at the upper left corner, select the one at the lower right." nil])
  27. (fset 'gosmacs-next-window #[nil "└┴ !ç" [select-window next-window] 2 "\
  28. Select the window below or to the right of the window now selected.
  29. From the window at the lower right corner, select the one at the upper left." nil])
  30. (fset 'scroll-one-line-up #[(&optional arg) "└    «ü┬!ç" [scroll-up arg 1] 2 "\
  31. Scroll the selected window up (forward in the text) one line (or N lines)." "p"])
  32. (fset 'scroll-one-line-down #[(&optional arg) "└    «ü┬!ç" [scroll-down arg 1] 2 "\
  33. Scroll the selected window down (backward in the text) one line (or N)." "p"])
  34. (fset 'line-to-top-of-window #[nil "└┴!ç" [recenter 0] 2 "\
  35. Scroll the selected window up so that the current line is at the top." nil])
  36.