branch: elpa/d-mode
commit 69df4a38249ac808e1a8b5c6c9650f1b7f86e864
Author: Vladimir Panteleev <[email protected]>
Commit: Vladimir Panteleev <[email protected]>

    Abbreviate symbol kind in imenu entries
    
    Incremental search produced undesired results when the sought string
    happened to be a substring of a symbol kind string.
---
 d-mode.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/d-mode.el b/d-mode.el
index d807544..e8912a2 100644
--- a/d-mode.el
+++ b/d-mode.el
@@ -902,23 +902,23 @@ Each list item should be a regexp matching a single 
identifier."
                          ((equal name "{")
                           nil) ; false positive with decl-start keyword and 
{...} group
                          ((equal id-prev-token "enum")
-                          '("enum" t))
+                          '("[E]" t))
                          ((equal id-prev-token "class")
-                          '("class" t))
+                          '("[C]" t))
                          ((equal id-prev-token "struct")
-                          '("struct" t))
+                          '("[S]" t))
                          ((equal id-prev-token "template")
-                          '("template" t))
+                          '("[T]" t))
                          ((equal id-prev-token "alias")
-                          '("alias" nil))
+                          '("[A]" nil))
                          ((equal type-prev-token "alias")
-                          '("alias" nil)) ; old-style alias
+                          '("[A]" nil)) ; old-style alias
                          ((memq next-char '(?\; ?= ?,))
                           nil) ; '("variable" nil))
                          ((member name '("import" "if"))
                           nil) ; static import/if
                          ((memq next-char '(?\())
-                          '("function" t)) ; function
+                          '("[F]" t)) ; function
                          (t ; unknown
                           (list id-prev-token nil))))
                    (kind (car res))

Reply via email to