;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:24:50 2007 ;;; from file /home/cyd/emacs/lisp/progmodes/cc-awk.el ;;; in Emacs version 22.0.99 ;;; 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 "`cc-awk.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'cc-defs) #@42 Syntax table in use in AWK Mode buffers. (defvar awk-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\314#\210\302\320\314#\210\302\321\314#\210\302\322\314#\210\302\323\314#\210\302\324\314#\210\302\325\314#\210\302\326\327#\210\302\330\314#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 13 12 35 "< " 47 "." 42 43 45 61 37 60 62 38 124 95 "_" 39] 4) (#$ . 588)) (byte-code "\303B\306\307!\210\310B\311\312!\210\313B\314\315!\210\316B\317\320!\210\301B\321\322!\210\323B\324\325 \326Q!\210\327B\330\325 \331\332\326\260!\210\333B\334\335!\210\302B\336\337!\210\304B\340\341!\210\305B\342\325\n\331 \331\f\326\260!\210\343B\344\345 P!\210\346B\347 \325 \350\260!\210\351B\352\353&\354Q!\210\355B\356\357!\210\360B\361\325-\331 \326\260!\210\362B\363\3640P!\210\365B\366\367-\331\326\370\260!\210\371B\372\373!\210\374B\375\376!\210\377B\201I\201J!\210\201@B\201K\201L<\201M<\201N\325 \331?\331\201O\326\201P\260 !\210\201BB\201Q\201R\331\201O\326\201S\260!\210\201AB\201T\325 \331@\3319\326\260!\210\201UB\201V\201WAP!\210\201HB\201X\201Y\331B\3319\326\201Z\260!\210\201CB\201[\201\\!\210\201EB\201]\325C\326Q!\210\201DB\201^\201_!\210\201`B\201aDE\201WQ!\210\201FB\201b\201c!\210\201dB\201eFE\201WQ!\210\201GB\201f\201g!\210\201hB\201i\201j\325G\331\3315\331H\201k\326\260 !\207" [current-load-list c-awk-escaped-nl c-awk-harmless-char-re c-awk-esc-pair-re c-awk-harmless-_ c-awk-harmless-string*-re (lambda (#1=#:defconst-tmp-var) (defconst c-awk-esc-pair-re #1#)) "\\\\\\(.\\|\n\\| \\|\\'\\)" c-awk-non-eol-esc-pair-re (lambda (#2=#:defconst-tmp-var) (defconst c-awk-non-eol-esc-pair-re #2#)) "\\\\\\(.\\|\\'\\)" c-awk-comment-without-nl (lambda (#3=#:defconst-tmp-var) (defconst c-awk-comment-without-nl #3#)) "#.*" c-awk-nl-or-eob (lambda (#4=#:defconst-tmp-var) (defconst c-awk-nl-or-eob #4#)) "\\(\n\\| \\|\\'\\)" (lambda (#5=#:defconst-tmp-var) (defconst c-awk-escaped-nl #5#)) "\\\\[\n ]" c-awk-escaped-nls* (lambda (#6=#:defconst-tmp-var) (defconst c-awk-escaped-nls* #6#)) "\\(" "\\)*" c-awk-escaped-nls*-with-space* (lambda (#7=#:defconst-tmp-var) (defconst c-awk-escaped-nls*-with-space* #7#)) "\\|" "[ ]" c-awk-blank-or-comment-line-re (lambda (#8=#:defconst-tmp-var) (defconst c-awk-blank-or-comment-line-re #8#)) "[ ]*\\(#\\|\\\\?$\\)" (lambda (#9=#:defconst-tmp-var) (defconst c-awk-harmless-char-re #9#)) "[^_#/\"\\\\\n ]" (lambda (#10=#:defconst-tmp-var) (defconst c-awk-harmless-_ #10#)) "_\\([^\"]\\|\\'\\)" (lambda (#11=#:defconst-tmp-var) (defconst c-awk-harmless-string*-re #11#)) c-awk-harmless-string*-here-re (lambda (#12=#:defconst-tmp-var) (defconst c-awk-harmless-string*-here-re #12#)) "\\=" c-awk-harmless-line-re (lambda (#13=#:defconst-tmp-var) (defconst c-awk-harmless-line-re #13#)) "\\)?" c-awk-harmless-lines+-here-re (lambda (#14=#:defconst-tmp-var) (defconst c-awk-harmless-lines+-here-re #14#)) "\\=\\(" "\\)+" c-awk-string-ch-re (lambda (#15=#:defconst-tmp-var) (defconst c-awk-string-ch-re #15#)) "[^\"\\\n ]" c-awk-string-innards-re (lambda (#16=#:defconst-tmp-var) (defconst c-awk-string-innards-re #16#)) c-awk-string-without-end-here-re (lambda (#17=#:defconst-tmp-var) (defconst c-awk-string-without-end-here-re #17#)) "\\=_?\"" c-awk-one-line-possibly-open-string-re (lambda (#18=#:defconst-tmp-var) (defconst c-awk-one-line-possibly-open-string-re #18#)) "\"\\(" "\\(\"\\|\\\\?$\\|\\'\\)" c-awk-regexp-normal-re (lambda (#19=#:defconst-tmp-var) (defconst c-awk-regexp-normal-re #19#)) "[^[/\\\n ]" c-awk-escaped-newlines*-re (lambda (#20=#:defconst-tmp-var) (defconst c-awk-escaped-newlines*-re #20#)) "\\(\\\\[\n ]\\)*" c-awk-regexp-char-class-re c-awk-regexp-char-list-re c-awk-regexp-innards-re c-awk-regexp-one-line-possibly-open-char-list-re c-awk-neutral-re c-awk-var-num-ket-re c-awk-neutrals*-re c-awk-non-arith-op-bra-re c-awk-_-harmless-nonws-char-re c-awk-one-line-possibly-open-regexp-re (lambda (#21=#:defconst-tmp-var) (defconst c-awk-regexp-char-class-re #21#)) "\\[:[a-z]+:\\]" (lambda (#22=#:defconst-tmp-var) (defconst c-awk-regexp-char-list-re #22#)) "\\[" "^?" "]?" "[^]\n ]" "\\(]\\|$\\)" (lambda (#23=#:defconst-tmp-var) (defconst c-awk-regexp-one-line-possibly-open-char-list-re #23#)) "\\[\\]?\\(" "\\(]\\|\\\\?$\\|\\'\\)" (lambda (#24=#:defconst-tmp-var) (defconst c-awk-regexp-innards-re #24#)) c-awk-regexp-without-end-re (lambda (#25=#:defconst-tmp-var) (defconst c-awk-regexp-without-end-re #25#)) "/" (lambda (#26=#:defconst-tmp-var) (defconst c-awk-one-line-possibly-open-regexp-re #26#)) "/\\(" "\\(/\\|\\\\?$\\|\\'\\)" (lambda (#27=#:defconst-tmp-var) (defconst c-awk-neutral-re #27#)) "\\([{}@` ]\\|\\+\\+\\|--\\|\\\\.\\)" (lambda (#28=#:defconst-tmp-var) (defconst c-awk-neutrals*-re #28#)) (lambda (#29=#:defconst-tmp-var) (defconst c-awk-var-num-ket-re #29#)) "[])0-9a-zA-Z_$.\x80-\xff]+" c-awk-div-sign-re (lambda (#30=#:defconst-tmp-var) (defconst c-awk-div-sign-re #30#)) (lambda (#31=#:defconst-tmp-var) (defconst c-awk-non-arith-op-bra-re #31#)) "[[(&=:!><,?;'~|]" c-awk-regexp-sign-re (lambda (#32=#:defconst-tmp-var) (defconst c-awk-regexp-sign-re #32#)) (lambda (#33=#:defconst-tmp-var) (defconst c-awk-_-harmless-nonws-char-re #33#)) "[^#/\"\\\\\n ]" c-awk-one-line-non-syn-ws*-re (lambda (#34=#:defconst-tmp-var) (defconst c-awk-one-line-non-syn-ws*-re #34#)) "\\([ ]*" "\\)"] 14) (defalias 'c-awk-after-if-for-while-condition-p #[(&optional do-lim) "`Sf\302=\205+\212\303\304\305\217\211\205*b\210\306 \210\307\310!\206*\307\311!\205*\312 !\313=?*\207" [par-pos do-lim 41 nil (byte-code "\300`\301\302#\207" [scan-lists -1 0] 4) ((error)) c-backward-token-1 looking-at "\\(if\\|for\\)\\>\\([^_]\\|$\\)" "while\\>\\([^_]\\|$\\)" c-beginning-of-statement-1 beginning] 4]) (defalias 'c-awk-after-function-decl-param-list #[nil "`Sf\301=\205%\212\302\303\304\217\211\205$b\210\305 \210\306\307!\205$\305 \210\306\310!*\207" [par-pos 41 nil (byte-code "\300`\301\302#\207" [scan-lists -1 0] 4) ((error)) c-backward-token-1 looking-at "[_a-zA-Z][_a-zA-Z0-9]*\\>" "func\\(tion\\)?\\>"] 4]) (defalias 'c-awk-after-continue-token #[nil "\212\300 \210\301\302!\203o\204\303u\210\301\304!)\207" [c-backward-token-1 looking-at "[&|]" -1 "[,{?:]\\|&&\\|||\\|do\\>\\|else\\>"] 2]) (defalias 'c-awk-after-rbrace-or-statement-semicolon #[nil "`Sf\301=\206-`Sf\302=\205-\212\303\304\305\217\211\205,b\210\306\307!\205+\310 \205+\306\311!?*\207" [par-pos 125 59 nil (byte-code "\300`\301\302#\207" [scan-lists -1 1] 4) ((error)) looking-at "(" c-backward-token-1 "for\\>"] 4]) (defalias 'c-awk-back-to-contentful-text-or-NL-prop #[nil "\304\211\211o\204l\305`S\306\"\211\204l\307\310!`\214 \206 ed}\210\311 \210)`U\203>\312`S\313 \211T\306\n$\210)\202l\314\315!\203h\304\210\316\317 \320#\203e\304\210\321u\210\214 \206[ed}\210\311 \210)\202h\304\210n\204\n+\207" [bsws-pos bol-pos nl-prop -pos- nil get-text-property c-awk-NL-prop line-beginning-position 0 c-backward-sws 36 put-text-property looking-at "[ ]*\\\\+$" search-backward-regexp "\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\\\$" t -1] 5]) (defalias 'c-awk-calculate-NL-prop-prev-line #[(&optional do-lim) "\212\305 \306\216\307 \210`\310 n\204T\311 !\204\"\312 \204\"\313 \203&\314\202B\315\316!\2035\317 \2045\320\202B`Sf\321>\203A\322\202B\323\324\210`\325\f\211T\326\n$\210)\324y\210` W\203\205\n\327>\203e\330\202s\n\320=\203s\315\316!\204s\323\324y\210`S\325\f\211T\326\n$\210)\202T\n-\207" [save-match-data-internal pos nl-prop do-lim -pos- match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line c-awk-back-to-contentful-text-or-NL-prop c-awk-after-if-for-while-condition-p c-awk-after-function-decl-param-list c-awk-after-continue-token 123 looking-at "[ ]*\\\\$" c-awk-after-rbrace-or-statement-semicolon 92 (59 125) 125 36 nil put-text-property c-awk-NL-prop (125 36 nil) 35] 5]) (defalias 'c-awk-get-NL-prop-prev-line #[(&optional do-lim) "o?\205\301\302\303!\304\"\206\305!\207" [do-lim get-text-property line-end-position 0 c-awk-NL-prop c-awk-calculate-NL-prop-prev-line] 3]) (defalias 'c-awk-get-NL-prop-cur-line #[(&optional do-lim) "\212\302\211\210\302y\303U\203\304\305\303\"\210\306\307 !\203\310\303!\210*\207" [extra-nl do-lim nil 1 insert-char 10 t c-awk-get-NL-prop-prev-line delete-backward-char] 4]) (defalias 'c-awk-prev-line-incomplete-p #[(&optional do-lim) "\301!\302>\207" [do-lim c-awk-get-NL-prop-prev-line (92 123)] 2]) (put 'c-awk-prev-line-incomplete-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-awk-cur-line-incomplete-p #[(&optional do-lim) "\301!\302>\207" [do-lim c-awk-get-NL-prop-cur-line (92 123)] 2]) (put 'c-awk-cur-line-incomplete-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-awk-at-vsemi-p #[(&optional pos) "\212\305\203 b\210`\306y\210\307 !\210` =\2052\310 \211\311=\203/\305y\306=\203/\312\f!\204\n\313=+\207" [pos pos-or-point nl-prop c-awk-one-line-non-syn-ws*-re c-awk-blank-or-comment-line-re nil 0 search-forward-regexp c-awk-get-NL-prop-cur-line 92 looking-at 36] 2]) (defalias 'c-awk-vsemi-status-unknown-p #[nil "\300\301 \302\"?\207" [get-text-property line-end-position c-awk-NL-prop] 3]) (defalias 'c-awk-clear-NL-props #[(beg end) "\214~\210\301d\302#)\207" [beg remove-text-properties (c-awk-NL-prop nil)] 4]) (defalias 'c-awk-unstick-NL-prop #[nil "\301\300!\205\302\303\"?\205\304B\211\207" [text-property-default-nonsticky boundp assoc c-awk-NL-prop (c-awk-NL-prop . t)] 3]) (defalias 'c-awk-beginning-of-logical-line #[(&optional pos) "\203b\210\301y\210`eV\203`SSf\302=\203\303y\210\202\n`\207" [pos 0 92 -1] 2]) (defalias 'c-awk-end-of-logical-line #[(&optional pos) "\203b\210\301\210`dW\203`Sf\302=\203\303\210\202\n`\207" [pos nil 92 2] 2]) (defalias 'c-awk-set-string-regexp-syntax-table-properties #[(beg end) "f\303=\203\nT d=\203\304\n\211T\305\306$\210)\202\\f fU\204?\304\n\211T\305\307$\210) \304\n\211T\305\310$\210)\202\\f\311=\203\\\304\n\211T\305\312$\210) \304\n\211T\305\313$\210)\212Tb\210m\206|\314\315 \316#\205|`S\304\n\211T\305\317$\210)\202e)\207" [beg end -pos- 95 put-text-property syntax-table (15) (15) (15) 47 (7) (7) search-forward "\"" t (1)] 5]) (defalias 'c-awk-syntax-tablify-string #[nil "\301\302\303#\210\304\305\224\305\225\"\210\306\307!\203\302u\210\303\207\306\310!\203#\302u\210\302\207\302\207" [c-awk-string-without-end-here-re search-forward-regexp nil t c-awk-set-string-regexp-syntax-table-properties 0 looking-at "\"" "[\n ]"] 4]) (defalias 'c-awk-syntax-tablify-/ #[(anchor anchor-state-/div) "` b\210\n\203\306 T\307#?\202\306\fT\307#\203$Tb\210\310\202Mb\210\306 !\210\311\312\224\312\225\"\210\313\314!\203?\310u\210\307\202M\313\315!\203L\310u\210\310\202M\310)\207" [/point anchor anchor-state-/div c-awk-regexp-sign-re c-awk-div-sign-re c-awk-regexp-without-end-re search-forward-regexp t nil c-awk-set-string-regexp-syntax-table-properties 0 looking-at "/" "[\n ]"] 4]) (defalias 'c-awk-set-syntax-table-properties #[(lim) "\305\211\306 \210\307`\n\310#\210\311 \305\312#\203\305`\nW\2038`\311\f\305\312#\210\313\314!\2030\315 \2024\316 \"\202 *\305\207" [anchor-state-/div anchor lim c-awk-harmless-lines+-here-re c-awk-harmless-string*-here-re nil c-awk-beginning-of-logical-line remove-text-properties (syntax-table nil) search-forward-regexp t looking-at "_?\"" c-awk-syntax-tablify-string c-awk-syntax-tablify-/] 4]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list c-awk-old-EOLL default-boundp set-default 0 make-variable-buffer-local] 3) (defalias 'c-awk-before-change #[(beg end) "\214\212\306!\307 \310\211\310\311\211\f \311\312\216\313d\".\n\207" [end c-awk-old-EOLL modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks c-awk-end-of-logical-line buffer-modified-p t nil ((byte-code "\204 \301 \203 \302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) c-awk-clear-NL-props before-change-functions after-change-functions deactivate-mark] 4]) (defalias 'c-awk-end-of-change-region #[(beg end old-len) " Z\n Z\\\304\n!]\207" [c-awk-old-EOLL old-len end beg c-awk-end-of-logical-line] 3]) (defalias 'c-awk-after-change #[(beg end old-len) "\306\300!\205?\2058\214\212\307 \310\216\311\n \f#\312\n!\210\313 \314\211\314\315\211\315\316\216\317 !.\f\207" [font-lock-mode save-match-data-internal beg end old-len modified boundp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) c-awk-end-of-change-region c-awk-beginning-of-logical-line buffer-modified-p t nil ((byte-code "\204 \301 \203 \302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) c-awk-set-syntax-table-properties buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark] 5]) (defalias 'c-awk-advise-fl-for-awk-region '(macro . #[(function) "\301\302BB\207" [function defadvice ((before get-awk-region activate) (when (eq major-mode 'awk-mode) (save-excursion (ad-set-arg 1 (c-awk-end-of-change-region (ad-get-arg 0) (ad-get-arg 1) (ad-get-arg 2))) (ad-set-arg 0 (c-awk-beginning-of-logical-line (ad-get-arg 0))))))] 3])) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\210\300\310\311\303\304$\210\305\310\304\"\210\300\312\313\303\304$\210\305\312\304\"\207" [ad-add-advice font-lock-after-change-function (get-awk-region nil t (advice lambda nil #1=(when (eq major-mode 'awk-mode) (save-excursion (ad-set-arg 1 (c-awk-end-of-change-region (ad-get-arg 0) (ad-get-arg 1) (ad-get-arg 2))) (ad-set-arg 0 (c-awk-beginning-of-logical-line (ad-get-arg 0))))))) before nil ad-activate jit-lock-after-change (get-awk-region nil t (advice lambda nil #1#)) lazy-lock-defer-rest-after-change (get-awk-region nil t (advice lambda nil #1#)) lazy-lock-defer-line-after-change (get-awk-region nil t (advice lambda nil #1#))] 5) #@47 Default expressions to highlight in AWK mode. (defconst awk-font-lock-keywords '(("^\\s *\\(func\\(tion\\)?\\)\\>\\s *\\(\\sw+\\)?" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) ("\\<\\(ARG\\(?:IND\\|[CV]\\)\\|BINMODE\\|CONVFMT\\|E\\(?:NVIRON\\|RRNO\\)\\|F\\(?:I\\(?:ELDWIDTHS\\|LENAME\\)\\|NR\\|S\\)\\|IGNORECASE\\|LINT\\|N[FR]\\|O\\(?:F\\(?:MT\\|S\\)\\|RS\\)\\|PROCINFO\\|R\\(?:LENGTH\\|START\\|[ST]\\)\\|SUBSEP\\|TEXTDOMAIN\\)\\>" . font-lock-variable-name-face) ("\\(\"/dev/\\(fd/[0-9]+\\|p\\(\\(\\(gr\\)?p\\)?id\\)\\|std\\(err\\|in\\|out\\)\\|user\\)\\)\\>\\(\\(\"\\)\\|\\([^\"/\n ][^\"\n ]*\\)?$\\)" (1 font-lock-variable-name-face t) (8 font-lock-variable-name-face t t)) ("\\(\"/inet/\\(\\(raw\\|\\(tc\\|ud\\)p\\)/lport/rhost/rport\\)\\)\\>\\(\\(\"\\)\\|\\([^\"/\n ][^\"\n ]*\\)?$\\)" (1 font-lock-variable-name-face t) (6 font-lock-variable-name-face t t)) "\\<\\(BEGIN\\|END\\|break\\|continue\\|d\\(?:elete\\|o\\)\\|e\\(?:lse\\|xit\\)\\|for\\|getline\\|i[fn]\\|next\\(?:file\\)?\\|return\\|while\\)\\>" (eval list "\\<\\(a\\(?:dump\\|nd\\|sort\\|tan2\\)\\|bindtextdomain\\|c\\(?:lose\\|o\\(?:mpl\\|s\\)\\)\\|dcgettext\\|ex\\(?:p\\|tension\\)\\|fflush\\|g\\(?:\\(?:en\\)?sub\\)\\|in\\(?:dex\\|t\\)\\|l\\(?:ength\\|og\\|shift\\)\\|m\\(?:atch\\|ktime\\)\\|or\\|printf?\\|r\\(?:and\\|shift\\)\\|s\\(?:in\\|p\\(?:lit\\|rintf\\)\\|qrt\\|rand\\|t\\(?:opme\\|r\\(?:ftime\\|tonum\\)\\)\\|ub\\(?:str\\)?\\|yst\\(?:em\\|ime\\)\\)\\|\\(?:to\\(?:\\(?:low\\|upp\\)e\\)\\|xo\\)r\\)\\>" 0 c-preprocessor-face-name) ("\\(\\w\\|_\\)\\(\\\\[\n ]\\)*\\s \\(\\\\[\n ]\\|[ ]\\)*(" (0 'font-lock-warning-face)) ("\\\\\\s +$" 0 font-lock-warning-face t) ("\\s|" 0 font-lock-warning-face t nil) ("\\(_\\)\\s|" 1 font-lock-warning-face) ("\\(_\\)\\s\"" 1 font-lock-string-face)) (#$ . 14950)) (byte-code "\302B\303\304!\210\305B\306\307!\210\310B\311\312 \313Q!\207" [current-load-list c-awk-esc-pair-re c-awk-terminated-regexp-or-string-here-re (lambda (#1=#:defconst-tmp-var) (defconst c-awk-terminated-regexp-or-string-here-re #1#)) "\\=\\s\"\\S\"*\\s\"" c-awk-unterminated-regexp-or-string-here-re (lambda (#2=#:defconst-tmp-var) (defconst c-awk-unterminated-regexp-or-string-here-re #2#)) "\\=\\s|\\S|*$" c-awk-harmless-pattern-characters* (lambda (#3=#:defconst-tmp-var) (defconst c-awk-harmless-pattern-characters* #3#)) "\\([^{;#/\"\\\\\n ]\\|" "\\)*"] 4) (defalias 'c-awk-at-statement-end-p #[nil "o?\205\212\300u\210\301\302!\206\303 \304>\205\301\305!)\207" [-1 looking-at "[};]" c-awk-get-NL-prop-cur-line (36 92) "[^ \n \\]\\(\\\\[\n ]\\|[ ]\\)*[#\n ]"] 2]) #@664 Move backward to the beginning of an AWK "defun". With ARG, 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. By a "defun" is meant either a pattern-action pair or a function. The start of a defun is recognized as code starting at column zero which is neither a closing brace nor a comment nor a continuation of the previous line. Unlike in some other modes, having an opening brace at column 0 is neither necessary nor helpful. Note that this function might do hidden buffer changes. See the comment at the start of cc-engine.el for more info. (defalias 'c-awk-beginning-of-defun #[(&optional arg) "\204\306\307 \310\216\311 \312\211\312\313\211\313\314\216\312\315Y\203Q\203\214\315V\203\214`e=\204\214\316\317e\320#\211\203K\321 \322>\2039S\202(`d=\204Z\306u\210\203\203\315W\203\203`d=\204\203\323\317d\320#\211\203}\321 \324>\203kT\202Z\203\214\315\224b\210. \315=\207" [arg save-match-data-internal modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-modified-p t nil ((byte-code "\204 \301 \203 \302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) 0 search-backward-regexp "^[^#} \n ]" stop-at-limit c-awk-get-NL-prop-prev-line (36 125 35) search-forward-regexp (36 125 35) before-change-functions after-change-functions deactivate-mark found] 5 (#$ . 17549) "p"]) (defalias 'c-awk-forward-awk-pattern #[nil "\304!\210\305\306!\203 \307\210m\203\307\207\305\310!\203\307\207l\203/\307\311 !\312>)\205O\307y\202I\304\n\307\313#\204\304 \307\313#\204\305\314!\205O\307u\210\313\205O\202\207" [c-awk-harmless-pattern-characters* do-lim c-awk-terminated-regexp-or-string-here-re c-awk-unterminated-regexp-or-string-here-re search-forward-regexp looking-at "#" nil "[{;]" c-awk-get-NL-prop-cur-line (92 123) t "/"] 4]) (defalias 'c-awk-end-of-defun1 #[nil "\300 \210\301\302!\203\303`\304\"b\210\202&\301\305!\203\306u\210\202&l\204&\307\310!\210`\207" [c-awk-forward-awk-pattern looking-at "{" scan-sexps 1 ";" nil error "c-awk-end-of-defun1: Failure of c-awk-forward-awk-pattern"] 3]) (defalias 'c-awk-beginning-of-defun-p #[nil "\301\302!\205\303\304!\305>)?\207" [do-lim looking-at "^[^#} \n ]" nil c-awk-get-NL-prop-prev-line (92 123)] 2]) #@474 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 closing brace that matches the opening brace at its start, or immediately after the AWK pattern when there is no explicit action; see function `c-awk-beginning-of-defun'. Note that this function might do hidden buffer changes. See the comment at the start of cc-engine.el for more info. (defalias 'c-awk-end-of-defun #[(&optional arg) "\204\306\307 \310\216\311 \312\211\312\313\211\313\314\216`\313\315V\203e\316 \204>\317\306!\204>b\210\317\320!\210m\204e\321 \203e`V\203US\211\202V\312\203e\315V\203e\317\320!\204>\315W\205\245o\204\237\317\306!\203\237o\203\201`\202\205\212\321 )\211W\203\225T\211\202\226\312\203\237\315W\204o^b.\f\207" [arg save-match-data-internal modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-modified-p t nil ((byte-code "\204 \301 \203 \302\303!\210\303\207" [modified buffer-modified-p set-buffer-modified-p nil] 2)) 0 c-awk-beginning-of-defun-p c-awk-beginning-of-defun -1 c-awk-end-of-defun1 before-change-functions after-change-functions deactivate-mark end-point start-point] 3 (#$ . 20061) "p"]) (provide 'cc-awk)