diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-08-06 07:23:39 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-08-06 07:23:39 +0000 |
| commit | 1f3d1bea39b05c380032b80343445b8a1af20429 (patch) | |
| tree | bdc07f862aaee83679614ac4c5edef921c44d469 /lisp | |
| parent | 5bc880a47d90e1d140eb43c6037e628a06f127c7 (diff) | |
| download | emacs-1f3d1bea39b05c380032b80343445b8a1af20429.tar.gz emacs-1f3d1bea39b05c380032b80343445b8a1af20429.tar.bz2 emacs-1f3d1bea39b05c380032b80343445b8a1af20429.zip | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index a05d9126dcd..67835c294fd 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4279,7 +4279,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (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 |