;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/lucid.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.

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


(byte-code "\300\301!\210\302\303\304\"\207" [require cl defalias current-time-seconds current-time] 3)
#@165 Read a number from the minibuffer.
Keep reentering the minibuffer until we get suitable input.
If optional argument INTEGERS-ONLY is non-nil, insist on an integer.
(defalias 'read-number #[(prompt &optional integers-only) "\306\211\203\n\307\202\310\204?\311\f!\306\312\313\217\210	\n!\203&\314\202;\314\315\316\2033\317\2024\320\"\210\321\322!\210))\202\n+\207" [integers-only predicate number success prompt input-string nil integerp numberp read-string (byte-code "\302!\302\207" [input-string number read] 2) ((error)) t message "Please type %s" "an integer" "a number" sit-for 1 cursor-in-echo-area] 3 (#$ . 662) nil])
(defalias 'real-path-name #[(name &optional default) "\302\303	\"!\207" [name default file-truename expand-file-name] 4])
(defalias 'read-mouse-position #[(frame) "\302 \211@	=\205\fA)\207" [pos frame mouse-position] 3])
#@171 Switch to the previous buffer.
With a numeric arg N, switch to the Nth most recent buffer.
With an arg of 0, buries the current buffer at the
bottom of the buffer stack.
(defalias 'switch-to-other-buffer #[(arg) "\301=\203\n\302p!\210\303\304X\203\305p!\202!\306\307\310\311\312 \"\"8!\207" [arg 0 bury-buffer switch-to-buffer 1 other-buffer apply nconc mapcar #[(buf) "\301\302!!\303U?\205
C\207" [buf string-to-char buffer-name 32] 3] buffer-list] 7 (#$ . 1540) "p"])
#@148 Return the class (color behavior) of DEVICE.
This will be one of 'color, 'grayscale, or 'mono.
This function exists for compatibility with XEmacs.
(defalias 'device-class #[(&optional device) "\301!\203\302\207\303!\203\304\207\305\207" [device display-color-p color display-grayscale-p grayscale mono] 2 (#$ . 2027)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\207" [defalias find-face facep get-face exec-to-string shell-command-to-string] 3)
#@119 Syntactic context at point in BUFFER.
Either of `string', `comment' or nil.
This is an XEmacs compatibility function.
(defalias 'buffer-syntactic-context #[(&optional buffer) "r\206pq\210\302`!\303	8\203\304\202\305	8\205\306*\207" [buffer state syntax-ppss 3 string 4 comment] 2 (#$ . 2505)])
#@91 Syntactic parenthesis depth at point in BUFFER.
This is an XEmacs compatibility function.
(defalias 'buffer-syntactic-context-depth #[(&optional buffer) "r\206pq\210\301`!@)\207" [buffer syntax-ppss] 2 (#$ . 2815)])
(defalias 'make-extent #[(beg end &optional buffer) "\303	\n#\207" [beg end buffer make-overlay] 4])
(defalias 'extent-properties #[(extent) "\301!\207" [extent overlay-properties] 2])
(byte-code "\300\301!\204\302\301\303\"\210\300\207" [fboundp extent-property defalias overlay-get] 3)
(defalias 'extent-at #[(pos &optional object property before) "r\206pq\210\306	!\203-\307\n\203*\310\n@\"\203#\n@\fB\nA\211\204\f)\311\n\312\"
\203>
\n>A@\202@\n@*\207" [object pos overlays property filtered before overlays-at nil overlay-get sort #[(o1 o2) "\304\305\"\206\306\304	\305\"\206\306\211\nV\206%\nU\205%\307!\307	!V*\207" [o1 o2 p2 p1 overlay-get priority 0 overlay-start] 5]] 4])
(defalias 'set-extent-property #[(extent prop value) "\303=\203	9\203	C\304=\203N	\2031\305\n\"\2041\306\307\n!\310\n!\311\n!\312\n!$\210\202c	\204c\305\n\"\203c\313\307\n!\310\n!\311\n!\312\n!$\210\202c\305\n\304\"\203c\314\307\n!\310\n!	\312\n!%\210\315\n	#\207" [prop value extent mouse-face duplicable overlay-get add-text-properties overlay-start overlay-end overlay-properties overlay-buffer remove-text-properties put-text-property overlay-put] 7])
(defalias 'set-extent-face #[(extent face) "\302\301	#\207" [extent face set-extent-property] 4])
(defalias 'set-extent-end-glyph #[(extent glyph) "\302\303	#\207" [extent glyph set-extent-property after-string] 4])
(defalias 'delete-extent #[(extent) "\301\302\303#\210\304!\207" [extent set-extent-property duplicable nil delete-overlay] 4])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\334\"\210\300\335\336\"\210\300\337\340\"\210\300\341\342\"\210\300\343\344\"\210\300\345\346\"\210\300\347\350\"\210\300\351\352\"\210\300\353\354\"\210\300\355\356\"\210\300\357\360\"\210\300\361\362\"\210\300\363\364\"\210\300\365\366\"\210\300\367\370\"\210\300\371\372\"\210\300\373\374\"\210\300\375\376\"\210\377\201@!\207" [defalias current-screen-configuration current-frame-configuration delete-screen delete-frame find-file-new-screen find-file-other-frame find-file-read-only-new-screen find-file-read-only-other-frame find-tag-new-screen find-tag-other-frame iconify-screen iconify-frame mail-new-screen mail-other-frame make-screen-invisible make-frame-invisible make-screen-visible make-frame-visible modify-screen-parameters modify-frame-parameters next-screen next-frame redraw-screen redraw-frame screen-list frame-list screen-parameters frame-parameters screen-pixel-height frame-pixel-height screen-pixel-width frame-pixel-width screen-root-window frame-root-window screen-selected-window frame-selected-window lower-screen lower-frame raise-screen raise-frame screen-visible-p frame-visible-p screenp framep select-screen select-frame selected-screen selected-frame set-screen-position set-frame-position set-screen-size set-frame-size switch-to-buffer-new-screen switch-to-buffer-other-frame visible-screen-list visible-frame-list window-screen window-frame x-create-screen x-create-frame x-new-screen make-frame provide lucid] 3)