diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-05-27 11:38:00 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-05-27 11:38:00 -0700 |
| commit | 0f48d18fd2a30f29cc3592a835d2a2254c9b0afb (patch) | |
| tree | 06ffe197481689bb051dfe0ebd04edaea892f13d /lisp/emacs-lisp/bytecomp.el | |
| parent | 584f05cb11a8010f31beaf07c9ef4180b70d1d66 (diff) | |
| download | emacs-0f48d18fd2a30f29cc3592a835d2a2254c9b0afb.tar.gz emacs-0f48d18fd2a30f29cc3592a835d2a2254c9b0afb.tar.bz2 emacs-0f48d18fd2a30f29cc3592a835d2a2254c9b0afb.zip | |
Make cl-print respect print-level and print-length (bug#31559)
* lisp/emacs-lisp/cl-print.el (cl-print--depth): New variable.
(cl-print-object) <cons>: Print ellipsis if printing depth greater
than 'print-level' or length of list greater than 'print-length'.
(cl-print-object) <vector>: Truncate printing with ellipsis if
vector is longer than 'print-length'.
(cl-print-object) <cl-structure-object>: Truncate printing with
ellipsis if structure has more slots than 'print-length'.
(cl-print-object) <:around>: Bind 'cl-print--depth'.
* test/lisp/emacs-lisp/cl-print-tests.el
(cl-print-tests-3, cl-print-tests-4): New tests.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
0 files changed, 0 insertions, 0 deletions