From c55e22c418048463a83e6b0e29c727c4f7b09545 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Sat, 30 Sep 2023 14:32:50 +0000 Subject: [PATCH] Complete yesterday's commit for cl-print.el I.e. commit the needed change to the test suite. * test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-ellipsis-string): Bind cl-print-string-length. Only bind print-length and print-level where they are specifically needed. --- test/lisp/emacs-lisp/cl-print-tests.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/test/lisp/emacs-lisp/cl-print-tests.el b/test/lisp/emacs-lisp/cl-print-tests.el index 3073a42e39d..631dd834a68 100644 --- a/test/lisp/emacs-lisp/cl-print-tests.el +++ b/test/lisp/emacs-lisp/cl-print-tests.el @@ -60,18 +60,20 @@ (ert-deftest cl-print-tests-ellipsis-string () "Ellipsis expansion works in strings." - (let ((print-length 4) - (print-level 3)) + (let ((cl-print-string-length 4)) (cl-print-tests-check-ellipsis-expansion "abcdefg" "\"abcd...\"" "efg") (cl-print-tests-check-ellipsis-expansion "abcdefghijk" "\"abcd...\"" "efgh...") - (cl-print-tests-check-ellipsis-expansion - '(1 (2 (3 #("abcde" 0 5 (test t))))) - "(1 (2 (3 ...)))" "#(\"abcd...\" 0 5 (test t))") - (cl-print-tests-check-ellipsis-expansion - #("abcd" 0 1 (bold t) 1 2 (invisible t) 3 4 (italic t)) - "#(\"abcd\" 0 1 (bold t) ...)" "1 2 (invisible t) ..."))) + (let ((print-length 4) + (print-level 3)) + (cl-print-tests-check-ellipsis-expansion + '(1 (2 (3 #("abcde" 0 5 (test t))))) + "(1 (2 (3 ...)))" "#(\"abcd...\" 0 5 (test t))")) + (let ((print-length 4)) + (cl-print-tests-check-ellipsis-expansion + #("abcd" 0 1 (bold t) 1 2 (invisible t) 3 4 (italic t)) + "#(\"abcd\" 0 1 (bold t) ...)" "1 2 (invisible t) ...")))) (ert-deftest cl-print-tests-ellipsis-struct () "Ellipsis expansion works in structures." -- 2.39.5