Fix minor Tramp oddities

* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Increase `max-specpdl-size' temporarily.

* lisp/net/tramp-rclone.el (tramp-rclone-flush-directory-cache):
Fix a problem with older Emacsen.

2 files changed, 16 insertions, 2 deletions

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 95cbfb8c22a..63c0769e309 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -318,7 +318,10 @@ arguments to pass to the OPERATION."
 
       (let* ((filename (apply #'tramp-archive-file-name-for-operation
                               operation args))
-             (archive (tramp-archive-file-name-archive filename)))
+             (archive (tramp-archive-file-name-archive filename))
+             ;; Sometimes, it fails with "Variable binding depth exceeds
+             ;; max-specpdl-size".
+             (max-specpdl-size (* 2 max-specpdl-size)))
 
         ;; `filename' could be a quoted file name.  Or the file
         ;; archive could be a directory, see Bug#30293.
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 445098a5bca..08bba33afed 100644
--- a/lisp/net/tramp-rclone.el
+++ b/lisp/net/tramp-rclone.el
@@ -477,7 +477,18 @@ file names."
            (with-tramp-connection-property
                (tramp-get-connection-process vec) "rclone-pid"
              (catch 'pid
-               (dolist (pid (list-system-processes)) ;; "pidof rclone" ?
+               (dolist
+                   (pid
+                    ;; Until Emacs 25, `process-attributes' could
+                    ;; crash Emacs for some processes.  So we use
+                    ;; "pidof", which might not work everywhere.
+                    (if (<= emacs-major-version 25)
+                        (let ((default-directory temporary-file-directory))
+                          (mapcar
+                           #'string-to-number
+                           (split-string
+                            (shell-command-to-string "pidof rclone"))))
+                      (list-system-processes)))
                  (and (string-match-p
                        (regexp-quote
                         (format "rclone mount %s:" (tramp-file-name-host vec)))