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;