Thu 15 Apr 2021 09:33:24

11111000000 · Apr 14, 2021 · ea3e2f5 · ea3e2f5
1 parent 4fd9215
commit ea3e2f5
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/pen-core.el b/pen-core.el
@@ -6,10 +6,15 @@
 (defun pen-preceding-text ()
   (str (buffer-substring (point) (max 1 (- (point) 1000)))))
 
+(defmacro ntimes (n &rest body)
+  `(dotimes (n ,n)
+     ,@body))
+
 (defun pen-surrounding-text (&optional window-line-size)
   (if (not window-line-size)
       (setq window-line-size 20))
-  (str (buffer-substring (point) (max 1 (- (point) 1000)))))
+  (str (buffer-substring (- (point) (save-excursion
+                                      (dotimes) 10)) (max 1 (- (point) 1000)))))
 
 
 (provide 'pen-core)