rahard@eeserv.ee.umanitoba.ca (Budi Rahardjo) (09/23/90)
I got this wordstar keycap for emacs. I've never used it though. (Still in "vi", no flame please). -- budi PS: you might want to cut my .signature at the end of this file (if it exists) ; Wordstar Keycap Definition for EMACS ; ; This file causes EMACS to emulate WordStar. You should do one of ; two things to make this work. Either copy this file into ~/.emacs, ; after which it will be loaded every time you call up emacs, or ; copy it into ~/.wordstar and make an alias ws 'emacs -l ~/.wordstar' ; which will let you call it up with the normal ws command. ; ; This was created a long time ago on a machine far, far away by ; jim frost (madd@std.com). ; (setq inhibit-terminal-defaults t) (setq C-K-map (make-keymap)) (define-key C-K-map " " ()) (define-key C-K-map "b" 'set-mark-command) (define-key C-K-map "\002" 'set-mark-command) (define-key C-K-map "c" 'yank) (define-key C-K-map "\003" 'yank) (define-key C-K-map "d" 'save-buffers-kill-emacs) (define-key C-K-map "\004" 'save-buffers-kill-emacs) (define-key C-K-map "f" 'find-file) (define-key C-K-map "\006" 'find-file) (define-key C-K-map "k" 'copy-region-as-kill) (define-key C-K-map "\013" 'copy-region-as-kill) (define-key C-K-map "q" 'kill-emacs) (define-key C-K-map "\021" 'kill-emacs) (define-key C-K-map "r" 'insert-file) (define-key C-K-map "\022" 'insert-file) (define-key C-K-map "s" 'save-some-buffers) (define-key C-K-map "\023" 'save-some-buffers) (define-key C-K-map "\025" ()) (define-key C-K-map "v" 'yank) (define-key C-K-map "\026" 'yank) (define-key C-K-map "y" 'kill-region) (define-key C-K-map "\031" 'kill-region) (define-key C-K-map "\037" 'kill-emacs) (setq C-O-map (make-keymap)) (define-key C-O-map " " ()) (define-key C-O-map "c" 'center-line) (define-key C-O-map "\003" 'center-line) (define-key C-O-map "b" 'switch-to-buffer) (define-key C-O-map "\002" 'switch-to-buffer) (define-key C-O-map "j" 'justify-current-line) (define-key C-O-map "\012" 'justify-current-line) (define-key C-O-map "k" 'kill-buffer) (define-key C-O-map "\013" 'kill-buffer) (define-key C-O-map "l" 'list-buffers) (define-key C-O-map "\014" 'list-buffers) (define-key C-O-map "m" 'auto-fill-mode) (define-key C-O-map "\015" 'auto-fill-mode) (define-key C-O-map "r" 'set-fill-column) (define-key C-O-map "\022" 'set-fill-column) (define-key C-O-map "\025" ()) (define-key C-O-map "wd" 'delete-other-windows) (define-key C-O-map "wh" 'split-window-horizontally) (define-key C-O-map "wo" 'other-window) (define-key C-O-map "wv" 'split-window-vertically) (setq C-Q-map (make-keymap)) (define-key C-Q-map " " ()) (define-key C-Q-map "a" 'replace-string) (define-key C-Q-map "\001" 'replace-string) (define-key C-Q-map "c" 'end-of-buffer) (define-key C-Q-map "\003" 'end-of-buffer) (define-key C-Q-map "d" 'end-of-line) (define-key C-Q-map "\004" 'end-of-line) (define-key C-Q-map "f" 're-search-forward) (define-key C-Q-map "\006" 're-search-forward) (define-key C-Q-map "r" 'beginning-of-buffer) (define-key C-Q-map "\022" 'beginning-of-buffer) (define-key C-Q-map "\025" ()) (define-key C-Q-map "y" 'kill-line) (define-key C-Q-map "\031" 'kill-line) (define-key global-map "\001" 'backward-word) (define-key global-map "\002" 'fill-paragraph) (define-key global-map "\003" 'scroll-up) (define-key global-map "\004" 'forward-char) (define-key global-map "\005" 'previous-line) (define-key global-map "\006" 'forward-word) (define-key global-map "\007" 'delete-char) (define-key global-map "\010" 'backward-char) (define-key global-map "\011" 'indent-for-tab-command) (define-key global-map "\012" 'help-for-help) (define-key global-map "\013" C-K-map) (define-key global-map "\015" 'newline) (define-key global-map "\017" C-O-map) (define-key global-map "\020" 'quoted-insert) (define-key global-map "\021" C-Q-map) (define-key global-map "\022" 'scroll-down) (define-key global-map "\023" 'backward-char) (define-key global-map "\024" 'kill-word) (define-key global-map "\025" 'quit) (define-key global-map "\026" 'overwrite-mode) (define-key global-map "\030" 'next-line) (define-key global-map "\031" 'kill-line) (define-key global-map "\035" 'quoted-insert) (define-key global-map "\037" C-Q-map) (setq default-fill-column 65) -- Budi Rahardjo <rahardj@ccu.umanitoba.ca> <rahard@ee.umanitoba.ca> <rahard@budi.ee.umanitoba.ca> Electrical Engineering - University of Manitoba - Canada