diff options
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 12 |
1 files changed, 6 insertions, 6 deletions
| @@ -865,16 +865,14 @@ Otherwise, return a new string. */) | |||
| 865 | \<foo> just sets the keymap used for \[cmd]. */ | 865 | \<foo> just sets the keymap used for \[cmd]. */ |
| 866 | else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<')) | 866 | else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<')) |
| 867 | { | 867 | { |
| 868 | struct buffer *oldbuf; | 868 | { |
| 869 | ptrdiff_t start_idx; | ||
| 870 | /* This is for computing the SHADOWS arg for describe_map_tree. */ | 869 | /* This is for computing the SHADOWS arg for describe_map_tree. */ |
| 871 | Lisp_Object active_maps = Fcurrent_active_maps (Qnil, Qnil); | 870 | Lisp_Object active_maps = Fcurrent_active_maps (Qnil, Qnil); |
| 872 | Lisp_Object earlier_maps; | ||
| 873 | ptrdiff_t count = SPECPDL_INDEX (); | 871 | ptrdiff_t count = SPECPDL_INDEX (); |
| 874 | 872 | ||
| 875 | strp += 2; /* skip \{ or \< */ | 873 | strp += 2; /* skip \{ or \< */ |
| 876 | start = strp; | 874 | start = strp; |
| 877 | start_idx = start - SDATA (string); | 875 | ptrdiff_t start_idx = start - SDATA (string); |
| 878 | 876 | ||
| 879 | while ((strp - SDATA (string) < SBYTES (string)) | 877 | while ((strp - SDATA (string) < SBYTES (string)) |
| 880 | && *strp != '}' && *strp != '>') | 878 | && *strp != '}' && *strp != '>') |
| @@ -904,7 +902,7 @@ Otherwise, return a new string. */) | |||
| 904 | } | 902 | } |
| 905 | 903 | ||
| 906 | /* Now switch to a temp buffer. */ | 904 | /* Now switch to a temp buffer. */ |
| 907 | oldbuf = current_buffer; | 905 | struct buffer *oldbuf = current_buffer; |
| 908 | set_buffer_internal (XBUFFER (Vprin1_to_string_buffer)); | 906 | set_buffer_internal (XBUFFER (Vprin1_to_string_buffer)); |
| 909 | /* This is for an unusual case where some after-change | 907 | /* This is for an unusual case where some after-change |
| 910 | function uses 'format' or 'prin1' or something else that | 908 | function uses 'format' or 'prin1' or something else that |
| @@ -929,7 +927,8 @@ Otherwise, return a new string. */) | |||
| 929 | { | 927 | { |
| 930 | /* Get the list of active keymaps that precede this one. | 928 | /* Get the list of active keymaps that precede this one. |
| 931 | If this one's not active, get nil. */ | 929 | If this one's not active, get nil. */ |
| 932 | earlier_maps = Fcdr (Fmemq (tem, Freverse (active_maps))); | 930 | Lisp_Object earlier_maps |
| 931 | = Fcdr (Fmemq (tem, Freverse (active_maps))); | ||
| 933 | describe_map_tree (tem, 1, Fnreverse (earlier_maps), | 932 | describe_map_tree (tem, 1, Fnreverse (earlier_maps), |
| 934 | Qnil, 0, 1, 0, 0, 1); | 933 | Qnil, 0, 1, 0, 0, 1); |
| 935 | } | 934 | } |
| @@ -937,6 +936,7 @@ Otherwise, return a new string. */) | |||
| 937 | Ferase_buffer (); | 936 | Ferase_buffer (); |
| 938 | set_buffer_internal (oldbuf); | 937 | set_buffer_internal (oldbuf); |
| 939 | unbind_to (count, Qnil); | 938 | unbind_to (count, Qnil); |
| 939 | } | ||
| 940 | 940 | ||
| 941 | subst_string: | 941 | subst_string: |
| 942 | start = SDATA (tem); | 942 | start = SDATA (tem); |