From edd0c241162ed7242767c16a3737d84be336d4f9 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 10 Dec 2018 16:52:21 +0100 Subject: [PATCH] * lisp/net/tramp-compat.el (tramp-compat-flatten-list): New defun. --- lisp/net/tramp-compat.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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: -- 2.39.2