-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscala-mode-fontlock.elc
29 lines (25 loc) · 5.19 KB
/
scala-mode-fontlock.elc
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
;ELC
;;; Compiled by [email protected] on Fri Apr 27 12:23:24 2012
;;; from file /Users/per/Projects/WiklanderConsulting/Internal/emacs-config/scala/scala-mode-fontlock.el
;;; in Emacs version 22.1.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 "`scala-mode-fontlock.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\207" [provide scala-mode-fontlock require cl font-lock scala-mode-constants scala-mode-lib scala-mode-navigation] 2)
(defalias 'scala-mark-borders #[(funs) "\305\211\305 :\2034 @\211\211A@\n\203 \306 \fB \2034 \n\203- \306 \fB A\211\202 \f\237,\207" [funs #1=#:--cl-var-- flag fun #2=#:--cl-var-- nil point-marker] 3])
(defalias 'scala-make-match #[(funs) "\304 \305!\304 \211 \n+BB\207" [funs end-mark markers start-mark point-marker scala-mark-borders] 4])
(byte-code "\301B\302\303!\207" [current-load-list scala-binding-end-re (lambda (#1=#:defconst-tmp-var) (defconst scala-binding-end-re #1#)) "<-\\|=>\\|[:;=]"] 2)
(defalias 'scala-match-and-skip-binding #[(limit) "\301\302w\210\303\304!\206 \305!?\205 \302\306\307\217\207" [scala-binding-end-re " ()" nil looking-at "\\<\\(extends\\|with\\)\\>\\|{" scala-looking-at-special-identifier (byte-code "\214e}\210\302\303!\304\305!\210\306 !\210*\307\207" [limit matches scala-make-match ((scala-forward-ident . t) ((lambda nil (scala-forward-spaces) (when (scala-looking-at-special-identifier ":") (forward-char) (scala-forward-spaces) t))) ((lambda nil (scala-forward-type) (scala-when-looking-at "\\s *\\*") t) . t)) scala-when-looking-at* "\\s *," set-match-data t] 2) ((error))] 3])
(defalias 'scala-match-and-skip-ident #[(limit) "\302 \210\303!?\205 \303 !\205 \304\225b\210\305\207" [scala-keywords-re scala-qual-ident-re scala-forward-spaces looking-at 0 t] 2])
(defalias 'scala-match-and-skip-type-param #[(limit) "\300\301\302\"\207" [scala-when-looking-at* "\\s *[[,]\\s *" #[nil "\301\302!\303\304!\210\305!\210)\306\207" [matches scala-make-match ((scala-forward-type-param . t)) scala-when-looking-at* "\\s *\\]" set-match-data t] 2]] 3])
(defalias 'scala-match-and-skip-result-type #[(limit) "\300\301\302\"\207" [scala-when-looking-at* "\\s *:\\s *" #[nil "\300\301 \302 \210\301 D!\210\303\207" [set-match-data point-marker scala-forward-type t] 3]] 3])
(byte-code "\301B\302\303!\210\304B\305\306!\207" [current-load-list scala-pattern-end-re (lambda (#1=#:defconst-tmp-var) (defconst scala-pattern-end-re #1#)) "\\<\\(c\\(?:ase\\|lass\\)\\|if\\)\\>" scala-pattern-end-special-re (lambda (#2=#:defconst-tmp-var) (defconst scala-pattern-end-special-re #2#)) "\\(<-\\|=>?\\)"] 2)
(defalias 'scala-match-and-skip-pattern #[(limit) "\306\307w\210\310!\204 \311 !\204 \310\n!\203 \312\225b\210\202 \310!\206&