;ELC ;;; compiled by jwz@thalidomide on Fri May 6 16:50:56 1994 ;;; from file /th/jwz/emacs19/lisp/term/x-win.el ;;; emacs version 19.10 Lucid (beta21). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 "= \"!!!!! \"@B!AMMMMMMMMMMMMMMMMM@AMBCMDEMFGMHIMJKL#JKMD#JKN#JKOF#JKP#JKQ#JKR#JKS#JKT#JKU#JKV#JKW#JKX#JKY#JKZ#JK[#JK\\#JK]#JK^#JK_#JK`#JKa#JKb#JKc#JKd@#JKeB#JKfg#JKhi#JKj#JKkl#Jmkl#JKno#JKpq#JKrs#JKtH#uv!wvux!wxw" [window-system x error "%s: Loading x-win.el but not compiled for X" invocation-name require screen x-faces x-iso8859-1 x-mouse xselect x-create-screen screen-creation-function x-track-pointer mouse-motion-handler x-iso8859/1 character-set-property add-hook suspend-hook #[nil "!" [error "Suspending an emacs running under X makes no sense"] 2] initial-screen-unmapped-p ((initially-unmapped . t)) initial-screen-alist x-open-connection command-line-args command-line-args-left x-activate-region-as-selection #[nil "!!!!B!" [marker-buffer mark-marker t x-own-selection point-marker] 4] x-disown-selection zmacs-deactivate-region-hook zmacs-activate-region-hook zmacs-update-region-hook fkey-beginning-of-buffer beginning-of-buffer fkey-end-of-buffer end-of-buffer fkey-scroll-down scroll-down fkey-scroll-up scroll-up fkey-scroll-left scroll-left fkey-scroll-right scroll-right fkey-backward-char backward-char fkey-forward-char forward-char fkey-backward-word backward-word fkey-forward-word forward-word fkey-backward-paragraph backward-paragraph fkey-forward-paragraph forward-paragraph fkey-other-window other-window fkey-backward-other-window backward-other-window fkey-beginning-of-line beginning-of-line fkey-end-of-line end-of-line fkey-repeat-complex-command repeat-complex-command fkey-overwrite-mode overwrite-mode fkey-previous-line #[(p) "\n!" [previous-line this-command p] 2 nil "_p"] fkey-next-line #[(p) "\n!" [next-line this-command p] 2 nil "_p"] fkey-popup-mode-menu #[nil "!!" [call-interactively key-binding [(button3)]] 3 nil nil] define-key global-map left up right down (control left) (control up) (control right) (control down) prior next (control prior) (control next) pgup pgdn (control pgup) (control pgdn) home (control home) end (control end) begin (control begin) (control tab) (control shift tab) again insert kp_enter [return] kp_tab [tab] undo help help-for-help help-map copy x-copy-primary-selection paste x-yank-clipboard-selection cut x-kill-primary-selection menu boundp ow-find-last-string nil ow-find-last-clipboard] 4) (fset 'ow-find #[(&optional backward-p) "ď !  !` G\\! !` GZ! +" [nil (x-get-selection) ((error)) (x-get-clipboard) ((error)) text clip sel ow-find-last-clipboard ow-find-last-string error "No selection available" backward-p search-backward set-mark search-forward zmacs-activate-region] 5 "\ Search forward the next occurence of the text of the selection." nil]) (fset 'ow-find-backward #[nil "!" [ow-find t] 2 "\ Search backward the previous occurence of the text of the selection." nil]) (byte-code "M\"\"" [x-initialize-keyboard #[nil "  \" Ę)P#" [x-server-vendor vendor string-match "Sun Microsystems" "MIT X Consortium" load term-file-prefix "x-win-sun" nil t] 4] add-hook before-init-hook make-obsolete x-new-screen make-screen] 3) (fset 'x-new-screen #[(&optional screen-name) "\n\nBC!!!" [select-screen make-screen screen-name name switch-to-buffer "*scratch*"] 4 "\ Obsolete; use `make-screen' instead." nil]) (make-obsolete 'x-new-screen-other 'make-screen) (fset 'x-new-screen-other #[(window-id &optional screen-params) " \" \"!!" [select-screen x-create-screen append screen-params default-screen-alist window-id switch-to-buffer "*scratch*"] 5 "\ Obsolete; use `make-screen' instead."])