Function: semanticdb-find-result-prin1-to-string

semanticdb-find-result-prin1-to-string is a byte-compiled function defined in db-find.el.gz.

Signature

(semanticdb-find-result-prin1-to-string RESULT)

Documentation

If RESULT satisfies semanticdb-find-results-p, provide a short PRIN1 output.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/db-find.el.gz
(defun semanticdb-find-result-prin1-to-string (result)
  "If RESULT satisfies `semanticdb-find-results-p', provide a short PRIN1 output."
  (if (< (length result) 2)
      (concat "#<FIND RESULT "
	      (mapconcat (lambda (a)
			   (concat "(" (eieio-object-name (car a) ) " . "
				   "#<TAG LIST " (number-to-string (length (cdr a))) ">)"))
			 result
			 " ")
	      ">")
    ;; Longer results should have an abbreviated form.
    (format "#<FIND RESULT %d TAGS in %d FILES>"
	    (semanticdb-find-result-length result)
	    (length result))))