From f5672b24a8510ee5c62b9e366e4ab6b1fde5ed77 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Wed, 4 Dec 2019 11:37:26 +0100 Subject: [PATCH] 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. --- lisp/emacs-lisp/rx.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index 6fde27831a0..0dc6e198663 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -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, -- 2.39.2