diff options
| author | John Wiegley <johnw@newartisans.com> | 2000-08-29 00:37:10 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2000-08-29 00:37:10 +0000 |
| commit | b4bd214e74d885552fe38051253dbc2b362bfe67 (patch) | |
| tree | 6bfb567c1a9af685b0c543b850a206bf57dc59fd /lisp/eshell/esh-util.el | |
| parent | d44e146b8c0a9199b814487172721231d22eb7dc (diff) | |
| download | emacs-b4bd214e74d885552fe38051253dbc2b362bfe67.tar.gz | |
See ChangeLog
Diffstat (limited to 'lisp/eshell/esh-util.el')
| -rw-r--r-- | lisp/eshell/esh-util.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index f9f922a01b6..de19b636100 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -262,7 +262,7 @@ If N or M is nil, it means the end of the list." (put 'eshell-for 'lisp-indent-function 2) -(defun eshell-flatten-list (args) +(defsubst eshell-flatten-list (args) "Flatten any lists within ARGS, so that there are no sublists." (let ((new-list (list t))) (eshell-for a args @@ -417,7 +417,8 @@ list." (split-string (buffer-substring (point) (progn (end-of-line) (point))) ":"))) - (if (and fields (nth 0 fields) (nth 2 fields)) + (if (and (and fields (nth 0 fields) (nth 2 fields)) + (not (assq (string-to-int (nth 2 fields)) names))) (setq names (cons (cons (string-to-int (nth 2 fields)) (nth 0 fields)) names)))) @@ -606,6 +607,10 @@ argument VECP, this copies vectors as well as conses." (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))) + ; (defun eshell-copy-file ; (file newname &optional ok-if-already-exists keep-date) ; "Copy FILE to NEWNAME. See docs for `copy-file'." |