Use cl-with-gensyms in ert-with-message-capture

* lisp/emacs-lisp/ert-x.el (ert-with-message-capture): Use
cl-with-gensyms.

(cherry picked from commit 45f5f718a07bb126bbd71952c5fbd1c5f126df7d)

diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el
index 3a58749b3b1adebe9245281b9e6f7aa9a3ddf148..6a8e7b97f47c66d6e43fecb095075ea224c5df1d 100644 (file)
--- a/lisp/emacs-lisp/ert-x.el
+++ b/lisp/emacs-lisp/ert-x.el
@@ -329,9 +329,7 @@ This is useful for separating the issuance of messages by the
 code under test from the behavior of the *Messages* buffer."
   (declare (debug (symbolp body))
            (indent 1))
-  (let ((g-message-advice (gensym))
-        (g-print-advice (gensym))
-        (g-collector (gensym)))
+  (cl-with-gensyms (g-message-advice g-print-advice g-collector)
     `(let* ((,var "")
             (,g-collector (lambda (msg) (setq ,var (concat ,var msg))))
             (,g-message-advice (ert--make-message-advice ,g-collector))