comparison lisp/eshell/esh-util.el @ 45741:b2a7c08cddcf

(eshell-copy-tree): Make it an alias for copy-tree.

45740:4e576724db9f

		    (if fentry
			(setq entry (cdr fentry))
		      (setq entry nil)))))))
      (or entry (funcall handler 'file-attributes file)))))

(defun eshell-copy-tree (tree &optional vecp)
  "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)

(defsubst eshell-processp (proc)
  "If the `processp' function does not exist, PROC is not a process."
  (and (fboundp 'processp) (processp proc)))

45741:b2a7c08cddcf

		    (if fentry
			(setq entry (cdr fentry))
		      (setq entry nil)))))))
      (or entry (funcall handler 'file-attributes file)))))

(defalias 'eshell-copy-tree 'copy-tree)

(defsubst eshell-processp (proc)
  "If the `processp' function does not exist, PROC is not a process."
  (and (fboundp 'processp) (processp proc)))