diff options
| author | Miles Bader | 2007-05-15 07:17:13 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-05-15 07:17:13 +0000 |
| commit | 4ace64cc90e38c77c11546fead24782a60eb1d4d (patch) | |
| tree | efebad2b13253bfe060be37dccbbbf9603010b7a /src/keymap.c | |
| parent | 06253b0e7aca3ca2deb2093f187bb52cee09ec5c (diff) | |
| parent | 9fff44d50016108a350c90c39b68e302277080d7 (diff) | |
| download | emacs-4ace64cc90e38c77c11546fead24782a60eb1d4d.tar.gz emacs-4ace64cc90e38c77c11546fead24782a60eb1d4d.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 726-750)
- Update from CVS
- Merge from emacs--rel--22
- Merge from gnus--rel--5.10
* emacs--rel--22 (patch 6-17)
- Update from CVS
- Update from CVS: src/xterm.c (XTread_socket): Revert last change.
* gnus--rel--5.10 (patch 218-221)
- Merge from emacs--devo--0, emacs--rel--22
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-205
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index 4a5c53ca626..95534f9efa6 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1179,7 +1179,8 @@ binding KEY to DEF is added at the front of KEYMAP. */) | |||
| 1179 | if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt)) | 1179 | if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt)) |
| 1180 | Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands); | 1180 | Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands); |
| 1181 | 1181 | ||
| 1182 | meta_bit = VECTORP (key) ? meta_modifier : 0x80; | 1182 | meta_bit = (VECTORP (key) || STRINGP (key) && STRING_MULTIBYTE (key) |
| 1183 | ? meta_modifier : 0x80); | ||
| 1183 | 1184 | ||
| 1184 | if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, 0))) | 1185 | if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, 0))) |
| 1185 | { /* DEF is apparently an XEmacs-style keyboard macro. */ | 1186 | { /* DEF is apparently an XEmacs-style keyboard macro. */ |
| @@ -1345,7 +1346,7 @@ recognize the default bindings, just as `read-key-sequence' does. */) | |||
| 1345 | c = Fevent_convert_list (c); | 1346 | c = Fevent_convert_list (c); |
| 1346 | 1347 | ||
| 1347 | /* Turn the 8th bit of string chars into a meta modifier. */ | 1348 | /* Turn the 8th bit of string chars into a meta modifier. */ |
| 1348 | if (INTEGERP (c) && XINT (c) & 0x80 && STRINGP (key)) | 1349 | if (STRINGP (key) && XINT (c) & 0x80 && !STRING_MULTIBYTE (key)) |
| 1349 | XSETINT (c, (XINT (c) | meta_modifier) & ~0x80); | 1350 | XSETINT (c, (XINT (c) | meta_modifier) & ~0x80); |
| 1350 | 1351 | ||
| 1351 | /* Allow string since binding for `menu-bar-select-buffer' | 1352 | /* Allow string since binding for `menu-bar-select-buffer' |