diff options
| author | David Engster <deng@randomsample.de> | 2017-01-25 23:12:00 +0100 |
|---|---|---|
| committer | David Engster <deng@randomsample.de> | 2017-01-25 23:14:29 +0100 |
| commit | d2a57bdfec4758cf7607e7976106cd1bfee5f6d7 (patch) | |
| tree | d4f4948e6a2247d9c4270c207d9afeef7928e2b1 /lisp/cedet/semantic/analyze.el | |
| parent | 9c2feacc8558a8cc8e6d89ecd8473f9a3524d9ef (diff) | |
| download | emacs-scratch/last-cedet-merge.tar.gz | |
CEDET: Fix "unknown slot [...]" warningsscratch/last-cedet-merge
Replace (oref OBJECT :SLOT) with (slot-value OBJECT 'SLOT).
TODO: ChangeLog
Diffstat (limited to 'lisp/cedet/semantic/analyze.el')
| -rw-r--r-- | lisp/cedet/semantic/analyze.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index 9918aacadd1..696b864cd20 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -202,7 +202,7 @@ Optional argument DESIRED-TYPE may be a non-type tag to analyze." (cl-defmethod semantic-analyze-interesting-tag ((context semantic-analyze-context)) "Return a tag from CONTEXT that would be most interesting to a user." - (let ((prefix (reverse (oref context :prefix)))) + (let ((prefix (reverse (slot-value context 'prefix)))) ;; Go back through the prefix until we find a tag we can return. (while (and prefix (not (semantic-tag-p (car prefix)))) (setq prefix (cdr prefix))) @@ -212,12 +212,12 @@ Optional argument DESIRED-TYPE may be a non-type tag to analyze." (cl-defmethod semantic-analyze-interesting-tag ((context semantic-analyze-context-functionarg)) "Try the base, and if that fails, return what we are assigning into." - (or (cl-call-next-method) (car-safe (oref context :function)))) + (or (cl-call-next-method) (car-safe (slot-value context 'function)))) (cl-defmethod semantic-analyze-interesting-tag ((context semantic-analyze-context-assignment)) "Try the base, and if that fails, return what we are assigning into." - (or (cl-call-next-method) (car-safe (oref context :assignee)))) + (or (cl-call-next-method) (car-safe (slot-value context 'assignee)))) ;;; TYPE MEMBERS ;; @@ -760,8 +760,8 @@ Optional argument CTXT is the context to show." (cl-defmethod semantic-analyze-pulse ((context semantic-analyze-context)) "Pulse the region that CONTEXT affects." (require 'pulse) - (with-current-buffer (oref context :buffer) - (let ((bounds (oref context :bounds))) + (with-current-buffer (slot-value context 'buffer) + (let ((bounds (slot-value context 'bounds))) (when bounds (pulse-momentary-highlight-region (car bounds) (cdr bounds)))))) |