Mercurial > emacs
comparison src/keymap.c @ 40791:97673fa0eaa7
(access_keymap): Don't use initializers on Lisp_Object.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 07 Nov 2001 03:35:05 +0000 |
| parents | cdfd4d09b79a |
| children | 02b84f3b47c0 |
comparison
equal
deleted
inserted
replaced
| 40790:3b3c00fa282a | 40791:97673fa0eaa7 |
|---|---|
| 474 Lisp_Object idx; | 474 Lisp_Object idx; |
| 475 int t_ok; | 475 int t_ok; |
| 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 |
| 483 ought to be a symbol. */ | 486 ought to be a symbol. */ |
| 484 idx = EVENT_HEAD (idx); | 487 idx = EVENT_HEAD (idx); |
| 514 return Qnil; | 517 return Qnil; |
| 515 } | 518 } |
| 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. |
| 523 Otherwise, neither are. */ | 532 Otherwise, neither are. */ |
| 524 t_ok = t_ok ? 2 : 0; | 533 t_ok = t_ok ? 2 : 0; |
