branch: elpa/dslide
commit 39a9045682b8341a4ecfa0ac221357ca63a7d920
Author: Psionik K <73710933+psioni...@users.noreply.github.com>
Commit: Psionik K <73710933+psioni...@users.noreply.github.com>
Simplify blank-lines expression using make-string
---
org-tree-slide.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index d3c3524abd..942ff7387a 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -922,11 +922,8 @@ Some number of BLANK-LINES will be shown below the header."
(defun org-tree-slide--get-blank-lines (lines)
"Return breaks by LINES."
- (let ((breaks ""))
- (while (< 0 lines)
- (setq lines (1- lines))
- (setq breaks (concat breaks "\n")))
- breaks))
+ (propertize (make-string lines 10) ; 10 is \n
+ 'face 'default))
(defun org-tree-slide--show-slide-header (&optional lines)
"Show header. When LINES is nil, the default value is 2."
