Function: apropos-format-plist

apropos-format-plist is a byte-compiled function defined in apropos.el.gz.

Signature

(apropos-format-plist PL SEP &optional COMPARE)

Documentation

Return a string representation of the plist PL.

Paired elements are separated by the string SEP. Only include properties matching the current apropos-regexp when COMPARE is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/apropos.el.gz
(defun apropos-format-plist (pl sep &optional compare)
  "Return a string representation of the plist PL.
Paired elements are separated by the string SEP.  Only include
properties matching the current `apropos-regexp' when COMPARE is
non-nil."
  (setq pl (symbol-plist pl))
  (let (p p-out)
    (while pl
      (setq p (format "%s %S" (car pl) (nth 1 pl)))
      (if (or (not compare) (string-match apropos-regexp p))
	  (put-text-property 0 (length (symbol-name (car pl)))
			     'face 'apropos-property p)
	(setq p nil))
      (when p
        (and compare apropos-match-face
             (put-text-property (match-beginning 0) (match-end 0)
                                'face apropos-match-face
                                p))
        (setq p-out (concat p-out (if p-out sep) p)))
      (setq pl (nthcdr 2 pl)))
    p-out))