Mercurial > emacs
changeset 37657:4dc446a29001
(eshell-lisp-command): Before calling a Lisp function, convert any
string arguments that have been tagged as "numbers", by calling
string-to-number.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Thu, 10 May 2001 03:29:36 +0000 |
| parents | e108dfe2ea99 |
| children | f9277090a94a |
| files | lisp/eshell/esh-cmd.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/esh-cmd.el Thu May 10 03:29:19 2001 +0000 +++ b/lisp/eshell/esh-cmd.el Thu May 10 03:29:36 2001 +0000 @@ -1383,6 +1383,16 @@ (defun eshell-lisp-command (object &optional args) "Insert Lisp OBJECT, using ARGS if a function." + ;; if any of the arguments are flagged as numbers waiting for + ;; conversion, convert them now + (let ((a args) arg) + (while a + (setq arg (car a)) + (if (and (stringp arg) + (> (length arg) 0) + (get-text-property 0 'number arg)) + (setcar a (string-to-number arg))) + (setq a (cdr a)))) (setq eshell-last-arguments args eshell-last-command-name "#<Lisp>") (catch 'eshell-external ; deferred to an external command