(Fmessage): Treat "" like nil.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2f8cc5665c723d3ff9c1173819d0388ec9d4b43c..f03b2af7102ec765bd6ca1e0d8dee14bd4cb7ef7 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 2244668649e7b8fc9d7a22bbad74e8f791c7e75b..e8b12d76a3c7f992d611415b5303118420f8c051 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;