aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2001-11-07 03:35:05 +0000
committerRichard M. Stallman2001-11-07 03:35:05 +0000
commitefb916453fe0f83600a43ba648a1432ab93a260c (patch)
tree7e1920b4086ad0da7d4378de558b19170e65c5f1
parent63b74e641f93a6db205ae9dc2e02d57c7593383f (diff)
downloademacs-efb916453fe0f83600a43ba648a1432ab93a260c.tar.gz
emacs-efb916453fe0f83600a43ba648a1432ab93a260c.zip
(access_keymap): Don't use initializers on Lisp_Object.
-rw-r--r--src/keymap.c13
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.