From: Michal Nazarewicz <mina86@mina86.com>
Date: Tue, 2 Aug 2016 17:44:51 +0000 (+0200)
Subject: Fix unused lexical variable
X-Git-Tag: emacs-26.0.90~1818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c441f5649871e7ba13bf0d4edb785105ce845efd;p=emacs.git

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 cce0108f24b..898548d7650 100644
--- 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)))