Commit c441f564 authored by Michal Nazarewicz's avatar Michal Nazarewicz
Browse files

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.
parent edd5dd80
...@@ -399,7 +399,7 @@ differences in behavior.") ...@@ -399,7 +399,7 @@ differences in behavior.")
;; - if no "REG_BASIC" is found, with have an extended regex ;; - if no "REG_BASIC" is found, with have an extended regex
;; - These set a flag: ;; - These set a flag:
;; - REG_ICASE ;; - REG_ICASE
;; - REG_NEWLINE ;; - REG_NEWLINE (ignored by this function)
;; - REG_NOTBOL ;; - REG_NOTBOL
;; - REG_NOTEOL ;; - REG_NOTEOL
;; ;;
...@@ -415,13 +415,12 @@ differences in behavior.") ...@@ -415,13 +415,12 @@ differences in behavior.")
;; - end is the 0-based index of the first character past the group ;; - end is the 0-based index of the first character past the group
(defun regex-tests-BOOST () (defun regex-tests-BOOST ()
(let (failures (let (failures
basic icase newline notbol noteol) basic icase notbol noteol)
(regex-tests-generic-line (regex-tests-generic-line
?; "BOOST.tests" regex-tests-BOOST-whitelist ?; "BOOST.tests" regex-tests-BOOST-whitelist
(if (save-excursion (re-search-forward "^-" nil t)) (if (save-excursion (re-search-forward "^-" nil t))
(setq basic (save-excursion (re-search-forward "REG_BASIC" nil t)) (setq basic (save-excursion (re-search-forward "REG_BASIC" nil t))
icase (save-excursion (re-search-forward "REG_ICASE" 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)) notbol (save-excursion (re-search-forward "REG_NOTBOL" nil t))
noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t))) noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t)))
......
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