;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'expand-region-core) #@39 Mark the current JavaScript function. (defalias 'er/mark-js-function #[nil "\3001\n\301u0\202\210\202\210\302\303!\210\304 \204\305 \203$\302\303!\210\202\306`!\210\307\310!\2044\311u\210\202(\312 \210\313 \207" [(error) 8 word-search-backward "function" er--point-inside-string-p er--point-is-in-comment-p set-mark looking-at "{" nil forward-list exchange-point-and-mark] 2 (#$ . 438) nil]) #@75 Mark the current return statement, including return and ending semi-colon (defalias 'er/mark-js-outer-return #[nil "\3001\n\301u0\202\210\202\210\302\303!\210\304 \204\305 \203$\302\303!\210\202\306`!\210\307\310!\204@\307\311!\203:\312 \210\202(\313u\210\202(\313u\210\314 \207" [(error) 6 word-search-backward "return" er--point-inside-string-p er--point-is-in-comment-p set-mark looking-at ";" "\\s(" forward-list nil exchange-point-and-mark] 2 (#$ . 848) nil]) #@83 Mark contents of the current return statement, not including return or semi-colon (defalias 'er/mark-js-inner-return #[nil "\3001\n\301u0\202\210\202\210\302\303!\210\304 \204\305 \203$\302\303!\210\202\306\307!\210\310`!\210\311\312!\204D\311\313!\203>\314 \210\202,\315u\210\202,\316 \207" [(error) 6 word-search-backward "return" er--point-inside-string-p er--point-is-in-comment-p search-forward " " set-mark looking-at ";" "\\s(" forward-list nil exchange-point-and-mark] 2 (#$ . 1333) nil]) #@32 Mark the current if-statement. (defalias 'er/mark-js-if #[nil "\3001\n\301u0\202\210\202\210\302\303!\210\304 \204\305 \203$\302\303!\210\202\306`!\210\307\310!\2044\311u\210\202(\312 \210\307\313!\204C\311u\210\2027\312 \210\314 \207" [(error) 2 word-search-backward "if" er--point-inside-string-p er--point-is-in-comment-p set-mark looking-at "(" nil forward-list "{" exchange-point-and-mark] 2 (#$ . 1850) nil]) #@62 Mark the current object property value, ie. from : to , or } (defalias 'er/mark-js-object-property-value #[nil "\300 \204 \301\302!\210\303\304!\210\305u\210\306\307!\210\310u\210\311`!\210\312\313!\2043\312\314!\203-\315 \210\202\305u\210\202\316\317\320\"\203A\321\322!\210\305u\210\323 \207" [er--point-inside-pairs-p error "Point is not inside an object" search-backward ":" nil search-forward-regexp "[^ ]" -1 set-mark looking-at "[},]" "\\s(" forward-list er/looking-back-max "[ \n]" 400 search-backward-regexp "[^ \n]" exchange-point-and-mark] 3 (#$ . 2285) nil]) #@150 Mark js-object-property presumes that point is at the assignment part of key: value. If point is inside the value, that will be marked first anyway. (defalias 'er/mark-js-object-property #[nil "\300\301!\204\300\302!\204\303\304\305\"\205V\306\307!\210\310u\210\311\312!\210\313u\210\314`!\210\315\316!\210\300\317!\2034\320 \203F\300\321!\203@\322 \210\202)\310u\210\202)\303\323\324\"\203T\306\312!\210\310u\210\325 \207" [looking-at "\"?\\(\\s_\\|\\sw\\| \\)*\":" "\\(\\s_\\|\\sw\\)*:" er/looking-back-max ": ?" 2 search-backward-regexp "[{,]" nil search-forward-regexp "[^ \n]" -1 set-mark search-forward ":" "[},]" er--point-inside-string-p "\\s(" forward-list "[ \n]" 400 exchange-point-and-mark] 3 (#$ . 2871) nil]) #@70 Mark the current symbol (including dots) and then parens or squares. (defalias 'er/mark-js-call #[nil "\301\302!\204\303!\2054\304\305!\210\302\306!\203\307u\210\310`!\210\302!\203)\311\225b\210\302\312!\2032\313 \210\314 )\207" [symbol-regexp "\\(\\s_\\|\\sw\\|\\.\\)+" looking-at er/looking-back-on-line skip-syntax-backward "_w." "!" 1 set-mark 0 "\\[\\|(" forward-list exchange-point-and-mark] 2 (#$ . 3611) nil]) #@52 Adds JS-specific expansions for buffers in js-mode (defalias 'er/add-js-mode-expansions #[nil "\301\300!\210\302\303\"\211\207" [er/try-expand-list make-local-variable append (er/mark-js-function er/mark-js-object-property-value er/mark-js-object-property er/mark-js-if er/mark-js-inner-return er/mark-js-outer-return er/mark-js-call)] 3 (#$ . 4046)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\305\306!\207" [er/enable-mode-expansions js-mode er/add-js-mode-expansions js2-mode js3-mode provide js-mode-expansions] 3)