diff options
Diffstat (limited to 'lisp/cedet/semantic/analyze')
| -rw-r--r-- | lisp/cedet/semantic/analyze/debug.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/analyze/refs.el | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/analyze/debug.el b/lisp/cedet/semantic/analyze/debug.el index 6255bdf3005..adbd00d6187 100644 --- a/lisp/cedet/semantic/analyze/debug.el +++ b/lisp/cedet/semantic/analyze/debug.el @@ -478,7 +478,7 @@ variable `semantic-dependency-system-include-path'.")) (defun semantic-analyzer-debug-describe-scope (ctxt &optional classconstraint) "Describe the scope in CTXT for finding a global symbol. Optional argument CLASSCONSTRAINT says to output to tags of that class." - (let* ((scope (oref ctxt :scope)) + (let* ((scope (slot-value ctxt 'scope)) (parents (oref scope parents)) (cc (or classconstraint (oref ctxt prefixclass))) ) diff --git a/lisp/cedet/semantic/analyze/refs.el b/lisp/cedet/semantic/analyze/refs.el index 7fbaa2ce974..d0c84ac1dfd 100644 --- a/lisp/cedet/semantic/analyze/refs.el +++ b/lisp/cedet/semantic/analyze/refs.el @@ -104,7 +104,7 @@ Use `semantic-analyze-current-tag' to debug this fcn." "Return the implementations derived in the reference analyzer REFS. Optional argument IN-BUFFER indicates that the returned tag should be in an active buffer." (let ((allhits (oref refs rawsearchdata)) - (tag (oref refs :tag)) + (tag (slot-value refs 'tag)) (impl nil) ) (semanticdb-find-result-mapc @@ -129,7 +129,7 @@ Optional argument IN-BUFFER indicates that the returned tag should be in an acti "Return the prototypes derived in the reference analyzer REFS. Optional argument IN-BUFFER indicates that the returned tag should be in an active buffer." (let ((allhits (oref refs rawsearchdata)) - (tag (oref refs :tag)) + (tag (slot-value refs 'tag)) (proto nil)) (semanticdb-find-result-mapc (lambda (T DB) |