mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix (rx-to-string (and (literal STR) (regexp STR)) regression

Browse source 
* lisp/emacs-lisp/rx.el (rx-regexp, rx-literal): Check the cadr of the
form for stringness, not the form itself.
* test/lisp/emacs-lisp/rx-tests.el (rx-to-string-lisp-forms): New test.
This commit is contained in:
Noam Postavsky 2019-06-26 08:47:56 -04:00
parent 260b6c2c93
commit 9233865b70
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/emacs-lisp/rx-tests.el
View file

@ -156,5 +156,9 @@
(rx-tests--match (rx "c" (minimal-match (0+ (regexp ad))) "a") "cdaaada" "cda")
(rx-tests--match (rx "c" (maximal-match (0+ (regexp ad))) "a") "cdaaada" "cdaaada")))
(ert-deftest rx-to-string-lisp-forms ()
(rx-tests--match (rx-to-string '(seq "a" (literal "b") "c")) "abc")
(rx-tests--match (rx-to-string '(seq "a" (regexp "b") "c")) "abc"))
(provide 'rx-tests)
;; rx-tests.el ends here.