aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorMichal Nazarewicz2016-08-02 19:44:51 +0200
committerMichal Nazarewicz2016-08-02 19:53:48 +0200
commitc441f5649871e7ba13bf0d4edb785105ce845efd (patch)
treefad3817e622a2f8fa20d6bb7bb5047aeb2bcd8a9 /test/src
parentedd5dd80c83a11a6fc79c6e16622dea69ebecee5 (diff)
downloademacs-c441f5649871e7ba13bf0d4edb785105ce845efd.tar.gz
emacs-c441f5649871e7ba13bf0d4edb785105ce845efd.zip
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.
Diffstat (limited to 'test/src')
-rw-r--r--test/src/regex-tests.el5
1 files changed, 2 insertions, 3 deletions
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.")
399;; - if no "REG_BASIC" is found, with have an extended regex 399;; - if no "REG_BASIC" is found, with have an extended regex
400;; - These set a flag: 400;; - These set a flag:
401;; - REG_ICASE 401;; - REG_ICASE
402;; - REG_NEWLINE 402;; - REG_NEWLINE (ignored by this function)
403;; - REG_NOTBOL 403;; - REG_NOTBOL
404;; - REG_NOTEOL 404;; - REG_NOTEOL
405;; 405;;
@@ -415,13 +415,12 @@ differences in behavior.")
415;; - end is the 0-based index of the first character past the group 415;; - end is the 0-based index of the first character past the group
416(defun regex-tests-BOOST () 416(defun regex-tests-BOOST ()
417 (let (failures 417 (let (failures
418 basic icase newline notbol noteol) 418 basic icase notbol noteol)
419 (regex-tests-generic-line 419 (regex-tests-generic-line
420 ?; "BOOST.tests" regex-tests-BOOST-whitelist 420 ?; "BOOST.tests" regex-tests-BOOST-whitelist
421 (if (save-excursion (re-search-forward "^-" nil t)) 421 (if (save-excursion (re-search-forward "^-" nil t))
422 (setq basic (save-excursion (re-search-forward "REG_BASIC" nil t)) 422 (setq basic (save-excursion (re-search-forward "REG_BASIC" nil t))
423 icase (save-excursion (re-search-forward "REG_ICASE" nil t)) 423 icase (save-excursion (re-search-forward "REG_ICASE" nil t))
424 newline (save-excursion (re-search-forward "REG_NEWLINE" nil t))
425 notbol (save-excursion (re-search-forward "REG_NOTBOL" nil t)) 424 notbol (save-excursion (re-search-forward "REG_NOTBOL" nil t))
426 noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t))) 425 noteol (save-excursion (re-search-forward "REG_NOTEOL" nil t)))
427 426