diff options
| author | Andreas Schwab | 2004-04-12 12:13:03 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2004-04-12 12:13:03 +0000 |
| commit | ab53e0655927e83997ba6d52e4b28844fe4b679d (patch) | |
| tree | dcb8ff38eb647b620cfc58fc235ea291c0544022 /src | |
| parent | 6e56e526815b7c045c5693fb92dcf88473457255 (diff) | |
| download | emacs-ab53e0655927e83997ba6d52e4b28844fe4b679d.tar.gz emacs-ab53e0655927e83997ba6d52e4b28844fe4b679d.zip | |
(Fmake_indirect_buffer): Check that NAME is a string.
Diffstat (limited to 'src')
| -rw-r--r-- | src/buffer.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index d62e186fda8..403baa817d3 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -532,6 +532,7 @@ CLONE nil means the indirect buffer's state is reset to default values. */) | |||
| 532 | Lisp_Object buf; | 532 | Lisp_Object buf; |
| 533 | struct buffer *b; | 533 | struct buffer *b; |
| 534 | 534 | ||
| 535 | CHECK_STRING (name); | ||
| 535 | buf = Fget_buffer (name); | 536 | buf = Fget_buffer (name); |
| 536 | if (!NILP (buf)) | 537 | if (!NILP (buf)) |
| 537 | error ("Buffer name `%s' is in use", SDATA (name)); | 538 | error ("Buffer name `%s' is in use", SDATA (name)); |