diff options
| author | Michal Nazarewicz <mina86@mina86.com> | 2016-08-02 19:44:51 +0200 |
|---|---|---|
| committer | Michal Nazarewicz <mina86@mina86.com> | 2016-08-02 19:53:48 +0200 |
| commit | c441f5649871e7ba13bf0d4edb785105ce845efd (patch) | |
| tree | fad3817e622a2f8fa20d6bb7bb5047aeb2bcd8a9 /test | |
| parent | edd5dd80c83a11a6fc79c6e16622dea69ebecee5 (diff) | |
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')
| -rw-r--r-- | test/src/regex-tests.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/src/regex-tests.el b/test/src/regex-tests.el index cce0108f24..898548d765 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))) |