ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/cpp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)) (#$ . 2410))
(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) (#$ . 4768))
#@46 List of cpp macros used in the local buffer.
(defvar cpp-parse-symbols nil (#$ . 4961))
(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`{ 2 3 4 53\343\230\203\261 \344\306254$\210\202>3\345\230\203\305 \344\311254$\210\202>3\346\230\203\331 \344\306254$\210\202>3\347\230\203\373 \311\211 6 7\35054\"\210*\344\306254$\210\202>3\351\230\203) \204\n\330\352!\210 @@? @A@54F 8\35054\"\2108 B)\202>3\353\230\203:\35054\"\210\202>\330\354!\210,)\202& \355\356!\210) \203X\212\357 @8b\210\330\360!\210))9\206e ?\206e\361 \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" message "Parsing...done" 3 "Unclosed conditional" cpp-parse-edit expr type to from cpp-unknown-face cpp-known-face entry arg] 7 (#$ . 5224) "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 (#$ . 6991)])
(defalias 'cpp-parse-close #[(from to) "\306@A@ \"@@\307@8 A\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 (#$ . 8274) 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 (#$ . 8458) 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\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) (#$ . 10650))
(defvar cpp-edit-symbols nil)
(make-variable-buffer-local 'cpp-edit-symbols)
#@165 Hook run after entering CPP Edit mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar cpp-edit-mode-hook nil (#$ . 11981))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp cpp-edit-mode-map put definition-name cpp-edit-mode] 4)
(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 (#$ . 13256) 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 (#$ . 14028) 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!\203J@ I\357IJ\"\211 KA@ L\360K8 MK\203\306 \361K8\202\307 \362 NAK\203\373 L\203\335 L\363=\203\373 M\203\351 M\363=\203\373 N\362=\203\373 \364KJ\"J\306KIG\365V\203I\366\365O\367\261\210\202\350\370I\"c\210\313\337L!\371I\341\372%\210\373c\210\313\337M!\374I\341\372%\210\373c\210\313\334NO\"@\375I\306\376%\210\325c\210-\202\237 \332c\210\377\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 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 (#$ . 14204) 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 (#$ . 16311) 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\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 (#$ . 16590) 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 (#$ . 17126) 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 (#$ . 17305) 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 (#$ . 17486) 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 (#$ . 17669) 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 (#$ . 17861) "@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 (#$ . 18205) "@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 (#$ . 18554) (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 (#$ . 18895) (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 (#$ . 19243) (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\2025 G 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\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])
(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)
Kontol Shell Bypass