;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:14:58 1993
;;; from file /gd/gnu/emacs/19.0/lisp/gosmacs.el
;;; emacs version 19.15.16.
;;; 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")))
    (error "This file was compiled for Emacs 19"))

(byte-code "ÀÁ!ˆÂÃ!„ ÄÄ‡" [require mlsupport boundp non-gosmacs-binding-alist nil] 2)
(defalias '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 "\
Rebind some keys globally to make GNU Emacs resemble Gosling Emacs.
Use \\[set-gnu-bindings] to restore previous global bindings." nil])
(defalias 'rebind-and-record #[(bindings) "À\nƒ' \n@‰@A@Æ\"D	BÈ\"ˆ+\nA‰„ 	Ÿ)‡" [nil old bindings this key newdef lookup-key global-map global-set-key] 5 "\
Establish many new global bindings and record the bindings replaced.
Arg BINDINGS is an alist whose elements are (KEY DEFINITION).
Returns a similar alist whose elements describe the same KEYs
but each with the old definition that was replaced,"])
(defalias 'set-gnu-bindings #[nil "À	!‡" [rebind-and-record non-gosmacs-binding-alist] 2 "\
Restore the global bindings that were changed by \\[set-gosmacs-bindings]." nil])
(defalias 'gosmacs-previous-window #[nil "ÀÁ !‡" [select-window previous-window] 2 "\
Select the window above or to the left of the window now selected.
From the window at the upper left corner, select the one at the lower right." nil])
(defalias 'gosmacs-next-window #[nil "ÀÁ !‡" [select-window next-window] 2 "\
Select the window below or to the right of the window now selected.
From the window at the lower right corner, select the one at the upper left." nil])
(defalias 'scroll-one-line-up #[(&optional arg) "À	† Â!‡" [scroll-up arg 1] 2 "\
Scroll the selected window up (forward in the text) one line (or N lines)." "p"])
(defalias 'scroll-one-line-down #[(&optional arg) "À	† Â!‡" [scroll-down arg 1] 2 "\
Scroll the selected window down (backward in the text) one line (or N)." "p"])
(defalias 'line-to-top-of-window #[nil "ÀÁ!‡" [recenter 0] 2 "\
Scroll the selected window up so that the current line is at the top." nil])