branch: elpa/adoc-mode
commit 982bab2c42d5ca5eed09563269590678506149ed
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Remove unused adoc-repeat-string function
This function was never called from production code (only tests).
---
adoc-mode.el | 7 -------
test/adoc-mode-test.el | 5 -----
2 files changed, 12 deletions(-)
diff --git a/adoc-mode.el b/adoc-mode.el
index f866043849..f6952e9636 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -3218,13 +3218,6 @@ If FLUSH is non-nil also flush the cache for this image."
(indent-to (- (* tab-width indent-level) (length str)))
(insert str))
-(defun adoc-repeat-string (str n)
- "Returns str n times concatenated"
- (let ((retval ""))
- (dotimes (_i n)
- (setq retval (concat retval str)))
- retval))
-
(defun adoc-tempo-handler (element)
"Tempo user element handler, see `tempo-user-elements'."
(let ((on-region (adoc-tempo-on-region)))
diff --git a/test/adoc-mode-test.el b/test/adoc-mode-test.el
index 69c789acf1..4ba393ab91 100644
--- a/test/adoc-mode-test.el
+++ b/test/adoc-mode-test.el
@@ -1065,11 +1065,6 @@ Don't use it for anything real.")
(should (equal (adoc-make-two-line-title-underline 2)
"~~~~")))
-(ert-deftest adoctest-test-repeat-string ()
- (should (equal (adoc-repeat-string "lorem" 0) ""))
- (should (equal (adoc-repeat-string "lorem" 1) "lorem"))
- (should (equal (adoc-repeat-string "lorem" 2) "loremlorem")))
-
(ert-deftest adoctest-test-indent-by-example ()
(let ((tab-width 2)
(indent-tabs-mode nil))
