From 2e1bc42db828d11a63354c3c57eed34b7f59921f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 7 Feb 2015 22:01:38 +0100 Subject: [PATCH] org-wikinodes: Fix fontification * contrib/lisp/org-wikinodes.el (org-wikinodes-add-to-font-lock-keywords): Properly install fontification mechanism. Small refactoring. Suggested-by: Scott Campbell --- contrib/lisp/org-wikinodes.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-wikinodes.el b/contrib/lisp/org-wikinodes.el index 015e00119..e1ea97347 100644 --- a/contrib/lisp/org-wikinodes.el +++ b/contrib/lisp/org-wikinodes.el @@ -325,11 +325,10 @@ with working links." (defun org-wikinodes-add-to-font-lock-keywords () "Add wikinode CamelCase highlighting to `org-font-lock-extra-keywords'." - (let ((m (member '(org-activate-plain-links) org-font-lock-extra-keywords))) - (if m - (setcdr m (cons '(org-wikinodes-activate-links) (cdr m))) - (message - "Failed to add wikinodes to `org-font-lock-extra-keywords'.")))) + (let ((m (member '(org-activate-plain-links (0 'org-link t)) + org-font-lock-extra-keywords))) + (if m (push '(org-wikinodes-activate-links) (cdr m)) + (message "Failed to add wikinodes to `org-font-lock-extra-keywords'.")))) (add-hook 'org-font-lock-set-keywords-hook 'org-wikinodes-add-to-font-lock-keywords)