diff options
Diffstat (limited to 'lisp/cedet/srecode/compile.el')
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el index 204211b5e53..ff640c020f3 100644 --- a/lisp/cedet/srecode/compile.el +++ b/lisp/cedet/srecode/compile.el @@ -547,8 +547,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 (oref (car lp) object-name)) + (context (oref (car lp) context)) (globalname (concat context ":" objname)) ) @@ -583,7 +583,7 @@ A list of defined variables VARS provides a variable table." (tmpl (oref table templates))) ;; Loop over all the templates, and xref. (while tmpl - (oset (car tmpl) :table table) + (oset (car tmpl) table table) (setq tmpl (cdr tmpl)))) )) @@ -644,9 +644,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 (oref ins secondname) (princ "\" : \"") - (princ (oref ins :secondname))) + (princ (oref ins secondname))) (princ "\" type \"") (let* ((oc (symbol-name (eieio-object-class ins))) (junk (string-match "srecode-template-inserter-" oc)) |