diff options
| author | Richard M. Stallman | 2001-11-07 03:35:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-07 03:35:05 +0000 |
| commit | efb916453fe0f83600a43ba648a1432ab93a260c (patch) | |
| tree | 7e1920b4086ad0da7d4378de558b19170e65c5f1 /src | |
| parent | 63b74e641f93a6db205ae9dc2e02d57c7593383f (diff) | |
| download | emacs-efb916453fe0f83600a43ba648a1432ab93a260c.tar.gz emacs-efb916453fe0f83600a43ba648a1432ab93a260c.zip | |
(access_keymap): Don't use initializers on Lisp_Object.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keymap.c | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index 018e1ea1eb9..cb42d0e55a7 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -476,7 +476,10 @@ access_keymap (map, idx, t_ok, noinherit, autoload) | |||
| 476 | int noinherit; | 476 | int noinherit; |
| 477 | int autoload; | 477 | int autoload; |
| 478 | { | 478 | { |
| 479 | Lisp_Object val = Qunbound; | 479 | Lisp_Object val; |
| 480 | |||
| 481 | /* Qunbound in VAL means we have found no binding yet. */ | ||
| 482 | val = Qunbound; | ||
| 480 | 483 | ||
| 481 | /* If idx is a list (some sort of mouse click, perhaps?), | 484 | /* If idx is a list (some sort of mouse click, perhaps?), |
| 482 | the index we want to use is the car of the list, which | 485 | the index we want to use is the car of the list, which |
| @@ -516,7 +519,13 @@ access_keymap (map, idx, t_ok, noinherit, autoload) | |||
| 516 | 519 | ||
| 517 | { | 520 | { |
| 518 | Lisp_Object tail; | 521 | Lisp_Object tail; |
| 519 | Lisp_Object t_binding = Qnil; | 522 | |
| 523 | /* t_binding is where we put a default binding that applies, | ||
| 524 | to use in case we do not find a binding specifically | ||
| 525 | for this key sequence. | ||
| 526 | |||
| 527 | Lisp_Object t_binding; | ||
| 528 | t_binding = Qnil; | ||
| 520 | 529 | ||
| 521 | /* If `t_ok' is 2, both `t' and generic-char bindings are accepted. | 530 | /* If `t_ok' is 2, both `t' and generic-char bindings are accepted. |
| 522 | If it is 1, only generic-char bindings are accepted. | 531 | If it is 1, only generic-char bindings are accepted. |