* lisp/emacs-lisp/cl-generic.el (cl-generic-generalizers): Remove warning

[gnu-emacs] / lisp / hexl.el

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 27d465926989e6f5e4e8d4ffaec076fd394c1db3..4aa76d23cb70d9c7b2355651d7e03204285ceadd 100644 (file)
--- 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)