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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\305\307\"\"\210\304\310\306\310\311\"\"\210\312\313\314\315!\"\210\312\316\317\315!\"\210\312\320\316\"\210\321\320\322\323#\210\324\315\325\316#\326\315\327\330\331$\207" [require cl-lib eieio helm-lib 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.") (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 :persistent-action :initform nil :custom function :documentation "  Can be a either a Function called with one parameter (the\n  selected candidate) or a cons cell where first element is this\n  same function and second element a symbol (e.g never-split)\n  that inform `helm-execute-persistent-action' to not split his\n  window to execute this persistent action.\n  Example:\n\n    (defun foo-persistent-action (candidate)\n       (do-something candidate))\n\n    :persistent-action '(foo-persistent-action . never-split) ; Don't split\n  or\n    :persistent-action 'foo-persistent-action ; Split\n\n  When specifying :persistent-action by slot directly, foo-persistent-action\n  will be executed without quitting helm when hitting `C-j'.\n\n  Note that other persistent actions can be defined using other\n  bindings than `C-j' by simply defining an interactive function bound\n  to a key in the keymap source.\n  The function should create a new attribute in source before calling\n  `helm-execute-persistent-action' on this attribute.\n  Example:\n\n     (defun helm-ff-persistent-delete ()\n       \"Delete current candidate without quitting.\"\n       (interactive)\n       (with-helm-alive-p\n         (helm-attrset 'quick-delete '(helm-ff-quick-delete . never-split))\n         (helm-execute-persistent-action 'quick-delete)))\n\n  This function is then bound in `helm-find-files-map'.") (persistent-action-if :initarg :persistent-action-if :initform nil :custom function :documentation "  Similar from persistent action but it is a function that should\n  return an object suitable for persistent action when called , i.e. a\n  function or a cons cell.\n  Example:\n\n     (defun foo-persistent-action (candidate)\n       (cond (something\n              ;; Don't split helm-window.\n              (cons (lambda (_ignore)\n                      (do-something candidate))\n                    'no-split))\n             ;; Split helm-window.\n             (something-else\n              (lambda (_ignore)\n                (do-something-else candidate)))))\n\n     :persistent-action-if 'foo-persistent-action\n\n  Here when hitting `C-j' one of the lambda's will be executed\n  depending on something or something-else condition, splitting or not\n  splitting as needed.\n  See `helm-find-files-persistent-action-if' definition as another example.") (persistent-help :initarg :persistent-help :initform nil :custom string :documentation "  A string to explain persistent-action of this source. It also\n  accepts a function or a variable name.\n  It will be displayed in `header-line' or in `minibuffer' depending\n  of value of `helm-echo-input-in-header-line' and `helm-display-header-line'.") (help-message :initarg :help-message :initform nil :custom (choice string function) :documentation "  Help message for this source.\n  If not present, `helm-help-message' value will be used.") (multiline :initarg :multiline :initform nil :custom (choice boolean integer) :documentation "  Allow multiline candidates.\n  When non-nil candidates will be separated by `helm-candidate-separator'.\n  You can customize the color of this separator with `helm-separator' face.\n  Value of multiline can be an integer which specify the maximum size of the\n  multiline string to display, if multiline string is longer than this value\n  it will be truncated.") (requires-pattern :initarg :requires-pattern :initform nil :custom integer :documentation "  If present matches from the source are shown only if the\n  pattern is not empty. Optionally, it can have an integer\n  parameter specifying the required length of input which is\n  useful in case of sources with lots of candidates.") (candidate-transformer :initarg :candidate-transformer :initform nil :custom (choice function list) :documentation "  It's a function or a list of functions called with one argument\n  when the completion list from the source is built. The argument\n  is the list of candidates retrieved from the source. The\n  function should return a transformed list of candidates which\n  will be used for the actual completion.  If it is a list of\n  functions, it calls each function sequentially.\n\n  This can be used to transform or remove items from the list of\n  candidates.\n\n  Note that `candidates' is run already, so the given transformer\n  function should also be able to handle candidates with (DISPLAY\n  . REAL) format.") (filtered-candidate-transformer :initarg :filtered-candidate-transformer :initform nil :custom (choice function list) :documentation "  It has the same format as `candidate-transformer', except the\n  function is called with two parameters: the candidate list and\n  the source.\n\n  This transformer is run on the candidate list which is already\n  filtered by the current pattern. While `candidate-transformer'\n  is run only once, it is run every time the input pattern is\n  changed.\n\n  It can be used to transform the candidate list dynamically, for\n  example, based on the current pattern.\n\n  In some cases it may also be more efficent to perform candidate\n  transformation here, instead of with `candidate-transformer'\n  even if this transformation is done every time the pattern is\n  changed.  For example, if a candidate set is very large then\n  `candidate-transformer' transforms every candidate while only\n  some of them will actually be displayed due to the limit\n  imposed by `helm-candidate-number-limit'.\n\n  Note that `candidates' and `candidate-transformer' is run\n  already, so the given transformer function should also be able\n  to handle candidates with (DISPLAY . REAL) format.") (filter-one-by-one :initarg :filter-one-by-one :initform nil :custom (choice function list) :documentation "  A transformer function that treat candidates one by one.\n  It is called with one arg the candidate.\n  It is faster than `filtered-candidate-transformer' or\n  `candidate-transformer', but should be used only in sources\n  that recompute constantly their candidates, e.g `helm-source-find-files'.\n  Filtering happen early and candidates are treated\n  one by one instead of re-looping on the whole list.\n  If used with `filtered-candidate-transformer' or `candidate-transformer'\n  these functions should treat the candidates transformed by the\n  `filter-one-by-one' function in consequence.") (display-to-real :initarg :display-to-real :initform nil :custom function :documentation "  Transform the selected candidate when passing it to action.\n\n  Function called with one parameter, the selected candidate.\n\n  Avoid recomputing all candidates with candidate-transformer\n  or filtered-candidate-transformer to give a new value to REAL,\n  instead the selected candidate is transformed only when passing it\n  to action.\n\n  Note that this is NOT a transformer,\n  so the display will not be modified by this function.") (real-to-display :initarg :real-to-display :initform nil :custom function :documentation "  Recompute all candidates computed previously with other transformers.\n\n  Function called with one parameter, the selected candidate.\n\n  The real value of candidates will be shown in display.\n  Note: This have nothing to do with display-to-real.\n  It is unuseful as the same can be performed by using more than\n  one function in transformers, it is kept only for backward compatibility.") (marked-with-props :initarg :marked-with-props :initform nil :custom (choice boolean symbol) :documentation "  Get candidates with their properties in `helm-marked-candidates'.\n  Allow using the FORCE-DISPLAY-PART of `helm-get-selection' in marked\n  candidates, use t or 'withprop to pass it to `helm-get-selection'.") (action-transformer :initarg :action-transformer :initform nil :custom (choice function list) :documentation "  It's a function or a list of functions called with two\n  arguments when the action list from the source is\n  assembled. The first argument is the list of actions, the\n  second is the current selection.  If it is a list of functions,\n  it calls each function sequentially.\n\n  The function should return a transformed action list.\n\n  This can be used to customize the list of actions based on the\n  currently selected candidate.") (pattern-transformer :initarg :pattern-transformer :initform nil :custom (choice function list) :documentation "  It's a function or a list of functions called with one argument\n  before computing matches. Its argument is `helm-pattern'.\n  Functions should return transformed `helm-pattern'.\n\n  It is useful to change interpretation of `helm-pattern'.") (candidate-number-limit :initarg :candidate-number-limit :initform nil :custom integer :documentation "  Override `helm-candidate-number-limit' only for this source.") (volatile :initarg :volatile :initform nil :custom boolean :documentation "  Indicates the source assembles the candidate list dynamically,\n  so it shouldn't be cached within a single Helm\n  invocation. It is only applicable to synchronous sources,\n  because asynchronous sources are not cached.") (match :initarg :match :initform nil :custom (choice function list) :documentation "  List of functions called with one parameter: a candidate. The\n  function should return non-nil if the candidate matches the\n  current pattern (see variable `helm-pattern').\n\n  When using `candidates-in-buffer' its default value is `identity' and\n  don't have to be changed, use the `search' slot instead.\n\n  This attribute allows the source to override the default\n  pattern matching based on `string-match'. It can be used, for\n  example, to implement a source for file names and do the\n  pattern matching on the basename of files, since it's more\n  likely one is typing part of the basename when searching for a\n  file, instead of some string anywhere else in its path.\n\n  If the list contains more than one function then the list of\n  matching candidates from the source is constructed by appending\n  the results after invoking the first function on all the\n  potential candidates, then the next function, and so on. The\n  matching candidates supplied by the first function appear first\n  in the list of results and then results from the other\n  functions, respectively.\n\n  This attribute has no effect for asynchronous sources (see\n  attribute `candidates'), since they perform pattern matching\n  themselves.\n\n  Note that FUZZY-MATCH slot will overhide value of this slot.") (fuzzy-match :initarg :fuzzy-match :initform nil :custom boolean :documentation "  Enable fuzzy matching in this source.\n  This will overwrite settings in MATCH slot, and for\n  sources built with child class `helm-source-in-buffer' the SEARCH slot.\n  This is an easy way of enabling fuzzy matching, but you can use the MATCH\n  or SEARCH slots yourself if you want something more elaborated, mixing\n  different type of match (See `helm-source-buffers' class for example).\n\n  This attribute is not supported for asynchronous sources\n  since they perform pattern matching themselves.") (redisplay :initarg :redisplay :initform 'identity :custom (choice list function) :documentation "  A function or a list of functions to apply to current list\n  of candidates when redisplaying buffer with `helm-redisplay-buffer'.\n  This is only interesting for modifying and redisplaying the whole list\n  of candidates in async sources.\n  It uses `identity' by default for when async sources are mixed with\n  normal sources, in this case these normal sources are not modified and\n  redisplayed as they are.") (nomark :initarg :nomark :initform nil :custom boolean :documentation "  Don't allow marking candidates when this attribute is present.") (nohighlight :initarg :nohighlight :initform nil :custom boolean :documentation "  Disable highlighting matches in this source.\n  This will disable generic highlighting of matches,\n  but some specialized highlighting can be done from elsewhere,\n  i.e from `filtered-candidate-transformer' or `filter-one-by-one' slots.\n  So use this to either disable completely highlighting in your source,\n  or to disable highlighting and use a specialized highlighting matches\n  function for this source.\n  Remember that this function should run AFTER all filter functions if those\n  filter functions are modifying face properties, though it is possible to\n  avoid this by using new `add-face-text-property' in your filter functions.") (allow-dups :initarg :allow-dups :initform nil :custom boolean :documentation "  Allow helm collecting duplicates candidates.") (history :initarg :history :initform nil :custom symbol :documentation "  Allow passing history variable to helm from source.\n  It should be a quoted symbol.\n  Passing the history variable here have no effect\n  so add it also in the `helm' call with the :history keyword.\n  The main point of adding the variable here\n  is to make it available when resuming.") (coerce :initarg :coerce :initform nil :custom function :documentation "  It's a function called with one argument: the selected candidate.\n  This function is intended for type convertion. In normal case,\n  the selected candidate (string) is passed to action\n  function. If coerce function is specified, it is called just\n  before action function.\n\n  Example: converting string to symbol\n    (coerce . intern)") (mode-line :initarg :mode-line :initform nil :custom (choice string sexp) :documentation "  Source local `helm-mode-line-string' (included in\n  `mode-line-format'). It accepts also variable/function name.") (header-line :initarg :header-line :initform nil :custom (choice string function) :documentation "  Source local `header-line-format'.\n  It will be displayed in `header-line' or in `minibuffer' depending\n  of value of `helm-echo-input-in-header-line' and `helm-display-header-line'.\n  It accepts also variable/function name.") (resume :initarg :resume :initform nil :custom function :documentation "  Function called with no parameters at end of initialization\n  when `helm-resume' is started.\n  If this function try to do something against `helm-buffer', (e.g updating,\n  searching etc...) probably you should run it in a timer to ensure\n  `helm-buffer' is ready.") (follow :initarg :follow :initform nil :custom integer :documentation "  Enable `helm-follow-mode' for this source only.\nWith a value of 1 enable, a value of -1 or nil disable the mode.\n  See `helm-follow-mode' for more infos.") (follow-delay :initarg :follow-delay :initform nil :custom integer :documentation "  `helm-follow-mode' will execute persistent-action after this delay.\n  Otherwise value of `helm-follow-input-idle-delay' is used if non--nil,\n  If none of these are found fallback to `helm-input-idle-delay'.") (multimatch :initarg :multimatch :initform t :custom boolean :documentation "  Use the multi-match algorithm when non-nil.\n  I.e Allow specifying multiple patterns separated by spaces.\n  When a pattern is prefixed by \"!\" the negation of this pattern is used,\n  i.e match anything but this pattern.\n  It is the standard way of matching in helm and is enabled by default.\n  It can be used with fuzzy-matching enabled, but as soon helm detect a space,\n  each pattern will match by regexp and will not be fuzzy.") (match-part :initarg :match-part :initform nil :custom function :documentation "  Allow matching only one part of candidate.\n  If source contain match-part attribute, match is computed only\n  on part of candidate returned by the call of function provided\n  by this attribute. The function should have one arg, candidate,\n  and return only a specific part of candidate.\n  On async sources, as matching is done by the backend, this have\n  no effect apart for highlighting matches.") (before-init-hook :initarg :before-init-hook :initform nil :custom symbol :documentation "  A local hook that run at beginning of initilization of this source.\n  i.e Before the creation of `helm-buffer'.\n\n  Should be a variable (defined with defvar).\n  Can be also an anonymous function or a list of functions\n  directly added to slot, this is not recommended though.") (after-init-hook :initarg :after-init-hook :initform nil :custom symbol :documentation "  A local hook that run at end of initilization of this source.\n  i.e After the creation of `helm-buffer'.\n\n  Should be a variable.\n  Can be also an anonymous function or a list of functions\n  directly added to slot, this is not recommended though.") (delayed :initarg :delayed :initform nil :custom (choice null integer) :documentation "  This slot have no more effect and is just kept for backward compatibility.\n  Please don't use it.") (group :initarg :group :initform helm :custom symbol :documentation "  The current source group, default to `helm' when not specified.")) (:documentation "Main interface to define helm sources." :abstract t)] 6)
16 #@69 You cannot create a new object of type `helm-source'.
17
18 (fn &rest _)
19 (defalias 'helm-source #[128 "\300\301!\207" [error "Class helm-source is abstract"] 3 (#$ . 21077)])
20 (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.")) (: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)
21 #@73 Create a new object of class type `helm-source-sync'.
22
23 (fn &rest SLOTS)
24 (defalias 'helm-source-sync #[128 "\300\301\302#\207" [apply make-instance helm-source-sync] 5 (#$ . 23022)])
25 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-sync compiler-macro helm-source-sync--anon-cmacro] 4)
26 #@26 
27
28 (fn WHOLE &rest SLOTS)
29 (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 (#$ . 23330)])
30 (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 :candidates slot is not allowed even if described because this class\ninherit from `helm-source'.")] 6)
31 #@74 Create a new object of class type `helm-source-async'.
32
33 (fn &rest SLOTS)
34 (defalias 'helm-source-async #[128 "\300\301\302#\207" [apply make-instance helm-source-async] 5 (#$ . 24681)])
35 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-async compiler-macro helm-source-async--anon-cmacro] 4)
36 #@26 
37
38 (fn WHOLE &rest SLOTS)
39 (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 (#$ . 24994)])
40 (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)
41 #@78 Create a new object of class type `helm-source-in-buffer'.
42
43 (fn &rest SLOTS)
44 (defalias 'helm-source-in-buffer #[128 "\300\301\302#\207" [apply make-instance helm-source-in-buffer] 5 (#$ . 29300)])
45 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-in-buffer compiler-macro helm-source-in-buffer--anon-cmacro] 4)
46 #@26 
47
48 (fn WHOLE &rest SLOTS)
49 (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 (#$ . 29633)])
50 (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)
51 #@74 Create a new object of class type `helm-source-dummy'.
52
53 (fn &rest SLOTS)
54 (defalias 'helm-source-dummy #[128 "\300\301\302#\207" [apply make-instance helm-source-dummy] 5 (#$ . 30700)])
55 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-dummy compiler-macro helm-source-dummy--anon-cmacro] 4)
56 #@26 
57
58 (fn WHOLE &rest SLOTS)
59 (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 (#$ . 31013)])
60 (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)
61 #@76 Create a new object of class type `helm-source-in-file'.
62
63 (fn &rest SLOTS)
64 (defalias 'helm-source-in-file #[128 "\300\301\302#\207" [apply make-instance helm-source-in-file] 5 (#$ . 32369)])
65 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-in-file compiler-macro helm-source-in-file--anon-cmacro] 4)
66 #@26 
67
68 (fn WHOLE &rest SLOTS)
69 (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 (#$ . 32692)])
70 (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])
71 #@105 [INTERNAL] Build a helm source from OBJECT.
72 Where OBJECT is an instance of an eieio class.
73
74 (fn OBJECT)
75 (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 (#$ . 33144)])
76 #@319 Build a `helm' source named NAME with ARGS for CLASS.
77 Argument NAME is a string which define the source name, so no need to use
78 the keyword :name in your source, NAME will be used instead.
79 Argument CLASS is an eieio class object.
80 Arguments ARGS are keyword value pairs as defined in CLASS.
81
82 (fn NAME CLASS &rest ARGS)
83 (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 (#$ . 33446)])
84 (byte-code "\300\301\302\303#\300\207" [function-put helm-make-source lisp-indent-function 2] 4)
85 #@25 
86
87 (fn CLASS &rest ARGS)
88 (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 (#$ . 34084)])
89 #@22 
90
91 (fn SOURCE METHOD)
92 (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 (#$ . 34301)])
93 #@225 Same as `helm-add-action-to-source-if' but for SOURCE defined as eieio object.
94 You can use this inside a `helm--setup-source' method for a SOURCE defined as
95 an eieio class.
96
97 (fn NAME FN SOURCE PREDICATE &optional (INDEX 4))
98 (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 (#$ . 35072)])
99 #@22 
100
101 (fn STRING SOURCE)
102 (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 (#$ . 35985)])
103 #@15 
104
105 (fn SOURCE)
106 (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 (#$ . 36257)])
107 (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\"\203\303\304\301\305\"\"\210\301\306\"\211\203%\2119\203%\307\306J#\266\210\301\310\"\211\203=\307\311\312\"#\266\202H\307\311\313!#\266\210\301\314\"\203q\203q\211\307\315\301\315\"\211\203j\316\317!C\"\202lC\262#\266\301\320\"\204\225\211\307\315\301\315\"\211\203\216\316\317!\321C\"\202\220\321C\262#\266\322\301\323\"!\247\205\274\211\307\315\301\315\"\211\203\265\316\317!\324C\"\202\267\324C\262#\262\207" [helm-fuzzy-sort-fn slot-value delayed warn "Deprecated usage of helm `delayed' slot in `%s'" name keymap eieio-oset 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\205d\211\312=?\205d\304\303\305\306\301\303\"!\313\"#\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)] 11 "\n\n(fn SOURCE)"] helm-source-in-buffer #[257 "\301\302\"\301\303\"\211\203-\304\302\305\306\307=?\205\310\311\312\313\314\f!\315\"\316$D\"#\266\266\301\317\"\203Z\301\320\"\211\203P\304\320\321\322!C\"#\266\202Y\304\320C#\266\210\301\323\"\203l\211\304\320\324\320\"#\266\301\323\"?\205x\301\325\"\211\203\223\211\326=\204\223\304\320\321\322\301\320\"!\327\"#\266\210\301\330\"\211\331\232\204\253\211\332=\204\253\333\334\335\306\211$\210\301\336\"\337=\204\273\333\340\341\306\211$\210\306\207" [helm-fuzzy-search-fn slot-value init data eieio-oset delq nil 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 cl--assertion-failed (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-match)) "`fuzzy-match' not supported in async sources."] 6 "\n\n(fn SOURCE)"] helm-source-dummy #[257 "\300\301\"\211\302\232\204\211\303=\204\304\305\306\307\211$\210\300\310\"\311=\204'\304\312\313\307\211$\210\300\314\"\315\232\2047\304\316\317\307\211$\210\300\320\"\311=\204G\304\321\322\307\211$\210\307\207" [slot-value match #2=(identity) identity cl--assertion-failed (or (equal '#2# mtc) (eq 'identity mtc)) "Invalid slot value for `match'" nil volatile t (eq (slot-value source 'volatile) t) "Invalid slot value for `volatile'" candidates #3=("dummy") (equal (slot-value source 'candidates) '#3#) "Invalid slot value for `candidates'" accept-empty (eq (slot-value source 'accept-empty) t) "Invalid slot value for `accept-empty'"] 7 "\n\n(fn SOURCE)"]] 5)
108 #@126 Build a synchronous helm source with name NAME.
109 Args ARGS are keywords provided by `helm-source-sync'.
110
111 (fn NAME &rest ARGS)
112 (defalias 'helm-build-sync-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-sync] 6 (#$ . 41254)]))
113 (byte-code "\300\301\302\303#\300\207" [function-put helm-build-sync-source lisp-indent-function 1] 4)
114 #@128 Build a asynchronous helm source with name NAME.
115 Args ARGS are keywords provided by `helm-source-async'.
116
117 (fn NAME &rest ARGS)
118 (defalias 'helm-build-async-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-async] 6 (#$ . 41614)]))
119 (byte-code "\300\301\302\303#\300\207" [function-put helm-build-async-source lisp-indent-function 1] 4)
120 #@155 Build a helm source with name NAME using `candidates-in-buffer' method.
121 Args ARGS are keywords provided by `helm-source-in-buffer'.
122
123 (fn NAME &rest ARGS)
124 (defalias 'helm-build-in-buffer-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-in-buffer] 6 (#$ . 41979)]))
125 (byte-code "\300\301\302\303#\300\207" [function-put helm-build-in-buffer-source lisp-indent-function 1] 4)
126 #@136 Build a helm source with name NAME using `dummy' method.
127 Args ARGS are keywords provided by `helm-source-dummy'.
128
129 (fn NAME &rest ARGS)
130 (defalias 'helm-build-dummy-source '(macro . #[385 "\300\301BBB\207" [helm-make-source 'helm-source-dummy] 6 (#$ . 42383)]))
131 (byte-code "\300\301\302\303#\300\207" [function-put helm-build-dummy-source lisp-indent-function 1] 4)
132 #@245 Build a helm source with NAME name using `candidates-in-files' method.
133 Arg FILE is a filename, the contents of this file will be
134 used as candidates in buffer.
135 Args ARGS are keywords provided by `helm-source-in-file'.
136
137 (fn NAME FILE &rest ARGS)
138 (defalias 'helm-build-in-file-source '(macro . #[642 "\300\301\302BBBBB\207" [helm-make-source 'helm-source-in-file :candidates-file] 9 (#$ . 42756)]))
139 (byte-code "\300\301\302\303#\304\305!\207" [function-put helm-build-in-file-source lisp-indent-function 1 provide helm-source] 4)