Mercurial > emacs

diff src/fns.c @ 56358:97e94a98c666

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fclear_string): Signal an error if STRING is not a string.
author John Paul Wallington <jpw@pobox.com>
date Tue, 06 Jul 2004 05:07:20 +0000
parents 98133cccc0cc
children 1f6748b338da
line wrap: on
line diff
--- a/src/fns.c	Tue Jul 06 01:38:58 2004 +0000
+++ b/src/fns.c	Tue Jul 06 05:07:20 2004 +0000
@@ -2370,6 +2370,7 @@
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   int len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);