diff options
| author | Miles Bader | 2006-10-03 05:04:21 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-10-03 05:04:21 +0000 |
| commit | f3bbbd11451643c49997116d639612ae434dcaa0 (patch) | |
| tree | 6ce54c0dbf43746478357847960e9621fe3a5719 /src/keymap.c | |
| parent | 84356ba74da100da043fea790d1253b2d92e9110 (diff) | |
| parent | 670992917f2ee196a667797e4c3806d89c0f6d61 (diff) | |
| download | emacs-f3bbbd11451643c49997116d639612ae434dcaa0.tar.gz emacs-f3bbbd11451643c49997116d639612ae434dcaa0.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 447-459)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 141-144)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-115
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index 9720708ecf9..237bc0db9df 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -725,7 +725,10 @@ map_keymap_call (key, val, fun, dummy) | |||
| 725 | DEFUN ("map-keymap", Fmap_keymap, Smap_keymap, 2, 3, 0, | 725 | DEFUN ("map-keymap", Fmap_keymap, Smap_keymap, 2, 3, 0, |
| 726 | doc: /* Call FUNCTION once for each event binding in KEYMAP. | 726 | doc: /* Call FUNCTION once for each event binding in KEYMAP. |
| 727 | FUNCTION is called with two arguments: the event that is bound, and | 727 | FUNCTION is called with two arguments: the event that is bound, and |
| 728 | the definition it is bound to. | 728 | the definition it is bound to. If the event is an integer, it may be |
| 729 | a generic character (see Info node `(elisp)Splitting Characters'), and | ||
| 730 | that means that all actual character events belonging to that generic | ||
| 731 | character are bound to the definition. | ||
| 729 | 732 | ||
| 730 | If KEYMAP has a parent, the parent's bindings are included as well. | 733 | If KEYMAP has a parent, the parent's bindings are included as well. |
| 731 | This works recursively: if the parent has itself a parent, then the | 734 | This works recursively: if the parent has itself a parent, then the |
| @@ -1176,7 +1179,7 @@ binding KEY to DEF is added at the front of KEYMAP. */) | |||
| 1176 | 1179 | ||
| 1177 | meta_bit = VECTORP (key) ? meta_modifier : 0x80; | 1180 | meta_bit = VECTORP (key) ? meta_modifier : 0x80; |
| 1178 | 1181 | ||
| 1179 | if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, make_number (0)))) | 1182 | if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, 0))) |
| 1180 | { /* DEF is apparently an XEmacs-style keyboard macro. */ | 1183 | { /* DEF is apparently an XEmacs-style keyboard macro. */ |
| 1181 | Lisp_Object tmp = Fmake_vector (make_number (ASIZE (def)), Qnil); | 1184 | Lisp_Object tmp = Fmake_vector (make_number (ASIZE (def)), Qnil); |
| 1182 | int i = ASIZE (def); | 1185 | int i = ASIZE (def); |