# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753340713 0
# Node ID 11f0a3153f63e9fd94e15ad3f5485151b9182c9a
# Parent  368dd7e8095d5d9a87e52988960380108687e54e
(comint-read-input-ring, comint-write-input-ring):
Treat "" like nil in comint-input-ring-file-name.

diff -r 368dd7e8095d -r 11f0a3153f63 lisp/comint.el
--- 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))