daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/company/company-cmake.el
View File

@@ -3,7 +3,6 @@
;; Copyright (C) 2013-2015, 2017-2018, 2020, 2023 Free Software Foundation, Inc.
;; Author: Chen Bin <chenbin DOT sh AT gmail>
;; Version: 0.2
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

5
lisp/company/company-keywords.el
View File

@@ -377,6 +377,11 @@
"new" "null" "object" "override" "package" "private" "protected"
"return" "sealed" "super" "this" "throw" "trait" "true" "try" "type" "val"
"var" "while" "with" "yield")
(sh-mode
"break" "case" "continue" "do" "done" "elif" "else" "esac" "eval"
"exec" "exit" "export" "false" "fi" "for" "function" "if" "in" "readonly"
"return" "set" "shift" "test" "then" "time" "times" "trap" "true" "unset"
"until" "while")
(swift-mode
"Protocol" "Self" "Type" "and" "as" "assignment" "associatedtype"
"associativity" "available" "break" "case" "catch" "class" "column" "continue"

19
lisp/company/company-pkg.el
View File

@@ -1,12 +1,9 @@
(define-package "company" "20250228.258" "Modular text completion framework"
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "company" "20250426.1319"
"Modular text completion framework."
'((emacs "26.1"))
:commit "8d599ebc8a9aca27c0a6157aeb31c5b7f05ed0a3" :maintainers
'(("Dmitry Gutov" . "dmitry@gutov.dev"))
:maintainer
'("Dmitry Gutov" . "dmitry@gutov.dev")
:keywords
'("abbrev" "convenience" "matching")
:url "http://company-mode.github.io/")
;; Local Variables:
;; no-byte-compile: t
;; End:
:url "http://company-mode.github.io/"
:commit "41f07c7d401c1374a76f3004a3448d3d36bdf347"
:revdesc "41f07c7d401c"
:keywords '("abbrev" "convenience" "matching")
:maintainers '(("Dmitry Gutov" . "dmitry@gutov.dev")))

23
lisp/company/company.el
View File

@@ -5,7 +5,8 @@
;; Author: Nikolaj Schumacher
;; Maintainer: Dmitry Gutov <dmitry@gutov.dev>
;; URL: http://company-mode.github.io/
;; Version: 1.0.2
;; Package-Version: 20250426.1319
;; Package-Revision: 41f07c7d401c
;; Keywords: abbrev, convenience, matching
;; Package-Requires: ((emacs "26.1"))
@@ -1408,11 +1409,13 @@ be recomputed when this value changes."
(car backends)))
(entity (company--force-sync backend '(prefix) backend))
(prefix (company--prefix-str entity))
(suffix (company--suffix-str entity)))
(setq args (list arg prefix suffix))
(suffix (company--suffix-str entity))
(company-backend backend))
(or
(apply backend command args)
(cons prefix suffix))))))
(company-call-backend 'adjust-boundaries arg prefix suffix)
(if (company--proper-suffix-p arg prefix suffix)
(cons prefix suffix)
(cons prefix "")))))))
(`expand-common
(apply #'company--multi-expand-common
backends
@@ -2616,12 +2619,12 @@ For more details see `company-insertion-on-trigger' and
(defsubst company-keep (command)
(and (symbolp command) (get command 'company-keep)))
(defun company--proper-suffix-p (candidate)
(defun company--proper-suffix-p (candidate prefix suffix)
(and
(>= (length candidate)
(+ (length company-prefix)
(length company-suffix)))
(string-suffix-p company-suffix candidate
(+ (length prefix)
(length suffix)))
(string-suffix-p suffix candidate
(company-call-backend 'ignore-case))))
(defun company--boundaries (&optional candidate)
@@ -2633,7 +2636,7 @@ For more details see `company-insertion-on-trigger' and
company-prefix company-suffix)
(and
;; Default to replacing the suffix only if the completion ends with it.
(company--proper-suffix-p candidate)
(company--proper-suffix-p candidate company-prefix company-suffix)
(cons company-prefix company-suffix))
(cons company-prefix "")))