Subject: bug#38170: 27.0.50; [PATCH] rx.el: Fix misplaced "char" identifiers.

From: Zhu Zihao <[email-masked]>
Date: Mon, 11 Nov 2019 18:24:10 +0800

New rx implementation introduce some bug:

1. (rx char) throw an error "Unknown rx symbol char"
2. (rx (char ?A ?B)) return a regexp match A or B.

This patch aims to fix this.

>From 1b5d28b8b2bcbf91ad32991d3602de45ef9bef76 Mon Sep 17 00:00:00 2001
From: Zhu Zihao <[email-masked]>
To: [email-masked]
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