diff options
author | Richard M. Stallman <[email protected]> | 2002-07-23 19:08:44 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-07-23 19:08:44 +0000 |
commit | 6076e561e62135fa3d6fda9d1b11a558e0db13cd (patch) | |
tree | f96b12be89e4540bce46acac3618d709ae9b98de | |
parent | 5ef080214c114873b71d98b482a0acf0468fac07 (diff) |
(Fmessage): Treat "" like nil.
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/editfns.c | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 2f8cc5665c..f03b2af710 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2002-07-23 Richard M. Stallman <[email protected]> + + * editfns.c (Fmessage): Treat "" like nil. + 2002-07-23 Kenichi Handa <[email protected]> * xdisp.c (face_before_or_after_it_pos): Call diff --git a/src/editfns.c b/src/editfns.c index 2244668649..e8b12d76a3 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; |