eshell-insert-last-word

eshell-insert-last-word.el

(defun eshell-last-argument (n m)
  (let* ((input (substring-no-properties
                 (eshell-previous-input-string (1- m))))
         (parse (with-temp-buffer
                  (insert input)
                  (nth (1- n) (reverse (eshell-parse-arguments
                                        (point-min) (point-max)))))))
    (eval parse)))

(defun eshell-insert-last-word (n)
  (interactive "p")
  (if (eq last-command this-command)
      (let ((m (get 'eshell-insert-last-word 'pre-m))
            (pre-p (get 'eshell-insert-last-word 'pre-p)))
        (delete-region pre-p (point))
        (put 'eshell-insert-last-word 'pre-m (1+ m))
        (put 'eshell-insert-last-word 'pre-p (point))
        (insert (eshell-last-argument n (1+ m))))
    (put 'eshell-insert-last-word 'pre-m 1)
    (put 'eshell-insert-last-word 'pre-p (point))
    (insert (eshell-last-argument n 1))))

(add-hook 'eshell-mode-hook
          (lambda ()
            (define-key eshell-mode-map [?\M-.] 'eshell-insert-last-word)))