X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e2ae1c5a40e2802fcd9f5ee26b4906be97c8b878..88694fb65887ebc2fde9dea18c817e08be26b564:/lisp/hexl.el

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 27d4659269..4aa76d23cb 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -935,13 +935,14 @@ and their encoded form is inserted byte by byte."
 		     (mapconcat (function (lambda (c) (format "%x" c)))
 				internal " "))
 	       (if (yes-or-no-p
-		    (format
+		    (format-message
 		     "Insert char 0x%x's internal representation \"%s\"? "
 		     ch internal-hex))
 		   (setq encoded internal)
 		 (error
-		  "Can't encode `0x%x' with this buffer's coding system; try \\[hexl-insert-hex-string]"
-		  ch)))
+		  "Can't encode `0x%x' with this buffer's coding system; %s"
+		  ch
+		  (substitute-command-keys "try \\[hexl-insert-hex-string]"))))
 	     (while (> num 0)
 	       (mapc
 		(function (lambda (c) (hexl-insert-char c 1))) encoded)