Mercurial > emacs
changeset 53855:7ebb0f4b6c1f
(verify-xscheme-buffer): Fix format strings.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:31:36 +0000 |
| parents | 252f42ef56fc |
| children | ac105516179d |
| files | lisp/progmodes/xscheme.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/xscheme.el Sun Feb 08 22:30:54 2004 +0000 +++ b/lisp/progmodes/xscheme.el Sun Feb 08 22:31:36 2004 +0000 @@ -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 @@ (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)))))