From 6076e561e62135fa3d6fda9d1b11a558e0db13cd Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 23 Jul 2002 19:08:44 +0000
Subject: [PATCH] (Fmessage): Treat "" like nil.

---
 src/ChangeLog | 4 ++++
 src/editfns.c | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 2f8cc5665c7..f03b2af7102 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-23  Richard M. Stallman  <rms@gnu.org>
+
+	* editfns.c (Fmessage): Treat "" like nil.
+
 2002-07-23  Kenichi Handa  <handa@etl.go.jp>
 
 	* xdisp.c (face_before_or_after_it_pos): Call
diff --git a/src/editfns.c b/src/editfns.c
index 2244668649e..e8b12d76a3c 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2918,7 +2918,9 @@ usage: (message STRING &rest ARGS)  */)
      int nargs;
      Lisp_Object *args;
 {
-  if (NILP (args[0]))
+  if (NILP (args[0])
+      || (STRINGP (args[0])
+	  && SBYTES (args[0]) == 0))
     {
       message (0);
       return Qnil;
-- 
2.39.5