diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-09-20 14:07:45 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-09-20 14:07:45 +0200 |
| commit | f419c507a778b87edd95983e8ea37f162ce50bf3 (patch) | |
| tree | 657eb16a8c4210c254e5848cf981ca5ca9388bc7 /lisp/net/tramp-gvfs.el | |
| parent | 32d3cf6298460b68e710420c14db3fdc882d70f8 (diff) | |
| download | emacs-f419c507a778b87edd95983e8ea37f162ce50bf3.tar.gz | |
Wrap max-specpdl-size with with-no-warnings in Tramp
* lisp/net/tramp-archive.el (max-specpdl-size):
* lisp/net/tramp-gvfs.el (max-specpdl-size): Wrap with
`with-no-warnings'.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index cf23676b0c2..477f8fb3fdd 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -2505,6 +2505,7 @@ This uses \"avahi-browse\" in case D-Bus is not enabled in Avahi." result)))) (when tramp-gvfs-enabled + (with-no-warnings ;; max-specpdl-size ;; Suppress D-Bus error messages and Tramp traces. (let (;; Sometimes, it fails with "Variable binding depth exceeds ;; max-specpdl-size". Shall be fixed in Emacs 27. @@ -2562,7 +2563,7 @@ This uses \"avahi-browse\" in case D-Bus is not enabled in Avahi." "mtp" (mapcar (lambda (method) `(tramp-parse-media-names ,(format "_%s._tcp" method))) - tramp-media-methods)))) + tramp-media-methods))))) (add-hook 'tramp-unload-hook (lambda () |