Mercurial > emacs
comparison src/doc.c @ 50629:36d13cf0f114
(Fsubstitute_command_keys): Remove spurious casts.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 17 Apr 2003 21:58:34 +0000 |
| parents | 23a1cea22d13 |
| children | cc6e47eeb0a8 |
comparison
equal
deleted
inserted
replaced
| 50628:37a13dfcd8c2 | 50629:36d13cf0f114 |
|---|---|
| 723 keymap = Voverriding_local_map; | 723 keymap = Voverriding_local_map; |
| 724 | 724 |
| 725 bsize = SBYTES (string); | 725 bsize = SBYTES (string); |
| 726 bufp = buf = (unsigned char *) xmalloc (bsize); | 726 bufp = buf = (unsigned char *) xmalloc (bsize); |
| 727 | 727 |
| 728 strp = (unsigned char *) SDATA (string); | 728 strp = SDATA (string); |
| 729 while (strp < SDATA (string) + SBYTES (string)) | 729 while (strp < SDATA (string) + SBYTES (string)) |
| 730 { | 730 { |
| 731 if (strp[0] == '\\' && strp[1] == '=') | 731 if (strp[0] == '\\' && strp[1] == '=') |
| 732 { | 732 { |
| 733 /* \= quotes the next character; | 733 /* \= quotes the next character; |
| 759 changed = 1; | 759 changed = 1; |
| 760 strp += 2; /* skip \[ */ | 760 strp += 2; /* skip \[ */ |
| 761 start = strp; | 761 start = strp; |
| 762 start_idx = start - SDATA (string); | 762 start_idx = start - SDATA (string); |
| 763 | 763 |
| 764 while ((strp - (unsigned char *) SDATA (string) | 764 while ((strp - SDATA (string) |
| 765 < SBYTES (string)) | 765 < SBYTES (string)) |
| 766 && *strp != ']') | 766 && *strp != ']') |
| 767 strp++; | 767 strp++; |
| 768 length_byte = strp - start; | 768 length_byte = strp - start; |
| 769 | 769 |
| 770 strp++; /* skip ] */ | 770 strp++; /* skip ] */ |
| 771 | 771 |
| 772 /* Save STRP in IDX. */ | 772 /* Save STRP in IDX. */ |
| 773 idx = strp - (unsigned char *) SDATA (string); | 773 idx = strp - SDATA (string); |
| 774 tem = Fintern (make_string (start, length_byte), Qnil); | 774 tem = Fintern (make_string (start, length_byte), Qnil); |
| 775 | 775 |
| 776 /* Note the Fwhere_is_internal can GC, so we have to take | 776 /* Note the Fwhere_is_internal can GC, so we have to take |
| 777 relocation of string contents into account. */ | 777 relocation of string contents into account. */ |
| 778 tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qnil); | 778 tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qnil); |
| 819 changed = 1; | 819 changed = 1; |
| 820 strp += 2; /* skip \{ or \< */ | 820 strp += 2; /* skip \{ or \< */ |
| 821 start = strp; | 821 start = strp; |
| 822 start_idx = start - SDATA (string); | 822 start_idx = start - SDATA (string); |
| 823 | 823 |
| 824 while ((strp - (unsigned char *) SDATA (string) | 824 while ((strp - SDATA (string) < SCHARS (string)) |
| 825 < SCHARS (string)) | |
| 826 && *strp != '}' && *strp != '>') | 825 && *strp != '}' && *strp != '>') |
| 827 strp++; | 826 strp++; |
| 828 | 827 |
| 829 length_byte = strp - start; | 828 length_byte = strp - start; |
| 830 strp++; /* skip } or > */ | 829 strp++; /* skip } or > */ |
| 831 | 830 |
| 832 /* Save STRP in IDX. */ | 831 /* Save STRP in IDX. */ |
| 833 idx = strp - (unsigned char *) SDATA (string); | 832 idx = strp - SDATA (string); |
| 834 | 833 |
| 835 /* Get the value of the keymap in TEM, or nil if undefined. | 834 /* Get the value of the keymap in TEM, or nil if undefined. |
| 836 Do this while still in the user's current buffer | 835 Do this while still in the user's current buffer |
| 837 in case it is a local variable. */ | 836 in case it is a local variable. */ |
| 838 name = Fintern (make_string (start, length_byte), Qnil); | 837 name = Fintern (make_string (start, length_byte), Qnil); |