mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

Rewrite object-print methods in cedet to be cl-print-object methods

Browse source 
* lisp/cedet/semantic/db-el.el (object-print): Ditto.
(object-print): Ditto.

* lisp/cedet/semantic/db-global.el (object-print): Ditto.

* lisp/cedet/semantic/db.el (object-print): Remove; unused.
* lisp/cedet/semantic/db.el (semanticdb-debug-info): New method.
(object-print): Rewritten to be cl-print-object.

* lisp/emacs-lisp/eieio.el (eieio-object-name): Allow the EXTRA
argument to be a list of strings.
This commit is contained in:
Lars Ingebrigtsen 2019-06-17 11:22:21 +02:00
parent c89dc27c2c
commit 1dfd6b4042
4 changed files with 51 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/eieio.el
View file

@ -398,7 +398,14 @@ contents of field NAME is matched against PAT, or they can be of
If EXTRA, include that in the string returned to represent the symbol."
(cl-check-type obj eieio-object)
(format "#<%s %s%s>" (eieio-object-class obj)
(eieio-object-name-string obj) (or extra "")))
(eieio-object-name-string obj)
(cond
((null extra)
"")
((listp extra)
(concat " " (mapconcat #'identity extra " ")))
(t
extra))))
(define-obsolete-function-alias 'object-name #'eieio-object-name "24.4")
(cl-defgeneric eieio-object-set-name-string (obj name)