diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-06-15 10:23:58 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-08-03 08:53:01 -0700 |
| commit | eba16e5e5829c244d313101a769d4988946387d9 (patch) | |
| tree | 33b098f6324ce3f5feefa5213403789b29527943 /lisp/emacs-lisp/benchmark.el | |
| parent | e65ec81fc3e556719fae8d8b4b42f571c7e9f4fc (diff) | |
| download | emacs-eba16e5e5829c244d313101a769d4988946387d9.tar.gz emacs-eba16e5e5829c244d313101a769d4988946387d9.tar.bz2 emacs-eba16e5e5829c244d313101a769d4988946387d9.zip | |
Support ellipsis expansion in cl-print
* lisp/emacs-lisp/cl-print.el (cl-print-object-contents): New
generic method.
(cl-print-object-contents) <cons, vector,cl-structure-object>: New
methods.
(cl-print-object) <cons>: Use cl-print-insert-ellipsis.
(cl-print-object) <vector, cl-structure-object>: Elide whole object if
print-level exceeded. Use cl-print-insert-ellipsis.
(cl-print-insert-ellipsis, cl-print-propertize-ellipsis)
(cl-print-expand-ellipsis): New functions.
* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-4): Test
printing of objects nested in other objects.
(cl-print-tests-strings, cl-print-tests-ellipsis-cons)
(cl-print-tests-ellipsis-vector, cl-print-tests-ellipsis-struct)
(cl-print-tests-ellipsis-circular): New tests.
(cl-print-tests-check-ellipsis-expansion)
(cl-print-tests-check-ellipsis-expansion-rx): New functions.
Diffstat (limited to 'lisp/emacs-lisp/benchmark.el')
0 files changed, 0 insertions, 0 deletions