Mercurial > emacs
comparison lisp/facemenu.el @ 27929:c3e8689514c1
(list-text-properties-at): Set help-xref-stack to
nil.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 01 Mar 2000 19:05:24 +0000 |
| parents | b4b1af4aee43 |
| children | 90875cd704b5 |
comparison
equal
deleted
inserted
replaced
| 27928:0ffb33d1514a | 27929:c3e8689514c1 |
|---|---|
| 457 p (car props) (car (cdr props))))) | 457 p (car props) (car (cdr props))))) |
| 458 (frame-width))) | 458 (frame-width))) |
| 459 (message "%s" str) | 459 (message "%s" str) |
| 460 (with-output-to-temp-buffer "*Text Properties*" | 460 (with-output-to-temp-buffer "*Text Properties*" |
| 461 (princ (format "Text properties at %d:\n\n" p)) | 461 (princ (format "Text properties at %d:\n\n" p)) |
| 462 (setq help-xref-stack nil) | |
| 462 (while props | 463 (while props |
| 463 (if (eq (car props) 'category) | 464 (if (eq (car props) 'category) |
| 464 (setq category (car (cdr props)))) | 465 (setq category (car (cdr props)))) |
| 465 (princ (format "%-20s %S\n" | 466 (princ (format "%-20s %S\n" |
| 466 (car props) (car (cdr props)))) | 467 (car props) (car (cdr props)))) |