From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 23 Aug 2024 15:24:19 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/scope.el: Fix typos.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc95685c412a946084bc4936a49446ace40b0c09;p=emacs.git

; * lisp/emacs-lisp/scope.el: Fix typos.
---

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index bccfdbc43fe..d296430c7c6 100644
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -478,7 +478,7 @@ Optional argument LOCAL is a local context to extend."
                         minimal-match maximal-match
                         group submatch
                         group-n submatch-n))
-          (scope-rx (cdr regexp))))))))
+          (scope-rx local (cdr regexp))))))))
 
 (defvar scope-assume-func-p nil)
 
@@ -584,7 +584,7 @@ a (possibly empty) list of safe macros.")
            ((memq bare '(let-when-compile)) ; `let-when-compile' too!
             (scope-let* local (car forms) (cdr forms)))
            ((memq bare '(cl-eval-when)) ; Likewise!
-            (scope-rx local (cdr forms)))
+            (scope-n local (cdr forms)))
            ((scope-safe-macro-p bare)
             (scope-1 local (let ((symbols-with-pos-enabled t))
                              ;; Ignore errors from trying to expand