From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 10 Feb 2025 20:35:20 +0000 (-0500)
Subject: lisp/help.el (help-function-arglist): Fix out-of-bounds access (bug#76179)
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~50
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=411db5543274275896ff4bf93096e9fd5574d06e;p=emacs.git

lisp/help.el (help-function-arglist): Fix out-of-bounds access (bug#76179)
---

diff --git a/lisp/help.el b/lisp/help.el
index 5d4c3e61599..1d87c2209c8 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -2381,7 +2381,7 @@ the same names as used in the original source code, when possible."
             (dolist (arg arglist)
               (unless (and (symbolp arg)
                            (let ((name (symbol-name arg)))
-                             (if (eq (aref name 0) ?&)
+                             (if (and (> (length name) 0) (eq (aref name 0) ?&))
                                  (memq arg '(&rest &optional))
                                (not (string-search "." name)))))
                 (setq valid nil)))