(f90-end-block-re, f90-start-block-re): New constants.

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

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 555445eda6b91d428a2f9465b67edb6f00cfde7c..609c7db1e2a8d0e41554600ba76fa64543cbde3a 100644 (file)
--- a/lisp/progmodes/xscheme.el
+++ b/lisp/progmodes/xscheme.el
@@ -1,6 +1,6 @@
 ;;; 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, 2004 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: languages, lisp
@@ -222,14 +222,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