diff options
| author | Karl Heuer | 1994-10-04 12:14:16 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 12:14:16 +0000 |
| commit | bff4ec1f9c4b2718849ad41a9404e5cfc68694a9 (patch) | |
| tree | ba4bc7bc53206d165f51bda07afc20045536712d /src | |
| parent | 18cd2eebb213f405727e5c715bf71cb9a6835c86 (diff) | |
| download | emacs-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.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) | |||
| 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 | } |