[nongnu] elpa/lorem-ipsum da75c155da 26/30: Merge pull request #5 from nja/master

[ELPA Syncer]

branch: elpa/lorem-ipsum
commit da75c155da327c7a7aedb80f5cfe409984787049
Merge: 4b39f6fed4 7268e111f9
Author: Joe Schafer <joe.schafer@delta46.us>
Commit: GitHub <noreply@github.com>

    Merge pull request #5 from nja/master
    
    Insert list beginning
---
 lorem-ipsum.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lorem-ipsum.el b/lorem-ipsum.el
index 50eeb3a73a..d8a347a30c 100644
--- a/lorem-ipsum.el
+++ b/lorem-ipsum.el
@@ -197,13 +197,13 @@ If NUM is non-nil, insert NUM sentences."
 If NUM is non-nil, insert NUM list items."
   (interactive "p")
   (if (not num)(setq num 1))
-  (if (> num 0)
-      (progn
-       (let ((para (nth (random (length lorem-ipsum-text)) lorem-ipsum-text)))
-         (insert (concat lorem-ipsum-list-bullet
-                         (nth (random (length para)) para)
-                         lorem-ipsum-list-item-end)))
-       (lorem-ipsum-insert-list (- num 1)))
+  (when (> num 0)
+    (insert lorem-ipsum-list-beginning)
+    (dotimes (i num)
+      (let ((para (nth (random (length lorem-ipsum-text)) lorem-ipsum-text)))
+        (insert (concat lorem-ipsum-list-bullet
+                        (nth (random (length para)) para)
+                        lorem-ipsum-list-item-end))))
     (insert lorem-ipsum-list-end)))
 
 ;;;###autoload