home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
me_cd25.zip
/
MUTT2.ZIP
/
OSSTUFF.MUT
< prev
next >
Wrap
Lisp/Scheme
|
1992-11-09
|
1KB
|
29 lines
;; MS-DOS and OS/2 stuff that goes in osstuff.mco
;; John Burnell 6/92 Public Domain
(defun MAIN
{
;; Set up some soft keys
(bind-to-key "end-of-line" "S-F-B") ;; end key
(bind-to-key "beginning-of-line" "S-F-A") ;; home key
(bind-to-key "previous-page" "S-F-I") ;; page down
(bind-to-key "next-page" "S-F-J") ;; page up
(bind-to-key "next-word" "C-S-F-E") ;; ^right key
(bind-to-key "previous-word" "C-S-F-F") ;; ^left key
(bind-to-key "next-character" "S-F-E") ;; right arrow
(bind-to-key "previous-character" "S-F-F") ;; left arrow
(bind-to-key "previous-line" "S-F-C") ;; up arrow
(bind-to-key "next-line" "S-F-D") ;; down arrow
(bind-to-key "yank" "S-F-G") ;; insert
(bind-to-key "cut-region" "S-F-H") ;; delete
;; the following are EDT-like mappings
(bind-to-key "delete-character" "S-F-+") ;; grey +
(bind-to-key "cut-word" "S-F--") ;; grey -
(bind-to-key "query-replace" "F-I") ;; keypad 9
(bind-to-key "next-word" "F-G") ;; keypad 1
})