isar-goalhyplit-test: explicit end-marker;

1 files changed, 3 insertions, 4 deletions

diff --git a/isar/isar.el b/isar/isar.el
index 2b9ee8d0..7a1b9a4b 100644
--- a/isar/isar.el
+++ b/isar/isar.el
@@ -637,10 +637,9 @@ Checks the width in the `proof-goals-buffer'"
 (defun isar-goalhyplit-test ()
   "This is a value for pg-topterm-goalhyplit-fn, see proof-config.el for docs."
   ;; We need to find the end of the proof command on the current line.
-  (let ((bol (point)))
-    (end-of-line) ;; could search backwards for regexps here, return nil to fail
-    ;; Indicate that this is a literal command to send back
-    (cons 'lit (buffer-substring bol (point)))))
+  (let ((start (point)))
+    (and (proof-re-search-forward "\375\\|\^AW" nil t)
+      (cons 'lit (buffer-substring start (match-beginning 0))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;