aboutsummaryrefslogtreecommitdiffstats
path: root/src/doc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/doc.c')
-rw-r--r--src/doc.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/doc.c b/src/doc.c
index a9273f05809..ae807910316 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -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);