diff options
| author | Michal Nazarewicz | 2016-08-02 19:44:51 +0200 |
|---|---|---|
| committer | Michal Nazarewicz | 2016-08-02 19:53:48 +0200 |
| commit | c441f5649871e7ba13bf0d4edb785105ce845efd (patch) | |
| tree | fad3817e622a2f8fa20d6bb7bb5047aeb2bcd8a9 /test/src | |
| parent | edd5dd80c83a11a6fc79c6e16622dea69ebecee5 (diff) | |
| download | emacs-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.el | 5 |
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 | ||