elpa/helm-core-20191003.1622/helm-source.elc

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib eieio helm-lib] 2)
#@89 Advice for `cl--print-table' to make readable class slots docstrings.

(fn HEADER ROWS)
(defalias 'helm-source--cl--print-table #[514 "\300\211\205(\211@\211\301@\302\303#\240\210\211AA\241\210\304\305\306#\307\261\210A\266\202\202\262\207" ["%s\n\n  Initform=%s\n\n%s" propertize face italic "\n* " apply format "\n"] 10 (#$ . 496)])
(byte-code "\300\301\302\301\303\"\"\210\300\304\302\304\305\"\"\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form "Prepare slots and handle slot errors before creating a helm source.\n\n(fn SOURCE)" helm-setup-user-source "Allow users modifying slots in SOURCE just before creation.\n\n(fn SOURCE)" defalias helm-source-p eieio-make-class-predicate helm-source helm-source--eieio-childp eieio-make-child-predicate helm-source-child-p make-obsolete "use (cl-typep ... \\='helm-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((name :initarg :name :initform nil :custom string :documentation "  The name of the source.\n  A string which is also the heading which appears\n  above the list of matches from the source. Must be unique.") (header-name :initarg :header-name :initform nil :custom function :documentation "  A function returning the display string of the header.\n  Its argument is the name of the source. This attribute is useful to\n  add an additional information with the source name.\n  It doesn't modify the name of the source.") (init :initarg :init :initform nil :custom function :documentation "  Function called with no parameters when helm is started.\n  It is useful for collecting current state information which can be\n  used to create the list of candidates later.\n  Initialization of `candidates-in-buffer' is done here\n  with `helm-init-candidates-in-buffer'.") (candidates :initarg :candidates :initform nil :custom (choice function list) :documentation "  Specifies how to retrieve candidates from the source.\n  It can either be a variable name, a function called with no parameters\n  or the actual list of candidates.\n\n  The list must be a list whose members are strings, symbols\n  or (DISPLAY . REAL) pairs.\n\n  In case of (DISPLAY . REAL) pairs, the DISPLAY string is shown\n  in the Helm buffer, but the REAL one is used as action\n  argument when the candidate is selected. This allows a more\n  readable presentation for candidates which would otherwise be,\n  for example, too long or have a common part shared with other\n  candidates which can be safely replaced with an abbreviated\n  string for display purposes.\n\n  Note that if the (DISPLAY . REAL) form is used then pattern\n  matching is done on the displayed string, not on the real\n  value.\n\n  This function, generally should not compute candidates according to\n  `helm-pattern' which defeat all the Helm's matching mechanism\n  i.e. multiple pattern matching and/or fuzzy matching.\n  If you want to do so, use :match-dynamic slot to be sure matching\n  occur only in :candidates function and there is no conflict with\n  other match functions.") (update :initarg :update :initform nil :custom function :documentation "  Function called with no parameters at before \"init\" function\n  when `helm-force-update' is called.") (cleanup :initarg :cleanup :initform nil :custom function :documentation "  Function called with no parameters when *helm* buffer is\n  closed. It is useful for killing unneeded candidates buffer.\n\n  Note that the function is executed BEFORE performing action.") (keymap :initarg :keymap :initform helm-map :custom sexp :documentation "  Specific keymap for this source.\n  default value is `helm-map'.") (action :initarg :action :initform 'identity :custom (alist :key-type string :value-type function) :documentation "  An alist of (DISPLAY . FUNCTION) pairs, a variable name  or a function.\n  FUNCTION is called with one parameter: the selected candidate.\n\n  An action other than the default can be chosen from this list\n  of actions for the currently selected candidate (by default\n  with TAB). The DISPLAY string is shown in the completions\n  buffer and the FUNCTION is invoked when an action is\n  selected. The first action of the list is the default.\n\n  You should use `helm-make-actions' to build this alist easily.") (persistent-action :initarg :per
#@69 You cannot create a new object of type `helm-source'.

(fn &rest _)
(defalias 'helm-source #[128 "\300\301!\207" [error "Class helm-source is abstract"] 3 (#$ . 21808)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-sync-p eieio-make-class-predicate helm-source-sync helm-source-sync--eieio-childp eieio-make-child-predicate helm-source-sync-child-p make-obsolete "use (cl-typep ... \\='helm-source-sync) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) ((candidates :initform '("ERROR: You must specify the `candidates' slot, either with a list or a function")) (migemo :initarg :migemo :initform nil :custom boolean :documentation "  Enable migemo.\n  When multimatch is disabled, you can give the symbol 'nomultimatch as value\n  to force not using generic migemo matching function.\n  In this case you have to provide your own migemo matching funtion\n  that kick in when `helm-migemo-mode' is enabled.\n  Otherwise it will be available for this source once `helm-migemo-mode'\n  is enabled when non-nil.") (match-strict :initarg :match-strict :initform nil :custom function :documentation "  When specifying a match function within a source and\n  helm-multi-match is enabled, the result of all matching\n  functions will be concatened, which in some cases is not what\n  is wanted. When using `match-strict' only this or these\n  functions will be used. You can specify those functions as a\n  list of functions or a single symbol function.\n\n  NOTE: This have the same effect as using :MULTIMATCH nil.") (match-dynamic :initarg :match-dynamic :initform nil :custom boolean :documentation "  Disable all helm matching functions when non nil.\n  The :candidates function in this case is in charge of fetching\n  candidates dynamically according to `helm-pattern'.\n  Note that :volatile is automatically enabled when using this, so no\n  need to specify it.")) (:documentation "Use this class to make helm sources using a list of candidates.\nThis list should be given as a normal list, a variable handling a list\nor a function returning a list.\nMatching is done basically with `string-match' against each candidate.")] 6)
#@73 Create a new object of class type `helm-source-sync'.

(fn &rest SLOTS)
(defalias 'helm-source-sync #[128 "\300\301\302#\207" [apply make-instance helm-source-sync] 5 (#$ . 24107)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-sync compiler-macro helm-source-sync--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'helm-source-sync--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 24415)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-async-p eieio-make-class-predicate helm-source-async helm-source-async--eieio-childp eieio-make-child-predicate helm-source-async-child-p make-obsolete "use (cl-typep ... \\='helm-source-async) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) ((candidates-process :initarg :candidates-process :initform nil :custom function :documentation "  This attribute is used to define a process as candidate.\n  The value must be a process.\n\n  NOTE:\n  When building the source at runtime you can give directly a process\n  as value, otherwise wrap the process call into a function.\n  The process buffer should be nil, otherwise, if you use\n  `helm-buffer' give to the process a sentinel.") (multimatch :initform nil)) (:documentation "Use this class to define a helm source calling an external process.\nThe external process is called typically in a `start-process' call to be\nasynchronous.\n\nNote that using multiples asynchronous sources is not fully working,\nexpect weird behavior if you try this.\n\nThe :candidates slot is not allowed even if described because this class\ninherit from `helm-source'.")] 6)
#@74 Create a new object of class type `helm-source-async'.

(fn &rest SLOTS)
(defalias 'helm-source-async #[128 "\300\301\302#\207" [apply make-instance helm-source-async] 5 (#$ . 25969)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-async compiler-macro helm-source-async--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'helm-source-async--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 26282)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-in-buffer-p eieio-make-class-predicate helm-source-in-buffer helm-source-in-buffer--eieio-childp eieio-make-child-predicate helm-source-in-buffer-child-p make-obsolete "use (cl-typep ... \\='helm-source-in-buffer) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) ((init :initform 'helm-default-init-source-in-buffer-function) (data :initarg :data :initform nil :custom (choice list string) :documentation "  A string, a list or a buffer that will be used to feed the `helm-candidates-buffer'.\n  This data will be passed in a function added to the init slot and\n  the buffer will be build with `helm-init-candidates-in-buffer' or directly\n  with `helm-candidates-buffer' if data is a buffer.\n  This is an easy and fast method to build a `candidates-in-buffer' source.") (migemo :initarg :migemo :initform nil :custom boolean :documentation "  Enable migemo.\n  When multimatch is disabled, you can give the symbol 'nomultimatch as value\n  to force not using generic migemo matching function.\n  In this case you have to provide your own migemo matching funtion\n  that kick in when `helm-migemo-mode' is enabled.\n  Otherwise it will be available for this source once `helm-migemo-mode'\n  is enabled when non-nil.") (candidates :initform 'helm-candidates-in-buffer) (volatile :initform t) (match :initform '(identity)) (get-line :initarg :get-line :initform 'buffer-substring-no-properties :custom function :documentation "  A function like `buffer-substring-no-properties' or `buffer-substring'.\n  This function converts region from point at line-beginning and point\n  at line-end in the `helm-candidate-buffer' to a string which will be displayed\n  in the `helm-buffer', it takes two args BEG and END.\n  By default, `helm-candidates-in-buffer' uses\n  `buffer-substring-no-properties' which does no conversion and doesn't carry\n  text properties.") (search :initarg :search :initform '(helm-candidates-in-buffer-search-default-fn) :custom (choice function list) :documentation "  List of functions like `re-search-forward' or `search-forward'.\n  Buffer search function used by `helm-candidates-in-buffer'.\n  By default, `helm-candidates-in-buffer' uses `re-search-forward'.\n  The function should take one arg PATTERN.\n  If your search function needs to handle negation like multimatch,\n  this function should returns in such case a cons cell of two integers defining\n  the beg and end positions to match in the line previously matched by\n  `re-search-forward' or similar, and move point to next line\n  (See how the `helm-mm-3-search-base' and `helm-fuzzy-search' functions are working).\n\n  NOTE: FUZZY-MATCH slot will overhide value of this slot.") (search-strict :initarg :search-strict :initform nil :custom function :documentation "  When specifying a search function within a source and\n  helm-multi-match is enabled, the result of all searching\n  functions will be concatened, which in some cases is not what\n  is wanted. When using `search-strict' only this or these\n  functions will be used. You can specify those functions as a\n  list of functions or a single symbol function.\n\n  NOTE: This have the same effect as using a nil value for\n        :MULTIMATCH slot.")) (:documentation "Use this source to make helm sources storing candidates inside a buffer.\n\nThe buffer storing candidates is generated by `helm-candidate-buffer' function\nand all search are done in this buffer, results are transfered to the `helm-buffer'\nwhen done.\nContrarily to `helm-source-sync' candidates are matched using a function\nlike `re-search-forward' (see below documentation of `:search' slot) which makes\nthe search much faster than matching candidates one by one.\nIf you want to add search functions to your sources, don't use `:match' which\nwill raise an error, but `:search'.\nSee `helm-candidates-in-buffer' for more infos.")] 6)
#@78 Create a new object of class type `helm-source-in-buffer'.

