Prepend the nameless face

diff --git a/nameless.el b/nameless.el
index ee857b1bbe1dddb6f52b1b7f40d6ded011f6b1e4..56e52a883c3ebc8ad2d39a0a45bec16a46d28068 100644 (file)
--- a/nameless.el
+++ b/nameless.el
@@ -172,7 +172,7 @@ ALIAS may be nil, in which case it refers to `nameless-current-name'.
 \(fn (alias . display) [(alias . display) ...])"
   (setq-local font-lock-extra-managed-props
               `(composition display ,@font-lock-extra-managed-props))
-  (let ((kws (mapcar (lambda (x) `(,(nameless--name-regexp (cdr x)) 1 (nameless--compose-as ,(car x)))) r)))
+  (let ((kws (mapcar (lambda (x) `(,(nameless--name-regexp (cdr x)) 1 (nameless--compose-as ,(car x)) prepend)) r)))
     (setq nameless--font-lock-keywords kws)
     (font-lock-add-keywords nil kws t))
   (nameless--ensure))