Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fwhere_is_internal): Use the first valid binding

Browse source 
if no ascii binding is found (when firstonly is t).
This commit is contained in:
Stefan Monnier 2001-01-31 15:19:30 +00:00
parent b4f30ec503
commit 60dc655805
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/keymap.c
View file

@ -2267,7 +2267,7 @@ indirect definition itself.")
if (nomenus && NILP (noindirect) && NILP (keymap))
{
Lisp_Object *defns;
int i, n;
int i, j, n;
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
/* Check heuristic-consistency of the cache. */
@ -2302,12 +2302,17 @@ indirect definition itself.")
the following can GC. */
GCPRO2 (definition, keymaps);
result = Qnil;
j = -1;
for (i = n - 1; i >= 0; --i)
if (EQ (shadow_lookup (keymaps, defns[i], Qnil), definition)
&& ascii_sequence_p (defns[i]))
break;
if (EQ (shadow_lookup (keymaps, defns[i], Qnil), definition))
{
if (ascii_sequence_p (defns[i]))
break;
else if (j < 0)
j = i;
}
result = i >= 0 ? defns[i] : Qnil;
result = i >= 0 ? defns[i] : (j >= 0 ? defns[j] : Qnil);
UNGCPRO;
}
else