-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathjavascript.elc
More file actions
executable file
·142 lines (136 loc) · 17.2 KB
/
Copy pathjavascript.elc
File metadata and controls
executable file
·142 lines (136 loc) · 17.2 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
;ELC
;;; Compiled by Administrator@ALTU on Mon May 19 20:17:07 2008
;;; from file c:/emacs/javascript.el
;;; in Emacs version 23.0.0.1
;;; 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 "`javascript.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require cc-mode font-lock newcomment custom-declare-group javascript nil "Customization variables for `javascript-mode'." :tag "JavaScript" :group languages] 8)
#@45 Number of spaces for each indentation step.
(custom-declare-variable 'javascript-indent-level '4 '(#$ . 821) :type 'integer :group 'javascript)
#@133 Automatic indentation with punctuation characters. If non-nil, the
current line is indented when certain punctuations are inserted.
(custom-declare-variable 'javascript-auto-indent-flag 't '(#$ . 972) :type 'boolean :group 'javascript)
#@33 Keymap used in JavaScript mode.
(defvar javascript-mode-map nil (#$ . 1214))
(byte-code "\204 \302 \203 \303\304\305\"\210\302\207" [javascript-mode-map javascript-auto-indent-flag make-sparse-keymap mapc #[(key) "\302 \303#\207" [javascript-mode-map key define-key javascript-insert-and-indent] 4] ("{" "}" "(" ")" ":" ";" ",")] 3)
#@132 Run command bound to key and indent current line. Runs the command
bound to KEY in the global keymap and indents the current line.
(defalias 'javascript-insert-and-indent #[(key) "\301\302\303 \"!\210\304 \207" [key call-interactively lookup-key current-global-map indent-according-to-mode] 4 (#$ . 1560) (list (this-command-keys))])
#@39 Syntax table used in JavaScript mode.
(defvar javascript-mode-syntax-table (byte-code "\301 \302!\210\303\304\305#\210)\207" [table make-syntax-table c-populate-syntax-table modify-syntax-entry 95 "w"] 4) (#$ . 1901))
#@48 Auxiliary function for `js-re-search-forward'.
(defalias 'js-re-search-forward-inner #[(regexp &optional bound count) "\305e\n\306V\203^ \307 \f\"\210\310`\"\311 8\203. \307\312\313\311 8!P\212\305\210`)\314#\210\202Y \315 8\203: \305y\210\202Y \316 8\204O `Sf\317=\203V \305f\320=\203V \307\321!\210\202Y \nS`\202 *`\207" [saved-point parse count regexp bound nil 0 re-search-forward parse-partial-sexp 3 "\\([^\\]\\|^\\)" string t 7 4 47 42 "\\*/"] 5 (#$ . 2129)])
#@145 Search forward but ignore strings and comments. Invokes
`re-search-forward' but treats the buffer as if strings and
comments have been removed.
(defalias 'js-re-search-forward #[(regexp &optional bound noerror count) "`\204 \303\202 \304W\203 \305\202 \304V\205 \306\307\310\311\217*\207" [count search-expr saved-point (js-re-search-forward-inner regexp bound 1) 0 (js-re-search-backward-inner regexp bound (- count)) (js-re-search-forward-inner regexp bound count) err (eval search-expr) ((search-failed (byte-code "b\210 ?\205 \303\304\n!!\207" [saved-point noerror err error error-message-string] 3)))] 3 (#$ . 2611)])
#@49 Auxiliary function for `js-re-search-backward'.
(defalias 'js-re-search-backward-inner #[(regexp &optional bound count) "\305e\n\306V\203s \307 \f\"\210`eV\203# \212\310u\210\311\312!)\203# \305u\210\313`\"\314 8\203B \307\315\316\314 8!P\212\317 \210`)\320#\210\202 \321 8\203P \322 8b\210\202 \323 8\204e `Sf\324=\203l \305f\325=\203l \307\326!\210\202 \nS\211\202 *`\207" [saved-point parse count regexp bound nil 0 re-search-backward -1 looking-at "/[/*]" parse-partial-sexp 3 "\\([^\\]\\|^\\)" string beginning-of-line t 7 8 4 47 42 "/\\*"] 6 (#$ . 3252)])
#@147 Search backward but ignore strings and comments. Invokes
`re-search-backward' but treats the buffer as if strings and
comments have been removed.
(defalias 'js-re-search-backward #[(regexp &optional bound noerror count) "`\204 \303\202 \304W\203 \305\202 \304V\205 \306\307\310\311\217*\207" [count search-expr saved-point (js-re-search-backward-inner regexp bound 1) 0 (js-re-search-forward-inner regexp bound (- count)) (js-re-search-backward-inner regexp bound count) err (eval search-expr) ((search-failed (byte-code "b\210 ?\205 \303\304\n!!\207" [saved-point noerror err error error-message-string] 3)))] 3 (#$ . 3830)])
#@74 Return non-nil if point is inside a continued variable declaration
list.
(defalias 'js-continued-var-decl-list-p #[nil "\212\301\302\303\304#)\211\205 \212\305\306\304#)\205 \212\301\307\304#)?)\207" [start js-re-search-backward "\\<var\\>" nil t re-search-backward "\n" ";\\|[^, ][ ]*\\(/[/*]\\|$\\)"] 5 (#$ . 4475) nil])
#@62 Return non-nil if point is inside a function parameter list.
(defalias 'js-inside-param-list-p #[nil "\300\301\302\217\207" [err (byte-code "\212\300\301!\210\302\303!\205 \301v\210\302\304!\206 \301v\210\302\304!)\207" [up-list -1 looking-at "(" "function"] 2) ((error))] 3 (#$ . 4811)])
#@61 Regular expression matching the start of a function header.
(defconst js-function-heading-1-re "^[ ]*function[ ]+\\(\\w+\\)" (#$ . 5108))
#@86 Regular expression matching the start of a function entry in
an associative array.
(defconst js-function-heading-2-re "^[ ]*\\(\\w+\\)[ ]*:[ ]*function\\>" (#$ . 5254))
#@53 Regular expression matching any JavaScript keyword.
(defconst js-keyword-re "\\<\\(abstract\\|break\\|c\\(?:a\\(?:se\\|tch\\)\\|lass\\|on\\(?:st\\|tinue\\)\\)\\|d\\(?:e\\(?:bugger\\|fault\\|lete\\)\\|o\\)\\|e\\(?:lse\\|num\\|x\\(?:port\\|tends\\)\\)\\|f\\(?:inal\\(?:ly\\)?\\|or\\|unction\\)\\|goto\\|i\\(?:mp\\(?:lements\\|ort\\)\\|n\\(?:stanceof\\|terface\\)\\|[fn]\\)\\|n\\(?:ative\\|ew\\)\\|p\\(?:ackage\\|r\\(?:ivate\\|otected\\)\\|ublic\\)\\|return\\|s\\(?:tatic\\|uper\\|witch\\|ynchronized\\)\\|t\\(?:h\\(?:is\\|rows?\\)\\|r\\(?:ansient\\|y\\)\\|ypeof\\)\\|v\\(?:ar\\|o\\(?:id\\|latile\\)\\)\\|w\\(?:hile\\|ith\\)\\)\\>" (#$ . 5434))
#@64 Regular expression matching any predefined type in JavaScript.
(defconst js-basic-type-re "\\<\\(b\\(?:oolean\\|yte\\)\\|char\\|double\\|float\\|int\\|long\\|short\\|void\\)\\>" (#$ . 6082))
#@70 Regular expression matching any future reserved words in JavaScript.
(defconst js-constant-re "\\<\\(false\\|null\\|true\\)\\>" (#$ . 6279))
#@22 Level one font lock.
(defconst js-font-lock-keywords-1 (byte-code "\304\305 E\n\305 E\306\305 EF\207" [js-function-heading-1-re font-lock-function-name-face js-function-heading-2-re font-lock-string-face "\\<import\\>" 1 "[=(][ ]*\\(/.*?[^\\]/\\w*\\)"] 6) (#$ . 6426))
#@22 Level two font lock.
(defconst js-font-lock-keywords-2 (byte-code "\306 \307\nE \fBBE\"\207" [js-font-lock-keywords-1 js-keyword-re font-lock-keyword-face js-basic-type-re font-lock-type-face js-constant-re append 1 font-lock-constant-face] 6) (#$ . 6703))
#@24 Level three font lock.
(defconst js-font-lock-keywords-3 (byte-code "\302\303 P\304\305\211\306FD\307\304\310\311\312FD\313\314\315\316\317FD\320\321\322\323\324FDF\"\207" [js-font-lock-keywords-2 js-basic-type-re append "\\<\\(const\\|var\\)\\>\\|" "\\(\\w+\\)[ ]*\\([=;].*\\|,\\|/[/*]\\|$\\)" nil (1 font-lock-variable-name-face) "^[ ]*\\w+[ ]*\\([,;=]\\|/[/*]\\|$\\)" (if (save-excursion (backward-char) (js-continued-var-decl-list-p)) (backward-word 1) (end-of-line)) (end-of-line) (1 font-lock-variable-name-face) "\\<function\\>\\([ ]+\\w+\\)?[ ]*([ ]*\\w" "\\(\\w+\\)\\([ ]*).*\\)?" (backward-char) (end-of-line) (1 font-lock-variable-name-face) "^[ ]*\\w+[ ]*[,)]" "\\w+" (if (save-excursion (backward-char) (js-inside-param-list-p)) (backward-word 1) (end-of-line)) (end-of-line) (0 font-lock-variable-name-face)] 10) (#$ . 6970))
#@27 See `font-lock-keywords'.
(defconst js-font-lock-keywords '(js-font-lock-keywords-3 js-font-lock-keywords-1 js-font-lock-keywords-2 js-font-lock-keywords-3) (#$ . 7826))
#@90 Regular expression matching keywords that are optionally
followed by an opening brace.
(defconst js-possibly-braceless-keyword-re "\\<\\(catch\\|do\\|else\\|f\\(?:inally\\|or\\)\\|if\\|try\\|w\\(?:hile\\|ith\\)\\)\\>" (#$ . 8002))
#@91 Regular expression matching operators that affect indentation
of continued expressions.
(defconst js-indent-operator-re "[-+*/%<>=&^|?:]\\([^-+*/]\\|$\\)\\|\\<\\(in\\(?:stanceof\\)?\\)\\>" (#$ . 8241))
#@74 Return non-nil if text after point is an operator (that is not
a comma).
(defalias 'js-looking-at-operator-p #[nil "\302 \303\216\304 !\205 \304\305!?\206 \212\306\307\310\311#\205 \304\312!)*\207" [save-match-data-internal js-indent-operator-re match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at ":" js-re-search-backward "[?:{]\\|\\<case\\>" nil t "?"] 4 (#$ . 8451)])
#@62 Returns non-nil if the current line continues an expression.
(defalias 'js-continued-expression-p #[nil "\212\300 \210\301 \2066 \302\303\304\305#\2056 \306\304x\210\307u\210`eV\2056 \212\307u\210\310\311!)?\2056 \301 \2056 \307u\210\310\312!?)\207" [back-to-indentation js-looking-at-operator-p js-re-search-backward "\n" nil t " " -1 looking-at "[/*]/" "++\\|--\\|/[/*]"] 4 (#$ . 8889)])
#@233 Returns non-nil if word after point is `while' of a do-while
statement, else returns nil. A braceless do-while statement
spanning several lines requires that the start of the loop is
indented to the same column as the current line.
(defalias 'js-end-of-do-while-loop-p #[nil "\212\302 \303\216\304\305!\205Z \212\306\307x\210\304\306!)\203& \212\310 \210\311v\210\304\312!)\202Z \313\312\314 \315#\210\304\312!\206Z \316 \313\317\307\315#\203E \316 U\2036 \304\320!\205Y \321\322\323 \315#?\205Y \316 U)+\207" [save-match-data-internal saved-indent match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "\\s-*\\<while\\>" "[ \n]*}" nil backward-list -1 "\\<do\\>" js-re-search-backward point-at-bol t current-indentation "^[ ]*\\<" "[ ]*\\<do\\>" js-re-search-forward "\\<while\\>" point-at-eol] 4 (#$ . 9287) nil])
#@131 Returns the proper indentation of the current line if it
starts the body of a control statement without braces, else
returns nil.
(defalias 'js-ctrl-statement-indentation #[nil "\212\302 \210\212\303\304!?\2051 \305\306\307\310#\210\307u\210`Sf\311U\203 \312 \210\313\314!\210\313\315!\210\303!\2051 \316 ?)\205? \212\317\224b\210\320 \\))\207" [js-possibly-braceless-keyword-re javascript-indent-level back-to-indentation looking-at "[{]" js-re-search-backward "[[:graph:]]" nil t 41 backward-list skip-syntax-backward " " "w" js-end-of-do-while-loop-p 0 current-indentation] 4 (#$ . 10171)])
#@53 Return the proper indentation for the current line.
(defalias 'js-proper-indentation #[(parse-status) "\212\305 \210\306 \307\310!\311 \211\206{ \312 \203$ \313\314\315\316#\210\317 \\\202{ \fA@\203r \fA@b\210\307\320!\203c \321\322!\210`Sf\323U\203D \324 \210\305 \210 \203O i\202{ \203] i \211\\\325\\\\\202{ i \\\202{ \204n \315u\210\326\315w\210i\202{ \203z \202{ \325,\207" [continued-expr-p same-indent-p ctrl-stmt-indent javascript-indent-level parse-status back-to-indentation js-ctrl-statement-indentation looking-at "[]})]\\|\\<case\\>\\|\\<default\\>" js-continued-expression-p js-continued-var-decl-list-p js-re-search-backward "\\<var\\>" nil t current-indentation "[({[][ ]*\\(/[/*]\\|$\\)" skip-syntax-backward " " 41 backward-list 0 " "] 5 (#$ . 10774)])
#@52 Indent the current line as JavaScript source text.
(defalias 'javascript-indent-line #[nil "\212\302e\303 \")i\304 Z\305 8?\205\" \306\307 !!\210\310V\205\" u*\207" [offset parse-status parse-partial-sexp point-at-bol current-indentation 8 indent-line-to js-proper-indentation 0] 3 (#$ . 11561) nil])
#@132 Move backward to start of paragraph. Postcondition: Point is at
beginning of buffer or the previous line contains only whitespace.
(defalias 'js-backward-paragraph #[nil "\300y\210o\204 \301\302!\204 \300y\210\202 o?\205 \303y\207" [-1 looking-at "^[ ]*$" 1] 2 (#$ . 11873)])
#@119 Move forward to end of paragraph. Postcondition: Point is at
end of buffer or the next line contains only whitespace.
(defalias 'js-forward-paragraph #[nil "\300y\210m\204 \301\302!\204 \300y\210\202 m?\205 \303u\207" [1 looking-at "^[ ]*$" -1] 2 (#$ . 12161)])
#@185 Fill current paragraph as a block comment. PARSE-STATUS is the
result of `parse-partial-regexp' from beginning of buffer to
point. JUSTIFY has the same meaning as in `fill-paragraph'.
(defalias 'js-fill-block-comment-paragraph #[(parse-status justify) "\212\3058b\210\306 )\212\214\212\3058b\210\307 )\212\3058b\210\310\311!)}\210\212\312 \210\313\314!\203. \315y\210`)\212\316 \210\313\314!\203= \317u\210`)}\210eb\210m\204Q \320 \210\315y\210\202D \n Z\321\322\f!\210*db\210\313\323!\203i \324\315!\210eb\210m?\205z j\210\315y\210\202l +\207" [parse-status offset fill-column fill-paragraph-function justify 8 current-indentation point-at-bol re-search-forward "*/" js-backward-paragraph looking-at "^[ ]*$" 1 js-forward-paragraph -1 delete-horizontal-space nil fill-paragraph "^$" backward-delete-char] 3 (#$ . 12435)])
#@99 Return point at the beginning of the line where the current
single-line comment paragraph starts.
(defalias 'js-sline-comment-par-start #[nil "\212\300 \210o\204 \301\302!\203 \303y\210\202 o\204 \304y\210`)\207" [beginning-of-line looking-at "^[ ]*//[ ]*[[:graph:]]" -1 1] 2 (#$ . 13272)])
#@63 Return point at end of current single-line comment paragraph.
(defalias 'js-sline-comment-par-end #[nil "\212\300 \210m\204 \301\302!\203 \303y\210\202 o\204 \304u\210`)\207" [beginning-of-line looking-at "^[ ]*//[ ]*[[:graph:]]" 1 -1] 2 (#$ . 13575)])
#@78 Return the column at the start of the current single-line
comment paragraph.
(defalias 'js-sline-comment-offset #[(line) "\212\301!\210\302\303\304 \"\210\305\224b\210i)\207" [line goto-line re-search-forward "//" point-at-eol 0] 3 (#$ . 13840)])
#@90 Return the column at the start of the text of the current
single-line comment paragraph.
(defalias 'js-sline-comment-text-offset #[(line) "\212\301!\210\302\303\304 \"\210i)\207" [line goto-line re-search-forward "//[ ]*" point-at-eol] 3 (#$ . 14094)])
#@56 Return non-nil if inside an empty single-line comment.
(defalias 'js-at-empty-sline-comment-p #[nil "\212\300 \210\301\302!)?\205 \212\303\304\305 \306#)\207" [beginning-of-line looking-at "^.*//.*[[:graph:]]" re-search-backward "//" point-at-bol t] 4 (#$ . 14355)])
#@204 Fill current paragraph as a sequence of single-line comments.
PARSE-STATUS is the result of `parse-partial-regexp' from
beginning of buffer to point. JUSTIFY has the same meaning as in
`fill-paragraph'.
(defalias 'js-fill-sline-comments #[(parse-status justify) "\306 ?\205h \307 \310e\"T\311 \312 !\313 ! \212\214\n}\210eb\210\314\315\316\317#\2035 \320\321!\210\322y\210\202# \316\fZ \323!\210*db\210\324\325!\203O \326\322!\210eb\210m?\205f j\210\327c\210\fj\210\322y\210\202R .\207" [start start-line end offset text-offset fill-column js-at-empty-sline-comment-p js-sline-comment-par-start count-lines js-sline-comment-par-end js-sline-comment-offset js-sline-comment-text-offset re-search-forward "^[ ]*//[ ]*" nil t replace-match "" 1 fill-paragraph looking-at "^$" backward-delete-char "//" fill-paragraph-function justify] 4 (#$ . 14630)])
#@134 Return non-nil if inside a trailing comment. PARSE-STATUS is
the result of `parse-partial-regexp' from beginning of buffer to
point.
(defalias 'js-trailing-comment-p #[(parse-status) "\212\3018\205 \3028b\210\303\304x\210n?)\207" [parse-status 4 8 " " nil] 2 (#$ . 15501)])
#@131 Return non-nil if inside a block comment. PARSE-STATUS is the
result of `parse-partial-regexp' from beginning of buffer to
point.
(defalias 'js-block-comment-p #[(parse-status) "\212\302 \303\216\304 8\205 \305 8b\210\306\307!+\207" [save-match-data-internal parse-status match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 4 8 looking-at "/\\*"] 2 (#$ . 15786)])
#@89 If inside a comment, fill the current comment paragraph.
Trailing comments are ignored.
(defalias 'javascript-fill-paragraph #[(&optional justify) "\302e`\"\3038\203$ \304!\204$ \305!\203 \306 \"\210\202$ \307 \"\210)\310\207" [parse-status justify parse-partial-sexp 4 js-trailing-comment-p js-block-comment-p js-fill-block-comment-paragraph js-fill-sline-comments t] 3 (#$ . 16203) nil])
#@66 Regular expression matching top level procedures. Used by imenu.
(defconst js-imenu-generic-expression (byte-code "\300\301\302EC\207" [nil "function\\s-+\\(\\w+\\)\\s-*(" 1] 3) (#$ . 16606))
#@87 Major mode for editing JavaScript source text.
Key bindings:
\{javascript-mode-map}
(defalias 'javascript-mode #[nil "\306 \210\307!\210\310 !\210\311\302!\210\312\311\304!\210 C\311\305!\210\313\314\315\311\316!\210\317\320\311\321!\210\322\323\324\325!\207" [javascript-mode-map javascript-mode-syntax-table indent-line-function js-font-lock-keywords font-lock-defaults parse-sexp-ignore-comments kill-all-local-variables use-local-map set-syntax-table make-local-variable javascript-indent-line t "// " "" fill-paragraph-function javascript-fill-paragraph nil imenu-generic-expression javascript-mode "JavaScript" run-hooks javascript-mode-hook comment-start comment-end imenu-case-fold-search js-imenu-generic-expression major-mode mode-name] 2 (#$ . 16804) nil])
(provide 'javascript-mode)