From: Andreas Schwab <schwab@suse.de>
Date: Sun, 8 Feb 2004 22:31:36 +0000 (+0000)
Subject: (verify-xscheme-buffer): Fix format strings.
X-Git-Tag: ttn-vms-21-2-B4~7711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac72d80baf52b55c91cf18e816089ec807b90502;p=emacs.git

(verify-xscheme-buffer): Fix format strings.
---

diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el
index 555445eda6b..609c7db1e2a 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)))))