;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:08 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/levents.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'next-command-event #[(event) "\300\301!\207" [error "You must rewrite to use `read-command-event' instead of `next-command-event'"] 2])
(defalias 'next-event #[(event) "\300\301!\207" [error "You must rewrite to use `read-event' instead of `next-event'"] 2])
(defalias 'dispatch-event #[(event) "\300\301!\207" [error "`dispatch-event' not supported"] 2])
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\303#\207" [global-map define-key [menu] execute-eval-event [timeout] [eval]] 4)
(defalias 'execute-eval-event #[(event) "A@\3018!\207" [event 2] 3 nil "e"])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put eval event-symbol-elements (eval) menu (eval) timeout (eval)] 4)
#@69 Return an empty event structure.
In this emulation, it returns nil.
(defalias 'allocate-event #[nil "\300\207" [nil] 1 (#$ . 1290)])
#@60 True if the argument is a mouse-button-press event object.
(defalias 'button-press-event-p #[(obj) ":\205@9\205\301@\302N>\207" [obj down event-symbol-elements] 3 (#$ . 1429)])
#@62 True if the argument is a mouse-button-release event object.
(defalias 'button-release-event-p #[(obj) ":\205@9\205\301@\302N>\206\303@\302N>\207" [obj click event-symbol-elements drag] 3 (#$ . 1619)])
#@71 True if the argument is a mouse-button press or release event object.
(defalias 'button-event-p #[(obj) ":\205#@9\205#\301@\302N>\206#\303@\302N>\206#\304@\302N>\207" [obj click event-symbol-elements down drag] 3 (#$ . 1837)])
#@71 True if the argument is a mouse-button press or release event object.
(defalias 'mouse-event-p #[(obj) ":\205*@9\205*@\301=\206*\302@\303N>\206*\304@\303N>\206*\305@\303N>\207" [obj mouse-movement click event-symbol-elements down drag] 3 (#$ . 2079)])
#@495 Converts a numeric ASCII value to an event structure, replete with
bucky bits.  The character is the first argument, and the event to fill
in is the second.  This function contains knowledge about what the codes
mean -- for example, the number 9 is converted to the character Tab,
not the distinct character Control-I.

Beware that character-to-event and event-to-character are not strictly
inverse functions, since events contain much more information than the
ASCII character set can encode.
(defalias 'character-to-event #[(ch &optional event) "\207" [ch] 1 (#$ . 2349)])
#@99 Make a copy of the given event object.
In this emulation, `copy-event' just returns its argument.
(defalias 'copy-event #[(event1 &optional event2) "\207" [event1] 1 (#$ . 2931)])
#@472 Allow the given event structure to be reused.
In actual Lucid Emacs, you MUST NOT use this event object after
calling this function with it.  You will lose.  It is not necessary to
call this function, as event objects are garbage- collected like all
other objects; however, it may be more efficient to explicitly
deallocate events when you are sure that that is safe.

This emulation does not actually deallocate or reuse events
except via garbage collection and `cons'.
(defalias 'deallocate-event #[(event) "\300\207" [nil] 1 (#$ . 3119)])
#@102 Add an eval event to the back of the queue.
It will be the next event read after all pending events.
(defalias 'enqueue-eval-event: #[#'object "\303	\nEC\244\211\207" [unread-command-events function object eval] 4 (#$ . 3668)])
#@55 True if the argument is an eval or menu event object.
(defalias 'eval-event-p #[(obj) "\242\301=\207" [obj eval] 2 (#$ . 3904)])
#@65 Return the button-number of the given mouse-button-press event.
(defalias 'event-button #[(event) "@\302N@\211\303\236A)\207" [event sym event-symbol-elements ((mouse-1 . 1) (mouse-2 . 2) (mouse-3 . 3) (mouse-4 . 4) (mouse-5 . 5))] 3 (#$ . 4040)])
#@73 Return the callback function of the given timeout, menu, or eval event.
(defalias 'event-function #[(event) "A@\207" [event] 1 (#$ . 4296)])
#@120 Return the KeySym of the given key-press event.
The value is an ASCII printing character (not upper case) or a symbol.
(defalias 'event-key #[(event) "9\203\n\302N@\207\303\304\305\306\"S\"\211\307W\203 \310	\311\"\202!	\227)\207" [event base event-symbol-elements logand lsh 1 18 32 logior 64] 6 (#$ . 4445)])
#@73 Return the function argument of the given timeout, menu, or eval event.
(defalias 'event-object #[(event) "\3018\207" [event 2] 2 (#$ . 4769)])
#@237 Return the character position of the given mouse-related event.
If the event did not occur over a window, or did
not occur over text, then this returns nil.  Otherwise, it returns an index
into the buffer visible in the event's window.
(defalias 'event-point #[(event) "\302!\303	8\206	A@:\203	A@@\202	A@)\207" [event position event-end 5] 2 (#$ . 4921)])
(defalias 'event-closest-point-1 #[(window &optional line) "\304!\305!\203
\306\202\307Z\n\206	\212\310!b\210\311!U\203+\n\204+\312u\210`+\207" [window total line distance window-height window-minibuffer-p 0 1 window-start vertical-motion -1] 3])
#@167 Return the nearest position to where EVENT ended its motion.
This is computed for the window where EVENT's motion started,
or for window WINDOW if that is specified.
(defalias 'event-closest-point #[(event &optional start-window) "\204\f\306	!\211@)\307	!\211@)=\203:\310	!\311=\203*\312\313\307	!!A\"\207\310	!\314=\2036\312!\207\310	!\207\307	!\211@)\315\316!A@\317!\203X\316!A@\202e\307	!\320\n8)A\321!\245\211
Y\203r\312!\202u\322!+\207" [start-window event position end-w end-w-top w-top event-start event-end event-point vertical-line event-closest-point-1 posn-col-row mode-line nil window-edges windowp 2 frame-char-height window-start] 6 (#$ . 5553)])
#@55 Return the process of the given process-output event.
(defalias 'event-process #[(event) "A@\207" [event] 1 (#$ . 6247)])
#@163 Return the timestamp of the given event object.
In Lucid Emacs, this works for any kind of event.
In this emulation, it returns nil for non-mouse-related events.
(defalias 'event-timestamp #[(event) "<\205
\302!\303	8)\207" [event position event-end 3] 2 (#$ . 6377)])
#@530 Return the closest ASCII approximation to the given event object.
If the event isn't a keypress, this returns nil.
If the second argument is non-nil, then this is lenient in its
translation; it will ignore modifier keys other than control and meta,
and will ignore the shift modifier on those characters which have no
shifted ASCII equivalent (Control-Shift-A for example, will be mapped to
the same ASCII code as Control-A.)  If the second arg is nil, then nil
will be returned for events which have no direct ASCII equivalent.
(defalias 'event-to-character #[(event &optional lenient) "9\203	\205\302\236A\207\250\205\207" [event lenient ((backspace . 8) (delete . 127) (tab . 9) (return . 10) (enter . 10))] 2 (#$ . 6657)])
#@60 Return the window of the given mouse-related event object.
(defalias 'event-window #[(event) "\302!\211@)\207" [event position event-end] 3 (#$ . 7400)])
#@71 Return the X position in characters of the given mouse-related event.
(defalias 'event-x #[(event) "\301\302!!@\303\304\305!!!\245\207" [event posn-col-row event-end frame-char-width window-frame event-window] 5 (#$ . 7562)])
#@67 Return the X position in pixels of the given mouse-related event.
(defalias 'event-x-pixel #[(event) "\301\302!!@\207" [event posn-col-row event-end] 3 (#$ . 7796)])
#@71 Return the Y position in characters of the given mouse-related event.
(defalias 'event-y #[(event) "\301\302!!A\303\304\305!!!\245\207" [event posn-col-row event-end frame-char-height window-frame event-window] 5 (#$ . 7969)])
#@67 Return the Y position in pixels of the given mouse-related event.
(defalias 'event-y-pixel #[(event) "\301\302!!A\207" [event posn-col-row event-end] 3 (#$ . 8204)])
#@50 True if the argument is a keyboard event object.
(defalias 'key-press-event-p #[(obj) "\250\206
9\205
\301N\207" [obj event-symbol-elements] 2 (#$ . 8377)])
#@46 True if the argument is a menu event object.
(defalias 'menu-event-p #[(obj) "\242\301=\207" [obj menu] 2 (#$ . 8545)])
#@54 True if the argument is a mouse-motion event object.
(defalias 'motion-event-p #[(obj) "\242\301=\207" [obj mouse-movement] 2 (#$ . 8672)])
#@225 Return the next keyboard or mouse event; execute other events.
This is similar to the function `next-command-event' of Lucid Emacs,
but different in that it returns the event rather than filling in
an existing event object.
(defalias 'read-command-event #[nil "\302\303 \304!\204A\305!\204A\306!\204A\307!\204A\242\211\310=\2031A@\3118!\210\202=	\312=\203=\313A@!\210)\202)\207" [event type nil read-event key-press-event-p button-press-event-p button-release-event-p menu-event-p eval 2 switch-frame select-frame] 4 (#$ . 8820)])
#@120 True if the argument is a process-output event object.
GNU Emacs 19 does not currently generate process-output events.
(defalias 'process-event-p #[(obj) "\242\301=\207" [obj process] 2 (#$ . 9379)])
(provide 'levents)