diff options
| author | Stefan Monnier | 2004-10-15 14:49:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-10-15 14:49:30 +0000 |
| commit | 3584d95d9dbc791526e4cd84187176861fe5963d (patch) | |
| tree | 4125a4d719b46b7b6f1b4c080246ca62be157e9f /src | |
| parent | f459b8c059c53a618ba24fe7e0f90024b78f22ab (diff) | |
| download | emacs-3584d95d9dbc791526e4cd84187176861fe5963d.tar.gz emacs-3584d95d9dbc791526e4cd84187176861fe5963d.zip | |
(Fsubstitute_command_keys): Fix remap-handling.
Don't ignore menus, because where-is-internal already does it for us.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/doc.c | 16 |
2 files changed, 8 insertions, 13 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 5f65b02a908..e92e6b96eec 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2004-10-15 Stefan <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * doc.c (Fsubstitute_command_keys): Fix remap-handling. | ||
| 4 | Don't ignore menus, because where-is-internal already does it for us. | ||
| 5 | |||
| 1 | 2004-10-15 Kim F. Storm <storm@cua.dk> | 6 | 2004-10-15 Kim F. Storm <storm@cua.dk> |
| 2 | 7 | ||
| 3 | * xdisp.c (redisplay_window): Only update fringes and vertical | 8 | * xdisp.c (redisplay_window): Only update fringes and vertical |
| @@ -774,28 +774,18 @@ thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ int | |||
| 774 | 774 | ||
| 775 | /* Save STRP in IDX. */ | 775 | /* Save STRP in IDX. */ |
| 776 | idx = strp - SDATA (string); | 776 | idx = strp - SDATA (string); |
| 777 | tem = Fintern (make_string (start, length_byte), Qnil); | 777 | name = Fintern (make_string (start, length_byte), Qnil); |
| 778 | 778 | ||
| 779 | /* Ignore remappings unless there are no ordinary bindings. */ | 779 | /* Ignore remappings unless there are no ordinary bindings. */ |
| 780 | tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qt); | 780 | tem = Fwhere_is_internal (name, keymap, Qt, Qnil, Qt); |
| 781 | if (NILP (tem)) | 781 | if (NILP (tem)) |
| 782 | tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qnil); | 782 | tem = Fwhere_is_internal (name, keymap, Qt, Qnil, Qnil); |
| 783 | 783 | ||
| 784 | /* Note the Fwhere_is_internal can GC, so we have to take | 784 | /* Note the Fwhere_is_internal can GC, so we have to take |
| 785 | relocation of string contents into account. */ | 785 | relocation of string contents into account. */ |
| 786 | strp = SDATA (string) + idx; | 786 | strp = SDATA (string) + idx; |
| 787 | start = SDATA (string) + start_idx; | 787 | start = SDATA (string) + start_idx; |
| 788 | 788 | ||
| 789 | /* Disregard menu bar bindings; it is positively annoying to | ||
| 790 | mention them when there's no menu bar, and it isn't terribly | ||
| 791 | useful even when there is a menu bar. */ | ||
| 792 | if (!NILP (tem)) | ||
| 793 | { | ||
| 794 | firstkey = Faref (tem, make_number (0)); | ||
| 795 | if (EQ (firstkey, Qmenu_bar)) | ||
| 796 | tem = Qnil; | ||
| 797 | } | ||
| 798 | |||
| 799 | if (NILP (tem)) /* but not on any keys */ | 789 | if (NILP (tem)) /* but not on any keys */ |
| 800 | { | 790 | { |
| 801 | int offset = bufp - buf; | 791 | int offset = bufp - buf; |