diff options
Diffstat (limited to 'lisp/cedet/srecode/getset.el')
| -rw-r--r-- | lisp/cedet/srecode/getset.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/srecode/getset.el b/lisp/cedet/srecode/getset.el index 5155044e386..49d913a099a 100644 --- a/lisp/cedet/srecode/getset.el +++ b/lisp/cedet/srecode/getset.el @@ -298,10 +298,10 @@ Base selection on the field related to POINT." (let* ((kids (semantic-find-tags-by-class 'variable (semantic-tag-type-members class))) (sel (completing-read "Use Field: " kids)) - ) - - (or (semantic-find-tags-by-name sel kids) - sel) + (fields (semantic-find-tags-by-name sel kids))) + (if fields + (car fields) + sel) )) (defun srecode-auto-choose-class (point) |