(describe_map): Call Fkey_description before build_string.

5cba3869 · Richard M. Stallman · 4591cb90 · 5cba3869
Commit 5cba3869 authored Feb 19, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/keymap.c src/keymap.c +6 -2

No files found.
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1652,8 +1652,12 @@ describe_map (map, keys, partial, shadow)
  register Lisp_Object keysdesc;

  if (!NILP (keys) && XFASTINT (Flength (keys)) > 0)
-    keysdesc = concat2 (Fkey_description (keys),
-			build_string (" "));
+    {
+      Lisp_Object tem;
+      /* Call Fkey_description first, to avoid GC bug for the other string.  */
+      tem = Fkey_description (keys);
+      keysdesc = concat2 (tem, build_string (" "));
+    }
  else
    keysdesc = Qnil;