-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscala-mode-feature-electric.elc
41 lines (37 loc) · 4.58 KB
/
scala-mode-feature-electric.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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
;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-feature-electric.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-feature-electric.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [provide scala-mode-feature-electric custom-declare-group scala-mode-feature:electric nil "Minor mode providing electric editing commands for scala files" :group scala] 6)
#@103 *List of contexts where matching delimiter should be
inserted. The word 'all' will do all insertions.
(custom-declare-variable 'scala-mode-feature:electric-expand-delimiters-list ''(all) '(#$ . -899) :type '(set :extra-offset 8 (const :tag "Everything" all) (const :tag "Curly brace" 123) (const :tag "Square brace" 91) (const :tag "Round brace" 40) (const :tag "Quote" 39) (const :tag "Double quote" 34) (const :tag "Back quote" 96) (const :tag "Vertical bar" 124)) :group 'scala-mode-feature:electric)
#@83 *Controls whether a newline should be inserted before the
closing bracket or not.
(custom-declare-variable 'scala-mode-feature:electric-newline-before-closing-bracket 'nil '(#$ . -1409) :type 'boolean :group 'scala-mode-feature:electric)
#@72 *Controls whether scala electric mode should be on per default or not.
(custom-declare-variable 'scala-mode-feature:electric-on-per-default 'nil '(#$ . -1653) :type 'boolean :group 'scala-mode-feature:electric)
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list scala-mode-feature-electric-matching-delimeter-alist default-boundp set-default ((91 . 93) (40 . 41) (39 . 39) (96 . 96) (34 . 34))] 3)
#@52 nil disables scala electric mode, non-nil enables.
(defvar scala-mode-feature-electric-mode scala-mode-feature:electric-on-per-default (#$ . 2087))
#@39 Keymap for scala electric minor mode.
(defvar scala-mode-feature-electric-mode-map (make-sparse-keymap) (#$ . 2241))
(make-variable-buffer-local 'scala-mode-feature-electric-mode)
#@2
(defalias 'scala-mode-feature-electric-mode #[(&optional arg) "\204 ?\202 \302!\303V\211\207" [arg scala-mode-feature-electric-mode prefix-numeric-value 0] 2 (#$ . 2426) "P"])
(defalias 'scala-electric-mode 'scala-mode-feature-electric-mode)
(defalias 'scala-mode-feature-electric-active-p #[nil "\207" [scala-mode-feature-electric-mode] 1])
(defalias 'scala-mode-feature-electric-code-at-point-p #[nil "\205 \302`!\303 >?\205 \304 >?)\207" [scala-mode-feature-electric-mode properties text-properties-at font-lock-string-face font-lock-comment-face] 2])
(defalias 'scala-mode-feature-electric-string-at-point-p #[nil "\205\n \301\302`!>:\207" [scala-mode-feature-electric-mode font-lock-string-face text-properties-at] 3])
(defalias 'scala-mode-feature-electric-is-last-command-char-expandable-punct-p #[nil "\302>\206 >\207" [scala-mode-feature:electric-expand-delimiters-list last-command-char all] 2])
(defalias 'scala-mode-feature-electric-curlies #[(arg) "\302\303!!\210\304 \2055 \305 \203 \306c\210\212 \203 \307 \210\310c)\207\311 \2055 \212\312u\210\313\314h\"\2054 \315u\210\310c)\207" [arg scala-mode-feature:electric-newline-before-closing-bracket self-insert-command prefix-numeric-value scala-mode-feature-electric-is-last-command-char-expandable-punct-p scala-mode-feature-electric-code-at-point-p " " newline "}" scala-mode-feature-electric-string-at-point-p -1 char-equal 35 1] 3 nil "P"])
(defalias 'scala-mode-feature-electric-matching-char #[(arg) "\303\304!!\210\305 \205 \306 \205 \212\307 \n\"Ac)\207" [arg last-command-char scala-mode-feature-electric-matching-delimeter-alist self-insert-command prefix-numeric-value scala-mode-feature-electric-is-last-command-char-expandable-punct-p scala-mode-feature-electric-code-at-point-p assoc] 3 nil "P"])
(defalias 'scala-mode-feature-electric-install #[nil "\303\304\"\204 \305B\303\304 \"\204 \304\nB B\306\n\307\310#\210\306\n\311\312#\210\306\n\313\312#\210\306\n\314\312#\210\315\207" [minor-mode-alist minor-mode-map-alist scala-mode-feature-electric-mode-map assoc scala-mode-feature-electric-mode (scala-mode-feature-electric-mode " electric") define-key "{" scala-mode-feature-electric-curlies "(" scala-mode-feature-electric-matching-char "[" "\"" t] 4])