Skip to content

Commit 428050e

Browse files
author
arne
committed
fix company-capf error when point is on (
1 parent 5ada070 commit 428050e

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

el/sclang-language.el

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -457,9 +457,10 @@ are considered."
457457
"Function used for `completion-at-point-functions' in `sclang-mode'."
458458
(let* ((end (point))
459459
(beg (save-excursion
460-
(backward-sexp 1)
461-
(skip-syntax-forward "'")
462-
(point)))
460+
(or (ignore-errors (backward-sexp 1)
461+
(skip-syntax-forward "'")
462+
(point))
463+
(point))))
463464
(pattern (buffer-substring-no-properties beg end))
464465
(case-fold-search nil)
465466
(predicate (if (sclang-class-name-p pattern)

0 commit comments

Comments
 (0)