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>") |