diff options
| author | Karoly Lorentey | 2004-02-17 01:52:25 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-02-17 01:52:25 +0000 |
| commit | e581a4668750ed98d77f13500c983439770ec600 (patch) | |
| tree | ccbc5c82753658d45458e9306feb41203ae3757b /src/keymap.c | |
| parent | 806c1866e6cdfe84bd8353dda02c4c8c61267480 (diff) | |
| parent | 0f98bc23509b4e909cc92237e4b082c6866da258 (diff) | |
| download | emacs-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.c | 24 |
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 | ||
| 5 | This file is part of GNU Emacs. | 5 | This 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 | ||
| 2324 | static Lisp_Object Vmenu_events; | 2324 | static 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, | |||
| 3710 | and applies even for keys that have ordinary bindings. */); | 3710 | and 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"); |