Function: org-font-lock-add-priority-faces

org-font-lock-add-priority-faces is a byte-compiled function defined in org.el.gz.

Signature

(org-font-lock-add-priority-faces LIMIT)

Documentation

Add the special priority faces.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defvar org-priority-regexp) ; defined later in the file

(defun org-font-lock-add-priority-faces (limit)
  "Add the special priority faces."
  (while (re-search-forward (concat "^\\*+" org-priority-regexp) limit t)
    (let ((beg (match-beginning 1))
	  (end (1+ (match-end 2))))
      (add-face-text-property
       beg end
       (org-get-priority-face (string-to-char (match-string 2))))
      (add-text-properties
       beg end
       (list 'font-lock-fontified t)))))