procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix unused lexical variable

Browse source 
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.
This commit is contained in:
Michal Nazarewicz 2016-08-02 19:44:51 +02:00
parent edd5dd80c8
commit c441f56498
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/src/regex-tests.el
View file

@ -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)))