diff options
Diffstat (limited to 'lisp/cedet/srecode/semantic.el')
| -rw-r--r-- | lisp/cedet/srecode/semantic.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el index ea11b0e4838..1e1a60e0245 100644 --- a/lisp/cedet/srecode/semantic.el +++ b/lisp/cedet/srecode/semantic.el @@ -63,10 +63,9 @@ If FUNCTION is non-nil, then FUNCTION is somehow applied to an aspect of the compound value." (if (not function) ;; Just format it in some handy dandy way. - (semantic-format-tag-prototype (oref cp :prime)) + (semantic-format-tag-prototype (oref cp prime)) ;; Otherwise, apply the function to the tag itself. - (funcall function (oref cp :prime)) - )) + (funcall function (oref cp prime)))) ;;; Managing the `current' tag @@ -106,7 +105,7 @@ variable default values, and other things." (srecode-dictionary-set-value dict "TAG" tagobj) ;; Pull out the tag for the individual pieces. - (let ((tag (oref tagobj :prime))) + (let ((tag (oref tagobj prime))) (srecode-dictionary-set-value dict "NAME" (semantic-tag-name tag)) (srecode-dictionary-set-value dict "TYPE" (semantic-format-tag-type tag nil)) |