Mercurial > emacs
changeset 44678:dec3101535fc
(list-text-properties-at): Command deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 19 Apr 2002 00:27:07 +0000 |
| parents | b8ccc58cc821 |
| children | c44f2c24d43c |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 3 insertions(+), 40 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/facemenu.el Fri Apr 19 00:23:18 2002 +0000 +++ b/lisp/facemenu.el Fri Apr 19 00:27:07 2002 +0000 @@ -460,7 +460,7 @@ (let ((inhibit-read-only t)) (remove-text-properties start end '(invisible nil intangible nil read-only nil)))) - + ;;; Describe-Text Mode. (defun describe-text-done () @@ -548,7 +548,7 @@ (describe-text-sexp value)))) (widget-insert "\n") (setq properties (cdr (cdr properties))))) - + ;;; Describe-Text Commands. (defun describe-text-category (category) @@ -618,44 +618,7 @@ (describe-text-properties properties)) (describe-text-mode) (goto-char (point-min))))))) - -;;; List Text Properties - -;;;###autoload -(defun list-text-properties-at (p) - "Pop up a buffer listing text-properties at LOCATION." - (interactive "d") - (let ((props (text-properties-at p)) - category - str) - (if (null props) - (message "None") - (if (and (not (cdr (cdr props))) - (not (eq (car props) 'category)) - (< (length (setq str (format "Text property at %d: %s %S" - p (car props) (car (cdr props))))) - (frame-width))) - (message "%s" str) - (with-output-to-temp-buffer "*Text Properties*" - (princ (format "Text properties at %d:\n\n" p)) - (setq help-xref-stack nil) - (while props - (if (eq (car props) 'category) - (setq category (car (cdr props)))) - (princ (format "%-20s %S\n" - (car props) (car (cdr props)))) - (setq props (cdr (cdr props)))) - (if category - (progn - (setq props (symbol-plist category)) - (princ (format "\nCategory %s:\n\n" category)) - (while props - (princ (format "%-20s %S\n" - (car props) (car (cdr props)))) - (if (eq (car props) 'category) - (setq category (car (cdr props)))) - (setq props (cdr (cdr props))))))))))) - + ;;;###autoload (defun facemenu-read-color (&optional prompt) "Read a color using the minibuffer."