Add rx.el support for numbered groups (Bug#8776).

[gnu-emacs] / lisp / cmuscheme.el

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index e3ac459512ee9135ad2437c2d3ba777f5433d02d..f4d15689885fb50a14e47a7d90acbd4a111b817b 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,7 +1,6 @@
 ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
 
 ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
 

-;; Copyright (C) 1988, 1994, 1997, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1994, 1997, 2001-2011 Free Software Foundation, Inc.

 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
 ;; Maintainer: FSF
 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
 ;; Maintainer: FSF


@@ -248,7 +247,7 @@ is run).
   (setq scheme-program-name cmd)
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer "*scheme*"))
   (setq scheme-program-name cmd)
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer "*scheme*"))

-;;;###autoload (add-hook 'same-window-buffer-names "*scheme*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*scheme*"))

 
 (defun scheme-start-file (prog)
   "Return the name of the start file corresponding to PROG.
 
 (defun scheme-start-file (prog)
   "Return the name of the start file corresponding to PROG.


@@ -504,7 +503,7 @@ See variable `scheme-buffer'."
                           (current-buffer)
                         scheme-buffer)))
 
                           (current-buffer)
                         scheme-buffer)))
 

-(defun scheme-interactively-start-process (&optional cmd)
+(defun scheme-interactively-start-process (&optional _cmd)

   "Start an inferior Scheme process.  Return the process started.
 Since this command is run implicitly, always ask the user for the
 command to run."
   "Start an inferior Scheme process.  Return the process started.
 Since this command is run implicitly, always ask the user for the
 command to run."


@@ -523,5 +522,4 @@ This is a good place to put keybindings."
 
 (provide 'cmuscheme)
 
 
 (provide 'cmuscheme)
 

-;; arch-tag: e8795f4a-c496-45a2-97b4-8e0f2a2c57d2

 ;;; cmuscheme.el ends here
 ;;; cmuscheme.el ends here