[Emacs-diffs] Changes to emacs/lisp/facemenu.el

[Richard M. Stallman]

Index: emacs/lisp/facemenu.el
diff -c emacs/lisp/facemenu.el:1.64 emacs/lisp/facemenu.el:1.65
*** emacs/lisp/facemenu.el:1.64 Thu Apr 18 08:08:09 2002
--- emacs/lisp/facemenu.el      Thu Apr 18 20:27:07 2002
***************
*** 460,466 ****
    (let ((inhibit-read-only t))
      (remove-text-properties 
       start end '(invisible nil intangible nil read-only nil))))
! 
  ;;; Describe-Text Mode.
  
  (defun describe-text-done ()
--- 460,466 ----
    (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,554 ****
             (describe-text-sexp value))))
      (widget-insert "\n")
      (setq properties (cdr (cdr properties)))))
! 
  ;;; Describe-Text Commands.
  
  (defun describe-text-category (category)
--- 548,554 ----
             (describe-text-sexp value))))
      (widget-insert "\n")
      (setq properties (cdr (cdr properties)))))
! 
  ;;; Describe-Text Commands.
  
  (defun describe-text-category (category)
***************
*** 618,661 ****
            (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."
--- 618,624 ----
            (describe-text-properties properties))
          (describe-text-mode)
          (goto-char (point-min)))))))
! 
  ;;;###autoload
  (defun facemenu-read-color (&optional prompt)
    "Read a color using the minibuffer."