[emacs] Avoid ‘my-tex-looking-back’ trying to look before buffer start

mina86 · Jun 1, 2024 · 7cc959f · 7cc959f
1 parent df6aa22
commit 7cc959f
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/emacs/init.el b/emacs/init.el
@@ -1127,9 +1127,11 @@ instead."
 ;; Helper for tex-space
 (defmacro my-tex-looking-back (regexp len)
   "Return non-nil if REGEXP prefixed with \\b matches LEN chars backward."
-  `(save-excursion
-     (backward-char ,len)
-     (looking-at ,(concat "\\b" regexp))))
+  `(and
+    (>= (- (point) (point-min)) ,len)
+    (save-excursion
+      (backward-char ,len)
+      (looking-at ,(concat "\\b" regexp)))))
 
 ;; insert '~' or '\ ' instead of ' ' in LaTeX when needed
 ;; Also removes '~' when 2nd space added