Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!sri-unix!sri-spam!mordor!lll-tis!ptsfa!ihnp4!gargoyle!oddjob!matt
From: matt@oddjob.UChicago.EDU (My Name Here)
Newsgroups: comp.emacs
Subject: Re: Using Wyse-60 'No Scroll' key as meta key
Message-ID: <14025@oddjob.UChicago.EDU>
Date: Wed, 7-Oct-87 13:53:07 EDT
Article-I.D.: oddjob.14025
Posted: Wed Oct  7 13:53:07 1987
Date-Received: Sat, 10-Oct-87 10:43:12 EDT
References: <400@io.UUCP>
Organization: Network 23
Lines: 32

In article <400@io.UUCP> walters@wally.UUCP (Tim Walters) writes:

) These terminals have a 'No Scroll' key which can be set up to
) work as a kind of meta key: holding down No Scroll + key sends 3
) characters: ctrl-A key CR.

TVI terminals have a "FUNCT" key that does the same thing.  I wrote
the following to make that into a meta key.  You should be able to
use it as is.  Note that you'll have to move beginning-of-line to
some other key.  I move it to ESC-I, which is the TVI "BACK TAB" key.

(defun funct-key ()
  "Make the TVI's FUNCT key act like a META key"
  (interactive)
  (let ((save-key (read-char)))
    (if (/= (read-char) ?\^M)
	(error "bad C-A or FUNCT key usage")
      (setq prefix-arg current-prefix-arg
	    this-command last-command
	    unread-command-char (logior save-key 128)))))

;; move the old function of C-A
(define-key esc-map "I" (key-binding "\^A")) ; BACK TAB
(define-key global-map "\^A" 'funct-key)

			Matt Crawford
--
"Dirk Gently is the name under which I now trade.  There are certain events
in the past, I'm afraid, from which I would wish to disassociate myself."

  "Absolutely, I know how you feel.  Most of the fourteenth century, for
  instance, was pretty grim."