From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Jul 2002 19:08:44 +0000 (+0000)
Subject: (Fmessage): Treat "" like nil.
X-Git-Tag: ttn-vms-21-2-B4~13902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6076e561e62135fa3d6fda9d1b11a558e0db13cd;p=emacs.git

(Fmessage): Treat "" like nil.
---

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;