mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues Projects Releases Wiki Activity

Wrap max-specpdl-size with with-no-warnings in Tramp

Browse source 
* lisp/net/tramp-archive.el (max-specpdl-size):
* lisp/net/tramp-gvfs.el (max-specpdl-size): Wrap with
`with-no-warnings'.
This commit is contained in:
Michael Albinus 2022-09-20 14:07:45 +02:00
parent 32d3cf6298
commit f419c507a7
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp-archive.el
View file

@ -112,8 +112,10 @@
(eval-when-compile (require 'cl-lib))
;; Sometimes, compilation fails with "Variable binding depth exceeds
;; max-specpdl-size". Shall be fixed in Emacs 27.
(eval-and-compile
(let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs)))
(with-no-warnings ;; max-specpdl-size
(eval-and-compile
(let ((max-specpdl-size (* 2 max-specpdl-size)))
(require 'tramp-gvfs))))
(autoload 'dired-uncache "dired")
(autoload 'url-tramp-convert-url-to-tramp "url-tramp")
@ -343,6 +345,7 @@ arguments to pass to the OPERATION."
(tramp-register-file-name-handlers)
(tramp-archive-run-real-handler operation args))
(with-no-warnings ;; max-specpdl-size
(let* ((filename (apply #'tramp-archive-file-name-for-operation
operation args))
(archive (tramp-archive-file-name-archive filename))
@ -376,7 +379,7 @@ arguments to pass to the OPERATION."
(setq args (cons operation args)))
(if fn
(save-match-data (apply (cdr fn) args))
(tramp-archive-run-real-handler operation args)))))))
(tramp-archive-run-real-handler operation args))))))))
;;;###autoload
(progn (defun tramp-archive-autoload-file-name-handler (operation &rest args)

3
lisp/net/tramp-gvfs.el
View file

@ -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 ()