Parent Directory | Revision Log | Patch
revision 1.20 by miles, Mon Sep 1 15:45:23 2003 UTC | revision 1.21 by johnw, Fri Nov 14 10:59:32 2003 UTC | |
---|---|---|
# | Line 1400 messages, and errors." | Line 1400 messages, and errors." |
1400 | (let ((arg (car args))) | (let ((arg (car args))) |
1401 | (if (and (stringp arg) | (if (and (stringp arg) |
1402 | (> (length arg) 0) | (> (length arg) 0) |
1403 | (get-text-property 0 'number arg)) | (not (text-property-not-all |
1404 | 0 (length arg) 'number t arg))) | |
1405 | (setcar args (string-to-number arg)))) | (setcar args (string-to-number arg)))) |
1406 | (setq args (cdr args)))) | (setq args (cdr args)))) |
1407 | (eshell-apply object eshell-last-arguments)) | (eshell-apply object eshell-last-arguments)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |