branch: externals/topspace commit 8c2b1e4391f7e1683099a4784d4f09114d34d9ca Author: Trevor Pogue <pogu...@mcmaster.ca> Commit: Trevor Pogue <pogu...@mcmaster.ca>
Increase test coverage --- README.md | 2 +- topspace.el | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 9aa088a682..3d3b30d24e 100644 --- a/README.md +++ b/README.md @@ -5,7 +5,7 @@ <p align="center"> <a href="https://github.com/trevorpogue/topspace/actions/workflows/test.yml/"><img src="https://github.com/trevorpogue/topspace/actions/workflows/test.yml/badge.svg" height="20"/></a> - <a href='https://coveralls.io/github/trevorpogue/topspace?branch=main'><img src='https://coveralls.io/repos/github/trevorpogue/topspace/badge.svg?branch=main&' alt='Coverage Status' /></a> + <a href='https://coveralls.io/github/trevorpogue/topspace?branch=main'><img src='https://coveralls.io/repos/github/trevorpogue/topspace/badge.svg?branch=main' alt='Coverage Status' /></a> <a href="http://melpa.org/#/topspace"><img src="http://melpa.org/packages/topspace-badge.svg" height="20"/></a> <a href="http://stable.melpa.org/#/topspace"><img src="http://stable.melpa.org/packages/topspace-badge.svg" height="20"/></a> </p> diff --git a/topspace.el b/topspace.el index fb7995e681..8039fb700c 100644 --- a/topspace.el +++ b/topspace.el @@ -578,9 +578,10 @@ This is done by adding a 'display property to the returned string. The bitmap used is the one that the `empty-line' logical fringe indicator maps to in `fringe-indicator-alist'." (if indicate-empty-lines - (let ((bitmap (catch 'tag (dolist (x fringe-indicator-alist) - (when (eq (car x) 'empty-line) - (throw 'tag (cdr x))))))) + (let ((bitmap + (catch 'tag + (dolist (x fringe-indicator-alist) + (when (eq (car x) 'empty-line) (throw 'tag (cdr x))))))) (propertize " " 'display (list `left-fringe bitmap `fringe))) ""))