Commit 9be15385 authored by Ted Zlatanov's avatar Ted Zlatanov
Browse files

Introduce tramp-histfile-override.

* net/tramp-sh.el (tramp-histfile-override): New variable.
(tramp-open-shell, tramp-maybe-open-connection): Use it.
parent 72ef8d76
......@@ -64,6 +64,15 @@ files conditionalize this setup based on the TERM environment variable."
:group 'tramp
:type 'string)
(defcustom tramp-histfile-override "/dev/null"
"Whether the HISTFILE should be overridden to something. Set
to nil to disable the override."
:group 'tramp
:type '(choice (const :tag "Do not override HISTFILE" nil)
(const :tag "Empty the history (/dev/null)" "/dev/null")
(string :tag "Redirect to a file")))
(defconst tramp-color-escape-sequence-regexp "\e[[;0-9]+m"
"Escape sequences produced by the \"ls\" command.")
......@@ -3882,7 +3891,10 @@ file exists and nonzero exit status otherwise."
;; the prompt in /bin/bash, it must be discarded as well.
vec (format
"exec env ENV='' HISTFILE=/dev/null PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s %s"
"exec env ENV=''%s PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s %s"
(if tramp-histfile-override
(concat " HISTFILE=" tramp-histfile-override)
(tramp-shell-quote-argument tramp-end-of-output)
shell (or extra-args ""))
......@@ -4603,7 +4615,8 @@ connection if a previous connection has died for some reason."
(delete-process p))
(setenv "TERM" tramp-terminal-type)
(setenv "LC_ALL" "en_US.utf8")
(setenv "HISTFILE" "/dev/null")
(when tramp-histfile-override
(setenv "HISTFILE" tramp-histfile-override))
(setenv "PS1" tramp-initial-end-of-output)
(let* ((target-alist (tramp-compute-multi-hops vec))
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