710 |
(setq entry nil))))))) |
(setq entry nil))))))) |
711 |
(or entry (funcall handler 'file-attributes file))))) |
(or entry (funcall handler 'file-attributes file))))) |
712 |
|
|
713 |
(defun eshell-copy-tree (tree &optional vecp) |
(defalias 'eshell-copy-tree 'copy-tree) |
|
"Make a copy of TREE. |
|
|
If TREE is a cons cell, this recursively copies both its car and its cdr. |
|
|
Contrast to copy-sequence, which copies only along the cdrs. With second |
|
|
argument VECP, this copies vectors as well as conses." |
|
|
(if (consp tree) |
|
|
(let ((p (setq tree (copy-sequence tree)))) |
|
|
(while (consp p) |
|
|
(if (or (consp (car p)) (and vecp (vectorp (car p)))) |
|
|
(setcar p (eshell-copy-tree (car p) vecp))) |
|
|
(or (listp (cdr p)) (setcdr p (eshell-copy-tree (cdr p) vecp))) |
|
|
(cl-pop p))) |
|
|
(if (and vecp (vectorp tree)) |
|
|
(let ((i (length (setq tree (copy-sequence tree))))) |
|
|
(while (>= (setq i (1- i)) 0) |
|
|
(aset tree i (eshell-copy-tree (aref tree i) vecp)))))) |
|
|
tree) |
|
714 |
|
|
715 |
(defsubst eshell-processp (proc) |
(defsubst eshell-processp (proc) |
716 |
"If the `processp' function does not exist, PROC is not a process." |
"If the `processp' function does not exist, PROC is not a process." |