cedet: remove obsolete name args to constructors

* lisp/cedet/ede/proj-archive.el, lisp/cedet/ede/proj-aux.el:
* lisp/cedet/ede/proj-elisp.el, lisp/cedet/ede/proj-info.el:
* lisp/cedet/ede/proj-misc.el, lisp/cedet/ede/proj-obj.el:
* lisp/cedet/ede/proj-shared.el, lisp/cedet/ede/simple.el:
* lisp/cedet/ede/source.el, lisp/cedet/semantic/:
* lisp/cedet/semantic/analyze.el, lisp/cedet/semantic/complete.el:
* lisp/cedet/semantic/db-javascript.el:
* lisp/cedet/semantic/db-ref.el, lisp/cedet/semantic/debug.el:
* lisp/cedet/semantic/ede-grammar.el:
* lisp/cedet/semantic/mru-bookmark.el, lisp/cedet/semantic/scope.el:
* lisp/cedet/semantic/texi.el, lisp/cedet/semantic/bovine/:
* lisp/cedet/semantic/bovine/c.el:
* lisp/cedet/semantic/bovine/debug.el, lisp/cedet/srecode/:
* lisp/cedet/srecode/extract.el, lisp/cedet/srecode/map.el:
* lisp/cedet/srecode/srt-mode.el:
Remove obsolete name args to constructors.

11 files changed, 22 insertions, 41 deletions

diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 7c9f102951d..625982f2c76 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -642,7 +642,6 @@ Returns an object based on symbol `semantic-analyze-context'."
       ;; for the argument.
       (setq context-return
             (semantic-analyze-context-functionarg
-             "functionargument"
              :buffer (current-buffer)
              :function fntag
              :index arg
@@ -665,7 +664,6 @@ Returns an object based on symbol `semantic-analyze-context'."
 
       (setq context-return
             (semantic-analyze-context-assignment
-             "assignment"
              :buffer (current-buffer)
              :assignee asstag
              :scope scope
@@ -683,7 +681,6 @@ Returns an object based on symbol `semantic-analyze-context'."
       ;; Nothing in particular
       (setq context-return
             (semantic-analyze-context
-             "context"
              :buffer (current-buffer)
              :scope scope
              :bounds bounds
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 73c8a56dbd8..cb27582fa54 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -1990,7 +1990,7 @@ have to be wrapped in that namespace."
               (list (semantic-tag-new-type inside-ns "namespace" tags nil)))
         ;; Create new semantic-table for the wrapped tags, since we don't want
         ;; the namespace to actually be a part of the header file.
-        (setq newtable (semanticdb-table "include with context"))
+        (setq newtable (semanticdb-table))
         (oset newtable tags newtags)
         (oset newtable parent-db (oref inctable parent-db))
         (oset newtable file (oref inctable file)))
diff --git a/lisp/cedet/semantic/bovine/debug.el b/lisp/cedet/semantic/bovine/debug.el
index 9bacee2a9cc..e511b3d2710 100644
--- a/lisp/cedet/semantic/bovine/debug.el
+++ b/lisp/cedet/semantic/bovine/debug.el
@@ -73,8 +73,7 @@ The RULE is for \"thing\" is 1.
 The MATCH for \"thing\" is 1.
 COLLECTION is a list of `things' that have been matched so far.
 LEXTOKEN, is a token returned by the lexer which is being matched."
-  (let ((frame (semantic-bovine-debug-frame "frame"
-                                            :nonterm nonterm
+  (let ((frame (semantic-bovine-debug-frame :nonterm nonterm
                                             :rule rule
                                             :match match
                                             :collection collection
@@ -119,8 +118,7 @@ LEXTOKEN, is a token returned by the lexer which is being matched."
 (defun semantic-create-bovine-debug-error-frame (condition)
   "Create an error frame for bovine debugger.
 Argument CONDITION is the thrown error condition."
-  (let ((frame (semantic-bovine-debug-error-frame "frame"
-                                                  :condition condition)))
+  (let ((frame (semantic-bovine-debug-error-frame :condition condition)))
     (semantic-debug-set-frame semantic-debug-current-interface
                               frame)
     frame))
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 1da1a319f11..baea2261e5d 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1890,8 +1890,8 @@ If INITIAL-INPUT is non-nil, insert it in the minibuffer initially.
 HISTORY is a symbol representing a variable to store the history in."
   (semantic-complete-read-tag-engine
    (semantic-collector-buffer-deep prompt :buffer (current-buffer))
-   (semantic-displayor-traditional-with-focus-highlight "simple")
-   ;;(semantic-displayor-tooltip "simple")
+   (semantic-displayor-traditional-with-focus-highlight)
+   ;;(semantic-displayor-tooltip)
    prompt
    default-tag
    initial-input
@@ -1912,8 +1912,8 @@ If INITIAL-INPUT is non-nil, insert it in the minibuffer initially.
 HISTORY is a symbol representing a variable to store the history in."
   (semantic-complete-read-tag-engine
    (semantic-collector-local-members prompt :buffer (current-buffer))
-   (semantic-displayor-traditional-with-focus-highlight "simple")
-   ;;(semantic-displayor-tooltip "simple")
+   (semantic-displayor-traditional-with-focus-highlight)
+   ;;(semantic-displayor-tooltip)
    prompt
    default-tag
    initial-input
@@ -1937,7 +1937,7 @@ HISTORY is a symbol representing a variable to store the history in."
                                        :buffer (current-buffer)
                                        :path (current-buffer)
                                        )
-   (semantic-displayor-traditional-with-focus-highlight "simple")
+   (semantic-displayor-traditional-with-focus-highlight)
    prompt
    default-tag
    initial-input
@@ -1954,7 +1954,6 @@ to control how completion options are displayed.
 See `semantic-complete-inline-tag-engine' for details on how
 completion works."
   (let* ((collector (semantic-collector-project-brutish
-                     "inline"
                      :buffer (current-buffer)
                      :path (current-buffer)))
          (sbounds (semantic-ctxt-current-symbol-and-bounds))
@@ -1984,9 +1983,8 @@ completion works."
           ;; There are several options.  Do the completion.
           (semantic-complete-inline-tag-engine
            collector
-           (funcall semantic-complete-inline-analyzer-displayor-class
-                    "inline displayor")
-           ;;(semantic-displayor-tooltip "simple")
+           (funcall semantic-complete-inline-analyzer-displayor-class)
+           ;;(semantic-displayor-tooltip)
            (current-buffer)
            start end))
       )))
@@ -2013,7 +2011,7 @@ prompts.  these are calculated from the CONTEXT variable passed in."
       prompt
       :buffer (oref context buffer)
       :context context)
-     (semantic-displayor-traditional-with-focus-highlight "simple")
+     (semantic-displayor-traditional-with-focus-highlight)
      (with-current-buffer (oref context buffer)
        (goto-char (cdr (oref context bounds)))
        (concat prompt (mapconcat 'identity syms ".")
@@ -2037,7 +2035,6 @@ completion works."
   (if (not context) (setq context (semantic-analyze-current-context (point))))
   (if (not context) (error "Nothing to complete on here"))
   (let* ((collector (semantic-collector-analyze-completions
-                     "inline"
                      :buffer (oref context buffer)
                      :context context))
          (syms (semantic-ctxt-current-symbol (point)))
@@ -2064,9 +2061,8 @@ completion works."
           ;; There are several options.  Do the completion.
           (semantic-complete-inline-tag-engine
            collector
-           (funcall semantic-complete-inline-analyzer-displayor-class
-                    "inline displayor")
-           ;;(semantic-displayor-tooltip "simple")
+           (funcall semantic-complete-inline-analyzer-displayor-class)
+           ;;(semantic-displayor-tooltip)
            (oref context buffer)
            (car (oref context bounds))
            (cdr (oref context bounds))
diff --git a/lisp/cedet/semantic/db-javascript.el b/lisp/cedet/semantic/db-javascript.el
index c58c295cd5c..789614d511a 100644
--- a/lisp/cedet/semantic/db-javascript.el
+++ b/lisp/cedet/semantic/db-javascript.el
@@ -98,7 +98,7 @@ See bottom of this file for instructions on managing this list.")
 ;; Create the database, and add it to searchable databases for javascript mode.
 (defvar-mode-local javascript-mode semanticdb-project-system-databases
   (list
-   (semanticdb-project-database-javascript "Javascript"))
+   (semanticdb-project-database-javascript))
   "Search javascript for symbols.")
 
 ;; NOTE: Be sure to modify this to the best advantage of your
@@ -115,13 +115,13 @@ the omniscience database.")
   "For a javascript database, there are no explicit tables.
 Create one of our special tables that can act as an intermediary."
   ;; NOTE: This method overrides an accessor for the `tables' slot in
-  ;;       a database.  You can either construct your own (like tmp here
+  ;;       a database.  You can either construct your own (like newtable here
   ;;       or you can manage any number of tables.
 
   ;; We need to return something since there is always the "master table"
   ;; The table can then answer file name type questions.
   (when (not (slot-boundp obj 'tables))
-    (let ((newtable (semanticdb-table-javascript "tmp")))
+    (let ((newtable (semanticdb-table-javascript)))
       (oset obj tables (list newtable))
       (oset newtable parent-db obj)
       (oset newtable tags nil)
diff --git a/lisp/cedet/semantic/db-ref.el b/lisp/cedet/semantic/db-ref.el
index 8f20fee9545..7713a3cec53 100644
--- a/lisp/cedet/semantic/db-ref.el
+++ b/lisp/cedet/semantic/db-ref.el
@@ -162,8 +162,7 @@ refreshed before dumping the result."
   (let* ((tab semanticdb-current-table)
          (myrefs (oref tab db-refs))
          (myinc (semanticdb-includes-in-table tab))
-         (adbc (semanticdb-ref-adebug "DEBUG"
-                                      :i-depend-on myrefs
+         (adbc (semanticdb-ref-adebug :i-depend-on myrefs
                                       :local-table tab
                                       :i-include myinc)))
     (data-debug-new-buffer "*References ADEBUG*")
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el
index d127b6465fe..4f05e599798 100644
--- a/lisp/cedet/semantic/debug.el
+++ b/lisp/cedet/semantic/debug.el
@@ -361,7 +361,6 @@ Argument ONOFF is non-nil when we are entering debug mode.
         (semantic-debug-current-interface
          (let ((parserb  (semantic-debug-find-parser-source)))
            (semantic-debug-interface
-            "Debug Interface"
             :parser-buffer parserb
             :parser-local-map (with-current-buffer parserb
                                 (current-local-map))
diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el
index 617ad7867f5..8c36623b72f 100644
--- a/lisp/cedet/semantic/ede-grammar.el
+++ b/lisp/cedet/semantic/ede-grammar.el
@@ -67,8 +67,7 @@ For Emacs Lisp, return addsuffix command on source files."
               (ede-proj-makefile-sourcevar this))))))
 
 (defvar semantic-ede-source-grammar-wisent
-  (ede-sourcecode "semantic-ede-grammar-source-wisent"
-                  :name "Wisent Grammar"
+  (ede-sourcecode :name "Wisent Grammar"
                   :sourcepattern "\\.wy$"
                   :garbagepattern '("*-wy.el")
                   )
@@ -80,13 +79,11 @@ For Emacs Lisp, return addsuffix command on source files."
 
 (defvar semantic-ede-grammar-compiler-wisent
   (semantic-ede-grammar-compiler-class
-   "ede-emacs-wisent-compiler"
    :name "emacs"
    :variables '(("EMACS" . "emacs")
                 ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'")
                 ("require" . "$(foreach r,$(1),(require (quote $(r))))"))
    :rules (list (ede-makefile-rule
-                 "elisp-inference-rule"
                  :target "%-wy.el"
                  :dependencies "%.wy"
                  :rules '("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) \
@@ -98,8 +95,7 @@ For Emacs Lisp, return addsuffix command on source files."
 
 
 (defvar semantic-ede-source-grammar-bovine
-  (ede-sourcecode "semantic-ede-grammar-source-bovine"
-                  :name "Bovine Grammar"
+  (ede-sourcecode :name "Bovine Grammar"
                   :sourcepattern "\\.by$"
                   :garbagepattern '("*-by.el")
                   )
@@ -107,13 +103,11 @@ For Emacs Lisp, return addsuffix command on source files."
 
 (defvar semantic-ede-grammar-compiler-bovine
   (semantic-ede-grammar-compiler-class
-   "ede-emacs-wisent-compiler"
    :name "emacs"
    :variables '(("EMACS" . "emacs")
                 ("EMACSFLAGS" . "-batch --no-site-file --eval '(setq debug-on-error t)'")
                 ("require" . "$(foreach r,$(1),(require (quote $(r))))"))
    :rules (list (ede-makefile-rule
-                 "elisp-inference-rule"
                  :target "%-by.el"
                  :dependencies "%.by"
                  :rules '("$(EMACS) $(EMACSFLAGS) $(addprefix -L ,$(LOADPATH)) \
diff --git a/lisp/cedet/semantic/mru-bookmark.el b/lisp/cedet/semantic/mru-bookmark.el
index bc8b1a9ef27..80844494c43 100644
--- a/lisp/cedet/semantic/mru-bookmark.el
+++ b/lisp/cedet/semantic/mru-bookmark.el
@@ -166,7 +166,6 @@ We can't use the built-in ring data structure because we need
 to delete some items from the ring when we don't have the data.")
 
 (defvar semantic-mru-bookmark-ring (semantic-bookmark-ring
-                                    "Ring"
                                     :ring (make-ring 20))
   "The MRU bookmark ring.
 This ring tracks the most recent active tags of interest.")
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index a2c68ed3a63..e653d0a03dc 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -309,7 +309,7 @@ are from nesting data types."
                              (list searchname)))
                    (fullsearchname nil)
 
-                   (miniscope (semantic-scope-cache "mini"))
+                   (miniscope (semantic-scope-cache))
                    ptag)
 
               ;; Find the next entry in the referenced type for
@@ -368,7 +368,7 @@ and PROTECTION is the level of protection offered by the relationship.
 Optional SCOPETYPES are additional scoped entities in which our parent might
 be found."
   (let ((lineage nil)
-        (miniscope (semantic-scope-cache "mini"))
+        (miniscope (semantic-scope-cache))
         )
     (oset miniscope parents parents)
     (oset miniscope scope scopetypes)
@@ -644,7 +644,7 @@ whose tags can be searched when needed, OR it may be a scope object."
           ;; We need to make a mini scope, and only include the misc bits
           ;; that will help in finding the parent.  We don't really need
           ;; to do any of the stuff related to variables and what-not.
-          (setq tmpscope (semantic-scope-cache "mini"))
+          (setq tmpscope (semantic-scope-cache))
           (let* ( ;; Step 1:
                  (scopetypes (cons type (semantic-analyze-scoped-types (point))))
                  (parents (semantic-analyze-scope-nested-tags (point) scopetypes))
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el
index 7fe19324793..1fdfd104a5e 100644
--- a/lisp/cedet/semantic/texi.el
+++ b/lisp/cedet/semantic/texi.el
@@ -378,7 +378,6 @@ Optional argument POINT is where to look for the environment."
     (when prefix
       (require 'semantic/analyze)
       (semantic-analyze-context
-       "Context-for-texinfo"
        :buffer (current-buffer)
        :scope nil
        :bounds bounds