diff options
| author | Jim Blandy | 1992-10-03 00:05:39 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-10-03 00:05:39 +0000 |
| commit | cebd887d3a826a6c493f933ecf02b62df779750a (patch) | |
| tree | 69beb6b41051efea997513304ae17046c09d825d /src | |
| parent | c1f6cc77a69159a0a9a8b14b057ec5bc9fa8eaa1 (diff) | |
| download | emacs-cebd887d3a826a6c493f933ecf02b62df779750a.tar.gz emacs-cebd887d3a826a6c493f933ecf02b62df779750a.zip | |
* keymap.c (access_keymap, store_in_keymap,
Fsingle_key_description): No need to check for
EVENT_HAS_PARAMETERS before using EVENT_HEAD; the latter now
works properly on all sorts of events.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keymap.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/keymap.c b/src/keymap.c index 22846bb7eff..069d6460c1c 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -215,8 +215,7 @@ access_keymap (map, idx) | |||
| 215 | /* If idx is a list (some sort of mouse click, perhaps?), | 215 | /* If idx is a list (some sort of mouse click, perhaps?), |
| 216 | the index we want to use is the car of the list, which | 216 | the index we want to use is the car of the list, which |
| 217 | ought to be a symbol. */ | 217 | ought to be a symbol. */ |
| 218 | if (EVENT_HAS_PARAMETERS (idx)) | 218 | idx = EVENT_HEAD (idx); |
| 219 | idx = EVENT_HEAD (idx); | ||
| 220 | 219 | ||
| 221 | if (XTYPE (idx) == Lisp_Int | 220 | if (XTYPE (idx) == Lisp_Int |
| 222 | && (XINT (idx) < 0 || XINT (idx) >= DENSE_TABLE_SIZE)) | 221 | && (XINT (idx) < 0 || XINT (idx) >= DENSE_TABLE_SIZE)) |
| @@ -312,8 +311,7 @@ store_in_keymap (keymap, idx, def) | |||
| 312 | /* If idx is a list (some sort of mouse click, perhaps?), | 311 | /* If idx is a list (some sort of mouse click, perhaps?), |
| 313 | the index we want to use is the car of the list, which | 312 | the index we want to use is the car of the list, which |
| 314 | ought to be a symbol. */ | 313 | ought to be a symbol. */ |
| 315 | if (EVENT_HAS_PARAMETERS (idx)) | 314 | idx = EVENT_HEAD (idx); |
| 316 | idx = EVENT_HEAD (idx); | ||
| 317 | 315 | ||
| 318 | if (XTYPE (idx) == Lisp_Int | 316 | if (XTYPE (idx) == Lisp_Int |
| 319 | && (XINT (idx) < 0 || XINT (idx) >= DENSE_TABLE_SIZE)) | 317 | && (XINT (idx) < 0 || XINT (idx) >= DENSE_TABLE_SIZE)) |
| @@ -1105,8 +1103,7 @@ Control characters turn into C-whatever, etc.") | |||
| 1105 | register unsigned char c; | 1103 | register unsigned char c; |
| 1106 | char tem[6]; | 1104 | char tem[6]; |
| 1107 | 1105 | ||
| 1108 | if (EVENT_HAS_PARAMETERS (key)) | 1106 | key = EVENT_HEAD (key); |
| 1109 | key = EVENT_HEAD (key); | ||
| 1110 | 1107 | ||
| 1111 | switch (XTYPE (key)) | 1108 | switch (XTYPE (key)) |
| 1112 | { | 1109 | { |