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

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index bccfdbc43fe0d07eb64303e176892acc2664ee30..d296430c7c683559265da673c208b77cc0e3cc23 100644 (file)
--- 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