fix company-capf error when point is on (

supercollider · Feb 12, 2025 · 428050e · 428050e
1 parent 5ada070
commit 428050e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/el/sclang-language.el b/el/sclang-language.el
@@ -457,9 +457,10 @@ are considered."
   "Function used for `completion-at-point-functions' in `sclang-mode'."
   (let* ((end (point))
 	 (beg (save-excursion
-		(backward-sexp 1)
-		(skip-syntax-forward "'")
-		(point)))
+		(or (ignore-errors (backward-sexp 1)
+		                   (skip-syntax-forward "'")
+		                   (point))
+                    (point))))
 	 (pattern (buffer-substring-no-properties beg end))
 	 (case-fold-search nil)
 	 (predicate (if (sclang-class-name-p pattern)