[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el,v

[Michael Albinus]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/08/06 07:22:21

Index: ange-ftp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -b -r1.89 -r1.90
--- ange-ftp.el 6 Aug 2007 06:50:09 -0000       1.89
+++ ange-ftp.el 6 Aug 2007 07:22:20 -0000       1.90
@@ -4290,7 +4290,7 @@
        (condition-case err
            (let ((debug-on-error t))
              (save-match-data (apply fn args)))
-         (error (error (error-message-string err))))
+         (error (signal (car err) (cdr err))))
       (ange-ftp-run-real-handler operation args))))
 
 ;; The following code is commented out because Tramp now deals with