-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscala-mode-lib.elc
26 lines (22 loc) · 2.27 KB
/
scala-mode-lib.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
;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-lib.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-lib.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'scala-mode-lib)
#@72 Define key bindings for KEY-MAP (create KEY-MAP, if it does
not exist.
(defalias 'scala-mode-lib:define-keys '(macro . #[(key-map &rest key-funcs) "\302\303\304\305DD\306\307BBE\310\311 \"BB\207" [key-map key-funcs progn unless boundp quote setf ((make-keymap)) mapcar #[(key-func) "\303 @ \211A@)F\207" [key-map key-func x define-key] 5]] 6 (#$ . 670)]))
(defalias 'scala-special-char-p #[(char) "\205\n \302 \303!\"\207" [char scala-all-special-char-re string-match string] 4])
(defalias 'scala-looking-at-special-identifier #[(regexp) "\301`Sf!?\205 \302!\205 \301\303\225f!?\207" [regexp scala-special-char-p looking-at 0] 2])
(defalias 'scala-search-special-identifier-forward #[(limit) "\300\301\302\217\207" [nil (byte-code "\304 \"\203 \305 \306\216\307 \310\311!\"*\204 \312\207" [scala-special-ident-re limit save-match-data-internal scala-comment-begin-or-end-re search-forward-regexp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match match-string-no-properties 0 t] 4) ((error))] 3])
(defalias 'scala-mode-find-clstrtobj-name-doc #[nil "\212\300\301\302\303#\203 \304\224\304\225{\202 \305)\207" [re-search-forward "\\(class\\|object\\|trait\\)[ \n]+\\([a-zA-Z0-9_:=]+\\)[ \n]*" nil t 2 "NONAME"] 4])
(defalias 'scala-mode-def-and-args-doc #[nil "\212\301\302\303\304#\203 \305\224\305\225{\306\307Q)\202 \310)\207" [func re-search-forward "[ \n]*def[ \n]+\\([a-zA-Z0-9_:=]+\\)[ \n]*\\((\\([a-zA-Z0-9_:* \n]*\\))\\)?" nil t 1 "${1:" "} $0" "${1:name} $0"] 4])
(defalias 'scala-mode-file-doc #[nil "\301!\207" [buffer-file-name file-name-nondirectory] 2])