From 45f13532b2e24e553a3a70312c420c6c83debe8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 10 Apr 1997 06:18:40 +0000 Subject: (scheme-mode-map): Add some menu items. --- lisp/cmuscheme.el | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 0dbd7a2cb7..96d556362e 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 ;; 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 () -- cgit v1.2.3