mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rx): Remove the rx--pcase-expand middle man

Browse source 
* lisp/emacs-lisp/rx.el (rx): Remove the `rx--pcase-expand` middle man,
now that `loaddefs-gen.el` expands the `pcase-defmacro` for us.
This commit is contained in:
Stefan Monnier 2025-10-14 11:58:08 -04:00
parent 171c7fd6df
commit 8c19b71660
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/rx.el
View file

@ -1685,12 +1685,6 @@ following constructs:
REF can be a number, as usual, or a name
introduced by a previous (let REF ...)
construct."
(rx--pcase-expand regexps))
;; Autoloaded because it's referred to by the pcase rx macro above,
;; whose body ends up in loaddefs.el.
;;;###autoload
(defun rx--pcase-expand (regexps)
(let* ((rx--pcase-vars nil)
(regexp (rx--to-expr (rx--pcase-transform (cons 'seq regexps)))))
`(and (pred stringp)
@ -1726,7 +1720,7 @@ following constructs:
(reverse rx--pcase-vars))))))))))
;; Obsolete internal symbol, used in old versions of the `flycheck' package.
(define-obsolete-function-alias 'rx-submatch-n 'rx-to-string "27.1")
(define-obsolete-function-alias 'rx-submatch-n #'rx-to-string "27.1")
(provide 'rx)