Re: Windows Emacs 23.2 Bug

Dmitry Gutov <[email protected]> Sat, 02 Jul 2011 18:33:28 +0400
Newsgroups gmane.emacs.code-browser
Message-ID <[email protected]> 
I'm experiencing this one, too, and it shouldn't be Windows-specific.

Basically, `ecb-create-non-semantic-tree' breaks when it encounters a 
read-only string in the imenu tag tree.
In elisp buffers, that would be literals "Variables" and "Types" from 
`lisp-imenu-generic-expression'.

Not sure what is the proper solution, but here's a fix that uses 
`propertize' instead of `set-text-properties' for the group nodes.

Since the leaf nodes creation is unchanged, this shouldn't affect 
performance too much.

Regards,
Dmitry.

------------------------------------------------------------------------------
All of the data generated in your IT infrastructure is seriously valuable.
Why? It contains a definitive record of application performance, security 
threats, fraudulent activity, and more. Splunk takes this data and makes 
sense of it. IT sense. And common sense.
http://p.sf.net/sfu/splunk-d2d-c2

_______________________________________________
Ecb-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/ecb-list
speedbar-textprops.patch (text/plain, 1.4 KB) 
--- ..\.emacs.d\.backups\!drive_c!Users!gutov!ecb-snap!ecb-speedbar.el.~1~	2010-02-23 19:19:11.000000000 +0300
+++ ecb-speedbar.el	2011-07-02 18:05:29.295376600 +0400
@@ -495,11 +495,7 @@
          (when (not (ecb-tag-forbidden-display-p new-tag))             
            (ecb-create-non-semantic-tree
             (setq new-node
-                  (tree-node-new (progn
-                                   (set-text-properties
-                                    0 (length (car tag))
-                                    `(face ,ecb-method-non-semantic-face) (car tag))
-                                   (car tag))
+                  (tree-node-new (propertize (car tag) 'face ecb-method-non-semantic-face)
                                  0
                                  new-tag
                                  nil node))
@@ -510,11 +506,7 @@
         (speedbar-generic-list-group
          (ecb-create-non-semantic-tree
           (setq new-node
-                (tree-node-new (progn
-                                 (set-text-properties
-                                  0 (length (car tag))
-                                  `(face ,ecb-method-non-semantic-face) (car tag))
-                                 (car tag))
+                (tree-node-new (propertize (car tag) 'face ecb-method-non-semantic-face)
                                1
                                nil nil node))
           (cdr tag))