diff options
| author | Michael Albinus | 2007-08-06 07:22:20 +0000 |
|---|---|---|
| committer | Michael Albinus | 2007-08-06 07:22:20 +0000 |
| commit | 75c23f5f85652f4b77ae568170f419f81fb7ea8b (patch) | |
| tree | a269d42775522723a80ab09bfada398504f1ee60 | |
| parent | 227eb7449791678de9fe23c948fb7a7f13776549 (diff) | |
| download | emacs-75c23f5f85652f4b77ae568170f419f81fb7ea8b.tar.gz emacs-75c23f5f85652f4b77ae568170f419f81fb7ea8b.zip | |
*** empty log message ***
| -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 c3d27d3d124..2f06344ccda 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -4290,7 +4290,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") | |||
| 4290 | (condition-case err | 4290 | (condition-case err |
| 4291 | (let ((debug-on-error t)) | 4291 | (let ((debug-on-error t)) |
| 4292 | (save-match-data (apply fn args))) | 4292 | (save-match-data (apply fn args))) |
| 4293 | (error (error (error-message-string err)))) | 4293 | (error (signal (car err) (cdr err)))) |
| 4294 | (ange-ftp-run-real-handler operation args)))) | 4294 | (ange-ftp-run-real-handler operation args)))) |
| 4295 | 4295 | ||
| 4296 | ;; The following code is commented out because Tramp now deals with | 4296 | ;; The following code is commented out because Tramp now deals with |