Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : levents.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:55 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/levents.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`levents.el' was compiled for Emacs 19.29 or later"))

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

(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)
#@70 Returns an empty event structure.
In this emulation, it returns nil.
(defalias 'allocate-event #[nil "\300\207" [nil] 1 (#$ . 1347)])
#@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 (#$ . 1487)])
#@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 (#$ . 1677)])
#@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 (#$ . 1895)])
#@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 (#$ . 2137)])
#@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 (#$ . 2407)])
#@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 (#$ . 2989)])
#@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 (#$ . 3177)])
#@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 (#$ . 3726)])
#@55 True if the argument is an eval or menu event object.
(defalias 'eval-event-p #[(obj) "\242\301=\207" [obj eval] 2 (#$ . 3962)])
#@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 (#$ . 4098)])
#@73 Return the callback function of the given timeout, menu, or eval event.
(defalias 'event-function #[(event) "A@\207" [event] 1 (#$ . 4354)])
#@121 Returns 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 (#$ . 4503)])
#@74 Returns the function argument of the given timeout, menu, or eval event.
(defalias 'event-object #[(event) "\3018\207" [event 2] 2 (#$ . 4828)])
#@238 Returns 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) "\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)\307	8\2067�	A@:\2034�	A@@\2027�	A@)\207" [event position 2 1 selected-window (0 . 0) 0 5] 5 (#$ . 4981)])
(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�	\211:\203�	A@\202�\306 `\307\310F)\211@)	\211:\2036�\311	8:\2030�\311\2021�\312	8\202<�\306 `\313\310F)\211@)=\203\203�\314	!\315=\203s�\316\317	\211:\203h�\311	8:\203b�\311\202c�\312	8\202n�\306 `\313\310F)!A\"\207\314	!\320=\203�\316!\207\314	!\207	\211:\203\233�\311	8:\203\225�\311\202\226�\312	8\202\241�\306 `\313\310F)\211@)\321\322!A@\323!\203\275�\322!A@\202\346�	\211:\203\325�\311	8:\203\317�\311\202\320�\312	8\202\333�\306 `\313\310F)\311\n8)A\324!\245\211
Y\203\363�\316!\202\366�\325!+\207" [start-window event position end-w end-w-top w-top selected-window (0 . 0) 0 2 1 (0 . 0) event-point vertical-line event-closest-point-1 posn-col-row mode-line nil window-edges windowp frame-char-height window-start] 8 (#$ . 5692)])
#@56 Returns the process of the given process-output event.
(defalias 'event-process #[(event) "A@\207" [event] 1 (#$ . 6702)])
#@164 Returns 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)�\211:\203�\3028:\203�\302\202�\3038\202#�\304 `\305\306F)\307	8)\207" [event position 2 1 selected-window (0 . 0) 0 3] 5 (#$ . 6833)])
#@531 Returns 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 (#$ . 7192)])
#@61 Returns the window of the given mouse-related event object.
(defalias 'event-window #[(event) "\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)\211@)\207" [event position 2 1 selected-window (0 . 0) 0] 5 (#$ . 7936)])
#@72 Returns the X position in characters of the given mouse-related event.
(defalias 'event-x #[(event) "\301\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)!@\307\310\311!!!\245\207" [event posn-col-row 2 1 selected-window (0 . 0) 0 frame-char-width window-frame event-window] 6 (#$ . 8177)])
#@68 Returns the X position in pixels of the given mouse-related event.
(defalias 'event-x-pixel #[(event) "\301\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)!@\207" [event posn-col-row 2 1 selected-window (0 . 0) 0] 6 (#$ . 8490)])
#@72 Returns the Y position in characters of the given mouse-related event.
(defalias 'event-y #[(event) "\301\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)!A\307\310\311!!!\245\207" [event posn-col-row 2 1 selected-window (0 . 0) 0 frame-char-height window-frame event-window] 6 (#$ . 8742)])
#@68 Returns the Y position in pixels of the given mouse-related event.
(defalias 'event-y-pixel #[(event) "\301\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)!A\207" [event posn-col-row 2 1 selected-window (0 . 0) 0] 6 (#$ . 9056)])
#@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 (#$ . 9308)])
#@46 True if the argument is a menu event object.
(defalias 'menu-event-p #[(obj) "\242\301=\207" [obj menu] 2 (#$ . 9476)])
#@54 True if the argument is a mouse-motion event object.
(defalias 'motion-event-p #[(obj) "\242\301=\207" [obj mouse-movement] 2 (#$ . 9603)])
#@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=\2031�A@\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 (#$ . 9751)])
#@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 (#$ . 10310)])
(provide 'levents)

${this.title}

Code Editor : levents.elc