diff options
| author | Lars Ingebrigtsen | 2022-07-31 11:28:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-07-31 11:28:04 +0200 |
| commit | e8d198a00a87df7b047cf8eeebad197584d35717 (patch) | |
| tree | 81f37621d7e20490a9de8579c0a860f8439b342f | |
| parent | f8278a923fd789b8dd0d33584e840e03e4f21c2a (diff) | |
| download | emacs-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.el | 4 |
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', |
| 1410 | into a plain rx-expression, collecting names into `rx--pcase-vars'." | 1414 | into a plain rx-expression, collecting names into `rx--pcase-vars'." |