]> git.eshelyaron.com Git - emacs.git/commitdiff
(eshell-save-history-on-exit): Renamed `eshell-ask-to-save-history'
authorJohn Wiegley <johnw@newartisans.com>
Wed, 15 Jan 2003 16:06:49 +0000 (16:06 +0000)
committerJohn Wiegley <johnw@newartisans.com>
Wed, 15 Jan 2003 16:06:49 +0000 (16:06 +0000)
to `eshell-save-history-on-exit', because the former name is somewhat
unrelated to the variables' possible values.

lisp/eshell/em-hist.el

index 468e938e32631f4d963d63aced85da7cb0a7204d..0f94f741b8f611fca7e1038c4faa1db6b4f69fb9 100644 (file)
@@ -104,17 +104,17 @@ This mirrors the optional behavior of bash."
   :type 'boolean
   :group 'eshell-hist)
 
-(defcustom eshell-ask-to-save-history t
+(defcustom eshell-save-history-on-exit 'ask
   "*Determine if history should be automatically saved.
 History is always preserved after sanely exiting an Eshell buffer.
 However, when Emacs is being shut down, this variable determines
 whether to prompt the user.
-If set to nil, it means never ask whether history should be saved.
-If set to t, always ask if any Eshell buffers are open at exit time.
-If set to `always', history will always be saved, silently."
+If set to nil, it means never save history on termination of Emacs.
+If set to `ask', ask if any Eshell buffers are open at exit time.
+If set to t, history will always be saved, silently."
   :type '(choice (const :tag "Never" nil)
-                (const :tag "Ask" t)
-                (const :tag "Always save" always))
+                (const :tag "Ask" ask)
+                (const :tag "Always save" t))
   :group 'eshell-hist)
 
 (defcustom eshell-input-filter
@@ -269,7 +269,7 @@ element, regardless of any text on the command line.  In that case,
   (make-local-variable 'eshell-save-history-index)
 
   (if (minibuffer-window-active-p (selected-window))
-      (set (make-local-variable 'eshell-ask-to-save-history) nil)
+      (set (make-local-variable 'eshell-save-history-on-exit) nil)
     (set (make-local-variable 'eshell-history-ring) nil)
     (if eshell-history-file-name
        (eshell-read-history nil t))
@@ -296,8 +296,8 @@ element, regardless of any text on the command line.  In that case,
        (with-current-buffer buf
          (if (and eshell-mode
                   eshell-history-file-name
-                  eshell-ask-to-save-history
-                  (or (eq eshell-ask-to-save-history 'always)
+                  eshell-save-history-on-exit
+                  (or (eq eshell-save-history-on-exit t)
                       (y-or-n-p
                        (format "Save input history for Eshell buffer `%s'? "
                                (buffer-name buf)))))