| 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. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cc-defs cc-vars cc-engine] 2) (defvar c-fix-backslashes t) #@607 Indent the current line according to the syntactic context, if `c-syntactic-indentation' is non-nil. Optional SYNTAX is the syntactic information for the current line. Be silent about syntactic errors if the optional argument QUIET is non-nil, even if `c-report-syntactic-errors' is non-nil. Normally the position of point is used to decide where the old indentation is on a lines that is otherwise empty (ignoring any line continuation backslash), but that's not done if IGNORE-POINT-POS is non-nil. Returns the amount of indentation change (in columns). (fn &optional SYNTAX QUIET IGNORE-POINT-POS) (defalias 'c-indent-line #[768 "\212\306\210`Sf)\307=\306\211\204B \212\310 \210\311\203 \312\202! \313!)\203B `\314\225X\203B \204; \212\315\225b\210iS\262)`\315\225|\210\316\n\203\236 \306\206S \317\303!\205S \320 \316\211\316 \321\322\"\216\306\204l \323 \324!\262\325!\204\203 !\203\203 \326\327#\210\211\330 Z\262\210,\210\331!\210\332\333!\210\f*\206\232 \f\202\275 \315\212\334y\315U\203\261 \311\335!\204\240 \330 \262)\211\330 Z\262\331!\266\203\337 \203\337 \203\324 \212j\210\307c\210)\202\337 \203\337 \336``\306\316$\210)\207" [c-fix-backslashes c-auto-align-backslashes c-syntactic-indentation c-syntactic-context c-parsing-error buffer-undo-list nil 92 beginning-of-line looking-at "\\([ ]*\\)\\\\$" "\\([ ]*\\)$" 1 0 t boundp buffer-modified-p make-closure #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-guess-basic-syntax c-get-syntactic-indentation c-echo-parsing-error message "syntax: %s, indent: %d" current-indentation c-shift-line-indentation run-hooks c-special-indent-hook -1 "\\s *\\\\?$" c-backslash-region inhibit-read-only inhibit-modification-hooks c-echo-syntactic-information-p] 14 (#$ . 206)]) #@288 Insert a newline and indent the new line. This function fixes line continuation backslashes if inside a macro, and takes care to set the indentation before calling `indent-according-to-mode', so that lineup functions like `c-lineup-dont-change' works better. (fn &optional NEWLINE-ARG) (defalias 'c-newline-and-indent #[256 "9\203 \212\306 \307\211\307\310\311\"\216\312 \205 `,\262)\202! \313\211\211\211C\313\212\314 \210`\240\210\315\316!\203@ \317y\320U\2043 \321 \262)\203j l\203^ `Sf\322=\203^ \307\262\307\262\202j \323 \206d `Sf\322=\262\324!\210\211j\210\203\233 \203\212 \322c\210\317u\210\325``\313\307$\210\202\233 \325\242\203\225 `\202\227 \242\313\307$\210 \205\325 \306 \307\211\307\310\326\"\216\327 ,\262\330c\210\331 \210d`Z\240\210\310\332\"\216\317u\210\333 \210*\205\325 \325``\313\307$*\207" [c-macro-start buffer-undo-list inhibit-read-only inhibit-modification-hooks c-fix-backslashes c-syntactic-indentation buffer-modified-p t make-closure #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-beginning-of-macro nil beginning-of-line looking-at "[ ]*\\\\?$" -1 0 current-indentation 92 line-end-position newline c-backslash-region #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-guess-basic-syntax 10 delete-horizontal-space #[0 "d\300\242Zb\210\301\302!\207" [V0 delete-char -1] 2] indent-according-to-mode c-syntactic-context] 13 (#$ . 2013)]) #@129 Show syntactic information for current line. With universal argument, inserts the analysis as a comment on that line. (fn ARG) (defalias 'c-show-syntactic-information #[257 "\306\307\301!\203\f \202 \310 \311\211\311\312\313\"\216\314 ,\262:\204\230 \306\211\211C\315\316\"\210\312\317\"\216\203\216 \211A\262\242\262\211A:\203L \211A\242\262\202P \211A\262\211\262\203j \211\320\211T\"\321\322\323#\210\211\262\242B\240\210\211\243\243\242\262\211\262\2031 \211\320\211T\"\321\322\324#\210\211\262\242B\240\210\2021 \325\326!\210)\266\202\242 \327 \210\330\331\332\"!\210)\210\307\305!\205\255 \311\211\207" [c-parsing-error c-syntactic-context buffer-undo-list inhibit-read-only inhibit-modification-hooks zmacs-region-stays nil boundp buffer-modified-p t make-closure #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] c-guess-basic-syntax message "Syntactic analysis: %s" #[0 "\300\242\205 \301\300\242\300\211\242A\240\210\242!\210\202 \207" [V0 delete-overlay] 4] make-overlay overlay-put face highlight secondary-selection sit-for 10 indent-for-comment insert-and-inherit format "%s"] 12 (#$ . 3472) "P"]) #@89 Insert a comment with the syntactic analysis on every line in the region. (fn FROM TO) (defalias 'c-syntactic-information-on-region #[514 "\212\214}\210eb\210m?\205 \300\301!\210\302y\210\202 *\207" [c-show-syntactic-information (0) nil] 4 (#$ . 4645) "*r"]) (defvar c-block-comment-flag nil) (make-variable-buffer-local 'c-block-comment-flag) (defalias 'c-update-modeline #[0 "\305\306\203\n \307\202 \310 \203 \311\202 \312 \203 \n\203 \313\202! \312\203) \314\202* \312\315\316!\2039 \316J\2039 \317\202: \312&\320\321\f\"\203J \322\323\f\"\202K \fG\323V\203X \211P\202Y \211\324 \207" [c-block-comment-flag c-electric-flag c-auto-newline c-hungry-delete-key mode-name format "/%s%s%s%s%s" "*" "/" "l" "" "a" "h" boundp c-subword-mode "w" string-match "\\(^[^/]*\\)/" match-string 1 force-mode-line-update] 8]) #@804 Toggle syntactic indentation. Optional numeric ARG, if supplied, turns on syntactic indentation when positive, turns it off when negative, and just toggles it when zero or left out. When syntactic indentation is turned on (the default), the indentation functions and the electric keys indent according to the syntactic context keys, when applicable. When it's turned off, the electric keys don't reindent, the indentation functions indents every new line to the same level as the previous nonempty line, and \[c-indent-command] adjusts the indentation in steps specified by `c-basic-offset'. The indentation style has no effect in this mode, nor any of the indentation associated variables, e.g. `c-special-indent-hook'. This command sets the variable `c-syntactic-indentation'. (fn &optional ARG) (defalias 'c-toggle-syntactic-indentation #[256 "\302\"\303\301!\205 \304\211\207" [c-syntactic-indentation zmacs-region-stays c-calculate-state boundp t] 4 (#$ . 5482) "P"]) #@468 Toggle auto-newline feature. Optional numeric ARG, if supplied, turns on auto-newline when positive, turns it off when negative, and just toggles it when zero or left out. Turning on auto-newline automatically enables electric indentation. When the auto-newline feature is enabled (indicated by "/la" on the mode line after the mode name) newlines are automatically inserted after special characters such as brace, comma, semi-colon, and colon. (fn &optional ARG) (defalias 'c-toggle-auto-newline #[256 "\303\205 \"\211\203 \304\305 \210\306\302!\205 \304\211\207" [c-auto-newline c-electric-flag zmacs-region-stays c-calculate-state t c-update-modeline boundp] 5 (#$ . 6472) "P"]) (byte-code "\300\301\302\"\210\303\301\302\304#\207" [defalias c-toggle-auto-state c-toggle-auto-newline make-obsolete "22.1"] 4) #@370 Toggle hungry-delete-key feature. Optional numeric ARG, if supplied, turns on hungry-delete when positive, turns it off when negative, and just toggles it when zero or left out. When the hungry-delete-key feature is enabled (indicated by "/h" on the mode line after the mode name) the delete key gobbles all preceding whitespace in one fell swoop. (fn &optional ARG) (defalias 'c-toggle-hungry-state #[256 "\302\"\303 \210\304\301!\205 \305\211\207" [c-hungry-delete-key zmacs-region-stays c-calculate-state c-update-modeline boundp t] 4 (#$ . 7303) "P"]) #@308 Toggle auto-newline and hungry-delete-key features. Optional numeric ARG, if supplied, turns on auto-newline and hungry-delete when positive, turns them off when negative, and just toggles them when zero or left out. See `c-toggle-auto-newline' and `c-toggle-hungry-state' for details. (fn &optional ARG) (defalias 'c-toggle-auto-hungry-state #[256 "\303\"\303 \"\304 \210\305\302!\205 \306\211\207" [c-auto-newline c-hungry-delete-key zmacs-region-stays c-calculate-state c-update-modeline boundp t] 4 (#$ . 7873) "P"]) #@213 Toggle the electric indentation feature. Optional numeric ARG, if supplied, turns on electric indentation when positive, turns it off when negative, and just toggles it when zero or left out. (fn &optional ARG) (defalias 'c-toggle-electric-state #[256 "\302\"\303 \210\304\305!\203 \305\203 \306\202 \307!\210\310\301!\205# \311\211\207" [c-electric-flag zmacs-region-stays c-calculate-state c-update-modeline fboundp electric-indent-local-mode 1 0 boundp t] 4 (#$ . 8410) "P"]) #@309 Toggle the comment style between block and line comments. Optional numeric ARG, if supplied, switches to block comment style when positive, to line comment style when negative, and just toggles it when zero or left out. This action does nothing when the mode only has one comment style. (fn &optional ARG) (defalias 'c-toggle-comment-style #[256 "\203 \203 \306\n\"\202 \203 \307\202 \310\211\203! \202\"