From d0cf337039220fbdf1bbef1dcf0ba73f602975e5 Mon Sep 17 00:00:00 2001 From: Shane Mulligan Date: Thu, 15 Apr 2021 09:36:37 +1200 Subject: [PATCH] Thu 15 Apr 2021 09:36:37 --- pen-core.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pen-core.el b/pen-core.el index c35dc7d09..a715bc019 100644 --- a/pen-core.el +++ b/pen-core.el @@ -7,8 +7,8 @@ (str (buffer-substring (point) (max 1 (- (point) 1000))))) (defmacro ntimes (n &rest body) - `(dotimes (n ,n) - ,@body)) + (flatten-once + (cl-loop for i from 1 to n collect body))) (defun pen-surrounding-text (&optional window-line-size) (if (not window-line-size) @@ -16,5 +16,6 @@ (str (buffer-substring (- (point) (save-excursion (dotimes) 10)) (max 1 (- (point) 1000))))) +(ntimes 5 (message "hi")) (provide 'pen-core) \ No newline at end of file