>From 1b5d28b8b2bcbf91ad32991d3602de45ef9bef76 Mon Sep 17 00:00:00 2001 From: Zhu Zihao To: bug-gnu-emacs@gnu.org Date: Sun, 10 Nov 2019 20:02:44 +0800 Subject: 27.0.50; [PATCH] rx.el: Fix misplaced "char" identifiers. --- lisp/emacs-lisp/rx.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index 52a35ffa2a7..c5f341a7b0a 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -153,7 +153,7 @@ rx--translate-symbol (pcase sym ;; Use `list' instead of a quoted list to wrap the strings here, ;; since the return value may be mutated. - ((or 'nonl 'not-newline 'any) (cons (list ".") t)) + ((or 'nonl 'not-newline 'any 'char) (cons (list ".") t)) ((or 'anychar 'anything) (cons (list "[^z-a]") t)) ('unmatchable (rx--empty)) ((or 'bol 'line-start) (cons (list "^") 'lseq)) @@ -857,7 +857,7 @@ rx--translate-form (pcase (car form) ((or 'seq : 'and 'sequence) (rx--translate-seq body)) ((or 'or '|) (rx--translate-or body)) - ((or 'any 'in 'char) (rx--translate-any nil body)) + ((or 'any 'in) (rx--translate-any nil body)) ('not-char (rx--translate-any t body)) ('not (rx--translate-not nil body)) -- 2.24.0