Mercurial > emacs

comparison lisp/facemenu.el @ 14312:6dfd1f4fa87c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-text-properties-at): Pass proper format string to message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 00:53:55 +0000
parents 83f275dcd93a
children 64c1d20f4b5f
comparison
equal deleted inserted replaced
14311:381c7a6d21f6 14312:6dfd1f4fa87c
413 (message "None") 413 (message "None")
414 (if (and (not (cdr (cdr props))) 414 (if (and (not (cdr (cdr props)))
415 (< (length (setq str (format "Text property at %d: %s %S" 415 (< (length (setq str (format "Text property at %d: %s %S"
416 p (car props) (car (cdr props))))) 416 p (car props) (car (cdr props)))))
417 (frame-width))) 417 (frame-width)))
418 (message str) 418 (message "%s" str)
419 (with-output-to-temp-buffer "*Text Properties*" 419 (with-output-to-temp-buffer "*Text Properties*"
420 (princ (format "Text properties at %d:\n\n" p)) 420 (princ (format "Text properties at %d:\n\n" p))
421 (while props 421 (while props
422 (princ (format "%-20s %S\n" 422 (princ (format "%-20s %S\n"
423 (car props) (car (cdr props)))) 423 (car props) (car (cdr props))))