Path: utzoo!attcan!uunet!munnari!mimir!hugin!augean!idall
From: idall@augean.OZ (Ian Dall)
Newsgroups: comp.emacs
Subject: Re: EDT Gold-key problem in Emacs 18.52
Keywords: EDT
Message-ID: <425@augean.OZ>
Date: 12 Dec 88 03:37:06 GMT
References: <618@modular.UUCP>
Distribution: comp
Organization: Engineering Faculty, University of Adelaide, Australia
Lines: 58
Reply-To:

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