From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 10 Dec 2018 15:52:21 +0000 (+0100)
Subject: * lisp/net/tramp-compat.el (tramp-compat-flatten-list): New defun.
X-Git-Tag: emacs-27.0.90~4009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edd0c241162ed7242767c16a3737d84be336d4f9;p=emacs.git

* lisp/net/tramp-compat.el (tramp-compat-flatten-list): New defun.
---

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 01377240ad5..046966e0190 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -270,6 +270,19 @@ A nil value for either argument stands for the current time."
 	    (unload-feature 'tramp-loaddefs 'force)
 	    (unload-feature 'tramp-compat 'force)))
 
+;; There does not exist a common `flatten-list' yet, this is discussed
+;; in Bug#33309.  For the time being we implement our own version,
+;; derived from `eshell-flatten-list'.
+(defun tramp-compat-flatten-list (args)
+  "Flatten any lists within ARGS, so that there are no sublists."
+  (let ((new-list (list t)))
+    (dolist (a args)
+      (if (and (listp a)
+	       (listp (cdr a)))
+	  (nconc new-list (tramp-compat-flatten-list a))
+	(nconc new-list (list a))))
+    (cdr new-list)))
+
 (provide 'tramp-compat)
 
 ;;; TODO: