diff options
| author | John Paul Wallington | 2004-07-06 05:08:57 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-07-06 05:08:57 +0000 |
| commit | fa164e6ae7aa9a26a9a5b08400175becaa0e7724 (patch) | |
| tree | b372e8c623704ba7d5ebdf478d833deb91cb458b /src/fns.c | |
| parent | 8e975df9c8dee54225ebc71ccf7a7746e05fae2d (diff) | |
| download | emacs-fa164e6ae7aa9a26a9a5b08400175becaa0e7724.tar.gz emacs-fa164e6ae7aa9a26a9a5b08400175becaa0e7724.zip | |
(Fclear_string): Signal an error if STRING is not a string.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 1 |
1 files changed, 1 insertions, 0 deletions
| @@ -2370,6 +2370,7 @@ This makes STRING unibyte and may change its length. */) | |||
| 2370 | (string) | 2370 | (string) |
| 2371 | Lisp_Object string; | 2371 | Lisp_Object string; |
| 2372 | { | 2372 | { |
| 2373 | CHECK_STRING (string); | ||
| 2373 | int len = SBYTES (string); | 2374 | int len = SBYTES (string); |
| 2374 | bzero (SDATA (string), len); | 2375 | bzero (SDATA (string), len); |
| 2375 | STRING_SET_CHARS (string, len); | 2376 | STRING_SET_CHARS (string, len); |