;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Mar 8 19:02:56 1998 ;;; from file /gd/gnu/emacs/lisp/progmodes/cc-cmds.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "`cc-cmds.el' was compiled for Emacs 19.29 or later")) (defalias 'c-calculate-state #[(arg prevstate) "\203\302!\211\303U\203 ?\207\303V\207" [arg prevstate prefix-numeric-value 0] 2]) #@380 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. When the auto-newline feature is enabled (as evidenced by the `/a' or `/ah' on the modeline after the mode name) newlines are automatically inserted after special characters such as brace, comma, semi-colon, and colon. (defalias 'c-toggle-auto-state #[(arg) "\305 \"\211\203\n\203\306\202\307\202\n\205\310\311 \210\312\304!\205'\313\211\207" [arg c-auto-newline c-hungry-delete-key c-auto-hungry-string zmacs-region-stays c-calculate-state "/ah" "/a" "/h" force-mode-line-update boundp t] 4 (#$ . 678) "P"]) #@352 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. When the hungry-delete-key feature is enabled (as evidenced by the `/h' or `/ah' on the modeline after the mode name) the delete key gobbles all preceding whitespace in one fell swoop. (defalias 'c-toggle-hungry-state #[(arg) "\305 \"\n\203 \203\306\202\307\202 \205\310\311 \210\312\304!\205'\313\211\207" [arg c-hungry-delete-key c-auto-newline c-auto-hungry-string zmacs-region-stays c-calculate-state "/ah" "/a" "/h" force-mode-line-update boundp t] 3 (#$ . 1369) "P"]) #@273 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. See `c-toggle-auto-state' and `c-toggle-hungry-state' for details. (defalias 'c-toggle-auto-hungry-state #[(arg) "\305 \"\305\n\" \203\n\203\306\202\307\202\n\205\310\311 \210\312\304!\205,\313\211\207" [arg c-auto-newline c-hungry-delete-key c-auto-hungry-string zmacs-region-stays c-calculate-state "/ah" "/a" "/h" force-mode-line-update boundp t] 3 (#$ . 2031) "P"]) #@377 Deletes preceding character or whitespace. If `c-hungry-delete-key' is non-nil, as evidenced by the "/h" or "/ah" string on the mode line, then all preceding whitespace is consumed. If however an ARG is supplied, or `c-hungry-delete-key' is nil, or point is inside a literal then the function in the variable `c-backspace-function' is called. See also \[c-electric-delete]. (defalias 'c-electric-backspace #[(arg) "\203 \204 \304 \203\n\305 !!\207`\306\307x\210` U\204%` |\202(\n\310!)\207" [c-hungry-delete-key arg c-backspace-function here c-in-literal prefix-numeric-value " \n" nil 1] 3 (#$ . 2630) "*P"]) #@699 Deletes preceding or following character or whitespace. The behavior of this function depends on the variable `delete-key-deletes-forward'. If this variable is nil (or does not exist, as in older Emacsen), then this function behaves identical to \[c-electric-backspace]. If `delete-key-deletes-forward' is non-nil and is supported in your Emacs, then deletion occurs in the forward direction. So if `c-hungry-delete-key' is non-nil, as evidenced by the "/h" or "/ah" string on the mode line, then all following whitespace is consumed. If however an ARG is supplied, or `c-hungry-delete-key' is nil, or point is inside a literal then the function in the variable `c-delete-function' is called. (defalias 'c-electric-delete #[(arg) "\305\300!\2034\2034 \203\n\204\306 \203 \307\n!!\207`\310\311w\210`\fU\204/`\f|\2022 \312!)\207\313\n!\207" [delete-key-deletes-forward c-hungry-delete-key arg c-delete-function here boundp c-in-literal prefix-numeric-value " \n" nil 1 c-electric-backspace] 3 (#$ . 3259) "*P"]) #@211 Electric pound (`#') insertion. Inserts a `#' character specially depending on the variable `c-electric-pound-behavior'. If a numeric ARG is supplied, or if point is inside a literal, nothing special happens. (defalias 'c-electric-pound #[(arg) "\305 \204\204\306 >\204\307\310!!\207d`Zn\311y\210\312 \210\313\f\314\"\210\n?\205/d Zb*\207" [arg c-electric-pound-behavior bolp pos last-command-char c-in-literal alignleft self-insert-command prefix-numeric-value 0 delete-horizontal-space insert-char 1] 3 (#$ . 4294) "*P"]) #@394 Insert a brace. If the auto-newline feature is turned on, as evidenced by the "/a" or "/ah" string on the mode line, newlines are inserted before and after braces based on the value of `c-hanging-braces-alist'. Also, the line is re-indented unless a numeric ARG is supplied, there are non-whitespace characters present on the line after the brace, or the brace is inserted inside a literal. (defalias 'c-electric-brace #[(arg) "\306 \307`\"\310 !\211\204 \204\311\312!\204\"\313\314 !!\202\257\315 @\316`A\316Bo?\2059\317 z\320=C\316D\212\321\316x\210n)\204N\322 \210\323B\313\314 !!\210\324 EF\205\230\fEGHI\211JIKJ\316LJ\203\214J@K\236\211L\204\214JA\211J\204wL+@H\236+\206\230\325\211MA:\204\270\326MA!\203\270ENMAM@A\"M)\327M>\203'd`Z`OP\330y\210\212\214O`}\210\316\331\332\217\203\363\317 \333>\203\363~\210\316\334\335\217\203\363\336`\337#\202@\203@:\204`@X\203A*`\340 QO\341\342R`OR\342=\203$\343y\210\202R\344=\2031\316\210\202R\345=\203>\346 \210\202R\347=\203K\350y\210\202R\351=\203X\330y\210\202R\352=\203h\330y\210\346 \210\202R\353=\203x\350y\210\346 \210\202R\354=\203\375\355\356!\203\347S\203\347\316PP\204\337\214~\210\357`\330\356 \316\323%P)o\203\253e\211P\202\217P\204\305\360\316x\211T\343U\203\301\361 \210`P)\202\215P\343U\204\215Pf\362=\204\215Pb\210\316\211P\203\222Pb\210)\202\361 \210U\203\311U!\203\343\225b\210\202\363\364R\"\210`Ob\210*OQ[$*dPZb\210`OU\204#\324 E+\202_B\203=\212\365 \210\366 \210C\204<\367\330!\210)\212\342R`OR\342=\203Q\343y\210\2020R\344=\203^\316\210\2020R\345=\203k\346 \210\2020R\347=\203x\350y\210\2020R\351=\203\205\330y\210\2020R\352=\203\225\330y\210\346 \210\2020R\353=\203\245\350y\210\346 \210\2020R\354=\203*\355\356!\203S\203\316PP\204\f\214~\210\357`\330\356 \316\323%P)o\203\330e\211P\202\274P\204\362\360\316x\211T\343U\203\356\361 \210`P)\202\272P\343U\204\272Pf\362=\204\272Pb\210\316\211P\203\277Pb\210)\2020\361 \210U\2030\311U!\2030\343\225b\210\2020\363\364R\"\210`Ob\210*\"\370\"`S\"@\343U\203Q\371\"\"\324 E\202^\343y\210\372\300!\210\306 \316E*`\340E!QO\341\342R`OR\342=\203|\343y\210\202[R\344=\203\211\316\210\202[R\345=\203\226\346 \210\202[R\347=\203\243\350y\210\202[R\351=\203\260\330y\210\202[R\352=\203\300\330y\210\346 \210\202[R\353=\203\320\350y\210\346 \210\202[R\354=\203U\355\356!\203?S\203?\316PP\2047\214~\210\357`\330\356 \316\323%P)o\203e\211P\202\347P\204\360\316x\211T\343U\203\361 \210`P)\202\345P\343U\204\345Pf\362=\204\345Pb\210\316\211P\203\352Pb\210)\202[\361 \210U\203[\311U!\203[\343\225b\210\202[\363\364R\"\210`Ob\210*OQ[$*`d`Z\316\211VWPOF\203\316\373X>\203\316Y\374=\203\316\375EKJ\316LJ\203\257J@K\236\211L\204\257JA\211J\204\232L+\203\316\330u\210\376\316x\210\317 \362=\203\316\310 \204\316`OS|\210F\203\f\377X>\203\fY\362=\203\f\201\\\201]\316\323#\203\f\343\224W\343\225\211VOU\203\f\310 \204\fWV|\210\201^c\210F\203`\201_X>\203`Y\362=\203`\201\\\201`\316\323#\203`\212\343\225b\210\316\201a\201b\217\210\376\316w\210\343\224W\343\225VO`TU)\203`\310 \204`WV|\210\201cc\210dPZb\210,\201dM>\203\226\322 \210`\201eZ\211Zf\362=\203\205\337\202\210\201f[\336Z[#\340 \210+Y\374=\205\255@\205\255\212\201g !\210@ ). +\207" [c-state-cache safepos literal arg syms blink-paren-function c-parse-state c-safe-position c-in-literal looking-at "[ ]*$" self-insert-command prefix-numeric-value (class-open class-close defun-open defun-close inline-open inline-close brace-list-open brace-list-close brace-list-intro brace-list-entry block-open block-close substatement-open statement-case-open extern-lang-open extern-lang-close namespace-open namespace-close) nil char-before 32 " " newline t c-guess-basic-syntax (ignore before after) functionp before -1 (byte-code "\300\301!\210\302\207" [backward-up-list -1 t] 2) ((error)) (41 125) (byte-code "\300\301!\210\302\207" [forward-sexp -1 t] 2) ((error)) c-hack-state open c-indent-line c-adjust-state bol 0 eol boi back-to-indentation bonl 1 bopl iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists "^{" beginning-of-defun 123 error "unknown buffer position requested: %s" delete-indentation just-one-space delete-char parse-partial-sexp c-whack-state makunbound empty-defun-braces 125 (defun-close class-close inline-close) " \n" brace-else-brace old-blink-paren insertion-point delete-temp-newline preserve-p c-echo-syntactic-information-p syntax c-auto-newline c-hanging-braces-alist alist2 alist1 list alist match newlines c-syntactic-context here pos shift position c-enable-xemacs-performance-kludge-p distance defun-prompt-regexp mend mbeg c-cleanup-list last-command-char bufpos which re-search-backward "}[ \n]*else[ \n]*{" "} else {" brace-elseif-brace "}[ \n]*else[ \n]+if[ \n]*" (forward-sexp 1) ((error)) "} else if " after 2 close c-backward-syntactic-ws] 9 (#$ . 4837) "*P"]) #@348 Insert a slash character. Indent the line as a comment, if: 1. The slash is second of a `//' line oriented comment introducing token and we are on a comment-only-line, or 2. The slash is part of a `*/' token that closes a block oriented comment. If numeric ARG is supplied or point is inside a literal, indentation is inhibited. (defalias 'c-electric-slash #[(arg) "\305  ?\205\"\n\306=\205\"\306=\203\307 ?\206\"\310=\205\"\307 \311\312\313 !!\210 \2051\314 +\207" [ch arg last-command-char indentp c-echo-syntactic-information-p char-before 47 c-in-literal 42 nil self-insert-command prefix-numeric-value c-indent-line] 3 (#$ . 9995) "*P"]) #@248 Insert a star character. If the star is the second character of a C style comment introducing construct, and we are on a comment-only-line, indent line as comment. If numeric ARG is supplied or point is inside a literal, indentation is inhibited. (defalias 'c-electric-star #[(arg) "\302\303!!\210?\2059\304 \305>\2059\306 \307=\2059\212\310u\210\311\312x\210\306 \313=\203+\310u\210\314\312x\210n)\2059\312\315 )\207" [arg c-echo-syntactic-information-p self-insert-command prefix-numeric-value c-in-literal (c) char-before 42 -1 "*" nil 47 " " c-indent-line] 3 (#$ . 10675) "*P"]) #@443 Insert a comma or semicolon. When the auto-newline feature is turned on, as evidenced by the "/a" or "/ah" string on the mode line, a newline might be inserted. See the variable `c-hanging-semi&comma-criteria' for how newline insertion is determined. When semicolon is inserted, the line is re-indented unless a numeric arg is supplied, point is inside a literal, or there are non-whitespace characters on the line following the semicolon. (defalias 'c-electric-semi&comma #[(arg) "\306\307 !\310!`\311 \204\f\204\312\313!\204#\314\315\f!!\202\252\314\315\f!!\210 \205\252d`Z\316=\203@\317>\204N\320=\203f\321>\203f\322u\210\323\311x\210\324 \325=\203f\310!\204f`\n|\210dZb\210)\326 \210\311\211\203\237@ \211\204\222A\211\202|\311\327=?\202z\205\251\330 \210\326 +,\207" [lim literal here c-echo-syntactic-information-p arg c-auto-newline c-most-enclosing-brace c-parse-state c-in-literal nil looking-at "[ ]*$" self-insert-command prefix-numeric-value 44 list-close-comma 59 defun-close-semi -1 " \n" char-before 125 c-indent-line stop newline pos last-command-char c-cleanup-list c-hanging-semi&comma-criteria add-newline-p answer criteria] 4 (#$ . 11274) "*P"]) #@488 Insert a colon. If the auto-newline feature is turned on, as evidenced by the "/a" or "/ah" string on the mode line, newlines are inserted before and after colons based on the value of `c-hanging-colons-alist'. Also, the line is re-indented unless a numeric ARG is supplied, there are non-whitespace characters present on the line after the colon, or the colon is inserted inside a literal. This function cleans up double colon scope operators based on the value of `c-cleanup-list'. (defalias 'c-electric-colon #[(arg) "\306`\307=\203\310y\210\202\330\311=\203\312\210\202\330\313=\203(\314 \210\202\330\315=\2034\316y\210\202\330\317=\203@\320y\210\202\330\321=\203O\320y\210\314 \210\202\330\322=\203^\316y\210\314 \210\202\330\306=\203\323\323\324!\203\277\n\203\277\312 \204\270\214~\210\325`\320\324 \312\326%)o\203\213e\211\202q \204\242\327\312x\211\310U\203\236\330 \210`)\202p \310U\204p f\331=\204p b\210\312\211\203t b\210)\202\330\330 \210 \203\330\332 !\203\330\310\225b\210\202\330\333\334\"\210` b\210*\335!0\3121\3122\3123\31240\2045\204\332\336!\204\n\337\3405!!\202\337\3405!!\210d`Z`6\203N\3417>\203N\342 \343=\203N\320u\210\344\312x\210\342 \343=\203N\335 \204N`\345Zf\343=\204N` S|\210\3263d Zb\210*\346 16\205\325\347189:\211;:<;\312=;\203\214;@<\236\211=\204\214;A\211;\204w=+@9\236+\206\325\350\351c\210\346 \352\320!\21089:\211;:<;\312=;\203\315;@<\236\211=\204\315;A\211;\204\270=+@9\236+2\3531!\210\3542>\2033\204\212\355\312x\210n)\204d`Z\320u\210\356 \210\353 \210d Zb\210)\3572\243>\2053?\205\356 \210\353 .\207" [position here c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp bod bol 0 eol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" c-in-literal "[ ]*$" self-insert-command prefix-numeric-value scope-operator char-before 58 " \n" 2 c-guess-basic-syntax (case-label label access-label) (member-init-intro inher-intro) "\n" delete-char c-indent-line before ": " newline after literal syntax newlines is-scope-op c-echo-syntactic-information-p arg c-auto-newline c-cleanup-list c-hanging-colons-alist alist2 alist1 list alist match] 8 (#$ . 12513) "*P"]) #@386 Insert a less-than, or greater-than character. When the auto-newline feature is turned on, as evidenced by the "/a" or "/ah" string on the mode line, the line will be re-indented if the character inserted is the second of a C++ style stream operator and the buffer is in C++ mode. The line will also not be re-indented if a numeric argument is supplied, or point is inside a literal. (defalias 'c-electric-lt-gt #[(arg) "?\205\304 =\205\305 ?\306\307\310!!\210 \205\311 *\207" [arg last-command-char c-echo-syntactic-information-p indentp char-before c-in-literal nil self-insert-command prefix-numeric-value c-indent-line] 3 (#$ . 14921) "*P"]) #@83 Move forward to end of a nomenclature section or word. With arg, to it arg times. (defalias 'c-forward-into-nomenclature #[(&optional arg) "\303 \304V\203\305\306d\307 $\210\202* \304W\203*\310\311e\304#\203*\312u\210 T\211\202)\313\302!\2054\307\211\207" [case-fold-search arg zmacs-region-stays nil 0 re-search-forward "\\W*\\([A-Z]*[a-z0-9]*\\)" t re-search-backward "\\(\\(\\W\\|[a-z0-9]\\)[A-Z]+\\|\\W\\w+\\)" 1 boundp] 6 (#$ . 15585) "p"]) #@139 Move backward to beginning of a nomenclature section or word. With optional ARG, move that many times. If ARG is negative, move forward. (defalias 'c-backward-into-nomenclature #[(&optional arg) "\302[!\210\303\301!\205\304\211\207" [arg zmacs-region-stays c-forward-into-nomenclature boundp t] 2 (#$ . 16049) "p"]) #@106 Insert a double colon scope operator at point. No indentation or other "electric" behavior is performed. (defalias 'c-scope-operator #[nil "\300c\207" ["::"] 1 (#$ . 16377) "*"]) #@362 Move backward to the beginning of a defun. With argument, do it that many times. Negative arg -N means move forward to Nth following beginning of defun. Returns t unless search stops due to beginning or end of buffer. Unlike the built-in `beginning-of-defun' this tries to be smarter about finding the char with open-parenthesis syntax that starts the defun. (defalias 'c-beginning-of-defun #[(&optional arg) "\306W\203\307[!\210\202A\306V\203A\310 \237\311\211 \2037 \2047 @ A :\203 @\311\202 \203A b\210\2029\n\203K\nb\210\2029\301`\f\312=\203[\306y\210\2022\f\313=\203g\311\210\2022\f\314=\203s\315 \210\2022\f\316=\203\317y\210\2022\f\320=\203\213\321y\210\2022\f\322=\203\232\321y\210\315 \210\2022\f\323=\203\251\317y\210\315 \210\2022\f\301=\203-\324\325!\203 \203\311!!\204\214~\210\326`\321\325 \311\327%!)o\203\333e\211!\202\277!\204\365\330\311x\211\"\306U\203\361\331 \210`!)\202\275!\306U\204\275!f\332=\204\275!b\210\311\211!\203\302!b\210)\2022\331 \210#\2032\333#!\2032\306\225b\210\2022\334\335\f\"\210` b\210*b\210+S\211\202\336\337!\205K\327\211\207" [arg bod prevbod state position here 0 c-end-of-defun c-parse-state nil bol eol boi back-to-indentation bonl 1 bopl -1 iopl ionl fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" boundp zmacs-region-stays c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp] 8 (#$ . 16563) "p"]) #@284 Move forward to next end of defun. With argument, do it that many times. Negative argument -N means move back to Nth preceding end of defun. An end of a defun occurs right after the close-parenthesis that matches the open-parenthesis that starts a defun; see `beginning-of-defun'. (defalias 'c-end-of-defun #[(&optional arg) "\302W\203\303[!\210\202=\302V\203:\304\305\306\217\203+\307 \310=\204+\311u\210\312 \210\202\303\313!\210\312\313!\210S\211\202\313y\210\314\301!\205F\315\211\207" [arg zmacs-region-stays 0 c-beginning-of-defun nil (byte-code "\300\301!\210\302\207" [down-list 1 t] 2) ((error)) char-before 123 -1 forward-sexp 1 boundp t] 4 (#$ . 18109) "p"]) #@605 Go to the beginning of the innermost C statement. With prefix arg, go back N - 1 statements. If already at the beginning of a statement then go to the beginning of the closest preceding one, moving into nested blocks if necessary (use \[backward-sexp] to skip over a block). If within a comment, or next to a comment (only whitespace between), move by sentences instead of statements. When called from a program, this function takes 3 optional args: the repetition count, a buffer position limit which is the farthest back to search, and a flag saying whether to do sentence motion when in a comment. (defalias 'c-beginning-of-statement #[(&optional count lim sentence-flag) "\206\306\307\310\311\n!!\312U\204M\n\203`\nV\203M` \204b\f\203b\212\312V\203M\313\307x\210`\314\315!\205>` B\211\203]\307f\316U\204/\202]\317\307w\210`\314\306!\205\\ `B\310 !)\312W\203p dU\203p\307 \203\370\f\203\344 @fz\320U\204\344\214\212 @b\210\321 !\210\312\225b\210`)\212 Ab\210\212 @b\210\321\322!)\203\246\323\324!\210\317\307x\210`)}\210\307\325\326\217\210)\312V\203\317` W\203\306S\2024 @b\210\307\2024` V\203\333T\2024 Ab\210\307\2024\312V\203\357 @\202\361 Ab\210\307\2024 b\210`\"\307\327\330\217\203\331 \332U\204`\"\202\376\"b\210)\312V\203*\307\333\334\217\2034S\2024\307\335\336\217\2034T` U\203\312V\203De\202Edb\210\312\211\202\n\203V`\n]b\210+\337\340!\205a\341\211 \207" [count here lim range sentence-flag comment-start-skip 1 nil c-collect-line-comments c-literal-limits 0 " " forward-comment -1 10 " \n" 34 looking-at "/\\*" backward-char 2 (byte-code "\301\302V\203 \303\202\f\304!\207" [count forward-sentence 0 -1 1] 3) ((error)) (byte-code "\300\301!\210\302\207" [up-list 1 t] 2) ((error)) char-before 125 (byte-code "\300\301\215\207" [done (byte-code "\302`\303\304!\203 U\204\305\306\302f\307U\"\210\310 \210o\203I U\203>eU\2033\305\306\311\"\210\202b\210\305\306\302\"\210\202b\210\305\306\311\"\210\202\312 \210\303\313!\203~ U\204_f\314U\203s\315 \314U\203\302f\316U\203\312 \210\202b\210\305\306\311\"\210\202\302fz\317U\204\216\302fz\320U\203\302u\210\321 \210\202" [last here nil looking-at "[{}]" throw done 123 c-backward-syntactic-ws t backward-char "[;{}]" 125 char-before 59 41 34 backward-sexp] 4)] 2) ((error (byte-code "eb\210\300\207" [t] 1))) (byte-code "\300\301\215\207" [done (byte-code "\302`\303 \210\302f\304U\203* U\203\302u\210\305\306\302\"\210\202b\210\305\306\307\"\210\202\302f\310U\203B U\204Bb\210\305\306\307\"\210\202\311\312!\203T\313\225b\210\305\306\307\"\210\202\302fz\314U\204d\302fz\315U\203j\316 \210\202\302u\210\202" [last here nil c-forward-syntactic-ws 123 throw done t 125 looking-at ";\\|};?" 0 40 34 forward-sexp] 3)] 2) ((error (byte-code "db\210\300\207" [t] 1))) boundp zmacs-region-stays t last] 4 (#$ . 18805) (list (prefix-numeric-value current-prefix-arg) nil t)]) #@557 Go to the end of the innermost C statement. With prefix arg, go forward N - 1 statements. Move forward to the end of the next statement if already at end, and move into nested blocks (use \[forward-sexp] to skip over a block). If within a comment, or next to a comment (only whitespace between), move by sentences instead of statements. When called from a program, this function takes 3 optional args: the repetition count, a buffer position limit which is the farthest back to search, and a flag saying whether to do sentence motion when in a comment. (defalias 'c-end-of-statement #[(&optional count lim sentence-flag) "\304\206\305[ \n#\210\306\303!\205\307\211\207" [count lim sentence-flag zmacs-region-stays c-beginning-of-statement 1 boundp t] 4 (#$ . 21794) (list (prefix-numeric-value current-prefix-arg) nil t)]) (byte-code "\300\301\302\"\210\303\304\305\306#\210\303\304\307\306#\210\303\310\305\306#\210\303\310\307\306#\207" [mapcar #[(sym) "\301\302\303#\210\301\304\303#\207" [sym put delete-selection t pending-delete] 4] (c-electric-pound c-electric-brace c-electric-slash c-electric-star c-electric-semi&comma c-electric-lt-gt c-electric-colon) put c-electric-delete delete-selection supersede pending-delete c-electric-backspace] 4) (defalias 'c-comment-indent #[nil "\306\307\310Q!\203 \311\207`\312\212\311y\210\306\313\310Q!\203%\314\315!\210iT\202\301\306\316!\2041\306\317!\2035\320\202\301 \203{\212\321\312w\210\306\f!\206El)\203{\322 \212\311y\210\321\312w\210l)\203_\323\312B B:\203j\202n\211B\324\325\326\327 \"\"*\202\301\212\311y\210o\204\206\330y\210\321\312w\210\306!`)\203\246 b\210iW\203\242\202\301i\202\301\nb\210\321\312x\210\311U\203\274n\203\274\311\202\301iT]+\207" [c-comment-start-regexp placeholder opoint c-indent-comments-syntactically-p comment-start syntax looking-at "^\\(" "\\)" 0 nil "[ ]*}[ ]*\\($\\|" search-forward "}" "^#[ ]*endif[ ]*" "^#[ ]*else[ ]*" 7 " " c-guess-basic-syntax comment-intro apply + mapcar c-get-offset -1 c-comment-only-line-offset comment-column] 5]) (defalias 'c-comment-line-break-function #[(&optional soft) "\306 \307\211\310=\206h\n\203 \204\311 !\202h`\n\312 \210\306 \2041\313y\210\314\315!\210iU\316\317\320Q!\203G\321\313!\322\230\203G\321\323! b\210\324\307x\210`\324\307w\210`|\210\325 \210\326\f\261\210\203e\327 \210\330 **\207" [at-comment-col literal c-comment-continuation-stars soft leader here c-in-literal nil string indent-new-comment-line back-to-indentation 1 forward-comment -1 looking-at "\\(" "\\)[ ]+" match-string "//" 0 " " newline " " indent-for-comment c-indent-line comment-column c-comment-start-regexp] 5]) (byte-code "\300\301!\204\302\303!\210\304\305\306\307\310$\210\311\305\310\"\210\310\207" [boundp comment-line-break-function require advice ad-add-advice indent-new-comment-line (c-line-break-advice nil t (advice lambda nil (if (or (not c-buffer-is-cc-mode) (not (c-in-literal)) (not c-comment-continuation-stars)) ad-do-it (c-comment-line-break-function (ad-get-arg 0))))) around nil ad-activate-on] 5) (defalias 'c-outline-level #[nil "\212\300\301w\210i)\207" [" " nil] 2]) #@328 Move back to the containing preprocessor conditional, leaving mark behind. A prefix argument acts as a repeat count. With a negative argument, move forward to the end of the containing preprocessor conditional. When going backwards, `#elif' is treated like `#else' followed by `#if'. When going forwards, `#elif' is ignored. (defalias 'c-up-conditional #[(count) "\302[\303\"\210\304\301!\205\303\211\207" [count zmacs-region-stays c-forward-conditional t boundp] 3 (#$ . 24987) "p"]) #@184 Move back across a preprocessor conditional, leaving mark behind. A prefix argument acts as a repeat count. With a negative argument, move forward across a preprocessor conditional. (defalias 'c-backward-conditional #[(count &optional up-flag) "\303[ \"\210\304\302!\205\305\211\207" [count up-flag zmacs-region-stays c-forward-conditional boundp t] 3 (#$ . 25485) "p"]) #@188 Move forward across a preprocessor conditional, leaving mark behind. A prefix argument acts as a repeat count. With a negative argument, move backward across a preprocessor conditional. (defalias 'c-forward-conditional #[(count &optional up-flag) "\306V\211\203\f\307\202 \310 \203\311\202\312\313\212\306U\204\314 \203)\306\202*\307\313\212\204\263 \314\313\315#\203\263\306y\210\316\317!\203\251\306y\210\316\320!\203\\\n\\\202y\316\321!\203s \203y\306U\203y`\202y\nZ\306W\203\224W\203\224\322 \203\221\323\202\222\324!\210 \203\233\310y\210\306W\203\245`)\2020 \2030\310y\210\2020)\204\275\322\325!\210\211b\210*\n\\\211\202)\326 \210\fb\210,\327\330!\205\336\315\211\207" [count forward increment search-function new up-flag 0 -1 1 re-search-forward re-search-backward nil "#[ ]*\\(if\\|elif\\|endif\\)" t looking-at "^[ ]*#[ ]*\\(if\\|elif\\|endif\\)" "[ ]*#[ ]*endif" "[ ]*#[ ]*elif" error "No following conditional at this level" "No previous conditional at this level" "No containing preprocessor conditional" push-mark boundp zmacs-region-stays found depth prev] 5 (#$ . 25868) "p"]) #@1006 Indent current line as C code, and/or insert some whitespace. If `c-tab-always-indent' is t, always just indent the current line. If nil, indent the current line only if point is at the left margin or in the line's indentation; otherwise insert some whitespace[*]. If other than nil or t, then some whitespace[*] is inserted only within literals (comments and strings) and inside preprocessor directives, but the line is always reindented. A numeric argument, regardless of its value, means indent rigidly all the lines of the expression starting after point so that this line becomes properly indented. The relative indentation among the lines of the expression are preserved. [*] The amount and kind of whitespace inserted is controlled by the variable `c-insert-tab-function', which is called to do the actual insertion of whitespace. Normally the function in this variable just inserts a tab character, or the equivalent number of spaces, depending on the variable `indent-tabs-mode'. (defalias 'c-indent-command #[(&optional whole-exp) "\306`\307=\203\310y\210\202\330\311=\203\312\210\202\330\313=\203(\314 \210\202\330\315=\2034\316y\210\202\330\317=\203@\320y\210\202\330\321=\203O\320y\210\314 \210\202\330\322=\203^\316y\210\314 \210\202\330\306=\203\323\323\324!\203\277\n\203\277\312 \204\270\214~\210\325`\320\324 \312\326%)o\203\213e\211\202q \204\242\327\312x\211\310U\203\236\330 \210`)\202p \310U\204p f\331=\204p b\210\312\211\203t b\210)\202\330\330 \210 \203\330\332 !\203\330\310\225b\210\202\330\333\334\"\210` b\210*#\203$\335 \312\211$%&\212'\326=\203\371\310y\210`%\336\316!\210`$%b\210\316y\210`%)$%V\205 \337%$&[\340$+\202W'\204>\212\341\312x\210n)\2049( \202W\335 \202W'\326=\203J\335 \202W\342!\203U( \210\335 )\207" [position here c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp bod bol 0 eol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" c-indent-line forward-sexp indent-code-rigidly "#" " " c-in-literal whole-exp end beg shift-amt c-tab-always-indent c-insert-tab-function] 7 (#$ . 27055) "*P"]) #@134 Indent each line in balanced expression following point. Optional SHUTUP-P if non-nil, inhibits message printing and error checking. (defalias 'c-indent-exp #[(&optional shutup-p) "`\306\211\307\216\306\310\306w\210\306f\311>\203`\202\312`\313` \314=\203*\315y\210\202\365 \313=\2036\306\210\202\365 \316=\203B\317 \210\202\365 \320=\203N\321y\210\202\365 \322=\203Z\323y\210\202\365 \324=\203i\323y\210\317 \210\202\365 \325=\203x\321y\210\317 \210\202\365 \326=\203\360\327\330!\203\332\f\203\332\306 \204\323\214~\210\331`\323\330 \306\332%)o\203\245e\211\202\213 \204\275\333\306x\211,\315U\203\271\334 \210`)\202\212 \315U\204\212 f\335=\204\212 b\210\306\211\203\216 b\210)\202\365\334 \210-\203\365\336-!\203\365\315\225b\210\202\365\337\340 \"\210`\nb\210*\"\211.A@\205.A@b\205\306f\341>\205`)/0\306\342\343\217\205!\344 /\20401\2040\337\345!\210 \204=1\204=\337\346!\210\347/ \350#\210\332/b\210\315y\210` W\205e\336\351!\204\\\352 \210\353 \210\321y\210\202M.\207" [progress-p end here position c-enable-xemacs-performance-kludge-p pos nil ((byte-code "\203 \303\211\223\210 \203\304\305!\210\nb\207" [end progress-p here nil c-progress-fini c-indent-exp] 3)) " \n" (40 91 123) parse-partial-sexp eol bol 0 boi back-to-indentation bonl 1 bopl -1 iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" (40 91 123) (byte-code "\300\301!\210\302\207" [forward-sexp 1 t] 2) ((error)) point-marker "Cannot find start of balanced expression to indent." "Cannot find end of balanced expression to indent." c-progress-init c-indent-exp "[ ]*$" c-indent-line c-progress-update distance defun-prompt-regexp state start c-echo-syntactic-information-p shutup-p] 11 (#$ . 29358) "*P"]) #@77 Re-indents the current top-level function def, struct or class declaration. (defalias 'c-indent-defun #[nil "\306 \307\310\311 !\206\356\312` \313=\203\314y\210\202\351 \315=\203*\307\210\202\351 \316=\2036\317 \210\202\351 \320=\203B\321y\210\202\351 \322=\203N\323y\210\202\351 \324=\203]\323y\210\317 \210\202\351 \325=\203l\321y\210\317 \210\202\351 \312=\203\344\326\327!\203\316\f\203\316\307 \204\307\214~\210\330`\323\327 \307\331%)o\203\231e\211\202 \204\261\332\307x\211$\314U\203\255\333 \210`)\202~ \314U\204~ f\334=\204~ b\210\307\211\203\202 b\210)\202\351\333 \210!\203\351\335!!\203\351\314\225b\210\202\351\336\337 \"\210`\nb\210*b\210o\203\376\307f\334=\204\376\nb\210\340\341!\203!\203\335!!\203\314\225b\210\342\216\343 ,\207" [brace c-echo-syntactic-information-p here position c-enable-xemacs-performance-kludge-p pos point-marker nil c-least-enclosing-brace c-parse-state bod bol 0 eol boi back-to-indentation bonl 1 bopl -1 iopl ionl fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" boundp defun-prompt-regexp ((byte-code "b\210\301\211\223\207" [here nil] 3)) c-indent-exp distance] 7 (#$ . 31224) "*"]) (defalias 'c-indent-region #[(start end) "\212b\210\306\307w\210\310y\210\307\311\216\312\307\211\313 \314#\210\315 !n\205\266m?\205\266` W\205\266\316 \210\307\211\211/01\306\307w\210\310y\210\317 \210`\212\310y\210\320\321!)\203W\322y\210\202\262\212\3232`32\324=\203k\310y\210\202J2\325=\203x\307\210\202J2\326=\203\205\327 \210\202J2\323=\203\222\322y\210\202J2\330=\203\237\331y\210\202J2\332=\203\257\331y\210\327 \210\202J2\333=\203\277\322y\210\327 \210\202J2\334=\203D\335\336!\203.4\203.\30755\204&\214~\210\337`\331\336 \307\312%5)o\203\362e\2115\202\3265\204\f\340\307x\2116\310U\203\341 \210`5)\202\3245\310U\204\3245f\342=\204\3245b\210\307\2115\203\3315b\210)\202J\341 \2107\203J\3207!\203J\310\225b\210\202J\343\3442\"\210`3b\210*1\310y\210`1W\203g\307\345\346\217\210\347 \210\202U0\203|0b\210\350 0\307\351\352\217\210`//\203\213/\nW\203\213\n/)\212\322y\210\353\307w\210\3208!\203\225\3242`32\324=\203\256\310y\210\202\2152\325=\203\273\307\210\202\2152\326=\203\310\327 \210\202\2152\323=\203\325\322y\210\202\2152\330=\203\342\331y\210\202\2152\332=\203\362\331y\210\327 \210\202\2152\333=\203\322y\210\327 \210\202\2152\334=\203\207\335\336!\203q4\203q\30755\204i\214~\210\337`\331\336 \307\312%5)o\2035e\2115\2025\204O\340\307x\2116\310U\203K\341 \210`5)\2025\310U\2045f\342=\2045b\210\307\2115\2035b\210)\202\215\341 \2107\203\215\3207!\203\215\310\225b\210\202\215\343\3442\"\210`3b\210*/)\307\354\355\217\2100\203\255\3560!\203\2550\307\211\223\210\322y\210`+\202.\207" [start endmark fence c-echo-syntactic-information-p c-tab-always-indent end " \n" nil 0 ((byte-code "\301\211\223\210\302\303!\210\304 \207" [endmark nil c-progress-fini c-indent-region c-echo-parsing-error] 3)) t c-progress-init c-indent-region copy-marker c-progress-update c-indent-line looking-at "[ ]*#" 1 bonl bol eol boi back-to-indentation bopl -1 iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists "^{" beginning-of-defun 123 error "unknown buffer position requested: %s" (byte-code "\301\302!\210`\301\207" [sexpend forward-sexp 1] 2) ((error (byte-code "\302 b\207" [sexpend nextline nil] 1))) c-forward-syntactic-ws point-marker (backward-sexp 1) ((error)) " " (byte-code "\203 V\203\nX\203 b\210\304\305!\210\306 \210b\210\304\207" [sexpend nextline endmark sexpbeg c-indent-exp shutup c-progress-update] 2) ((error (byte-code "b\210\301 \207" [sexpbeg c-indent-line] 1))) markerp sexpbeg sexpend nextline position here c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp c-comment-start-regexp] 7]) #@72 Put mark at end of a C, C++, or Objective-C defun, point at beginning. (defalias 'c-mark-function #[nil "`\212\304 \210`)\305 \306 \203+ @\211:\203!Ab\210\202$b\210 A\211\204\306f\307=\203E\310y\210o\204L\311\312!\204L\310y\210\2025\313y\210\314\306w\210\315 !\210\315\n\306\316#,\207" [brace state eod here end-of-defun c-parse-state nil 123 -1 looking-at "[ ]*$" 1 " \n" push-mark t] 5 (#$ . 35229) nil]) (byte-code "\302\300!\204\303\300 B\303\207" [c-progress-info current-load-list boundp nil] 2) (defalias 'c-progress-init #[(start end context) "?\206&\305\306!\204\307\310!\207 \206&\311\n\212 b\210\312 )\306 A@\f$\307\313!\207" [c-progress-interval c-progress-info start end context fboundp current-time message "indenting region... (this may take a while)" vector point-marker "indenting region..."] 5]) (defalias 'c-progress-update #[nil "\2053 \2053\306 A@\307H\310H\311H \nZW\2052\312\313`\fZ\314_ \fZ\245\"\210\311 I,\207" [c-progress-info c-progress-interval lastsecs end start now current-time 0 1 2 message "indenting region... (%d%% complete)" 100] 5]) (defalias 'c-progress-fini #[(context) "\205 \n\303H=\204 \304=\205\n\305H\306\211\223\210\306\307\310!\207" [c-progress-interval context c-progress-info 3 t 1 nil message "indenting region...done"] 3]) #@520 Insert, align, or delete end-of-line backslashes on the lines in the region. With no argument, inserts backslashes and aligns existing backslashes. With an argument, deletes the backslashes. This function does not modify blank lines at the start of the region. If the region ends at the start of a line, it always deletes the backslash (if any) at the end of the previous line. You can put the region around an entire macro definition and use this command to conveniently insert and align the necessary backslashes. (defalias 'c-backslash-region #[(from to delete-flag) "\212b\210 \306 \n\f\307\223\210 \2044`\fW\2034\307\210\310 \311=\203)\312u\210\313\307x\210 iT]\314y\210\202 \246\315V\203V \\\312\\\245_\211\316 W\203U)b\210`\nW\203il\203i\314y\210\202Y`\nW\203\216 \204\205\212\314y\210`\nW)\203\205\317 !\210\202\210\320 \210\314y\210\202i\n\307\211\223+\207" [from c-backslash-column endmark column to delete-flag make-marker nil char-before 92 -1 " " 1 0 window-width c-append-backslash c-delete-backslash tab-width adjusted] 4 (#$ . 36560) "*r\nP"]) (defalias 'c-append-backslash #[(column) "\301\210\302 \303=\203\304u\210\305 \210j\207j\210\306c\207" [column nil char-before 92 -1 delete-horizontal-space "\\"] 2]) (defalias 'c-delete-backslash #[nil "\300\210n\206\301u\210\302\303!\205`T\304\300x\210`|\207" [nil -1 looking-at "\\\\" " "] 3]) #@739 Like \[fill-paragraph] but handles C and C++ style comments. If any of the current line is a comment or within a comment, fill the comment or the paragraph of it that point is in, preserving the comment indentation or line-starting decorations. If point is inside multiline string literal, fill it. This currently does not respect escaped newlines, except for the special case when it is the very first thing in the string. The intended use for this rule is in situations like the following: char description[] = "\ A very long description of something that you want to fill to make nicely formatted output."; If point is in any other situation, i.e. in normal code, do nothing. Optional prefix ARG means justify paragraph as well. (defalias 'c-fill-paragraph #[(&optional arg) "\306 \307\307\212\310y\210\311\307w\210\312 !\205`\211)\313\212\310y\210\312\314!)\203\212@A \315QB \315QBA@\212\310y\210o\204M\312\316!\203M\317y\210\202=\312\320!\204V\321y\210\322\323!\210@\204f\310\224\310\225{@\214\324C`DC\324=\203z\310y\210\202YC\325=\203\207\307\210\202YC\326=\203\224\327 \210\202YC\330=\203\241\321y\210\202YC\331=\203\256\317y\210\202YC\332=\203\276\317y\210\327 \210\202YC\333=\203\316\321y\210\327 \210\202YC\334=\203S\335\336!\203=E\203=\307FF\2045\214~\210\337`\317\336 \307\340%F)o\203e\211F\202\345F\204\341\307x\211G\310U\203\342 \210`F)\202\343F\310U\204\343Ff\343=\204\343Fb\210\307\211F\203\350Fb\210)\202Y\342 \210H\203Y\312H!\203Y\310\225b\210\202Y\344\345C\"\210`Db\210*\212\321y\210\312\346@!!\203r\321y\210\202c`)}\210\307\347\350\217\204\206\307I\351J!\210)-\202~\f\204\330\212\352 \211:\205\241\212 @b\210\312K!))\204\330\212\310y\210\322 \212\307\210`)\340#`)\211\204\330 \204#\312\353!\203#\212\310y\210\312\354!)\203#\212\355\317!\210`)\212\310y\210\312\356!\203\355\322 !\210\357i\360\"\2020\f\203\367\321y\210\202 \312\361!\203 \212\317y\210\312\362!)\204 \317y\210\307\210iL\310y\210`\363\325C`DC\324=\203)\310y\210\202C\325=\2036\307\210\202C\326=\203C\327 \210\202C\330=\203P\321y\210\202C\331=\203]\317y\210\202C\332=\203m\317y\210\327 \210\202C\333=\203}\321y\210\327 \210\202C\334=\203\335\336!\203\354E\203\354\307FF\204\344\214~\210\337`\317\336 \307\340%F)o\203\260e\211F\202\224F\204\312\341\307x\211G\310U\203\306\342 \210`F)\202\222F\310U\204\222Ff\343=\204\222Fb\210\307\211F\203\227Fb\210)\202\342 \210H\203\312H!\203\310\225b\210\202\344\345C\"\210`Db\210*w\210\307f\364=\203!\365 \366=\203!\317u\210`{\367L!\210`\307\210`|\210))M\370=\203DA \371N\372\260\202IA \315QB \315Q\310OBA@\214\212\n\203c\nb\210\202g\373\374!\210P\204x\312K\353P!\203x\321y\210iQ`QO\375\360Q\"\210*\212\n\203\221\n\376\\b\210\377\201T\307\201U#\210R\204\261\212\310y\210\312\361!)\203\261\310y\210\202\264\321y\210`)}\210\307\201V\201W\217\204\314\307I\351J!\210)\212eb\210O\310V\203\336``O\\|\210db\210\317y\210\377\201T\307\201U#\210\310y\210R\203\312\361!\203S\201X\\S\317y\210\201Y`d\"\210d\376Zb\210\365 \366U\204\366c\210).\202~ \203~ @fz\201Z=\203~\212 @b\210\307\210` AW)\203~\307\211I@\214\212 @Tb\210\312\201[!\203]\310\225T\202^`)\212 ASb\210\201\\c\210`)}\210\351J!\210dSb\210\201]\321!\210+\201^!b\210\307\211\223\210-\340\207" [point-save limits comment-start-place comment-start-skip first-line re1 point-marker nil 0 " " looking-at "\\|\\([ ]*/\\*[ ]*\\|[ ]*\\*/[ ]*\\|[ /*]*\\)" ".*//" "$" "[ ]*//[ ]*[^ \n]" -1 ".*//[ ]*[^ \n]" 1 re-search-forward "[ ]*//[ ]*" bol eol boi back-to-indentation bonl bopl iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 error "unknown buffer position requested: %s" regexp-quote (byte-code "\306y\210\307\310` \311=\203\306y\210\202\337 \310=\203!\312\210\202\337 \313=\203-\314 \210\202\337 \315=\2039\316y\210\202\337 \317=\203E\320y\210\202\337 \321=\203T\320y\210\314 \210\202\337 \322=\203c\316y\210\314 \210\202\337 \323=\203\332\324\325!\203\304 \203\304\312\f\204\275\214~\210\326`\320\325 \312\327%)o\203\220e\211\202v\f\204\247\330\312x\211\306U\203\243\331 \210`)\202u\f\306U\204u\ff\332=\204u\fb\210\312\211\203y\fb\210)\202\337\331 \210\203\337\333!\203\337\306\225b\210\202\337\334\335 \"\210`\nb\210*\"\210\333!\207" [fill-prefix position here c-enable-xemacs-performance-kludge-p pos distance 0 search-forward eol bol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" defun-prompt-regexp paragraph-separate] 9) ((error)) fill-paragraph c-literal-limits "[ ]*$" ".*\\*/[ ]*$" forward-comment ".*/\\*.*\\*/" make-string 32 "[ ]*\\*/" ".*/\\*" " *" 47 char-before 42 move-to-column java-mode "\\(" "\\|$\\)" search-backward "/*" insert-char 2 search-forward fill-prefix paragraph-start paragraph-separate position here c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp fill-paragraph-function arg c-comment-start-regexp line-width major-mode c-Java-javadoc-paragraph-start chars-to-delete c-hanging-comment-starter-p column c-hanging-comment-ender-p fill-column "*/" move (byte-code "\306y\210\307\310` \311=\203\306y\210\202\337 \310=\203!\312\210\202\337 \313=\203-\314 \210\202\337 \315=\2039\316y\210\202\337 \317=\203E\320y\210\202\337 \321=\203T\320y\210\314 \210\202\337 \322=\203c\316y\210\314 \210\202\337 \323=\203\332\324\325!\203\304 \203\304\312\f\204\275\214~\210\326`\320\325 \312\327%)o\203\220e\211\202v\f\204\247\330\312x\211\306U\203\243\331 \210`)\202u\f\306U\204u\ff\332=\204u\fb\210\312\211\203y\fb\210)\202\337\331 \210\203\337\333!\203\337\306\225b\210\202\337\334\335 \"\210`\nb\210*\"\210\333!\207" [fill-prefix position here c-enable-xemacs-performance-kludge-p pos distance 0 search-forward eol bol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s" defun-prompt-regexp paragraph-separate] 9) ((error)) 9999 fill-region-as-paragraph 34 "\\\\$" 10 delete-char marker-position] 10 (#$ . 37973) "*P"]) (provide 'cc-cmds)