;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305!\204\306\305\307\"\210\310\311\312\313\314\315\314\316\314\317& \210\320\321\322\323#\210\320\324\325\326#\210\320\327\330\331#\210\320\332\333\334#\210\320\335\336\337#\210\320\340\341\342#\210\320\343\344\345#\210\320\346\347\350#\210\320\351\352\353#\210\320\354\355\356#\210\320\357\360\361#\210\320\362\363\364#\210\320\365\366\367#\210\320\370\371\372#\210\320\373\312\374#\210\320\375\376\377#\207" [require cl-lib newcomment pcase fboundp string-suffix-p defalias #[770 "GGZ\211\300Y\205\301\302\211\302&\303=\207" [0 compare-strings nil t] 12 "Return non-nil if SUFFIX is a suffix of STRING.\nIf IGNORE-CASE is non-nil, the comparison is done without paying\nattention to case differences.\n\n(fn SUFFIX STRING &optional IGNORE-CASE)"] custom-declare-group company nil "Extensible inline text completion mechanism" :group abbrev convenience matching custom-declare-face company-tooltip ((default :foreground "black") (((class color) (min-colors 88) (background light)) (:background "cornsilk")) (((class color) (min-colors 88) (background dark)) (:background "yellow"))) "Face used for the tooltip." company-tooltip-selection ((((class color) (min-colors 88) (background light)) (:background "light blue")) (((class color) (min-colors 88) (background dark)) (:background "orange1")) (t (:background "green"))) "Face used for the selection in the tooltip." company-tooltip-search ((default :inherit highlight)) "Face used for the search string in the tooltip." company-tooltip-search-selection ((default :inherit highlight)) "Face used for the search string inside the selection in the tooltip." company-tooltip-mouse ((default :inherit highlight)) "Face used for the tooltip item under the mouse." company-tooltip-common ((((background light)) :foreground "darkred") (((background dark)) :foreground "red")) "Face used for the common completion in the tooltip." company-tooltip-common-selection ((default :inherit company-tooltip-common)) "Face used for the selected common completion in the tooltip." company-tooltip-annotation ((((background light)) :foreground "firebrick4") (((background dark)) :foreground "red4")) "Face used for the completion annotation in the tooltip." company-tooltip-annotation-selection ((default :inherit company-tooltip-annotation)) "Face used for the selected completion annotation in the tooltip." company-scrollbar-fg ((((background light)) :background "darkred") (((background dark)) :background "red")) "Face used for the tooltip scrollbar thumb." company-scrollbar-bg ((((background light)) :background "wheat") (((background dark)) :background "gold")) "Face used for the tooltip scrollbar background." company-preview ((((background light)) :inherit (company-tooltip-selection company-tooltip)) (((background dark)) :background "blue4" :foreground "wheat")) "Face used for the completion preview." company-preview-common ((((background light)) :inherit company-tooltip-common-selection) (((background dark)) :inherit company-preview :foreground "red")) "Face used for the common part of the completion preview." company-preview-search ((((background light)) :inherit company-tooltip-common-selection) (((background dark)) :inherit company-preview :background "blue1")) "Face used for the search string in the completion preview." company-echo "Face used for completions in the echo area." company-echo-common ((((background dark)) (:foreground "firebrick1")) (((background light)) (:background "firebrick4"))) "Face used for the common part of completions in the echo area."] 10) (defalias 'company-frontends-set #[514 "\300\301!!\302>\203\303>\204)\304>\203\303>\204)\304>\203-\302>\203-\305\306!\210\307>\2039\310>\204Q\307>\203E\311>\204Q\310>\203U\311>\203U\305\312!\210\313>\203e\314>\203e\305\315!\210\316\211\203\204\211@\211>A\203}\317\320\"C\"\262A\266\202\202f\210L\207" [delete-dups copy-sequence company-pseudo-tooltip-unless-just-one-frontend company-pseudo-tooltip-frontend company-pseudo-tooltip-unless-just-one-frontend-with-delay user-error "Pseudo tooltip frontend cannot be used more than once" company-preview-if-just-one-frontend company-preview-frontend company-preview-common-frontend "Preview frontend cannot be used twice" company-echo company-echo-metadata-frontend "Echo area cannot be used twice" (company-preview-if-just-one-frontend company-preview-frontend company-preview-common-frontend) append delq] 9 "\n\n(fn VARIABLE VALUE)"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\315%\210\300\316\302\303\317DD\320\310\315%\210\300\321\302\303\322DD\323\310\315\324\325&\210\300\326\302\303\327DD\330\310\315\324\331&\210\300\332\302\303\333DD\334\310\315%\210\300\335\302\303\336DD\337\310\340%\210\300\341\302\303\342DD\343\310\344\324\345&\210\300\346\302\303\347DD\350\310\344\324\351&\207" [custom-declare-variable company-frontends funcall function #[0 "\300\207" [(company-pseudo-tooltip-unless-just-one-frontend company-preview-if-just-one-frontend company-echo-metadata-frontend)] 1] "The list of active frontends (visualizations).\nEach frontend is a function that takes one argument. It is called with\none of the following arguments:\n\n`show': When the visualization should start.\n\n`hide': When the visualization should end.\n\n`update': When the data has been updated.\n\n`pre-command': Before every command that is executed while the\nvisualization is active.\n\n`post-command': After every command that is executed while the\nvisualization is active.\n\nThe visualized data is stored in `company-prefix', `company-candidates',\n`company-common', `company-selection', `company-point' and\n`company-search-string'." :set company-frontends-set :type (repeat (choice (const :tag "echo" company-echo-frontend) (const :tag "echo, strip common" company-echo-strip-common-frontend) (const :tag "show echo meta-data in echo" company-echo-metadata-frontend) (const :tag "pseudo tooltip" company-pseudo-tooltip-frontend) (const :tag "pseudo tooltip, multiple only" company-pseudo-tooltip-unless-just-one-frontend) (const :tag "pseudo tooltip, multiple only, delayed" company-pseudo-tooltip-unless-just-one-frontend-with-delay) (const :tag "preview" company-preview-frontend) (const :tag "preview, unique only" company-preview-if-just-one-frontend) (const :tag "preview, common" company-preview-common-frontend) (function :tag "custom function" nil))) company-tooltip-limit #[0 "\300\207" [10] 1] "The maximum number of candidates in the tooltip." integer company-tooltip-minimum #[0 "\300\207" [6] 1] "The minimum height of the tooltip.\nIf this many lines are not available, prefer to display the tooltip above." company-tooltip-minimum-width #[0 "\300\207" [0] 1] "The minimum width of the tooltip's inner area.\nThis doesn't include the margins and the scroll bar." :package-version (company . "0.8.0") company-tooltip-maximum-width #[0 "\207" [most-positive-fixnum] 1] "The maximum width of the tooltip's inner area.\nThis doesn't include the margins and the scroll bar." (company . "0.9.5") company-tooltip-margin #[0 "\300\207" [1] 1] "Width of margin columns to show around the toolip." company-tooltip-offset-display #[0 "\300\207" [scrollbar] 1] "Method using which the tooltip displays scrolling position.\n`scrollbar' means draw a scrollbar to the right of the items.\n`lines' means wrap items in lines with \"before\" and \"after\" counters." (choice (const :tag "Scrollbar" scrollbar) (const :tag "Two lines" lines)) company-tooltip-align-annotations #[0 "\300\207" [nil] 1] "When non-nil, align annotations to the right tooltip border." boolean (company . "0.7.1") company-tooltip-flip-when-above #[0 "\300\207" [nil] 1] "Whether to flip the tooltip when it's above the current line." (company . "0.8.1")] 8) (defvar company-safe-backends '((company-abbrev . "Abbrev") (company-bbdb . "BBDB") (company-capf . "completion-at-point-functions") (company-clang . "Clang") (company-cmake . "CMake") (company-css . "CSS") (company-dabbrev . "dabbrev for plain text") (company-dabbrev-code . "dabbrev for code") (company-eclim . "Eclim (an Eclipse interface)") (company-elisp . "Emacs Lisp") (company-etags . "etags") (company-files . "Files") (company-gtags . "GNU Global") (company-ispell . "Ispell") (company-keywords . "Programming language keywords") (company-nxml . "nxml") (company-oddmuse . "Oddmuse") (company-semantic . "Semantic") (company-tempo . "Tempo templates") (company-xcode . "Xcode"))) (put 'company-safe-backends 'risky-local-variable t) (defalias 'company-safe-backends-p #[257 "\211:\2051\30120\211\211\205-\211@\211:\203\302!\202\211\236\204&\303\301\304\"\210A\266\202\202\n\2620?\207" [company-safe-backends --cl-block-nil-- company-safe-backends-p throw t] 6 "\n\n(fn BACKENDS)"]) (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\316\"\317\310\312\320\311\312\313\314\315\321\"\322\"BBBFD\"BBBD%\210\323\302\324\325#\210\301\326\303\304\327DD\330\307\331%\210\301\332\303\304\333DD\334\307\335%\210\301\336\303\304\337DD\340\307\335%\210\301\341\303\304\342DD\343\307\335%\210\301\344\303\304\345DD\346\307\347%\210\301\350\303\304\351DD\352\307\353\354\355&\210\301\356\303\304\357DD\360\307\361%\210\301\362\303\304\363DD\364\307\365%\210\301\366\303\304\367DD\370\307\371%\210\301\372\303\304\373DD\374\307\375%\210\301\376\303\304\377DD\201@\307\201A%\210\301\201B\303\304\201CDD\201D\307\201E\354\201F&\210\301\201G\303\304\201HDD\201I\307\201J%\210\301\201K\303\304\201LDD\201M\307\201N%\210\301\201O\303\304\201PDD\201Q\307\201R%\207" [company-safe-backends custom-declare-variable company-backends funcall function #[0 "\301\302\303\"?\205 \304C\305\"\207" [emacs-version append version< "24.3.51" company-elisp (company-bbdb company-nxml company-css company-eclim company-semantic company-clang company-xcode company-cmake company-capf company-files (company-dabbrev-code company-gtags company-etags company-keywords) company-oddmuse company-dabbrev)] 4] "The list of active backends (completion engines).\n\nOnly one backend is used at a time. The choice depends on the order of\nthe items in this list, and on the values they return in response to the\n`prefix' command (see below). But a backend can also be a \"grouped\"\none (see below).\n\n`company-begin-backend' can be used to start a specific backend,\n`company-other-backend' will skip to the next matching backend in the list.\n\nEach backend is a function that takes a variable number of arguments.\nThe first argument is the command requested from the backend. It is one\nof the following:\n\n`prefix': The backend should return the text to be completed. It must be\ntext immediately before point. Returning nil from this command passes\ncontrol to the next backend. The function should return `stop' if it\nshould complete but cannot (e.g. when in the middle of a symbol).\nInstead of a string, the backend may return a cons (PREFIX . LENGTH)\nwhere LENGTH is a number used in place of PREFIX's length when\ncomparing against `company-minimum-prefix-length'. LENGTH can also\nbe just t, and in the latter case the test automatically succeeds.\n\n`candidates': The second argument is the prefix to be completed. The\nreturn value should be a list of candidates that match the prefix.\n\nNon-prefix matches are also supported (candidates that don't start with the\nprefix, but match it in some backend-defined way). Backends that use this\nfeature must disable cache (return t to `no-cache') and might also want to\nrespond to `match'.\n\nOptional commands\n=================\n\n`sorted': Return t here to indicate that the candidates are sorted and will\nnot need to be sorted again.\n\n`duplicates': If non-nil, company will take care of removing duplicates\nfrom the list.\n\n`no-cache': Usually company doesn't ask for candidates again as completion\nprogresses, unless the backend returns t for this command. The second\nargument is the latest prefix.\n\n`ignore-case': Return t here if the backend returns case-insensitive\nmatches. This value is used to determine the longest common prefix (as\nused in `company-complete-common'), and to filter completions when fetching\nthem from cache.\n\n`meta': The second argument is a completion candidate. Return a (short)\ndocumentation string for it.\n\n`doc-buffer': The second argument is a completion candidate. Return a\nbuffer with documentation for it. Preferably use `company-doc-buffer'. If\nnot all buffer contents pertain to this candidate, return a cons of buffer\nand window start position.\n\n`location': The second argument is a completion candidate. Return a cons\nof buffer and buffer location, or of file and line number where the\ncompletion candidate was defined.\n\n`annotation': The second argument is a completion candidate. Return a\nstring to be displayed inline with the candidate in the popup. If\nduplicates are removed by company, candidates with equal string values will\nbe kept if they have different annotations. For that to work properly,\nbackends should store the related information on candidates using text\nproperties.\n\n`match': The second argument is a completion candidate. Return the index\nafter the end of text matching `prefix' within the candidate string. It\nwill be used when rendering the popup. This command only makes sense for\nbackends that provide non-prefix completion.\n\n`require-match': If this returns t, the user is not allowed to enter\nanything not offered as a candidate. Please don't use that value in normal\nbackends. The default value nil gives the user that choice with\n`company-require-match'. Return value `never' overrides that option the\nother way around.\n\n`init': Called once for each buffer. The backend can check for external\nprograms and files and load any required libraries. Raising an error here\nwill show up in message log once, and the backend will not be used for\ncompletion.\n\n`post-completion': Called after a completion candidate has been inserted\ninto the buffer. The second argument is the candidate. Can be used to\nmodify it, e.g. to expand a snippet.\n\nThe backend should return nil for all commands it does not support or\ndoes not know about. It should also be callable interactively and use\n`company-begin-backend' to start itself in that case.\n\nGrouped backends\n================\n\nAn element of `company-backends' can also be a list of backends. The\ncompletions from backends in such groups are merged, but only from those\nbackends which return the same `prefix'.\n\nIf a backend command takes a candidate as an argument (e.g. `meta'), the\ncall is dispatched to the backend the candidate came from. In other\ncases (except for `duplicates' and `sorted'), the first non-nil value among\nall the backends is returned.\n\nThe group can also contain keywords. Currently, `:with' and `:separate'\nkeywords are defined. If the group contains keyword `:with', the backends\nlisted after this keyword are ignored for the purpose of the `prefix'\ncommand. If the group contains keyword `:separate', the candidates that\ncome from different backends are sorted separately in the combined list.\n\nAsynchronous backends\n=====================\n\nThe return value of each command can also be a cons (:async . FETCHER)\nwhere FETCHER is a function of one argument, CALLBACK. When the data\narrives, FETCHER must call CALLBACK and pass it the appropriate return\nvalue, as described above. That call must happen in the same buffer as\nwhere completion was initiated.\n\nTrue asynchronous operation is only supported for command `candidates', and\nonly during idle completion. Other commands will block the user interface,\neven if the backend uses the asynchronous calling convention." :type repeat choice :tag "backend" append mapcar #[257 "\300\301A@F\207" [const :tag] 5 "\n\n(fn B)"] (symbol :tag "User defined") "Merged backends" #[257 "\300\301A@F\207" [const :tag] 5 "\n\n(fn B)"] ((const :tag "With" :with) (symbol :tag "User defined")) put safe-local-variable company-safe-backends-p company-transformers #[0 "\300\207" [nil] 1] "Functions to change the list of candidates received from backends.\n\nEach function gets called with the return value of the previous one.\nThe first one gets passed the list of candidates, already sorted and\nwithout duplicates." (choice (const :tag "None" nil) (const :tag "Sort by occurrence" (company-sort-by-occurrence)) (const :tag "Sort by backend importance" (company-sort-by-backend-importance)) (const :tag "Prefer case sensitive prefix" (company-sort-prefer-same-case-prefix)) (repeat :tag "User defined" (function))) company-completion-started-hook #[0 "\300\207" [nil] 1] "Hook run when company starts completing.\nThe hook is called with one argument that is non-nil if the completion was\nstarted manually." hook company-completion-cancelled-hook #[0 "\300\207" [nil] 1] "Hook run when company cancels completing.\nThe hook is called with one argument that is non-nil if the completion was\naborted manually." company-completion-finished-hook #[0 "\300\207" [nil] 1] "Hook run when company successfully completes.\nThe hook is called with the selected candidate as an argument.\n\nIf you indend to use it to post-process candidates from a specific\nbackend, consider using the `post-completion' command instead." company-minimum-prefix-length #[0 "\300\207" [3] 1] "The minimum prefix length for idle completion." (integer :tag "prefix length") company-abort-manual-when-too-short #[0 "\300\207" [nil] 1] "If enabled, cancel a manually started completion when the prefix gets\nshorter than both `company-minimum-prefix-length' and the length of the\nprefix it was started from." boolean :package-version (company . "0.8.0") company-require-match #[0 "\300\207" [company-explicit-action-p] 1] "If enabled, disallow non-matching input.\nThis can be a function do determine if a match is required.\n\nThis can be overridden by the backend, if it returns t or `never' to\n`require-match'. `company-auto-complete' also takes precedence over this." (choice (const :tag "Off" nil) (function :tag "Predicate function") (const :tag "On, if user interaction took place" 'company-explicit-action-p) (const :tag "On" t)) company-auto-complete #[0 "\300\207" [nil] 1] "Determines when to auto-complete.\nIf this is enabled, all characters from `company-auto-complete-chars'\ntrigger insertion of the selected completion candidate.\nThis can also be a function." (choice (const :tag "Off" nil) (function :tag "Predicate function") (const :tag "On, if user interaction took place" 'company-explicit-action-p) (const :tag "On" t)) company-auto-complete-chars #[0 "\300\207" [(32 41 46)] 1] "Determines which characters trigger auto-completion.\nSee `company-auto-complete'. If this is a string, each string character\ntiggers auto-completion. If it is a list of syntax description characters (see\n`modify-syntax-entry'), all characters with that syntax auto-complete.\n\nThis can also be a function, which is called with the new input and should\nreturn non-nil if company should auto-complete.\n\nA character that is part of a valid candidate never triggers auto-completion." (choice (string :tag "Characters") (set :tag "Syntax" (const :tag "Whitespace" 32) (const :tag "Symbol" 95) (const :tag "Opening parentheses" 40) (const :tag "Closing parentheses" 41) (const :tag "Word constituent" 119) (const :tag "Punctuation." 46) (const :tag "String quote." 34) (const :tag "Paired delimiter." 36) (const :tag "Expression quote or prefix operator." 39) (const :tag "Comment starter." 60) (const :tag "Comment ender." 62) (const :tag "Character-quote." 47) (const :tag "Generic string fence." 124) (const :tag "Generic comment fence." 33)) (function :tag "Predicate function")) company-idle-delay #[0 "\300\207" [0.5] 1] "The idle delay in seconds until completion starts automatically.\nThe prefix still has to satisfy `company-minimum-prefix-length' before that\nhappens. The value of nil means no idle completion." (choice (const :tag "never (nil)" nil) (const :tag "immediate (0)" 0) (number :tag "seconds")) company-tooltip-idle-delay #[0 "\300\207" [0.5] 1] "The idle delay in seconds until tooltip is shown when using\n`company-pseudo-tooltip-unless-just-one-frontend-with-delay'." (choice (const :tag "never (nil)" nil) (const :tag "immediate (0)" 0) (number :tag "seconds")) company-begin-commands #[0 "\300\207" [(self-insert-command org-self-insert-command orgtbl-self-insert-command c-scope-operator c-electric-colon c-electric-lt-gt c-electric-slash)] 1] "A list of commands after which idle completion is allowed.\nIf this is t, it can show completions after any command except a few from a\npre-defined list. See `company-idle-delay'.\n\nAlternatively, any command with a non-nil `company-begin' property is\ntreated as if it was on this list." (choice (const :tag "Any command" t) (const :tag "Self insert command" '(self-insert-command)) (repeat :tag "Commands" function)) (company . "0.8.4") company-continue-commands #[0 "\300\207" [(not save-buffer save-some-buffers save-buffers-kill-terminal save-buffers-kill-emacs)] 1] "A list of commands that are allowed during completion.\nIf this is t, or if `company-begin-commands' is t, any command is allowed.\nOtherwise, the value must be a list of symbols. If it starts with `not',\nthe cdr is the list of commands that abort completion. Otherwise, all\ncommands except those in that list, or in `company-begin-commands', or\ncommands in the `company-' namespace, abort completion." (choice (const :tag "Any command" t) (cons :tag "Any except" (const not) (repeat :tag "Commands" function)) (repeat :tag "Commands" function)) company-show-numbers #[0 "\300\207" [nil] 1] "If enabled, show quick-access numbers for the first ten candidates." (choice (const :tag "off" nil) (const :tag "on" t)) company-selection-wrap-around #[0 "\300\207" [nil] 1] "If enabled, selecting item before first or after last wraps around." (choice (const :tag "off" nil) (const :tag "on" t))] 22) #@105 Pause between checks to see if the value's been set when turning an asynchronous call into synchronous. (defvar company-async-wait 0.03 (#$ . 22596)) #@67 Maximum wait time for a value to be set during asynchronous call. (defvar company-async-timeout 2 (#$ . 22752)) #@32 Keymap used by `company-mode'. (defvar company-mode-map (make-sparse-keymap) (#$ . 22870)) #@53 Keymap that is enabled during an active completion. (defvar company-active-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\322#\210\301\324\325#\210\301\326\327#\210\301\330\322#\210\301\331\322#\210\301\332\333#\210\301\334\333#\210\301\335\336#\210\301\337\336#\210\301\340\341#\210\301\342\341#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\351\352\211W\203\250\211\301\353\354\355\"!\356#\266\211T\262\202\216\266\211\207" [make-sparse-keymap define-key "" company-abort "" [134217838] company-select-next [134217840] company-select-previous [down] company-select-next-or-abort [up] company-select-previous-or-abort [remap scroll-up-command] company-next-page [remap scroll-down-command] company-previous-page [down-mouse-1] ignore [down-mouse-3] [mouse-1] company-complete-mouse [mouse-3] company-select-mouse [up-mouse-1] [up-mouse-3] [return] company-complete-selection " " [tab] company-complete-common " " [f1] company-show-doc-buffer "" "" company-show-location "" company-search-candidates "\223" company-filter-candidates 10 0 read-kbd-macro format "M-%d" company-complete-number] 10) (#$ . 22967)) (defvar company--disabled-backends nil) (defalias 'company-init-backend #[257 "\2119\203\301!\204\3021\303\304\305#0\202\210\202\210\2119\203T\30611\211\307!\210\310\311\305#0\207\310\311\312#\210>\204E\313\314\315!#\210\316\"\204Q\211B\210\304\207\317!\203\\\305\207\211\211\205t\211@\320!\204m\321!\210A\266\202\202]\207" [company--disabled-backends fboundp (error) require nil t (error) init put company-init failed message "Company backend '%s' could not be initialized:\n%s" error-message-string memql functionp keywordp company-init-backend] 7 "\n\n(fn BACKEND)"]) (defalias 'company--maybe-init-backend #[257 "\2119?\206\211\300N\301=\206\211\300N?\205\302!\207" [company-init t company-init-backend] 3 "\n\n(fn BACKEND)"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable company-lighter-base funcall function #[0 "\300\207" [#1="company"] 1 #1#] "Base string to use for the `company-mode' lighter." :type string :package-version (company . "0.8.10")] 8) #@110 Mode line lighter for Company. The value of this variable is a mode line template as in `mode-line-format'. (defvar company-lighter '(" " (company-candidates (:eval (if (consp company-backend) (company--group-lighter (nth company-selection company-candidates) company-lighter-base) (symbol-name company-backend))) company-lighter-base)) (#$ . 25310)) (put 'company-lighter 'risky-local-variable t) #@93 Non-nil if Company mode is enabled. Use the command `company-mode' to change this variable. (defvar company-mode nil (#$ . 25715)) (make-variable-buffer-local 'company-mode) #@1087 "complete anything"; is an in-buffer completion framework. Completion starts automatically, depending on the values `company-idle-delay' and `company-minimum-prefix-length'. Completion can be controlled with the commands: `company-complete-common', `company-complete-selection', `company-complete', `company-select-next', `company-select-previous'. If these commands are called before `company-idle-delay', completion will also start. Completions can be searched with `company-search-candidates' or `company-filter-candidates'. These can be used while completion is inactive, as well. The completion data is retrieved using `company-backends' and displayed using `company-frontends'. If you want to start a specific backend, call it interactively or use `company-begin-backend'. By default, the completions list is sorted alphabetically, unless the backend chooses otherwise, or `company-transformers' changes it later. regular keymap (`company-mode-map'): \{company-mode-map} keymap during active completions (`company-active-map'): \{company-active-map} (fn &optional ARG) (defalias 'company-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203-\306\307\310\311\312$\210\306\313\314\311\312$\210\315\316 \"\210\202@\317\307\310\312#\210\317\313\314\312#\210\320 \210\321\322!\210\323\324\203J\325\202K\326\"\210\327\330!\203o\302 \203_\211\302 \232\203o\331\332\333\203j\334\202k\335#\266\210\336 \210\207" [company-mode company-backends current-message toggle prefix-numeric-value 0 add-hook pre-command-hook company-pre-command nil t post-command-hook company-post-command mapc company-init-backend remove-hook company-cancel kill-local-variable company-point run-hooks company-mode-hook company-mode-on-hook company-mode-off-hook called-interactively-p any " in current buffer" message "Company mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 25897) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@177 Hook run after entering or leaving `company-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar company-mode-hook nil (#$ . 27863)) (byte-code "\301\302\303\304\211%\210\305\306\307\310\311DD\312\313\314%\207" [company-mode-map add-minor-mode company-mode company-lighter nil custom-declare-variable company-global-modes funcall function #[0 "\300\207" [t] 1] "Modes for which `company-mode' mode is turned on by `global-company-mode'.\nIf nil, means no modes. If t, then all major modes have it turned on.\nIf a list, it should be a list of `major-mode' symbol names for which\n`company-mode' should be automatically turned on. The sense of the list is\nnegated if it begins with `not'. For example:\n (c-mode c++-mode)\nmeans that `company-mode' is turned on for buffers in C and C++ modes only.\n (not message-mode)\nmeans that `company-mode' is always turned on except in `message-mode' buffers." :type (choice (const :tag "none" nil) (const :tag "all" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode"))))] 6) (defvar company-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local company-mode-major-mode custom-declare-variable global-company-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Company mode is enabled.\nSee the `global-company-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-company-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group company :type boolean] 12) #@342 Toggle Company mode in all buffers. With prefix ARG, enable Global Company mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Company mode is enabled in all buffers where `company-mode-on' would do it. See `company-mode' for more information on Company mode. (fn &optional ARG) (defalias 'global-company-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[ \203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-company-mode company-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-company-mode-enable-in-buffers find-file-hook global-company-mode-check-buffers change-major-mode-hook global-company-mode-cmhh remove-hook buffer-list company-mode-on -1 run-hooks global-company-mode-hook global-company-mode-on-hook global-company-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Company mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 29699) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@184 Hook run after entering or leaving `global-company-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar global-company-mode-hook nil (#$ . 31168)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [global-company-mode-map add-minor-mode global-company-mode nil boundp] 6) (defvar company-mode-set-explicitly nil nil) (make-variable-buffer-local 'company-mode-set-explicitly) (defalias 'company-mode-set-explicitly #[0 "\301\211\207" [company-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put company-mode-set-explicitly definition-name global-company-mode add-hook company-mode-hook] 4) (defvar global-company-mode-buffers nil) (defalias 'global-company-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210 \204,\n =\204,\f\203)\304\306!\210\307 \210\202,\307 \210 )A\266\202\202\207" [global-company-mode-buffers company-mode-set-explicitly company-mode-major-mode major-mode company-mode buffer-live-p -1 company-mode-on] 4]) (put 'global-company-mode-enable-in-buffers 'definition-name 'global-company-mode) (defalias 'global-company-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-company-mode-buffers global-company-mode-enable-in-buffers nil remove-hook post-command-hook global-company-mode-check-buffers] 3]) (put 'global-company-mode-check-buffers 'definition-name 'global-company-mode) (defalias 'global-company-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-company-mode-buffers add-hook post-command-hook global-company-mode-check-buffers] 3]) (put 'global-company-mode-cmhh 'definition-name 'global-company-mode) (defalias 'company-mode-on #[0 "\206\n\303 \304H\305=?\205, \306=\204) \242\307=\203#\n A>?\202&\n >\205,\310\311!\207" [noninteractive company-global-modes major-mode buffer-name 0 32 t not company-mode 1] 2]) (defalias 'company-assert-enabled #[0 "?\205 \301 \210\302\303!\207" [company-mode company-uninstall-map user-error "Company not enabled"] 2]) (put 'company-assert-enabled 'byte-optimizer 'byte-compile-inline-expand) (defvar company-my-keymap nil nil) (make-variable-buffer-local 'company-my-keymap) (defvar company-emulation-alist '((t))) (defalias 'company-enable-overriding-keymap #[257 "\301 \210\211\211\207" [company-my-keymap company-uninstall-map] 3 "\n\n(fn KEYMAP)"]) (put 'company-enable-overriding-keymap 'byte-optimizer 'byte-compile-inline-expand) (defalias 'company-ensure-emulation-alist #[0 "@\301=?\205\301\302\301\"B\211\207" [emulation-mode-map-alists company-emulation-alist delq] 4]) (defalias 'company-install-map #[0 "@A\206 ??\205\211@ \241\262\207" [company-emulation-alist company-my-keymap] 3]) (defalias 'company-uninstall-map #[0 "\211@\301\241\207" [company-emulation-alist nil] 3]) #@71 Checks if the keys are part of company's overriding keymap (fn KEYS) (defalias 'company--company-command-p #[257 "\211\301\232\206\n\302\"\207" [company-my-keymap [company-dummy-event] lookup-key] 4 (#$ . 34040)]) (defalias 'company-ignore #[0 "\211\207" [last-command this-command] 2 nil nil]) (global-set-key [company-dummy-event] 'company-ignore) (defalias 'company-input-noop #[0 "\301B\211\207" [unread-command-events company-dummy-event] 2]) (defalias 'company--posn-col-row #[257 "\303!@\304!\206 \303!A\203\305 \306\"\203\211S\262\307\302!\203/\n\203/\310\311 \\Z\262\312 \\B\207" [header-line-format emacs-version display-line-numbers posn-col-row posn-actual-col-row version< "24.3.93.3" boundp 2 line-number-display-width window-hscroll] 6 "\n\n(fn POSN)"]) (defalias 'company--col-row #[256 "\300\301!!\207" [company--posn-col-row posn-at-point] 4 "\n\n(fn &optional POS)"]) (defalias 'company--row #[256 "\300!A\207" [company--col-row] 3 "\n\n(fn &optional POS)"]) (defvar company-backend nil nil) (make-variable-buffer-local 'company-backend) (defalias 'company-grab #[769 "\300\"\205\301\206 \302!\206\303\207" [looking-back match-string-no-properties 0 ""] 6 "\n\n(fn REGEXP &optional EXPRESSION LIMIT)"]) #@247 Return a match string for REGEXP if it matches text before point. If EXPRESSION is non-nil, return the match string for the respective parenthesized expression in REGEXP. Matching is limited to the current line. (fn REGEXP &optional EXPRESSION) (defalias 'company-grab-line #[513 "\301\302\303 #)\207" [inhibit-field-text-motion t company-grab point-at-bol] 6 (#$ . 35303)]) #@116 If point is at the end of a symbol, return it. Otherwise, if point is not inside a symbol, return an empty string. (defalias 'company-grab-symbol #[0 "\300\301!\203`\212\302\303!\210`){\207\304f\205\304fz\305>?\205\306\207" [looking-at "\\_>" skip-syntax-backward "w_" nil (119 95) ""] 3 (#$ . 35689)]) #@114 If point is at the end of a word, return it. Otherwise, if point is not inside a symbol, return an empty string. (defalias 'company-grab-word #[0 "\300\301!\203`\212\302\303!\210`){\207\304f\205\304fz\305=?\205\306\207" [looking-at "\\>" skip-syntax-backward "w" nil 119 ""] 3 (#$ . 36005)]) #@224 Return a string SYMBOL or a cons (SYMBOL . t). SYMBOL is as returned by `company-grab-symbol'. If the text before point matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons. (fn IDLE-BEGIN-AFTER-RE &optional MAX-LEN) (defalias 'company-grab-symbol-cons #[513 "\300 \211\205&\212\211G[u\210\301\203`Z\202\302 \"\203$\211\303B\202%\211)\207" [company-grab-symbol looking-back line-beginning-position t] 7 (#$ . 36310)]) #@56 Return non-nil if point is within a string or comment. (defalias 'company-in-string-or-comment #[0 "\300 \301\233\211\262@\206\211A\211\262@\206\3018\207" [syntax-ppss 3] 3 (#$ . 36750)]) (defalias 'company-call-backend #[128 "\301\302#\207" [company-backend company--force-sync company-call-backend-raw] 5 "\n\n(fn &rest ARGS)"]) (defalias 'company--force-sync #[771 "\302\"\211\242\303=\204\211\202I\304C\305 A\306\307\310\311\312!\313\"\314\315%!\210\242\304=\203E\305 ZV\203>\316\317#\210\202$\320 !\210\202$\242\266\202\207" [company-async-timeout company-async-wait apply :async trash time-to-seconds make-byte-code 257 "\300\240\207" vconcat vector [] 3 "\n\n(fn RESULT)" error "Company: backend %s async timeout with args %s" sleep-for] 13 "\n\n(fn FUN ARGS BACKEND)"]) (defalias 'company-call-backend-raw #[128 "\3011&\3021\303!\203\304\"\202\304\305#00\2070\306\307\310!#\207\311\312\310!$\207" [company-backend (debug error) (debug user-error) functionp apply company--multi-backend-adapter user-error "Company: backend %s user-error: %s" error-message-string error "Company: backend %s error \"%s\" with args %s"] 7 "\n\n(fn &rest ARGS)"]) (defalias 'company--multi-backend-adapter #[642 "\300\211:\203$@\262\301!\204\302!\203B\262A\262\202\211\237\266\203\303>\304=\203:\305\306\235G\"\262\307\301\"\262\310=\203O\311@#\202\267\312=\203Y\211\202\267\313=\203d\211?\202\267\314>\203\231\300\3152\224\211\205\221\211@\316B#\211\262\203\212\317\315\"\210A\266\202\202p\2620\262\202\267@\211G\320V\205\265\321\320\322#\206\254@\323#\262\262\207" [nil keywordp company--maybe-init-backend :separate prefix butlast :with cl-delete-if candidates company--multi-backend-adapter-candidates sorted duplicates (require-match no-cache ignore-case prefix) --cl-block-nil-- company--force-sync throw 0 get-text-property company-backend apply] 12 "\n\n(fn BACKENDS COMMAND &rest ARGS)"]) (defalias 'company--multi-backend-adapter-candidates #[771 "\301\211:\2035@\262\302\303\304!)!\232\203.\305\"\306\n@=?#BB\262A\262\202\211\237\266\203\307\310\"\207" [company-backend nil company--prefix-str company-call-backend prefix candidates company--multi-candidates-mapper company--merge-async #[257 "\300\301\"\207" [apply append] 4 "\n\n(fn VALUES)"]] 12 "\n\n(fn BACKENDS PREFIX SEPARATE)"]) (defalias 'company--multi-candidates-mapper #[771 "\300\301\302\303\304#\305\"\306\307%\207" [make-byte-code 257 "\301\203\f\300\304!\262)\302\203!\305\306\307\310\311\312\300!\313\"\314\315%\"\262\207" vconcat vector [company-backend company--preprocess-candidates mapcar make-byte-code 257 "\301\302\300#\207" vconcat vector [propertize company-backend] 5 "\n\n(fn STR)"] 8 "\n\n(fn CANDIDATES)"] 11 "\n\n(fn BACKEND SEPARATE TAG)"]) (defalias 'company--merge-async #[514 "\300\301\300:\203#@\262@\242\302=\211\262?\211\262\203#A\262\202\266\203\211\204U\300\211\211:\203M@\262\211A\262\242\262!B\262A\262\202.\211\237\266\204!\202f\302\303\304\305\306\307\"\310\"\311\312%B\207" [nil t :async make-byte-code 257 "\302C\303\304\300\"C\305\306\307\310\311\301$\312\"\313$\300\211\205`\211@\302\242B\240\210\242@A\305\314\315\310\311     %\316\"\317\320%\242\321=\204P\211!\210\202WA\211!\266\266A\266\202\202\262\207" vconcat vector [nil mapcar car make-byte-code 0 "\303\242?\205 \301\300\302\242\237!!\207" vconcat vector [] 3 257 "\300\305\303\300\242\"\240\210\302\304!\240\210\301 \207" [delq] 5 "\n\n(fn RES)" :async] 19 "\n\n(fn CALLBACK)"] 11 "\n\n(fn PAIRS MERGER)"]) (defalias 'company--prefix-str #[257 "\211\242\206\211\207" [] 2 "\n\n(fn PREFIX)"]) (defvar company-prefix nil nil) (make-variable-buffer-local 'company-prefix) (defvar company-candidates nil nil) (make-variable-buffer-local 'company-candidates) (defvar company-candidates-length nil nil) (make-variable-buffer-local 'company-candidates-length) (defvar company-candidates-cache nil nil) (make-variable-buffer-local 'company-candidates-cache) (defvar company-candidates-predicate nil nil) (make-variable-buffer-local 'company-candidates-predicate) (defvar company-common nil nil) (make-variable-buffer-local 'company-common) (defvar company-selection 0 nil) (make-variable-buffer-local 'company-selection) (defvar company-selection-changed nil nil) (make-variable-buffer-local 'company-selection-changed) #@43 Non-nil, if manual completion took place. (defvar company--manual-action nil (#$ . 41250)) (make-variable-buffer-local 'company--manual-action) (defvar company--manual-prefix nil nil) (make-variable-buffer-local 'company--manual-prefix) #@104 Non-nil when current candidate is being inserted automatically. Controlled by `company-auto-complete'. (defvar company--auto-completion nil (#$ . 41494)) (defvar company--point-max nil nil) (make-variable-buffer-local 'company--point-max) (defvar company-point nil nil) (make-variable-buffer-local 'company-point) (defvar company-timer nil) (defvar company-tooltip-timer nil) (defalias 'company-strip-prefix #[257 "\211G\301O\207" [company-prefix nil] 4 "\n\n(fn STR)"]) (put 'company-strip-prefix 'byte-optimizer 'byte-compile-inline-expand) (defalias 'company--insert-candidate #[257 "\211G\301V\205.\302!\262\303\304!\305=\203\211\211G\306O\262c\207\232?\205.`GZ`|\210\211c\207" [company-prefix 0 substring-no-properties company-call-backend ignore-case keep-prefix nil] 5 "\n\n(fn CANDIDATE)"]) #@182 Evaluate BODY with CANDIDATE temporarily inserted. This is a tool for backends that need candidates inserted before they can retrieve meta-data for them. (fn CANDIDATE &rest BODY) (defalias 'company-with-candidate-inserted '(macro . #[385 "\300\301\302D\303\304B\305BBF\207" [let ((inhibit-modification-hooks t) (inhibit-point-motion-hooks t) (modified-p (buffer-modified-p))) company--insert-candidate unwind-protect progn ((delete-region company-point (point)) (set-buffer-modified-p modified-p))] 8 (#$ . 42312)])) (function-put 'company-with-candidate-inserted 'lisp-indent-function 1) #@66 Return whether explicit completion action was taken by the user. (defalias 'company-explicit-action-p #[0 "\206 \207" [company--manual-action company-selection-changed] 1 (#$ . 42911)]) (defalias 'company-reformat #[257 "\301\302!\303=\203G\304OP\207\207" [company-prefix company-call-backend ignore-case keep-prefix nil] 5 "\n\n(fn CANDIDATE)"]) (defalias 'company--should-complete #[0 "\305=\205& \206 \n?\205&\306 \307\232\204 \310\311\306 !!?\205& \205%\f?\207" [company-idle-delay buffer-read-only overriding-local-map transient-mark-mode mark-active now this-command-keys-vector [] keymapp key-binding] 3]) (defalias 'company--should-continue #[0 "\304=\2069 \304=\2069 @\305=\203\n A>?\207\n>\2069\n >\2069\n9\2059\306\307\n!\310\304\311#)\266\203\207" [company-begin-commands company-continue-commands this-command inhibit-changing-match-data t not "\\`company-" symbol-name nil string-match] 7]) (defalias 'company-call-frontends #[257 "\211\205%\211@\3011\211!0\202\302\303\304!$\262\210A\266\202\202\207" [company-frontends (debug error) error "Company: frontend %s error \"%s\" on command %s" error-message-string] 9 "\n\n(fn COMMAND)"]) (defalias 'company-set-selection #[513 "\203 \304 \"\202\305 S^]\262\211\204\n\232?\205%\306\307\310!\207" [company-selection-wrap-around company-candidates-length company-selection company-selection-changed mod 0 t company-call-frontends update] 5 "\n\n(fn SELECTION &optional FORCE-UPDATE)"]) (defalias 'company--group-lighter #[514 "\301\302\300#\206\f\303\304\"\211\205#\2119\205#\305\306\307\310!#\311\312#\262\207" [company-backend get-text-property 0 cl-some #[257 "\300!?\205\211\207" [keywordp] 3 "\n\n(fn X)"] replace-regexp-in-string "company-\\|-company" "" symbol-name format "%s-<%s>"] 8 "\n\n(fn CANDIDATE BASE)"]) (defalias 'company-update-candidates #[257 "\211G \203I\n 8\306\211\203E\3072D\203>\211A\262\242\211\230\2037\310\311\"\310\311\"\232\2037\312\307\313\"\210\210\nT\202\306\314\2110\210\210\202M\306\211\310\315! A\203h\316\317 \"\320 \f#\205c\211\262\202j @\211)\207" [company-candidates-length company-selection-changed company-selection company-candidates completion-ignore-case company-prefix 0 found company-call-backend annotation throw t nil ignore-case try-completion "" string-prefix-p company-common] 7 "\n\n(fn CANDIDATES)"]) (defalias 'company-calculate-candidates #[257 "\302\"A\303\304!\204`\203SG\305\3062MT\307\211W\205J\211\302 \307ZO\"A\211\262\203B\310 \"\262\311\306\312\"\210\210\211T\262\202\266\2020)\266\203\204`\313\314!!\262BB\315!\262\205\205A\204\200\316@\305\211\305\211&\312=\204\204\202\205\312\207" [company-candidates-cache completion-ignore-case assoc company-call-backend ignore-case nil --cl-block-nil-- 0 all-completions throw t company--preprocess-candidates company--fetch-candidates company--postprocess-candidates compare-strings] 14 "\n\n(fn PREFIX)"]) (defalias 'company--fetch-candidates #[257 "\303 ? \203\304\305\"\202\306\305\"\307C@\310=\204 \202Qp\311 \312 `\nA\313\314\315\316\317 \f\f\f\f\f\f&\320\"\321\322%!\266\211\242\206Q\211\323\240\210\307)\207" [non-essential company--manual-action company-backend company-explicit-action-p company-call-backend candidates company-call-backend-raw nil :async selected-window buffer-chars-modified-tick make-byte-code 257 "\211\203 \301\242\307=\204\301\240\207\306 \300\310!BC\f\311\216\312\302\303\304\305$)\207" vconcat vector [done company--preprocess-candidates #[0 "?\205\n\303\211\211\207" [company-candidates company-backend company-candidates-cache nil] 3] company-idle-begin company-backend company-candidates-cache] 6 "\n\n(fn CANDIDATES)" done] 21 "\n\n(fn PREFIX)"]) (defalias 'company--preprocess-candidates #[257 "\300\301\"\204 \302\303!\210\304\305!\204\306\307\"\262\304\310!\203!\311!\210\207" [cl-every stringp cl--assertion-failed (cl-every #'stringp candidates) company-call-backend sorted sort string< duplicates company--strip-duplicates] 4 "\n\n(fn CANDIDATES)"]) (defalias 'company--postprocess-candidates #[257 "\204 \203 \302!\262\203\303\"\262\304!\207" [company-candidates-predicate company-transformers copy-sequence cl-delete-if-not company--transform-candidates] 4 "\n\n(fn CANDIDATES)"]) (defalias 'company--strip-duplicates #[257 "\211\300\205U\211\211A\262\242@\232\204\300\262\301\202?\300=\203)\302\303\"C\262\302\303\"\211\235\2037\304\202=\211B\262\301\262\262\203M\211A\262\210\202 \262\241\210\202\207" [unk nil company-call-backend annotation t] 9 "\n\n(fn CANDIDATES)"]) (defalias 'company--transform-candidates #[257 "\211\211\203\211@\211!\262A\266\202\202\210\211\207" [company-transformers] 6 "\n\n(fn CANDIDATES)"]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable company-occurrence-weight-function funcall function #[0 "\300\207" [company-occurrence-prefer-closest-above] 1] "Function to weigh matches in `company-sort-by-occurrence'.\nIt's called with three arguments: cursor position, the beginning and the\nend of the match." :type (choice (const :tag "First above point, then below point" company-occurrence-prefer-closest-above) (const :tag "Prefer closest in any direction" company-occurrence-prefer-any-closest))] 6) #@97 Give priority to the matches above point, then those below point. (fn POS MATCH-BEG MATCH-END) (defalias 'company-occurrence-prefer-closest-above #[771 "W\203\nZ\207\300 Z\207" [window-start] 5 (#$ . 48335)]) #@82 Give priority to the matches closest to the point. (fn POS MATCH-BEG MATCH-END) (defalias 'company-occurrence-prefer-any-closest #[771 "\300Z!\207" [abs] 6 (#$ . 48557)]) #@311 Sort CANDIDATES according to their occurrences. Searches for each in the currently visible part of the current buffer and prioritizes the matches according to `company-occurrence-weight-function'. The rest of the list is appended unchanged. Keywords and function definition names are ignored. (fn CANDIDATES) (defalias 'company-sort-by-occurrence #[257 "\300 \301 `\302C\212\303\304\305\306\307\310    $\311\"\312\313%\")\314\315\316\242\317\"\"\244\207" [window-start window-end nil cl-delete-if make-byte-code 257 "\30524\300b\210\306\301\307#\2053`\302=\204\310 \311\312\313\314\315!\316\"\317$\216\320 )\262\203\321\305\307\"\210\2020\205G\303\f\302\312\224\312\225#B\303\242B\240\210\307\207" vconcat vector [company-occurrence-weight-function done search-forward t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 company--occurrence-predicate throw] 8 "\n\n(fn CANDIDATE)" mapcar car sort #[514 "AAX\207" [] 4 "\n\n(fn E1 E2)"]] 15 (#$ . 48738)]) (defalias 'company--occurrence-predicate #[0 "\300\224\300\225\212\211b\210\301`S\302\"\303>?\205%\304\305\306!!\211;\205#\211GZU\262)\207" [0 get-text-property face (font-lock-function-name-face font-lock-keyword-face) company--prefix-str company-call-backend prefix] 6]) #@279 Sort CANDIDATES as two priority groups. If `company-backend' is a function, do nothing. If it's a list, move candidates from backends before keyword `:with' to the front. Candidates from the rest of the backends in the group, if any, will be left at the end. (fn CANDIDATES) (defalias 'company-sort-by-backend-importance #[257 "\301!\203\207\302>A\211\204\202#\303\304\305\306\307\310!\311\"\312\313%\"\207" [company-backend functionp :with sort make-byte-code 514 "\301\302\303#\211\205\f\211\300>\262\205!\301\302\303#\211?\206\211\300>?\262\207" vconcat vector [get-text-property 0 company-backend] 6 "\n\n(fn C1 C2)"] 10 (#$ . 50045)]) #@186 Prefer CANDIDATES with the exact same prefix. If a backend returns case insensitive matches, candidates with the an exact prefix match (same case) will be prioritized. (fn CANDIDATES) (defalias 'company-sort-prefer-same-case-prefix #[257 "\211\301\211\211:\203*@\262\302\"\203C\244\262\202#\211C\244\262A\262\202\303\"\207" [company-prefix nil string-prefix-p append] 8 (#$ . 50714)]) (defalias 'company-idle-begin #[1028 "p=\205'\301 =\205'\302 =\205'\211`=\205'\303 \205'\304 \210\305\306 )\207" [this-command selected-window buffer-chars-modified-tick company-auto-begin company-input-noop company-idle-begin company-post-command] 6 "\n\n(fn BUF WIN TICK POS)"]) (defalias 'company-auto-begin #[0 "\2054 ?\2054\303\3041/\3051\306 \210 00\20230\307\310!\210\307\311\312!\"\210\313 \262\2023\313 \262)\207" [company-mode company-candidates company-idle-delay now (debug quit) (debug error) company--perform message "Company: An error occurred in auto-begin" "%s" error-message-string company-cancel] 5]) (defalias 'company-manual-begin #[0 "\204 \304 \210\305\306!\210\307\310\216\311 \206\312 *\207" [company-mode company--manual-action company-minimum-prefix-length company-candidates company-uninstall-map user-error "Company not enabled" t #[0 "?\205\302\211\207" [company-candidates company--manual-action nil] 2] 0 company-auto-begin] 2 nil nil]) (defalias 'company-other-backend #[256 "\204 \304 \210\305\306!\210 \203 \n\235A\202\n \307\n!\235A\203*\310\307!\"\2020\310\307!\"\311 \210\3122_\211\211\205\\\211@\3131I\314!0\202M\210\202U\203U\315\312\316\"\210A\266\202\2028\2620\266 ?\205i\305\317!\207" [company-mode company-backend company-backends company-candidates company-uninstall-map user-error "Company not enabled" reverse append company-cancel --cl-block-nil-- (error) company-begin-backend throw t "No other backend"] 9 "\n\n(fn &optional BACKWARD)" (list current-prefix-arg)]) (defalias 'company-require-match-p #[0 "\301\302!\211\303=\206\211\304=?\205\305!\203 \202\303=\207" [company-require-match company-call-backend require-match t never functionp] 3]) #@69 Return non-nil if INPUT should trigger auto-completion. (fn INPUT) (defalias 'company-auto-complete-p #[257 "\302!\203  \202\f\205.\302 !\203 !\207 :\203%\303!z >\207\304\305\306\307O! \"\207" [company-auto-complete company-auto-complete-chars functionp string-to-char string-match regexp-quote 0 1] 6 (#$ . 52889)]) (defalias 'company--incremental-p #[0 "`V\205d V\205\n\304=?\205 GZ{ \232\207" [company-point company--point-max this-command company-prefix backward-delete-char-untabify] 2]) (defalias 'company--continue-failed #[257 "\303 \203\211;\203\211GGX\203 \235\203\304\305!\207\303 \2030\306\n`Z!\210\307 \210\310\311!\210 \207\304 \207" [company-prefix company-candidates company-point company-require-match-p company-cancel non-unique delete-char ding message "Matching input is required"] 4 "\n\n(fn NEW-PREFIX)"]) (defalias 'company--good-prefix-p #[257 "\303!;\205,\211\243\304=\206,\211\243\206\211G\203' ?\206*\211\nG^Y\202*\211\nY\262\207" [company--manual-prefix company-abort-manual-when-too-short company-minimum-prefix-length company--prefix-str t] 5 "\n\n(fn PREFIX)"]) (defalias 'company--continue #[0 "\304\305\"\203 \306\304\307!\310!\205*\311!\211\262\205*`GZ\nGZU\205*\312!\211\313=\2036\314\315!\202o\211:\203E\316!\210\211\202o`\nV\203b\317\320`\n\"!\203b\212\nb\210\313\321 \210*\306\202o\322 \204l\314 \202o\323!\207" [company-prefix company-candidates-cache company-point company--auto-completion company-call-backend no-cache nil prefix company--good-prefix-p company--prefix-str company-calculate-candidates t company-cancel unique company-update-candidates company-auto-complete-p buffer-substring-no-properties company-complete-selection company--incremental-p company--continue-failed] 6]) (defalias 'company--begin-new #[0 "\305\211\3062\210\203C\202 \211\205\205\211@\2119\204!\307!\2030\310!\2054\211\311\312!)\2024\313\312\"\262\203~\314!\203y\315!\211\316\n!\262:\204e \203X\317\320!\210\321=\203y\322\323!\210\202y \203k\324!\210\325\326\327 \"\210\330\331!\210\332\306\"\210A\266\202\202\2620\207" [company-backend company-backends company-prefix company--manual-action company--manual-prefix nil --cl-block-nil-- functionp company--maybe-init-backend company-call-backend prefix company--multi-backend-adapter company--good-prefix-p company--prefix-str company-calculate-candidates message "No completion found" t company-cancel unique company-update-candidates run-hook-with-args company-completion-started-hook company-explicit-action-p company-call-frontends show throw] 7]) (defalias 'company--perform #[0 "\203 \306 \204\307 \203\310 \210\204\311\211\207`d\312 \210\f\313 \210\211\211\266\314\315!\207" [company-candidates company-backend company-point company--point-max company-active-map company-my-keymap company--continue company--should-complete company--begin-new nil company-ensure-emulation-alist company-uninstall-map company-call-frontends update] 3]) (defalias 'company-cancel #[256 " \306\211\306\211\306\211\306\307\306\211\306\211\306\203-\310!\210\311\312!\210\313\307!\210\314\315!\210\306\316 \210\211\211\266\203f;\203a\211\317\320\"\210\321\322\"\210\317\323\"\210)\202f\321\324\"\210\266\306\207" [company-prefix company-backend company-candidates company-candidates-length company-candidates-cache company-candidates-predicate nil 0 cancel-timer company-echo-cancel t company-search-mode company-call-frontends hide company-uninstall-map company-call-backend pre-completion run-hook-with-args company-completion-finished-hook post-completion company-completion-cancelled-hook company-common company-selection company-selection-changed company--manual-action company--manual-prefix company--point-max company-point company-timer company-my-keymap] 7 "\n\n(fn &optional RESULT)"]) (defalias 'company-abort #[0 "\300\301!\207" [company-cancel abort] 2 nil nil]) (defalias 'company-finish #[257 "\300!\210\301!\207" [company--insert-candidate company-cancel] 3 "\n\n(fn RESULT)"]) (defalias 'company-keep #[257 "\2119\205\211\300N\207" [company-keep] 3 "\n\n(fn COMMAND)"]) (put 'company-keep 'byte-optimizer 'byte-compile-inline-expand) (defalias 'company-pre-command #[0 "\303 \210\2119\205\f\211\304N\262\2049\3051) \205%\306\307!\210\310 ?\205%\311 0\2028\312\313!\210\312\314\315!\"\210\316 \262\210\n\203C\317\n!\210\320\321\322!\210\323 \207" [this-command company-candidates company-timer company--electric-restore-window-configuration company-keep (debug error) company-call-frontends pre-command company--should-continue company-abort message "Company: An error occurred in pre-command" "%s" error-message-string company-cancel cancel-timer nil company-echo-cancel t company-uninstall-map] 5]) (defalias 'company-post-command #[0 "\203 \204 \306 \210\306 \2119\205\211\307N\262\204m\3101]`\n\232\204+\311\312 \210)\2035\313\314!\202Y \247\204@ \315=\205Y\f?\205Y\316 \205Y\317\320 \311\321p\322 \323 `&\2110\202l\324\325!\210\324\326\327!\"\210\330 \262\210\331 \207" [company-candidates this-command company-point company-idle-delay defining-kbd-macro company-timer company-abort company-keep (debug error) nil company--perform company-call-frontends post-command t company--should-begin run-with-timer company--idle-delay company-idle-begin selected-window buffer-chars-modified-tick message "Company: An error occurred in post-command" "%s" error-message-string company-cancel company-install-map] 8]) (defalias 'company--idle-delay #[0 "\301\302\"\203 \303\207\207" [company-idle-delay memql (t 0 0.0) 0.01] 3]) #@102 List of commands after which idle completion is (still) disabled when `company-begin-commands' is t. (defvar company--begin-inhibit-commands '(company-abort company-complete-mouse company-complete company-complete-common company-complete-selection company-complete-number) (#$ . 58598)) (defalias 'company--should-begin #[0 "\303=\203 \n>?\207 >\206 9\205 \304N\207" [company-begin-commands this-command company--begin-inhibit-commands t company-begin] 2]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable company-search-regexp-function funcall function #[0 "\300\207" [regexp-quote] 1] "Function to construct the search regexp from input.\nIt's called with one argument, the current search input. It must return\neither a regexp without groups, or one where groups don't intersect and\neach one wraps a part of the input string." :type (choice (const :tag "Exact match" regexp-quote) (const :tag "Words separated with spaces" company-search-words-regexp) (const :tag "Words separated with spaces, in any order" company-search-words-in-any-order-regexp) (const :tag "All characters in given order, with anything in between" company-search-flex-regexp))] 6) (defvar company-search-string "" nil) (make-variable-buffer-local 'company-search-string) (defvar company-search-lighter '(" " (company-search-filtering "Filter" "Search") ": \"" company-search-string "\"")) #@66 Non-nil to filter the completion candidates by the search string (defvar company-search-filtering nil (#$ . 60007)) (make-variable-buffer-local 'company-search-filtering) (defvar company--search-old-selection 0 nil) (make-variable-buffer-local 'company--search-old-selection) (defvar company--search-old-changed nil nil) (make-variable-buffer-local 'company--search-old-changed) (defalias 'company-search-words-regexp #[257 "\300\301\302\303\304#\305#\207" [mapconcat #[257 "\300\301\302!\"\207" [format "\\(%s\\)" regexp-quote] 5 "\n\n(fn WORD)"] split-string " +" t ".*"] 7 "\n\n(fn INPUT)"]) (defalias 'company-search-words-in-any-order-regexp #[257 "\300\301\302\303\304#\"\305!\306\307\310#\207" [mapcar #[257 "\300\301\302!\"\207" [format "\\(%s\\)" regexp-quote] 5 "\n\n(fn WORD)"] split-string " +" t company--permutations mapconcat #[257 "\300\301\302#\207" [mapconcat identity ".*"] 5 "\n\n(fn WORDS)"] "\\|"] 7 "\n\n(fn INPUT)"]) (defalias 'company-search-flex-regexp #[257 "\211G\300U\203 \301\207\302\303\300H!!\304\305\306\307O\301#P\207" [0 "" regexp-quote string mapconcat #[257 "\300\301!\302\303\301!!R\207" ["[^" string "]*" regexp-quote] 7 "\n\n(fn C)"] 1 nil] 7 "\n\n(fn INPUT)"]) (defalias 'company--permutations #[257 "\211\204\300\207\301\302\303\304\305\306!\307\"\310\311%\"\207" [(nil) cl-mapcan make-byte-code 257 "\301\302\303\304\305\306!\307\"\310\311%\312\313\300\314\315$!\"\207" vconcat vector [mapcar make-byte-code 257 "\300B\207" vconcat vector [] 3 "\n\n(fn PERM)" company--permutations cl-remove :count 1] 9 "\n\n(fn E)"] 8 "\n\n(fn LST)"]) (defalias 'company--search #[514 "!\303\30423\211\2050\211@ G\305\306#)\266\203\203%\307\304\"\210T\262A\266\202\202 \2620\207" [company-search-regexp-function company-prefix inhibit-changing-match-data 0 --cl-block-nil-- t string-match throw] 13 "\n\n(fn TEXT LINES)"]) (defalias 'company-search-keypad #[0 "\301!\211GSH\302 )\207" [last-command-event symbol-name company-search-printing-char] 3 nil nil]) (defalias 'company-search-printing-char #[0 "\303 \210\304 !P\n\203\305!\210\306!\207" [company-search-string last-command-event company-search-filtering company--search-assert-enabled string company--search-update-predicate company--search-update-string] 3 nil nil]) (defalias 'company--search-update-predicate #[257 "!\211\304\230?\205 \205\305\306\307\310\311!\312\"\313\314%\315 !\211\204&\316\317!\210\320!)\207" [company-search-regexp-function company-search-filtering company-candidates-predicate company-prefix "" make-byte-code 257 "\301\300\"\207" vconcat vector [string-match] 4 "\n\n(fn CANDIDATE)" company-calculate-candidates user-error "No match" company-update-candidates] 8 "\n\n(fn SS)"]) (defalias 'company--search-update-string #[257 "\303 \233\"\211\204\304 \202\305\\\306\"\207" [company-selection company-candidates company-search-string company--search ding company-set-selection t] 5 "\n\n(fn NEW)"]) (defalias 'company--search-assert-input #[0 "\301 \210\302\230\205\f\303\304!\207" [company-search-string company--search-assert-enabled "" user-error "Empty search string"] 2]) #@65 Repeat the incremental search in completion candidates forward. (defalias 'company-search-repeat-forward #[0 "\303 \210\304 \n\233A\"\211\204\305 \202\306\307 \310#\311\"\207" [company-search-string company-selection company-candidates company--search-assert-input company--search ding company-set-selection + 1 t] 6 (#$ . 63174) nil]) #@67 Repeat the incremental search in completion candidates backwards. (defalias 'company-search-repeat-backward #[0 "\304 \210\305 \nZ\306 !\233\"\211\204\307 \202\310\311\n\312#\313\"\207" [company-search-string company-candidates-length company-selection company-candidates company--search-assert-input company--search reverse ding company-set-selection - 1 t] 6 (#$ . 63522) nil]) #@36 Toggle `company-search-filtering'. (defalias 'company-search-toggle-filtering #[0 "\302 \210? \303!\210\304!\207" [company-search-filtering company-search-string company--search-assert-enabled company--search-update-predicate company--search-update-string] 3 (#$ . 63914) nil]) #@44 Abort searching the completion candidates. (defalias 'company-search-abort #[0 "\303 \210\304\305!\210\306\307\"\210 \211\207" [company--search-old-selection company--search-old-changed company-selection-changed company--search-assert-enabled company-search-mode 0 company-set-selection t] 3 (#$ . 64202) nil]) (defalias 'company-search-other-char #[0 "\300 \210\301\302!\210\303 \207" [company--search-assert-enabled company-search-mode 0 company--unread-this-command-keys] 2 nil nil]) (defalias 'company-search-delete-char #[0 "\302 \210\303\230\203\f\304 \207\305\306O \203\307!\210\310!\207" [company-search-string company-search-filtering company--search-assert-enabled "" ding 0 -1 company--search-update-predicate company--search-update-string] 3 nil nil]) #@68 Keymap used for incrementally searching the completion candidates. (defvar company-search-map (byte-code "\301\302 \303\304!\203\305A@\306\304 B\307#\210\2020\310 A@\205.\311@\307#\210A\262\202\266\312\313\314#\210\315W\203L\312\316\317\"\314#\210T\262\2026\306W\203a\312\320!\307#\210T\262\202L\321\301\211W\203}\211\312\322\323\324\"!\325#\266\211T\262\202c\266\326 \312\327!#\210\312\330#\266\312\320\331\"\314#\210\312\332\333#\210\312\334\335#\210\312\336\337#\210\312\340\341#\210\312\342\314#\210\312\343\314#\210\312\344\345#\210\312\346\345#\210\312\347\350#\210\312\351\352#\210\312\353\354#\210\312\355\356#\210\321\301\211W\203\375\211\312\357\323\360\"!\361#\266\211T\262\202\343\266\207" [meta-prefix-char 0 make-keymap fboundp max-char set-char-table-range 256 company-search-printing-char generic-character-list set-char-table-default define-key [t] company-search-other-char 32 make-string 1 vector 10 read format "[kp-%s]" company-search-keypad make-sparse-keymap char-to-string [escape] t [134217838] company-select-next [134217840] company-select-previous [down] company-select-next-or-abort [up] company-select-previous-or-abort "" [escape escape escape] "" company-search-delete-char [backspace] "" company-search-abort "" company-search-repeat-forward "" company-search-repeat-backward "" company-search-toggle-filtering read-kbd-macro "M-%d" company-complete-number] 11) (#$ . 64981)) #@107 Non-nil if Company-Search mode is enabled. Use the command `company-search-mode' to change this variable. (defvar company-search-mode nil (#$ . 66470)) (make-variable-buffer-local 'company-search-mode) #@151 Search mode for completion candidates. Don't start this directly, use `company-search-candidates' or `company-filter-candidates'. (fn &optional ARG) (defalias 'company-search-mode #[256 "\306 \307=\203 ?\202\310!\311V\211\2036\312 \2031  \313\314!\210 \315 \210\211\211 \266\202^\316\202^\317\320!\210\317\321!\210\317\302!\210\317\304!\210!\203S\322\323!\210\313\314!\210\"\315 \210\211\211 \266\324\325\203h\326\202i\327\"\210\330\331!\203\215\306 \203}\211\306 \232\203\215\332\333\334\203\210\335\202\211\336#\266\210\337 \210\207" [company-search-mode company-selection company--search-old-selection company-selection-changed company--search-old-changed company-search-map current-message toggle prefix-numeric-value 0 company-manual-begin company-call-frontends update company-uninstall-map nil kill-local-variable company-search-string company-search-filtering company--search-update-predicate "" run-hooks company-search-mode-hook company-search-mode-on-hook company-search-mode-off-hook called-interactively-p any " in current buffer" message "Company-Search mode %sabled%s" "en" "dis" force-mode-line-update company-my-keymap company-backend company-active-map] 8 (#$ . 66679) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@184 Hook run after entering or leaving `company-search-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar company-search-mode-hook nil (#$ . 67970)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [company-search-mode-map add-minor-mode company-search-mode company-search-lighter boundp nil] 6) (defalias 'company--search-assert-enabled #[0 "\204 \302 \210\303\304!\210 ?\205\302 \210\303\305!\207" [company-mode company-search-mode company-uninstall-map user-error "Company not enabled" "Company not in search mode"] 2]) #@676 Start searching the completion candidates incrementally. \Search can be controlled with the commands: - `company-search-repeat-forward' (\[company-search-repeat-forward]) - `company-search-repeat-backward' (\[company-search-repeat-backward]) - `company-search-abort' (\[company-search-abort]) - `company-search-delete-char' (\[company-search-delete-char]) Regular characters are appended to the search string. Customize `company-search-regexp-function' to change how the input is interpreted when searching. The command `company-search-toggle-filtering' (\[company-search-toggle-filtering]) uses the search string to filter the completion candidates. (defalias 'company-search-candidates #[0 "\300\301!\207" [company-search-mode 1] 2 (#$ . 68596) nil]) #@68 Keymap used for incrementally searching the completion candidates. (defvar company-filter-map (byte-code "\301 \302\303\304#\210\305\"\210\211\207" [company-search-map make-keymap define-key [remap company-search-printing-char] company-filter-printing-char set-keymap-parent] 5) (#$ . 69379)) #@172 Start filtering the completion candidates incrementally. This works the same way as `company-search-candidates' immediately followed by `company-search-toggle-filtering'. (defalias 'company-filter-candidates #[0 "\301\302!\210\303\211\207" [company-search-filtering company-search-mode 1 t] 2 (#$ . 69682) nil]) #@99 Select the next candidate in the list. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-next #[256 "\301 \205\302\206 \303\\!\207" [company-selection company-manual-begin company-set-selection 1] 4 (#$ . 70001) "p"]) #@103 Select the previous candidate in the list. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-previous #[256 "\300\203\n[\202 \301!\207" [company-select-next -1] 3 (#$ . 70266) "p"]) #@146 Select the next candidate if more than one, else abort and invoke the normal binding. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-next-or-abort #[256 "\301V\203\n\302!\207\303 \210\304 \207" [company-candidates-length 1 company-select-next company-abort company--unread-this-command-keys] 3 (#$ . 70494) "p"]) #@150 Select the previous candidate if more than one, else abort and invoke the normal binding. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-previous-or-abort #[256 "\301V\203\n\302!\207\303 \210\304 \207" [company-candidates-length 1 company-select-previous company-abort company--unread-this-command-keys] 3 (#$ . 70855) "p"]) #@40 Select the candidate one page further. (defalias 'company-next-page #[0 "\304 \205\203 \nSU\203\305\306!\207\307\305 \\!)\207" [company-selection-wrap-around company-selection company-candidates-length company-tooltip-limit company-manual-begin company-set-selection 0 nil] 3 (#$ . 71227) nil]) #@40 Select the candidate one page earlier. (defalias 'company-previous-page #[0 "\304 \205\203 \305U\203\306\nS!\207\307\306 Z!)\207" [company-selection-wrap-around company-selection company-candidates-length company-tooltip-limit company-manual-begin 0 company-set-selection nil] 3 (#$ . 71537) nil]) (defalias 'company--inside-tooltip-p #[771 "\301\302\"\301\303\"@AY\205A\\W\205A\304V\2033\211V\205A\211\\X\202A\211W\205A\211\\Y\207" [company-pseudo-tooltip-overlay overlay-get company-column company-width 0] 11 "\n\n(fn EVENT-COL-ROW ROW HEIGHT)"]) (defalias 'company--event-col-row #[257 "\300\301!!\207" [company--posn-col-row event-start] 4 "\n\n(fn EVENT)"]) #@55 Select the candidate picked by the mouse. (fn EVENT) (defalias 'company-select-mouse #[257 "\304!\305 \205\306\307\" ^\211\203K\310#\203K\311\312A\nS \313=\2031\n\314U\2041\315\2022\314[\314W\203C\316Z\202D\314%!\210\317\202R\320 \210\321 \210\322\207" [company-pseudo-tooltip-overlay company-candidates-length company-tooltip-offset company-tooltip-offset-display company--event-col-row company--row overlay-get company-height company--inside-tooltip-p company-set-selection + lines 0 -1 1 t company-abort company--unread-this-command-keys nil] 12 (#$ . 72247) "e"]) #@55 Insert the candidate picked by the mouse. (fn EVENT) (defalias 'company-complete-mouse #[257 "\300!\205\301 \207" [company-select-mouse company-complete-selection] 3 (#$ . 72845) "e"]) #@32 Insert the selected candidate. (defalias 'company-complete-selection #[0 "\302 \205  8\303!\262\207" [company-selection company-candidates company-manual-begin company-finish] 3 (#$ . 73040) nil]) #@43 Insert the common part of all candidates. (defalias 'company-complete-common #[0 "\302 \205A\204 @\232\203\303 \207\304 !\207" [company-candidates company-common company-manual-begin company-complete-selection company--insert-candidate] 2 (#$ . 73247) nil]) #@126 Insert the common part of all candidates, or select the next one. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-complete-common-or-cycle #[256 "\302 \205\303 \304\305!\210\211\303 =\205\306\304\307!*\262\207" [current-prefix-arg company-selection-wrap-around company-manual-begin buffer-chars-modified-tick call-interactively company-complete-common t company-select-next] 4 (#$ . 73520) "p"]) #@65 Indent the current line or region, or complete the common part. (defalias 'company-indent-or-complete-common #[0 "\302 \203\f\303\304 \305 \"\207\306>\203\307 \207`\310 \311\312\313!\210`=\205-\211\310 =\205-\307 )\207" [indent-line-function tab-always-indent use-region-p indent-region region-beginning region-end (indent-relative indent-relative-maybe) company-complete-common buffer-chars-modified-tick t call-interactively indent-for-tab-command] 4 (#$ . 73960) nil]) #@168 Insert selection if appropriate, or select the next candidate. Insert selection if only preview is showing or only one candidate, otherwise select the next candidate. (defalias 'company-select-next-if-tooltip-visible-or-complete-selection #[0 "\301 \203\302V\203\303\304!\207\303\305!\207" [company-candidates-length company-tooltip-visible-p 1 call-interactively company-select-next company-complete-selection] 2 (#$ . 74447) nil]) #@221 Insert the common part of all candidates or the current selection. The first time this is called, the common part is inserted, the second time, or when the selection has been changed, the selected candidate is inserted. (defalias 'company-complete #[0 "\303 \205\204 \304=\203\305\306!\207\305\304!\210\304\211\207" [company-selection-changed last-command this-command company-manual-begin company-complete-common call-interactively company-complete-selection] 2 (#$ . 74892) nil]) #@266 Insert the Nth candidate visible in the tooltip. To show the number next to the candidates in some backends, enable `company-show-numbers'. When called interactively, uses the last typed character, stripping the modifiers. That character must be a digit. (fn N) (defalias 'company-complete-number #[257 "\303 \205#\211\304W\204\211 ZV\203\305\306\"\210\211S\262\307 \\\n8!\207" [company-candidates-length company-tooltip-offset company-candidates company-manual-begin 1 user-error "No candidate number %d" company-finish] 4 (#$ . 75389) (byte-code "\301!\302!\203 \211\202\303\304!\305\306\"\262!@\211\307Z\211\310U\203&\311\202'\211\266\203C\207" [last-command-event event-basic-type characterp last symbol-name append nil 48 0 10] 6)]) (defconst company-space-strings-limit 100) (defconst company-space-strings (byte-code "\301\302\211W\203\211\303\304\305#\306\"B\262\210\211T\262\202\266\307\310\"\207" [company-space-strings-limit nil 0 make-string - 1 32 apply vector] 9)) (defalias 'company-space-string #[257 "\211W\203\n H\207\302\303\"\207" [company-space-strings-limit company-space-strings make-string 32] 4 "\n\n(fn LEN)"]) (defalias 'company-safe-substring #[770 "\301!V\203 \302\202O\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216c\210\314!\210`\203G\314!\210\211`{iZ\211\306V\205A\315!\262P\202J\211d{\262*\262\207" [buffer-invisibility-spec string-width "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 move-to-column company-space-string] 11 "\n\n(fn STR FROM &optional TO)"]) (defvar company-last-metadata nil nil) (make-variable-buffer-local 'company-last-metadata) (defalias 'company-fetch-metadata #[0 " 8\211\n@=\204\211\303\304\"B\nA\207" [company-selection company-candidates company-last-metadata company-call-backend meta] 5]) (defalias 'company-doc-buffer #[256 "r\300\301!q\210\302 \210\211\203\212\211c\210)p)\207" [get-buffer-create "*company-documentation*" erase-buffer] 3 "\n\n(fn &optional STRING)"]) (defvar company--electric-saved-window-configuration nil) #@61 List of Commands that won't break out of electric commands. (defvar company--electric-commands '(scroll-other-window scroll-other-window-down mwheel-scroll) (#$ . 77538)) #@57 Restore window configuration (after electric commands). (defalias 'company--electric-restore-window-configuration #[0 "\205 \n>?\205\303!\210\304\211\207" [company--electric-saved-window-configuration this-command company--electric-commands set-window-configuration nil] 2 (#$ . 77715)]) (defalias 'company--electric-do '(macro . #[128 "\300\301\302\303\304\305\306\307\"BB\257\207" [when (company-manual-begin) (cl-assert (null company--electric-saved-window-configuration)) (setq company--electric-saved-window-configuration (current-window-configuration)) let ((height (window-height)) (row (company--row))) append ((and (< (window-height) height) (< (- (window-height) row 2) company-tooltip-limit) (recenter (- (window-height) row 2))))] 10 "\n\n(fn &rest BODY)"])) (byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put company--electric-do lisp-indent-function 0 put edebug-form-spec t] 4) (defalias 'company--unread-this-command-keys #[0 "\301 G\302V\205\303\301 !\244\304\305!\207" [unread-command-events this-command-keys 0 listify-key-sequence clear-this-command-keys t] 2]) #@62 Temporarily show the documentation buffer for the selection. (defalias 'company-show-doc-buffer #[0 "\305\306 \205c \203\307\310!\210\311 \312 \313 \n 8\314\315\"\206#\316\317!\305:\2031A\262@\262\320!\321\322\"\323\203C\202De\"\266\312 W\205a\324\312 \325#\fW\205a\326\324\312 \325#!\266\202)\207" [other-window-scroll-buffer company--electric-saved-window-configuration company-selection company-candidates company-tooltip-limit nil company-manual-begin cl--assertion-failed (null company--electric-saved-window-configuration) current-window-configuration window-height company--row company-call-backend doc-buffer user-error "No documentation available" get-buffer display-buffer t set-window-start - 2 recenter] 9 (#$ . 78836) nil]) (put 'company-show-doc-buffer 'company-keep t) #@73 Temporarily display a buffer showing the selected candidate in context. (defalias 'company-show-location #[0 "\305\306 \205\217 \203\307\310!\210\311 \312 \313 \n 8\314\315\"\211A\206%\316\317!\320@!\2031@\2066\321@\322\"\323!\324\325\322\"!r\326\327\330\331\332!\333\"\334$\216\335@\336\"\210\214~\210\320@!\203cb\210\202jeb\210Sy\210)\337\305`\"\210*\266\312 W\205\215\340\312 \334#\fW\205\215\341\340\312 \334#!\266\202)\207" [other-window-scroll-buffer company--electric-saved-window-configuration company-selection company-candidates company-tooltip-limit nil company-manual-begin cl--assertion-failed (null company--electric-saved-window-configuration) current-window-configuration window-height company--row company-call-backend location user-error "No location available" bufferp find-file-noselect t get-buffer internal--before-with-selected-window display-buffer make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord set-window-start - recenter] 13 (#$ . 79653) nil]) (put 'company-show-location 'company-keep t) (defvar company-callback nil nil) (make-variable-buffer-local 'company-callback) (defalias 'company-remove-callback #[256 "\301\302\303#\210\301\304\305\303#\210\301\302\305\303#\207" [company-callback remove-hook company-completion-finished-hook t company-completion-cancelled-hook company-remove-callback] 5 "\n\n(fn &optional IGNORED)"]) #@77 Start a completion at point using BACKEND. (fn BACKEND &optional CALLBACK) (defalias 'company-begin-backend #[513 "\211\211\203 \302\303\304\305$\210\302\306\307\304\305$\210\302\303\307\304\305$\210\310 \206%\311\312!\207" [company-callback company-backend add-hook company-completion-finished-hook nil t company-completion-cancelled-hook company-remove-callback company-manual-begin user-error "Cannot complete at point"] 7 (#$ . 81110) (byte-code "\301\302\303\304\305%\211\205\306!C\207" [obarray completing-read "Company backend: " functionp nil "company-" intern] 6)]) #@409 Start a completion at point. CANDIDATES is the list of candidates to use and PREFIX-LENGTH is the length of the prefix that already is in the buffer before point. It defaults to 0. CALLBACK is a function called with the selected result if the user successfully completes the input. Example: (company-begin-with '("foo" "foobar" "foobarbaz")) (fn CANDIDATES &optional PREFIX-LENGTH REQUIRE-MATCH CALLBACK) (defalias 'company-begin-with #[1025 "\300`\301\"\302\303\304\305\306\307\n\n\n $\310\"\311\312%\"\207" [copy-marker t company-begin-backend make-byte-code 641 "\304=\203`\305\303!\232\205,`\301\206\306Z`{\207\307=\203#\310\300\"\207\311=\203+\302\207\312\207" vconcat vector [prefix marker-position 0 candidates all-completions require-match nil] 6 "\n\n(fn COMMAND &optional ARG &rest IGNORED)"] 15 (#$ . 81703)]) #@129 Get the Company version as string. If SHOW-VERSION is non-nil, show the version in the echo area. (fn &optional SHOW-VERSION) (defalias 'company-version #[256 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312!\210\313\314\315!!\210\311\316!\210\203-\317\320\321 \"\202/\321 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 require find-func insert-file-contents find-library-name "company" lisp-mnt message "Company version: %s" lm-version] 8 (#$ . 82550) (list t)]) #@59 Pop a buffer with information about completions at point. (defalias 'company-diag #[0 "\306 !\307\307\310\307:\203,@\262\262\311\312!)\211\262?\211\262\203,A\262\202 \266\203\307\211;\204::\203I\311\313\"\262\314\315\"\262)\316\317\320!!\210\307\321 \210\322\323\f \324\325&\"'%c\210\326\327 \330\261\210\331\332!\261\210\333c\210\334\332!\261\210\333c\210\335\261\210\333c\210\336\332!\261\210\333c\210\337\340!c\210\204\234\341c\210\212\211\211\203\300\211@\342\343@!\261\210\211A\203\271\344\343A!\261\210A\266\202\202\236\210)\345 \207" [company-backends major-mode company-backend buffer-read-only emacs-version system-configuration symbol-name nil t company-call-backend prefix candidates mapcar #[257 "\211\300\301\"B\207" [company-call-backend annotation] 5 "\n\n(fn C)"] pop-to-buffer get-buffer-create "*company-diag*" erase-buffer format "Emacs %s (%s) of %s on %s" format-time-string "%Y-%m-%d" "\nCompany " company-version "\n\n" "company-backends: " pp-to-string "\n" "Used backend: " "Major mode: " "Prefix: " message "Completions:" " none" "\n " prin1-to-string " " special-mode emacs-build-time emacs-build-system] 13 (#$ . 83124) nil]) (defvar company-pseudo-tooltip-overlay nil nil) (make-variable-buffer-local 'company-pseudo-tooltip-overlay) (defvar company-tooltip-offset 0 nil) (make-variable-buffer-local 'company-tooltip-offset) (defalias 'company-tooltip--lines-update-offset #[771 "\211\301Z\262^\302\303#]\211\304X\203\211T\262\305\302\304#Y\203?\211T\262SU\203?S\211\304X\203?\305\211T\262\207" [company-tooltip-offset 2 - -1 1 0] 9 "\n\n(fn SELECTION NUM-LINES LIMIT)"]) (defalias 'company-tooltip--simple-update-offset #[771 "W\203\n\202\301\302#]\211\207" [company-tooltip-offset - -1] 8 "\n\n(fn SELECTION NUM-LINES LIMIT)"]) (defalias 'company-round-tab #[257 "\211\\\245_\207" [tab-width] 3 "\n\n(fn ARG)"]) (put 'company-round-tab 'byte-optimizer 'byte-compile-inline-expand) (defalias 'company-plainify #[257 "\301\302\303#\211\203\211P\262\304\302G\305$\210\210\306\307\"\211\211A\203>\211\310@\302\311@!\211\\\245_\262#\240\210\211A\266\202\202\312\313\"\207" [tab-width get-text-property 0 line-prefix remove-text-properties (line-prefix) split-string " " company-safe-substring string-width apply concat] 10 "\n\n(fn STR)"]) (defalias 'company-fill-propertize #[1542 "G\305\306\"\206\203\307!\202\310\311!\262\205%\311\312\"\211\262 \313 G G\203:\314\202;\310#W\203V\203M GT\202Y  GZ\202Y G\\\211 G\\ \\^\204o\204\207\315\205}\205}\316Q\310#\202\225\315\310GZ# P Q\f^\\\262\313\f  G#\262\f\317\310 \320\321%\210W\203\315\317\322\203\311\323\202\312\324%\210\325\322\203\334\326\202\335\327%\210\n !\211\330\230?\205\361\331\fG#\262\2036\332 \211\2035\211@\211@A\211 \\\\GZW\203,\325^\322\203'\333\202(\334%\210\266A\266\202\202\370\210\n\203D\317\310 \322\335%\210\317\310 \322\336%\210\207" [company-common company-tooltip-align-annotations company-search-regexp-function company-search-string company-prefix company-call-backend match string-width 0 company--pre-render t + 1 company-safe-substring " " font-lock-append-text-property mouse-face company-tooltip-mouse face company-tooltip-annotation-selection company-tooltip-annotation font-lock-prepend-text-property company-tooltip-common-selection company-tooltip-common "" string-match company--search-chunks company-tooltip-search-selection company-tooltip-search company-tooltip-selection company-tooltip] 29 "\n\n(fn VALUE ANNOTATION WIDTH SELECTED LEFT RIGHT)"]) (defalias 'company--search-chunks #[0 "\300\301!\302G\303X\203@A@BB\262\2023AA\211\262\2033@\203@A@BB\262\202\207" [match-data t nil 2] 4]) (defalias 'company--pre-render #[513 "\300\301#\206.\302\303G\304\305%\204 \302\303G\306\305%\203-\307!\262\310\303G\311$\210\207" [company-call-backend pre-render text-property-not-all 0 face nil mouse-face copy-sequence remove-text-properties (face nil font-lock-face nil mouse-face nil)] 8 "\n\n(fn STR &optional ANNOTATION-P)"]) (defalias 'company--clean-string #[257 "\300\301\302#\207" [replace-regexp-in-string "\\([^[:graph:] ]\\)\\|\\(\\)\\|[[:multibyte:]]" #[257 "\300\224\203\301\207\302\224\203\303\207\304!\300V\203 \305\304!S\306\"P\207\207" [1 "‗" 2 "" string-width make-string 65279] 4 "\n\n(fn MATCH)"]] 5 "\n\n(fn STR)"]) (defalias 'company-buffer-lines #[514 "b\210\300\211m\204O\301\302!\211\262\303V\203O`X\203O`^\212b\210\304\305\306#\210`){B\262\210\211S\303\211W\203G\211\307B\262\210\211T\262\2023\266`\262\202=\204\\{B\262\237\207" [nil vertical-motion 1 0 re-search-forward "$" move ""] 10 "\n\n(fn BEG END)"]) (defalias 'company-modify-line #[771 "\300\301#\300G\\\"Q\207" [company-safe-substring 0] 9 "\n\n(fn OLD NEW OFFSET)"]) (defalias 'company--window-height #[0 "\300\301!\203 \302\301 !\207\303 \207" [fboundp window-screen-lines floor window-body-height] 2]) (put 'company--window-height 'byte-optimizer 'byte-compile-inline-expand) (defalias 'company--window-width #[0 "\304 \305 A@\306U\203\211S\262\307\300!\203!\203!\211\310\311 \\Z\262\312 \204B\313\314 \"\204B\211\315 \211@\2066\306A\206<\306\\\262Z\262\n\203Q\313 \316\"\203Q\211S\262 \203d \317H\203d\211 \317HGSZ\262\211\207" [display-line-numbers emacs-version word-wrap buffer-display-table window-body-width window-fringes 0 boundp 2 line-number-display-width display-graphic-p version< "24.3.1" window-margins "24.4.51.5" 10] 5]) (defalias 'company--replacement-string #[1284 "Z\262\211\203 \203\302!\262@G\303 \304 \\ZV\203)ZZ\262\266\305W\2053[\306\203;\305\262\203bGGZ\305\211W\203`\211\211A\262\n\242B\262\210\211T\262\202F\266\203\202\307\211A\262\242\310 \211A\262 \242\"#B\262\202b\203\234\311!\310\211A\262\n\242\"PB\262\202\202\205\241\312\313\314\237\315#\315Q\316\305G\317\320%\210\203\276\321\305\322\323\324%\210\211\262\207" [company-tooltip-margin company-tooltip-flip-when-above reverse company--window-width window-hscroll 0 nil company-modify-line company--offset-line company-space-string " \n" mapconcat identity "\n" font-lock-append-text-property face default put-text-property 1 cursor t] 14 "\n\n(fn LINES OLD COLUMN NL &optional ALIGN-TOP)"]) (defalias 'company--offset-line #[514 "\211\203 \203 \300O\207\207" [nil] 5 "\n\n(fn LINE OFFSET)"]) (defalias 'company--create-lines #[514 "\306 \307\211\211\211\211\211\211  \\W\203\310\n\311=\203)\312 \n\f#\262\n\2022\313 \n\f#\210\n\314=\203D\315   #\262\202n\n\311=\203n \310V\203V\316\317 \"\262\320  #\262\310V\205l\316\317\"\211\262\262\n Z\262 GG]\262 \233\262  ^\262 \262\f\321_Z\262\211\203\234S\262\310\211W\203\365\211\211A\262 \242\322\323\"\324\325!!\262\211\203\314 \203\307\326\327\307#\262\324!\262B B\262 G\203\344 \203\344GT\202\346G\\ ]\262 \266\211T\262\202\237\266 ^!\"\203\n\321\\\202\f]^\262\237\"\203\310\202\330\307\203+\331\n\"B\262 \310\211W\203\213\211\211A\262\242\211@A\332\f! \333W\203a\211\321Z\262 T\262\n\316\334\335\f\333\"\"P\262\336 \232\332\f!&\f\205|\337\"P B\262 \266\211T\262\202.\266\203\232\331\n\"B\262\211\237\266\203\207" [company-candidates-length company-tooltip-offset company-tooltip-offset-display company-candidates company-tooltip-margin company-tooltip-align-annotations company--window-width nil 0 lines company-tooltip--lines-update-offset company-tooltip--simple-update-offset scrollbar company--scrollbar-bounds format "...(%d)" - 2 company-call-backend annotation company--clean-string company-reformat comment-string-strip t 99999 company--scrollpos-line company-space-string 10 " %d" mod company-fill-propertize company--scrollbar company-tooltip-maximum-width company-tooltip-minimum-width company-show-numbers] 29 "\n\n(fn SELECTION LIMIT)"]) (defalias 'company--scrollbar-bounds #[771 "\211V\205!\300\301!_\"\302\301!_\"\303\304#B\266\203\207" [ceiling float floor + -1] 9 "\n\n(fn OFFSET LIMIT LENGTH)"]) (defalias 'company--scrollbar #[514 "\300\301\302@Y\203AX\203\303\202\304#\207" [propertize " " face company-scrollbar-fg company-scrollbar-bg] 7 "\n\n(fn I BOUNDS)"]) (defalias 'company--scrollpos-line #[514 "\301\302!\303\304#\302!Q\305\306#\207" [company-tooltip-margin propertize company-space-string company-safe-substring 0 face company-tooltip] 8 "\n\n(fn TEXT WIDTH)"]) #@117 Calculate the appropriate tooltip height. Returns a negative number if the tooltip should be displayed above point. (defalias 'company--pseudo-tooltip-height #[0 "\303 \304\305\306!\203\307\306 !\202\310 \311#\211 ^W\203,V\203,\312\n^][\2021\312\n^]\207" [company-tooltip-minimum company-candidates-length company-tooltip-limit company--row - fboundp window-screen-lines floor window-body-height 1 3] 5 (#$ . 91854)]) (defalias 'company-pseudo-tooltip-show #[771 "\301 \210\212\302 \303\304W\203\305\306#\262\307\262\310!W`\212\310\311!\\!\210`)\312\303\307$\313\314\315\"\"F\316\317#\210\320\311 !\"\316\321\322\323##\210\316\324\325@!#\266\316\326 #\210\316\327 #\266\205\266\202)\207" [company-pseudo-tooltip-overlay company-pseudo-tooltip-hide company--pseudo-tooltip-height nil 0 + -1 t move-to-window-line abs make-overlay mapcar company-plainify company-buffer-lines overlay-put company-replacement-args company--create-lines company-display apply company--replacement-string company-width string-width company-column company-height] 18 "\n\n(fn ROW COLUMN SELECTION)"]) (defalias 'company-pseudo-tooltip-show-at-point #[514 "\301!\211@Z\211\302W\203\302\262\303AT#\207" [company-selection company--col-row 0 company-pseudo-tooltip-show] 8 "\n\n(fn POS COLUMN-OFFSET)"]) (defalias 'company-pseudo-tooltip-edit #[257 "\301\302\"\303\304!\"\305\306\307@!#\210\305\310\311\312\301\313\"##\207" [company-pseudo-tooltip-overlay overlay-get company-height company--create-lines abs overlay-put company-width string-width company-display apply company--replacement-string company-replacement-args] 12 "\n\n(fn SELECTION)"]) (defalias 'company-pseudo-tooltip-hide #[0 "\205 \301!\210\302\211\207" [company-pseudo-tooltip-overlay delete-overlay nil] 2]) (defalias 'company-pseudo-tooltip-hide-temporarily #[0 "\301!\205\302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\207" [company-pseudo-tooltip-overlay overlayp overlay-put invisible nil line-prefix after-string display] 4]) (defalias 'company-pseudo-tooltip-unhide #[0 "\205<\301\302\"\303\304\305#\210\303\306\307#\210\310!\311!W\203(\303\312#\210\2024\303\313#\210\303\314\315#\210\303\316\317 #\266\202\207" [company-pseudo-tooltip-overlay overlay-get company-display overlay-put priority 1 line-prefix "" overlay-start overlay-end display after-string invisible t window selected-window] 6]) (defalias 'company-pseudo-tooltip-guard #[0 "\212\301 )\302 \212\303 \210\304 `Z)\305\306\"\307Y\205'\310`\311!\"\307Y\205&B\266\202E\207" [company-pseudo-tooltip-overlay beginning-of-visual-line window-width end-of-visual-line line-end-position overlay-get company-height 0 buffer-substring-no-properties overlay-start] 8]) #@83 `company-mode' frontend similar to a tooltip but based on overlays. (fn COMMAND) (defalias 'company-pseudo-tooltip-frontend #[257 "\304\305\"\203\n\306 \207\304\307\"\203L\310!\203<\311\312\"\313 _\314Y\2057\315!\315!Y\2057\316 \311\317\"\232\266\203\204I\320` G\"\210\321\317\316 #\210\322 \207\304\323\"\203Z\324 \210\314\211\207\304\325\"\205j\310!\205j\326 !\207" [company-pseudo-tooltip-overlay company-prefix company-tooltip-offset company-selection eql pre-command company-pseudo-tooltip-hide-temporarily post-command overlayp overlay-get company-height company--pseudo-tooltip-height 0 abs company-pseudo-tooltip-guard company-guard company-pseudo-tooltip-show-at-point overlay-put company-pseudo-tooltip-unhide hide company-pseudo-tooltip-hide update company-pseudo-tooltip-edit] 8 (#$ . 94652)]) #@87 `company-pseudo-tooltip-frontend', but not shown for single candidates. (fn COMMAND) (defalias 'company-pseudo-tooltip-unless-just-one-frontend #[257 "\211\300=\205\301 ?\205\302!\207" [post-command company--show-inline-p company-pseudo-tooltip-frontend] 3 (#$ . 95489)]) #@129 `compandy-pseudo-tooltip-frontend', but shown after a delay. Delay is determined by `company-tooltip-idle-delay'. (fn COMMAND) (defalias 'company-pseudo-tooltip-unless-just-one-frontend-with-delay #[257 "\211\304>\203\203\305!\210\306\307\310\"\203?\204!\311 !\2036\311\n!\204+\312!\207\306\313\314!\210)\313\310!\207\315 \306\316\310$\211\207\312!\207" [company-tooltip-timer company-pseudo-tooltip-overlay company-preview-overlay company-tooltip-idle-delay (pre-command hide) cancel-timer nil eql post-command overlayp company-pseudo-tooltip-unless-just-one-frontend company-call-frontends pre-command run-with-timer company-pseudo-tooltip-unless-just-one-frontend-with-delay] 6 (#$ . 95774)]) (defvar company-preview-overlay nil nil) (make-variable-buffer-local 'company-preview-overlay) (defalias 'company-preview-show-at-point #[514 "\306 \210\307\310!!\262\311\312G\313\314%\210\315\312G\313\316%\210\317 \n!\"\203E\320 \211\203D\211@\211@A\211\315\313\321 %\266A\266\202\202'\210\211\211 G\322O\262\262`\232\203b\211\323\232\204b\324\312\325\326$\210\f\211\205w\206m`Sf\205w\327!=\211\203\206S\262{P\262\330\"\211\331\203\227\332\202\230\333#\210\331\334\335 #\262\207" [company-common company-search-regexp-function company-search-string company-prefix company-pseudo-tooltip-overlay company-preview-overlay company-preview-hide copy-sequence company--pre-render font-lock-append-text-property 0 face company-preview font-lock-prepend-text-property company-preview-common string-match company--search-chunks company-preview-search nil "" add-text-properties 1 (cursor 1) overlay-start make-overlay overlay-put display after-string window selected-window] 15 "\n\n(fn POS COMPLETION)"]) (defalias 'company-preview-hide #[0 "\205 \301!\210\302\211\207" [company-preview-overlay delete-overlay nil] 2]) #@89 `company-mode' frontend showing the selection as if it had been inserted. (fn COMMAND) (defalias 'company-preview-frontend #[257 "\211\302=\203 \303 \207\211\304=\203\305` 8\"\207\211\306=\203\303 \207\307\207" [company-selection company-candidates pre-command company-preview-hide post-command company-preview-show-at-point hide nil] 5 (#$ . 97659)]) #@81 `company-preview-frontend', but only shown for single candidates. (fn COMMAND) (defalias 'company-preview-if-just-one-frontend #[257 "\211\300=\203 \301 \205\302!\207" [post-command company--show-inline-p company-preview-frontend] 3 (#$ . 98024)]) (defalias 'company--show-inline-p #[0 "A?\205 \205\303\304!\305=\206\306\n \"\207" [company-candidates company-common company-prefix company-call-backend ignore-case keep-prefix string-prefix-p] 3]) #@41 Returns whether the tooltip is visible. (defalias 'company-tooltip-visible-p #[0 "\301!\205 \302\303\"?\207" [company-pseudo-tooltip-overlay overlayp overlay-get invisible] 3 (#$ . 98489)]) #@60 Returns whether the preview of common can be showed or not (defalias 'company-preview-common--show-p #[0 "\205\302\303!\304=\206\305 \"\207" [company-common company-prefix company-call-backend ignore-case keep-prefix string-prefix-p] 3 (#$ . 98688)]) #@78 `company-mode' frontend preview the common part of candidates. (fn COMMAND) (defalias 'company-preview-common-frontend #[257 "\211\301=\203 \302 \205)\211\303=\203\304 \207\211\301=\203\305`\"\207\211\306=\203(\304 \207\307\207" [company-common post-command company-preview-common--show-p pre-command company-preview-hide company-preview-show-at-point hide nil] 4 (#$ . 98951)]) (defvar company-echo-last-msg nil nil) (make-variable-buffer-local 'company-echo-last-msg) (defvar company-echo-timer nil) (defvar company-echo-delay 0.01) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable company-echo-truncate-lines funcall function #[0 "\300\207" [t] 1] "Whether frontend messages written to the echo area should be truncated." :type boolean :package-version (company . "0.9.3")] 8) (defalias 'company-echo-show #[256 "\211\203\211 \304 \203\305\306\"\202\305\307!*\207" [company-echo-last-msg company-echo-truncate-lines message-truncate-lines message-log-max nil message "%s" ""] 4 "\n\n(fn &optional GETTER)"]) (defalias 'company-echo-show-soon #[256 "\301 \210\302\303\304\305$\211\207" [company-echo-timer company-echo-cancel run-with-timer 0 nil company-echo-show] 6 "\n\n(fn &optional GETTER)"]) (defalias 'company-echo-cancel #[256 "\203\301!\210\211\205\302\211\207" [company-echo-timer cancel-timer nil] 3 "\n\n(fn &optional UNSET)"]) (defalias 'company-echo-show-when-idle #[256 "\302 \210\303\304\305$\211\207" [company-echo-delay company-echo-timer company-echo-cancel run-with-idle-timer nil company-echo-show] 6 "\n\n(fn &optional GETTER)"]) (defalias 'company-echo-format #[0 "\304\305 !\306 \233\n\203\202\307\310\211\203t\311\211A\262\242!\262\312\313G#\262\314W\203P\315\316\317#\320\321#\262\322\\\262T\262\323\322\211 G\\\324$\210\202_\315\320\321#\262\323\325 G\326$\210Y\203l\310\262\202B\262\202\327\330\237\331#\207" [company-selection company-candidates company-show-numbers company-common window-body-width minibuffer-window -1 99999 nil company-reformat + 1 10 propertize format "%d: %s" face company-echo 3 add-text-properties (face company-echo-common) 0 (face company-echo-common) mapconcat identity " "] 11]) (defalias 'company-echo-strip-common-format #[0 "\304\305 !G\306\\ \n\233 \203 \202\307\310\211\203`\211A\262\242\211G\310O\262\262\311\306G#\262\312W\203G\313\314#\262\315\\\262T\262Y\203T\310\262\202\316\317\320#B\262\202\316\317\321#\322\323\324\237\325#\326R\207" [company-prefix company-selection company-candidates company-show-numbers window-body-width minibuffer-window 2 99999 nil + 10 format "%s (%d)" 4 propertize face company-echo company-echo-common "{" mapconcat identity ", " "}"] 12]) (defalias 'company-echo-hide #[0 "\301\232?\205 \301\302 \207" [company-echo-last-msg "" company-echo-show] 2]) #@80 `company-mode' frontend showing the candidates in the echo area. (fn COMMAND) (defalias 'company-echo-frontend #[257 "\211\300=\203\n\301\302!\207\211\303=\203\304 \207\305\207" [post-command company-echo-show-soon company-echo-format hide company-echo-hide nil] 3 (#$ . 101860)]) #@80 `company-mode' frontend showing the candidates in the echo area. (fn COMMAND) (defalias 'company-echo-strip-common-frontend #[257 "\211\300=\203\n\301\302!\207\211\303=\203\304 \207\305\207" [post-command company-echo-show-soon company-echo-strip-common-format hide company-echo-hide nil] 3 (#$ . 102151)]) #@83 `company-mode' frontend showing the documentation in the echo area. (fn COMMAND) (defalias 'company-echo-metadata-frontend #[257 "\211\300=\203\n\301\302!\207\211\303=\203\304 \207\305\207" [post-command company-echo-show-when-idle company-fetch-metadata hide company-echo-hide nil] 3 (#$ . 102468)]) (provide 'company)