Don't use the return value of 'push'

Although 'push' returns the modified list, it isn't actually
documented to do so, so don't rely on it.

* lisp/emacs-lisp/rx.el (rx--translate-any): Add progn.
This commit is contained in:
Mattias Engdegård 2019-12-04 11:37:26 +01:00
parent 2305377044
commit f5672b24a8

View file

@ -378,7 +378,7 @@ If NEGATED, negate the sense."
(let ((class (cdr (assq arg rx--char-classes))))
(and class
(or (memq class classes)
(push class classes))))))
(progn (push class classes) t))))))
(t (error "Invalid rx `any' argument: %s" arg))))
(let ((items
;; Translate strings and conses into nonoverlapping intervals,