-
Notifications
You must be signed in to change notification settings - Fork 0
/
company-octave.elc
33 lines (25 loc) · 3.19 KB
/
company-octave.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
;ELC
;;; Compiled
;;; in Emacs version 25.2.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib company company-dabbrev octave] 2)
#@73 Get the completion target, including '.' for completing struct members.
(defalias 'company-octave-grab-prefix #[0 "\300\301!\204 \302\303\304\"\203 \305`\212\306\304x\210`)\"\207\304f\205\" \304fz\307=?\205' \310\207" [looking-at "\\_>" looking-back "\\_>\\." nil buffer-substring-no-properties "a-zA-Z_.0-9" 119 ""] 4 (#$ . 527)])
#@92 Use Octave REPL's `completion_matches` function to get candidates for PREFIX.
(fn PREFIX)
(defalias 'company-octave-get-candidates #[257 "\3031 \304\305\306\307QC!\210 )0\207\210\310\311\312!\207" [inhibit-quit inferior-octave-output-list quit-flag (quit) nil inferior-octave-send-list-and-digest "completion_matches ('" "');\n" t eval (ignore nil)] 5 (#$ . 867)])
#@223 Annotate whether the completion candidate CANDIDATE is a function or a variable by using Octave's `which` command. To avoid an error involving '.' and argument passing, it doesn't complete structure names.
(fn CANDIDATE)
(defalias 'company-octave-get-annotation #[257 "\3041+ \305\306\305\307\310#)\266\203?\205( \311\312\313QC!\210\314\315\316\n@\314\"8P)0\207\210\307\317\320!\207" [inhibit-quit inhibit-changing-match-data inferior-octave-output-list quit-flag (quit) nil ".*\\..*" t string-match inferior-octave-send-list-and-digest "which ('" "');\n" " " 3 split-string eval (ignore nil)] 8 (#$ . 1244)])
#@239 Define the backend for interacting with the Octave REPL. Actions taken are based on the argument COMMAND. ARG will be the prefix or completion candidate, depending on COMMAND. IGNORED is ignored.
(fn COMMAND &optional ARG &rest IGNORED)
(defalias 'company-octave-backend #[641 "\3031L \304\305\306\"\203 \307\310!\202I \305\311\"\203% \312=\205I \313 \202I \305\314\"\2032 \315!\202I \305\316\"\203? \317!\202I \305\320\"\205I \321\322!)0\207\210\322\323\324!\207" [inhibit-quit major-mode quit-flag (quit) nil eql interactive company-begin-backend company-octave-backend prefix octave-mode company-octave-grab-prefix candidates company-octave-get-candidates annotation company-octave-get-annotation init run-octave t eval (ignore nil)] 6 (#$ . 1870) (byte-code "\300C\207" [interactive] 1)])
#@78 Set up company with the appropriate backends. You might wish to change this.
(defalias 'company-octave-settings #[0 "\301\302\303\"\210\304\305\306\307BC\310\311#\210\312\313\314\315\316\317!\320\"\321$\311\"\210\211\207" [company-dabbrev-code-other-buffers add-to-list company-backends company-octave-backend code t mode-local-bind company-dabbrev-code-ignore-case (mode-variable-flag t) octave mode-local-map-mode-buffers make-byte-code 0 "\302\301!\210\300\211\207" vconcat vector [company-dabbrev-code-ignore-case make-local-variable] 2] 8 (#$ . 2681)])
(provide 'company-octave)