Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!cs.utexas.edu!uunet!ncrlnk!ncr-sd!hp-sdd!hplabs!hp-ses!hpcuhb!hpda!hpcupt1!msikes
From: msikes@hpcupt1.HP.COM (Mark Sikes)
Newsgroups: comp.emacs
Subject: Re: Send Binary Code to Terminal?
Message-ID: <-285219998@hpcupt1.HP.COM>
Date: 31 Aug 89 21:45:05 GMT
References: <-285219999@hpcupt1.HP.COM>
Organization: Hewlett Packard, Cupertino
Lines: 26

Try this...

;
; set up the pf key functions
;

(defun update-pf-keys ()
  "Display the updated pf key labels."
  (interactive)
  (send-string-to-terminal "\e&jB"))

(defun set-pf (key-num label def)
  "Define a pf key."
  (interactive)
  (send-string-to-terminal
   (concat "\e&f0a" key-num "k"
	   (length label) "d"
	   (length def) "L"
	   label def)))

(defun clear-pf (key-num)
  "Clear a pf key."
  (interactive)
  (send-string-to-terminal (concat "\e&f0a" key-num "k1d-1L ")))

Mark Sikes, Hewlett-Packard  (hpda!msikes)