[nongnu] elpa/package-lint c541e67dbb 1/3: Prefer rx for regexp

[ELPA Syncer]

branch: elpa/package-lint
commit c541e67dbb7f93b888edac908e9b25813ee7e6f7
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Prefer rx for regexp
---
 package-lint.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/package-lint.el b/package-lint.el
index c43b451a2a..fc227d7e68 100644
--- a/package-lint.el
+++ b/package-lint.el
@@ -181,8 +181,13 @@ symbol such as `variable-added'.")
         (with-temp-buffer
           (insert-file-contents el-path)
           (goto-char (point-min))
-          ;; TODO convert to rx
-          (while (search-forward-regexp 
"^(compat-\\(defun\\|defmacro\\|\\defvar\\) +\\_<\\(.*?\\)\\_>" nil t)
+          (while (search-forward-regexp (rx line-start
+                                            "(compat-" (group (or "defun" 
"defmacro" "defvar"))
+                                            (+ space)
+                                            symbol-start
+                                            (group (+? any))
+                                            symbol-end)
+                                        nil t)
             (pcase (match-string 1)
               ("defvar" (push (intern (match-string 2)) symbols))
               ((or "defun" "defmacro") (push (intern (match-string 2)) 
functions)))))))