diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/rx.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index 52a35ffa2a7..6fde27831a0 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el | |||
| @@ -376,7 +376,9 @@ If NEGATED, negate the sense." | |||
| 376 | (push (cons arg arg) conses)) | 376 | (push (cons arg arg) conses)) |
| 377 | ((and (symbolp arg) | 377 | ((and (symbolp arg) |
| 378 | (let ((class (cdr (assq arg rx--char-classes)))) | 378 | (let ((class (cdr (assq arg rx--char-classes)))) |
| 379 | (and class (push class classes))))) | 379 | (and class |
| 380 | (or (memq class classes) | ||
| 381 | (push class classes)))))) | ||
| 380 | (t (error "Invalid rx `any' argument: %s" arg)))) | 382 | (t (error "Invalid rx `any' argument: %s" arg)))) |
| 381 | (let ((items | 383 | (let ((items |
| 382 | ;; Translate strings and conses into nonoverlapping intervals, | 384 | ;; Translate strings and conses into nonoverlapping intervals, |