Function: bs-apply-sort-faces

bs-apply-sort-faces is a byte-compiled function defined in bs.el.gz.

Signature

(bs-apply-sort-faces &optional SORT-DESCRIPTION)

Documentation

Set text properties for the sort described by SORT-DESCRIPTION.

SORT-DESCRIPTION is an element of bs-sort-functions. Default is bs--current-sort-function.

Source Code

;; Defined in /usr/src/emacs/lisp/bs.el.gz
(defun bs-apply-sort-faces (&optional sort-description)
  "Set text properties for the sort described by SORT-DESCRIPTION.
SORT-DESCRIPTION is an element of `bs-sort-functions'.
Default is `bs--current-sort-function'."
  (let ((sort-description (or sort-description
			      bs--current-sort-function)))
    (save-excursion
      (goto-char (point-min))
      (when (and (nth 2 sort-description)
		 (search-forward-regexp (nth 2 sort-description) nil t))
	(let ((inhibit-read-only t))
	  (put-text-property (match-beginning 0)
			     (match-end 0)
			     'face
			     (or (nth 3 sort-description)
				 'region)))))))