From: Gerd Möllmann <gerd@gnu.org>
Date: Tue, 25 Oct 2022 07:55:56 +0000 (+0200)
Subject: Fix byte-compiler warning in do-symbols
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b5127902d5919c0c93824adee46ad466ccc9c10;p=emacs.git

Fix byte-compiler warning in do-symbols

* lisp/emacs-lisp/pkg.el (do-symbols): Make VAR used when evaluating
RESULT-FORM.
---

diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el
index 946c65a650c..47317fdf532 100644
--- a/lisp/emacs-lisp/pkg.el
+++ b/lisp/emacs-lisp/pkg.el
@@ -194,8 +194,6 @@ normally, or else if an explcit return occurs the value it transfers."
   (declare (indent 1))
   (cl-with-gensyms (flet-name)
     `(cl-block nil
-       ;; PKG-FIXME: This gives a warning about VAR being unused even
-       ;; if it is used.  Check what that is.
        (cl-flet ((,flet-name (,var)
 		   (cl-tagbody ,@body)))
 	 (let* ((package (pkg--package-or-lose ,package)))
@@ -205,9 +203,10 @@ normally, or else if an explcit return occurs the value it transfers."
 	     (maphash (lambda (k v)
 			(when (eq v :external)
 			  (,flet-name k)))
-		      (package-%symbols p))
+		      (package-%symbols p)))))
        (let ((,var nil))
-	 ,result-form)))))))
+         ,var
+	 ,result-form))))
 
 ;;;###autoload
 (cl-defmacro do-external-symbols ((var &optional (package '*package*) result-form)