From 56f2d1e18338b7096d6b7f85cc11d3bf598ab394 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 9 Oct 2011 11:38:25 +0200 Subject: [PATCH] * net/tramp.el (tramp-file-name-handler): Add 'debug to the error condition. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 11 +++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ca38b372924..f60616a1b29 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-10-09 Michael Albinus + + * net/tramp.el (tramp-file-name-handler): Add 'debug to the error + condition. + 2011-10-09 Leo Liu * mail/smtpmail.el (smtpmail-send-data): Add a missing space. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 1381d33efa2..7ace2911501 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1886,7 +1886,7 @@ Falls back to normal file name handler if no Tramp file name handler exists." (apply foreign operation args)) ;; Trace that somebody has interrupted the operation. - (quit + ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" @@ -1898,6 +1898,9 @@ Falls back to normal file name handler if no Tramp file name handler exists." ;; operations shall return at least a default value ;; in order to give the user a chance to correct the ;; file name in the minibuffer. + ;; We cannot use 'debug as error handler. In order + ;; to get a full backtrace, one could apply + ;; (setq debug-on-error t debug-on-signal t) (error (cond ((and completion (zerop (length localname)) @@ -3850,9 +3853,9 @@ Only works for Bourne-like shells." ;; * Run emerge on two remote files. Bug is described here: ;; . ;; (Bug#6850) - -;; Functions for file-name-handler-alist: -;; diff-latest-backup-file -- in diff.el +;; * It would be very useful if it were possible to load or save a +;; buffer using Tramp in a non-blocking way so that use of Emacs on +;; other buffers could continue. (Bug#9617) ;;; tramp.el ends here -- 2.39.2