From: Ted Zlatanov <tzz@lifelogs.com>
Date: Wed, 17 Dec 2014 19:05:15 +0000 (-0500)
Subject: Introduce tramp-histfile-override.
X-Git-Tag: emacs-25.0.90~2635^2~50^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9be1538571e420b5a7bc7e93006cea1c1b47790e;p=emacs.git

Introduce tramp-histfile-override.

* net/tramp-sh.el (tramp-histfile-override): New variable.
(tramp-open-shell, tramp-maybe-open-connection): Use it.
---

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index c4d5e2fa97a..c639af3c230 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -64,6 +64,15 @@ files conditionalize this setup based on the TERM environment variable."
   :group 'tramp
   :type 'string)
 
+;;;###tramp-autoload
+(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")))
+
 ;;;###tramp-autoload
 (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.
       (tramp-send-command
        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 ""))
        t))
@@ -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 "PROMPT_COMMAND")
 	      (setenv "PS1" tramp-initial-end-of-output)
 	      (let* ((target-alist (tramp-compute-multi-hops vec))