Mercurial > emacs
changeset 49266:f4d32be2d504
(eshell-save-history-on-exit): Renamed `eshell-ask-to-save-history'
to `eshell-save-history-on-exit', because the former name is somewhat
unrelated to the variables' possible values.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Wed, 15 Jan 2003 16:06:49 +0000 |
| parents | 35062135291a |
| children | cc4646701e99 |
| files | lisp/eshell/em-hist.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/em-hist.el Wed Jan 15 16:06:30 2003 +0000 +++ b/lisp/eshell/em-hist.el Wed Jan 15 16:06:49 2003 +0000 @@ -104,17 +104,17 @@ :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 @@ (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 @@ (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)))))