summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-02-07 22:01:38 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-07-01 14:43:39 +0200
commit2e1bc42db828d11a63354c3c57eed34b7f59921f (patch)
tree7d2d774cbf99a46ff268ed35a04e216d4590c5ae
parent42228a99ca23157a66ef187834c71f29e7e039a4 (diff)
downloadorg-mode-2e1bc42db828d11a63354c3c57eed34b7f59921f.tar.gz
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 <scott.campbell@uwaterloo.ca> <http://permalink.gmane.org/gmane.emacs.orgmode/94683>
-rw-r--r--contrib/lisp/org-wikinodes.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/contrib/lisp/org-wikinodes.el b/contrib/lisp/org-wikinodes.el
index 015e001..e1ea973 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)