Update CEDET from upstream.

[bpt/emacs.git] / lisp / cedet / semantic / db-el.el

diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el
index 23410b1..2814790 100644 (file)
--- a/lisp/cedet/semantic/db-el.el
+++ b/lisp/cedet/semantic/db-el.el
@@ -39,6 +39,7 @@
   (require 'eieio-base))
 
 (declare-function semantic-elisp-desymbolify "semantic/bovine/el")
+(declare-function semantic-tag-similar-p "semantic/tag-ls")
 
 ;;; Code:
 
@@ -57,6 +58,11 @@ It does not need refreshing."
   "Return nil, we never need a refresh."
   nil)
 
+(defmethod object-print ((obj semanticdb-table-emacs-lisp) &rest strings)
+  "Pretty printer extension for `semanticdb-table-emacs-lisp'.
+Adds the number of tags in this file to the object print name."
+  (apply 'call-next-method obj (cons " (proxy)" strings)))
+
 (defclass semanticdb-project-database-emacs-lisp
   (semanticdb-project-database eieio-singleton)
   ((new-table-class :initform semanticdb-table-emacs-lisp
@@ -66,6 +72,15 @@ It does not need refreshing."
    )
   "Database representing Emacs core.")
 
+(defmethod object-print ((obj semanticdb-project-database-emacs-lisp) &rest strings)
+  "Pretty printer extension for `semanticdb-table-emacs-lisp'.
+Adds the number of tags in this file to the object print name."
+  (let ((count 0))
+    (mapatoms (lambda (sym) (setq count (1+ count))))
+    (apply 'call-next-method obj (cons 
+                                 (format " (%d known syms)" count)
+                                 strings))))
+
 ;; Create the database, and add it to searchable databases for Emacs Lisp mode.
 (defvar-mode-local emacs-lisp-mode semanticdb-project-system-databases
   (list
@@ -159,9 +174,9 @@ If Emacs cannot resolve this symbol to a particular file, then return nil."
          (setq file (concat file ".gz"))))
 
       (let* ((tab (semanticdb-file-table-object file))
-            (alltags (semanticdb-get-tags tab))
-            (newtags (semanticdb-find-tags-by-name-method
-                      tab (semantic-tag-name tag)))
+            (alltags (when tab (semanticdb-get-tags tab)))
+            (newtags (when tab (semanticdb-find-tags-by-name-method
+                                tab (semantic-tag-name tag))))
             (match nil))
        ;; Find the best match.
        (dolist (T newtags)
@@ -171,32 +186,12 @@ If Emacs cannot resolve this symbol to a particular file, then return nil."
        (when (not match)
            (setq match (car newtags)))
        ;; Return it.
-       (cons tab match)))))
-
-(defun semanticdb-elisp-sym-function-arglist (sym)
-  "Get the argument list for SYM.
-Deal with all different forms of function.
-This was snarfed out of eldoc."
-  (let* ((prelim-def
-         (let ((sd (and (fboundp sym)
-                        (symbol-function sym))))
-           (and (symbolp sd)
-                (condition-case err
-                    (setq sd (indirect-function sym))
-                  (error (setq sd nil))))
-           sd))
-         (def (if (eq (car-safe prelim-def) 'macro)
-                  (cdr prelim-def)
-                prelim-def))
-         (arglist (cond ((null def) nil)
-                       ((byte-code-function-p def)
-                        ;; This is an eieio compatibility function.
-                        ;; We depend on EIEIO, so use this.
-                        (eieio-compiled-function-arglist def))
-                        ((eq (car-safe def) 'lambda)
-                         (nth 1 def))
-                        (t nil))))
-    arglist))
+       (when tab (cons tab match))))))
+
+(autoload 'help-function-arglist "help-fns")
+(defalias 'semanticdb-elisp-sym-function-arglist 'help-function-arglist)
+(make-obsolete 'semanticdb-elisp-sym-function-arglist
+              'help-function-arglist "CEDET 1.1")
 
 (defun semanticdb-elisp-sym->tag (sym &optional toktype)
   "Convert SYM into a semantic tag.
@@ -210,7 +205,7 @@ TOKTYPE is a hint to the type of tag desired."
            (symbol-name sym)
            nil ;; return type
            (semantic-elisp-desymbolify
-            (semanticdb-elisp-sym-function-arglist sym)) ;; arg-list
+            (help-function-arglist sym)) ;; arg-list
            :user-visible-flag (condition-case nil
                                   (interactive-form sym)
                                 (error nil))