-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscala-mode-feature-tags.elc
41 lines (37 loc) · 4.18 KB
/
scala-mode-feature-tags.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
;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-tags.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-tags.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\304\305\306\307\310\311%\207" [provide scala-mode-feature-tags require etags custom-declare-group scala-mode-feature:tags nil "Creating and using TAGS file searches" :group scala] 6)
#@115 Tags command for parsing scala code.
Please see the contrib directory for ctags options for parsing scala files.
(custom-declare-variable 'scala-mode-feature:tags-command '"ctags" '(#$ . 885) :type 'string :group 'scala-mode-feature:tags)
#@31 Options for the ctags command
(custom-declare-variable 'scala-mode-feature:tags-option '"-e -o %s -R %s" '(#$ . 1131) :type 'string :group 'scala-mode-feature:tags)
#@71 Indicates whether the user should confirm reload a TAGS table or not.
(custom-declare-variable 'scala-mode-feature:tags-ask-when-reload 'nil '(#$ . 1302) :type 'boolean :group 'scala-mode-feature:tags)
#@2
(defvar scala-mode-feature-tags-completion-table nil (#$ . 1509))
#@2
(defvar scala-mode-feature-tags-tag-file nil (#$ . 1581))
#@18 Create TAGS file
(defalias 'scala-mode-feature-tags-create #[(dir-name) "\306\307!\210\310P\311\n #\312\f\313 Q!\210\314\315!\211 \205 \315K \316\216\315\317M\210\320 !\210+ \211*\207" [dir-name tags-file-name scala-mode-feature:tags-option args scala-mode-feature:tags-command #1=#:--cl-letf-bound-- message "Creating TAGS, please wait..." "/TAGS" format shell-command " " fboundp yes-or-no-p ((byte-code "\203 \302 M\210\202 \303\302!\210\302\207" [#1# #2=#:--cl-letf-save-- yes-or-no-p fmakunbound] 2)) #[(p) "\203 \302 !\207\303\207" [scala-mode-feature:tags-ask-when-reload p y-or-n-p t] 2] visit-tags-table #2# scala-mode-feature-tags-tag-file] 5 (#$ . 1646) "DTAGS file directory: "])
#@16 Load TAGS file
(defalias 'scala-mode-feature-tags-load #[(file-name) "\302!\203 \303!\203 \304!\210\211\207\305\306!\207" [file-name scala-mode-feature-tags-tag-file file-exists-p file-readable-p visit-tags-table message "The TAGS file does not exist!"] 2 (#$ . 2357) "fTAGS file: "])
#@203 Perform completion on the text around point.
Completes to the set of names listed in the current tags table.
The string to complete is chosen in the same way as the default
for \[find-tag] (which see).
(defalias 'scala-mode-feature-tags-complete #[nil "\305 \306\211\211 \204 \307\310!\202X \311\f!\210`\fGu\210\312\f \306#\211\313=\206X \n\2047 \307\314\f\"\210\315 \202X \f\n\230\204F `|\210\nc\202X \307\316!\210\317\220\320\321\f \"!\221\210\307\322\323\",\207" [scala-mode-feature-tags-completion-table scala-comp completion beg pattern scala-mode-feature-tags-get-pattern nil message "Nothing to complete" search-backward try-completion t "Can't find completion for \"%s\"" ding "Making completion list..." "*Completions*" display-completion-list all-completions "Making completion list...%s" "done"] 6 (#$ . 2656) nil])
(defalias 'scala-mode-feature-tags-completion-table #[nil "\203 \206( \205 \303\304!\205 r\305!q\210\304 )\211\204$ \306\307!\210\n\211)\207" [scala-mode-feature-tags-tag-file scala-mode-feature-tags-completion-table tags-table functionp etags-tags-completion-table get-file-buffer error "No TAGS file active!"] 3])
(defalias 'scala-mode-feature-tags-get-pattern #[nil "\212\300\301!\203 \302u\210\202 \303\301\212\304 \210`)\305#\204' \306\307\212\310\210`)\305#\205? \311\225b\210\312`\313\314!\210\300\315!\203= \302u\210\2021 `\")\207" [looking-at "\\sw\\|\\s_" 1 re-search-backward beginning-of-line t re-search-forward "\\(\\sw\\|\\s_\\)+" nil 0 buffer-substring-no-properties forward-sexp -1 "\\s'"] 4])
(defalias 'scala-mode-feature-tags-install #[nil "\300\207" [t] 1])