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:
parent
2305377044
commit
f5672b24a8
1 changed files with 1 additions and 1 deletions
|
@ -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,
|
||||
|
|
Loading…
Add table
Reference in a new issue