From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 18 Jul 2022 17:33:50 +0000 (+0200)
Subject: Use ntake also in tramp-adb.el
X-Git-Tag: emacs-29.0.90~1447^2~861
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a937167030d44341409b3a2ac7ff1704142a191;p=emacs.git

Use ntake also in tramp-adb.el

* lisp/net/tramp-adb.el (tramp-adb-handle-directory-files-and-attributes):
Use `tramp-compat-ntake'.
---

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index b504ce600d1..de558568308 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -354,7 +354,7 @@ arguments to pass to the OPERATION."
                                                  x))
                                  result)))
 	     (when (and (natnump count) (> count 0))
-	       (setq result (nbutlast result (- (length result) count))))
+	       (setq result (tramp-compat-ntake count result)))
              result)))))))
 
 (defun tramp-adb-get-ls-command (vec)