From 3447e79f2493580864962db69859bda1afd4643b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Wed, 29 Jun 2022 11:01:16 +0200 Subject: [PATCH] * lisp/emacs-lisp/rx.el: Indent some rx constructs correctly. This includes group-n, submatch-n, =, >=, ** and repeat, whose first 1 or 2 arguments are special. --- lisp/emacs-lisp/rx.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index aa2486b47ec..07ede57d393 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -1110,6 +1110,14 @@ can expand to any number of values." (append rx--builtin-forms rx--builtin-symbols) "List of built-in rx names. These cannot be redefined by the user.") +;; Declare Lisp indentation rules for constructs that take 1 or 2 +;; parameters before a body of RX forms. +(dolist (sym '( group-n submatch-n = >=)) + (put sym 'lisp-indent-function 1)) +(dolist (sym '( ** repeat)) + (put sym 'lisp-indent-function 2)) + + (defun rx--translate (item) "Translate the rx-expression ITEM. Return (REGEXP . PRECEDENCE)." (cond -- 2.39.5