;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:22 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/cpp.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\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&\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))))] 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)) (#$ . 2556))
(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 (repeat (cons string (choice face (cons (const background-color) string)))) :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) (#$ . 4853))
#@46 List of cpp macros used in the local buffer.
(defvar cpp-parse-symbols nil (#$ . 5046))
(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#\2038
\314\317`eZ\320_\321 \245\"\210\322\224\322\225{\211\323\230\204L
\324\230\203X\322\224b\210\311\325\326\217\210\2024

\327\230\203m\330\331\311\306#\2044
\332\333!\210\2024

\334\230\203z\335\311w\210\2024
\336\210\336\224`T\337\224\337\225{\336\225`{01231\340\230\203\246\341\306032$\210\2023
1\342\230\203\272\341\311032$\210\2023
1\343\230\203\316\341\306032$\210\2023
1\344\230\203\360\311\21145\34532\"\210*\341\306032$\210\2023
1\346\230\203
\204\377\347\350!\210@@?@A@32F6\34532\"\2106B)\2023
1\351\230\203/
\34532\"\210\2023
\347\352!\210,)\202&\353\354!\210)\203M
\212\355@8b\210\347\356!\210))7\206Z
	?\206Z
\357 \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%%" 100 buffer-size 0 "'" "\"" (forward-sexp) ((error (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" cpp-parse-error "Top level #else" "endif" "Parser error" message "Parsing...done" 3 "Unclosed conditional" cpp-parse-edit expr type to from cpp-unknown-face cpp-known-face entry arg] 6 (#$ . 5309) "P"])
#@70 Push information about conditional-beginning onto `cpp-state-stack'.
(defalias 'cpp-parse-open #[(branch expr begin end) "\306\307\"\203\310\211\224O\310\225\311OP\202\306\312\"\203#\310\211\224O\306\313\"\2030\310\211\224O\306\314\"\203F\310\211\224O\310\225\311OP\2020	\nF\fB
\235\204X
B\315\"\203e\316\n\"\207\317\n\"\207" [expr branch begin end cpp-state-stack cpp-parse-symbols string-match "\\b[ 	]*/\\*.*\\*/[ 	]*\\b" 0 nil "\\b[ 	]*/\\*" "\\b[ 	]*\\(//.*\\)?$" "[ 	]+" assoc cpp-make-known-overlay cpp-make-unknown-overlay cpp-edit-list] 4 (#$ . 7071)])
(defalias 'cpp-parse-close #[(from to) "\306@A@	\"@@\307@8A\f\203\203\203 \310\202!\311\f8?\307\f8=G\312\n
\"
\313
\"\210B
\203Q\314\315
#\210\316=\203`\317!\210\202o\320=\204o\314\321#\210\203{\322!\202\323!,\202\210\324
\"+\207" [cpp-state-stack cpp-edit-list end branch entry from assoc 3 1 2 make-overlay cpp-make-known-overlay overlay-put priority invisible cpp-make-overlay-hidden default 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 (#$ . 8354) 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 (#$ . 8538) 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=\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-unknown-face cpp-unknown-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-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\315#\210\303\316\317#\210\303\320\317#\210\303\321\317#\210\303\322\323#\210\303\324\323#\210\303\325\326#\210\303\327\326#\210\303\330\331#\210\303\332\331#\210\303\333\334#\210\303\335\334#\210\303\336\337#\210\303\340\337#\210\303\341\342#\210\303\343\342#\210\303\344\345#\210\303\344\345#\210\303\346\347#\210\303\350\347#\210\303\351\352#\210\303\353\352#\210\303\354\355#\210\303\356\355#\210\303\357\360#\210\303\361\360#\210\303\362\363#\210\303\364\363#\210\303\365\366#\210\303\367\366#\210)\207" [map make-keymap suppress-keymap define-key [down-mouse-2] cpp-push-button [mouse-2] ignore " " scroll-up-command "" 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) (#$ . 10730))
(defvar cpp-edit-symbols nil)
(byte-code "\300\301!\210\302\303N\204\304\302\303\305\306!#\210\307\310!\204\304\310\311\312#\210\300\207" [make-variable-buffer-local cpp-edit-symbols cpp-edit-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar cpp-edit-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [cpp-edit-mode-map variable-documentation put purecopy "Keymap for `cpp-edit-mode'." boundp cpp-edit-mode-syntax-table definition-name cpp-edit-mode] 5)
(defvar cpp-edit-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cpp-edit-mode-syntax-table variable-documentation put purecopy "Syntax table for `cpp-edit-mode'." cpp-edit-mode-abbrev-table definition-name cpp-edit-mode] 5)
(defvar cpp-edit-mode-abbrev-table (progn (define-abbrev-table 'cpp-edit-mode-abbrev-table nil) cpp-edit-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cpp-edit-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cpp-edit-mode'." cpp-edit-mode derived-mode-parent nil] 5)
#@286 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 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 (#$ . 13359) 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 (#$ . 14131) nil])
#@49 Reset display information from original buffer.
(defalias 'cpp-edit-reset #[nil "p\306\307 `\306
q\210?\fq\210@\310 \210\311c\210\312\313
!\314\"\210\315\316\317\261\210\312\320\314\"\210\321c\210\312\322\323\"\210\324c\210\312\325\326\"\210\321c\210\312\327\330\"\210\331c\210\332c\210\312\333AB\"@\334\"\210\335c\210\312\336C!\337\306\340$\210\341c\210\312\333DE\"@\342\"\210\343c\210\312\336F!\344\306\340$\210\345c\210\312\333GE\"@\346\"\210\347\350\351\352\353\354%c\210\355!\203F
@H\356HI\"\211JA@K\357J8LJ\203\302\360J8\202\303\361MAJ\203\367K\203\331K\362=\203\367L\203\345L\362=\203\367M\361=\203\367\363JI\"I\306JHG\364V\203
H\365\364O\366\261\210\202
\347\367H\"c\210\312\336K!\370H\340\371%\210\372c\210\312\336L!\373H\340\371%\210\372c\210\312\333MN\"@\374H\306\375%\210\324c\210-\202\233\331c\210\376\306\n\"\210	b-\207" [symbols pos start buffer-read-only buffer cpp-edit-buffer nil window-start erase-buffer "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 0 ": " "%39s: " cpp-edit-true 14 " " cpp-edit-false cpp-edit-write 6 set-window-start 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] 7 (#$ . 14307) nil])
#@25 Load cpp configuration.
(defalias 'cpp-edit-load #[nil "\203\302	!\203\303	!\210\202\302\304	P!\203\303	!\210\305\306!\205%\307 \207" [init-file-user cpp-config-file file-readable-p load-file "~/" derived-mode-p cpp-edit-mode cpp-edit-reset] 3 (#$ . 16380) nil])
#@47 Save the current cpp configuration in a file.
(defalias 'cpp-edit-save #[nil "\306\307!\210rq\210\310	!\211q\210\311 \210\307\312\303\313DE\n\"\210\307\312\304\313\fDE\n\"\210\307\312\305\313
DE\n\"\210\307\312\314\313\fDE\n\"\210\307\312\315\313
DE\n\"\210\307\312\316\313DE\n\"\210\317	!*\207" [cpp-edit-buffer cpp-config-file buffer cpp-known-face cpp-unknown-face cpp-face-type require pp find-file-noselect erase-buffer setq quote cpp-known-writable cpp-unknown-writable cpp-edit-list write-file] 6 (#$ . 16659) 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 (#$ . 17195) 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 (#$ . 17374) 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 (#$ . 17555) 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 (#$ . 17738) 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 (#$ . 17930) "@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 (#$ . 18274) "@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 (#$ . 18623) (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 (#$ . 18964) (let ((symbol (cpp-choose-symbol))) (list symbol (cpp-choose-face "False face" (nth 2 (assoc symbol cpp-edit-list)))))])
#@130 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 (#$ . 19312) (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) "?\206]\306=\203#	\204\307\310\n\"\311	\"\306\311	
\"\211
\207\312=\203F\204;\307\310\"\311\"\312\311
\"\211
\207\313=\203W\313\311
\"\211
\207\314
\211
\207" [type cpp-face-light-list cpp-face-light-name-list cpp-face-all-list cpp-face-type cpp-face-none-list light mapcar cpp-create-bg-face append 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\2025GV\203'`\311Oc\210\2025\312GZ\313\"c\210`c\210`\f\203R\314
\"A\211\315>\203L\316\202N)\202S\316\317\n	\320\304\fD\321\322\323D\205j\324D%#+\207" [name to from padding face cpp-face-all-list format "%s" nil 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@)!q\210\307!\310	8\206&	A@:\203#	A@@\202&	A@)\311\n\312\"\311\n\313\"\f\203A\314\311\n\313\"!\202P\315\316\"\205P\314\315\317\"!,\207" [event position pos cpp-button-event fun cpp-callback-data window-buffer event-start 5 get-text-property cpp-data cpp-callback call-interactively lookup-key [down-mouse-2] [down-mouse-2] global-map] 5 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])
(defvar cpp-progress-time 0)
(defalias 'cpp-progress-message #[(&rest args) "\303 A@\211	U?\205\304\305\n\")\207" [time cpp-progress-time args current-time apply message] 4])
(provide 'cpp)