mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-04-10 06:18:40 +00:00
parent 2c66f5d196
commit 45f13532b2
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/cmuscheme.el
View File

@ -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 ()