Mercurial > emacs
comparison src/keymap.c @ 1890:0ca7640360bd
(describe_map): Call Fkey_description before build_string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 19 Feb 1993 05:43:54 +0000 |
| parents | 00bee181f7ed |
| children | 648bc44d182a |
comparison
equal
deleted
inserted
replaced
| 1889:1ed971f67bfd | 1890:0ca7640360bd |
|---|---|
| 1650 Lisp_Object shadow; | 1650 Lisp_Object shadow; |
| 1651 { | 1651 { |
| 1652 register Lisp_Object keysdesc; | 1652 register Lisp_Object keysdesc; |
| 1653 | 1653 |
| 1654 if (!NILP (keys) && XFASTINT (Flength (keys)) > 0) | 1654 if (!NILP (keys) && XFASTINT (Flength (keys)) > 0) |
| 1655 keysdesc = concat2 (Fkey_description (keys), | 1655 { |
| 1656 build_string (" ")); | 1656 Lisp_Object tem; |
| 1657 /* Call Fkey_description first, to avoid GC bug for the other string. */ | |
| 1658 tem = Fkey_description (keys); | |
| 1659 keysdesc = concat2 (tem, build_string (" ")); | |
| 1660 } | |
| 1657 else | 1661 else |
| 1658 keysdesc = Qnil; | 1662 keysdesc = Qnil; |
| 1659 | 1663 |
| 1660 describe_map_2 (map, keysdesc, describe_command, partial, shadow); | 1664 describe_map_2 (map, keysdesc, describe_command, partial, shadow); |
| 1661 } | 1665 } |