(dired-do-query-replace-regexp): Add missing

format string argument.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 0a3fa220248a5a6ba394ad2c17a7905fc1589caf..fe8e33cfd48a8685973c72a01490574ac33bc39b 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1,6 +1,6 @@
 ;;; dired-aux.el --- less commonly used parts of dired  -*-byte-compile-dynamic: t;-*-
 
-;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001
+;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001, 2004
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>.
@@ -2114,7 +2114,7 @@ with the command \\[tags-loop-continue]."
     (let ((buffer (get-file-buffer file)))
       (if (and buffer (with-current-buffer buffer
                        buffer-read-only))
-         (error "File `%s' is visited read-only"))))
+         (error "File `%s' is visited read-only" file))))
   (tags-query-replace from to delimited
                      '(dired-get-marked-files nil nil 'dired-nondirectory-p)))