Fix unused lexical variable

This fixes the following warning:

    In toplevel form:
    src/regex-tests.el:416:1:Warning: Unused lexical variable ‘newline’

* test/src/regex-tests.el (regex-tests-BOOST): Remove unused lexical
variable.

diff --git a/test/src/regex-tests.el b/test/src/regex-tests.el
index cce0108f24b43bd73ca2fda1f756d4ce7e437abe..898548d7650bb6c560b8a6a2fa0ddbf79914e694 100644 (file)
--- a/test/src/regex-tests.el
+++ b/test/src/regex-tests.el
@@ -399,7 +399,7 @@ differences in behavior.")
 ;;     - if no "REG_BASIC" is found, with have an extended regex
 ;;     - These set a flag:
 ;;       - REG_ICASE
-;;       - REG_NEWLINE
+;;       - REG_NEWLINE  (ignored by this function)
 ;;       - REG_NOTBOL
 ;;       - REG_NOTEOL
 ;;
@@ -415,13 +415,12 @@ differences in behavior.")
 ;;   - end   is the 0-based index of the first character past the group
 (defun regex-tests-BOOST ()
   (let (failures
-        basic icase newline notbol noteol)
+        basic icase notbol noteol)
     (regex-tests-generic-line
      ?; "BOOST.tests" regex-tests-BOOST-whitelist
      (if (save-excursion (re-search-forward "^-" nil t))
          (setq basic   (save-excursion (re-search-forward "REG_BASIC" nil t))
                icase   (save-excursion (re-search-forward "REG_ICASE" nil t))
-               newline (save-excursion (re-search-forward "REG_NEWLINE" nil t))
                notbol  (save-excursion (re-search-forward "REG_NOTBOL" nil t))
                noteol  (save-excursion (re-search-forward "REG_NOTEOL" nil t)))