Mercurial > emacs
changeset 5016:11f0a3153f63
(comint-read-input-ring, comint-write-input-ring):
Treat "" like nil in comint-input-ring-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Nov 1993 05:18:33 +0000 |
| parents | 368dd7e8095d |
| children | 9c277d938ccd |
| files | lisp/comint.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Mon Nov 15 04:13:48 1993 +0000 +++ b/lisp/comint.el Mon Nov 15 05:18:33 1993 +0000 @@ -611,7 +611,8 @@ The structure of the history file should be one input command per line, and most recent command last. See also `comint-input-ignoredups' and `comint-write-input-ring'." - (cond ((null comint-input-ring-file-name) + (cond ((or (null comint-input-ring-file-name) + (equal comint-input-ring-file-name "")) nil) ((not (file-readable-p comint-input-ring-file-name)) (message "Cannot read history file %s" comint-input-ring-file-name)) @@ -650,6 +651,7 @@ See also `comint-read-input-ring'." (cond ((or (null comint-input-ring-file-name) + (equal comint-input-ring-file-name "") (null comint-input-ring) (ring-empty-p comint-input-ring)) nil) ((not (file-writable-p comint-input-ring-file-name))