X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c5c3d778cc874e6734e7d5a6bed0ea037b599dec..1aaf8a45eea127b3213868db2d2cbb75e5c0e4b0:/lisp/progmodes/xscheme.el

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