From:	ADVAX::"nat@drao.nrc.ca" "Natalie Prowse" 27-NOV-1990 14:51:35.76
To:	<ISIS08@ecostat.aau.dk>, <miller@ria.ccs.uwo.ca>, <alberto@pseudo.berkeley.edu>, <ROSS@bio-medical-physics.aberdeen.ac.uk>, <CAIRNS@upei.ca>, <davis@pacific.mps.ohio-state.edu>, <mike@elec.canterbury.ac.nz>, <FAUCONNE%FRSIM51.BITNET@cunyvm.cuny.edu>, <nreadwin@micrognosis.co.uk>, <DMH100@csc1.anu.oz.au>, <mats@efd.lth.se>, <GOLDICK@vulcan.psc.edu>, <peirce@gumby.cc.wmich.edu>, <NRA%ipg.ph.kcl.ac.uk@nsfnet-relay.ac.uk>, <arisia::EVERHART>, <SAINTDOR@vms.cis.pitt.edu>, <shamblin@mayo.edu>, <rock@ux.king
CC:	
Subj:	updated evep.el part 3 of 3

Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Tue, 27 Nov 90 14:46:59 EST
Received:  from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.15) with UUCP
	id AA26296 for everhart; Tue, 27 Nov 90 14:46:45 -0500
Received: from relay.CDNnet.CA by mcnc.mcnc.org (5.59/MCNC/6-11-90)
	id AA00898; Tue, 27 Nov 90 13:31:30 -0500
	for arisia.dnet.ge.com!EVERHART
Received: by relay.CDNnet.CA (4.1/1.14)
	id AA11456; Tue, 27 Nov 90 10:03:41 PST
Date: 27 Nov 90 17:45 -0800
From: Natalie Prowse <nat@drao.nrc.ca>
To: <ISIS08@ecostat.aau.dk>, <miller@ria.ccs.uwo.ca>,
        <alberto@pseudo.berkeley.edu>,
        <ROSS@bio-medical-physics.aberdeen.ac.uk>, <CAIRNS@upei.ca>,
        <davis@pacific.mps.ohio-state.edu>, <mike@elec.canterbury.ac.nz>,
        <FAUCONNE%FRSIM51.BITNET@cunyvm.cuny.edu>,
        <nreadwin@micrognosis.co.uk>, <DMH100@csc1.anu.oz.au>,
        <mats@efd.lth.se>, <GOLDICK@vulcan.psc.edu>,
        <peirce@gumby.cc.wmich.edu>, <NRA%ipg.ph.kcl.ac.uk@nsfnet-relay.ac.uk>,
        <arisia::EVERHART>, <SAINTDOR@vms.cis.pitt.edu>, <shamblin@mayo.edu>,
        <rock@ux.king.ac.uk>, <GALBRTH@ac.dal.ca>,
        <DHASSEL%SEMASSU.BITNET@cunyvm.cuny.edu>
Message-Id: <239*nat@drao.nrc.CA>
Subject: updated evep.el part 3 of 3
 
