emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/topspace 8c2b1e4391 146/181: Increase test coverage


From: ELPA Syncer
Subject: [elpa] externals/topspace 8c2b1e4391 146/181: Increase test coverage
Date: Tue, 23 Aug 2022 12:58:45 -0400 (EDT)

branch: externals/topspace
commit 8c2b1e4391f7e1683099a4784d4f09114d34d9ca
Author: Trevor Pogue <poguete@mcmaster.ca>
Commit: Trevor Pogue <poguete@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)))
     ""))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]