;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\320\321%\210\322\323\324\325\320\326%\210\312\327\314\315\330DD\331\320\323%\210\312\332\314\315\333DD\334\320\323%\210\312\335\314\315\336DD\337\340\341\320\342&\210\312\343\314\315\344DD\345\320\346%\210\312\347\314\315\350DD\351\320\346%\210\312\352\314\315\353DD\354\320\355%\210\312\356\314\315\357DD\360\320\361\362\363&\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 funcall function #[0 "\300\301!\207" [convert-standard-filename ".cpp.el"] 2 #1=""] "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 #[0 "\300\207" [invisible] 1 #1#] "Face used for known cpp symbols." cpp-unknown-face #[0 "\300\207" [highlight] 1 #1#] "Face used for unknown cpp symbols." cpp-face-type #[0 "\300\207" [light] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "Non-nil means you are allowed to modify the known conditionals." boolean cpp-unknown-writable #[0 "\300\207" [t] 1 #1#] "Non-nil means you are allowed to modify the unknown conditionals." cpp-edit-list #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [1.0] 1 #1#] "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)
#@52 List of cpp overlays active in the current buffer.
(defvar cpp-overlay-list nil (#$ . 2523))
(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)) (#$ . 2669))
(defconst cpp-writable-list '(("writable" . t) ("read-only")))
(defvar cpp-button-event nil)
#@59 Real buffer whose cpp display information we are editing.
(defvar cpp-edit-buffer nil (#$ . 2978))
(make-variable-buffer-local 'cpp-edit-buffer)
(defconst cpp-branch-list '(("false") ("true" . t) ("both" . both)))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323%\210\300\324\302\303\325DD\326\306\327%\210\300\330\302\303\331DD\332\306\333%\210\300\334\302\303\335DD\336\306\337%\207" [custom-declare-variable cpp-face-default-list funcall function #[0 "\300\207" [nil] 1 #1=""] "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")))) cpp-face-light-name-list #[0 "\300\207" [("light gray" "light blue" "light cyan" "light yellow" "light pink" "pale green" "beige" "orange" "magenta" "violet" "medium purple" "turquoise")] 1 #1#] "Background colors useful with dark foreground colors." (repeat string) cpp-face-dark-name-list #[0 "\300\207" [("dim gray" "blue" "cyan" "yellow" "red" "dark green" "brown" "dark orange" "dark khaki" "dark violet" "purple" "dark turquoise")] 1 #1#] "Background colors useful with light foreground colors." (repeat string) cpp-face-light-list #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [(("bold" . bold) ("bold-italic" . bold-italic) ("italic" . italic) ("underline" . underline))] 1 #1#] "Alist of names and faces to be used for monochrome screens." (repeat (cons string face)) cpp-face-none-list #[0 "\300\207" [(("default" . default) ("invisible" . invisible))] 1 #1#] "Alist of names and faces available even if you don't use a window system." (repeat (cons string cpp-face))] 6)
#@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) (#$ . 5290))
#@46 List of cpp macros used in the local buffer.
(defvar cpp-parse-symbols nil (#$ . 5483))
(make-variable-buffer-local 'cpp-parse-symbols)
(defconst cpp-parse-regexp "'\\|\"\\|/\\*\\|//\\|\\(^[ 	]*#[ 	]*\\(ifdef\\|ifndef\\|if\\|elif\\|else\\|endif\\)\\b\\)")
#@248 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.

(fn ARG)
(defalias 'cpp-highlight-buffer #[257 "\306=\204\307>\204\310\307!\210\311\312 \210\n\204\313 \210\311\212eb\210\314\315!\210\316\f\311\306#\203/
\314\317\320\321`eZ_\322 \"\"\210\323\224\323\225{\211\324\230\204L\211\325\230\203e\323\224b\210\3261\\\327 0\266\202&\210\330\331!\266\202&\211\332\230\203{\333\334\311\306#\204+
\335\336!\266\202&\211\337\230\203\211\340\311w\266\202&\341\210\341\224`T\342\224\342\225{\341\225`{
\343\230\203\254\344\306$\266\202&
\345\230\203\277\344\311$\266\202&
\346\230\203\322\344\306$\266\202&
\347\230\203\360\311\2111\350\"\210*\344\306$\266\202&
\351\230\203
\204\376\330\352!\210@@?@A@F\350\"\210\211B\266\202&
\353\230\203&
\350\"\266\202&\330\354!\266\210\202&\314\355!\210)\203D
\212\356@8b\210\330\357!\210))\211\206P
	?\206P
\360 \207" [buffer-invisibility-spec cpp-parse-symbols cpp-edit-list cpp-state-stack cpp-parse-regexp cpp-unknown-face 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 cpp-known-face] 11 (#$ . 5746) "P"])
#@98 Push information about conditional-beginning onto `cpp-state-stack'.

(fn BRANCH EXPR BEGIN END)
(defalias 'cpp-parse-open #[1028 "\303\304\"\203\305\211\224O\305\225\306OP\262\202\303\307\"\203%\305\211\224O\262\303\310\"\2033\305\211\224O\262\303\311\"\203J\305\211\224O\305\225\306OP\262\2023FB	\235\204\\	B\312\n\"\203h\313\"\207\314\"\207" [cpp-state-stack cpp-parse-symbols cpp-edit-list string-match "\\b[ 	]*/\\*.*\\*/[ 	]*\\b" 0 nil "\\b[ 	]*/\\*" "\\b[ 	]*\\(//.*\\)?$" "[ 	]+" assoc cpp-make-known-overlay cpp-make-unknown-overlay] 8 (#$ . 7486)])
#@16 

(fn FROM TO)
(defalias 'cpp-parse-close #[514 "\303@A@	\"@@\304@8A\203e
\203\305\202\3068?\3048=G\307	\"\310		\"\210\211\nB
\203B\311
\312#\210\313\267\202R\314
!\210\202Y\202Y\311
\315#\210\203a\316
!\207\317
!\207\320\"\207" [cpp-state-stack cpp-edit-list cpp-overlay-list 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 72 default 79)) cpp-make-overlay-hidden face cpp-make-overlay-read-only cpp-make-overlay-sticky cpp-make-unknown-overlay] 13 (#$ . 8089)])
#@14 

(fn ERROR)
(defalias 'cpp-parse-error #[257 "\300\301\302e`\"#\207" [error "%s at line %d" count-lines] 7 (#$ . 8708)])
#@46 Reset display of cpp conditionals to normal.
(defalias 'cpp-parse-reset #[0 "\205\301@!\210A\211\204\302\207" [cpp-overlay-list delete-overlay nil] 3 (#$ . 8837) nil])
#@48 Edit display information for cpp conditionals.
(defalias 'cpp-parse-edit #[0 "\204\302\303!\210p\304\305!\210\306 \210\211\307 \207" [cpp-parse-symbols cpp-edit-buffer cpp-highlight-buffer t pop-to-buffer "*CPP Edit*" cpp-edit-mode cpp-edit-reset] 3 (#$ . 9019) nil])
#@18 

(fn START END)
(defalias 'cpp-make-known-overlay #[514 "\303\"\304=\203\305
!\210\202-\306=\204\307
\310#\210	\204-\307
\311\312#\210\307
\313\314#\210\211\nB\211\207" [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)] 7 (#$ . 9297)])
#@18 

(fn START END)
(defalias 'cpp-make-unknown-overlay #[514 "\303\"\304\267\202\305
!\210\202\202\306
\307#\210	\204*\306
\310\311#\210\306
\312\313#\210\211\nB\211\207" [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 10 default 17)) cpp-make-overlay-hidden overlay-put face modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 7 (#$ . 9713)])
#@16 

(fn OVERLAY)
(defalias 'cpp-make-overlay-hidden #[257 "\300
\301\302#\210\300
\303\304#\210\300
\305\306#\207" [overlay-put invisible cpp modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only)] 5 (#$ . 10226)])
#@16 

(fn OVERLAY)
(defalias 'cpp-make-overlay-read-only #[257 "\300
\301\302#\210\300
\303\304#\210\300
\305\306#\207" [overlay-put modification-hooks (cpp-signal-read-only) insert-in-front-hooks (cpp-signal-read-only) insert-behind-hooks (cpp-signal-read-only)] 5 (#$ . 10477)])
#@16 

(fn OVERLAY)
(defalias 'cpp-make-overlay-sticky #[257 "\300
\301\302#\210\300
\303\304#\207" [overlay-put insert-in-front-hooks (cpp-grow-overlay) insert-behind-hooks (cpp-grow-overlay)] 5 (#$ . 10760)])
#@46 

(fn OVERLAY AFTER START END &optional LEN)
(defalias 'cpp-signal-read-only #[1284 "?\205\300!W\204\301!V\205\302\303!\207" [overlay-start overlay-end error "This text is read only"] 7 (#$ . 10972)])
#@46 

(fn OVERLAY AFTER START END &optional LEN)
(defalias 'cpp-grow-overlay #[1284 "\205\300\301!^\302	!]#\207" [move-overlay overlay-start overlay-end] 11 (#$ . 11190)])
#@29 Keymap for `cpp-edit-mode'.
(defvar cpp-edit-mode-map (byte-code "\300 \301
!\210\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\312#\210\302
\314\315#\210\302
\316\317#\210\302
\320\317#\210\302
\321\317#\210\302
\322\323#\210\302
\324\323#\210\302
\325\326#\210\302
\327\326#\210\302
\330\331#\210\302
\332\331#\210\302
\333\334#\210\302
\335\334#\210\302
\336\337#\210\302
\340\337#\210\302
\341\342#\210\302
\343\342#\210\302
\344\345#\210\302
\344\345#\210\302
\346\347#\210\302
\350\347#\210\302
\351\352#\210\302
\353\352#\210\302
\354\355#\210\302
\356\355#\210\302
\357\360#\210\302
\361\360#\210\302
\362\363#\210\302
\364\363#\210\302
\365\366#\210\302
\367\366#\210\207" [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"] 5) (#$ . 11373))
#@37 Symbols defined in the edit buffer.
(defvar cpp-edit-symbols nil (#$ . 12619))
(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 #[0 "\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 (#$ . 13910) nil])
#@54 Apply edited display information to original buffer.
(defalias 'cpp-edit-apply #[0 "\300 \210\301\302!\207" [cpp-edit-home cpp-highlight-buffer t] 2 (#$ . 14695) nil])
#@49 Reset display information from original buffer.
(defalias 'cpp-edit-reset #[0 "p\306\307 `\306	q\210\n\262
q\210\211\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\334\f
\"@\335\"\210\336c\210\313\337@!\340\306\341$\210\342c\210\313\334AB\"@\343\"\210\344c\210\313\337C!\345\306\341$\210\346c\210\313\334DB\"@\347\"\210\350\351\352\353\354\355%c\210\356
!\262
\211\203,
\211@\357
E\"\211A@\3608\203\265\3618\202\266\362A\262\203\342\203\310\363=\203\342
\203\322
\363=\203\342\211\362=\203\342\364E\"E\306\262G\365V\203\364\366\365O\367\261\210\202\373\350\370\"c\210\313\337!\371\341\372%\210\373c\210\313\337!\374\341\372%\210\373c\210\313\334F\"@\375\306\376%\210\325c\266\202\232\332c\210\377\306\"\210
b)\207" [buffer-read-only cpp-edit-buffer cpp-parse-symbols cpp-edit-symbols cpp-face-type cpp-face-type-list 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 0 ": " "%39s: " cpp-edit-true 14 " " cpp-edit-false cpp-edit-write 6 set-window-start cpp-known-face cpp-known-writable cpp-writable-list cpp-unknown-face cpp-unknown-writable cpp-edit-list cpp-branch-list] 16 (#$ . 14869) nil])
#@13 

(fn FILE)
(defalias 'cpp-locate-user-emacs-file #[257 "\300
\301H\302=\203
\303\304O\202
\"\207" [locate-user-emacs-file 0 46 1 nil] 5 (#$ . 16920)])
#@25 Load cpp configuration.
(defalias 'cpp-edit-load #[0 "\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 (#$ . 17083) nil])
#@47 Save the current cpp configuration in a file.
(defalias 'cpp-edit-save #[0 "\306\307!\210rq\210\310	!\203	\202\311	!\312
!\211q\210\313 \210\307\314\302\315\nDE\"\210\307\314\303\315DE\"\210\307\314\304\315\fDE\"\210\307\314\305\315
DE\"\210\307\314\316\315DE\"\210\307\314\317\315DE\"\210\320!\266\202)\207" [cpp-edit-buffer cpp-config-file cpp-known-face cpp-unknown-face cpp-face-type cpp-known-writable require pp file-writable-p cpp-locate-user-emacs-file find-file-noselect erase-buffer setq quote cpp-unknown-writable cpp-edit-list write-file] 7 (#$ . 17387) nil])
#@33 Switch back to original buffer.
(defalias 'cpp-edit-home #[0 "\203\302 \210\303	!\207" [cpp-button-event cpp-edit-buffer read-event pop-to-buffer] 2 (#$ . 17982) nil])
#@33 Change default face collection.
(defalias 'cpp-edit-background #[0 "\300\301!\210\302 \207" [call-interactively cpp-choose-default-face cpp-edit-reset] 2 (#$ . 18159) nil])
#@40 Select default for known conditionals.
(defalias 'cpp-edit-known #[0 "\301\302\"\303 \207" [cpp-known-face cpp-choose-face "Known face" cpp-edit-reset] 3 (#$ . 18338) nil])
#@42 Select default for unknown conditionals.
(defalias 'cpp-edit-unknown #[0 "\301\302\"\303 \207" [cpp-unknown-face cpp-choose-face "Unknown face" cpp-edit-reset] 3 (#$ . 18519) nil])
#@157 Toggle writable status for known conditionals.
With optional argument ARG, make them writable if ARG is positive,
otherwise make them unwritable.

(fn ARG)
(defalias 'cpp-edit-toggle-known #[257 "\211\204\204\301
!\302X\203\303\202\304\305 \207" [cpp-known-writable prefix-numeric-value 0 nil t cpp-edit-reset] 3 (#$ . 18709) "@P"])
#@159 Toggle writable status for unknown conditionals.
With optional argument ARG, make them writable if ARG is positive,
otherwise make them unwritable.

(fn ARG)
(defalias 'cpp-edit-toggle-unknown #[257 "\211\204\204\301
!\302X\203\303\202\304\305 \207" [cpp-unknown-writable prefix-numeric-value 0 nil t cpp-edit-reset] 3 (#$ . 19060) "@P"])
#@87 Select SYMBOL's true FACE used for highlighting taken conditionals.

(fn SYMBOL FACE)
(defalias 'cpp-edit-true #[514 "\300!A
\240\210\301 \207" [cpp-edit-list-entry-get-or-create cpp-edit-reset] 4 (#$ . 19416) (byte-code "\301 \211\302\303\304\"A@\"D\207" [cpp-edit-list cpp-choose-symbol cpp-choose-face "True face" assoc] 7)])
#@90 Select SYMBOL's false FACE used for highlighting untaken conditionals.

(fn SYMBOL FACE)
(defalias 'cpp-edit-false #[514 "\300!AA
\240\210\301 \207" [cpp-edit-list-entry-get-or-create cpp-edit-reset] 4 (#$ . 19754) (byte-code "\301 \211\302\303\304\305\"8\"D\207" [cpp-edit-list cpp-choose-symbol cpp-choose-face "False face" 2 assoc] 8)])
#@151 Set which branches of SYMBOL should be writable to BRANCH.
BRANCH should be either nil (false branch), t (true branch) or `both'.

(fn SYMBOL BRANCH)
(defalias 'cpp-edit-write #[514 "\300\301!\233
\240\210\302 \207" [3 cpp-edit-list-entry-get-or-create cpp-edit-reset] 5 (#$ . 20104) (byte-code "\300 \301 D\207" [cpp-choose-symbol cpp-choose-branch] 2)])
#@15 

(fn SYMBOL)
(defalias 'cpp-edit-list-entry-get-or-create #[257 "\301
\"\211\204
\302\211\303\302\257\262
\211B\207" [cpp-edit-list assoc nil both] 7 (#$ . 20467)])
(defalias 'cpp-choose-symbol #[0 "\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 #[0 "\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])
#@23 

(fn PROMPT DEFAULT)
(defalias 'cpp-choose-face #[514 "\203\303\211	BD\"\202.\304
	\"@\305\306\203\"\307\310R\202%\311P	\312\313$\n\"A\262
\2062\211\207" [cpp-button-event cpp-face-default-list cpp-face-all-list x-popup-menu rassq assoc completing-read " (default " "): " ": " nil t] 9 (#$ . 21002)])
#@120 Choose default face list for screen of TYPE.
Type must be one of the types defined in `cpp-face-type-list'.

(fn TYPE)
(defalias 'cpp-choose-default-face #[257 "\211?\206M\211\306\267\202H\204\307\310	\"\311\n\"\312\311\f\"\211\207\2044\307\310\"\311\n\"\313\311\f\"\211\207\314\311\f\"\211\207\315\f\211\207" [cpp-face-light-list cpp-face-light-name-list cpp-face-all-list cpp-face-type cpp-face-none-list cpp-face-default-list #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (light 11 dark 34 mono 62)) mapcar cpp-create-bg-face append light dark mono none cpp-face-dark-list cpp-face-dark-name-list cpp-face-mono-list] 4 (#$ . 21324) (byte-code "\203\302\303\211	BD\"\202\304\305\306	\307\310$	\"AC\207" [cpp-button-event cpp-face-type-list x-popup-menu "Screen type" assoc completing-read "Screen type: " nil t] 6)])
#@50 

(fn NAME CALLBACK &optional DATA FACE PADDING)
(defalias 'cpp-make-button #[1282 "\301\302\"\303\211\204`\262c\210\2026GV\203'`\262\304Oc\210\2026\305GZ\306\"c\210`\262c\210`\262
\203R\307\"A\211\310>\203L\311\202M\211\262
\202S\311\262\312\313\314	D\315\316\317D
\205l\320D%#\207" [cpp-face-all-list format "%s" nil 0 make-string 32 assoc (default invisible) bold add-text-properties append face (mouse-face highlight) (help-echo "mouse-2: change/use this item") cpp-callback cpp-data] 18 (#$ . 22225)])
#@34 Pushed a CPP button.

(fn EVENT)
(defalias 'cpp-push-button #[257 "\303\304!\211@\262
!q\210\305\304!!\306
\307\"\306\310\"
\211\203)\311\306\310\"!\2026\312\n\313\"\2056\311\312\n\314\"!*\207" [cpp-button-event 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]] 8 (#$ . 22774) "@e"])
#@14 

(fn COLOR)
(defalias 'cpp-create-bg-face #[257 "\211\300BB\207" [background-color] 4 (#$ . 23191)])
(byte-code "\302\204\n\303 \203	\202\304!\207" [window-system cpp-face-type cpp-choose-default-face display-color-p none] 2)
#@13 

(fn FACE)
(defalias 'cpp-face-name #[257 "\301
\203	
\202\n\302\"\211\203\211@\207\303\304\"\207" [cpp-face-all-list rassq default format "<%s>"] 5 (#$ . 23431)])
#@61 Last time `cpp-progress-message' issued a progress message.
(defvar cpp-progress-time 0 (#$ . 23608))
#@239 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'.

(fn &rest ARGS)
(defalias 'cpp-progress-message #[128 "\205\302 \303\304	\"\"?\205\211\305\306\"\262
\207" [cpp-message-min-time-interval cpp-progress-time current-time time-less-p time-subtract apply message] 7 (#$ . 23717)])
(provide 'cpp)