diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 5dc1356c6d2..8555c9a83c5 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -5361,6 +5361,9 @@ The terminal type can be configured with `tramp-terminal-type'." | |||
| 5361 | (tramp-message 10 "'set mode' error ignored.") | 5361 | (tramp-message 10 "'set mode' error ignored.") |
| 5362 | (tramp-message 9 "Process has finished.") | 5362 | (tramp-message 9 "Process has finished.") |
| 5363 | (throw 'tramp-action 'ok)) | 5363 | (throw 'tramp-action 'ok)) |
| 5364 | (goto-char (point-min)) | ||
| 5365 | (when (re-search-forward "^.cp.?: \\(.+: Permission denied.?\\)$" nil t) | ||
| 5366 | (error "Remote host: %s" (match-string 1))) | ||
| 5364 | (tramp-message 9 "Process has died.") | 5367 | (tramp-message 9 "Process has died.") |
| 5365 | (throw 'tramp-action 'process-died))) | 5368 | (throw 'tramp-action 'process-died))) |
| 5366 | (t nil))) | 5369 | (t nil))) |