diff options
| author | Stefan Monnier | 2025-04-06 17:25:43 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2025-04-06 17:25:43 -0400 |
| commit | 3723aabe504a95bf6c5a8aa9ce34d967ca37a159 (patch) | |
| tree | b32169b6876595c8a08ff16bbb3caf97c8c00b74 /lisp/cedet/srecode/dictionary.el | |
| parent | ba13e7de32d08028ab7bffdd73dab271a95ea453 (diff) | |
| download | emacs-scratch/cedet-object-name.tar.gz emacs-scratch/cedet-object-name.zip | |
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.
Diffstat (limited to 'lisp/cedet/srecode/dictionary.el')
| -rw-r--r-- | lisp/cedet/srecode/dictionary.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 2fbed835bdd..bac3b7c48d3 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el | |||
| @@ -369,7 +369,7 @@ values but STATE is nil." | |||
| 369 | (srecode-dictionary-set-value | 369 | (srecode-dictionary-set-value |
| 370 | dict name | 370 | dict name |
| 371 | (srecode-dictionary-compound-variable | 371 | (srecode-dictionary-compound-variable |
| 372 | name :value value :state state))))) | 372 | :value value :state state))))) |
| 373 | (setq entries (nthcdr 2 entries))) | 373 | (setq entries (nthcdr 2 entries))) |
| 374 | dict) | 374 | dict) |
| 375 | 375 | ||
| @@ -536,7 +536,7 @@ inserted with a new editable field.") | |||
| 536 | (error "Unknown default value for value %S" name))) | 536 | (error "Unknown default value for value %S" name))) |
| 537 | 537 | ||
| 538 | ;; Create a field from the inserter. | 538 | ;; Create a field from the inserter. |
| 539 | (srecode-field name :name name | 539 | (srecode-field :name name |
| 540 | :start start | 540 | :start start |
| 541 | :end (point) | 541 | :end (point) |
| 542 | :prompt (oref sti prompt) | 542 | :prompt (oref sti prompt) |