Mercurial > emacs

comparison lisp/progmodes/xscheme.el @ 83279:2006100ee57e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 204-213) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-204 Clean up gdb-ui breakpoint faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-205 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-206 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-207 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-208 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-209 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-210 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-211 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-212 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-213 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-319
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 27 Mar 2005 17:29:43 +0000
parents 87f9bb9d3718
children f2892faa87d4 4da4a09e8b1b
comparison
equal deleted inserted replaced
83278:b2bde606bcf7 83279:2006100ee57e
1 ;;; xscheme.el --- run MIT Scheme under Emacs 1 ;;; xscheme.el --- run MIT Scheme under Emacs
2 2
3 ;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2004, 2005
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: languages, lisp 7 ;; Keywords: languages, lisp
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
406 sent to the Scheme process instead. Typing ? will show you which 407 sent to the Scheme process instead. Typing ? will show you which
407 characters perform useful functions. 408 characters perform useful functions.
408 409
409 Commands: 410 Commands:
410 \\{scheme-debugger-mode-map}" 411 \\{scheme-debugger-mode-map}"
411 (error "Illegal entry to scheme-debugger-mode")) 412 (error "Invalid entry to scheme-debugger-mode"))
412 413
413 (defun scheme-debugger-mode-initialize () 414 (defun scheme-debugger-mode-initialize ()
414 (use-local-map scheme-debugger-mode-map) 415 (use-local-map scheme-debugger-mode-map)
415 (setq major-mode 'scheme-debugger-mode) 416 (setq major-mode 'scheme-debugger-mode)
416 (setq mode-name "Scheme Debugger")) 417 (setq mode-name "Scheme Debugger"))