(fn &rest SLOTS)
(defalias 'helm-source-in-buffer #[128 "\300\301\302#\207" [apply make-instance helm-source-in-buffer] 5 (#$ . 30588)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-in-buffer compiler-macro helm-source-in-buffer--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'helm-source-in-buffer--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 30921)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-dummy-p eieio-make-class-predicate helm-source-dummy helm-source-dummy--eieio-childp eieio-make-child-predicate helm-source-dummy-child-p make-obsolete "use (cl-typep ... \\='helm-source-dummy) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) ((candidates :initform '("dummy")) (filtered-candidate-transformer :initform (lambda (_candidates _source) (list helm-pattern))) (multimatch :initform nil) (accept-empty :initarg :accept-empty :initform t :custom boolean :documentation "  Allow exiting with an empty string.\n  You should keep the default value.") (match :initform 'identity) (volatile :initform t)) nil] 6)
#@74 Create a new object of class type `helm-source-dummy'.

(fn &rest SLOTS)
(defalias 'helm-source-dummy #[128 "\300\301\302#\207" [apply make-instance helm-source-dummy] 5 (#$ . 31988)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-dummy compiler-macro helm-source-dummy--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'helm-source-dummy--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 32301)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-in-file-p eieio-make-class-predicate helm-source-in-file helm-source-in-file--eieio-childp eieio-make-child-predicate helm-source-in-file-child-p make-obsolete "use (cl-typep ... \\='helm-source-in-file) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((init :initform (lambda nil (let ((file (helm-attr 'candidates-file)) (count 1)) (with-current-buffer (helm-candidate-buffer 'global) (insert-file-contents file) (goto-char (point-min)) (while (not (eobp)) (add-text-properties (point-at-bol) (point-at-eol) `(helm-linum ,count)) (cl-incf count) (forward-line 1)))))) (get-line :initform #'buffer-substring) (candidates-file :initarg :candidates-file :initform nil :custom string :documentation "  A filename.\n  Each line number of FILE is accessible with helm-linum property\n  from candidate display part.")) (:documentation "The contents of the FILE will be used as candidates in buffer.")] 6)
#@76 Create a new object of class type `helm-source-in-file'.

