[elpa] externals/company 35408c0ac3 2/2: Merge pull request #1343 from dr-scsi/silence

[ELPA Syncer]

branch: externals/company
commit 35408c0ac3a730908fbce0810f8d159eb353c1d5
Merge: a96295c055 5d3fa6de7c
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@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.