| 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\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\312\305\310\311&\210\302\317\304\305\320DD\321\310\311\312\322&\210\302\323\304\305\324DD\325\312\313\310\326&\207" [require cl-lib custom-declare-variable helm-file-globstar funcall function #[0 "\300\207" [t] 1] "Same as globstar bash shopt option.\nWhen non--nil a pattern beginning with two stars will expand recursively.\nDirectories expansion is not supported yet." :group helm :type boolean helm-yank-text-at-point-function #[0 "\300\207" [nil] 1] "The function used to forward point with `helm-yank-text-at-point'.\nWith a nil value, fallback to default `forward-word'.\nThe function should take one arg, an integer like `forward-word'.\nNOTE: Using `forward-symbol' here is not very useful as it is already\nprovided by \\<helm-map>\\[next-history-element]." helm-scroll-amount #[0 "\300\207" [nil] 1] "Scroll amount when scrolling other window in a helm session.\nIt is used by `helm-scroll-other-window'\nand `helm-scroll-other-window-down'.\n\nIf you prefer scrolling line by line, set this value to 1." integer helm-help-full-frame #[0 "\300\207" [t] 1] "Display help window in full frame when non nil.\n\nEven when `nil' probably the same result (full frame)\ncan be reach by tweaking `display-buffer-alist' but it is\nmuch more convenient to use a simple boolean value here." helm-help] 8) | |
| 16 | (defvar helm-ff--boring-regexp nil) | |
| 17 | #@16 | |
| 18 | ||
| 19 | (fn VAR VAL) | |
| 20 | (defalias 'helm-ff--setup-boring-regex #[514 "L\210\301!@\302!\303\304:\2035 @\262\305\306\"\203' \211\307PP\262\202. \211\310PP\262A\262\202 \211\305\306\"\203C \304\202D \311Q\266\204\211\207" [helm-ff--boring-regexp last butlast nil "" string-match "\\$\\'" "\\|" "$\\|" "$"] 11 (#$ . 1852)]) | |
| 21 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-boring-file-regexp-list funcall function #[0 "\301\302\"\207" [completion-ignored-extensions mapcar #[257 "\301!\302\303\304\305#)\266\203\203 \211\306P\202 \211\307\310O\311P\207" [inhibit-changing-match-data regexp-quote "[^/]$" nil t string-match "$" 0 -1 "\\(/\\|$\\)"] 9 "\n\n(fn F)"]] 3] "A list of regexps matching boring files.\n\nThis list is build by default on `completion-ignored-extensions'.\nThe directory names should end with \"/?\" e.g. \"\\.git/?\" and the\nfile names should end with \"$\" e.g. \"\\.o$\".\n\nThese regexps may be used to match the entire path, not just the file\nname, so for example to ignore files with a prefix \".bak.\", use\n\"\\.bak\\..*$\" as the regexp.\n\nNOTE: When modifying this, be sure to use customize interface or the\ncustomize functions e.g. `customize-set-variable' and NOT `setq'." :group helm-files :type (repeat (choice regexp)) :set helm-ff--setup-boring-regex] 10) | |
| 22 | (defvar helm-yank-point nil) | |
| 23 | #@51 The input pattern used to update the helm buffer. | |
| 24 | (defvar helm-pattern "" (#$ . 3251)) | |
| 25 | #@29 Buffer showing completions. | |
| 26 | (defvar helm-buffer "*helm*" (#$ . 3344)) | |
| 27 | #@40 Current buffer when `helm' is invoked. | |
| 28 | (defvar helm-current-buffer nil (#$ . 3420)) | |
| 29 | (defvar helm-suspend-update-flag nil) | |
| 30 | #@25 Buffer showing actions. | |
| 31 | (defvar helm-action-buffer "*helm action*" (#$ . 3548)) | |
| 32 | #@294 Add the face property to the text from START to END. | |
| 33 | It is a compatibility function which behave exactly like | |
| 34 | `add-face-text-property' if available otherwise like `add-text-properties'. | |
| 35 | When only `add-text-properties' is available APPEND is ignored. | |
| 36 | ||
| 37 | (fn BEG END FACE &optional APPEND OBJECT) | |
| 38 | (defalias 'helm-add-face-text-properties #[1283 "\300\301!\203 \301%\207\302\303D$\207" [fboundp add-face-text-property add-text-properties face] 11 (#$ . 3635)]) | |
| 39 | (defalias 'helm--advice-wdired-finish-edit #[0 "\306 \210\307\310\307\211\211\211\211\211\212\203\" \311\312!\203\" \313 \262\211A\262\211@\262 \203@ \314\315!\203@ \316 \262A\\\262\206> \211@\262db\210o\204\247 \317\307\320\"\262\203\241 \317 \262\232\203a \320\262\202\241 \320\262\204q B\262\202\241 \n\203\230 \n\250\203~ \n\202\213 \n\203\212 \321 \"A\202\213 \307\211\203\227 \322!B B\210\322!BB\262\323y\210\202C )\203\265 \324!\\\262\2030\f;\203\327 \325\f!\204\327 \204\327 G\326U\203\327 @A\202 \f:\203 \fA\203 \203 \f\327\330\"\fA\307\211:\203@\262\235\203\n\331 \"B\262\202B\262A\262\202\357 \211\237\266\204\241\210\310V\204&\332 \210\320 \333 !\210)\202=\320 \334ed\335#\210\336\337!\210)\203F\340!\210\310V\203V\341\342\343 \"\307\"\210\266\344\307!\210\307\211%\207" [wdired-allow-to-redirect-links wdired-allow-to-change-permissions wdired-keep-marker-rename wdired-old-marks dired-directory inhibit-read-only wdired-change-to-dired-mode nil 0 fboundp make-symbolic-link wdired-do-symlink-changes boundp wdired-col-perm wdired-do-perm-changes wdired-get-filename t assoc substitute-in-file-name -1 wdired-do-renames file-directory-p 1 mapcar car assoc-default revert-buffer dired-mark-remembered remove-text-properties (old-name nil end-name nil old-link nil end-link nil end-perm nil old-perm nil perm-changed nil) message "(No changes to be performed)" wdired-flag-for-deletion dired-log-summary format "%d rename actions failed" set-buffer-modified-p buffer-undo-list] 16 nil nil]) | |
| 40 | #@29 | |
| 41 | ||
| 42 | (fn &optional NO-DIR OLD) | |
| 43 | (defalias 'helm--advice-wdired-get-filename #[512 "\305\211\211\212\306 \262\307 \210\310`\311\305$\262=\204u \203& \312\311\"\262\2023 \310\313\"\262\314T\"\262\211\203u \3151G \316\317?D\"0\202s \305\203Z \320\321\322\323\324 #\321Q! \203o \n\203o \204o \f\204o \325 \n\" *\262\262\204\207 \204\207 \211\203\213 \326!\203\213 \211\202\233 \211\205\233 \211G\327V\205\233 \330\331 \")\207" [unquotep file buffer-file-coding-system file-name-coding-system default-file-name-coding-system nil line-end-position beginning-of-line next-single-property-change old-name get-text-property end-name buffer-substring-no-properties (wrong-number-of-arguments) apply wdired-normalize-filename read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string file-name-absolute-p 0 expand-file-name dired-current-directory] 12 (#$ . 5695)]) | |
| 44 | #@42 | |
| 45 | ||
| 46 | (fn &optional LOCATION NOMSG ACTIVATE) | |
| 47 | (defalias 'helm--advice-push-mark #[768 "\306\307!\203( \310\311 !\211\312\"B\210G V\203( \233@\313\211\223\210 S\233\313\241\210\311 \206/ `p\223\210\310\311 !p\n\313\211\211:\203[ @\262\314!\262=\204T B\262A\262\202; \211\237\266\205B\211G V\203w \n\233@\313\211\223\210 S\n\233\313\241\210\204\212 \f\204\212 \315 \316V\204\212 \317\320!\210\211\204\222 \204\230 \321\306\307!!\210\313\207" [mark-ring mark-ring-max global-mark-ring global-mark-ring-max executing-kbd-macro transient-mark-mode mark t copy-marker mark-marker delete nil marker-buffer minibuffer-depth 0 message "Mark set" set-mark] 12 (#$ . 6613)]) | |
| 48 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-advice-push-mark funcall function #[0 "\300\207" [t] 1] "Override `push-mark' with a version avoiding duplicates when non nil." :group helm :type boolean :set #[514 "L\210\211\203 \300\301\302\303#\207\304\301\303\"\207" [advice-add push-mark :override helm--advice-push-mark advice-remove] 6 "\n\n(fn VAR VAL)"]] 10) | |
| 49 | #@86 Bind the SYMBOLS to fresh uninterned symbols and eval BODY. | |
| 50 | ||
| 51 | (fn SYMBOLS &rest BODY) | |
| 52 | (defalias 'helm-with-gensyms '(macro . #[385 "\300\301\302\"BB\207" [let mapcar #[257 "\211\300\301\302DDDD\207" [cl-gensym symbol-name quote] 6 "\n\n(fn S)"]] 6 (#$ . 7723)])) | |
| 53 | (byte-code "\300\301\302\303#\300\207" [function-put helm-with-gensyms lisp-indent-function 1] 4) | |
| 54 | #@143 Returns the actual command in action. | |
| 55 | Like `this-command' but return the real command, | |
| 56 | and not `exit-minibuffer' or other unwanted functions. | |
| 57 | (defalias 'helm-this-command #[0 "\300\301\302\211\303\302\304X\203W \305!\262A@\2629\2032 \306!\2032 >\2042 \262\302\211\262\202M \307=\203L G\310V\203L AA@\262\302\211\262\202M \303\203W T\262\202 \207" [(helm-maybe-exit-minibuffer helm-confirm-and-exit-minibuffer helm-exit-minibuffer exit-minibuffer) 1 nil t 50 backtrace-frame commandp call-interactively 2] 8 (#$ . 8093)]) | |
| 58 | #@320 A simple and faster replacement of CL `position'. | |
| 59 | ||
| 60 | Returns ITEM first occurence position found in SEQ. | |
| 61 | When SEQ is a string, ITEM have to be specified as a char. | |
| 62 | Argument TEST when unspecified default to `eq'. | |
| 63 | When argument ALL is non--nil return a list of all ITEM positions | |
| 64 | found in SEQ. | |
| 65 | ||
| 66 | (fn ITEM SEQ &key TEST ALL) | |
| 67 | (defalias 'helm-position '(macro . #[642 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202 \304>A@\203. \305\262\202 \306\307@\"\210\202 \210;\203A \310\202B \311\312\313\314\315\316\317\320\f\317\321\322\323\324\325\326\327BB\320F\330\331BBBBBBBBBBBBBBBBB\262\207" [plist-member :test :all (:test :all :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test :all)" across in cl-loop with deftest = 'eq for c index from 0 when funcall or (deftest) if (collect index into ls else return index finally return ls)] 24 (#$ . 8642)])) | |
| 68 | #@47 Return an iterator object from SEQ. | |
| 69 | ||
| 70 | (fn SEQ) | |
| 71 | (defalias 'helm-iter-list #[257 "\211C\300\301\302\303\304!\305\"\306$\207" [make-byte-code 0 "\300\242@\300\211\242A\240\210\211\207" vconcat vector [] 3] 8 (#$ . 9564)]) | |
| 72 | #@38 Infinite iteration on SEQ. | |
| 73 | ||
| 74 | (fn SEQ) | |
| 75 | (defalias 'helm-iter-circular #[257 "\211C\300\301\302\303\304\"\305\"\306$\207" [make-byte-code 0 "\301\242@\301\211\242:\205 \301\242A\211\211\206 \300\262\262\240\210\211\207" vconcat vector [] 5] 9 (#$ . 9789)]) | |
| 76 | #@76 Infinite iteration of SEQ starting at ELM. | |
| 77 | ||
| 78 | (fn SEQ ELM &key (TEST \='eq)) | |
| 79 | (defalias 'helm-iter-sub-next-circular #[642 "\300\301\"\206 \302A@\211\2035 \211@\303>\203 \211AA\262\202 \304>A@\203, \305\262\202 \306\307@\"\210\202 \210\310\305\311\305\312\305:\203m @\262\206M \"\203^ \262\305\211\262\202_ \312\203m A\262T\262\202= \203u \202v \211\266\207T\313\233\314\311#\"\315!\316\311\317\320\321!\322\"\323$\266\203\207" [plist-member :test (nil eq) (:test :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test)" eq 0 t append cl-subseq helm-iter-circular make-byte-code "\301\300!\207" vconcat vector [helm-iter-next] 2] 14 (#$ . 10056)]) | |
| 80 | #@45 Return next elm of ITERATOR. | |
| 81 | ||
| 82 | (fn ITERATOR) | |
| 83 | (defalias 'helm-iter-next #[257 "\211\205 \211 \207" [] 2 (#$ . 10777)]) | |
| 84 | #@211 Anaphoric version of `if'. | |
| 85 | Like `if' but set the result of TEST-FORM in a temporary variable called `it'. | |
| 86 | THEN-FORM and ELSE-FORMS are then excuted just like in `if'. | |
| 87 | ||
| 88 | (fn TEST-FORM THEN-FORM &rest ELSE-FORMS) | |
| 89 | (defalias 'helm-aif '(macro . #[642 "\300\301DC\302\301BBBE\207" [let it if] 9 (#$ . 10902)])) | |
| 90 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-aif lisp-indent-function 2 put edebug-form-spec t] 5) | |
| 91 | #@248 Anaphoric version of `while'. | |
| 92 | Same usage as `while' except that SEXP is bound to | |
| 93 | a temporary variable called `it' at each turn. | |
| 94 | An implicit nil block is bound to the loop so usage | |
| 95 | of `cl-return' is possible to exit the loop. | |
| 96 | ||
| 97 | (fn SEXP &rest BODY) | |
| 98 | (defalias 'helm-awhile '(macro . #[385 "\300\301!\302\303BC\304\305\306\307 \310\nB\311\n\312BBFEEE\207" [cl-gensym "flag" let (t) cl-block nil while helm-aif progn setq (nil)] 15 (#$ . 11342)])) | |
| 99 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-awhile lisp-indent-function 1 put edebug-form-spec t] 5) | |
| 100 | #@281 Anaphoric version of `cond'. | |
| 101 | In each clause of CLAUSES, the result of the car of clause | |
| 102 | is stored in a temporary variable called `it' and usable in the cdr | |
| 103 | of this same clause. Each `it' variable is independent of its clause. | |
| 104 | The usage is the same as `cond'. | |
| 105 | ||
| 106 | (fn &rest CLAUSES) | |
| 107 | (defalias 'helm-acond '(macro . #[128 "\211\205, \300\301!@\302@DC\303\304\305\306DD\307AB\310BBB\311ABFE\262\262\207" [cl-gensym "sym" let helm-aif if cdr quote progn (it) helm-acond] 11 (#$ . 11925)])) | |
| 108 | (put 'helm-acond 'edebug-form-spec 'cond) | |
| 109 | #@147 Anaphoric version of `and'. | |
| 110 | Each condition is bound to a temporary variable called `it' which is | |
| 111 | usable in next condition. | |
| 112 | ||
| 113 | (fn &rest CONDITIONS) | |
| 114 | (defalias 'helm-aand '(macro . #[128 "\211\204 \300\207\211A\204 \211@\207\301@\302ABE\207" [t helm-aif helm-aand] 5 (#$ . 12470)])) | |
| 115 | (put 'helm-aand 'edebug-form-spec '(&rest form)) | |
| 116 | #@245 A simple anaphoric `cl-case' implementation handling strings. | |
| 117 | EXPR is bound to a temporary variable called `it' which is usable in | |
| 118 | CLAUSES to refer to EXPR. | |
| 119 | NOTE: Duplicate keys in CLAUSES are deliberately not handled. | |
| 120 | ||
| 121 | (fn EXPR &rest CLAUSES) | |
| 122 | (defalias 'helm-acase '(macro . #[385 "\211\205\" \211@\300\301\302@DD\303DD\304\305\306AB\307\303ABBFE\262\207" [let key quote it if (or (equal it key) (eq key t) (and (listp key) (member it key))) progn helm-acase] 11 (#$ . 12809)])) | |
| 123 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-acase lisp-indent-function 1 put edebug-form-spec t] 5) | |
| 124 | #@181 Transform string PATTERN in regexp for further fuzzy matching. | |
| 125 | e.g helm.el$ | |
| 126 | => "[^h]*h[^e]*e[^l]*l[^m]*m[^.]*[.][^e]*e[^l]*l$" | |
| 127 | ^helm.el$ | |
| 128 | => "helm[.]el$". | |
| 129 | ||
| 130 | (fn PATTERN) | |
| 131 | (defalias 'helm--mapconcat-pattern #[257 "\300\301\"\211@\302\230\203 \303\304\305\306\307\310!\311\"\312\313%A\301#\2021 \303\304\305\314\307\310!\315\"\316\313%\301#\207" [split-string-and-unquote "" "^" mapconcat make-byte-code 257 "\211\301\230\203 \302\303\300\"\203 \207\304!\207" vconcat vector ["$" string-match "$\\'" regexp-quote] 4 "\n\n(fn C)" "\211\301\230\203 \302\303\300\"\203 \207\304\305\306!#\207" ["$" string-match "$\\'" format "[^%s]*%s" regexp-quote] 6] 9 (#$ . 13429)]) | |
| 132 | (put 'helm--mapconcat-pattern 'byte-optimizer 'byte-compile-inline-expand) | |
| 133 | #@15 | |
| 134 | ||
| 135 | (fn STRING) | |
| 136 | (defalias 'helm--collect-pairs-in-string #[257 "\300\301\302#\303:\203! A\203 @A@DB\262A\262\202 \211\237\207" [split-string "" t nil] 5 (#$ . 14199)]) | |
| 137 | (put 'helm--collect-pairs-in-string 'byte-optimizer 'byte-compile-inline-expand) | |
| 138 | #@164 Show long message during `helm' session in BUFNAME. | |
| 139 | INSERT-CONTENT-FN is the function that insert | |
| 140 | text to be displayed in BUFNAME. | |
| 141 | ||
| 142 | (fn BUFNAME INSERT-CONTENT-FN) | |
| 143 | (defalias 'helm-help-internal #[514 "\303 \304 \304 p\305\306\307\310\311\"\312\"\313$\216\314\315\"\210\316!\210\305\306\317\310\311\"\320\"\321$\216\322\323!q\210\324!\210\n\203B \325 \210ed|\210\326 \210\327 \210\212 \210)\330 \210\331 *\266\202\207" [helm-initial-frame helm-suspend-update-flag helm-help-full-frame current-frame-configuration selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord select-frame-set-input-focus "\303\301!\210\304\305\300!\207" [helm-suspend-update-flag raise-frame nil set-frame-configuration] 2 t get-buffer-create switch-to-buffer delete-other-windows org-mode org-mark-ring-push buffer-disable-undo helm-help-event-loop] 13 (#$ . 14464)]) | |
| 144 | #@15 | |
| 145 | ||
| 146 | (fn AMOUNT) | |
| 147 | (defalias 'helm-help-scroll-up #[257 "\3001 \3011 \302!00\2070\303\207\303\207" [(end-of-buffer) (beginning-of-buffer) scroll-up-command nil] 3 (#$ . 15457)]) | |
| 148 | #@15 | |
| 149 | ||
| 150 | (fn AMOUNT) | |
| 151 | (defalias 'helm-help-scroll-down #[257 "\3001 \3011 \302!00\2070\303\207\303\207" [(end-of-buffer) (beginning-of-buffer) scroll-down-command nil] 3 (#$ . 15639)]) | |
| 152 | (defalias 'helm-help-next-line #[0 "\3001 \3011 \302\303!00\2070\304\207\304\207" [(end-of-buffer) (beginning-of-buffer) call-interactively next-line nil] 2]) | |
| 153 | (defalias 'helm-help-previous-line #[0 "\3001 \3011 \302\303!00\2070\304\207\304\207" [(end-of-buffer) (beginning-of-buffer) call-interactively previous-line nil] 2]) | |
| 154 | (defalias 'helm-help-toggle-mark #[0 "\300 \203 \301 \207\302\303\211\304#\207" [region-active-p deactivate-mark push-mark nil t] 4]) | |
| 155 | (defalias 'helm-help-event-loop #[0 "\302\303\304\305#\306\307\310!\311\3122\247\211\205\246\313!\211\203\237\314\315\"\203) \316 !\210\202\242\314\317\"\2037 \320 !\210\202\242\321\322\"\203D \323 \210\202\242\321\324\"\203Q \325 \210\202\242\321\326\"\203_ \327\330!\210\202\242\321\331\"\203m \327\332!\210\202\242\314\333\"\203{ \327\334!\210\202\242\314\335\"\203\211 \327\336!\210\202\242\314\337\"\203\226 \340 \210\202\242\314\341\"\203\243 \342 \210\202\242\321\343\"\203\261 \327\344!\210\202\242\321\345\"\203\277 \327\346!\210\202\242\321\347\"\203\315 \327\350!\210\202\242\321\351\"\203\333 \327\352!\210\202\242\321\353\"\203\351 \327\354!\210\202\242\321\355\"\203\367 \327\356!\210\202\242\321\357\"\203\360 \210\202\242\321\361\"\203\362 \210\202\242\321\363\"\203+\3641#\327\365!0\202'\210\202\242\210\202\242\321\366\"\203E\3671=\327\370!0\202A\210\202\242\210\202\242\321\371\"\203S\327\372!\210\202\242\321\373\"\203r\374!\211\247\203h\375 \210\202n\211\362!\266\210\202\242\321\376\"\203\214\377\201@ \201A \"\210\201B \210\202\242\321\201C \"\203\242\201D \312\306\"\210\202\242\306\262\210\202 0\262)\207" [scroll-error-top-bottom helm-scroll-amount propertize "[SPC,C-v,next:ScrollUp b,M-v,prior:ScrollDown TAB:Cycle M-TAB:All C-s/r:Isearch q:Quit]" face helm-helper nil helm-iter-circular (1 (16) (64)) t --cl-block-nil-- read-key memql (22 32 next) helm-help-scroll-up (134217846 98 prior) helm-help-scroll-down eql 19 isearch-forward 18 isearch-backward 1 call-interactively move-beginning-of-line 5 move-end-of-line (6 right) forward-char (2 left) backward-char (14 down) helm-help-next-line (16 up) helm-help-previous-line 134217825 backward-sentence 134217829 forward-sentence 134217830 forward-word 134217826 backward-word 134217790 end-of-buffer 134217788 beginning-of-buffer 67108896 helm-help-toggle-mark 9 org-cycle 13 (error) org-open-at-point 67108902 (error) org-mark-ring-goto 67108901 org-mark-ring-push 134217737 helm-iter-next org-content 134217847 copy-region-as-kill region-beginning region-end deactivate-mark 113 throw] 9]) | |
| 156 | #@26 | |
| 157 | ||
| 158 | (fn CANDIDATES SOURCE) | |
| 159 | (defalias 'helm-multiline-transformer #[514 "\300\301\302\303 \"!\304\211:\2031 @\262\247\203% \305\"BB\262\202* B\262A\262\202\n \211\237\207" [helm-interpret-value assoc-default multiline helm-get-current-source nil helm--multiline-get-truncated-candidate] 9 (#$ . 18444)]) | |
| 160 | #@77 Truncate CANDIDATE when its length is > than OFFSET. | |
| 161 | ||
| 162 | (fn CANDIDATE OFFSET) | |
| 163 | (defalias 'helm--multiline-get-truncated-candidate #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\203C \311 V\203C \312`\212u\210\313\314!\2034 \2027 \314P\262`){P\262\202E \315 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 buffer-size "[...]" looking-at "\n" buffer-string] 9 (#$ . 18766)]) | |
| 164 | #@89 Return a list of all single elements of sublists in SEQ. | |
| 165 | ||
| 166 | (fn SEQ &optional OMIT-NULLS) | |
| 167 | (defalias 'helm-flatten-list #[513 "\300C\300C\211\301\302\303\304\305#\306\"\307\310%\240\210\211\242!\266\211\242\237\207" [nil make-byte-code 257 "\211\303:\203D @\262\211\204 \300\2048 \211:\203. \304!\204. \211:\2038 \211A\2038 \211A:\2048 \301\301\242B\240\210\202= \302\242!\210A\262\202 \303\207" vconcat vector [nil functionp] 6 "\n\n(fn SEQ)"] 13 (#$ . 19260)]) | |
| 168 | #@101 If OBJ is a list (but not lambda), return itself. | |
| 169 | Otherwise make a list with one element. | |
| 170 | ||
| 171 | (fn OBJ) | |
| 172 | (defalias 'helm-mklist #[257 "\211<\203\f \300!\204\f \207\211C\207" [functionp] 3 (#$ . 19745)]) | |
| 173 | #@629 Remove duplicates elements in list SEQ. | |
| 174 | ||
| 175 | This is same as `remove-duplicates' but with memoisation. | |
| 176 | It is much faster, especially in large lists. | |
| 177 | A test function can be provided with TEST argument key. | |
| 178 | Default is `eq'. | |
| 179 | NOTE: Comparison of special elisp objects (e.g. markers etc...) fails | |
| 180 | because their printed representations which are stored in hash-table | |
| 181 | can't be compared with with the real object in SEQ. | |
| 182 | This is a bug in `puthash' which store the printable representation of | |
| 183 | object instead of storing the object itself, this to provide at the | |
| 184 | end a printable representation of hashtable itself. | |
| 185 | ||
| 186 | (fn SEQ &key (TEST \='eq)) | |
| 187 | (defalias 'helm-fast-remove-dups #[385 "\300\301\"\206 \302A@\211\2035 \211@\303>\203 \211AA\262\202 \304>A@\203, \305\262\202 \306\307@\"\210\202 \210\310\301\"\305\211:\203^ @\262\311\"\204W \312\211#B\262A\262\202= \211\237\266\204\207" [plist-member :test (nil eq) (:test :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test)" make-hash-table gethash puthash] 11 (#$ . 19951)]) | |
| 188 | #@69 Join all STRINGS using SEPARATOR. | |
| 189 | ||
| 190 | (fn STRINGS &optional SEPARATOR) | |
| 191 | (defalias 'helm--string-join #[513 "\300\301#\207" [mapconcat identity] 6 (#$ . 21025)]) | |
| 192 | (put 'helm--string-join 'byte-optimizer 'byte-compile-inline-expand) | |
| 193 | #@84 Return a regexp which matches any of the regexps in REGEXP-LIST. | |
| 194 | ||
| 195 | (fn REGEXP-LIST) | |
| 196 | (defalias 'helm--concat-regexps #[257 "\211\203 \300\301\302\303#\266\202\304Q\207\305\207" ["\\(?:" "\\)\\|\\(?:" mapconcat identity "\\)" "\\<\\>"] 8 (#$ . 21259)]) | |
| 197 | #@115 Remove entries which matches one of REGEXP-LIST from SEQ. | |
| 198 | ||
| 199 | (fn SEQ BLACK-REGEXP-LIST &optional WHITE-REGEXP-LIST) | |
| 200 | (defalias 'helm-skip-entries #[770 "\301!\301!\302\211:\203C @\262;\2037 \302\303\304#)\266\203\2037 \302\303\304#)\266\203\203< B\262A\262\202 \211\237\266\203\207" [inhibit-changing-match-data helm--concat-regexps nil t string-match] 15 (#$ . 21520)]) | |
| 201 | #@79 Check if one regexp in BLACK-LIST match DIRECTORY. | |
| 202 | ||
| 203 | (fn DIRECTORY BLACK-LIST) | |
| 204 | (defalias 'helm-boring-directory-p #[514 "\301\3022e \211\205d \303\304\305!!!\211\203] \211\306\230\203 \307\302\310\"\210\310\301\310:\203M @\262\304 !\310\301\311#)\266\203\211\262?\211\262\203M A\262\202# \266\203\203W \307\302\301\"\210\211\262\202` \310\262\210\202 0\207" [inhibit-changing-match-data t --cl-block-nil-- helm-basedir directory-file-name expand-file-name "/" throw nil string-match] 15 (#$ . 21919)]) | |
| 205 | #@95 Put shadow property on entries in SEQ matching a regexp in REGEXP-LIST. | |
| 206 | ||
| 207 | (fn SEQ REGEXP-LIST) | |
| 208 | (defalias 'helm-shadow-entries #[514 "\300\301\211:\203S @\262\301\302\301:\2035 @\262;\205$ \303\"\211\262?\211\262\2035 A\262\202 \266\203\203G \304\305#B\262\202L B\262A\262\202 \211\237\266\203\207" [italic nil t string-match propertize face] 13 (#$ . 22445)]) | |
| 209 | #@70 Remove all elements of SEQ that don't match REGEXP. | |
| 210 | ||
| 211 | (fn REGEXP SEQ) | |
| 212 | (defalias 'helm-remove-if-not-match #[514 "\211\301\211\211:\203A @\2629\203 \302!\202# :\203\" @\202# \262\301\303\304#)\266\203\203: B\262A\262\202 \211\237\207" [inhibit-changing-match-data nil symbol-name t string-match] 13 (#$ . 22838)]) | |
| 213 | #@64 Remove all elements of SEQ that match REGEXP. | |
| 214 | ||
| 215 | (fn REGEXP SEQ) | |
| 216 | (defalias 'helm-remove-if-match #[514 "\211\301\211\211:\203A @\2629\203 \302!\202# :\203\" @\202# \262\301\303\304#)\266\203\204: B\262A\262\202 \211\237\207" [inhibit-changing-match-data nil symbol-name t string-match] 13 (#$ . 23178)]) | |
| 217 | #@294 `mapcar' for candidate-transformer. | |
| 218 | ||
| 219 | ARGS is (cand1 cand2 ...) or ((disp1 . real1) (disp2 . real2) ...) | |
| 220 | ||
| 221 | (helm-transform-mapcar 'upcase '("foo" "bar")) | |
| 222 | => ("FOO" "BAR") | |
| 223 | (helm-transform-mapcar 'upcase '(("1st" . "foo") ("2nd" . "bar"))) | |
| 224 | => (("1st" . "FOO") ("2nd" . "BAR")) | |
| 225 | ||
| 226 | (fn FUNCTION ARGS) | |
| 227 | (defalias 'helm-transform-mapcar #[514 "\211\300\211:\203- @\262:\203 @A!BB\262\202& !B\262A\262\202 \211\237\207" [nil] 8 (#$ . 23509)]) | |
| 228 | #@49 Append ELM at INDEX in SEQ. | |
| 229 | ||
| 230 | (fn SEQ ELM INDEX) | |
| 231 | (defalias 'helm-append-at-nth #[771 "GV\203 \211\262\202 \300W\203 \300\262\300U\203$ \301\"\202c \302\303\302:\203_ @\262B\262U\203T <\203N \304!\244\262\202T B\262A\262T\262\202( \211\237\266\204\207" [0 append nil 1 reverse] 10 (#$ . 23963)]) | |
| 232 | #@154 Get a Helm source in SOURCES by NAME. | |
| 233 | ||
| 234 | Optional argument SOURCES is a list of Helm sources which default to | |
| 235 | `helm-sources'. | |
| 236 | ||
| 237 | (fn NAME &optional SOURCES) | |
| 238 | (defalias 'helm-source-by-name #[513 "\211\203- \211\301\211:\203& @\262<\203 \202 JB\262A\262\202 \211\237\266\203\202. \211\301\302\301:\203W @\262\303\304\"\230\205F \211\262?\211\262\203W A\262\2022 \207" [helm-sources nil t assoc-default name] 11 (#$ . 24300)]) | |
| 239 | #@220 Build an alist with (NAME . ACTION) elements with each pairs in ARGS. | |
| 240 | Where NAME is a string or a function returning a string or nil and ACTION | |
| 241 | a function. | |
| 242 | If NAME returns nil the pair is skipped. | |
| 243 | ||
| 244 | (fn NAME ACTION ...) | |
| 245 | (defalias 'helm-make-actions #[128 "\211\300\211\211\211:\2036 \262\211A\262\242\262@\262\301!\203# \262\203. BB\262AA\262\202 \211\237\207" [nil functionp] 8 (#$ . 24752)]) | |
| 246 | #@100 Return the representation of ELM as a string. | |
| 247 | ELM can be a string, a number or a symbol. | |
| 248 | ||
| 249 | (fn ELM) | |
| 250 | (defalias 'helm-stringify #[257 "\211;\203 \207\211\247\203 \300!\207\2119\205 \301!\207" [number-to-string symbol-name] 3 (#$ . 25172)]) | |
| 251 | #@119 Return the substring of string STR from 0 to WIDTH. | |
| 252 | Handle multibyte characters by moving by columns. | |
| 253 | ||
| 254 | (fn STR WIDTH) | |
| 255 | (defalias 'helm-substring #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\212c\210)\311!\210\312 `{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 move-to-column point-at-bol] 9 (#$ . 25421)]) | |
| 256 | #@228 Truncate string STR to end at column WIDTH. | |
| 257 | Similar to `truncate-string-to-width'. | |
| 258 | Add ENDSTR at end of truncated STR. | |
| 259 | Add spaces at end if needed to reach WIDTH when STR is shorter than WIDTH. | |
| 260 | ||
| 261 | (fn STR WIDTH &optional ENDSTR) | |
| 262 | (defalias 'helm-substring-by-width #[770 "\300\211\301\211\300\203 \202 \302GSO\262\303!\262X\2038 \304 Z\305\"Q\262\300\211\262\2029 \301\203B \300\262\202 \207" [nil t 0 string-width make-string 32] 13 (#$ . 25838)]) | |
| 263 | #@62 Check if string STR contains multibyte characters. | |
| 264 | ||
| 265 | (fn STR) | |
| 266 | (defalias 'helm-string-multibyte-p #[257 "\211\300\301\302\301T\211\262GW\203$ H\262\303!\304V\211\262?\211\262\204 \207" [-1 nil t char-width 1] 8 (#$ . 26314)]) | |
| 267 | #@63 Get pid from running process PROCESS-NAME. | |
| 268 | ||
| 269 | (fn PROCESS-NAME) | |
| 270 | (defalias 'helm-get-pid-from-process-name #[257 "\300 \211\301\211\302\301:\203: @\262\303\304\305!\"\262\203/ \306\"\203/ \262\301\211\262\2020 \302\203: A\262\202 \207" [list-system-processes nil t assoc-default comm process-attributes string-match] 11 (#$ . 26554)]) | |
| 271 | #@54 Return a list of available printers on Unix systems. | |
| 272 | (defalias 'helm-ff-find-printers #[0 "\300\301!\205R \302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\301\314\315\314\316%\210\317\320 \321\"*\262\211\314\211\211:\203L @\262\317!@\262\203E B\262A\262\202- \211\237\266\204\262\207" [executable-find "lpstat" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process nil t "-a" split-string buffer-string "\n"] 7 (#$ . 26908)]) | |
| 273 | (defalias 'helm-region-active-p #[0 "\205 \205 \302 `U?\207" [transient-mark-mode mark-active mark] 2]) | |
| 274 | #@65 Quote whitespace, if some, in string CANDIDATE. | |
| 275 | ||
| 276 | (fn CANDIDATE) | |
| 277 | (defalias 'helm-quote-whitespace #[257 "\300\301\302#\207" [replace-regexp-in-string " " "\\\\ "] 5 (#$ . 27553)]) | |
| 278 | #@41 Current line string without properties. | |
| 279 | (defalias 'helm-current-line-contents #[0 "\300\301 \302 \"\207" [buffer-substring-no-properties point-at-bol point-at-eol] 3 (#$ . 27739)]) | |
| 280 | #@1041 Replace REGEXP by REP in string STR. | |
| 281 | ||
| 282 | Same as `replace-regexp-in-string' but handle properly REP as | |
| 283 | function with SUBEXP specified. | |
| 284 | ||
| 285 | e.g | |
| 286 | ||
| 287 | (helm--replace-regexp-in-buffer-string "e\\(m\\)acs" 'upcase "emacs" t nil 1) | |
| 288 | => "eMacs" | |
| 289 | ||
| 290 | (replace-regexp-in-string "e\\(m\\)acs" 'upcase "emacs" t nil 1) | |
| 291 | => "eEMACSacs" | |
| 292 | ||
| 293 | Also START argument behave as expected unlike | |
| 294 | `replace-regexp-in-string'. | |
| 295 | ||
| 296 | e.g | |
| 297 | ||
| 298 | (helm--replace-regexp-in-buffer-string "f" "r" "foofoo" t nil nil 3) | |
| 299 | => "fooroo" | |
| 300 | ||
| 301 | (replace-regexp-in-string "f" "r" "foofoo" t nil nil 3) | |
| 302 | => "roo" | |
| 303 | ||
| 304 | Unlike `replace-regexp-in-string' this function is buffer-based | |
| 305 | implemented i.e replacement is computed inside a temp buffer, so | |
| 306 | REGEXP should be used differently than with | |
| 307 | `replace-regexp-in-string'. | |
| 308 | ||
| 309 | NOTE: This function is used internally for | |
| 310 | `helm-ff-query-replace-on-filenames' and builded for this. | |
| 311 | You should use `replace-regexp-in-string' instead unless the behavior | |
| 312 | of this function is really needed. | |
| 313 | ||
| 314 | (fn REGEXP REP STR &optional FIXEDCASE LITERAL SUBEXP START) | |
| 315 | (defalias 'helm--replace-regexp-in-buffer-string #[1795 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\206 eb\210\311\312\313#\203X \314\315!\203; \203; \316!!\202L \315!\203J !\202L \312%\210\202 \317 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward nil t replace-match functionp match-string buffer-string] 14 (#$ . 27928)]) | |
| 316 | #@76 Same as `url-unhex-string' but ensure STR is completely decoded. | |
| 317 | ||
| 318 | (fn STR) | |
| 319 | (defalias 'helm-url-unhex-string #[257 "\211\206 \300\262\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\212c\210)\312\313\314\315#\203= \316\317\320\321\304!\322\314O\323\"!\315\211#\210eb\210\202 \324\325 \326\"*\207" ["" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "%[A-Za-z0-9]\\{2\\}" nil t replace-match byte-to-string string-to-number match-string 1 16 decode-coding-string buffer-string utf-8] 8 (#$ . 29441)]) | |
| 320 | #@591 Prompt user for an answer. | |
| 321 | Arg PROMPT is the prompt to present user the different possible | |
| 322 | answers, ANSWER-LIST is a list of strings. | |
| 323 | If user enter an answer which is one of ANSWER-LIST return this | |
| 324 | answer, otherwise keep prompting for a valid answer. | |
| 325 | Note that answer should be a single char, only short answer are | |
| 326 | accepted. | |
| 327 | ||
| 328 | Example: | |
| 329 | ||
| 330 | (let ((answer (helm-read-answer | |
| 331 | "answer [y,n,!,q]: " | |
| 332 | '("y" "n" "!" "q")))) | |
| 333 | (pcase answer | |
| 334 | ("y" "yes") | |
| 335 | ("n" "no") | |
| 336 | ("!" "all") | |
| 337 | ("q" "quit"))) | |
| 338 | ||
| 339 | (fn PROMPT ANSWER-LIST) | |
| 340 | (defalias 'helm-read-answer #[514 "\300\3012= \211\205< \302\303\304\305\306#!!\211\2035 \211\235\203$ \307\301\"\210\2028 \310\311\312\313\314#\"\210\315\316!\210\2028 \317\262\210\202 0\207" [t --cl-block-nil-- string read-key propertize face minibuffer-prompt throw message "Please answer by %s" mapconcat identity ", " sit-for 1 nil] 10 (#$ . 30050)]) | |
| 341 | #@44 Get symbol of STR-OR-SYM. | |
| 342 | ||
| 343 | (fn STR-OR-SYM) | |
| 344 | (defalias 'helm-symbolify #[257 "\2119\203 \207\300!\207" [intern] 3 (#$ . 31009)]) | |
| 345 | #@12 | |
| 346 | ||
| 347 | (fn OBJ) | |
| 348 | (defalias 'helm-symbol-name #[257 "\211:\203 \300!\204 \301!\203 \302\207\303!\207" [functionp byte-code-function-p "Anonymous" symbol-name] 3 (#$ . 31144)]) | |
| 349 | #@38 FUNC is symbol or string. | |
| 350 | ||
| 351 | (fn FUNC) | |
| 352 | (defalias 'helm-describe-function #[257 "\300K\301\302\303\304\305!\306\"\307$\216\300\310M\210\311\312!!)\207" [message make-byte-code 0 "\301\300M\207" vconcat vector [message] 2 ignore describe-function helm-symbolify] 8 (#$ . 31325)]) | |
| 353 | #@36 VAR is symbol or string. | |
| 354 | ||
| 355 | (fn VAR) | |
| 356 | (defalias 'helm-describe-variable #[257 "\300K\301\302\303\304\305!\306\"\307$\216\300\310M\210\311\312!!)\207" [message make-byte-code 0 "\301\300M\207" vconcat vector [message] 2 ignore describe-variable helm-symbolify] 8 (#$ . 31609)]) | |
| 357 | #@38 FACE is symbol or string. | |
| 358 | ||
| 359 | (fn FACE) | |
| 360 | (defalias 'helm-describe-face #[257 "\300 \301K\302\303\304\305\306!\307\"\310$\216\301\311M\210\312A\203! \313\314\"\202$ \314!!)\262\207" [helm-marked-candidates message make-byte-code 0 "\301\300M\207" vconcat vector [message] 2 ignore describe-face mapcar helm-symbolify] 9 (#$ . 31891)]) | |
| 361 | #@264 Used to build persistent actions describing CANDIDATE with FUN. | |
| 362 | Argument NAME is used internally to know which command to use when | |
| 363 | symbol CANDIDATE refers at the same time to variable and a function. | |
| 364 | See `helm-elisp-show-help'. | |
| 365 | ||
| 366 | (fn CANDIDATE FUN &optional NAME) | |
| 367 | (defalias 'helm-elisp--persistent-help #[770 "\301\302 !\303 \203 \203 \"\210\202X !\210\202X \304\305!\203C \304\306!\230\203C \211\232\204; \307\310!\"\210\311!\210\312\305\313\"\210\202X \203O \"\210\202S !\210\312\305\314\"\210\312\306\"\207" [helm-current-buffer get-buffer help-buffer helm-follow-mode-p helm-attr help-running-p help-current-symbol set-window-buffer get-buffer-window kill-buffer helm-attrset nil t] 7 (#$ . 32233)]) | |
| 368 | #@38 FUNC is symbol or string. | |
| 369 | ||
| 370 | (fn FUNC) | |
| 371 | (defalias 'helm-find-function #[257 "\300\301!!\207" [find-function helm-symbolify] 4 (#$ . 32962)]) | |
| 372 | #@36 VAR is symbol or string. | |
| 373 | ||
| 374 | (fn VAR) | |
| 375 | (defalias 'helm-find-variable #[257 "\300\301!!\207" [find-variable helm-symbolify] 4 (#$ . 33107)]) | |
| 376 | #@38 FACE is symbol or string. | |
| 377 | ||
| 378 | (fn FACE) | |
| 379 | (defalias 'helm-find-face-definition #[257 "\300\301!!\207" [find-face-definition helm-symbolify] 4 (#$ . 33250)]) | |
| 380 | #@103 CANDIDATE is symbol or string. | |
| 381 | See `kill-new' for argument REPLACE. | |
| 382 | ||
| 383 | (fn CANDIDATE &optional REPLACE) | |
| 384 | (defalias 'helm-kill-new #[513 "\300\301!\"\207" [kill-new helm-stringify] 5 (#$ . 33410)]) | |
| 385 | #@133 Decide if current-buffer is related to START-BUFFER. | |
| 386 | Argument ALIST is an alist of associated major modes. | |
| 387 | ||
| 388 | (fn START-BUFFER ALIST) | |
| 389 | (defalias 'helm-same-major-mode-p #[514 "rq\210)\236\301\"\236\301\"AA=\206z \302!\206z r q\210\302!)\206z =\206z @=\206z \236A=\206z \301\n\"@=\206z \211=\206z @=\206z \211 \236A=\206z \301\n\"@=\207" [major-mode rassq derived-mode-p] 13 (#$ . 33613)]) | |
| 390 | #@78 Same as `file-name-sans-extension' but remove all extensions. | |
| 391 | ||
| 392 | (fn FILENAME) | |
| 393 | (defalias 'helm-file-name-sans-extension #[257 "\300!\211\205 \301\302\303!\304#\203 \305!\202 \211\207" [file-name-sans-extension string-match "\\." helm-basename 1 helm-file-name-sans-extension] 6 (#$ . 34050)]) | |
| 394 | #@378 Print FNAME with any leading directory components removed. | |
| 395 | If specified, also remove filename extension EXT. | |
| 396 | Arg EXT can be specified as a string with or without dot, | |
| 397 | in this case it should match file-name-extension. | |
| 398 | It can also be non-nil (`t') in this case no checking | |
| 399 | of file-name-extension is done and the extension is removed | |
| 400 | unconditionally. | |
| 401 | ||
| 402 | (fn FNAME &optional EXT) | |
| 403 | (defalias 'helm-basename #[513 "\301\211\203+ \302!\230\204 \302\301\"\230\204 \211\301=\203+ \303!\204+ \304\305!!\2020 \305\306!!)\207" [non-essential t file-name-extension file-directory-p file-name-sans-extension file-name-nondirectory directory-file-name] 5 (#$ . 34354)]) | |
| 404 | #@70 Return the base directory of filename ending by a slash. | |
| 405 | ||
| 406 | (fn FNAME) | |
| 407 | (defalias 'helm-basedir #[257 "\211\205 \211\300\230\203 \300\202 \301!\211\205 \302!\207" ["~" file-name-directory file-name-as-directory] 4 (#$ . 35025)]) | |
| 408 | #@97 Return current-directory name at point. | |
| 409 | Useful in dired buffers when there is inserted subdirs. | |
| 410 | (defalias 'helm-current-directory #[0 "\302\303=\203\f \304 \202 !\207" [major-mode default-directory expand-file-name dired-mode dired-current-directory] 3 (#$ . 35263)]) | |
| 411 | #@119 Files matching `helm-boring-file-regexp' will be | |
| 412 | displayed with the `file-name-shadow' face if available. | |
| 413 | ||
| 414 | (fn FILES) | |
| 415 | (defalias 'helm-shadow-boring-files #[257 "\301\"\207" [helm-boring-file-regexp-list helm-shadow-entries] 4 (#$ . 35541)]) | |
| 416 | #@71 Files matching `helm-boring-file-regexp' will be skipped. | |
| 417 | ||
| 418 | (fn FILES) | |
| 419 | (defalias 'helm-skip-boring-files #[257 "\301\"\207" [helm-boring-file-regexp-list helm-skip-entries] 4 (#$ . 35790)]) | |
| 420 | #@43 Current file will be skipped. | |
| 421 | ||
| 422 | (fn FILES) | |
| 423 | (defalias 'helm-skip-current-file #[257 "\301\302!\"\207" [helm-current-buffer remove buffer-file-name] 4 (#$ . 35987)]) | |
| 424 | #@118 Change undesirable features of windows pathnames to ones more acceptable to | |
| 425 | other candidate transformers. | |
| 426 | ||
| 427 | (fn ARGS) | |
| 428 | (defalias 'helm-w32-pathname-transformer #[257 "\301=\203 \302\303\"\207\207" [system-type windows-nt helm-transform-mapcar #[257 "\300\301\302\300\303\304##\207" [replace-regexp-in-string "/cygdrive/\\(.\\)" "\\1:" "\\\\" "/"] 8 "\n\n(fn X)"]] 4 (#$ . 36159)]) | |
| 429 | #@83 Convert filename FILE to something usable by external w32 executables. | |
| 430 | ||
| 431 | (fn FILE) | |
| 432 | (defalias 'helm-w32-prepare-filename #[257 "\300\301\302\300\303\304\305\211%\305\306%\207" [replace-regexp-in-string "/" "\\" "/cygdrive/\\(.\\)" "\\1:" nil t] 10 (#$ . 36549)]) | |
| 433 | #@13 | |
| 434 | ||
| 435 | (fn FILE) | |
| 436 | (defalias 'helm-w32-shell-execute-open-file #[257 "\300\301\302!\"\207" [w32-shell-execute "open" helm-w32-prepare-filename] 5 (#$ . 36818)]) | |
| 437 | (defvar helm-walk-ignore-directories '("SCCS/" "RCS/" "CVS/" "MCVS/" ".svn/" ".git/" ".hg/" ".bzr/" "_MTN/" "_darcs/" "{arch}/" ".gvfs/")) | |
| 438 | #@17 | |
| 439 | ||
| 440 | (fn FILE DIR) | |
| 441 | (defalias 'helm--dir-file-name #[514 "\300\301GSO\"\207" [expand-file-name 0] 6 (#$ . 37118)]) | |
| 442 | (put 'helm--dir-file-name 'byte-optimizer 'byte-compile-inline-expand) | |
| 443 | #@12 | |
| 444 | ||
| 445 | (fn STR) | |
| 446 | (defalias 'helm--dir-name-p #[257 "\300\211GSH\301\"\207" [char-equal 47] 4 (#$ . 37309)]) | |
| 447 | (put 'helm--dir-name-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 448 | #@646 Walk through DIRECTORY tree. | |
| 449 | ||
| 450 | Argument PATH can be one of basename, relative, full, or a function | |
| 451 | called on file name, default to basename. | |
| 452 | ||
| 453 | Argument DIRECTORIES when non--nil (default) return also directories names, | |
| 454 | otherwise skip directories names, with a value of 'only returns | |
| 455 | only subdirectories, i.e files are skipped. | |
| 456 | ||
| 457 | Argument MATCH is a regexp matching files or directories. | |
| 458 | ||
| 459 | Argument SKIP-SUBDIRS when `t' will skip `helm-walk-ignore-directories' | |
| 460 | otherwise if it is given as a list of directories, this list will be used | |
| 461 | instead of `helm-walk-ignore-directories'. | |
| 462 | ||
| 463 | (fn DIRECTORY &key (PATH \='basename) DIRECTORIES MATCH SKIP-SUBDIRS) | |
| 464 | (defalias 'helm-walk-directory #[385 "\301\302\"\206 \303A@\301\304\"A@\301\305\"A@\301\306\"A@C\211\203I \211@\307>\2031 \211AA\262\202 \310>A@\203@ \311\262\202 \312\313@\"\210\202 \210\314\267\202\\ \315\202] \316\202] \317\202] \211\242<\203i \242\202j \240\210\311C\211\320\321\322\323\324\n\n\n\n\n%\325\"\326\327%\240\210\211\242!\262\262\207" [helm-walk-ignore-directories plist-member :path (nil basename) :directories :match :skip-subdirs (:path :directories :match :skip-subdirs :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:path :directories :match :skip-subdirs)" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (basename 80 relative 84 full 88)) file-name-nondirectory file-relative-name identity make-byte-code 257 "\305!?\205\234 \306\307\310\"\311\"\312\211:\203\230 @\262\313\235\211\204\220 \314\211GSH\315\"\262\205; \316\317GSO\"\266\202\211\203p \302\242\235?\205h \300\203d \301\203V \320\301\"\203d \303!\321PC\304\242!\244\202h \304\242!\237\244\262\202\217 \300\322=?\205\212 \301\203\202 \320\301\"\205\212 \303\316\"!C\237\244\262\210\210A\262\202 \211\237\266\203\207" vconcat vector [file-symlink-p sort file-name-all-completions "" string-lessp nil ("./" "../") char-equal 47 expand-file-name 0 string-match "/" only] 11 "\n\n(fn DIR)"] 19 (#$ . 37487)]) | |
| 465 | #@176 Same as `file-expand-wildcards' but allow recursion. | |
| 466 | Recursion happen when PATTERN starts with two stars. | |
| 467 | Directories expansion is not supported. | |
| 468 | ||
| 469 | (fn PATTERN &optional FULL) | |
| 470 | (defalias 'helm-file-expand-wildcards #[513 "\302!\303 \203E \304\305\"\203E \306\307!\310\311\312\"\203 \312\2027 \311\313\"\203+ \313\2027 \314\315\"\2036 \316\2027 \312\317\303\320\321!\322\323& \202I \324\")\207" [case-fold-search helm-file-globstar helm-basename nil string-match "\\`\\*\\{2\\}\\(.*\\)" helm-walk-directory helm-basedir :path eql full relative memql (basename nil) basename :directories :match wildcard-to-regexp :skip-subdirs t file-expand-wildcards] 13 (#$ . 39556)]) | |
| 471 | #@131 Set minibuffer contents to PATTERN. | |
| 472 | if optional NOUPDATE is non-nil, helm buffer is not changed. | |
| 473 | ||
| 474 | (fn PATTERN &optional NOUPDATE) | |
| 475 | (defalias 'helm-set-pattern #[513 "\301\302 \206 \303 !r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315 \210c\210*\210\211\205+ \211\207" [helm-pattern internal--before-with-selected-window active-minibuffer-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord delete-minibuffer-contents] 9 (#$ . 40242)]) | |
| 476 | #@110 Return the user input in a minibuffer before point as a string. | |
| 477 | That is what completion commands operate on. | |
| 478 | (defalias 'helm-minibuffer-completion-contents #[0 "\300 `{\207" [field-beginning] 2 (#$ . 40783)]) | |
| 479 | #@50 Eval BODY inside `helm-buffer'. | |
| 480 | ||
| 481 | (fn &rest BODY) | |
| 482 | (defalias 'with-helm-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer (helm-buffer-get)] 4 (#$ . 40998)])) | |
| 483 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-buffer lisp-indent-function 0 put edebug-form-spec t] 5) | |
| 484 | #@58 Eval BODY inside `helm-current-buffer'. | |
| 485 | ||
| 486 | (fn &rest BODY) | |
| 487 | (defalias 'with-helm-current-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))] 4 (#$ . 41306)])) | |
| 488 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-current-buffer lisp-indent-function 0 put edebug-form-spec t] 5) | |
| 489 | #@63 Return `helm-action-buffer' if shown otherwise `helm-buffer'. | |
| 490 | (defalias 'helm-buffer-get #[0 "\302 \203 \207 \207" [helm-action-buffer helm-buffer helm-action-window] 1 (#$ . 41731)]) | |
| 491 | #@26 Window of `helm-buffer'. | |
| 492 | (defalias 'helm-window #[0 "\300\301 \302\"\207" [get-buffer-window helm-buffer-get 0] 3 (#$ . 41923)]) | |
| 493 | #@33 Window of `helm-action-buffer'. | |
| 494 | (defalias 'helm-action-window #[0 "\301\302\"\207" [helm-action-buffer get-buffer-window visible] 3 (#$ . 42058)]) | |
| 495 | #@62 Be sure BODY is excuted in the helm window. | |
| 496 | ||
| 497 | (fn &rest BODY) | |
| 498 | (defalias 'with-helm-window '(macro . #[128 "\300\301BB\207" [with-selected-window (helm-window)] 4 (#$ . 42212)])) | |
| 499 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-window lisp-indent-function 0 put edebug-form-spec t] 5) | |
| 500 | #@72 Yank text at point in `helm-current-buffer' into minibuffer. | |
| 501 | ||
| 502 | (fn ARG) | |
| 503 | (defalias 'helm-yank-text-at-point #[257 "r\305!\203 \206 p\211q\210 \206 \306\307\n\204 @\212\nb\210\310\311W\203Y \312\313!r\211q\210\314\311\315\316\317!\320\"\321$\216\fc\210d\211b\210\322!\210\211`Z\262`|\210\323 \262*\262\202g !\210\f\324\325\326\327\n`\"#P!\210\211\203s `Z\202t `\211)\266\202)\207" [helm-current-buffer helm-yank-text-at-point-function helm-yank-point helm-current-position helm-pattern buffer-live-p forward-word nil helm-set-pattern 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 -1 buffer-string replace-regexp-in-string "\\`\n" "" buffer-substring-no-properties] 11 (#$ . 42529) "p"]) | |
| 504 | (put 'helm-yank-text-at-point 'helm-only t) | |
| 505 | #@53 Undo last entry added by `helm-yank-text-at-point'. | |
| 506 | (defalias 'helm-undo-yank-text-at-point #[0 "\300\301!\207" [helm-yank-text-at-point -1] 2 (#$ . 43358) nil]) | |
| 507 | (put 'helm-undo-yank-text-at-point 'helm-only t) | |
| 508 | (defalias 'helm-reset-yank-point #[0 "\301\211\207" [helm-yank-point nil] 2]) | |
| 509 | (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook helm-cleanup-hook helm-reset-yank-point helm-after-initialize-hook] 3) | |
| 510 | (defvar helm--ansi-color-regexp "\\[\\(K\\|[0-9;]*m\\)") | |
| 511 | (defvar helm--ansi-color-drop-regexp "\\[\\([ABCDsuK]\\|[12][JK]\\|=[0-9]+[hI]\\|[0-9;]*[Hf]\\)") | |
| 512 | #@417 A version of `ansi-color-apply' immune to upstream changes. | |
| 513 | ||
| 514 | Similar to the emacs-24.5 version without support to `ansi-color-context' | |
| 515 | which is buggy in emacs. | |
| 516 | ||
| 517 | Modify also `ansi-color-regexp' by using own variable `helm--ansi-color-regexp' | |
| 518 | that match whole STRING. | |
| 519 | ||
| 520 | This is needed to provide compatibility for both emacs-25 and emacs-24.5 | |
| 521 | as emacs-25 version of `ansi-color-apply' is partially broken. | |
| 522 | ||
| 523 | (fn STRING) | |
| 524 | (defalias 'helm--ansi-color-apply #[257 "\302\303\211\211\211\211\304#\211\262\203X \305\306\"\262\203+ \307\310\311 ! %\210O\262\302\225\262\304 \"\203I \312\313\303\211$\262\2027 \211B\262\314\"\262\202 \203k \307G\310\311 ! %\210\304\315#\203\203 \302\224OB\262\202\215 \303OB\262\316\317\237\"\207" [helm--ansi-color-regexp helm--ansi-color-drop-regexp 0 nil string-match match-string 1 put-text-property font-lock-face ansi-color--find-face replace-match "" ansi-color-apply-sequence "" apply concat] 13 (#$ . 43943)]) | |
| 525 | (provide 'helm-lib) | |