(fn &rest SLOTS)
(defalias 'helm-source-in-file #[128 "\300\301\302#\207" [apply make-instance helm-source-in-file] 5 (#$ . 33657)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-source-in-file compiler-macro helm-source-in-file--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'helm-source-in-file--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 33980)])
(defalias 'helm-default-init-source-in-buffer-function #[0 "\300\301\302\"\207" [helm-init-candidates-in-buffer global ("ERROR: No buffer handling your data, use either the `init' slot or the `data' slot.")] 3])
#@105 [INTERNAL] Build a helm source from OBJECT.
Where OBJECT is an instance of an eieio class.

(fn OBJECT)
(defalias 'helm--create-source #[257 "\300!\301\211\211:\203.@\262\302\"\262\203'\303=?\205\"BB\262A\262\202\211\237\207" [object-slots nil slot-value t] 8 (#$ . 34432)])
#@319 Build a `helm' source named NAME with ARGS for CLASS.
Argument NAME is a string which define the source name, so no need to use
the keyword :name in your source, NAME will be used instead.
Argument CLASS is an eieio class object.
Arguments ARGS are keyword value pairs as defined in CLASS.

(fn NAME CLASS &rest ARGS)
(defalias 'helm-make-source #[642 "\300\301$\211\302\303#\266\304!\210\305!\210\306!\207" [apply make-instance eieio-oset name helm--setup-source helm-setup-user-source helm--create-source] 9 (#$ . 34734)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-make-source lisp-indent-function 2] 4)
#@25 

(fn CLASS &rest ARGS)
(defalias 'helm-make-type #[385 "\300\301#\211\302\303\304#\266\305!\210\306!\207" [apply make-instance eieio-oset name nil helm--setup-source helm--create-source] 8 (#$ . 35372)])
#@22 

(fn SOURCE METHOD)
(defalias 'helm-source-mm-get-search-or-match-fns #[514 "\302\303\"\211\205\304!\262\303=\205\302\305\"\211\205\304!\262\306=\205*\302\306\"\211\2051\304!\262\307=\205=\302\307\"\211\205D\304!\262\302\310\"\311\267\202\221\206\222\211\203b\312\313#\202\222\203n\312\"\202\222\202\222\206\222\211\203\202\312	\314#\202\222\203\215\312	\"\202\222	\202\222\315\207" [helm-mm-default-match-functions helm-mm-default-search-functions slot-value match helm-mklist match-strict search search-strict migemo #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (match 81 search 114)) append (helm-mm-3-migemo-match) (helm-mm-3-migemo-search) nil] 11 (#$ . 35589)])
#@225 Same as `helm-add-action-to-source-if' but for SOURCE defined as eieio object.
You can use this inside a `helm--setup-source' method for a SOURCE defined as
an eieio class.

(fn NAME FN SOURCE PREDICATE &optional (INDEX 4))
(defalias 'helm-source-add-action-to-source-if #[1156 "\211\203
\211A\262\242\202\300\203\301\302\303\304G\\D\"\210\305\306\"\305\307\"BC\310\311\312\313\314\n	#\315\"\316\317%\320!\203Q\321\306\322BC#\266\202d<\203d\321\306\323
\"#\2669\204o\320!\203sC\262\321\307\324\325\326C\n\"\"#\262\266\204\207" [4 signal wrong-number-of-arguments helm-source-add-action-to-source-if 5 slot-value action action-transformer make-byte-code 514 "\300!\203\f\303\302\301#\207\207" vconcat vector [helm-append-at-nth] 6 "\n\n(fn ACTIONS CANDIDATE)" functionp eieio-oset "Default action" helm-interpret-value delq nil append] 19 (#$ . 36360)])
#@22 

(fn STRING SOURCE)
(defalias 'helm-source--persistent-help-string #[514 "\300\301\302\303\"\206
\304\305\"P!\207" [substitute-command-keys "\\<helm-map>\\[helm-execute-persistent-action]: " format "%s (keeping session)" slot-value header-line] 7 (#$ . 37273)])
#@15 

(fn SOURCE)
(defalias 'helm-source--header-line #[257 "\300\301\302\303\"\206
\302\304\"\211\203\200\2119\203&\305!\203&\211\306=\203&\307\202\201\2119\203F\310!\203F\211J<\203F\211J@@;\203F\211J@@\202\201\2119\204Q\305!\203W\311!\202\201\211<\203|\211@\211@;\203i\211@\202w\2119\204t\305!\205w\311!\262\202\201\312\202\201\312\262\313Q!\207" [substitute-command-keys "\\<helm-map>\\[helm-execute-persistent-action]: " slot-value persistent-action action functionp identity "Do Nothing" boundp helm-symbol-name "" " (keeping session)"] 7 (#$ . 37545)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\303\"\"\210\304\301\310\306\311$\210\300\312\302\312\303\"\"\210\304\312\303\306\313$\210\300\301\302\301\303\"\"\210\304\301\303\314\315$\210\300\301\302\301\303\"\"\210\304\301\303\316\317$\210\300\301\302\301\303\"\"\210\304\301\303\320\321$\210\300\301\302\301\303\"\"\210\304\301\303\322\323$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :primary helm-source #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\301\302\"\204\211\303\302\304#\266\301\305\"\203\306\307\301\310\"\"\210\301\311\"\211\2034\2119\2034\303\311J#\266\210\301\312\"\211\203L\303\313\314\"#\266\202W\303\313\315!#\266\210\301\316\"\203\200\203\200\211\303\317\301\317\"\211\203y\320\321!C\"\202{C\262#\266\301\322\"\204\244\211\303\317\301\317\"\211\203\235\320\321!\323C\"\202\237\323C\262#\266\324\301\325\"!\247\205\313\211\303\317\301\317\"\211\203\304\320\321!\326C\"\202\306\326C\262#\262\207" [helm-fuzzy-sort-fn slot-value group eieio-oset helm delayed warn "Deprecated usage of helm `delayed' slot in `%s'" name keymap persistent-help header-line helm-source--persistent-help-string helm-source--header-line fuzzy-match filtered-candidate-transformer append helm-mklist nohighlight helm-fuzzy-highlight-matches helm-interpret-value multiline helm-multiline-transformer] 9 "\n\n(fn SOURCE)"] helm-setup-user-source #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] helm-source-sync #[257 "\301\302\"\203*\301\303\"\211\203!\304\303\305\306!C\"#\266\202)\304\303#\266\210\301\307\"\203<\211\304\303\310\303\"#\266\301\307\"?\205H\301\311\"\211\203c\211\312=\204c\304\303\305\306\301\303\"!\313\"#\266\210\301\314\"\205\213\211\304\303\315#\266\211\304\307\316#\266\211\304\302\316#\266\211\304\317\320#\262\207" [helm-fuzzy-match-fn slot-value fuzzy-match match eieio-oset append helm-mklist multimatch helm-source-mm-get-search-or-match-fns migemo nomultimatch (helm-mm-3-migemo-match) match-dynamic identity nil volatile t] 11 "\n\n(fn SOURCE)"] helm-source-in-buffer #[257 "\301\302\"\303=\204\304\305\306\307\301\310\"\"\311\211$\210\301\312\"\301\313\"\211\203C\314\312\315\311\316=?\2052\317\320\321\322\323\f!\324\"\325$D\"#\266\266\301\326\"\203p\301\327\"\211\203f\314\327\330\331!C\"#\266\202o\314\327C#\266\210\301\332\"\203\202\211\314\327\333\327\"#\266\301\332\"?\205\216\301\334\"\211\203\251\211\335=\204\251\314\327\330\331\301\327\"!\336\"#\266\210\301\337\"\211\340\232\204\301\211\341=\204\301\304\342\343\311\211$\210\301\344\"\345=\204\321\304\346\347\311\211$\210\311\207" [helm-fuzzy-search-fn slot-value candidates helm-candidates-in-buffer cl--assertion-failed (eq (slot-value source 'candidates) 'helm-candidates-in-buffer) format "Wrong usage of `candidates' attr in `%s' use `data' or `init' instead" name nil init data eieio-oset delq helm-default-init-source-in-buffer-function make-byte-code 0 "\301\302\303\300!\203
\300 \202$\304\300!\203#\305\300!\203#r\300q\210\306 )\202$\300\"\207" vconcat vector [helm-init-candidates-in-buffer global functionp bufferp buffer-live-p buffer-string] 4 fuzzy-match search append helm-mklist multimatch helm-source-mm-get-search-or-match-fns migemo nomultimatch (helm-mm-3-migemo-search) match #1=(identity) identity (or (equal '#1# mtc) (eq 'identity mtc)) "Invalid slot value for `match'" volatile t (eq (slot-value source 'volatile) t) "Invalid slot value for `volatile'"] 16 "\n\n(fn SOURCE)"] helm-source-async #[257 "\300\301\"\203\302\303\304\305\211$\210\300\306\"\203\302\307\310\305\211$\210\300\311\"\203*\302\312\313\305\211$\210\305\207" [slot-value candidates cl--assertion-failed (null (slot-value source 'candidates)) "Incorrect use of `candidates' use `candidates-process' instead" nil multimatch (null (slot-value source 'multimatch)) "`multimatch' not allowed in async sources." fuzzy-match (null (slot-value source 'fuzzy-mat
#@126 Build a synchronous helm source with name NAME.
Args ARGS are keywords provided by `helm-source-sync'.

(fn NAME &rest ARGS)
(defalias 'helm-build-sync-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-sync] 6 (#$ . 43007)]))
(byte-code "\300\301\302\303#\300\207" [function-put helm-build-sync-source lisp-indent-function 1] 4)
#@128 Build a asynchronous helm source with name NAME.
Args ARGS are keywords provided by `helm-source-async'.

(fn NAME &rest ARGS)
(defalias 'helm-build-async-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-async] 6 (#$ . 43367)]))
(byte-code "\300\301\302\303#\300\207" [function-put helm-build-async-source lisp-indent-function 1] 4)
#@155 Build a helm source with name NAME using `candidates-in-buffer' method.
Args ARGS are keywords provided by `helm-source-in-buffer'.

(fn NAME &rest ARGS)
(defalias 'helm-build-in-buffer-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-in-buffer] 6 (#$ . 43732)]))
(byte-code "\300\301\302\303#\300\207" [function-put helm-build-in-buffer-source lisp-indent-function 1] 4)
#@136 Build a helm source with name NAME using `dummy' method.
Args ARGS are keywords provided by `helm-source-dummy'.

(fn NAME &rest ARGS)
(defalias 'helm-build-dummy-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-dummy] 6 (#$ . 44136)]))
(byte-code "\300\301\302\303#\300\207" [function-put helm-build-dummy-source lisp-indent-function 1] 4)
#@245 Build a helm source with NAME name using `candidates-in-files' method.
Arg FILE is a filename, the contents of this file will be
used as candidates in buffer.
Args ARGS are keywords provided by `helm-source-in-file'.

(fn NAME FILE &rest ARGS)
(defalias 'helm-build-in-file-source '(macro . #[642 "\300\301\302BBBBB\207" [helm-make-source 'helm-source-in-file :candidates-file] 9 (#$ . 44509)]))
(byte-code "\300\301\302\303#\304\305!\207" [function-put helm-build-in-file-source lisp-indent-function 1 provide helm-source] 4)