[nongnu] elpa/lorem-ipsum c317c2f1b7 03/30: remove obsolete function interactive-p

[ELPA Syncer]

branch: elpa/lorem-ipsum
commit c317c2f1b7454f038172f981c414a96a1e3d24d1
Author: Joe Schafer <joe@jschaf.com>
Commit: Joe Schafer <joe@jschaf.com>

    remove obsolete function interactive-p
---
 lorem-ipsum.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lorem-ipsum.el b/lorem-ipsum.el
index 052dd5c28c..0401604c62 100644
--- a/lorem-ipsum.el
+++ b/lorem-ipsum.el
@@ -119,7 +119,7 @@
       (progn
        (insert (concat
                 (mapconcat 'identity
-                           (nth (if (interactive-p) 0 (random (length 
Lorem-ipsum-text)))
+                           (nth (random (length Lorem-ipsum-text))
                                 Lorem-ipsum-text) 
Lorem-ipsum-sentence-separator) Lorem-ipsum-paragraph-separator))
        (Lorem-ipsum-insert-paragraphs (- num 1)))))
 
@@ -129,8 +129,8 @@
   (if (> num 0)
       (progn
        (let ((para
-              (nth (if (interactive-p) 0 (random (length Lorem-ipsum-text))) 
Lorem-ipsum-text)))
-         (insert (concat (nth (if (interactive-p) 0 (random (length para))) 
para) Lorem-ipsum-sentence-separator)))
+              (nth (random (length Lorem-ipsum-text)) Lorem-ipsum-text)))
+         (insert (concat (nth (random (length para)) para) 
Lorem-ipsum-sentence-separator)))
        (Lorem-ipsum-insert-sentences (- num 1)))))
 
 (defun Lorem-ipsum-insert-list (&optional num)
@@ -138,10 +138,9 @@
   (if (not num)(setq num 1))
   (if (> num 0)
       (progn
-       (if (interactive-p) (insert Lorem-ipsum-list-beginning))
-       (let ((para (nth (if (interactive-p) 0 (random (length 
Lorem-ipsum-text))) Lorem-ipsum-text)))
+       (let ((para (nth (random (length Lorem-ipsum-text)) Lorem-ipsum-text)))
          (insert (concat Lorem-ipsum-list-bullet
-                         (nth (if (interactive-p) 0 (random (length para))) 
para)
+                         (nth (random (length para)) para)
                          Lorem-ipsum-list-item-end)))
        (Lorem-ipsum-insert-list (- num 1)))
     (insert Lorem-ipsum-list-end)))