ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/lucid.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)
(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\f A)\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 (#$ . 740) "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 (#$ . 1226)])
(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\206 pq\210\302`!\303 8\203 \304\202 \305 8\205 \306*\207" [buffer state syntax-ppss 3 string 4 comment] 2 (#$ . 1704)])
#@91 Syntactic parenthesis depth at point in BUFFER.
This is an XEmacs compatibility function.
(defalias 'buffer-syntactic-context-depth #[(&optional buffer) "r\206 pq\210\301`!@)\207" [buffer syntax-ppss] 2 (#$ . 2014)])
(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\206 pq\210\306 \307\" \203. \310 \n\203+ \311\n@ \"\203$ \n@\fB\nA\211\204 \f)
\203:
\n>A@\202< \n@*\207" [object pos overlays property filtered before overlays-at sorted nil overlay-get] 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)
Kontol Shell Bypass