Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site oddjob.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!gargoyle!oddjob!matt
From: matt@oddjob.UUCP (Matt Crawford)
Newsgroups: net.emacs
Subject: Examples of use of tvi950.el
Message-ID: <1234@oddjob.UUCP>
Date: Fri, 14-Mar-86 00:10:50 EST
Article-I.D.: oddjob.1234
Posted: Fri Mar 14 00:10:50 1986
Date-Received: Sun, 16-Mar-86 08:44:48 EST
Reply-To: matt@oddjob.UUCP (Matt Crawford)
Organization: U. Chicago, Astronomy & Astrophysics
Lines: 28

I should have included the following.  Sorry.

From ~/.emacs:

(cond
 ((string-match "^tvi950" (getenv "TERM"))
  (load "tvi950" nil t)
  (define-key global-map "\^^" 'universal-argument)	;HOME
  (setup-for-f-keys "6" ?a ?A)
  (bind-f-key 1  'apropos "apro")
  (bind-f-key 12 'goto-line "goto")
  (bind-f-key 2  'isearch-forward-regexp "REi-s")
  (bind-f-key 13 'query-replace-regexp "REq-r")
  (bind-f-key 3  'kill-rectangle "kRect")
  (bind-f-key 14 'yank-rectangle "yRect")
  (bind-f-key 11 'toggle-f-labels "toggl")
  (bind-f-key 22 'toggle-f-labels "toggl")
  (show-f-labels)
  ;; For mh-e
  (send-string-to-terminal "\e01S\e02s") ;SEND and shift-SEND
  (define-key global-map "\eS" 'mh-smail) ;SEND
  (define-key global-map "\es" 'mh-rmail) ;shift-SEND
  )
  ;;etc, etc, etc
 )
_____________________________________________________
Matt		University	crawford@anl-mcs.arpa
Crawford	of Chicago	ihnp4!oddjob!matt