diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2019-12-04 11:37:26 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2019-12-04 11:37:26 +0100 |
| commit | f5672b24a8510ee5c62b9e366e4ab6b1fde5ed77 (patch) | |
| tree | a8a057271b3fc2fe3db9b46da14ea6f950b8fa0c /lisp/emacs-lisp/rx.el | |
| parent | 23053770449ba1af24961a11d803ae5e948130b6 (diff) | |
| download | emacs-f5672b24a8510ee5c62b9e366e4ab6b1fde5ed77.tar.gz | |
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.
Diffstat (limited to 'lisp/emacs-lisp/rx.el')
| -rw-r--r-- | lisp/emacs-lisp/rx.el | 2 |
1 files changed, 1 insertions, 1 deletions
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, |