Function: org-fontify-macros

org-fontify-macros is a byte-compiled function defined in org.el.gz.

Signature

(org-fontify-macros LIMIT)

Documentation

Fontify macros.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-fontify-macros (limit)
  "Fontify macros."
  (when (re-search-forward "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)" limit t)
    (let ((begin (match-beginning 0))
	  (opening-end (match-beginning 1)))
      (when (and (re-search-forward "\n[ \t]*\n\\|\\(}}}\\)" limit t)
		 (match-string 1))
	(let ((end (match-end 1))
	      (closing-start (match-beginning 1)))
          (add-face-text-property begin end 'org-macro)
	  (add-text-properties
	   begin end
	   '(font-lock-multiline t font-lock-fontified t))
	  (org-remove-flyspell-overlays-in begin end)
	  (when org-hide-macro-markers
	    (add-text-properties begin opening-end '(invisible t))
	    (add-text-properties closing-start end '(invisible t)))
	  t)))))