;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'overlay)
(defalias 'caml-info-other-window #[(arg) "\212\301!\210)\302\303!\207" [arg info view-buffer-other-window "*info*"] 2])
(defalias 'caml-line-beginning-position #[nil "\212\300 \210`)\207" [beginning-of-line] 1])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias caml-read-event next-event caml-window-edges window-pixel-edges] 3)
(defalias 'caml-mouse-vertical-position #[nil "\301 \211\205\n \302!)\207" [e mouse-position-as-motion-event event-y-pixel] 3])
(defalias 'caml-mouse-movement-p 'motion-event-p)
(defalias 'caml-event-window #[(e) "\301!\205	 \302!\207" [e mouse-event-p event-window] 2])
(defalias 'caml-event-point-start #[(e) "\301!\207" [e event-closest-point] 2])
(defalias 'caml-event-point-end #[(e) "\301!\207" [e event-closest-point] 2])
(defalias 'caml-ignore-event-p #[(e) "\301!\203 \302!\303=\203 \303 \210\304!?\207" [e key-press-event-p key-binding keyboard-quit mouse-event-p] 2])
(defalias 'caml-sit-for #[(sec &optional mili) "\302	\203\f \303	_\202 \304\\!\207" [sec mili sit-for 0.001 0] 4])
(defalias 'caml-track-mouse '(macro . #[(&rest body) "\301B\207" [body progn] 2]))
(defalias 'caml-release-event-p #[(original event) "\302!\205 \303	!\303!\232\207" [event original button-release-event-p event-button] 3])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\305\306!\207" [fboundp string-to-number defalias caml-string-to-int string-to-int provide caml-xemacs] 3)