# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531421 0
# Node ID 5d0e329a44d8ed81162b5815efadef299850c611
# Parent  0df217c5842d464f7ae066dbbd243aa25ceb50b3
(sgml-tag-help): Pass proper format string to message.

diff -r 0df217c5842d -r 5d0e329a44d8 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Thu Jan 25 00:56:54 1996 +0000
+++ b/lisp/textmodes/sgml-mode.el	Thu Jan 25 00:57:01 1996 +0000
@@ -530,7 +530,8 @@
   (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")))