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

Don't redundantly cl-print arglist in function docstring again

Browse source 
* lisp/emacs-lisp/cl-print.el (cl-print-object): Don't print arglist
part of docstring.
* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-1): Update
test accordingly.
This commit is contained in:
Noam Postavsky 2017-05-27 22:40:46 -04:00
parent eb9d3eca80
commit b567c48869
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/emacs-lisp/cl-print-tests.el
View file

@ -34,7 +34,7 @@
(let ((print-circle t))
(should (equal (cl-prin1-to-string `((x . ,x) (y . ,x)))
"((x . #1=#s(cl-print--test :a 1 :b 2)) (y . #1#))")))
(should (string-match "\\`#f(compiled-function (x) .*\n\n.*)\\'"
(should (string-match "\\`#f(compiled-function (x) \"[^\"]+\" [^\)]*)\\'"
(cl-prin1-to-string (symbol-function #'caar))))))
(ert-deftest cl-print-tests-2 ()