Path: utzoo!mnetor!uunet!mcvax!ukc!eagle!icdoc!doc.ic.ac.uk!aw
From: aw@doc.ic.ac.uk (Andrew Weeks)
Newsgroups: comp.emacs
Subject: microemacs/sun function keys
Message-ID: <255@gould.doc.ic.ac.uk>
Date: 13 Apr 88 10:06:17 GMT
Sender: aw@doc.ic.ac.uk
Reply-To: aw@doc.ic.ac.uk (Andrew Weeks)
Organization: Dept. of Computing, Imperial College, London, UK.
Lines: 29

Someone asked about getting SUN function keys working under
Microemacs 3.9e. I posted a hack to do this a few months ago.
Here it is again : Remember to set #define VT100 in estruct.h
--------------------------------------------------------------------
*** input.c	Mon Nov 30 12:57:21 1987
--- input.c.orig	Mon Nov 30 12:54:37 1987
***************
*** 364,376 ****
  #if	VT100
  		if (c == '[' || c == 'O') {
  			c = get1key();
! 			if ( c >= 'A' )
! 				return(SPEC | c);
! 			c = c - 48;
! 			c = (c*10) + get1key() - 48;
! 			c = (c*10) + get1key() - 176;
! 			get1key();
! 			return ( SPEC | c );
  		}
  #endif
  		return(META | c);
--- 364,370 ----
  #if	VT100
  		if (c == '[' || c == 'O') {
  			c = get1key();
! 			return(SPEC | c);
  		}
  #endif
  		return(META | c);