(scheme-mode-map): Add some menu items.

1 files changed, 27 insertions, 1 deletions

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 0dbd7a2cb70..96d556362e9 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,6 +1,6 @@
 ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
 
-;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
 ;; Maintainer: FSF
@@ -100,6 +100,32 @@
 (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file)
 (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile"
 
+(let ((map (lookup-key scheme-mode-map [menu-bar scheme])))
+  (define-key map [separator-eval] '("--"))
+  (define-key map [compile-file]
+    '("Compile Scheme File" . scheme-compile-file))
+  (define-key map [load-file]
+    '("Load Scheme File" . scheme-load-file))
+  (define-key map [switch]
+    '("Switch to Scheme" . switch-to-scheme))
+  (define-key map [com-def-go]
+    '("Compile Definitiion & Go" . scheme-compile-definition-and-go))
+  (define-key map [com-def]
+    '("Compile Definitiion" . scheme-compile-definition))
+  (define-key map [send-def-go]
+    '("Evaluate Last Definition & Go" . scheme-send-definition-and-go))
+  (define-key map [send-def]
+    '("Evaluate Last Definition" . scheme-send-definition))
+  (define-key map [send-region-go]
+    '("Evaluate Region & Go" . scheme-send-region-and-go))
+  (define-key map [send-region-go]
+    '("Evaluate Region" . scheme-send-region))
+  (define-key map [send-region]
+    '("Evaluate Region" . scheme-send-region))
+  (define-key map [send-sexp]
+    '("Evaluate Last S-expression" . scheme-send-last-sexp))
+)
+
 (defvar scheme-buffer)
 
 (defun inferior-scheme-mode ()