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/srecode/compile.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/srecode/compile.el')
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el index 1b6cd704095..9bd47153294 100644 --- a/lisp/cedet/srecode/compile.el +++ b/lisp/cedet/srecode/compile.el @@ -548,8 +548,8 @@ A list of defined variables VARS provides a variable table." (while lp - (let* ((objname (oref (car lp) :object-name)) - (context (oref (car lp) :context)) + (let* ((objname (slot-value (car lp) 'object-name)) + (context (slot-value (car lp) 'context)) (globalname (concat context ":" objname)) ) @@ -645,9 +645,9 @@ Argument INDENT specifies the indentation level for the list." "Dump the state of the SRecode template inserter INS." (princ "INS: \"") (princ (eieio-object-name-string ins)) - (when (oref ins :secondname) + (when (slot-value ins 'secondname) (princ "\" : \"") - (princ (oref ins :secondname))) + (princ (slot-value ins 'secondname))) (princ "\" type \"") (let* ((oc (symbol-name (eieio-object-class ins))) (junk (string-match "srecode-template-inserter-" oc)) |