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/debug.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/debug.el')
| -rw-r--r-- | lisp/cedet/semantic/debug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el index 180db3ab1fd..641974545cd 100644 --- a/lisp/cedet/semantic/debug.el +++ b/lisp/cedet/semantic/debug.el @@ -171,7 +171,7 @@ These buffers are brought into view when layout occurs.") (cl-defmethod semantic-debug-highlight-lexical-token ((iface semantic-debug-interface) token) "For IFACE, highlight TOKEN in the source buffer . TOKEN is a lexical token." - (set-buffer (oref iface :source-buffer)) + (set-buffer (slot-value iface 'source-buffer)) (object-add-to-list iface 'overlays (semantic-lex-highlight-token token)) @@ -184,7 +184,7 @@ TOKEN is a lexical token." NONTERM is the name of the rule currently being processed that shows up as a nonterminal (or tag) in the source buffer. If RULE and MATCH indices are specified, highlight those also." - (set-buffer (oref iface :parser-buffer)) + (set-buffer (slot-value iface 'parser-buffer)) (let* ((rules (semantic-find-tags-by-class 'nonterminal (current-buffer))) (nt (semantic-find-first-tag-by-name nonterm rules)) |