From 47a75ab51530f515cf38ba20ef4c158d39614f63 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 11 Oct 1991 03:46:26 +0000 Subject: [PATCH] Implement M-x shell-command and M-x shell-command-on-region. Bind them to M-! and M-| respectively. --- v7/src/edwin/modefs.scm | 43 ++++++++++++++++++++++------------------- 1 file changed, 23 insertions(+), 20 deletions(-) diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm index 2b743e0f1..267b4377a 100644 --- 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) (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) @@ -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) @@ -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) + +(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 -- 2.25.1