Thu 15 Apr 2021 09:53:13

11111000000 · Apr 14, 2021 · b145072 · b145072
1 parent 4d64743
commit b145072
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/pen-core.el b/pen-core.el
@@ -26,11 +26,10 @@
 (defun pen-surrounding-text (&optional window-line-size)
   (if (not window-line-size)
       (setq window-line-size 20))
-  (str (buffer-substring (- (point)
-                            (save-excursion
-                              (ntimes window-line-size (previous-line))
-                              (point))
-                            10) (max 1 (- (point) 1000)))))
+  (let ((window-line-radius (/ window-line-size 2)))
+    (str (buffer-substring (- (point)
+                              (get-point-start-of-nth-previous-line window-line-radius)
+                              10) (max 1 (- (point) 1000))))))
 
 (ntimes 5 (message "hi"))