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 946c65a650cecf4664b80928d104f3317c1597c4..47317fdf53248e6e3efddd7a1f9221a3d74775c8 100644 (file)
--- 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)