;ELC ;;; Compiled ;;; in Emacs version 27.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\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 (#$ . 738) "p"]) #@151 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 (#$ . 1224)]) (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 (#$ . 1705)]) #@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 (#$ . 2015)]) (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 \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)