procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2018-12-10 16:52:21 +01:00
parent 063d8c02c2
commit edd0c24116
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/net/tramp-compat.el
View file

@ -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: