* [PATCH] Change fontification order for links
@ 2012-11-16 10:40 Christophe Junke
2012-11-16 16:57 ` Nicolas Goaziou
0 siblings, 1 reply; 2+ messages in thread
From: Christophe Junke @ 2012-11-16 10:40 UTC (permalink / raw)
To: emacs-orgmode
* 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
^ permalink raw reply related [flat|nested] 2+ messages in thread* Re: [PATCH] Change fontification order for links
2012-11-16 10:40 [PATCH] Change fontification order for links Christophe Junke
@ 2012-11-16 16:57 ` Nicolas Goaziou
0 siblings, 0 replies; 2+ messages in thread
From: Nicolas Goaziou @ 2012-11-16 16:57 UTC (permalink / raw)
To: christophe.junke; +Cc: emacs-orgmode
Hello,
Christophe Junke <christophe.junke@inria.fr> writes:
> * 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
Thank you for your patch.
Unfortunately, for some reason, I cannot apply it on master. Would you
mind updating Org and providing it again (assuming this is the reason
for the error)?
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2012-11-16 17:02 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-11-16 10:40 [PATCH] Change fontification order for links Christophe Junke
2012-11-16 16:57 ` Nicolas Goaziou
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).