aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-02-17 01:52:25 +0000
committerKaroly Lorentey2004-02-17 01:52:25 +0000
commite581a4668750ed98d77f13500c983439770ec600 (patch)
treeccbc5c82753658d45458e9306feb41203ae3757b /src/keymap.c
parent806c1866e6cdfe84bd8353dda02c4c8c61267480 (diff)
parent0f98bc23509b4e909cc92237e4b082c6866da258 (diff)
downloademacs-e581a4668750ed98d77f13500c983439770ec600.tar.gz
emacs-e581a4668750ed98d77f13500c983439770ec600.zip
Merged in changes from CVS HEAD
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-71 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-72 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-73 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-74 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-75 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-76 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-77 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-78 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-79 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-80 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-81 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-82 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-83 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-84 Add lisp/emacs-lisp/macroexp.el * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-85 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-86 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-87 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-88 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-89 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-90 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-91 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-92 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-93 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-94 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-95 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-96 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-97 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-77
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c24
1 files changed, 14 insertions, 10 deletions
diff --git a/src/keymap.c b/src/keymap.c
index d03c84aa69d..4cea62c10fb 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1,5 +1,5 @@
1/* Manipulation of keymaps 1/* Manipulation of keymaps
2 Copyright (C) 1985, 86,87,88,93,94,95,98,99, 2000, 2001 2 Copyright (C) 1985, 86,87,88,93,94,95,98,99, 2000, 01, 2004
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This file is part of GNU Emacs.
@@ -2321,7 +2321,7 @@ shadow_lookup (shadow, key, flag)
2321 return Qnil; 2321 return Qnil;
2322} 2322}
2323 2323
2324static Lisp_Object Vmenu_events; 2324static Lisp_Object Vmouse_events;
2325 2325
2326/* This function can GC if Flookup_key autoloads any keymaps. */ 2326/* This function can GC if Flookup_key autoloads any keymaps. */
2327 2327
@@ -2378,7 +2378,7 @@ where_is_internal (definition, keymaps, firstonly, noindirect, no_remap)
2378 /* if (nomenus && !ascii_sequence_p (this)) */ 2378 /* if (nomenus && !ascii_sequence_p (this)) */
2379 if (nomenus && XINT (last) >= 0 2379 if (nomenus && XINT (last) >= 0
2380 && SYMBOLP (tem = Faref (this, make_number (0))) 2380 && SYMBOLP (tem = Faref (this, make_number (0)))
2381 && !NILP (Fmemq (XCAR (parse_modifiers (tem)), Vmenu_events))) 2381 && !NILP (Fmemq (XCAR (parse_modifiers (tem)), Vmouse_events)))
2382 /* If no menu entries should be returned, skip over the 2382 /* If no menu entries should be returned, skip over the
2383 keymaps bound to `menu-bar' and `tool-bar' and other 2383 keymaps bound to `menu-bar' and `tool-bar' and other
2384 non-ascii prefixes like `C-down-mouse-2'. */ 2384 non-ascii prefixes like `C-down-mouse-2'. */
@@ -3710,13 +3710,17 @@ This keymap works like `function-key-map', but comes after that,
3710and applies even for keys that have ordinary bindings. */); 3710and applies even for keys that have ordinary bindings. */);
3711 Vkey_translation_map = Qnil; 3711 Vkey_translation_map = Qnil;
3712 3712
3713 staticpro (&Vmenu_events); 3713 staticpro (&Vmouse_events);
3714 Vmenu_events = Fcons (intern ("menu-bar"), 3714 Vmouse_events = Fcons (intern ("menu-bar"),
3715 Fcons (intern ("tool-bar"), 3715 Fcons (intern ("tool-bar"),
3716 Fcons (intern ("mouse-1"), 3716 Fcons (intern ("header-line"),
3717 Fcons (intern ("mouse-2"), 3717 Fcons (intern ("mode-line"),
3718 Fcons (intern ("mouse-3"), 3718 Fcons (intern ("mouse-1"),
3719 Qnil))))); 3719 Fcons (intern ("mouse-2"),
3720 Fcons (intern ("mouse-3"),
3721 Fcons (intern ("mouse-4"),
3722 Fcons (intern ("mouse-5"),
3723 Qnil)))))))));
3720 3724
3721 3725
3722 Qsingle_key_description = intern ("single-key-description"); 3726 Qsingle_key_description = intern ("single-key-description");