Avoid further confusion when an alias matches the current name

diff --git a/nameless.el b/nameless.el
index 415dfe0221e0531802ba97e5c26aaba2959d2fe9..26b1024148d0e970c282396752c86e6afde9d45b 100644 (file)
--- a/nameless.el
+++ b/nameless.el
@@ -99,7 +99,8 @@ for it to take effect."
 (defun nameless--compose-as (display)
   "Compose the matched region and return a face spec."
   (when (and nameless-mode
-             (not (get-text-property (match-beginning 0) 'composition)))
+             (not (get-text-property (match-beginning 1) 'composition))
+             (not (get-text-property (match-beginning 1) 'display)))
     (let ((compose (save-match-data
                      (and nameless-affect-indentation-and-filling
                           (or (not (eq nameless-affect-indentation-and-filling 'outside-strings))