aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorMiles Bader2007-05-15 07:17:13 +0000
committerMiles Bader2007-05-15 07:17:13 +0000
commit4ace64cc90e38c77c11546fead24782a60eb1d4d (patch)
treeefebad2b13253bfe060be37dccbbbf9603010b7a /src/keymap.c
parent06253b0e7aca3ca2deb2093f187bb52cee09ec5c (diff)
parent9fff44d50016108a350c90c39b68e302277080d7 (diff)
downloademacs-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.c5
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'