(eshell-lisp-command): Before calling a Lisp function, convert any

string arguments that have been tagged as "numbers", by calling
string-to-number.

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 0b5cf0c8d26d3bf44d24b0da77a0da5cfd54d783..fee5ea0c3c39b3a98b7086096574d9cb4ca6f0eb 100644 (file)
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1383,6 +1383,16 @@ messages, and errors."
 
 (defun eshell-lisp-command (object &optional args)
   "Insert Lisp OBJECT, using ARGS if a function."
+  ;; if any of the arguments are flagged as numbers waiting for
+  ;; conversion, convert them now
+  (let ((a args) arg)
+    (while a
+      (setq arg (car a))
+      (if (and (stringp arg)
+              (> (length arg) 0)
+              (get-text-property 0 'number arg))
+         (setcar a (string-to-number arg)))
+      (setq a (cdr a))))
   (setq eshell-last-arguments args
        eshell-last-command-name "#<Lisp>")
   (catch 'eshell-external               ; deferred to an external command