From: Basil L. Contovounesios <basil@contovou.net>
Date: Fri, 7 Jun 2024 08:47:14 +0000 (+0200)
Subject: Fix user-error usage in sgml-mode.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14fea8b132860f48a3de17c5afb28a6aa46aa490;p=emacs.git

Fix user-error usage in sgml-mode.el

* lisp/textmodes/sgml-mode.el (html-mode--image-yank-handler):
Address recent byte-compiler format string warnings (bug#71379).

(cherry picked from commit 025c3eaf9cc9956ff5a10a7bf09a26f176919a28)
---

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 1f440ebf7d0..5c744374128 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -2470,10 +2470,10 @@ To work around that, do:
 (defun html-mode--image-yank-handler (type image)
   (let ((file (read-file-name (format "Save %s image to: " type))))
     (when (file-directory-p file)
-      (user-error "%s is a directory"))
+      (user-error "%s is a directory" file))
     (when (and (file-exists-p file)
                (not (yes-or-no-p (format "%s exists; overwrite?" file))))
-      (user-error "%s exists"))
+      (user-error "%s exists" file))
     (with-temp-buffer
       (set-buffer-multibyte nil)
       (insert image)