aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2018-12-18 13:58:00 +0100
committerMichael Albinus2018-12-18 13:58:00 +0100
commit710e79a6c56aff69d69ae7c003346bb38c3e9939 (patch)
treec923a61b22f527ecf20c9c2155749f2c44c2650e
parent5a9eba603d193324c7ff8c654fa28c6b4f3928f7 (diff)
downloademacs-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.el1
-rw-r--r--lisp/net/tramp-sh.el3
-rw-r--r--test/lisp/net/tramp-tests.el1
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.
77Every entry has the form (REGEXP PROPERTY VALUE). The regexp 78Every 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.
523Entries are (REGEXP . ARGS) where REGEXP is a regular expression 526Entries 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