[nongnu] elpa/helm f55243cf7c 8/9: No need to use cl-flet in cl--print-table advice

[ELPA Syncer]

branch: elpa/helm
commit f55243cf7c8e60064304fbbfde88635f811c385c
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    No need to use cl-flet in cl--print-table advice
---
 helm-source.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/helm-source.el b/helm-source.el
index 0bad9b0fd7..474ac9b0fe 100644
--- a/helm-source.el
+++ b/helm-source.el
@@ -42,18 +42,17 @@
 (declare-function helm-marked-candidates "helm-core.el")
 
 ;;; Advice Emacs fn
-;;  Make Classes's docstrings more readable by removing al the
-;;  unnecessary crap.
+;;  Make Classes's docstrings more readable by removing the attempts to align
+;;  unuseful stuff and add newline for separating slot documentation, as well
+;;  slots are in bold characters.
 
 (defun helm-source--cl--print-table (&rest args)
   "Advice for `cl--print-table' to make readable class slots docstrings."
-  (cl-flet ((print-rows (rows)
-              (let ((format "%s\n\n  Initform=%s\n\n%s"))
-                (dolist (row rows)
-                  (setcar row (propertize (car row) 'face 'bold))
-                  (setcdr row (nthcdr 1 (cdr row)))
-                  (insert "\n* " (apply #'format format row) "\n")))))
-    (print-rows (cadr args))))
+  (let ((format "%s\n\n  Initform=%s\n\n%s"))
+    (dolist (row (cadr args))
+      (setcar row (propertize (car row) 'face 'bold))
+      (setcdr row (nthcdr 1 (cdr row)))
+      (insert "\n* " (apply #'format format row) "\n"))))
 
 (cl-defgeneric helm--setup-source (source)
   "Prepare slots and handle slot errors before creating a helm source.")