Mercurial > emacs
changeset 17354:7c7aaf0aeedb
(scheme-mode-map): Add some menu items.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Apr 1997 06:18:40 +0000 |
| parents | 71db8e3ee12f |
| children | dc683d40dde5 |
| files | lisp/cmuscheme.el |
| diffstat | 1 files changed, 27 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cmuscheme.el Thu Apr 10 05:58:24 1997 +0000 +++ b/lisp/cmuscheme.el Thu Apr 10 06:18:40 1997 +0000 @@ -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 ()