; Add debug instrumentation for Eshell argument modifiers

* lisp/eshell/esh-arg.el (eshell-resolve-current-argument): Add debug
instrumentation, and simplify modifier application.
This commit is contained in:
Jim Porter 2023-09-02 16:07:59 -07:00
parent 5c181efcf2
commit b0427f5ffe

View file

@ -293,10 +293,13 @@ then the result will be:
(append (list 'eshell-concat eshell-current-quoted)
eshell-current-argument)))
(setq eshell-arg-listified nil))
(while eshell-current-modifiers
(when eshell-current-modifiers
(eshell-debug-command 'form (format-message "applying modifiers %S"
eshell-current-modifiers)
eshell-current-argument))
(dolist (modifier eshell-current-modifiers)
(setq eshell-current-argument
(list (car eshell-current-modifiers) eshell-current-argument)
eshell-current-modifiers (cdr eshell-current-modifiers))))
(list modifier eshell-current-argument))))
(setq eshell-current-modifiers nil))
(defun eshell-finish-arg (&rest arguments)