[comp.emacs] EDT Gold-key problem in Emacs 18.52

earley@modular.UUCP (Joe Earley) (12/03/88)

Could someone tell me how to fix the gold key problem in the EDT 
emulation mode for Emacs 18.52?  Naturally I missed any responses
the first time around and now someone here HAS to have EDT. (sigh)

-- 
Joe Earley, Modular Mining Systems
USENET:     {ihnp4,allegra,cmcl2,hao!noao}!arizona!modular!earley
INTERNET:   modular!earley@arizona.edu

idall@augean.OZ (Ian Dall) (12/12/88)

In article <618@modular.UUCP> earley@modular.UUCP (Joe Earley) writes:
>Could someone tell me how to fix the gold key problem in the EDT 
>emulation mode for Emacs 18.52?  Naturally I missed any responses
>the first time around and now someone here HAS to have EDT. (sigh)

Here is a repost of my previous reply:

EDT emulation modes gold keys don't work because define-keypad-key is
broken which is because function-key-sequence is broken which is beacause
Fwhere_is_internal (C code) is broken.

In keymap.c find Fwhere_is_internal, try changing:

--------------------------------------------------------------------
	  elt = get_keyelt (elt);

	  /* End this iteration if this element does not match
	     the target.  */

	  if (XTYPE (definition) == Lisp_Cons)
	    {
	      Lisp_Object tem;
	      tem = Fequal (elt, definition);
	      if (NULL (tem))
		continue;
	    }
	  else
	    if (!EQ (elt, definition))
	      continue;
-----------------------------------------------------------------

To:

-------------------------------------------------------------------
	  /* End this iteration if this element does not match
	     the target.  */

	  if (XTYPE (definition) == Lisp_Cons)
	    {
	      Lisp_Object tem;
	      tem = Fequal (elt, definition);
	      if (NULL (tem))
		continue;
	    }
	  else
	    {
	      elt = get_keyelt (elt);
	      if (!EQ (elt, definition))
		continue;
	    }
---------------------------------------------------------------------

I have reported this bug to bug-gnu-emacs so it should eventually get into the
official distribution.
-- 
 Ian Dall           life (n). A sexually transmitted disease which afflicts
                              some people more severely than others.
idall@augean.oz