aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1994-10-04 12:14:16 +0000
committerKarl Heuer1994-10-04 12:14:16 +0000
commitbff4ec1f9c4b2718849ad41a9404e5cfc68694a9 (patch)
treeba4bc7bc53206d165f51bda07afc20045536712d /src
parent18cd2eebb213f405727e5c715bf71cb9a6835c86 (diff)
downloademacs-bff4ec1f9c4b2718849ad41a9404e5cfc68694a9.tar.gz
emacs-bff4ec1f9c4b2718849ad41a9404e5cfc68694a9.zip
(synkey, Fdescribe_bindings, describe_command): Use new accessor macros
instead of calling XSET directly.
Diffstat (limited to 'src')
-rw-r--r--src/keymap.c6
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)
163 int fromchar, tochar; 163 int fromchar, tochar;
164{ 164{
165 Lisp_Object v, c; 165 Lisp_Object v, c;
166 XSET (v, Lisp_Vector, tomap); 166 XSETVECTOR (v, tomap);
167 XFASTINT (c) = tochar; 167 XFASTINT (c) = tochar;
168 frommap->contents[fromchar] = Fcons (v, c); 168 frommap->contents[fromchar] = Fcons (v, c);
169} 169}
@@ -1820,7 +1820,7 @@ then we display only bindings that start with that prefix.")
1820 Lisp_Object prefix; 1820 Lisp_Object prefix;
1821{ 1821{
1822 register Lisp_Object thisbuf; 1822 register Lisp_Object thisbuf;
1823 XSET (thisbuf, Lisp_Buffer, current_buffer); 1823 XSETBUFFER (thisbuf, current_buffer);
1824 internal_with_output_to_temp_buffer ("*Help*", 1824 internal_with_output_to_temp_buffer ("*Help*",
1825 describe_buffer_bindings, 1825 describe_buffer_bindings,
1826 Fcons (thisbuf, prefix)); 1826 Fcons (thisbuf, prefix));
@@ -2071,7 +2071,7 @@ describe_command (definition)
2071 2071
2072 if (SYMBOLP (definition)) 2072 if (SYMBOLP (definition))
2073 { 2073 {
2074 XSET (tem1, Lisp_String, XSYMBOL (definition)->name); 2074 XSETSTRING (tem1, XSYMBOL (definition)->name);
2075 insert1 (tem1); 2075 insert1 (tem1);
2076 insert_string ("\n"); 2076 insert_string ("\n");
2077 } 2077 }