comparison lisp/eshell/esh-cmd.el @ 37657:4dc446a29001

(eshell-lisp-command): Before calling a Lisp function, convert any string arguments that have been tagged as "numbers", by calling string-to-number.

37656:e108dfe2ea99

  "Evaluate FORM, trapping errors and returning them."
  (eshell-eval* 'eshell-printn 'eshell-errorn form))

(defun eshell-lisp-command (object &optional args)
  "Insert Lisp OBJECT, using ARGS if a function."
  (setq eshell-last-arguments args
	eshell-last-command-name "#<Lisp>")
  (catch 'eshell-external               ; deferred to an external command
    (let* ((eshell-ensure-newline-p (eshell-interactive-output-p))
	   (result

37657:4dc446a29001

  "Evaluate FORM, trapping errors and returning them."
  (eshell-eval* 'eshell-printn 'eshell-errorn form))

(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
    (let* ((eshell-ensure-newline-p (eshell-interactive-output-p))
	   (result