[elpa] externals/adaptive-wrap ef01f42 09/15: * adaptive-wrap.el (adaptive-wrap-mode): Move after font-lock (bug#15155).

[Stefan Monnier]

branch: externals/adaptive-wrap
commit ef01f42d938509aee827592df7bbad887f50d129
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * adaptive-wrap.el (adaptive-wrap-mode): Move after font-lock (bug#15155).
---
 adaptive-wrap.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/adaptive-wrap.el b/adaptive-wrap.el
index 3787a99..9455789 100644
--- a/adaptive-wrap.el
+++ b/adaptive-wrap.el
@@ -96,7 +96,13 @@ extra indent = 2
   :lighter ""
   :group 'visual-line
   (if adaptive-wrap-prefix-mode
-      (jit-lock-register #'adaptive-wrap-prefix-function)
+      (progn
+        ;; HACK ATTACK!  We need to run after font-lock, but jit-lock-register
+        ;; doesn't accept an `append' argument, so we add ourselves beforehand,
+        ;; to make sure we're at the end of the hook (bug#15155).
+        (add-hook 'jit-lock-functions
+                  #'adaptive-wrap-prefix-function 'append t)
+        (jit-lock-register #'adaptive-wrap-prefix-function))
     (jit-lock-unregister #'adaptive-wrap-prefix-function)
     (with-silent-modifications
       (save-restriction