# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531235 0
# Node ID 6dfd1f4fa87ca2620d20921c22800e7214167d7a
# Parent  381c7a6d21f6f7e9cee8c81865819672a80e93d4
(list-text-properties-at): Pass proper format string to message.

diff -r 381c7a6d21f6 -r 6dfd1f4fa87c lisp/facemenu.el
--- a/lisp/facemenu.el	Thu Jan 25 00:53:48 1996 +0000
+++ b/lisp/facemenu.el	Thu Jan 25 00:53:55 1996 +0000
@@ -415,7 +415,7 @@
 	       (< (length (setq str (format "Text property at %d:  %s  %S"
 					    p (car props) (car (cdr props)))))
 		  (frame-width)))
-	  (message str)
+	  (message "%s" str)
 	(with-output-to-temp-buffer "*Text Properties*"
 	  (princ (format "Text properties at %d:\n\n" p))
 	  (while props