]> git.eshelyaron.com Git - emacs.git/commitdiff
* net/tramp-sh.el (tramp-histfile-override): Use t instead of `unset'.
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 2 Feb 2015 19:47:31 +0000 (20:47 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 2 Feb 2015 19:47:31 +0000 (20:47 +0100)
lisp/ChangeLog
lisp/net/tramp-sh.el

index 6e5b078f94d700183f54b84acd7607213598d335..77361bc3a01cfc0ed967beb708851152cd201904 100644 (file)
@@ -8,8 +8,8 @@
 
 2015-02-02  Michael Albinus  <michael.albinus@gmx.de>
 
-       * net/tramp-sh.el (tramp-histfile-override): Add another choice
-       'unset.  Use it as default.
+       * net/tramp-sh.el (tramp-histfile-override): Add another choice t.
+       Use it as default.
        (tramp-open-shell, tramp-maybe-open-connection): Support it.
        (Bug#19731)
 
index 20e32e9df6be576294f0dcc01976bf48b324ad7f..8e519b13e5f290baf0a04ec1d17c27857c9b84f9 100644 (file)
@@ -65,21 +65,20 @@ files conditionalize this setup based on the TERM environment variable."
   :type 'string)
 
 ;;;###tramp-autoload
-(defcustom tramp-histfile-override 'unset
+(defcustom tramp-histfile-override t
   "When invoking a shell, override the HISTFILE with this value.
-By default, it is set to the symbol `unset', which unsets any
-setting of HISTFILE.  When setting to a string, it redirects the
-shell history to that file.  Be careful when setting to
-\"/dev/null\"; this might result in undesired results when using
-\"bash\" as shell.
+When setting to a string, it redirects the shell history to that
+file.  Be careful when setting to \"/dev/null\"; this might
+result in undesired results when using \"bash\" as shell.
 
+The value t, the default value, unsets any setting of HISTFILE.
 If you set this variable to nil, however, the *override* is
 disabled, so the history will go to the default storage
 location, e.g. \"$HOME/.sh_history\"."
   :group 'tramp
   :version "25.1"
   :type '(choice (const :tag "Do not override HISTFILE" nil)
-                 (const :tag "Unset HISTFILE" unset)
+                 (const :tag "Unset HISTFILE" t)
                  (string :tag "Redirect to a file")))
 
 ;;;###tramp-autoload
@@ -3908,9 +3907,8 @@ file exists and nonzero exit status otherwise."
             (if tramp-histfile-override
                 (concat
                 "HISTFILE="
-                (if (eq tramp-histfile-override 'unset)
-                    ""
-                  (tramp-shell-quote-argument tramp-histfile-override)))
+                (if (stringp tramp-histfile-override)
+                    (tramp-shell-quote-argument tramp-histfile-override) ""))
               "")
            (tramp-shell-quote-argument tramp-end-of-output)
            shell (or extra-args ""))
@@ -4635,7 +4633,7 @@ connection if a previous connection has died for some reason."
              (setenv "LC_ALL" "en_US.utf8")
              (when tramp-histfile-override
                 (setenv "HISTFILE"
-                       (and (not (eq tramp-histfile-override 'unset))
+                       (and (stringp tramp-histfile-override)
                             tramp-histfile-override)))
              (setenv "PROMPT_COMMAND")
              (setenv "PS1" tramp-initial-end-of-output)