Skip to content

Commit

Permalink
fixed bug in retrieving nil parent
Browse files Browse the repository at this point in the history
  • Loading branch information
creator committed Jun 4, 2001
1 parent dd05f31 commit 573e186
Showing 1 changed file with 10 additions and 9 deletions.
19 changes: 10 additions & 9 deletions ecb.el
Original file line number Diff line number Diff line change
Expand Up @@ -774,19 +774,20 @@ highlighting of the methods if `ecb-font-lock-methods' is not nil."
ecb-classtype)
0 type)))
(parents (delq nil
(mapcar (function (lambda (p)
(if (or (not ecb-exclude-parents-regexp)
(not (string-match
ecb-exclude-parents-regexp p)))
p)))
(mapcar (function
(lambda (p)
(if (or (not p)
(not ecb-exclude-parents-regexp)
(not (string-match
ecb-exclude-parents-regexp p)))
p)))
(semantic-token-type-parent type)))))
(when (and parents ecb-show-parents)
(let ((pn (tree-node-new "[Parents]" 1 nil)))
(dolist (p (if (listp parents) parents (list parents)))
(when p
(tree-node-add-child
pn
(tree-node-new (ecb-highlight-text p ecb-classtype) 2 p t))))
(tree-node-add-child
pn
(tree-node-new (ecb-highlight-text p ecb-classtype) 2 p t)))
(when (eq ecb-show-parents 'expanded)
(tree-node-set-expanded pn t))
(tree-node-add-child n pn)))
Expand Down

0 comments on commit 573e186

Please sign in to comment.