branch: externals/company
commit 64e86efc386317bbc2974c15830a164f26284990
Author: Dmitry Gutov <dmi...@gutov.dev>
Commit: Dmitry Gutov <dmi...@gutov.dev>
Adapt company-version to the MELPA change
Fixes #1508
---
company.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/company.el b/company.el
index 2f99d30593..f471fcc6e0 100644
--- a/company.el
+++ b/company.el
@@ -3617,9 +3617,12 @@ If SHOW-VERSION is non-nil, show the version in the echo
area."
(require 'find-func)
(insert-file-contents (find-library-name "company"))
(require 'lisp-mnt)
- (if show-version
- (message "Company version: %s" (lm-version))
- (lm-version))))
+ ;; `lm-package-version' was added in 2025.
+ (let ((version (or (or (lm-header "package-version")
+ (lm-version)))))
+ (if show-version
+ (message "Company version: %s" version)
+ version))))
(defun company-diag ()
"Pop a buffer with information about completions at point."
