diff options
Diffstat (limited to 'lisp/cedet/semantic/db-global.el')
| -rw-r--r-- | lisp/cedet/semantic/db-global.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el index 7592b004e4e..0fff96d0c6a 100644 --- a/lisp/cedet/semantic/db-global.el +++ b/lisp/cedet/semantic/db-global.el @@ -114,10 +114,14 @@ if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else throw an error." ) "A table for returning search results from GNU Global.") -(cl-defmethod object-print ((obj semanticdb-table-global) &rest strings) +(cl-defmethod semanticdb-debug-info ((obj semanticdb-table-global)) + (list "(proxy)")) + +(cl-defmethod cl-print-object ((obj semanticdb-table-global) stream) "Pretty printer extension for `semanticdb-table-global'. Adds the number of tags in this file to the object print name." - (apply #'cl-call-next-method obj (cons " (proxy)" strings))) + (princ (eieio-object-name obj (semanticdb-debug-info obj)) + stream)) (cl-defmethod semanticdb-equivalent-mode ((table semanticdb-table-global) &optional buffer) "Return t, pretend that this table's mode is equivalent to BUFFER. |