Mercurial > emacs
comparison lisp/eshell/em-xtra.el @ 31241:3099993cba0f
See ChangeLog
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Tue, 29 Aug 2000 00:47:45 +0000 |
| parents | 34b1ab9d583d |
| children | 8e57189d61b4 |
comparison
equal
deleted
inserted
replaced
| 31240:10b1c85c0bbe | 31241:3099993cba0f |
|---|---|
| 39 | 39 |
| 40 (defun eshell/expr (&rest args) | 40 (defun eshell/expr (&rest args) |
| 41 "Implementation of expr, using the calc package." | 41 "Implementation of expr, using the calc package." |
| 42 (if (not (fboundp 'calc-eval)) | 42 (if (not (fboundp 'calc-eval)) |
| 43 (throw 'eshell-replace-command | 43 (throw 'eshell-replace-command |
| 44 (eshell-parse-command "*expr" args)) | 44 (eshell-parse-command "*expr" (eshell-flatten-list args))) |
| 45 ;; to fool the byte-compiler... | 45 ;; to fool the byte-compiler... |
| 46 (let ((func 'calc-eval)) | 46 (let ((func 'calc-eval)) |
| 47 (funcall func (eshell-flatten-and-stringify args))))) | 47 (funcall func (eshell-flatten-and-stringify args))))) |
| 48 | 48 |
| 49 (defun eshell/substitute (&rest args) | 49 (defun eshell/substitute (&rest args) |