;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:50:40 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/progmodes/cpp.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cpp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'cpp nil "Highlight or hide text according to cpp conditionals." :group 'c :prefix "cpp-") #@39 *File name to save cpp configuration. (custom-declare-variable 'cpp-config-file '(convert-standard-filename ".cpp.el") '(#$ . -731) :type 'file :group 'cpp) #@35 *Face used for known cpp symbols. (custom-declare-variable 'cpp-known-face ''invisible '(#$ . -894) :type 'face :group 'cpp) #@37 *Face used for unknown cpp symbols. (custom-declare-variable 'cpp-unknown-face ''highlight '(#$ . -1025) :type 'face :group 'cpp) #@207 *Indicate what background face type you prefer. Can be either light or dark for color screens, mono for monochrome screens, and none if you don't use a window system and don't have a color-capable display. (custom-declare-variable 'cpp-face-type ''light '(#$ . -1162) :options '(light dark mono nil) :type 'symbol :group 'cpp) #@66 *Non-nil means you are allowed to modify the known conditionals. (custom-declare-variable 'cpp-known-writable 't '(#$ . -1495) :type 'boolean :group 'cpp) #@68 *Non-nil means you are allowed to modify the unknown conditionals. (custom-declare-variable 'cpp-unknown-writable 't '(#$ . -1656) :type 'boolean :group 'cpp) #@322 Alist of cpp macros and information about how they should be displayed. Each entry is a list with the following elements: 0. The name of the macro (a string). 1. Face used for text that is `ifdef' the macro. 2. Face used for text that is `ifndef' the macro. 3. `t', `nil', or `both' depending on what text may be edited. (custom-declare-variable 'cpp-edit-list 'nil '(#$ . 1822) :type '(repeat (list string face face (choice (const t) (const nil) (const both)))) :group 'cpp) (byte-code "\301B\302\301!\204\f\303\304\301!\210\305B\306B\303\207" [current-load-list cpp-overlay-list boundp nil make-variable-buffer-local cpp-callback-data cpp-state-stack] 2) #@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)) (#$ . 2493)) (byte-code "\301B\305\302B\306\302!\204\307\303B\306\303!\204\307\310\303!\210\304B\311\307\207" [current-load-list cpp-writable-list cpp-button-event cpp-edit-buffer cpp-branch-list (("writable" . t) ("read-only")) boundp nil make-variable-buffer-local (("false") ("true" . t) ("both" . both))] 2) #@245 Alist of faces you can choose from for cpp conditionals. Each element has the form (STRING . FACE), where STRING serves as a name (for `cpp-highlight-buffer' only) and FACE is either a face (a symbol) or a cons cell (background-color . COLOR). (custom-declare-variable 'cpp-face-default-list 'nil '(#$ . 3025) :type '(repeat (cons string (choice face (cons (const background-color) string)))) :group 'cpp) #@56 Background colours useful with dark foreground colors. (custom-declare-variable 'cpp-face-light-name-list ''("light gray" "light blue" "light cyan" "light yellow" "light pink" "pale green" "beige" "orange" "magenta" "violet" "medium purple" "turquoise") '(#$ . 3437) :type '(repeat string) :group 'cpp) #@57 Background colours useful with light foreground colors. (custom-declare-variable 'cpp-face-dark-name-list ''("dim gray" "blue" "cyan" "yellow" "red" "dark green" "brown" "dark orange" "dark khaki" "dark violet" "purple" "dark turquoise") '(#$ . 3746) :type '(repeat string) :group 'cpp) #@60 Alist of names and faces to be used for light backgrounds. (custom-declare-variable 'cpp-face-light-list 'nil '(#$ . 4039) :type '(repeat (cons string (choice face (cons (const background-color) string)))) :group 'cpp) #@59 Alist of names and faces to be used for dark backgrounds. (custom-declare-variable 'cpp-face-dark-list 'nil '(#$ . 4264) :type '(repeat (cons string (choice face (cons (const background-color) string)))) :group 'cpp) #@61 Alist of names and faces to be used for monochrome screens. (custom-declare-variable 'cpp-face-mono-list ''(("bold" . bold) ("bold-italic" . bold-italic) ("italic" . italic) ("underline" . underline)) '(#$ . 4487) :type '(repeat (cons string face)) :group 'cpp) #@75 Alist of names and faces available even if you don't use a window system. (custom-declare-variable 'cpp-face-none-list ''(("default" . default) ("invisible" . invisible)) '(#$ . 4755) :type '(repeat (cons string face)) :group 'cpp) #@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) (#$ . 4993)) #@46 List of cpp macros used in the local buffer. (defvar cpp-parse-symbols nil (#$ . 5186)) (byte-code "\302\303!\210\301B\304\302\207" [current-load-list cpp-parse-regexp make-variable-buffer-local cpp-parse-symbols "'\\|\"\\|/\\*\\|//\\|\\(^[ ]*#[ ]*\\(ifdef\\|ifndef\\|if\\|elif\\|else\\|endif\\)\\b\\)"] 2) #@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\20231\342\230\203\272\341\311032$\210\20231\343\230\203\316\341\306032$\210\20231\344\230\203\360\311\21145\34532\"\210*\341\306032$\210\20231\346\230\203 \204\377\347\350!\210 @@? @A@32F6\34532\"\2106 B)\20231\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 (#$ . 5505) "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 \n F\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 (#$ . 7267)]) (defalias 'cpp-parse-close #[(from to) "\306@A@ \"@@\307@8\310@8A \203\212\f\203%\311\202&\307 8\f?\310 8=G\312\n\" \313\"\210B \203X\314\315 #\210\316=\203g\317!\210\202v\320=\204v\314\321#\210\203\202\322!\202\206\323!,\202\220\324\",\207" [cpp-state-stack cpp-edit-list end begin branch entry assoc 2 3 1 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 from 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 (#$ . 8572) 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 (#$ . 8756) 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#\210\301\310\311#\207" [overlay overlay-put invisible cpp intangible t 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]) (byte-code "\301B\303\301!\204\f\304 \204\343\305 \306 !\210\307 \310\311#\210\307 \312\313#\210\307 \314\315#\210\307 \316\317#\210\307 \320\317#\210\307 \321\322#\210\307 \323\322#\210\307 \324\322#\210\307 \325\326#\210\307 \327\326#\210\307 \330\331#\210\307 \332\331#\210\307 \333\334#\210\307 \335\334#\210\307 \336\337#\210\307 \340\337#\210\307 \341\342#\210\307 \343\342#\210\307 \344\345#\210\307 \346\345#\210\307 \347\350#\210\307 \347\350#\210\307 \351\352#\210\307 \353\352#\210\307 \354\355#\210\307 \356\355#\210\307 \357\360#\210\307 \361\360#\210\307 \362\363#\210\307 \364\363#\210\307 \365\366#\210\307 \367\366#\210\307 \370\371#\210\307 \372\371#\210\302B\303\302!\204\357\304\373\302!\207" [current-load-list cpp-edit-map cpp-edit-symbols boundp nil make-keymap suppress-keymap define-key [down-mouse-2] cpp-push-button [mouse-2] ignore " " scroll-up "" scroll-down [delete] "" 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" make-variable-buffer-local] 4) #@178 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. (defalias 'cpp-edit-mode #[nil "\304 \210\305 \210\306\307!\210\310\311\312\313 !\207" [buffer-read-only major-mode mode-name cpp-edit-map kill-all-local-variables buffer-disable-undo auto-save-mode -1 t cpp-edit-mode "CPP Edit" use-local-map] 2 (#$ . 12257)]) #@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 (#$ . 12704) 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\333@A\"@\334\"\210\335c\210\312\336B!\337\306\340$\210\341c\210\312\333CD\"@\342\"\210\343c\210\312\336E!\344\306\340$\210\345c\210\312\333FD\"@\346\"\210\347\350\351\352\353\354%c\210\203B@G\355GH\"\211IA@J\356I8KI\203\276\357I8\202\277\360LAI\203\363J\203\325J\361=\203\363K\203\341K\361=\203\363L\360=\203\363\362IH\"H\306IGG\363V\203G\364\363O\365\261\210\202\347\366G\"c\210\312\336J!\367G\340\370%\210\371c\210\312\336K!\372G\340\370%\210\371c\210\312\333LM\"@\373G\306\374%\210\324c\210-\202\227\331c\210\375\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" 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 (#$ . 12880) nil]) #@25 Load cpp configuration. (defalias 'cpp-edit-load #[nil "\203\303 !\203\304 !\210\202\303\305 P!\203\304 !\210\n\306=\205%\307 \207" [init-file-user cpp-config-file major-mode file-readable-p load-file "~/" cpp-edit-mode cpp-edit-reset] 3 (#$ . 14938) nil]) #@47 Save the current cpp configuration in a file. (defalias 'cpp-edit-save #[nil "\306\307!\210\212q\210\310 !\211q\210\311 \210\307\312\303\313 DE\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 (#$ . 15211) 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 (#$ . 15750) 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 (#$ . 15929) 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 (#$ . 16110) 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 (#$ . 16293) nil]) #@116 Toggle writable status for known conditionals. With optional argument ARG, make them writable iff ARG is positive. (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 (#$ . 16485) "@P"]) #@118 Toggle writable status for unknown conditionals. With optional argument ARG, make them writable iff ARG is positive. (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 (#$ . 16798) "@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 (#$ . 17116) (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 (#$ . 17457) (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 (#$ . 17805) (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\305\306\n\"\307\310$\207" [cpp-button-event cpp-callback-data cpp-edit-symbols completing-read "Symbol: " mapcar list 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\2025G V\203'`\311 Oc\210\2025\312 GZ\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\3078)\310 8)!q\210\3078)\307 8:\203$\307 8@\202'\307 8)\311\n\312\"\311\n\313\"\f\203B\314\311\n\313\"!\202Q\315\316\"\205Q\314\315\317\"!,\207" [event position pos cpp-button-event fun cpp-callback-data window-buffer 1 0 get-text-property cpp-data cpp-callback call-interactively lookup-key [down-mouse-2] [down-mouse-2] global-map] 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]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list cpp-progress-time boundp 0] 2) (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)