* net/ange-ftp.el (ange-ftp-hook-function): Catch also errors in

process-filter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39c2cd1fdcf0c52f42a6ae69bfe497140554b9bd..0f94bcb9f1d4166645002468b2529c57d597bdd5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-06  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/ange-ftp.el (ange-ftp-hook-function): Catch also errors in
+       process-filter.
+
 2007-08-06  Martin Rudalics  <rudalics@gmx.at>
 
        * help.el (resize-temp-buffer-window): Use window-full-width-p

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 310442d4012fbbae5a1ce5d4fce27e0f9880d568..a05d9126dcdb0aed6550a756910b1fc76e0958fd 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4274,7 +4274,12 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 ;;;###autoload
 (defun ange-ftp-hook-function (operation &rest args)
   (let ((fn (get operation 'ange-ftp)))
-    (if fn (save-match-data (apply fn args))
+    (if fn
+       ;; Catch also errors in process-filter.
+       (condition-case err
+           (let ((debug-on-error t))
+             (save-match-data (apply fn args)))
+         (error (error (error-message-string err))))
       (ange-ftp-run-real-handler operation args))))
 
 ;; The following code is commented out because Tramp now deals with