-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
X`009(define-key keymap function-key-sequence definition))))
X
X;;Bind GOLD/Keyboard keys
X
X(define-key GOLD-map "\C-g"  'keyboard-quit)            ; just for safety
X(define-key GOLD-map "\177" 'delete-window)             ;"Delete"
X(define-key GOLD-map "\C-h" 'delete-other-windows)      ;"BackSpace"
X(define-key GOLD-map "\C-m" 'newline-and-indent)        ;"Return"
X(define-key GOLD-map "%" 'goto-percent)                 ; "%"
X(define-key GOLD-map "=" 'goto-line)                    ; "="
X(define-key GOLD-map "`096" 'what-line)                    ; "`096"
X
X; GOLD letter combinations:
X(define-key GOLD-map "b" 'buffer-menu)                  ; "b"
X(define-key GOLD-map "B" 'buffer-menu)                  ; "B"
X(define-key GOLD-map "d" 'dired)                        ; "d"
X(define-key GOLD-map "D" 'dired)                        ; "D"
X(define-key GOLD-map "e" 'call-last-kbd-macro)          ; "e"
X(define-key GOLD-map "E" 'call-last-kbd-macro)          ; "E"
X(define-key GOLD-map "f" 'occur)                        ; "f"
X(define-key GOLD-map "F" 'occur)                        ; "F"
X(define-key GOLD-map "i" 'insert-file)                  ; "i"
X(define-key GOLD-map "I" 'insert-file)                  ; "I"
X(define-key GOLD-map "k" 'kill-buffer)`009`009`009       ; "k"
X(define-key GOLD-map "K" 'kill-buffer)`009`009`009       ; "K"
X(define-key GOLD-map "l" 'goto-line)                           ; "l"
X(define-key GOLD-map "L" 'goto-line)                           ; "L"
X(define-key GOLD-map "m" 'save-some-buffers)`009`009       ; "m"
X(define-key GOLD-map "M" 'save-some-buffers)`009`009       ; "m"
X(define-key GOLD-map "n" 'next-window)                         ; "n"
X(define-key GOLD-map "N" 'next-window)                         ; "N"
X(define-key GOLD-map "o" 'switch-to-buffer-other-window)       ; "o"
X(define-key GOLD-map "O" 'switch-to-buffer-other-window)       ; "O"
X(define-key GOLD-map "p" 'fill-paragraph-and-align)            ; "p"
X(define-key GOLD-map "P" 'fill-paragraph-and-align)            ; "P"
X(define-key GOLD-map "r" 'map-keyboard-macro)                  ; "r"
X(define-key GOLD-map "R" 'map-keyboard-macro)                  ; "R"
X(define-key GOLD-map "s" 'save-buffer)                         ; "s"
X(define-key GOLD-map "S" 'save-buffer)                         ; "S"
X(define-key GOLD-map "u" 'undo)`009`009`009`009       ; "u"
X(define-key GOLD-map "U" 'undo)`009`009`009`009       ; "U"
X(define-key GOLD-map "v" 'find-file-other-window)              ; "v"
X(define-key GOLD-map "V" 'find-file-other-window)              ; "V"
X(define-key GOLD-map "W" 'toggle-wrap)                         ; "w"
X(define-key GOLD-map "w" 'toggle-wrap)                         ; "w"
X(define-key GOLD-map "1" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "2" 'map-buffer-to-key)                ; like "eve-plus
V" does
X(define-key GOLD-map "3" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "4" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "5" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "6" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "7" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "8" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "9" 'map-buffer-to-key)                       ; like "e
Vve-plus" does
X(define-key GOLD-map "0" 'buffer-menu)                      ; like emacs doe
Vs
X
X
X;Bind GOLD/Keypad keys
X(defun evep-bind-gold-keypad ()
X  (define-keypad-key GOLD-map ?u 'line-to-top-of-window) ;"up-arrow"
X  (define-keypad-key GOLD-map ?d 'line-to-bottom-of-window) ;"down-arrow"
X  (define-keypad-key GOLD-map ?l 'shift-screen-left) ;"left-arrow"
X  (define-keypad-key GOLD-map ?r 'shift-screen-right) ;"right-arrow"
X  (define-keypad-key GOLD-map ?f 'search-forward-query) ; GOLD-FIND - find a
Vll occurences
X  (define-keypad-key GOLD-map ?k 'append-to-cutbuffer) ;GOLD-REMOVE (append
V to paste buffer)
X  (define-keypad-key GOLD-map ?\C-a 'mark-section-wisely) ;Gold     "PF1"
X  (define-keypad-key GOLD-map ?\C-c 'search-forward-query) ;"GOLD-PF3"`032
X  (define-keypad-key GOLD-map ?\C-d 'undelete-lines) ;Und Line "PF4"
X  (define-keypad-key GOLD-map ?0 'open-line-above) ;Open L   "0"
X  (define-keypad-key GOLD-map ?3 'downcase-word) ;  GOLD-3"
X  (define-keypad-key GOLD-map ?4 'insert-file) ;  GOLD-4"
X  (define-keypad-key GOLD-map ?5 'find-file) ;  GOLD-5"
X  (define-keypad-key GOLD-map ?2 'delete-to-eol) ;Del EOL  "2"
X  (define-keypad-key GOLD-map ?1 'write-file) ;Copy     "1"
X  (define-keypad-key GOLD-map ?\C-b 'move-to-end) ;Bottom   "Gold-PF2"
X  (define-keypad-key GOLD-map ?6 'nat-toggle-window)  ; "Gold-6"
X  (define-keypad-key GOLD-map ?7 'execute-extended-command) ;Command  "7"
X  (define-keypad-key GOLD-map ?8 'set-mark-comand) ;SELECT     "8"
X  (define-keypad-key GOLD-map ?9 'yank-from-cutbuffer) ;Replace  "9"
X  (define-keypad-key GOLD-map ?- 'undelete-words) ;UND word "-"
X  (define-keypad-key GOLD-map ?, 'undelete-chars) ;UND Char ","
X  (define-keypad-key GOLD-map ?. 'redraw-display) ;Reset Window "."
X  (define-keypad-key GOLD-map ?e 'start-kbd-macro)) ;"ENTER" - like LEARN
X
X;; Make direction of motion show in mode line
X;; while EVEP emulation is turned on.
X;; Note that the keypad is always turned on when in Emacs.
X
X(or (assq 'evep-direction-string minor-mode-alist)
X    (setq minor-mode-alist (cons '(evep-direction-string evep-direction-stri
Vng)
X`009`009`009`009 minor-mode-alist)))
X(initial-file-load)
X(display-time)
X
X
X
X
X
X
X
$ CALL UNPACK EVEP.EL;3 1814916136
$ v=f$verify(v)
$ EXIT