-
Notifications
You must be signed in to change notification settings - Fork 0
/
csharp-mode-0.7.0.elc
154 lines (148 loc) · 42 KB
/
csharp-mode-0.7.0.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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:29:54 2010
;;; from file /Users/oceanhug/.emacs.d/csharp-mode-0.7.0.el
;;; in Emacs version 22.3.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 "`csharp-mode-0.7.0.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'c-filter-ops #[(ops opgroup-filter op-filter &optional xlate) "\242<\204 C \305=\203 \306\202$ \307 !\204$ \310\311\312\313\314 DEE\n\305=\203/ \315\202= \n;\203= \310\316\317\n\320BBE\204C \321\322 \323\216\324\325\326!!\210\327\330\331\"\332\333#*\207" [ops opgroup-filter op-filter xlate c-with-syntax-table-orig-table t #[(opgroup) "\300\207" [t] 1] functionp lambda (opgroup) memq opgroup quote #[(op) "\300\207" [t] 1] (op) string-match (op) identity syntax-table ((set-syntax-table c-with-syntax-table-orig-table)) set-syntax-table c-get-lang-constant c-mode-syntax-table delete-duplicates mapcan #[(opgroup) "@9\203 @!\205 A\302\303\"\207" [opgroup opgroup-filter mapcan #[(op) " !\205 \n !\211<\203 \202 C)\207" [op-filter op xlate res] 3]] 3] :test equal] 6])
(byte-code "\300\301!\210\302\303\304\"\207" [require cc-mode c-add-language csharp-mode java-mode] 3)
#@146 Indent all #region and #endregion blocks inline with code while
retaining normal column-zero indention for #if and the other
processing blocks.
(defalias 'csharp-lineup-region #[(langelem) "\212\300 \210\301\302\303 \304#\203 \305\202 \306)\207" [back-to-indentation re-search-forward "#\\(end\\)?region" line-end-position [0] 0 [0]] 4 (#$ . 1524)])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\307\310\311#\210\300\312\313\314#\210\300\315\316\317#\210\300\320\321\322#\210\300\323\324\325#\210\300\326\327\330#\210\300\331\332\333#\210\300\334\335\336#\210\300\337\340\341#\210\300\342\343\344#\210\300\345\346\347#\210\300\350\351\352#\210\300\353\354\355#\210\300\356\357\360#\210\300\361\362\363#\210\300\364\365\366#\210\300\367\370\371#\210\300\372\373\374#\210\300\375\376\377#\210\300\201@ \201A \201B #\210\300\201C \201D \201E #\210\300\201F \201G \201H #\210\300\201I \201J \201K #\207" [c-define-lang-constant c-opt-after-id-concat-key (((csharp-mode) if (c-get-lang-constant 'c-opt-identifier-concat-key '(cc-langs)) (c-get-lang-constant 'c-symbol-start '(cc-langs)))) (cc-langs) c-basic-matchers-before (((csharp-mode) cons (c-make-font-lock-search-function (concat ".\\(" c-string-limit-regexp "\\)") '((c-font-lock-invalid-string))) (append (if (c-get-lang-constant 'c-constant-kwds '(cc-langs)) (let ((re (c-make-keywords-re nil (c-get-lang-constant 'c-constant-kwds '(cc-langs))))) (list (cons 'eval (cons 'list (cons (concat "\\<\\(" re "\\)\\>") '(1 c-constant-face-name))))))) (list (cons (concat "\\<" (c-get-lang-constant 'c-regular-keywords-regexp '(cc-langs))) '(1 font-lock-keyword-face))) (if (c-get-lang-constant 'c-opt-identifier-concat-key '(cc-langs)) (list (list (byte-compile (list 'lambda '(limit) (cons 'while (cons (cons 're-search-forward (cons (concat "\\(\\<" "\\(" (c-get-lang-constant 'c-symbol-key '(cc-langs)) "\\)" "[ \n\f]*" (c-get-lang-constant 'c-opt-identifier-concat-key '(cc-langs)) "[ \n\f]*" "\\)" "\\(" (c-get-lang-constant 'c-opt-after-id-concat-key '(cc-langs)) "\\)") '(limit t))) '((unless (progn (goto-char (match-beginning 0)) (c-skip-comments-and-strings limit)) (or (get-text-property (match-beginning 2) 'face) (c-put-font-lock-face (match-beginning 2) (match-end 2) c-reference-face-name)) (goto-char (match-end 1)))))))))))))) (cc-fonts) c-identifier-key (((csharp-mode) concat "\\(" (c-get-lang-constant 'c-symbol-key '(cc-langs)) "\\)" (concat "\\(" "[ \n\f]*" (c-get-lang-constant 'c-opt-identifier-concat-key '(cc-langs)) "[ \n\f]*" (concat "\\(" "\\(" (c-get-lang-constant 'c-symbol-key '(cc-langs)) "\\)" "\\)") "\\)*"))) (cc-langs) c-operators (((csharp-mode) quote ((prefix "base")))) (cc-langs) c-opt-cpp-prefix (((csharp-mode) . "^\\s *#.*")) (cc-langs) c-assignment-operators (((csharp-mode) quote ("=" "*=" "/=" "%=" "+=" "-=" ">>=" "<<=" "&=" "^=" "|="))) (cc-langs) c-primitive-type-kwds (((csharp-mode) quote ("object" "string" "sbyte" "short" "int" "long" "byte" "ushort" "uint" "ulong" "float" "double" "bool" "char" "decimal" "void"))) (cc-langs) c-type-prefix-kwds (((csharp-mode) quote ("class" "interface" "enum" "struct"))) (cc-langs) c-type-modifier-kwds (((csharp-mode) quote ("readonly" "const"))) (cc-langs) c-class-decl-kwds (((csharp-mode) quote ("class" "interface"))) (cc-langs) c-modifier-kwds (((csharp-mode) quote ("public" "partial" "private" "const" "abstract" "protected" "ref" "out" "static" "virtual" "override" "params" "internal"))) (cc-langs) c-protection-kwds (((csharp-mode))) (cc-langs) c-type-list-kwds (((csharp-mode) quote ("struct" "class" "interface" "is" "as" "delegate" "event" "set" "get" "add" "remove"))) (cc-langs) c-typeless-decl-kwds (((csharp-mode) quote (":"))) (cc-langs) c-brace-list-decl-kwds (((csharp-mode) quote ("enum"))) (cc-langs) c-ref-list-kwds (((csharp-mode) quote ("using" "namespace"))) (cc-langs) c-block-stmt-2-kwds (((csharp-mode) quote ("for" "if" "switch" "while" "catch" "foreach" "checked" "unchecked" "lock"))) (cc-langs) c-simple-stmt-kwds (((csharp-mode) quote ("return" "continue" "break" "throw" "goto"))) (cc-langs) c-before-label-kwds (((csharp-mode))) (cc-langs) c-constant-kwds (((csharp-mode) quote ("true" "false" "null"))) (cc-langs) c-primary-expr-kwds (((csharp-mode) quote ("this" "base"))) (cc-langs) c-other-block-decl-kwds (((csharp-mode) quote ("namespace"))) (cc-langs) c-other-kwds (((csharp-mode) quote ("in" "sizeof" "typeof"))) (cc-langs) c-overloadable-operators (((csharp-mode) quote ("+" "-" "*" "/" "%" "&" "|" "^" "<<" ">>" "==" "!=" ">" "<" ">=" "<="))) (cc-langs) c-cpp-matchers (((csharp-mode) cons '(eval list "^\\s *\\(sharppragma\\)\\>\\(.*\\)" (list 1 c-preprocessor-face-name) '(2 font-lock-string-face)) (c-get-lang-constant 'c-cpp-matchers '(cc-fonts)))) (cc-fonts)] 4)
#@142 *List of extra types (aside from the type keywords) to recognize in C# mode.
Each list item should be a regexp matching a single identifier.
(custom-declare-variable 'csharp-font-lock-extra-types 'nil '(#$ . -6315))
#@35 Minimal highlighting for C# mode.
(defconst csharp-font-lock-keywords-1 (byte-code "\301=\203 \302\207\303\304\305\306#\207" [c-version-sym 5\.31\.6 ((eval list "^\\s *\\(sharppragma\\)\\>\\(.*\\)" (list 1 c-preprocessor-face-name) '(2 font-lock-string-face)) ("\\(\\=\\|\\(\\=\\|[^\\]\\)[\n]\\)^\\s *#.*\\(error\\>\\)\\s +\\(.*\\)$" 4 font-lock-string-face t) ("\\(\\=\\|\\(\\=\\|[^\\]\\)[\n]\\)^\\s *#.*include\\(\\s \\|[\n]\\)*\\(\\(//[^\n]*[\n]\\|/\\*[^*\n]*\\(\\*+[^*\n/][^*\n]*\\)*\\*+/\\|\\\\[\n]\\|\\s!\\S!*\\s!\\)\\(\\s \\|[\n]\\)*\\)*\\(<[^>\n]*>?\\)" (8 font-lock-string-face) (#[(limit) "\306\224\306\225Sf\307=\203- \211\310\211T\311\f$)\210)\211\310\211T\311$)\210)\2027 \312\n\211T\313#\210)*\314\207" [end beg pos -pos- c-<-as-paren-syntax c->-as-paren-syntax 8 62 put-text-property syntax-table remove-text-properties (syntax-table nil) nil] 6])) (#[#1=(limit) "\304\300!\305\306 \307#\203m \310\224b\210\311 !\204 \310\225b\210\312 \313\216\314\224\203` \214\315\316\224\316\225\317\320$\210\314\225b\210e }\210\321 \210\322!\203\\ \315\310\224\310\225\317\323$\210\310\225b\210\321 \210\324f\325=\203\\ \324u\210\2026 )\202i \315\316\224\316\225\317\323$\210*\202 )\324\207" [parse-sexp-lookup-properties limit save-match-data-internal c-symbol-key boundp re-search-forward "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n]\\)^\\s *#.*define\\(\\(\\s \\|[\n]\\)\\|//[^\n]*[\n]\\|/\\*[^*\n]*\\(\\*+[^*\n/][^*\n]*\\)*\\*+/\\|\\\\[\n]\\|\\s!\\S!*\\s!\\)+\\([[:alpha:]_][[:alnum:]_$]*\\)\\(\\((\\)\\|\\([^(]\\|$\\)\\)" t 0 c-skip-comments-and-strings match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 8 put-text-property 6 face font-lock-function-name-face c-forward-sws looking-at font-lock-variable-name-face nil 44] 5]) (#[#1# "\304\300!\305\306 \307#\203>