diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-10-02 02:10:29 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-02 02:10:29 +0800 |
| commit | 62a81506f802e4824b718cc30321ee3a0057cdf7 (patch) | |
| tree | d681d7b767b1c3f7e4aee24ce39f6bef0d7f1f7e /lisp/cedet/srecode/getset.el | |
| parent | b3317662acc0157406c20c8e14c43b7126eaa8a0 (diff) | |
| download | emacs-62a81506f802e4824b718cc30321ee3a0057cdf7.tar.gz | |
Update CEDET from upstream.
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) |