;ELC   
;;; compiled by jwz@thalidomide on Thu May  5 16:28:58 1994
;;; from file /th/jwz/emacs19/lisp/sunpro/sunpro-keys.el
;;; emacs version 19.10 Lucid (beta20).
;;; 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 "А	ВГ#€АЕЖ#€ЗИЙ\"€АКЛ#‡" [define-key global-map find x-isearch-maybe-with-region isearch-mode-map f18 isearch-yank-x-clipboard add-hook isearch-mode-hook sunpro-set-isearch-direction f19 isearch-repeat-forward] 4)
(fset 'x-isearch-maybe-with-region #[(&optional backward-p) "«ѓБЄЃВ«ЌЕ «‰Ж?!€З Є‰«„И Є‚Й )‡" [backward-p backward forward sunpro-isearch-direction zmacs-regions mark isearch-mode isearch-yank-x-selection isearch-backward isearch-forward] 2 "\
Enter isearch mode.  If the region is active, find the selected text." "P"])
(fset 'sunpro-set-isearch-direction #[nil "Б=¬ЏВ=¬ЉГД!«ЊЕ=«‡ЖИЙ#‡ЖИК#‡" [this-command isearch-backward isearch-backward-regexp boundp sunpro-isearch-direction backward define-key isearch-mode-map f19 isearch-repeat-backward isearch-repeat-forward] 4])