Commit bf4906d7 authored by Cameron Desautels's avatar Cameron Desautels Committed by Stefan Monnier
Browse files

* lisp/emacs-lisp/regexp-opt.el (regexp-opt-charset): Fix ^.

* test/automated/regexp-tests.el: New file.

Fixes: debbugs:16046
parent c619527c
2013-12-05 Cameron Desautels <camdez@gmail.com> (tiny change)
* emacs-lisp/regexp-opt.el (regexp-opt-charset): Fix ^ (bug#16046).
2013-12-05 Teodor Zlatanov <tzz@lifelogs.com> 2013-12-05 Teodor Zlatanov <tzz@lifelogs.com>
* net/eww.el (eww-current-source): New variable to store page * net/eww.el (eww-current-source): New variable to store page
......
...@@ -285,7 +285,9 @@ CHARS should be a list of characters." ...@@ -285,7 +285,9 @@ CHARS should be a list of characters."
;; ;;
;; Make sure a caret is not first and a dash is first or last. ;; Make sure a caret is not first and a dash is first or last.
(if (and (string-equal charset "") (string-equal bracket "")) (if (and (string-equal charset "") (string-equal bracket ""))
(concat "[" dash caret "]") (if (string-equal dash "")
"\\^" ; [^] is not a valid regexp
(concat "[" dash caret "]"))
(concat "[" bracket charset caret dash "]")))) (concat "[" bracket charset caret dash "]"))))
(provide 'regexp-opt) (provide 'regexp-opt)
......
2013-12-05 Stefan Monnier <monnier@iro.umontreal.ca>
* automated/regexp-tests.el: New file.
2013-11-29 Eli Zaretskii <eliz@gnu.org> 2013-11-29 Eli Zaretskii <eliz@gnu.org>
* automated/reftex-tests.el (reftex-parse-from-file-test): Run * automated/reftex-tests.el (reftex-parse-from-file-test):
temp-dir through file-truename, to make sure the temporary file Run temp-dir through file-truename, to make sure the temporary file
names are comparable as strings. names are comparable as strings.
* automated/decoder-tests.el (ert-test-decoder-prefer-utf-8): * automated/decoder-tests.el (ert-test-decoder-prefer-utf-8):
Force Unix EOLs by using 'utf-8-unix', since the default of Force Unix EOLs by using 'utf-8-unix', since the default of
'utf-8' is system-dependent, while the test expects to see Unix 'utf-8' is system-dependent, while the test expects to see Unix EOLs.
EOLs.
2013-11-28 Glenn Morris <rgm@gnu.org> 2013-11-28 Glenn Morris <rgm@gnu.org>
...@@ -15,8 +18,7 @@ ...@@ -15,8 +18,7 @@
2013-11-28 Eli Zaretskii <eliz@gnu.org> 2013-11-28 Eli Zaretskii <eliz@gnu.org>
* automated/Makefile.in (PATH_SEP): Set this instead of * automated/Makefile.in (PATH_SEP): Set this instead of PATH_SEPARATOR.
PATH_SEPARATOR.
(EMACSOPT): Use $(PATH_SEP). (EMACSOPT): Use $(PATH_SEP).
2013-11-28 Michael Albinus <michael.albinus@gmx.de> 2013-11-28 Michael Albinus <michael.albinus@gmx.de>
...@@ -115,8 +117,7 @@ ...@@ -115,8 +117,7 @@
(tramp-test22-file-times, tramp-test23-visited-file-modtime) (tramp-test22-file-times, tramp-test23-visited-file-modtime)
(tramp-test24-file-name-completion, tramp-test25-load) (tramp-test24-file-name-completion, tramp-test25-load)
(tramp-test26-process-file, tramp-test27-start-file-process): (tramp-test26-process-file, tramp-test27-start-file-process):
(tramp-test28-shell-command): Protect unwindforms with (tramp-test28-shell-command): Protect unwindforms with `ignore-errors'.
`ignore-errors'.
(tramp-test29-utf8): New test. (tramp-test29-utf8): New test.
2013-11-13 Michael Albinus <michael.albinus@gmx.de> 2013-11-13 Michael Albinus <michael.albinus@gmx.de>
......
;;; regexp-tests.el --- Test suite for regular expression handling.
;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords: internal
;; Human-Keywords: internal
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
(ert-deftest regexp-test-regexp-opt ()
"Test the `compilation-error-regexp-alist' regexps.
The test data is in `compile-tests--test-regexps-data'."
(should (string-match (regexp-opt-charset '(?^)) "a^b")))
;;; regexp-tests.el ends here.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment