| Server IP : 217.160.0.135 / Your IP : 216.73.217.37 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1074145052 ( 1074145052) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\304\314&\210\310\315\316\317\306\301\304\314&\210\310\320\321\322\306\301\304\314&\210\310\323\324\325\306\301\304\314&\210\310\326\327\330\306\301\304\314&\210\310\331\332\333\306\301\304\314&\210\310\334\335\336\306\301\304\314&\210\310\337\340\341\306\301\304\314&\210\310\342\343\344\306\301\304\314&\210\310\345\346\347\306\301\304\314&\210\310\350\351\352\306\301\304\314&\210\310\353\354\355\306\301\304\314&\210\310\356\357\360\306\301\304\314&\210\310\361\362\363\306\301\304\314&\210\310\364\365\366\306\301\304\314&\210\310\367\370\371\306\301\304\314&\210\310\372\373\374\306\301\304\314&\210\310\375\376\377\306\301\304\314&\210\310\201@ \201A \201B \306\301%\210\310\201C \201D \201E \306\301\304\314&\210\310\201F \201G \201H \306\301\304\314&\210\310\201I \201J \201K \306\301\304\314&\210\310\201L \201M \201N \306\301\304\314&\210\201O \201P \201Q \201R \201S DD\201T \201U \201V \306\301&\210\201W \201P \201X \314#\210\201O \201Y \201Q \201R \201Z DD\201[ \201U \201\\ \304\201] \306\301& \210\201W \201P \201^ \314#\207" [custom-declare-group ansi-colors nil "Translating SGR control sequences to faces.\nThis translation effectively colorizes strings and regions based upon\nSGR control sequences embedded in the text. SGR (Select Graphic\nRendition) control sequences are defined in section 8.3.117 of the\nECMA-48 standard (identical to ISO/IEC 6429), which is freely available\nat <URL:https://www.ecma-international.org/publications/standards/Ecma-048.htm>\nas a PDF file." :version "21.1" :group processes custom-declare-face ansi-color-bold ((t :inherit 'bold)) "Face used to render bold text." "28.1" ansi-color-faint ((t :weight light)) "Face used to render faint text." ansi-color-italic ((t :inherit 'italic)) "Face used to render italic text." ansi-color-underline ((t :inherit 'underline)) "Face used to render underlined text." ansi-color-slow-blink ((t :box (:line-width -1))) "Face used to render slowly blinking text." ansi-color-fast-blink ((t :box (:line-width -1))) "Face used to render rapidly blinking text." ansi-color-inverse ((t :inverse-video t)) "Face used to render inverted video text." ansi-color-black ((t :foreground "black" :background "black")) "Face used to render black color code." ansi-color-red ((t :foreground "red3" :background "red3")) "Face used to render red color code." ansi-color-green ((t :foreground "green3" :background "green3")) "Face used to render green color code." ansi-color-yellow ((t :foreground "yellow3" :background "yellow3")) "Face used to render yellow color code." ansi-color-blue ((t :foreground "blue2" :background "blue2")) "Face used to render blue color code." ansi-color-magenta ((t :foreground "magenta3" :background "magenta3")) "Face used to render magenta color code." ansi-color-cyan ((t :foreground "cyan3" :background "cyan3")) "Face used to render cyan color code." ansi-color-white ((t :foreground "grey90" :background "gray90")) "Face used to render white color code." ansi-color-bright-black ((t :foreground "gray30" :background "gray30")) "Face used to render bright black color code." ansi-color-bright-red ((t :foreground "red2" :background "red2")) "Face used to render bright red color code." ansi-color-bright-green ((t :foreground "green2" :background "green2")) "Face used to render bright green color code." ansi-color-bright-yellow ((t :foreground "yellow2" :background "yellow2")) "Face used to render bright yellow color code." ansi-color-bright-blue ((t :foreground "blue1" :background "blue1")) "Face used to render bright blue color code." ansi-color-bright-magenta ((t :foreground "magenta2" :background "magenta2")) "Face used to render bright magenta color code." ansi-color-bright-cyan ((t :foreground "cyan2" :background "cyan2")) "Face used to render bright cyan color code." ansi-color-bright-white ((t :foreground "white" :background "white")) "Face used to render bright white color code." custom-declare-variable ansi-color-faces-vector funcall function #[0 "\300\207" [[default bold default italic underline success warning error]] 1 #1=""] "Faces used for SGR control sequences determining a face.\nThis vector holds the faces used for SGR control sequence parameters 0\nto 7.\n\nThis variable is obsolete. To customize the display of faces used by\nansi-color, change 'ansi-color-FACE', e.g. `ansi-color-bold'. To\ncustomize the actual faces used (e.g. to temporarily display SGR\ncontrol sequences differently), use `ansi-color-basic-faces-vector'." :type (vector face face face face face face face face) make-obsolete-variable ansi-color-basic-faces-vector ansi-color-names-vector #[0 "\300\207" [["black" "red3" "green3" "yellow3" "blue2" "magenta3" "cyan3" "gray90"]] 1 #1#] "Colors used for SGR control sequences determining a color.\nThis vector holds the colors used for SGR control sequence parameters\n30 to 37 (foreground colors) and 40 to 47 (background colors).\n\nThis variable is obsolete. To customize the display of colors used by\nansi-color, change 'ansi-color-COLOR', e.g. `ansi-color-red'. To\ncustomize the actual faces used (e.g. to temporarily display SGR\ncontrol sequences differently), use `ansi-color-normal-colors-vector'." (vector (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color)) (choice color (cons color color))) "24.4" ansi-color-normal-colors-vector] 10) #@332 Faces used for SGR control sequences determining a face. This vector holds the faces used for SGR control sequence parameters 0 to 7. Parameter Description 0 default 1 bold 2 faint 3 italic 4 underlined 5 slowly blinking 6 rapidly blinking 7 negative image (defvar ansi-color-basic-faces-vector [nil ansi-color-bold ansi-color-faint ansi-color-italic ansi-color-underline ansi-color-slow-blink ansi-color-fast-blink ansi-color-inverse] (#$ . 5696)) #@344 Faces used for SGR control sequences determining a color. This vector holds the faces used for SGR control sequence parameters 30 to 37 (foreground colors) and 40 to 47 (background colors). Parameter Color 30 40 black 31 41 red 32 42 green 33 43 yellow 34 44 blue 35 45 magenta 36 46 cyan 37 47 white (defvar ansi-color-normal-colors-vector [ansi-color-black ansi-color-red ansi-color-green ansi-color-yellow ansi-color-blue ansi-color-magenta ansi-color-cyan ansi-color-white] (#$ . 6226)) #@434 Faces used for SGR control sequences determining a "bright" color. This vector holds the faces used for SGR control sequence parameters 90 to 97 (bright foreground colors) and 100 to 107 (bright background colors). Parameter Color 90 100 bright black 91 101 bright red 92 102 bright green 93 103 bright yellow 94 104 bright blue 95 105 bright magenta 96 106 bright cyan 97 107 bright white (defvar ansi-color-bright-colors-vector [ansi-color-bright-black ansi-color-bright-red ansi-color-bright-green ansi-color-bright-yellow ansi-color-bright-blue ansi-color-bright-magenta ansi-color-bright-cyan ansi-color-bright-white] (#$ . 6766)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable ansi-color-bold-is-bright funcall function #[0 "\300\207" [nil] 1 ""] "If set to non-nil, combining ANSI bold and a color produces the bright\nversion of that color." :type boolean :version "28.1" :group ansi-colors] 10) #@43 Regexp matching an ANSI control sequence. (defconst ansi-color-control-seq-regexp "\\[[0-?]*[ -/]*[@-~]" (#$ . 7767)) #@54 Regexp that matches SGR control sequence parameters. (defconst ansi-color-parameter-regexp "\\([0-9]*\\)[m;]" (#$ . 7892)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320& \207" [custom-declare-variable ansi-color-for-comint-mode funcall function #[0 "\300\207" [t] 1 #1=""] "Determines what to do with comint output.\nIf nil, do nothing.\nIf the symbol `filter', then filter all SGR control sequences.\nIf anything else (such as t), then translate SGR control sequences\ninto text properties.\n\nIn order for this to have any effect, `ansi-color-process-output' must\nbe in `comint-output-filter-functions'.\n\nThis can be used to enable colorized ls --color=yes output\nin shell buffers. You set this variable by calling one of:\n\\[ansi-color-for-comint-mode-on]\n\\[ansi-color-for-comint-mode-off]\n\\[ansi-color-for-comint-mode-filter]" :type (choice (const :tag "Do nothing" nil) (const :tag "Filter" filter) (const :tag "Translate" t)) :group ansi-colors :version "23.2" ansi-color-for-compilation-mode #[0 "\300\207" [t] 1 #1#] "Determines what to do with compilation output.\nIf nil, do nothing.\n\nIf the symbol `filter', then filter all ANSI graphical control\nsequences.\n\nIf anything else (such as t), then translate ANSI graphical\ncontrol sequences into text properties.\n\nIn order for this to have any effect, `ansi-color-compilation-filter'\nmust be in `compilation-filter-hook'." (choice (const :tag "Do nothing" nil) (const :tag "Filter" filter) (other :tag "Translate" t)) "28.1"] 10) #@191 Function for applying an Ansi Color face to text in a buffer. This function should accept three arguments: BEG, END, and FACE, and it should apply face FACE to the text between BEG and END. (defvar ansi-color-apply-face-function 'ansi-color-apply-overlay-face (#$ . 9478)) #@40 Set `ansi-color-for-comint-mode' to t. (defalias 'ansi-color-for-comint-mode-on #[0 "\301\211\207" [ansi-color-for-comint-mode t] 2 (#$ . 9757) nil]) #@42 Set `ansi-color-for-comint-mode' to nil. (defalias 'ansi-color-for-comint-mode-off #[0 "\301\211\207" [ansi-color-for-comint-mode nil] 2 (#$ . 9914) nil]) #@54 Set `ansi-color-for-comint-mode' to symbol `filter'. (defalias 'ansi-color-for-comint-mode-filter #[0 "\301\211\207" [ansi-color-for-comint-mode filter] 2 (#$ . 10076) nil]) #@527 Maybe translate SGR control sequences of comint output into text properties. Depending on variable `ansi-color-for-comint-mode' the comint output is either not processed, SGR control sequences are filtered using `ansi-color-filter-region', or SGR control sequences are translated into text properties using `ansi-color-apply-on-region'. The comint output is assumed to lie between the marker `comint-last-output-start' and the process-mark. This is a good function to put in `comint-output-filter-functions'. (fn IGNORED) (defalias 'ansi-color-process-output #[257 "\302!\203 \303!p=\203 \304!\203 \202 \305 \306\307p!! ?\2063 \310=\203/ \311\"\207\312\"\207" [comint-last-output-start ansi-color-for-comint-mode markerp marker-buffer marker-position point-min-marker process-mark get-buffer-process filter ansi-color-filter-region ansi-color-apply-on-region] 6 (#$ . 10258)]) #@188 Maybe translate SGR control sequences into text properties. This function depends on the `ansi-color-for-compilation-mode' variable, and is meant to be used in `compilation-filter-hook'. (defalias 'ansi-color-compilation-filter #[0 "\303 \304\267\202 \305\202 \306\n`\"\202 \307\n`\")\207" [inhibit-read-only ansi-color-for-compilation-mode compilation-filter-start t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 8 filter 12)) nil ansi-color-filter-region ansi-color-apply-on-region] 3 (#$ . 11159)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias ansi-color-unfontify-region font-lock-default-unfontify-region nil make-obsolete "24.1"] 4) #@320 Context saved between two calls to `ansi-color-apply'. This is a list of the form (CODES FRAGMENT) or nil. CODES represents the state the last call to `ansi-color-apply' ended with, currently a list of ansi codes, and FRAGMENT is a string starting with an escape sequence, possibly the start of a new escape sequence. (defvar ansi-color-context nil (#$ . 11874)) (make-variable-buffer-local 'ansi-color-context) #@389 Filter out all ANSI control sequences from STRING. Every call to this function will set and use the buffer-local variable `ansi-color-context' to save partial escape sequences. This information will be used for the next call to `ansi-color-apply'. Set `ansi-color-context' to nil if you don't want this. This function can be added to `comint-preoutput-filter-functions'. (fn STRING) (defalias 'ansi-color-filter-apply #[257 "\302\303\211A@\203 A@P\262\303\304 #\211\262\203, OB\262\302\225\262\202 \303\304\305#\205E \302\224\303O\262\211\262OB\262\211\205Q \303D\210\306\307\237\"\207" [ansi-color-context ansi-color-control-seq-regexp 0 nil string-match "" apply concat] 11 (#$ . 12294)]) #@53 Return the face corresponding to CODES. (fn CODES) (defalias 'ansi-color--find-face #[257 "\301\211\302\303!\304\"\211\203/ \305\211A\262\242\"\211\203+ \203&