ce-command-get-point: show filename too

2023-10-25 20:22:18 -04:00 · 2023-10-25 20:22:18 -04:00 · 6b58fbc523
parent 94b8d0b4b4
commit 6b58fbc523
1 changed files with 1 additions and 1 deletions
--- a/ce.cl
+++ b/ce.cl
@ -152,7 +152,7 @@
  (read-line)
  (if (not (= inpoint outpoint))
   (format t "~a," inpoint))
-  (format t "~a~%" outpoint))
+  (format t "~a ~a~%" outpoint filename))

 (defun ce-add-til-dot (index lines)
  "read input until dot, add to buffer"