(Fmessage): Treat "" like nil.

2 files changed, 7 insertions, 1 deletions

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;