Implement M-x shell-command and M-x shell-command-on-region. Bind

them to M-! and M-| respectively.

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 2b743e0f1a84e6bf359ae4f257c801a6447cda90..267b4377acf6957b756ea296dc2cc728de7ad293 100644 (file)
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.134 1991/08/26 03:56:33 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.135 1991/10/11 03:46:26 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -113,34 +113,26 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-@ 'set-mark-command)
 (define-key 'fundamental #\c-a 'beginning-of-line)
 (define-key 'fundamental #\c-b 'backward-char)
-(define-key 'fundamental left 'backward-char)
 (define-prefix-key 'fundamental #\c-c 'prefix-key)
 (define-key 'fundamental #\c-d 'delete-char)
-(define-key 'fundamental deletechar 'delete-char)
 (define-key 'fundamental #\c-e 'end-of-line)
 (define-key 'fundamental #\c-f 'forward-char)
-(define-key 'fundamental right 'forward-char)
 (define-key 'fundamental #\c-g 'keyboard-quit)
 (define-prefix-key 'fundamental #\c-h 'help-prefix)
 (define-key 'fundamental #\c-i 'indent-for-tab-command)
 (define-key 'fundamental #\c-j 'newline-and-indent)
 (define-key 'fundamental #\c-k 'kill-line)
-(define-key 'fundamental deleteline 'kill-line)
 (define-key 'fundamental #\c-l 'recenter)
 (define-key 'fundamental #\c-m 'newline)
 (define-key 'fundamental #\c-n 'next-line)
-(define-key 'fundamental down 'next-line)
 (define-key 'fundamental #\c-o 'open-line)
-(define-key 'fundamental insertline 'open-line)
 (define-key 'fundamental #\c-p 'previous-line)
-(define-key 'fundamental up 'previous-line)
 (define-key 'fundamental #\c-q 'quoted-insert)
 (define-key 'fundamental #\c-r 'isearch-backward)
 (define-key 'fundamental #\c-s 'isearch-forward)
 (define-key 'fundamental #\c-t 'transpose-chars)
 (define-key 'fundamental #\c-u 'universal-argument)
 (define-key 'fundamental #\c-v 'scroll-up)
-(define-key 'fundamental next 'scroll-up)
 (define-key 'fundamental #\c-w 'kill-region)
 (define-prefix-key 'fundamental #\c-x 'prefix-key)
 (define-key 'fundamental #\c-y 'yank)
@@ -150,14 +142,9 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-^ 'control-prefix)
 (define-key 'fundamental #\c-_ 'undo)
 (define-key 'fundamental #\c-rubout 'backward-delete-char-untabify)
-;;; Jokes
-(define-key 'fundamental #\h-space 'hyper-space)
-(define-key 'fundamental (make-special-key 'malesymbol 4) 'super-man)
-(define-key 'fundamental (make-special-key 'menu 4) 'super-menu)
-(define-key 'fundamental #\t-$ 'top-dollar)
-(define-key 'fundamental #\t-^ 'top-hat)
 \f
 (define-key 'fundamental #\m-space 'just-one-space)
+(define-key 'fundamental #\m-! 'shell-command)
 (define-key 'fundamental #\m-% 'query-replace)
 (define-key 'fundamental #\m-, 'tags-loop-continue)
 (define-key 'fundamental #\m-- 'auto-argument)
@@ -197,16 +184,15 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\m-l 'downcase-word)
 (define-key 'fundamental #\m-m 'back-to-indentation)
 (define-key 'fundamental #\m-q 'fill-paragraph)
-(define-key 'fundamental home 'home-cursor)
 (define-key 'fundamental #\m-r 'move-to-window-line)
 (define-key 'fundamental #\m-t 'transpose-words)
 (define-key 'fundamental #\m-u 'upcase-word)
 (define-key 'fundamental #\m-v 'scroll-down)
-(define-key 'fundamental prior 'scroll-down)
 (define-key 'fundamental #\m-w 'copy-region-as-kill)
 (define-key 'fundamental #\m-x 'execute-extended-command)
 (define-key 'fundamental #\m-y 'yank-pop)
 (define-key 'fundamental #\m-z 'zap-to-char)
+(define-key 'fundamental #\m-\| 'shell-command-on-region)
 (define-key 'fundamental #\m-~ 'not-modified)
 (define-key 'fundamental #\m-rubout 'backward-kill-word)
 \f
@@ -247,8 +233,6 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-m-t 'transpose-sexps)
 (define-key 'fundamental #\c-m-u 'backward-up-list)
 (define-key 'fundamental #\c-m-v 'scroll-other-window)
-(define-key 'fundamental (make-special-key 'next 1) 'scroll-other-window)
-(define-key 'fundamental (make-special-key 'prior 1) 'scroll-other-window-down)
 (define-key 'fundamental #\c-m-w 'append-next-kill)
 (define-key 'fundamental #\c-m-rubout 'backward-kill-sexp)
 \f
@@ -330,4 +314,23 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\z) 'suspend-edwin)
 (define-key 'fundamental '(#\c-x #\{) 'shrink-window-horizontally)
 (define-key 'fundamental '(#\c-x #\}) 'enlarge-window-horizontally)
-(define-key 'fundamental '(#\c-x #\rubout) 'backward-kill-sentence)
\ No newline at end of file
+(define-key 'fundamental '(#\c-x #\rubout) 'backward-kill-sentence)
+\f
+(define-key 'fundamental left 'backward-char)
+(define-key 'fundamental deletechar 'delete-char)
+(define-key 'fundamental right 'forward-char)
+(define-key 'fundamental deleteline 'kill-line)
+(define-key 'fundamental down 'next-line)
+(define-key 'fundamental insertline 'open-line)
+(define-key 'fundamental up 'previous-line)
+(define-key 'fundamental next 'scroll-up)
+(define-key 'fundamental home 'home-cursor)
+(define-key 'fundamental prior 'scroll-down)
+(define-key 'fundamental (make-special-key 'next 1) 'scroll-other-window)
+(define-key 'fundamental (make-special-key 'prior 1) 'scroll-other-window-down)
+;;; Jokes
+(define-key 'fundamental #\h-space 'hyper-space)
+(define-key 'fundamental (make-special-key 'malesymbol 4) 'super-man)
+(define-key 'fundamental (make-special-key 'menu 4) 'super-menu)
+(define-key 'fundamental #\t-$ 'top-dollar)
+(define-key 'fundamental #\t-^ 'top-hat)
\ No newline at end of file