;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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-highlight-buffer' progress messages.\nIf nil, `cpp-highlight-buffer' 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 (#$ . 2531)) (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)) (#$ . 2676)) (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 (#$ . 2984)) (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) (#$ . 5295))#@46 List of cpp macros used in the local buffer. (defvar cpp-parse-symbols nil (#$ . 5487)) (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 \205)\314\315ed\311\211 &\311\212eb\210\316 \311\306#\203F\211\203Q\211`\311\247\203J@Y\205O\317#\266\320\224\320\225{\211\321\230\204b\211\322\230\203{\320\224b\210\3231r\324 0\266\202/\210\325\326!\266\202/\211\327\230\203\221\330\331\311\306#\204B\332\333!\266\202/\211\334\230\203\237\335\311w\266\202/\336\210\336\224`T\337\224\337\225{\336\225`{\340\230\203\302\341\306$\266\202/\342\230\203\325\341\311$\266\202/\343\230\203\350\341\306$\266\202/\344\230\203\311\211./\345\"*\210\341\306$\266\202/\346\230\203.\f\204\325\347!\210\f@@?\f@A@F\345\"\210\211\fB\266\202/\350\230\203=\345\"\266\202/\325\351!\266\210\202/\211\203N\352!\210)\f\203_\212\353\f@8b\210\325\354!)\210)\210\211\206l ?\206l\355 \207" [buffer-invisibility-spec cpp-parse-symbols cpp-edit-list cpp-message-min-time-interval cpp-state-stack cpp-parse-regexp t cpp add-to-invisibility-spec nil cpp-parse-reset cpp-edit-load make-progress-reporter "Parsing..." re-search-forward progress-reporter-do-update 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" progress-reporter-done 3 "Unclosed conditional" cpp-parse-edit cpp-unknown-face cpp-known-face] 12 (#$ . 5749) "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 (#$ . 7561)])#@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 (#$ . 8163)])#@14 (fn ERROR) (defalias 'cpp-parse-error #[257 "\300\301\302e`\"#\207" [error "%s at line %d" count-lines] 7 (#$ . 8781)])#@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 (#$ . 8909) 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 (#$ . 9090) 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 (#$ . 9367)])#@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 (#$ . 9782)])#@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 (#$ . 10294)])#@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 (#$ . 10544)])#@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 (#$ . 10826)])#@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 (#$ . 11037)])#@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 (#$ . 11254)])#@29 Keymap for `cpp-edit-mode'. (defvar cpp-edit-mode-map (byte-code "\300\301\302\303\302\304\305\306\307\310\311\312\313\314\313\315\316\317\320\321\320\322\320\323\324\325\324\326\327\330\327\331\332\333\332\334\335\336\335\337\340\341\340\342\343\344\343\345\346\347\346\350\351\352\351\353\354\355\354\356\357\360\357\361\362\363\362\364\365\366\365\367\370\371\370&J\207" [define-keymap :full t :suppress "" cpp-push-button "" ignore "SPC" scroll-up-command "S-SPC" scroll-down-command "DEL" "" scroll-down "C-c C-c" 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 "U" "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"] 75) (#$ . 11436))#@37 Symbols defined in the edit buffer. (defvar cpp-edit-symbols nil (#$ . 12348)) (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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\313#\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 defvar-1 nil make-syntax-table "Syntax table for `cpp-edit-mode'." define-abbrev-table "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 (#$ . 13584) 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 (#$ . 14368) nil])#@49 Reset display information from original buffer. (defalias 'cpp-edit-reset #[0 "p\306\307 `\306 q\210\n\262q\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@\357E\"\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\"\210b)\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 (#$ . 14541) 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 (#$ . 16591)])#@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 (#$ . 16753) 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\315 DE\"\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 (#$ . 17056) 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 (#$ . 17650) 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 (#$ . 17826) 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 (#$ . 18004) 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 (#$ . 18184) 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 (#$ . 18373) "@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 (#$ . 18723) "@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 (#$ . 19078) (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 (#$ . 19415) (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 (#$ . 19764) (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 (#$ . 20126)]) (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\307\310# \311\312$\n\"A\262\206)\211\207" [cpp-button-event cpp-face-default-list cpp-face-all-list x-popup-menu rassq assoc completing-read format-prompt "%s" nil t] 9 (#$ . 20660)])#@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 (#$ . 20957) (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 D\f\205k\317 D$#\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] 17 (#$ . 21857)])#@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 (#$ . 22400) "@e"])#@14 (fn COLOR) (defalias 'cpp-create-bg-face #[257 "\211\300BB\207" [background-color] 4 (#$ . 22816)]) (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\206\302\"\211\203\211@\207\303\304\"\207" [cpp-face-all-list rassq default format "<%s>"] 5 (#$ . 23055)]) (make-obsolete-variable 'cpp-progress-time nil "29.1")#@61 Last time `cpp-progress-message' issued a progress message. (defvar cpp-progress-time 0 (#$ . 23278))#@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 (#$ . 23386)]) (byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete cpp-progress-message make-progress-reporter "29.1" provide cpp] 4)