[elpa] master 121a841 4/7: Fix private prefixes with the `display' method

[Artur Malabarba]

branch: master
commit 121a841cd412e752cee9f458a25d29974d8fe989
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Fix private prefixes with the `display' method
---
 nameless.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/nameless.el b/nameless.el
index b390cdc..29b7548 100644
--- a/nameless.el
+++ b/nameless.el
@@ -124,9 +124,11 @@ displayed as `::internal-impl', instead of 
`:-internal-impl'."
       (when compose
         (if (and nameless-private-prefix
                  (equal "-" (substring (match-string 0) -1)))
-            (compose-region (match-beginning 0)
-                            (match-end 0)
-                            (nameless--make-composition (concat dis 
nameless-prefix)))
+            (progn
+              (setq dis (concat dis nameless-prefix))
+              (compose-region (match-beginning 0)
+                              (match-end 0)
+                              (nameless--make-composition dis)))
           (compose-region (match-beginning 1)
                           (match-end 1)
                           (nameless--make-composition dis))))