diff options
Diffstat (limited to 'lisp/net/tramp-compat.el')
| -rw-r--r-- | lisp/net/tramp-compat.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 1286255c898..ef5b1f7ec90 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -294,6 +294,15 @@ CONDITION can also be a list of error conditions." (setq secret (funcall secret))) secret)))) +;; Function `take' is new in Emacs 29.1. +(defalias 'tramp-compat-take + (if (fboundp 'take) + #'take + (lambda (n list) + (when (and (natnump n) (> n 0)) + (if (>= n (length list)) + list (butlast list (- (length list) n))))))) + ;; Function `ntake' is new in Emacs 29.1. (defalias 'tramp-compat-ntake (if (fboundp 'ntake) |