diff options
| author | Michael Albinus | 2011-02-03 12:28:16 +0100 |
|---|---|---|
| committer | Michael Albinus | 2011-02-03 12:28:16 +0100 |
| commit | a857d3c7c05062e9a0916b4894e4d82e95f9e7ef (patch) | |
| tree | ee470cadc03d5d4253c6bc48eb0a51c5450cf89f | |
| parent | 0e751a49bbdb5892f768e5d7c5a1f2803964303f (diff) | |
| download | emacs-a857d3c7c05062e9a0916b4894e4d82e95f9e7ef.tar.gz emacs-a857d3c7c05062e9a0916b4894e4d82e95f9e7ef.zip | |
* net/tramp-sh.el (tramp-remote-path): Add default settings for
`tramp-default-remote-path' to the docstring.
(tramp-get-remote-path): Suppress error message when `getconf
PATH' fails.
* net/tramp-smb.el (tramp-smb-errors): Add "NT_STATUS_UNSUCCESSFUL".
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 18 | ||||
| -rw-r--r-- | lisp/net/tramp-smb.el | 1 |
3 files changed, 20 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7759fb3d377..12c2603e35f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2011-02-03 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * net/tramp-sh.el (tramp-remote-path): Add default settings for | ||
| 4 | `tramp-default-remote-path' to the docstring. | ||
| 5 | (tramp-get-remote-path): Suppress error message when `getconf | ||
| 6 | PATH' fails. | ||
| 7 | |||
| 8 | * net/tramp-smb.el (tramp-smb-errors): Add "NT_STATUS_UNSUCCESSFUL". | ||
| 9 | |||
| 1 | 2011-02-03 Glenn Morris <rgm@gnu.org> | 10 | 2011-02-03 Glenn Morris <rgm@gnu.org> |
| 2 | 11 | ||
| 3 | * vc/vc-hg.el (vc-hg-command): Doc fix. | 12 | * vc/vc-hg.el (vc-hg-command): Doc fix. |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index ccc90288258..151758b1e9a 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -68,7 +68,7 @@ files conditionalize this setup based on the TERM environment variable." | |||
| 68 | 68 | ||
| 69 | ;; ksh on OpenBSD 4.5 requires, that $PS1 contains a `#' character for | 69 | ;; ksh on OpenBSD 4.5 requires, that $PS1 contains a `#' character for |
| 70 | ;; root users. It uses the `$' character for other users. In order | 70 | ;; root users. It uses the `$' character for other users. In order |
| 71 | ;; to guarantee a proper prompt, we use "#$" for the prompt. | 71 | ;; to guarantee a proper prompt, we use "#$ " for the prompt. |
| 72 | 72 | ||
| 73 | (defvar tramp-end-of-output | 73 | (defvar tramp-end-of-output |
| 74 | (format | 74 | (format |
| @@ -482,7 +482,9 @@ tilde expansion, all directory names starting with `~' will be ignored. | |||
| 482 | `Default Directories' represent the list of directories given by | 482 | `Default Directories' represent the list of directories given by |
| 483 | the command \"getconf PATH\". It is recommended to use this | 483 | the command \"getconf PATH\". It is recommended to use this |
| 484 | entry on top of this list, because these are the default | 484 | entry on top of this list, because these are the default |
| 485 | directories for POSIX compatible commands. | 485 | directories for POSIX compatible commands. On remote hosts which |
| 486 | do not offer the getconf command (like cygwin), the value | ||
| 487 | \"/bin:/usr/bin\" is used instead of. | ||
| 486 | 488 | ||
| 487 | `Private Directories' are the settings of the $PATH environment, | 489 | `Private Directories' are the settings of the $PATH environment, |
| 488 | as given in your `~/.profile'." | 490 | as given in your `~/.profile'." |
| @@ -4655,11 +4657,12 @@ This is used internally by `tramp-file-mode-from-int'." | |||
| 4655 | (elt2 (memq 'tramp-own-remote-path remote-path)) | 4657 | (elt2 (memq 'tramp-own-remote-path remote-path)) |
| 4656 | (default-remote-path | 4658 | (default-remote-path |
| 4657 | (when elt1 | 4659 | (when elt1 |
| 4658 | (condition-case nil | 4660 | (or |
| 4659 | (tramp-send-command-and-read | 4661 | (tramp-send-command-and-read |
| 4660 | vec "echo \\\"`getconf PATH`\\\"") | 4662 | vec |
| 4661 | ;; Default if "getconf" is not available. | 4663 | "x=`getconf PATH 2>/dev/null` && echo \\\"$x\\\" || echo nil") |
| 4662 | (error | 4664 | ;; Default if "getconf" is not available. |
| 4665 | (progn | ||
| 4663 | (tramp-message | 4666 | (tramp-message |
| 4664 | vec 3 | 4667 | vec 3 |
| 4665 | "`getconf PATH' not successful, using default value \"%s\"." | 4668 | "`getconf PATH' not successful, using default value \"%s\"." |
| @@ -4669,7 +4672,6 @@ This is used internally by `tramp-file-mode-from-int'." | |||
| 4669 | (when elt2 | 4672 | (when elt2 |
| 4670 | (condition-case nil | 4673 | (condition-case nil |
| 4671 | (tramp-send-command-and-read vec "echo \\\"$PATH\\\"") | 4674 | (tramp-send-command-and-read vec "echo \\\"$PATH\\\"") |
| 4672 | ;; Default if "getconf" is not available. | ||
| 4673 | (error | 4675 | (error |
| 4674 | (tramp-message | 4676 | (tramp-message |
| 4675 | vec 3 "$PATH not set, ignoring `tramp-own-remote-path'.") | 4677 | vec 3 "$PATH not set, ignoring `tramp-own-remote-path'.") |
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 51e9c600b0c..052ef68170d 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el | |||
| @@ -114,6 +114,7 @@ call, letting the SMB client use the default one." | |||
| 114 | "NT_STATUS_OBJECT_NAME_NOT_FOUND" | 114 | "NT_STATUS_OBJECT_NAME_NOT_FOUND" |
| 115 | "NT_STATUS_SHARING_VIOLATION" | 115 | "NT_STATUS_SHARING_VIOLATION" |
| 116 | "NT_STATUS_TRUSTED_RELATIONSHIP_FAILURE" | 116 | "NT_STATUS_TRUSTED_RELATIONSHIP_FAILURE" |
| 117 | "NT_STATUS_UNSUCCESSFUL" | ||
| 117 | "NT_STATUS_WRONG_PASSWORD") | 118 | "NT_STATUS_WRONG_PASSWORD") |
| 118 | "\\|") | 119 | "\\|") |
| 119 | "Regexp for possible error strings of SMB servers. | 120 | "Regexp for possible error strings of SMB servers. |