🚀 go-pugleaf

In article <1992Aug9.190817.24380@news.columbia.edu>, dj7@cunixf.cc.columbia.edu (Dev Joneja) writes:
|> I just installed epoch-4.1, and my simple key bindings are giving me
|> trouble. Under epoch-4.0p2 and earlier, I had things like:
|>     (global-set-key "\M-h" 'help-command)
|> 
|> This does not work any more.
|> Under epoch-4.1, I have to change this to:
|>     (global-set-key "^[h"  'help-command)
|>                      ^^
|>                  ESC character, obtained using Ctrl-q Alt-h
|> 
|> What gives ???
|> 
|> Thanks -Dev

I'm reposting my fix to the 8-bit patches that will take care of this
problem.  Apply this in the "src" subdirectory.  I'll try to get someone
(Marc A. probably) to include these in the list of official patches to 4.1
whenever such a thing appears.  This patch might be a bit mangled (by xrn)
but it is trivial to apply by hand.


*** lread.c.old 	Thu May 21 10:40:46 1992
--- lread.c	     Thu May 21 11:04:38 1992
***************
*** 850,859 ****
--- 850,862 ----
        c = READCHAR;
        if (c != '-')
        	error ("Invalid escape character syntax");
+ /*
        c = READCHAR;
        if (c == '\\')
  	      c = read_escape (readcharfun);
        return c | 0200;
+ */
+       return 033;
  
      case 'C':
        c = READCHAR;


-- 
        -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
       Email to: lonhyn@gulag.nas.nasa.gov     Human at: 415-604-3989
        -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-