From 07ccf0bc946915c7284a70918b3bf4192756bd62 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Nov 1993 05:18:33 +0000 Subject: [PATCH] (comint-read-input-ring, comint-write-input-ring): Treat "" like nil in comint-input-ring-file-name. --- lisp/comint.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/comint.el b/lisp/comint.el index 81e48cd209a..4705d43546b 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -611,7 +611,8 @@ Useful within mode or mode hooks. 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 @@ Useful within process sentinels. 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)) -- 2.39.5