From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christophe Junke Subject: [PATCH] Change fontification order for links Date: Fri, 16 Nov 2012 11:40:18 +0100 Message-ID: <201211161040.qAGAeI3t003635@aperture.irisa.fr> Reply-To: christophe.junke@inria.fr Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60471) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TZJLF-0007sp-Lg for emacs-orgmode@gnu.org; Fri, 16 Nov 2012 05:40:12 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TZJLC-0008PJ-Is for emacs-orgmode@gnu.org; Fri, 16 Nov 2012 05:40:09 -0500 Received: from aperture.irisa.fr ([131.254.10.209]:33314) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TZJLC-0008I5-9N for emacs-orgmode@gnu.org; Fri, 16 Nov 2012 05:40:06 -0500 Received: from aperture.irisa.fr (localhost [127.0.0.1]) by aperture.irisa.fr (8.14.4/8.14.4/Debian-2ubuntu2) with ESMTP id qAGAeIEX003636 for ; Fri, 16 Nov 2012 11:40:19 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org.el (org-set-font-lock-defaults): let footnote fontifications be done before other links' fontification. This allows links appearing inside footnotes to be both visible and active. TINYCHANGE --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index cfd8651..15b73aa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5901,13 +5901,13 @@ needs to be inserted at a specific position in the font-lock sequence.") '(1 'org-special-keyword t) '(3 'org-property-value t)) ;; Links + (if (memq 'footnote lk) '(org-activate-footnote-links)) (if (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend))) (if (memq 'angle lk) '(org-activate-angle-links (0 'org-link t))) (if (memq 'plain lk) '(org-activate-plain-links)) (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link t))) (if (memq 'radio lk) '(org-activate-target-links (0 'org-link t))) (if (memq 'date lk) '(org-activate-dates (0 'org-date t))) - (if (memq 'footnote lk) '(org-activate-footnote-links)) '("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t)) '(org-hide-wide-columns (0 nil append)) ;; TODO keyword -- 1.7.9.5