diff options
author | Gonzalo Larumbe <gonzalomlarumbe@gmail.com> | 2022-08-22 01:29:08 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-22 01:29:08 +0200 |
commit | 15d628f1960ba71912cc9c3e8deaded77b953ccb (patch) | |
tree | 508676755dd1f001b3a6e06a5033fbcdc6d35cbc /lisp/progmodes/vhdl-mode.el | |
parent | 643990336f4b5d7db13757d59479f445e59d6b3a (diff) | |
download | emacs-15d628f1960ba71912cc9c3e8deaded77b953ccb.tar.gz |
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).
Diffstat (limited to 'lisp/progmodes/vhdl-mode.el')
-rw-r--r-- | lisp/progmodes/vhdl-mode.el | 4 |
1 files 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) |