diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-05-27 11:38:00 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-06-04 08:57:10 -0700 |
| commit | 5d448ca98cd59287b2c20175e2e6638f1922db57 (patch) | |
| tree | c7db77439fede92045ab369392acd046d6824b96 /test/lisp/emacs-lisp/tabulated-list-test.el | |
| parent | 03697e648c080f6b007b6ef8443fd4448bc52364 (diff) | |
| download | emacs-5d448ca98cd59287b2c20175e2e6638f1922db57.tar.gz emacs-5d448ca98cd59287b2c20175e2e6638f1922db57.tar.bz2 emacs-5d448ca98cd59287b2c20175e2e6638f1922db57.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.
(cherry picked from commit 0f48d18fd2a30f29cc3592a835d2a2254c9b0afb)
Diffstat (limited to 'test/lisp/emacs-lisp/tabulated-list-test.el')
0 files changed, 0 insertions, 0 deletions