diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:14:16 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:14:16 +0000 |
commit | 25896f006bb4d3f8d05480760d50f0ac7243094e (patch) | |
tree | 701c1a760a46043f6081a63a5292c36ed4999904 /src/keymap.c | |
parent | 16b5ba6fe648b69d47aa52c476e52ae65e15e928 (diff) | |
download | emacs-25896f006bb4d3f8d05480760d50f0ac7243094e.tar.gz |
(synkey, Fdescribe_bindings, describe_command): Use new accessor macros
instead of calling XSET directly.
Diffstat (limited to 'src/keymap.c')
-rw-r--r-- | src/keymap.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/keymap.c b/src/keymap.c index 13b8b262237..a750972575c 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -163,7 +163,7 @@ synkey (frommap, fromchar, tomap, tochar) int fromchar, tochar; { Lisp_Object v, c; - XSET (v, Lisp_Vector, tomap); + XSETVECTOR (v, tomap); XFASTINT (c) = tochar; frommap->contents[fromchar] = Fcons (v, c); } @@ -1820,7 +1820,7 @@ then we display only bindings that start with that prefix.") Lisp_Object prefix; { register Lisp_Object thisbuf; - XSET (thisbuf, Lisp_Buffer, current_buffer); + XSETBUFFER (thisbuf, current_buffer); internal_with_output_to_temp_buffer ("*Help*", describe_buffer_bindings, Fcons (thisbuf, prefix)); @@ -2071,7 +2071,7 @@ describe_command (definition) if (SYMBOLP (definition)) { - XSET (tem1, Lisp_String, XSYMBOL (definition)->name); + XSETSTRING (tem1, XSYMBOL (definition)->name); insert1 (tem1); insert_string ("\n"); } |