| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/progmodes/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'cc-defs) #@295 Create an uneditable symbol for customization buffers. SYM is the name of the symbol, LEN the length of the field (in characters) the symbol will be displayed in. LEN must be big enough. This returns a (const ....) structure, suitable for embedding within a customization type. (fn SYM LEN) (defalias 'c-constant-symbol #[514 "9\204\n \300\301\"\210\302!\211G\303\304ZS\305\"Q\306\307\310\311\n\257\207" [error "c-constant-symbol: %s is not a symbol" symbol-name ":" make-string 32 const :size :format :value] 12 (#$ . 104)]) (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317&\210\300\320\321\322\304\305\306\323\312\324& \210\300\325\321\326\306\327\330\331\312\332\314\333\316\334& \207" [define-widget c-const-symbol item "An uneditable lisp symbol. This is obsolete -\nuse c-constant-symbol instead." :value nil :tag "Symbol" :format "%t: %v\n%d" :match #[514 "\2119\207" #1=[] 3 "\n\n(fn WIDGET VALUE)"] :value-to-internal #[514 "\2119\203 \300!\202\f \211\301\302\"\211\203 \303GZ\304\"P\262\207" [symbol-name widget-get :size make-string 32] 8 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\211;\203 \300\301\302\"\210\303\304\"!\207\207" [intern string-match "\\`[^ ]*" match-string 0] 6 "\n\n(fn WIDGET VALUE)"] c-integer-or-nil sexp "An integer or the value nil." "Optional integer" #[514 "\211\250\206 \211?\207" #1# 3 "\n\n(fn WIDGET VALUE)"] c-symbol-list "A single symbol or a list of symbols." "Symbols separated by spaces" :validate widget-field-validate #[514 "\2119\206# \3002# \211<\203 \211@9\204 \301\300\302\"\210\211A\262\202 \211?0\207" [ok throw nil] 5 "\n\n(fn WIDGET VALUE)"] #[514 "\211\204 \300\207\2119\203 \301!\207\211:\203 \302\303\304#\207\207" ["" symbol-name mapconcat #[257 "\300!\207" [symbol-name] 3 "\n\n(fn SYMBOL)"] " "] 6 "\n\n(fn WIDGET VALUE)"] #[514 "\211;\203/ \300\211\301\302#\203 \303\304\305\"!B\262\305\225\262\202 \203, A\204, @\207\237\207\207" [nil string-match "\\S +" intern match-string 0] 8 "\n\n(fn WIDGET VALUE)"]] 16) #@30 List of the style variables. (defvar c-style-variables '(c-basic-offset c-comment-only-line-offset c-indent-comment-alist c-indent-comments-syntactically-p c-block-comment-prefix c-comment-prefix-regexp c-doc-comment-style c-cleanup-list c-hanging-braces-alist c-hanging-colons-alist c-hanging-semi&comma-criteria c-backslash-column c-backslash-max-column c-special-indent-hook c-label-minimum-indentation c-offsets-alist) (#$ . 2172)) (defvar c-fallback-style nil) #@17 (fn NAME VAL) (defalias 'c-set-stylevar-fallback #[514 "\301\302#\210BB\211\207" [c-fallback-style put c-stylevar-fallback] 6 (#$ . 2644)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put c-set-stylevar-fallback speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@573 Define a style variable NAME with VAL and DOC. More precisely, convert the given `:type FOO', mined out of ARGS, to an aggregate `:type (radio STYLE (PREAMBLE FOO))', append some boilerplate documentation to DOC, arrange for the fallback value of NAME to be VAL, and call `custom-declare-variable' to do the rest of the work. STYLE stands for the choice where the value is taken from some style setting. PREAMBLE is optionally prepended to FOO; that is, if FOO contains :tag or :value, the respective two-element list component is ignored. (fn NAME VAL DOC &rest ARGS) (defalias 'defcustom-c-stylevar '(macro . #[899 "\300P\301\302\303\"!\211:\203 \211\202 \211C\211@A\304\302\305\"?\205\"