aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/srecode/dictionary.el
diff options
context:
space:
mode:
authorStefan Monnier2025-04-06 17:25:43 -0400
committerStefan Monnier2025-04-06 17:25:43 -0400
commit3723aabe504a95bf6c5a8aa9ce34d967ca37a159 (patch)
treeb32169b6876595c8a08ff16bbb3caf97c8c00b74 /lisp/cedet/srecode/dictionary.el
parentba13e7de32d08028ab7bffdd73dab271a95ea453 (diff)
downloademacs-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.el4
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)