diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:31:36 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:31:36 +0000 |
| commit | ac72d80baf52b55c91cf18e816089ec807b90502 (patch) | |
| tree | 86a7ad2ad74f1a85b49d765b7e7385ba7e53dc31 | |
| parent | d5c0bc40b8b1209decd6c4791819c8893fdddb90 (diff) | |
| download | emacs-ac72d80baf52b55c91cf18e816089ec807b90502.tar.gz | |
(verify-xscheme-buffer): Fix format strings.
| -rw-r--r-- | lisp/progmodes/xscheme.el | 8 |
1 files 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))))) |