(Fmessage): Treat "" like nil.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2f8cc56..f03b2af 100644 (file)
--- 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 2244668..e8b12d7 100644 (file)
--- 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;