diff options
| author | John Wiegley | 2003-11-14 11:01:26 +0000 |
|---|---|---|
| committer | John Wiegley | 2003-11-14 11:01:26 +0000 |
| commit | 175acc2dec010dc5edc0321cc14bad086d785082 (patch) | |
| tree | 3e119f82e43d7a9a817919fe129d5058a43b2bec /lisp/eshell | |
| parent | 746a9754a0272c2c0512ff408322eb62e64a7e44 (diff) | |
| download | emacs-175acc2dec010dc5edc0321cc14bad086d785082.tar.gz emacs-175acc2dec010dc5edc0321cc14bad086d785082.zip | |
(eshell-lisp-command): Do not late-convert string arguments to numbers
unless the whole argument was seen as a number.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 54f4d6c7739..e944020b1ed 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -1400,7 +1400,8 @@ messages, and errors." | |||
| 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)) |