emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master b8eef7b8c1 3/3: ; Rename 'eshell-flatten-args' token to 'eshell-s


From: Jim Porter
Subject: master b8eef7b8c1 3/3: ; Rename 'eshell-flatten-args' token to 'eshell-splice-immediately'
Date: Fri, 16 Dec 2022 01:09:37 -0500 (EST)

branch: master
commit b8eef7b8c1066cf446ca1b37d3fd5c1ea3e3ab07
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    ; Rename 'eshell-flatten-args' token to 'eshell-splice-immediately'
    
    This is for symmetry with 'eshell-splice-args' (which performs a
    splice later on).  Since this is just an internal symbol not exposed
    to users, changing it is safe.
    
    * lisp/eshell/esh-arg.el (eshell-parse-arguments, eshell-finish-arg):
    Use 'eshell-splice-immediately'.
---
 lisp/eshell/esh-arg.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index 0b175be713..8712119671 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -301,7 +301,8 @@ argument list in place of the value of the current 
argument."
         (setq eshell-current-argument (car arguments))
       (cl-assert (and (not eshell-arg-listified)
                       (not eshell-current-modifiers)))
-      (setq eshell-current-argument (cons 'eshell-flatten-args arguments))))
+      (setq eshell-current-argument
+            (cons 'eshell-splice-immediately arguments))))
   (throw 'eshell-arg-done t))
 
 (defun eshell-quote-argument (string)
@@ -342,7 +343,8 @@ Point is left at the end of the arguments."
                                 (buffer-substring here (point-max))))
                      (when arg
                        (nconc args
-                              (if (eq (car-safe arg) 'eshell-flatten-args)
+                              (if (eq (car-safe arg)
+                                      'eshell-splice-immediately)
                                   (cdr arg)
                                 (list arg))))))))
               (throw 'eshell-incomplete (if (listp delim)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]