branch: externals/company
commit 35408c0ac3a730908fbce0810f8d159eb353c1d5
Merge: a96295c055 5d3fa6de7c
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: GitHub <nore...@github.com>
Merge pull request #1343 from dr-scsi/silence
Pacify Emacs 29 compiler warnings
---
company-oddmuse.el | 4 ++--
company.el | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/company-oddmuse.el b/company-oddmuse.el
index 5b9780bc16..78ede68bd9 100644
--- a/company-oddmuse.el
+++ b/company-oddmuse.el
@@ -1,6 +1,6 @@
;;; company-oddmuse.el --- company-mode completion backend for oddmuse-mode
-;; Copyright (C) 2009-2011, 2013-2016 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2013-2016, 2022 Free Software Foundation, Inc.
;; Author: Nikolaj Schumacher
@@ -48,7 +48,7 @@
(interactive (company-begin-backend 'company-oddmuse))
(prefix (let ((case-fold-search nil))
(and (memq major-mode '(oddmuse-mode yaoddmuse-mode))
- (looking-back company-oddmuse-link-regexp (point-at-bol))
+ (looking-back company-oddmuse-link-regexp
(line-beginning-position))
(or (match-string 1)
(match-string 2)))))
(candidates (all-completions arg (company-oddmuse-get-page-table)))))
diff --git a/company.el b/company.el
index 354a3f3298..bbe383bb53 100644
--- a/company.el
+++ b/company.el
@@ -1075,7 +1075,7 @@ If EXPRESSION is non-nil, return the match string for the
respective
parenthesized expression in REGEXP.
Matching is limited to the current line."
(let ((inhibit-field-text-motion t))
- (company-grab regexp expression (point-at-bol))))
+ (company-grab regexp expression (line-beginning-position))))
(defun company-grab-symbol ()
"If point is at the end of a symbol, return it.
