diff options
| author | Richard M. Stallman | 1998-01-09 22:59:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-09 22:59:31 +0000 |
| commit | 115afec3199426e9c3cec469079b884724d92bc1 (patch) | |
| tree | e9499d6206a4f1c0429b8291af63eec7ec00dd89 /src | |
| parent | 5245463a5c37189f5517caca8574ee127ec2e1f4 (diff) | |
| download | emacs-115afec3199426e9c3cec469079b884724d92bc1.tar.gz emacs-115afec3199426e9c3cec469079b884724d92bc1.zip | |
(Fmake_category_set): Don't allow multibyte string.
(describe_category): Pass new args to insert_from_string.
(describe_category_1): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/category.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/category.c b/src/category.c index 94739b0eff7..8e6097258de 100644 --- a/src/category.c +++ b/src/category.c | |||
| @@ -63,6 +63,9 @@ CATEGORIES is a string of category mnemonics.") | |||
| 63 | CHECK_STRING (categories, 0); | 63 | CHECK_STRING (categories, 0); |
| 64 | val = MAKE_CATEGORY_SET; | 64 | val = MAKE_CATEGORY_SET; |
| 65 | 65 | ||
| 66 | if (STRING_MULTIBYTE (categories)) | ||
| 67 | error ("Multibyte string in make-category-set"); | ||
| 68 | |||
| 66 | len = XSTRING (categories)->size; | 69 | len = XSTRING (categories)->size; |
| 67 | while (--len >= 0) | 70 | while (--len >= 0) |
| 68 | { | 71 | { |
| @@ -486,7 +489,8 @@ describe_category (value) | |||
| 486 | } | 489 | } |
| 487 | 490 | ||
| 488 | mnemonics = Fcategory_set_mnemonics (value); | 491 | mnemonics = Fcategory_set_mnemonics (value); |
| 489 | insert_from_string (mnemonics, 0, XSTRING (mnemonics)->size, 0); | 492 | insert_from_string (mnemonics, 0, 0, XSTRING (mnemonics)->size, |
| 493 | XSTRING (mnemonics)->size_byte, 0); | ||
| 490 | insert_string ("\n"); | 494 | insert_string ("\n"); |
| 491 | return; | 495 | return; |
| 492 | } | 496 | } |
| @@ -519,7 +523,8 @@ describe_category_1 (vector) | |||
| 519 | 523 | ||
| 520 | insert_char (i + 32); | 524 | insert_char (i + 32); |
| 521 | insert (": ", 2); | 525 | insert (": ", 2); |
| 522 | insert_from_string (elt, 0, XSTRING (elt)->size, 0); | 526 | insert_from_string (elt, 0, 0, XSTRING (elt)->size, |
| 527 | XSTRING (elt)->size_byte, 0); | ||
| 523 | insert ("\n", 1); | 528 | insert ("\n", 1); |
| 524 | } | 529 | } |
| 525 | } | 530 | } |