;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\325&\210\312\326\314\315\327DD\330\311\306\320\331&\210\312\332\314\315\333DD\334\311\306\320\331&\210\312\335\314\315\336DD\337\311\306\320\331&\210\312\340\314\315\341DD\342\311\306\320\315&\210\312\343\314\315\344DD\345\311\306\320\331&\210\346\343\347\350#\210\312\351\314\315\352DD\353\311\306\320\331&\207" [require cl-lib helm helm-lib helm-files custom-declare-group helm-mode nil "Enable helm completion." :group custom-declare-variable helm-completing-read-handlers-alist funcall function #[0 "\300\207" [((find-tag . helm-completing-read-default-find-tag) (xref-find-definitions . helm-completing-read-default-find-tag) (xref-find-references . helm-completing-read-default-find-tag) (ggtags-find-tag-dwim . helm-completing-read-default-find-tag) (tmm-menubar) (find-file) (execute-extended-command) (dired-do-rename . helm-read-file-name-handler-1) (dired-do-copy . helm-read-file-name-handler-1) (dired-do-symlink . helm-read-file-name-handler-1) (dired-do-relsymlink . helm-read-file-name-handler-1) (dired-do-hardlink . helm-read-file-name-handler-1) (basic-save-buffer . helm-read-file-name-handler-1) (write-file . helm-read-file-name-handler-1) (write-region . helm-read-file-name-handler-1))] 1] "Completing read functions for specific Emacs commands.\n\nBy default `helm-mode' use `helm-completing-read-default-handler' to\nprovide helm completion in each `completing-read' or `read-file-name'\nfound, but other functions can be specified here for specific\ncommands. This also allows disabling helm completion for some commands\nwhen needed.\n\nEach entry is a cons cell like (EMACS_COMMAND . COMPLETING-READ_HANDLER)\nwhere key and value are symbols.\n\nEach key is an Emacs command that use originaly `completing-read'.\n\nEach value maybe a helm function that takes same arguments as\n`completing-read' plus NAME and BUFFER, where NAME is the name of the new\nhelm source and BUFFER the name of the buffer we will use, but it can\nbe also a function not using helm, in this case the function should\ntake the same args as `completing-read' and not be prefixed by \"helm-\".\n\n`helm' will use the name of the command calling `completing-read' as\nNAME and BUFFER will be computed as well with NAME but prefixed with\n\"*helm-mode-\".\n\nThis function prefix name must start by \"helm-\" when it uses helm,\notherwise `helm' assumes the function is not a helm function and\nexpects the same args as `completing-read', this allows you to define a\nhandler not using helm completion.\n\nExample:\n\n (defun foo/test ()\n (interactive)\n (message \"%S\" (completing-read \"test: \" '(a b c d e))))\n\n (defun helm-foo/test-completing-read-handler (prompt collection\n predicate require-match\n initial-input hist def\n inherit-input-method\n name buffer)\n (helm-comp-read prompt collection :marked-candidates t\n :name name\n :buffer buffer))\n\n (add-to-list 'helm-completing-read-handlers-alist\n '(foo/test . helm-foo/test-completing-read-handler))\n\n\nWe want here to make the regular `completing-read' in `foo/test'\nreturn a list of candidate(s) instead of a single candidate.\n\nNote that this function will be reused for ALL the `completing-read'\nof this command, so it should handle all cases. E.g.,\nif first `completing-read' completes against symbols and\nsecond `completing-read' should handle only buffer,\nyour specialized function should handle both.\n\nIf the value of an entry is nil completion will fall back to\nEmacs vanilla behaviour.\nExample:\n\nIf you want to disable helm completion for `describe-function', use:\n\n (describe-function . nil)\n\nIdo is also supported, you can use `ido-completing-read' and\n`ido-read-file-name' as value of an entry or just 'ido.\nExample:\nEnable ido completion for `find-file':\n\n (find-file . ido)\n\nsame as\n\n (find-file . ido-read-file-name)\n\nNote that you don't need to enable `ido-mode' for this to work, see\n`helm-mode' documentation." :type (alist :key-type symbol :value-type symbol) helm-comp-read-case-fold-search #[0 "\207" [helm-case-fold-search] 1] "Default Local setting of `helm-case-fold-search' for `helm-comp-read'.\nSee `helm-case-fold-search' for more info." symbol helm-mode-handle-completion-in-region #[0 "\300\207" [t] 1] "Whether to replace or not `completion-in-region-function'.\nThis enables support for `completing-read-multiple' and `completion-at-point'\nwhen non--nil." boolean helm-mode-no-completion-in-region-in-modes #[0 "\300\207" [nil] 1] "A list of modes that do not want helm for `completion-in-region'." helm-mode-reverse-history #[0 "\300\207" [t] 1] "Display history source after current source when non nil.\n\nApply only in `helm-mode' handled commands." helm-completion-in-region-default-sort-fn #[0 "\300\207" [helm-completion-in-region-sort-fn] 1] "The default sort function to sort candidates in completion-in-region.\n\nWhen nil no sorting is done.\nThe function is a `filtered-candidate-transformer' function which takes\ntwo args CANDIDATES and SOURCE.\nThe function must use the flag `helm-completion--sorting-done' and\nreturn CANDIDATES unchanged when the flag is nil.\nSee default function `helm-completion-in-region-sort-fn' as example.\nIt will be used only when `helm-completion-style' is either Emacs or\nhelm, otherwise when helm-fuzzy style is used, the fuzzy sort function\nwill be used." helm-mode-fuzzy-match #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-mode' globally.\n\nThis is deprecated, use instead helm-fuzzy as `helm-completion-style' or\neven better 'emacs as `helm-completion-style' and add 'flex to\n`completion-styles' (emacs-27) or 'helm-flex if 'flex is not available\nin `completion-styles-alist' (emacs-26)." make-obsolete-variable helm-completion-style "3.6.0" helm-completion-mark-suffix #[0 "\300\207" [t] 1] "Push mark at end of suffix when non nil."] 8) #@268 Incompatible `minibuffer-setup-hook' functions go here. A list of symbols. `helm-mode' is rejecting all lambda's, byte-code fns and all functions belonging in this list from `minibuffer-setup-hook'. This is mainly needed to prevent "*Completions*" buffers to popup. (defvar helm-mode-minibuffer-setup-hook-black-list '(minibuffer-completion-help) (#$ . 6440)) (byte-code "\301\302\303\304\305Y\205 \306\307\"BC\310\311\312%\207" [emacs-major-version custom-declare-face helm-mode-prefix t append 27 (:extend t) ((:background "red" :foreground "black")) "Face used for prefix completion." :group helm-mode] 6) #@30 Keymap for `helm-comp-read'. (defvar helm-comp-read-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-cr-empty-string [134217741]] 5) (#$ . 7058)) (defalias 'helm-mode-delete-char-backward-1 #[0 "\3001 \301\302!0\207\303\304 !r\305\306\"\216\307@\310\"\210\311 \312\230*?\262\203(\313\314!\207\315\316@\"\207" [(text-read-only) call-interactively delete-backward-char internal--before-with-selected-window minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord minibuffer-contents "" message "Trying to delete prefix completion, next hit will quit" user-error "%s"] 5 nil nil]) (put 'helm-mode-delete-char-backward-1 'helm-only t) (defalias 'helm-mode-delete-char-backward-2 #[0 "\3011 \302\303!0\207\304\305 !r\306\307\"\216\310@\311\"\210\312 \313\230*\262?\205=r\314!\203/\2062p\211q\210\315\316\317\320#\210)\321 \207" [helm-current-buffer (text-read-only) call-interactively delete-backward-char internal--before-with-selected-window minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord minibuffer-contents "" buffer-live-p run-with-timer 0.1 nil #[0 "\300\301!\207" [call-interactively delete-backward-char] 2] helm-keyboard-quit] 5 nil nil]) (byte-code "\300\301\302\303#\210\304\305\306\307\310\"\311#\210\312\313\314\315\316DD\317\320\321\322\323\324\325& \207" [put helm-mode-delete-char-backward-2 helm-only t defalias helm-mode-delete-char-backward-maybe helm-make-multi-command (helm-mode-delete-char-backward-1 helm-mode-delete-char-backward-2) 1 "Delete char backward when text is not the prefix helm is completing against.\nFirst call warns user about deleting prefix completion.\nSecond call deletes backward char in current-buffer and quits helm completion,\nletting the user start a new completion with a new prefix.\n\n" custom-declare-variable helm-completion-style funcall function #[0 "\300\207" [helm] 1] "Style of completion to use in `completion-in-region'.\n\nThis affects only `completion-at-point' and friends, and\nthe `completing-read' using the default handler\ni.e. `helm-completing-read-default-handler'.\n\nNB: This has nothing to do with `completion-styles', it is independent from\nhelm, but when using 'emacs as helm-completion-style helm\nwill use the `completion-styles' for its completions.\nUp to the user to configure `completion-styles'.\n\nThere are three possible values to use:\n\n- helm, use multi match regular helm completion.\n\n- helm-fuzzy, use fuzzy matching. Note that as usual when\n entering a space helm switch to multi matching mode.\n\n- emacs, use regular Emacs completion according to\n `completion-styles'. Note that even in this style, helm allows using\n multi match. Emacs-27 provides a style called `flex' that can be used\n aside `helm' style (see `completion-styles-alist'). When `flex' style\n is not available (Emacs<27) helm provides `helm-flex' style which is similar to\n `flex' and helm fuzzy matching.\n\nFor a better experience with emacs style, if you don't know what to use, set\n`completion-styles' to '(flex) if you are using emacs-27 or to\n'(helm-flex) if you are using emacs-26 and keep 'emacs as default\nvalue for `helm-completion-style'. Advanced users can also have a\nlook to `completion-category-overrides' to set styles according to category.\nYou can as well use `helm-completion-styles-alist' to override\n`helm-completion-style' in specific modes.\n\nOf course when using `helm' of `helm-fuzzy' as `helm-completion-style'\nemacs `completion-styles' have no effect.\n\nPlease use custom interface or `customize-set-variable' to set this,\nNOT `setq'." :group helm-mode :type (choice (const :tag "Emacs" emacs) (const :tag "Helm" helm) (const :tag "Helm-fuzzy" helm-fuzzy)) :set #[514 "L\210\211\301>\203\302\303\304#\207\302\303\305#\207" [helm-comp-read-map (helm helm-fuzzy) define-key "" helm-mode-delete-char-backward-maybe delete-backward-char] 6 "\n\n(fn VAR VAL)"]] 10) (defconst helm-completion--all-styles (byte-code "\301\236\203\n\301\202 \302\303\304\305D\306\307\"\"!\207" [completion-styles-alist flex helm-flex helm-fast-remove-dups append helm mapcar car] 7)) (defconst helm-completion--styles-type (byte-code "\301\302\303\304\305\306\"BF\207" [helm-completion--all-styles repeat :tag "with other completion styles" choice mapcar #[257 "\300D\207" [const] 3 "\n\n(fn X)"]] 7)) (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\316\317\320\321\322\317\323\324\257\257\257&\207" [helm-completion--styles-type custom-declare-variable helm-completion-styles-alist funcall function #[0 "\300\207" [((gud-mode . helm))] 1] "Allow configuring `helm-completion-style' per mode.\n\nEach entry is a cons cell like (mode . style) where style must be a\nsuitable value for `helm-completion-style'.\nWhen specifying emacs as style for a mode, `completion-styles' can be\nspecified by using a cons cell specifying completion-styles to use\nwith helm emacs style, e.g. (foo-mode . (emacs helm flex)) will set\n`completion-styles' to '(helm flex) for foo-mode. This affects only\ncompletions happening in buffers and not minibuffer completions,\ni.e. completing-read's." :group helm-mode :type alist :key-type (symbol :tag "Major Mode") :value-type choice :tag "Use helm style or completion styles" (radio :tag "Helm Style" (const helm) (const helm-fuzzy) (const emacs)) cons "Completion Styles" (const :tag "Using Helm `emacs' style" emacs)] 20) #@304 [INTERNAL] When non nil `helm-comp-read' will return marked candidates. Use this ONLY in `let', NOT globally, this allows third party packages to use a list as return value when `helm-mode' is enabled, e.g. (let ((helm-comp-read-use-marked t)) (completing-read "test: " '(a b c d e f g)))  (defvar helm-comp-read-use-marked nil (#$ . 12699)) #@22 Return empty string. (defalias 'helm-cr-empty-string #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action #[257 "\300\207" [""] 2 "\n\n(fn CANDIDATE)"] error "Running helm command outside of context"] 2 (#$ . 13060) nil]) (put 'helm-cr-empty-string 'helm-only t) (defalias 'helm-mode--keyboard-quit #[0 "\301\302\303\301\")\207" [debug-on-quit nil signal quit] 3]) #@1645 Convert COLLECTION to list removing elements that don't match TEST. See `helm-comp-read' about supported COLLECTION arguments. SORT-FN is a predicate to sort COLLECTION. ALISTP when non--nil will not use `all-completions' to collect candidates because it doesn't handle alists correctly for helm. i.e In `all-completions' the car of each pair is used as value. In helm we want to use the cdr instead like (display . real), so we return the alist as it is with no transformation by `all-completions'. e.g (setq A '((a . 1) (b . 2) (c . 3))) ==>((a . 1) (b . 2) (c . 3)) (helm-comp-read "test: " A :alistp nil :exec-when-only-one t :initial-input "a") ==>"a" Which is not what we expect. (helm-comp-read "test: " A :alistp t :exec-when-only-one t :initial-input "1") ==>"1" See docstring of `all-completions' for more info. INPUT is the string you want to complete against, defaulting to `helm-pattern' which is the value of what you enter in minibuffer. Note that when using a function as COLLECTION this value will be available with the input argument of the function only when using a sync source from `helm-comp-read', i.e. not using `:candidates-in-buffer', otherwise the function is called only once with an empty string as value for `helm-pattern' because `helm-pattern' is not yet computed, which is what we want otherwise data would not be fully collected at init time. If COLLECTION is an `obarray', a TEST should be needed. See `obarray'. (fn COLLECTION &optional TEST SORT-FN ALISTP (INPUT helm-pattern)) (defalias 'helm-comp-read-get-candidates #[1153 "\211\203 \211A\262\242\202\203\304\305\306\307G\\D\"\210r\310 !\203' \206*p\211q\210\203J\311!\203J\312C\313\314\315\"\"\210\211\242\237\262\202)\316!\203[\317#\202)9\203q\320!\203qJ9\203q\312\202)9\203\222\320!\203\222\203\222\314\321\"\317J#\262\202)9\203\247\320!\203\247\317J\"\202)\322!\203\211\323\230\204\n\204\307\324\325#\326\"\327=\203\330#\312\211:\203\377@\262\331\235\204\370\332 \"\203\355B\262\202\370\333\334!!PB\262A\262\202\317\211\237\266\203\202)\322!\203\330#\202)\203\"\204\"\202)\317#\2035\335\"\2026\211\262)\207" [helm-pattern helm-current-buffer minibuffer-completing-file-name helm--url-regexp signal wrong-number-of-arguments helm-comp-read-get-candidates 5 buffer-live-p hash-table-p nil maphash make-closure #[514 "\300B\300\242B\240\207" [V0] 5 "\n\n(fn K V)"] vectorp all-completions boundp #[257 "\3011\300\302=\203\300\303!!\202\300!0\207\300\303!!\207" [V0 (wrong-type-argument) commandp intern] 5 "\n\n(fn ELM)"] functionp "" completion-metadata-get completion-metadata category file t ("./" "../") string-match file-name-as-directory helm-basedir sort] 12 (#$ . 13464)]) #@19 (fn CANDIDATES) (defalias 'helm-cr--pattern-in-candidates-p #[257 "\301\"\206 \302!\236\206 \235\206 \227\235\206 \226\235\207" [helm-pattern assoc intern] 4 (#$ . 16411)]) #@81 Default filter candidate function for `helm-comp-read'. (fn CANDIDATES SOURCE) (defalias 'helm-cr-default-transformer #[514 "\301\302\"\303\304=\204!\305\230\204!\306!\204!\307C\"\262\304\262\303\211\211\211\211:\203\231@\262;\203>\310\311\305#\202?\262\310\311\305#\262\232\204T\232\203p\203p\312\313\314\312\315\316\317##PBC\244\262\202\217;\203\212\320\321\"\203\212\310\321\322#B\202\213C\244\262A\262\303\262\202'\323\324\325#\207" [helm-pattern helm-get-attr must-match nil t "" helm-cr--pattern-in-candidates-p append replace-regexp-in-string "\\s\\" propertize " " display "[?]" face helm-ff-prefix string-match "\n" "->" helm-fast-remove-dups :test equal] 18 (#$ . 16606)]) (defalias 'helm-comp-read--move-to-first-real-candidate #[0 "\300\301\302\"\211\205\303\304\305#\306\232\205\307 \207" [helm-get-selection nil withprop get-text-property 0 display "[?]" helm-next-line] 5]) #@22 (fn DEFAULT CANDS) (defalias 'helm-cr-default #[514 "\301\302;\203\303\230\204\303\230\203\304\"B\202n:\203m\303\230\203m\305\302\211\211\211:\203d@\262\204>\202A\306!\262 \235\203Q\304\n\"\262 \203ZB\262A\262\302\262\202-\237\266\205\"\202n\"\207" [helm-pattern delq nil "" delete append helm-stringify] 13 (#$ . 17566)]) #@4612 Read a string in the minibuffer, with helm completion. It is helm `completing-read' equivalent. - PROMPT is the prompt name to use. - COLLECTION can be a list, alist, vector, obarray or hash-table. For alists and hash-tables their car are use as real value of candidate unless ALISTP is non-nil. It can be also a function that receives three arguments: the values string, predicate and t. See `all-completions' for more details. Keys description: - TEST: A predicate called with one arg i.e candidate. - INITIAL-INPUT: Same as input arg in `helm'. - PRESELECT: See preselect arg of `helm'. - DEFAULT: This option is used only for compatibility with regular Emacs `completing-read' (Same as DEFAULT arg of `completing-read'). - BUFFER: Name of helm-buffer. - MUST-MATCH: Candidate selected must be one of COLLECTION. - FUZZY: Enable fuzzy matching. - REVERSE-HISTORY: When non--nil display history source after current source completion. - REQUIRES-PATTERN: Same as helm attribute, default is 0. - HISTORY: A list containing specific history, default is nil. When it is non--nil, all elements of HISTORY are displayed in a special source before COLLECTION. - INPUT-HISTORY: A symbol. The minibuffer input history will be stored there, if nil or not provided, `minibuffer-history' will be used instead. - CASE-FOLD: Same as `helm-case-fold-search'. - DEL-INPUT: Boolean, when non--nil (default) remove the partial minibuffer input from HISTORY is present. - PERSISTENT-ACTION: A function called with one arg i.e candidate. - PERSISTENT-HELP: A string to document PERSISTENT-ACTION. - MODE-LINE: A string or list to display in mode line. Default is `helm-comp-read-mode-line'. - KEYMAP: A keymap to use in this `helm-comp-read'. (the keymap will be shared with history source) - NAME: The name related to this local source. - HEADER-NAME: A function to alter NAME, see `helm'. - EXEC-WHEN-ONLY-ONE: Bound `helm-execute-action-at-once-if-one' to non--nil. (possibles values are t or nil). - VOLATILE: Use volatile attribute. - SORT: A predicate to give to `sort' e.g `string-lessp' Use this only on small data as it is inefficient. If you want to sort faster add a sort function to FC-TRANSFORMER. Note that FUZZY when enabled is already providing a sort function. - FC-TRANSFORMER: A `filtered-candidate-transformer' function or a list of functions. - HIST-FC-TRANSFORMER: A `filtered-candidate-transformer' function for the history source. - MARKED-CANDIDATES: If non--nil return candidate or marked candidates as a list. - NOMARK: When non--nil don't allow marking candidates. - ALISTP: When non-nil (default) pass the value of (DISPLAY . REAL) candidate in COLLECTION to action when COLLECTION is an alist or a hash-table, otherwise DISPLAY is always returned as result on exit, which is the default when using `completing-read'. See `helm-comp-read-get-candidates'. - CANDIDATES-IN-BUFFER: when non--nil use a source build with `helm-source-in-buffer' which is much faster. Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil. - MATCH-PART: Allow matching only one part of candidate. See match-part documentation in `helm-source'. - MATCH-DYNAMIC: See match-dynamic in `helm-source-sync' It has no effect when used with CANDIDATES-IN-BUFFER. - ALLOW-NEST: Allow nesting this `helm-comp-read' in a helm session. See `helm'. - MULTILINE: See multiline in `helm-source'. - COERCE: See coerce in `helm-source'. - GROUP: See group in `helm-source'. Any prefix args passed during `helm-comp-read' invocation will be recorded in `helm-current-prefix-arg', otherwise if prefix args were given before `helm-comp-read' invocation, the value of `current-prefix-arg' will be used. That means you can pass prefix args before or after calling a command that use `helm-comp-read'. See `helm-M-x' for example. (fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER "*Helm Completions*") MUST-MATCH FUZZY REVERSE-HISTORY (REQUIRES-PATTERN 0) HISTORY INPUT-HISTORY (CASE-FOLD helm-comp-read-case-fold-search) (DEL-INPUT t) (PERSISTENT-ACTION nil) (PERSISTENT-HELP "DoNothing") (MODE-LINE helm-comp-read-mode-line) HELP-MESSAGE (KEYMAP helm-comp-read-map) (NAME "Helm Completions") HEADER-NAME CANDIDATES-IN-BUFFER MATCH-PART MATCH-DYNAMIC EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (VOLATILE t) SORT FC-TRANSFORMER HIST-FC-TRANSFORMER (MARKED-CANDIDATES helm-comp-read-use-marked) NOMARK (ALISTP t) (CANDIDATE-NUMBER-LIMIT helm-candidate-number-limit) MULTILINE ALLOW-NEST COERCE (GROUP \='helm)) (defalias 'helm-comp-read #[642 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"\206 \314A@\306\315\"A@\306\316\"A@\306\317\"A@\306 \320\"\206@\321A@\306\n\322\"A@\306 \323\"A@\306\f\324\"\206[\325DA@\306 \326\"\206f\327A@\306\330\"A@\306\331\"\206x\332A@\306\333\"\206\205\325 DA@\306\334\"A@\306\335\"\206\231\325\nDA@\306\336\"\206\244\337A@\306\340\"A@\306\341\"A@\306\342\"A@\306\343\"A@\306\344\"A@\306\345\"A@\306\346\"\206\331\347A@\306\350\"A@\306\351\"A@\306\352\"A@\306\353\"\206\373\325 DA@\306\354\"A@\306 \355\"\206 \356A@\306!\357\"\206\325\fDA@\306\"\360\"A@\306#\361\"A@\306$\362\"A@\306%\363\"\206:\364A@%\211\203i\211@\365>\203Q\211AA\262\202>\366'>A@\203`\325\262\202>\367\370@\"\210\202>\210\371 !\203t\372 !\210\373\374\375\376 \377BBFC%@'A\201E\201F\201GB#B\201H\201I)('&\201H\201J('!\f%\201K\201L\201M\"\201N\201O\201P'\360\342\201Q\201R\201S\205\354\201T!\"\330(\331)\335(\3156\363\362\3332\3343\201U &\201K\201N\201O\342\360\340\201Q\201T!\201R\201V>?\205;\201W\"\262\320.\330+\331,\201P6\335-\315;\363\362!\3337\3432\334:\201U'\3465&&\201K\201X\201Y\342\360\340 \201Q\201R\201T!\201Z\"\320/\330,\201P5\335,\315:\363\362 \3317\3338\3349\201U&&\"\203\302\202\303DCD\325\203\364\325\211:\203\356@\262\201[BB\262A\262\202\325\211\237\266\203\262%\203\375\237\262\201\\\201]\201^\"\210\201_\216\201`\201a\201b/\3110\3121\201c9\201d\201e\335)\361\357\201f5\32289\205@8\313@&\262)\211\203\206#\203\206 \203\206#9\203r#J9\204r#J\211\203n\211\240\210\210\202\206#:\203\200#\240\210\202\206#CL\210\211\206\216\201g -\207" [helm-comp-read-case-fold-search helm-comp-read-mode-line helm-comp-read-map helm-comp-read-use-marked helm-candidate-number-limit helm-action-buffer plist-member :test :initial-input :default :preselect :buffer (nil "*Helm Completions*") :must-match :fuzzy :reverse-history :requires-pattern (nil 0) :history :input-history :case-fold nil :del-input (nil t) :persistent-action :persistent-help (nil "DoNothing") :mode-line :help-message :keymap :name (nil "Helm Completions") :header-name :candidates-in-buffer :match-part :match-dynamic :exec-when-only-one :quit-when-no-cand :volatile (nil t) :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp (nil t) :candidate-number-limit :multiline :allow-nest :coerce :group (nil helm) (:test :initial-input :default :preselect :buffer :must-match :fuzzy :reverse-history :requires-pattern :history :input-history :case-fold :del-input :persistent-action :persistent-help :mode-line :help-message :keymap :name :header-name :candidates-in-buffer :match-part :match-dynamic :exec-when-only-one :quit-when-no-cand :volatile :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp :candidate-number-limit :multiline :allow-nest :coerce :group :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:test :initial-input :default :preselect :buffer :must-match :fuzzy :reverse-history :requires-pattern :history :input-history :case-fold :del-input :persistent-action :persistent-help :mode-line :help-message :keymap :name :header-name :candidates-in-buffer :match-part :match-dynamic :exec-when-only-one :quit-when-no-cand :volatile :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp :candidate-number-limit :multiline :allow-nest :coerce :group)" get-buffer kill-buffer "Sole action (Identity)" lambda (candidate) if ((helm-marked-candidates) (identity candidate)) minibuffer-completion-predicate minibuffer-completion-table helm-read-file-name-mode-line-string helm-execute-action-at-once-if-one helm-quit-if-no-candidate replace-regexp-in-string "helm-maybe-exit-minibuffer" "helm-confirm-and-exit-minibuffer" make-closure #[0 "\307\300\301\305\306\304\203\303\204\n\202\310%\311\302\"\207" [V0 V1 V2 V3 V4 V5 V6 helm-comp-read-get-candidates #1="" helm-cr-default helm-pattern] 6] #[0 "\304\302\300\305\303$\211\205\306\307\310\301\"\"\207" [V0 V1 V2 V3 helm-comp-read-get-candidates nil delete #1# helm-cr-default] 6] helm-make-source format "%s History" helm-source-sync :candidates :fuzzy-match :filtered-candidate-transformer append ((lambda (candidates sources) (cl-loop for i in candidates when (stringp i) collect (replace-regexp-in-string "\\s\\" #1# i)))) helm-mklist :action helm-cr-default-transformer (helm-cr-default-transformer) helm-source-in-buffer :data (helm-cr-default-transformer) (nomark) add-hook helm-after-update-hook helm-comp-read--move-to-first-real-candidate #[0 "\300\301\302\"\207" [remove-hook helm-after-update-hook helm-comp-read--move-to-first-real-candidate] 3] helm :sources :input :prompt :resume noresume :case-fold-search helm-mode--keyboard-quit] 83 (#$ . 17945)]) (defvar helm-completion-mode-string " Helm") (defvar helm-completion-mode-quit-message "Helm completion disabled") (defvar helm-completion-mode-start-message "Helm completion enabled") #@160 Specialized function for fast symbols completion in `helm-mode'. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER) (defalias 'helm-completing-read-symbols #[2570 "\301\302!\210\303\304\305\306\307\310\311\f#\312\313\314\315\316\317\310\320\"\321\322 &\323 \324\325 \326\327\330\331\2067\332&\206>\333 \207" [helm-mode-fuzzy-match require helm-elisp helm :sources helm-make-source helm-source-in-buffer :init make-closure #[0 "\302\303\304\300\"\301\242\206 \301\"\207" [V0 V1 helm-apropos-init make-closure #[257 "\300!\205\n\301!?\207" [V0 keywordp] 3 "\n\n(fn X)"]] 4] :filtered-candidate-transformer helm-apropos-default-sort-fn :help-message helm-comp-read-help-message :fuzzy-match :persistent-action #[257 "\301\300\"\207" [V0 helm-lisp-completion-persistent-action] 4 "\n\n(fn CANDIDATE)"] :persistent-help helm-lisp-completion-persistent-help :prompt :buffer :input :history :resume noresume :default "" helm-mode--keyboard-quit] 27 (#$ . 27760)]) #@369 Call `helm-comp-read' with same args as `completing-read'. Extra optional arg CANDS-IN-BUFFER means use `candidates-in-buffer' method which is faster. It should be used when candidate list doesn't need to be rebuilt dynamically. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER &optional CANDS-IN-BUFFER EXEC-WHEN-ONLY-ONE) (defalias 'helm-completing-read-default-1 #[3082 "\242\206;\203\202$:\205$\242 \243\303\266\204\211\205)\211\262\304\305\306\307\310 \311\312\303\313\314\315\316;\203e\317\230\203e\320=\204a\321=\203e\322\202f\323\324 ?\325\326\327\n\330\"\331'\206{\317\332\"&\"\207" [helm-mode-reverse-history helm-comp-read-use-marked helm-mode-fuzzy-match nil helm-comp-read :test :history :reverse-history :input-history :must-match :alistp :help-message helm-comp-read-help-message :name :requires-pattern "" confirm confirm-after-completion 1 0 :nomark :candidates-in-buffer :exec-when-only-one :fuzzy :buffer :default :initial-input] 49 (#$ . 28791)]) #@284 Call `helm-comp-read' with same args as `completing-read'. This handler uses dynamic matching which allows honouring `completion-styles'. (fn PROMPT COLLECTION PREDICATE REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER &optional CANDS-IN-BUFFER EXEC-WHEN-ONLY-ONE) (defalias 'helm-completing-read-default-2 #[3082 "\242\206;\203\202$:\205$\242 \243\306\266\204\307\310\311!\312\2060\313#\2069\314\315\n\316\"\206D\317\320\"\317\321\"\322=\323\324& \325>\203l\211\206f\313\306\211#\202m\211\326\327\216\330\331\332 \333\334\335 ?\336)\337 \340=\205\220\341\342\343\f\205\231\fC\"\344 \340=\345 \346=\347\350)&,\207" [completion-flex-nospace completion-styles completion-extra-properties helm-completion-style helm-completion-in-region-default-sort-fn helm-comp-read-use-marked nil t helm--prepare-completion-styles nomode completion-metadata #1="" (metadata) plist-get :annotation-function completion-metadata-get annotation-function category file make-closure #[771 "\306 \307\300\301G\303%\310!\311=\205\312\303\313\"\206\314\315A\203)\315\241\210\205.\316\317!\262\320\302\205C\321>\205C\302C\322\203V G\323V\203V!\202W\304\305#\")\207" [V0 V1 V2 V3 V4 V5 helm-set-case-fold-search completion-all-completions last emacs completion-metadata-get display-sort-function #[257 "\300\301\"\207" [sort helm-generic-sort-fn] 4 "\n\n(fn CANDIDATES)"] nil t copy-sequence append (helm helm-fuzzy) helm-completion-in-region--initial-filter 0 completion-ignore-case helm-completion-style helm-completion--sorting-done] 13 "\n\n(fn STR PREDICATE ACTION)"] (helm helm-fuzzy) #[514 "\204\n \302\230\203\f\207\303\304\"\207" [helm-completion--sorting-done helm-pattern #1# sort helm-generic-sort-fn] 5 "\n\n(fn CANDIDATES SOURCE)"] #[0 "\301\211\207" [helm-completion--sorting-done nil] 2] helm-comp-read :name :initial-input :buffer :history :nomark :reverse-history :default emacs :fc-transformer append (helm-cr-default-transformer) :match-dynamic :fuzzy helm-fuzzy :exec-when-only-one :must-match helm-mode-reverse-history] 46 (#$ . 29867)]) #@143 Specialized `helm-mode' handler for `find-tag'. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER) (defalias 'helm-completing-read-default-find-tag #[2570 "\300  \301\211$\302         \303& \207" [helm-comp-read-get-candidates nil helm-completing-read-default-1 t] 23 (#$ . 32034)]) #@145 `helm-mode' handler using sync source as backend. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER) (defalias 'helm-completing-read-sync-default-handler #[2570 "\300\n\n\n\n\n\n\n\n\n\n&\n\207" [helm-completing-read-default-1] 21 (#$ . 32379)]) #@149 `helm-mode' handler using inbuffer source as backend. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER) (defalias 'helm-completing-read-inbuffer-default-handler #[2570 "\300\n\n\n\n\n\n\n\n\n\n\301& \207" [helm-completing-read-default-1 t] 22 (#$ . 32685)]) #@150 Default `helm-mode' handler for all `completing-read'. (fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER) (defalias 'helm-completing-read-default-handler #[2570 "\302>\205\303\211\203\304\202\305\306=\211\f\f\f\f\f\f\f\f\f\f\f& )\207" [helm-completion-style helm-mode-fuzzy-match (helm helm-fuzzy) t helm-completing-read-default-1 helm-completing-read-default-2 helm-fuzzy] 24 (#$ . 33004)]) #@96 [INTERNAL] This is used to advice `read-buffer-to-switch'. Don't use it directly. (fn PROMPT) (defalias 'helm-mode--read-buffer-to-switch #[257 "\301 \302\303p!\304 #)\207" [minibuffer-completion-table internal-complete-buffer-except read-buffer other-buffer confirm-nonexistent-file-or-buffer] 5 (#$ . 33465)]) #@154 The `read-buffer-function' for `helm-mode'. Affects `switch-to-buffer' `kill-buffer' and related. (fn PROMPT &optional DEFAULT REQUIRE-MATCH PREDICATE) (defalias 'helm--generic-read-buffer #[1025 "\301\206 \302\303\304\305#\304\211 &\207" [minibuffer-completion-table helm--completing-read-default internal-complete-buffer "" nil t] 12 (#$ . 33787)]) #@358 An helm replacement of `completing-read'. This function should be used only as a `completing-read-function'. Don't use it directly, use instead `helm-comp-read' in your programs. See documentation of `completing-read' and `all-completions' for details. (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) (defalias 'helm--completing-read-default #[2050 "\3062\307 \206\n\310!\311\312\" \236\211\243\211\205\310!        \257\313D\"\314\211\f\314\211:\203j@\262:\204c\315!\204c\316!\204c >\204cB\262A\262\202>\211\237\266\203\314\317=\203{\320\262\203\223\204\223\321\306\322\216\323\324!\210\325\")\"\210\326=\204\245;\203\251\327\330\"\204\251\323\324!\210\331\332 \"\216\203\277\203\277\325\"\202\377\203\335\320=\203\335>\333\334#\240\210\325\"\202\377\203\350\325\"\202\377\335&\n-\266\2100\207" [this-command helm-completing-read-handlers-alist helm-completion-mode-start-message helm-completion-mode-quit-message minibuffer-setup-hook helm-mode-minibuffer-setup-hook-black-list --cl-block-helm--completing-read-default-- helm-this-command helm-symbol-name format "*helm-mode-%s*" append nil byte-code-function-p helm-subr-native-elisp-p ido ido-completing-read throw #[0 "\300\301!\207" [helm-mode 1] 2] helm-mode -1 apply completing-read string-match "^helm" make-closure #[0 "\302\303!\210\300\211\207" [V0 this-command helm-mode 1] 2] all-completions "" helm-completing-read-default-handler unread-command-events completing-read-function] 28 (#$ . 34153)]) #@1649 Read a file name with helm completion. It is helm `read-file-name' emulation. Argument PROMPT is the default prompt to use. Keys description: - NAME: Source name, default to "Read File Name". - INITIAL-INPUT: Where to start reading file name, default to `default-directory'. - BUFFER: `helm-buffer' name, defaults to "*Helm Completions*". - TEST: A predicate called with one arg 'candidate'. - NORET: Allow disabling helm-ff-RET (have no effect if helm-ff-RET isn't bound to RET). - CASE-FOLD: Same as `helm-case-fold-search'. - PRESELECT: helm preselection. - HISTORY: Display HISTORY in a special source. - MUST-MATCH: Can be 'confirm, nil, or t. - FUZZY: Enable fuzzy matching when non-nil (Enabled by default). - MARKED-CANDIDATES: When non--nil return a list of marked candidates. - NOMARK: When non--nil don't allow marking candidates. - ALISTP: Don't use `all-completions' in history (take effect only on history). - PERSISTENT-ACTION-IF: a persistent if action function. - PERSISTENT-HELP: persistent help message. - MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'. (fn PROMPT &key (NAME "Read File Name") (INITIAL-INPUT default-directory) (BUFFER "*Helm file completions*") TEST NORET (CASE-FOLD helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH (FUZZY t) DEFAULT MARKED-CANDIDATES (CANDIDATE-NUMBER-LIMIT helm-ff-candidate-number-limit) NOMARK (ALISTP t) (PERSISTENT-ACTION-IF \='helm-find-files-persistent-action-if) (PERSISTENT-HELP "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (MODE-LINE helm-read-file-name-mode-line-string)) (defalias 'helm-read-file-name #[385 "\306\307\"\206\310A@\306\311\"\206\312DA@\306\313\"\206\314A@\306\315\"A@\306\316\"A@\306\317\"\2067\312 DA@\306\320\"A@\306\321\"A@\306 \322\"A@\306\n\323\"\206W\324A@\306 \325\"A@\306\f\326\"A@\306 \327\"\206r\312\nDA@\306\330\"A@\306\331\"\206\204\332A@\306\333\"\206\217\334A@\306\335\"\206\232\336A@\306\337\"\206\247\312 DA@\211\203\326\211@\340>\203\276\211AA\262\202\253\341>A@\203\315\312\262\202\253\342\343@\"\210\202\253\210\344\345!\210\346\f!\203\345\347\f!\210\350\351\352\"\210\353\354\355\356\n\357BBFC \205\376\360\361 !?\312@ \205\fA\362>?B \205\363\f\312\211$CD\364\211EF\365\366\367 #\370\371\372\"\373\374\375\337\376\377\364\201J\333\335\201KG\322\330\201L&\370\373\374\201M\201N\201O\337 \201P\201Q\377\364\376\201R\201S!#\201T\201U\201V\364\201W\201X\333\335\201Y\364\201KG\322*\201Z\201[\330)\201L&&$D\201\\\201]H\203\310\201^!\202\311\201_\201`I\"\203\334\202\342\201a!\201b\327\201c\201d\201e\325\313\"\201f\312\320\"&\211\203\211;\203\211\201g\230\203\201g\202\200\211\203D\211;\203D\201h\"\203D \203D <\203? @\202y \202y\211\203X\211<\203X\201i\201a\"\202y\211\203p\201j!\203p\201k\201a!!\202y\211\203|\201a!\206\200\201l .\207" [default-directory helm-file-name-case-fold-search helm-ff-candidate-number-limit helm-read-file-name-mode-line-string helm-action-buffer helm-ff-auto-update-initial-value plist-member :name (nil "Read File Name") :initial-input nil :buffer (nil "*Helm file completions*") :test :noret :case-fold :preselect :history :must-match :fuzzy (nil t) :default :marked-candidates :candidate-number-limit :nomark :alistp (nil t) :persistent-action-if (nil helm-find-files-persistent-action-if) :persistent-help (nil "Hit1 Expand Candidate, Hit2 or (C-u) Find file") :mode-line (:name :initial-input :buffer :test :noret :case-fold :preselect :history :must-match :fuzzy :default :marked-candidates :candidate-number-limit :nomark :alistp :persistent-action-if :persistent-help :mode-line :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :initial-input :buffer :test :noret :case-fold :preselect :history :must-match :fuzzy :default :marked-candidates :candidate-number-limit :nomark :alistp :persistent-action-if :persistent-help :mode-line)" require tramp get-buffer kill-buffer mapc #[257 "\300\301\"\207" [add-hook helm-after-update-hook] 4 "\n\n(fn HOOK)"] (helm-ff-move-to-first-real-candidate helm-ff-update-when-only-one-matched helm-ff-auto-expand-to-home-or-root) "Sole action (Identity)" lambda (candidate) if ((helm-marked-candidates :with-wildcard t) (identity candidate)) minibuffer-window-active-p minibuffer-window (multi1 multi3p) helm-comp-read-get-candidates t replace-regexp-in-string "helm-maybe-exit-minibuffer" "helm-confirm-and-exit-minibuffer" helm-make-source format "%s History" helm-source-sync :header-name #[257 "\211\301!P\207" [helm-find-files-doc-header substitute-command-keys] 4 "\n\n(fn NAME)"] :candidates :nohighlight helm-follow-mode-persistent helm-mm-matching-method helm-ff-fuzzy-matching helm-ff--RET-disabled minibuffer-completion-predicate minibuffer-completing-file-name helm--completing-file-name helm-read-file-map helm-mode-reverse-history helm-ff-url-regexp :fuzzy-match :keymap :action #[257 "\211\301!P\207" [helm-find-files-doc-header substitute-command-keys] 4 "\n\n(fn NAME)"] :init #[0 "\211\211\207" [helm-ff-auto-update-initial-value helm-ff-auto-update-flag helm-ff--auto-update-state] 3] :help-message helm-read-file-name-help-message make-closure #[0 "\300\203R\303\304\n!?\205\305\n!?\205\306\n\307\310#C\311 \312\301!\307\211\211:\203L@\262\211A\262\242\262\235\204>\300!\203EBB\262A\262\202!\211\237\266\205\"\207\312\301!\207" [V0 V1 helm-pattern append file-exists-p helm-ff--invalid-tramp-name-p helm-ff-filter-candidate-one-by-one nil t helm-ff--tramp-hostnames helm-find-files-get-candidates] 9] :update #[0 "\302 \"\207" [helm-ff-default-directory helm-ff--list-directory-cache remhash] 3] :match-on-real :filtered-candidate-transformer (helm-ff-fct helm-ff-sort-candidates) :volatile :cleanup helm-find-files-cleanup helm :sources reverse :input string-match expand-file-name :prompt :resume noresume :case-fold-search :full-frame "" file-equal-p mapcar file-directory-p file-name-as-directory helm-mode--keyboard-quit] 61 (#$ . 35790)]) #@26 (fn FNAME DIR INITIAL) (defalias 'helm-mode--default-filename #[771 "\204\262\302!\204\303!\262\204):\204)\303\206% \206%\"\262\203V:\203V\304\211:\203N@\262\303\"B\262A\262\2025\211\237\266\203\211\262\207\302!\203^\207\303\"\207" [default-directory buffer-file-name file-name-absolute-p expand-file-name nil] 9 (#$ . 42015)]) #@194 Generic helm replacement of `read-file-name'. Don't use it directly, use instead `helm-read-file-name' in your programs. (fn PROMPT &optional DIR DEFAULT-FILENAME MUSTMATCH INITIAL PREDICATE) (defalias 'helm--generic-read-file-name #[1537 "\3062\222\206 \206 \307 \206 \310!\211\311\n\"B\312\313\" \236\211\243\211\205-\310!\f\f\f\f\f\f\257\314D\" \315=\316 \205U\317\n!?\205U\f\320\2118\320\211\321#\262\322=\203p\323\262\203\202\324!G\325V\203\202\326\262\203\235\204\235\327\306\330\216\331\332!\210\3339 \")\"\210\334>\204\266\204\266;\203\272\335\336\"\204\272\331\332!\210\337\340 \"\216\203\360\341>?\203\335:\203\335\342@\"\262\343\262\344 %\262\202o\203\203\323=\204\326=\204\333\"\202o\203*\323=\203*\345\346!\210\333\"\202o\347=\203:\333\"\202o\350\351 \352\353\354\335:\"\203U\202[\342\"\355\320\356;?\357;\360 \361 \362&\262)\203}\363\364\365!\"\210\203\215\211\366\230\204\215\367!\202\216\211+\266\2150\207" [default-directory this-command helm--file-completion-sources helm-completing-read-handlers-alist use-file-dialog helm-completion-mode-start-message --cl-block-helm--generic-read-file-name-- helm-this-command helm-symbol-name remove format "*helm-mode-%s*" append file-directory-p next-read-file-uses-dialog-p file-remote-p nil helm-mode--default-filename ido ido-read-file-name help-function-arglist 8 incompatible throw #[0 "\300\301!\207" [helm-mode 1] 2] helm-mode -1 apply (read-file-name ido-read-file-name) string-match "^helm" make-closure #[0 " \203\301\303!\210\304\305!\210\300\211\207" [V0 ido-mode this-command -1 helm-mode 1] 2] (nil confirm confirm-after-completion) expand-file-name t x-file-dialog ido-mode 1 read-file-name helm-read-file-name :name :buffer :default :initial-input :alistp :nomark :marked-candidates :must-match :test :noret add-to-history file-name-history minibuffer-maybe-quote-filename "" file-name-as-directory helm-completion-mode-quit-message read-file-name-function helm-ff-url-regexp helm-comp-read-use-marked] 42 (#$ . 42395)]) #@308 A `read-file-name' handler with history. Can be added to `helm-completing-read-handlers-alist' for functions that need a `read-file-name' function with directory history. The `helm-find-files' history `helm-ff-history' is used here. (fn PROMPT DIR DEFAULT-FILENAME MUSTMATCH INITIAL PREDICATE NAME BUFFER) (defalias 'helm-read-file-name-handler-1 #[2056 "\306\307=\203 \310\202\f\311\211\206\n\206 \312 \313 \314 \315\f\316\317\320\f\"\321\311\322\323&,\207" [helm-split-window-default-side default-directory helm-reuse-last-window-split-state helm-split-window-inside-p helm-always-two-windows helm-ff-history t same below nil helm-read-file-name :name :history :buffer :default :initial-input expand-file-name :alistp :must-match :test] 31 (#$ . 44572)]) #@27 (fn OLD--FN &rest ARGS) (defalias 'helm-mode--advice-lisp--local-variables #[385 "\3001\n\301\"0\207\210\302\207" [(error) apply nil] 5 (#$ . 45368)]) #@77 Flag that notifies the FCT if sorting has been done in completion function. (defvar helm-completion--sorting-done nil (#$ . 45530)) #@73 Default sort function for completion-in-region. (fn CANDIDATES SOURCE) (defalias 'helm-completion-in-region-sort-fn #[514 "\203\207\301\302\"\207" [helm-completion--sorting-done sort helm-generic-sort-fn] 5 (#$ . 45668)]) #@77 Highlight prefix in helm and helm-fuzzy `helm-completion-styles'. (fn STR) (defalias 'helm-mode--completion-in-region-initial-input #[257 "\301>\203\302\303\304\305\306\307\304&\207\207" [helm-completion-style (helm helm-fuzzy) propertize read-only t face helm-mode-prefix rear-nonsticky] 9 (#$ . 45902)]) #@93 Add annotations at end of candidates and filter out dot files. (fn COMPS AFUN FILE-COMP-P) (defalias 'helm-completion-in-region--initial-filter #[771 "\211\203&\300\211:\203#@\262\301\302\"\204B\262A\262\202\211\237\207\2032\303\304\305\"\"\207\207" [nil string-match "\\`\\.\\{1,2\\}/\\'" mapcar make-closure #[257 "\300!\211\203\301\302\303\301\304\305##PB\207\207" [V0 propertize " " display face completions-annotations] 10 "\n\n(fn S)"]] 9 (#$ . 46220)]) #@113 The try completion function for `completing-styles-alist'. Actually does nothing. (fn STRING TABLE PRED POINT) (defalias 'helm-completion-try-completion #[1028 "\300\207" [nil] 6 (#$ . 46716)]) #@91 The all completions function for `completing-styles-alist'. (fn STRING TABLE PRED POINT) (defalias 'helm-completion-all-completions #[1028 "\300$\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243 \301\301\211\205)G\244\207" [helm-completion--multi-all-completions nil] 22 (#$ . 46917)]) #@103 Allow `all-completions' multi matching on its candidates. (fn STRING COLLECTION &optional PREDICATE) (defalias 'helm-completion--multi-all-completions-1 #[770 "\301!\211@\206 \302\206\303\304#\305\"\306=\211\205FA\2044A\204.\302\230\2034\302\230\205F\307\310\"?\205F\311\312\313\"#\211\211\205\\\307\314 \"\211\205ZT\315O\262\262\203gA\203m\211\302\232\203o\207\311\302\206w\312\316\f %#\207" [minibuffer-completing-file-name helm-mm-split-pattern "" completion-metadata-get completion-metadata category file string-match "\\`!" all-completions make-closure #[513 "<\203\n@\202 \300\206\301!\207" [V0 identity] 5 "\n\n(fn X &optional Y)"] " " nil #[513 "<\203\n@\202 \301\203 \302\204 \301!\205.\304\305!\300\"\207\304\305!\302\203,\303\206-\300\"\207" [V0 V1 V2 V3 helm-mm-match helm-stringify] 6 "\n\n(fn X &optional Y)"]] 17 (#$ . 47238)]) #@89 Collect completions from TABLE for helm completion style. (fn STRING TABLE PRED POINT) (defalias 'helm-completion--multi-all-completions #[1028 "\300O\301O\302$\300@OA\301O\303   #\211\n\n\257\207" [0 nil completion-boundaries helm-completion--multi-all-completions-1] 15 (#$ . 48160)]) #@17 (fn METADATA) (defalias 'helm-completion--adjust-metadata #[257 "\301>\203\207\302\303\304B\305BABBB\207" [helm-completion-style (helm helm-fuzzy) #[257 "\300\301\"\207" [sort helm-generic-sort-fn] 4 "\n\n(fn CANDIDATES)"] metadata display-sort-function cycle-sort-function] 6 (#$ . 48476)]) (put 'helm 'completion--adjust-metadata 'helm-completion--adjust-metadata) #@90 The try completion function for `completing-styles-alist'. (fn STRING TABLE PRED POINT) (defalias 'helm-flex-completion-try-completion #[1028 "\302\303\304\305#)\266\203?\205H\306$\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243 \303 \203=\307!\262\310$\266\217\262\207" [inhibit-changing-match-data minibuffer-completing-file-name " " nil t string-match helm-completion--flex-all-completions completion-pcm--filename-try-filter completion-pcm--merge-try] 25 (#$ . 48858)]) #@91 The all completions function for `completing-styles-alist'. (fn STRING TABLE PRED POINT) (defalias 'helm-flex-completion-all-completions #[1028 "\301\302\303\304#)\266\203?\205J\305\306%\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243 \302\211\307\310\"\205D\311\"G\244\262\266\217\262\207" [inhibit-changing-match-data " " nil t string-match helm-completion--flex-all-completions helm-completion--flex-transform-pattern completion-pcm--pattern->regex group helm-flex-add-score-as-prop] 24 (#$ . 49382)]) #@26 (fn CANDIDATES REGEXP) (defalias 'helm-flex-add-score-as-prop #[514 "\301 \302\211:\203@\262\303\"B\262A\262\202\211\237)\207" [case-fold-search helm-set-case-fold-search nil helm-flex--style-score] 8 (#$ . 49935)]) #@16 (fn PATTERN) (defalias 'helm-completion--flex-transform-pattern #[257 "\211\300\211:\203P@\262;\203B\301\300\211T\211\262\2036GW\2036H\262\302!\303D\237\244\262\202\211\237\266\204\237\244\262\202IC\237\244\262A\262\202\211\237\207" [nil -1 string any] 10 (#$ . 50174)]) #@268 Match the presumed substring STRING to the entries in TABLE. Respect PRED and POINT. The pattern used is a PCM-style substring pattern, but it will be massaged by TRANSFORM-PATTERN-FN, if that is non-nil. (fn STRING TABLE PRED POINT &optional TRANSFORM-PATTERN-FN) (defalias 'helm-completion--flex-all-completions #[1284 "\300O\301O\302$A\301O\300@O\303#\211@;\204)\211\202,\304B\2038!\2029\211\305$\211\n@\257\207" [0 nil completion-boundaries completion-basic--pattern prefix completion-pcm--all-completions] 19 (#$ . 50485)]) (defalias 'helm-completion-in-region--selection #[0 "r\301 q\210\302\303\304\"\211)\207" [helm-saved-selection helm-buffer-get helm-get-selection nil withprop] 3]) #@263 Helm replacement of `completion--in-region'. Can be used for `completion-in-region-function' by advicing it with an :around advice to allow passing the old `completion-in-region-function' value in ORIGFUN. (fn ORIGFUN START END COLLECTION &optional PREDICATE) (defalias 'helm--completion-in-region #[1284 " >\203 $\207\306\307\310\311#\210\n\312 \313\"\314`\"\315C\f\236A\211\2036\316\302\243\2033@\2024\"\210\210\317\320\321\"\210\322\323&\216\324\211@\325 A\314\"\n\326=\205aC`\327 \206oB\206oC\211\330=\331!\332\333\"\334\335!\203\204\206\215D\206\215\334\336!?\337#\312 \340\"\206\242\341\342\"\n\343>\206\264\344\345\n\"\206\264\346\230?\205\271\345\341\347\"\350=\206\317\351 \206\317?\205\317?\315C\322\352  &\n\353>\203\362\211 \315\211#\202\363\211\211;\203\374\211\202\211\354\334\336!\203\206 \355\356\f\357?\360\361 \2039\362\363\"\2049\364\n\365>\2030\366!\2022!P\202e\362\363\"\203L\n\326=\205e\202e\203W;\203^\364!\202e\364!P\367\370\371\372E\205sEC\"\373\n\326=\374\n\375=\376\324\377\201F\201G&\201H!\240\210\201I\242%,\266\217)\207" [major-mode helm-mode-no-completion-in-region-in-modes helm-completion-style completion-extra-properties helm-completion-styles-alist enable-recursive-minibuffers advice-add lisp--local-variables :around helm-mode--advice-lisp--local-variables plist-get :exit-function buffer-substring-no-properties nil customize-set-variable add-hook helm-before-action-hook helm-completion-in-region--selection make-closure #[0 "\304\242;\203+\302\203+\306\303\300\"\302\304\242\307=\204#;\203'\310\311\"\203'\312\202(\313\"\266\314\315\316\"\210\317\320\301\"\210\321\322\323\324\"\207" [V0 V1 V2 V3 V4 helm-completion--sorting-done try-completion t string-match "/\\'" exact finished remove-hook helm-before-action-hook helm-completion-in-region--selection customize-set-variable helm-completion-style nil advice-remove lisp--local-variables helm-mode--advice-lisp--local-variables] 6] t helm--prepare-completion-styles emacs helm-this-command crm-complete helm-symbol-name format "*helm-mode-%s*" boundp require-match prompt completion-metadata :annotation-function completion-metadata-get annotation-function (helm-fuzzy emacs) string-suffix-p " " "" category file helm-mode--in-file-completion-p #[771 "\307 \310\300\301\302\242\206G\303%\311!\211A\211\203#\211\312\241\210\202$\313\262\314=\2055\315\303\316\"\2065\317\312\302\242\203?\302\312\240\210\306\242\204H\306\240\210\205M\320\321!\262\322\203gG\313V\203g!\202h\304\305#)\207" [V0 V1 V2 V3 V4 V5 V6 helm-set-case-fold-search completion-all-completions last nil 0 emacs completion-metadata-get display-sort-function #[257 "\300\301\"\207" [sort helm-generic-sort-fn] 4 "\n\n(fn CANDIDATES)"] t copy-sequence helm-completion-in-region--initial-filter completion-ignore-case helm-completion-style helm-completion--sorting-done] 12 "\n\n(fn STR PREDICATE ACTION)"] (helm helm-fuzzy) helm-comp-read "Pattern: " :name :nomark :marked-candidates :initial-input string-match "/\\'" helm-mode--completion-in-region-initial-input (helm helm-fuzzy) helm-basename :buffer :fc-transformer append (helm-cr-default-transformer) :match-dynamic :fuzzy helm-fuzzy :exec-when-only-one :quit-when-no-cand completion-flex-nospace completion-styles this-command last-command minibuffer-completion-confirm helm-completion-in-region-default-sort-fn #[0 "\300\301\302\303#\210\304\207" [run-with-timer 0.01 nil #[0 "\300\301!\207" [message "[No matches]"] 2] t] 4] :must-match copy-sequence helm-completion-in-region--insert-result] 49 (#$ . 51228)]) #@407 Default separator for `completing-read-multiple'. `crm-separator' will take precedence on this when it is a string composed of a single character. If used globally, it is a string composed of a single character, if let-bounded, it can be also nil or a symbol which mean no separator. Don't set this to a string composed of more than one character. Be sure to know what you are doing when modifying this. (defvar helm-crm-default-separator "," (#$ . 54969)) #@41 (fn RESULT START POINT END BASE-SIZE) (defalias 'helm-completion-in-region--insert-result #[1285 ";\203'\304\305\306\307#p\\D$\210 \205h\310\311\312\313\314##\207:\203g\\\nG\315=\203:\n\206; \211;\203U\212b\210\316\n`S\"\203Q\317\320!\262)\202X\312\262\321\322\323\f\324\"##\207\312\207" [completion-list-insert-choice-function helm-completion-mark-suffix crm-separator helm-crm-default-separator choose-completion-string replace-regexp-in-string " \\'" #1="" run-with-idle-timer 0.01 nil make-closure #[0 "`\300Z\301\\\211\205\211`V\205\211\211\205\302\303\211#\262\207" [V0 V1 push-mark t] 6] 1 looking-back match-string 0 mapconcat identity append (#1#)] 15 (#$ . 55434)]) (defalias 'helm-mode--in-file-completion-p #[0 "r\301!\203 \206p\211q\210\302\303!)\207" [helm-current-buffer buffer-live-p run-hook-with-args-until-success file-name-at-point-functions] 2]) #@28 (fn &optional FROM-HOOK) (defalias 'helm-mode--disable-ido-maybe #[256 "\301\300!\205?\205?\302\303\304!\305\"\211\303\304!=\204\306\304\"\210\210\302\303\307!\310\"\211\303\307!=\2041\306\307\"\210\210\311\211\203<\312\313!\207\312\314!\207" [ido-everywhere boundp advice--remove-function default-value read-file-name-function ido-read-file-name set-default read-buffer-function ido-read-buffer nil user-error "Unable to turn on Ido-everywhere while Helm-mode is enabled" "Helm-mode enabled (Ido-everywhere is incompatible with Helm-mode, disabling it)"] 5 (#$ . 56356)]) (defalias 'helm-mode--ido-everywhere-hook #[0 "\205\301\302!\207" [helm-mode helm-mode--disable-ido-maybe t] 2]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\301& \207" [custom-declare-variable helm-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm mode is enabled.\nSee the `helm-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 `helm-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group] 12) #@1241 Toggle generic helm completion. This is a minor mode. If called interactively, toggle the `Helm 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 `(default-value 'helm-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. All functions in Emacs that use `completing-read', `read-file-name', `completion-in-region' and friends will use helm interface when this mode is turned on. However you can modify this behavior for functions of your choice with `helm-completing-read-handlers-alist'. Called with a positive arg, turn on unconditionally, with a negative arg turn off. You can toggle it with M-x `helm-mode'. About `ido-mode': DO NOT enable `ido-everywhere' when using `helm-mode'. Instead of using `ido-mode', add the commands where you want to use ido to `helm-completing-read-handlers-alist' with `ido' as value. Note: This mode is incompatible with Emacs23. (fn &optional ARG) (defalias 'helm-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\312\314!\204E\315\316\317\310\211$\210 \203\216\320\321\322\323B\324\310$\210\320\321\325\326B\327\310$\210\320\321\330\331B\332\310$\210\n\203q\320\333\334\335B\336\310$\210\337 \210\340\341\342\"\210\343\344!\203\205\345\346\321\347#\210\345\350\321\351#\210\202\363\352\306\314!\324\"\211\306\314!=\204\241\304\314\"\210\210\352\306\353!\327\"\211\306\353!=\204\265\304\353\"\210\210\352\306\354!\332\"\211\306\354!=\204\311\304\354\"\210\210\352\306\355!\336\"\211\306\355!=\204\335\304\355\"\210\210\356\341\342\"\210\343\344!\203\356\357\346\347\"\210\357\350\351\"\210\360\361\306\301!\203\377\362\202\363\"\210\364\365!\203(\366\301!\210\303 \203\211\303 \232\203(\367\370\306\301!\203$\371\202%\372\373#\210\210\374 \210\306\301!\207" [global-minor-modes helm-mode helm-mode-handle-completion-in-region current-message set-default toggle default-value 1 nil t boundp delq completing-read-function cl--assertion-failed (boundp 'completing-read-function) "`helm-mode' not available, upgrade to Emacs-24" advice--add-function :override #[0 "\300\301!\207" [default-value completing-read-function] 2] #[257 "\300\301\"\207" [set-default completing-read-function] 4 "\n\n(fn GV--VAL)"] helm--completing-read-default #[0 "\300\301!\207" [default-value read-file-name-function] 2] #[257 "\300\301\"\207" [set-default read-file-name-function] 4 "\n\n(fn GV--VAL)"] helm--generic-read-file-name #[0 "\300\301!\207" [default-value read-buffer-function] 2] #[257 "\300\301\"\207" [set-default read-buffer-function] 4 "\n\n(fn GV--VAL)"] helm--generic-read-buffer :around #[0 "\300\301!\207" [default-value completion-in-region-function] 2] #[257 "\300\301\"\207" [set-default completion-in-region-function] 4 "\n\n(fn GV--VAL)"] helm--completion-in-region helm-mode--disable-ido-maybe add-hook ido-everywhere-hook helm-mode--ido-everywhere-hook fboundp ffap-read-file-or-url-internal advice-add ffap-read-file-or-url helm-advice--ffap-read-file-or-url read-buffer-to-switch helm-mode--read-buffer-to-switch advice--remove-function read-file-name-function read-buffer-function completion-in-region-function remove-hook advice-remove run-hooks helm-mode-hook helm-mode-on-hook helm-mode-off-hook called-interactively-p any customize-mark-as-set message "Helm mode %sabled%s" "en" "dis" "" force-mode-line-update] 7 (#$ . 57564) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar helm-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%\210\315\312!\207" [helm-mode-map helm-mode-hook variable-documentation put "Hook run after entering or leaving `helm-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 helm-mode helm-completion-mode-string boundp provide] 6)