(compilation-mode-map): Bind TAB to `compilation-next-error'

[gnu-emacs] / lisp / progmodes / xscheme.el

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 98803e510ae2b815f115502299867b637b61bddf..f53653a306d5f8d4cbcc7b6a1e2730621038fdea 100644 (file)
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -1,6 +1,7 @@
 ;;; xscheme.el --- run MIT Scheme under Emacs
 
-;; Copyright (C) 1986, 1987, 1989, 1990, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2002, 2003, 2004, 2005
+;;  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: languages, lisp
@@ -19,8 +20,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -222,14 +223,14 @@ With argument, asks for a command line."
   (let* ((buffer (get-buffer buffer-name))
         (process (and buffer (get-buffer-process buffer))))
     (cond ((not buffer)
-          (error "Buffer does not exist" buffer-name))
+          (error "Buffer `%s' does not exist" buffer-name))
          ((not process)
-          (error "Buffer is not a scheme interaction buffer" buffer-name))
+          (error "Buffer `%s' is not a scheme interaction buffer" buffer-name))
          (t
           (save-excursion
             (set-buffer buffer)
             (if (not (xscheme-process-buffer-current-p))
-                (error "Buffer is not a scheme interaction buffer"
+                (error "Buffer `%s' is not a scheme interaction buffer"
                        buffer-name)))
           (process-name process)))))
 \f
@@ -337,7 +338,7 @@ with no args, if that value is non-nil.
                 (setq xscheme-previous-process-state (cons nil nil)))))))
   (scheme-interaction-mode-initialize)
   (scheme-mode-variables)
-  (run-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook))
+  (run-mode-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook))
 
 (defun exit-scheme-interaction-mode ()
   "Take buffer out of scheme interaction mode"
@@ -408,7 +409,7 @@ characters perform useful functions.
 
 Commands:
 \\{scheme-debugger-mode-map}"
-  (error "Illegal entry to scheme-debugger-mode"))
+  (error "Invalid entry to scheme-debugger-mode"))
 
 (defun scheme-debugger-mode-initialize ()
   (use-local-map scheme-debugger-mode-map)
@@ -1229,4 +1230,5 @@ the remaining input.")
 
 (provide 'xscheme)
 
+;;; arch-tag: cfc14adc-2917-409e-ad16-432e8d0017de
 ;;; xscheme.el ends here