From ac72d80baf52b55c91cf18e816089ec807b90502 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 8 Feb 2004 22:31:36 +0000 Subject: [PATCH] (verify-xscheme-buffer): Fix format strings. --- lisp/progmodes/xscheme.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))))) -- 2.39.2