;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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!\210\300\302!\210\300\303!\207" [require expand-region-core er-basic-expansions cc-cmds] 2) #@148 Mark the current C statement. This function tries to ensure that pair-delimited substring are either fully inside or fully outside the statement. (defalias 'er/c-mark-statement #[nil "\303 \204 \304`!\210`\305 W\203\306 \210`\305 Z\307Y\203(\306 \210\310u\210\306 \210\311u\210\310\211\312 \313\216\212\314 \210\315 \210`\305 +\314 \210\306 \210\314 \210\316\317!\210` X\203^\305 W\203^\304!\202t` V\205t\305 Y\205t b\210\314 \210\316\317!*\207" [end beg #1=#:saved-marker use-region-p set-mark mark exchange-point-and-mark 2 nil -1 save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2] c-end-of-statement er/mark-outside-pairs c-beginning-of-statement 1] 2 (#$ . 522) nil]) #@129 Mark the current C++ fully qualified identifier. This function captures identifiers composed of multiple '::'-separated parts. (defalias 'er/c-mark-fully-qualified-name #[nil "\300 \210\301 \2057`\302 V\203\303 \210\304\305!\203\"\306u\210\307\310!\210\202\303 \210\311\305!\2035\312u\210\313\310!\210\202%\303 \207" [er/mark-symbol use-region-p mark exchange-point-and-mark er/looking-back-exact "::" -2 skip-syntax-backward "_w" looking-at 2 skip-syntax-forward] 2 (#$ . 1259) nil]) (defalias 'er/c-define-construct '(macro . #[(name mark-first-part open-brace doc) "\305\306! \307\310\311\312\313\n!\"\311\314 \"\260\315\316\317\313\f!\320P!\321\322\323\311\324\313\f!\325P\"R\326\327\330\nC\331\332\333\334\335\336 D\337BBF\257\257\316\317\313\f!\325P!\321\340\341\311\324\313\f!\320P\"R\342\327\343\344\327\336 D\332\345\346\347\350\351\nC\352BBBBBBBEF\257E)\207" [docstring doc mark-first-part open-brace name make-symbol "docstring-tmp" "\n\n" "This function tries to mark a region consisting of two parts:\n" format " - the first part is marked using `%s'\n" symbol-name " - the second part is a block beginning with '%s'\n\n" progn defun intern "-1" nil "This function assumes that point is in the first part and the\n" "region is active.\n\n" "See also `%s'." "-2" (interactive) when (use-region-p) (exchange-point-and-mark) let ((oldpos (point))) (skip-syntax-forward " ") if looking-at ((progn (forward-sexp) (exchange-point-and-mark)) (goto-char oldpos)) "This function assumes that the block constituting the second part\n" "is already marked and active.\n\n" (interactive) (use-region-p) (when (> (point) (mark)) (exchange-point-and-mark)) ((beg (point)) (end (progn (forward-sexp 1) (point)))) (goto-char beg) (skip-syntax-backward " ") (backward-char) (deactivate-mark) ((set-mark end))] 20])) #@332 Mark the current function call. This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-fully-qualified-name' - the second part is a block beginning with '(' This function assumes that point is in the first part and the region is active. See also `er/c-mark-function-call-2'. (defalias 'er/c-mark-function-call-1 #[nil "\301 \205\"\302 \210\303 \210`\304\305!\210\306\307!\203\310 \210\303 \202!b)\207" [oldpos use-region-p er/c-mark-fully-qualified-name exchange-point-and-mark skip-syntax-forward " " looking-at "(" forward-sexp] 2 (#$ . 3094) nil]) #@348 Mark the current function call. This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-fully-qualified-name' - the second part is a block beginning with '(' This function assumes that the block constituting the second part is already marked and active. See also `er/c-mark-function-call-1'. (defalias 'er/c-mark-function-call-2 #[nil "\302 \2051`\303 V\203\304 \210\305\306!\2051`\307\310!\210`\211b\210\311\312!\210\313u\210\314 \210\315 \210\316!*\207" [end beg use-region-p mark exchange-point-and-mark looking-at "(" forward-sexp 1 skip-syntax-backward " " -1 deactivate-mark er/c-mark-fully-qualified-name set-mark] 4 (#$ . 3714) nil]) #@345 Mark the current block construct (like if, for, etc.) This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-statement' - the second part is a block beginning with '{' This function assumes that point is in the first part and the region is active. See also `er/c-mark-statement-block-2'. (defalias 'er/c-mark-statement-block-1 #[nil "\301 \205\"\302 \210\303 \210`\304\305!\210\306\307!\203\310 \210\303 \202!b)\207" [oldpos use-region-p er/c-mark-statement exchange-point-and-mark skip-syntax-forward " " looking-at "{" forward-sexp] 2 (#$ . 4425) nil]) #@361 Mark the current block construct (like if, for, etc.) This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-statement' - the second part is a block beginning with '{' This function assumes that the block constituting the second part is already marked and active. See also `er/c-mark-statement-block-1'. (defalias 'er/c-mark-statement-block-2 #[nil "\302 \2051`\303 V\203\304 \210\305\306!\2051`\307\310!\210`\211b\210\311\312!\210\313u\210\314 \210\315 \210\316!*\207" [end beg use-region-p mark exchange-point-and-mark looking-at "{" forward-sexp 1 skip-syntax-backward " " -1 deactivate-mark er/c-mark-statement set-mark] 4 (#$ . 5049) nil]) #@333 Mark the current vector access. This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-fully-qualified-name' - the second part is a block beginning with '\[' This function assumes that point is in the first part and the region is active. See also `er/c-mark-vector-access-2'. (defalias 'er/c-mark-vector-access-1 #[nil "\301 \205\"\302 \210\303 \210`\304\305!\210\306\307!\203\310 \210\303 \202!b)\207" [oldpos use-region-p er/c-mark-fully-qualified-name exchange-point-and-mark skip-syntax-forward " " looking-at "\\[" forward-sexp] 2 (#$ . 5764) nil]) #@349 Mark the current vector access. This function tries to mark a region consisting of two parts: - the first part is marked using `er/c-mark-fully-qualified-name' - the second part is a block beginning with '\[' This function assumes that the block constituting the second part is already marked and active. See also `er/c-mark-vector-access-1'. (defalias 'er/c-mark-vector-access-2 #[nil "\302 \2051`\303 V\203\304 \210\305\306!\2051`\307\310!\210`\211b\210\311\312!\210\313u\210\314 \210\315 \210\316!*\207" [end beg use-region-p mark exchange-point-and-mark looking-at "\\[" forward-sexp 1 skip-syntax-backward " " -1 deactivate-mark er/c-mark-fully-qualified-name set-mark] 4 (#$ . 6387) nil]) #@40 Adds expansions for buffers in c-mode. (defalias 'er/add-cc-mode-expansions #[nil "\301\300!\210\302\303\"\211\207" [er/try-expand-list make-local-variable append (er/c-mark-statement er/c-mark-fully-qualified-name er/c-mark-function-call-1 er/c-mark-function-call-2 er/c-mark-statement-block-1 er/c-mark-statement-block-2 er/c-mark-vector-access-1 er/c-mark-vector-access-2)] 3 (#$ . 7100)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\210\311\312!\207" [er/enable-mode-expansions c-mode er/add-cc-mode-expansions c++-mode objc-mode java-mode idl-mode pike-mode awk-mode provide cc-mode-expansions] 3)