;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\302\305!\210\306\307!\204\310\307\311\"\210\312\313\314\315\316\317\316\320\316\321& \210\312\322\314\323\316\313\316\324&\210\325\326\327\330#\210\325\331\332\333#\210\325\334\335\336#\210\325\337\340\341#\210\325\342\343\344#\210\325\345\346\347#\210\325\350\351\352#\210\325\353\354\355#\210\325\356\357\360#\210\325\361\362\363#\210\325\364\365\366#\210\325\367\370\371#\210\325\372\373\374#\210\325\375\376\377#\210\325\201@\314\201A#\210\325\201B\201C\201D#\210\201E \"\313\241\207" [load-file-name custom-current-group-alist 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 company-faces "Faces used by Company." faces 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")) (t (: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." assoc] 10) #@23 (fn VARIABLE VALUE) (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 (#$ . 3878)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\315%\210\300\316\302\303\317DD\320\310\315%\210\300\321\302\303\322DD\323\310\315\324\325&\210\300\326\302\303\327DD\330\310\315\324\331&\210\300\332\302\303\333DD\334\310\315%\210\300\335\302\303\336DD\337\310\340%\210\300\341\302\303\342DD\343\310\344\324\345&\210\300\346\302\303\347DD\350\310\344\324\351&\207" [custom-declare-variable company-frontends funcall function #[0 "\300\207" [(company-pseudo-tooltip-unless-just-one-frontend company-preview-if-just-one-frontend company-echo-metadata-frontend)] 1] "The list of active frontends (visualizations).\nEach frontend is a function that takes one argument. It is called with\none of the following arguments:\n\n`show': When the visualization should start.\n\n`hide': When the visualization should end.\n\n`update': When the data has been updated.\n\n`pre-command': Before every command that is executed while the\nvisualization is active.\n\n`post-command': After every command that is executed while the\nvisualization is active.\n\nThe visualized data is stored in `company-prefix', `company-candidates',\n`company-common', `company-selection', `company-point' and\n`company-search-string'." :set company-frontends-set :type (repeat (choice (const :tag "echo" company-echo-frontend) (const :tag "echo, strip common" company-echo-strip-common-frontend) (const :tag "show echo meta-data in echo" company-echo-metadata-frontend) (const :tag "pseudo tooltip" company-pseudo-tooltip-frontend) (const :tag "pseudo tooltip, multiple only" company-pseudo-tooltip-unless-just-one-frontend) (const :tag "pseudo tooltip, multiple only, delayed" company-pseudo-tooltip-unless-just-one-frontend-with-delay) (const :tag "preview" company-preview-frontend) (const :tag "preview, unique only" company-preview-if-just-one-frontend) (const :tag "preview, common" company-preview-common-frontend) (function :tag "custom function" nil))) company-tooltip-limit #[0 "\300\207" [10] 1] "The maximum number of candidates in the tooltip." integer company-tooltip-minimum #[0 "\300\207" [6] 1] "The minimum height of the tooltip.\nIf this many lines are not available, prefer to display the tooltip above." company-tooltip-minimum-width #[0 "\300\207" [0] 1] "The minimum width of the tooltip's inner area.\nThis doesn't include the margins and the scroll bar." :package-version (company . "0.8.0") company-tooltip-maximum-width #[0 "\207" [most-positive-fixnum] 1] "The maximum width of the tooltip's inner area.\nThis doesn't include the margins and the scroll bar." (company . "0.9.5") company-tooltip-margin #[0 "\300\207" [1] 1] "Width of margin columns to show around the toolip." company-tooltip-offset-display #[0 "\300\207" [scrollbar] 1] "Method using which the tooltip displays scrolling position.\n`scrollbar' means draw a scrollbar to the right of the items.\n`lines' means wrap items in lines with \"before\" and \"after\" counters." (choice (const :tag "Scrollbar" scrollbar) (const :tag "Two lines" lines)) company-tooltip-align-annotations #[0 "\300\207" [nil] 1] "When non-nil, align annotations to the right tooltip border." boolean (company . "0.7.1") company-tooltip-flip-when-above #[0 "\300\207" [nil] 1] "Whether to flip the tooltip when it's above the current line." (company . "0.8.1")] 8) (defvar company-safe-backends '((company-abbrev . "Abbrev") (company-bbdb . "BBDB") (company-capf . "completion-at-point-functions") (company-clang . "Clang") (company-cmake . "CMake") (company-css . "CSS") (company-dabbrev . "dabbrev for plain text") (company-dabbrev-code . "dabbrev for code") (company-eclim . "Eclim (an Eclipse interface)") (company-elisp . "Emacs Lisp") (company-etags . "etags") (company-files . "Files") (company-gtags . "GNU Global") (company-ispell . "Ispell") (company-keywords . "Programming language keywords") (company-nxml . "nxml") (company-oddmuse . "Oddmuse") (company-semantic . "Semantic") (company-tempo . "Tempo templates") (company-xcode . "Xcode"))) (put 'company-safe-backends 'risky-local-variable t) #@17 (fn BACKENDS) (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 (#$ . 8908)]) (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\335%\210\301\347\303\304\350DD\351\307\352%\210\301\353\303\304\354DD\355\307\356\357\360&\210\301\361\303\304\362DD\363\307\364%\210\301\365\303\304\366DD\367\307\370%\210\301\371\303\304\372DD\373\307\374%\210\301\375\303\304\376DD\377\307\201@%\210\301\201A\303\304\201BDD\201C\307\201D%\210\301\201E\303\304\201FDD\201G\307\201H\357\201I&\210\301\201J\303\304\201KDD\201L\307\201M%\210\301\201N\303\304\201ODD\201P\307\201Q%\210\301\201R\303\304\201SDD\201T\307\304%\210\301\201U\303\304\201VDD\201W\307\201X%\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 (using that value will indicate that the returned set of\ncompletions is often incomplete, so this behavior will not be useful).\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-after-completion-hook #[0 "\300\207" [nil] 1] "Hook run at the end of completion, successful or not.\nThe hook is called with one argument which is either a string or a symbol." 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\ntriggers 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) (function :tag "Predicate function") (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 "left" 'left) (const :tag "on" 't)) company-show-numbers-function #[0 "\300\207" [company--show-numbers] 1] "Function called to get quick-access numbers for the first ten candidates.\n\nThe function receives the candidate number (starting from 1) and should\nreturn a string prefixed with one space." company-selection-wrap-around #[0 "\300\207" [nil] 1] "If enabled, selecting item before first or after last wraps around." (choice (const :tag "off" nil) (const :tag "on" t))] 22) #@105 Pause between checks to see if the value's been set when turning an asynchronous call into synchronous. (defvar company-async-wait 0.03 (#$ . 23499)) #@67 Maximum wait time for a value to be set during asynchronous call. (defvar company-async-timeout 2 (#$ . 23655)) #@32 Keymap used by `company-mode'. (defvar company-mode-map (make-sparse-keymap) (#$ . 23773)) #@53 Keymap that is enabled during an active completion. (defvar company-active-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\322#\210\301\324\325#\210\301\326\327#\210\301\330\322#\210\301\331\322#\210\301\332\333#\210\301\334\333#\210\301\335\336#\210\301\337\336#\210\301\340\341#\210\301\342\341#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\351\352\211W\203\250\211\301\353\354\355\"!\356#\266\211T\262\202\216\266\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) (#$ . 23870)) (defvar company--disabled-backends nil) #@16 (fn BACKEND) (defalias 'company-init-backend #[257 "\2119\203\301!\204\3021\303\304\305#0\210\202\210\2119\203W\3061.\211\307!\210\310\311\305#0\207\310\311\312#\210>\204B\313\314\315!#\210\316\"\203P\266\202U\211B\210\304\207\317!\203_\305\207\211\211\205w\211@\320!\204p\321!\210A\266\202\202`\207" [company--disabled-backends fboundp (error) require nil t (error) init put company-init failed message "Company backend '%s' could not be initialized:\n%s" error-message-string memql functionp keywordp company-init-backend] 7 (#$ . 25205)]) #@16 (fn BACKEND) (defalias 'company--maybe-init-backend #[257 "\2119?\206\211\300N\301=\206\211\300N?\205\302!\207" [company-init t company-init-backend] 3 (#$ . 25791)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable company-lighter-base funcall function #[0 "\300\207" [#1="company"] 1 #1#] "Base string to use for the `company-mode' lighter." :type string :package-version (company . "0.8.10")] 8) #@110 Mode line lighter for Company. The value of this variable is a mode line template as in `mode-line-format'. (defvar company-lighter '(" " (company-candidates (:eval (if (consp company-backend) (company--group-lighter (nth company-selection company-candidates) company-lighter-base) (symbol-name company-backend))) company-lighter-base)) (#$ . 26244)) (put 'company-lighter 'risky-local-variable t) #@93 Non-nil if Company mode is enabled. Use the command `company-mode' to change this variable. (defvar company-mode nil (#$ . 26649)) (make-variable-buffer-local 'company-mode) #@1616 "complete anything"; is an in-buffer completion framework. Completion starts automatically, depending on the values `company-idle-delay' and `company-minimum-prefix-length'. This is a minor mode. If called interactively, toggle the `Company mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `company-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. Completion can be controlled with the commands: `company-complete-common', `company-complete-selection', `company-complete', `company-select-next', `company-select-previous'. If these commands are called before `company-idle-delay', completion will also start. Completions can be searched with `company-search-candidates' or `company-filter-candidates'. These can be used while completion is inactive, as well. The completion data is retrieved using `company-backends' and displayed using `company-frontends'. If you want to start a specific backend, call it interactively or use `company-begin-backend'. By default, the completions list is sorted alphabetically, unless the backend chooses otherwise, or `company-transformers' changes it later. regular keymap (`company-mode-map'): \{company-mode-map} keymap during active completions (`company-active-map'): \{company-active-map} (fn &optional ARG) (defalias 'company-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203R\312\313\314\306\307$\210\312\315\316\306\307$\210\312\317\320\306\307$\210\321\322\n\"\210\202k\323\313\314\307#\210\323\315\316\307#\210\323\317\320\307#\210\324 \210\325\326!\210\327\330\203u\331\202v\332\"\210\333\334!\203\230\303 \203\212\211\303 \232\203\230\335\336\203\224\337\202\225\340\341#\210\210\342 \210\207" [company-mode local-minor-modes company-backends current-message toggle 1 nil t boundp delq add-hook pre-command-hook company-pre-command post-command-hook company-post-command yas-keymap-disable-hook company--active-p 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 message "Company mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 26831) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar company-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315\316\317\320DD\321\322\323%\210\303\324\325\326#\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.)" custom-type hook standard-value nil add-minor-mode company-mode company-lighter 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")))) global-company-mode globalized-minor-mode t] 6) (defvar company-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \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 :type boolean] 10) #@343 Toggle Company mode in all buffers. With prefix ARG, enable Global Company mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Company mode is enabled in all buffers where `company-mode-on' would do it. See `company-mode' for more information on Company mode. (fn &optional ARG) (defalias 'global-company-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210 \203s\325 \210\202{\n\203{\302\326!\210)A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\271\335\301!\210\303 \203\251\211\303 \232\203\271\336\337\306\301!\203\265\340\202\266\341\342#\210\210\343 \210\306\301!\207" [global-minor-modes global-company-mode company-mode current-message set-default toggle default-value 1 nil t boundp delq 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] 6 (#$ . 31558) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-company-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode global-company-mode boundp] 6) (defvar company-mode-set-explicitly nil nil) (make-variable-buffer-local 'company-mode-set-explicitly) (defalias 'company-mode-set-explicitly #[0 "\301\211\207" [company-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put company-mode-set-explicitly definition-name global-company-mode add-hook company-mode-hook] 4) (defvar global-company-mode-buffers nil) (defalias 'global-company-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\310 \210\202/\310 \210 )A\266\202\202\207" [global-company-mode-buffers company-mode-set-explicitly company-mode-major-mode major-mode company-mode nil buffer-live-p -1 company-mode-on] 5]) (put 'global-company-mode-enable-in-buffers 'definition-name 'global-company-mode) (defalias 'global-company-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-company-mode-enable-in-buffers remove-hook post-command-hook global-company-mode-check-buffers] 3]) (put 'global-company-mode-check-buffers 'definition-name 'global-company-mode) (defalias 'global-company-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-company-mode-buffers add-hook post-command-hook global-company-mode-check-buffers] 3]) (put 'global-company-mode-cmhh 'definition-name 'global-company-mode) (defalias 'company-mode-on #[0 "\206\n\303 \304H\305=?\205, \306=\204) \242\307=\203#\n A>?\202&\n >\205,\310\311!\207" [noninteractive company-global-modes major-mode buffer-name 0 32 t not company-mode 1] 2]) (defalias 'company-assert-enabled #[0 "?\205 \301 \210\302\303!\207" [company-mode company-uninstall-map user-error "Company not enabled"] 2]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-assert-enabled speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defvar company-my-keymap nil nil) (make-variable-buffer-local 'company-my-keymap) (defvar company-emulation-alist '((t))) #@15 (fn KEYMAP) (defalias 'company-enable-overriding-keymap #[257 "\301 \210\211\211\207" [company-my-keymap company-uninstall-map] 3 (#$ . 35642)]) (defalias 'company-ensure-emulation-alist #[0 "@\301=?\205\301\302\301\"B\211\207" [emulation-mode-map-alists company-emulation-alist delq] 4]) (defalias 'company-install-map #[0 "@A\206 ??\205\211@ \241\262\207" [company-emulation-alist company-my-keymap] 3]) (defalias 'company-uninstall-map #[0 "\211@\301\241\207" [company-emulation-alist nil] 3]) #@71 Checks if the keys are part of company's overriding keymap (fn KEYS) (defalias 'company--company-command-p #[257 "\211\301\232\206\f\302\303\"!\207" [company-my-keymap [company-dummy-event] commandp lookup-key] 5 (#$ . 36161)]) (defalias 'company-ignore #[0 "\211\207" [last-command this-command] 2 nil nil]) (global-set-key [company-dummy-event] 'company-ignore) (defalias 'company-input-noop #[0 "\301B\211\207" [unread-command-events company-dummy-event] 2]) #@13 (fn POSN) (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 (#$ . 36637)]) #@22 (fn &optional POS) (defalias 'company--col-row #[256 "\300\301!!\207" [company--posn-col-row posn-at-point] 4 (#$ . 36989)]) #@22 (fn &optional POS) (defalias 'company--row #[256 "\300!A\207" [company--col-row] 3 (#$ . 37123)]) (defvar company-backend nil nil) (make-variable-buffer-local 'company-backend) #@42 (fn REGEXP &optional EXPRESSION LIMIT) (defalias 'company-grab #[769 "\300\"\205\301\206 \302!\206\303\207" [looking-back match-string-no-properties 0 ""] 6 (#$ . 37309)]) #@247 Return a match string for REGEXP if it matches text before point. If EXPRESSION is non-nil, return the match string for the respective parenthesized expression in REGEXP. Matching is limited to the current line. (fn REGEXP &optional EXPRESSION) (defalias 'company-grab-line #[513 "\301\302\303 #)\207" [inhibit-field-text-motion t company-grab point-at-bol] 6 (#$ . 37498)]) #@116 If point is at the end of a symbol, return it. Otherwise, if point is not inside a symbol, return an empty string. (defalias 'company-grab-symbol #[0 "\300\301!\203`\212\302\303!\210`){\207\304f\205\304fz\305>?\205\306\207" [looking-at "\\_>" skip-syntax-backward "w_" nil (119 95) ""] 3 (#$ . 37884)]) #@114 If point is at the end of a word, return it. Otherwise, if point is not inside a symbol, return an empty string. (defalias 'company-grab-word #[0 "\300\301!\203`\212\302\303!\210`){\207\304f\205\304fz\305=?\205\306\207" [looking-at "\\>" skip-syntax-backward "w" nil 119 ""] 3 (#$ . 38200)]) #@224 Return a string SYMBOL or a cons (SYMBOL . t). SYMBOL is as returned by `company-grab-symbol'. If the text before point matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons. (fn IDLE-BEGIN-AFTER-RE &optional MAX-LEN) (defalias 'company-grab-symbol-cons #[513 "\300 \211\205&\212\211G[u\210\301\203`Z\202\302 \"\203$\211\303B\202%\211)\207" [company-grab-symbol looking-back line-beginning-position t] 7 (#$ . 38505)]) #@56 Return non-nil if point is within a string or comment. (defalias 'company-in-string-or-comment #[0 "\300 \301\233\211\262@\206\211A\211\262@\206\3018\207" [syntax-ppss 3] 3 (#$ . 38945)]) #@19 (fn &rest ARGS) (defalias 'company-call-backend #[128 "\301\302#\207" [company-backend company--force-sync company-call-backend-raw] 5 (#$ . 39147)]) #@25 (fn FUN ARGS BACKEND) (defalias 'company--force-sync #[771 "\302\"\211\242\303=\204\f\207\304C\305 A\306\307\"!\210\242\304=\2039\305 ZV\2032\310\311#\210\202\312 !\210\202\242\207" [company-async-timeout company-async-wait apply :async trash time-to-seconds make-closure #[257 "\300\240\207" [V0] 3 "\n\n(fn RESULT)"] error "Company: backend %s async timeout with args %s" sleep-for] 10 (#$ . 39307)]) #@19 (fn &rest ARGS) (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 (#$ . 39737)]) #@36 (fn BACKENDS COMMAND &rest ARGS) (defalias 'company--multi-backend-adapter #[642 "\300\211:\203$@\262\301!\204\302!\203B\262A\262\202\211\237\266\203\303>\304=\203:\305\306>G\"\262\307\301\"\262\310\267\202|\311@#\207\207\211?\207\300\3122{\211\205x\211@\313B#\211\262\203q\314\312\"\210A\266\202\202W\2620\207@\211G\315V\205\230\316\315\317#\206\217@\320#\262\207" [nil keywordp company--maybe-init-backend :separate prefix butlast :with cl-delete-if #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (candidates 70 sorted 77 duplicates 78 require-match 81 no-cache 81 ignore-case 81 prefix 81)) company--multi-backend-adapter-candidates --cl-block-nil-- company--force-sync throw 0 get-text-property company-backend apply] 12 (#$ . 40143)]) #@33 (fn BACKENDS PREFIX SEPARATE) (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 (#$ . 40986)]) #@29 (fn BACKEND SEPARATE TAG) (defalias 'company--multi-candidates-mapper #[771 "\300\301$\207" [make-closure #[257 "\301\203\f\300\304!\262)\302\203\305\306\307\300\"\"\262\207" [V0 V1 V2 company-backend company--preprocess-candidates mapcar make-closure #[257 "\301\302\300#\207" [V0 propertize company-backend] 5 "\n\n(fn STR)"]] 5 "\n\n(fn CANDIDATES)"]] 8 (#$ . 41427)]) #@21 (fn PAIRS MERGER) (defalias 'company--merge-async #[514 "\300\211\211:\203#@\262@\242\301=\211\262?\211\262\203#A\262\202\266\203\211\204S\300\211\211:\203M@\262\211A\262\242\262!B\262A\262\202.\211\237\266\204!\207\301\302\303#B\207" [nil :async make-closure #[257 "\302C\303\304\300\"C\305\306\301%\300\211\205N\211@\302\242B\240\210\242@A\305\307&\242\310=\204@\211!\266\202GA\211!\266A\266\202\202\207" [V0 V1 nil mapcar car make-closure #[0 "\303\242?\205 \301\300\302\242\237!!\207" [V0 V1 V2 V3] 3] #[257 "\300\305\303\300\242\"\240\210\302\304!\240\210\301 \207" [V0 V1 V2 V3 V4 delq] 5 "\n\n(fn RES)"] :async] 16 "\n\n(fn CALLBACK)"]] 10 (#$ . 41819)]) #@15 (fn PREFIX) (defalias 'company--prefix-str #[257 "\211\242\206\211\207" [] 2 (#$ . 42555)]) (defvar company-prefix nil nil) (make-variable-buffer-local 'company-prefix) (defvar company-candidates nil nil) (make-variable-buffer-local 'company-candidates) (defvar company-candidates-length nil nil) (make-variable-buffer-local 'company-candidates-length) (defvar company-candidates-cache nil nil) (make-variable-buffer-local 'company-candidates-cache) (defvar company-candidates-predicate nil nil) (make-variable-buffer-local 'company-candidates-predicate) (defvar company-common nil nil) (make-variable-buffer-local 'company-common) (defvar company-selection 0 nil) (make-variable-buffer-local 'company-selection) (defvar company-selection-changed nil nil) (make-variable-buffer-local 'company-selection-changed) #@43 Non-nil, if manual completion took place. (defvar company--manual-action nil (#$ . 43377)) (make-variable-buffer-local 'company--manual-action) (defvar company--manual-prefix nil nil) (make-variable-buffer-local 'company--manual-prefix) #@104 Non-nil when current candidate is being inserted automatically. Controlled by `company-auto-complete'. (defvar company--auto-completion nil (#$ . 43621)) (defvar company--point-max nil nil) (make-variable-buffer-local 'company--point-max) (defvar company-point nil nil) (make-variable-buffer-local 'company-point) (defvar company-timer nil) (defvar company-tooltip-timer nil) #@12 (fn STR) (defalias 'company-strip-prefix #[257 "\211G\301O\207" [company-prefix nil] 4 (#$ . 44003)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-strip-prefix speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@18 (fn CANDIDATE) (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 (#$ . 44260)]) #@182 Evaluate BODY with CANDIDATE temporarily inserted. This is a tool for backends that need candidates inserted before they can retrieve meta-data for them. (fn CANDIDATE &rest BODY) (defalias 'company-with-candidate-inserted '(macro . #[385 "\300\301\302D\303\304B\305BBF\207" [let ((inhibit-modification-hooks t) (inhibit-point-motion-hooks t) (modified-p (buffer-modified-p))) company--insert-candidate unwind-protect progn ((delete-region company-point (point)) (set-buffer-modified-p modified-p))] 8 (#$ . 44543)])) (byte-code "\300\301\302\303#\300\207" [function-put company-with-candidate-inserted lisp-indent-function 1] 4) #@66 Return whether explicit completion action was taken by the user. (defalias 'company-explicit-action-p #[0 "\206 \207" [company--manual-action company-selection-changed] 1 (#$ . 45182)]) #@18 (fn CANDIDATE) (defalias 'company-reformat #[257 "\301\302!\303=\203\304!\211G\305OP\207\207" [company-prefix company-call-backend ignore-case keep-prefix company--clean-string nil] 6 (#$ . 45377)]) (defalias 'company--should-complete #[0 "\305=\205& \206 \n?\205&\306 \307\232\204 \310\311\306 !!?\205& \205%\f?\207" [company-idle-delay buffer-read-only overriding-local-map transient-mark-mode mark-active now this-command-keys-vector [] keymapp key-binding] 3]) (defalias 'company--should-continue #[0 "\304=\2069 \304=\2069 @\305=\203\n A>?\207\n>\2069\n >\2069\n9\2059\306\307\n!\310\304\311#)\266\203\207" [company-begin-commands company-continue-commands this-command inhibit-changing-match-data t not "\\`company-" symbol-name nil string-match] 7]) #@16 (fn COMMAND) (defalias 'company-call-frontends #[257 "\211\205%\211@\3011\211!0\210\202\302\303\304!$\266A\266\202\202\207" [company-frontends (debug error) error "Company: frontend %s error \"%s\" on command %s" error-message-string] 9 (#$ . 46167)]) #@41 (fn SELECTION &optional FORCE-UPDATE) (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 (#$ . 46442)]) #@23 (fn CANDIDATE BASE) (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 (#$ . 46766)]) #@19 (fn CANDIDATES) (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 (#$ . 47128)]) #@27 (fn PREFIX IGNORE-CASE) (defalias 'company-calculate-candidates #[514 "\302\"A\211\204]\203PG\303\3042JT\305\211W\205G\211\302 \305ZO\"A\211\262\203?\306 \"\262\307\304\310\"\210\210\211T\262\202\266\2020)\266\203\204]\311\312!!\262BB\313!\207" [company-candidates-cache completion-ignore-case assoc nil --cl-block-nil-- 0 all-completions throw t company--preprocess-candidates company--fetch-candidates company--postprocess-candidates] 14 (#$ . 47710)]) #@38 (fn CANDIDATES PREFIX IGNORE-CASE) (defalias 'company--unique-match-p #[771 "\205A?\205\300@\301\211\301\211&\302=\207" [compare-strings nil t] 11 (#$ . 48207)]) #@15 (fn PREFIX) (defalias 'company--fetch-candidates #[257 "\305 ?\306\n\204\307 \203\310\311\"\202\312\311\"\211@\313=\204%\211\202s\314CA\315\316\"!\210\317 \203G\211\242\314=\203U\320 \204U\321 !\210\2024\211\242\314=\203U\322\323\306\"\204G\f@\324\235\203e\f\210\fA\211\202V\211\242:\205m\211\242\325\240\210\262*\207" [non-essential inhibit-redisplay company-selection-changed company-async-wait unread-command-events company-explicit-action-p t company-require-match-p company-call-backend candidates company-call-backend-raw :async none make-closure #[257 "\300\242\302=\203 \303 B\300\240\207" [V0 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] 8 (#$ . 48388)]) (defalias 'company--flyspell-workaround-p #[0 "\302\300!\205\205\303 \304\"\207" [flyspell-mode emacs-version boundp version< "27"] 3]) #@19 (fn CANDIDATES) (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 (#$ . 49359)]) #@19 (fn CANDIDATES) (defalias 'company--postprocess-candidates #[257 "\204 \203 \302!\262\203\303\"\262\304!\207" [company-candidates-predicate company-transformers copy-sequence cl-delete-if-not company--transform-candidates] 4 (#$ . 49691)]) #@19 (fn CANDIDATES) (defalias 'company--strip-duplicates #[257 "\211\300\205S\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\203KA\262\202 \262\241\210\202\207" [unk nil company-call-backend annotation t] 9 (#$ . 49952)]) #@19 (fn CANDIDATES) (defalias 'company--transform-candidates #[257 "\211\211\203\211@\211!\262A\266\202\202\210\207" [company-transformers] 6 (#$ . 50283)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable company-occurrence-weight-function funcall function #[0 "\300\207" [company-occurrence-prefer-closest-above] 1] "Function to weigh matches in `company-sort-by-occurrence'.\nIt's called with three arguments: cursor position, the beginning and the\nend of the match." :type (choice (const :tag "First above point, then below point" company-occurrence-prefer-closest-above) (const :tag "Prefer closest in any direction" company-occurrence-prefer-any-closest))] 6) #@97 Give priority to the matches above point, then those below point. (fn POS MATCH-BEG MATCH-END) (defalias 'company-occurrence-prefer-closest-above #[771 "W\203\nZ\207\300 Z\207" [window-start] 5 (#$ . 50991)]) #@82 Give priority to the matches closest to the point. (fn POS MATCH-BEG MATCH-END) (defalias 'company-occurrence-prefer-any-closest #[771 "\300Z!\207" [abs] 6 (#$ . 51213)]) #@311 Sort CANDIDATES according to their occurrences. Searches for each in the currently visible part of the current buffer and prioritizes the matches according to `company-occurrence-weight-function'. The rest of the list is appended unchanged. Keywords and function definition names are ignored. (fn CANDIDATES) (defalias 'company-sort-by-occurrence #[257 "\300 \301 `\302C\212\303\304\305%\")\306\307\310\242\311\"\"\244\207" [window-start window-end nil cl-delete-if make-closure #[257 "\3052-\300b\210\306\301\307#\205,`\302=\204\310 \311\312\"\216\313 )\262\203\314\305\307\"\210\2020\205@\303\f\302\315\224\315\225#B\303\242B\240\210\307\207" [V0 V1 V2 V3 company-occurrence-weight-function done search-forward t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] company--occurrence-predicate throw 0] 7 "\n\n(fn CANDIDATE)"] mapcar car sort #[514 "AAX\207" [] 4 "\n\n(fn E1 E2)"]] 12 (#$ . 51394)]) (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]) #@279 Sort CANDIDATES as two priority groups. If `company-backend' is a function, do nothing. If it's a list, move candidates from backends before keyword `:with' to the front. Candidates from the rest of the backends in the group, if any, will be left at the end. (fn CANDIDATES) (defalias 'company-sort-by-backend-importance #[257 "\301!\203\207\302>A\211\204\207\303\304\305\"\"\207" [company-backend functionp :with sort make-closure #[514 "\301\302\303#\211\205\f\211\300>\262\205!\301\302\303#\211?\206\211\300>?\262\207" [V0 get-text-property 0 company-backend] 6 "\n\n(fn C1 C2)"]] 7 (#$ . 52775)]) #@186 Prefer CANDIDATES with the exact same prefix. If a backend returns case insensitive matches, candidates with the an exact prefix match (same case) will be prioritized. (fn CANDIDATES) (defalias 'company-sort-prefer-same-case-prefix #[257 "\211\301\211\211:\203*@\262\302\"\203C\244\262\202#\211C\244\262A\262\202\303\"\207" [company-prefix nil string-prefix-p append] 8 (#$ . 53403)]) #@25 (fn BUF WIN TICK POS) (defalias 'company-idle-begin #[1028 "p=\205.\302 =\205.\303 =\205.\211`=\205.\304 \205.\305\306\"\203)\307 \210\310\311 )\207" [emacs-version this-command selected-window buffer-chars-modified-tick company-auto-begin version< "24.3.50" company-input-noop company-idle-begin company-post-command] 7 (#$ . 53815)]) (defalias 'company-auto-begin #[0 "\2057 ?\2057\304\30512\3061\307\310 \210 )00\20260\311\312!\210\311\313\314!\"\210\315 \262\2026\315 \262)\207" [company-mode company-candidates company-idle-delay inhibit-quit now (debug quit) (debug error) nil company--perform message "Company: An error occurred in auto-begin" "%s" error-message-string company-cancel] 5]) (defalias 'company-manual-begin #[0 "\204 \304 \210\305\306!\210\307\310\216\311 \206\312 *\207" [company-mode company--manual-action company-minimum-prefix-length company-candidates company-uninstall-map user-error "Company not enabled" t #[0 "?\205\302\211\207" [company-candidates company--manual-action nil] 2] 0 company-auto-begin] 2 nil nil]) #@27 (fn &optional BACKWARD) (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 (#$ . 54903) (list current-prefix-arg)]) (defalias 'company-require-match-p #[0 "\301\302!\211\303=\206\211\304=?\205\305!\203 \207\303=\207" [company-require-match company-call-backend require-match t never functionp] 3]) #@69 Return non-nil if INPUT should trigger auto-completion. (fn INPUT) (defalias 'company-auto-complete-p #[257 "\302!\203  \202\f\205.\302 !\203 !\207 :\203%\303!z >\207\304\305\306\307O! \"\207" [company-auto-complete company-auto-complete-chars functionp string-to-char string-match regexp-quote 0 1] 6 (#$ . 55679)]) (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]) #@19 (fn NEW-PREFIX) (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 (#$ . 56200)]) #@15 (fn PREFIX) (defalias 'company--good-prefix-p #[257 "\303!;\205,\211\243\304=\206,\211\243\206\211G\203' ?\206*\211\nG^Y\202*\211\nY\262\207" [company--manual-prefix company-abort-manual-when-too-short company-minimum-prefix-length company--prefix-str t] 5 (#$ . 56561)]) (defalias 'company--continue #[0 "\305\306\"\203 \307\305\310!\305\311!\312!\205.\313!\211\262\205.`GZ\nGZU\205.\314\"\315#\203:\316\317!\207\211:\203F\320!\210\207\321 !\203`\322\323 !!\203`\212\nb\210\324\325 \210*\307\207\326 \204h\316 \207\327!\207" [company-prefix company-candidates-cache company-point last-command-event company--auto-completion company-call-backend no-cache nil prefix ignore-case company--good-prefix-p company--prefix-str company-calculate-candidates company--unique-match-p company-cancel unique company-update-candidates characterp company-auto-complete-p string t company-complete-selection company--incremental-p company--continue-failed] 7]) (defalias 'company--begin-new #[0 "\305\211\3062\243\203C\202 \211\205\240\211@\2119\204!\307!\2030\310!\2054\211\311\312!)\2024\313\312\"\262\203\231\314!\203\224\311\315!\316!\317\n\"\262\320\n#\203o \203c\305\321\322!\210\202d\323\203o\324\325!\266\202\224\204 \203\223\321\326!\266\202\224 \203\205\327!\210\330\331\332 \"\210\333\334!\210\210\335\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 ignore-case company--prefix-str company-calculate-candidates company--unique-match-p message "Sole completion" t company-cancel unique "No completion found" company-update-candidates run-hook-with-args company-completion-started-hook company-explicit-action-p company-call-frontends show throw] 9]) (defalias 'company--perform #[0 "\203\n\305 \210\202\306 \203\307 \210\204\310\211\207`d\311 \210\312\f!\210\313\314!\207" [company-candidates company-backend company-point company--point-max company-active-map company--continue company--should-complete company--begin-new nil company-ensure-emulation-alist company-enable-overriding-keymap company-call-frontends update] 2]) #@25 (fn &optional RESULT) (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\316\306!\210\203`;\203V\211\317\320\"\210\321\322\"\210)\202[\317\323\"\210\317\324\"\210\266\306\207" [company-prefix company-backend company-candidates company-candidates-length company-candidates-cache company-candidates-predicate nil 0 cancel-timer company-echo-cancel t company-search-mode company-call-frontends hide company-enable-overriding-keymap run-hook-with-args company-completion-finished-hook company-call-backend post-completion company-completion-cancelled-hook company-after-completion-hook company-common company-selection company-selection-changed company--manual-action company--manual-prefix company--point-max company-point company-timer] 7 (#$ . 58910)]) (defalias 'company-abort #[0 "\300\301!\207" [company-cancel abort] 2 nil nil]) #@15 (fn RESULT) (defalias 'company-finish #[257 "\300!\210\301!\207" [company--insert-candidate company-cancel] 3 (#$ . 59876)]) #@16 (fn COMMAND) (defalias 'company-keep #[257 "\2119\205\211\300N\207" [company-keep] 3 (#$ . 60011)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-keep speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'company--active-p #[0 "\207" [company-candidates] 1]) (defalias 'company-pre-command #[0 "\303 \210\2119\205\f\211\304N\262\2049\3051* \205%\306\307!\210\310 ?\205%\311 0\210\2029\312\313!\210\312\314\315!\"\210\316 \266\n\203C\317\n!\210\320\321\322!\210\323 \207" [this-command company-candidates company-timer company--electric-restore-window-configuration company-keep (debug error) company-call-frontends pre-command company--should-continue company-abort message "Company: An error occurred in pre-command" "%s" error-message-string company-cancel cancel-timer nil company-echo-cancel t company-uninstall-map] 5]) (defalias 'company-post-command #[0 "\203 \204 \306 \210\306 \2119\205\211\307N\262\204j\3101[`\n\232\204+\311\312 \210)\2035\313\314!\202V\315 \211\247\205T\f?\205T\316 \205T\317\311\320p\321 \322 `&\211\2620\210\202j\323\324!\210\323\325\326!\"\210\327 \266\330 \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 company--idle-delay company--should-begin run-with-timer 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] 9]) (defalias 'company--idle-delay #[0 "\301!\203  \202\f\302\303\"\203\304\207\207" [company-idle-delay functionp memql (t 0 0.0) 0.01] 4]) #@102 List of commands after which idle completion is (still) disabled when `company-begin-commands' is t. (defvar company--begin-inhibit-commands '(company-abort company-complete-mouse company-complete company-complete-common company-complete-selection company-complete-number) (#$ . 61779)) (defalias 'company--should-begin #[0 "\303=\203 \n>?\207 >\206 9\205 \304N\207" [company-begin-commands this-command company--begin-inhibit-commands t company-begin] 2]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable company-search-regexp-function funcall function #[0 "\300\207" [regexp-quote] 1] "Function to construct the search regexp from input.\nIt's called with one argument, the current search input. It must return\neither a regexp without groups, or one where groups don't intersect and\neach one wraps a part of the input string." :type (choice (const :tag "Exact match" regexp-quote) (const :tag "Words separated with spaces" company-search-words-regexp) (const :tag "Words separated with spaces, in any order" company-search-words-in-any-order-regexp) (const :tag "All characters in given order, with anything in between" company-search-flex-regexp))] 6) (defvar company-search-string "" nil) (make-variable-buffer-local 'company-search-string) (defvar company-search-lighter '(" " (company-search-filtering "Filter" "Search") ": \"" company-search-string "\"")) #@66 Non-nil to filter the completion candidates by the search string (defvar company-search-filtering nil (#$ . 63188)) (make-variable-buffer-local 'company-search-filtering) (defvar company--search-old-selection 0 nil) (make-variable-buffer-local 'company--search-old-selection) (defvar company--search-old-changed nil nil) (make-variable-buffer-local 'company--search-old-changed) #@14 (fn INPUT) (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 (#$ . 63573)]) #@14 (fn INPUT) (defalias 'company-search-words-in-any-order-regexp #[257 "\300\301\302\303\304#\"\305!\306\307\310#\207" [mapcar #[257 "\300\301\302!\"\207" [format "\\(%s\\)" regexp-quote] 5 "\n\n(fn WORD)"] split-string " +" t company--permutations mapconcat #[257 "\300\301\302#\207" [mapconcat identity ".*"] 5 "\n\n(fn WORDS)"] "\\|"] 7 (#$ . 63806)]) #@14 (fn INPUT) (defalias 'company-search-flex-regexp #[257 "\211G\300U\203 \301\207\302\303\300H!!\304\305\306\307O\301#P\207" [0 "" regexp-quote string mapconcat #[257 "\300\301!\302\303\301!!R\207" ["[^" string "]*" regexp-quote] 7 "\n\n(fn C)"] 1 nil] 7 (#$ . 64172)]) #@12 (fn LST) (defalias 'company--permutations #[257 "\211\204\300\207\301\302\303\"\"\207" [(nil) cl-mapcan make-closure #[257 "\301\302\303\"\304\305\300\306\307$!\"\207" [V0 mapcar make-closure #[257 "\300B\207" [V0] 3 "\n\n(fn PERM)"] company--permutations cl-remove :count 1] 9 "\n\n(fn E)"]] 5 (#$ . 64453)]) #@19 (fn TEXT LINES) (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 (#$ . 64778)]) (defalias 'company-search-keypad #[0 "\301!\211GSH\302 )\207" [last-command-event symbol-name company-search-printing-char] 3 nil nil]) (defalias 'company-search-printing-char #[0 "\303 \210\304 !P\n\203\305!\210\306!\207" [company-search-string last-command-event company-search-filtering company--search-assert-enabled string company--search-update-predicate company--search-update-string] 3 nil nil]) #@11 (fn SS) (defalias 'company--search-update-predicate #[257 "!\211\304\230?\205 \205\305\306\"\307 \310\311!\"\211\204!\312\313!\210\314!)\207" [company-search-regexp-function company-search-filtering company-candidates-predicate company-prefix "" make-closure #[257 "\301\300\"\207" [V0 string-match] 4 "\n\n(fn CANDIDATE)"] company-calculate-candidates company-call-backend ignore-case user-error "No match" company-update-candidates] 6 (#$ . 65494)]) #@12 (fn NEW) (defalias 'company--search-update-string #[257 "\303 \233\"\211\204 \304 \207\305\\\306\"\207" [company-selection company-candidates company-search-string company--search ding company-set-selection t] 5 (#$ . 65965)]) (defalias 'company--search-assert-input #[0 "\301 \210\302\230\205\f\303\304!\207" [company-search-string company--search-assert-enabled "" user-error "Empty search string"] 2]) #@65 Repeat the incremental search in completion candidates forward. (defalias 'company-search-repeat-forward #[0 "\303 \210\304 \n\233A\"\211\204\305 \207\306 \\T\307\"\207" [company-search-string company-selection company-candidates company--search-assert-input company--search ding company-set-selection t] 4 (#$ . 66387) nil]) #@67 Repeat the incremental search in completion candidates backwards. (defalias 'company-search-repeat-backward #[0 "\304 \210\305 \nZ\306 !\233\"\211\204\307 \207\310\nZS\311\"\207" [company-search-string company-candidates-length company-selection company-candidates company--search-assert-input company--search reverse ding company-set-selection t] 5 (#$ . 66723) nil]) #@36 Toggle `company-search-filtering'. (defalias 'company-search-toggle-filtering #[0 "\302 \210? \303!\210\304!\207" [company-search-filtering company-search-string company--search-assert-enabled company--search-update-predicate company--search-update-string] 3 (#$ . 67102) nil]) #@44 Abort searching the completion candidates. (defalias 'company-search-abort #[0 "\303 \210\304\305!\210\306\307\"\210 \211\207" [company--search-old-selection company--search-old-changed company-selection-changed company--search-assert-enabled company-search-mode 0 company-set-selection t] 3 (#$ . 67390) nil]) (defalias 'company-search-other-char #[0 "\300 \210\301\302!\210\303 \207" [company--search-assert-enabled company-search-mode 0 company--unread-this-command-keys] 2 nil nil]) (defalias 'company-search-delete-char #[0 "\302 \210\303\230\203\f\304 \207\305\306O \203\307!\210\310!\207" [company-search-string company-search-filtering company--search-assert-enabled "" ding 0 -1 company--search-update-predicate company--search-update-string] 3 nil nil]) #@68 Keymap used for incrementally searching the completion candidates. (defvar company-search-map (byte-code "\301\302 \303\304!\203\305A@\306\304 B\307#\210\2020\310 A@\205.\311@\307#\210A\262\202\266\312\313\314#\210\315W\203L\312\316\317\"\314#\210T\262\2026\306W\203a\312\320!\307#\210T\262\202L\321\301\211W\203}\211\312\322\323\324\"!\325#\266\211T\262\202c\266\326 \312\327!#\210\312\330#\266\312\320\331\"\314#\210\312\332\333#\210\312\334\335#\210\312\336\337#\210\312\340\341#\210\312\342\314#\210\312\343\314#\210\312\344\345#\210\312\346\345#\210\312\347\350#\210\312\351\352#\210\312\353\354#\210\312\355\356#\210\321\301\211W\203\375\211\312\357\323\360\"!\361#\266\211T\262\202\343\266\207" [meta-prefix-char 0 make-keymap fboundp max-char set-char-table-range 256 company-search-printing-char generic-character-list set-char-table-default define-key [t] company-search-other-char 32 make-string 1 vector 10 read format "[kp-%s]" company-search-keypad make-sparse-keymap char-to-string [escape] t [134217838] company-select-next [134217840] company-select-previous [down] company-select-next-or-abort [up] company-select-previous-or-abort "" [escape escape escape] "" company-search-delete-char [backspace] "" company-search-abort "" company-search-repeat-forward "" company-search-repeat-backward "" company-search-toggle-filtering read-kbd-macro "M-%d" company-complete-number] 11) (#$ . 68169)) #@107 Non-nil if Company-Search mode is enabled. Use the command `company-search-mode' to change this variable. (defvar company-search-mode nil (#$ . 69658)) (make-variable-buffer-local 'company-search-mode) #@694 Search mode for completion candidates. Don't start this directly, use `company-search-candidates' or `company-filter-candidates'. This is a minor mode. If called interactively, toggle the `Company-Search mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `company-search-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'company-search-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\203O\315 \203J\n\f\316\317!\210\320\"!\210\202q\311\202q\321\322!\210\321\323!\210\321\303!\210\321\305!\210#\203l\324\325!\210\316\317!\210\320$!\210\326\327\203{\330\202|\331\"\210\332\333!\203\236\306 \203\220\211\306 \232\203\236\334\335\203\232\336\202\233\337\340#\210\210\341 \210\207" [company-search-mode local-minor-modes company-selection company--search-old-selection company-selection-changed company--search-old-changed current-message toggle 1 nil t boundp delq company-manual-begin company-call-frontends update company-enable-overriding-keymap 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 message "Company-Search mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update company-search-map company-backend company-active-map] 6 (#$ . 69867) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar company-search-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode company-search-mode company-search-lighter boundp] 6) (defalias 'company--search-assert-enabled #[0 "\204 \302 \210\303\304!\210 ?\205\302 \210\303\305!\207" [company-mode company-search-mode company-uninstall-map user-error "Company not enabled" "Company not in search mode"] 2]) #@676 Start searching the completion candidates incrementally. \Search can be controlled with the commands: - `company-search-repeat-forward' (\[company-search-repeat-forward]) - `company-search-repeat-backward' (\[company-search-repeat-backward]) - `company-search-abort' (\[company-search-abort]) - `company-search-delete-char' (\[company-search-delete-char]) Regular characters are appended to the search string. Customize `company-search-regexp-function' to change how the input is interpreted when searching. The command `company-search-toggle-filtering' (\[company-search-toggle-filtering]) uses the search string to filter the completion candidates. (defalias 'company-search-candidates #[0 "\300\301!\207" [company-search-mode 1] 2 (#$ . 72550) nil]) #@68 Keymap used for incrementally searching the completion candidates. (defvar company-filter-map (byte-code "\301 \302\303\304#\210\305\"\210\207" [company-search-map make-keymap define-key [remap company-search-printing-char] company-filter-printing-char set-keymap-parent] 5) (#$ . 73333)) #@172 Start filtering the completion candidates incrementally. This works the same way as `company-search-candidates' immediately followed by `company-search-toggle-filtering'. (defalias 'company-filter-candidates #[0 "\301\302!\210\303\211\207" [company-search-filtering company-search-mode 1 t] 2 (#$ . 73632) nil]) #@99 Select the next candidate in the list. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-next #[256 "\301 \205\302\206 \303\\!\207" [company-selection company-manual-begin company-set-selection 1] 4 (#$ . 73951) "p"]) #@103 Select the previous candidate in the list. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-previous #[256 "\300\203\n[\202 \301!\207" [company-select-next -1] 3 (#$ . 74216) "p"]) #@146 Select the next candidate if more than one, else abort and invoke the normal binding. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-next-or-abort #[256 "\301V\203\n\302!\207\303 \210\304 \207" [company-candidates-length 1 company-select-next company-abort company--unread-this-command-keys] 3 (#$ . 74444) "p"]) #@150 Select the previous candidate if more than one, else abort and invoke the normal binding. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-select-previous-or-abort #[256 "\301V\203\n\302!\207\303 \210\304 \207" [company-candidates-length 1 company-select-previous company-abort company--unread-this-command-keys] 3 (#$ . 74805) "p"]) #@40 Select the candidate one page further. (defalias 'company-next-page #[0 "\304 \205\203 \nSU\203\305\306!\207\307\305 \\!)\207" [company-selection-wrap-around company-selection company-candidates-length company-tooltip-limit company-manual-begin company-set-selection 0 nil] 3 (#$ . 75177) nil]) #@40 Select the candidate one page earlier. (defalias 'company-previous-page #[0 "\304 \205\203 \305U\203\306\nS!\207\307\306 Z!)\207" [company-selection-wrap-around company-selection company-candidates-length company-tooltip-limit company-manual-begin 0 company-set-selection nil] 3 (#$ . 75487) nil]) #@33 (fn EVENT-COL-ROW ROW HEIGHT) (defalias 'company--inside-tooltip-p #[771 "\301\302\"\301\303\"@AY\205?\\W\205?\304V\2031\211V\205?\211\\X\207\211W\205?\211\\Y\207" [company-pseudo-tooltip-overlay overlay-get company-column company-width 0] 11 (#$ . 75800)]) #@14 (fn EVENT) (defalias 'company--event-col-row #[257 "\300\301!!\207" [company--posn-col-row event-start] 4 (#$ . 76095)]) #@55 Select the candidate picked by the mouse. (fn EVENT) (defalias 'company-select-mouse #[257 "\304!\305 \205\306\307\" ^\211\203I\310#\203I\311\312A\nS \313=\2031\n\314U\2041\315\2022\314[\314W\203C\316Z\202D\314%!\210\317\207\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 (#$ . 76225) "e"]) #@55 Insert the candidate picked by the mouse. (fn EVENT) (defalias 'company-complete-mouse #[257 "\300!\205\301 \207" [company-select-mouse company-complete-selection] 3 (#$ . 76821) "e"]) #@32 Insert the selected candidate. (defalias 'company-complete-selection #[0 "\302 \205  8\303!\262\207" [company-selection company-candidates company-manual-begin company-finish] 3 (#$ . 77016) nil]) #@43 Insert the common part of all candidates. (defalias 'company-complete-common #[0 "\302 \205A\204 @\232\203\303 \207\304 !\207" [company-candidates company-common company-manual-begin company-complete-selection company--insert-candidate] 2 (#$ . 77223) nil]) #@126 Insert the common part of all candidates, or select the next one. With ARG, move by that many elements. (fn &optional ARG) (defalias 'company-complete-common-or-cycle #[256 "\302 \205\303 \304\305!\210\211\303 =\205\306\304\307!*\262\207" [current-prefix-arg company-selection-wrap-around company-manual-begin buffer-chars-modified-tick call-interactively company-complete-common t company-select-next] 4 (#$ . 77496) "p"]) #@75 Indent the current line or region, or complete the common part. (fn ARG) (defalias 'company-indent-or-complete-common #[257 "\302 \203\f\303\304 \305 \"\207\306>\203\307 \207`\310 \311\312!\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 indent-for-tab-command] 5 (#$ . 77936) "P"]) #@168 Insert selection if appropriate, or select the next candidate. Insert selection if only preview is showing or only one candidate, otherwise select the next candidate. (defalias 'company-select-next-if-tooltip-visible-or-complete-selection #[0 "\301 \203\302V\203\303\304!\207\303\305!\207" [company-candidates-length company-tooltip-visible-p 1 call-interactively company-select-next company-complete-selection] 2 (#$ . 78413) nil]) #@221 Insert the common part of all candidates or the current selection. The first time this is called, the common part is inserted, the second time, or when the selection has been changed, the selected candidate is inserted. (defalias 'company-complete #[0 "\305 \205$\204 \306=\203\n\307=\203\310\311!\207\310\307!\210 \205$\307\211\207" [company-selection-changed real-last-command last-command company-candidates this-command company-manual-begin company-complete company-complete-common call-interactively company-complete-selection] 2 (#$ . 78858) nil]) #@266 Insert the Nth candidate visible in the tooltip. To show the number next to the candidates in some backends, enable `company-show-numbers'. When called interactively, uses the last typed character, stripping the modifiers. That character must be a digit. (fn N) (defalias 'company-complete-number #[257 "\303 \205#\211\304W\204\211 ZV\203\305\306\"\210\211S\262\307 \\\n8!\207" [company-candidates-length company-tooltip-offset company-candidates company-manual-begin 1 user-error "No candidate number %d" company-finish] 4 (#$ . 79429) (byte-code "\301!\302!\203 \211\202\303\304!\305\306\"\262!@\211\307Z\211\310U\203(\266\311\202+\211\266\203C\207" [last-command-event event-basic-type characterp last symbol-name append nil 48 0 10] 6)]) (defconst company-space-strings-limit 100) (defconst company-space-strings (byte-code "\301\302\211W\203\211\303SZ\304\"B\262\210\211T\262\202\266\305\306\"\207" [company-space-strings-limit nil 0 make-string 32 apply vector] 7)) #@12 (fn LEN) (defalias 'company-space-string #[257 "\211W\203\n H\207\302\303\"\207" [company-space-strings-limit company-space-strings make-string 32] 4 (#$ . 80443)]) #@30 (fn STR FROM &optional TO) (defalias 'company-safe-substring #[770 "\301!V\203 \302\207\303\304\305\"r\211q\210\306\307\"\216c\210\310!\210`\203?\310!\210\211`{iZ\211\311V\2059\312!\262P\202B\211d{\262*\207" [buffer-invisibility-spec string-width "" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] move-to-column 0 company-space-string] 10 (#$ . 80620)]) (defvar company-last-metadata nil nil) (make-variable-buffer-local 'company-last-metadata) (defalias 'company-fetch-metadata #[0 " 8\211\n@=\204\211\303\304\"B\nA\207" [company-selection company-candidates company-last-metadata company-call-backend meta] 5]) #@25 (fn &optional STRING) (defalias 'company-doc-buffer #[256 "r\300\301!q\210\302 \210\303 \210\211\203\212\211c\210\304 \210)p)\207" [get-buffer-create "*company-documentation*" erase-buffer fundamental-mode visual-line-mode] 3 (#$ . 81329)]) (defvar company--electric-saved-window-configuration nil) #@61 List of Commands that won't break out of electric commands. (defvar company--electric-commands '(scroll-other-window scroll-other-window-down mwheel-scroll) (#$ . 81638)) #@57 Restore window configuration (after electric commands). (defalias 'company--electric-restore-window-configuration #[0 "\205 \n>?\205\303!\210\304\211\207" [company--electric-saved-window-configuration this-command company--electric-commands set-window-configuration nil] 2 (#$ . 81815)]) #@19 (fn &rest BODY) (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 (#$ . 82116)])) (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) (defalias 'company--unread-this-command-keys #[0 "\301 G\302V\205\303\301 !\244\304\305!\207" [unread-command-events this-command-keys 0 listify-key-sequence clear-this-command-keys t] 2]) #@62 Temporarily show the documentation buffer for the selection. (defalias 'company-show-doc-buffer #[0 "\305\306 \205c \203\307\310!\210\311 \312 \313 \n 8\314\315\"\206#\316\317!\305:\2031A\262@\262\320!\321\322\"\323\203C\202De\"\266\312 W\205a\312 Z\324Z\fW\205a\325\312 Z\324Z!\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 (#$ . 82947) nil]) (put 'company-show-doc-buffer 'company-keep t) #@73 Temporarily display a buffer showing the selected candidate in context. (defalias 'company-show-location #[0 "\305\306 \205\210 \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\"\216\330@\331\"\210\214~\210\320@!\203\\b\210\202ceb\210Sy\210)\332\305`\"\210*\266\312 W\205\206\312 Z\333Z\fW\205\206\334\312 Z\333Z!\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-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord set-window-start 2 recenter] 10 (#$ . 83756) nil]) (put 'company-show-location 'company-keep t) (defvar company-callback nil nil) (make-variable-buffer-local 'company-callback) #@26 (fn &optional IGNORED) (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 (#$ . 84914)]) #@77 Start a completion at point using BACKEND. (fn BACKEND &optional CALLBACK) (defalias 'company-begin-backend #[513 "\211\211\203 \302\303\304\305$\210\302\306\307\304\305$\210\302\303\307\304\305$\210\310 \206%\311\312!\207" [company-callback company-backend add-hook company-completion-finished-hook nil t company-completion-cancelled-hook company-remove-callback company-manual-begin user-error "Cannot complete at point"] 7 (#$ . 85190) (byte-code "\301\302\303\304\305%\211\205\306!C\207" [obarray completing-read "Company backend: " functionp nil "company-" intern] 6)]) #@411 Start a completion at point. CANDIDATES is the list of candidates to use and PREFIX-LENGTH is the length of the prefix that already is in the buffer before point. It defaults to 0. CALLBACK is a function called with the selected result if the user successfully completes the input. Example: (company-begin-with \='("foo" "foobar" "foobarbaz")) (fn CANDIDATES &optional PREFIX-LENGTH REQUIRE-MATCH CALLBACK) (defalias 'company-begin-with #[1025 "\300`\301\"\302\303\304%\"\207" [copy-marker t company-begin-backend make-closure #[641 "\304\267\202`\305\303!\232\205 `\301\206\306Z`{\207\307\300\"\207\302\207\310\207" [V0 V1 V2 V3 #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)"]] 12 (#$ . 85783)]) #@129 Get the Company version as string. If SHOW-VERSION is non-nil, show the version in the echo area. (fn &optional SHOW-VERSION) (defalias 'company-version #[256 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210\307\310\311!!\210\305\312!\210\203'\313\314\315 \"\202)\315 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] require find-func insert-file-contents find-library-name "company" lisp-mnt message "Company version: %s" lm-version] 5 (#$ . 86675) (list t)]) #@59 Pop a buffer with information about completions at point. (defalias 'company-diag #[0 "\306 !\307\307\211\211:\203,@\262\262\310\311!)\211\262?\211\262\203,A\262\202 \266\203\307\211;\204::\203Y\3121T\310\313\314!\"\262\315\316\"\211\2620\210\202X\210\317\262)\320\321\322!!\210\307\323 \210\324\325\f \326\327*\"+%c\210\330\331 \332\261\210\333\334!\261\210\335c\210\336\334!\261\210\335c\210<\203\231\337>\202\234\337=\203\247\340\334,!\261\210\341\261\210\335c\210\342\334!\261\210\335c\210\343c\210\204\303\344c\210\211\317=\203\317\345c\210\202\365\212\211\211\203\363\211@\346\347@!\261\210\211A\203\354\350\347A!\261\210A\266\202\202\321\210)\351 \207" [company-backends major-mode company-backend buffer-read-only emacs-version system-configuration symbol-name nil 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: " company-capf "Value of c-a-p-f: " "Major mode: " "Prefix: " "Completions:" " none" "(error fetching)" "\n " prin1-to-string " " special-mode emacs-build-time emacs-build-system completion-at-point-functions] 13 (#$ . 87223) nil]) (defvar company-pseudo-tooltip-overlay nil nil) (make-variable-buffer-local 'company-pseudo-tooltip-overlay) (defvar company-tooltip-offset 0 nil) (make-variable-buffer-local 'company-tooltip-offset) #@34 (fn SELECTION NUM-LINES LIMIT) (defalias 'company-tooltip--lines-update-offset #[771 "\211\301Z\262^TZ]\211\302X\203\211T\262\303ZSY\203=\211T\262SU\203=S\211\302X\203=\303\211T\262\207" [company-tooltip-offset 2 1 0] 7 (#$ . 88873)]) #@34 (fn SELECTION NUM-LINES LIMIT) (defalias 'company-tooltip--simple-update-offset #[771 "W\203\n\202ZT]\211\207" [company-tooltip-offset] 6 (#$ . 89139)]) #@12 (fn ARG) (defalias 'company-round-tab #[257 "\211\\\245_\207" [tab-width] 3 (#$ . 89310)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-round-tab speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@12 (fn STR) (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\262\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 (#$ . 89555)]) #@51 (fn VALUE ANNOTATION WIDTH SELECTED LEFT RIGHT) (defalias 'company-fill-propertize #[1542 "G\305\306\"\206\203\307!\202\310\311\312\313\n!!\262 \205(\313\314\"\262 \nG\nG\\\203<\315\202=\310\\W\203X\203O GT\202[  GZ\202[ G\\\211 G\\ \\^\204q\204\211\316\205\205\317Q\310#\202\227\316\310GZ# P Q \\ G\\\262\f\320\310 \321\322%\210W\203\305\320\323\203\301\324\202\302\325%\210  GZ\250\203\331\310BC\202\333\311\211\211\211\211:\203#@\262\211A\262\242\262\\\262\\^\262W\203\326\323\203\327\202\330\f%\210A\262\311\262\202\340\266\n !\211\331\230?\2056\332\fG#\262\203{\333 \211\203z\211@\211\242\243 \\\\GZW\203q\326^\323\203l\334\202m\335%\210\266A\266\202\202=\210\n\203\211\320\310 \323\336%\210\320\310 \323\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 nil company-reformat company--pre-render t 1 company-safe-substring " " font-lock-append-text-property mouse-face company-tooltip-mouse face company-tooltip-annotation-selection company-tooltip-annotation font-lock-prepend-text-property company-tooltip-common-selection company-tooltip-common "" string-match company--search-chunks company-tooltip-search-selection company-tooltip-search company-tooltip-selection company-tooltip] 29 (#$ . 89939)]) (defalias 'company--search-chunks #[0 "\300\301!\302G\303X\203@A@BC\207AA\211\262\203.@\203@A@BB\262\202\207" [match-data t nil 2] 4]) #@35 (fn STR &optional ANNOTATION-P) (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 (#$ . 91603)]) #@12 (fn STR) (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 (#$ . 91967)]) #@16 (fn BEG END) (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\300\307B\262\210\211T\262\2023\266`\262\202=\204\\{B\262\237\207" [nil vertical-motion 1 0 re-search-forward "$" move ""] 10 (#$ . 92303)]) #@23 (fn OLD NEW OFFSET) (defalias 'company-modify-line #[771 "\300\301#\300G\\\"Q\207" [company-safe-substring 0] 9 (#$ . 92646)]) #@17 (fn NUMBERED) (defalias 'company--show-numbers #[257 "\300\301\302\303\"\"\207" [format " %d" mod 10] 6 (#$ . 92788)]) (defalias 'company--window-height #[0 "\300\301!\203 \302\301 !\207\303 \207" [fboundp window-screen-lines floor window-body-height] 2]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company--window-height speed -1 put byte-optimizer byte-compile-inline-expand] 5) (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\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]) #@48 (fn LINES OLD COLUMN NL &optional ALIGN-TOP) (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`\306\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\203\265\316\305\317\320\321%\210\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" put-text-property 1 cursor t] 14 (#$ . 93679)]) #@20 (fn LINE OFFSET) (defalias 'company--offset-line #[514 "\211\203 \203 \300O\207\207" [nil] 5 (#$ . 94425)]) #@24 (fn SELECTION LIMIT) (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\nZ Z\262\310V\205f\316\317\"\211\262\262\n Z\262 GG]\262 \233\262  ^\262 \262\320\f_Z\262\211\203\226S\262\310\211W\203\355\307\211A\262 \242\321\322\"\323!\262\211\203\304\323!\262 \203\304\324\325\307#\262B B\262 G\203\334 \203\334GT\202\336G\\ ]\262 \266\211T\262\202\231\266^\203\320\\\202]^\262\237\203\310\202\326\307\203\"\327\n\"C\262 \310\211W\203\225\211\211A\262\242\211@A\330\f!\211 \331W\203j\211\320Z\262 T\262\f\332=\203a \f!P\262\202j \f!P\262\333 \232&\205\206\334 \"P B\262 \266\211T\262\202%\266\203\244\327\n\"B\262\211\237\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 comment-string-strip t 99999 company--scrollpos-line company-space-string 10 left company-fill-propertize company--scrollbar company-tooltip-maximum-width company-tooltip-minimum-width company-show-numbers company-show-numbers-function] 31 (#$ . 94547)]) #@28 (fn OFFSET LIMIT LENGTH) (defalias 'company--scrollbar-bounds #[771 "\211V\205 \300\301!_\"\302\301!_\"\211\\SB\266\203\207" [ceiling float floor] 8 (#$ . 96211)]) #@17 (fn I BOUNDS) (defalias 'company--scrollbar #[514 "\300\301\302@Y\203AX\203\303\202\304#\207" [propertize " " face company-scrollbar-fg company-scrollbar-bg] 7 (#$ . 96395)]) #@19 (fn TEXT WIDTH) (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 (#$ . 96588)]) #@117 Calculate the appropriate tooltip height. Returns a negative number if the tooltip should be displayed above point. (defalias 'company--pseudo-tooltip-height #[0 "\303 \304\305!\203\306\305 !\202\307 SZ\211 ^W\203)V\203)\310\n^][\207\310\n^]\207" [company-tooltip-minimum company-candidates-length company-tooltip-limit company--row fboundp window-screen-lines floor window-body-height 3] 5 (#$ . 96818)]) #@29 (fn ROW COLUMN SELECTION) (defalias 'company-pseudo-tooltip-show #[771 "\301 \210\302 \303\304W\203\\S\262\305\262\303\211\211\211\211\212\306\n!\nW\262`\262\212\306\n\307 !\\!\210`)\262\310\303\305$\262\311\312\313\"\" F\262)\314\315#\210\316\307 !\"\314\317\320\321##\210\314\322\323@!#\266\314\324 #\210\314\325 #\207" [company-pseudo-tooltip-overlay company-pseudo-tooltip-hide company--pseudo-tooltip-height nil 0 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 (#$ . 97242)]) #@26 (fn POS COLUMN-OFFSET) (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 (#$ . 97983)]) #@18 (fn SELECTION) (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 (#$ . 98206)]) (defalias 'company-pseudo-tooltip-hide #[0 "\205 \301!\210\302\211\207" [company-pseudo-tooltip-overlay delete-overlay nil] 2]) (defalias 'company-pseudo-tooltip-hide-temporarily #[0 "\301!\205#\302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\207" [company-pseudo-tooltip-overlay overlayp overlay-put invisible nil line-prefix after-string display face] 4]) (defalias 'company-pseudo-tooltip-unhide #[0 "\205B\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#\210\303\320\321 #\266\202\207" [company-pseudo-tooltip-overlay overlay-get company-display overlay-put priority 111 line-prefix "" overlay-start overlay-end display after-string invisible t face default window selected-window] 6]) (defalias 'company-pseudo-tooltip-guard #[0 "\212\301 )\302 \212\303 \210\304 `Z)\305\306\"\307Y\205'\310`\311!\"\307Y\205&B\266\202E\207" [company-pseudo-tooltip-overlay beginning-of-visual-line window-width end-of-visual-line line-end-position overlay-get company-height 0 buffer-substring-no-properties overlay-start] 8]) #@83 `company-mode' frontend similar to a tooltip but based on overlays. (fn COMMAND) (defalias 'company-pseudo-tooltip-frontend #[257 "\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 eq 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 (#$ . 99730)]) #@87 `company-pseudo-tooltip-frontend', but not shown for single candidates. (fn COMMAND) (defalias 'company-pseudo-tooltip-unless-just-one-frontend #[257 "\211\300=\205\301 ?\205\302!\207" [post-command company--show-inline-p company-pseudo-tooltip-frontend] 3 (#$ . 100622)]) #@129 `compandy-pseudo-tooltip-frontend', but shown after a delay. Delay is determined by `company-tooltip-idle-delay'. (fn COMMAND) (defalias 'company-pseudo-tooltip-unless-just-one-frontend-with-delay #[257 "\211\304>\203\203\305!\210\306\211\307=\203>\204 \310 !\2035\310\n!\204*\311!\207\306\312\313!\210)\312\307!\207\314 \306\315\307$\211\207\311!\207" [company-tooltip-timer company-pseudo-tooltip-overlay company-preview-overlay company-tooltip-idle-delay (pre-command hide) cancel-timer nil post-command overlayp company-pseudo-tooltip-unless-just-one-frontend company-call-frontends pre-command run-with-timer company-pseudo-tooltip-unless-just-one-frontend-with-delay] 6 (#$ . 100908)]) (defvar company-preview-overlay nil nil) (make-variable-buffer-local 'company-preview-overlay) #@23 (fn POS COMPLETION) (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\242\243\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 #\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 (#$ . 101718)]) (defalias 'company-preview-hide #[0 "\205 \301!\210\302\211\207" [company-preview-overlay delete-overlay nil] 2]) #@89 `company-mode' frontend showing the selection as if it had been inserted. (fn COMMAND) (defalias 'company-preview-frontend #[257 "\211\302\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 (#$ . 102802)]) #@81 `company-preview-frontend', but only shown for single candidates. (fn COMMAND) (defalias 'company-preview-if-just-one-frontend #[257 "\211\300=\203 \301 \205\302!\207" [post-command company--show-inline-p company-preview-frontend] 3 (#$ . 103236)]) (defalias 'company--show-inline-p #[0 "A?\205' \205'\303\n\304\211@\304\211\305&\305=?\205'\306\307!\310=\206'\311\n \"\207" [company-candidates company-common company-prefix compare-strings nil t company-call-backend ignore-case keep-prefix string-prefix-p] 8]) #@41 Returns whether the tooltip is visible. (defalias 'company-tooltip-visible-p #[0 "\301!\205 \302\303\"?\207" [company-pseudo-tooltip-overlay overlayp overlay-get invisible] 3 (#$ . 103766)]) #@60 Returns whether the preview of common can be showed or not (defalias 'company-preview-common--show-p #[0 "\205\302\303!\304=\206\305 \"\207" [company-common company-prefix company-call-backend ignore-case keep-prefix string-prefix-p] 3 (#$ . 103966)]) #@78 `company-mode' frontend preview the common part of candidates. (fn COMMAND) (defalias 'company-preview-common-frontend #[257 "\211\301=\203 \302 \205\211\303\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 (#$ . 104230)]) (defvar company-echo-last-msg nil nil) (make-variable-buffer-local 'company-echo-last-msg) (defvar company-echo-timer nil) (defvar company-echo-delay 0.01) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable company-echo-truncate-lines funcall function #[0 "\300\207" [t] 1] "Whether frontend messages written to the echo area should be truncated." :type boolean :package-version (company . "0.9.3")] 8) #@25 (fn &optional GETTER) (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 (#$ . 105147)]) #@25 (fn &optional GETTER) (defalias 'company-echo-show-soon #[256 "\301 \210\302\303\304\305$\211\207" [company-echo-timer company-echo-cancel run-with-timer 0 nil company-echo-show] 6 (#$ . 105405)]) #@24 (fn &optional UNSET) (defalias 'company-echo-cancel #[256 "\203\301!\210\211\205\302\211\207" [company-echo-timer cancel-timer nil] 3 (#$ . 105612)]) #@25 (fn &optional GETTER) (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 (#$ . 105777)]) (defalias 'company-echo-format #[0 "\304\305 !\306 \233\n\203\202\307\310\211\203w\311\312\211A\262\242!!\262TG\\\262\313W\203R\314\315\316#\317\320#\262\321\\\262T\262\322\321\211\323 !\\\324$\210\202b\314\317\320#\262\322\325\323 !\326$\210Y\203o\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 company--clean-string 10 propertize format "%d: %s" face company-echo 3 add-text-properties string-width (face company-echo-common) 0 (face company-echo-common) mapconcat identity " "] 11]) (defalias 'company-echo-strip-common-format #[0 "\304\305 !G\306\\ \n\233 \203 \202\307\310\211\203`\211A\262\242\211G\310O\262\262\306\\G\\\262\311W\203G\312\313#\262\314\\\262T\262Y\203T\310\262\202\315\316\317#B\262\202\315\316\320#\321\322\323\237\324#\325R\207" [company-prefix company-selection company-candidates company-show-numbers window-body-width minibuffer-window 2 99999 nil 10 format "%s (%d)" 4 propertize face company-echo company-echo-common "{" mapconcat identity ", " "}"] 12]) (defalias 'company-echo-hide #[0 "\301\232?\205 \301\302 \207" [company-echo-last-msg "" company-echo-show] 2]) #@80 `company-mode' frontend showing the candidates in the echo area. (fn COMMAND) (defalias 'company-echo-frontend #[257 "\211\300\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 (#$ . 107322)]) #@80 `company-mode' frontend showing the candidates in the echo area. (fn COMMAND) (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 (#$ . 107693)]) #@83 `company-mode' frontend showing the documentation in the echo area. (fn COMMAND) (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 (#$ . 108090)]) (provide 'company)