1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00

(list-text-properties-at): Pass proper format string to message.

This commit is contained in:
Karl Heuer 1996-01-25 00:53:55 +00:00
parent 7bccdfbc11
commit f2b7756c10

View File

@ -415,7 +415,7 @@ These special properties include `invisible', `intangible' and `read-only'."
(< (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