mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Remove a nil cl-case case

Browse Source 
* lisp/emacs-lisp/testcover.el (testcover-coverage-combine):
Remove the nil case, which will never match (bug#51368).
This commit is contained in:
Lars Ingebrigtsen 2022-09-13 18:24:14 +02:00
parent ef0c2e9940
commit 6e6a3efa2e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/testcover.el
View File

@ -637,8 +637,7 @@ argument is maybe, return maybe. Return 1value only if both arguments
are 1value."
(cl-case val
(testcover-1value result)
(maybe (and result 'maybe))
(nil nil)))
(maybe (and result 'maybe))))
(defun testcover-analyze-coverage-compose (forms func)
"Analyze a list of FORMS for code coverage using FUNC.