.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\317\320\310\305&\210\311\321\313\314\322DD\323\310\305\317\324&\210\325\326\327\306#\210\330\211\203Z\211@\326N\203S\327N\204S\331\327\326N#\210A\266\202\2029\210\332\326\327\333#\210\311\327\313\314\334DD\335\310\305\317\336&\210\311\337\313\314\340DD\341\310\305\317\342&\210\311\343\313\314\344DD\345\310\305\317\336&\210\311\346\313\314\347DD\350\310\305\317\351&\210\311\352\313\314\353DD\354\310\305\317\314&\207" [require cl-lib helm helm-help custom-declare-group helm-utils nil "Utilities routines for Helm." :group custom-declare-variable helm-su-or-sudo funcall function #[0 "\300\207" [#1="sudo"] 1 #1#] "What command to use for root access." :type string helm-default-kbsize #[0 "\300\207" [1024.0] 1] "Default Kbsize to use for showing files size.\nIt is a float, usually 1024.0 but could be 1000.0 on some systems." float defvaralias helm-highlight-number-lines-around-point helm-highlight-matches-around-point-max-lines (saved-value saved-variable-comment) put make-obsolete-variable "20160119" #[0 "\300\207" [15] 1] "Number of lines around point where matched items are highlighted." integer helm-buffers-to-resize-on-pa #[0 "\300\207" [nil] 1] "A list of helm buffers where the helm-window should be reduced on persistent actions." (repeat (choice string)) helm-resize-on-pa-text-height #[0 "\300\207" [12] 1] "The size of the helm-window when resizing on persistent action." helm-sources-using-help-echo-popup #[0 "\300\207" [("Moccur" "Imenu in all buffers" "Ack-Grep" "AG" "RG" "Gid" "Git-Grep")] 1] "Show the buffer name or the filename in a popup at selection." (repeat (choice string)) helm-html-decode-entities-function #[0 "\300\207" [helm-html-decode-entities-string] 1] "Function used to decode html entities in html bookmarks.\nHelm comes by default with `helm-html-decode-entities-string', if you need something\nmore sophisticated you can use `w3m-decode-entities-string' if available.\n\nIn emacs itself org-entities seems broken and `xml-substitute-numeric-entities'\nsupports only numeric entities."] 8)
#@511 Run before jumping to line.
This hook run when jumping from `helm-goto-line', `helm-etags-default-action',
and `helm-imenu-default-action'.
This allow you to retrieve a previous position after using the different helm
tools for searching (etags, grep, gid, (m)occur etc...).
By default positions are added to `mark-ring' you can also add to register
by using instead (or adding) `helm-save-pos-to-register-before-jump'.
In this case last position is added to the register
`helm-save-pos-before-jump-register'.
(defvar helm-goto-line-before-hook '(helm-save-current-pos-to-mark-ring) (#$ . 2571))
#@75 The register where `helm-save-pos-to-register-before-jump' save position.
(defvar helm-save-pos-before-jump-register 95 (#$ . 3173))
#@46 Table of html character entities and values.
(defconst helm-html-entities-alist '(("&quot;" . 34) ("&gt;" . 62) ("&lt;" . 60) ("&amp;" . 38) ("&euro;" . 8364) ("&Yuml;" . 89) ("&iexcl;" . 161) ("&cent;" . 162) ("&pound;" . 163) ("&curren;" . 164) ("&yen" . 165) ("&brvbar;" . 166) ("&sect;" . 167) ("&uml;" . 32) ("&copy;" . 169) ("&ordf;" . 97) ("&laquo;" . 171) ("&not;" . 172) ("&masr;" . 174) ("&deg;" . 176) ("&plusmn;" . 177) ("&sup2;" . 50) ("&sup3;" . 51) ("&acute;" . 39) ("&micro;" . 956) ("&para;" . 182) ("&middot;" . 183) ("&cedil;" . 32) ("&sup1;" . 49) ("&ordm;" . 111) ("&raquo;" . 187) ("&frac14;" . 49) ("&frac12;" . 49) ("&frac34;" . 51) ("&iquest;" . 191) ("&Agrave;" . 192) ("&Aacute;" . 193) ("&Acirc;" . 194) ("&Atilde;" . 195) ("&Auml;" . 196) ("&Aring;" . 197) ("&Aelig" . 198) ("&Ccedil;" . 199) ("&Egrave;" . 200) ("&Eacute;" . 201) ("&Ecirc;" . 202) ("&Euml;" . 203) ("&Igrave;" . 204) ("&Iacute;" . 205) ("&Icirc;" . 206) ("&Iuml;" . 207) ("&eth;" . 208) ("&Ntilde;" . 209) ("&Ograve;" . 210) ("&Oacute;" . 211) ("&Ocirc;" . 212) ("&Otilde;" . 213) ("&Ouml;" . 214) ("&times;" . 215) ("&Oslash;" . 216) ("&Ugrave;" . 217) ("&Uacute;" . 218) ("&Ucirc;" . 219) ("&Uuml;" . 220) ("&Yacute;" . 221) ("&thorn;" . 222) ("&szlig;" . 223) ("&agrave;" . 224) ("&aacute;" . 225) ("&acirc;" . 226) ("&atilde;" . 227) ("&auml;" . 228) ("&aring;" . 229) ("&aelig;" . 230) ("&ccedil;" . 231) ("&egrave;" . 232) ("&eacute;" . 233) ("&ecirc;" . 234) ("&euml;" . 235) ("&igrave;" . 236) ("&iacute;" . 237) ("&icirc;" . 238) ("&iuml;" . 239) ("&eth;" . 240) ("&ntilde;" . 241) ("&ograve;" . 242) ("&oacute;" . 243) ("&ocirc;" . 244) ("&otilde;" . 245) ("&ouml;" . 246) ("&divide;" . 247) ("&oslash;" . 248) ("&ugrave;" . 249) ("&uacute;" . 250) ("&ucirc;" . 251) ("&uuml;" . 252) ("&yacute;" . 253) ("&thorn;" . 254) ("&yuml;" . 255) ("&reg;" . 174) ("&shy;" . 173)) (#$ . 3312))
#@49 Hook that run at end of `helm-find-many-files'.
(defvar helm-find-many-files-after-hook nil (#$ . 5209))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\311\312\313\314\315DD\316\304\317\320\321&\210\311\322\313\314\323DD\324\304\317\320\325&\207" [custom-declare-face helm-selection-line ((t (:inherit highlight :distant-foreground "black"))) "Face used in the `helm-current-buffer' when jumping to candidate." :group helm-faces helm-match-item ((t (:inherit isearch))) "Face used to highlight item matched in a selected line." custom-declare-variable helm-window-prefer-horizontal-split funcall function #[0 "\300\207" [nil] 1] "Maybe switch to other window vertically when non nil.\n\nPossible values are t, nil and `decide'.\n\nWhen t switch vertically.\nWhen nil switch horizontally.\nWhen `decide' try to guess if it is possible to switch vertically\naccording to the setting of `split-width-threshold' and the size of\nthe window from where splitting is done.\n\nNote that when using `decide' and `split-width-threshold' is nil, the\nbehavior is the same that with a nil value." helm-utils :type (choice (const :tag "Split window vertically" t) (const :tag "Split window horizontally" nil) (symbol :tag "Guess how to split window" 'decide)) helm-window-show-buffers-function #[0 "\300\207" [helm-window-default-split-fn] 1] "The default function to use when opening several buffers at once.\nIt is typically used to rearrange windows." (choice (function :tag "Split windows vertically or horizontally" helm-window-default-split-fn) (function :tag "Split in alternate windows" helm-window-alternate-split-fn) (function :tag "Split windows in mosaic" helm-window-mosaic-fn))] 8)
#@278 Show BUFFERS.
 
If more than one buffer marked switch to these buffers in separate windows.
If OTHER-WINDOW is non-nil, keep current buffer and switch to others buffers
in separate windows.
If a prefix arg is given split windows vertically.
 
(fn BUFFERS &optional OTHER-WINDOW)
(defalias 'helm-window-show-buffers #[513 "\301 A\203\n\302\202\303A\203\205\"\202*\203&\211@!\202*\304@!\207" [helm-window-show-buffers-function window-list switch-to-buffer-other-window helm-window-other-window switch-to-buffer] 6 (#$ . 6925)])
#@292 Split windows in one direction and balance them.
 
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(defalias 'helm-window-default-split-fn #[513 "\211\203\f\211@!\210\202\300@!\210\301 r\302\303\304\305\306!\307\"\310$\216\311A\311\312\311:\203]@\262\203?\313\314!\262\311\211\262\202@\312\203]\3151O\316\317\"0\202U\312\262\311\262\210A\262\202&\266\204*\207" [switch-to-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 nil t message "Too many buffers to visit simultaneously" (error) helm-window-other-window balance] 11 (#$ . 7474)])
#@307 Split windows horizontally and vertically in alternate fashion.
 
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(defalias 'helm-window-alternate-split-fn #[513 "\211\203\f\211@!\210\202\301@!\210\302\303 r\304\305\306\307\310!\311\"\312$\216\302A\302\313\302:\203h@\262\203@\314\315!\262\302\211\262\202A\313\203h\3161Z\317!\210?\211\262)0\202`\313\262\302\262\210A\262\202'\266\204*\262\207" [helm-current-prefix-arg switch-to-buffer nil internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 t message "Too many buffers to visit simultaneously" (error) helm-window-other-window] 11 (#$ . 8320)])
#@406 Make an as-square-as-possible window mosaic of the CANDIDATES buffers.
 
If rectangular, the long side is in the direction given by
`helm-window-prefer-horizontal-split': if non-nil, it is horizontal, vertical
otherwise.
If OTHER-WINDOW-FN is non-nil, current windows are included in the mosaic.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(defalias 'helm-window-mosaic-fn #[513 "\211\203\304\305\306\307 \"\"\262\310 \210\311=\203%    \247\205&\312\313 !    Y\202&\314\211\211\211\211\315\316G!!\262G\211S_X\203ES\202F\262\317 \320 \n\203`\320 \262\317 \262\262\n\262    \245]\262\245]\262\245\245_GV\203\215\321\322!\210\211S\f\233\314\241\210\266\205\344GV\203\244\323\314?#\262\324\211A\262    \242!\210SG^\325\211W\203\327\211\326\323\314#!\210\324\n\211A\262\f\242!\266\211T\262\202\265\266\211\203\217\326!\210\202\217)\207" [helm-window-prefer-horizontal-split split-width-threshold window-min-height window-min-width append mapcar window-buffer window-list delete-other-windows decide window-width selected-window nil ceiling sqrt frame-height frame-width message "Too many buffers to visit simultaneously" split-window switch-to-buffer 0 select-window] 15 (#$ . 9223)])
#@266 Switch to BUFFER-OR-NAME in other window.
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
When argument BALANCE is provided `balance-windows'.
 
(fn BUFFER-OR-NAME &optional BALANCE)
(defalias 'helm-window-other-window #[513 "\303=\203    \247\205\304\305 !    Y\202\211\203\n?\202 \n\306\307\310\211#!\210\203/\311 \210\312!)\207" [helm-window-prefer-horizontal-split split-width-threshold helm-current-prefix-arg decide window-width selected-window select-window split-window nil balance-windows switch-to-buffer] 9 (#$ . 10541)])
#@109 Check if BUFFER is narrowed.
Default is `helm-current-buffer'.
 
(fn &optional (BUFFER helm-current-buffer))
(defalias 'helm-current-buffer-narrowed-p #[128 "\211\203 \211A\262\242\202\203\301\302\303GTD\"\210r\211q\210ed\304 \305U?\206/TU?\266\203)\207" [helm-current-buffer signal wrong-number-of-arguments helm-current-buffer-narrowed-p buffer-size 1] 7 (#$ . 11173)])
#@47 Go to char, revealing if necessary.
 
(fn LOC)
(defalias 'helm-goto-char #[257 "\302\303!\210\211b\210\304=\203\305\202\306\301!\205    \205\307\3101*\211\205&\211 0\202,\210\311\207" [major-mode outline-minor-mode require org org-mode org-reveal boundp #[0 "\300\301!\207" [outline-flag-subtree nil] 2] (error) nil] 3 (#$ . 11564)])
#@129 Goto LINENO opening only outline headline if needed.
Animation is used unless NOANIM is non--nil.
 
(fn LINENO &optional NOANIM)
(defalias 'helm-goto-line #[513 "\303\304!\210\305 \210\204\"r\306    !\203    \206p\211q\210\n\204!`)eb\210\307\310!!\210\211?\2052\311 \207" [helm-alive-p helm-current-buffer helm-yank-point helm-log-run-hook helm-goto-line-before-hook helm-match-line-cleanup buffer-live-p helm-goto-char point-at-bol helm-highlight-current-line] 5 (#$ . 11913)])
#@123 Save current buffer position to `helm-save-pos-before-jump-register'.
To use this add it to `helm-goto-line-before-hook'.
(defalias 'helm-save-pos-to-register-before-jump #[0 "r\303!\203\206p\211q\210    ?\205\304\n!)\207" [helm-current-buffer helm-in-persistent-action helm-save-pos-before-jump-register buffer-live-p point-to-register] 2 (#$ . 12403)])
#@96 Save current buffer position to mark ring.
To use this add it to `helm-goto-line-before-hook'.
(defalias 'helm-save-current-pos-to-mark-ring #[0 "r\302!\203\206p\211q\210    ?\205\303 `\304\223\210\305`\306\")\207" [helm-current-buffer helm-in-persistent-action buffer-live-p mark-marker nil push-mark nomsg] 3 (#$ . 12770)])
#@148 Show only current source of this helm session with all its candidates.
With a numeric prefix arg show only the ARG number of candidates.
 
(fn ARG)
(defalias 'helm-show-all-in-this-source-only #[257 "\203;\303\304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316 \203'\317\316 !\206(    \320V\2050\321\322\323\324 \"C!,\207\325\326!\207" [helm-alive-p default-directory helm-candidate-number-limit internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-default-directory file-name-as-directory 1 helm-set-source-filter assoc-default name helm-get-current-source error "Running helm command outside of context"] 8 (#$ . 13109) "p"])
(put 'helm-show-all-in-this-source-only 'helm-only t)
#@68 Display all sources previously hidden by `helm-set-source-filter'.
(defalias 'helm-display-all-sources #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-set-source-filter nil error "Running helm command outside of context"] 2 (#$ . 13929) nil])
(put 'helm-display-all-sources 'helm-only t)
#@56 Return the list of sources name for this helm session.
(defalias 'helm-displaying-source-names #[0 "rq\210eb\210\301\211\302`\303\"\211\262\203&b\210\304\305 \306 \"B\262\307y\210\202    \211\237\266\202)\207" [helm-buffer nil next-single-property-change helm-header buffer-substring-no-properties point-at-bol point-at-eol 1] 5 (#$ . 14234)])
#@187 Add `helm-buffer' to `winner-boring-buffers' when quitting/exiting helm.
Add this function to `helm-cleanup-hook' when you don't want to see helm buffers
after running winner-undo/redo.
(defalias 'helm-handle-winner-boring-buffers #[0 "\302\303!\210    \235\203    \202    B\211\207" [helm-buffer winner-boring-buffers require winner] 2 (#$ . 14589)])
(add-hook 'helm-cleanup-hook 'helm-handle-winner-boring-buffers)
#@124 Drop into `helm-find-files' from `helm'.
If current selection is a buffer or a file, `helm-find-files'
from its directory.
(defalias 'helm-quit-and-find-file #[0 "\203B\306\307!\210\306\310!\210\311\312\313 \211:\205\314A!;\205!\315!;\2050\211?\2050\316\317\320#\211\2058\321    \"\322!\205A\323!\211\205H\324!\262\325\n!\206Q\203\206\325!\206>\326\f\"@\206>rq\210 )\327=\203{%\203{\330%!\206>rq\210\330!)\202>\203\230\325\331A!!\206>\211\202>\203\302\332!\211\203\272&\203\264\333&\"\203\264\211\202\275\330!\202\275\330!\262\202>;\203\335\334!\204\326\335!\203\335\330!\202>\203\357\335@!\203\357\330@!\202>\203r\323@!q\210\330\325 \206!)\202>;\203&\203\333&\"\203\202>'\203;\336'!\203;\337'!\210\340\341\342\"\210\330!\202>\330!\266\207\"\207\343\344!\207" [helm-alive-p bookmark-alist helm-current-buffer default-directory dired-buffers major-mode require helm-grep helm-elisp helm-run-after-exit #[257 "\303\211\304!\203!\305\306!\307\310\n\203\311!\202!P\"\202$\305!*\207" [helm-actions-inherit-frame-settings helm-execute-action-at-once-if-one helm-ff-transformer-show-only-basename nil file-exists-p helm-find-files-1 file-name-directory "^" regexp-quote helm-basename] 7 "\n\n(fn F)"] helm-get-selection markerp helm-grep-split-line replace-regexp-in-string "\\`\\*" "" assoc bufferp get-buffer buffer-name buffer-file-name rassoc org-agenda-mode expand-file-name marker-buffer bookmark-get-filename string-match file-remote-p file-exists-p overlayp delete-overlay remove-hook helm-move-selection-after-hook helm-show-completion error "Running helm command outside of context" org-directory helm--url-regexp helm-show-completion-overlay] 13 (#$ . 15011) nil])
(put 'helm-quit-and-find-file 'helm-only t)
#@176 Sort predicate function for helm candidates.
Args S1 and S2 can be single or (display . real) candidates,
that is sorting is done against real value of candidate.
 
(fn S1 S2)
(defalias 'helm-generic-sort-fn #[514 "\301!\302\303Q\302P\304!:\203A\202:\203(A\202*\305\211                &    \n\n\n\n&\306\n!\307U\204\\\307U\203b\211\307U\203b\231\202sU\203pGGW\202sV\207" [helm-pattern regexp-quote "\\_<" "\\_>" helm-mm-split-pattern #[1542 "\300\301P\"\203\302\202\303\300\"\203\304\202\253\300\305\"\203^\300\306\307@!P\"\203^A\310\311:\203P@\262\300\n\"\211\262\203PA\262\2025\211\205U\311\266\203\203^\312\202\253\300\305\"\203\222\310\311:\203\204@\262\300\n\"\211\262\203\204A\262\202i\211\205\211\311\266\203\203\222\313\202\253\300\"\203\236\314\202\253\300\"\203\252\302\202\253\303\\\207" [string-match "\\`" 1 0 5 " " "\\_<" regexp-quote nil t 4 3 2] 13 "\n\n(fn QPATTERN STR R1 R2 R3 LST)"] string-width 0] 18 (#$ . 16849)])
#@308 Return a string showing SIZE of a file in human readable form.
SIZE can be an integer or a float depending it's value.
`file-attributes' will take care of that to avoid overflow error.
KBSIZE is a floating point number, defaulting to `helm-default-kbsize'.
 
(fn SIZE &optional (KBSIZE helm-default-kbsize))
(defalias 'helm-file-human-size #[385 "\211\203 \211A\262\242\202\203\301\302\303\304G\\D\"\210\305B\306\307:\203@@\262AY\203@\211A\245B\262A\262\202!\305@\211\232\204Z\310=\204Z<\203b\211\235\203b\311\312    \"\202\204\310\211\232\204{\310=\204{<\205\202\211\235\205\202\311\313A#\266\202\266\202\266\203\207" [helm-default-kbsize signal wrong-number-of-arguments helm-file-human-size 2 "B" ("k" "M" "G" "T" "P" "E" "Z" "Y") nil t format "%s" "%.1f%s"] 14 (#$ . 17896)])
#@1502 Return `file-attributes' elements of FILE separately according to key value.
Availables keys are:
- TYPE: Same as nth 0 `files-attributes' if STRING is nil
        otherwise return either symlink, directory or file (default).
- LINKS: See nth 1 `files-attributes'.
- UID: See nth 2 `files-attributes'.
- GID: See nth 3 `files-attributes'.
- ACCESS-TIME: See nth 4 `files-attributes', however format time
               when STRING is non--nil (the default).
- MODIF-TIME: See nth 5 `files-attributes', same as above.
- STATUS: See nth 6 `files-attributes', same as above.
- SIZE: See nth 7 `files-attributes'.
- MODE: See nth 8 `files-attributes'.
- GID-CHANGE: See nth 9 `files-attributes'.
- INODE: See nth 10 `files-attributes'.
- DEVICE-NUM: See nth 11 `files-attributes'.
- DIRED: A line similar to what 'ls -l' return.
- HUMAN-SIZE: The size in human form, see `helm-file-human-size'.
- MODE-TYPE, mode-owner,mode-group, mode-other: Split what
  nth 7 `files-attributes' return in four categories.
- STRING: When non--nil (default) `helm-file-attributes' return
          more friendly values.
If you want the same behavior as `files-attributes' ,
(but with return values in proplist) use a nil value for STRING.
However when STRING is non--nil, time and type value are different from what
you have in `file-attributes'.
 
(fn FILE &key TYPE LINKS UID GID ACCESS-TIME MODIF-TIME STATUS SIZE MODE GID-CHANGE INODE DEVICE-NUM DIRED HUMAN-SIZE MODE-TYPE MODE-OWNER MODE-GROUP MODE-OTHER (STRING t))
(defalias 'helm-file-attributes #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300    \311\"A@\300\n\312\"A@\300\313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"\206\202\324A@\211\203\261\211@\325>\203\231\211AA\262\202\206\326>A@\203\250\327\262\202\206\330\331@\"\210\202\206\210\332\"\211\205\233\211\211G\333U\203\314\211A\262\242\202\323\334\335\327GD\"\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262    \242\211A\262\n\242    \211A\262\242\n\211A\262\f\242@\301\2034\f;\203'\336\2026\f\2030\337\2026\340\2026\f\302 \303\304\305\203M\341\342\"\202O\306\203]\341\342\"\202_\307\203m\341\342\"\202o\310\311\312\313\314\257\266\215\343\344\311\"!\203\224\344\301\"\202\231\203\240\344\302\"\202\231\203\254\344\303\"\202\231\203\270\344\304\"\202\231\203\304\344\305\"\202\231\203\320\344\306\"\202\231\203\334\344\307\"\202\231\203\350\344\310\"\202\231 \203\364\344\311\"\202\231\f\203\344\312\"\202\231\203\f\344\313\"\202\231\n\203\344\314\"\202\231    \203Y\343\344\311\"\345\"\346\347\344\302\"!\346\344\303\"\350\344\304\"\346\203G\351\344\310\"!\202N\352\344\310\"!\346\344\f\306\"\260\202\231\203g\351\344\310\"!\202\231\203s\344\317\"\202\231\203\344\353\"\202\231\203\212\344\354\"\202\231\203\225\344\355\"\202\231\356\"\266\202\262\207" [plist-member :type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string (nil t) (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string)" file-attributes 12 signal wrong-number-of-arguments "symlink" "directory" "file" format-time-string "%Y-%m-%d %R" helm-split-mode-file-attributes cl-getf t " " number-to-string ":" helm-file-human-size int-to-string :user :group :other append] 59 (#$ . 18727)])
#@139 Split mode file attributes STR into a proplist.
If STRING is non--nil return instead a space separated string.
 
(fn STR &optional STRING)
(defalias 'helm-split-mode-file-attributes #[513 "\300\301O\301\302O\211\303\302\301\304\211\211T\211\262GW\203_H\262\305X\2030\306!P\262\305V\203D\307X\203D\306!P\262\307V\203X\310X\203X\211\306!P\262T\262\202    \203q\311\312\nF\313#\202~\314    \315\316\317\257\207" [0 1 nil -1 "" 3 string 6 9 mapconcat identity " " :mode-type :user :group :other] 19 (#$ . 22745)])
#@86 Same as `dired-format-columns-of-files'.
Inlined here for compatibility.
 
(fn FILES)
(defalias 'helm-format-columns-of-files #[257 "`\300!\210\301`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 (#$ . 23305)])
#@45 
 
(fn BUFFER-OR-NAME CANDIDATES &rest BODY)
(defalias 'with-helm-display-marked-candidates '(macro . #[642 "\300\301!\300\302!\303\304DD\305\306\307\310\257\311\312DE\313\314\315\316    \317BBE\320    BE\321\322EEF\207" [cl-gensym "buffer" "window" let* temp-buffer-window-setup (helm-always-two-windows t) (helm-split-window-default-side (if (eq helm-split-window-default-side 'same) 'below helm-split-window-default-side)) helm-split-window-inside-p helm-reuse-last-window-split-state with-current-buffer helm-format-columns-of-files unwind-protect with-selected-window setq temp-buffer-window-show ('(display-buffer-below-selected (window-height . fit-window-to-buffer))) progn quit-window 'kill] 15 (#$ . 23554)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-display-marked-candidates lisp-indent-function 0 put edebug-form-spec t] 5)
(defvar helm-match-line-overlay nil)
(defvar helm--match-item-overlays nil)
#@77 Highlight and underline current position
 
(fn &optional START END BUF FACE)
(defalias 'helm-highlight-current-line #[1024 "\206\306 \206 \307 T\310\211E\203\311 \202    \n\204+\312\313\"\2021\312\314\n#\210\315\n\316\206:\317#\210\203\356\203J\320U\203S\262\262\202f\212[y\210\321 )\262\212y\210\321 )\262\3222\355\310\323\324\325r\326 q\210\327\330 \236)\203\201\331\f!\202\202\f!\"\310:\205\352@\262\212b\210\3321\255 \203\243\333\334#\202\251\335\334#0\202\260\310\262\203\342\320\224\320\225U\203\305\336\322\310\"\210\202\335\313\"\211\262#B#\315\316\337#\210\315\340\341#\210\266\202\222)A\262\202\205\266\2030\210\342 )\207" [helm-alive-p case-fold-search helm-match-line-overlay helm-highlight-matches-around-point-max-lines helm-input helm-migemo-mode line-beginning-position line-end-position nil helm-set-case-fold-search apply make-overlay move-overlay overlay-put face helm-selection-line 0 point-at-bol empty-line helm-remove-if-match "\\`!" helm-mm-split-pattern helm-buffer-get pcre helm-get-current-source helm--translate-pcre-to-elisp (invalid-regexp) helm-mm-migemo-forward t re-search-forward throw helm-match-item priority 1 recenter helm--match-item-overlays] 18 (#$ . 24516)])
#@98 Should translate pcre REGEXP to elisp regexp.
Assume regexp is a pcre based regexp.
 
(fn REGEXP)
(defalias 'helm--translate-pcre-to-elisp #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\311\261\210eb\210\212\312\211\203]\313\314\315\312#\205-\316\317!\211\203V\317\224\320\2069`Sf\321\"\203H\211S|\210\202R\322\323P\312\211\315\317%\210\210\202Y\315\262\210\202\210)\312\211\203\207\313\324\315\312#\205o\316\317!\211\203\200\322\325P\312\211\315\317%\210\202\203\315\262\210\202`\210eTdS{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 " " t re-search-forward "\\([(){}|]\\)" nil match-string 1 eql 92 replace-match "\\" "\\S\\?\\(\\s\\[sS]\\)[^-]" "-"] 11 (#$ . 25793)])
(defalias 'helm-match-line-cleanup #[0 "\203\n\302!\210\303    \205\304\302    \"\207" [helm-match-line-overlay helm--match-item-overlays delete-overlay nil mapc] 3])
(defalias 'helm-match-line-cleanup-maybe #[0 "\300 \205\301 \207" [helm-empty-buffer-p helm-match-line-cleanup] 1])
(defalias 'helm-match-line-update #[0 "\205\n\301!\210\302 \207" [helm-match-line-overlay delete-overlay helm-highlight-current-line] 2])
(defalias 'helm-persistent-autoresize-hook #[0 "\205    \235\205\n\304=\205\305\306 \"\207" [helm-buffers-to-resize-on-pa helm-buffer helm-split-window-state helm-resize-on-pa-text-height vertical set-window-text-height helm-window] 3])
(defalias 'helm-match-line-cleanup-pulse #[0 "\300\301\302\303#\207" [run-with-timer 0.3 nil helm-match-line-cleanup] 4])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\303\311\"\207" [add-hook helm-after-update-hook helm-match-line-cleanup-maybe helm-after-persistent-action-hook helm-persistent-autoresize-hook helm-cleanup-hook helm-match-line-cleanup helm-after-action-hook helm-match-line-cleanup-pulse helm-match-line-update] 3)
(defvar helm--show-help-echo-timer nil)
(defalias 'helm-cancel-help-echo-timer #[0 "\205\301!\210\302\211\207" [helm--show-help-echo-timer cancel-timer nil] 2])
(defalias 'helm-maybe-show-help-echo #[0 "\203\n\304!\210\305    \205#\n\205#\306\307\310 \"\235\205#\311\312\305\313#\211\207" [helm--show-help-echo-timer helm-alive-p helm-popup-tip-mode helm-sources-using-help-echo-popup cancel-timer nil assoc-default name helm-get-current-source run-with-timer 1 #[0 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311 !r\301\302\303\304\305!\312\"\307$\216\313@\314\"\210\315\316 \317\"\211\205D\320\321\322\323\324\325#!P\326\327\330\212\331 \210`)%\262*\262*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 internal--before-with-selected-window helm-window [internal--after-with-selected-window] select-window norecord get-text-property point-at-bol help-echo popup-tip " " abbreviate-file-name replace-regexp-in-string "\n.*" "" :around nil :point end-of-visual-line] 10]] 4])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable helm-popup-tip-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Popup-Tip mode is enabled.\nSee the `helm-popup-tip-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-popup-tip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group helm-popup-tip :type boolean] 12)
#@80 Show help-echo informations in a popup tip at end of line.
 
(fn &optional ARG)
(defalias 'helm-popup-tip-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\307\310!\210\203-\311\312\313\"\210\311\314\315\"\210\2027\316\312\313\"\210\316\314\315\"\210\317\320\304\300!\203C\321\202D\322\"\210\323\324!\203n\325\300!\210\301 \203\\\211\301 \232\203n\326\327\330\304\300!\203i\331\202j\332#\266\210\333 \210\304\300!\207" [helm-popup-tip-mode current-message set-default toggle default-value prefix-numeric-value 0 require popup add-hook helm-move-selection-after-hook helm-maybe-show-help-echo helm-cleanup-hook helm-cancel-help-echo-timer remove-hook run-hooks helm-popup-tip-mode-hook helm-popup-tip-mode-on-hook helm-popup-tip-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Popup-Tip mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 29379) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar helm-popup-tip-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [helm-popup-tip-mode-map helm-popup-tip-mode-hook variable-documentation put "Hook run after entering or leaving `helm-popup-tip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode helm-popup-tip-mode nil boundp] 6)
#@62 Open FILE with the default tool on this platform.
 
(fn FILE)
(defalias 'helm-open-file-with-default-tool #[257 "\302    \303=\203\304!\202*\305\306\302    \307=\203\310\202(    \311=\204'    \312=\205(\313$)\207" [process-connection-type system-type nil windows-nt helm-w32-shell-execute-open-file start-process "helm-open-file-with-default-tool" gnu/linux "xdg-open" darwin macos "open"] 6 (#$ . 30808)])
#@100 Opens a dired buffer in FILE's directory.  If FILE is a
directory, open this directory.
 
(fn FILE)
(defalias 'helm-open-dired #[257 "\300!\203\n\301!\207\301\302!!\210\303!\207" [file-directory-p dired file-name-directory dired-goto-file] 4 (#$ . 31220)])
#@25 
 
(fn FEATURE FUNCTION)
(defalias 'helm-require-or-error #[514 "\300\301\302#\206 \303\304#\207" [require nil t error "Need %s to use `%s'."] 6 (#$ . 31487)])
#@18 
 
(fn CANDIDATE)
(defalias 'helm-find-file-as-root #[257 "\302!\303\304\"\305\306\206\307\310\203\303\311\"\202!$\312\313\314!!\2033q\210\315!\2026\316!)\207" [helm-su-or-sudo non-essential helm-basename file-remote-p host format "/%s:%s:%s" "" expand-file-name localname nil buffer-live-p get-buffer find-alternate-file find-file] 11 (#$ . 31656)])
#@116 Simple action that run `find-file' on marked candidates.
Run `helm-find-many-files-after-hook' at end
 
(fn IGNORE)
(defalias 'helm-find-many-files #[257 "\301\302\303\304 \"\210\305\306!)\207" [helm--reading-passwd-or-string t mapc find-file helm-marked-candidates helm-log-run-hook helm-find-many-files-after-hook] 4 (#$ . 32035)])
#@124 Prompt as many time PROMPT is not empty.
If COUNT is non--nil add a number after each prompt.
 
(fn PROMPT &optional COUNT)
(defalias 'helm-read-repeat-string #[513 "\300\301\300\302\230\204(\203\303!\304Q\262\211\305!\211\262C\244\262T\262\202\306\302\"\207" [nil 1 "" int-to-string ": " helm-read-string remove] 8 (#$ . 32376)])
#@111 Parse html bookmark FILE and return an alist with (title . url) as elements.
 
(fn FILE URL-REGEXP BMK-REGEXP)
(defalias 'helm-html-bookmarks-to-alist #[771 "\301\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210eb\210\314\315\301\316#\203U\305y\210\314\301\316#\2037\317\305!\262\314\301\316#\203H\320\317\321!!!\262BB\262\301y\210\202*\210\237\207" [helm-html-decode-entities-function nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "href=\\|^ *<DT><A HREF=" t match-string url-unhex-string 1] 13 (#$ . 32730)])
#@100 Replace an html ENTITY by its string value.
When unable to decode ENTITY returns nil.
 
(fn ENTITY)
(defalias 'helm-html-entity-to-string #[257 "\301\"\211\203\302A!\2020\303 \304\305\306\307\310!\311\"\312$\216\313\314\"\205-\302\315\316\305\"!!)\262\207" [helm-html-entities-alist assoc string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[0-9]+" string-to-number match-string] 9 (#$ . 33407)])
#@46 Decode entities in the string STR.
 
(fn STR)
(defalias 'helm-html-decode-entities-string #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311!r\211q\210\301\302\312\304\305!\313\"\314$\216c\210eb\210\315\316\317\320#\203@\321\322\302!!\211\203<\323!\210\210\202'\324 *\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 generate-new-buffer " *temp*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 re-search-forward "&#?\\([^;]*\\);" nil t helm-html-entity-to-string match-string replace-match buffer-string] 9 (#$ . 33883)])
(provide 'helm-utils)