Commit 8e03731c authored by Michael Albinus's avatar Michael Albinus

Fix some Tramp problems with HP-UX

* lisp/net/tramp-sh.el (tramp-open-connection-setup-interactive-shell):
Add "tab0" to stty call.

* test/automated/tramp-tests.el (tramp-persistency-file-name):
Set to nil.
(tramp--test-hpux-p): New defun.
(tramp--test-utf8): Use it.
parent 8242c3aa
...@@ -4025,9 +4025,9 @@ process to set up. VEC specifies the connection." ...@@ -4025,9 +4025,9 @@ process to set up. VEC specifies the connection."
(let ((tramp-end-of-output tramp-initial-end-of-output)) (let ((tramp-end-of-output tramp-initial-end-of-output))
(tramp-open-shell vec (tramp-get-method-parameter vec 'tramp-remote-shell)) (tramp-open-shell vec (tramp-get-method-parameter vec 'tramp-remote-shell))
;; Disable echo. ;; Disable tab and echo expansion.
(tramp-message vec 5 "Setting up remote shell environment") (tramp-message vec 5 "Setting up remote shell environment")
(tramp-send-command vec "stty -inlcr -echo kill '^U' erase '^H'" t) (tramp-send-command vec "stty tab0 -inlcr -echo kill '^U' erase '^H'" t)
;; Check whether the echo has really been disabled. Some ;; Check whether the echo has really been disabled. Some
;; implementations, like busybox of embedded GNU/Linux, don't ;; implementations, like busybox of embedded GNU/Linux, don't
;; support disabling. ;; support disabling.
......
...@@ -49,6 +49,7 @@ ...@@ -49,6 +49,7 @@
(declare-function tramp-get-remote-stat "tramp-sh") (declare-function tramp-get-remote-stat "tramp-sh")
(declare-function tramp-get-remote-perl "tramp-sh") (declare-function tramp-get-remote-perl "tramp-sh")
(defvar tramp-copy-size-limit) (defvar tramp-copy-size-limit)
(defvar tramp-persistency-file-name)
(defvar tramp-remote-process-environment) (defvar tramp-remote-process-environment)
;; There is no default value on w32 systems, which could work out of the box. ;; There is no default value on w32 systems, which could work out of the box.
...@@ -70,7 +71,8 @@ ...@@ -70,7 +71,8 @@
(setq password-cache-expiry nil (setq password-cache-expiry nil
tramp-verbose 0 tramp-verbose 0
tramp-copy-size-limit nil tramp-copy-size-limit nil
tramp-message-show-message nil) tramp-message-show-message nil
tramp-persistency-file-name nil)
;; This shall happen on hydra only. ;; This shall happen on hydra only.
(when (getenv "NIX_STORE") (when (getenv "NIX_STORE")
...@@ -1690,6 +1692,14 @@ This requires restrictions of file name syntax." ...@@ -1690,6 +1692,14 @@ This requires restrictions of file name syntax."
(or (eq system-type 'windows-nt) (or (eq system-type 'windows-nt)
(tramp-smb-file-name-p tramp-test-temporary-file-directory))) (tramp-smb-file-name-p tramp-test-temporary-file-directory)))
(defun tramp--test-hpux-p ()
"Check, whether the remote host runs HP-UX.
Several special characters do not work properly there."
;; We must refill the cache.
(with-parsed-tramp-file-name
(file-truename tramp-test-temporary-file-directory) nil
(string-match "^HP-UX" (tramp-get-connection-property v "uname" ""))))
(defun tramp--test-check-files (&rest files) (defun tramp--test-check-files (&rest files)
"Run a simple but comprehensive test over every file in FILES." "Run a simple but comprehensive test over every file in FILES."
;; We must use `file-truename' for the temporary directory, because ;; We must use `file-truename' for the temporary directory, because
...@@ -1939,8 +1949,9 @@ Use the `ls' command." ...@@ -1939,8 +1949,9 @@ Use the `ls' command."
(coding-system-for-write 'utf-8) (coding-system-for-write 'utf-8)
(file-name-coding-system 'utf-8)) (file-name-coding-system 'utf-8))
(tramp--test-check-files (tramp--test-check-files
"Γυρίστε το Γαλαξία με Ώτο Στοπ" (unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ")
"أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت" (unless (tramp--test-hpux-p)
"أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت")
"银河系漫游指南系列" "银河系漫游指南系列"
"Автостопом по гала́ктике"))) "Автостопом по гала́ктике")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment