| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\207" [require company company-template cl-lib custom-declare-group company-eclim nil "Completion backend for Eclim." :group] 6) | |
| 16 | (defalias 'company-eclim-executable-find #[nil "\303\3042C \305\303\211\205A \n@\306\307\310 \"\211!\2039 \311\312\313\314#!@\211\2039 \306\307\315\"\211!\2039 \316\304\"\210\nA\211\204 \303*0)\207" [file eclipse-root --dolist-tail-- nil --cl-block-nil-- ("/Applications/eclipse" "/usr/lib/eclipse" "/usr/local/lib/eclipse") file-exists-p expand-file-name "plugins" last directory-files t "^org.eclim_" "bin/eclim" throw] 6]) | |
| 17 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\207" [custom-declare-variable company-eclim-executable (or (bound-and-true-p eclim-executable) (executable-find "eclim") (company-eclim-executable-find)) "Location of eclim executable." :type file company-eclim-auto-save t "Determines whether to save the buffer when retrieving completions.\neclim can only complete correctly when the buffer has been saved." (choice (const :tag "Off" nil) (const :tag "On" t))] 6) | |
| 18 | (defvar company-eclim--project-dir 'unknown nil) | |
| 19 | (make-variable-buffer-local 'company-eclim--project-dir) | |
| 20 | (defvar company-eclim--project-name nil nil) | |
| 21 | (make-variable-buffer-local 'company-eclim--project-name) | |
| 22 | (defalias 'company-eclim--call-process #[(&rest args) "\306\307\310\311!\210\312\313!r\nq\210\314\216\315\316 \307\317\307\320\f&\211\321U\2033 \322 eb\210m?\205/ \323 )\202< \324\325ed{#\210\307-\207" [res coding-system-for-read #1=#:temp-buffer company-eclim-executable args json-array-type utf-8 nil require json generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process t "-command" 0 list json-read message "Company-eclim command failed with error %d:\n%s"] 8]) | |
| 23 | (defalias 'company-eclim--project-list #[nil "\300\301!\207" [company-eclim--call-process "project_list"] 2]) | |
| 24 | (defalias 'company-eclim--project-dir #[nil "\303=\203 \304 \305\"\211\205 \306\307\n!!\211)\207\207" [company-eclim--project-dir buffer-file-name dir unknown locate-dominating-file ".project" directory-file-name expand-file-name] 4]) | |
| 25 | (defalias 'company-eclim--project-name #[nil "\206B \306 \211\205A \307 \310\311 \310 \n:\203= \n@\312\313 \"A \232\2032 \312\314 \"A\310\211\2023 \311\203= \nA\211\202 ,\211)\207" [company-eclim--project-name dir #1=#:--cl-var-- project #2=#:--cl-var-- #3=#:--cl-var-- company-eclim--project-dir company-eclim--project-list nil t assoc path name] 4]) | |
| 26 | (defalias 'company-eclim--candidates #[(prefix) "\306\307 \"\310 \203 \311 \203 \312 \210\313\314\315\316 \317\n%\210\320\301\313\321\315\316 \317\n\322\323\324\f!!\325\326\327\330& \"A\310 \211 !\203s !@\320\331 \"A\211 \"\332\333\"\"\203Z \"\334\211\224O\"\335\334\336\337 \"%\210\" B*!A\211!\204< *\310 #\340\f \"+\207" [buffer-file-name completions project-file company-eclim-auto-save prefix item file-relative-name company-eclim--project-dir nil buffer-modified-p basic-save-buffer company-eclim--call-process "java_src_update" "-p" company-eclim--project-name "-f" assoc "java_complete" "-o" number-to-string company-eclim--search-point "-e" "utf-8" "-l" "standard" info string-match " ?[(:-]" 0 put-text-property 1 meta all-completions --dolist-tail-- completion completion-ignore-case] 15 nil "d"]) | |
| 27 | (defalias 'company-eclim--search-point #[(prefix) "G\211\301V\262\204 `Sf\302=\203 `S\207`\207" [prefix 0 46] 3]) | |
| 28 | (defalias 'company-eclim--meta #[(candidate) "\301\302\303#\207" [candidate get-text-property 0 meta] 4]) | |
| 29 | (defalias 'company-eclim--annotation #[(candidate) "\302!\303\304 \"\205 \305\224\305\225O)\207" [candidate meta company-eclim--meta string-match "\\(([^-]*\\) -" 1] 3]) | |
| 30 | (defalias 'company-eclim--prefix #[nil "\301 \211\205 \302!\303=\203 \304\305O)\207" [prefix company-grab-symbol string-to-char 64 1 nil] 4]) | |
| 31 | #@300 `company-mode' completion backend for Eclim. | |
| 32 | Eclim provides access to Eclipse Java IDE features for other editors. | |
| 33 | ||
| 34 | Eclim version 1.7.13 or newer (?) is required. | |
| 35 | ||
| 36 | Completions only work correctly when the buffer has been saved. | |
| 37 | `company-eclim-auto-save' determines whether to do this automatically. | |
| 38 | (defalias 'company-eclim #[(command &optional arg &rest ignored) "\305\267\202K \306\307!\207\310\311\312\"\205L \205L \n\205L \313 \205L \314 ?\205L \315 \206* \316\207\317 !\207\320 !\207 \321\232\207\322 !\207\322 !\211 \205I \fc\210\323\f!)\207\324\207" [command buffer-file-name company-eclim-executable arg anno #s(hash-table size 7 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 43 meta 47 no-cache 51 annotation 55 post-completion 59)) company-begin-backend company-eclim derived-mode-p java-mode jde-mode company-eclim--project-name company-in-string-or-comment company-eclim--prefix stop company-eclim--candidates company-eclim--meta "" company-eclim--annotation company-template-c-like-templatify nil] 4 (#$ . 4359) (list 'interactive)]) | |
| 39 | (provide 'company-eclim) | |
