From 6e77869750abdd2d4cb6e8b9f35cc5a82fbe25b1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 11 Mar 2021 13:14:19 -0500 Subject: [PATCH] * lisp/vc/pcvs-parse.el: Fix lexical-binding breakage (cvs-parse-table, cvs-parse-merge, cvs-parse-status, cvs-parse-commit): Declare vars set by `cvs-match` as dynamic. --- lisp/vc/pcvs-parse.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/vc/pcvs-parse.el b/lisp/vc/pcvs-parse.el index d0b2e898b07..3a96c930544 100644 --- a/lisp/vc/pcvs-parse.el +++ b/lisp/vc/pcvs-parse.el @@ -197,6 +197,9 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." (defun cvs-parse-table () "Table of message objects for `cvs-parse-process'." + (with-suppressed-warnings ((lexical c file dir path base-rev subtype)) + (defvar c) (defvar file) (defvar dir) (defvar path) (defvar base-rev) + (defvar subtype)) (let (c file dir path base-rev subtype) (cvs-or @@ -402,6 +405,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." (defun cvs-parse-merge () + (with-suppressed-warnings ((lexical path base-rev head-rev type)) + (defvar path) (defvar base-rev) (defvar head-rev) (defvar type)) (let (path base-rev head-rev type) ;; A merge (maybe with a conflict). (and @@ -446,6 +451,9 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." :merge (cons base-rev head-rev)))))) (defun cvs-parse-status () + (with-suppressed-warnings ((lexical nofile path base-rev head-rev type)) + (defvar nofile) (defvar path) (defvar base-rev) (defvar head-rev) + (defvar type)) (let (nofile path base-rev head-rev type) (and (cvs-match @@ -494,6 +502,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." :head-rev head-rev)))) (defun cvs-parse-commit () + (with-suppressed-warnings ((lexical path file base-rev subtype)) + (defvar path) (defvar file) (defvar base-rev) (defvar subtype)) (let (path file base-rev subtype) (cvs-or -- 2.39.2