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

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2026-06-27 11:34:21 +02:00
parent 4be4f859c4
commit 1aaef48596
246 changed files with 7997 additions and 4359 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/magit-section/magit-section-pkg.el
View File

@@ -1,14 +1,14 @@
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "magit-section" "20260330.1102"
(define-package "magit-section" "20260514.937"
"Sections for read-only buffers."
'((emacs "28.1")
(compat "30.1")
(compat "31.0")
(cond-let "0.2")
(llama "1.0")
(seq "2.24"))
:url "https://github.com/magit/magit"
:commit "89a51310bd8f8087c44f7ac5c902cc82dddbbe2a"
:revdesc "89a51310bd8f"
:commit "be5a3b0e9f7a64bcb222ba546a18e6b09922e0a9"
:revdesc "be5a3b0e9f7a"
:keywords '("tools")
:authors '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))
:maintainers '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")))

68
lisp/magit-section/magit-section.el
View File

@@ -8,11 +8,11 @@
;; Homepage: https://github.com/magit/magit
;; Keywords: tools
;; Package-Version: 20260330.1102
;; Package-Revision: 89a51310bd8f
;; Package-Version: 20260514.937
;; Package-Revision: be5a3b0e9f7a
;; Package-Requires: (
;; (emacs "28.1")
;; (compat "30.1")
;; (compat "31.0")
;; (cond-let "0.2")
;; (llama "1.0")
;; (seq "2.24"))
@@ -51,15 +51,10 @@
(require 'llama) ; For (##these ...) see M-x describe-function RET # # RET.
(require 'subr-x)
;; For older Emacs releases we depend on an updated `seq' release from GNU
;; ELPA, for `seq-keep'. Unfortunately something else may require `seq'
;; before `package' had a chance to put this version on the `load-path'.
(when (and (featurep 'seq)
(not (fboundp 'seq-keep)))
(unload-feature 'seq 'force))
(require 'seq)
;; Furthermore, by default `package' just silently refuses to upgrade.
(defconst magit--core-upgrade-instructions "\
(defun magit--display-core-upgrade-instructions (package version)
(display-warning 'magit
(substitute-command-keys
(format "\
Magit requires `%s' >= %s,
but due to bad defaults, Emacs' package manager, refuses to
upgrade this and other built-in packages to higher releases
@@ -87,13 +82,29 @@ reinstalling Magit.
If you don't use the `package' package manager but still get
this warning, then your chosen package manager likely has a
similar defect.")
(unless (fboundp 'seq-keep)
(display-warning 'magit (substitute-command-keys
(format magit--core-upgrade-instructions
'seq "2.24" 'seq 'seq 'seq 'seq))
similar defect."
package version package package package package))
:emergency))
;; For older Emacs releases we depend on an updated `seq' release from GNU
;; ELPA, for `seq-keep'. Unfortunately something else may require `seq'
;; before `package' had a chance to put this version on the `load-path'.
(when (and (featurep 'seq)
(not (fboundp 'seq-keep)))
(unload-feature 'seq 'force))
(require 'seq)
;; Furthermore, by default `package' just silently refuses to upgrade.
(unless (fboundp 'seq-keep)
(magit--display-core-upgrade-instructions 'seq "2.24"))
;; Likewise, we require a recent `transient'.
(when (and (featurep 'transient)
(not (fboundp 'transient--advise-this-command)))
(unload-feature 'transient 'force))
(require 'transient)
(unless (fboundp 'transient--advise-this-command)
(magit--display-core-upgrade-instructions 'transient "0.13"))
(require 'cursor-sensor)
(require 'format-spec)
@@ -116,6 +127,9 @@ similar defect.")
That function in turn is used by all section movement commands.
See also info node `(magit)Section Movement'.")
(defvar magit-mouse-set-point-hook nil
"Hook run by `magit-mouse-set-point-hook'.")
(defvar magit-section-set-visibility-hook
(list #'magit-section-cached-visibility)
"Hook used to set the initial visibility of a section.
@@ -878,10 +892,10 @@ If there is no previous sibling section, then move to the parent."
((magit-section-backward))))
(defun magit-mouse-set-point (event &optional promote-to-region)
"Like `mouse-set-point' but also call `magit-section-movement-hook'."
"Like `mouse-set-point' but also call `magit-mouse-set-point-hook'."
(interactive "e\np")
(mouse-set-point event promote-to-region)
(run-hook-with-args 'magit-section-movement-hook (magit-current-section)))
(run-hook-with-args 'magit-mouse-set-point-hook (magit-current-section)))
(defun magit-section-goto (arg)
"Run `magit-section-movement-hook'.
@@ -1105,7 +1119,7 @@ sections."
(cl-do* ((s section
(oref s parent))
(i (1- (length (magit-section-ident s)))
(cl-decf i)))
(decf i)))
((cond ((< i level) (magit-section-show-children s (- level i 1)) t)
((= i level) (magit-section-hide s) t))
(magit-section-goto s))))))
@@ -2239,8 +2253,8 @@ forms CONDITION can take."
(setq siblings nil)))
(setq sections (nreverse sections))
(and (or (not condition)
(seq-every-p (##magit-section-match condition %)
sections))
(all (##magit-section-match condition %)
sections))
sections))))))))
(defun magit-map-sections (function &optional section)
@@ -2675,11 +2689,15 @@ with the variables' values as arguments, which were recorded by
;; Local Variables:
;; read-symbol-shorthands: (
;; ("and$" . "cond-let--and$")
;; ("and>" . "cond-let--and>")
;; ("and-let" . "cond-let--and-let")
;; ("if-let" . "cond-let--if-let")
;; ("thread$" . "cond-let--thread$")
;; ("when$" . "cond-let--when$")
;; ("and-let*" . "cond-let--and-let*")
;; ("and-let" . "cond-let--and-let")
;; ("if-let*" . "cond-let--if-let*")
;; ("if-let" . "cond-let--if-let")
;; ("when-let*" . "cond-let--when-let*")
;; ("when-let" . "cond-let--when-let")
;; ("while-let*" . "cond-let--while-let*")
;; ("while-let" . "cond-let--while-let")
;; ("match-string" . "match-string")
;; ("match-str" . "match-string-no-properties"))