;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
#@76 Find element of the list WHERE matching predicate WHICH.
|
|
(fn WHERE WHICH)
|
(defalias 'ztree-find #[514 "\3002 \211\203 \211@!\203 \301\300\"\210A\266\202\202 \210\3020\207" [found throw nil] 7 (#$ . 408)])
|
#@147 Filter out elements not satisfying predicate CONDP in the list LST.
|
Taken from http://www.emacswiki.org/emacs/ElispCookbook#toc39
|
|
(fn CONDP LST)
|
(defalias 'ztree-filter #[514 "\300\301\302\303\304\305\306\307 !\310\"\311\312%\"\"\207" [delq nil mapcar make-byte-code 257 "\300!\205 \211\207" vconcat vector [] 3 "\n\n(fn X)"] 11 (#$ . 630)])
|
#@106 Strip newline character from file names, like `Icon
|
'.
|
Argument STRING string to process.'.
|
|
(fn STRING)
|
(defalias 'ztree-printable-string #[257 "\300\301\302#\207" [replace-regexp-in-string "\n" ""] 5 (#$ . 984)])
|
#@143 By given FILE name return base file/directory name.
|
Taken from http://lists.gnu.org/archive/html/emacs-devel/2011-01/msg01238.html
|
|
(fn FILE)
|
(defalias 'ztree-file-short-name #[257 "\300!\301!\211\302\230\203 \202 \303!\207" [directory-file-name file-name-nondirectory "" ztree-printable-string] 5 (#$ . 1207)])
|
#@121 Return VALUE if value is an atom, otherwise (car value) or nil.
|
Used since `car-safe' returns nil for atoms
|
|
(fn VALUE)
|
(defalias 'ztree-car-atom #[257 "\211:\204 \207\211@\207" [] 2 (#$ . 1532)])
|
#@53 Insert TEXT with the FACE provided.
|
|
(fn TEXT FACE)
|
(defalias 'ztree-insert-with-face #[514 "`c\210\300`\301$\207" [put-text-property face] 8 (#$ . 1736)])
|
#@48 Return FILE as the local file name.
|
|
(fn FILE)
|
(defalias 'ztree-untrampify-filename #[257 "\300\301\"\206 \211\207" [file-remote-p localname] 4 (#$ . 1901)])
|
#@37 Surround STR with quotes.
|
|
(fn STR)
|
(defalias 'ztree-quotify-string #[257 "\300\300Q\207" ["\""] 4 (#$ . 2067)])
|
#@69 Return t if FILE1 and FILE2 are on the same host.
|
|
(fn FILE1 FILE2)
|
(defalias 'ztree-same-host-p #[514 "\300!\300!\230\207" [file-remote-p] 6 (#$ . 2187)])
|
(provide 'ztree-util)
|
