Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
comp.elc	100.98 KB	-rw-r--r--
grammar.elc	24.47 KB	-rw-r--r--
java-tags.elc	3.83 KB	-rw-r--r--
javascript.elc	5.69 KB	-rw-r--r--
javat-wy.elc	85.56 KB	-rw-r--r--
js-wy.elc	128.18 KB	-rw-r--r--
python-wy.elc	141.69 KB	-rw-r--r--
python.elc	27.37 KB	-rw-r--r--
wisent.elc	13.8 KB	-rw-r--r--

Code Editor : javascript.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; 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 semantic/java semantic/wisent semantic/wisent/js-wy] 2)
#@357 Expand TAG into a list of equivalent tags, or nil.
Expand multiple variable declarations in the same statement, that is
tags of class `variable' whose name is equal to a list of elements of
the form (NAME VALUE START . END).  NAME is a variable name.  VALUE is
an initializer START and END are the bounds in the declaration, related
to this variable NAME.
(defalias 'wisent-javascript-jv-expand-tag #[(tag) "\306\211\211\211\211\211\211\211A@)\307=\205\f\211@)\211:\205\f\203@A
@\206L�\211@)\211A@)\310\3118)!\310\3128)!\3138)\257*
A@\203\207�
AA@\202\250�\211\3138)\314!\203\243�\315!\202\247�\316H*\203\264�
AAA\202\325�\211\3138)\314!\203\320�\317!\202\324�\320H*B\321\f\211\211AA)\211:\203\376�\322\323@\f#!\240\210,\210\324\n	#\210\202*�.\207" [xpand end start clone value elt nil variable copy-sequence 2 3 4 overlayp overlay-start 0 overlay-end 1 :default-value semantic-tag-make-plist plist-put semantic-tag-set-bounds elts tag name o attribute plist-cdr] 8 (#$ . 527)])
#@151 Get local values from a specific context.
This function overrides `get-local-variables'.

Override semantic-get-local-variables in `js-mode' buffers.
(defalias 'semantic-get-local-variables-js-mode #[nil "\300\207" [nil] 1 (#$ . 1642)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-js-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-js-mode)) (override-flag t) js-mode] 4)
#@681 Return protection information about TAG with optional PARENT.
This function returns on of the following symbols:
   nil         - No special protection.  Language dependent.
   `public'    - Anyone can access this TAG.
   `private'   - Only methods in the local scope can access TAG.
   `protected' - Like private for outside scopes, like public for child
                 classes.
Some languages may choose to provide additional return symbols specific
to themselves.  Use of this function should allow for this.

The default behavior (if not overridden with `tag-protection'
is to return a symbol based on type modifiers.

Override semantic-tag-protection in `js-mode' buffers.
(defalias 'semantic-tag-protection-js-mode #[(tag &optional parent) "\300\207" [nil] 1 (#$ . 2147)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-protection-js-mode definition-name semantic-tag-protection mode-local-bind ((semantic-tag-protection . semantic-tag-protection-js-mode)) (override-flag t) js-mode] 4)
#@357 Calculate the access class for TYPE as defined by the current SCOPE.
Access is related to the :parents in SCOPE.  If type is a member of SCOPE
then access would be `private'.  If TYPE is inherited by a member of SCOPE,
the access would be `protected'.  Otherwise, access is `public'.

Override semantic-analyze-scope-calculate-access in `js-mode' buffers.
(defalias 'semantic-analyze-scope-calculate-access-js-mode #[(type scope) "\300\207" [nil] 1 (#$ . 3176)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-scope-calculate-access-js-mode definition-name semantic-analyze-scope-calculate-access mode-local-bind ((semantic-analyze-scope-calculate-access . semantic-analyze-scope-calculate-access-js-mode)) (override-flag t) js-mode] 4)
#@395 Return the current symbol the cursor is on at POINT in a list.
This is a very simple implementation for Javascript symbols.  It
will at maximum do one split, so that the first part is seen as
one type.  For example:  $('#sel').foo.bar will return ("$('sel').foo" "bar").
This is currently needed for the mozrepl omniscient database.

Override semantic-ctxt-current-symbol in `js-mode' buffers.
(defalias 'semantic-ctxt-current-symbol-js-mode #[(&optional point) "\212\203�b\210	\306\211\306\307 p\310\216\311!\210\212\312\313!\203)�\314\315!\210`\316\317\320 \321#\2047�\322 \210\323`
\"\324\325\f\"\203U�\326\315\f\"\327\f\315\225T\fG#D\211\202Y�\fC\211.	\207" [point semantic-case-fold case-fold-search symlist tmp end nil syntax-table #[nil "rq\210\302	!)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table looking-at "\\w\\|\\s_" forward-sexp 1 re-search-backward "\\s-" point-at-bol t beginning-of-line buffer-substring-no-properties string-match "\$.+\$\\." match-string substring #1# #2# semantic-lex-syntax-table] 6 (#$ . 3951)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-symbol-js-mode definition-name semantic-ctxt-current-symbol mode-local-bind ((semantic-ctxt-current-symbol . semantic-ctxt-current-symbol-js-mode)) (override-flag t) js-mode] 4)
#@25 Setup buffer for parse.
(defalias 'wisent-javascript-setup-parser #[nil "\306 \210\307	\310\311\312\313\211\f\207" [semantic-lex-analyzer semantic-java-number-regexp semantic-lex-number-expression semantic-tag-expand-function semantic-imenu-summary-function imenu-create-index-function wisent-javascript-jv-wy--install-parser javascript-lexer-jv wisent-javascript-jv-expand-tag semantic-format-tag-name semantic-create-imenu-index ";" semantic-command-separation-character] 2 (#$ . 5292)])
(provide 'semantic/wisent/javascript-jv)

${this.title}

Code Editor : javascript.elc