aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-07-31 11:28:04 +0200
committerLars Ingebrigtsen2022-07-31 11:28:04 +0200
commite8d198a00a87df7b047cf8eeebad197584d35717 (patch)
tree81f37621d7e20490a9de8579c0a860f8439b342f
parentf8278a923fd789b8dd0d33584e840e03e4f21c2a (diff)
downloademacs-e8d198a00a87df7b047cf8eeebad197584d35717.tar.gz
emacs-e8d198a00a87df7b047cf8eeebad197584d35717.zip
Fix rx.el byte-compile warning in loaddefs.el
* lisp/emacs-lisp/rx.el (rx--to-expr, rx--pcase-transform): Autoload to avoid warning when byte-compiling loaddefs.el.
-rw-r--r--lisp/emacs-lisp/rx.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index 18eb168a70a..a2cf23f2711 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -1150,6 +1150,8 @@ For extending the `rx' notation in FORM, use `rx-define' or `rx-let-eval'."
1150 (rx--atomic-regexp item)))) 1150 (rx--atomic-regexp item))))
1151 (apply #'concat exprs))) 1151 (apply #'concat exprs)))
1152 1152
1153;; Autoloaded because it's referred to by form in loaddefs.el.
1154;;;###autoload
1153(defun rx--to-expr (form) 1155(defun rx--to-expr (form)
1154 "Translate the rx-expression FORM to a Lisp expression yielding a regexp." 1156 "Translate the rx-expression FORM to a Lisp expression yielding a regexp."
1155 (let* ((rx--delayed-evaluation t) 1157 (let* ((rx--delayed-evaluation t)
@@ -1405,6 +1407,8 @@ For more details, see Info node `(elisp) Extending Rx'.
1405;; becomes a problem, we can handle those forms in the ordinary parser, 1407;; becomes a problem, we can handle those forms in the ordinary parser,
1406;; using a dynamic variable for activating the augmented forms. 1408;; using a dynamic variable for activating the augmented forms.
1407 1409
1410;; Autoloaded because it's referred to by form in loaddefs.el.
1411;;;###autoload
1408(defun rx--pcase-transform (rx) 1412(defun rx--pcase-transform (rx)
1409 "Transform RX, an rx-expression augmented with `let' and named `backref', 1413 "Transform RX, an rx-expression augmented with `let' and named `backref',
1410into a plain rx-expression, collecting names into `rx--pcase-vars'." 1414into a plain rx-expression, collecting names into `rx--pcase-vars'."