]> git.eshelyaron.com Git - emacs.git/commitdiff
(eshell-parse-argument-hook): If a number is encountered as an
authorJohn Wiegley <johnw@newartisans.com>
Thu, 10 May 2001 03:29:19 +0000 (03:29 +0000)
committerJohn Wiegley <johnw@newartisans.com>
Thu, 10 May 2001 03:29:19 +0000 (03:29 +0000)
argument, don't convert it right away, but tag the first character of
the string with the text properties `number', which signifies to
`eshell-lisp-command' that the argument should be passed through
`string-to-number' if it is actually used in the call to a Lisp
function.

lisp/eshell/esh-arg.el

index 77db1bfc100c15ad42b47b72ab733890a7ce4a7a..0b68bd69a0a6522ee0f2d838164775db9d348b27 100644 (file)
@@ -52,7 +52,10 @@ yield the values intended."
                 (looking-at eshell-number-regexp)
                 (eshell-arg-delimiter (match-end 0)))
        (goto-char (match-end 0))
-       (string-to-number (match-string 0)))))
+       (let ((str (match-string 0)))
+         (if (> (length str) 0)
+             (add-text-properties 0 1 '(number t) str))
+         str))))
 
    ;; parse any non-special characters, based on the current context
    (function