(sgml-tag-help): Pass proper format string to message.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index f146e21a4b3..b71e0a2f129 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -530,7 +530,8 @@ With prefix ARG only self insert."
   (or (stringp tag)
       (error "No tag selected"))
   (setq tag (downcase tag))
-  (message (or (cdr (assoc tag sgml-tag-help))
+  (message "%s"
+           (or (cdr (assoc tag sgml-tag-help))
                (and (eq (aref tag 0) ?/)
                     (cdr (assoc (substring tag 1) sgml-tag-help)))
                "No description available")))