(c-basic-common-initc-font-lock-init, c-font-lock-init): Eliminate obsolete make...

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

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 98803e510ae2b815f115502299867b637b61bddf..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
@@ -1229,4 +1229,5 @@ the remaining input.")
 
 (provide 'xscheme)
 
+;;; arch-tag: cfc14adc-2917-409e-ad16-432e8d0017de
 ;;; xscheme.el ends here