diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-02-07 22:01:38 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-07-01 14:43:39 +0200 |
commit | 2e1bc42db828d11a63354c3c57eed34b7f59921f (patch) | |
tree | 7d2d774cbf99a46ff268ed35a04e216d4590c5ae | |
parent | 42228a99ca23157a66ef187834c71f29e7e039a4 (diff) | |
download | org-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.el | 9 |
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) |