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

Chizi123
2018-11-19 a4b9172aefa91861b587831e06f55b1e19f3f3be
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\302%\210\317\320\321\322\323DD\324\325\326\316\313&\210\317\327\321\322\330DD\331\316\313\325\332&\210\317\333\321\322\334DD\335\316\313\325\332&\210\317\336\321\322\337DD\340\316\313\325\326&\210\317\341\321\322\342DD\343\316\313\325\332&\210\317\344\321\322\345DD\346\316\313\325\347&\210\317\350\321\322\351DD\352\316\313\325\347&\210\317\353\321\322\354DD\355\325\332\316\313&\210\317\356\321\322\357DD\360\325\347\316\313&\210\317\361\321\322\362DD\363\325\364\316\313&\210\317\365\321\322\366DD\367\325\370\316\313&\210\317\371\321\322\372DD\373\325\332\316\313&\210\317\374\321\322\375DD\376\316\313\325\332&\210\317\377\321\322\201@DD\201A\316\313\325\332&\210\317\201B\321\322\201CDD\201D\316\313\325\326&\210\317\201E\321\322\201FDD\201G\316\313\325\332&\210\317\201H\321\322\201IDD\201J\316\313\325\332&\210\317\201K\321\322\201LDD\201M\316\313\325\326&\210\317\201N\321\322\201ODD\201P\316\313\325\332&\210\317\201Q\321\322\201RDD\201S\316\313\325\201T&\210\317\201U\321\322\201VDD\201W\316\313\325\201X&\210\317\201Y\321\322\201ZDD\201[\316\313\325\201X&\210\317\201\\\321\322\201]DD\201^\316\313\325\347&\210\317\201_\321\322\201`DD\201a\316\313\325\332&\210\317\201b\321\322\201cDD\201d\316\313\325\332&\210\317\201e\321\322\201fDD\201g\316\313\325\332&\210\317\201h\321\322\201iDD\201j\316\313\325\332&\210\317\201k\321\322\201lDD\201m\316\313\325\332&\210\317\201n\321\322\201oDD\201p\316\313\325\201q&\210\317\201r\321\322\201sDD\201t\316\313\325\201u&\210\317\201v\321\322\201wDD\201x\316\313\325\322&\210\317\201y\321\322\201zDD\201{\316\313\325\322&\210\317\201|\321\322\201}DD\201~\316\313\325\201&\210\317\201\200\321\322\201\201DD\201\202\316\313\325\201\203&\210\317\201\204\321\322\201\205DD\201\206\316\313\325\201\207&\210\317\201\210\321\322\201\211DD\201\212\316\313\325\332&\210\317\201\213\321\322\201\214DD\201\215\325\322\316\313&\210\312\201\216\314\201\217\201\220\201\221\316\313\316\201\222&    \210\201\223\201\224\201\225\201\226\316\201\216%\210\201\223\201\227\201\230\201\231\316\201\216%\210\201\223\201\232\201\233\201\234\316\201\216%\210\201\223\201\235\201\236\201\237\316\201\216%\210\201\223\201\240\201\241\201\242\316\201\216%\210\201\223\201\243\201\244\201\245\316\201\216%\210\201\223\201\246\201\247\201\250\316\201\216%\210\201\223\201\251\201\252\201\253\316\201\216%\210\201\223\201\254\201\255\201\256\316\201\216%\210\201\223\201\257\201\260\201\261\316\201\216%\210\201\223\201\262\201\263\201\264\316\201\216%\210\201\223\201\265\201\266\201\267\316\201\216%\210\201\223\201\270\201\271\201\272\316\201\216%\210\201\223\201\273\201\274\201\275\316\201\216%\210\201\223\201\276\201\277\201\300\316\201\216%\210\201\223\201\301\201\302\201\303\316\201\216%\210\201\223\201\304\201\305\201\306\316\201\216%\207" [require cl-lib helm helm-types helm-utils helm-grep helm-help helm-locate helm-tags helm-buffers custom-declare-group helm-files nil "Files applications and libraries for Helm." :group custom-declare-variable helm-tramp-verbose funcall function #[0 "\300\207" [0] 1] "Just like `tramp-verbose' but specific to helm.\nWhen set to 0 don't show tramp messages in helm.\nIf you want to have the default tramp messages set it to 3." :type integer helm-ff-auto-update-initial-value #[0 "\300\207" [nil] 1] "Auto update when only one candidate directory is matched.\nDefault value when starting `helm-find-files' is nil because\nit prevent using <backspace> to delete char backward and by the way\nconfuse beginners.\nFor a better experience with `helm-find-files' set this to non--nil\nand use C-<backspace> to toggle it." boolean helm-ff-lynx-style-map #[0 "\300\207" [t] 1] "Use arrow keys to navigate with `helm-find-files'.\nYou will have to restart Emacs or reeval `helm-find-files-map'\nand `helm-read-file-map' for this take effect." helm-ff-history-max-length #[0 "\300\207" [100] 1] "Number of elements shown in `helm-find-files' history." helm-ff-fuzzy-matching #[0 "\300\207" [t] 1] "Enable fuzzy matching for `helm-find-files' when non--nil.\nSee `helm-ff--transform-pattern-for-completion' for more info." helm-ff-exif-data-program #[0 "\300\207" [#1="exiftran"] 1 #1#] "Program used to extract exif data of an image file." string helm-ff-exif-data-program-args #[0 "\300\207" [#2="-d"] 1 #2#] "Arguments used for `helm-ff-exif-data-program'." helm-ff-newfile-prompt-p #[0 "\300\207" [t] 1] "Whether Prompt or not when creating new file.\nThis set `ffap-newfile-prompt'." helm-ff-avfs-directory #[0 "\300\207" [#3="~/.avfs"] 1 #3#] "The default avfs directory, usually '~/.avfs'.\nWhen this is set you will be able to expand archive filenames with `C-j'\ninside an avfs directory mounted with mountavfs.\nSee <http://sourceforge.net/projects/avf/>." helm-ff-file-compressed-list #[0 "\300\207" [("gz" "bz2" "zip" "7z")] 1] "Minimal list of compressed files extension." (repeat (choice string)) helm-ff-printer-list #[0 "\300\207" [nil] 1] "A list of available printers on your system.\nWhen non--nil let you choose a printer to print file.\nOtherwise when nil the variable `printer-name' will be used.\nOn Unix based systems (lpstat command needed) you don't need to set this,\n`helm-ff-find-printers' will find a list of available printers for you." (repeat (choice string)) helm-ff-transformer-show-only-basename #[0 "\300\207" [t] 1] "Show only basename of candidates in `helm-find-files'.\nThis can be toggled at anytime from `helm-find-files' with \\<helm-find-files-map>\\[helm-ff-run-toggle-basename]." helm-ff-signal-error-on-dot-files #[0 "\300\207" [t] 1] "Signal error when file is `.' or `..' on file deletion when non--nil.\nDefault is non--nil.\nWARNING: Setting this to nil is unsafe and can cause deletion of a whole tree." helm-ff-search-library-in-sexp #[0 "\300\207" [nil] 1] "Search for library in `require' and `declare-function' sexp." helm-tooltip-hide-delay #[0 "\300\207" [25] 1] "Hide tooltips automatically after this many seconds." helm-ff-file-name-history-use-recentf #[0 "\300\207" [nil] 1] "Use `recentf-list' instead of `file-name-history' in `helm-find-files'." helm-ff-skip-boring-files #[0 "\300\207" [nil] 1] "Non--nil to skip files matching regexps in\n`helm-boring-file-regexp-list'.\n\nThis take effect in `helm-find-files' and file completion used by `helm-mode'\ni.e `helm-read-file-name'.\nNote that when non-nil this will slow down slightly `helm-find-files'." helm-ff-candidate-number-limit #[0 "\300\207" [5000] 1] "The `helm-candidate-number-limit' for `helm-find-files' and friends.\nNote that when going one level up with `\\<helm-find-files-map>\\[helm-find-files-up-one-level]'\nThe length of directory will be used instead if it is higher than this\nvalue, this to avoid failing to preselect the previous directory/file if\nthis one is situated lower than `helm-ff-candidate-number-limit' num\ncandidate." helm-ff-up-one-level-preselect #[0 "\300\207" [t] 1] "Always preselect previous directory when going one level up.\n\nWhen non nil `candidate-number-limit' source value is modified\ndynamically when going one level up if the position of previous\ncandidate in its directory is > to `helm-ff-candidate-number-limit'.\n\nThis can be helpful to disable this and reduce\n`helm-ff-candidate-number-limit' if you often navigate across very\nlarge directories." helm-files-save-history-extra-sources #[0 "\300\207" [("Find" "Locate" "Recentf" "Files from Current Directory" "File Cache")] 1] "Extras source that save candidate to `file-name-history'." (repeat (choice string)) helm-find-files-before-init-hook #[0 "\300\207" [nil] 1] "Hook that run before initialization of `helm-find-files'." hook helm-find-files-after-init-hook #[0 "\300\207" [nil] 1] "Hook that run after initialization of `helm-find-files'." helm-find-files-bookmark-prefix #[0 "\300\207" [#4="Helm-find-files: "] 1 #4#] "bookmark name prefix of `helm-find-files' sessions." helm-ff-guess-ffap-filenames #[0 "\300\207" [nil] 1] "Use ffap to guess local filenames at point in `helm-find-files'.\nThis doesn't disable url or mail at point, see\n`helm-ff-guess-ffap-urls' for this." helm-ff-guess-ffap-urls #[0 "\300\207" [t] 1] "Use ffap to guess local urls at point in `helm-find-files'.\nThis doesn't disable guessing filenames at point,\nsee `helm-ff-guess-ffap-filenames' for this.\nSee also `ffap-url-unwrap-remote' that may override this variable." helm-ff-no-preselect #[0 "\300\207" [nil] 1] "When non--nil `helm-find-files' starts at root of current directory." helm-find-files-ignore-thing-at-point #[0 "\300\207" [nil] 1] "Use only `default-directory' as default input in `helm-find-files'.\nI.e text under cursor in `current-buffer' is ignored.\nNote that when non-nil you will be unable to complete filename at point\nin `current-buffer'." helm-substitute-in-filename-stay-on-remote #[0 "\300\207" [nil] 1] "Don't switch back to local filesystem when expanding pattern with / or ~/." helm-ff-goto-first-real-dired-exceptions #[0 "\300\207" [(dired-goto-file)] 1] "Dired commands that are allowed moving to first real candidate." (repeat (choice symbol)) helm-mounted-network-directories #[0 "\300\207" [nil] 1] "A list of directories used for mounting remotes filesystem.\n\nWhen nil `helm-file-on-mounted-network-p' always return nil otherwise\nit checks if a file is in one of these directories.\n\nRemote filesystem are generally mounted with sshfs." (repeat string) helm-browse-project-default-find-files-fn #[0 "\300\207" [helm-browse-project-walk-directory] 1] "The default function to retrieve files in a non-vc directory.\n\nA function that takes a directory name as only arg." helm-ff-kill-or-find-buffer-fname-fn #[0 "\300\207" [helm-ff-kill-or-find-buffer-fname] 1] "Default function used to expand non-directory filenames in `helm-find-files'.\n\nThis variable will take effect only in `helm-find-files', it affects\nthe behavior of persistent-action on filenames and non-existing\nfilenames.\n\nThe default is to expand filename on first hit on\n\\<helm-map>\\[helm-execute-persistent-action], pop buffer in other\nwindow on second hit and finally kill this buffer on third hit, this\nis very handy to create several new buffers, or when navigating, show\nquickly the buffer of file to see its contents briefly before killing\nit and continue navigating.\n\nHowever some users may not want this, so to disable this behavior just\nset this to `ignore' function.\n\nOf course you can also write your own function to do something else." helm-modes-using-escaped-strings #[0 "\300\207" [(eshell-mode shell-mode term-mode)] 1] "Modes that requires string's insertion to be escaped." (repeat symbol) helm-ff-allow-recursive-deletes #[0 "\300\207" [nil] 1] "when 'always don't prompt for recursive deletion of directories.\nWhen nil, will ask for recursive deletion.\nNote that when deleting multiple directories you can answer ! when\nprompted to avoid beeing asked for next directories, so it is probably\nbetter to not modify this variable." (choice (const :tag "Delete non-empty directories" t) (const :tag "Confirm for each directory" nil)) helm-ff-delete-files-function #[0 "\300\207" [helm-delete-marked-files] 1] "The function to use by default to delete files.\n\nDefault is to delete files synchronously, other choice is to delete\nfiles asynchronously.\n\nBE AWARE that when deleting async you will not be warned about\nrecursive deletion of directories, IOW non empty directories will be\ndeleted with no warnings in background!!!\n\nIt is the function that will be used when using `\\<helm-find-files-map>\\[helm-ff-run-delete-file]'\nfrom `helm-find-files'." (choice (function :tag "Delete files synchronously." helm-delete-marked-files) (function :tag "Delete files asynchronously." helm-delete-marked-files-async)) helm-trash-remote-files #[0 "\300\207" [nil] 1] "Allow trashing remote files when non-nil.\n\nDeleting remote files with tramp doesn't work out of the box, it is\nwhy it is disabled by default.\n\nFollowing is NOT documented in tramp AFAIK but tramp is using\nexternal trash command in its `delete-file' and `delete-directory'\nhandlers.\n\nIf you want to enable this you will have to install the 'trash' command\non remote (or locally if you want to trash as root), the package on\nUbuntu based distribution is 'trash-cli'." helm-list-directory-function #[0 "\301\267\202\f\302\207\302\207\303\207\303\207" [system-type #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnu/linux 6 berkeley-unix 8 windows-nt 10)) helm-list-dir-external helm-list-dir-lisp] 2] "The function used in `helm-find-files' to list remote directories.\n\nActually helm provides two functions to do this: `helm-list-dir-lisp'\nand `helm-list-dir-external'.\n\nUsing `helm-list-dir-external' will provides a similar display to what\nprovided with local files i.e. colorized symlinks, executables files\netc... whereas using `helm-list-dir-lisp' will allow colorizing only\ndirectories but is more portable.\n\nNOTE that `helm-list-dir-external' needs ls and awk as dependencies." helm-files-faces "Customize the appearance of helm-files." :prefix "helm-" helm-faces custom-declare-face helm-ff-prefix ((t (:background "yellow" :foreground "black"))) "Face used to prefix new file or url paths in `helm-find-files'." helm-ff-executable ((t (:foreground "green"))) "Face used for executable files in `helm-find-files'." helm-ff-suid ((t (:background "red" :foreground "white"))) "Face used for suid files in `helm-find-files'." helm-ff-directory ((t (:foreground "DarkRed" :background "LightGray"))) "Face used for directories in `helm-find-files'." helm-ff-dotted-directory ((t (:foreground "black" :background "DimGray"))) "Face used for dotted directories in `helm-find-files'." helm-ff-dotted-symlink-directory ((t (:foreground "DarkOrange" :background "DimGray"))) "Face used for dotted symlinked directories in `helm-find-files'." helm-ff-symlink ((t :inherit font-lock-comment-face)) "Face used for symlinks in `helm-find-files'." helm-ff-invalid-symlink ((t (:foreground "black" :background "red"))) "Face used for invalid symlinks in `helm-find-files'." helm-ff-denied ((t (:foreground "red" :background "black"))) "Face used for non accessible files in `helm-find-files'." helm-ff-file ((t (:inherit font-lock-builtin-face))) "Face used for file names in `helm-find-files'." helm-ff-truename ((t (:inherit font-lock-string-face))) "Face used for symlink truenames in `helm-find-files'." helm-ff-dirs ((t (:inherit font-lock-function-name-face))) "Face used for file names in recursive dirs completion in `helm-find-files'." helm-ff-socket ((t (:foreground "DeepPink"))) "Face used for socket files in `helm-find-files'." helm-ff-pipe ((t (:foreground "yellow" :background "black"))) "Face used for named pipes and character device files in `helm-find-files'." helm-history-deleted ((t (:inherit helm-ff-invalid-symlink))) "Face used for deleted files in `file-name-history'." helm-history-remote ((t (:foreground "Indianred1"))) "Face used for remote files in `file-name-history'." helm-delete-async-message ((t (:foreground "yellow"))) "Face used for mode-line message."] 10)
16 #@31 Keymap for `helm-find-files'.
17 (defvar helm-find-files-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\324#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\304\342\343#\210\304\344\345#\210\304\346\347#\210\304\350\351#\210\304\352\353#\210\304\354\355#\210\304\356\357#\210\304\360\361#\210\304\362\363#\210\304\364\365#\210\304\366\367#\210\304\370\371#\210\304\372\373#\210\304\374\375#\210\304\376\377#\210\304\201@\201A#\210\304\201B\201C#\210\304\201D\201E#\210\304\201F\201G#\210\304\201H\201I#\210\304\201J\201K#\210\304\201L\201M#\210\304\201N\201O#\210\304\201P\201Q#\210\304\201R\201S#\210\304\201T\201U#\210\304\201V\201W#\210\304\201X\201Y#\210\304\201Z\201[#\210\304\201\\\201]#\210\304\201^\201]#\210\304\201_\201`#\210\304\201a\201b#\210\304\201c\201d#\210\304\201e\201f#\210\304\201g\201h#\210\304\201i\201j#\210\304\201k\201l#\210\304\201m\201n#\210\304\201o\201p#\210\304\201q\201r#\210\201s\201t\201u\201v\201w\201x\201y&\210    \203\360\304\201z\201j#\210\304\201{\201|#\210\201}\201x\"\207" [helm-map helm-ff-lynx-style-map make-sparse-keymap set-keymap-parent define-key " " helm-ff-RET "" helm-ff-run-toggle-basename "" helm-ff-run-locate "" helm-ff-run-browse-project "rm" helm-ff-bookmark-set "rb" helm-find-files-toggle-to-bookmark "" helm-ff-run-marked-files-in-dired "" helm-ff-run-grep [134217831 115] [134217831 112] helm-ff-run-pdfgrep [134217831 122] helm-ff-run-zgrep [134217831 97] helm-ff-run-grep-ag [134217831 103] helm-ff-run-git-grep [134217831 105] helm-ff-run-gid [134217774] helm-ff-run-etags [134217810] helm-ff-run-rename-file [134217795] helm-ff-run-copy-file [134217794] helm-ff-run-byte-compile-file [134217804] helm-ff-run-load-file [134217811] helm-ff-run-symlink-file [134217817] helm-ff-run-relsymlink-file [134217800] helm-ff-run-hardlink-file [134217796] helm-ff-run-delete-file [134217803] helm-ff-run-kill-buffer-persistent [134217812] helm-ff-run-touch-files "d" helm-ff-persistent-delete [134217829] helm-ff-run-switch-to-eshell "i" helm-ff-run-complete-fn-at-point "o" helm-ff-run-switch-other-window "" helm-ff-run-switch-other-frame "" helm-ff-run-open-file-externally "" helm-ff-run-preview-file-externally "X" helm-ff-run-open-file-with-default-tool [134217761] helm-ff-run-eshell-command-on-file [134217792] helm-ff-run-query-replace-fnames-on-marked [134217765] helm-ff-run-query-replace [201326629] helm-ff-run-query-replace-regexp "=" helm-ff-run-ediff-file [134217789] helm-ff-run-ediff-merge-file [134217840] helm-find-files-history "h" helm-ff-file-name-history [134217833] helm-ff-properties-persistent [67108989] helm-narrow-window [67108987] helm-enlarge-window [C-backspace] helm-ff-run-toggle-auto-update "" "" helm-ff-run-mail-attach-files "p" helm-ff-run-print-file "/" helm-ff-run-find-sh-command [134217836] helm-ff-rotate-left-persistent [134217842] helm-ff-rotate-right-persistent "\f" helm-find-files-up-one-level "" helm-find-files-down-last-level "r" helm-ff-run-find-file-as-root "" helm-ff-run-find-alternate-file "@" helm-ff-run-insert-org-link helm-define-key-with-subkeys "" 127 helm-ff-delete-char-backward ((C-backspace . helm-ff-run-toggle-auto-update) ([C-c DEL] . helm-ff-run-toggle-auto-update)) nil helm-ff-delete-char-backward--exit-fn [left] [right] helm-execute-persistent-action delq] 9) (#$ . 15912))
18 #@35 Keymap for `helm-read-file-name'.
19 (defvar helm-read-file-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\313#\210\304\314\313#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\322#\210\324\325\326\327\330\331\332&\210    \203d\304\333\313#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\342\331\"\207" [helm-map helm-ff-lynx-style-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-cr-empty-string [134217741] "" helm-ff-run-toggle-basename [67108910] helm-find-files-up-one-level "\f" "" helm-find-files-down-last-level "h" helm-ff-file-name-history [C-backspace] helm-ff-run-toggle-auto-update "" helm-define-key-with-subkeys "" 127 helm-ff-delete-char-backward ((C-backspace . helm-ff-run-toggle-auto-update) ([C-c DEL] . helm-ff-run-toggle-auto-update)) nil helm-ff-delete-char-backward--exit-fn [left] [right] helm-execute-persistent-action [M-left] helm-previous-source [M-right] helm-next-source delq] 9) (#$ . 19565))
20 #@79 *The doc that is inserted in the Name header of a find-files or dired source.
21 (defvar helm-find-files-doc-header " (\\<helm-find-files-map>\\[helm-find-files-up-one-level]: Go up one level)" (#$ . -20601))
22 #@137 Internal, flag to turn on/off auto-update in `helm-find-files'.
23 Don't set it directly, use instead `helm-ff-auto-update-initial-value'.
24 (defvar helm-ff-auto-update-flag nil (#$ . 20814))
25 #@40 Store last expanded directory or file.
26 (defvar helm-ff-last-expanded nil (#$ . 21007))
27 (defvar helm-ff-default-directory nil)
28 (defvar helm-ff-history nil)
29 (defvar helm-ff-cand-to-mark nil)
30 #@59 Same as `ffap-url-regexp' but match earlier possible url.
31 (defvar helm-ff-url-regexp "\\`\\(news\\(post\\)?:\\|nntp:\\|mailto:\\|file:\\|\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\):/?/?\\).*" (#$ . 21202))
32 (defvar helm-tramp-file-name-regexp "\\`/\\([^/:|]+\\):")
33 (defvar helm-marked-buffer-name "*helm marked*")
34 (defvar helm-ff--auto-update-state nil)
35 (defvar helm-ff--deleting-char-backward nil)
36 (defvar helm-multi-files--toggle-locate nil)
37 (defvar helm-ff--move-to-first-real-candidate t)
38 (defvar helm-find-files--toggle-bookmark nil)
39 (defvar helm-ff--tramp-methods nil)
40 (defvar helm-ff--directory-files-hash (make-hash-table :test 'equal))
41 (defvar helm-ff-history-buffer-name "*helm-find-files history*")
42 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-find-files-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@\201A\201B\201C\201D\201E\201F\201G\201H\201I\201J\201K\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V&V\207" [helm-make-actions "Find File" helm-find-file-or-marked "Find file in Dired" helm-point-file-in-dired "View file" view-file "Query replace fnames on marked `M-@'" helm-ff-query-replace-fnames-on-marked "Marked files in dired `C-x C-q, C-u wdired'" helm-marked-files-in-dired "Query replace contents on marked `M-%'" helm-ff-query-replace "Query replace regexp contents on marked `C-M-%'" helm-ff-query-replace-regexp "Attach file(s) to mail buffer `C-c C-a'" helm-ff-mail-attach-files "Serial rename files" helm-ff-serial-rename "Serial rename by symlinking files" helm-ff-serial-rename-by-symlink "Serial rename by copying files" helm-ff-serial-rename-by-copying "Open file with default tool" helm-open-file-with-default-tool "Find file in hex dump" hexl-find-file "Browse project `C-x C-d'" helm-ff-browse-project "Complete at point `C-c i'" helm-insert-file-name-completion-at-point "Insert as org link `C-c @'" helm-files-insert-as-org-link "Find shell command `C-c /'" helm-ff-find-sh-command "Add marked files to file-cache" helm-ff-cache-add-file "Open file externally `C-c C-x, C-u to choose'" helm-open-file-externally "Grep File(s) `C-s, C-u Recurse'" helm-find-files-grep "Grep current directory with AG `M-g a, C-u select type'" helm-find-files-ag "Git grep `M-g g, C-u from root'" helm-ff-git-grep "Zgrep File(s) `M-g z, C-u Recurse'" helm-ff-zgrep "Gid `M-g i'" helm-ff-gid "Switch to Eshell `M-e'" helm-ff-switch-to-eshell "Etags `M-., C-u reload tag file'" helm-ff-etags-select "Eshell command on file(s) `M-!, C-u take all marked as arguments.'" helm-find-files-eshell-command-on-file "Find file as root `C-c r'" helm-find-file-as-root "Find alternate file `C-x C-v'" find-alternate-file "Ediff File `C-c ='" helm-find-files-ediff-files "Ediff Merge File `M-='" helm-find-files-ediff-merge-files #[0 "\301\302\303=\203\f\304\202 \305\"\207" [helm-ff-delete-files-function format "Delete File(s)%s `M-D' (C-u reverse trash)" helm-delete-marked-files-async " async" ""] 4] helm-ff-delete-files "Touch File(s) `M-T'" helm-ff-touch-files "Copy file(s) `M-C, C-u to follow'" helm-find-files-copy "Rename file(s) `M-R, C-u to follow'" helm-find-files-rename "Backup files" helm-find-files-backup "Symlink files(s) `M-S, C-u to follow'" helm-find-files-symlink "Relsymlink file(s) `M-Y, C-u to follow'" helm-find-files-relsymlink "Hardlink file(s) `M-H, C-u to follow'" helm-find-files-hardlink "Find file other window `C-c o'" helm-find-files-other-window "Find file other frame `C-c C-o'" find-file-other-frame "Print File `C-c p, C-u to refresh'" helm-ff-print "Locate `C-x C-f, C-u to specify locate db'" helm-ff-locate] 87] "Actions for `helm-find-files'." :group helm-files :type (alist :key-type string :value-type function)] 8)
43 #@74 The main source to browse files.
44 Should not be used among other sources.
45 (defvar helm-source-find-files nil (#$ . 25207))
46 (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-source-ffiles-p eieio-make-class-predicate helm-source-ffiles helm-source-ffiles--eieio-childp eieio-make-child-predicate helm-source-ffiles-child-p make-obsolete "use (cl-typep ... \\='helm-source-ffiles) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((header-name :initform (lambda (name) (concat name (substitute-command-keys helm-find-files-doc-header)))) (init :initform (lambda nil (setq helm-ff-auto-update-flag helm-ff-auto-update-initial-value) (setq helm-ff--auto-update-state helm-ff-auto-update-flag) (helm-set-local-variable 'bookmark-make-record-function #'helm-ff-make-bookmark-record) (require 'helm-external))) (candidates :initform 'helm-find-files-get-candidates) (filtered-candidate-transformer :initform '(helm-ff-sort-candidates (lambda (candidates _source) (cl-loop for f in candidates for ff = (helm-ff-filter-candidate-one-by-one f) when ff collect ff)))) (persistent-action-if :initform 'helm-find-files-persistent-action-if) (persistent-help :initform "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (help-message :initform 'helm-ff-help-message) (mode-line :initform (list "File(s)" helm-mode-line-string)) (volatile :initform t) (cleanup :initform 'helm-find-files-cleanup) (migemo :initform t) (nohighlight :initform t) (keymap :initform helm-find-files-map) (candidate-number-limit :initform 'helm-ff-candidate-number-limit) (action-transformer :initform 'helm-find-files-action-transformer) (action :initform 'helm-find-files-actions) (before-init-hook :initform 'helm-find-files-before-init-hook) (after-init-hook :initform 'helm-find-files-after-init-hook) (group :initform 'helm-files)) nil] 6)
47 #@75 Create a new object of class type `helm-source-ffiles'.
48
49 (fn &rest SLOTS)
50 (defalias 'helm-source-ffiles #[128 "\300\301\302#\207" [apply make-instance helm-source-ffiles] 5 (#$ . 27176)])
51 (byte-code "\300\301\302\303#\300\207" [function-put helm-source-ffiles compiler-macro helm-source-ffiles--anon-cmacro] 4)
52 #@26 
53
54 (fn WHOLE &rest SLOTS)
55 (defalias 'helm-source-ffiles--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 27494)])
56 #@60 The `bookmark-make-record-function' for `helm-find-files'.
57 (defalias 'helm-ff-make-bookmark-record #[0 "r\301 q\210\302B\303\304 )B\305BB\207" [helm-ff-default-directory helm-buffer-get filename presel helm-get-selection ((handler . helm-ff-bookmark-jump))] 3 (#$ . 27732)])
58 #@56 bookmark handler for `helm-find-files'.
59
60 (fn BOOKMARK)
61 (defalias 'helm-ff-bookmark-jump #[257 "\301\302\"\301\303\"\304!\205\305\203\306!\202\"\207" [helm-ff-transformer-show-only-basename bookmark-prop-get filename presel file-directory-p helm-find-files-1 helm-basename] 7 (#$ . 28014)])
62 #@48 Record `helm-find-files' session in bookmarks.
63 (defalias 'helm-ff-bookmark-set #[0 "\203r\303 q\210\304    \305\n!P!\210)\306\307!\207\310\311!\207" [helm-alive-p helm-find-files-bookmark-prefix helm-ff-default-directory helm-buffer-get bookmark-set abbreviate-file-name message "Helm find files session bookmarked! " error "Running helm command outside of context"] 4 (#$ . 28323) nil])
64 (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put helm-ff-bookmark-set helm-only t custom-declare-variable helm-dwim-target funcall function #[0 "\300\207" [nil] 1] "Default target directory for file actions.\n\nDefine the directory where you want to start navigating for the target\ndirectory when copying, renaming etc... You can use the\n`default-directory' of `next-window', the current\n`default-directory' or have completion on all the directories\nbelonging to each window." :group helm-files :type (radio :tag "Define default target directory for file actions." (const :tag "Directory belonging to next window" next-window) (const :tag "Completion on directories belonging to each window" completion) (const :tag "Use initial directory or `default-directory'" nil))] 8)
65 #@69 Try to return a suitable directory according to `helm-dwim-target'.
66 (defalias 'helm-dwim-target-directory #[0 "r\305!\203 \206p\211q\210\306\307    !\310 \"\211G\311\312V\203l\n\313=\203l\314\315\316 \242\206/\f\fD\317\211:\203c@\262\320!r\321\322\323\324\325!\326\"\327$\216\330@\331\"\210\f*\262B\262A\262\2025\211\237\266\203\"\"\202\247\312V\203\226\n\332=\203\226\320\332 !r\321\322\323\324\325!\333\"\327$\216\330@\331\"\210\f*\262\202\247\312U\204\241\n?\205\247 \242\206\247\f!\266\202)\207" [helm-current-buffer helm-marked-buffer-name helm-dwim-target helm-ff-history default-directory buffer-live-p remove get-buffer-window window-list expand-file-name 1 completion helm-comp-read "Browse target starting from: " append nil internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord next-window [internal--after-with-selected-window]] 17 (#$ . 29533)])
67 #@14 
68
69 (fn FILES)
70 (defalias 'helm-ff--count-and-collect-dups #[257 "\300\301\302\"\303\211\211:\203H@\262\304!\203\305!\306P\202\"\305!\262\307\"\262\211\203:\310T#\210\202A\310\311#\210A\262\202\303C\312\313\314\315\316\317!\320\"\321\322%\"\210\211\242\237\262\207" [make-hash-table :test equal nil file-directory-p helm-basename "/" gethash puthash 1 maphash make-byte-code 514 "\211\301V\203\300\302\303#\300\242B\240\207\300\300\242B\240\207" vconcat vector [1 format "%s(%s)"] 7 "\n\n(fn K V)"] 14 (#$ . 30528)])
71 #@142 Generic function for creating actions from `helm-source-find-files'.
72 ACTION must be an action supported by `helm-dired-action'.
73
74 (fn ACTION)
75 (defalias 'helm-find-files-do-action #[257 "\306\307!\210\310\311\312\313\314\"\"\315 \316\317\320\301!\203'    \203'\204'\321\322!P\202-\323\322!!G#\324\211\324\211\314=\324>\325?!\314@A\326=\203P\327\202RAA\324\211BC\324Crq\210\330\331!!\210)\332\333\334\335\336!\337\"\340$\216\341\342\343\"\240!r\332\333\344\335\336!\345\"\346$\216\347@\350\"\210r\351D!\203\234D\206\240p\211Dq\210\352\353    A?\205\276\354\355E\203\272\356 !\202\274\n!P\357\360 \361\362\324\363\324#&+\262-\266\202\364!\365!\204\355\364!\204\355\366\316\367\"!\203\355\370\314\"\210\371\372    \373\f\374 &.\207" [helm-current-prefix-arg dired-async-mode helm-ff--move-to-first-real-candidate helm-display-source-at-screen-top helm-ff-auto-update-initial-value helm-ff-skip-boring-files require dired-async mapcar expand-file-name helm-marked-candidates :with-wildcard t helm-get-selection format "%s %s file(s) to: " fboundp "Async " symbol-name capitalize nil temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord buffer-live-p helm-read-file-name :preselect "^" regexp-quote helm-basename :initial-input helm-dwim-target-directory :history helm-find-files-history :comp-read file-directory-p helm-basedir y-or-n-p "Create directory `%s'? " make-directory helm-dired-action :files :action :follow helm-actions-inherit-frame-settings helm-use-frame-when-more-than-two-windows helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-current-buffer helm-ff-transformer-show-only-basename] 20 (#$ . 31088)])
76 #@52 Copy files from `helm-find-files'.
77
78 (fn CANDIDATE)
79 (defalias 'helm-find-files-copy #[257 "\300\301!\207" [helm-find-files-do-action copy] 3 (#$ . 33194)])
80 #@117 Backup files from `helm-find-files'.
81 This reproduce the behavior of "cp --backup=numbered from to".
82
83 (fn CANDIDATE)
84 (defalias 'helm-find-files-backup #[257 "\301\300!\203\n\204\302\303\304\305\211$\210\306\307!\207" [dired-async-mode fboundp cl--assertion-failed (and (fboundp 'dired-async-mode) dired-async-mode) "Backup only available when `dired-async-mode' is enabled" nil helm-find-files-do-action backup] 6 (#$ . 33356)])
85 #@54 Rename files from `helm-find-files'.
86
87 (fn CANDIDATE)
88 (defalias 'helm-find-files-rename #[257 "\300\301!\207" [helm-find-files-do-action rename] 3 (#$ . 33794)])
89 #@55 Symlink files from `helm-find-files'.
90
91 (fn CANDIDATE)
92 (defalias 'helm-find-files-symlink #[257 "\300\301!\207" [helm-find-files-do-action symlink] 3 (#$ . 33961)])
93 #@58 Relsymlink files from `helm-find-files'.
94
95 (fn CANDIDATE)
96 (defalias 'helm-find-files-relsymlink #[257 "\300\301!\207" [helm-find-files-do-action relsymlink] 3 (#$ . 34131)])
97 #@56 Hardlink files from `helm-find-files'.
98
99 (fn CANDIDATE)
100 (defalias 'helm-find-files-hardlink #[257 "\300\301!\207" [helm-find-files-do-action hardlink] 3 (#$ . 34310)])
101 #@150 Keep current-buffer and open files in separate windows.
102 When a prefix arg is detected files are opened in a vertical windows
103 layout.
104
105 (fn CANDIDATE)
106 (defalias 'helm-find-files-other-window #[257 "\300 \301\302\"\303\304\"\207" [helm-marked-candidates mapcar find-file-noselect helm-window-show-buffers t] 6 (#$ . 34484)])
107 #@66 Byte compile elisp files from `helm-find-files'.
108
109 (fn CANDIDATE)
110 (defalias 'helm-find-files-byte-compile #[257 "\301\302\303\"\304:\203@\262\305\"\210A\262\202\304\266\202\207" [helm-current-prefix-arg helm-marked-candidates :with-wildcard t nil byte-compile-file] 8 (#$ . 34814)])
111 #@58 Load elisp files from `helm-find-files'.
112
113 (fn CANDIDATE)
114 (defalias 'helm-find-files-load-files #[257 "\300\301\302\"\211\303:\203@\262\304!\210A\262\202\303\266\202\207" [helm-marked-candidates :with-wildcard t nil load] 6 (#$ . 35115)])
115 #@93 Generic function to ediff/merge files in `helm-find-files'.
116
117 (fn CANDIDATE &optional MERGE)
118 (defalias 'helm-find-files-ediff-files-1 #[513 "\302\303!\304\305\306\"\203\307\202\310\203\311\202\312\313     \203(\303!\202/\314\303!\"G\315U\203A@A@\"\202S\316\317\n\"\320\321%\")\207" [helm-dwim-target helm-ff-transformer-show-only-basename next-window helm-basename helm-marked-candidates :with-wildcard t "Ediff Merge `%s' With File: " "Ediff `%s' With File: " ediff-merge-files ediff-files helm-dwim-target-directory expand-file-name 2 helm-read-file-name format :initial-input :preselect] 16 (#$ . 35369)])
119 #@18 
120
121 (fn CANDIDATE)
122 (defalias 'helm-find-files-ediff-files #[257 "\300!\207" [helm-find-files-ediff-files-1] 3 (#$ . 36016)])
123 #@18 
124
125 (fn CANDIDATE)
126 (defalias 'helm-find-files-ediff-merge-files #[257 "\300\301\"\207" [helm-find-files-ediff-files-1 merge] 4 (#$ . 36146)])
127 #@70 Default action to grep files from `helm-find-files'.
128
129 (fn CANDIDATE)
130 (defalias 'helm-find-files-grep #[257 "\301\302\303\304\"\"\207" [helm-current-prefix-arg helm-do-grep-1 helm-marked-candidates :with-wildcard t] 5 (#$ . 36293)])
131 #@73 Default action to git-grep `helm-ff-default-directory'.
132
133 (fn CANDIDATE)
134 (defalias 'helm-ff-git-grep #[257 "\302    \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-git-1] 4 (#$ . 36532)])
135 #@18 
136
137 (fn CANDIDATE)
138 (defalias 'helm-find-files-ag #[257 "\302    \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-ag] 4 (#$ . 36744)])
139 #@71 Default action to zgrep files from `helm-find-files'.
140
141 (fn CANDIDATE)
142 (defalias 'helm-ff-zgrep #[257 "\301\302\303\304\"\"\207" [helm-current-prefix-arg helm-ff-zgrep-1 helm-marked-candidates :with-wildcard t] 5 (#$ . 36900)])
143 #@73 Default action to pdfgrep files from `helm-find-files'.
144
145 (fn CANDIDATE)
146 (defalias 'helm-ff-pdfgrep #[257 "\300\301\302\303\"\300\211\211:\203=@\262\304!\262\203\303\262\2041\305!\306\230\2041\305!\307\230\2036B\262A\262\202\211\237\266\204\211\205I\310\"\207" [nil helm-marked-candidates :with-wildcard t file-directory-p file-name-extension "pdf" "PDF" helm-do-pdfgrep-1] 8 (#$ . 37134)])
147 #@73 Default action to jump to etags from `helm-find-files'.
148
149 (fn CANDIDATE)
150 (defalias 'helm-ff-etags-select #[257 "\304!\203\n\305!\210\306\307\310 \"\211\311\230\203    \202\312!\313 !)\207" [helm-action-buffer helm-ff-default-directory default-directory helm-current-prefix-arg get-buffer kill-buffer assoc-default name helm-get-current-source "Find Files" file-name-directory helm-etags-select] 4 (#$ . 37556)])
151 (defvar eshell-command-aliases-list nil)
152 (defvar helm-eshell-command-on-file-input-history nil)
153 #@1023 Run `eshell-command' on CANDIDATE or marked candidates.
154 This is done possibly with an eshell alias, if no alias found, you can type in
155 an eshell command.
156
157 Only aliases accepting a file as argument at the end of command line
158 are collected, i.e aliases ending with "$1" or "$*".
159
160 Basename of CANDIDATE can be a wild-card.
161 e.g you can do "eshell-command command *.el"
162 Where "*.el" is the CANDIDATE.
163
164 It is possible to do eshell-command command <CANDIDATE> <some more args>
165 like this: "command %s some more args".
166
167 If MAP is given run `eshell-command' on all marked files at once,
168 Otherwise, run `eshell-command' on each marked files.
169 In other terms, with a prefix arg do on the three marked files
170 "foo" "bar" "baz":
171
172 "eshell-command command foo bar baz"
173
174 otherwise do
175
176 "eshell-command command foo"
177 "eshell-command command bar"
178 "eshell-command command baz"
179
180 Note:
181 You have to setup some aliases in eshell with the `alias' command or
182 by editing yourself the file `eshell-aliases-file' to make this
183 working.
184
185 (fn &optional MAP)
186 (defalias 'helm-find-files-eshell-command-on-file-1 #[256 "\306\307!\210\310 \210\204\311\312!\205)\313     \206\n\314\315\310 \316\211\211\211:\203O@\262\211A\262\242\262@\262\317\320\"\203H\211\321\322#C\244\262A\262\202!\323\324\"\266\205\325\326\327\330\331\332\333\334\335\336&\f\337\"@\316 \340\232\204s\341\232\203x\342\202z\316\203\204\343\232\204\225 \344\232\204\225\203\303\317\345\"\203\303A\203\303\346\347\350#\317\351\"\203\257\352\"\262\202\266\352\353#\262\354\355\"\210\356!\262\202&\316\211\211\211:\203#@\262\317 \"?\205\334\357!\262\347\352\360\203\363\361!\203\363\362!\202\365\"!\262\317\351    \"\203    \352\"\202\352\353    #\262\206\n\356!\210)A\262\202\310\316\266\205)\266\204\207" [eshell-command-aliases-list helm-ff-default-directory default-directory helm-current-prefix-arg current-prefix-arg helm--url-regexp require em-alias eshell-read-aliases-list y-or-n-p "No eshell aliases found, run eshell-command without alias anyway? " helm-marked-candidates helm-comp-read "Command: " nil string-match "[\"]?.*\\(\\$1\\|\\$\\*\\)[\"]?\\'" propertize help-echo sort string< :buffer "*helm eshell on file*" :name "Eshell command" :mode-line ("Eshell alias" "C-h m: Help, \\[universal-argument]: Insert output at point") :help-message helm-esh-help-message :input-history helm-eshell-command-on-file-input-history assoc-default (16) (16) (16) (4) (4) "\\$\\*$" mapconcat eshell-quote-argument " " "'%s'\\|\"%s\"\\|%s" format "%s %s" helm-log "%S" eshell-command helm-basedir "%s" file-remote-p helm-basename] 15 (#$ . 38077)])
187 #@135 Run `eshell-command' on CANDIDATE or marked candidates.
188 See `helm-find-files-eshell-command-on-file-1' for more info.
189
190 (fn CANDIDATE)
191 (defalias 'helm-find-files-eshell-command-on-file #[257 "\301!\207" [helm-current-prefix-arg helm-find-files-eshell-command-on-file-1] 3 (#$ . 40744)])
192 #@407 Switch to eshell and cd to `helm-ff-default-directory'.
193
194 With a numeric prefix arg switch to numbered eshell buffer, if no
195 prefix arg provided and more than one eshell buffer exists, provide
196 completions on those buffers.  If only one eshell buffer exists,
197 switch to this one, if no eshell buffer exists or if the numeric
198 prefix arg eshell buffer doesn't exists, create it and switch to it.
199
200 (fn CANDIDATE)
201 (defalias 'helm-ff-switch-to-eshell #[257 "\301\302\303\304 \"\305\211:\203#@\262\306!\203B\262A\262\202\211\237\266\203?\205<\211A\203:\307\310\311\312$\202<\211@\211\203G\313!\210\202K\314!\210\210\315p!?\205U \207" [helm-current-prefix-arg #[0 "\301!\210\302 \207" [helm-ff-default-directory eshell/cd eshell-reset] 2] mapcar buffer-name buffer-list nil helm-ff--eshell-interactive-buffer-p helm-comp-read "Switch to eshell buffer: " :must-match t switch-to-buffer eshell get-buffer-process] 8 (#$ . 41038)])
202 #@15 
203
204 (fn BUFFER)
205 (defalias 'helm-ff--eshell-interactive-buffer-p #[257 "r\211q\210\301=\205\212eb\210\302\303!\210\304`e\")?)\207" [major-mode eshell-mode eshell-next-prompt 1 eql] 4 (#$ . 41988)])
206 #@61 The touch files action for helm-find-files.
207
208 (fn CANDIDATE)
209 (defalias 'helm-ff-touch-files #[257 "\303 \211\304\211\211:\203Y@\262?\205\305!\306\307\"B\262\203M\310@A\304\211:\203A@\262\311\"B\262A\262\202)\211\237\266\204!\244\262\202RB\262A\262\202\211\237\266\204\312\313\304\211\211\211:\203\227@\262\314!\262\205|\315\316\3178\"\262\203\220\320\321\322!#BB\262A\262\202d\211\237\266\205\323\315\316\324 \"$    \304\211\211:\203\330@\262\325\326\"\206\271\262\327\330\304\211\211\331\n&\332V\203\321B\262A\262\202\250\211\237)\266\204\211\205\353\333\334G\335\336\337##\207" [helm-current-prefix-arg helm-ff-default-directory default-directory helm-marked-candidates nil helm-basedir split-string ", ?" reverse expand-file-name helm-comp-read "Timestamp (default Now): " file-attributes format-time-string "%Y-%m-%d %H:%M:%S" 5 format "%s: %s" helm-basename :default current-time file-remote-p localname process-file "touch" "-d" 0 message "Failed to touch *%s files:\n%s" mapconcat #[257 "\300\301\"\207" [format "- %s\n"] 4 "\n\n(fn F)"] ""] 16 (#$ . 42192)])
210 #@60 Used to interactively run touch file action from keyboard.
211 (defalias 'helm-ff-run-touch-files #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-touch-files error "Running helm command outside of context"] 2 (#$ . 43343) nil])
212 (put 'helm-ff-run-touch-files 'helm-only t)
213 #@113 Rename all marked files in `helm-ff-default-directory' with METHOD.
214 See `helm-ff-serial-rename-1'.
215
216 (fn METHOD)
217 (defalias 'helm-ff-serial-rename-action #[257 "\306\307\310\306\"\211@\311\312\313\314\315\316\317!\"#\"\320\321!\311\322\317@!\"\323\324\325\326\323    !\327\330\331\306&!\332\333\n!\306\f\334=\203@\335\202A\f\332\2119\332Crq\210\336\337\n!!\210)\340\341\342\343\344!\345\"\346$\216\347\350\351\"\240!r\340\341\352\343\344!\353\"\354$\216\355@\356\"\210\357\360\361\fG\360\362\316@!%$!\203\256\363 \n\n\n\364&\210\306\262\365\332!\210*\210-\266\211\203\321r\366:!\203\304:\206\310p\211:q\210\367!)\202\324\365\370!)\207" [helm--reading-passwd-or-string helm-ff-default-directory helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p t helm-marked-candidates :with-wildcard helm-read-string "NewName: " replace-regexp-in-string "[0-9]+$" "" helm-basename file-name-extension read-number "StartAtNumber: " "Extension: " expand-file-name helm-read-file-name "Serial Rename to directory: " :initial-input :test file-directory-p :must-match nil temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "Rename %s file(s) to <%s> like this ?\n%s " "%s <-> %s%s.%s" helm-ff-serial-rename-1 :method message buffer-live-p helm-find-files-1 "Operation aborted" helm-reuse-last-window-split-state helm-current-buffer] 23 (#$ . 43661)])
218 #@23 
219
220 (fn FILE DIRECTORY)
221 (defalias 'helm-ff-member-directory-p #[514 "\300\301\302!!!\300\301!!\230\207" [expand-file-name file-name-as-directory file-name-directory] 6 (#$ . 45452)])
222 #@489 rename files in COLLECTION to DIRECTORY with the prefix name NEW-NAME.
223 Rename start at number START-AT-NUM - ex: prefixname-01.jpg.
224 EXTENSION is the file extension to use, in empty prompt,
225 reuse the original extension of file.
226 METHOD can be one of rename, copy or symlink.
227 Files will be renamed if they are files of current directory, otherwise they
228 will be treated with METHOD.
229 Default METHOD is rename.
230
231 (fn DIRECTORY COLLECTION NEW-NAME START-AT-NUM EXTENSION &key (METHOD \='rename))
232 (defalias 'helm-ff-serial-rename-1 #[1413 "\301\302\"\206\303A@\211\2035\211@\304>\203\211AA\262\202 \305>A@\203,\306\262\202 \307\310@\"\210\202 \210\311\312\"\262\313\211!\314\315\316!!P!\317\267\202[\320\202_\321\202_\322\202_\307\323\"\324!\210\325\326\327\330\331!\332\"\333$\216\306\306\211:\203\321@\262\334W\203\212\335\202\213\336\262\f\337\"\f\340\230\204\251\337\341\342\343\340#\"\202\256\344\345\"R\262\346\"\203\301\322\"\210\202\306\"\210A\262T\262\202w\266\347\350#\211\306:\203@\262\351!\203\372\321\352!\313!\353!P\"\210\202\322 \"\210A\262\202\332\306\266\203)\266\202\207" [directory-files-no-dot-files-regexp plist-member :method (nil rename) (:method :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method)" cl-remove-if file-directory-p file-name-as-directory symbol-name cl-gensym "tmp" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 79 symlink 83 rename 87)) copy-file make-symbolic-link rename-file "Error: Unknown method %s" make-directory make-byte-code 0 "\301\300\302\"\207" vconcat vector [delete-directory t] 3 10 "0%s" "%s" format "" ".%s" replace-regexp-in-string "[.]" file-name-extension dot helm-ff-member-directory-p directory-files t file-symlink-p file-truename helm-basename] 23 (#$ . 45644)])
233 #@199 Serial rename all marked files to `helm-ff-default-directory'.
234 Rename only file of current directory, and symlink files coming from
235 other directories.
236 See `helm-ff-serial-rename-1'.
237
238 (fn CANDIDATE)
239 (defalias 'helm-ff-serial-rename #[257 "\300\301!\207" [helm-ff-serial-rename-action rename] 3 (#$ . 47543)])
240 #@199 Serial rename all marked files to `helm-ff-default-directory'.
241 Rename only file of current directory, and symlink files coming from
242 other directories.
243 See `helm-ff-serial-rename-1'.
244
245 (fn CANDIDATE)
246 (defalias 'helm-ff-serial-rename-by-symlink #[257 "\300\301!\207" [helm-ff-serial-rename-action symlink] 3 (#$ . 47858)])
247 #@196 Serial rename all marked files to `helm-ff-default-directory'.
248 Rename only file of current directory, and copy files coming from
249 other directories.
250 See `helm-ff-serial-rename-1'.
251
252 (fn CANDIDATE)
253 (defalias 'helm-ff-serial-rename-by-copying #[257 "\300\301!\207" [helm-ff-serial-rename-action copy] 3 (#$ . 48185)])
254 (defvar helm-ff-query-replace-fnames-history-from nil)
255 (defvar helm-ff-query-replace-fnames-history-to nil)
256 #@122 Query replace on filenames of CANDIDATES.
257 This doesn't replace inside the files, only modify filenames.
258
259 (fn CANDIDATES)
260 (defalias 'helm-ff-query-replace-on-filenames #[257 "\306!\307\n\310=\203\311\202\n\312\211\312Crq\210\313\314\315\"!\210)\316\317\320\321\322!\323\"\324$\216\325\326\327\"\240!r\316\317\330\321\322!\331\"\332$\216\333@\334\"\210\335\336\312\337\315@!$\335\340\341\"\312\342#\312\3432\201\344\317\312    \312\211:\203u@\262\345!\346\347 \316\317\350\321\322!\351\"\324$\216 \352\230\203\232\353\262\n\354\315\307\"\211\262    !\202\362 \355\230\203\260\353\262\n\354\356!\211\262    !\202\362 \357\230\203\303\360\315!\211\262    !\202\362\361\362 \"\203\360\353\262\n\363\353 \"\363\332\"\315!\211\364!\364!O\262\n\354#\266\203\202\362 )\262\347 \316\317\350\321\322!\365\"\324$\216\361\366 \"\203#\367\363\353\"\363\370\"\340\371 T\"P\n#\202\375\372\f\312\307\361#)\266\203\203P\361\373 \"\203P\367\372\340\371\fT\"\374 \307\211$#\202\375\361\372 \"\203g\374\340\371 T\"\307\211$\202\375\361\375 \"\203\233\374\364\363\353\"!\363\332\"\211\376\230\203\212 G\202\220\211\364!\262\262O\307\211$\202\375\361\377 \"\203\273\374\367\363\353\"\363\332\" \307$\307\211$\202\375\361\373 \"\203\316\374\307\211$\202\375 \201@\230\203\335\201A\202\375 \201B\230\203\354\201C\202\375 \201D\230\203\373\201E\202\375 )\262\315!\307\312 &P\262\230\204n\201F!\203.\201G!\340\201H\"\356\307\"Q\262\201I\230\204F\201J\340\201K#\201L\"\262\201M\230\203[\201N\343\201O\201P!\"\210\201Q\230\204n\201R\"\210T\262A\262\202h\201O\201S\"\266\2060\266*\210-\266\201T\201U!\210r\201V\201W !q\210\201X )\207" [helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state inhibit-changing-match-data temp-buffer-window-setup t same below nil helm-format-columns-of-files mapcar helm-basename make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord read-string "Replace regexp on filename(s): " helm-ff-query-replace-history-from format "Replace regexp `%s' with: " helm-ff-query-replace-history-to --cl-block-nil-- "y" helm-basedir helm--replace-regexp-in-buffer-string match-data "\301\300\302\"\207" [set-match-data evaporate] "%." 1 helm-ff--prepare-str-with-regexp ".%" file-name-extension "%" regexp-quote string-match "%:\\([0-9]+\\):\\([0-9]+\\)" match-string string-to-number [set-match-data evaporate] "\\\\@/\\(.*\\)/\\(\\(?99:.*\\)\\\\#\\)/" replace-regexp-in-string 99 "%03d" "\\\\#" "\\\\@" replace-match "\\\\@:\\([0-9]*\\):\\([0-9]*\\)" "" "\\\\@/\\(.*\\)/\\(.*\\)/" "%u" upcase "%d" downcase "%c" capitalize file-exists-p file-name-sans-extension "(%s)" "!" helm-read-answer "Replace `%s' by `%s' [!,y,n,q]" ("y" "n" "!" "q") "q" throw message "Operation aborted" "n" rename-file "%d Files renamed" sit-for 0.1 window-buffer minibuffer-window delete-minibuffer-contents] 26 (#$ . 48614)])
261 #@32 
262
263 (fn STR &optional REP1 REP2)
264 (defalias 'helm-ff--prepare-str-with-regexp #[769 "\203\n\300!\206 \301\203\300!\206G\302\303O!\304Q\301U?\205/\303\301O!GU?\205A\303    GO!Q\207" [string-to-number 0 "\\(" regexp-quote "\\)"] 11 (#$ . 51915)])
265 #@18 
266
267 (fn CANDIDATE)
268 (defalias 'helm-ff-query-replace-fnames-on-marked #[257 "\300\301\302\"\303!\207" [helm-marked-candidates :with-wildcard t helm-ff-query-replace-on-filenames] 4 (#$ . 52191)])
269 (defalias 'helm-ff-run-query-replace-fnames-on-marked #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace-fnames-on-marked error "Running helm command outside of context"] 2 nil nil])
270 (put 'helm-ff-run-query-replace-fnames-on-marked 'helm-only t)
271 #@18 
272
273 (fn CANDIDATE)
274 (defalias 'helm-ff-query-replace #[257 "\300\301\302\"\303\211:\203@\262\304\305!!B\262A\262\202\211\237\266\203\306\303\"\207" [helm-marked-candidates :with-wildcard t nil buffer-name find-file-noselect helm-buffer-query-replace-1] 7 (#$ . 52691)])
275 #@18 
276
277 (fn CANDIDATE)
278 (defalias 'helm-ff-query-replace-regexp #[257 "\300\301\302\"\303\211:\203@\262\304\305!!B\262A\262\202\211\237\266\203\306\307\"\207" [helm-marked-candidates :with-wildcard t nil buffer-name find-file-noselect helm-buffer-query-replace-1 regexp] 7 (#$ . 52977)])
279 (defalias 'helm-ff-run-query-replace #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace error "Running helm command outside of context"] 2 nil nil])
280 (put 'helm-ff-run-query-replace 'helm-only t)
281 (defalias 'helm-ff-run-query-replace-regexp #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace-regexp error "Running helm command outside of context"] 2 nil nil])
282 (put 'helm-ff-run-query-replace-regexp 'helm-only t)
283 #@18 
284
285 (fn CANDIDATE)
286 (defalias 'helm-ff-toggle-auto-update #[257 "\203\303\304!\210\305\306!\210\303\307!\210\307\211\207\n?\211\303\310\n\203#\311\202$\312\"\207" [helm-ff--deleting-char-backward helm-ff--auto-update-state helm-ff-auto-update-flag message "[Auto expansion disabled]" sit-for 1 nil "[Auto expansion %s]" "enabled" "disabled"] 5 (#$ . 53796)])
287 (defalias 'helm-ff-run-toggle-auto-update #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset toggle-auto-update (helm-ff-toggle-auto-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
288 (put 'helm-ff-run-toggle-auto-update 'helm-only t)
289 #@63 Disable helm find files auto update and delete char backward.
290 (defalias 'helm-ff-delete-char-backward #[0 "\203\303\304\305\306\307 \310\311!\"!\210\312 \207\313\314!\207" [helm-alive-p helm-ff-auto-update-flag helm-ff--deleting-char-backward nil t call-interactively lookup-key current-global-map read-kbd-macro "DEL" helm--update-header-line error "Running helm command outside of context"] 5 (#$ . 54498) nil])
291 (put 'helm-ff-delete-char-backward 'helm-only t)
292 (defalias 'helm-ff-delete-char-backward--exit-fn #[0 "\303\211\207" [helm-ff--auto-update-state helm-ff-auto-update-flag helm-ff--deleting-char-backward nil] 2])
293 #@208 Used for RET action in `helm-find-files'.
294 See `helm-ff-RET' for details.
295 If MUST-MATCH is specified exit with
296 `helm-confirm-and-exit-minibuffer' which handle must-match mechanism.
297
298 (fn &optional MUST-MATCH)
299 (defalias 'helm-ff-RET-1 #[256 "\300 \211\204 \301\302\303\304\211$\210\305!\203 \306!\307\230\204 \310 \202+\203)\311 \202+\312 \207" [helm-get-selection cl--assertion-failed sel "Trying to exit with no candidates" nil file-directory-p helm-basename "." helm-execute-persistent-action helm-confirm-and-exit-minibuffer helm-maybe-exit-minibuffer] 7 (#$ . 55138)])
300 #@233 Default action for RET in `helm-find-files'.
301
302 Behave differently depending of `helm-selection':
303
304 - candidate basename is "." => open it in dired.
305 - candidate is a directory    => expand it.
306 - candidate is a file         => open it.
307 (defalias 'helm-ff-RET #[0 "\300 \207" [helm-ff-RET-1] 1 (#$ . 55725) nil])
308 #@51 Same as `helm-ff-RET' but used in must-match map.
309 (defalias 'helm-ff-RET-must-match #[0 "\300\301!\207" [helm-ff-RET-1 t] 2 (#$ . 56039) nil])
310 #@48 Run Grep action from `helm-source-find-files'.
311 (defalias 'helm-ff-run-grep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-grep error "Running helm command outside of context"] 2 (#$ . 56188) nil])
312 (put 'helm-ff-run-grep 'helm-only t)
313 #@52 Run git-grep action from `helm-source-find-files'.
314 (defalias 'helm-ff-run-git-grep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-git-grep error "Running helm command outside of context"] 2 (#$ . 56480) nil])
315 (put 'helm-ff-run-git-grep 'helm-only t)
316 (defalias 'helm-ff-run-grep-ag #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ag error "Running helm command outside of context"] 2 nil nil])
317 (put 'helm-ff-run-grep-ag 'helm-only t)
318 #@51 Run Pdfgrep action from `helm-source-find-files'.
319 (defalias 'helm-ff-run-pdfgrep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-pdfgrep error "Running helm command outside of context"] 2 (#$ . 57014) nil])
320 (put 'helm-ff-run-pdfgrep 'helm-only t)
321 #@48 Run Grep action from `helm-source-find-files'.
322 (defalias 'helm-ff-run-zgrep #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-zgrep error "Running helm command outside of context"] 2 (#$ . 57310) nil])
323 (put 'helm-ff-run-zgrep 'helm-only t)
324 #@53 Run Copy file action from `helm-source-find-files'.
325 (defalias 'helm-ff-run-copy-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-copy error "Running helm command outside of context"] 2 (#$ . 57597) nil])
326 (put 'helm-ff-run-copy-file 'helm-only t)
327 #@55 Run Rename file action from `helm-source-find-files'.
328 (defalias 'helm-ff-run-rename-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-rename error "Running helm command outside of context"] 2 (#$ . 57904) nil])
329 (put 'helm-ff-run-rename-file 'helm-only t)
330 #@61 Run Byte compile file action from `helm-source-find-files'.
331 (defalias 'helm-ff-run-byte-compile-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-byte-compile error "Running helm command outside of context"] 2 (#$ . 58219) nil])
332 (put 'helm-ff-run-byte-compile-file 'helm-only t)
333 #@53 Run Load file action from `helm-source-find-files'.
334 (defalias 'helm-ff-run-load-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-load-files error "Running helm command outside of context"] 2 (#$ . 58558) nil])
335 (put 'helm-ff-run-load-file 'helm-only t)
336 #@66 Run eshell command on file action from `helm-source-find-files'.
337 (defalias 'helm-ff-run-eshell-command-on-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-eshell-command-on-file error "Running helm command outside of context"] 2 (#$ . 58871) nil])
338 (put 'helm-ff-run-eshell-command-on-file 'helm-only t)
339 #@54 Run Ediff file action from `helm-source-find-files'.
340 (defalias 'helm-ff-run-ediff-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ediff-files error "Running helm command outside of context"] 2 (#$ . 59235) nil])
341 (put 'helm-ff-run-ediff-file 'helm-only t)
342 #@60 Run Ediff merge file action from `helm-source-find-files'.
343 (defalias 'helm-ff-run-ediff-merge-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ediff-merge-files error "Running helm command outside of context"] 2 (#$ . 59552) nil])
344 (put 'helm-ff-run-ediff-merge-file 'helm-only t)
345 #@56 Run Symlink file action from `helm-source-find-files'.
346 (defalias 'helm-ff-run-symlink-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-symlink error "Running helm command outside of context"] 2 (#$ . 59893) nil])
347 (put 'helm-ff-run-symlink-file 'helm-only t)
348 #@56 Run Symlink file action from `helm-source-find-files'.
349 (defalias 'helm-ff-run-relsymlink-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-relsymlink error "Running helm command outside of context"] 2 (#$ . 60212) nil])
350 (put 'helm-ff-run-relsymlink-file 'helm-only t)
351 #@57 Run Hardlink file action from `helm-source-find-files'.
352 (defalias 'helm-ff-run-hardlink-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-hardlink error "Running helm command outside of context"] 2 (#$ . 60540) nil])
353 (put 'helm-ff-run-hardlink-file 'helm-only t)
354 #@46 Delete files default action.
355
356 (fn CANDIDATE)
357 (defalias 'helm-ff-delete-files #[257 "!\207" [helm-ff-delete-files-function] 3 (#$ . 60863)])
358 #@55 Run Delete file action from `helm-source-find-files'.
359 (defalias 'helm-ff-run-delete-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-delete-files error "Running helm command outside of context"] 2 (#$ . 61011) nil])
360 (put 'helm-ff-run-delete-file 'helm-only t)
361 #@62 Run complete file name action from `helm-source-find-files'.
362 (defalias 'helm-ff-run-complete-fn-at-point #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-insert-file-name-completion-at-point error "Running helm command outside of context"] 2 (#$ . 61324) nil])
363 (put 'helm-ff-run-complete-fn-at-point 'helm-only t)
364 #@60 Run switch to eshell action from `helm-source-find-files'.
365 (defalias 'helm-ff-run-switch-to-eshell #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-switch-to-eshell error "Running helm command outside of context"] 2 (#$ . 61683) nil])
366 (put 'helm-ff-run-switch-to-eshell 'helm-only t)
367 #@123 Run switch to other window action from `helm-source-find-files'.
368 When a prefix arg is provided, split is done vertically.
369 (defalias 'helm-ff-run-switch-other-window #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-other-window error "Running helm command outside of context"] 2 (#$ . 62016) nil])
370 (put 'helm-ff-run-switch-other-window 'helm-only t)
371 #@65 Run switch to other frame action from `helm-source-find-files'.
372 (defalias 'helm-ff-run-switch-other-frame #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action find-file-other-frame error "Running helm command outside of context"] 2 (#$ . 62421) nil])
373 (put 'helm-ff-run-switch-other-frame 'helm-only t)
374 #@72 Run open file externally command action from `helm-source-find-files'.
375 (defalias 'helm-ff-run-open-file-externally #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-open-file-externally error "Running helm command outside of context"] 2 (#$ . 62759) nil])
376 (put 'helm-ff-run-open-file-externally 'helm-only t)
377 #@72 Run open file externally command action from `helm-source-find-files'.
378 (defalias 'helm-ff-run-open-file-with-default-tool #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-open-file-with-default-tool error "Running helm command outside of context"] 2 (#$ . 63112) nil])
379 (put 'helm-ff-run-open-file-with-default-tool 'helm-only t)
380 #@63 Locate action function for `helm-find-files'.
381
382 (fn CANDIDATE)
383 (defalias 'helm-ff-locate #[257 "\305 \210\306\307\"!    \206\n\310=\205\311\312 \"?\205\313P\314\f\315\316$\207" [helm-ff-default-directory helm-locate-fuzzy-match system-type helm-locate-command helm-current-prefix-arg helm-locate-set-command helm-basename expand-file-name windows-nt string-match "^es" " -b" helm-locate-1 nil from-ff] 7 (#$ . 63486)])
384 #@50 Run locate action from `helm-source-find-files'.
385 (defalias 'helm-ff-run-locate #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-locate error "Running helm command outside of context"] 2 (#$ . 63916) nil])
386 (put 'helm-ff-run-locate 'helm-only t)
387 #@18 
388
389 (fn CANDIDATE)
390 (defalias 'helm-files-insert-as-org-link #[257 "\300\301\"c\210`\302Zb\207" [format "[[%s][]]" 2] 4 (#$ . 64208)])
391 (defalias 'helm-ff-run-insert-org-link #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-files-insert-as-org-link error "Running helm command outside of context"] 2 nil nil])
392 (put 'helm-ff-run-insert-org-link 'helm-only t)
393 (defalias 'helm-ff-run-find-file-as-root #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-file-as-root error "Running helm command outside of context"] 2 nil nil])
394 (put 'helm-ff-run-find-file-as-root 'helm-only t)
395 (defalias 'helm-ff-run-find-alternate-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action find-alternate-file error "Running helm command outside of context"] 2 nil nil])
396 (put 'helm-ff-run-find-alternate-file 'helm-only t)
397 #@69 Run mail attach files command action from `helm-source-find-files'.
398 (defalias 'helm-ff-run-mail-attach-files #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-mail-attach-files error "Running helm command outside of context"] 2 (#$ . 65125) nil])
399 (put 'helm-ff-run-mail-attach-files 'helm-only t)
400 #@57 Run Etags command action from `helm-source-find-files'.
401 (defalias 'helm-ff-run-etags #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-etags-select error "Running helm command outside of context"] 2 (#$ . 65469) nil])
402 (put 'helm-ff-run-etags 'helm-only t)
403 #@380 Print marked files.
404
405 You may to set in order
406 variables `lpr-command',`lpr-switches' and/or `printer-name',
407 but with no settings helm should detect your printer(s) and
408 print with the default `lpr' settings.
409
410 NOTE: DO NOT set the "-P" flag in `lpr-switches', if you really
411 have to modify this, do it in `lpr-printer-switch'.
412
413 Same as `dired-do-print' but for helm.
414
415 (fn CANDIDATE)
416 (defalias 'helm-ff-print #[257 "\306\307!\210\204\f    \204\310 \311\312\313\"\211G    \203 \314\315    \"\202!\n\211;\2035\316\n\231\2035 \nP\fB\2026\f\317\320\321\322\323\316## \205[\f\205[\322\324 \f;\203W\fC\202X\fB\325#\"\322\326\325#\325Q\203q\327\330\331#\202t\332\333!*\207" [helm-current-prefix-arg helm-ff-printer-list printer-name lpr-printer-switch lpr-switches lpr-command require lpr helm-ff-find-printers helm-marked-candidates :with-wildcard t helm-comp-read "Printer: " "" helm-read-string format "Print *%s File(s):\n%s with: " mapconcat #[257 "\300\301\"\207" [format "- %s\n"] 4 "\n\n(fn F)"] identity " " #[257 "\300\301\"\207" [format "'%s'"] 4 "\n\n(fn X)"] start-process-shell-command "helm-print" nil error "Error: Please verify your printer settings in Emacs."] 12 (#$ . 65773)])
417 #@54 Run Print file action from `helm-source-find-files'.
418 (defalias 'helm-ff-run-print-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-print error "Running helm command outside of context"] 2 (#$ . 66983) nil])
419 (put 'helm-ff-run-print-file 'helm-only t)
420 #@81 Calculate the checksum of FILE.
421 The checksum is copied to kill-ring.
422
423 (fn FILE)
424 (defalias 'helm-ff-checksum #[257 "\300!\204\301\302\303\304C$\210\305\306\307\310\"!\311!\312\313#\210\314\315\316\317\320\321\"\322\"\323$\315\324\325\320\321\"\326\"\327\330%\"\207" [file-regular-p cl--assertion-failed (file-regular-p file) "`%s' is not a regular file" nil intern helm-comp-read "Algorithm: " (md5 sha1 sha224 sha256 sha384 sha512) helm-basename message "Calculating %s checksum for %s..." async-start make-byte-code 0 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\300!\210\314\301p\"*\207" vconcat vector [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally secure-hash] 7 257 "\302!\210\303\304\300\301#\207" [kill-new message "Calculating %s checksum for `%s' done and copied to kill-ring"] 5 "\n\n(fn SUM)"] 12 (#$ . 67286)])
425 #@18 
426
427 (fn CANDIDATE)
428 (defalias 'helm-ff-toggle-basename #[257 "r\301 q\210?\302\303\304\"\203\305!\202\211\306\307!\310P!\266\202)\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-get-selection nil t helm-basename helm-force-update regexp-quote "$"] 6 (#$ . 68254)])
429 (defalias 'helm-ff-run-toggle-basename #[0 "\203\301 ?\205\302\303!\207\304\305!\207" [helm-alive-p helm-empty-source-p helm-ff-toggle-basename nil error "Running helm command outside of context"] 2 nil nil])
430 (put 'helm-ff-run-toggle-basename 'helm-only t)
431 #@58 Reduce FNAME by number LEVEL from end.
432
433 (fn FNAME LEVEL)
434 (defalias 'helm-reduce-file-name #[514 "\211\300V\203%\301\230\204\302\303\"\301\230\204\304\211!\305P!\262\211S\262\202\207" [0 "/" file-remote-p localname expand-file-name "/../"] 5 (#$ . 68811)])
435 (defvar helm-find-files--level-tree nil)
436 (defvar helm-find-files--level-tree-iterator nil)
437 #@102 Go up one level like unix command `cd ..'.
438 If prefix numeric arg is given go ARG level up.
439
440 (fn ARG)
441 (defalias 'helm-find-files-up-one-level #[257 "\203\247\306 \307!\205\246\310 ?\205\246\311\312 !r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324 \2036\325\326!\210\327\330!\210*\210\331\330\211#\332    \"\333\334\n\203Q\335 \f#\f]\202R\f\"\210\336    !\203` (\202y\337    !\203l    (\202y\203y\337!\203y()\204\204 )B)\330*\211)B)\340+\"\210\341\342\343\"\210\342\344B,B,\345\344\342\"\266\202\207\346\347!\207" [helm-alive-p helm-pattern helm-ff-up-one-level-preselect helm-ff--directory-files-hash helm-ff-candidate-number-limit helm-ff-default-directory helm-get-current-source helm-file-completion-source-p helm-ff--invalid-tramp-name-p 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-follow-mode-p helm-follow-mode -1 message nil helm-get-selection helm-reduce-file-name helm-attrset candidate-number-limit gethash file-directory-p file-exists-p helm-set-pattern defalias #1=#:helm--hook36 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-ff-retrieve-last-expanded] 1] helm-after-update-hook add-hook error "Running helm command outside of context" helm-ff-last-expanded helm-find-files--level-tree helm-find-files--level-tree-iterator helm-suspend-update-flag helm--temp-hooks] 10 (#$ . 69178) "p"])
442 (put 'helm-find-files-up-one-level 'helm-only t)
443 #@62 Retrieve previous paths reached by `C-l' in helm-find-files.
444 (defalias 'helm-find-files-down-last-level #[0 "\203-\303 \205,\304 ?\2050    \204\305\nA!\306\307    !\211\203'\310!\202*\306\211\262\207\311\312!\207" [helm-alive-p helm-find-files--level-tree-iterator helm-find-files--level-tree helm-file-completion-source-p helm-ff--invalid-tramp-name-p helm-iter-list nil helm-iter-next helm-set-pattern error "Running helm command outside of context"] 3 (#$ . 70767) nil])
445 (put 'helm-find-files-down-last-level 'helm-only t)
446 (defalias 'helm-find-files--reset-level-tree #[0 "\302\211\211\207" [helm-find-files--level-tree-iterator helm-find-files--level-tree nil] 3])
447 (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [add-hook helm-cleanup-hook helm-find-files--reset-level-tree post-self-insert-hook helm-after-persistent-action-hook] 3)
448 #@145 Move overlay to last visited directory `helm-ff-last-expanded'.
449 This happen after using `helm-find-files-up-one-level',
450 or hitting C-j on "..".
451 (defalias 'helm-ff-retrieve-last-expanded #[0 "\205D    \203\302\303!!\202\303!\304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320\321!\322Q\323\324#\203=\307y\210\325 \210*\210\323\211\262\207" [helm-ff-last-expanded helm-ff-transformer-show-only-basename helm-basename directory-file-name 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 re-search-forward "^" regexp-quote "$" nil t helm-mark-current-line] 8 (#$ . 71642)])
452 #@73 When candidate is an incomplete file name move to first real candidate.
453 (defalias 'helm-ff-move-to-first-real-candidate #[0 "\304 \305\306\"\307\310!\205-\311 ?\205-\312!    >\204$\313\314\"?\205-\n\205-\315\307\211#\211\205P\211;?\206J\313 \"\203G\316\307\317#?\206J\320!?\205P\321 \262)\207" [minibuffer-completing-file-name helm-ff-goto-first-real-dired-exceptions helm-ff--move-to-first-real-candidate helm-tramp-file-name-regexp helm-get-current-source assoc-default name nil helm-file-completion-source-p helm-empty-source-p intern-soft string-match "\\`[Dd]ired-" helm-get-selection file-remote-p t file-exists-p helm-next-line] 7 (#$ . 72361)])
454 #@231 Expand to directory when sole completion.
455 When only one candidate is remaining and it is a directory,
456 expand to this directory.
457 This happen only when `helm-ff-auto-update-flag' is non--nil
458 or when `helm-pattern' is equal to "~/".
459 (defalias 'helm-ff-update-when-only-one-matched #[0 "\306 \307!\205\352\310\311\"?\205\352\312 ?\205\352\313\314    !\315\316\317#)\266\203?\205\352r\320 q\210\321\322\"\323\230\317     \"\203A\324    !\202B    \325\326\327!!!\f\230\330 \211\331X\205Z\332\314    !!\331Y\204o\333!\204o\204o\211\203o\334 \210\335\315\211# \203\214'\204\214\317\336    \"\204\214(\337=\203\251    \340\230\204\251\341U\205\347)\205\347\342!\205\347'?\205\347\204\261\205\347?\205\347\211;\205\347\342!\205\347\343!\204\326\331X\203\326\344\325!!\210\202\345\317\345    \"\204\345\344\326\325    !!!\210\346 \266\206)\207" [helm-action-buffer helm-pattern inhibit-changing-match-data helm-tramp-file-name-regexp helm-ff-default-directory helm-ff-auto-update-flag helm-get-current-source helm-file-completion-source-p get-buffer-window visible helm-ff--invalid-tramp-name-p "\\`[.]\\{2\\}[^/]+" helm-basename nil t string-match helm-buffer-get assoc-default name "Read File Name History" helm-ff--create-tramp-name file-name-as-directory expand-file-name substitute-in-file-name helm-get-candidate-number 2 string-width file-exists-p helm-ff-move-to-first-real-candidate helm-get-selection "\\`//" helm-yank-text-at-point "~/" 1 file-accessible-directory-p helm-dir-is-dot helm-set-pattern "\\`.*[.]\\{1\\}\\'" helm-check-minibuffer-input helm-ff--deleting-char-backward last-command helm-ff--auto-update-state] 11 (#$ . 73038)])
460 #@78 Allow expanding to home/user directory or root or text yanked after pattern.
461 (defalias 'helm-ff-auto-expand-to-home-or-root #[0 "\305 \205\371r\306\307 !q\210l)\205\371\310    \"?\205\371\311    !\204f\312    !\204f\313\314    !\315\316\310#)\266\203\203f\317    \315\316\310#)\266\203\203f\320    !\210\321\322 !r\323\324\325\326\327!\330\"\331$\216\332@\333\"\210\334 *\207\310\335    \"\205\371\336\324    \"\211\337\230\203}\340 !\202\261    \341\230\203\207\342\202\261\343\315\316\310#)\266\203\203\256\344!\345!\203\244\211\202\251\346\317\347#\262\202\261\350    !\345!\203\321\351\315\316\310#)\266\203\204\321\352!\211\262\202\327\352\353!!\321\322 !r\323\324\325\326\327!\354\"\331$\216\332@\333\"\210\355!\210\334 *\262\266\202\207" [helm-ff-url-regexp helm-pattern inhibit-changing-match-data default-directory helm-ff-default-directory helm-file-completion-source-p window-buffer minibuffer-window string-match file-remote-p file-exists-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+" helm-basename nil t "/\\'" helm-ff-recursive-dirs 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-check-minibuffer-input "\\(?:\\`~/\\)\\|/?\\$.*/\\|/\\./\\|/\\.\\./\\|/~.*/\\|//\\|\\(/[[:alpha:]]:/\\|\\s\\+\\)" match-string "/./" expand-file-name "/../" "/" "\\`/\\$" substitute-in-file-name file-directory-p replace-regexp-in-string "" helm-ff--expand-substitued-pattern "[^.]\\.\\'" file-name-as-directory file-name-directory [internal--after-with-selected-window] helm-set-pattern] 9 (#$ . 74712)])
462 #@82 Prevent expanding "/home/user/." to "/home/user".
463
464 (fn NAME &optional DIRECTORY)
465 (defalias 'helm-ff--expand-file-name-no-dot #[513 "\300\"\301\302\"\205\f\303P\207" [expand-file-name string-match "[^.]\\.\\'" "/."] 6 (#$ . 76351)])
466 #@16 
467
468 (fn PATTERN)
469 (defalias 'helm-ff--expand-substitued-pattern #[257 "\301>\205    \302\303!\211\203\304\202\305\211\306!\"\207" [system-type (windows-nt ms-dos) getenv "SystemDrive" expand-file-name helm-ff--expand-file-name-no-dot helm-substitute-in-filename] 6 (#$ . 76593)])
470 #@299 Substitute all parts of FNAME from start up to "~/" or "/".
471 On windows system substitute from start up to "/[[:lower:]]:/".
472 This function is needed for `helm-ff-auto-expand-to-home-or-root'
473 and should be used carefully elsewhere, or not at all, using
474 `substitute-in-file-name' instead.
475
476 (fn FNAME)
477 (defalias 'helm-substitute-in-filename #[257 "\203\304\305\306#)\266\203\203\207\307!\2032\n\2032\310!\311!\203,\211\2021\312\313\314#\207\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216c\210eb\210 \326>\203U\327\304w\210\330\331\304\305#\203\212\332\320!\211\333\230\204v\334\304\305\306#)\266\203\203|\320\224T\202~\320\224b\210\335`\336 \"\262\202\213*\207" [helm--url-regexp inhibit-changing-match-data helm-substitute-in-filename-stay-on-remote system-type nil t string-match file-remote-p substitute-in-file-name file-directory-p replace-regexp-in-string "/\\'" "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (windows-nt ms-dos) "/" re-search-forward "~.*/?\\|//\\|/[[:alpha:]]:/" match-string "//" "/[[:alpha:]]:/" buffer-substring-no-properties point-at-eol] 10 (#$ . 76882)])
478 #@56 Put point on filename FILE in dired buffer.
479
480 (fn FILE)
481 (defalias 'helm-point-file-in-dired #[257 "\205\302\303\304#)\266\203?\205%\305\306!!\307\310!!\210\311!\262\207" [helm--url-regexp inhibit-changing-match-data nil t string-match expand-file-name helm-substitute-in-filename dired file-name-directory dired-goto-file] 8 (#$ . 78089)])
482 #@116 Open a dired buffer with only marked files.
483
484 With a prefix arg toggle dired buffer to wdired mode.
485
486 (fn CANDIDATE)
487 (defalias 'helm-marked-files-in-dired #[257 "\305\306\307\310#\210\305\311\307\312#\210\313\314\315\"\211@\205#\316\315\317#)\266\203?\205C\320\321!!\322\nB!\210\323!\210 \204>\f\205A\324\325!\262\207" [helm--url-regexp inhibit-changing-match-data helm-ff-default-directory helm-current-prefix-arg current-prefix-arg advice-add wdired-finish-edit :override helm--advice-wdired-finish-edit wdired-get-filename helm--advice-wdired-get-filename helm-marked-candidates :with-wildcard t nil string-match expand-file-name helm-substitute-in-filename dired dired-goto-file call-interactively wdired-change-to-wdired-mode] 10 (#$ . 78449)])
488 #@53 Execute `helm-marked-files-in-dired' interactively.
489 (defalias 'helm-ff-run-marked-files-in-dired #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-marked-files-in-dired error "Running helm command outside of context"] 2 (#$ . 79218) nil])
490 (put 'helm-ff-run-marked-files-in-dired 'helm-only t)
491 #@71 Build filename from `helm-pattern' like /su:: or /sudo::.
492
493 (fn FNAME)
494 (defalias 'helm-ff--create-tramp-name #[257 "\300\301\302\303!!\211\304\305\211T\211\262GW\203#H\262B\262\202 \211\237\266\205\"\207" [apply tramp-make-tramp-file-name helm-ff--tramp-cons-or-vector tramp-dissect-file-name -1 nil] 10 (#$ . 79555)])
495 #@57 Return VECTOR-OR-CONS as a vector.
496
497 (fn VECTOR-OR-CONS)
498 (defalias 'helm-ff--tramp-cons-or-vector #[257 "\211:\203\211@A\211\300!\266\202\207\301!\203\211\211\207\302\207" [vconcat vectorp nil] 7 (#$ . 79891)])
499 #@47 Returns a list of the car of `tramp-methods'.
500 (defalias 'helm-ff--get-tramp-methods #[0 "\206\n\302\303    \"\211\207" [helm-ff--tramp-methods tramp-methods mapcar car] 3 (#$ . 80115)])
501 #@12 
502
503 (fn STR)
504 (defalias 'helm-ff--previous-mh-tramp-method #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311!r\211q\210\301\302\312\304\305!\313\"\314$\216c\210\315\316\317\320\321 \322#\323Q\324\325#\205A\326\327 \314\224\"\326\314\224\314\225\"D*\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-backward "\\([|]\\)\\(" mapconcat identity helm-ff--get-tramp-methods "\\|" "\\):" nil t buffer-substring-no-properties point-at-bol] 9 (#$ . 80307)])
505 #@111 Extract hostname from an incomplete tramp file name.
506 Return nil on valid file name remote or not.
507
508 (fn FNAME)
509 (defalias 'helm-ff--get-host-from-tramp-invalid-fname #[257 "\302\303\304#)\266\203\2055\305!\306\307!\310#\311\312\303#\211@\313 \235@\211\2053\314\230\2053\315!@\266\204\207" [helm-tramp-file-name-regexp inhibit-changing-match-data nil t string-match helm-basename replace-regexp-in-string regexp-quote "" split-string ":" helm-ff--get-tramp-methods "/" last] 8 (#$ . 80926)])
510 #@185 Get a list of hosts for tramp method found in `helm-pattern'.
511 Argument PATTERN default to `helm-pattern', it is here only for debugging
512 purpose.
513
514 (fn &optional (PATTERN helm-pattern))
515 (defalias 'helm-ff--tramp-hostnames #[128 "\211\203 \211A\262\242\202\203\302\303\304GTD\"\210\305    \"\205\275\306!\211A@\206/\307\310\"\2056\311!\211\205E@\312\313\314\315#@R\262\316 \317!\320\211\211:\203\255@\262\211A\262\242\262\321@!\320\211\211:\203\235@\262:\205yA@\262\203\226\n\235\204\226\f@\206\215\322\f\312RB\262A\262\202h\211\237\266\204!\244\262A\262\202O\211\237\266\204\323\324\320B\"\325\326#\266\205\207" [helm-pattern helm-tramp-file-name-regexp signal wrong-number-of-arguments helm-ff--tramp-hostnames string-match helm-ff--previous-mh-tramp-method match-string 1 helm-ff--get-host-from-tramp-invalid-fname ":" split-string "|" t helm-ff--get-tramp-methods tramp-get-completion-function nil reverse "/" helm-fast-remove-dups delq :test equal] 19 (#$ . 81437)])
516 #@70 Exit helm when user try to execute action on an invalid tramp fname.
517 (defalias 'helm-ff-before-action-hook-fn #[0 "\300 \301\302\211#\303!\205!\211;\205!\304!\205!\304 \205!\305\306\"\207" [helm-get-current-source helm-get-selection nil helm-file-completion-source-p helm-ff--invalid-tramp-name-p error "Error: Unknown file or directory `%s'"] 5 (#$ . 82471)])
518 (add-hook 'helm-before-action-hook 'helm-ff-before-action-hook-fn)
519 #@99 Return non--nil when PATTERN is an invalid tramp filename.
520
521 (fn &optional (PATTERN helm-pattern))
522 (defalias 'helm-ff--invalid-tramp-name-p #[128 "\211\203 \211A\262\242\202\203\301\302\303GTD\"\210\304!\305\230\207" [helm-pattern signal wrong-number-of-arguments helm-ff--invalid-tramp-name-p helm-ff-set-pattern "Invalid tramp file name"] 6 (#$ . 82913)])
523 #@12 
524
525 (fn STR)
526 (defalias 'helm-ff--tramp-postfixed-p #[257 "\300\301 \302\303\304\305\306!\307\"\310$\216\311\312!r\211q\210\302\303\313\305\306!\314\"\315$\216\212c\210)\316\211\203Z\317\320\300\316#\211\203S\212\321u\210\322\323\324\325 \326#\327 \")\203M\300\262\202V\211\262\202V\300\262\210\202(\210*\210)\210\211\207" [nil 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 t search-forward ":" -1 looking-back mapconcat identity helm-ff--get-tramp-methods "\\|" point-at-bol] 11 (#$ . 83287)])
527 #@57 Handle tramp filenames in `helm-pattern'.
528
529 (fn PATTERN)
530 (defalias 'helm-ff-set-pattern #[257 "\303 \304!\305\306\211\204\307\262\310\"\203\202>\310\311\"\203*\312!\202>\307\230\2034\307\202>\310\313\"\203C\314!\202>\310\315\"\203R\314!\202>\310\316\"\203`\314    !\202>\310\317\"\203n\314\320!\202>\310\321\"\203|\314\322!\202>\310\323\"\203\213\314!\202>\310\324P\"\203\277\203\277\325\326\"\211\262\203\277\235\203\277\314\327\325\330    \"!!\262\331\306\332    $\202>\310\"\203\357\203\357\325\326\"\211\262\203\357\235\203\357\327\325\330\"!\262\331\306\332    $\202>\310\n\"\203#\203#\325\326\"\211\262\203#\203#\235\204#\327\325\330\"!\262\331\306\332    $\202>\204=\310\n\"\203=\325\326\"\235\203=\333\202>\207" [helm-ff-url-regexp default-directory helm-tramp-file-name-regexp helm-ff--get-tramp-methods helm-ff--tramp-postfixed-p "\\`/\\([^[/:]+\\|[^/]+]\\):.*:" nil "" string-match "\\`\\$" substitute-in-file-name "\\`[.]\\{1,2\\}/\\'" expand-file-name "[^/][.]/\\'" ".*\\(~?/?[.]\\{1\\}/\\)\\'" ".*\\(~//\\|//\\)\\'" "/" "\\`\\(~/\\|.*/~/\\)\\'" "~/" "\\`~/" "~" match-string 1 helm-ff--create-tramp-name 0 replace-match t "Invalid tramp file name"] 11 (#$ . 83933)])
531 #@83 Create candidate list for `helm-source-find-files'.
532
533 (fn &optional REQUIRE-MATCH)
534 (defalias 'helm-find-files-get-candidates #[256 "\306!\307!\310\211\211\n\311!\312\313G\310$\210\314\230\204M\315\230\204M\316\310\317\320#)\266\203\203;\321!\204M\322!\211\205E\323!\262\204M\317\262\314\230\204\337\211\204\337'?\206t(\206t\205t\324\310\317\320#)\266\203??\205\202\325!G\326Y\206\202)\327\330\331!\211\"\210\203\235)\203\235\332!\202\252\315\230\203\247\333\202\252\322!\211\205\261\334!\262\206\270*\262\315\230\203\306\334\333!\202\335\320+\"\206\330,\205\330\320,\"?\205\335-\320\316\"\203\360\311\310\317#\203\360\314\230\203\335 \206yC\202y\336!\203.\337=\2045\320+\"\2045\211\2045\340!\204(\320\341\"\2045,\203:\320,\"\203:C\202y\315\230\203F\342\333!\202y\323!\203Z\343!\204Z\344\345\"C\202y\203i)\203i\342!\202y\346\206o?\205uC\342!\"*\207" [helm-pattern non-essential helm-tramp-verbose tramp-verbose helm--ignore-errors inhibit-changing-match-data helm-ff-set-pattern file-accessible-directory-p nil file-remote-p set-text-properties 0 "Invalid tramp file name" "" ":\\'" t string-match helm-ff--tramp-postfixed-p file-name-directory file-directory-p "/\\'" helm-basename 3 helm-log "Pattern=%S" helm-ff--transform-pattern-for-completion file-name-as-directory "/" expand-file-name helm-ff--tramp-hostnames file-regular-p helm-execute-persistent-action file-exists-p "/$" helm-ff-directory-files file-readable-p format "file-error: Opening directory permission denied `%s'" append helm-ff--auto-update-state helm-ff--deleting-char-backward helm-ff-auto-update-flag default-directory helm-ff-url-regexp helm--url-regexp helm-ff-default-directory last-repeatable-command] 12 (#$ . 85223)])
535 #@135 List directory DIRECTORY.
536
537 If DIRECTORY is remote use `helm-list-directory-function' otherwise use
538 `directory-files'.
539
540 (fn DIRECTORY)
541 (defalias 'helm-list-directory #[257 "\302!\203\n!\207\303\304    #\207" [helm-list-directory-function directory-files-no-dot-files-regexp file-remote-p directory-files t] 5 (#$ . 87060)])
542 #@138 List DIRECTORY with `file-name-all-completions' as backend.
543
544 Add a `helm-ff-dir' property on each fname ending with "/".
545
546 (fn DIRECTORY)
547 (defalias 'helm-list-dir-lisp #[257 "\300\301\302\"\303\"\304\211:\203k@\262\302\230\206&\305\235\206&\306\211GSH\307\"\211\204c\306\211GSH\310\"\262\205E\311\312GSO\"\266\202\211\203U\313\314\315#B\262\202b\313\311\"\316\315#B\262\210\210A\262\202    \211\237\207" [sort file-name-all-completions "" string-lessp nil ("./" "../") char-equal 58 47 expand-file-name 0 propertize helm-ff-dir t helm-ff-file] 11 (#$ . 87392)])
548 #@225 List directory DIR with external shell command as backend.
549
550 This function is fast enough to be used for remote files and save the
551 type of files at the same time in a property for using it later in the
552 transformer.
553
554 (fn DIR)
555 (defalias 'helm-list-dir-external #[257 "\301\302!!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\317!\"\320\321\320$\306=\205\366eb\210\212\322\323\320\321#\203\332\324\325\306!\211\232\204P\321=\204P<\203`\211\235\203`\326\327!\210\330\331 \332 \333\321$\210\202\325\334\211\232\204y\321=\204y<\203\211\211\235\203\211\326\327!\210\330\331 \332 \335\321$\210\202\323\336\211\232\204\242\321=\204\242<\203\262\211\235\203\262\326\327!\210\330\331 \332 \337\321$\210\202\321\340\211\232\204\313\321=\204\313<\203\317\211\235\203\317\326\327!\210\266\266\266\266\202-)\322\341\320\321#\203\352\326\327!\210\202\333\342ed\343#\210\344\345 \346\321#*\262)\207" [default-directory file-name-as-directory expand-file-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 process-file-shell-command format "ls -A -1 -F -b -Q | awk -v dir=%s '{print dir $1}'" shell-quote-argument nil t re-search-forward "[*=@|/>]$" "*" match-string replace-match "" put-text-property point-at-bol point-at-eol helm-ff-exe "@" helm-ff-sym "/" helm-ff-dir ("=" "|" ">") "[\"]" add-text-properties (helm-ff-file t) split-string buffer-string "\n"] 13 (#$ . 87990)])
556 #@208 List contents of DIRECTORY.
557 Argument FULL mean absolute path.
558 It is same as `directory-files' but always returns the
559 dotted filename '.' and '..' even on root directories in Windows
560 systems.
561
562 (fn DIRECTORY)
563 (defalias 'helm-ff-directory-files #[257 "\301\302!!\262\303\3041\305!0\202$\306\307@\310\311A\312##C\313\262\262\314P\315P\316G\317\\#\210\320?\205<D\"\207" [helm-ff--directory-files-hash file-name-as-directory expand-file-name nil (file-error) helm-list-directory format "%s:%s" mapconcat identity " " t "." ".." puthash 2 append] 10 (#$ . 89507)])
564 #@14 
565
566 (fn FNAME)
567 (defalias 'helm-ff-handle-backslash #[257 "\300\301\302\303T\211\262GW\2030H\262\236\211\203%AP\262\202,\304!P\262\210\202\207" [((92 . #1="")) -1 nil #1# string] 10 (#$ . 90091)])
568 (defalias 'helm-ff-fuzzy-matching-p #[0 "\205    \302>?\207" [helm-ff-fuzzy-matching helm-mm-matching-method (multi1 multi3p)] 2])
569 #@459 Maybe return PATTERN with it's basename modified as a regexp.
570 This happen only when `helm-ff-fuzzy-matching' is enabled.
571 This provide a similar behavior as `ido-enable-flex-matching'.
572 See also `helm--mapconcat-pattern'.
573 If PATTERN is an url returns it unmodified.
574 When PATTERN contain a space fallback to multi-match.
575 If basename contain one or more space fallback to multi-match.
576 If PATTERN is a valid directory name,return PATTERN unchanged.
577
578 (fn PATTERN)
579 (defalias 'helm-ff--transform-pattern-for-completion #[257 "\303!\304!\206\n\305\306!\307\211\310\307:\2039@\262\211A\262\242\262\311\n\"\211\262?\211\262\2039A\262\202\266\204\203K\211\203K\311\312\"\204i\305\230\204i\203\\G\313X\204i\203o\311\314!\"\203o\314!\202    \203\314!\315\314!Q\202    \316 \203\213\311\317\"\203\223\314!P\202    \311\320\"\204\264\311\321\"\204\264\311    \"\204\264\n\322\230\203\301\211\203\301\314!\323\324\211#P\202    \314!G\313Y\203\325\305\"\211@\326\230\203\354\327\330\331\332\333\334!\335\"\336\337%A\305#\202\375\327\330\331\340\333\334!\341\"\342\337%\305#\266\202\202\343\314!PP\207" [tramp-methods helm-ff-url-regexp helm-ff-default-directory helm-basename helm-basedir "" file-directory-p nil t string-match ":\\'" 2 regexp-quote " " helm-ff-fuzzy-matching-p "\\s-" "[*][.]?.*" "/$" "/" replace-regexp-in-string "[*]" 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 ".*"] 15 (#$ . 90443)])
580 #@12 
581
582 (fn DIR)
583 (defalias 'helm-dir-is-dot #[257 "\300\301\"\207" [string-match "\\(?:/\\|\\`\\)\\.\\{1,2\\}\\'"] 4 (#$ . 92169)])
584 #@127 Store the last value of `helm-ff-default-directory' in `helm-ff-history'.
585 Note that only existing directories are saved here.
586 (defalias 'helm-ff-save-history #[0 "\205\302 \205\303!\205\304\305G\306$\210    B\211\207" [helm-ff-default-directory helm-ff-history helm-file-completion-source-p file-directory-p set-text-properties 0 nil] 5 (#$ . 92303)])
587 (add-hook 'helm-cleanup-hook 'helm-ff-save-history)
588 #@65 Save marked files to `file-name-history'.
589
590 (fn &optional FORCE)
591 (defalias 'helm-files-save-file-name-history #[256 "\302 \303\304\"\204\305!\204\211\235\205P\306\307\310\"\310\211\311:\203J@\262\211\203C\211;\203C\312!\203C\313!\204C\314\315\316!\"\210A\262\202\311\266\202)\262\207" [helm-files-save-history-extra-sources history-delete-duplicates helm-get-current-source assoc-default name helm-file-completion-source-p helm-marked-candidates :with-wildcard t nil file-exists-p file-directory-p add-to-history file-name-history abbreviate-file-name] 10 (#$ . 92722)])
592 (add-hook 'helm-exit-minibuffer-hook 'helm-files-save-file-name-history)
593 #@13 
594
595 (fn FILE)
596 (defalias 'helm-ff-valid-symlink-p #[257 "\3001 \301!0\202 \210\302\211\205\303!\207" [(debug error) file-truename nil file-exists-p] 4 (#$ . 93397)])
597 #@58 Return the default mode to open FILENAME.
598
599 (fn FILENAME)
600 (defalias 'helm-get-default-mode-for-file #[257 "\301\211\302\301:\2030@\262\211A\262\242\262\303\"\205\211\262?\211\262\2030A\262\202\266\204\2119\203;\211\206<\304\207" [auto-mode-alist nil t string-match "Fundamental"] 9 (#$ . 93572)])
601 #@76 Show file properties of CANDIDATE in a tooltip or message.
602
603 (fn CANDIDATE)
604 (defalias 'helm-ff-properties #[257 "\303\304!\210\305!\211\203\335\211\305\306\307\310\307%\311\312\"\311\313\"\311\314\"\311\315\307#\311\316\"\311\317\"\311\320\"\321\311\n\322\"!\311\n\323\"\311 \324\"\325!\206M    \326 \203\317\n\203\317\327\330!\331\331\332\333\334!\"\332\335\203w\336\337\340 #\206x\341\"\332\342#\343\230\205\247\332\344\345\346\330!\"\203\227\347\202\246\350!\203\245\351!\202\246\352\"\332\353#\332\354#\332\355\"\332\356\"\332\357\"\332\360\"\260!\202\327\361\f!\210\362\363!)\266\215\202\340\361\364!\207" [helm-tooltip-hide-delay tooltip-hide-delay tooltip-mode require helm-external helm-file-attributes :dired t :human-size cl-getf :type :mode-type :uid :user :gid :group :other helm-file-human-size :size :modif-time :access-time helm-get-default-program-for-file display-graphic-p tooltip-show helm-basename "\n" format "Mode: %s\n" helm-get-default-mode-for-file "Ext prog: %s\n" replace-regexp-in-string " %s" "" "Not defined" "Type: %s: %s\n" "symlink" "True name: '%s'\n" string-match "^.#" "Autosave symlink" helm-ff-valid-symlink-p file-truename "Invalid Symlink" "Owner: %s: %s\n" "Group: %s: %s\n" "Others: %s\n" "Size: %s\n" "Modified: %s\n" "Accessed: %s\n" message sit-for 5 "Permission denied, file not readable"] 32 (#$ . 93897)])
605 #@40 Show properties without quitting helm.
606 (defalias 'helm-ff-properties-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset properties-action (helm-ff-properties . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 95324) nil])
607 (put 'helm-ff-properties-persistent 'helm-only t)
608 #@44 Delete current candidate without quitting.
609 (defalias 'helm-ff-persistent-delete #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset quick-delete (helm-ff-quick-delete . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 95699) nil])
610 (put 'helm-ff-persistent-delete 'helm-only t)
611 #@42 Check if FILE is `.' or `..'.
612
613 (fn FILE)
614 (defalias 'helm-ff-dot-file-p #[257 "\300!\301\235\207" [helm-basename ("." "..")] 3 (#$ . 96067)])
615 #@18 
616
617 (fn CANDIDATE)
618 (defalias 'helm-ff-kill-buffer-fname #[257 "\301!\302!\203\303!=\203\304\305!\202*\203'\306!\210\307\310\"\202*\307\311!\207" [helm-current-buffer get-file-buffer buffer-name get-buffer user-error "Can't kill `helm-current-buffer' without quitting session" kill-buffer message "Buffer `%s' killed" "No buffer to kill"] 6 (#$ . 96215)])
619 #@265 Find file CANDIDATE or kill it's buffer if it is visible.
620 Never kill `helm-current-buffer'.
621 Never kill buffer modified.
622 This is called normally on third hit of \<helm-map>\[helm-execute-persistent-action]
623 in `helm-find-files-persistent-action-if'.
624
625 (fn CANDIDATE)
626 (defalias 'helm-ff-kill-or-find-buffer-fname #[257 "\303!\304!\305!\306\203!\211\203!\307    !=\203!\310\311!\202d\2035\211\2035\312!\2035\313\314!\202d\203a\211\203a\315!\210\n\203U\316\317\320\"!\203U\321\n!\210\202Z\322    \"\210\313\323\"\202d\324!)\207" [helm--reading-passwd-or-string helm-current-buffer helm-persistent-action-display-window get-file-buffer buffer-name get-buffer-window t get-buffer user-error "Can't kill `helm-current-buffer' without quitting session" buffer-modified-p message "Can't kill modified buffer, please save it before" kill-buffer window-dedicated-p next-window 1 delete-window set-window-buffer "Buffer `%s' killed" find-file] 8 (#$ . 96590)])
627 #@55 Execute `helm-ff-kill-buffer-fname' without quitting.
628 (defalias 'helm-ff-run-kill-buffer-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset kill-buffer-fname helm-ff-kill-buffer-fname helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 97565) nil])
629 (put 'helm-ff-run-kill-buffer-persistent 'helm-only t)
630 #@13 
631
632 (fn FILE)
633 (defalias 'helm-ff-persistent-open-file-externally #[257 "\300\301!\210\302!\203\303!\207\304\305\306\307\"\"\207" [require helm-external helm-get-default-program-for-file helm-open-file-externally message "Please configure an external program for `*%s' file in `helm-external-programs-associations'" file-name-extension t] 6 (#$ . 97956)])
634 (defalias 'helm-ff-run-preview-file-externally #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset open-file-externally (helm-ff-persistent-open-file-externally . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil])
635 (put 'helm-ff-run-preview-file-externally 'helm-only t)
636 #@328 Return filename FNAME maybe prefixed with [?] or [@].
637 If FILE-OR-SYMLINKP is non--nil this mean we assume FNAME is an
638 existing filename or valid symlink and there is no need to test it.
639 NEW-FILE when non--nil mean FNAME is a non existing file and
640 return FNAME prefixed with [?].
641
642 (fn FNAME &optional FILE-OR-SYMLINKP NEW-FILE)
643 (defalias 'helm-ff-prefix-filename #[769 "\302\303\304\302\305\306\307##\302\303\304\302\310\306\307##\203\202?\311\"\204.    \2036\311    \"\2036\211\303Q\202?\205?\303Q\207" [helm-ff-url-regexp helm--url-regexp propertize " " display "[?]" face helm-ff-prefix "[@]" string-match] 11 (#$ . 98678)])
644 #@20 
645
646 (fn STR PATTERN)
647 (defalias 'helm-ff-score-candidate-for-pattern #[514 "\300\235\203\301\207\302\"\207" [("." "..") 200 helm-score-candidate-for-pattern] 5 (#$ . 99326)])
648 #@125 Sort function for `helm-source-find-files'.
649 Return candidates prefixed with basename of INPUT first.
650
651 (fn CANDIDATES INPUT)
652 (defalias 'helm-ff-sort-candidates-1 #[514 "\300!\203 \301\302\"\204\301\303\"\204\204\207@\211:\203&\211A\202'\211\304!?\205/\211\2038A\2029\305\306\307\"\310\311\312\313\314\315\f\"\316\"\317\320%\"\203YB\202Z\211\207" [file-directory-p string-match "/\\'" "\\`\\$" file-exists-p make-hash-table :test equal sort make-byte-code 514 "\302\303:\203\fA\202 !\303:\203A\202!\304\301\"\206*\305\300\"\301#\304\301\"\2069\305\300\"\301#U\203I\306!\306!W\202LV\207" vconcat vector [#[514 "\300\301!\"\207" [helm-ff-score-candidate-for-pattern helm-basename] 6 "\n\n(fn INPUT STR)"] helm-basename gethash puthash string-width] 11 "\n\n(fn S1 S2)"] 16 (#$ . 99510)])
653 #@133 Sort function for `helm-source-find-files'.
654 Return candidates prefixed with basename of `helm-input' first.
655
656 (fn CANDIDATES SOURCE)
657 (defalias 'helm-ff-sort-candidates #[514 "\301\"\207" [helm-input helm-ff-sort-candidates-1] 5 (#$ . 100364)])
658 #@13 
659
660 (fn FILE)
661 (defalias 'helm-ff-boring-file-p #[257 "\301\302\"?\205\f\301\"\207" [helm-ff--boring-regexp string-match "\\.$"] 4 (#$ . 100615)])
662 #@83 `filter-one-by-one' Transformer function for `helm-source-find-files'.
663
664 (fn FILE)
665 (defalias 'helm-ff-filter-candidate-one-by-one #[257 "\306!\307\205 \310!?\205\361    \n\307\311\312#)\266\203\204%\313\n!\203\265\307\f\203@\314!\211\262\204@\315!\211\262\206A\202A\316\317\320#\262\203T\321\322\323#\202\260\324\325\326#\203g\321\322\327#B\202\260\324\325\330#\203z\321\322\331#B\202\260\324\325\332#\203\215\321\322\333#B\202\260\324\325\334#\203\240\321\322\334#B\202\260\335\321\322\334#\211?\205\255\336#B\266\202\202\361\f\203\337\314!\211\262\204\337 \203\315\312 \"\204\337\3124\"\204\337\315!\206\340\202\340\337!\211@\307\316\317\320#\262\312\340\"\203\373\202\357;\203\341!\204\312\342\"\204\321\322\343#B\202\357\203.;\203.\321\322\344#B\202\357\345!\203@\321\322\323#B\202\357;\203_\321\346\321\322\333#\347\321\350!\322\351#Q#B\202\357\311=\203p\321\322\327#B\202\357\203\216\312\352\3538\354\355O\211\262\"\203\216\321\322\356#B\202\357\203\244\312\357\"\203\244\321\322\360#B\202\357\203\272\312\361\"\203\272\321\322\331#B\202\357\203\320\312\362\"\203\320\321\322\363#B\202\357\203\343\204\343\321\322\334#B\202\357\335\321\322\334#\307\336#B\266\204\207" [helm-ff-skip-boring-files helm-tramp-file-name-regexp helm-pattern inhibit-changing-match-data helm-ff-transformer-show-only-basename helm--url-regexp helm-basename nil helm-ff-boring-file-p t string-match helm-file-on-mounted-network-p helm-dir-is-dot helm-ff--get-host-from-tramp-invalid-fname replace-regexp-in-string "[[:cntrl:]]" "?" propertize face helm-ff-dotted-directory get-text-property 1 helm-ff-dir helm-ff-directory helm-ff-exe helm-ff-executable helm-ff-sym helm-ff-symlink helm-ff-file helm-ff-prefix-filename new-file file-attributes "file-error" helm-ff-valid-symlink-p "^\\.#" helm-ff-invalid-symlink helm-ff-dotted-symlink-directory helm-ff-dot-file-p display " -> " abbreviate-file-name helm-ff-truename "\\`[cp]" 8 0 4 helm-ff-pipe "\\`[s]" helm-ff-socket "x\\'" "s\\'" helm-ff-suid helm-ff-url-regexp] 16 (#$ . 100769)])
666 #@74 Action transformer for `helm-source-find-files'.
667
668 (fn ACTIONS CANDIDATE)
669 (defalias 'helm-find-files-action-transformer #[514 "r\304!\203 \206p\211q\210\305\306 \307 \")\310!\203$\311\312\313#\262\314\315\316!\"\203I\317!\320\235\204I\321!\203I\322\323!\203I\311\324\325#\202\345    \203\213    \326\327\314#)\266\203\204\213r\304!\203h\206kp\211q\210 )\330=\204\213\331\326\327\314#)\266\203\203\213\332\333\"\202\345\314\334 \"\203\233\311\335\336#\202\345\314\337\340 \211\203\250\211@\202\251\262\"\203\267\311\341\342#\202\345\314\343\"\203\314\321!\203\314\311\344\342#\202\345\345!\346\230\204\334\345!\347\230\203\344\311\350\313#\202\345\207" [helm-current-buffer helm--url-regexp inhibit-changing-match-data major-mode buffer-live-p buffer-substring-no-properties point-at-bol point-at-eol file-regular-p helm-append-at-nth (("Checksum File" . helm-ff-checksum)) 4 string-match "Trash/files/?\\'" helm-basedir helm-basename ("." "..") file-exists-p executable-find "trash" (("Restore file(s) from trash" . helm-restore-file-from-trash) ("Delete file(s) from trash" . helm-ff-trash-rm)) 1 nil t dired-mode ":\\([0-9]+:?\\)" append (("Find file to line number" . helm-ff-goto-linum)) image-file-name-regexp (("Rotate image right `M-r'" . helm-ff-rotate-image-right) ("Rotate image left `M-l'" . helm-ff-rotate-image-left)) 3 "\\.el$" helm-marked-candidates (("Byte compile lisp file(s) `M-B, C-u to load'" . helm-find-files-byte-compile) ("Load File(s) `M-L'" . helm-find-files-load-files)) 2 "\\.html?$" (("Browse url file" . browse-url-of-file)) file-name-extension "pdf" "PDF" (("Pdfgrep File(s)" . helm-ff-pdfgrep))] 10 (#$ . 102961)])
670 #@191 Execute a trash action FN on marked files.
671
672 Arg NAMES is a list of strings to pass to messages
673 e.g. '("delete" "deleting"), ARGS are other args to be passed to FN.
674
675 (fn FN NAMES &rest ARGS)
676 (defalias 'helm-ff-trash-action #[642 "\305 \306\307!\310\n\311=\203\312\202\n\306\211\306Crq\210\313\314\315\316\"!!\210)\317\320\321\322\323!\324\"\325$\216\326\327\330\"\240!r\317\320\331\322\323!\332\"\333$\216\334@\335\"\210\336\337\340\341\n@!G#!\203\234\342\343\341    A@!\"\210\306:\203\232@\262\3441\204\345\n\n#0\202\222\337\346A@\"B\262\306\262\210A\262\202l\266*\210-\266\211\203\343\347\350\351\352!r\211q\210\317\320\353\322\323!\354\"\333$\216\355\356\357 \"c\210\337\360@GG$c\210\361\362\363#\364\261\210\365 *\262\366\367$\202\356\342\370\341A@!G#\207" [helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-marked-candidates nil temp-buffer-window-setup t same below helm-format-columns-of-files helm-ff--count-and-collect-dups mapcar helm-basename make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s %s files from trash? " capitalize message "%s files from trash..." (error) apply "%s" display-warning helm generate-new-buffer " *temp*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] format-time-string "%Y-%m-%d %H:%M:%S\n" current-time "Failed to %s %s/%s files from trash\n" mapconcat identity "\n" "\n\f" buffer-string :error "*helm restore warnings*" "%s %s files from trash done"] 15 (#$ . 104673)])
677 #@263 Delete marked-files from a Trash directory.
678
679 The Trash directory should be a directory compliant with
680 <http://freedesktop.org/wiki/Specifications/trash-spec> and each file
681 should have its '*.trashinfo' correspondent file in Trash/info
682 directory.
683
684 (fn CANDIDATE)
685 (defalias 'helm-ff-trash-rm #[257 "\300\301\302\"\207" [helm-ff-trash-action helm-ff-trash-rm-1 ("delete" "deleting")] 4 (#$ . 106510)])
686 #@264 Restore marked-files from a Trash directory.
687
688 The Trash directory should be a directory compliant with
689 <http://freedesktop.org/wiki/Specifications/trash-spec> and each file
690 should have its '*.trashinfo' correspondent file in Trash/info
691 directory.
692
693 (fn CANDIDATE)
694 (defalias 'helm-restore-file-from-trash #[257 "\302!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\317\316$\210\320\321 \322\"*\262\323\324\325#)\207" [helm-ff-default-directory default-directory file-name-as-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 process-file "trash-list" nil t split-string buffer-string "\n" helm-ff-trash-action helm-restore-file-from-trash-1 ("restore" "restoring")] 8 (#$ . 106916)])
695 #@13 
696
697 (fn FILE)
698 (defalias 'helm-ff-trash-rm-1 #[257 "\300\301\"\302\303!\304R\305!\204\306\307\310\311\"\312\211$\210\305!\204*\306\313\310\311\"\312\211$\210\314!\210\314!\207" [helm-reduce-file-name 2 "info/" helm-basename ".trashinfo" file-exists-p cl--assertion-failed (file-exists-p file) format "No such file or directory `%s'" nil (file-exists-p info-file) delete-file] 7 (#$ . 107710)])
699 #@161 Restore FILE from a trash directory.
700 Arg TRASHED-FILES is the list of files in the trash directory obtained
701 with 'trash-list' command.
702
703 (fn FILE TRASHED-FILES)
704 (defalias 'helm-restore-file-from-trash-1 #[514 "\300\301\"\302\303!\304R\305\"\306!\203\307\310\311\312\"\313\211$\210\211\204)\307\314\315\313\211$\210\316\"\210\317!\207" [helm-reduce-file-name 2 "info/" helm-basename ".trashinfo" helm-ff--get-dest-file-from-trash file-exists-p cl--assertion-failed (not (file-exists-p dest-file)) format "File `%s' already exists" nil dest-file "No such file in trash" rename-file delete-file] 9 (#$ . 108119)])
705 #@27 
706
707 (fn TRASHED-FILES FILE)
708 (defalias 'helm-ff--get-dest-file-from-trash #[514 "\300\301\300:\2034@\262\302\303\304!!\305P\"\203)\306\307\310#\262\300\211\262\202*\301\2034A\262\202\207" [nil t string-match regexp-quote helm-basename "\\'" replace-regexp-in-string "\\`\\([0-9]\\{2,4\\}[-:][0-9]\\{2\\}[:-][0-9]\\{2\\} \\)\\{2\\}" ""] 10 (#$ . 108747)])
709 #@169 Find file CANDIDATE and maybe jump to line number found in fname at point.
710 line number should be added at end of fname preceded with ":".
711 e.g "foo:12".
712
713 (fn CANDIDATE)
714 (defalias 'helm-ff-goto-linum #[257 "r\301!\203 \206p\211q\210\302\303 \304 \"\305\306\"\205!\307\310\"\262)\311!\210\211\2059\211\312\230?\2059\313\314!\315\"\207" [helm-current-buffer buffer-live-p buffer-substring-no-properties point-at-bol point-at-eol string-match ":\\([0-9]+:?\\)" match-string 1 find-file "" helm-goto-line string-to-number t] 5 (#$ . 109124)])
715 #@68 Run `mml-attach-file' on `helm-marked-candidates'.
716
717 (fn CANDIDATE)
718 (defalias 'helm-ff-mail-attach-files #[257 "\300\301!\210\302\303\304\"\305\306\307\"\205p\310\204g\311 \310\211:\203<@\262rq\210\305\306\307\")\2035\312!B\262A\262\202\211\237\266\203\262\211\203a\313\314!\203a\211A\203Z\315\316\317\304$\202\\\211@\262\202g\320 \210p\262\321!\210\214~\210\212db\210\310:\203\217@\262\322\323!\206\206\324\"\210A\262\202t\310\266\202*\207" [require mml helm-marked-candidates :with-wildcard t derived-mode-p message-mode mail-mode nil buffer-list buffer-name y-or-n-p "Attach files to existing mail composition buffer? " helm-comp-read "Attach to buffer: " :nomark compose-mail switch-to-buffer mml-attach-file mm-default-file-encoding "application/octet-stream"] 10 (#$ . 109681)])
719 #@142 Rotate current image at NUM-ARG degrees.
720 This is a destructive operation on FILE made by external tool mogrify.
721
722 (fn FILE &optional NUM-ARG)
723 (defalias 'helm-ff-rotate-current-image-1 #[513 "\301!\262\302\303 \"\205=\304\305!\203:\306\307\310\206\311\312!#!\210\313!\203,\314!\210\315!\210\316\317!\210\320\321!!\207\322\323!\207" [image-dired-display-image-buffer file-truename string-match image-file-name-regexp executable-find "mogrify" shell-command format "mogrify -rotate %s %s" 90 shell-quote-argument buffer-live-p kill-buffer image-dired-display-image message nil display-buffer get-buffer error "mogrify not found"] 8 (#$ . 110510)])
724 #@88 Rotate image file CANDIDATE left.
725 This affect directly file CANDIDATE.
726
727 (fn CANDIDATE)
728 (defalias 'helm-ff-rotate-image-left #[257 "\300\301\"\207" [helm-ff-rotate-current-image-1 -90] 4 (#$ . 111175)])
729 #@89 Rotate image file CANDIDATE right.
730 This affect directly file CANDIDATE.
731
732 (fn CANDIDATE)
733 (defalias 'helm-ff-rotate-image-right #[257 "\300!\207" [helm-ff-rotate-current-image-1] 3 (#$ . 111384)])
734 #@42 Rotate image left without quitting helm.
735 (defalias 'helm-ff-rotate-left-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset image-action1 helm-ff-rotate-image-left helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 111586) nil])
736 (put 'helm-ff-rotate-left-persistent 'helm-only t)
737 #@43 Rotate image right without quitting helm.
738 (defalias 'helm-ff-rotate-right-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset image-action2 helm-ff-rotate-image-right helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 111953) nil])
739 (put 'helm-ff-rotate-right-persistent 'helm-only t)
740 #@90 Extract exif data from file CANDIDATE using `helm-ff-exif-data-program'.
741
742 (fn CANDIDATE)
743 (defalias 'helm-ff-exif-data #[257 "\203\302!\203\303\304\305    $!\207\304\306\"\207" [helm-ff-exif-data-program helm-ff-exif-data-program-args executable-find shell-command-to-string format "%s %s %s" "No program %s found to extract exif"] 7 (#$ . 112324)])
744 #@308 Open subtree CANDIDATE without quitting helm.
745 If CANDIDATE is not a directory expand CANDIDATE filename.
746 If CANDIDATE is alone, open file CANDIDATE filename.
747 That's mean:
748 First hit on C-j expand CANDIDATE second hit open file.
749 If a prefix arg is given or `helm-follow-mode' is on open file.
750
751 (fn CANDIDATE)
752 (defalias 'helm-find-files-persistent-action-if #[257 "\3062\250\307 \206\n\310 \311\312\313#)\266\203\314 r\nq\210\315ed\")\316\317\320\321\322!\323\"\324\325%\326\327 \"\210\204H\203H\330\331!\210\332\306\333\334!\"\210\335 \203i\313\f\"\203i\316\317\336\321\322\n\"\337\"\340\341%\342B\202\245\343!\203\213\344!\203\213\316\317\345\321\322\n\"\346\"\347\341%\342B\202\245\343!\203\246\316\317\350\321\322\n\"\351\"\352\341%\342B\202\245\344!\203\311 \204\311\204\311\316\317\353\321\322\n\"\354\"\340\341%\342B\202\245\355Y\203\353 \204\353\204\353\316\317\356\321\322\"\357\"\355\341%\342B\202\245\203\377\316\317\360\321\322\n!\361\"\362\341%\202\245@\211\205\"\363!\211\205 \313\364\365@!!\"\211\205\366    !\262\262\262\203;\316\317\367\321\322\n\"\370\"\340\341%\342B\202\245\371!\204p\372!\204p\373\374!\311\312\313#)\266\203\203p\316\317\367\321\322\n\"\375\"\340\341%\342B\202\245\371!\204\224\376!\204\224\316\317\377\321\322\n\"\201A\"\352\341%\342B\202\245\316\317\201B\321\322\n!\201C\"\355\341%\266\2050\207" [helm--temp-follow-flag inhibit-changing-match-data helm-buffer helm-ff-candidate-number-limit helm-tramp-file-name-regexp current-prefix-arg --cl-block-helm-find-files-persistent-action-if-- helm-follow-mode-p image-file-name-regexp nil t string-match helm-get-selection count-lines make-byte-code 257 "\301\302 \206\303 !r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\300?\205.\315 \210\316\305G\317$\210c*\207" vconcat vector [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 set-text-properties nil] 8 "\n\n(fn FNAME)" helm-attrset candidate-number-limit helm-follow-mode -1 throw message "Helm-follow-mode allowed only on images, disabling" helm-ff--invalid-tramp-name-p "\300\n\230\203\f\301\300\303P!\207\301\300!\207" [helm-pattern ":"] 4 "\n\n(fn CANDIDATE)" never-split file-directory-p file-symlink-p "\301\303\n\203\304\305\300!!\202\305\300!!!\207" [current-prefix-arg file-name-as-directory file-truename expand-file-name] 6 "\304\300!\305\230\203\n\n\301\306\307\300!!!\207" [helm-ff-default-directory helm-ff-last-expanded helm-basename ".." file-name-as-directory expand-file-name] 5 "\301\302\300!!\207" [file-truename] 3 "\303\301\300!\207" [helm-pattern ""] "\306\307!\210\310    \311\"\211\205)\312!r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324e\325\"*\262\205;\211\205;r\326 q\210\327\300\")\211\203q\312\330 !r\313\314\315\316\317!\331\"\321$\216\322@\323\"\210\n\203j\332\333\334\"!\203j\335\n!\210\202o\336 \"\210*\210\337\340    !!\203}\341    !\210\211?\205\301\342\f!\204\214\343\f!\210\344    !\210\345\346!\210\345K\313\314\347\316\317!\350\"\321$\216\345\351M\210\352\300!\210)\210\345\353!\210r    q\210\354\300! /\355\356\"\262)\207" [image-dired-display-image-buffer helm-persistent-action-display-window helm-current-buffer image-dired-dir helm-ff-default-directory require image-dired get-buffer-window visible internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord get-text-property original-file-name helm-buffer-get file-equal-p helm-window [internal--after-with-selected-window] window-dedicated-p next-window 1 delete-window set-window-buffer buffer-live-p get-buffer kill-buffer file-directory-p make-directory switch-to-buffer message "Resizing image..." "\301\300M\207" [message] ignore image-dired-display-image "Resizing image done" helm-ff-exif-data image-dired-update-property help-echo default-directory] 11 file-name-directory regexp-quote expand-file-name helm-ff-file-compressed-p "\301\300\302P!\207" ["#/"] file-exists-p file-remote-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+" helm-basename ["/"] helm-basedir "\301\303\300\n\"!\207" helm-ff-avfs-directory [default-directory expand-file-name] "    \300!\207" [helm-ff-kill-or-find-buffer-fname-fn]] 13 (#$ . 112686)])
753 #@34 
754
755 (fn DIRECTORY &optional INPUT)
756 (defalias 'helm-find-files-recursive-dirs #[513 "\303\304\"\203\305\306\307\310$\262\311\312\313!#\210\307\314\315\316\317\320\321\322    \307\310\303#)\266\203\2034\2028\323!\324\323    !\325\326\327\330\331\332\333\334\335\336\337\340\341\342!\343BBF\344BBBBBBBE\345\326\346\347\334EEE\350\351\352\353&\f\354\355\356\310\357\360\361\307\362\363&\f)\207" [helm-actions-inherit-frame-settings helm-locate-recursive-dirs-command inhibit-changing-match-data string-match "\\(\\s-+\\|[.]\\)\\{2\\}" replace-match "" nil t message "Recursively searching %s from %s ..." abbreviate-file-name helm :sources helm-make-source "Recursive directories" helm-locate-subdirs-source :basedir "\\`es" shell-quote-argument :subdir :candidate-transformer lambda (candidates) cl-loop for c in candidates when and (file-directory-p c) (null (helm-boring-directory-p c helm-boring-file-regexp-list)) string-match-p regexp-quote ((helm-basename c)) (collect (propertize c 'face 'helm-ff-dirs)) helm-w32-pathname-transformer (candidates) helm-ff-sort-candidates-1 :persistent-action ignore :action #[257 "\300\301\302!!!\207" [helm-set-pattern file-name-as-directory expand-file-name] 5 "\n\n(fn C)"] :candidate-number-limit 999999 :allow-nest :resume noresume :ff-transformer-show-only-basename :buffer "*helm recursive dirs*"] 26 (#$ . 117153)])
757 #@75 Launch a recursive search in `helm-ff-default-directory'.
758
759 (fn CANDIDATE)
760 (defalias 'helm-ff-recursive-dirs #[257 "\203\n\302!\206     \303\304 \305\306 !\")\207" [helm-ff-default-directory default-directory file-name-as-directory helm-find-files-recursive-dirs helm-current-directory helm-basename helm-get-selection] 5 (#$ . 118536)])
761 #@64 Whether CANDIDATE is a compressed file or not.
762
763 (fn CANDIDATE)
764 (defalias 'helm-ff-file-compressed-p #[257 "\301!\235\207" [helm-ff-file-compressed-list file-name-extension] 3 (#$ . 118881)])
765 #@30 Try to guess fname at point.
766 (defalias 'helm-ff--fname-at-point #[0 "`\300\301!\211\203 \211@\202`\262\212\302\303\304#\204\305`\")\207" [bounds-of-thing-at-point filename re-search-backward "\\(~\\|/\\|[[:lower:][:upper:]]:/\\)" t buffer-substring-no-properties] 6 (#$ . 119080)])
767 #@376 Insert file name completion at point.
768
769 When completing i.e. there is already something at point, insert
770 filename abbreviated, relative or full according to initial input,
771 whereas when inserting i.e. there is nothing at point, insert filename
772 full, abbreviated or relative according to prefix arg, respectively no
773 prefix arg, one prefix arg or two prefix arg.
774
775 (fn CANDIDATE)
776 (defalias 'helm-insert-file-name-completion-at-point #[257 "r\305!\203 \206p\211q\210    \203\306\307\310 \"\202\273\311\312\313\"\211@`\314 \211;\205-\315!\211\2038`GZ\2029`;\205_\316\317\320!P\321\313\322#)\266\203\206_\323\321\313\322#)\266\203r\305!\203j\206mp\211q\210 \f>\203y\324\202z\325)\211\326        %!A\203\222\327\202\223\330\331 A\321\211:\203\261@\262\326!B\262A\262\202\232\211\237\266\203\327#\261\266\210)\207" [helm-current-buffer buffer-read-only inhibit-changing-match-data major-mode helm-modes-using-escaped-strings buffer-live-p error "Error: Buffer `%s' is read-only" buffer-name helm-marked-candidates :with-wildcard t helm-ff--fname-at-point substring-no-properties "^" getenv "HOME" nil string-match "\\`\\(/\\|[[:lower:][:upper:]]:/\\)" shell-quote-argument identity helm-ff--insert-fname " " "" mapconcat] 18 (#$ . 119377)])
777 #@52 
778
779 (fn CANDIDATE &optional BEG END FULL-PATH GUESS)
780 (defalias 'helm-ff--insert-fname #[1281 "\301\302G\303$\210\203J\203J\211\203J\211\304\230\204J\305\306\"\204)\307!\203J\2033\310!\202E\311\312\"\313\230\203B\314!\202E\315!|\210\207\316\267\202X\314!\207\315!\207\207" [helm-current-prefix-arg set-text-properties 0 nil "" string-match "^\\(~/\\|/\\|[[:lower:][:upper:]]:/\\)" file-exists-p expand-file-name match-string 1 "~/" abbreviate-file-name file-relative-name #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 80 (16) 84))] 10 (#$ . 120663)])
781 #@159 The `helm-find-files' history.
782 Show the first `helm-ff-history-max-length' elements of
783 `helm-ff-history' in an `helm-comp-read'.
784
785 (fn ARG &key (COMP-READ t))
786 (defalias 'helm-find-files-history #[385 "\303\304\"\206\305A@\211\2035\211@\306>\203\211AA\262\202 \307>A@\203,\310\262\202 \311\312@\"\210\202 \210\205?\313\314\315#\211\205\205\211G    Y\203R\316\317    #\202S\211\203\204\320\321\322\323\324\325 \326\327\330\331\332\333\334\335\336\337!\340\"\341\342%&\f\343\344\345\346\347\n\350\331&\262\202\205\262\207" [helm-ff-history helm-ff-history-max-length helm-ff-history-buffer-name plist-member :comp-read (nil t) (:comp-read :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:comp-read)" helm-fast-remove-dups :test equal cl-subseq 0 helm-make-source "Helm Find Files History" helm-source-sync :candidates :fuzzy-match helm-ff-fuzzy-matching-p :persistent-action ignore :migemo t :action make-byte-code 257 "\300\203\n\301\302!!\207\207" vconcat vector [helm-set-pattern expand-file-name] 4 "\n\n(fn CANDIDATE)" helm :sources :resume noresume :buffer :allow-nest] 22 (#$ . 121295) "p"])
787 (put 'helm-find-files-history 'helm-only t)
788 #@147 Find FNAME filename with PRESELECT filename preselected.
789
790 Use it for non--interactive calls of `helm-find-files'.
791
792 (fn FNAME &optional PRESELECT)
793 (defalias 'helm-find-files-1 #[513 "\306\307!\210\310\311\312#)\266\203\204\313\314!!\262\315\n!\203%\316\n!\210\310\f\2050\317\320 !?\321\322!\211\205A\323!\206A\313!\324\325\310\"\210 \204O\326\327\330\"\331\332 \"\203\\\333\332\334 #\210\335 \210\336\337\340\"\210\341\216\342\343\305\344\345-\346\n\347.\350\f\351\352\353\354&*\207" [helm-ff-url-regexp inhibit-changing-match-data helm-action-buffer helm-find-files--toggle-bookmark helm-ff-auto-update-initial-value helm-source-find-files require tramp nil t string-match expand-file-name substitute-in-file-name get-buffer kill-buffer minibuffer-window-active-p minibuffer-window thing-at-point filename file-remote-p helm-set-local-variable helm-follow-mode-persistent helm-make-source "Find Files" helm-source-ffiles helm-attr follow helm-attrset -1 helm-ff-setup-update-hook add-hook helm-resume-after-hook helm-ff--update-resume-after-hook #[0 "\301\302\303\"\210\302\211\207" [helm-ff-default-directory helm-ff--update-resume-after-hook nil t] 3] helm :sources :input :case-fold-search :preselect :ff-transformer-show-only-basename :default :prompt "Find files or url: " :buffer "*helm find files*" helm-file-name-case-fold-search helm-ff-transformer-show-only-basename] 21 (#$ . 122503)])
794 #@176 Meant to be used in `helm-resume-after-hook'.
795 When NOHOOK is non nil run inconditionally, otherwise only when source
796 is helm-source-find-files.
797
798 (fn SOURCES &optional NOHOOK)
799 (defalias 'helm-ff--update-resume-after-hook #[513 "\211\204\303\304@\"\305\230\205\306\307\310\311\312\313\300\301    \257F\n#\207" [helm-ff-default-directory helm-ff-last-expanded helm-source-find-files assoc-default name "Find Files" helm-attrset resume lambda nil (helm-ff-setup-update-hook) setq] 12 (#$ . 123936)])
800 (defalias 'helm-ff-clean-initial-input #[0 "\301 p\302\303\304\305\306\"\307\"\310$\216\311\312\"\210\313 )\207" [helm-initial-frame 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 helm-clean-up-minibuffer] 9])
801 (defalias 'helm-ff-setup-update-hook #[0 "\300\211\205\211@\301\302\"\210A\266\202\202\207" [(helm-ff-clean-initial-input helm-ff-move-to-first-real-candidate helm-ff-update-when-only-one-matched helm-ff-auto-expand-to-home-or-root) add-hook helm-after-update-hook] 5])
802 (defalias 'helm-find-files-cleanup #[0 "\300\301\302\"\207" [mapc #[257 "\300\301\"\207" [remove-hook helm-after-update-hook] 4 "\n\n(fn HOOK)"] (helm-ff-auto-expand-to-home-or-root helm-ff-update-when-only-one-matched helm-ff-move-to-first-real-candidate helm-ff-clean-initial-input)] 3])
803 #@67 Toggle helm-bookmark for `helm-find-files' and `helm-find-files.'
804 (defalias 'helm-find-files-toggle-to-bookmark #[0 "\302\303!\210\203,r\304 q\210    ?\211\203\305\306\307\"\210\310\311!\202*\305\312\307\"\210\310\313!\210\314 )\207\315\316!\207" [helm-alive-p helm-find-files--toggle-bookmark require helm-bookmark helm-buffer-get helm-set-pattern "" t helm-set-sources (helm-source-bookmark-helm-find-files) "./" (helm-source-find-files) helm--maybe-update-keymap error "Running helm command outside of context"] 3 (#$ . 125359) nil])
805 (put 'helm-find-files-toggle-to-bookmark 'helm-only t)
806 #@75 Return INPUT if present, otherwise try to guess it.
807
808 (fn &optional INPUT)
809 (defalias 'helm-find-files-initial-input #[256 "\301=?\205\"\211\203\302!\203\211\206\"\303!\206\"\304\305 \306\307!\"\207" [major-mode image-mode file-remote-p expand-file-name helm-find-files-input helm-ffap-guesser thing-at-point filename] 5 (#$ . 125960)])
810 #@64 Same as `ffap-guesser' but without gopher and machine support.
811 (defalias 'helm-ffap-guesser #[0 "\306\307!\210\205        \n\f\310=\203B\212\311 )\212\312\313!)\205(\211\205({\314\235\211\2037\315\316 !!@P\202;\317\320\313\"\262\266\202\202}\321 \205I\322 \321 \205P\323 \205\\\211\205\\\324\"\203l \203l\325\326 !\206n\327 \203z\211\203z\202{\211\266\204*\207" [helm-ff-guess-ffap-filenames ffap-alist helm--url-regexp ffap-url-regexp major-mode dired-directory require ffap dired-mode dired-move-to-filename dired-move-to-end-of-filename t ("." "..") file-name-as-directory expand-file-name dired-get-filename no-dir use-region-p region-beginning region-end buffer-substring-no-properties ffap-fixup-url ffap-url-at-point ffap-file-at-point helm-ff-guess-ffap-urls] 6 (#$ . 126311)])
812 #@82 Try to guess a default input for `helm-find-files'.
813
814 (fn FILE-AT-PT THING-AT-PT)
815 (defalias 'helm-find-files-input #[514 "\303\203\f\304!\206\211\205\304!\305 \205!    \205!\306    \"\n\205'\307 \310 \205W\311\230?\205W?\205W\312!\205W\205W\311\230?\205W\312\313\314\"!!\206\235\206\235\211\203}\205\235\315!\316\235\204x\314!\202\235\202\235\203\210\317!\202\235\205\235?\205\235\312!\205\235\314!)\207" [non-essential helm--url-regexp helm-ff-search-library-in-sexp t file-remote-p helm-current-directory string-match helm-find-library-at-point helm-ff-find-url-at-point "" file-exists-p file-name-directory expand-file-name helm-basename ("." "..") helm-html-decode-entities-string] 12 (#$ . 127129)])
816 #@55 Try to find link to an url in text-property at point.
817 (defalias 'helm-ff-find-url-at-point #[0 "\301`\302\"\303`!\211\205\304\303`!@\302\"\301`\305\"\301`\306\";\2030\307\310\"\2030\311\312\313\211$\262F\314\313\314:\203c@\262;\205R\205R\307\"\205R\211\262?\211\262\203cA\262\2028\266\203\207" [helm--url-regexp get-text-property help-echo overlays-at overlay-get w3m-href-anchor nt-link string-match "^LINK: " replace-match "" t nil] 12 (#$ . 127898)])
818 #@87 Try to find library path at point.
819 Find inside `require' and `declare-function' sexp.
820 (defalias 'helm-find-library-at-point #[0 "\301\302!\210\212\303\304\305 \306#)\212\307\310\311 \306#)\205\"\211\205\"\312TS\"\3131k\211\203C\314\315\"\203C\316\317\320\321\322\323\324\"!A@#!\202g\211\203f\325\326\306\314#)\266\203\203f\316\317\327\321\322!AA@#!\202g\3260\202m\210\326\207" [inhibit-changing-match-data require find-func search-backward "(" point-at-bol t search-forward ")" point-at-eol buffer-substring-no-properties (error) string-match "require '.+[^)]" find-library-name replace-regexp-in-string "'\\|)\\|(" "" split-string match-string 0 "^declare-function" nil "\"\\|ext:"] 11 (#$ . 128390)])
821 (defalias 'helm-ff--valid-default-directory #[0 "r\302!\203 \206p\211q\210\303 \304\211\305\304:\203E@\262rq\210    )\262\306!@\305=\203:\262\304\211\262\202;\305\203EA\262\202\266\204)\207" [helm-current-buffer default-directory buffer-live-p buffer-list nil t file-attributes] 7])
822 #@314 Execute ACTION on FILES to CANDIDATE.
823 Where ACTION is a symbol that can be one of:
824 'copy, 'rename, 'symlink,'relsymlink, 'hardlink or 'backup.
825 Argument FOLLOW when non--nil specify to follow FILES to destination for the actions
826 copy and rename.
827
828 (fn CANDIDATE &key ACTION FOLLOW (FILES (dired-get-marked-files)))
829 (defalias 'helm-dired-action #[385 "\306\307\"A@\306\310\"A@\306\311\"\206\312\313 DA@\211\203D\211@\314>\203-\211AA\262\202\315>A@\203;\312\262\202\316\317@\"\210\202\210\320\321!\210\320\322!\210\323!\203W\324!\210\325 \326\267\202w\327\202x\330\202x\331\202x\332\202x\333\202x\334\202x\312\335\336\"\203\203    \202\241\337\340\"\203\216\n\202\241\337\341\"\203\231 \202\241\337\342\"\205\241\fG\343U\205\264\344@!\205\264\344!?\345\305!\203\302 \203\302\343\202\303\346@\203\325\347\305!\203\325\305\346!\210A\203\351\344\n!\204\351\316\350    \f#\210\351\352\353\354\355!\356\"\357$\216\360\361\n!\344!\203\351\362\363\354\355!\364\"\365\366%\202!\351\362\367\354\355!\370\"\357\366%%\210)\371\344 !\2035\372 !\2029\373 !!ABA\205\266\374>?\205\266\323!?\205\266\375\n!\376\216\377\f#B\201E\201F\201G\"\210\201F\201HBCBC\201I\201H\201F\"\210\203\251\201J=\203\251\201K\373!D\203\244\201L!\202\245\"\202\263\201K\371\372 !!!)\262)\266\205\207" [dired-log-buffer dired-keep-marker-copy dired-keep-marker-symlink dired-keep-marker-relsymlink dired-keep-marker-hardlink dired-async-mode plist-member :action :follow :files nil dired-get-marked-files (:action :follow :files :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:action :follow :files)" require dired-async dired-x get-buffer kill-buffer helm-ff--valid-default-directory #s(hash-table size 6 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 95 rename 99 symlink 103 relsymlink 107 hardlink 111 backup 115)) dired-copy-file dired-rename-file make-symbolic-link dired-make-relative-symlink dired-hardlink backup-file memql (copy rename backup) eql symlink relsymlink hardlink 1 file-directory-p boundp -1 fboundp "%s: target `%s' is not a directory" make-byte-code 0 "\301\302!\205    \302\300!\207" vconcat vector [fboundp dired-async-mode] 2 dired-create-files symbol-name 257 "\301\302!\300\"\207" [expand-file-name file-name-nondirectory] 4 "\n\n(fn FROM)" "\300\207" [] file-name-as-directory expand-file-name file-name-directory (symlink relsymlink hardlink) directory-file-name #[0 "\301\211\207" [helm-ff-cand-to-mark nil] 2] helm-get-dest-fnames-from-list default-directory helm-ff-history helm-ff-cand-to-mark helm--temp-hooks helm-ff-transformer-show-only-basename defalias #1=#:helm--hook40 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-ff-maybe-mark-candidates] 1] helm-after-update-hook add-hook rename helm-find-files-1 helm-basename] 20 (#$ . 129425)])
830 #@187 Transform filenames of FLIST to abs of DEST-CAND.
831 If RENAME-DIR-FLAG is non--nil collect the `directory-file-name' of transformed
832 members of FLIST.
833
834 (fn FLIST DEST-CAND RENAME-DIR-FLAG)
835 (defalias 'helm-get-dest-fnames-from-list #[771 "\300!\301\211\211\211:\203H@\262\302!\262\203\"\303!\2023\304!\2032\305!P\2023\262\306!\203A\211C\244\262A\262\202\307\310\"\207" [expand-file-name nil helm-basename directory-file-name file-directory-p file-name-as-directory file-exists-p sort string<] 12 (#$ . 132422)])
836 #@142 Mark all candidates of list `helm-ff-cand-to-mark'.
837 This is used when copying/renaming/symlinking etc... and
838 following files to destination.
839 (defalias 'helm-ff-maybe-mark-candidates #[0 "\302\303\304 \"\302\303\"\230\205R    \205R\305\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210    \203G    @\320 \230\203A\321 \210\322 \210    A\211\202)\322 \210\202(\323 ?\205O\324 *\262\207" [helm-source-find-files helm-ff-cand-to-mark assoc-default name helm-get-current-source 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-get-selection helm-make-visible-mark helm-next-line helm-this-visible-mark helm-prev-visible-mark] 8 (#$ . 132969)])
840 #@74 Returns a list of buffer names corresponding to FILENAME.
841
842 (fn FILENAME)
843 (defalias 'helm-file-buffers #[257 "\300!\301 \302\211\211:\203.@\262\303!\262\203'\230\203'\304!B\262A\262\202\211\237\207" [expand-file-name buffer-list nil buffer-file-name buffer-name] 8 (#$ . 133740)])
844 #@91 Decide to trash or delete FILE.
845 Returns non-nil when FILE needs to be trashed.
846
847 (fn FILE)
848 (defalias 'helm-ff--delete-by-moving-to-trash #[257 "\304!\203    \204\n\204\211\203 \2063\211?\2063?\2053    \204)\n\2053\211\2031 \2063\211?\207" [delete-by-moving-to-trash helm-current-prefix-arg current-prefix-arg helm-trash-remote-files file-remote-p] 3 (#$ . 134045)])
849 #@138 Delete file CANDIDATE without quitting.
850
851 When a prefix arg is given, meaning of `delete-by-moving-to-trash' is
852 inversed.
853
854 (fn CANDIDATE)
855 (defalias 'helm-ff-quick-delete #[257 "\302\303 !r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315 \316\216\317@!\320:\203p@\262\321\322\323\203=\324!\204=\325!\202>!P!\210\326\327\330\203M\331\202N\332\333!#!\203i\334    \335$\210\336 \210\337\320!\210\340!\210A\262\202!\320\266\203)\262*\207" [helm-ff-transformer-show-only-basename helm-ff-signal-error-on-dot-files 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-marked-candidates #[0 "\303\211\304\305 \306\307\n\203\310!\204\311!\202!P\262!\207" [helm-marked-candidates helm-visible-mark-overlays helm-ff-transformer-show-only-basename nil helm-force-update helm-get-selection "^" regexp-quote helm-ff-dot-file-p helm-basename] 7] helm-ff--delete-by-moving-to-trash nil helm-preselect "^" regexp-quote helm-ff-dot-file-p helm-basename y-or-n-p format "Really %s file `%s'? " "Trash" "Delete" abbreviate-file-name helm-delete-file synchro helm-delete-current-selection message helm--remove-marked-and-update-mode-line] 12 (#$ . 134429)])
856 #@608 Delete FILE after querying the user.
857
858 When a prefix arg is given, meaning of `delete-by-moving-to-trash' is
859 inversed.
860
861 Return error when ERROR-IF-DOT-FILE-P is non nil and user tries to
862 delete a dotted file i.e. "." or "..".
863
864 Ask user when directory are not empty to allow recursive deletion
865 unless `helm-ff-allow-recursive-deletes' is non nil.
866 When user is asked and reply with "!" don't ask for remaining
867 directories.
868
869 Ask to kill buffers associated with that file, too.
870
871 When TRASH is non nil, trash FILE even if `delete-by-moving-to-trash'
872 is nil.
873
874 (fn FILE &optional ERROR-IF-DOT-FILE-P SYNCHRO TRASH)
875 (defalias 'helm-delete-file #[1025 "\304\305!\210\3062L\203\307!\203\310\311!\210\312!\313\314!\206&\315!@\313=\203\316\313\n#\203\203\\ \204R\211\204R\317\320\321\322 !\"!\203'\323\324#\210\202' \204d\211\203n\323\324#\210\202'\325\326\320\327\322\f!\"\330\"\211\232\204\220\313=\204\220<\203\232\211\235\203\232\323\n\324#\210\202 \331\211\232\204\263\313=\204\263<\203\300\211\235\203\300\313\323\f\324#\210\202    \332\211\232\204\331\313=\204\331<\203\341\211\235\203\341\333\306\334\"\210\202\335\211\232\204\372\313=\204\372<\203\211\235\203\333\336\337\340!\210\341\342!\"\210\266\266\266\266\202'@\313=\203!\323\343#\210\202'\344\"\210\205H\211\205F\211@\317\320\345\"!\203?\346!\210A\266\202\202,\262*\266\2040\207" [delete-by-moving-to-trash helm--reading-passwd-or-string dired-re-no-dot helm-ff-allow-recursive-deletes require dired --cl-block-nil-- helm-ff-dot-file-p error "Error: Cannot operate on `.' or `..'" helm-file-buffers t file-attributes helm-ff--delete-by-moving-to-trash directory-files y-or-n-p format "Recursive delete of `%s'? " abbreviate-file-name delete-directory recursive "y" helm-read-answer "Recursive delete of `%s'? [y,n,!,q]" ("y" "n" "!" "q") "!" "n" throw skip "q" helm-abort-delete-file message "Abort file deletion" sleep-for 1 nil delete-file "Kill buffer %s, too? " kill-buffer] 20 (#$ . 135730)])
876 #@140 Delete marked files with `helm-delete-file'.
877
878 When a prefix arg is given, meaning of `delete-by-moving-to-trash' is
879 inversed.
880
881 (fn IGNORE)
882 (defalias 'helm-delete-marked-files #[257 "\306\307\310\"\311\312@!\211\203\313\202\314\315    !\310 \316=\203\"\317\202# \320\211\320Crq\210\321\322!!\210)\323\311\324\325\326!\327\"\330$\216\331\332\333\"\240!r\323\311\334\325\326!\335\"\336$\216\337@\340\"\210\341\342\343 G#!\204p\344\345!\202\313\3462\273\323\311\347\325\326!\350\"\336$\216\211\205\267\211@\351\311G\320$\210\3522\320 $\211\353=\203\252\344\354!\210\355\356!\210\202\257    T\262\n\210A\266\202\202\203\262)0\210\344\357\203\311\360\202\312\361#*\262-\266\202\207" [helm-ff-allow-recursive-deletes helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-marked-candidates :with-wildcard t 0 helm-ff--delete-by-moving-to-trash "Trash" "Delete" temp-buffer-window-setup same below nil helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s *%s File(s)" message "(No deletions performed)" helm-abort-delete-file "\300\211\207" [helm-ff-allow-recursive-deletes] set-text-properties helm-delete-file skip "Directory is not empty, skipping" sleep-for 1 "%s File(s) %s" "trashed" "deleted" helm-ff-signal-error-on-dot-files] 17 (#$ . 137798)])
883 #@73 The file use to communicate with emacs child when deleting files async.
884 (defvar helm-ff-delete-log-file (expand-file-name "helm-delete-file.log" user-emacs-directory) (#$ . 139502))
885 (defvar helm-ff--trash-flag nil)
886 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable helm-ff--delete-async-modeline-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Ff--Delete-Async-Modeline mode is enabled.\nSee the `helm-ff--delete-async-modeline-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-ff--delete-async-modeline-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group dired-async :type boolean] 12)
887 #@65 Notify mode-line that an async process run.
888
889 (fn &optional ARG)
890 (defalias 'helm-ff--delete-async-modeline-mode #[256 "\303 \304\300\305=\203\306\300!?\202\307!\310V\"\210\204$\311\312 \210)\313\314\315\306\300!\2030\316\2021\317\"\210\320\321!\203[\322\300!\210\303 \203I\211\303 \232\203[\323\324\325\306\300!\203V\326\202W\327#\266\210\330 \210\306\300!\207" [helm-ff--delete-async-modeline-mode visible-bell helm-ff--trash-flag current-message set-default toggle default-value prefix-numeric-value 0 t ding nil run-hooks helm-ff--delete-async-modeline-mode-hook helm-ff--delete-async-modeline-mode-on-hook helm-ff--delete-async-modeline-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Ff--Delete-Async-Modeline mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 140338) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
891 (defvar helm-ff--delete-async-modeline-mode-hook nil)
892 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [helm-ff--delete-async-modeline-mode-map helm-ff--delete-async-modeline-mode-hook variable-documentation put "Hook run after entering or leaving `helm-ff--delete-async-modeline-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-ff--delete-async-modeline-mode (:eval (propertize (format " %s file(s) async ..." (if helm-ff--trash-flag "Trashing" "Deleting")) 'face 'helm-delete-async-message)) boundp nil] 6)
893 #@74 Notify end of async operation in `mode-line'.
894
895 (fn TEXT FACE &rest ARGS)
896 (defalias 'helm-delete-async-mode-line-message #[642 "\301\302!\210\303\304\203\305\306#\202\307#P\310 \210\311\312!\210\310 )\207" [mode-line-format message nil " " propertize apply format face force-mode-line-update sit-for 3] 9 (#$ . 141897)])
897 #@313 Same as `helm-delete-marked-files' but async.
898
899 When a prefix arg is given, meaning of `delete-by-moving-to-trash' is
900 inversed.
901
902 This function is not using `helm-delete-file' and BTW not asking user
903 for recursive deletion of directory, be warned that directories are
904 always deleted with no warnings.
905
906 (fn IGNORE)
907 (defalias 'helm-delete-marked-files-async #[257 "\306\307\310\"\311@!\211\203\312\202\313\314\211\211:\2035@\262\315!\262\203.\316!\244\262A\262\202\211\237\266\204\317\320\321\322\323#\324\"\325\326%\327\330\n!\310\f\331=\203]\332\202^\f\314\211@\314Crq\210\333\334!!\210)\317\335\336\322\323!\337\"\340$\216\341\342\343\"\240!r\317\335\344\322\323!\345\"\346$\216\347@\350\"\210\351\352\353 G#!\204\254\354\355!\202\364\356\357\314\360\361 E\362\363\364\365\366D\367BB\370\371\372\373\374\365\375F\376BB\310\377\365E\201BBBE\201C\201DA\201EBBDFEEF\"\210\201F\201G!*\262-\266\202)\207" [async-quiet-switch helm-ff--trash-flag helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-marked-candidates :with-wildcard t helm-ff--delete-by-moving-to-trash "Trash" "Delete" nil helm-file-buffers reverse make-byte-code 257 "\305\306!\210\307 !\2036\310\311\312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323 !\210\324 *\262\325\326$\210\327\330\326!!\210\331 !\210\302\203Y\302\211\203X\211@\332\333\334\335\"!\203P\336!\210)A\266\202\202;\210\337\340\341\314\315\342\317\320\300\301\n#\343\"\344$#\207" vconcat vector [helm-ff-delete-log-file last-nonmenu-event helm-ff--delete-async-modeline-mode -1 file-exists-p display-warning helm generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string :error "*helm delete files*" fit-window-to-buffer get-buffer-window delete-file t y-or-n-p format "Kill buffer %s, too? " kill-buffer run-with-timer 0.1 nil "\303\304\305\301\203 \306\202\f\307\302\300G%\207" [helm-delete-async-mode-line-message "%s (%s/%s) file(s) async done" helm-delete-async-message "Trashing" "Deleting"] 6] 12 "\n\n(fn RESULT)" "-q" temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups 0 "\301\302\300\242\"\207" [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s *%s File(s)" message "(No deletions performed)" async-start lambda setq delete-by-moving-to-trash let ((result 0)) dolist file quote (result) condition-case err cond (eq (nth 0 (file-attributes file)) t) delete-directory 'recursive ((setq result (1+ result))) delete-file helm-reuse-last-window-split-state helm-ff-delete-log-file ((setq result (1+ result))) error with-temp-file ((insert (format-time-string "%x:%H:%M:%S\n")) (insert (format "%s:%s\n\f" (car err) (mapconcat 'identity (cdr err) " ")))) helm-ff--delete-async-modeline-mode 1] 26 (#$ . 142235)])
908 #@239 Open file CANDIDATE or open helm marked files in separate windows.
909 Called with one prefix arg open files in separate windows in a
910 vertical split.
911 Called with two prefix arg open files in background without selecting them.
912
913 (fn CANDIDATE)
914 (defalias 'helm-find-file-or-marked #[257 "\306\307\310\"\205\f\311\"    \312\310A\203- \313\232\203$\314\315\"\202x\316\314\315\"!\202x\211?\2055\317!\211\203G\320!\203G\321\322!!\202v\203Q\323!\202v\324!\204e\311\325\"\203e\326\327\"\202v\211\203s\326!\210\321!\202v\321!\262+\207" [helm--url-regexp helm-ff-newfile-prompt-p helm--reading-passwd-or-string find-file-wildcards ffap-newfile-prompt helm-current-prefix-arg helm-marked-candidates :with-wildcard t string-match nil (16) mapcar find-file-noselect helm-window-show-buffers helm-basedir file-directory-p find-file substitute-in-file-name find-file-at-point file-exists-p "/$" helm-ff--mkdir helm-ff] 7 (#$ . 145381)])
915 #@30 
916
917 (fn DIR &optional HELM-FF)
918 (defalias 'helm-ff--mkdir #[513 "\203\303\304\305\306\307!!\"!\205D\310!\311!\203%\312\313\314!\"\210\202*\315\316\"\210\210\211\2039\317\307!!\211\nB\211\203C\320!\206D\321\207" [confirm-nonexistent-file-or-buffer helm-ff-default-directory helm-ff-history y-or-n-p format "Create directory `%s'? " abbreviate-file-name expand-file-name directory-file-name file-exists-p error "Mkdir: Unable to create directory `%s': file exists." helm-basename make-directory parent file-name-as-directory helm-find-files-1 t] 9 (#$ . 146338)])
919 #@125 Add action to load the file CANDIDATE if it is an emacs lisp
920 file.  Else return ACTIONS unmodified.
921
922 (fn ACTIONS CANDIDATE)
923 (defalias 'helm-transform-file-load-el #[514 "\300!\301\235\203 \302\303\"\207\207" [file-name-extension ("el" "elc") append (("Load Emacs Lisp File" . load-file))] 5 (#$ . 146923)])
924 #@129 Add an action to browse the file CANDIDATE if it is a html file or URL.
925 Else return ACTIONS unmodified.
926
927 (fn ACTIONS CANDIDATE)
928 (defalias 'helm-transform-file-browse-url #[514 "\300\301\302\"\203\211B\202\301\303\"\203\304C\"\202\207" [("Browse with Browser" . browse-url) string-match "^http\\|^ftp" "\\.html?$" append] 6 (#$ . 147241)])
929 #@145 Returns non-nil when FILE is part of a mounted remote directory.
930
931 This function is checking `helm-mounted-network-directories' list.
932
933 (fn FILE)
934 (defalias 'helm-file-on-mounted-network-p #[257 "\205(\301\302\301:\203&@\262\303\"\211\262?\211\262\203&A\262\202\266\203\207" [helm-mounted-network-directories nil t file-in-directory-p] 8 (#$ . 147601)])
935 #@18 
936
937 (fn CANDIDATE)
938 (defalias 'helm-ff-cache-add-file #[257 "\300\301!\210\302\303\304\"\305\306\"\207" [require filecache helm-marked-candidates :with-wildcard t mapc file-cache-add-file] 5 (#$ . 147974)])
939 #@49 Remove FILE from `file-cache-alist'.
940
941 (fn FILE)
942 (defalias 'helm-ff-file-cache-remove-file-1 #[257 "\301\302!\"\303!\304\305\"\262G\306U\203\304\262\211\305\"B\211\207" [file-cache-alist assoc helm-basename helm-basedir nil remove 1] 8 (#$ . 148185)])
943 #@57 Remove marked files from `file-cache-alist.'
944
945 (fn FILE)
946 (defalias 'helm-ff-file-cache-remove-file #[257 "\300 \301\302\"\207" [helm-marked-candidates mapc helm-ff-file-cache-remove-file-1] 5 (#$ . 148455)])
947 (defvar helm-source-file-name-history (helm-make-source "File Name History" 'helm-source-sync :candidates 'file-name-history :persistent-action 'ignore :filtered-candidate-transformer 'helm-file-name-history-transformer :action 'helm-type-file-actions))
948 #@134 [Internal] This source is build to be used with `helm-find-files'.
949 Don't use it in your own code unless you know what you are doing.
950 (defvar helm-source--ff-file-name-history nil (#$ . 148924))
951 #@26 
952
953 (fn CANDIDATES SOURCE)
954 (defalias 'helm-file-name-history-transformer #[514 "\300\211:\203J@\262\301!\204\302\303!\203(\303!\203(\304\305\306#B\202?\307!\2038\304\305\310#B\202?\304\305\311#BB\262A\262\202\211\237\207" [nil file-remote-p fboundp tramp-archive-file-name-p propertize face helm-history-remote file-exists-p helm-ff-file helm-history-deleted] 9 (#$ . 149124)])
955 #@67 Switch to `file-name-history' without quitting `helm-find-files'.
956 (defalias 'helm-ff-file-name-history #[0 "\204\302\303\304\305\306\307\310\311\312\313\314\315\312\316\317\320\321\322\323\324\325$&    \203-\326\327\300\330\331\332\312\333\334&\207\335\336!\207" [helm-source--ff-file-name-history helm-alive-p helm-make-source "File name history" helm-source-sync :init #[0 "\203\303\304\305\306#\210    \205\303\307!\210\n\206\302\310!\207\311\312!\207" [helm-alive-p helm-ff-file-name-history-use-recentf recentf-mode require tramp-archive nil t recentf 1 error #2="Running helm command outside of context"] 4] :candidates #[0 "\203    \207\n\207" [helm-ff-file-name-history-use-recentf recentf-list file-name-history] 1] :fuzzy-match t :persistent-action ignore :migemo :filtered-candidate-transformer helm-file-name-history-transformer :action helm-make-actions "Find file" #[257 "\301\302!!\210\303\304\305\"\210\304\306BB\307\306\304\"\207" [helm--temp-hooks helm-set-pattern expand-file-name defalias #1=#:helm--hook45 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-exit-minibuffer] 1] helm-after-update-hook add-hook] 4 "\n\n(fn CANDIDATE)"] "Find file in helm" #[257 "\300\301!!\207" [helm-set-pattern expand-file-name] 4 "\n\n(fn CANDIDATE)"] helm :sources :buffer "*helm-file-name-history*" :allow-nest :resume noresume error #2#] 21 (#$ . 149533) nil])
957 (put 'helm-ff-file-name-history 'helm-only t)
958 (defvar helm--browse-project-cache (make-hash-table :test 'equal))
959 #@23 
960
961 (fn ROOT-DIRECTORY)
962 (defalias 'helm-browse-project-get-buffers #[257 "\301 \302\211\211\211:\203H@\262rq\210)\262\303\304!!\262\203*\305\"\204<\204A\306!\204A\305\"\203AB\262A\262\202\211\237\207" [default-directory helm-buffer-list nil buffer-file-name get-buffer file-in-directory-p file-remote-p] 9 (#$ . 151108)])
963 #@18 
964
965 (fn DIRECTORY)
966 (defalias 'helm-browse-project-build-buffers-source #[257 "\300\301\302\303\304\305\306\307\310    !\311\"\312\313%\314\304\315\316\307\310 !\317\"\320$&\207" [helm-make-source "Buffers in project" helm-source-buffers :header-name make-byte-code 257 "\301\302\303\300!#\207" vconcat vector [format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)" :buffer-list 0 "\301\300!\207" [helm-browse-project-get-buffers] 2] 13 (#$ . 151464)])
967 #@83 Default function for `helm-browse-project-default-find-files-fn'.
968
969 (fn DIRECTORY)
970 (defalias 'helm-browse-project-walk-directory #[257 "\300\301\302\303\304\305\306&\207" [helm-walk-directory :directories nil :path full :skip-subdirs t] 9 (#$ . 151923)])
971 #@108 A suitable function for `helm-browse-project-default-find-files-fn'.
972
973 Needs AG as backend.
974
975 (fn DIRECTORY)
976 (defalias 'helm-browse-project-ag-find-files #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\"\314\315\314$\210\316\302\317\320\305\306!\321\"\322\323%\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 call-process-shell-command format "ag --hidden -g '.*' %s" nil t mapcar 257 "\301\300\"\207" [expand-file-name] 4 "\n\n(fn F)" split-string buffer-string "\n"] 9 (#$ . 152186)])
977 #@36 
978
979 (fn DIRECTORY &optional REFRESH)
980 (defalias 'helm-browse-project-find-files #[513 "\211\203    \303\"\210\304\"\204\305    !#\210\306\307\310!\311\312\313\314\304    \"\315\316\317\320\321\322!\323\"\324\325%\326\327\330\331\332\n\333\334&D\335\336\337\340&\207" [helm--browse-project-cache helm-browse-project-default-find-files-fn helm-generic-files-map remhash gethash puthash helm :sources helm-browse-project-build-buffers-source helm-make-source "Browse project" helm-source-in-buffer :data :header-name make-byte-code 257 "\301\302\303\300!#\207" vconcat vector [format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)" :match-part #[257 "r\301 q\210)\203\302!\207\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-basename] 3 "\n\n(fn C)"] :filter-one-by-one #[257 "r\301 q\210)\203\302\303!\304\305#B\207\302\304\305#\207" [helm-ff-transformer-show-only-basename helm-buffer-get propertize helm-basename face helm-ff-file] 5 "\n\n(fn C)"] :keymap :action helm-type-file-actions :ff-transformer-show-only-basename nil :buffer "*helm browse project*"] 20 (#$ . 152806)])
981 (defvar helm-browse-project-history nil)
982 (defalias 'helm-projects-history #[0 "\301\302\303\304\305\306\307\310&\311\312$\207" [helm-browse-project-history helm :sources helm-make-source "Project history" helm-source-sync :candidates :action #[257 "\211\203\n\301!\206 \302\303!)\207" [default-directory file-name-as-directory helm-browse-project nil] 3 "\n\n(fn CANDIDATE)"] :buffer "*helm browse project history*"] 9 nil nil])
983 #@639 Preconfigured helm to browse projects.
984 Browse files and see status of project with its vcs.
985 Only HG and GIT are supported for now.
986 Fall back to `helm-browse-project-find-files'
987 if current directory is not under control of one of those vcs.
988 With a prefix ARG browse files recursively, with two prefix ARG
989 rebuild the cache.
990 If the current directory is found in the cache, start
991 `helm-browse-project-find-files' even with no prefix ARG.
992 NOTE: The prefix ARG have no effect on the VCS controlled directories.
993
994 Needed dependencies for VCS:
995 <https://github.com/emacs-helm/helm-ls-git>
996 and
997 <https://github.com/emacs-helm/helm-ls-hg>.
998
999 (fn ARG)
1000 (defalias 'helm-browse-project #[257 "\303\304\305\"\"\306\307\310\311\312\306#\205\313\314!\205\314 \211\211\203)!\210\315 \202{\310\316\312\306#\2059\313\317!\2059\317 \211\211\203G!\210\320 \202w\321\322 !\211\211\205s\204\\\323\n\"\203k!\210\324    \325\232\"\202s\326\327\330!\331\332$\262\262\262\262\262\262\262*\207" [helm-type-buffer-actions helm-buffers-in-project-p helm--browse-project-cache remove assoc "Browse project from buffer" t #[257 "\211\301\"B\211\207" [helm-browse-project-history delete] 5 "\n\n(fn ROOT)"] require helm-ls-git nil fboundp helm-ls-git-root-dir helm-ls-git-ls helm-ls-hg helm-hg-root helm-hg-find-files-in-project helm-browse-project-get--root-dir helm-current-directory gethash helm-browse-project-find-files (16) helm :sources helm-browse-project-build-buffers-source :buffer "*helm browse project*"] 13 (#$ . 154363) "P"])
1001 #@18 
1002
1003 (fn DIRECTORY)
1004 (defalias 'helm-browse-project-get--root-dir #[257 "\301!\211\203'\302\"\204'\303!\203\304\262\202\305\306GSO!\262\202\211\206.\301!\207" [helm--browse-project-cache file-name-as-directory gethash file-remote-p nil helm-basedir 0] 6 (#$ . 155911)])
1005 #@81 Browse project in current directory.
1006 See `helm-browse-project'.
1007
1008 (fn CANDIDATE)
1009 (defalias 'helm-ff-browse-project #[257 "\203\n\303!\206     \304\n!)\207" [helm-ff-default-directory default-directory helm-current-prefix-arg file-name-as-directory helm-browse-project] 3 (#$ . 156201)])
1010 (defalias 'helm-ff-run-browse-project #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-browse-project error "Running helm command outside of context"] 2 nil nil])
1011 (put 'helm-ff-run-browse-project 'helm-only t)
1012 #@18 
1013
1014 (fn CANDIDATE)
1015 (defalias 'helm-ff-gid #[257 "\203\n\302!\206     \303 )\207" [helm-ff-default-directory default-directory file-name-as-directory helm-gid] 3 (#$ . 156747)])
1016 (defalias 'helm-ff-run-gid #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-gid error "Running helm command outside of context"] 2 nil nil])
1017 (put 'helm-ff-run-gid 'helm-only t)
1018 #@57 Run `helm-find' from `helm-find-files'.
1019
1020 (fn CANDIDATE)
1021 (defalias 'helm-ff-find-sh-command #[257 "\301\302!\210\303!\207" [helm-ff-default-directory require helm-find helm-find-1] 3 (#$ . 157149)])
1022 #@64 Run find shell command action with key from `helm-find-files'.
1023 (defalias 'helm-ff-run-find-sh-command #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-find-sh-command error "Running helm command outside of context"] 2 (#$ . 157354) nil])
1024 (put 'helm-ff-run-find-sh-command 'helm-only t)
1025 #@252 Preconfigured `helm' for helm implementation of `find-file'.
1026 Called with a prefix arg show history if some.
1027 Don't call it from programs, use `helm-find-files-1' instead.
1028 This is the starting point for nearly all actions you can do on files.
1029
1030 (fn ARG)
1031 (defalias 'helm-find-files #[257 "\211\205 \205 \306\307!\211\206\310 \311\312 !\204!    \203!\211\202P\n\313=\2035 \2035\2045\311 !\202P\n\314=\203E\203E\315!\202P\316\230\204O\206P\211\317!@?\206n\211\203a\206n\320p!\206n\n\314=\205n\211\205\221\f\203\220\204\220\321\307\322\323#)\266\203\204\220\324!\202\221\211\262\203\265\325\326!!\203\265\327\330rq\210)\331rq\210)$\210\332\333G\307$\210\307 ??!\334\205\327\"?\205\327\335\336!P\")\207" [helm-ff-history helm-find-files-ignore-thing-at-point major-mode org-directory helm-ff-transformer-show-only-basename inhibit-changing-match-data helm-find-files-history nil helm-find-files-initial-input expand-file-name helm-current-directory org-agenda-mode dired-mode file-name-directory "" file-attributes buffer-file-name "[.]\\{1,2\\}\\'" t string-match helm-basename buffer-live-p get-buffer helm-set-local-variable helm-display-function helm--last-frame-parameters set-text-properties 0 helm-find-files-1 "^" regexp-quote helm-ff-history-buffer-name current-prefix-arg helm--executing-helm-action helm-ff-no-preselect] 14 (#$ . 157689) "P"])
1032 #@252 Allow deleting tramp connection or marked tramp connections at once.
1033
1034 This replace `tramp-cleanup-connection' which is partially broken in
1035 emacs < to 25.1.50.1 (See Emacs Bug#24432).
1036
1037 It allows additionally to delete more than one connection at once.
1038 (defalias 'helm-delete-tramp-connection #[0 "\301\302\303\304\305\306\307\310 \311\312\313\314&\315\316$)\207" [helm-quit-if-no-candidate #[0 "\300\301!\207" [message "No Tramp connection found"] 2] helm :sources helm-make-source "Tramp connections" helm-source-sync :candidates tramp-list-connections :candidate-transformer #[257 "\211\300\211\211:\203U@\262\301\302\303!\211\304\300\211T\211\262GW\203.H\262B\262\202\211\237\266\205\"\262\305\306!!\204G\307\310\311!!!\203NBB\262A\262\202\211\237\207" [nil apply tramp-make-tramp-file-name helm-ff--tramp-cons-or-vector -1 processp tramp-get-connection-process buffer-live-p get-buffer tramp-buffer-name] 14 "\n\n(fn CANDIDATES)"] :action #[257 "\301 \211\302:\203@\262\303!\210\304\"\210A\262\202\302\266\202\207" [tramp-cache-data helm-marked-candidates nil tramp-cleanup-connection remhash] 7 "\n\n(fn VEC)"] :buffer "*helm tramp connections*"] 11 (#$ . 159110) nil])
1039 (provide 'helm-files)