cedet: Fix some remaining uses of obsolete object-name argscratch/cedet-object-name

* lisp/cedet/srecode/compile.el (srecode-compile-templates):
Delete obsolete object-name argument to `srecode-compile-state` and
`srecode-dictionary-compound-variable` constructors.
(srecode-compile-one-template-tag, srecode-compile-inserter):
Pass object name via explicit `:object-name` arg to `srecode-template`,
`srecode-template-inserter-variable`, and children of `srecode-template`.

* lisp/cedet/srecode/cpp.el (srecode-semantic-apply-tag-to-dict)
(srecode-c-apply-templates): Delete obsolete object-name argument to
`srecode-semantic-tag` constructors.

* lisp/cedet/srecode/dictionary.el (srecode-dictionary-add-entries)
(srecode-compound-toString): Delete obsolete object-name argument to
`srecode-dictionary-compound-variable` and `srecode-field` constructors.

* lisp/cedet/srecode/insert.el (srecode-insert-method-field):
Delete obsolete object-name argument to `srecode-field-value` constructor.
(srecode-parse-input): Pass object name via explicit `:object-name` arg
to `srecode-template`.

* lisp/cedet/srecode/semantic.el (srecode-semantic-handle-:tag)
(srecode-semantic-insert-tag, srecode-semantic-apply-tag-to-dict-default):
Delete obsolete object-name argument to `srecode-semantic-tag` constructors.

* lisp/cedet/srecode/table.el (srecode-mode-table-new): Delete
obsolete object-name argument to `srecode-template-table` constructor.

* lisp/emacs-lisp/eieio-base.el (make-instance):
Emit warning unconditionally.

1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el
index 2e70469fa39..ab6ab986f6a 100644
--- a/lisp/cedet/srecode/insert.el
+++ b/lisp/cedet/srecode/insert.el
@@ -648,8 +648,7 @@ Use DICTIONARY to resolve values."
 Use DICTIONARY to resolve values."
   (let* ((default (srecode-insert-ask-default sti dictionary))
          (compound-value
-          (srecode-field-value (oref sti object-name)
-                               :firstinserter sti
+          (srecode-field-value :firstinserter sti
                                :defaultvalue default))
          )
     ;; Return this special compound value as the thing to insert.
@@ -863,7 +862,7 @@ Return the remains of INPUT."
   (let* ((out (srecode-compile-split-code tag input STATE
                                           (oref ins object-name))))
     (oset ins template (srecode-template
-                        (eieio-object-name-string ins)
+                        :object-name (slot-value ins 'object-name)
                         :context nil
                         :args nil
                         :code (cdr out)))