mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file contains utf-8 non-ASCII characters,
7 ;;; and so cannot be loaded into Emacs 22 or earlier.
8 (and (boundp 'emacs-version)
9      (< (aref emacs-version (1- (length emacs-version))) ?A)
10      (string-lessp emacs-version "23")
11      (error "`%s' was compiled for Emacs 23 or later" #$))
12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
15
16 (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)
17 #@23 
18
19 (fn VARIABLE VALUE)
20 (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 (#$ . 4008)])
21 (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)
22 (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")))
23 (put 'company-safe-backends 'risky-local-variable t)
24 #@17 
25
26 (fn BACKENDS)
27 (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 (#$ . 9038)])
28 (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\306\307\"?\205\310C\306\307\"?\205 \311C\312%\207" [emacs-version append version< "24.3.51" company-elisp (company-bbdb) version<= "26" 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)] 7] "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 a positive\ninteger, the index after the end of text matching `prefix' within the\ncandidate string.  Alternatively, return a list of (CHUNK-START\n. CHUNK-END) elements, where CHUNK-START and CHUNK-END are indexes within\nthe candidate string.  The corresponding regions are be used when rendering\nthe popup.  This command only makes sense for backends that provide\nnon-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 completion-at-point)] 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)
29 #@105 Pause between checks to see if the value's been set when turning an
30 asynchronous call into synchronous.
31 (defvar company-async-wait 0.03 (#$ . 22895))
32 #@67 Maximum wait time for a value to be set during asynchronous call.
33 (defvar company-async-timeout 2 (#$ . 23051))
34 #@32 Keymap used by `company-mode'.
35 (defvar company-mode-map (make-sparse-keymap) (#$ . 23169))
36 #@53 Keymap that is enabled during an active completion.
37 (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) (#$ . 23266))
38 (defvar company--disabled-backends nil)
39 #@16 
40
41 (fn BACKEND)
42 (defalias 'company-init-backend #[257 "\2119\203\301!\204\3021\303\304\305#0\202\210\202\210\2119\203Y\30611\211\307!\210\310\311\305#0\207\310\311\312#\210>\204E\313\314\315!#\210\316\"\203R\210\202V\211B\210\304\207\317!\203a\305\207\211\211\205y\211@\320!\204r\321!\210A\266\202\202b\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 (#$ . 24605)])
43 #@16 
44
45 (fn BACKEND)
46 (defalias 'company--maybe-init-backend #[257 "\2119?\206\211\300N\301=\206\211\300N?\205\302!\207" [company-init t company-init-backend] 3 (#$ . 25196)])
47 (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)
48 #@110 Mode line lighter for Company.
49
50 The value of this variable is a mode line template as in
51 `mode-line-format'.
52 (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)) (#$ . 25649))
53 (put 'company-lighter 'risky-local-variable t)
54 #@93 Non-nil if Company mode is enabled.
55 Use the command `company-mode' to change this variable.
56 (defvar company-mode nil (#$ . 26054))
57 (make-variable-buffer-local 'company-mode)
58 #@1087 "complete anything"; is an in-buffer completion framework.
59 Completion starts automatically, depending on the values
60 `company-idle-delay' and `company-minimum-prefix-length'.
61
62 Completion can be controlled with the commands:
63 `company-complete-common', `company-complete-selection', `company-complete',
64 `company-select-next', `company-select-previous'.  If these commands are
65 called before `company-idle-delay', completion will also start.
66
67 Completions can be searched with `company-search-candidates' or
68 `company-filter-candidates'.  These can be used while completion is
69 inactive, as well.
70
71 The completion data is retrieved using `company-backends' and displayed
72 using `company-frontends'.  If you want to start a specific backend, call
73 it interactively or use `company-begin-backend'.
74
75 By default, the completions list is sorted alphabetically, unless the
76 backend chooses otherwise, or `company-transformers' changes it later.
77
78 regular keymap (`company-mode-map'):
79
80 \{company-mode-map}
81 keymap during active completions (`company-active-map'):
82
83 \{company-active-map}
84
85 (fn &optional ARG)
86 (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 (#$ . 26236) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
87 (defvar company-mode-hook nil)
88 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\313\314\315DD\316\317\320%\207" [company-mode-map company-mode-hook variable-documentation put "Hook run after entering or leaving `company-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" 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)
89 (defvar company-mode-major-mode nil)
90 (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)
91 #@342 Toggle Company mode in all buffers.
92 With prefix ARG, enable Global Company mode if ARG is positive;
93 otherwise, disable it.  If called from Lisp, enable the mode if
94 ARG is omitted or nil.
95
96 Company mode is enabled in all buffers where
97 `company-mode-on' would do it.
98 See `company-mode' for more information on Company mode.
99
100 (fn &optional ARG)
101 (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 (#$ . 30104) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
102 (defvar global-company-mode-hook nil)
103 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-company-mode-map global-company-mode-hook variable-documentation put "Hook run after entering or leaving `global-company-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-company-mode nil boundp] 6)
104 (defvar company-mode-set-explicitly nil nil)
105 (make-variable-buffer-local 'company-mode-set-explicitly)
106 (defalias 'company-mode-set-explicitly #[0 "\301\211\207" [company-mode-set-explicitly t] 2])
107 (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)
108 (defvar global-company-mode-buffers nil)
109 (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])
110 (put 'global-company-mode-enable-in-buffers 'definition-name 'global-company-mode)
111 (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])
112 (put 'global-company-mode-check-buffers 'definition-name 'global-company-mode)
113 (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])
114 (put 'global-company-mode-cmhh 'definition-name 'global-company-mode)
115 (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])
116 (defalias 'company-assert-enabled #[0 "?\205 \301 \210\302\303!\207" [company-mode company-uninstall-map user-error "Company not enabled"] 2])
117 (put 'company-assert-enabled 'byte-optimizer 'byte-compile-inline-expand)
118 (defvar company-my-keymap nil nil)
119 (make-variable-buffer-local 'company-my-keymap)
120 (defvar company-emulation-alist '((t)))
121 #@15 
122
123 (fn KEYMAP)
124 (defalias 'company-enable-overriding-keymap #[257 "\301 \210\211\211\207" [company-my-keymap company-uninstall-map] 3 (#$ . 33929)])
125 (put 'company-enable-overriding-keymap 'byte-optimizer 'byte-compile-inline-expand)
126 (defalias 'company-ensure-emulation-alist #[0 "@\301=?\205\301\302\301\"B\211\207" [emulation-mode-map-alists company-emulation-alist delq] 4])
127 (defalias 'company-install-map #[0 "@A\206    ??\205\211@    \241\262\207" [company-emulation-alist company-my-keymap] 3])
128 (defalias 'company-uninstall-map #[0 "\211@\301\241\207" [company-emulation-alist nil] 3])
129 #@71 Checks if the keys are part of company's overriding keymap
130
131 (fn KEYS)
132 (defalias 'company--company-command-p #[257 "\211\301\232\206\n\302\"\207" [company-my-keymap [company-dummy-event] lookup-key] 4 (#$ . 34532)])
133 (defalias 'company-ignore #[0 "\211\207" [last-command this-command] 2 nil nil])
134 (global-set-key [company-dummy-event] 'company-ignore)
135 (defalias 'company-input-noop #[0 "\301B\211\207" [unread-command-events company-dummy-event] 2])
136 #@13 
137
138 (fn POSN)
139 (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 (#$ . 34994)])
140 #@22 
141
142 (fn &optional POS)
143 (defalias 'company--col-row #[256 "\300\301!!\207" [company--posn-col-row posn-at-point] 4 (#$ . 35346)])
144 #@22 
145
146 (fn &optional POS)
147 (defalias 'company--row #[256 "\300!A\207" [company--col-row] 3 (#$ . 35480)])
148 (defvar company-backend nil nil)
149 (make-variable-buffer-local 'company-backend)
150 #@42 
151
152 (fn REGEXP &optional EXPRESSION LIMIT)
153 (defalias 'company-grab #[769 "\300\"\205\301\206 \302!\206\303\207" [looking-back match-string-no-properties 0 ""] 6 (#$ . 35666)])
154 #@247 Return a match string for REGEXP if it matches text before point.
155 If EXPRESSION is non-nil, return the match string for the respective
156 parenthesized expression in REGEXP.
157 Matching is limited to the current line.
158
159 (fn REGEXP &optional EXPRESSION)
160 (defalias 'company-grab-line #[513 "\301\302\303 #)\207" [inhibit-field-text-motion t company-grab point-at-bol] 6 (#$ . 35855)])
161 #@116 If point is at the end of a symbol, return it.
162 Otherwise, if point is not inside a symbol, return an empty string.
163 (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 (#$ . 36241)])
164 #@114 If point is at the end of a word, return it.
165 Otherwise, if point is not inside a symbol, return an empty string.
166 (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 (#$ . 36557)])
167 #@224 Return a string SYMBOL or a cons (SYMBOL . t).
168 SYMBOL is as returned by `company-grab-symbol'.  If the text before point
169 matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons.
170
171 (fn IDLE-BEGIN-AFTER-RE &optional MAX-LEN)
172 (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 (#$ . 36862)])
173 #@56 Return non-nil if point is within a string or comment.
174 (defalias 'company-in-string-or-comment #[0 "\300 \301\233\211\262@\206\211A\211\262@\206\3018\207" [syntax-ppss 3] 3 (#$ . 37302)])
175 #@19 
176
177 (fn &rest ARGS)
178 (defalias 'company-call-backend #[128 "\301\302#\207" [company-backend company--force-sync company-call-backend-raw] 5 (#$ . 37504)])
179 #@25 
180
181 (fn FUN ARGS BACKEND)
182 (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 (#$ . 37664)])
183 #@19 
184
185 (fn &rest ARGS)
186 (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 (#$ . 38146)])
187 #@36 
188
189 (fn BACKENDS COMMAND &rest ARGS)
190 (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 (#$ . 38552)])
191 #@33 
192
193 (fn BACKENDS PREFIX SEPARATE)
194 (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 (#$ . 39370)])
195 #@29 
196
197 (fn BACKEND SEPARATE TAG)
198 (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 (#$ . 39811)])
199 #@21 
200
201 (fn PAIRS MERGER)
202 (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 (#$ . 40276)])
203 #@15 
204
205 (fn PREFIX)
206 (defalias 'company--prefix-str #[257 "\211\242\206\211\207" [] 2 (#$ . 41100)])
207 (defvar company-prefix nil nil)
208 (make-variable-buffer-local 'company-prefix)
209 (defvar company-candidates nil nil)
210 (make-variable-buffer-local 'company-candidates)
211 (defvar company-candidates-length nil nil)
212 (make-variable-buffer-local 'company-candidates-length)
213 (defvar company-candidates-cache nil nil)
214 (make-variable-buffer-local 'company-candidates-cache)
215 (defvar company-candidates-predicate nil nil)
216 (make-variable-buffer-local 'company-candidates-predicate)
217 (defvar company-common nil nil)
218 (make-variable-buffer-local 'company-common)
219 (defvar company-selection 0 nil)
220 (make-variable-buffer-local 'company-selection)
221 (defvar company-selection-changed nil nil)
222 (make-variable-buffer-local 'company-selection-changed)
223 #@43 Non-nil, if manual completion took place.
224 (defvar company--manual-action nil (#$ . 41922))
225 (make-variable-buffer-local 'company--manual-action)
226 (defvar company--manual-prefix nil nil)
227 (make-variable-buffer-local 'company--manual-prefix)
228 #@104 Non-nil when current candidate is being inserted automatically.
229 Controlled by `company-auto-complete'.
230 (defvar company--auto-completion nil (#$ . 42166))
231 (defvar company--point-max nil nil)
232 (make-variable-buffer-local 'company--point-max)
233 (defvar company-point nil nil)
234 (make-variable-buffer-local 'company-point)
235 (defvar company-timer nil)
236 (defvar company-tooltip-timer nil)
237 #@12 
238
239 (fn STR)
240 (defalias 'company-strip-prefix #[257 "\211G\301O\207" [company-prefix nil] 4 (#$ . 42548)])
241 (put 'company-strip-prefix 'byte-optimizer 'byte-compile-inline-expand)
242 #@18 
243
244 (fn CANDIDATE)
245 (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 (#$ . 42731)])
246 #@182 Evaluate BODY with CANDIDATE temporarily inserted.
247 This is a tool for backends that need candidates inserted before they
248 can retrieve meta-data for them.
249
250 (fn CANDIDATE &rest BODY)
251 (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 (#$ . 43014)]))
252 (byte-code "\300\301\302\303#\300\207" [function-put company-with-candidate-inserted lisp-indent-function 1] 4)
253 #@66 Return whether explicit completion action was taken by the user.
254 (defalias 'company-explicit-action-p #[0 "\206    \207" [company--manual-action company-selection-changed] 1 (#$ . 43653)])
255 #@18 
256
257 (fn CANDIDATE)
258 (defalias 'company-reformat #[257 "\301\302!\303=\203G\304OP\207\207" [company-prefix company-call-backend ignore-case keep-prefix nil] 5 (#$ . 43848)])
259 (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])
260 (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])
261 #@16 
262
263 (fn COMMAND)
264 (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 (#$ . 44607)])
265 #@41 
266
267 (fn SELECTION &optional FORCE-UPDATE)
268 (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 (#$ . 44882)])
269 #@23 
270
271 (fn CANDIDATE BASE)
272 (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 (#$ . 45206)])
273 #@19 
274
275 (fn CANDIDATES)
276 (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 (#$ . 45568)])
277 #@15 
278
279 (fn PREFIX)
280 (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 (#$ . 46150)])
281 #@15 
282
283 (fn PREFIX)
284 (defalias 'company--fetch-candidates #[257 "\305 ?    \204 \306 \203\307\310\"\202\311\310\"\211@\312=\204#\211\202|\313C\314A\315\316\317\320\321!\322\"\323\324%!\210\325 \203P\211\242\313=\203^\326 \204^\327 !\210\202=\211\242\313=\203^\330\331\314\"\204P\f@\332\235\203m\f\211A\210\202^\211\242:\205u\211\242\333\240\210)\262)\207" [non-essential company-selection-changed inhibit-redisplay company-async-wait unread-command-events company-explicit-action-p company-require-match-p company-call-backend candidates company-call-backend-raw :async none t make-byte-code 257 "\300\242\302=\203 \303    B\300\240\207" vconcat vector [unread-command-events none company-foo] 3 "\n\n(fn CANDIDATES)" company--flyspell-workaround-p input-pending-p sleep-for sit-for 0.5 (company-foo (t . company-foo)) exited] 10 (#$ . 46772)])
285 (defalias 'company--flyspell-workaround-p #[0 "\302\300!\205\205\303    \304\"\207" [flyspell-mode emacs-version boundp version< "27"] 3])
286 #@19 
287
288 (fn CANDIDATES)
289 (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 (#$ . 47780)])
290 #@19 
291
292 (fn CANDIDATES)
293 (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 (#$ . 48112)])
294 #@19 
295
296 (fn CANDIDATES)
297 (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 (#$ . 48373)])
298 #@19 
299
300 (fn CANDIDATES)
301 (defalias 'company--transform-candidates #[257 "\211\211\203\211@\211!\262A\266\202\202\210\211\207" [company-transformers] 6 (#$ . 48712)])
302 (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)
303 #@97 Give priority to the matches above point, then those below point.
304
305 (fn POS MATCH-BEG MATCH-END)
306 (defalias 'company-occurrence-prefer-closest-above #[771 "W\203\nZ\207\300 Z\207" [window-start] 5 (#$ . 49424)])
307 #@82 Give priority to the matches closest to the point.
308
309 (fn POS MATCH-BEG MATCH-END)
310 (defalias 'company-occurrence-prefer-any-closest #[771 "\300Z!\207" [abs] 6 (#$ . 49646)])
311 #@311 Sort CANDIDATES according to their occurrences.
312 Searches for each in the currently visible part of the current buffer and
313 prioritizes the matches according to `company-occurrence-weight-function'.
314 The rest of the list is appended unchanged.
315 Keywords and function definition names are ignored.
316
317 (fn CANDIDATES)
318 (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 (#$ . 49827)])
319 (defalias 'company--occurrence-predicate #[0 "\301\224\301\225\302\300!\205 \212\211b\210\303\304!\203\305 \211B\210\306`S\307\"\310>?\205:\311\312\313!!\211;\2058\211GZU\262*\207" [comint-last-prompt 0 boundp derived-mode-p inferior-python-mode line-beginning-position get-text-property face (font-lock-function-name-face font-lock-keyword-face) company--prefix-str company-call-backend prefix] 6])
320 #@279 Sort CANDIDATES as two priority groups.
321 If `company-backend' is a function, do nothing.  If it's a list, move
322 candidates from backends before keyword `:with' to the front.  Candidates
323 from the rest of the backends in the group, if any, will be left at the end.
324
325 (fn CANDIDATES)
326 (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 (#$ . 51268)])
327 #@186 Prefer CANDIDATES with the exact same prefix.
328 If a backend returns case insensitive matches, candidates with the an exact
329 prefix match (same case) will be prioritized.
330
331 (fn CANDIDATES)
332 (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 (#$ . 51937)])
333 #@25 
334
335 (fn BUF WIN TICK POS)
336 (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 (#$ . 52349)])
337 (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])
338 (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])
339 #@27 
340
341 (fn &optional BACKWARD)
342 (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 (#$ . 53364) (list current-prefix-arg)])
343 (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])
344 #@69 Return non-nil if INPUT should trigger auto-completion.
345
346 (fn INPUT)
347 (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 (#$ . 54142)])
348 (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])
349 #@19 
350
351 (fn NEW-PREFIX)
352 (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 (#$ . 54663)])
353 #@15 
354
355 (fn PREFIX)
356 (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 (#$ . 55024)])
357 (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])
358 (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])
359 (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])
360 #@25 
361
362 (fn &optional RESULT)
363 (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\203a;\203\\\211\317\320\"\210\321\322\"\210)\202a\317\323\"\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 run-hook-with-args company-completion-finished-hook company-call-backend 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 (#$ . 57216)])
364 (defalias 'company-abort #[0 "\300\301!\207" [company-cancel abort] 2 nil nil])
365 #@15 
366
367 (fn RESULT)
368 (defalias 'company-finish #[257 "\300!\210\301!\207" [company--insert-candidate company-cancel] 3 (#$ . 58160)])
369 #@16 
370
371 (fn COMMAND)
372 (defalias 'company-keep #[257 "\2119\205\211\300N\207" [company-keep] 3 (#$ . 58295)])
373 (put 'company-keep 'byte-optimizer 'byte-compile-inline-expand)
374 (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])
375 (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])
376 (defalias 'company--idle-delay #[0 "\301\302\"\203    \303\207\207" [company-idle-delay memql (t 0 0.0) 0.01] 3])
377 #@102 List of commands after which idle completion is (still) disabled when
378 `company-begin-commands' is t.
379 (defvar company--begin-inhibit-commands '(company-abort company-complete-mouse company-complete company-complete-common company-complete-selection company-complete-number) (#$ . 59897))
380 (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])
381 (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)
382 (defvar company-search-string "" nil)
383 (make-variable-buffer-local 'company-search-string)
384 (defvar company-search-lighter '(" " (company-search-filtering "Filter" "Search") ": \"" company-search-string "\""))
385 #@66 Non-nil to filter the completion candidates by the search string
386 (defvar company-search-filtering nil (#$ . 61306))
387 (make-variable-buffer-local 'company-search-filtering)
388 (defvar company--search-old-selection 0 nil)
389 (make-variable-buffer-local 'company--search-old-selection)
390 (defvar company--search-old-changed nil nil)
391 (make-variable-buffer-local 'company--search-old-changed)
392 #@14 
393
394 (fn INPUT)
395 (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 (#$ . 61691)])
396 #@14 
397
398 (fn INPUT)
399 (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 (#$ . 61924)])
400 #@14 
401
402 (fn INPUT)
403 (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 (#$ . 62290)])
404 #@12 
405
406 (fn LST)
407 (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 (#$ . 62571)])
408 #@19 
409
410 (fn TEXT LINES)
411 (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 (#$ . 62973)])
412 (defalias 'company-search-keypad #[0 "\301!\211GSH\302 )\207" [last-command-event symbol-name company-search-printing-char] 3 nil nil])
413 (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])
414 #@11 
415
416 (fn SS)
417 (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 (#$ . 63689)])
418 #@12 
419
420 (fn NEW)
421 (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 (#$ . 64154)])
422 (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])
423 #@65 Repeat the incremental search in completion candidates forward.
424 (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 (#$ . 64578) nil])
425 #@67 Repeat the incremental search in completion candidates backwards.
426 (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 (#$ . 64926) nil])
427 #@36 Toggle `company-search-filtering'.
428 (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 (#$ . 65318) nil])
429 #@44 Abort searching the completion candidates.
430 (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 (#$ . 65606) nil])
431 (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])
432 (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])
433 #@68 Keymap used for incrementally searching the completion candidates.
434 (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) (#$ . 66385))
435 #@107 Non-nil if Company-Search mode is enabled.
436 Use the command `company-search-mode' to change this variable.
437 (defvar company-search-mode nil (#$ . 67874))
438 (make-variable-buffer-local 'company-search-mode)
439 #@151 Search mode for completion candidates.
440 Don't start this directly, use `company-search-candidates' or
441 `company-filter-candidates'.
442
443 (fn &optional ARG)
444 (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 (#$ . 68083) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
445 (defvar company-search-mode-hook nil)
446 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [company-search-mode-map company-search-mode-hook variable-documentation put "Hook run after entering or leaving `company-search-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode company-search-mode company-search-lighter boundp nil] 6)
447 (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])
448 #@676 Start searching the completion candidates incrementally.
449
450 \<company-search-map>Search can be controlled with the commands:
451 - `company-search-repeat-forward' (\[company-search-repeat-forward])
452 - `company-search-repeat-backward' (\[company-search-repeat-backward])
453 - `company-search-abort' (\[company-search-abort])
454 - `company-search-delete-char' (\[company-search-delete-char])
455
456 Regular characters are appended to the search string.
457
458 Customize `company-search-regexp-function' to change how the input
459 is interpreted when searching.
460
461 The command `company-search-toggle-filtering' (\[company-search-toggle-filtering])
462 uses the search string to filter the completion candidates.
463 (defalias 'company-search-candidates #[0 "\300\301!\207" [company-search-mode 1] 2 (#$ . 70072) nil])
464 #@68 Keymap used for incrementally searching the completion candidates.
465 (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) (#$ . 70855))
466 #@172 Start filtering the completion candidates incrementally.
467 This works the same way as `company-search-candidates' immediately
468 followed by `company-search-toggle-filtering'.
469 (defalias 'company-filter-candidates #[0 "\301\302!\210\303\211\207" [company-search-filtering company-search-mode 1 t] 2 (#$ . 71158) nil])
470 #@99 Select the next candidate in the list.
471
472 With ARG, move by that many elements.
473
474 (fn &optional ARG)
475 (defalias 'company-select-next #[256 "\301 \205\302\206 \303\\!\207" [company-selection company-manual-begin company-set-selection 1] 4 (#$ . 71477) "p"])
476 #@103 Select the previous candidate in the list.
477
478 With ARG, move by that many elements.
479
480 (fn &optional ARG)
481 (defalias 'company-select-previous #[256 "\300\203\n[\202 \301!\207" [company-select-next -1] 3 (#$ . 71742) "p"])
482 #@146 Select the next candidate if more than one, else abort
483 and invoke the normal binding.
484
485 With ARG, move by that many elements.
486
487 (fn &optional ARG)
488 (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 (#$ . 71970) "p"])
489 #@150 Select the previous candidate if more than one, else abort
490 and invoke the normal binding.
491
492 With ARG, move by that many elements.
493
494 (fn &optional ARG)
495 (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 (#$ . 72331) "p"])
496 #@40 Select the candidate one page further.
497 (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 (#$ . 72703) nil])
498 #@40 Select the candidate one page earlier.
499 (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 (#$ . 73013) nil])
500 #@33 
501
502 (fn EVENT-COL-ROW ROW HEIGHT)
503 (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 (#$ . 73326)])
504 #@14 
505
506 (fn EVENT)
507 (defalias 'company--event-col-row #[257 "\300\301!!\207" [company--posn-col-row event-start] 4 (#$ . 73623)])
508 #@55 Select the candidate picked by the mouse.
509
510 (fn EVENT)
511 (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 (#$ . 73753) "e"])
512 #@55 Insert the candidate picked by the mouse.
513
514 (fn EVENT)
515 (defalias 'company-complete-mouse #[257 "\300!\205\301 \207" [company-select-mouse company-complete-selection] 3 (#$ . 74351) "e"])
516 #@32 Insert the selected candidate.
517 (defalias 'company-complete-selection #[0 "\302 \205     8\303!\262\207" [company-selection company-candidates company-manual-begin company-finish] 3 (#$ . 74546) nil])
518 #@43 Insert the common part of all candidates.
519 (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 (#$ . 74753) nil])
520 #@126 Insert the common part of all candidates, or select the next one.
521
522 With ARG, move by that many elements.
523
524 (fn &optional ARG)
525 (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 (#$ . 75026) "p"])
526 #@65 Indent the current line or region, or complete the common part.
527 (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 (#$ . 75466) nil])
528 #@168 Insert selection if appropriate, or select the next candidate.
529 Insert selection if only preview is showing or only one candidate,
530 otherwise select the next candidate.
531 (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 (#$ . 75953) nil])
532 #@221 Insert the common part of all candidates or the current selection.
533 The first time this is called, the common part is inserted, the second
534 time, or when the selection has been changed, the selected candidate is
535 inserted.
536 (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 (#$ . 76398) nil])
537 #@266 Insert the Nth candidate visible in the tooltip.
538 To show the number next to the candidates in some backends, enable
539 `company-show-numbers'.  When called interactively, uses the last typed
540 character, stripping the modifiers.  That character must be a digit.
541
542 (fn N)
543 (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 (#$ . 76895) (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)])
544 (defconst company-space-strings-limit 100)
545 (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))
546 #@12 
547
548 (fn LEN)
549 (defalias 'company-space-string #[257 "\211W\203\n    H\207\302\303\"\207" [company-space-strings-limit company-space-strings make-string 32] 4 (#$ . 77915)])
550 #@30 
551
552 (fn STR FROM &optional TO)
553 (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 (#$ . 78092)])
554 (defvar company-last-metadata nil nil)
555 (make-variable-buffer-local 'company-last-metadata)
556 (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])
557 #@25 
558
559 (fn &optional STRING)
560 (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 (#$ . 78832)])
561 (defvar company--electric-saved-window-configuration nil)
562 #@61 List of Commands that won't break out of electric commands.
563 (defvar company--electric-commands '(scroll-other-window scroll-other-window-down mwheel-scroll) (#$ . 79089))
564 #@57 Restore window configuration (after electric commands).
565 (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 (#$ . 79266)])
566 #@19 
567
568 (fn &rest BODY)
569 (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 (#$ . 79567)]))
570 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company--electric-do lisp-indent-function 0 put edebug-form-spec t] 5)
571 (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])
572 #@62 Temporarily show the documentation buffer for the selection.
573 (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 (#$ . 80398) nil])
574 (put 'company-show-doc-buffer 'company-keep t)
575 #@73 Temporarily display a buffer showing the selected candidate in context.
576 (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 (#$ . 81215) nil])
577 (put 'company-show-location 'company-keep t)
578 (defvar company-callback nil nil)
579 (make-variable-buffer-local 'company-callback)
580 #@26 
581
582 (fn &optional IGNORED)
583 (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 (#$ . 82411)])
584 #@77 Start a completion at point using BACKEND.
585
586 (fn BACKEND &optional CALLBACK)
587 (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 (#$ . 82687) (byte-code "\301\302\303\304\305%\211\205\306!C\207" [obarray completing-read "Company backend: " functionp nil "company-" intern] 6)])
588 #@409 Start a completion at point.
589 CANDIDATES is the list of candidates to use and PREFIX-LENGTH is the length
590 of the prefix that already is in the buffer before point.
591 It defaults to 0.
592
593 CALLBACK is a function called with the selected result if the user
594 successfully completes the input.
595
596 Example: (company-begin-with '("foo" "foobar" "foobarbaz"))
597
598 (fn CANDIDATES &optional PREFIX-LENGTH REQUIRE-MATCH CALLBACK)
599 (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\267\202`\305\303!\232\205 `\301\206\306Z`{\207\307\300\"\207\302\207\310\207" vconcat vector [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (prefix 6 candidates 24 require-match 29)) marker-position 0 all-completions nil] 6 "\n\n(fn COMMAND &optional ARG &rest IGNORED)"] 15 (#$ . 83280)])
600 #@129 Get the Company version as string.
601
602 If SHOW-VERSION is non-nil, show the version in the echo area.
603
604 (fn &optional SHOW-VERSION)
605 (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 (#$ . 84202) (list t)])
606 #@59 Pop a buffer with information about completions at point.
607 (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::\203Z\3131S\311\314\315!\"\262\316\317\"\211\2620\202X\210\320\211\262\210)\321\322\323!!\210\307\324 \210\325\326\f \327\330*\"+%c\210\331\332 \333\261\210\334\335!\261\210\336c\210\337\335!\261\210\336c\210\340\261\210\336c\210\341\335!\261\210\336c\210\342\343!c\210\204\255\344c\210\211\320=\203\271\345c\210\202\337\212\211\211\203\335\211@\346\347@!\261\210\211A\203\326\350\347A!\261\210A\266\202\202\273\210)\351 \207" [company-backends major-mode company-backend buffer-read-only emacs-version system-configuration symbol-name nil t company-call-backend prefix (error) candidates company--prefix-str mapcar #[257 "\211\300\301\"B\207" [company-call-backend annotation] 5 "\n\n(fn C)"] error 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" "(error fetching)" "\n  " prin1-to-string " " special-mode emacs-build-time emacs-build-system] 13 (#$ . 84776) nil])
608 (defvar company-pseudo-tooltip-overlay nil nil)
609 (make-variable-buffer-local 'company-pseudo-tooltip-overlay)
610 (defvar company-tooltip-offset 0 nil)
611 (make-variable-buffer-local 'company-tooltip-offset)
612 #@34 
613
614 (fn SELECTION NUM-LINES LIMIT)
615 (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 (#$ . 86320)])
616 #@34 
617
618 (fn SELECTION NUM-LINES LIMIT)
619 (defalias 'company-tooltip--simple-update-offset #[771 "W\203\n\202\301\302#]\211\207" [company-tooltip-offset - -1] 8 (#$ . 86605)])
620 #@12 
621
622 (fn ARG)
623 (defalias 'company-round-tab #[257 "\211\\\245_\207" [tab-width] 3 (#$ . 86788)])
624 (put 'company-round-tab 'byte-optimizer 'byte-compile-inline-expand)
625 #@12 
626
627 (fn STR)
628 (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 (#$ . 86959)])
629 #@51 
630
631 (fn VALUE ANNOTATION WIDTH SELECTED LEFT RIGHT)
632 (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\313\f     G#\262\f\317\310 \320\321%\210W\203\303\317\322\203\277\323\202\300\324%\210     GZ\250\203\327\310BC\202\331\325\211\211\211:\203@\262\211A\262\242\262 \\\262 \\^\262W\203\326\322\203\327\202\330 %\210A\262\202\335\266\n !\211\331\230?\2050\332\fG#\262\203u\333 \211\203t\211@\211@A\211 \\\\GZW\203k\326^\322\203f\334\202g\335%\210\266A\266\202\2027\210\n\203\203\317\310 \322\336%\210\317\310 \322\337%\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 nil 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 (#$ . 87347)])
633 (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])
634 #@35 
635
636 (fn STR &optional ANNOTATION-P)
637 (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 (#$ . 88982)])
638 #@12 
639
640 (fn STR)
641 (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 (#$ . 89346)])
642 #@16 
643
644 (fn BEG END)
645 (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 (#$ . 89682)])
646 #@23 
647
648 (fn OLD NEW OFFSET)
649 (defalias 'company-modify-line #[771 "\300\301#\300G\\\"Q\207" [company-safe-substring 0] 9 (#$ . 90025)])
650 (defalias 'company--window-height #[0 "\300\301!\203 \302\301 !\207\303 \207" [fboundp window-screen-lines floor window-body-height] 2])
651 (put 'company--window-height 'byte-optimizer 'byte-compile-inline-expand)
652 (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])
653 #@48 
654
655 (fn LINES OLD COLUMN NL &optional ALIGN-TOP)
656 (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 (#$ . 90860)])
657 #@20 
658
659 (fn LINE OFFSET)
660 (defalias 'company--offset-line #[514 "\211\203 \203 \300O\207\207" [nil] 5 (#$ . 91683)])
661 #@24 
662
663 (fn SELECTION LIMIT)
664 (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\267\202h\315      #\262\202h    \310V\203P\316\317    \"\262\320         #\262\310V\205f\316\317\"\211\262\262\n    Z\262 GG]\262     \233\262        ^\262    \262\f\321_Z\262\211\203\226S\262\310\211W\203\357\211\211A\262    \242\322\323\"\324\325!!\262\211\203\306\324!\262 \203\306\326\327\307#\262B    B\262    G\203\336 \203\336GT\202\340G\\ ]\262 \266\211T\262\202\231\266 ^!\"\203\321\\\202]^\262\237\"\203\310\202\330\307\203%\331\n\"B\262 \310\211W\203\205\211\211A\262\242\211@A\332\f!    \333W\203[\211\321Z\262    T\262\n\316\334\335\f\333\"\"P\262\336    \232\332\f!&\f\205v\337\"P    B\262    \266\211T\262\202(\266\203\224\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scrollbar 56 lines 68)) 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 (#$ . 91805)])
665 #@28 
666
667 (fn OFFSET LIMIT LENGTH)
668 (defalias 'company--scrollbar-bounds #[771 "\211V\205!\300\301!_\"\302\301!_\"\303\304#B\266\203\207" [ceiling float floor + -1] 9 (#$ . 93461)])
669 #@17 
670
671 (fn I BOUNDS)
672 (defalias 'company--scrollbar #[514 "\300\301\302@Y\203AX\203\303\202\304#\207" [propertize " " face company-scrollbar-fg company-scrollbar-bg] 7 (#$ . 93653)])
673 #@19 
674
675 (fn TEXT WIDTH)
676 (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 (#$ . 93846)])
677 #@117 Calculate the appropriate tooltip height.
678 Returns a negative number if the tooltip should be displayed above point.
679 (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 (#$ . 94076)])
680 #@29 
681
682 (fn ROW COLUMN SELECTION)
683 (defalias 'company-pseudo-tooltip-show #[771 "\301 \210\302 \303\304W\203\305\306#\262\307\262\303\211\211\211\211\212\310\n!\nW\262`\262\212\310\n\311    !\\!\210`)\262\312\303\307$\262\313\314\315\"\"    F\262)\316\317#\210\320\311    !\"\316\321\322\323##\210\316\324\325@!#\266\316\326 #\210\316\327    #\266\205\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 (#$ . 94513)])
684 #@26 
685
686 (fn POS COLUMN-OFFSET)
687 (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 (#$ . 95273)])
688 #@18 
689
690 (fn SELECTION)
691 (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 (#$ . 95496)])
692 (defalias 'company-pseudo-tooltip-hide #[0 "\205 \301!\210\302\211\207" [company-pseudo-tooltip-overlay delete-overlay nil] 2])
693 (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])
694 (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])
695 (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])
696 #@83 `company-mode' frontend similar to a tooltip but based on overlays.
697
698 (fn COMMAND)
699 (defalias 'company-pseudo-tooltip-frontend #[257 "\211\304\267\202U\305 \207\306!\2034\307\310\"\311 _\312Y\205/\313!\313!Y\205/\314 \307\315\"\232\266\203\204A\316`    G\"\210\317\315\314 #\210\320 \207\321 \210\312\211\207\306!\205V\322 !\207\323\207" [company-pseudo-tooltip-overlay company-prefix company-tooltip-offset company-selection #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pre-command 6 post-command 9 hide 68 update 75)) company-pseudo-tooltip-hide-temporarily 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 company-pseudo-tooltip-hide company-pseudo-tooltip-edit nil] 8 (#$ . 96964)])
700 #@87 `company-pseudo-tooltip-frontend', but not shown for single candidates.
701
702 (fn COMMAND)
703 (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 (#$ . 97857)])
704 #@129 `compandy-pseudo-tooltip-frontend', but shown after a delay.
705 Delay is determined by `company-tooltip-idle-delay'.
706
707 (fn COMMAND)
708 (defalias 'company-pseudo-tooltip-unless-just-one-frontend-with-delay #[257 "\211\304>\203\203\305!\210\306\211\307\267\202>\204 \310    !\2035\310\n!\204*\311!\207\306\312\313!\210)\312\314!\207\315 \306\316\314$\211\207\311!\207" [company-tooltip-timer company-pseudo-tooltip-overlay company-preview-overlay company-tooltip-idle-delay (pre-command hide) cancel-timer nil #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (post-command 22)) overlayp company-pseudo-tooltip-unless-just-one-frontend company-call-frontends pre-command post-command run-with-timer company-pseudo-tooltip-unless-just-one-frontend-with-delay] 6 (#$ . 98142)])
709 (defvar company-preview-overlay nil nil)
710 (make-variable-buffer-local 'company-preview-overlay)
711 #@23 
712
713 (fn POS COMPLETION)
714 (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 (#$ . 99059)])
715 (defalias 'company-preview-hide #[0 "\205 \301!\210\302\211\207" [company-preview-overlay delete-overlay nil] 2])
716 #@89 `company-mode' frontend showing the selection as if it had been inserted.
717
718 (fn COMMAND)
719 (defalias 'company-preview-frontend #[257 "\211\302\267\202\303 \207\304`    8\"\207\303 \207\305\207" [company-selection company-candidates #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pre-command 6 post-command 9 hide 16)) company-preview-hide company-preview-show-at-point nil] 5 (#$ . 100144)])
720 #@81 `company-preview-frontend', but only shown for single candidates.
721
722 (fn COMMAND)
723 (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 (#$ . 100578)])
724 (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])
725 #@41 Returns whether the tooltip is visible.
726 (defalias 'company-tooltip-visible-p #[0 "\301!\205 \302\303\"?\207" [company-pseudo-tooltip-overlay overlayp overlay-get invisible] 3 (#$ . 101044)])
727 #@60 Returns whether the preview of common can be showed or not
728 (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 (#$ . 101244)])
729 #@78 `company-mode' frontend preview the common part of candidates.
730
731 (fn COMMAND)
732 (defalias 'company-preview-common-frontend #[257 "\211\301=\203 \302 \205\211\303\267\202\304 \207\305`\"\207\304 \207\306\207" [company-common post-command company-preview-common--show-p #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pre-command 17 post-command 20 hide 25)) company-preview-hide company-preview-show-at-point nil] 4 (#$ . 101508)])
733 (defvar company-echo-last-msg nil nil)
734 (make-variable-buffer-local 'company-echo-last-msg)
735 (defvar company-echo-timer nil)
736 (defvar company-echo-delay 0.01)
737 (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)
738 #@25 
739
740 (fn &optional GETTER)
741 (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 (#$ . 102425)])
742 #@25 
743
744 (fn &optional GETTER)
745 (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 (#$ . 102683)])
746 #@24 
747
748 (fn &optional UNSET)
749 (defalias 'company-echo-cancel #[256 "\203\301!\210\211\205\302\211\207" [company-echo-timer cancel-timer nil] 3 (#$ . 102890)])
750 #@25 
751
752 (fn &optional GETTER)
753 (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 (#$ . 103055)])
754 (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])
755 (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])
756 (defalias 'company-echo-hide #[0 "\301\232?\205 \301\302 \207" [company-echo-last-msg "" company-echo-show] 2])
757 #@80 `company-mode' frontend showing the candidates in the echo area.
758
759 (fn COMMAND)
760 (defalias 'company-echo-frontend #[257 "\211\300\267\202 \301\302!\207\303 \207\304\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (post-command 6 hide 10)) company-echo-show-soon company-echo-format company-echo-hide nil] 3 (#$ . 104565)])
761 #@80 `company-mode' frontend showing the candidates in the echo area.
762
763 (fn COMMAND)
764 (defalias 'company-echo-strip-common-frontend #[257 "\211\300\267\202 \301\302!\207\303 \207\304\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (post-command 6 hide 10)) company-echo-show-soon company-echo-strip-common-format company-echo-hide nil] 3 (#$ . 104936)])
765 #@83 `company-mode' frontend showing the documentation in the echo area.
766
767 (fn COMMAND)
768 (defalias 'company-echo-metadata-frontend #[257 "\211\300\267\202 \301\302!\207\303 \207\304\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (post-command 6 hide 10)) company-echo-show-when-idle company-fetch-metadata company-echo-hide nil] 3 (#$ . 105333)])
769 (provide 'company)