%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/progmodes/
Current File : //usr/local/share/emacs/27.2/lisp/progmodes/cpp.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316\317\306\301&\210\320\321\322\323\316\324%\210\312\325\326\327\316\321\306\301&\210\312\330\331\332\316\321\306\301&\210\312\333\334\335\336\337\316\340\306\301&	\210\312\341\342\343\316\344\306\301&\210\312\345\342\346\316\344\306\301&\210\312\347\302\350\316\351\306\301&\210\312\352\353\354\316\355\306\301\356\357&	\207" [custom-declare-group cpp nil "Highlight or hide text according to cpp conditionals." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group c :prefix "cpp-" custom-declare-variable cpp-config-file (convert-standard-filename ".cpp.el") "File name to save cpp configuration." :type file define-widget cpp-face lazy "Either a face or the special symbol `invisible'." (choice (const invisible) (face)) cpp-known-face 'invisible "Face used for known cpp symbols." cpp-unknown-face 'highlight "Face used for unknown cpp symbols." cpp-face-type 'light "Indicate what background face type you prefer.\nCan be either light or dark for color screens, mono for monochrome\nscreens, and none if you don't use a window system and don't have\na color-capable display." :options (light dark mono nil) symbol cpp-known-writable t "Non-nil means you are allowed to modify the known conditionals." boolean cpp-unknown-writable "Non-nil means you are allowed to modify the unknown conditionals." cpp-edit-list "Alist of cpp macros and information about how they should be displayed.\nEach entry is a list with the following elements:\n0. The name of the macro (a string).\n1. Face used for text that is `ifdef' the macro.\n2. Face used for text that is `ifndef' the macro.\n3. t, nil, or `both' depending on what text may be edited." (repeat (list (string :tag "Macro") (cpp-face :tag "True") (cpp-face :tag "False") (choice (const :tag "True branch writable" t) (const :tag "False branch writable" nil) (const :tag "Both branches writable" both)))) cpp-message-min-time-interval 1.0 "Minimum time interval in seconds for `cpp-progress-message' messages.\nIf nil, `cpp-progress-message' prints no progress messages." (choice (const :tag "Disable progress messages" nil) float) :version "26.1"] 10)
(defvar cpp-overlay-list nil)
(make-variable-buffer-local 'cpp-overlay-list)
#@61 Alist of strings and names of the defined face collections.
(defconst cpp-face-type-list '(("light color background" . light) ("dark color background" . dark) ("monochrome" . mono) ("tty" . none)) (#$ . 2697))
(defconst cpp-writable-list '(("writable" . t) ("read-only")))
(defvar cpp-button-event nil)
(defvar cpp-edit-buffer nil)
(make-variable-buffer-local 'cpp-edit-buffer)
(defconst cpp-branch-list '(("false") ("true" . t) ("both" . both)))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\302\321\304\322\306\307&\210\300\323\302\324\304\325\306\307&\210\300\326\327\330\304\331\306\307&\210\300\332\333\334\304\335\306\307&\207" [custom-declare-variable cpp-face-default-list nil "Alist of faces you can choose from for cpp conditionals.\nEach element has the form (STRING . FACE), where STRING\nserves as a name (for `cpp-highlight-buffer' only)\nand FACE is either a face (a symbol)\nor a cons cell (background-color . COLOR)." :type (alist :key-type (string :tag "Name") :value-type (choice face (const invisible) (cons (const background-color) (string :tag "Color")))) :group cpp cpp-face-light-name-list '("light gray" "light blue" "light cyan" "light yellow" "light pink" "pale green" "beige" "orange" "magenta" "violet" "medium purple" "turquoise") "Background colors useful with dark foreground colors." (repeat string) cpp-face-dark-name-list '("dim gray" "blue" "cyan" "yellow" "red" "dark green" "brown" "dark orange" "dark khaki" "dark violet" "purple" "dark turquoise") "Background colors useful with light foreground colors." (repeat string) cpp-face-light-list "Alist of names and faces to be used for light backgrounds." (repeat (cons string (choice face (cons (const background-color) string)))) cpp-face-dark-list "Alist of names and faces to be used for dark backgrounds." (repeat (cons string (choice face (cons (const background-color) string)))) cpp-face-mono-list '(("bold" . bold) ("bold-italic" . bold-italic) ("italic" . italic) ("underline" . underline)) "Alist of names and faces to be used for monochrome screens." (repeat (cons string face)) cpp-face-none-list '(("default" . default) ("invisible" . invisible)) "Alist of names and faces available even if you don't use a window system." (repeat (cons string cpp-face))] 8)
#@63 All faces used for highlighting text inside cpp conditionals.
(defvar cpp-face-all-list (append cpp-face-light-list cpp-face-dark-list cpp-face-mono-list cpp-face-none-list) (#$ . 5055))
#@46 List of cpp macros used in the local buffer.
(defvar cpp-parse-symbols nil (#$ . 5248))
(make-variable-buffer-local 'cpp-parse-symbols)
(defconst cpp-parse-regexp "'\\|\"\\|/\\*\\|//\\|\\(^[ 	]*#[ 	]*\\(ifdef\\|ifndef\\|if\\|elif\\|else\\|endif\\)\\b\\)")
#@238 Highlight C code according to preprocessor conditionals.
This command pops up a buffer which you should edit to specify
what kind of highlighting to use, and the criteria for highlighting.
A prefix arg suppresses display of that buffer.
(defalias 'cpp-highlight-buffer #[(arg) "\306=\204\307>\204\310\307!\210\311\312 \210\n\204\313 \210\311\212eb\210\314\315!\210\316\f\311\306#\203C\314\317\320\321`eZ_\322 \"\"\210\323\224\323\225{\211\324\230\204M
\325\230\203c\323\224b\210\3261[\327 0\202_\210\330\331!\210\202?
\332\230\203x\333\334\311\306#\204?\335\336!\210\202?
\337\230\203\205\340\311w\210\202?\341\210\341\224`T\342\224\342\225{\341\225`{12342\343\230\203\261\344\306143$\210\202>2\345\230\203\305\344\311143$\210\202>2\346\230\203\331\344\306143$\210\202>2\347\230\203\373\311\21156\35043\"\210*\344\306143$\210\202>2\351\230\203)\204\n\330\352!\210@@?@A@43F7\35043\"\2107B)\202>2\353\230\203:\35043\"\210\202>\330\354!\210,)\202&\314\355!\210)\203X\212\356@8b\210\330\357!\210))8\206e	?\206e\360 \207" [buffer-invisibility-spec cpp-parse-symbols cpp-edit-list cpp-state-stack cpp-parse-regexp match t cpp add-to-invisibility-spec nil cpp-parse-reset cpp-edit-load cpp-progress-message "Parsing..." re-search-forward "Parsing...%d%%" floor 100.0 buffer-size 0 "'" "\"" (error) forward-sexp cpp-parse-error "Unterminated string or character" "/*" search-forward "*/" error "Unterminated comment" "//" "^\n
" 1 2 "ifdef" cpp-parse-open "ifndef" "if" "elif" cpp-parse-close "else" "Top level #else" "endif" "Parser error" "Parsing...done" 3 "Unclosed conditional" cpp-parse-edit expr type to from cpp-unknown-face cpp-known-face entry arg] 7 (#$ . 5511) "P"])
#@70 Push information about conditional-beginning onto `cpp-state-stack'.
(defalias 'cpp-parse-open #[(branch expr begin end) "\306\307\"\203\310\311\211\224#\310\311\225\"P\202\306\312\"\203%\310\311\211\224#\306\313\"\2033\310\311\211\224#\306\314\"\203J\310\311\211\224#\310\311\225\"P\2023	\nF\fB
\235\204\\
B\315\"\203i\316\n\"\207\317\n\"\207" [expr branch begin end cpp-state-stack cpp-parse-symbols string-match "\\b[ 	]*/\\*.*\\*/[ 	]*\\b" substring 0 "\\b[ 	]*/\\*" "\\b[ 	]*\\(//.*\\)?$" "[ 	]+" assoc cpp-make-known-overlay cpp-make-unknown-overlay cpp-edit-list] 4 (#$ . 7270)])
(defalias 'cpp-parse-close #[(from to) "\306@A@	\"@@\307@8A\f\203\203 \310\202!\311\f8?\307\f8=G\312\n
\"
\313
\"\210B
\203Q\314\315
#\210\316\267\202c\317!\210\202k\202k\314\320#\210\203w\321!\202{\322!,\202\204\323
\"+\207" [cpp-state-stack cpp-edit-list end branch entry from assoc 3 1 2 make-overlay cpp-make-known-overlay overlay-put priority #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (invisible 88 default 96)) cpp-make-overlay-hidden face cpp-make-overlay-read-only cpp-make-overlay-sticky cpp-make-unknown-overlay overlay read-only to cpp-overlay-list] 6])
(defalias 'cpp-parse-error #[(error) "\300\301\302e`\"#\207" [error "%s at line %d" count-lines] 6])
#@46 Reset display of cpp conditionals to normal.
(defalias 'cpp-parse-reset #[nil "\205\301@!\210A\211\204\302\207" [cpp-overlay-list delete-overlay nil] 3 (#$ . 8665) nil])
#@48 Edit display information for cpp conditionals.
(defalias 'cpp-parse-edit #[nil "\204\303\304!\210p\305\306!\210\307 \210	\310 )\207" [cpp-parse-symbols buffer cpp-edit-buffer cpp-highlight-buffer t pop-to-buffer "*CPP Edit*" cpp-edit-mode cpp-edit-reset] 2 (#$ . 8849) nil])
(defalias 'cpp-make-known-overlay #[(start end) "\306	\"\307=\203\310\n!\210\202.\311=\204\312\n\313#\210\f\204.\312\n\314\315#\210\312\n\316\317#\210\n
B\211)\207" [start end overlay cpp-known-face cpp-known-writable cpp-overlay-list make-overlay invisible cpp-make-overlay-hidden default overlay-put face modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4])
(defalias 'cpp-make-unknown-overlay #[(start end) "\306	\"\307\267\202\310\n!\210\202\202\311\n\312#\210\f\204+\311\n\313\314#\210\311\n\315\316#\210\n
B\211)\207" [start end overlay cpp-unknown-face cpp-unknown-writable cpp-overlay-list make-overlay #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (invisible 11 default 18)) cpp-make-overlay-hidden overlay-put face modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4])
(defalias 'cpp-make-overlay-hidden #[(overlay) "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [overlay overlay-put invisible cpp modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 4])
(defalias 'cpp-make-overlay-read-only #[(overlay) "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [overlay overlay-put modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only) insert-behind-hooks (cpp-signal-read-only)] 4])
(defalias 'cpp-make-overlay-sticky #[(overlay) "\301\302\303#\210\301\304\305#\207" [overlay overlay-put insert-in-front-hooks (cpp-grow-overlay) insert-behind-hooks (cpp-grow-overlay)] 4])
(defalias 'cpp-signal-read-only #[(overlay after start end &optional _len) "?\205\304	!\nW\204\305	!V\205\306\307!\207" [after overlay start end overlay-start overlay-end error "This text is read only"] 2])
(defalias 'cpp-grow-overlay #[(overlay after start end &optional _len) "\205\304	\n\305	!^\306	!]#\207" [after overlay start end move-overlay overlay-start overlay-end] 6])
#@29 Keymap for `cpp-edit-mode'.
(defvar cpp-edit-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\303\321\320#\210\303\322\320#\210\303\323\324#\210\303\325\324#\210\303\326\327#\210\303\330\327#\210\303\331\332#\210\303\333\332#\210\303\334\335#\210\303\336\335#\210\303\337\340#\210\303\341\340#\210\303\342\343#\210\303\344\343#\210\303\345\346#\210\303\345\346#\210\303\347\350#\210\303\351\350#\210\303\352\353#\210\303\354\353#\210\303\355\356#\210\303\357\356#\210\303\360\361#\210\303\362\361#\210\303\363\364#\210\303\365\364#\210\303\366\367#\210\303\370\367#\210)\207" [map make-keymap suppress-keymap define-key [down-mouse-2] cpp-push-button [mouse-2] ignore " " scroll-up-command [33554464] scroll-down-command "" [delete] scroll-down "" cpp-edit-apply "a" "A" "r" cpp-edit-reset "R" "s" cpp-edit-save "S" "l" cpp-edit-load "L" "h" cpp-edit-home "H" "b" cpp-edit-background "B" "k" cpp-edit-known "K" "u" cpp-edit-unknown "t" cpp-edit-true "T" "f" cpp-edit-false "F" "w" cpp-edit-write "W" "X" cpp-edit-toggle-known "x" "Y" cpp-edit-toggle-unknown "y" "q" bury-buffer "Q"] 4) (#$ . 11132))
(defvar cpp-edit-symbols nil)
(make-variable-buffer-local 'cpp-edit-symbols)
(defvar cpp-edit-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cpp-edit-mode-hook variable-documentation put "Hook run after entering CPP Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp cpp-edit-mode-map definition-name cpp-edit-mode] 4)
(defvar cpp-edit-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [cpp-edit-mode-abbrev-table cpp-edit-mode-map variable-documentation put purecopy "Keymap for `cpp-edit-mode'." boundp cpp-edit-mode-syntax-table definition-name cpp-edit-mode (lambda (#1=#:def-tmp-var) (defvar cpp-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cpp-edit-mode'." (lambda (#1#) (defvar cpp-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cpp-edit-mode'." derived-mode-parent] 5)
#@301 Major mode for editing the criteria for highlighting cpp conditionals.
Click on objects to change them.
You can also use the keyboard accelerators indicated like this: [K]ey.

This mode runs the hook `cpp-edit-mode-hook', as the final or penultimate step
during initialization.

\{cpp-edit-mode-map}
(defalias 'cpp-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315 \210\316\317!\210\307)\320\321!\207" [delay-mode-hooks major-mode mode-name cpp-edit-mode-map cpp-edit-mode-syntax-table cpp-edit-mode-abbrev-table make-local-variable t kill-all-local-variables cpp-edit-mode "CPP Edit" use-local-map set-syntax-table buffer-disable-undo auto-save-mode -1 run-mode-hooks cpp-edit-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 13621) nil])
#@54 Apply edited display information to original buffer.
(defalias 'cpp-edit-apply #[nil "\300 \210\301\302!\207" [cpp-edit-home cpp-highlight-buffer t] 2 (#$ . 14408) nil])
#@49 Reset display information from original buffer.
(defalias 'cpp-edit-reset #[nil "p\306\307 `\306
q\210@\fq\210A\310 \210\311\312!c\210\313\314
!\315\"\210\311\316!\317\320\261\210\313\321\315\"\210\322c\210\313\323\324\"\210\325c\210\313\326\327\"\210\322c\210\313\330\331\"\210\332c\210\333c\210\313\334BC\"@\335\"\210\336c\210\313\337D!\340\306\341$\210\342c\210\313\334EF\"@\343\"\210\344c\210\313\337G!\345\306\341$\210\346c\210\313\334HF\"@\347\"\210\350\351\352\353\354\355%c\210\356!\203K@I\357IJ\"\211KA@L\360K8MK\203\306\361K8\202\307\362NAK\203\373L\203\335L\363=\203\373M\203\351M\363=\203\373N\362=\203\373\364KJ\"J\306KIG\365V\203\366I\367\365#\370\261\210\202\350\371I\"c\210\313\337L!\372I\341\373%\210\374c\210\313\337M!\375I\341\373%\210\374c\210\313\334NO\"@\376I\306\377%\210\325c\210-\202\237\332c\210\201P\306\n\"\210	b-\207" [symbols pos start buffer-read-only buffer cpp-edit-buffer nil window-start erase-buffer substitute-command-keys "CPP Display Information for `" cpp-make-button buffer-name cpp-edit-home "'\n\nClick mouse-2 on item you want to change or use\n" "or switch to this buffer and type the keyboard equivalents.\n" "Keyboard equivalents are indicated with brackets like [T]his.\n\n" "[H]ome (display the C file)" "  " "[A]pply new settings" cpp-edit-apply "\n" "[S]ave settings" cpp-edit-save "[L]oad settings" cpp-edit-load "\n\n" "[B]ackground: " rassq cpp-edit-background "\n[K]nown conditionals: " cpp-face-name cpp-edit-known t " [X] " cpp-edit-toggle-known "\n[U]nknown conditionals: " cpp-edit-unknown " [Y] " cpp-edit-toggle-unknown format "\n\n\n%39s: %14s %14s %7s\n\n" "Expression" "[T]rue Face" "[F]alse Face" "[W]rite" reverse assoc 2 3 both default delq 39 substring 0 ": " "%39s: " cpp-edit-true 14 " " cpp-edit-false cpp-edit-write 6 cpp-parse-symbols cpp-edit-symbols cpp-face-type cpp-face-type-list cpp-known-face cpp-known-writable cpp-writable-list cpp-unknown-face cpp-unknown-writable symbol cpp-edit-list entry true false write cpp-branch-list set-window-start] 7 (#$ . 14584) nil])
(defalias 'cpp-locate-user-emacs-file #[(file) "\301\302H\303=\203\304\305\"\202\"\207" [file locate-user-emacs-file 0 46 substring 1] 4])
#@25 Load cpp configuration.
(defalias 'cpp-edit-load #[nil "\203\302	!\203\303	!\210\202\302\304	!!\203\303\304	!!\210\305\306!\205'\307 \207" [init-file-user cpp-config-file file-readable-p load-file cpp-locate-user-emacs-file derived-mode-p cpp-edit-mode cpp-edit-reset] 3 (#$ . 16854) nil])
#@47 Save the current cpp configuration in a file.
(defalias 'cpp-edit-save #[nil "\306\307!\210rq\210\310	!\203	\202\311	!\312\n!\211q\210\313 \210\307\314\304\315\fDE\"\210\307\314\305\315
DE\"\210\307\314\316\315DE\"\210\307\314\317\315DE\"\210\307\314\320\315DE\"\210\307\314\321\315DE\"\210\322\n!+\207" [cpp-edit-buffer cpp-config-file config-file buffer cpp-known-face cpp-unknown-face require pp file-writable-p cpp-locate-user-emacs-file find-file-noselect erase-buffer setq quote cpp-face-type cpp-known-writable cpp-unknown-writable cpp-edit-list write-file] 6 (#$ . 17160) nil])
#@33 Switch back to original buffer.
(defalias 'cpp-edit-home #[nil "\203\302 \210\303	!\207" [cpp-button-event cpp-edit-buffer read-event pop-to-buffer] 2 (#$ . 17773) nil])
#@33 Change default face collection.
(defalias 'cpp-edit-background #[nil "\300\301!\210\302 \207" [call-interactively cpp-choose-default-face cpp-edit-reset] 2 (#$ . 17952) nil])
#@40 Select default for known conditionals.
(defalias 'cpp-edit-known #[nil "\301\302\"\303 \207" [cpp-known-face cpp-choose-face "Known face" cpp-edit-reset] 3 (#$ . 18133) nil])
#@42 Select default for unknown conditionals.
(defalias 'cpp-edit-unknown #[nil "\301\302\"\303 \207" [cpp-unknown-face cpp-choose-face "Unknown face" cpp-edit-reset] 3 (#$ . 18316) nil])
#@147 Toggle writable status for known conditionals.
With optional argument ARG, make them writable if ARG is positive,
otherwise make them unwritable.
(defalias 'cpp-edit-toggle-known #[(arg) "\204	\204\302!\303X\203\304\202\305\306 \207" [arg cpp-known-writable prefix-numeric-value 0 nil t cpp-edit-reset] 2 (#$ . 18508) "@P"])
#@149 Toggle writable status for unknown conditionals.
With optional argument ARG, make them writable if ARG is positive,
otherwise make them unwritable.
(defalias 'cpp-edit-toggle-unknown #[(arg) "\204	\204\302!\303X\203\304\202\305\306 \207" [arg cpp-unknown-writable prefix-numeric-value 0 nil t cpp-edit-reset] 2 (#$ . 18852) "@P"])
#@69 Select SYMBOL's true FACE used for highlighting taken conditionals.
(defalias 'cpp-edit-true #[(symbol face) "\302!A	\240\210\303 \207" [symbol face cpp-edit-list-entry-get-or-create cpp-edit-reset] 2 (#$ . 19201) (let ((symbol (cpp-choose-symbol))) (list symbol (cpp-choose-face "True face" (nth 1 (assoc symbol cpp-edit-list)))))])
#@72 Select SYMBOL's false FACE used for highlighting untaken conditionals.
(defalias 'cpp-edit-false #[(symbol face) "\302!AA	\240\210\303 \207" [symbol face cpp-edit-list-entry-get-or-create cpp-edit-reset] 2 (#$ . 19542) (let ((symbol (cpp-choose-symbol))) (list symbol (cpp-choose-face "False face" (nth 2 (assoc symbol cpp-edit-list)))))])
#@131 Set which branches of SYMBOL should be writable to BRANCH.
BRANCH should be either nil (false branch), t (true branch) or `both'.
(defalias 'cpp-edit-write #[(symbol branch) "\302\303!\233	\240\210\304 \207" [symbol branch 3 cpp-edit-list-entry-get-or-create cpp-edit-reset] 3 (#$ . 19890) (list (cpp-choose-symbol) (cpp-choose-branch))])
(defalias 'cpp-edit-list-entry-get-or-create #[(symbol) "\303	\"\211\204\304\211\305\304\257\211	B\n)\207" [symbol cpp-edit-list entry assoc nil both] 6])
(defalias 'cpp-choose-symbol #[nil "\203	\207\303\304\n\305\306$\207" [cpp-button-event cpp-callback-data cpp-edit-symbols completing-read "Symbol: " nil t] 5])
(defalias 'cpp-choose-branch #[nil "\203
\302\303\211	BD\"\207\304\305\306	\307\310$	\"A\207" [cpp-button-event cpp-branch-list x-popup-menu "Branch" assoc completing-read "Branch: " nil t] 6])
(defalias 'cpp-choose-face #[(prompt default) "\203\306	\211\nBD\"\202.\307\n\"@\310\311\f\203#	\312\f\313R\202&	\314P\n\315\316$
\"A)\2062\207" [cpp-button-event prompt cpp-face-default-list default name cpp-face-all-list x-popup-menu rassq assoc completing-read " (default " "): " ": " nil t] 6])
(defalias 'cpp-choose-default-face #[(type) "?\206Q\306\267\202K	\204\307\310\n\"\311	\"\312\311	
\"\211\207\2045\307\310\"\311\"\313\311
\"\211\207\314\311
\"\211\207\315
\211\207" [type cpp-face-light-list cpp-face-light-name-list cpp-face-all-list cpp-face-type cpp-face-none-list #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (light 11 dark 35 mono 64)) mapcar cpp-create-bg-face append light dark mono none cpp-face-default-list cpp-face-dark-list cpp-face-dark-name-list cpp-face-mono-list] 3 nil (list (if cpp-button-event (x-popup-menu cpp-button-event (list "Screen type" (cons "Screen type" cpp-face-type-list))) (cdr (assoc (completing-read "Screen type: " cpp-face-type-list nil t) cpp-face-type-list))))])
(defalias 'cpp-make-button #[(name callback &optional data face padding) "\306\307\"\310\211\204`c\210\2026GV\203(`\311\312#c\210\2026\313GZ\314\"c\210`c\210`\f\203S\315
\"A\211\316>\203M\317\202O)\202T\317\320\n	\321\304\fD\322\323\324D\205k\325D%#+\207" [name to from padding face cpp-face-all-list format "%s" nil substring 0 make-string 32 assoc (default invisible) bold add-text-properties append (mouse-face highlight) (help-echo "mouse-2: change/use this item") cpp-callback cpp-data check callback data] 11])
(defalias 'cpp-push-button #[(event) "\306\307!\211@\262!q\210\310\307!!\311	\312\"\311	\313\"\203*\314\311	\313\"!\2027\315
\316\"\2057\314\315
\317\"!,\207" [event pos cpp-button-event fun cpp-callback-data global-map window-buffer event-start posn-point get-text-property cpp-data cpp-callback call-interactively lookup-key [down-mouse-2] [down-mouse-2]] 4 nil "@e"])
(defalias 'cpp-create-bg-face #[(color) "\301BB\207" [color background-color] 3])
(byte-code "\302\204\n\303 \203	\202\304!\207" [window-system cpp-face-type cpp-choose-default-face display-color-p none] 2)
(defalias 'cpp-face-name #[(face) "\303\203	\202\n\304	\"\211\203\n@\202\305\306\")\207" [face cpp-face-all-list entry rassq default format "<%s>"] 4])
#@61 Last time `cpp-progress-message' issued a progress message.
(defvar cpp-progress-time 0 (#$ . 23180))
#@222 Report progress by printing messages used by "cpp-" functions.

Print messages at most once every `cpp-message-min-time-interval' seconds.
If that option is nil, don't prints messages.
ARGS are the same as for `message'.
(defalias 'cpp-progress-message #[(&rest args) "\205\304 \305\306	\n\"\"?\205	\307\310\")\207" [cpp-message-min-time-interval time cpp-progress-time args current-time time-less-p time-subtract apply message] 5 (#$ . 23289)])
(provide 'cpp)
Zerion Mini Shell 1.0