in semantic--tag-find-parent-by-name :
the function semantic-analyze-split-name can return either a string or a
list, nreverse will throw an error in case of a string argument.
here is a patch proposal :
--- semantic/semantic-tag.el 19 Oct 2008 11:38:12 -0000 1.59
+++ semantic/semantic-tag.el 2 Dec 2008 09:12:57 -0000
@@ -742,8 +742,10 @@
(when (not stag)
(dolist (S supers)
(let* ((sname (semantic-tag-name S))
- (parts (nreverse (semantic-analyze-split-name sname))))
- (when (string= name (car parts))
+ (parts (semantic-analyze-split-name sname))
+ (sname (and (listp parts) (car (nreverse parts))))
+ (sname (and (stringp parts) parts)))
+ (when (string= name sname)
(setq stag S))
)))
|