Mercurial > emacs
comparison lisp/eshell/esh-cmd.el @ 53051:bf3ee9e2ceda
(eshell-lisp-command): Do not late-convert string arguments to numbers
unless the whole argument was seen as a number.
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Fri, 14 Nov 2003 10:59:32 +0000 |
parents | 695cf19ef79e |
children | 90583f4cef75 |
comparison
equal
deleted
inserted
replaced
53050:3d21b074dd49 | 53051:bf3ee9e2ceda |
---|---|
1398 (unless (get object 'eshell-no-numeric-conversions) | 1398 (unless (get object 'eshell-no-numeric-conversions) |
1399 (while args | 1399 (while args |
1400 (let ((arg (car args))) | 1400 (let ((arg (car args))) |
1401 (if (and (stringp arg) | 1401 (if (and (stringp arg) |
1402 (> (length arg) 0) | 1402 (> (length arg) 0) |
1403 (get-text-property 0 'number arg)) | 1403 (not (text-property-not-all |
1404 0 (length arg) 'number t arg))) | |
1404 (setcar args (string-to-number arg)))) | 1405 (setcar args (string-to-number arg)))) |
1405 (setq args (cdr args)))) | 1406 (setq args (cdr args)))) |
1406 (eshell-apply object eshell-last-arguments)) | 1407 (eshell-apply object eshell-last-arguments)) |
1407 (setq eshell-last-arguments args | 1408 (setq eshell-last-arguments args |
1408 eshell-last-command-name "#<Lisp object>") | 1409 eshell-last-command-name "#<Lisp object>") |