From 2b5127902d5919c0c93824adee46ad466ccc9c10 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Tue, 25 Oct 2022 09:55:56 +0200 Subject: [PATCH] Fix byte-compiler warning in do-symbols * lisp/emacs-lisp/pkg.el (do-symbols): Make VAR used when evaluating RESULT-FORM. --- lisp/emacs-lisp/pkg.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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) -- 2.39.2