From 15d628f1960ba71912cc9c3e8deaded77b953ccb Mon Sep 17 00:00:00 2001 From: Gonzalo Larumbe Date: Mon, 22 Aug 2022 01:29:08 +0200 Subject: [PATCH] Fix more lexical-binding fallout in vhdl-speedbar-insert-hierarchy * lisp/progmodes/vhdl-mode.el (vhdl-speedbar-insert-hierarchy): Check the input arguments, not the dynamically bound `end-arglist' (bug#57327). --- lisp/progmodes/vhdl-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 39c5eb453b1..18219db740b 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -14958,8 +14958,8 @@ otherwise use cached data." (defun vhdl-speedbar-insert-hierarchy ( ent-alist-arg conf-alist-arg package-alist ent-inst-list depth) - "Insert hierarchy of ENT-ALIST, CONF-ALIST, and PACKAGE-ALIST." - (if (not (or ent-alist conf-alist package-alist)) + "Insert hierarchy of ENT-ALIST-ARG, CONF-ALIST-ARG, and PACKAGE-ALIST." + (if (not (or ent-alist-arg conf-alist-arg package-alist)) (vhdl-speedbar-make-title-line "No VHDL design units!" depth) (let ((ent-alist ent-alist-arg) (conf-alist conf-alist-arg) -- 2.39.5