diff options
| author | Michael Albinus | 2018-12-18 13:58:00 +0100 |
|---|---|---|
| committer | Michael Albinus | 2018-12-18 13:58:00 +0100 |
| commit | 710e79a6c56aff69d69ae7c003346bb38c3e9939 (patch) | |
| tree | c923a61b22f527ecf20c9c2155749f2c44c2650e | |
| parent | 5a9eba603d193324c7ff8c654fa28c6b4f3928f7 (diff) | |
| download | emacs-710e79a6c56aff69d69ae7c003346bb38c3e9939.tar.gz emacs-710e79a6c56aff69d69ae7c003346bb38c3e9939.zip | |
Fix Bug#33781
* lisp/net/tramp-cache.el (tramp-connection-properties):
* lisp/net/tramp-sh.el (tramp-remote-path)
(tramp-remote-process-environment, tramp-sh-extra-args):
Reinsert autoload cookie. (Bug#33781)
* test/lisp/net/tramp-tests.el: Do not require tramp-sh before
changing tramp-remote-path.
| -rw-r--r-- | lisp/net/tramp-cache.el | 1 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 3 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 1 |
3 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 47066760fb6..f525bb913df 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el | |||
| @@ -72,6 +72,7 @@ | |||
| 72 | (defvar tramp-cache-data (make-hash-table :test 'equal) | 72 | (defvar tramp-cache-data (make-hash-table :test 'equal) |
| 73 | "Hash table for remote files properties.") | 73 | "Hash table for remote files properties.") |
| 74 | 74 | ||
| 75 | ;;;###tramp-autoload | ||
| 75 | (defcustom tramp-connection-properties nil | 76 | (defcustom tramp-connection-properties nil |
| 76 | "List of static connection properties. | 77 | "List of static connection properties. |
| 77 | Every entry has the form (REGEXP PROPERTY VALUE). The regexp | 78 | Every entry has the form (REGEXP PROPERTY VALUE). The regexp |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 05715f2477f..e4ec735a96c 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -466,6 +466,7 @@ The string is used in `tramp-methods'.") | |||
| 466 | ;; Darwin: /usr/bin:/bin:/usr/sbin:/sbin | 466 | ;; Darwin: /usr/bin:/bin:/usr/sbin:/sbin |
| 467 | ;; IRIX64: /usr/bin | 467 | ;; IRIX64: /usr/bin |
| 468 | ;; QNAP QTS: --- | 468 | ;; QNAP QTS: --- |
| 469 | ;;;###tramp-autoload | ||
| 469 | (defcustom tramp-remote-path | 470 | (defcustom tramp-remote-path |
| 470 | '(tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" | 471 | '(tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" |
| 471 | "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" | 472 | "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" |
| @@ -495,6 +496,7 @@ the list by the special value `tramp-own-remote-path'." | |||
| 495 | (const :tag "Private Directories" tramp-own-remote-path) | 496 | (const :tag "Private Directories" tramp-own-remote-path) |
| 496 | (string :tag "Directory")))) | 497 | (string :tag "Directory")))) |
| 497 | 498 | ||
| 499 | ;;;###tramp-autoload | ||
| 498 | (defcustom tramp-remote-process-environment | 500 | (defcustom tramp-remote-process-environment |
| 499 | '("ENV=''" "TMOUT=0" "LC_CTYPE=''" | 501 | '("ENV=''" "TMOUT=0" "LC_CTYPE=''" |
| 500 | "CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH=" "PAGER=cat" | 502 | "CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH=" "PAGER=cat" |
| @@ -518,6 +520,7 @@ based on the Tramp and Emacs versions, and should not be set here." | |||
| 518 | :version "26.1" | 520 | :version "26.1" |
| 519 | :type '(repeat string)) | 521 | :type '(repeat string)) |
| 520 | 522 | ||
| 523 | ;;;###tramp-autoload | ||
| 521 | (defcustom tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile")) | 524 | (defcustom tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile")) |
| 522 | "Alist specifying extra arguments to pass to the remote shell. | 525 | "Alist specifying extra arguments to pass to the remote shell. |
| 523 | Entries are (REGEXP . ARGS) where REGEXP is a regular expression | 526 | Entries are (REGEXP . ARGS) where REGEXP is a regular expression |
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index c566f81610b..57b67a0bfe4 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -107,7 +107,6 @@ | |||
| 107 | 107 | ||
| 108 | ;; This should happen on hydra only. | 108 | ;; This should happen on hydra only. |
| 109 | (when (getenv "EMACS_HYDRA_CI") | 109 | (when (getenv "EMACS_HYDRA_CI") |
| 110 | (require 'tramp-sh) | ||
| 111 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) | 110 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) |
| 112 | 111 | ||
| 113 | (defvar tramp--test-enabled-checked nil | 112 | (defvar tramp--test-enabled-checked nil |