config

commit 162e43ced804a8b84cbb89bee015c19ef2dfebb8
parent 7179e9cbbba2c4bcf373fcafd4ca51623a570139
Author: dwrz <dwrz@dwrz.net>
Date:   Sun, 24 Nov 2024 22:05:29 +0000

Update Emacs packages

Diffstat:
M
emacs/elpa/archives/gnu/archive-contents
 | 
20
++++++++++----------
M
emacs/elpa/archives/gnu/archive-contents.signed
 | 
4
++--
M
emacs/elpa/archives/melpa/archive-contents
 | 
150
++++++++++++++++++++++++++++++++++++++++----------------------------------------
M
emacs/elpa/archives/nongnu/archive-contents
 | 
6
+++---
M
emacs/elpa/archives/nongnu/archive-contents.signed
 | 
4
++--
D
emacs/elpa/cape-20241105.858/cape-pkg.el
 | 
11
-----------
D
emacs/elpa/cape-20241105.858/cape.el
 | 
1303
-------------------------------------------------------------------------------
D
emacs/elpa/cape-20241105.858/cape.elc
 | 
0

R
emacs/elpa/cape-20241105.858/cape-autoloads.el -> emacs/elpa/cape-20241123.925/cape-autoloads.el
 | 
0

R
emacs/elpa/cape-20241105.858/cape-char.el -> emacs/elpa/cape-20241123.925/cape-char.el
 | 
0

R
emacs/elpa/cape-20241105.858/cape-char.elc -> emacs/elpa/cape-20241123.925/cape-char.elc
 | 
0

R
emacs/elpa/cape-20241105.858/cape-keyword.el -> emacs/elpa/cape-20241123.925/cape-keyword.el
 | 
0

R
emacs/elpa/cape-20241105.858/cape-keyword.elc -> emacs/elpa/cape-20241123.925/cape-keyword.elc
 | 
0

A
emacs/elpa/cape-20241123.925/cape-pkg.el
 | 
11
+++++++++++
A
emacs/elpa/cape-20241123.925/cape.el
 | 
1302
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/cape-20241123.925/cape.elc
 | 
0

D
emacs/elpa/gptel-20241115.456/gptel-openai.el
 | 
454
-------------------------------------------------------------------------------
D
emacs/elpa/gptel-20241115.456/gptel-openai.elc
 | 
0

D
emacs/elpa/gptel-20241115.456/gptel-pkg.el
 | 
12
------------
D
emacs/elpa/gptel-20241115.456/gptel-rewrite.el
 | 
433
-------------------------------------------------------------------------------
D
emacs/elpa/gptel-20241115.456/gptel-rewrite.elc
 | 
0

D
emacs/elpa/gptel-20241115.456/gptel-transient.elc
 | 
0

D
emacs/elpa/gptel-20241115.456/gptel.el
 | 
1888
-------------------------------------------------------------------------------
D
emacs/elpa/gptel-20241115.456/gptel.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-anthropic.el -> emacs/elpa/gptel-20241123.2058/gptel-anthropic.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-anthropic.elc -> emacs/elpa/gptel-20241123.2058/gptel-anthropic.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-autoloads.el -> emacs/elpa/gptel-20241123.2058/gptel-autoloads.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-context.el -> emacs/elpa/gptel-20241123.2058/gptel-context.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-context.elc -> emacs/elpa/gptel-20241123.2058/gptel-context.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-curl.el -> emacs/elpa/gptel-20241123.2058/gptel-curl.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-curl.elc -> emacs/elpa/gptel-20241123.2058/gptel-curl.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-gemini.el -> emacs/elpa/gptel-20241123.2058/gptel-gemini.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-gemini.elc -> emacs/elpa/gptel-20241123.2058/gptel-gemini.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-kagi.el -> emacs/elpa/gptel-20241123.2058/gptel-kagi.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-kagi.elc -> emacs/elpa/gptel-20241123.2058/gptel-kagi.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-ollama.el -> emacs/elpa/gptel-20241123.2058/gptel-ollama.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-ollama.elc -> emacs/elpa/gptel-20241123.2058/gptel-ollama.elc
 | 
0

A
emacs/elpa/gptel-20241123.2058/gptel-openai.el
 | 
455
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/gptel-20241123.2058/gptel-openai.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-org.el -> emacs/elpa/gptel-20241123.2058/gptel-org.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-org.elc -> emacs/elpa/gptel-20241123.2058/gptel-org.elc
 | 
0

A
emacs/elpa/gptel-20241123.2058/gptel-pkg.el
 | 
12
++++++++++++
R
emacs/elpa/gptel-20241115.456/gptel-privategpt.el -> emacs/elpa/gptel-20241123.2058/gptel-privategpt.el
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-privategpt.elc -> emacs/elpa/gptel-20241123.2058/gptel-privategpt.elc
 | 
0

A
emacs/elpa/gptel-20241123.2058/gptel-rewrite.el
 | 
450
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/gptel-20241123.2058/gptel-rewrite.elc
 | 
0

R
emacs/elpa/gptel-20241115.456/gptel-transient.el -> emacs/elpa/gptel-20241123.2058/gptel-transient.el
 | 
0

A
emacs/elpa/gptel-20241123.2058/gptel-transient.elc
 | 
0

A
emacs/elpa/gptel-20241123.2058/gptel.el
 | 
1889
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/gptel-20241123.2058/gptel.elc
 | 
0

D
emacs/elpa/lsp-mode-20241119.828/lsp-eslint.el
 | 
454
-------------------------------------------------------------------------------
D
emacs/elpa/lsp-mode-20241119.828/lsp-eslint.elc
 | 
0

D
emacs/elpa/lsp-mode-20241119.828/lsp-mode-pkg.el
 | 
15
---------------
D
emacs/elpa/lsp-mode-20241119.828/lsp-mode.el
 | 
9958
-------------------------------------------------------------------------------
D
emacs/elpa/lsp-mode-20241119.828/lsp-protocol.el
 | 
831
-------------------------------------------------------------------------------
R
emacs/elpa/lsp-mode-20241119.828/lsp-actionscript.el -> emacs/elpa/lsp-mode-20241123.739/lsp-actionscript.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-actionscript.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-actionscript.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ada.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ada.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ada.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ada.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-angular.el -> emacs/elpa/lsp-mode-20241123.739/lsp-angular.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-angular.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-angular.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ansible.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ansible.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ansible.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ansible.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-asm.el -> emacs/elpa/lsp-mode-20241123.739/lsp-asm.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-asm.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-asm.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-astro.el -> emacs/elpa/lsp-mode-20241123.739/lsp-astro.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-astro.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-astro.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-autotools.el -> emacs/elpa/lsp-mode-20241123.739/lsp-autotools.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-autotools.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-autotools.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-awk.el -> emacs/elpa/lsp-mode-20241123.739/lsp-awk.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-awk.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-awk.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-bash.el -> emacs/elpa/lsp-mode-20241123.739/lsp-bash.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-bash.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-bash.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-beancount.el -> emacs/elpa/lsp-mode-20241123.739/lsp-beancount.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-beancount.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-beancount.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-bufls.el -> emacs/elpa/lsp-mode-20241123.739/lsp-bufls.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-bufls.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-bufls.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-camel.el -> emacs/elpa/lsp-mode-20241123.739/lsp-camel.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-camel.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-camel.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-clangd.el -> emacs/elpa/lsp-mode-20241123.739/lsp-clangd.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-clangd.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-clangd.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-clojure.el -> emacs/elpa/lsp-mode-20241123.739/lsp-clojure.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-clojure.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-clojure.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cmake.el -> emacs/elpa/lsp-mode-20241123.739/lsp-cmake.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cmake.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-cmake.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cobol.el -> emacs/elpa/lsp-mode-20241123.739/lsp-cobol.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cobol.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-cobol.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-completion.el -> emacs/elpa/lsp-mode-20241123.739/lsp-completion.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-completion.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-completion.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-credo.el -> emacs/elpa/lsp-mode-20241123.739/lsp-credo.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-credo.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-credo.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-crystal.el -> emacs/elpa/lsp-mode-20241123.739/lsp-crystal.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-crystal.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-crystal.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-csharp.el -> emacs/elpa/lsp-mode-20241123.739/lsp-csharp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-csharp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-csharp.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-css.el -> emacs/elpa/lsp-mode-20241123.739/lsp-css.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-css.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-css.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cucumber.el -> emacs/elpa/lsp-mode-20241123.739/lsp-cucumber.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cucumber.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-cucumber.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cypher.el -> emacs/elpa/lsp-mode-20241123.739/lsp-cypher.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-cypher.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-cypher.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-d.el -> emacs/elpa/lsp-mode-20241123.739/lsp-d.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-d.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-d.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dhall.el -> emacs/elpa/lsp-mode-20241123.739/lsp-dhall.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dhall.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-dhall.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-diagnostics.el -> emacs/elpa/lsp-mode-20241123.739/lsp-diagnostics.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-diagnostics.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-diagnostics.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dired.el -> emacs/elpa/lsp-mode-20241123.739/lsp-dired.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dired.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-dired.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dockerfile.el -> emacs/elpa/lsp-mode-20241123.739/lsp-dockerfile.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dockerfile.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-dockerfile.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dot.el -> emacs/elpa/lsp-mode-20241123.739/lsp-dot.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-dot.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-dot.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-earthly.el -> emacs/elpa/lsp-mode-20241123.739/lsp-earthly.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-earthly.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-earthly.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-elixir.el -> emacs/elpa/lsp-mode-20241123.739/lsp-elixir.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-elixir.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-elixir.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-elm.el -> emacs/elpa/lsp-mode-20241123.739/lsp-elm.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-elm.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-elm.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-emmet.el -> emacs/elpa/lsp-mode-20241123.739/lsp-emmet.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-emmet.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-emmet.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-erlang.el -> emacs/elpa/lsp-mode-20241123.739/lsp-erlang.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-erlang.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-erlang.elc
 | 
0

A
emacs/elpa/lsp-mode-20241123.739/lsp-eslint.el
 | 
463
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/lsp-mode-20241123.739/lsp-eslint.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fennel.el -> emacs/elpa/lsp-mode-20241123.739/lsp-fennel.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fennel.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-fennel.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fortran.el -> emacs/elpa/lsp-mode-20241123.739/lsp-fortran.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fortran.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-fortran.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fsharp.el -> emacs/elpa/lsp-mode-20241123.739/lsp-fsharp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-fsharp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-fsharp.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-futhark.el -> emacs/elpa/lsp-mode-20241123.739/lsp-futhark.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-futhark.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-futhark.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-gdscript.el -> emacs/elpa/lsp-mode-20241123.739/lsp-gdscript.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-gdscript.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-gdscript.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-gleam.el -> emacs/elpa/lsp-mode-20241123.739/lsp-gleam.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-gleam.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-gleam.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-glsl.el -> emacs/elpa/lsp-mode-20241123.739/lsp-glsl.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-glsl.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-glsl.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-go.el -> emacs/elpa/lsp-mode-20241123.739/lsp-go.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-go.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-go.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-golangci-lint.el -> emacs/elpa/lsp-mode-20241123.739/lsp-golangci-lint.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-golangci-lint.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-golangci-lint.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-graphql.el -> emacs/elpa/lsp-mode-20241123.739/lsp-graphql.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-graphql.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-graphql.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-groovy.el -> emacs/elpa/lsp-mode-20241123.739/lsp-groovy.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-groovy.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-groovy.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-hack.el -> emacs/elpa/lsp-mode-20241123.739/lsp-hack.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-hack.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-hack.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-haxe.el -> emacs/elpa/lsp-mode-20241123.739/lsp-haxe.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-haxe.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-haxe.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-headerline.el -> emacs/elpa/lsp-mode-20241123.739/lsp-headerline.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-headerline.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-headerline.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-html.el -> emacs/elpa/lsp-mode-20241123.739/lsp-html.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-html.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-html.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-hy.el -> emacs/elpa/lsp-mode-20241123.739/lsp-hy.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-hy.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-hy.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-icons.el -> emacs/elpa/lsp-mode-20241123.739/lsp-icons.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-icons.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-icons.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ido.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ido.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ido.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ido.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-idris.el -> emacs/elpa/lsp-mode-20241123.739/lsp-idris.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-idris.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-idris.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-iedit.el -> emacs/elpa/lsp-mode-20241123.739/lsp-iedit.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-iedit.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-iedit.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-javascript.el -> emacs/elpa/lsp-mode-20241123.739/lsp-javascript.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-javascript.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-javascript.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-jq.el -> emacs/elpa/lsp-mode-20241123.739/lsp-jq.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-jq.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-jq.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-json.el -> emacs/elpa/lsp-mode-20241123.739/lsp-json.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-json.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-json.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-jsonnet.el -> emacs/elpa/lsp-mode-20241123.739/lsp-jsonnet.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-jsonnet.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-jsonnet.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-kotlin.el -> emacs/elpa/lsp-mode-20241123.739/lsp-kotlin.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-kotlin.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-kotlin.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lens.el -> emacs/elpa/lsp-mode-20241123.739/lsp-lens.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lens.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-lens.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lisp.el -> emacs/elpa/lsp-mode-20241123.739/lsp-lisp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lisp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-lisp.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lua.el -> emacs/elpa/lsp-mode-20241123.739/lsp-lua.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-lua.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-lua.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-magik.el -> emacs/elpa/lsp-mode-20241123.739/lsp-magik.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-magik.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-magik.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-markdown.el -> emacs/elpa/lsp-mode-20241123.739/lsp-markdown.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-markdown.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-markdown.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-marksman.el -> emacs/elpa/lsp-mode-20241123.739/lsp-marksman.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-marksman.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-marksman.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mdx.el -> emacs/elpa/lsp-mode-20241123.739/lsp-mdx.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mdx.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-mdx.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-meson.el -> emacs/elpa/lsp-mode-20241123.739/lsp-meson.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-meson.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-meson.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mint.el -> emacs/elpa/lsp-mode-20241123.739/lsp-mint.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mint.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-mint.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mode-autoloads.el -> emacs/elpa/lsp-mode-20241123.739/lsp-mode-autoloads.el
 | 
0

A
emacs/elpa/lsp-mode-20241123.739/lsp-mode-pkg.el
 | 
15
+++++++++++++++
A
emacs/elpa/lsp-mode-20241123.739/lsp-mode.el
 | 
9958
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
R
emacs/elpa/lsp-mode-20241119.828/lsp-mode.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-mode.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-modeline.el -> emacs/elpa/lsp-mode-20241123.739/lsp-modeline.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-modeline.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-modeline.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mojo.el -> emacs/elpa/lsp-mode-20241123.739/lsp-mojo.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-mojo.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-mojo.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-move.el -> emacs/elpa/lsp-mode-20241123.739/lsp-move.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-move.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-move.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nextflow.el -> emacs/elpa/lsp-mode-20241123.739/lsp-nextflow.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nextflow.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-nextflow.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nginx.el -> emacs/elpa/lsp-mode-20241123.739/lsp-nginx.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nginx.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-nginx.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nim.el -> emacs/elpa/lsp-mode-20241123.739/lsp-nim.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nim.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-nim.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nix.el -> emacs/elpa/lsp-mode-20241123.739/lsp-nix.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nix.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-nix.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nushell.el -> emacs/elpa/lsp-mode-20241123.739/lsp-nushell.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-nushell.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-nushell.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ocaml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ocaml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ocaml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ocaml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-openscad.el -> emacs/elpa/lsp-mode-20241123.739/lsp-openscad.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-openscad.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-openscad.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-perl.el -> emacs/elpa/lsp-mode-20241123.739/lsp-perl.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-perl.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-perl.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-perlnavigator.el -> emacs/elpa/lsp-mode-20241123.739/lsp-perlnavigator.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-perlnavigator.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-perlnavigator.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-php.el -> emacs/elpa/lsp-mode-20241123.739/lsp-php.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-php.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-php.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pls.el -> emacs/elpa/lsp-mode-20241123.739/lsp-pls.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pls.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-pls.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-prolog.el -> emacs/elpa/lsp-mode-20241123.739/lsp-prolog.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-prolog.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-prolog.elc
 | 
0

A
emacs/elpa/lsp-mode-20241123.739/lsp-protocol.el
 | 
830
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
R
emacs/elpa/lsp-mode-20241119.828/lsp-protocol.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-protocol.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-purescript.el -> emacs/elpa/lsp-mode-20241123.739/lsp-purescript.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-purescript.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-purescript.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pwsh.el -> emacs/elpa/lsp-mode-20241123.739/lsp-pwsh.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pwsh.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-pwsh.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pyls.el -> emacs/elpa/lsp-mode-20241123.739/lsp-pyls.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pyls.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-pyls.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pylsp.el -> emacs/elpa/lsp-mode-20241123.739/lsp-pylsp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-pylsp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-pylsp.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-qml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-qml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-qml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-qml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-r.el -> emacs/elpa/lsp-mode-20241123.739/lsp-r.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-r.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-r.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-racket.el -> emacs/elpa/lsp-mode-20241123.739/lsp-racket.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-racket.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-racket.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-remark.el -> emacs/elpa/lsp-mode-20241123.739/lsp-remark.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-remark.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-remark.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rf.el -> emacs/elpa/lsp-mode-20241123.739/lsp-rf.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rf.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-rf.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-roslyn.el -> emacs/elpa/lsp-mode-20241123.739/lsp-roslyn.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-roslyn.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-roslyn.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rpm-spec.el -> emacs/elpa/lsp-mode-20241123.739/lsp-rpm-spec.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rpm-spec.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-rpm-spec.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rubocop.el -> emacs/elpa/lsp-mode-20241123.739/lsp-rubocop.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rubocop.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-rubocop.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruby-lsp.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ruby-lsp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruby-lsp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ruby-lsp.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruby-syntax-tree.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ruby-syntax-tree.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruby-syntax-tree.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ruby-syntax-tree.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruff.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ruff.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ruff.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ruff.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rust.el -> emacs/elpa/lsp-mode-20241123.739/lsp-rust.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-rust.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-rust.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-semantic-tokens.el -> emacs/elpa/lsp-mode-20241123.739/lsp-semantic-tokens.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-semantic-tokens.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-semantic-tokens.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-semgrep.el -> emacs/elpa/lsp-mode-20241123.739/lsp-semgrep.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-semgrep.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-semgrep.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-sml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-sml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-solargraph.el -> emacs/elpa/lsp-mode-20241123.739/lsp-solargraph.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-solargraph.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-solargraph.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-solidity.el -> emacs/elpa/lsp-mode-20241123.739/lsp-solidity.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-solidity.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-solidity.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sorbet.el -> emacs/elpa/lsp-mode-20241123.739/lsp-sorbet.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sorbet.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-sorbet.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sql.el -> emacs/elpa/lsp-mode-20241123.739/lsp-sql.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sql.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-sql.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sqls.el -> emacs/elpa/lsp-mode-20241123.739/lsp-sqls.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-sqls.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-sqls.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-steep.el -> emacs/elpa/lsp-mode-20241123.739/lsp-steep.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-steep.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-steep.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-svelte.el -> emacs/elpa/lsp-mode-20241123.739/lsp-svelte.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-svelte.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-svelte.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-terraform.el -> emacs/elpa/lsp-mode-20241123.739/lsp-terraform.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-terraform.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-terraform.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-tex.el -> emacs/elpa/lsp-mode-20241123.739/lsp-tex.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-tex.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-tex.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-tilt.el -> emacs/elpa/lsp-mode-20241123.739/lsp-tilt.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-tilt.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-tilt.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-toml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-toml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-toml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-toml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-trunk.el -> emacs/elpa/lsp-mode-20241123.739/lsp-trunk.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-trunk.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-trunk.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ttcn3.el -> emacs/elpa/lsp-mode-20241123.739/lsp-ttcn3.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-ttcn3.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-ttcn3.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-typeprof.el -> emacs/elpa/lsp-mode-20241123.739/lsp-typeprof.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-typeprof.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-typeprof.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-typespec.el -> emacs/elpa/lsp-mode-20241123.739/lsp-typespec.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-typespec.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-typespec.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-v.el -> emacs/elpa/lsp-mode-20241123.739/lsp-v.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-v.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-v.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vala.el -> emacs/elpa/lsp-mode-20241123.739/lsp-vala.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vala.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-vala.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-verilog.el -> emacs/elpa/lsp-mode-20241123.739/lsp-verilog.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-verilog.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-verilog.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vetur.el -> emacs/elpa/lsp-mode-20241123.739/lsp-vetur.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vetur.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-vetur.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vhdl.el -> emacs/elpa/lsp-mode-20241123.739/lsp-vhdl.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vhdl.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-vhdl.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vimscript.el -> emacs/elpa/lsp-mode-20241123.739/lsp-vimscript.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-vimscript.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-vimscript.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-volar.el -> emacs/elpa/lsp-mode-20241123.739/lsp-volar.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-volar.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-volar.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-wgsl.el -> emacs/elpa/lsp-mode-20241123.739/lsp-wgsl.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-wgsl.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-wgsl.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-xml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-xml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-xml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-xml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-yaml.el -> emacs/elpa/lsp-mode-20241123.739/lsp-yaml.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-yaml.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-yaml.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-yang.el -> emacs/elpa/lsp-mode-20241123.739/lsp-yang.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-yang.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-yang.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-zig.el -> emacs/elpa/lsp-mode-20241123.739/lsp-zig.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp-zig.elc -> emacs/elpa/lsp-mode-20241123.739/lsp-zig.elc
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp.el -> emacs/elpa/lsp-mode-20241123.739/lsp.el
 | 
0

R
emacs/elpa/lsp-mode-20241119.828/lsp.elc -> emacs/elpa/lsp-mode-20241123.739/lsp.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/git-commit.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-base.el
 | 
1277
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-base.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-diff.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-git.el
 | 
2903
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-git.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-log.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-mode.el
 | 
1479
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-mode.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-pkg.el
 | 
18
------------------
D
emacs/elpa/magit-20241116.1557/magit-process.el
 | 
1292
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-process.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-remote.el
 | 
398
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-remote.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-repos.el
 | 
546
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-repos.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-status.el
 | 
802
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-status.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-submodule.el
 | 
724
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-submodule.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit-tag.el
 | 
248
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit-tag.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit.el
 | 
789
-------------------------------------------------------------------------------
D
emacs/elpa/magit-20241116.1557/magit.elc
 | 
0

D
emacs/elpa/magit-20241116.1557/magit.info
 | 
11592
-------------------------------------------------------------------------------
R
emacs/elpa/magit-20241116.1557/AUTHORS.md -> emacs/elpa/magit-20241124.1509/AUTHORS.md
 | 
0

R
emacs/elpa/magit-20241116.1557/LICENSE -> emacs/elpa/magit-20241124.1509/LICENSE
 | 
0

R
emacs/elpa/magit-20241116.1557/dir -> emacs/elpa/magit-20241124.1509/dir
 | 
0

R
emacs/elpa/magit-20241116.1557/git-commit.el -> emacs/elpa/magit-20241124.1509/git-commit.el
 | 
0

A
emacs/elpa/magit-20241124.1509/git-commit.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/git-rebase.el -> emacs/elpa/magit-20241124.1509/git-rebase.el
 | 
0

R
emacs/elpa/magit-20241116.1557/git-rebase.elc -> emacs/elpa/magit-20241124.1509/git-rebase.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-apply.el -> emacs/elpa/magit-20241124.1509/magit-apply.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-apply.elc -> emacs/elpa/magit-20241124.1509/magit-apply.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-autoloads.el -> emacs/elpa/magit-20241124.1509/magit-autoloads.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-autorevert.el -> emacs/elpa/magit-20241124.1509/magit-autorevert.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-autorevert.elc -> emacs/elpa/magit-20241124.1509/magit-autorevert.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-base.el
 | 
1277
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-base.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bisect.el -> emacs/elpa/magit-20241124.1509/magit-bisect.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bisect.elc -> emacs/elpa/magit-20241124.1509/magit-bisect.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-blame.el -> emacs/elpa/magit-20241124.1509/magit-blame.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-blame.elc -> emacs/elpa/magit-20241124.1509/magit-blame.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bookmark.el -> emacs/elpa/magit-20241124.1509/magit-bookmark.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bookmark.elc -> emacs/elpa/magit-20241124.1509/magit-bookmark.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-branch.el -> emacs/elpa/magit-20241124.1509/magit-branch.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-branch.elc -> emacs/elpa/magit-20241124.1509/magit-branch.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bundle.el -> emacs/elpa/magit-20241124.1509/magit-bundle.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-bundle.elc -> emacs/elpa/magit-20241124.1509/magit-bundle.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-clone.el -> emacs/elpa/magit-20241124.1509/magit-clone.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-clone.elc -> emacs/elpa/magit-20241124.1509/magit-clone.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-commit.el -> emacs/elpa/magit-20241124.1509/magit-commit.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-commit.elc -> emacs/elpa/magit-20241124.1509/magit-commit.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-core.el -> emacs/elpa/magit-20241124.1509/magit-core.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-core.elc -> emacs/elpa/magit-20241124.1509/magit-core.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-diff.el -> emacs/elpa/magit-20241124.1509/magit-diff.el
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-diff.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-ediff.el -> emacs/elpa/magit-20241124.1509/magit-ediff.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-ediff.elc -> emacs/elpa/magit-20241124.1509/magit-ediff.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-extras.el -> emacs/elpa/magit-20241124.1509/magit-extras.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-extras.elc -> emacs/elpa/magit-20241124.1509/magit-extras.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-fetch.el -> emacs/elpa/magit-20241124.1509/magit-fetch.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-fetch.elc -> emacs/elpa/magit-20241124.1509/magit-fetch.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-files.el -> emacs/elpa/magit-20241124.1509/magit-files.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-files.elc -> emacs/elpa/magit-20241124.1509/magit-files.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-git.el
 | 
2901
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-git.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-gitignore.el -> emacs/elpa/magit-20241124.1509/magit-gitignore.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-gitignore.elc -> emacs/elpa/magit-20241124.1509/magit-gitignore.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-log.el -> emacs/elpa/magit-20241124.1509/magit-log.el
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-log.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-margin.el -> emacs/elpa/magit-20241124.1509/magit-margin.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-margin.elc -> emacs/elpa/magit-20241124.1509/magit-margin.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-merge.el -> emacs/elpa/magit-20241124.1509/magit-merge.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-merge.elc -> emacs/elpa/magit-20241124.1509/magit-merge.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-mode.el
 | 
1479
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-mode.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-notes.el -> emacs/elpa/magit-20241124.1509/magit-notes.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-notes.elc -> emacs/elpa/magit-20241124.1509/magit-notes.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-patch.el -> emacs/elpa/magit-20241124.1509/magit-patch.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-patch.elc -> emacs/elpa/magit-20241124.1509/magit-patch.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-pkg.el
 | 
18
++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-process.el
 | 
1289
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-process.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-pull.el -> emacs/elpa/magit-20241124.1509/magit-pull.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-pull.elc -> emacs/elpa/magit-20241124.1509/magit-pull.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-push.el -> emacs/elpa/magit-20241124.1509/magit-push.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-push.elc -> emacs/elpa/magit-20241124.1509/magit-push.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-reflog.el -> emacs/elpa/magit-20241124.1509/magit-reflog.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-reflog.elc -> emacs/elpa/magit-20241124.1509/magit-reflog.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-refs.el -> emacs/elpa/magit-20241124.1509/magit-refs.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-refs.elc -> emacs/elpa/magit-20241124.1509/magit-refs.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-remote.el
 | 
398
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-remote.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-repos.el
 | 
546
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-repos.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-reset.el -> emacs/elpa/magit-20241124.1509/magit-reset.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-reset.elc -> emacs/elpa/magit-20241124.1509/magit-reset.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-sequence.el -> emacs/elpa/magit-20241124.1509/magit-sequence.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-sequence.elc -> emacs/elpa/magit-20241124.1509/magit-sequence.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-sparse-checkout.el -> emacs/elpa/magit-20241124.1509/magit-sparse-checkout.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-sparse-checkout.elc -> emacs/elpa/magit-20241124.1509/magit-sparse-checkout.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-stash.el -> emacs/elpa/magit-20241124.1509/magit-stash.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-stash.elc -> emacs/elpa/magit-20241124.1509/magit-stash.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-status.el
 | 
802
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-status.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-submodule.el
 | 
726
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-submodule.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-subtree.el -> emacs/elpa/magit-20241124.1509/magit-subtree.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-subtree.elc -> emacs/elpa/magit-20241124.1509/magit-subtree.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit-tag.el
 | 
248
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit-tag.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-transient.el -> emacs/elpa/magit-20241124.1509/magit-transient.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-transient.elc -> emacs/elpa/magit-20241124.1509/magit-transient.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-wip.el -> emacs/elpa/magit-20241124.1509/magit-wip.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-wip.elc -> emacs/elpa/magit-20241124.1509/magit-wip.elc
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-worktree.el -> emacs/elpa/magit-20241124.1509/magit-worktree.el
 | 
0

R
emacs/elpa/magit-20241116.1557/magit-worktree.elc -> emacs/elpa/magit-20241124.1509/magit-worktree.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit.el
 | 
789
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-20241124.1509/magit.elc
 | 
0

A
emacs/elpa/magit-20241124.1509/magit.info
 | 
11596
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
D
emacs/elpa/magit-section-20241102.1300/magit-section-pkg.el
 | 
13
-------------
D
emacs/elpa/magit-section-20241102.1300/magit-section.el
 | 
2514
-------------------------------------------------------------------------------
D
emacs/elpa/magit-section-20241102.1300/magit-section.elc
 | 
0

R
emacs/elpa/magit-section-20241102.1300/dir -> emacs/elpa/magit-section-20241122.1431/dir
 | 
0

R
emacs/elpa/magit-section-20241102.1300/magit-section-autoloads.el -> emacs/elpa/magit-section-20241122.1431/magit-section-autoloads.el
 | 
0

A
emacs/elpa/magit-section-20241122.1431/magit-section-pkg.el
 | 
13
+++++++++++++
A
emacs/elpa/magit-section-20241122.1431/magit-section.el
 | 
2509
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/magit-section-20241122.1431/magit-section.elc
 | 
0

R
emacs/elpa/magit-section-20241102.1300/magit-section.info -> emacs/elpa/magit-section-20241122.1431/magit-section.info
 | 
0

D
emacs/elpa/marginalia-20240926.918/marginalia-pkg.el
 | 
13
-------------
D
emacs/elpa/marginalia-20240926.918/marginalia.el
 | 
1362
-------------------------------------------------------------------------------
D
emacs/elpa/marginalia-20240926.918/marginalia.elc
 | 
0

R
emacs/elpa/marginalia-20240926.918/marginalia-autoloads.el -> emacs/elpa/marginalia-20241124.1138/marginalia-autoloads.el
 | 
0

A
emacs/elpa/marginalia-20241124.1138/marginalia-pkg.el
 | 
13
+++++++++++++
A
emacs/elpa/marginalia-20241124.1138/marginalia.el
 | 
1364
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/marginalia-20241124.1138/marginalia.elc
 | 
0

D
emacs/elpa/osm-20241119.2137/osm-pkg.el
 | 
11
-----------
D
emacs/elpa/osm-20241119.2137/osm.el
 | 
1839
-------------------------------------------------------------------------------
D
emacs/elpa/osm-20241119.2137/osm.elc
 | 
0

R
emacs/elpa/osm-20241119.2137/osm-autoloads.el -> emacs/elpa/osm-20241122.130/osm-autoloads.el
 | 
0

A
emacs/elpa/osm-20241122.130/osm-pkg.el
 | 
11
+++++++++++
A
emacs/elpa/osm-20241122.130/osm.el
 | 
1839
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/osm-20241122.130/osm.elc
 | 
0

D
emacs/elpa/transient-20241115.2034/transient-pkg.el
 | 
12
------------
D
emacs/elpa/transient-20241115.2034/transient.el
 | 
4682
-------------------------------------------------------------------------------
D
emacs/elpa/transient-20241115.2034/transient.elc
 | 
0

D
emacs/elpa/transient-20241115.2034/transient.info
 | 
3383
-------------------------------------------------------------------------------
R
emacs/elpa/transient-20241115.2034/dir -> emacs/elpa/transient-20241123.1834/dir
 | 
0

R
emacs/elpa/transient-20241115.2034/gpl.info -> emacs/elpa/transient-20241123.1834/gpl.info
 | 
0

R
emacs/elpa/transient-20241115.2034/transient-autoloads.el -> emacs/elpa/transient-20241123.1834/transient-autoloads.el
 | 
0

A
emacs/elpa/transient-20241123.1834/transient-pkg.el
 | 
12
++++++++++++
A
emacs/elpa/transient-20241123.1834/transient.el
 | 
4780
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/transient-20241123.1834/transient.elc
 | 
0

A
emacs/elpa/transient-20241123.1834/transient.info
 | 
3383
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeCache.txt
 | 
357
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeCCompiler.cmake
 | 
81
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeDetermineCompilerABI_C.bin
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeSystem.cmake
 | 
15
+++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/CMakeCCompilerId.c
 | 
904
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/a.out
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeConfigureLog.yaml
 | 
260
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeDirectoryInformation.cmake
 | 
16
++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeRuleHashes.txt
 | 
11
+++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile.cmake
 | 
138
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile2
 | 
187
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/TargetDirectories.txt
 | 
5
+++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/cmake.check_cache
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/DependInfo.cmake
 | 
22
++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.json
 | 
44
++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.txt
 | 
13
+++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/build.make
 | 
149
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/cmake_clean.cmake
 | 
16
++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.make
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.ts
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/progress.make
 | 
9
+++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/progress.marks
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/DependInfo.cmake
 | 
22
++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/build.make
 | 
90
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/cmake_clean.cmake
 | 
8
++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.make
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.ts
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/progress.make
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/DependInfo.cmake
 | 
26
++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/build.make
 | 
147
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/cmake_clean.cmake
 | 
16
++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.make
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.ts
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/depend.make
 | 
2
++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o.d
 | 
43
+++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/flags.make
 | 
10
++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.d
 | 
19
+++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.txt
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/progress.make
 | 
5
+++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o.d
 | 
16
++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o.d
 | 
67
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/Makefile
 | 
263
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/cmake_install.cmake
 | 
66
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-done
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt
 | 
15
+++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt
 | 
15
+++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch
 | 
0

A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch-info.txt
 | 
6
++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-update-info.txt
 | 
7
+++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-cfgcmd.txt
 | 
1
+
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake
 | 
87
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake
 | 
317
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-mkdirs.cmake
 | 
27
+++++++++++++++++++++++++++
A
emacs/elpa/vterm-20241118.1627/vterm-module.so
 | 
0

D
emacs/elpa/with-editor-20240831.2230/with-editor-pkg.el
 | 
15
---------------
D
emacs/elpa/with-editor-20240831.2230/with-editor.el
 | 
987
-------------------------------------------------------------------------------
D
emacs/elpa/with-editor-20240831.2230/with-editor.elc
 | 
0

R
emacs/elpa/with-editor-20240831.2230/dir -> emacs/elpa/with-editor-20241123.2137/dir
 | 
0

R
emacs/elpa/with-editor-20240831.2230/with-editor-autoloads.el -> emacs/elpa/with-editor-20241123.2137/with-editor-autoloads.el
 | 
0

A
emacs/elpa/with-editor-20241123.2137/with-editor-pkg.el
 | 
11
+++++++++++
A
emacs/elpa/with-editor-20241123.2137/with-editor.el
 | 
993
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
A
emacs/elpa/with-editor-20241123.2137/with-editor.elc
 | 
0

R
emacs/elpa/with-editor-20240831.2230/with-editor.info -> emacs/elpa/with-editor-20241123.2137/with-editor.info
 | 
0

551 files changed, 55993 insertions(+), 52350 deletions(-)
diff --git a/emacs/elpa/archives/gnu/archive-contents b/emacs/elpa/archives/gnu/archive-contents
@@ -1296,7 +1296,7 @@
 	       ("Markus Triska" . "triska@metalevel.at"))
 	      (:commit . "ea8710335eec483b576c7a800c92b8fd214aa6dd"))])
  (eev .
-      [(20241022)
+      [(20241123)
        ((emacs
 	 (25 1)))
        "Support for e-scripts (eepitch blocks, elisp hyperlinks, etc)" tar
@@ -1305,7 +1305,7 @@
 	(:maintainer "Eduardo Ochs" . "eduardoochs@gmail.com")
 	(:authors
 	 ("Eduardo Ochs" . "eduardoochs@gmail.com"))
-	(:commit . "25c810004c2201960f32a60b362eb6ebe524de9f"))])
+	(:commit . "be6786072fb38edaafea4a0051f5e81e8c5d4c1e"))])
  (ef-themes .
 	    [(1 9 0)
 	     ((emacs
@@ -1377,13 +1377,13 @@
 		     (:url . "https://elpa.gnu.org/packages/electric-spacing.html")
 		     (:commit . "122ac5d08c3d3d91251752136abab9721d90e36c"))])
  (elisa .
-	[(1 1 1)
+	[(1 1 3)
 	 ((emacs
 	   (29 2))
 	  (ellama
 	   (0 11 2))
 	  (llm
-	   (0 9 1))
+	   (0 18 1))
 	  (async
 	   (1 9 8))
 	  (plz
@@ -1394,7 +1394,7 @@
 	  (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com")
 	  (:authors
 	   ("Sergey Kostyaev" . "sskostyaev@gmail.com"))
-	  (:commit . "4a4d1db3594a53fd90fcd453cf642d96f70a70ff"))])
+	  (:commit . "322d7eb839f1e981b8aa09a6ee4a7d6a22173772"))])
  (elisp-benchmarks .
 		   [(1 16)
 		    nil "elisp benchmarks collection" tar
@@ -1405,7 +1405,7 @@
 		     (:url . "https://elpa.gnu.org/packages/elisp-benchmarks.html")
 		     (:commit . "1a3d97954957a95a179806e0d49ca6d178b097af"))])
  (ellama .
-	 [(0 12 5)
+	 [(0 12 6)
 	  ((emacs
 	    (28 1))
 	   (llm
@@ -1413,7 +1413,7 @@
 	   (spinner
 	    (1 7 4))
 	   (transient
-	    (0 7 6))
+	    (0 7))
 	   (compat
 	    (29 1)))
 	  "Tool for interacting with LLMs" tar
@@ -1422,7 +1422,7 @@
 	   (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com")
 	   (:authors
 	    ("Sergey Kostyaev" . "sskostyaev@gmail.com"))
-	   (:commit . "e8f64969d66aa71341804e0a4f8d3e7c632bf3b6"))])
+	   (:commit . "c44d58f3f8ed05b67980fdf57279664fc0a22846"))])
  (emacs-gc-stats .
 		 [(1 4 2)
 		  ((emacs
@@ -1489,7 +1489,7 @@
 	   ("Adam Porter" . "adam@alphapapa.net"))
 	  (:commit . "26bf5a4efd08bc724cf29c412c36c2909d72bb13"))])
  (emms .
-       [(20 1)
+       [(20 2)
 	((cl-lib
 	  (0 5))
 	 (nadvice
@@ -1502,7 +1502,7 @@
 	 (:maintainer "Yoni Rabkin" . "yrk@gnu.org")
 	 (:authors
 	  ("Jorgen Schäfer" . "forcer@forcix.cx"))
-	 (:commit . "b5567be2176dcbdf42aa2d0ccad32a44f245dd09"))])
+	 (:commit . "e9b407ddf6362525ccc57423cda80716eec5b7bc"))])
  (engrave-faces .
 		[(0 3 1)
 		 ((emacs
diff --git a/emacs/elpa/archives/gnu/archive-contents.signed b/emacs/elpa/archives/gnu/archive-contents.signed
@@ -1 +1 @@
-Good signature from 645357D2883A0966 GNU ELPA Signing Agent (2023) <elpasign@elpa.gnu.org> (trust undefined) created at 2024-11-20T10:05:03+0000 using EDDSA
-\ No newline at end of file
+Good signature from 645357D2883A0966 GNU ELPA Signing Agent (2023) <elpasign@elpa.gnu.org> (trust undefined) created at 2024-11-24T10:05:02+0000 using EDDSA
+\ No newline at end of file
diff --git a/emacs/elpa/archives/melpa/archive-contents b/emacs/elpa/archives/melpa/archive-contents
@@ -131,7 +131,7 @@
  (angular-mode . [(20151201 2127) nil "Major mode for Angular.js" tar ((:url . "https://github.com/emacsattic/angular-mode") (:commit . "8720cde86af0f1859ccc8580571e8d0ad1c52cff") (:revdesc . "8720cde86af0") (:keywords "languages" "javascript") (:authors ("Rudolf Olah" . "omouse@gmail.com")) (:maintainers ("Rudolf Olah" . "omouse@gmail.com")) (:maintainer "Rudolf Olah" . "omouse@gmail.com"))])
  (angular-snippets . [(20140514 523) ((s (1 4 0)) (dash (1 2 0))) "Yasnippets for AngularJS" tar ((:url . "https://github.com/magnars/angular-snippets.el") (:commit . "af5ae0a4a8603b040446c28afcf6ca01a8b4bd7b") (:revdesc . "af5ae0a4a860") (:keywords "snippets") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainers ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))])
  (anki-connect . [(20191123 1858) ((emacs (24 3))) "AnkiConnect API" tar ((:url . "https://github.com/lujun9972/anki-connect.el") (:commit . "1324f0c248aa2c6e73d6cf93fad6119d699f7dae") (:revdesc . "1324f0c248aa") (:keywords "lisp" "anki") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainers ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))])
- (anki-editor . [(20241019 726) ((emacs (25 1))) "Minor mode for making Anki cards with Org" tar ((:url . "https://github.com/anki-editor/anki-editor") (:commit . "dc0111527b99445689ec043ae9a8a7d8504c4949") (:revdesc . "dc0111527b99"))])
+ (anki-editor . [(20241122 614) ((emacs (25 1))) "Minor mode for making Anki cards with Org" tar ((:url . "https://github.com/anki-editor/anki-editor") (:commit . "32706314adf6d02a407f2b0b411741d9c4722c05") (:revdesc . "32706314adf6"))])
  (anki-editor-view . [(20230807 806) ((emacs (29 1))) "Open anki-editor notes from Anki" tar ((:url . "https://gitlab.com/vherrmann/anki-editor-view") (:commit . "6ad8c6be4f44de0c33eab012e507320b732d4800") (:revdesc . "6ad8c6be4f44") (:authors ("Valentin Herrmann" . "me@valentin-herrmann.de")) (:maintainers ("Valentin Herrmann" . "me@valentin-herrmann.de")) (:maintainer "Valentin Herrmann" . "me@valentin-herrmann.de"))])
  (anki-mode . [(20201223 719) ((emacs (24 4)) (dash (2 12 0)) (markdown-mode (2 2)) (s (1 11 0)) (request (0 3 0))) "A major mode for creating anki cards" tar ((:url . "https://github.com/davidshepherd7/anki-mode") (:commit . "7cde5a68c9d0ef3811b0bd480274ea79909d2ddc") (:revdesc . "7cde5a68c9d0") (:keywords "tools") (:authors ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainers ("David Shepherd" . "davidshepherd7@gmail.com")) (:maintainer "David Shepherd" . "davidshepherd7@gmail.com"))])
  (anki-vocabulary . [(20200103 325) ((emacs (24 4)) (s (1 0)) (youdao-dictionary (0 4)) (anki-connect (1 0)) (s (1 10))) "Help you to create vocabulary cards in Anki" tar ((:url . "https://github.com/lujun9972/anki-vocabulary.el") (:commit . "863fe0219577f996ab126f1b7902db3c2cc59b2b") (:revdesc . "863fe0219577") (:keywords "lisp" "anki" "translator" "chinese") (:authors ("DarkSun" . "lujun9972@gmail.com")) (:maintainers ("DarkSun" . "lujun9972@gmail.com")) (:maintainer "DarkSun" . "lujun9972@gmail.com"))])
@@ -189,7 +189,7 @@
  (astute . [(20241015 444) ((emacs (25 1))) "A minor mode to redisplay `smart' typography" tar ((:url . "https://github.com/rnkn/astute") (:commit . "69d413c952771c0d06cda161fb25fe495fb895b0") (:revdesc . "69d413c95277") (:keywords "faces" "wp") (:authors ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainers ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainer "Paul W. Rankin" . "rnkn@rnkn.xyz"))])
  (astyle . [(20200328 616) ((emacs (24 4)) (reformatter (0 3))) "Astyle formatter functions" tar ((:url . "https://github.com/storvik/emacs-astyle") (:commit . "04ff2941f08c4b731fe6a18ee1697436d1ca1cc0") (:revdesc . "04ff2941f08c") (:keywords "astyle" "c" "c++" "cpp" "reformatter"))])
  (asx . [(20191024 1100) ((emacs (26 1))) "Ask StackExchange/StackOverflow" tar ((:url . "https://github.com/ragone/asx") (:commit . "5ca12cc51bb02b5926adf9a7976ba9ca08a1ea21") (:revdesc . "5ca12cc51bb0") (:keywords "convenience") (:authors ("Alex Ragone" . "ragonedk@gmail.com")) (:maintainers ("Alex Ragone" . "ragonedk@gmail.com")) (:maintainer "Alex Ragone" . "ragonedk@gmail.com"))])
- (async . [(20241005 1824) ((emacs (24 4))) "Asynchronous processing in Emacs" tar ((:url . "https://github.com/jwiegley/emacs-async") (:commit . "af47d6f930f93d4fdc4ca46e19e17547bf486c4c") (:revdesc . "af47d6f930f9") (:keywords "async") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
+ (async . [(20241120 642) ((emacs (24 4))) "Asynchronous processing in Emacs" tar ((:url . "https://github.com/jwiegley/emacs-async") (:commit . "863b3366a0077279646bf9eec1f97dba6c052440") (:revdesc . "863b3366a007") (:keywords "async") (:authors ("John Wiegley" . "jwiegley@gmail.com")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
  (async-await . [(20220827 437) ((emacs (25 1)) (promise (1 1)) (iter2 (0 9 10))) "Async/Await" tar ((:url . "https://github.com/chuntaro/emacs-async-await") (:commit . "e0d15e8057ed7520100bc50c5552278292ebcb07") (:revdesc . "e0d15e8057ed") (:keywords "async" "await" "convenience") (:authors ("chuntaro" . "chuntaro@sakura-games.jp")) (:maintainers ("chuntaro" . "chuntaro@sakura-games.jp")) (:maintainer "chuntaro" . "chuntaro@sakura-games.jp"))])
  (async-backup . [(20230412 1534) ((emacs (24 4))) "Backup on each save without freezing Emacs" tar ((:url . "https://codeberg.org/contrapunctus/async-backup") (:commit . "d07a7bd4a5c3332a8a585680d67925385c595927") (:revdesc . "d07a7bd4a5c3") (:keywords "files") (:authors ("contrapunctus" . "xmpp:contrapunctus@jabjab.de")) (:maintainers ("contrapunctus" . "xmpp:contrapunctus@jabjab.de")) (:maintainer "contrapunctus" . "xmpp:contrapunctus@jabjab.de"))])
  (async-job-queue . [(20230427 2122) ((async (1 4)) (emacs (25 1)) (queue (0 2))) "Dispatch queue of async jobs to a fixed number of slots" tar ((:url . "https://github.com/owinebar/emacs-async-job-queue") (:commit . "eeafcce7f960305666b2a51aec55cc6333f6af1b") (:revdesc . "eeafcce7f960") (:keywords "extensions" "lisp"))])
@@ -389,7 +389,7 @@
  (bookmark-view . [(20240102 334) ((emacs (27 1))) "Bookmark views" tar ((:url . "https://github.com/minad/bookmark-view") (:commit . "2d16b2f88a106e57c58ad2af1f7166a847996512") (:revdesc . "2d16b2f88a10"))])
  (bool-flip . [(20161215 1539) ((emacs (24 3))) "Flip the boolean under the point" tar ((:url . "https://github.com/michaeljb/bool-flip") (:commit . "0f7cc9b387429239fb929896511727d4e49a795b") (:revdesc . "0f7cc9b38742") (:keywords "boolean" "convenience" "usability") (:authors ("Michael Brandt" . "michaelbrandt5@gmail.com")) (:maintainers ("Michael Brandt" . "michaelbrandt5@gmail.com")) (:maintainer "Michael Brandt" . "michaelbrandt5@gmail.com"))])
  (boon . [(20240628 703) ((emacs (26 1)) (dash (2 12 0)) (expand-region (0 10 0)) (multiple-cursors (1 3 0))) "Ergonomic Command Mode for Emacs" tar ((:url . "https://github.com/jyp/boon") (:commit . "19a7f76e75759f5266986b40c470edb1f70c43df") (:revdesc . "19a7f76e7575"))])
- (borg . [(20241102 1638) ((emacs (27 1)) (epkg (4 0 1)) (magit (4 1 0))) "Assimilate Emacs packages as Git submodules" tar ((:url . "https://github.com/emacscollective/borg") (:commit . "d1bee4874b2203ba1a067530f4142e969200f97d") (:revdesc . "d1bee4874b22") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev"))])
+ (borg . [(20241123 2122) ((emacs (27 1)) (epkg (4 0 1)) (magit (4 1 0))) "Assimilate Emacs packages as Git submodules" tar ((:url . "https://github.com/emacscollective/borg") (:commit . "00e0540a95595e02da0947ccee5f1969f2e0c5eb") (:revdesc . "00e0540a9559") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.borg@jonas.bernoulli.dev"))])
  (borland-blue-theme . [(20160117 1321) ((emacs (24 1))) "Blue/yellow theme based on old DOS Borland/Turbo C IDE" tar ((:url . "https://codeberg.org/fourier/borland-blue-theme") (:commit . "db74eefebbc89d3c62575f8f50b319e87b4a3470") (:revdesc . "db74eefebbc8") (:keywords "themes") (:authors ("Alexey Veretennikov" . "alexeydotveretennikovatgmaildotcom")) (:maintainers ("Alexey Veretennikov" . "alexeydotveretennikovatgmaildotcom")) (:maintainer "Alexey Veretennikov" . "alexeydotveretennikovatgmaildotcom"))])
  (boron-theme . [(20170808 1308) ((emacs (24 0))) "An Emacs 24 theme based on Boron (tmTheme)" tar ((:url . "https://github.com/emacsfodder/emacs-boron-theme") (:commit . "87ae1a765e07429fec25d2f29b004f84b52d2e0a") (:revdesc . "87ae1a765e07"))])
  (boxes . [(20241003 847) ((emacs (24 3))) "ASCII boxes unlimited!" tar ((:url . "https://github.com/ascii-boxes/boxes") (:commit . "bae35281d0f814c704ef4a174a5f734541e1f457") (:revdesc . "bae35281d0f8") (:keywords "extensions") (:authors ("Jason L. Shiffer" . "jshiffer@zerotao.com")) (:maintainers ("Jason L. Shiffer" . "jshiffer@zerotao.com")) (:maintainer "Jason L. Shiffer" . "jshiffer@zerotao.com"))])
@@ -474,14 +474,14 @@
  (camcorder . [(20190317 2138) ((emacs (24)) (names (20150000)) (cl-lib (0 5))) "Record screencasts in gif or other formats" tar ((:url . "https://github.com/Malabarba/camcorder.el") (:commit . "b11ca61491a27681bb3131b72b51c105fd996bed") (:revdesc . "b11ca61491a2") (:keywords "multimedia" "screencast") (:authors ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainers ("Artur Malabarba" . "bruce.connor.am@gmail.com")) (:maintainer "Artur Malabarba" . "bruce.connor.am@gmail.com"))])
  (caml . [(20231011 328) ((emacs (24 4))) "Caml mode for GNU Emacs" tar ((:url . "https://github.com/ocaml/caml-mode") (:commit . "47defafa2b08fb680e89bfee9cb9ce82bd9e3bcf") (:revdesc . "47defafa2b08") (:keywords "ocaml") (:authors ("Jacques Garrigue" . "garrigue@kurims.kyoto-u.ac.jp") ("Ian T Zimmerman" . "itz@rahul.net") ("Damien Doligez" . "damien.doligez@inria.fr")) (:maintainers ("Christophe Troestler" . "Christophe.Troestler@umons.ac.be")) (:maintainer "Christophe Troestler" . "Christophe.Troestler@umons.ac.be"))])
  (cangjie . [(20230219 1150) ((emacs (24 4)) (s (1 12 0)) (dash (2 14 1)) (f (0 2 0))) "Retrieve cangjie code for han characters" tar ((:url . "https://github.com/kisaragi-hiu/cangjie.el") (:commit . "d6882e15f47fdde37e9f739dde604d77d25f11db") (:revdesc . "d6882e15f47f") (:keywords "convenience" "writing"))])
- (cape . [(20241105 858) ((emacs (28 1)) (compat (30))) "Completion At Point Extensions" tar ((:url . "https://github.com/minad/cape") (:commit . "74c3501ecd19ec9af0d30c16c10ded47dc995ffa") (:revdesc . "74c3501ecd19") (:keywords "abbrev" "convenience" "matching" "completion" "text") (:authors ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Daniel Mendler" . "mail@daniel-mendler.de"))])
+ (cape . [(20241123 925) ((emacs (28 1)) (compat (30))) "Completion At Point Extensions" tar ((:url . "https://github.com/minad/cape") (:commit . "9a7c44fe8b7ace73fa8ebf6b5805474f0ca07d01") (:revdesc . "9a7c44fe8b7a") (:keywords "abbrev" "convenience" "matching" "completion" "text") (:authors ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Daniel Mendler" . "mail@daniel-mendler.de"))])
  (capnp-mode . [(20210707 2310) nil "Major mode for editing Capn' Proto Files" tar ((:url . "https://github.com/capnproto/capnproto") (:commit . "f7fccad7d737f77896211bec1173117497634143") (:revdesc . "f7fccad7d737") (:authors ("Brian Taylor" . "el.wubo@gmail.com")) (:maintainers ("Brian Taylor" . "el.wubo@gmail.com")) (:maintainer "Brian Taylor" . "el.wubo@gmail.com"))])
  (capture . [(20130828 1644) nil "Screencasting with \"avconv\" or \"ffmpeg\"" tar ((:url . "https://github.com/pashinin/capture.el") (:commit . "9140c207b48b3520a2f06674b3e1bee2fc92b80c") (:revdesc . "9140c207b48b") (:authors ("Sergey Pashinin" . "sergeyatpashinindotcom")) (:maintainers ("Sergey Pashinin" . "sergeyatpashinindotcom")) (:maintainer "Sergey Pashinin" . "sergeyatpashinindotcom"))])
  (carbon-now-sh . [(20220701 332) ((emacs (24 4))) "Https://carbon.now.sh integration" tar ((:url . "https://github.com/veelenga/carbon-now-sh.el") (:commit . "e66f2e43e288f35ad9075f5fc84d59ad348efc88") (:revdesc . "e66f2e43e288") (:keywords "convenience"))])
  (cardano-tx . [(20230606 1150) ((emacs (27 1)) (f (0 20 0)) (yasnippet (0 14 0)) (yaml-mode (0 0 15)) (yaml (0 1 0)) (helm (3 6 2)) (cbor (0 2 5)) (bech32 (0 2 1)) (readable-numbers (0 1 0)) (emacsql (3 0 0)) (emacsql-sqlite (3 1 1))) "Cardano transaction editor" tar ((:url . "https://github.com/Titan-C/cardano.el") (:commit . "cf85424b305e8f89debb756dc67eebc84639f711") (:revdesc . "cf85424b305e") (:authors ("Oscar Najera" . "https://oscarnajera.com")) (:maintainers ("Oscar Najera" . "hi@oscarnajera.com")) (:maintainer "Oscar Najera" . "hi@oscarnajera.com"))])
  (cardano-wallet . [(20230606 1150) ((emacs (27 1)) (yaml (0 1 0)) (dash (2 19 0)) (yaml-mode (0 0 15)) (readable-numbers (0 1 0)) (cardano-tx (0 1 2))) "Interact with cardano wallet" tar ((:url . "https://github.com/Titan-C/cardano.el") (:commit . "cf85424b305e8f89debb756dc67eebc84639f711") (:revdesc . "cf85424b305e") (:authors ("Oscar Najera" . "https://github.com/titan")) (:maintainers ("Oscar Najera" . "hi@oscarnajera.com")) (:maintainer "Oscar Najera" . "hi@oscarnajera.com"))])
  (cargo . [(20231229 915) ((emacs (24 3)) (markdown-mode (2 4))) "Emacs Minor Mode for Cargo, Rust's Package Manager" tar ((:url . "https://github.com/kwrooijen/cargo.el") (:commit . "7f8466063381eed05d4e222ce822b1dd44e3bf17") (:revdesc . "7f8466063381") (:keywords "tools"))])
- (cargo-mode . [(20240928 1910) ((emacs (25 1))) "Cargo Major Mode. Cargo is the Rust package manager" tar ((:url . "https://github.com/ayrat555/cargo-mode") (:commit . "8321d01fa4d30391a9918bd9782fadbab27843fd") (:revdesc . "8321d01fa4d3") (:keywords "tools") (:authors ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainers ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainer "Ayrat Badykov" . "ayratin555@gmail.com"))])
+ (cargo-mode . [(20241121 638) ((emacs (25 1))) "Cargo Major Mode. Cargo is the Rust package manager" tar ((:url . "https://github.com/ayrat555/cargo-mode") (:commit . "1b97dec6fc5f8ff3a531f8d6dd33fbcc4ae1ba27") (:revdesc . "1b97dec6fc5f") (:keywords "tools") (:authors ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainers ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainer "Ayrat Badykov" . "ayratin555@gmail.com"))])
  (cargo-transient . [(20230512 131) ((emacs (28 1))) "A transient UI for Cargo, Rust's package manager" tar ((:url . "https://github.com/peterstuart/cargo-transient") (:commit . "34d63dfb99ee9a6068dadd6390763c9735c17a85") (:revdesc . "34d63dfb99ee") (:authors ("Peter Stuart" . "peter@peterstuart.org")) (:maintainers ("Peter Stuart" . "peter@peterstuart.org")) (:maintainer "Peter Stuart" . "peter@peterstuart.org"))])
  (caroline-theme . [(20160318 520) ((emacs (24))) "A trip down to New Orleans.." tar ((:url . "https://github.com/xjackk/caroline-theme") (:commit . "222fd483db304509f9e422dc82883d808e023ceb") (:revdesc . "222fd483db30") (:authors ("Jack Killilea" . "jaaacckz1@gmail.com")) (:maintainers ("Jack Killilea" . "jaaacckz1@gmail.com")) (:maintainer "Jack Killilea" . "jaaacckz1@gmail.com"))])
  (cascading-dir-locals . [(20211013 1955) ((emacs (26 1))) "Apply all (!) .dir-locals.el from root to current directory" tar ((:url . "https://github.com/fritzgrabo/cascading-dir-locals") (:commit . "345d4b70e837d45ee84014684127e7399932d5e6") (:revdesc . "345d4b70e837") (:keywords "convenience") (:authors ("Fritz Grabo" . "hello@fritzgrabo.com")) (:maintainers ("Fritz Grabo" . "hello@fritzgrabo.com")) (:maintainer "Fritz Grabo" . "hello@fritzgrabo.com"))])
@@ -490,7 +490,7 @@
  (cask-mode . [(20160410 1449) ((emacs (24 3))) "Major mode for editing Cask files" tar ((:url . "https://github.com/Wilfred/cask-mode") (:commit . "c97755267b7215f02df7b0c16b4210c04aee6566") (:revdesc . "c97755267b72") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainers ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))])
  (cask-package-toolset . [(20170921 2256) ((emacs (24)) (cl-lib (0 3)) (s (1 6 1)) (dash (1 8 0)) (f (0 10 0)) (commander (0 2 0)) (ansi (0 1 0)) (shut-up (0 1 0))) "Toolsettize your package" tar ((:url . "https://github.com/AdrieanKhisbe/cask-package-toolset.el") (:commit . "2c74cd827e88c7f8360581a841e45f0b794510e7") (:revdesc . "2c74cd827e88") (:keywords "convenience" "tools") (:authors ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainers ("Adrien Becchis" . "adriean.khisbe@live.fr")) (:maintainer "Adrien Becchis" . "adriean.khisbe@live.fr"))])
  (caskxy . [(20140513 1539) ((log4e (0 2 0)) (yaxception (0 1))) "Control Cask in Emacs" tar ((:url . "https://github.com/aki2o/caskxy") (:commit . "279f3ab79bd77fe69cb3148a79896b9bf118a9b3") (:revdesc . "279f3ab79bd7") (:keywords "convenience") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainers ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com"))])
- (casual . [(20241112 2336) ((emacs (29 1)) (transient (0 6 0))) "Transient user interfaces for various modes" tar ((:url . "https://github.com/kickingvegas/casual") (:commit . "988f28bfd0564247dbb10d4343d2241f847190f6") (:revdesc . "988f28bfd056") (:keywords "tools" "wp") (:authors ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainers ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainer "Charles Choi" . "kickingvegas@gmail.com"))])
+ (casual . [(20241123 2154) ((emacs (29 1)) (transient (0 6 0))) "Transient user interfaces for various modes" tar ((:url . "https://github.com/kickingvegas/casual") (:commit . "72126c3fae2584f8f542ce409f46fa92a9b8b456") (:revdesc . "72126c3fae25") (:keywords "tools" "wp") (:authors ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainers ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainer "Charles Choi" . "kickingvegas@gmail.com"))])
  (casual-avy . [(20241021 2353) ((emacs (29 1)) (avy (0 5 0)) (casual (2 0 0))) "Transient UI for Avy" tar ((:url . "https://github.com/kickingvegas/casual-avy") (:commit . "7e8f7703f4ab4886f27241664aa5e1510103f74e") (:revdesc . "7e8f7703f4ab") (:keywords "tools") (:authors ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainers ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainer "Charles Choi" . "kickingvegas@gmail.com"))])
  (casual-suite . [(20241022 3) ((emacs (29 1)) (casual (2 0 0)) (casual-avy (2 0 0)) (casual-symbol-overlay (2 0 0))) "A suite of opinionated Transient UIs" tar ((:url . "https://github.com/kickingvegas/casual-suite") (:commit . "c590e78d756bc6b3d43ab5cf8618e41b2a5bc88b") (:revdesc . "c590e78d756b") (:keywords "tools") (:authors ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainers ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainer "Charles Choi" . "kickingvegas@gmail.com"))])
  (casual-symbol-overlay . [(20241021 2358) ((emacs (29 1)) (casual (2 0 0)) (symbol-overlay (4 2))) "Transient UI for Symbol Overlay" tar ((:url . "https://github.com/kickingvegas/casual-symbol-overlay") (:commit . "1453e7486dd0921f0319f21dd8c8b603e4eb7300") (:revdesc . "1453e7486dd0") (:keywords "tools") (:authors ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainers ("Charles Choi" . "kickingvegas@gmail.com")) (:maintainer "Charles Choi" . "kickingvegas@gmail.com"))])
@@ -531,7 +531,7 @@
  (chapel-mode . [(20210513 457) ((emacs (25 1)) (hydra (0 15 0))) "A major mode for the Chapel programming language" tar ((:url . "https://github.com/damon-kwok/chapel-mode") (:commit . "39fd24bb7cf44808200354ac0496be4fc4fddd9a") (:revdesc . "39fd24bb7cf4") (:keywords "chapel" "chpl" "programming" "languages"))])
  (char-menu . [(20210321 1657) ((emacs (24 3)) (avy-menu (0 1))) "Create your own menu for fast insertion of arbitrary symbols" tar ((:url . "https://github.com/mrkkrp/char-menu") (:commit . "d77c4d64fc8acc386a0fb9727d346c838e75f011") (:revdesc . "d77c4d64fc8a") (:keywords "convenience" "editing") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainers ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com"))])
  (charmap . [(20200616 1418) nil "Unicode table for Emacs" tar ((:url . "https://github.com/lateau/charmap") (:commit . "feac50b87d2a596c5e5b7b82b79ddd65b6dedd8c") (:revdesc . "feac50b87d2a") (:keywords "unicode" "character" "ucs") (:authors ("Anan Mikami" . "lateau@gmail.com")) (:maintainers ("Anan Mikami" . "lateau@gmail.com")) (:maintainer "Anan Mikami" . "lateau@gmail.com"))])
- (chatgpt-shell . [(20241120 1025) ((emacs (28 1)) (shell-maker (0 68 1))) "A multi-llm comint Emacs shell (plus other goodies)" tar ((:url . "https://github.com/xenodium/chatgpt-shell") (:commit . "7132a3d718941493818df47a61f6d6006a513ac1") (:revdesc . "7132a3d71894"))])
+ (chatgpt-shell . [(20241123 2155) ((emacs (28 1)) (shell-maker (0 70 2))) "A multi-llm Emacs shell (ChatGPT, Claude, Gemini) + editing integrations" tar ((:url . "https://github.com/xenodium/chatgpt-shell") (:commit . "94d5ee2c1f087b78b129f73d3e90d15809456f4d") (:revdesc . "94d5ee2c1f08"))])
  (chatu . [(20240518 615) ((org (9 6 6)) (emacs (29 1)) (plantuml-mode (1 2 9))) "Convert and insert any images to org-mode or markdown buffer" tar ((:url . "https://github.com/kimim/chatu") (:commit . "f813f0bc926346fbd8151d2ae7079119d4657abb") (:revdesc . "f813f0bc9263") (:keywords "multimedia" "convenience") (:authors ("Kimi Ma" . "kimi.im@outlook.com")) (:maintainers ("Kimi Ma" . "kimi.im@outlook.com")) (:maintainer "Kimi Ma" . "kimi.im@outlook.com"))])
  (chatwork . [(20240910 1531) nil "ChatWork client for Emacs" tar ((:url . "https://github.com/ataka/chatwork") (:commit . "5abbf07bd6063c922191cc645f5771a943e3043c") (:revdesc . "5abbf07bd606") (:keywords "web") (:authors ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainers ("Masayuki Ataka" . "masayuki.ataka@gmail.com")) (:maintainer "Masayuki Ataka" . "masayuki.ataka@gmail.com"))])
  (cheat-sh . [(20210607 1307) ((emacs (25 1))) "Interact with cheat.sh" tar ((:url . "https://github.com/davep/cheat-sh.el") (:commit . "33bae22feae8d3375739c6bdef08d0dcdf47ee42") (:revdesc . "33bae22feae8") (:keywords "docs" "help") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainers ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org"))])
@@ -578,7 +578,7 @@
  (citar . [(20241027 1331) ((emacs (27 1)) (parsebib (4 2)) (org (9 5)) (citeproc (0 9))) "Citation-related commands for org, latex, markdown" tar ((:url . "https://github.com/emacs-citar/citar") (:commit . "46bc177f53147a387407b1578ca38a3e96ad49a3") (:revdesc . "46bc177f5314") (:authors ("Bruce D'Arcus" . "https://github.com/bdarcus")) (:maintainers ("Bruce D'Arcus" . "https://github.com/bdarcus")) (:maintainer "Bruce D'Arcus" . "https://github.com/bdarcus"))])
  (citar-denote . [(20240908 2154) ((emacs (28 1)) (citar (1 4)) (denote (2 0)) (dash (2 19 1))) "Minor mode integrating Citar and Denote" tar ((:url . "https://github.com/pprevos/citar-denote") (:commit . "c0c467653976ab40ff330fcb4586fadb69e48a29") (:revdesc . "c0c467653976") (:authors ("Peter Prevos" . "peter@prevos.net")) (:maintainers ("Peter Prevos" . "peter@prevos.net")) (:maintainer "Peter Prevos" . "peter@prevos.net"))])
  (citar-embark . [(20231122 1548) ((emacs (27 1)) (embark (0 17)) (citar (0 9 7))) "Citar/Embark integration" tar ((:url . "https://github.com/emacs-citar/citar") (:commit . "572b7b6e569e9423dd948539fa48d3f53ceffe57") (:revdesc . "572b7b6e569e") (:keywords "bib" "extensions") (:authors ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainers ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainer "Bruce D'Arcus" . "bdarcus@gmail.com"))])
- (citar-org-roam . [(20240212 2159) ((emacs (27 1)) (org-roam (2 2)) (citar (1 2 0))) "Citar/org-roam integration" tar ((:url . "https://github.com/emacs-citar/citar-org-roam") (:commit . "999268c7a077aad6a8f4dfc88d0eeabdf4267fea") (:revdesc . "999268c7a077") (:authors ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainers ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainer "Bruce D'Arcus" . "bdarcus@gmail.com"))])
+ (citar-org-roam . [(20241124 1352) ((emacs (27 1)) (org-roam (2 2)) (citar (1 2 0))) "Citar/org-roam integration" tar ((:url . "https://github.com/emacs-citar/citar-org-roam") (:commit . "e2cd111456d59fbf0b79e6684ad46c3686169f53") (:revdesc . "e2cd111456d5") (:authors ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainers ("Bruce D'Arcus" . "bdarcus@gmail.com")) (:maintainer "Bruce D'Arcus" . "bdarcus@gmail.com"))])
  (citeproc . [(20240722 1110) ((emacs (26)) (dash (2 13 0)) (s (1 12 0)) (f (0 18 0)) (queue (0 2)) (string-inflection (1 0)) (org (9)) (parsebib (2 4)) (compat (28 1))) "A CSL 1.0.2 Citation Processor" tar ((:url . "https://github.com/andras-simonyi/citeproc-el") (:commit . "54184baaff555b5c7993d566d75dd04ed485b5c0") (:revdesc . "54184baaff55") (:keywords "bib") (:authors ("András Simonyi" . "andras.simonyi@gmail.com")) (:maintainers ("András Simonyi" . "andras.simonyi@gmail.com")) (:maintainer "András Simonyi" . "andras.simonyi@gmail.com"))])
  (citeproc-org . [(20200915 2009) ((emacs (25 1)) (dash (2 12 0)) (org (9)) (f (0 18 0)) (citeproc (0 1)) (org-ref (1 1 1))) "Render org-mode references in CSL styles" tar ((:url . "https://github.com/andras-simonyi/citeproc-org") (:commit . "22a759c4f0ec80075014dcc594baa4d1b470d995") (:revdesc . "22a759c4f0ec") (:keywords "org-ref" "org-mode" "cite" "bib") (:authors ("András Simonyi" . "andras.simonyi@gmail.com")) (:maintainers ("András Simonyi" . "andras.simonyi@gmail.com")) (:maintainer "András Simonyi" . "andras.simonyi@gmail.com"))])
  (citre . [(20241028 1548) ((emacs (26 1))) "Superior code reading & auto-completion tool with pluggable backends" tar ((:url . "https://github.com/universal-ctags/citre") (:commit . "9220f430b5588f7e2d9ca82797eb37d1d7752620") (:revdesc . "9220f430b558") (:keywords "convenience" "tools") (:authors ("Hao Wang" . "amaikinono@gmail.com")) (:maintainers ("Hao Wang" . "amaikinono@gmail.com")) (:maintainer "Hao Wang" . "amaikinono@gmail.com"))])
@@ -626,7 +626,7 @@
  (clojure-snippets . [(20220914 950) ((yasnippet (0 10 0))) "Yasnippets for clojure" tar ((:url . "https://github.com/mpenet/clojure-snippets") (:commit . "66d23f0ffedf2cc2be0387c3504b5f89d7300cfa") (:revdesc . "66d23f0ffedf") (:keywords "snippets") (:authors ("Max Penet" . "m@qbits.cc")) (:maintainers ("Max Penet" . "m@qbits.cc")) (:maintainer "Max Penet" . "m@qbits.cc"))])
  (clojure-ts-mode . [(20241104 2135) ((emacs (29 1))) "Major mode for Clojure code" tar ((:url . "https://github.com/clojure-emacs/clojure-ts-mode") (:commit . "3ca382c3ccf2ad560d0974229ec88963e82d2fe7") (:revdesc . "3ca382c3ccf2") (:keywords "languages" "clojure" "clojurescript" "lisp") (:maintainers ("Danny Freeman" . "danny@dfreeman.email")) (:maintainer "Danny Freeman" . "danny@dfreeman.email"))])
  (clomacs . [(20220415 1035) ((emacs (24 3)) (cider (0 22 1)) (s (1 12 0)) (simple-httpd (1 4 6)) (dash (2 19 1))) "Simplifies Emacs Lisp interaction with Clojure" tar ((:url . "https://github.com/clojure-emacs/clomacs") (:commit . "9cd7c9fd86bc7bc627a31275d1ef131378b90a49") (:revdesc . "9cd7c9fd86bc") (:keywords "clojure" "interaction") (:authors ("Kostafey" . "kostafey@gmail.com")) (:maintainers ("Kostafey" . "kostafey@gmail.com")) (:maintainer "Kostafey" . "kostafey@gmail.com"))])
- (closql . [(20240808 1934) ((emacs (26 1)) (compat (30 0 0 0)) (emacsql (4 0 0))) "Store EIEIO objects using EmacSQL" tar ((:url . "https://github.com/magit/closql") (:commit . "c1a346d56ecee16d1f0d7707f0d62c72604a8802") (:revdesc . "c1a346d56ece") (:keywords "extensions") (:authors ("Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev"))])
+ (closql . [(20241123 2130) ((emacs (26 1)) (compat (30 0 0 0)) (emacsql (4 0 0))) "Store EIEIO objects using EmacSQL" tar ((:url . "https://github.com/magit/closql") (:commit . "8f99eac1235c4e93759923703b14c18de9563efe") (:revdesc . "8f99eac1235c") (:keywords "extensions") (:authors ("Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.closql@jonas.bernoulli.dev"))])
  (closure-lint-mode . [(20101118 2124) nil "Minor mode for the Closure Linter" tar ((:url . "https://github.com/r0man/closure-lint-mode") (:commit . "bc3d2fd5c35580bf1b8af43b12484c95a343b4b5") (:revdesc . "bc3d2fd5c355") (:keywords "tools" "closure" "javascript" "lint" "flymake") (:authors ("Roman Scherer" . "roman@burningswell.com")) (:maintainers ("Roman Scherer" . "roman@burningswell.com")) (:maintainer "Roman Scherer" . "roman@burningswell.com"))])
  (cloud-theme . [(20220205 1336) ((emacs (24))) "A light colored theme" tar ((:url . "https://github.com/vallyscode/cloud-theme") (:commit . "16ef7fbf0a423b29e3c3a0a2d9525afaf265aaed") (:revdesc . "16ef7fbf0a42") (:keywords "color" "theme") (:authors ("Valerii Lysenko" . "vallyscode@gmail.com")) (:maintainers ("Valerii Lysenko" . "vallyscode@gmail.com")) (:maintainer "Valerii Lysenko" . "vallyscode@gmail.com"))])
  (cloud-to-butt-erc . [(20130627 2308) nil "Replace 'the cloud' with 'my butt'" tar ((:url . "https://github.com/leathekd/cloud-to-butt-erc") (:commit . "6710c03d1bc91736435cbfe845924940cae34e5c") (:revdesc . "6710c03d1bc9") (:authors ("David Leatherman" . "leathekd@gmail.com")) (:maintainers ("David Leatherman" . "leathekd@gmail.com")) (:maintainer "David Leatherman" . "leathekd@gmail.com"))])
@@ -634,11 +634,11 @@
  (cm-mode . [(20240422 725) ((emacs (25 1)) (cl-lib (0 5))) "Minor mode for CriticMarkup" tar ((:url . "https://github.com/joostkremers/criticmarkup-emacs") (:commit . "a9381f57f3005a9b26f81085ecb2accf680c6f6b") (:revdesc . "a9381f57f300") (:keywords "text" "markdown") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainers ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))])
  (cmake-font-lock . [(20230304 2223) ((cmake-mode (0 0))) "Advanced, type aware, highlight support for CMake" tar ((:url . "https://github.com/Lindydancer/cmake-font-lock") (:commit . "a6038e916bcca807ae695f7d7e5c300c3f38f415") (:revdesc . "a6038e916bcc") (:keywords "faces" "languages"))])
  (cmake-ide . [(20210610 1525) ((emacs (24 4)) (cl-lib (0 5)) (seq (1 11)) (levenshtein (0)) (s (1 11 0))) "Calls CMake to find out include paths and other compiler flags" tar ((:url . "https://github.com/atilaneves/cmake-ide") (:commit . "28dc4ab5bd01d99553901b4efeb7234280928b18") (:revdesc . "28dc4ab5bd01") (:keywords "languages") (:authors ("Atila Neves" . "atila.neves@gmail.com")) (:maintainers ("Atila Neves" . "atila.neves@gmail.com")) (:maintainer "Atila Neves" . "atila.neves@gmail.com"))])
- (cmake-mode . [(20241106 1341) ((emacs (24 1))) "Major-mode for editing CMake sources" tar ((:url . "https://gitlab.kitware.com/cmake/cmake.git") (:commit . "e22c8383b9ae4f27a78f7a8849693c03ca29c7bb") (:revdesc . "e22c8383b9ae"))])
+ (cmake-mode . [(20241121 1615) ((emacs (24 1))) "Major-mode for editing CMake sources" tar ((:url . "https://gitlab.kitware.com/cmake/cmake.git") (:commit . "eb281d34548f4234e68ff31d1050aca7e8441d86") (:revdesc . "eb281d34548f"))])
  (cmake-project . [(20171121 1115) nil "Integrates CMake build process with Emacs" tar ((:url . "https://github.com/alamaison/emacs-cmake-project") (:commit . "d3f408f226eff3f77f7e00dd519f4efc78fd292d") (:revdesc . "d3f408f226ef") (:keywords "c" "cmake" "languages" "tools") (:authors ("Alexander Lamaison" . "alexander.lamaison@gmail")) (:maintainers ("Alexander Lamaison" . "alexander.lamaison@gmail")) (:maintainer "Alexander Lamaison" . "alexander.lamaison@gmail"))])
  (cmd-to-echo . [(20161203 2133) ((emacs (24 4)) (s (1 11 0)) (shell-split-string (20151224 208))) "Show the output of long-running commands in the echo area" tar ((:url . "https://github.com/mallt/cmd-to-echo") (:commit . "e0e874fc0e1ad6d291e39ed76023445297ad438a") (:revdesc . "e0e874fc0e1a") (:authors ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainers ("Tijs Mallaerts" . "tijs.mallaerts@gmail.com")) (:maintainer "Tijs Mallaerts" . "tijs.mallaerts@gmail.com"))])
  (cmm-mode . [(20150225 746) nil "Major mode for C-- source code" tar ((:url . "https://github.com/bgamari/cmm-mode") (:commit . "c3ad514dff3eb30434f6b20d953276d4c00de1ee") (:revdesc . "c3ad514dff3e"))])
- (cnfonts . [(20240430 536) ((emacs (24))) "A simple Chinese fonts config tool" tar ((:url . "https://github.com/tumashu/cnfonts") (:commit . "1f57d4f64f50e4dbc7ab4d963278b746f904c454") (:revdesc . "1f57d4f64f50") (:keywords "convenience" "chinese" "font") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainers ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com"))])
+ (cnfonts . [(20241120 2133) ((emacs (24))) "A simple Chinese fonts config tool" tar ((:url . "https://github.com/tumashu/cnfonts") (:commit . "0b4fb8c2f743594010bb8137db6e71087efdaf67") (:revdesc . "0b4fb8c2f743") (:keywords "convenience" "chinese" "font") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainers ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com"))])
  (cobalt . [(20180304 1155) ((emacs (24))) "Easily use the Cobalt.rs static site generator" tar ((:url . "https://github.com/cobalt-org/cobalt.el") (:commit . "634ace275697e188746ca22a30ff94380ec756be") (:revdesc . "634ace275697") (:keywords "convenience") (:authors ("Juan Karlo Licudine" . "accidentalrebel@gmail.com")) (:maintainers ("Juan Karlo Licudine" . "accidentalrebel@gmail.com")) (:maintainer "Juan Karlo Licudine" . "accidentalrebel@gmail.com"))])
  (cobra-mode . [(20140116 2116) nil "Major mode for .NET-based Cobra language" tar ((:url . "https://github.com/Nekroze/cobra-mode") (:commit . "acd6e53f6286af5176471d01f25257e5ddb6dd01") (:revdesc . "acd6e53f6286") (:keywords "languages"))])
  (coc-dc . [(20241104 1739) ((emacs (27 2)) (hydra (0 14 0))) "A Clash of Clans damage calculator" tar ((:url . "https://github.com/S0mbr3/coc-damage-calculator") (:commit . "097bc2496263fc1e69a04d0528b41baf2fd08115") (:revdesc . "097bc2496263") (:keywords "games") (:authors ("S0mbr3" . "0xf2f@proton.me")) (:maintainers ("S0mbr3" . "0xf2f@proton.me")) (:maintainer "S0mbr3" . "0xf2f@proton.me"))])
@@ -759,7 +759,7 @@
  (company-ycmd . [(20180520 1053) ((ycmd (1 3)) (company (0 9 3)) (deferred (0 5 1)) (s (1 11 0)) (dash (2 13 0)) (let-alist (1 0 5)) (f (0 19 0))) "Company-mode backend for ycmd" tar ((:url . "https://github.com/abingham/emacs-ycmd") (:commit . "966594701c1eef1f6d4dad0c71c6d43a029977d7") (:revdesc . "966594701c1e"))])
  (compdef . [(20200304 611) ((emacs (24 4))) "A local completion definer" tar ((:url . "https://github.com/cyruseuros/compdef") (:commit . "30fb5846ed851efee641ce8c5d8879ad36cd7ac6") (:revdesc . "30fb5846ed85") (:keywords "convenience"))])
  (competitive-programming-snippets . [(20201115 1702) ((emacs (26)) (yasnippet (0 8 0))) "Competitive Programming snippets for yasnippet" tar ((:url . "https://github.com/sei40kr/competitive-programming-snippets") (:commit . "3b43c1aeaa6676d1d3d0c47e78790db9bee150b6") (:revdesc . "3b43c1aeaa66") (:keywords "tools") (:authors ("Seong Yong-ju" . "sei40kr@gmail.com")) (:maintainers ("Seong Yong-ju" . "sei40kr@gmail.com")) (:maintainer "Seong Yong-ju" . "sei40kr@gmail.com"))])
- (compile-angel . [(20241120 505) ((emacs (26 1))) "Automatically Compile Elisp files (auto-compile alternative)" tar ((:url . "https://github.com/jamescherti/compile-angel.el") (:commit . "359069adbd67e713782a08ae2554032cf1477703") (:revdesc . "359069adbd67") (:keywords "convenience"))])
+ (compile-angel . [(20241122 635) ((emacs (26 1))) "Automatically Compile Elisp files (auto-compile alternative)" tar ((:url . "https://github.com/jamescherti/compile-angel.el") (:commit . "552b9bcd7fb54e12762fe1f5539363dba9e2acad") (:revdesc . "552b9bcd7fb5") (:keywords "convenience"))])
  (compile-multi . [(20240923 1814) ((emacs (28 1))) "A multi target interface to compile" tar ((:url . "https://github.com/mohkale/compile-multi") (:commit . "94b2f267d1e424cf523643a3c9841c83f0a86368") (:revdesc . "94b2f267d1e4") (:keywords "tools" "compile" "build") (:authors ("mohsin kaleem" . "mohkale@kisara.moe")) (:maintainers ("mohsin kaleem" . "mohkale@kisara.moe")) (:maintainer "mohsin kaleem" . "mohkale@kisara.moe"))])
  (compile-multi-all-the-icons . [(20240923 1814) ((emacs (28 0)) (all-the-icons-completion (0 0 1))) "Affixate `compile-multi' with icons" tar ((:url . "https://github.com/mohkale/compile-multi") (:commit . "94b2f267d1e424cf523643a3c9841c83f0a86368") (:revdesc . "94b2f267d1e4") (:keywords "tools" "compile" "build") (:authors ("mohsin kaleem" . "mohkale@kisara.moe")) (:maintainers ("mohsin kaleem" . "mohkale@kisara.moe")) (:maintainer "mohsin kaleem" . "mohkale@kisara.moe"))])
  (compile-multi-embark . [(20240923 1814) ((emacs (28 1)) (compile-multi (0 4)) (embark (0 22 1))) "Integration for `compile-multi' and `embark'" tar ((:url . "https://github.com/mohkale/compile-multi") (:commit . "94b2f267d1e424cf523643a3c9841c83f0a86368") (:revdesc . "94b2f267d1e4") (:keywords "project" "convenience") (:authors ("Mohsin Kaleem" . "mohkale@kisara.moe")) (:maintainers ("Mohsin Kaleem" . "mohkale@kisara.moe")) (:maintainer "Mohsin Kaleem" . "mohkale@kisara.moe"))])
@@ -814,7 +814,7 @@
  (control-mode . [(20160624 1710) nil "A \"control\" mode, similar to vim's \"normal\" mode" tar ((:url . "https://github.com/stephendavidmarsh/control-mode") (:commit . "6bf487144119b03f9cc54168f70e3d7d8d84e22b") (:revdesc . "6bf487144119") (:keywords "convenience" "emulations") (:authors ("Stephen Marsh" . "stephen.david.marsh@gmail.com")) (:maintainers ("Stephen Marsh" . "stephen.david.marsh@gmail.com")) (:maintainer "Stephen Marsh" . "stephen.david.marsh@gmail.com"))])
  (conventional-changelog . [(20230902 815) ((emacs (26 3)) (transient (0 4 1))) "Conventional Changelog Generator" tar ((:url . "https://github.com/liuyinz/emacs-conventional-changelog") (:commit . "97778186ff529a487d7fb0fc20d199d26ef70f5c") (:revdesc . "97778186ff52") (:keywords "tools") (:authors ("liuyinz" . "liuyinz95@gmail.com")) (:maintainers ("liuyinz" . "liuyinz95@gmail.com")) (:maintainer "liuyinz" . "liuyinz95@gmail.com"))])
  (cool-mode . [(20231026 456) ((emacs (25))) "Major mode for cool compiler language" tar ((:url . "https://github.com/nverno/cool-mode") (:commit . "46b6a38a99a954c5e77e90506eafec4092690692") (:revdesc . "46b6a38a99a9") (:authors ("Noah Peart" . "noah.v.peart@gmail.com")) (:maintainers ("Noah Peart" . "noah.v.peart@gmail.com")) (:maintainer "Noah Peart" . "noah.v.peart@gmail.com"))])
- (copilot-chat . [(20241118 1209) ((request (0 3 2)) (markdown-mode (2 6)) (emacs (27 1)) (chatgpt-shell (1 6 1)) (magit (4 0 0))) "Copilot chat interface" tar ((:url . "https://github.com/chep/copilot-chat.el") (:commit . "d2f3ef17d755d8920c747ee5677db5b003a13406") (:revdesc . "d2f3ef17d755") (:keywords "convenience" "tools") (:authors ("cedric.chepied" . "cedric.chepied@gmail.com")) (:maintainers ("cedric.chepied" . "cedric.chepied@gmail.com")) (:maintainer "cedric.chepied" . "cedric.chepied@gmail.com"))])
+ (copilot-chat . [(20241121 1103) ((request (0 3 2)) (markdown-mode (2 6)) (emacs (27 1)) (chatgpt-shell (1 6 1)) (magit (4 0 0))) "Copilot chat interface" tar ((:url . "https://github.com/chep/copilot-chat.el") (:commit . "25e90bd7db9034ebbbce1873eaef83cf9d011fa5") (:revdesc . "25e90bd7db90") (:keywords "convenience" "tools") (:authors ("cedric.chepied" . "cedric.chepied@gmail.com")) (:maintainers ("cedric.chepied" . "cedric.chepied@gmail.com")) (:maintainer "cedric.chepied" . "cedric.chepied@gmail.com"))])
  (copy-as-format . [(20231112 1710) ((cl-lib (0 5))) "Copy buffer locations as GitHub/Slack/JIRA etc... formatted code" tar ((:url . "https://github.com/sshaw/copy-as-format") (:commit . "b9f6f725ca9701c5a02bfb479573fdfcce2e1e30") (:revdesc . "b9f6f725ca97") (:keywords "github" "slack" "jira" "telegram" "gitlab" "bitbucket" "org-mode" "pod" "rst" "asciidoc" "whatsapp" "tools" "convenience") (:authors ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainers ("Skye Shaw" . "skye.shaw@gmail.com")) (:maintainer "Skye Shaw" . "skye.shaw@gmail.com"))])
  (copy-file-on-save . [(20230402 1829) ((emacs (24 3)) (compat (29))) "Copy file on save, automatic deployment it" tar ((:url . "https://github.com/emacs-php/emacs-auto-deployment") (:commit . "370b1586feb2690d3c72185bd4f17c31ce03673a") (:revdesc . "370b1586feb2") (:keywords "files" "comm" "deploy") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainers ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))])
  (copyit . [(20241030 543) ((emacs (24 3)) (s (1 9 0))) "Copy it, yank anything!" tar ((:url . "https://github.com/zonuexe/emacs-copyit") (:commit . "09556ba8407dc2b132b7f76cd1b458c0773a1fe8") (:revdesc . "09556ba8407d") (:keywords "convenience" "yank" "clipboard") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainers ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))])
@@ -952,7 +952,7 @@
  (dash-at-point . [(20211023 104) nil "Search the word at point with Dash" tar ((:url . "https://github.com/stanaka/dash-at-point") (:commit . "fba1a6f42ea51d05110e12c62bdced664059eb55") (:revdesc . "fba1a6f42ea5") (:authors ("Shinji Tanaka" . "shinji.tanaka@gmail.com")) (:maintainers ("Shinji Tanaka" . "shinji.tanaka@gmail.com")) (:maintainer "Shinji Tanaka" . "shinji.tanaka@gmail.com"))])
  (dash-docs . [(20210830 926) ((emacs (24 4)) (cl-lib (0 5)) (async (1 9 3))) "Offline documentation browser using Dash docsets" tar ((:url . "https://github.com/dash-docs-el/dash-docs") (:commit . "29848b6b347ac520f7646c200ed2ec36cea3feda") (:revdesc . "29848b6b347a") (:keywords "docs") (:authors ("Raimon Grau" . "raimonster@gmail.com") ("Toni Reina" . "areina0@gmail.com") ("Bryan Gilbert" . "bryan@bryan.sh")) (:maintainers ("Raimon Grau" . "raimonster@gmail.com") ("Toni Reina" . "areina0@gmail.com") ("Bryan Gilbert" . "bryan@bryan.sh")) (:maintainer "Raimon Grau" . "raimonster@gmail.com"))])
  (dash-functional . [(20210826 1149) ((dash (2 18 0))) "Collection of useful combinators for Emacs Lisp" tar ((:url . "https://github.com/magnars/dash.el") (:commit . "39d067b9fbb2db65fc7a6938bfb21489ad990cb4") (:revdesc . "39d067b9fbb2") (:keywords "extensions" "lisp") (:authors ("Matus Goljer" . "matus.goljer@gmail.com") ("Magnar Sveen" . "magnars@gmail.com")) (:maintainers ("Matus Goljer" . "matus.goljer@gmail.com") ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))])
- (dashboard . [(20240923 2345) ((emacs (26 1))) "A startup screen extracted from Spacemacs" tar ((:url . "https://github.com/emacs-dashboard/emacs-dashboard") (:commit . "946b9957470a3cac6b089bdf2d9edd07a29fcc9c") (:revdesc . "946b9957470a") (:keywords "startup" "screen" "tools" "dashboard") (:authors ("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com")) (:maintainers ("Jesús Martínez" . "jesusmartinez93@gmail.com") ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jesús Martínez" . "jesusmartinez93@gmail.com"))])
+ (dashboard . [(20241120 2030) ((emacs (26 1))) "A startup screen extracted from Spacemacs" tar ((:url . "https://github.com/emacs-dashboard/emacs-dashboard") (:commit . "9479466d39652a8e32b74ee83822421fa08024d9") (:revdesc . "9479466d3965") (:keywords "startup" "screen" "tools" "dashboard") (:authors ("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com")) (:maintainers ("Jesús Martínez" . "jesusmartinez93@gmail.com") ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jesús Martínez" . "jesusmartinez93@gmail.com"))])
  (dashboard-hackernews . [(20240918 1301) ((emacs (24)) (dashboard (1 2 5)) (request (0 3 0))) "Display Hacker News on dashboard" tar ((:url . "https://github.com/hyakt/emacs-dashboard-hackernews") (:commit . "ea49fd79d12c26a2c3f9bcdffd0d70dcfee7cd74") (:revdesc . "ea49fd79d12c") (:authors ("Hayato KAJIYAMA" . "kaji1216@gmail.com")) (:maintainers ("Hayato KAJIYAMA" . "kaji1216@gmail.com")) (:maintainer "Hayato KAJIYAMA" . "kaji1216@gmail.com"))])
  (dashboard-ls . [(20240101 841) ((emacs (26 1)) (dashboard (1 2 5))) "Display files/directories in current directory on Dashboard" tar ((:url . "https://github.com/emacs-dashboard/dashboard-ls") (:commit . "bc79640e8fcc625ff1af31d5e17b054b1f535f39") (:revdesc . "bc79640e8fcc") (:keywords "convenience" "directory" "file" "show") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (dashboard-project-status . [(20190202 1354) ((emacs (24)) (git (0 1 1)) (dashboard (1 2 5))) "Display a git project status in a dashboard widget" tar ((:url . "https://github.com/functionreturnfunction/dashboard-project-status") (:commit . "7675c138e9df8fe2c626e7ba9bbb8b6717671a41") (:revdesc . "7675c138e9df") (:authors ("Jason Duncan" . "jasond496@msn.com")) (:maintainers ("Jason Duncan" . "jasond496@msn.com")) (:maintainer "Jason Duncan" . "jasond496@msn.com"))])
@@ -1103,7 +1103,7 @@
  (dispass . [(20140202 1531) ((dash (1 0 0))) "Emacs wrapper for DisPass" tar ((:url . "https://github.com/ryuslash/dispass.el") (:commit . "b6e8f89040ebaaf0e7609b04bc27a8979f0ae861") (:revdesc . "b6e8f89040eb") (:keywords "processes") (:authors ("Tom Willemsen" . "tom@ryuslash.org")) (:maintainers ("Tom Willemsen" . "tom@ryuslash.org")) (:maintainer "Tom Willemsen" . "tom@ryuslash.org"))])
  (display-theme . [(20140115 1556) ((emacs (24))) "Display current theme(s) at mode-line" tar ((:url . "https://github.com/kawabata/emacs-display-theme") (:commit . "b180b3be7a74ae4799a14e7e4bc2fe10e3ff7a15") (:revdesc . "b180b3be7a74") (:keywords "tools") (:authors ("Taichi" . "kawabata.taichi_at_gmail.com")) (:maintainers ("Taichi" . "kawabata.taichi_at_gmail.com")) (:maintainer "Taichi" . "kawabata.taichi_at_gmail.com"))])
  (display-wttr . [(20221102 1426) ((emacs (27 1))) "Display wttr(weather) in the mode line" tar ((:url . "https://git.sr.ht/~josegpt/display-wttr") (:commit . "7062953d034e27c297d58748cf74dad552aa2873") (:revdesc . "7062953d034e") (:authors ("Jose G Perez Taveras" . "josegpt27@gmail.com")) (:maintainers ("Jose G Perez Taveras" . "josegpt27@gmail.com")) (:maintainer "Jose G Perez Taveras" . "josegpt27@gmail.com"))])
- (disproject . [(20241120 654) ((emacs (29 4)) (transient (0 7 8))) "Dispatch project commands with Transient" tar ((:url . "https://github.com/aurtzy/disproject") (:commit . "cdde9bd1c32dc99f9ea4a42741f242c99dd4570e") (:revdesc . "cdde9bd1c32d") (:keywords "convenience" "files" "vc") (:authors ("aurtzy" . "aurtzy@gmail.com")) (:maintainers ("aurtzy" . "aurtzy@gmail.com")) (:maintainer "aurtzy" . "aurtzy@gmail.com"))])
+ (disproject . [(20241121 1908) ((emacs (29 4)) (transient (0 7 8))) "Dispatch project commands with Transient" tar ((:url . "https://github.com/aurtzy/disproject") (:commit . "c694d36cebbb30eedcf7ae1176f92b72d74c0a22") (:revdesc . "c694d36cebbb") (:keywords "convenience" "files" "vc") (:authors ("aurtzy" . "aurtzy@gmail.com")) (:maintainers ("aurtzy" . "aurtzy@gmail.com")) (:maintainer "aurtzy" . "aurtzy@gmail.com"))])
  (dispwatch . [(20210305 342) ((emacs (24 4))) "Watch displays for configuration changes" tar ((:url . "https://github.com/mnp/dispwatch") (:commit . "03abbac89a9f625aaa1a808dd49ae4906f466421") (:revdesc . "03abbac89a9f") (:keywords "frames") (:authors ("Mitchell Perilstein" . "mitchell.perilstein@gmail.com")) (:maintainers ("Mitchell Perilstein" . "mitchell.perilstein@gmail.com")) (:maintainer "Mitchell Perilstein" . "mitchell.perilstein@gmail.com"))])
  (dist-file-mode . [(20240107 2040) ((emacs (26))) "Dispatch major mode for *.dist files" tar ((:url . "https://github.com/emacs-php/dist-file-mode.el") (:commit . "8bb2f05487164cd690cac9c9c442969f6f79b81f") (:revdesc . "8bb2f0548716") (:keywords "files" "convenience") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainers ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))])
  (distel-completion-lib . [(20180827 1344) nil "Completion library for Erlang/Distel" tar ((:url . "https://github.com/sebastiw/distel-completion") (:commit . "acc4c0a5521904203d797fe96b08e5fae4233c7e") (:revdesc . "acc4c0a55219") (:keywords "erlang" "distel" "completion"))])
@@ -1170,7 +1170,7 @@
  (dropbox . [(20220314 1638) ((request (0 3 0)) (json (1 2)) (oauth (1 0 3))) "Emacs backend for dropbox" tar ((:url . "https://github.com/pavpanchekha/dropbox.el") (:commit . "c048faad0be24e8fa31974f08b710a87cf5b668c") (:revdesc . "c048faad0be2") (:keywords "dropbox") (:authors ("Pavel Panchekha" . "me@pavpanchekha.com")) (:maintainers ("Pavel Panchekha" . "me@pavpanchekha.com")) (:maintainer "Pavel Panchekha" . "me@pavpanchekha.com"))])
  (drupal-mode . [(20240816 1236) ((php-mode (1 5 0))) "Advanced minor mode for Drupal development" tar ((:url . "https://github.com/arnested/drupal-mode") (:commit . "3f91d1d44df11ebd0137a896055fca6a1bb2f554") (:revdesc . "3f91d1d44df1") (:keywords "programming" "php" "drupal") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainers ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk"))])
  (drupal-spell . [(20130520 1655) nil "Aspell extra dictionary for Drupal" tar ((:url . "https://github.com/arnested/drupal-spell") (:commit . "a69f5e3b62c4c0da74ce26c1d00d5b8f7395e4ae") (:revdesc . "a69f5e3b62c4") (:keywords "wp") (:authors ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainers ("Arne Jørgensen" . "arne@arnested.dk")) (:maintainer "Arne Jørgensen" . "arne@arnested.dk"))])
- (dslide . [(20241119 859) ((emacs (29 2))) "Domain Specific sLIDEs. A presentation framework" tar ((:url . "https://github.com/positron-solutions/dslide") (:commit . "4209916697c74f196be6834edfa01a25da597444") (:revdesc . "4209916697c7") (:keywords "convenience" "org-mode" "presentation" "narrowing") (:authors ("Positron" . "contact@positron.solutions")) (:maintainers ("Positron" . "contact@positron.solutions")) (:maintainer "Positron" . "contact@positron.solutions"))])
+ (dslide . [(20241123 852) ((emacs (29 2))) "Domain Specific sLIDEs. A presentation framework" tar ((:url . "https://github.com/positron-solutions/dslide") (:commit . "552e63c6ac43c2679f49b68affb4679788f8e8b9") (:revdesc . "552e63c6ac43") (:keywords "convenience" "org-mode" "presentation" "narrowing") (:authors ("Positron" . "contact@positron.solutions")) (:maintainers ("Positron" . "contact@positron.solutions")) (:maintainer "Positron" . "contact@positron.solutions"))])
  (dsvn . [(20221102 1416) nil "Subversion interface" tar ((:url . "https://github.com/emacsmirror/dsvn") (:commit . "36ecd5219584e46dcf6bd252e2ea1ec517d2fc05") (:revdesc . "36ecd5219584") (:keywords "docs") (:authors ("David Kågedal" . "davidk@lysator.liu.se") ("Mattias Engdegård" . "mattiase@acm.org")) (:maintainers ("Mattias Engdegård" . "mattiase@acm.org")) (:maintainer "Mattias Engdegård" . "mattiase@acm.org"))])
  (dtb-mode . [(20210105 1132) ((emacs (25))) "Show device tree souce in dtbs" tar ((:url . "https://github.com/schspa/dtb-mode") (:commit . "d5bca7d1afaac5615c586b60c7314a1d0e2514dc") (:revdesc . "d5bca7d1afaa") (:keywords "dtb" "dts" "convenience") (:authors ("Schspa Shi" . "schspa@gmail.com")) (:maintainers ("Schspa Shi" . "schspa@gmail.com")) (:maintainer "Schspa Shi" . "schspa@gmail.com"))])
  (dtext-mode . [(20231120 1606) ((emacs (24 4))) "Major mode for Danbooru DText" tar ((:url . "https://github.com/JohnDevlopment/dtext-mode.el") (:commit . "5c68d1c05c4606f68384569d9baaef4f6e72fc73") (:revdesc . "5c68d1c05c46") (:keywords "languages") (:authors ("John Russell" . "johndevlopment7@gmail.com")) (:maintainers ("John Russell" . "johndevlopment7@gmail.com")) (:maintainer "John Russell" . "johndevlopment7@gmail.com"))])
@@ -1190,7 +1190,7 @@
  (duplicate-thing . [(20181031 1500) nil "Duplicate current line & selection" tar ((:url . "https://github.com/ongaeshi/duplicate-thing") (:commit . "9d8fd05e3e5caa35d3f2a0c0032c92f0c0908e21") (:revdesc . "9d8fd05e3e5c") (:keywords "convenience" "command" "duplicate" "line" "selection"))])
  (dut-mode . [(20170729 2111) ((emacs (24))) "Major mode for the Dut programming language" tar ((:url . "https://github.com/dut-lang/dut-mode") (:commit . "9235c7acaa6690942e9de8b7acd1e4be0c859dc1") (:revdesc . "9235c7acaa66") (:keywords "languages" "gut"))])
  (dw . [(20210331 2311) ((emacs (25 1))) "Diceware passphrase generation commands" tar ((:url . "https://github.com/integral-dw/dw-passphrase-generator") (:commit . "61c5718ba64ace4c9e29de18aa2690ecc3f0f258") (:revdesc . "61c5718ba64a") (:keywords "convenience" "games") (:authors ("D. Williams" . "d.williams@posteo.net")) (:maintainers ("D. Williams" . "d.williams@posteo.net")) (:maintainer "D. Williams" . "d.williams@posteo.net"))])
- (dwim-coder-mode . [(20240712 1047) ((emacs (29))) "DWIM keybindings for C, Python, Rust, and more" tar ((:url . "https://gitlab.com/sadiq/dwim-coder-mode") (:commit . "02f5fa0c3ae5cc17ca860c792d988705f41b0eee") (:revdesc . "02f5fa0c3ae5") (:keywords "convenience" "hacks") (:authors ("Mohammed Sadiq" . "sadiq@sadiqpk.org")) (:maintainers ("Mohammed Sadiq" . "sadiq@sadiqpk.org")) (:maintainer "Mohammed Sadiq" . "sadiq@sadiqpk.org"))])
+ (dwim-coder-mode . [(20241121 1117) ((emacs (29))) "DWIM keybindings for C, Python, Rust, and more" tar ((:url . "https://gitlab.com/sadiq/dwim-coder-mode") (:commit . "dda1e9b991c9dc7ff2a2779731783db3176c3b61") (:revdesc . "dda1e9b991c9") (:keywords "convenience" "hacks") (:authors ("Mohammed Sadiq" . "sadiq@sadiqpk.org")) (:maintainers ("Mohammed Sadiq" . "sadiq@sadiqpk.org")) (:maintainer "Mohammed Sadiq" . "sadiq@sadiqpk.org"))])
  (dwim-shell-command . [(20241115 845) ((emacs (28 1))) "Shell commands with DWIM behaviour" tar ((:url . "https://github.com/xenodium/dwim-shell-command") (:commit . "1fa8b9d361f01618bf65111ac0b253adb0599a09") (:revdesc . "1fa8b9d361f0"))])
  (dyalog-mode . [(20230214 1027) ((cl-lib (0 2)) (emacs (24 3))) "Major mode for editing Dyalog APL source code" tar ((:url . "https://github.com/harsman/dyalog-mode") (:commit . "13c0d391aa878a1609259a89fe3e6db8d21935e8") (:revdesc . "13c0d391aa87") (:keywords "languages") (:authors ("Joakim Hårsman" . "joakim.harsman@gmail.com")) (:maintainers ("Joakim Hårsman" . "joakim.harsman@gmail.com")) (:maintainer "Joakim Hårsman" . "joakim.harsman@gmail.com"))])
  (dylan . [(20241102 2315) ((emacs (25 1))) "Dylan editing modes" tar ((:url . "https://github.com/dylan-lang/dylan-emacs-support") (:commit . "21e5953e2b1832f6a2c72012bd13795dc1ede52f") (:revdesc . "21e5953e2b18"))])
@@ -1212,7 +1212,7 @@
  (eacl . [(20220526 1434) ((emacs (25 1))) "Auto-complete lines by grepping project" tar ((:url . "https://github.com/redguardtoo/eacl") (:commit . "4fe2cafbfeb73d806ebea8801c3522ff2886f30b") (:revdesc . "4fe2cafbfeb7") (:keywords "abbrev" "convenience" "matching") (:authors ("Chen Bin" . "chenbinDOTshATgmailDOTcom")) (:maintainers ("Chen Bin" . "chenbinDOTshATgmailDOTcom")) (:maintainer "Chen Bin" . "chenbinDOTshATgmailDOTcom"))])
  (earl . [(20241020 1847) ((emacs (29 1))) "Erlang distribution protocol implementation" tar ((:url . "https://github.com/axelf4/earl") (:commit . "aa10aae9891a599f523f269cc391ed316775d12a") (:revdesc . "aa10aae9891a") (:keywords "comm" "extensions" "languages" "processes") (:authors ("Axel Forsman" . "axel@axelf.se")) (:maintainers ("Axel Forsman" . "axel@axelf.se")) (:maintainer "Axel Forsman" . "axel@axelf.se"))])
  (earthfile-mode . [(20230809 2250) ((emacs (26))) "Major mode for editing Earthly file" tar ((:url . "https://github.com/earthly/earthly-emacs") (:commit . "3029e5ab06171ca5947041e95053561e10e5ba41") (:revdesc . "3029e5ab0617") (:authors ("Thanabodee Charoenpiriyakij" . "wingyminus@gmail.com")) (:maintainers ("Thanabodee Charoenpiriyakij" . "wingyminus@gmail.com")) (:maintainer "Thanabodee Charoenpiriyakij" . "wingyminus@gmail.com"))])
- (eask . [(20241117 1929) ((emacs (26 1))) "Core Eask APIs, for Eask CLI development" tar ((:url . "https://github.com/emacs-eask/eask") (:commit . "79eef0a2d94f5f6880baa90fde50b885a71e2d2c") (:revdesc . "79eef0a2d94f") (:keywords "lisp" "eask" "api") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
+ (eask . [(20241123 1454) ((emacs (26 1))) "Core Eask APIs, for Eask CLI development" tar ((:url . "https://github.com/emacs-eask/eask") (:commit . "106755df719ceb202d52146d436f370f5bf8f095") (:revdesc . "106755df719c") (:keywords "lisp" "eask" "api") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (eask-mode . [(20240101 819) ((emacs (24 3)) (eask (0 1 0))) "Major mode for editing Eask files" tar ((:url . "https://github.com/emacs-eask/eask-mode") (:commit . "774bf05f2d778a107f27f8fa47034ad15f16395c") (:revdesc . "774bf05f2d77") (:keywords "lisp" "eask") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (easky . [(20240608 744) ((emacs (27 1)) (eask-mode (0 1 0)) (eask (0 1 0)) (ansi (0 4 1)) (lv (0 0)) (marquee-header (0 1 0))) "Control the Eask command-line interface" tar ((:url . "https://github.com/emacs-eask/easky") (:commit . "d75ec4865742a4939bd685360f8ec5b076bdcf77") (:revdesc . "d75ec4865742") (:keywords "maint" "easky") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (easy-after-load . [(20170817 1231) nil "Eval-after-load for all files in a directory" tar ((:url . "https://github.com/pd/easy-after-load") (:commit . "29e20145da49ac9ea40463c552130777408040de") (:revdesc . "29e20145da49"))])
@@ -1287,7 +1287,7 @@
  (el-get . [(20240408 837) nil "Manage the external elisp bits and pieces you depend upon" tar ((:url . "https://github.com/dimitri/el-get") (:commit . "1c5b0eb7fa162523183a96e409e4e3ae6b5cc3a0") (:revdesc . "1c5b0eb7fa16") (:keywords "emacs" "package" "elisp" "install" "elpa" "git" "git-svn" "bzr" "cvs" "svn" "darcs" "hg" "apt-get" "fink" "pacman" "http" "http-tar" "emacswiki") (:authors ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainers ("Dimitri Fontaine" . "dim@tapoueh.org")) (:maintainer "Dimitri Fontaine" . "dim@tapoueh.org"))])
  (el-init . [(20150728 920) ((emacs (24)) (cl-lib (0 5)) (anaphora (1 0 0))) "A loader inspired by init-loader" tar ((:url . "https://github.com/HKey/el-init") (:commit . "25fd21d820bca1cf576b8f70c8d5a3bc76792597") (:revdesc . "25fd21d820bc") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainers ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com"))])
  (el-init-viewer . [(20150303 828) ((emacs (24)) (cl-lib (0 5)) (ctable (0 1 2)) (dash (2 10 0)) (anaphora (1 0 0)) (el-init (0 1 4))) "Record viewer for el-init" tar ((:url . "https://github.com/HKey/el-init-viewer") (:commit . "c40417db7808c8b8c9b2f196a69de5da7eee84a2") (:revdesc . "c40417db7808") (:authors ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainers ("Hiroki YAMAKAWA" . "s06139@gmail.com")) (:maintainer "Hiroki YAMAKAWA" . "s06139@gmail.com"))])
- (el-job . [(20241119 1918) ((emacs (28 1)) (compat (30))) "Call a function using all CPU cores" tar ((:url . "https://github.com/meedstrom/el-job") (:commit . "c1d9aec762c7ca571ec61a6cbf581279bbb8ee67") (:revdesc . "c1d9aec762c7") (:keywords "processes") (:authors ("Martin Edström" . "meedstrom91@gmail.com")) (:maintainers ("Martin Edström" . "meedstrom91@gmail.com")) (:maintainer "Martin Edström" . "meedstrom91@gmail.com"))])
+ (el-job . [(20241120 2102) ((emacs (28 1)) (compat (30))) "Call a function using all CPU cores" tar ((:url . "https://github.com/meedstrom/el-job") (:commit . "307d81fd1d1c96cc3a44d9492db0886a7dafe85c") (:revdesc . "307d81fd1d1c") (:keywords "processes") (:authors ("Martin Edström" . "meedstrom91@gmail.com")) (:maintainers ("Martin Edström" . "meedstrom91@gmail.com")) (:maintainer "Martin Edström" . "meedstrom91@gmail.com"))])
  (el-mock . [(20220625 1949) nil "Tiny Mock and Stub framework in Emacs Lisp" tar ((:url . "https://github.com/rejeep/el-mock.el") (:commit . "6cfbc9de8f1927295dca6864907fe4156bd71910") (:revdesc . "6cfbc9de8f19") (:keywords "lisp" "testing" "unittest") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainers ("Johan Andersson" . "johan.rejeep@gmail.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com"))])
  (el-patch . [(20231123 2216) ((emacs (26))) "Future-proof your Elisp" tar ((:url . "https://github.com/radian-software/el-patch") (:commit . "92803e7ea6e07cd56667ed7ea0dfacfc1f37f6d9") (:revdesc . "92803e7ea6e0") (:keywords "extensions") (:authors ("Radian LLC" . "contact+el-patch@radian.codes")) (:maintainers ("Radian LLC" . "contact+el-patch@radian.codes")) (:maintainer "Radian LLC" . "contact+el-patch@radian.codes"))])
  (el-secretario . [(20220426 1905) ((emacs (27 1)) (org-ql (0 6 -1)) (hercules (0 3))) "Unify all your inboxes with the Emacs secretary" tar ((:url . "https://git.sr.ht/~zetagon/el-secretario") (:commit . "575396ca689065188ad0f90c379d9bcf7ff6fc0b") (:revdesc . "575396ca6890") (:keywords "convenience") (:authors ("Leo Okawa Ericson" . "http://github/Zetagon")) (:maintainers ("Leo" . "github@relevant-information.com")) (:maintainer "Leo" . "github@relevant-information.com"))])
@@ -1340,7 +1340,7 @@
  (elforth . [(20210522 928) ((emacs (26 1))) "Do you have what it takes to hack Emacs Lisp in Forth?" tar ((:url . "https://github.com/lassik/elforth") (:commit . "2d8540434a28e7edaa04a992c3c362832b2fd61e") (:revdesc . "2d8540434a28") (:keywords "games") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainers ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io"))])
  (elgrep . [(20230814 1215) ((emacs (26 2)) (async (1 5))) "Searching files for regular expressions" tar ((:url . "https://github.com/TobiasZawada/elgrep") (:commit . "329eaf2e9e994e5535c7f7fe2685ec21d8323384") (:revdesc . "329eaf2e9e99") (:keywords "tools" "matching" "files" "unix") (:authors ("Tobias Zawada" . "i@tn-home.de")) (:maintainers ("Tobias Zawada" . "i@tn-home.de")) (:maintainer "Tobias Zawada" . "i@tn-home.de"))])
  (elhome . [(20161025 2042) ((initsplit (20120630))) "A framework for a \"home\" Emacs configuration" tar ((:url . "https://github.com/demyanrogozhin/elhome") (:commit . "e789e806469af3e9705f72298683c21f6c3a516d") (:revdesc . "e789e806469a") (:keywords "lisp") (:authors ("Dave Abrahams" . "dave@boostpro.com")) (:maintainers ("Demyan Rogozhin" . "demyan.rogozhin@gmail.com")) (:maintainer "Demyan Rogozhin" . "demyan.rogozhin@gmail.com"))])
- (elisa . [(20241106 1905) ((emacs (29 2)) (ellama (0 11 2)) (llm (0 9 1)) (async (1 9 8)) (plz (0 9))) "Emacs Lisp Information System Assistant" tar ((:url . "https://github.com/s-kostyaev/elisa") (:commit . "4a4d1db3594a53fd90fcd453cf642d96f70a70ff") (:revdesc . "4a4d1db3594a") (:keywords "help" "local" "tools") (:authors ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainers ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com"))])
+ (elisa . [(20241123 2205) ((emacs (29 2)) (ellama (0 11 2)) (llm (0 18 1)) (async (1 9 8)) (plz (0 9))) "Emacs Lisp Information System Assistant" tar ((:url . "https://github.com/s-kostyaev/elisa") (:commit . "322d7eb839f1e981b8aa09a6ee4a7d6a22173772") (:revdesc . "322d7eb839f1") (:keywords "help" "local" "tools") (:authors ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainers ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com"))])
  (elisp-autofmt . [(20240801 1325) ((emacs (28 1))) "Emacs lisp auto-format" tar ((:url . "https://codeberg.org/ideasman42/emacs-elisp-autofmt") (:commit . "43a44dcbd17adf3b235de93e748321c7076f1c3c") (:revdesc . "43a44dcbd17a") (:authors ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainers ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainer "Campbell Barton" . "ideasman42@gmail.com"))])
  (elisp-def . [(20230901 2308) ((dash (2 12 0)) (f (0 19 0)) (s (1 11 0)) (emacs (24 3))) "Macro-aware go-to-definition for elisp" tar ((:url . "https://github.com/Wilfred/elisp-def") (:commit . "1ad4baccbf3d0d13e7607d332ae6bc60a5dd7360") (:revdesc . "1ad4baccbf3d") (:keywords "lisp") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainers ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))])
  (elisp-demos . [(20240128 810) ((emacs (26 3))) "Elisp API Demos" tar ((:url . "https://github.com/xuchunyang/elisp-demos") (:commit . "1a108d1c5011f9ced58be2ca98bea1fbd4130a2f") (:revdesc . "1a108d1c5011") (:keywords "lisp" "docs"))])
@@ -1355,7 +1355,7 @@
  (elixir-mode . [(20230626 1738) ((emacs (25))) "Major mode for editing Elixir files" tar ((:url . "https://github.com/elixir-editors/emacs-elixir") (:commit . "00d6580a040a750e019218f9392cf9a4c2dac23a") (:revdesc . "00d6580a040a") (:keywords "languages" "elixir"))])
  (elixir-ts-mode . [(20240820 947) ((emacs (29 1)) (heex-ts-mode (1 3))) "Major mode for Elixir with tree-sitter support" tar ((:url . "https://github.com/wkirschbaum/elixir-ts-mode") (:commit . "b35c983f551ccf821ebebad50747b5b417133e52") (:revdesc . "b35c983f551c") (:keywords "elixir" "languages" "tree-sitter"))])
  (elixir-yasnippets . [(20150417 1239) ((yasnippet (0 8 0))) "Yasnippets for Elixir" tar ((:url . "https://github.com/hisea/elixir-yasnippets") (:commit . "980ca7626c14ef0573bec0035ec7942796062783") (:revdesc . "980ca7626c14") (:keywords "snippets") (:authors ("Yinghai Zhao" . "zyinghai@gmail.com")) (:maintainers ("Yinghai Zhao" . "zyinghai@gmail.com")) (:maintainer "Yinghai Zhao" . "zyinghai@gmail.com"))])
- (ellama . [(20241118 1307) ((emacs (28 1)) (llm (0 6 0)) (spinner (1 7 4)) (transient (0 7 6)) (compat (29 1))) "Tool for interacting with LLMs" tar ((:url . "https://github.com/s-kostyaev/ellama") (:commit . "e8f64969d66aa71341804e0a4f8d3e7c632bf3b6") (:revdesc . "e8f64969d66a") (:keywords "help" "local" "tools") (:authors ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainers ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com"))])
+ (ellama . [(20241123 1355) ((emacs (28 1)) (llm (0 6 0)) (spinner (1 7 4)) (transient (0 7)) (compat (29 1))) "Tool for interacting with LLMs" tar ((:url . "https://github.com/s-kostyaev/ellama") (:commit . "c44d58f3f8ed05b67980fdf57279664fc0a22846") (:revdesc . "c44d58f3f8ed") (:keywords "help" "local" "tools") (:authors ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainers ("Sergey Kostyaev" . "sskostyaev@gmail.com")) (:maintainer "Sergey Kostyaev" . "sskostyaev@gmail.com"))])
  (ellocate . [(20200112 1931) ((emacs (25 1)) (s (1 12 0)) (f (0 20 0))) "The locate command reimplemented in Emacs Lisp" tar ((:url . "https://github.com/walseb/ellocate") (:commit . "81405082f68f0577c9f176d3d4f034a7142aba59") (:revdesc . "81405082f68f") (:keywords "matching") (:authors ("Sebastian Wålinder" . "s.walinder@gmail.com")) (:maintainers ("Sebastian Wålinder" . "s.walinder@gmail.com")) (:maintainer "Sebastian Wålinder" . "s.walinder@gmail.com"))])
  (elm-mode . [(20230315 1122) ((f (0 17)) (s (1 7 0)) (emacs (25 1)) (seq (2 23)) (reformatter (0 3))) "Major mode for Elm" tar ((:url . "https://github.com/jcollard/elm-mode") (:commit . "699841865e1bd5b7f2077baa7121510b6bcad3c7") (:revdesc . "699841865e1b"))])
  (elm-test-runner . [(20230905 331) ((emacs (24 4))) "Enhanced support for running elm-test" tar ((:url . "https://github.com/juanedi/elm-test-runner") (:commit . "b664e50a4c849f5f2e2f434fc01718da10515612") (:revdesc . "b664e50a4c84"))])
@@ -1387,7 +1387,7 @@
  (elune-theme . [(20231009 1709) nil "Elune theme" tar ((:url . "https://github.com/hsnovel/elune-theme") (:commit . "4d0217a7601e34fa84fc174ccf7945cd598d4135") (:revdesc . "4d0217a7601e") (:authors ("ağan Korkmaz" . "xcatalystt@gmail.com")) (:maintainers ("ağan Korkmaz" . "xcatalystt@gmail.com")) (:maintainer "ağan Korkmaz" . "xcatalystt@gmail.com"))])
  (elvish-mode . [(20180809 1612) ((emacs (24 3))) "Defines a major mode for Elvish" tar ((:url . "https://github.com/ALSchwalm/elvish-mode") (:commit . "c3a7e31564256b9755b1ab9fb40d32ad78cd1ad2") (:revdesc . "c3a7e3156425") (:authors ("Adam Schwalm" . "adamschwalm@gmail.com")) (:maintainers ("Adam Schwalm" . "adamschwalm@gmail.com")) (:maintainer "Adam Schwalm" . "adamschwalm@gmail.com"))])
  (elwm . [(20150817 1007) ((dash (1 1 0))) "Minimalistic window manager for emacs" tar ((:url . "https://github.com/Fuco1/elwm") (:commit . "c33b183f006ad476c3a44dab316f580f8b369930") (:revdesc . "c33b183f006a") (:keywords "docs") (:authors ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainers ("Matus Goljer" . "matus.goljer@gmail.com")) (:maintainer "Matus Goljer" . "matus.goljer@gmail.com"))])
- (elx . [(20240805 1311) ((emacs (26 1)) (compat (30 0 0 0)) (llama (0 3 1))) "Extract information from Emacs Lisp libraries" tar ((:url . "https://github.com/emacscollective/elx") (:commit . "be1afda54a182c726d7f0c584b2ac4854384ffda") (:revdesc . "be1afda54a18") (:keywords "docs" "libraries" "packages") (:authors ("Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev"))])
+ (elx . [(20241123 2125) ((emacs (26 1)) (compat (30 0 0 0)) (llama (0 3 1))) "Extract information from Emacs Lisp libraries" tar ((:url . "https://github.com/emacscollective/elx") (:commit . "02ceae51c97ee0b05433c58faf874f68a88fa255") (:revdesc . "02ceae51c97e") (:keywords "docs" "libraries" "packages") (:authors ("Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.elx@jonas.bernoulli.dev"))])
  (elysium . [(20241102 2222) ((emacs (27 1)) (gptel (0 9 0))) "Automatically apply LLM-created code-suggestions" tar ((:url . "https://github.com/lanceberge/elysium") (:commit . "dcb194e0e49e2c1864e0fa2ccec3d7e37b0a44b6") (:revdesc . "dcb194e0e49e") (:authors ("Lance Bergeron" . "bergeron.lance6@gmail.com")) (:maintainers ("Lance Bergeron" . "bergeron.lance6@gmail.com")) (:maintainer "Lance Bergeron" . "bergeron.lance6@gmail.com"))])
  (emacs-everywhere . [(20240509 1715) ((emacs (26 3))) "System-wide popup windows for quick edits" tar ((:url . "https://github.com/tecosaur/emacs-everywhere") (:commit . "0b731ca6da351ba40953d090acf69e81757d437b") (:revdesc . "0b731ca6da35") (:keywords "convenience" "frames") (:authors ("TEC" . "https://github.com/tecosaur")) (:maintainers ("TEC" . "contact@tecosaur.net")) (:maintainer "TEC" . "contact@tecosaur.net"))])
  (emacsc . [(20241119 1435) nil "Helper for emacsc(1)" tar ((:url . "https://github.com/knu/emacsc") (:commit . "0868b7f52adae264fb79e10e57a7481632eee76e") (:revdesc . "0868b7f52ada") (:keywords "tools") (:authors ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainers ("Akinori MUSHA" . "knu@iDaemons.org")) (:maintainer "Akinori MUSHA" . "knu@iDaemons.org"))])
@@ -1406,7 +1406,7 @@
  (embrace . [(20231027 419) ((cl-lib (0 5)) (expand-region (0 10 0))) "Add/Change/Delete pairs based on `expand-region'" tar ((:url . "https://github.com/cute-jumper/embrace.el") (:commit . "c7e748603151d7d91c237fd2d9cdf56e9f3b1ea8") (:revdesc . "c7e748603151") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainers ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))])
  (emidje . [(20190209 1726) ((emacs (25)) (cider (0 17 0)) (seq (2 16)) (magit-popup (2 4 0))) "Test runner and report viewer for Midje" tar ((:url . "https://github.com/nubank/emidje") (:commit . "7e92f053964d925c97dc8cca8d4d70a3030021db") (:revdesc . "7e92f053964d") (:keywords "tools") (:authors ("Alan Ghelardi" . "alan.ghelardi@nubank.com.br")) (:maintainers ("Alan Ghelardi" . "alan.ghelardi@nubank.com.br")) (:maintainer "Alan Ghelardi" . "alan.ghelardi@nubank.com.br"))])
  (emmet-mode . [(20240617 45) nil "Unofficial Emmet's support for emacs" tar ((:url . "https://github.com/smihica/emmet-mode") (:commit . "322d3bb112fced57d63b44863357f7a0b7eee1e3") (:revdesc . "322d3bb112fc") (:keywords "convenience") (:authors ("Shin Aoyama" . "smihica@gmail.com")) (:maintainers ("Shin Aoyama" . "smihica@gmail.com")) (:maintainer "Shin Aoyama" . "smihica@gmail.com"))])
- (emms . [(20241110 1436) ((cl-lib (0 5)) (nadvice (0 3)) (seq (0))) "The Emacs Multimedia System" tar ((:url . "https://git.savannah.gnu.org/git/emms.git") (:commit . "e8c8f948b8779b3701ef3399a7510c885a5a8886") (:revdesc . "e8c8f948b877") (:keywords "emms" "mp3" "ogg" "flac" "music" "mpeg" "video" "multimedia") (:authors ("Jorgen Schäfer" . "forcer@forcix.cx")) (:maintainers ("Yoni Rabkin" . "yrk@gnu.org")) (:maintainer "Yoni Rabkin" . "yrk@gnu.org"))])
+ (emms . [(20241122 2105) ((cl-lib (0 5)) (nadvice (0 3)) (seq (0))) "The Emacs Multimedia System" tar ((:url . "https://git.savannah.gnu.org/git/emms.git") (:commit . "732fa2b0a12c6a2e3d894fd9cbaccc2aa194fde6") (:revdesc . "732fa2b0a12c") (:keywords "emms" "mp3" "ogg" "flac" "music" "mpeg" "video" "multimedia") (:authors ("Jorgen Schäfer" . "forcer@forcix.cx")) (:maintainers ("Yoni Rabkin" . "yrk@gnu.org")) (:maintainer "Yoni Rabkin" . "yrk@gnu.org"))])
  (emms-info-mediainfo . [(20131223 1300) ((emms (0))) "Info-method for EMMS using medianfo" tar ((:url . "https://github.com/fgallina/emms-info-mediainfo") (:commit . "bce16eae9eacd38719fea62a9755225a888da59d") (:revdesc . "bce16eae9eac") (:keywords "multimedia" "processes") (:authors ("Fabián Ezequiel Gallina" . "fgallina@gnu.org")) (:maintainers ("Fabián Ezequiel Gallina" . "fgallina@gnu.org")) (:maintainer "Fabián Ezequiel Gallina" . "fgallina@gnu.org"))])
  (emms-mark-ext . [(20130529 327) ((emms (3 0))) "Extra functions for emms-mark-mode and emms-tag-edit-mode" tar ((:url . "https://github.com/vapniks/emms-mark-ext") (:commit . "ec68129e3e9e469e5bf160c6a1b7030e322f3541") (:revdesc . "ec68129e3e9e") (:keywords "convenience" "multimedia") (:authors ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainers ("Joe Bloggs" . "vapniks@yahoo.com")) (:maintainer "Joe Bloggs" . "vapniks@yahoo.com"))])
  (emms-mode-line-cycle . [(20160221 1120) ((emacs (24)) (emms (4 0))) "Display the emms mode line as a ticker" tar ((:url . "https://github.com/momomo5717/emms-mode-line-cycle") (:commit . "2c2f395e484a1d345050ddd61ff5fab71a92a6bc") (:revdesc . "2c2f395e484a") (:keywords "emms" "mode-line"))])
@@ -1441,7 +1441,7 @@
  (epc . [(20140610 534) ((concurrent (0 3 1)) (ctable (0 1 2))) "A RPC stack for the Emacs Lisp" tar ((:url . "https://github.com/kiwanami/emacs-epc") (:commit . "94cd36a3bec752263ac9b1b3a9dd2def329d2af7") (:revdesc . "94cd36a3bec7") (:keywords "lisp" "rpc") (:authors ("SAKURAI Masashi" . "m.sakuraiatkiwanami.net")) (:maintainers ("SAKURAI Masashi" . "m.sakuraiatkiwanami.net")) (:maintainer "SAKURAI Masashi" . "m.sakuraiatkiwanami.net"))])
  (epic . [(20170210 23) ((htmlize (1 47))) "Evernote Picker for Cocoa Emacs" tar ((:url . "https://github.com/yoshinari-nomura/epic") (:commit . "a41826c330eb0ea061d58a08cc861b0c4ac8ec4e") (:revdesc . "a41826c330eb") (:keywords "evernote" "applescript") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainers ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))])
  (eping . [(20201027 2149) ((emacs (25 1))) "Ping websites to check internet connectivity" tar ((:url . "https://github.com/sean-hut/eping") (:commit . "004496ee06c0b8ead4a4f49e17109e8eb32eb49d") (:revdesc . "004496ee06c0") (:keywords "comm" "processes" "terminals" "unix") (:authors ("Sean Hutchings" . "seanhut@yandex.com")) (:maintainers ("Sean Hutchings" . "seanhut@yandex.com")) (:maintainer "Sean Hutchings" . "seanhut@yandex.com"))])
- (epkg . [(20241015 1238) ((emacs (26 1)) (compat (30 0 0 0)) (closql (2 0 0)) (emacsql (4 0 2)) (llama (0 3 1))) "Browse the Emacsmirror package database" tar ((:url . "https://github.com/emacscollective/epkg") (:commit . "771a7ee802e90b4bb60c54cceb3d6bff1819dcf2") (:revdesc . "771a7ee802e9") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev"))])
+ (epkg . [(20241123 2129) ((emacs (26 1)) (compat (30 0 0 0)) (closql (2 0 0)) (emacsql (4 0 2)) (llama (0 3 1))) "Browse the Emacsmirror package database" tar ((:url . "https://github.com/emacscollective/epkg") (:commit . "cb104ca2f22686f94bbaba6b96eda0f22c094184") (:revdesc . "cb104ca2f226") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.epkg@jonas.bernoulli.dev"))])
  (epkg-marginalia . [(20240821 2319) ((emacs (27 1)) (compat (30 0 0 0)) (epkg (4 0 0)) (marginalia (1 7))) "Show Epkg information in completion annotations" tar ((:url . "https://github.com/emacscollective/epkg-marginalia") (:commit . "58d5f2b6b6f68a22510cf4301dadf2ec4b5ffcaa") (:revdesc . "58d5f2b6b6f6") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.epkg-marginalia@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.epkg-marginalia@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.epkg-marginalia@jonas.bernoulli.dev"))])
  (epl . [(20180205 2049) ((cl-lib (0 3))) "Emacs Package Library" tar ((:url . "https://github.com/cask/epl") (:commit . "78ab7a85c08222cd15582a298a364774e3282ce6") (:revdesc . "78ab7a85c082") (:keywords "convenience") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainers ("Johan Andersson" . "johan.rejeep@gmail.com") ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Johan Andersson" . "johan.rejeep@gmail.com"))])
  (epm . [(20190509 443) ((emacs (24 3)) (epl (0 8))) "Emacs Package Manager" tar ((:url . "https://github.com/xuchunyang/epm") (:commit . "6375ddbf93c5f25647f6ebb25b54045b3c93a5be") (:revdesc . "6375ddbf93c5") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainers ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com"))])
@@ -1543,7 +1543,7 @@
  (evalator-clojure . [(20160208 2148) ((cider (0 10 0)) (evalator (1 0 0))) "Clojure evaluation context for evalator via CIDER" tar ((:url . "https://github.com/seanirby/evalator-clojure") (:commit . "caa4e0a137bdfada86593128a654e16aa617ad50") (:revdesc . "caa4e0a137bd") (:keywords "languages" "clojure" "cider" "helm") (:maintainers ("Sean Irby" . "sean.t.irby@gmail.com")) (:maintainer "Sean Irby" . "sean.t.irby@gmail.com"))])
  (evangelion-theme . [(20241116 1036) ((emacs (27 1))) "A dark colour scheme inspired by Neon Genesis Evangelion" tar ((:url . "https://github.com/crmsnbleyd/evangelion-theme") (:commit . "89577330e93f1c11b3e75d1c8bbae6accc18fc48") (:revdesc . "89577330e93f") (:keywords "faces" "theme") (:authors ("Andrew Jose" . "mail@drewsh.com")) (:maintainers ("Andrew Jose" . "mail@drewsh.com")) (:maintainer "Andrew Jose" . "mail@drewsh.com"))])
  (eve-mode . [(20170822 2231) ((emacs (25)) (polymode (1 0)) (markdown-mode (2 0))) "Major mode for editing Eve documents" tar ((:url . "https://github.com/witheve/emacs-eve-mode") (:commit . "a4661114d9c18725691b76321d72167ca5a9070a") (:revdesc . "a4661114d9c1") (:keywords "languages" "wp" "tools") (:authors ("Joshua Cole" . "joshuafcole@gmail.com")) (:maintainers ("Joshua Cole" . "joshuafcole@gmail.com")) (:maintainer "Joshua Cole" . "joshuafcole@gmail.com"))])
- (evedel . [(20241114 11) ((emacs (29 1)) (gptel (0 9 0))) "Instructed LLM programmer/assistant" tar ((:url . "https://github.com/daedsidog/evedel") (:commit . "0e6faec72903e1fd541c416883696309aa300ced") (:revdesc . "0e6faec72903") (:keywords "convenience" "tools") (:authors ("daedsidog" . "contact@daedsidog.com")) (:maintainers ("daedsidog" . "contact@daedsidog.com")) (:maintainer "daedsidog" . "contact@daedsidog.com"))])
+ (evedel . [(20241124 31) ((emacs (29 1)) (gptel (0 9 0))) "Instructed LLM programmer/assistant" tar ((:url . "https://github.com/daedsidog/evedel") (:commit . "d1605980b0968e42063ae6a80344e9bb48cfd9f5") (:revdesc . "d1605980b096") (:keywords "convenience" "tools") (:authors ("daedsidog" . "contact@daedsidog.com")) (:maintainers ("daedsidog" . "contact@daedsidog.com")) (:maintainer "daedsidog" . "contact@daedsidog.com"))])
  (evenok . [(20241031 2134) ((emacs (28 1))) "Themes with perceptively evenly distributed colors" tar ((:url . "https://codeberg.org/mekeor/evenok") (:commit . "06a84eea4cf9a845266f8bde68abe25d85bd2b77") (:revdesc . "06a84eea4cf9") (:keywords "faces" "theme") (:authors ("Mekeor Melire" . "mekeor@posteo.de")) (:maintainers ("Mekeor Melire" . "mekeor@posteo.de")) (:maintainer "Mekeor Melire" . "mekeor@posteo.de"))])
  (everlasting-scratch . [(20240612 814) ((emacs (25 1))) "The *scratch* that lasts forever" tar ((:url . "https://github.com/beacoder/everlasting-scratch") (:commit . "fa1b2af29e8bb463400bbea912ab4dfaa2b0c890") (:revdesc . "fa1b2af29e8b") (:keywords "convenience" "tool") (:authors ("Huming Chen" . "chenhuming@gmail.com")) (:maintainers ("Huming Chen" . "chenhuming@gmail.com")) (:maintainer "Huming Chen" . "chenhuming@gmail.com"))])
  (evil . [(20241006 1754) ((emacs (24 1)) (cl-lib (0 5)) (goto-chg (1 6)) (nadvice (0 3))) "Extensible vi layer" tar ((:url . "https://github.com/emacs-evil/evil") (:commit . "b7ab3840dbfc1da5f9ad56542fc94e3dab4be5f1") (:revdesc . "b7ab3840dbfc") (:keywords "emulations") (:maintainers ("Tom Dalziel" . "tom.dalziel@gmail.com")) (:maintainer "Tom Dalziel" . "tom.dalziel@gmail.com"))])
@@ -1554,7 +1554,7 @@
  (evil-cleverparens . [(20240529 1025) ((evil (1 0)) (paredit (1)) (smartparens (1 6 1)) (emacs (24 4)) (dash (2 12 0))) "Evil friendly minor-mode for editing lisp" tar ((:url . "https://github.com/emacs-evil/evil-cleverparens") (:commit . "6637717af0bdac55f97eef98433d53a10395cf77") (:revdesc . "6637717af0bd") (:keywords "convenience" "emulations") (:authors ("Olli Piepponen" . "opieppo@gmail.com")) (:maintainers ("Olli Piepponen" . "opieppo@gmail.com")) (:maintainer "Olli Piepponen" . "opieppo@gmail.com"))])
  (evil-colemak-basics . [(20241004 1613) ((emacs (24 3)) (evil (1 2 12)) (evil-snipe (2 0 3))) "Basic Colemak key bindings for evil-mode" tar ((:url . "https://github.com/wbolster/emacs-evil-colemak-basics") (:commit . "9465c8da35fe7dd0f66184e671e357ec91faa3fe") (:revdesc . "9465c8da35fe") (:keywords "convenience" "emulations" "colemak" "evil") (:authors ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainers ("Wouter Bolsterlee" . "wouter@bolsterl.ee")) (:maintainer "Wouter Bolsterlee" . "wouter@bolsterl.ee"))])
  (evil-colemak-minimal . [(20171006 1317) ((emacs (24)) (evil (1 2 12))) "Minimal Colemak key bindings for evil-mode" tar ((:url . "https://github.com/bmallred/evil-colemak-minimal") (:commit . "6d98b6da60f414524a0d718f76024c26dce742b3") (:revdesc . "6d98b6da60f4") (:keywords "colemak" "evil") (:authors ("Bryan Allred" . "bryan@revolvingcow.com")) (:maintainers ("Bryan Allred" . "bryan@revolvingcow.com")) (:maintainer "Bryan Allred" . "bryan@revolvingcow.com"))])
- (evil-collection . [(20241116 1603) ((emacs (26 3)) (evil (1 2 13)) (annalist (1 0))) "A set of keybindings for Evil mode" tar ((:url . "https://github.com/emacs-evil/evil-collection") (:commit . "4f179477f7d2ab705b05f5e3524a9aa3de8d6d3d") (:revdesc . "4f179477f7d2") (:keywords "evil" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainers ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com"))])
+ (evil-collection . [(20241123 2106) ((emacs (26 3)) (evil (1 2 13)) (annalist (1 0))) "A set of keybindings for Evil mode" tar ((:url . "https://github.com/emacs-evil/evil-collection") (:commit . "2c4e2aca1ad7be8eb41e4cb9b58b8023d8a5fd8b") (:revdesc . "2c4e2aca1ad7") (:keywords "evil" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainers ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com"))])
  (evil-commentary . [(20230610 1006) ((evil (1 0 0))) "Comment stuff out. A port of vim-commentary" tar ((:url . "https://github.com/linktohack/evil-commentary") (:commit . "c5945f28ce47644c828aac1f5f6ec335478d17fb") (:revdesc . "c5945f28ce47") (:keywords "evil" "comment" "commentary" "evil-commentary") (:authors ("Quang Linh LE" . "linktohack@gmail.com")) (:maintainers ("Quang Linh LE" . "linktohack@gmail.com")) (:maintainer "Quang Linh LE" . "linktohack@gmail.com"))])
  (evil-dvorak . [(20160416 1841) ((evil (1 0 8))) "Evil keybindings for that work with dvorak mode" tar ((:url . "https://github.com/jbranso/evil-dvorak") (:commit . "e7b80077d6f332452049eb3d7ea51f6c8fbf5947") (:revdesc . "e7b80077d6f3") (:keywords "dvorak" "evil" "vim"))])
  (evil-easymotion . [(20200424 135) ((emacs (24)) (avy (0 3 0)) (cl-lib (0 5))) "A port of vim's easymotion to emacs" tar ((:url . "https://github.com/PythonNut/evil-easymotion") (:commit . "f96c2ed38ddc07908db7c3c11bcd6285a3e8c2e9") (:revdesc . "f96c2ed38ddc") (:keywords "convenience" "evil") (:authors ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainers ("PythonNut" . "pythonnut@pythonnut.com")) (:maintainer "PythonNut" . "pythonnut@pythonnut.com"))])
@@ -1563,7 +1563,7 @@
  (evil-ex-fasd . [(20180903 612) ((emacs (24 4)) (evil (1 1 0)) (fasd (0))) "Using fasd right from evil-ex" tar ((:url . "https://github.com/yqrashawn/evil-ex-fasd") (:commit . "ed8fbbe23a8a268d9dcbf1a6132e928ba2c655c5") (:revdesc . "ed8fbbe23a8a") (:keywords "tools" "fasd" "evil" "navigation") (:authors ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainers ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainer "Rashawn Zhang" . "namy.19@gmail.com"))])
  (evil-ex-shell-command . [(20181226 226) ((emacs (24 4)) (evil (1 1 0))) "Invoke shell-command right from evil-ex" tar ((:url . "https://github.com/yqrashawn/evil-ex-shell-command") (:commit . "a6ca6d27c07f6a0807abfb5b8f8865f1d17f54aa") (:revdesc . "a6ca6d27c07f") (:keywords "tools" "shell-command" "evil") (:authors ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainers ("Rashawn Zhang" . "namy.19@gmail.com")) (:maintainer "Rashawn Zhang" . "namy.19@gmail.com"))])
  (evil-exchange . [(20200118 252) ((evil (1 2 8)) (cl-lib (0 3))) "Exchange text more easily within Evil" tar ((:url . "https://github.com/Dewdrops/evil-exchange") (:commit . "3030e21ee16a42dfce7f7cf86147b778b3f5d8c1") (:revdesc . "3030e21ee16a") (:keywords "evil" "plugin") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainers ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com"))])
- (evil-expat . [(20190521 714) ((emacs (24 3)) (evil (1 0 0))) "Evil ex commands" tar ((:url . "https://github.com/edkolev/evil-expat") (:commit . "f4fcd0aa3edc359adb5c986b5dd9188d220d84e2") (:revdesc . "f4fcd0aa3edc") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainers ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com"))])
+ (evil-expat . [(20241120 1350) ((emacs (24 3)) (evil (1 0 0))) "Evil ex commands" tar ((:url . "https://github.com/edkolev/evil-expat") (:commit . "23610598a9f1450f2deafc47726d5b7ce61e8695") (:revdesc . "23610598a9f1") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainers ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com"))])
  (evil-extra-operator . [(20210225 1239) ((evil (1 0 7))) "Evil operator for evaluating codes, taking notes, searching via google, etc" tar ((:url . "https://github.com/Dewdrops/evil-extra-operator") (:commit . "49c2dae224705f05dcfa03868b9fbbb72f2b5a8d") (:revdesc . "49c2dae22470") (:keywords "evil" "plugin") (:authors ("Dewdrops" . "v_v_4474@126.com")) (:maintainers ("Dewdrops" . "v_v_4474@126.com")) (:maintainer "Dewdrops" . "v_v_4474@126.com"))])
  (evil-find-char-pinyin . [(20160514 2041) ((evil (1 2 12)) (pinyinlib (0 1 0))) "Evil's f/F/t/T/evil-snipe commands with Pinyin support" tar ((:url . "https://github.com/cute-jumper/evil-find-char-pinyin") (:commit . "04e277946d658f1a73c68dcbbadea9c21097a31c") (:revdesc . "04e277946d65") (:keywords "extensions") (:authors ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainers ("Junpeng Qiu" . "qjpchmail@gmail.com")) (:maintainer "Junpeng Qiu" . "qjpchmail@gmail.com"))])
  (evil-fringe-mark . [(20190320 453) ((emacs (24 3)) (evil (1 0 0)) (fringe-helper (0 1 1)) (goto-chg (1 6))) "Display evil-mode marks in the fringe" tar ((:url . "https://github.com/Andrew-William-Smith/evil-fringe-mark") (:commit . "a1689fddb7ee79aaa720a77aada1208b8afd5c20") (:revdesc . "a1689fddb7ee") (:authors ("Andrew Smith" . "andy.bill.smith@gmail.com")) (:maintainers ("Andrew Smith" . "andy.bill.smith@gmail.com")) (:maintainer "Andrew Smith" . "andy.bill.smith@gmail.com"))])
@@ -1574,7 +1574,7 @@
  (evil-indent-textobject . [(20130831 2219) ((evil (0))) "Evil textobjects based on indentation" tar ((:url . "https://github.com/cofi/evil-indent-textobject") (:commit . "70a1154a531b7cfdbb9a31d6922482791e20a3a7") (:revdesc . "70a1154a531b") (:keywords "convenience" "evil") (:authors ("Michael Markert" . "markert.michael@gmail.com")) (:maintainers ("Michael Markert" . "markert.michael@gmail.com")) (:maintainer "Michael Markert" . "markert.michael@gmail.com"))])
  (evil-leader . [(20140606 1243) ((evil (0))) "Let there be <leader>" tar ((:url . "https://github.com/cofi/evil-leader") (:commit . "39f7014bcf8b36463e0c7512c638bda4bac6c2cf") (:revdesc . "39f7014bcf8b") (:keywords "evil" "vim-emulation" "leader") (:authors ("Michael Markert" . "markert.michael@googlemail.com")) (:maintainers ("Michael Markert" . "markert.michael@googlemail.com")) (:maintainer "Michael Markert" . "markert.michael@googlemail.com"))])
  (evil-ledger . [(20180802 1612) ((emacs (24 4)) (evil (1 2 12)) (ledger-mode (0))) "Make `ledger-mode' more `evil'" tar ((:url . "https://github.com/atheriel/evil-ledger") (:commit . "7a9f9f5d39c42fffdba8004f8982642351f2b233") (:revdesc . "7a9f9f5d39c4") (:keywords "convenience" "evil" "languages" "ledger" "vim-emulation") (:authors ("Aaron Jacobs" . "atheriel@gmail.com")) (:maintainers ("Aaron Jacobs" . "atheriel@gmail.com")) (:maintainer "Aaron Jacobs" . "atheriel@gmail.com"))])
- (evil-lion . [(20241119 1044) ((emacs (24 3)) (evil (1 0 0))) "Evil align operator, port of vim-lion" tar ((:url . "https://github.com/edkolev/evil-lion") (:commit . "88bf528c5e79b4a7cc28525865824ad737a4b954") (:revdesc . "88bf528c5e79") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainers ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com"))])
+ (evil-lion . [(20241120 1351) ((emacs (24 3)) (evil (1 0 0))) "Evil align operator, port of vim-lion" tar ((:url . "https://github.com/edkolev/evil-lion") (:commit . "5a0bca151466960e090d1803c4c5ded88875f90a") (:revdesc . "5a0bca151466") (:keywords "emulations" "evil" "vim") (:authors ("edkolev" . "evgenysw@gmail.com")) (:maintainers ("edkolev" . "evgenysw@gmail.com")) (:maintainer "edkolev" . "evgenysw@gmail.com"))])
  (evil-lisp-state . [(20160404 248) ((evil (1 0 9)) (bind-map (0)) (smartparens (1 6 1))) "An evil state to edit Lisp code" tar ((:url . "https://github.com/syl20bnr/evil-lisp-state") (:commit . "3c65fecd9917a41eaf6460f22187e2323821f3ce") (:revdesc . "3c65fecd9917") (:keywords "convenience" "editing" "evil" "smartparens" "lisp" "mnemonic") (:authors ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainers ("Sylvain Benner" . "sylvain.benner@gmail.com")) (:maintainer "Sylvain Benner" . "sylvain.benner@gmail.com"))])
  (evil-lispops . [(20240428 1356) ((emacs (26 1)) (evil (1 2 10))) "Operations for editing lisp evilly" tar ((:url . "https://github.com/precompute/evil-lispops") (:commit . "372b52df1a45fcea6c9461e7909cfdbb1db822a9") (:revdesc . "372b52df1a45") (:authors ("precompute" . "git@precompute.net")) (:maintainers ("precompute" . "git@precompute.net")) (:maintainer "precompute" . "git@precompute.net"))])
  (evil-lispy . [(20190502 739) ((lispy (0 26 0)) (evil (1 2 12)) (hydra (0 13 5))) "Precision Lisp editing with Evil and Lispy" tar ((:url . "https://github.com/mikavilpas/evil-lispy") (:commit . "ed317f7fccbdbeea8aa04a91b1b1f48a0e2ddc4e") (:revdesc . "ed317f7fccbd") (:keywords "lisp") (:authors ("Brandon Carrell" . "brandoncarrell@gmail.com") ("Mika Vilpas" . "mika.vilpas@gmail.com")) (:maintainers ("Brandon Carrell" . "brandoncarrell@gmail.com") ("Mika Vilpas" . "mika.vilpas@gmail.com")) (:maintainer "Brandon Carrell" . "brandoncarrell@gmail.com"))])
@@ -1975,7 +1975,7 @@
  (foreign-regexp . [(20200325 50) nil "Search and replace by foreign regexp" tar ((:url . "https://github.com/k-talo/foreign-regexp.el") (:commit . "e2dd47f2160cadc194eb156e7c76c3c869e6706e") (:revdesc . "e2dd47f2160c") (:keywords "convenience" "emulations" "matching" "tools" "unix" "wp") (:authors ("K-talo Miyazaki" . "KeitarodotMiyazakiatgmaildotcom")) (:maintainers ("K-talo Miyazaki" . "KeitarodotMiyazakiatgmaildotcom")) (:maintainer "K-talo Miyazaki" . "KeitarodotMiyazakiatgmaildotcom"))])
  (foreman-mode . [(20170725 1422) ((s (1 9 0)) (dash (2 10 0)) (dash-functional (1 2 0)) (f (0 17 2)) (emacs (24))) "View and manage Procfile-based applications" tar ((:url . "https://github.com/zweifisch/foreman-mode") (:commit . "22b3bb13134b617870ed1e888af739f4818be929") (:revdesc . "22b3bb13134b") (:keywords "foreman") (:authors ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainers ("ZHOU Feng" . "zf.pascal@gmail.com")) (:maintainer "ZHOU Feng" . "zf.pascal@gmail.com"))])
  (forest-blue-theme . [(20160627 842) ((emacs (24))) "Emacs theme with a dark background" tar ((:url . "https://github.com/olkinn/forest-blue-emacs") (:commit . "58096ce1a25615d2bae806c3775bae3e2775019d") (:revdesc . "58096ce1a256"))])
- (forge . [(20241114 1523) ((emacs (27 1)) (compat (30 0 0 0)) (closql (2 0 0)) (dash (2 19 1)) (emacsql (4 0 3)) (ghub (4 1 1)) (let-alist (1 0 6)) (magit (4 1 1)) (markdown-mode (2 6)) (seq (2 24)) (transient (0 7 6)) (yaml (0 5 5))) "Access Git forges from Magit" tar ((:url . "https://github.com/magit/forge") (:commit . "969b52372a9cdddf23804c999355c72644effeb2") (:revdesc . "969b52372a9c") (:keywords "git" "tools" "vc") (:authors ("Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev"))])
+ (forge . [(20241123 2131) ((emacs (27 1)) (compat (30 0 0 0)) (closql (2 0 0)) (dash (2 19 1)) (emacsql (4 0 3)) (ghub (4 1 1)) (let-alist (1 0 6)) (magit (4 1 1)) (markdown-mode (2 6)) (seq (2 24)) (transient (0 7 6)) (yaml (0 5 5))) "Access Git forges from Magit" tar ((:url . "https://github.com/magit/forge") (:commit . "079d2d62b6c8590e7d165df7dc1517f7a3fca82c") (:revdesc . "079d2d62b6c8") (:keywords "git" "tools" "vc") (:authors ("Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.forge@jonas.bernoulli.dev"))])
  (form-feed . [(20210508 1627) ((emacs (24 1))) "Display ^L glyphs as horizontal lines" tar ((:url . "https://depp.brause.cc/form-feed.git") (:commit . "ac1f0ef30a11979f5dfe12d8c05a666739e486ff") (:revdesc . "ac1f0ef30a11") (:keywords "faces") (:authors ("Vasilij Schneidermann" . "mail@vasilij.de")) (:maintainers ("Vasilij Schneidermann" . "mail@vasilij.de")) (:maintainer "Vasilij Schneidermann" . "mail@vasilij.de"))])
  (form-feed-st . [(20231002 2211) ((emacs (25 1))) "Display ^L glyphs as full-width horizontal lines" tar ((:url . "https://github.com/leodag/form-feed-st") (:commit . "f91c8daf35b7588e0aa24c8716c8cfd8ff0067c8") (:revdesc . "f91c8daf35b7") (:keywords "faces"))])
  (format-all . [(20241001 839) ((emacs (24 4)) (inheritenv (0 1)) (language-id (0 20))) "Auto-format C, C++, JS, Python, Ruby and 50 other languages" tar ((:url . "https://github.com/lassik/emacs-format-all-the-code") (:commit . "9ae47456dad2925e4d41f58bd2c864b87f82aa8b") (:revdesc . "9ae47456dad2") (:keywords "languages" "util") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainers ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io"))])
@@ -2018,7 +2018,7 @@
  (function-args . [(20220516 1226) ((ivy (0 9 1))) "C++ completion for GNU Emacs" tar ((:url . "https://github.com/abo-abo/function-args") (:commit . "beba049751fed78666c87bd146a6f1cf149bb819") (:revdesc . "beba049751fe") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainers ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com"))])
  (fuo . [(20190812 927) ((emacs (24 4))) "Feeluown client" tar ((:url . "https://github.com/feeluown/emacs-fuo") (:commit . "0e4122f94a336a50c02bc96652d25ac3d74bedeb") (:revdesc . "0e4122f94a33") (:keywords "feeluown" "multimedia" "unix") (:authors ("cosven" . "yinshaowen241@gmail.com")) (:maintainers ("cosven" . "yinshaowen241@gmail.com")) (:maintainer "cosven" . "yinshaowen241@gmail.com"))])
  (furl . [(20150509 316) nil "Friendly URL retrieval" tar ((:url . "https://github.com/nex3/furl-el") (:commit . "014438271e0ef27333dfcd599cb247f12a20d870") (:revdesc . "014438271e0e") (:authors ("Natalie Weizenbaum" . "nweiz@google.com")) (:maintainers ("Natalie Weizenbaum" . "nweiz@google.com")) (:maintainer "Natalie Weizenbaum" . "nweiz@google.com"))])
- (fussy . [(20240607 2153) ((emacs (27 2)) (flx (0 5))) "Fuzzy completion style using `flx'" tar ((:url . "https://github.com/jojojames/fussy") (:commit . "21f4ac6b971f61890d46308d7ac5db64c20228e6") (:revdesc . "21f4ac6b971f") (:keywords "matching") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainers ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com"))])
+ (fussy . [(20241123 2300) ((emacs (27 2)) (flx (0 5))) "Fuzzy completion style using `flx'" tar ((:url . "https://github.com/jojojames/fussy") (:commit . "edd8c1adf052b1801259062add7eeb80f80266a4") (:revdesc . "edd8c1adf052") (:keywords "matching") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainers ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com"))])
  (futhark-mode . [(20241120 854) ((emacs (24 3)) (cl-lib (0 5)) (reformatter (0 4))) "Major mode for editing Futhark source files" tar ((:url . "https://github.com/diku-dk/futhark-mode") (:commit . "a9cb4ee550d1ae14a7274d4e0c9bb6a2dff17c5a") (:revdesc . "a9cb4ee550d1") (:keywords "languages"))])
  (fuz . [(20200104 524) ((emacs (25 1))) "Fast and precise fuzzy scoring/matching utils" tar ((:url . "https://github.com/rustify-emacs/fuz.el") (:commit . "0b6b64cebde5675be3a28520ee16234db48d3b8b") (:revdesc . "0b6b64cebde5") (:keywords "lisp") (:authors ("Zhu Zihao" . "all_but_last@163.com")) (:maintainers ("Zhu Zihao" . "all_but_last@163.com")) (:maintainer "Zhu Zihao" . "all_but_last@163.com"))])
  (fuzzy . [(20240101 830) ((emacs (24 3))) "Fuzzy Matching" tar ((:url . "https://github.com/auto-complete/fuzzy-el") (:commit . "295140da741ac02c1bd3dec69ccf7f6268d60ec5") (:revdesc . "295140da741a") (:keywords "convenience") (:authors ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainers ("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) (:maintainer "Tomohiro Matsuyama" . "m2ym.pub@gmail.com"))])
@@ -2055,7 +2055,7 @@
  (geiser-stklos . [(20231004 2013) ((emacs (24 4)) (geiser (0 16))) "STklos Scheme implementation of the geiser protocols" tar ((:url . "https://gitlab.com/emacs-geiser/stklos") (:commit . "c634fc2049f1616b772f5e9cb78c6171dcc4c34d") (:revdesc . "c634fc2049f1") (:keywords "languages" "stklos" "scheme" "geiser") (:authors ("Jeronimo Pellegrini" . "(j_p@aleph0.info)")) (:maintainers ("Jeronimo Pellegrini" . "(j_p@aleph0.info)")) (:maintainer "Jeronimo Pellegrini" . "(j_p@aleph0.info)"))])
  (gemini-mode . [(20221127 1619) ((emacs (24 4))) "A simple highlighting package for text/gemini" tar ((:url . "https://git.carcosa.net/jmcbray/gemini.el.git") (:commit . "a7dd7c6ea4e036d0d5ecc4a5d284874c400f10ba") (:revdesc . "a7dd7c6ea4e0") (:keywords "languages") (:authors ("Jason McBrayer" . "jmcbray@carcosa.net") ("tastytea" . "tastytea@tastytea.de") ("tienne Deparis" . "etienne@depar.is")) (:maintainers ("Jason McBrayer" . "jmcbray@carcosa.net") ("tastytea" . "tastytea@tastytea.de") ("tienne Deparis" . "etienne@depar.is")) (:maintainer "Jason McBrayer" . "jmcbray@carcosa.net"))])
  (gemini-write . [(20211114 1032) ((emacs (26)) (elpher (2 8 0)) (gemini-mode (1 0 0))) "Elpher for Titan" tar ((:url . "https://alexschroeder.ch/cgit/gemini-write") (:commit . "2a7d07d0ce4c5b8750f3ff1182ad94ee616734c8") (:revdesc . "2a7d07d0ce4c") (:keywords "comm" "gemini") (:authors ("Alex Schroeder" . "alex@gnu.org")) (:maintainers ("Alex Schroeder" . "alex@gnu.org")) (:maintainer "Alex Schroeder" . "alex@gnu.org"))])
- (gemtext-mode . [(20231029 2010) ((emacs (29 1))) "Major mode for Gemtext-formatted text" tar ((:url . "https://git.sr.ht/~arjca/gemtext-mode.el") (:commit . "431b3b1d7c4310ef09ba16adbc870bc0af2c0e9b") (:revdesc . "431b3b1d7c43") (:keywords "languages" "gemtext" "gemini") (:authors ("Antoine Aubé" . "courriel@arjca.fr")) (:maintainers ("Antoine Aubé" . "courriel@arjca.fr")) (:maintainer "Antoine Aubé" . "courriel@arjca.fr"))])
+ (gemtext-mode . [(20241123 947) ((emacs (29 1))) "Major mode for Gemtext-formatted text" tar ((:url . "https://git.sr.ht/~arjca/gemtext-mode.el") (:commit . "bdaa67f9ffbc5ea31438eb68d444082a11994226") (:revdesc . "bdaa67f9ffbc") (:keywords "languages" "gemtext" "gemini") (:authors ("Antoine Aubé" . "courriel@arjca.fr")) (:maintainers ("Antoine Aubé" . "courriel@arjca.fr")) (:maintainer "Antoine Aubé" . "courriel@arjca.fr"))])
  (general . [(20240410 1650) ((emacs (24 4)) (cl-lib (0 5))) "Convenience wrappers for keybindings" tar ((:url . "https://github.com/noctuid/general.el") (:commit . "826bf2b97a0fb4a34c5eb96ec2b172d682fd548f") (:revdesc . "826bf2b97a0f") (:keywords "vim" "evil" "leader" "keybindings" "keys") (:authors ("Fox Kiester" . "noct@posteo.net")) (:maintainers ("Fox Kiester" . "noct@posteo.net")) (:maintainer "Fox Kiester" . "noct@posteo.net"))])
  (genexpr-mode . [(20240930 1335) ((emacs (27 1))) "Major mode for editing GenExpr files" tar ((:url . "https://github.com/larme/genexpr-mode") (:commit . "27d9d4d32aef1799698ddbf75e92cb71d0ce99bf") (:revdesc . "27d9d4d32aef") (:keywords "languages" "dsp") (:authors ("Zhao Shenyang" . "dev@zsy.im")) (:maintainers ("Zhao Shenyang" . "dev@zsy.im")) (:maintainer "Zhao Shenyang" . "dev@zsy.im"))])
  (genrnc . [(20140612 1237) ((deferred (0 3 1)) (concurrent (0 3)) (log4e (0 2 0)) (yaxception (0 1))) "Generate RELAX NG Compact Schema from RELAX NG Schema, XML Schema and DTD" tar ((:url . "https://github.com/aki2o/emacs-genrnc") (:commit . "da75b1966a73ad215ec2ced4522c25f4d0bf1f9a") (:revdesc . "da75b1966a73") (:keywords "xml") (:authors ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainers ("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) (:maintainer "Hiroaki Otsu" . "ootsuhiroaki@gmail.com"))])
@@ -2076,7 +2076,7 @@
  (gherkin-mode . [(20171224 1353) nil "An emacs major mode for editing gherkin files" tar ((:url . "https://github.com/candera/gherkin-mode") (:commit . "0313492e7da152f0aa73ddf96c0287ded8f51253") (:revdesc . "0313492e7da1") (:keywords "languages"))])
  (ghost-blog . [(20171023 742) ((markdown-mode (1 0))) "A package to manage Ghost blog" tar ((:url . "https://github.com/javaguirre/ghost-blog-emacs") (:commit . "71b358643cc9a2db1bf752281ff94aba9b59e4cc") (:revdesc . "71b358643cc9") (:keywords "ghost" "blog") (:authors ("Javier Aguirre" . "hello@javaguirre.net")) (:maintainers ("Javier Aguirre" . "hello@javaguirre.net")) (:maintainer "Javier Aguirre" . "hello@javaguirre.net"))])
  (ghq . [(20230510 332) ((emacs (26 1)) (dash (2 18 0)) (s (1 7 0))) "Ghq interface for emacs" tar ((:url . "https://github.com/lafrenierejm/emacs-ghq") (:commit . "eb197c14e53ac57a136ea8d34eec7528487c3301") (:revdesc . "eb197c14e53a") (:keywords "convenience") (:authors ("Roman Coedo" . "romancoedo@gmail.com")) (:maintainers ("Joseph LaFreniere" . "joseph@lafreniere.xyz")) (:maintainer "Joseph LaFreniere" . "joseph@lafreniere.xyz"))])
- (ghub . [(20241001 1025) ((emacs (26 3)) (compat (30 0 0 0)) (let-alist (1 0 6)) (treepy (0 1 2))) "Client libraries for Git forge APIs" tar ((:url . "https://github.com/magit/ghub") (:commit . "23d1cd6b089db6619d02d66957c6a274311abd60") (:revdesc . "23d1cd6b089d") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev"))])
+ (ghub . [(20241123 2135) ((emacs (26 3)) (compat (30 0 0 0)) (let-alist (1 0 6)) (treepy (0 1 2))) "Client libraries for Git forge APIs" tar ((:url . "https://github.com/magit/ghub") (:commit . "4f39b86544ab064204efd0dda381af90fae70f43") (:revdesc . "4f39b86544ab") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.ghub@jonas.bernoulli.dev"))])
  (ghub+ . [(20191229 1748) ((emacs (25)) (ghub (2 0)) (apiwrap (0 5))) "A thick GitHub API client built on ghub" tar ((:url . "https://github.com/vermiculus/ghub-plus") (:commit . "b1adef2402d7599911d4dd447a987a0cea04e6fe") (:revdesc . "b1adef2402d7") (:keywords "extensions" "multimedia" "tools") (:authors ("Sean Allred" . "code@seanallred.com")) (:maintainers ("Sean Allred" . "code@seanallred.com")) (:maintainer "Sean Allred" . "code@seanallred.com"))])
  (gif-screencast . [(20230728 1144) ((emacs (25 1))) "One-frame-per-action GIF recording" tar ((:url . "https://gitlab.com/Ambrevar/emacs-gif-screencast") (:commit . "6798656d3d3107d16e30cc26bc3928b00e50c1ca") (:revdesc . "6798656d3d31") (:keywords "multimedia" "screencast") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainers ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainer "Pierre Neidhardt" . "mail@ambrevar.xyz"))])
  (gift-mode . [(20210528 1459) nil "Major mode for editing GIFT format quizzes" tar ((:url . "https://github.com/csrhodes/gift-mode") (:commit . "c93354e8fe1173b22f398f17b127875807f15b87") (:revdesc . "c93354e8fe11") (:authors ("Christophe Rhodes" . "christophe@rhodes.io")) (:maintainers ("Christophe Rhodes" . "christophe@rhodes.io")) (:maintainer "Christophe Rhodes" . "christophe@rhodes.io"))])
@@ -2112,7 +2112,7 @@
  (git-msg-prefix . [(20191031 1304) ((emacs (24)) (s (1 10 0)) (dash (2 9 0))) "Insert commit message prefix (issue number)" tar ((:url . "https://github.com/kidd/git-msg-prefix.el") (:commit . "43f6b31c1090371260a2f15b2117a7666920bee7") (:revdesc . "43f6b31c1090") (:keywords "vc" "tools") (:authors ("Raimon Grau" . "raimonster@gmail.com")) (:maintainers ("Raimon Grau" . "raimonster@gmail.com")) (:maintainer "Raimon Grau" . "raimonster@gmail.com"))])
  (git-ps1-mode . [(20200113 704) nil "Global minor-mode to print __git_ps1 in mode-line" tar ((:url . "https://github.com/10sr/git-ps1-mode-el") (:commit . "6762a309bd593d26258dfbf43e7bc21254a70fbf") (:revdesc . "6762a309bd59") (:keywords "utility" "mode-line" "git") (:authors ("10sr" . "8slashes+el[at]gmail[dot]com")) (:maintainers ("10sr" . "8slashes+el[at]gmail[dot]com")) (:maintainer "10sr" . "8slashes+el[at]gmail[dot]com"))])
  (git-time-metric . [(20181116 2011) nil "Provide function to record time with gtm ( git time metric )" tar ((:url . "https://github.com/c301/gtm-emacs-plugin") (:commit . "287108ed1d6885dc795eb3bad4476aa08c626186") (:revdesc . "287108ed1d68") (:keywords "tools" "gtm" "productivity" "time") (:authors ("Anton Sivolapov" . "anton.sivolapov@gmail.com")) (:maintainers ("Anton Sivolapov" . "anton.sivolapov@gmail.com")) (:maintainer "Anton Sivolapov" . "anton.sivolapov@gmail.com"))])
- (git-timemachine . [(20240427 924) ((emacs (24 3)) (transient (0 1 0))) "Walk through git revisions of a file" tar ((:url . "https://codeberg.org/pidu/git-timemachine") (:commit . "3780835fcd67c3703ffa768206121851e6895ece") (:revdesc . "3780835fcd67") (:keywords "vc") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainers ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se"))])
+ (git-timemachine . [(20241123 1033) ((emacs (24 3)) (transient (0 1 0))) "Walk through git revisions of a file" tar ((:url . "https://codeberg.org/pidu/git-timemachine") (:commit . "2f8d2bd2cb815873d14d333b217d1fdfefca1731") (:revdesc . "2f8d2bd2cb81") (:keywords "vc") (:authors ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainers ("Peter Stiernström" . "peter@stiernstrom.se")) (:maintainer "Peter Stiernström" . "peter@stiernstrom.se"))])
  (git-walktree . [(20191101 302) ((emacs (26 1)) (git (0 1 1)) (cl-lib (0 5))) "Browse Git tree and blob objects" tar ((:url . "https://github.com/10sr/git-walktree-el") (:commit . "a1a5490b89d193724ec637818baf2d8edf97c638") (:revdesc . "a1a5490b89d1") (:keywords "vc" "utility" "git") (:authors ("10sr" . "8.slashes[at]gmail[dot]com")) (:maintainers ("10sr" . "8.slashes[at]gmail[dot]com")) (:maintainer "10sr" . "8.slashes[at]gmail[dot]com"))])
  (git-wip-timemachine . [(20150408 1006) ((s (1 9 0))) "Walk through git-wip revisions of a file" tar ((:url . "https://github.com/itsjeyd/git-wip-timemachine") (:commit . "1ce257e6c25117b01f1b899aca21e07eae084d40") (:revdesc . "1ce257e6c251") (:keywords "git") (:authors ("Tim Krones" . "t.krones@gmx.net")) (:maintainers ("Tim Krones" . "t.krones@gmx.net")) (:maintainer "Tim Krones" . "t.krones@gmx.net"))])
  (gitconfig . [(20130718 935) nil "Emacs lisp interface to work with git-config variables" tar ((:url . "https://github.com/tonini/gitconfig.el") (:commit . "6c313a39e20702ddcebc12d146f69db1ce668901") (:revdesc . "6c313a39e207") (:keywords "git" "gitconfig" "git-config"))])
@@ -2230,7 +2230,7 @@
  (gpt . [(20241020 1841) ((emacs (24 4))) "Run instruction-following language models" tar ((:url . "https://github.com/stuhlmueller/gpt.el") (:commit . "3f3d0c4c1f2d5460ed3296a63c7938c5040aaa8e") (:revdesc . "3f3d0c4c1f2d") (:keywords "openai" "anthropic" "claude" "language" "copilot" "convenience" "tools") (:authors ("Andreas Stuhlmueller" . "andreas@ought.org")) (:maintainers ("Andreas Stuhlmueller" . "andreas@ought.org")) (:maintainer "Andreas Stuhlmueller" . "andreas@ought.org"))])
  (gpt-commit . [(20230716 331) ((emacs (27 1)) (magit (2 90)) (request (0 3 2))) "Commit messages with GPT in Emacs" tar ((:url . "https://github.com/ywkim/gpt-commit") (:commit . "8a8883be2051eed499c5bc3035a75ff56d64d5ff") (:revdesc . "8a8883be2051") (:authors ("Youngwook Kim" . "youngwook.kim@gmail.com")) (:maintainers ("Youngwook Kim" . "youngwook.kim@gmail.com")) (:maintainer "Youngwook Kim" . "youngwook.kim@gmail.com"))])
  (gptai . [(20230530 1853) ((emacs (24 1))) "Integrate with the OpenAI API" tar ((:url . "https://github.com/antonhibl/gptai") (:commit . "e7b8b91b425986868e8bc0edcac384ba47d4d4b7") (:revdesc . "e7b8b91b4259") (:keywords "comm" "convenience") (:authors ("Anton Hibl" . "antonhibl11@gmail.com")) (:maintainers ("Anton Hibl" . "antonhibl11@gmail.com")) (:maintainer "Anton Hibl" . "antonhibl11@gmail.com"))])
- (gptel . [(20241115 456) ((emacs (27 1)) (transient (0 4 0)) (compat (29 1 4 1))) "Interact with ChatGPT or other LLMs" tar ((:url . "https://github.com/karthink/gptel") (:commit . "51ae43f4edefe0375acbcb836d94d8d0348a531d") (:revdesc . "51ae43f4edef") (:keywords "convenience") (:authors ("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")) (:maintainers ("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")) (:maintainer "Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com"))])
+ (gptel . [(20241123 2058) ((emacs (27 1)) (transient (0 4 0)) (compat (29 1 4 1))) "Interact with ChatGPT or other LLMs" tar ((:url . "https://github.com/karthink/gptel") (:commit . "20e07943d792133ba57a325e123436de471e1429") (:revdesc . "20e07943d792") (:keywords "convenience") (:authors ("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")) (:maintainers ("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")) (:maintainer "Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com"))])
  (gpx . [(20240609 2200) ((emacs (27 1))) "Major mode for GPX files" tar ((:url . "https://github.com/mkcms/gpx-mode") (:commit . "88aa5fed1b0987d90f442eb002ab0f2e4731e223") (:revdesc . "88aa5fed1b09") (:keywords "data" "tools") (:authors ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainers ("Michał Krzywkowski" . "k.michal@zoho.com")) (:maintainer "Michał Krzywkowski" . "k.michal@zoho.com"))])
  (grab-mac-link . [(20210511 1303) ((emacs (24))) "Grab link from Mac Apps and insert it into Emacs" tar ((:url . "https://github.com/xuchunyang/grab-mac-link.el") (:commit . "5fdb03bf57bc4a530374b896e0f8b5139dc794e3") (:revdesc . "5fdb03bf57bc") (:keywords "mac" "hyperlink"))])
  (grab-x-link . [(20191113 848) ((emacs (24)) (cl-lib (0 5))) "Grab links from X11 apps and insert into Emacs" tar ((:url . "https://github.com/xuchunyang/grab-x-link") (:commit . "d898db46e4864118359fdedfe915e180de3fe290") (:revdesc . "d898db46e486") (:keywords "hyperlink") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainers ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me"))])
@@ -2326,7 +2326,7 @@
  (heaven-and-hell . [(20190713 1830) ((emacs (24 4))) "Easy toggle light/dark themes" tar ((:url . "https://github.com/valignatev/heaven-and-hell") (:commit . "e1febfd60d060c110a1e43c5f093cd8537251308") (:revdesc . "e1febfd60d06") (:keywords "faces") (:authors ("Valentin Ignatev" . "valentignatev@gmail.com")) (:maintainers ("Valentin Ignatev" . "valentignatev@gmail.com")) (:maintainer "Valentin Ignatev" . "valentignatev@gmail.com"))])
  (heex-ts-mode . [(20240113 1104) ((emacs (29 1))) "Major mode for Heex with tree-sitter support" tar ((:url . "https://github.com/wkirschbaum/heex-ts-mode") (:commit . "90142df2929956536dc1eaae3bb5ca04dc4232ab") (:revdesc . "90142df29299") (:keywords "heex" "languages" "tree-sitter"))])
  (helix-theme . [(20240814 1212) nil "Color theme inspired by Helix editor's default colors" tar ((:url . "https://github.com/ibakepunk/helix-theme") (:commit . "8c70b48fe5fbb392d237b6be2ae9da7b84236320") (:revdesc . "8c70b48fe5fb") (:keywords "faces"))])
- (helm . [(20241112 620) ((helm-core (4 0)) (wfnames (1 2))) "Helm is an Emacs incremental and narrowing framework" tar ((:url . "https://github.com/emacs-helm/helm") (:commit . "0e2aef09de299e72f7fd914191713989de760166") (:revdesc . "0e2aef09de29") (:keywords "helm" "convenience" "files" "buffers" "grep" "completion" "lisp" "matching" "tools" "help") (:authors ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
+ (helm . [(20241124 730) ((helm-core (4 0)) (wfnames (1 2))) "Helm is an Emacs incremental and narrowing framework" tar ((:url . "https://github.com/emacs-helm/helm") (:commit . "41bd8802171abbac29d5e494ad15cbf08776f2d7") (:revdesc . "41bd8802171a") (:keywords "helm" "convenience" "files" "buffers" "grep" "completion" "lisp" "matching" "tools" "help") (:authors ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
  (helm-R . [(20120820 14) ((helm (20120517)) (ess (20120509))) "Helm-sources and some utilities for GNU R" tar ((:url . "https://github.com/myuhe/helm-R.el") (:commit . "b0eb9d5f6a483a9dbe6eb6cf1f2024d4f5938bc2") (:revdesc . "b0eb9d5f6a48") (:keywords "convenience") (:authors ("myuhe" . "yuhei.maeda_at_gmail.com")))])
  (helm-ack . [(20141030 1226) ((helm (1 0)) (cl-lib (0 5))) "Ack command with helm interface" tar ((:url . "https://github.com/emacsorphanage/helm-ack") (:commit . "5982f3cb6ec9f460ebbe06ec0ce7b3590bca3118") (:revdesc . "5982f3cb6ec9") (:authors ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainers ("Syohei YOSHIDA" . "syohex@gmail.com")) (:maintainer "Syohei YOSHIDA" . "syohex@gmail.com"))])
  (helm-ad . [(20151209 1015) ((dash (2 8 0)) (helm (1 6 2))) "Helm source for Active Directory" tar ((:url . "https://github.com/tnoda/helm-ad") (:commit . "8ac044705d8620ee354a9cfa8cc1b865e83c0d55") (:revdesc . "8ac044705d86") (:keywords "comm") (:authors ("Takahiro Noda" . "takahiro.noda+github@gmail.com")) (:maintainers ("Takahiro Noda" . "takahiro.noda+github@gmail.com")) (:maintainer "Takahiro Noda" . "takahiro.noda+github@gmail.com"))])
@@ -2360,7 +2360,7 @@
  (helm-comint . [(20231102 2029) ((emacs (25 1)) (helm (3 9 4))) "Comint prompt navigation for helm" tar ((:url . "https://github.com/emacs-helm/helm-comint") (:commit . "9215b2aa8f42f62cbda66a1503832abb7f491549") (:revdesc . "9215b2aa8f42") (:keywords "processes" "matching") (:authors ("Pierre Neidhardt" . "mail@ambrevar.xyz")) (:maintainers ("Benedict Wang" . "foss@bhw.name")) (:maintainer "Benedict Wang" . "foss@bhw.name"))])
  (helm-commandlinefu . [(20150611 545) ((emacs (24 1)) (helm (1 7 0)) (json (1 3)) (let-alist (1 0 3))) "Search and browse commandlinefu.com from helm" tar ((:url . "https://github.com/xuchunyang/helm-commandlinefu") (:commit . "9ee7e018c5db23ae9c8d1c8fa969876f15b7280d") (:revdesc . "9ee7e018c5db") (:keywords "commandlinefu.com") (:authors ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainers ("Chunyang Xu" . "xuchunyang56@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang56@gmail.com"))])
  (helm-company . [(20231113 701) ((helm (1 5 9)) (company (0 10 0))) "Helm interface for company-mode" tar ((:url . "https://github.com/Sodel-the-Vociferous/helm-company") (:commit . "4622b82353220ee6cc33468f710fa5b6b253b7f1") (:revdesc . "4622b8235322") (:authors ("Yasuyuki Oka" . "yasuyk@gmail.com")) (:maintainers ("Daniel Ralston" . "Sodel-the-Vociferous@users.noreply.github.com")) (:maintainer "Daniel Ralston" . "Sodel-the-Vociferous@users.noreply.github.com"))])
- (helm-core . [(20241109 438) ((emacs (25 1)) (async (1 9 8))) "Development files for Helm" tar ((:url . "https://github.com/emacs-helm/helm") (:commit . "dd059c1f7022391466ac339c2c64bad5a30c498c") (:revdesc . "dd059c1f7022") (:authors ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
+ (helm-core . [(20241124 745) ((emacs (25 1)) (async (1 9 8))) "Development files for Helm" tar ((:url . "https://github.com/emacs-helm/helm") (:commit . "4999541feab3e859a14ed36f1fd13a1104483e7b") (:revdesc . "4999541feab3") (:authors ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainers ("Thierry Volpiatto" . "thievol@posteo.net")) (:maintainer "Thierry Volpiatto" . "thievol@posteo.net"))])
  (helm-cscope . [(20190615 41) ((xcscope (1 0)) (helm (1 6 7)) (cl-lib (0 5)) (emacs (24 1))) "Helm interface for xcscope.el" tar ((:url . "https://github.com/alpha22jp/helm-cscope.el") (:commit . "af1d9e7f4460a88d7400b5a74d5da68084089ac1") (:revdesc . "af1d9e7f4460") (:keywords "cscope" "helm") (:authors ("alpha22jp" . "alpha22jp@gmail.com")) (:maintainers ("alpha22jp" . "alpha22jp@gmail.com")) (:maintainer "alpha22jp" . "alpha22jp@gmail.com"))])
  (helm-css-scss . [(20230522 1113) ((emacs (24 3)) (helm (1 0))) "CSS/SCSS/LESS Selectors with helm interface" tar ((:url . "https://github.com/emacsorphanage/helm-css-scss") (:commit . "2169d83d8fdc661241df208cb3235112735d936e") (:revdesc . "2169d83d8fdc") (:keywords "convenience" "scss" "css" "less" "selector" "helm"))])
  (helm-ctest . [(20220721 400) ((s (1 9 0)) (dash (2 11 0)) (helm-core (3 6 0))) "Run ctest from within emacs" tar ((:url . "https://github.com/danlamanna/helm-ctest") (:commit . "48edc9fa862219da34feb423c06c33d8f6d43722") (:revdesc . "48edc9fa8622") (:keywords "helm" "ctest") (:authors ("Dan LaManna" . "me@danlamanna.com")) (:maintainers ("Dan LaManna" . "me@danlamanna.com")) (:maintainer "Dan LaManna" . "me@danlamanna.com"))])
@@ -2610,7 +2610,7 @@
  (hydandata-light-theme . [(20190809 1925) nil "A light color theme that is easy on your eyes" tar ((:url . "https://github.com/chkhd/hydandata-light-theme") (:commit . "812ffa4bee3163098ef66ee4506feed45018be4e") (:revdesc . "812ffa4bee31") (:keywords "color-theme" "theme") (:authors ("David Chkhikvadze" . "david@chkhd.net")) (:maintainers ("David Chkhikvadze" . "david@chkhd.net")) (:maintainer "David Chkhikvadze" . "david@chkhd.net"))])
  (hyde . [(20160508 308) nil "Major mode to help create and manage Jekyll blogs" tar ((:url . "https://github.com/nibrahim/Hyde") (:commit . "a8cd6ed00ecd8d7de0ded2f4867015b412b15b76") (:revdesc . "a8cd6ed00ecd"))])
  (hydra . [(20220910 1206) ((cl-lib (0 5)) (lv (0))) "Make bindings that stick around" tar ((:url . "https://github.com/abo-abo/hydra") (:commit . "317e1de33086637579a7aeb60f77ed0405bf359b") (:revdesc . "317e1de33086") (:keywords "bindings") (:authors ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainers ("Oleh Krehel" . "ohwoeowho@gmail.com")) (:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com"))])
- (hyperbole . [(20241119 534) ((emacs (27 2))) "GNU Hyperbole: The Everyday Hypertextual Information Manager" tar ((:url . "https://git.savannah.gnu.org/git/hyperbole.git") (:commit . "f2b98683ef86cc6464fbff59f9ae07e69999a943") (:revdesc . "f2b98683ef86") (:keywords "comm" "convenience" "files" "frames" "hypermedia" "languages" "mail" "matching" "mouse" "multimedia" "outlines" "tools" "wp") (:authors ("Robert Weiner" . "rsw@gnu.org")) (:maintainers ("Robert Weiner" . "rsw@gnu.org")) (:maintainer "Robert Weiner" . "rsw@gnu.org"))])
+ (hyperbole . [(20241124 812) ((emacs (27 2))) "GNU Hyperbole: The Everyday Hypertextual Information Manager" tar ((:url . "https://git.savannah.gnu.org/git/hyperbole.git") (:commit . "32539095993667792ab59ec5084611f5cc10f420") (:revdesc . "325390959936") (:keywords "comm" "convenience" "files" "frames" "hypermedia" "languages" "mail" "matching" "mouse" "multimedia" "outlines" "tools" "wp") (:authors ("Robert Weiner" . "rsw@gnu.org")) (:maintainers ("Robert Weiner" . "rsw@gnu.org")) (:maintainer "Robert Weiner" . "rsw@gnu.org"))])
  (hyperdrive . [(20241101 2353) ((emacs (28 1)) (map (3 0)) (compat (30 0 0 0)) (org (9 7 6)) (plz (0 9 1)) (persist (0 6 1)) (taxy-magit-section (0 14)) (transient (0 7 7))) "P2P filesystem" tar ((:url . "https://git.sr.ht/~ushin/hyperdrive.el") (:commit . "581752cad8bcd701c863b08a779e4ca982325cae") (:revdesc . "581752cad8bc") (:authors ("Joseph Turner" . "joseph@ushin.org")) (:maintainers ("Joseph Turner" . "~ushin/ushin@lists.sr.ht")) (:maintainer "Joseph Turner" . "~ushin/ushin@lists.sr.ht"))])
  (hyperdrive-org-transclusion . [(20241028 427) ((emacs (28 1)) (hyperdrive (0 4 2)) (org-transclusion (1 4 0))) "Tranclude hyperdrive content" tar ((:url . "https://git.sr.ht/~ushin/hyperdrive-org-transclusion") (:commit . "252e2df3fe7a07a122a365a637c47a43b26e179c") (:revdesc . "252e2df3fe7a") (:authors ("Joseph Turner" . "joseph@ushin.org")) (:maintainers ("Joseph Turner" . "~ushin/ushin@lists.sr.ht")) (:maintainer "Joseph Turner" . "~ushin/ushin@lists.sr.ht"))])
  (hyperkitty . [(20220226 1951) ((request (0 3 2)) (emacs (25 1))) "Emacs interface for Hyperkitty archives" tar ((:url . "https://github.com/maxking/hyperkitty.el") (:commit . "2c1d22ff017d096c359aa151e6a29f7214a58118") (:revdesc . "2c1d22ff017d") (:keywords "mail" "hyperkitty" "mailman") (:authors ("Abhilash Raj" . "maxking@asynchronous.in")) (:maintainers ("Abhilash Raj" . "maxking@asynchronous.in")) (:maintainer "Abhilash Raj" . "maxking@asynchronous.in"))])
@@ -2900,7 +2900,7 @@
  (jtsx . [(20240715 2002) ((emacs (29 1))) "Extends JSX/TSX built-in support" tar ((:url . "https://github.com/llemaitre19/jtsx") (:commit . "e81259a7584619ce3266a2d532f674ef45ee4274") (:revdesc . "e81259a75846") (:keywords "languages") (:authors ("Loïc Lemaître" . "loic.lemaitre@gmail.com")) (:maintainers ("Loïc Lemaître" . "loic.lemaitre@gmail.com")) (:maintainer "Loïc Lemaître" . "loic.lemaitre@gmail.com"))])
  (julia-formatter . [(20231130 1512) ((emacs (27 1)) (session-async (0 0 5))) "Use JuliaFormatter.jl for julia code" tar ((:url . "https://codeberg.org/FelipeLema/julia-formatter.el") (:commit . "4b40481cc9c0dcb3c9704436e00d613067d44bf5") (:revdesc . "4b40481cc9c0") (:keywords "convenience" "tools") (:authors ("Felipe Lema" . "felipe.lema@mortemale.org")) (:maintainers ("Felipe Lema" . "felipe.lema@mortemale.org")) (:maintainer "Felipe Lema" . "felipe.lema@mortemale.org"))])
  (julia-mode . [(20241120 857) ((emacs (26 1))) "Major mode for editing Julia source code" tar ((:url . "https://github.com/JuliaEditorSupport/julia-emacs") (:commit . "709c43410fb5da068d7d582cf3f545f7a7a68133") (:revdesc . "709c43410fb5") (:keywords "languages"))])
- (julia-repl . [(20241113 1152) ((emacs (25 1)) (s (1 12))) "A minor mode for a Julia REPL" tar ((:url . "https://github.com/tpapp/julia-repl") (:commit . "bb90cc1fceccc8dfd0e4b60d624271e4aca6b9b8") (:revdesc . "bb90cc1fcecc") (:keywords "languages") (:authors ("Tamas Papp" . "tkpapp@gmail.com")) (:maintainers ("Tamas Papp" . "tkpapp@gmail.com")) (:maintainer "Tamas Papp" . "tkpapp@gmail.com"))])
+ (julia-repl . [(20241120 1523) ((emacs (25 1)) (s (1 12))) "A minor mode for a Julia REPL" tar ((:url . "https://github.com/tpapp/julia-repl") (:commit . "1f4f6b4e01ff1529b0d7917fbd9ce29451a66510") (:revdesc . "1f4f6b4e01ff") (:keywords "languages") (:authors ("Tamas Papp" . "tkpapp@gmail.com")) (:maintainers ("Tamas Papp" . "tkpapp@gmail.com")) (:maintainer "Tamas Papp" . "tkpapp@gmail.com"))])
  (julia-shell . [(20161125 1910) ((julia-mode (0 3))) "Major mode for an inferior Julia shell" tar ((:url . "https://github.com/dennisog/julia-shell-mode") (:commit . "583a0b2ca20461ab4356929fd0f2212c22341b69") (:revdesc . "583a0b2ca204") (:authors ("Dennis Ogbe" . "dogbe@purdue.edu")) (:maintainers ("Dennis Ogbe" . "dogbe@purdue.edu")) (:maintainer "Dennis Ogbe" . "dogbe@purdue.edu"))])
  (julia-snail . [(20240812 840) ((emacs (26 2)) (dash (2 16 0)) (julia-mode (0 3)) (s (1 12 0)) (spinner (1 7 3)) (popup (0 5 9))) "Julia Snail" tar ((:url . "https://github.com/gcv/julia-snail") (:commit . "dff92c4250e40a6cc106f0ea993f9631ad55eb7c") (:revdesc . "dff92c4250e4"))])
  (julia-ts-mode . [(20230921 1433) ((emacs (29 1)) (julia-mode (0 4))) "Major mode for Julia source code using tree-sitter" tar ((:url . "https://github.com/JuliaEditorSupport/julia-ts-mode") (:commit . "44260b265359c7ed4052398e099ad019ce899109") (:revdesc . "44260b265359") (:keywords "julia" "languages" "tree-sitter"))])
@@ -2914,7 +2914,7 @@
  (jupyter . [(20241120 230) ((emacs (27)) (cl-lib (0 5)) (org (9 1 6)) (zmq (0 10 10)) (simple-httpd (1 5 0)) (websocket (1 9))) "Jupyter" tar ((:url . "https://github.com/emacs-jupyter/jupyter") (:commit . "577371744b36aa0afa117b7ded21d08f60331ff6") (:revdesc . "577371744b36") (:authors ("Nathaniel Nicandro" . "nathanielnicandro@gmail.com")) (:maintainers ("Nathaniel Nicandro" . "nathanielnicandro@gmail.com")) (:maintainer "Nathaniel Nicandro" . "nathanielnicandro@gmail.com"))])
  (just-mode . [(20240424 1809) ((emacs (26 1))) "Justfile editing mode" tar ((:url . "https://github.com/leon-barrett/just-mode.el") (:commit . "4c0df4cc4b8798f1a7e99fb78b79c4bf7eec12c1") (:revdesc . "4c0df4cc4b87") (:keywords "files" "languages" "tools") (:authors ("Leon Barrett" . "(leon@barrettnexus.com)")) (:maintainers ("Leon Barrett" . "(leon@barrettnexus.com)")) (:maintainer "Leon Barrett" . "(leon@barrettnexus.com)"))])
  (just-ts-mode . [(20241014 2252) ((emacs (29 1))) "Justfile editing mode" tar ((:url . "https://github.com/leon-barrett/just-ts-mode.el") (:commit . "acb598f1edabae9f679a507c8e22c21b3f2da132") (:revdesc . "acb598f1edab") (:keywords "files" "languages" "tools" "treesitter") (:authors ("Leon Barrett" . "(leon@barrettnexus.com)")) (:maintainers ("Leon Barrett" . "(leon@barrettnexus.com)")) (:maintainer "Leon Barrett" . "(leon@barrettnexus.com)"))])
- (justl . [(20241116 530) ((transient (0 1 0)) (emacs (27 1)) (s (1 2 0)) (f (0 20 0)) (inheritenv (0 2))) "Major mode for driving just files" tar ((:url . "https://github.com/psibi/justl.el") (:commit . "82925541b4a36e0e9f95eee0f4a0ea348c750990") (:revdesc . "82925541b4a3") (:keywords "just" "justfile" "tools" "processes"))])
+ (justl . [(20241123 1442) ((transient (0 1 0)) (emacs (27 1)) (s (1 2 0)) (f (0 20 0)) (inheritenv (0 2))) "Major mode for driving just files" tar ((:url . "https://github.com/psibi/justl.el") (:commit . "16b6ed54ceae839da032e5850075cab43c46be08") (:revdesc . "16b6ed54ceae") (:keywords "just" "justfile" "tools" "processes"))])
  (jvm-mode . [(20150422 708) ((dash (2 6 0)) (emacs (24))) "Monitor and manage your JVMs" tar ((:url . "https://github.com/martintrojer/jvm-mode.el") (:commit . "3355dbaf5b0185aadfbad24160399abb32c5bea0") (:revdesc . "3355dbaf5b01") (:keywords "convenience") (:authors ("Martin Trojer" . "martin.trojer@gmail.com")) (:maintainers ("Martin Trojer" . "martin.trojer@gmail.com")) (:maintainer "Martin Trojer" . "martin.trojer@gmail.com"))])
  (jwt . [(20241031 2258) ((emacs (29 1))) "Interact with JSON Web Tokens" tar ((:url . "https://github.com/joshbax189/jwt-el") (:commit . "d7deb62f8c2df58d5cfebf087a147c75207964e8") (:revdesc . "d7deb62f8c2d") (:keywords "tools" "convenience"))])
  (k8s-mode . [(20230305 1039) ((emacs (24 3)) (yaml-mode (0 0 10))) "Major mode for Kubernetes configuration file" tar ((:url . "https://github.com/TxGVNN/emacs-k8s-mode") (:commit . "83266cecd6a39cdf57d124270646047860bfb7ab") (:revdesc . "83266cecd6a3") (:authors ("Giap Tran" . "txgvnn@gmail.com")) (:maintainers ("Giap Tran" . "txgvnn@gmail.com")) (:maintainer "Giap Tran" . "txgvnn@gmail.com"))])
@@ -2930,7 +2930,7 @@
  (kana . [(20210531 1427) ((emacs (24 4)) (dash (2 17 0))) "Learn Japanese hiragana and katakana" tar ((:url . "https://github.com/chenyanming/kana") (:commit . "d3d550aad67ef8625b3860598bf3622f5b2a7d32") (:revdesc . "d3d550aad67e") (:keywords "tools") (:authors ("Damon Chan" . "elecming@gmail.com")) (:maintainers ("Damon Chan" . "elecming@gmail.com")) (:maintainer "Damon Chan" . "elecming@gmail.com"))])
  (kanagawa-themes . [(20241028 1204) ((emacs (24 3))) "Elegant theme inspired by The Great Wave off Kanagawa" tar ((:url . "https://github.com/Fabiokleis/kanagawa-emacs") (:commit . "6fe28070d7b3581415faa3e61af786b596ef3bb0") (:revdesc . "6fe28070d7b3") (:keywords "themes" "faces") (:authors ("Sion Eltnam Sokaris" . "meritamen@sdf.org")) (:maintainers ("Fabio Kleis" . "fabiohkrc@gmail.com") ("Sion Eltnam Sokaris" . "meritamen@sdf.org")) (:maintainer "Fabio Kleis" . "fabiohkrc@gmail.com"))])
  (kanban . [(20230210 1505) nil "Parse org-todo headlines to use org-tables as Kanban tables" tar ((:url . "https://hg.sr.ht/~arnebab/kanban.el") (:commit . "d70fa7acab2bfcbb7d3da43c1343073f7eff4998") (:revdesc . "d70fa7acab2bfcbb7d3da43c1343073f7eff4998") (:keywords "outlines" "convenience") (:authors ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainers ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainer "Arne Babenhauserheide" . "arne_bab@web.de"))])
- (kanji-mode . [(20230928 1113) nil "View stroke order for kanji characters at cursor" tar ((:url . "https://github.com/wsgac/kanji-mode") (:commit . "731b3a5447bcb899ba1d86b645a344e0915d04f3") (:revdesc . "731b3a5447bc") (:authors ("Wojciech Gac" . "wojciech.s.gac@gmail.com")) (:maintainers ("Wojciech Gac" . "wojciech.s.gac@gmail.com")) (:maintainer "Wojciech Gac" . "wojciech.s.gac@gmail.com"))])
+ (kanji-mode . [(20241120 1923) nil "View stroke order for kanji characters at cursor" tar ((:url . "https://github.com/wsgac/kanji-mode") (:commit . "09719b00d60e22bd31c93b21c0c817eced9d0406") (:revdesc . "09719b00d60e") (:authors ("Wojciech Gac" . "wojciech.s.gac@gmail.com")) (:maintainers ("Wojciech Gac" . "wojciech.s.gac@gmail.com")) (:maintainer "Wojciech Gac" . "wojciech.s.gac@gmail.com"))])
  (kaocha-runner . [(20240625 1010) ((emacs (26)) (s (1 4 0)) (cider (0 21 0)) (parseedn (0 1 0))) "A package for running Kaocha tests via CIDER" tar ((:url . "https://github.com/magnars/kaocha-runner.el") (:commit . "98f45ee396802c2225595c9151d4a941f9dcaa9d") (:revdesc . "98f45ee39680") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainers ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))])
  (kaolin-themes . [(20241104 1) ((emacs (25 1)) (autothemer (0 2 2)) (cl-lib (0 6))) "A set of eye pleasing themes" tar ((:url . "https://github.com/ogdenwebb/emacs-kaolin-themes") (:commit . "343ad8cd73c7509af2ea7af5eb856ece97dee7a3") (:revdesc . "343ad8cd73c7") (:keywords "dark" "light" "teal" "blue" "violet" "purple" "brown" "theme" "faces") (:authors ("Ogden Webb" . "ogdenwebb@gmail.com")) (:maintainers ("Ogden Webb" . "ogdenwebb@gmail.com")) (:maintainer "Ogden Webb" . "ogdenwebb@gmail.com"))])
  (kaomoji . [(20220721 441) ((emacs (24 3)) (helm-core (3 6 0))) "Input kaomoji superb easily" tar ((:url . "https://github.com/kuanyui/kaomoji.el") (:commit . "fba0018a13eba70c2bffc6153dcfee99937fa3d6") (:revdesc . "fba0018a13eb") (:keywords "tools" "fun") (:authors ("Ono Hiroko" . "azazabc123@gmail.com")) (:maintainers ("Ono Hiroko" . "azazabc123@gmail.com")) (:maintainer "Ono Hiroko" . "azazabc123@gmail.com"))])
@@ -2966,7 +2966,7 @@
  (kfg . [(20140909 538) ((f (0 17 1))) "An emacs configuration system" tar ((:url . "https://github.com/czipperz/kfg") (:commit . "ffc35b77f227d4c64a1271ec30d31333ffeb0013") (:revdesc . "ffc35b77f227") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainers ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com"))])
  (khalel . [(20240527 527) ((emacs (27 1))) "Import, edit and create calendar events through khal" tar ((:url . "https://gitlab.com/hperrey/khalel") (:commit . "14ef50352394cd1d62b80bc17ab14f4f801f47cd") (:revdesc . "14ef50352394") (:keywords "event" "calendar" "ics" "khal") (:authors ("Hanno Perrey" . "http://gitlab.com/hperrey")) (:maintainers ("Hanno Perrey" . "hanno@hoowl.se")) (:maintainer "Hanno Perrey" . "hanno@hoowl.se"))])
  (khardel . [(20231126 1502) ((emacs (27 1)) (yaml-mode (0 0 13))) "Integrate with khard" tar ((:url . "https://github.com/DamienCassou/khardel") (:commit . "205e374b36252183a146a7a8f857bcf95a77edc3") (:revdesc . "205e374b3625") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainers ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me"))])
- (khoj . [(20241119 130) ((emacs (27 1)) (transient (0 3 0)) (dash (2 19 1))) "Your Second Brain" tar ((:url . "https://github.com/khoj-ai/khoj") (:commit . "5134d49d7133e34962c396dc7be75bb6c3a46a29") (:revdesc . "5134d49d7133") (:keywords "search" "chat" "ai" "org-mode" "outlines" "markdown" "pdf" "image") (:authors ("Debanjum Singh Solanky" . "debanjum@khoj.dev") ("Saba Imran" . "saba@khoj.dev")) (:maintainers ("Debanjum Singh Solanky" . "debanjum@khoj.dev") ("Saba Imran" . "saba@khoj.dev")) (:maintainer "Debanjum Singh Solanky" . "debanjum@khoj.dev"))])
+ (khoj . [(20241124 651) ((emacs (27 1)) (transient (0 3 0)) (dash (2 19 1))) "Your Second Brain" tar ((:url . "https://github.com/khoj-ai/khoj") (:commit . "2d683898c272fd25b3b33b7368a3bcf904b65ee0") (:revdesc . "2d683898c272") (:keywords "search" "chat" "ai" "org-mode" "outlines" "markdown" "pdf" "image") (:authors ("Debanjum Singh Solanky" . "debanjum@khoj.dev") ("Saba Imran" . "saba@khoj.dev")) (:maintainers ("Debanjum Singh Solanky" . "debanjum@khoj.dev") ("Saba Imran" . "saba@khoj.dev")) (:maintainer "Debanjum Singh Solanky" . "debanjum@khoj.dev"))])
  (kibit-helper . [(20150508 1533) ((s (0 8)) (emacs (24))) "Conveniently use the Kibit Leiningen plugin from Emacs" tar ((:url . "https://github.com/brunchboy/kibit-helper") (:commit . "ec5f154db3bb0c838e86f527353f08644cede926") (:revdesc . "ec5f154db3bb") (:keywords "languages" "clojure" "kibit") (:authors ("James Elliott" . "james@brunchboy.com")) (:maintainers ("James Elliott" . "james@brunchboy.com")) (:maintainer "James Elliott" . "james@brunchboy.com"))])
  (kill-file-path . [(20230306 1041) ((emacs (26))) "Copy file name into kill ring" tar ((:url . "https://github.com/chyla/kill-file-path") (:commit . "5dcbce69cbae17665216a32dd20f27de54c62972") (:revdesc . "5dcbce69cbae") (:keywords "files") (:authors ("Adam Chyła" . "adam@chyla.org")) (:maintainers ("Adam Chyła" . "adam@chyla.org")) (:maintainer "Adam Chyła" . "adam@chyla.org"))])
  (kill-or-bury-alive . [(20230606 1503) ((emacs (24 4))) "Precise control over buffer killing" tar ((:url . "https://github.com/mrkkrp/kill-or-bury-alive") (:commit . "16c393db6ad0c7e184af0a24d26b637e23543b1f") (:revdesc . "16c393db6ad0") (:keywords "convenience") (:authors ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainers ("Mark Karpov" . "markkarpov92@gmail.com")) (:maintainer "Mark Karpov" . "markkarpov92@gmail.com"))])
@@ -3088,7 +3088,7 @@
  (ligature-pragmatapro . [(20221127 2252) ((emacs (28)) (ligature (1 0))) "PragmataPro support for ligature.el" tar ((:url . "https://gitlab.com/wavexx/ligature-pragmatapro.el") (:commit . "85f7b15a5cf5f2ee843bc0469e03602a0251c275") (:revdesc . "85f7b15a5cf5") (:keywords "faces" "fonts" "ligatures" "programming-ligatures") (:authors ("Yuri D'Elia" . "wavexx@thregr.org")) (:maintainers ("Yuri D'Elia" . "wavexx@thregr.org")) (:maintainer "Yuri D'Elia" . "wavexx@thregr.org"))])
  (light-soap-theme . [(20150607 1445) ((emacs (24))) "Emacs 24 theme with a light background" tar ((:url . "https://github.com/mswift42/light-soap-theme") (:commit . "76a787bd40c6b567ae68ced7f5d9f9f10725e00d") (:revdesc . "76a787bd40c6"))])
  (line-reminder . [(20240715 2304) ((emacs (25 1)) (fringe-helper (1 0 1)) (ov (1 0 6)) (ht (2 0))) "Line annotation for changed and saved lines" tar ((:url . "https://github.com/emacs-vs/line-reminder") (:commit . "76677e48451b77508673a52dcc0845b87e5f81fe") (:revdesc . "76677e48451b") (:keywords "convenience" "annotation") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
- (line-up-words . [(20180219 1024) nil "Align words in an intelligent way" tar ((:url . "https://github.com/janestreet/line-up-words") (:commit . "2c236f5772e18d0e50d7ca2eee7eebbe356d9b60") (:revdesc . "2c236f5772e1"))])
+ (line-up-words . [(20241121 2033) nil "Align words in an intelligent way" tar ((:url . "https://github.com/janestreet/line-up-words") (:commit . "3c1339a3fb3840dfaea50d8cb966c90b19d14925") (:revdesc . "3c1339a3fb38"))])
  (lines-at-once . [(20180422 247) ((emacs (25))) "Insert and edit multiple lines at once" tar ((:url . "https://github.com/jiahaoli95/lines-at-once.el") (:commit . "a018ba90549384d52ec58c2685fd14a0f65252be") (:revdesc . "a018ba905493") (:keywords "abbrev" "tools") (:authors ("Jiahao Li" . "jiahaowork@gmail.com")) (:maintainers ("Jiahao Li" . "jiahaowork@gmail.com")) (:maintainer "Jiahao Li" . "jiahaowork@gmail.com"))])
  (lingr . [(20100807 1731) nil "Lingr Client for GNU Emacs" tar ((:url . "https://github.com/lugecy/lingr-el") (:commit . "4215a8704492d3c860097cbe2649936c22c196df") (:revdesc . "4215a8704492") (:keywords "chat" "client" "internet") (:authors ("lugecy" . "lugecy@gmail.com")) (:maintainers ("lugecy" . "lugecy@gmail.com")) (:maintainer "lugecy" . "lugecy@gmail.com"))])
  (linguistic . [(20181129 2116) nil "A package for basic linguistic analysis" tar ((:url . "https://github.com/andcarnivorous/linguistic") (:commit . "23e47e98cdb09ee61883669b6d8a11bf6449862c") (:revdesc . "23e47e98cdb0") (:keywords "linguistics" "text analysis" "matching") (:authors ("Andrew Favia" . "drewlinguistics01atgmaildotcom")) (:maintainers ("Andrew Favia" . "drewlinguistics01atgmaildotcom")) (:maintainer "Andrew Favia" . "drewlinguistics01atgmaildotcom"))])
@@ -3181,7 +3181,7 @@
  (lsp-latex . [(20241006 800) ((emacs (27 1)) (lsp-mode (6 0)) (consult (0 35))) "LSP-mode client for LaTeX, on texlab" tar ((:url . "https://github.com/ROCKTAKEY/lsp-latex") (:commit . "36a37a8e0a6b0edbea8e67dab89d12980d2a368f") (:revdesc . "36a37a8e0a6b") (:keywords "languages" "tex") (:authors ("ROCKTAKEY" . "rocktakey@gmail.com")) (:maintainers ("ROCKTAKEY" . "rocktakey@gmail.com")) (:maintainer "ROCKTAKEY" . "rocktakey@gmail.com"))])
  (lsp-ltex . [(20240425 2049) ((emacs (27 1)) (lsp-mode (6 1))) "LSP Clients for LTEX" tar ((:url . "https://github.com/emacs-languagetool/lsp-ltex") (:commit . "c473ed37aa0f2769bb0b4c344cc28f95975dbc17") (:revdesc . "c473ed37aa0f") (:keywords "convenience" "lsp" "languagetool" "checker") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (lsp-metals . [(20241112 1142) ((emacs (27 1)) (scala-mode (0 23)) (lsp-mode (7 0)) (lsp-treemacs (0 2)) (dap-mode (0 3)) (dash (2 18 0)) (f (0 20 0)) (ht (2 0)) (treemacs (3 1))) "Scala Client settings" tar ((:url . "https://github.com/emacs-lsp/lsp-metals") (:commit . "b5139c959336758a93d0e55458e6ca938d9fd16a") (:revdesc . "b5139c959336") (:keywords "languages" "extensions") (:authors ("Ross A. Baker" . "ross@rossabaker.com") ("Evgeny Kurnevsky" . "kurnevsky@gmail.com")) (:maintainers ("Ross A. Baker" . "ross@rossabaker.com") ("Evgeny Kurnevsky" . "kurnevsky@gmail.com")) (:maintainer "Ross A. Baker" . "ross@rossabaker.com"))])
- (lsp-mode . [(20241119 828) ((emacs (27 1)) (dash (2 18 0)) (f (0 20 0)) (ht (2 3)) (spinner (1 7 3)) (markdown-mode (2 3)) (lv (0)) (eldoc (1 11))) "LSP mode" tar ((:url . "https://github.com/emacs-lsp/lsp-mode") (:commit . "620bbd7163fa9d9281cd315ffa3ee29d83be8686") (:revdesc . "620bbd7163fa") (:keywords "languages"))])
+ (lsp-mode . [(20241123 739) ((emacs (27 1)) (dash (2 18 0)) (f (0 20 0)) (ht (2 3)) (spinner (1 7 3)) (markdown-mode (2 3)) (lv (0)) (eldoc (1 11))) "LSP mode" tar ((:url . "https://github.com/emacs-lsp/lsp-mode") (:commit . "ae4907082b429c35bdc675cb5614e1d9aa520171") (:revdesc . "ae4907082b42") (:keywords "languages"))])
  (lsp-mssql . [(20230510 1124) ((emacs (25 1)) (lsp-mode (6 2)) (dash (2 14 1)) (f (0 20 0)) (ht (2 0)) (lsp-treemacs (0 1))) "MSSQL LSP bindings" tar ((:url . "https://github.com/emacs-lsp/lsp-mssql") (:commit . "a0dba8f86a2ace7e800a9dc8f814767625a509af") (:revdesc . "a0dba8f86a2a") (:keywords "data" "languages") (:authors ("Ivan Yonchovski" . "yyoncho@gmail.com")) (:maintainers ("Ivan Yonchovski" . "yyoncho@gmail.com")) (:maintainer "Ivan Yonchovski" . "yyoncho@gmail.com"))])
  (lsp-origami . [(20230815 704) ((emacs (27 1)) (origami (1 0)) (lsp-mode (6 1))) "Origami.el support for lsp-mode" tar ((:url . "https://github.com/emacs-lsp/lsp-origami") (:commit . "86aa06517910141c3d5054eea5f7723461fce6a6") (:revdesc . "86aa06517910") (:keywords "languages" "lsp-mode"))])
  (lsp-p4 . [(20190127 1049) ((lsp-mode (3 0))) "P4 support for lsp-mode" tar ((:url . "https://github.com/dmakarov/p4ls") (:commit . "084e33a5782f9153502d9b03e63d9cbbe81cdaeb") (:revdesc . "084e33a5782f") (:keywords "lsp" "p4"))])
@@ -3221,7 +3221,7 @@
  (magic-filetype . [(20240130 1805) ((emacs (24 3)) (s (1 9 0))) "Enhance filetype major mode" tar ((:url . "https://github.com/emacs-php/magic-filetype.el") (:commit . "3979ddbd8066d7390e31bde2b35f997c5f5f4516") (:revdesc . "3979ddbd8066") (:keywords "emulations" "vim" "ft" "file" "magic-mode") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainers ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))])
  (magic-latex-buffer . [(20210306 422) ((cl-lib (0 5)) (emacs (25 1))) "Magically enhance LaTeX-mode font-locking for semi-WYSIWYG editing" tar ((:url . "https://github.com/zk-phi/magic-latex-buffer") (:commit . "903ec91872760e47c0e5715795f8465173615098") (:revdesc . "903ec9187276"))])
  (magik-mode . [(20241111 1446) ((emacs (24 4)) (compat (28 1))) "Emacs major mode for Smallworld Magik files" tar ((:url . "https://github.com/roadrunner1776/magik") (:commit . "441389f75bdf6990556b96597979bf4a0b9cbdec") (:revdesc . "441389f75bdf") (:keywords "languages"))])
- (magit . [(20241116 1557) ((emacs (26 1)) (compat (30 0 0 0)) (dash (2 19 1)) (magit-section (4 1 2)) (seq (2 24)) (transient (0 7 8)) (with-editor (3 4 2))) "A Git porcelain inside Emacs" tar ((:url . "https://github.com/magit/magit") (:commit . "8cee789f7a61a491d23a78360cbd2d626eda0f06") (:revdesc . "8cee789f7a61") (:keywords "git" "tools" "vc") (:authors ("Marius Vollmer" . "marius.vollmer@gmail.com") ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev") ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))])
+ (magit . [(20241124 1509) ((emacs (26 1)) (compat (30 0 0 0)) (dash (2 19 1)) (magit-section (4 1 2)) (seq (2 24)) (transient (0 7 8)) (with-editor (3 4 2))) "A Git porcelain inside Emacs" tar ((:url . "https://github.com/magit/magit") (:commit . "1e17181a21ffaec20c9540f413bea04ca20d65f1") (:revdesc . "1e17181a21ff") (:keywords "git" "tools" "vc") (:authors ("Marius Vollmer" . "marius.vollmer@gmail.com") ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev") ("Kyle Meyer" . "kyle@kyleam.com")) (:maintainer "Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))])
  (magit-annex . [(20240811 1850) ((emacs (26 1)) (magit (4 0 0))) "Control git-annex from Magit" tar ((:url . "https://github.com/magit/magit-annex") (:commit . "9db0bc61461f222106c7ae3d8cd6d3de1f1b143f") (:revdesc . "9db0bc61461f") (:keywords "vc" "tools") (:authors ("Kyle Meyer" . "kyle@kyleam.com") ("Rémi Vanicat" . "vanicat@debian.org")) (:maintainers ("Kyle Meyer" . "kyle@kyleam.com") ("Rémi Vanicat" . "vanicat@debian.org")) (:maintainer "Kyle Meyer" . "kyle@kyleam.com"))])
  (magit-commit-mark . [(20241110 245) ((emacs (29 1)) (magit (3 3 0))) "Support marking commits as read" tar ((:url . "https://codeberg.org/ideasman42/emacs-magit-commit-mark") (:commit . "e468518c7b8f90deda03cc4f0e2616b367cfdee8") (:revdesc . "e468518c7b8f") (:authors ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainers ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainer "Campbell Barton" . "ideasman42@gmail.com"))])
  (magit-delta . [(20220125 50) ((emacs (25 1)) (magit (20200426)) (xterm-color (2 0))) "Use Delta when displaying diffs in Magit" tar ((:url . "https://github.com/dandavison/magit-delta") (:commit . "5fc7dbddcfacfe46d3fd876172ad02a9ab6ac616") (:revdesc . "5fc7dbddcfac") (:authors ("Dan Davison" . "dandavison7@gmail.com")) (:maintainers ("Dan Davison" . "dandavison7@gmail.com")) (:maintainer "Dan Davison" . "dandavison7@gmail.com"))])
@@ -3242,7 +3242,7 @@
  (magit-popup . [(20200719 1015) ((emacs (24 4)) (dash (2 13 0))) "Define prefix-infix-suffix command combos" tar ((:url . "https://github.com/magit/magit-popup") (:commit . "d8585fa39f88956963d877b921322530257ba9f5") (:revdesc . "d8585fa39f88") (:keywords "bindings") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainers ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li"))])
  (magit-rbr . [(20181009 2016) ((magit (2 13 0)) (emacs (24 3))) "Support for git rbr in Magit" tar ((:url . "https://github.com/fanatoly/magit-rbr") (:commit . "029203b3e48537205052a058e964f058cd802c3c") (:revdesc . "029203b3e485") (:keywords "git" "magit" "rbr" "tools") (:authors ("Anatoly Fayngelerin" . "fanatoly+magitrbr@gmail.com")) (:maintainers ("Anatoly Fayngelerin" . "fanatoly+magitrbr@gmail.com")) (:maintainer "Anatoly Fayngelerin" . "fanatoly+magitrbr@gmail.com"))])
  (magit-reviewboard . [(20200727 1748) ((emacs (25 2)) (magit (2 13 0)) (s (1 12 0)) (request (0 3 0))) "Show open Reviewboard reviews in Magit" tar ((:url . "https://github.com/jtamagnan/magit-reviewboard") (:commit . "aceedff88921f1dfef8a6b2fb18fe316fb7223a8") (:revdesc . "aceedff88921") (:keywords "magit" "vc") (:authors ("Jules Tamagnan" . "jtamagnan@gmail.com")) (:maintainers ("Jules Tamagnan" . "jtamagnan@gmail.com")) (:maintainer "Jules Tamagnan" . "jtamagnan@gmail.com"))])
- (magit-section . [(20241102 1300) ((emacs (26 1)) (compat (30 0 0 0)) (dash (2 19 1)) (seq (2 24))) "Sections for read-only buffers" tar ((:url . "https://github.com/magit/magit") (:commit . "4992c3d1f64e0e983692c7a61d47069f47380dbf") (:revdesc . "4992c3d1f64e") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))])
+ (magit-section . [(20241122 1431) ((emacs (26 1)) (compat (30 0 0 0)) (dash (2 19 1)) (seq (2 24))) "Sections for read-only buffers" tar ((:url . "https://github.com/magit/magit") (:commit . "93a7752842b2d4feff6b5deba44411e9c4249dfe") (:revdesc . "93a7752842b2") (:keywords "tools") (:authors ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))])
  (magit-stats . [(20230223 1819) ((emacs (25 1))) "Generates GIT Repo Statistics Report" tar ((:url . "https://github.com/LionyxML/magit-stats") (:commit . "41b18e5fc664dba93981a7931f476632c5b54a7d") (:revdesc . "41b18e5fc664") (:keywords "vc" "convenience"))])
  (magit-stgit . [(20241012 119) ((emacs (24 4)) (magit (2 12 0)) (transient (0 3 7))) "StGit extension for Magit" tar ((:url . "https://github.com/stacked-git/magit-stgit") (:commit . "51168b7438dfb5ca6b9239b8564397cc0cc6e798") (:revdesc . "51168b7438df") (:keywords "git" "tools" "vc") (:authors ("Lluís Vilanova" . "vilanova@ac.upc.edu")) (:maintainers ("Peter Grayson" . "pete@jpgrayson.net")) (:maintainer "Peter Grayson" . "pete@jpgrayson.net"))])
  (magit-svn . [(20220314 1451) ((emacs (25 1)) (magit (2 90 1)) (transient (0 3 2))) "Git-Svn extension for Magit" tar ((:url . "https://github.com/emacsorphanage/magit-svn") (:commit . "b8277081db90977247ae3900ea6afeb0ca644d36") (:revdesc . "b8277081db90") (:keywords "vc" "tools") (:authors ("Phil Jackson" . "phil@shellarchive.co.uk")) (:maintainers ("Phil Jackson" . "phil@shellarchive.co.uk")) (:maintainer "Phil Jackson" . "phil@shellarchive.co.uk"))])
@@ -3275,7 +3275,7 @@
  (map-progress . [(20190128 16) ((cl-lib (0 6 1))) "Mapping macros that report progress" tar ((:url . "https://github.com/tarsius/map-progress") (:commit . "1fb916159cd054c233ce3c80d9d01adfae640297") (:revdesc . "1fb916159cd0") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainers ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li"))])
  (map-regexp . [(20190128 18) ((cl-lib (0 6 1))) "Map over matches of a regular expression" tar ((:url . "https://github.com/tarsius/map-regexp") (:commit . "ae2d1c22f786ad987aef3e319925e80160a887a0") (:revdesc . "ae2d1c22f786") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainers ("Jonas Bernoulli" . "jonas@bernoul.li")) (:maintainer "Jonas Bernoulli" . "jonas@bernoul.li"))])
  (marcopolo . [(20160421 1004) ((s (1 9 0)) (dash (2 9 0)) (pkg-info (0 5 0)) (request (0 1 0))) "Emacs client to the Docker HUB/Registry API" tar ((:url . "https://github.com/nlamirault/marcopolo") (:commit . "85db828f2bb4346a811b3326349b1c6d0aae4601") (:revdesc . "85db828f2bb4") (:keywords "docker") (:authors ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainers ("Nicolas Lamirault" . "nicolas.lamirault@gmail.com")) (:maintainer "Nicolas Lamirault" . "nicolas.lamirault@gmail.com"))])
- (marginalia . [(20240926 918) ((emacs (28 1)) (compat (30))) "Enrich existing commands with completion annotations" tar ((:url . "https://github.com/minad/marginalia") (:commit . "be2e57efff640880251c082ac93bd365b7202e6a") (:revdesc . "be2e57efff64") (:keywords "docs" "help" "matching" "completion") (:authors ("Omar Antolín Camarena" . "omar@matem.unam.mx") ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Omar Antolín Camarena" . "omar@matem.unam.mx") ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Omar Antolín Camarena" . "omar@matem.unam.mx"))])
+ (marginalia . [(20241124 1138) ((emacs (28 1)) (compat (30))) "Enrich existing commands with completion annotations" tar ((:url . "https://github.com/minad/marginalia") (:commit . "643a5f50c9f9d0698c8b1d72678886aefcf69052") (:revdesc . "643a5f50c9f9") (:keywords "docs" "help" "matching" "completion") (:authors ("Omar Antolín Camarena" . "omar@matem.unam.mx") ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Omar Antolín Camarena" . "omar@matem.unam.mx") ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Omar Antolín Camarena" . "omar@matem.unam.mx"))])
  (mark-multiple . [(20121118 1554) nil "Sorta lets you mark several regions at once" tar ((:url . "https://github.com/magnars/mark-multiple.el") (:commit . "f6a53c7c5283d640ae718f4548b0fda78877a375") (:revdesc . "f6a53c7c5283") (:keywords "marking" "library") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainers ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))])
  (mark-thing-at . [(20241022 2232) ((emacs (26)) (choice-program (0 14))) "Mark a pattern at the current point" tar ((:url . "https://github.com/plandes/mark-thing-at") (:commit . "d9499bc82e214e35eac074303a64c023fb10ea5c") (:revdesc . "d9499bc82e21") (:keywords "mark" "point" "lisp"))])
  (mark-tools . [(20130614 1025) nil "Some simple tools to access the mark-ring in Emacs" tar ((:url . "https://github.com/stsquad/emacs-mark-tools") (:commit . "a11b61effa90bd0abc876d12573674d36fc17f0c") (:revdesc . "a11b61effa90") (:authors ("Alex Bennée" . "alex@bennee.com")) (:maintainers ("Alex Bennée" . "alex@bennee.com")) (:maintainer "Alex Bennée" . "alex@bennee.com"))])
@@ -3296,7 +3296,7 @@
  (marshal . [(20201223 1853) ((emacs (25 1)) (ht (2 0))) "Eieio extension for automatic (un)marshalling" tar ((:url . "https://github.com/sigma/marshal.el") (:commit . "490496d974d03906f784707ecc2e0ac36ed84b96") (:revdesc . "490496d974d0") (:keywords "extensions") (:authors ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainers ("Yann Hodique" . "yann.hodique@gmail.com")) (:maintainer "Yann Hodique" . "yann.hodique@gmail.com"))])
  (maruo-macro-mode . [(20160616 1349) ((emacs (24 3))) "Major mode for editing Hidemaru/Maruo macro script" tar ((:url . "https://github.com/zonuexe/maruo-macro-mode.el") (:commit . "8fc9a38ad051eafa8eb94038711acc52c5d1d8d5") (:revdesc . "8fc9a38ad051") (:keywords "programming" "editor" "macro") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainers ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me"))])
  (masm-mode . [(20200308 1450) ((emacs (25 1))) "MASM x86 and x64 assembly major mode" tar ((:url . "https://github.com/YiGeeker/masm-mode") (:commit . "ab63524d195332ec9f703783704231606e69c292") (:revdesc . "ab63524d1953") (:keywords "languages") (:authors ("YiGeeker" . "zyfchinese@yeah.net")) (:maintainers ("YiGeeker" . "zyfchinese@yeah.net")) (:maintainer "YiGeeker" . "zyfchinese@yeah.net"))])
- (mastodon . [(20241102 1634) ((emacs (28 1)) (request (0 3 0)) (persist (0 4)) (tp (0 6))) "Client for fediverse services using the Mastodon API" tar ((:url . "https://codeberg.org/martianh/mastodon.el") (:commit . "31557be472a94b48163a5651640d3e807a6cbdf2") (:revdesc . "31557be472a9") (:authors ("Johnson Denen" . "johnson.denen@gmail.com") ("Marty Hiatt" . "mousebot@disroot.org")) (:maintainers ("Marty Hiatt" . "mousebot@disroot.org")) (:maintainer "Marty Hiatt" . "mousebot@disroot.org"))])
+ (mastodon . [(20241121 1724) ((emacs (28 1)) (request (0 3 0)) (persist (0 4)) (tp (0 6))) "Client for fediverse services using the Mastodon API" tar ((:url . "https://codeberg.org/martianh/mastodon.el") (:commit . "cf6416313084a04e5028f46274e88284e2d120ee") (:revdesc . "cf6416313084") (:authors ("Johnson Denen" . "johnson.denen@gmail.com") ("Marty Hiatt" . "mousebot@disroot.org")) (:maintainers ("Marty Hiatt" . "mousebot@disroot.org")) (:maintainer "Marty Hiatt" . "mousebot@disroot.org"))])
  (material-theme . [(20210904 1226) ((emacs (24 1))) "A Theme based on the colors of the Google Material Design" tar ((:url . "https://github.com/cpaulik/emacs-material-theme") (:commit . "6823009bc92f82aa3a90e27e1009f7da8e87b648") (:revdesc . "6823009bc92f") (:keywords "themes") (:authors ("Christoph Paulik" . "cpaulik@gmail.com")) (:maintainers ("Christoph Paulik" . "cpaulik@gmail.com")) (:maintainer "Christoph Paulik" . "cpaulik@gmail.com"))])
  (math-preview . [(20240801 513) ((emacs (26 1)) (json (1 4)) (dash (2 18 0)) (s (1 12 0))) "Preview TeX math equations inline" tar ((:url . "https://gitlab.com/matsievskiysv/math-preview") (:commit . "a2ca3c175468ceaf02bab6cdfd8ef016bda2b98d") (:revdesc . "a2ca3c175468") (:keywords "convenience"))])
  (math-symbol-lists . [(20220828 2047) nil "Lists of Unicode math symbols and latex commands" tar ((:url . "https://github.com/vspinu/math-symbol-lists") (:commit . "ac3eb053d3b576fcdd192b0ac6ad5090ea3a7079") (:revdesc . "ac3eb053d3b5") (:keywords "unicode" "symbols" "mathematics") (:authors ("Vitalie Spinu" . "spinuvit@gmail.com")) (:maintainers ("Vitalie Spinu" . "spinuvit@gmail.com")) (:maintainer "Vitalie Spinu" . "spinuvit@gmail.com"))])
@@ -3328,7 +3328,7 @@
  (memoize . [(20200103 2036) nil "Memoization functions" tar ((:url . "https://github.com/skeeto/emacs-memoize") (:commit . "51b075935ca7070f62fae1d69fe0ff7d8fa56fdd") (:revdesc . "51b075935ca7") (:authors ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainers ("Christopher Wellons" . "mosquitopsu@gmail.com")) (:maintainer "Christopher Wellons" . "mosquitopsu@gmail.com"))])
  (memolist . [(20150804 1721) ((markdown-mode (22 0)) (ag (0 45))) "Memolist.el is Emacs port of memolist.vim" tar ((:url . "https://github.com/mikanfactory/memolist.el") (:commit . "60c296e202a71e9dcf1c3936d47b5c4b95c5839f") (:revdesc . "60c296e202a7") (:keywords "markdown" "memo") (:authors ("mikanfactory" . "k952i4j14x17_at_gmail.com")))])
  (mentor . [(20230103 1146) ((emacs (25 1)) (xml-rpc (1 6 15)) (seq (1 11)) (async (1 9 3)) (url-scgi (0 8))) "Frontend for the rTorrent bittorrent client" tar ((:url . "https://github.com/skangas/mentor") (:commit . "f51dd4f3f87c54b7cc92189924b9d873a53f5a75") (:revdesc . "f51dd4f3f87c") (:keywords "comm" "processes" "bittorrent") (:authors ("Stefan Kangas" . "stefankangas@gmail.com")) (:maintainers ("Stefan Kangas" . "stefankangas@gmail.com")) (:maintainer "Stefan Kangas" . "stefankangas@gmail.com"))])
- (meow . [(20241117 201) ((emacs (27 1))) "Yet Another modal editing" tar ((:url . "https://github.com/meow-edit/meow") (:commit . "c0985b3531ca14067d96ed3018bec80fe7eeb7db") (:revdesc . "c0985b3531ca") (:keywords "convenience" "modal-editing"))])
+ (meow . [(20241122 2159) ((emacs (27 1))) "Yet Another modal editing" tar ((:url . "https://github.com/meow-edit/meow") (:commit . "813892013b971e6a938d2b443a2b50c68dc67d99") (:revdesc . "813892013b97") (:keywords "convenience" "modal-editing"))])
  (meow-tree-sitter . [(20240701 1422) ((emacs (29 1)) (meow (1 2 0))) "Tree-sitter powered motions for Meow" tar ((:url . "https://github.com/skissue/meow-tree-sitter") (:commit . "d8dce964fac631a6d44b650a733075e14854159c") (:revdesc . "d8dce964fac6") (:keywords "convenience" "files" "languages" "tools") (:authors ("Ad" . "me@skissue.xyz")) (:maintainers ("Ad" . "me@skissue.xyz")) (:maintainer "Ad" . "me@skissue.xyz"))])
  (merlin . [(20240925 900) ((emacs (25 1))) "Mode for Merlin, an assistant for OCaml" tar ((:url . "https://github.com/ocaml/merlin") (:commit . "80e919cf32a62acdaee95a5dab9b4bc18a8b4034") (:revdesc . "80e919cf32a6") (:keywords "ocaml" "languages") (:authors ("Frédéric Bour" . "frederic.bourlakaban.net")) (:maintainers ("Frédéric Bour" . "frederic.bourlakaban.net")) (:maintainer "Frédéric Bour" . "frederic.bourlakaban.net"))])
  (merlin-ac . [(20221123 1408) ((emacs (25 1)) (merlin (3)) (auto-complete (1 5))) "Merlin and auto-complete integration" tar ((:url . "https://github.com/ocaml/merlin") (:commit . "8bcab034a680f57ddf58092fda6288dc4caddd2a") (:revdesc . "8bcab034a680") (:keywords "ocaml" "languages") (:authors ("Simon Castellan" . "simon.castellaniuwt.fr") ("Frédéric Bour" . "frederic.bourlakaban.net") ("Thomas Refis" . "thomas.refisgmail.com")) (:maintainers ("Simon Castellan" . "simon.castellaniuwt.fr") ("Frédéric Bour" . "frederic.bourlakaban.net") ("Thomas Refis" . "thomas.refisgmail.com")) (:maintainer "Simon Castellan" . "simon.castellaniuwt.fr"))])
@@ -3357,7 +3357,7 @@
  (meyvn . [(20240905 43) ((emacs (25 1)) (cider (0 23)) (projectile (2 1)) (s (1 12)) (dash (2 17)) (parseedn (1 1 0)) (parseclj (1 1 0)) (geiser (0 12))) "Meyvn client" tar ((:url . "https://github.com/danielsz/meyvn-el") (:commit . "8d00ada6daa5617fa60f76e0be2cf2f5d1babcf9") (:revdesc . "8d00ada6daa5") (:authors ("Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com")) (:maintainers ("Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com")) (:maintainer "Daniel Szmulewicz" . "daniel.szmulewicz@gmail.com"))])
  (mgmtconfig-mode . [(20240330 2205) ((emacs (24 3))) "Mgmt configuration management language" tar ((:url . "https://github.com/purpleidea/mgmt") (:commit . "1b00af6926d8699d9d04062f28fddd43c6340bac") (:revdesc . "1b00af6926d8") (:keywords "languages") (:authors ("Peter Oliver" . "mgmtconfig@mavit.org.uk")) (:maintainers ("Mgmt contributors" . "https://github.com/purpleidea/mgmt")) (:maintainer "Mgmt contributors" . "https://github.com/purpleidea/mgmt"))])
  (mhc . [(20240419 10) ((calfw (20150703))) "Message Harmonized Calendaring system" tar ((:url . "https://github.com/yoshinari-nomura/mhc") (:commit . "b527a88748651d06222ad24f7417941088515275") (:revdesc . "b527a8874865") (:keywords "calendar") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainers ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))])
- (miasma-theme . [(20241117 2101) nil "Miasma: color theme inspired by the woods" tar ((:url . "https://github.com/daut/miasma-theme.el") (:commit . "9212213d12d40c6631a30a407b1b981e1a1101f0") (:revdesc . "9212213d12d4"))])
+ (miasma-theme . [(20241122 1754) nil "Miasma: color theme inspired by the woods" tar ((:url . "https://github.com/daut/miasma-theme.el") (:commit . "ada1805f4485851d61b39c1855386d356fd2d00c") (:revdesc . "ada1805f4485"))])
  (mic . [(20240806 1655) ((emacs (26 1))) "Minimal and combinable configuration manager" tar ((:url . "https://github.com/ROCKTAKEY/mic") (:commit . "f552ddf397e899e9c2b96ef4e56a08cc8804a1c5") (:revdesc . "f552ddf397e8") (:keywords "convenience") (:authors ("ROCKTAKEY" . "rocktakey@gmail.com")) (:maintainers ("ROCKTAKEY" . "rocktakey@gmail.com")) (:maintainer "ROCKTAKEY" . "rocktakey@gmail.com"))])
  (mic-paren . [(20170731 1907) nil "Advanced highlighting of matching parentheses" tar ((:url . "https://github.com/emacsattic/mic-paren") (:commit . "d0410c7d805c9aaf51a1bcefaaef092bed5824c4") (:revdesc . "d0410c7d805c") (:keywords "languages" "faces" "parenthesis" "matching") (:authors ("Mikael Sjödin" . "(mic@docs.uu.se)") ("Klaus Berndl" . "berndl@sdm.de") ("Jonathan Kotta" . "jpkotta@gmail.com")))])
  (micgoline . [(20160415 326) ((emacs (24 3)) (powerline (2 3))) "Powerline mode, color schemes from microsoft and google's logo" tar ((:url . "https://github.com/yzprofile/micgoline") (:commit . "e3e2effe4846175a3b52b4092c0c134ced5978d8") (:revdesc . "e3e2effe4846") (:keywords "mode-line" "powerline" "theme") (:authors ("yzprofile" . "yzprofiles@gmail.com")) (:maintainers ("yzprofile" . "yzprofiles@gmail.com")) (:maintainer "yzprofile" . "yzprofiles@gmail.com"))])
@@ -3366,7 +3366,7 @@
  (milkode . [(20140927 529) nil "Command line search and direct jump with Milkode" tar ((:url . "https://github.com/ongaeshi/emacs-milkode") (:commit . "ba97e2aeefa1d9d0b3835bf08edd0de248b0c513") (:revdesc . "ba97e2aeefa1") (:keywords "milkode" "search" "grep" "jump" "keyword"))])
  (mimetypes . [(20201115 1605) ((emacs (25 1))) "Guess a file's mimetype by extension" tar ((:url . "https://github.com/cniles/emacs-mimetypes") (:commit . "1663054ce266ed25e47ec707c19f619d33225903") (:revdesc . "1663054ce266") (:authors ("Craig Niles" . "niles.catgmail.com")) (:maintainers ("Craig Niles" . "niles.catgmail.com")) (:maintainer "Craig Niles" . "niles.catgmail.com"))])
  (mindre-theme . [(20240610 2131) ((emacs (26 1))) "Minimal, light theme" tar ((:url . "https://github.com/erikbackman/mindre-theme") (:commit . "cbecece36988f83b7e355a3fcf5229f2494f3688") (:revdesc . "cbecece36988") (:keywords "faces") (:authors ("Erik Bäckman" . "contact@ebackman.net")) (:maintainers ("Erik Bäckman" . "contact@ebackman.net")) (:maintainer "Erik Bäckman" . "contact@ebackman.net"))])
- (mindstream . [(20241024 323) ((emacs (25 1)) (magit (3 3 0))) "Start writing, stay focused, don't worry" tar ((:url . "https://github.com/countvajhula/mindstream") (:commit . "7e9f28f6342dba4215cf3066c0d52bbe2e4d0f34") (:revdesc . "7e9f28f6342d") (:keywords "convenience" "files" "languages" "outlines" "tools" "vc" "wp") (:authors ("Siddhartha Kasivajhula" . "sid@countvajhula.com")) (:maintainers ("Siddhartha Kasivajhula" . "sid@countvajhula.com")) (:maintainer "Siddhartha Kasivajhula" . "sid@countvajhula.com"))])
+ (mindstream . [(20241121 19) ((emacs (25 1)) (magit (3 3 0))) "Start writing, stay focused, don't worry" tar ((:url . "https://github.com/countvajhula/mindstream") (:commit . "cad6a33c7e45f7c52f627d38d3d1f8f35a53413e") (:revdesc . "cad6a33c7e45") (:keywords "convenience" "files" "languages" "outlines" "tools" "vc" "wp") (:authors ("Siddhartha Kasivajhula" . "sid@countvajhula.com")) (:maintainers ("Siddhartha Kasivajhula" . "sid@countvajhula.com")) (:maintainer "Siddhartha Kasivajhula" . "sid@countvajhula.com"))])
  (minesweeper . [(20200416 2342) nil "Play minesweeper in Emacs" tar ((:url . "https://hg.sr.ht/~zck/minesweeper") (:commit . "d4248e3c9b3e9e7277cb9e6d081330611898f334") (:revdesc . "d4248e3c9b3e9e7277cb9e6d081330611898f334") (:keywords "game" "fun" "minesweeper" "inane" "diversion") (:authors ("Zachary Kanfer" . "zkanfer@gmail.com")) (:maintainers ("Zachary Kanfer" . "zkanfer@gmail.com")) (:maintainer "Zachary Kanfer" . "zkanfer@gmail.com"))])
  (mingus . [(20230518 1726) ((libmpdee (2 2))) "MPD Interface" tar ((:url . "https://github.com/pft/mingus") (:commit . "3fa9b95552eb062eb245321abb7f442c458618dc") (:revdesc . "3fa9b95552eb") (:keywords "multimedia" "elisp" "music" "mpd") (:authors ("Niels Giesen" . "pfton#emacs")) (:maintainers ("Niels Giesen" . "pfton#emacs")) (:maintainer "Niels Giesen" . "pfton#emacs"))])
  (mini-echo . [(20241029 401) ((emacs (29 1)) (dash (2 19 1)) (hide-mode-line (1 0 3))) "Echo buffer status in minibuffer window" tar ((:url . "https://github.com/liuyinz/mini-echo.el") (:commit . "381ec09c9efeb15509e7489c64a3b92141ad52c3") (:revdesc . "381ec09c9efe") (:keywords "frames") (:authors ("liuyinz" . "liuyinz95@gmail.com")) (:maintainers ("liuyinz" . "liuyinz95@gmail.com")) (:maintainer "liuyinz" . "liuyinz95@gmail.com"))])
@@ -3380,7 +3380,7 @@
  (miniedit . [(20100419 1745) nil "Enhanced editing for minibuffer fields" tar ((:url . "https://github.com/emacsorphanage/miniedit") (:commit . "e12bf659c3eb92dd8a4cb77642dc0865c54667a3") (:revdesc . "e12bf659c3eb"))])
  (minimal-session-saver . [(20140508 2041) nil "Very lean session saver" tar ((:url . "https://github.com/rolandwalker/minimal-session-saver") (:commit . "ac42b6835f777a8a7e04599d8f20ec650997ba96") (:revdesc . "ac42b6835f77") (:keywords "tools" "frames" "project") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainers ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com"))])
  (minimal-theme . [(20190113 2132) nil "A light/dark minimalistic Emacs 24 theme" tar ((:url . "https://github.com/anler/minimal-theme") (:commit . "063b4d8ca33d55d04c341f0b2b777ec241a3e201") (:revdesc . "063b4d8ca33d") (:keywords "color" "theme" "minimal") (:authors ("Anler Hp" . "anler86[at]gmail.com")) (:maintainers ("Anler Hp" . "anler86[at]gmail.com")) (:maintainer "Anler Hp" . "anler86[at]gmail.com"))])
- (minions . [(20240805 1422) ((emacs (26 1)) (compat (30 0 0 0))) "A minor-mode menu for the mode line" tar ((:url . "https://github.com/tarsius/minions") (:commit . "413b95a0d1c7c10d0f8d440d1982062b73d5ea4a") (:revdesc . "413b95a0d1c7") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev"))])
+ (minions . [(20241123 2136) ((emacs (26 1)) (compat (30 0 0 0))) "A minor-mode menu for the mode line" tar ((:url . "https://github.com/tarsius/minions") (:commit . "e04415dc028ba252f079cfc7d6dff3059a047fbd") (:revdesc . "e04415dc028b") (:keywords "convenience") (:authors ("Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.minions@jonas.bernoulli.dev"))])
  (minitest . [(20231222 1521) ((dash (1 0 0))) "An Emacs mode for ruby minitest files" tar ((:url . "https://github.com/arthurnn/minitest-emacs") (:commit . "5999c45c047212cee15a2be67e78787776a79c35") (:revdesc . "5999c45c0472"))])
  (minizinc-mode . [(20180201 1450) ((emacs (24 1))) "Major mode for MiniZinc code" tar ((:url . "https://github.com/m00nlight/minizinc-mode") (:commit . "2512521ba7f8e263a06db88df663fc6b3cca7e16") (:revdesc . "2512521ba7f8") (:keywords "languages" "minizinc"))])
  (minor-mode-hack . [(20170926 34) nil "Change priority of minor-mode keymaps" tar ((:url . "https://github.com/rubikitch/minor-mode-hack") (:commit . "c3aa957602c924c01fe07d48d191b8616fb3696a") (:revdesc . "c3aa957602c9") (:keywords "lisp") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainers ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org"))])
@@ -3389,7 +3389,7 @@
  (mip-mode . [(20151127 617) nil "Virtual projects for emacs" tar ((:url . "https://gitlab.com/gaudecker/mip-mode") (:commit . "7c88c383b4c7ed0a4c1dc397735f365c1fcb461c") (:revdesc . "7c88c383b4c7") (:keywords "workspaces" "workspace" "project" "projects" "mip-mode") (:authors ("Eeli Reilin" . "gaudecker@fea.st")) (:maintainers ("Eeli Reilin" . "gaudecker@fea.st")) (:maintainer "Eeli Reilin" . "gaudecker@fea.st"))])
  (mips-mode . [(20220608 1204) ((emacs (25 1))) "Major-mode for MIPS assembly" tar ((:url . "https://github.com/hlissner/emacs-mips-mode") (:commit . "98795cdc81979821ac35d9f94ce354cd99780c67") (:revdesc . "98795cdc8197") (:keywords "languages" "mips" "assembly") (:authors ("Henrik Lissner" . "http://github/hlissner")) (:maintainers ("Henrik Lissner" . "contact@henrik.io")) (:maintainer "Henrik Lissner" . "contact@henrik.io"))])
  (mise . [(20241106 1515) ((emacs (29 1)) (inheritenv (0 2)) (dash (2 19 1))) "Support for `mise' cli" tar ((:url . "https://github.com/liuyinz/mise.el") (:commit . "6e32b3787dd926cc9d8e9202b5aaa82682398261") (:revdesc . "6e32b3787dd9") (:keywords "tools" "processes") (:authors ("liuyinz" . "liuyinz95@gmail.com")) (:maintainers ("Liuyinz" . "liuyinz95@gmail.com")) (:maintainer "Liuyinz" . "liuyinz95@gmail.com"))])
- (mistty . [(20241115 1744) ((emacs (29 1))) "Shell/Comint alternative based on term.el" tar ((:url . "https://github.com/szermatt/mistty") (:commit . "046f79219d516e33d73b39b6f5779790cd814893") (:revdesc . "046f79219d51") (:keywords "convenience" "unix") (:authors ("Stephane Zermatten" . "szermatt@gmx.net")) (:maintainers ("Stephane Zermatten" . "szermatt@gmx.net")) (:maintainer "Stephane Zermatten" . "szermatt@gmx.net"))])
+ (mistty . [(20241124 1049) ((emacs (29 1))) "Shell/Comint alternative based on term.el" tar ((:url . "https://github.com/szermatt/mistty") (:commit . "45f1b757a3c4bc75103a8eb3c687cd3c08b137c1") (:revdesc . "45f1b757a3c4") (:keywords "convenience" "unix") (:authors ("Stephane Zermatten" . "szermatt@gmx.net")) (:maintainers ("Stephane Zermatten" . "szermatt@gmx.net")) (:maintainer "Stephane Zermatten" . "szermatt@gmx.net"))])
  (mix . [(20240122 720) ((emacs (25 1))) "Mix Major Mode. Build Elixir using Mix" tar ((:url . "https://github.com/ayrat555/mix.el") (:commit . "16cc69cbf919769c191b1c49c1cab324fd0682a9") (:revdesc . "16cc69cbf919") (:keywords "tools") (:authors ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainers ("Ayrat Badykov" . "ayratin555@gmail.com")) (:maintainer "Ayrat Badykov" . "ayratin555@gmail.com"))])
  (mixed-pitch . [(20210304 1900) ((emacs (24 3))) "Use a variable pitch, keeping fixed pitch where it's sensible" tar ((:url . "https://gitlab.com/jabranham/mixed-pitch") (:commit . "519e05f74825abf04b7d2e0e38ec040d013a125a") (:revdesc . "519e05f74825") (:authors ("J. Alexander Branham" . "branham@utexas.edu")) (:maintainers ("J. Alexander Branham" . "branham@utexas.edu")) (:maintainer "J. Alexander Branham" . "branham@utexas.edu"))])
  (mkdown . [(20140517 1418) ((markdown-mode (2 0))) "Pretty Markdown previews based on mkdown.com" tar ((:url . "https://github.com/ajtulloch/mkdown.el") (:commit . "8e23de82719af6c5b53b52b3308a02b3a1fb872e") (:revdesc . "8e23de82719a") (:keywords "markdown"))])
@@ -3462,7 +3462,7 @@
  (mpdel-embark . [(20230103 2021) ((emacs (26 1)) (mpdel (2 0 0)) (libmpdel (2 0 0)) (embark (0 19))) "Integrate MPDel with Embark" tar ((:url . "https://github.com/mpdel/mpdel-embark") (:commit . "31d91a62b680fb4472ec34c04ac6af80bb3cf4b8") (:revdesc . "31d91a62b680") (:keywords "multimedia") (:authors ("Damien Cassou" . "damien@cassou.me")) (:maintainers ("Damien Cassou" . "damien@cassou.me")) (:maintainer "Damien Cassou" . "damien@cassou.me"))])
  (mpdmacs . [(20240917 310) ((emacs (29 1)) (elmpd (0 3))) "A lightweight MPD client" tar ((:url . "https://github.com/sp1ff/mpdmacs") (:commit . "fca8374804216fb0533b5cbe92199dc4179033db") (:revdesc . "fca837480421") (:keywords "comm") (:authors ("Michael Herstine" . "sp1ff@pobox.com")) (:maintainers ("Michael Herstine" . "sp1ff@pobox.com")) (:maintainer "Michael Herstine" . "sp1ff@pobox.com"))])
  (mpmc-queue . [(20180303 2029) ((emacs (26 0)) (queue (0 2 0))) "A multiple-producer-multiple-consumer queue" tar ((:url . "https://github.com/smizoe/mpmc-queue") (:commit . "df07d6bef7468edb1d73ef73b8331b94d0e5d0ca") (:revdesc . "df07d6bef746") (:keywords "lisp" "async") (:authors ("Sho Mizoe" . "sho.mizoe@gmail.com")) (:maintainers ("Sho Mizoe" . "sho.mizoe@gmail.com")) (:maintainer "Sho Mizoe" . "sho.mizoe@gmail.com"))])
- (mpv . [(20220801 1917) ((emacs (25 1))) "Control mpv for easy note-taking" tar ((:url . "https://github.com/kljohann/mpv.el") (:commit . "2e0234bc21a3dcdf12d94d3285475e7f6769d3e8") (:revdesc . "2e0234bc21a3") (:keywords "tools" "multimedia") (:authors ("Johann Klähn" . "johann@jklaehn.de")) (:maintainers ("Johann Klähn" . "johann@jklaehn.de")) (:maintainer "Johann Klähn" . "johann@jklaehn.de"))])
+ (mpv . [(20241121 2308) ((emacs (25 1))) "Control mpv for easy note-taking" tar ((:url . "https://github.com/kljohann/mpv.el") (:commit . "62cb8825d525d7c9475dd93d62ba84d419bc4832") (:revdesc . "62cb8825d525") (:keywords "tools" "multimedia") (:authors ("Johann Klähn" . "johann@jklaehn.de")) (:maintainers ("Johann Klähn" . "johann@jklaehn.de")) (:maintainer "Johann Klähn" . "johann@jklaehn.de"))])
  (mpvi . [(20240315 214) ((emacs (28 1)) (emms (11))) "Media tool based on EMMS and MPV" tar ((:url . "https://github.com/lorniu/mpvi") (:commit . "2412e4cd2879e1ebeaf29b92104abc94226b50bc") (:revdesc . "2412e4cd2879") (:keywords "convenience" "docs" "multimedia" "application") (:authors ("lorniu" . "lorniu@gmail.com")) (:maintainers ("lorniu" . "lorniu@gmail.com")) (:maintainer "lorniu" . "lorniu@gmail.com"))])
  (mqr . [(20180527 1204) ((emacs (24 4))) "Multi-dimensional query and replace" tar ((:url . "https://github.com/calancha/multi-replace") (:commit . "4ade19d4620b8b61340290bf63fa56d5e493859f") (:revdesc . "4ade19d4620b") (:keywords "convenience" "extensions" "lisp") (:authors ("Tino Calancha" . "tino.calancha@gmail.com")) (:maintainers ("Tino Calancha" . "tino.calancha@gmail.com")) (:maintainer "Tino Calancha" . "tino.calancha@gmail.com"))])
  (mqtt-mode . [(20180611 1735) ((emacs (25)) (dash (2 12 0))) "Client for interaction with MQTT servers" tar ((:url . "https://github.com/andrmuel/mqtt-mode") (:commit . "613e70e9b9940e635e779994b5c83f86eb62c8e6") (:revdesc . "613e70e9b994") (:keywords "tools") (:authors ("Andreas Müller" . "code@0x7.ch")) (:maintainers ("Andreas Müller" . "code@0x7.ch")) (:maintainer "Andreas Müller" . "code@0x7.ch"))])
@@ -3587,7 +3587,7 @@
  (nix-modeline . [(20210405 742) ((emacs (25 1))) "Info about in-progress Nix evaluations on your modeline" tar ((:url . "https://github.com/ocelot-project/nix-modeline") (:commit . "9a6116a11bdacf649f2c50ae1f2f4b12c03bed70") (:revdesc . "9a6116a11bda") (:keywords "processes" "unix" "tools") (:authors ("Jordan Mulcahey" . "snhjordy@gmail.com")) (:maintainers ("Jordan Mulcahey" . "snhjordy@gmail.com")) (:maintainer "Jordan Mulcahey" . "snhjordy@gmail.com"))])
  (nix-sandbox . [(20210325 1622) ((dash (2 12 1)) (s (1 10 0))) "Utility functions to work with nix-shell sandboxes" tar ((:url . "https://github.com/nix-community/nix-emacs") (:commit . "d3ec98405f1f9dac833abf9e146249b1b943870d") (:revdesc . "d3ec98405f1f") (:authors ("Sven Keidel" . "svenkeidel@gmail.com")) (:maintainers ("Sven Keidel" . "svenkeidel@gmail.com")) (:maintainer "Sven Keidel" . "svenkeidel@gmail.com"))])
  (nix-ts-mode . [(20240930 651) ((emacs (29 1))) "Major mode for Nix expressions, powered by tree-sitter" tar ((:url . "https://github.com/nix-community/nix-ts-mode") (:commit . "9419d014cada54d34e5004e24a31462e8597fd28") (:revdesc . "9419d014cada") (:keywords "nix" "languages") (:maintainers ("Remi Gelinas" . "mail@remigelin.as")) (:maintainer "Remi Gelinas" . "mail@remigelin.as"))])
- (nix-update . [(20220816 2212) ((emacs (25))) "Update \"fetch\" blocks in .nix expressions" tar ((:url . "https://github.com/jwiegley/nix-update-el") (:commit . "aab70a38165575a9cb41726f1cc67df60fbf2832") (:revdesc . "aab70a381655") (:keywords "nix") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainers ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com"))])
+ (nix-update . [(20241123 2159) ((emacs (25))) "Update \"fetch\" blocks in .nix expressions" tar ((:url . "https://github.com/jwiegley/nix-update-el") (:commit . "77022ccd918d665acbb519b243e7e3dc5eae1c47") (:revdesc . "77022ccd918d") (:keywords "nix") (:authors ("John Wiegley" . "johnw@newartisans.com")) (:maintainers ("John Wiegley" . "johnw@newartisans.com")) (:maintainer "John Wiegley" . "johnw@newartisans.com"))])
  (nixfmt . [(20240724 1531) ((emacs (24)) (reformatter (0 3))) "Reformat Nix using nixfmt" tar ((:url . "https://github.com/purcell/emacs-nixfmt") (:commit . "9c8a1c12320247a3fe643191b7574a3674fba317") (:revdesc . "9c8a1c123202") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainers ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))])
  (nixos-options . [(20160209 1841) ((emacs (24))) "Interface for browsing and completing NixOS options" tar ((:url . "https://github.com/nix-community/nix-emacs") (:commit . "045825c2e1cf0a4fb0a472e72c1dae8f55202cef") (:revdesc . "045825c2e1cf") (:keywords "unix") (:authors ("Diego Berrocal" . "cestdiego@gmail.com") ("Travis B. Hartwell" . "nafai@travishartwell.net")) (:maintainers ("Diego Berrocal" . "cestdiego@gmail.com") ("Travis B. Hartwell" . "nafai@travishartwell.net")) (:maintainer "Diego Berrocal" . "cestdiego@gmail.com"))])
  (nixpkgs-fmt . [(20200327 2302) ((emacs (24)) (reformatter (0 3))) "Reformat Nix using nixpkgs-fmt" tar ((:url . "https://github.com/purcell/emacs-nixpkgs-fmt") (:commit . "83e03d6f20bdf79c1c448c15734367b1a7cc6b02") (:revdesc . "83e03d6f20bd") (:keywords "languages") (:authors ("Steve Purcell" . "steve@sanityinc.com")) (:maintainers ("Steve Purcell" . "steve@sanityinc.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))])
@@ -4029,7 +4029,7 @@
  (orthodox-christian-new-calendar-holidays . [(20210830 1657) nil "Feasts (NS)" tar ((:url . "https://github.com/cmchittom/orthodox-christian-new-calendar-holidays") (:commit . "6869024ecd45eefd0ec648979c6a59d7c79770e0") (:revdesc . "6869024ecd45") (:keywords "calendar") (:authors ("Carson Chittom" . "carson@wistly.net")) (:maintainers ("Carson Chittom" . "carson@wistly.net")) (:maintainer "Carson Chittom" . "carson@wistly.net"))])
  (osa . [(20200522 2103) ((emacs (25 1))) "OSA (JavaScript / AppleScript) bridge" tar ((:url . "https://github.com/atomontage/osa") (:commit . "615ca9eef4131a23d9971691fa0d0f20fe59d01b") (:revdesc . "615ca9eef413") (:keywords "extensions") (:authors ("xristos" . "xristos@sdf.org")) (:maintainers ("xristos" . "xristos@sdf.org")) (:maintainer "xristos" . "xristos@sdf.org"))])
  (osa-chrome . [(20230515 237) ((emacs (25 1)) (osa (1 0))) "Google Chrome remote tab control" tar ((:url . "https://github.com/atomontage/osa-chrome") (:commit . "981c35136102eeca77d0e1a41e7c95e8486a1dce") (:revdesc . "981c35136102") (:keywords "comm") (:authors ("xristos" . "xristos@sdf.org")) (:maintainers ("xristos" . "xristos@sdf.org")) (:maintainer "xristos" . "xristos@sdf.org"))])
- (osm . [(20241119 2137) ((emacs (28 1)) (compat (30))) "OpenStreetMap viewer" tar ((:url . "https://github.com/minad/osm") (:commit . "ab76f8a9e79e0ec6330071b4aed974270b6f2a15") (:revdesc . "ab76f8a9e79e") (:keywords "network" "multimedia" "hypermedia" "mouse") (:authors ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Daniel Mendler" . "mail@daniel-mendler.de"))])
+ (osm . [(20241122 130) ((emacs (28 1)) (compat (30))) "OpenStreetMap viewer" tar ((:url . "https://github.com/minad/osm") (:commit . "6a2416dc4c3be22573cd9f5fb285df3f4bd6b6ea") (:revdesc . "6a2416dc4c3b") (:keywords "network" "multimedia" "hypermedia" "mouse") (:authors ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainers ("Daniel Mendler" . "mail@daniel-mendler.de")) (:maintainer "Daniel Mendler" . "mail@daniel-mendler.de"))])
  (osx-browse . [(20140508 2041) ((string-utils (0 3 2)) (browse-url-dwim (0 6 6))) "Web browsing helpers for OS X" tar ((:url . "https://github.com/rolandwalker/osx-browse") (:commit . "838b81625853e04919fbb56fd21f387762b2e3f5") (:revdesc . "838b81625853") (:keywords "hypermedia" "external") (:authors ("Roland Walker" . "walker@pobox.com")) (:maintainers ("Roland Walker" . "walker@pobox.com")) (:maintainer "Roland Walker" . "walker@pobox.com"))])
  (osx-clipboard . [(20141012 717) nil "Use the OS X clipboard from terminal Emacs" tar ((:url . "https://github.com/joddie/osx-clipboard-mode") (:commit . "e46dd31327a3f92f77b013b4c9b1e5fdd0e5c73d") (:revdesc . "e46dd31327a3") (:authors ("Jon Oddie" . "jonxfieldatgmail.com")) (:maintainers ("Jon Oddie" . "jonxfieldatgmail.com")) (:maintainer "Jon Oddie" . "jonxfieldatgmail.com"))])
  (osx-dictionary . [(20240330 942) ((cl-lib (0 5))) "Interface for OSX Dictionary.app" tar ((:url . "https://github.com/xuchunyang/osx-dictionary.el") (:commit . "6abfd6908b0dc773020466225c908000870b383b") (:revdesc . "6abfd6908b0d") (:keywords "mac" "dictionary") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainers ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me"))])
@@ -4041,9 +4041,9 @@
  (osx-trash . [(20220913 1736) ((emacs (24 1))) "System trash for OS X" tar ((:url . "https://github.com/emacsorphanage/osx-trash") (:commit . "90f0c99206022fec646206018fcd63d9d2e57325") (:revdesc . "90f0c9920602") (:keywords "files" "convenience" "tools" "unix") (:authors ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainers ("Sebastian Wiesner" . "swiesner@lunaryorn.com")) (:maintainer "Sebastian Wiesner" . "swiesner@lunaryorn.com"))])
  (otama . [(20160404 1032) nil "Org-table Manipulator" tar ((:url . "https://github.com/yoshinari-nomura/otama") (:commit . "b69e0740846ace7885b0c0717f7abe8d0419eefd") (:revdesc . "b69e0740846a") (:keywords "database" "org-mode") (:authors ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainers ("Yoshinari Nomura" . "nom@quickhack.net")) (:maintainer "Yoshinari Nomura" . "nom@quickhack.net"))])
  (other-emacs-eval . [(20180408 1348) ((emacs (25 1)) (async (1 9 2))) "Evaluate the Emacs Lisp expression in other Emacs" tar ((:url . "https://github.com/xuchunyang/other-emacs-eval") (:commit . "8ace5acafef65daabf0c6619eff60733d7f5d792") (:revdesc . "8ace5acafef6") (:keywords "tools") (:authors ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainers ("Xu Chunyang" . "mail@xuchunyang.me")) (:maintainer "Xu Chunyang" . "mail@xuchunyang.me"))])
- (otpp . [(20241115 2256) ((emacs (28 1)) (compat (29 1))) "One tab per project, with unique names" tar ((:url . "https://github.com/abougouffa/one-tab-per-project") (:commit . "6507da9014b6d4b76925c089cafa62f1cb0b4500") (:revdesc . "6507da9014b6") (:keywords "convenience") (:authors ("Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")")) (:maintainers ("Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")")) (:maintainer "Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")"))])
+ (otpp . [(20241121 1445) ((emacs (28 1)) (compat (29 1))) "One tab per project, with unique names" tar ((:url . "https://github.com/abougouffa/one-tab-per-project") (:commit . "09445a75464d5e92d8e283078ad16c05022f7d9f") (:revdesc . "09445a75464d") (:keywords "convenience") (:authors ("Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")")) (:maintainers ("Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")")) (:maintainer "Abdelhak Bougouffa (rot13" . "\"nobhtbhssn@srqbencebwrpg.bet\")"))])
  (ouroboros . [(20230606 1150) ((emacs (27 1)) (dash (2 19 0)) (cbor (0 2 5)) (bech32 (0 2 1))) "Ouroboros network mini-protocol" tar ((:url . "https://github.com/Titan-C/cardano.el") (:commit . "cf85424b305e8f89debb756dc67eebc84639f711") (:revdesc . "cf85424b305e") (:authors ("Oscar Najera" . "https://oscarnajera.com")) (:maintainers ("Oscar Najera" . "hi@oscarnajera.com")) (:maintainer "Oscar Najera" . "hi@oscarnajera.com"))])
- (outline-indent . [(20241119 1447) ((emacs (26 1))) "Folding text based on indentation (origami alternative)" tar ((:url . "https://github.com/jamescherti/outline-indent.el") (:commit . "60f0786a6ede572fd3dfe0bc05597f1a24fef5da") (:revdesc . "60f0786a6ede") (:keywords "outlines"))])
+ (outline-indent . [(20241124 514) ((emacs (26 1))) "Folding text based on indentation (origami alternative)" tar ((:url . "https://github.com/jamescherti/outline-indent.el") (:commit . "c10ac32b0a241e62d92d91e79be5c67cac449864") (:revdesc . "c10ac32b0a24") (:keywords "outlines"))])
  (outline-magic . [(20180619 1819) nil "Outline mode extensions for Emacs" tar ((:url . "https://github.com/tj64/outline-magic") (:commit . "2a5f07417b696cf7541d435c43bafcc64817636b") (:revdesc . "2a5f07417b69") (:keywords "outlines") (:authors ("Carsten Dominik" . "dominik@science.uva.nl")) (:maintainers ("Thorsten Jolitz" . "tjolitzATgmailDOTcom")) (:maintainer "Thorsten Jolitz" . "tjolitzATgmailDOTcom"))])
  (outline-minor-faces . [(20240831 2209) ((emacs (26 1)) (compat (30 0 0 0))) "Highlight only section headings" tar ((:url . "https://github.com/tarsius/outline-minor-faces") (:commit . "4628613f3570b865b2c22b750ebd41443c1848c2") (:revdesc . "4628613f3570") (:keywords "faces" "outlines") (:authors ("Jonas Bernoulli" . "emacs.outline-minor-faces@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.outline-minor-faces@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.outline-minor-faces@jonas.bernoulli.dev"))])
  (outline-toc . [(20200401 1208) nil "Sidebar showing a \"table of contents\"" tar ((:url . "https://github.com/abingham/outline-toc.el") (:commit . "81d373633b40628cc3a6b6fb534fd7730076bcdb") (:revdesc . "81d373633b40") (:keywords "convenience" "outlines") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainers ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com"))])
@@ -4107,7 +4107,7 @@
  (pacfiles-mode . [(20230503 1523) ((emacs (26 1))) "The pacnew and pacsave merging tool" tar ((:url . "https://github.com/UndeadKernel/pacfiles-mode") (:commit . "a613d1d88dba4cb293ecaf42a9aeff7d8a3ce8aa") (:revdesc . "a613d1d88dba") (:keywords "files" "pacman" "arch" "pacnew" "pacsave" "update" "linux") (:authors ("Carlos G. Cordero" . "http://github/UndeadKernel")) (:maintainers ("Carlos G. Cordero" . "pacfiles@binarycharly.com")) (:maintainer "Carlos G. Cordero" . "pacfiles@binarycharly.com"))])
  (pack . [(20191017 456) ((emacs (24)) (cl-lib (0 5))) "Pack and unpack archive files" tar ((:url . "https://github.com/10sr/pack-el") (:commit . "85cd856fdc00a2365e88b50373b99f1b3d2227be") (:revdesc . "85cd856fdc00") (:keywords "files" "dired") (:authors ("10sr" . "8.slashes@gmail.com")) (:maintainers ("10sr" . "8.slashes@gmail.com")) (:maintainer "10sr" . "8.slashes@gmail.com"))])
  (package+ . [(20230805 2115) ((emacs (24 3))) "Extensions for the package library" tar ((:url . "https://github.com/zenspider/package") (:commit . "57a53a1da75d76a9dcd17008d1c1d77475b9671a") (:revdesc . "57a53a1da75d") (:keywords "extensions" "tools") (:authors ("Ryan Davis" . "ryand-ruby@zenspider.com")) (:maintainers ("Ryan Davis" . "ryand-ruby@zenspider.com")) (:maintainer "Ryan Davis" . "ryand-ruby@zenspider.com"))])
- (package-build . [(20240930 1924) ((emacs (26 1)) (compat (30 0 0 0))) "Tools for assembling a package archive" tar ((:url . "https://github.com/melpa/package-build") (:commit . "af2dc7784df675cfca7b307e77ec2084ca5432f4") (:revdesc . "af2dc7784df6") (:keywords "maint" "tools") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net") ("Steve Purcell" . "steve@sanityinc.com") ("Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev") ("Phil Hagelberg" . "technomancy@gmail.com")) (:maintainers ("Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev"))])
+ (package-build . [(20241123 2136) ((emacs (26 1)) (compat (30 0 0 0))) "Tools for assembling a package archive" tar ((:url . "https://github.com/melpa/package-build") (:commit . "c1b276904278f0f89da2684f5e044760e3232c29") (:revdesc . "c1b276904278") (:keywords "maint" "tools") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net") ("Steve Purcell" . "steve@sanityinc.com") ("Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev") ("Phil Hagelberg" . "technomancy@gmail.com")) (:maintainers ("Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.package-build@jonas.bernoulli.dev"))])
  (package-filter . [(20161122 719) nil "Package archive whitelist and blacklist" tar ((:url . "https://github.com/milkypostman/package-filter") (:commit . "c8e2531227c02c4c5e9d593f2cdb6a4ab4a6849b") (:revdesc . "c8e2531227c0") (:authors ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainers ("Donald Ephraim Curtis" . "dcurtis@milkbox.net")) (:maintainer "Donald Ephraim Curtis" . "dcurtis@milkbox.net"))])
  (package-lint . [(20240923 1044) ((emacs (24 4)) (let-alist (1 0 6))) "A linting library for elisp package authors" tar ((:url . "https://github.com/purcell/package-lint") (:commit . "ae5491c511cb49ddb75d6dd4cd934bf71e47a2d5") (:revdesc . "ae5491c511cb") (:keywords "lisp") (:authors ("Steve Purcell" . "steve@sanityinc.com") ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainers ("Steve Purcell" . "steve@sanityinc.com") ("Fanael Linithien" . "fanael4@gmail.com")) (:maintainer "Steve Purcell" . "steve@sanityinc.com"))])
  (package-lint-flymake . [(20240923 931) ((emacs (26 1)) (package-lint (0 5))) "A package-lint Flymake backend" tar ((:url . "https://github.com/purcell/package-lint") (:commit . "e3d3fb254221d053c75edfd9f0ebfa58d1eb52f9") (:revdesc . "e3d3fb254221"))])
@@ -4407,7 +4407,7 @@
  (prompt-text . [(20190408 310) nil "Configure your minibuffer prompt" tar ((:url . "https://github.com/10sr/prompt-text-el") (:commit . "b842bf13c53d0a2bd2bc7a00d37cc713d69fa9e9") (:revdesc . "b842bf13c53d") (:keywords "utility" "minibuffer") (:authors ("10sr" . "8slashes+el[at]gmail[dot]com")) (:maintainers ("10sr" . "8slashes+el[at]gmail[dot]com")) (:maintainer "10sr" . "8slashes+el[at]gmail[dot]com"))])
  (prompts . [(20160916 1041) ((dash (2 13 0))) "Utilities for working with text prompts" tar ((:url . "https://github.com/GuiltyDolphin/prompts.el") (:commit . "1cd5e732ff2a86b47836eb7252e5b59cd4b6ab26") (:revdesc . "1cd5e732ff2a") (:keywords "input" "minibuffer") (:authors ("Ben Moon" . "guiltydolphin@gmail.com")) (:maintainers ("Ben Moon" . "guiltydolphin@gmail.com")) (:maintainer "Ben Moon" . "guiltydolphin@gmail.com"))])
  (pronto . [(20200218 1633) ((emacs (24))) "Compilation mode for pronto stylechecks" tar ((:url . "https://github.com/julianrubisch/pronto.el") (:commit . "c0cd13d8219879610b7fe284b182a9db4d3d40b3") (:revdesc . "c0cd13d82198") (:keywords "processes" "tools") (:authors ("Julian Rubisch" . "julian@julianrubisch.at")) (:maintainers ("Julian Rubisch" . "julian@julianrubisch.at")) (:maintainer "Julian Rubisch" . "julian@julianrubisch.at"))])
- (proof-general . [(20240912 1558) ((emacs (25 2))) "A generic Emacs interface for proof assistants" tar ((:url . "https://github.com/ProofGeneral/PG") (:commit . "1ffca70b2fcfd1c524f9b9e5ceebae07d3b745b6") (:revdesc . "1ffca70b2fcf") (:maintainers (nil . "proof-general-maintainers@groupes.renater.fr")) (:maintainer nil . "proof-general-maintainers@groupes.renater.fr"))])
+ (proof-general . [(20241121 1756) ((emacs (25 2))) "A generic Emacs interface for proof assistants" tar ((:url . "https://github.com/ProofGeneral/PG") (:commit . "8401163e42a2a92894c987005498da0f84a03773") (:revdesc . "8401163e42a2") (:maintainers (nil . "proof-general-maintainers@groupes.renater.fr")) (:maintainer nil . "proof-general-maintainers@groupes.renater.fr"))])
  (prop-menu . [(20150728 1118) ((emacs (24 3)) (cl-lib (0 5))) "Create and display a context menu based on text and overlay properties" tar ((:url . "https://github.com/david-christiansen/prop-menu-el") (:commit . "50b102c1c0935fd3e0c465feed7f27d66b21cdf3") (:revdesc . "50b102c1c093") (:keywords "convenience") (:authors ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainers ("David Christiansen" . "david@davidchristiansen.dk")) (:maintainer "David Christiansen" . "david@davidchristiansen.dk"))])
  (propfont-mixed . [(20150113 2211) ((emacs (24)) (cl-lib (0 5))) "Use proportional fonts with space-based indentation" tar ((:url . "https://github.com/ikirill/propfont-mixed") (:commit . "0b461ef4754a469610dba71874a34b6da42176bf") (:revdesc . "0b461ef4754a") (:keywords "faces") (:authors ("Kirill Ignatiev" . "github.com/ikirill")) (:maintainers ("Kirill Ignatiev" . "github.com/ikirill")) (:maintainer "Kirill Ignatiev" . "github.com/ikirill"))])
  (proportional . [(20221205 1417) ((emacs (25 1))) "Use a proportional font everywhere" tar ((:url . "https://github.com/ksjogo/proportional") (:commit . "6b675694292a5dbebb52b6196e8ccee6e3a73042") (:revdesc . "6b675694292a") (:keywords "faces"))])
@@ -4516,7 +4516,7 @@
  (qwen-chat-shell . [(20240612 343) ((emacs (27 1)) (shell-maker (0 50 1))) "Qwen-chat shell + buffer insert commands" tar ((:url . "https://github.com/Pavinberg/qwen-chat-shell") (:commit . "2d6562c8a75aebf7a59e554011571ba5883cf4fd") (:revdesc . "2d6562c8a75a") (:authors ("Pavinberg" . "pavin0702@gmail.com")) (:maintainers ("Pavinberg" . "pavin0702@gmail.com")) (:maintainer "Pavinberg" . "pavin0702@gmail.com"))])
  (r-autoyas . [(20140101 1510) ((ess (0)) (yasnippet (0 8 0))) "Provides automatically created yasnippets for R function argument lists" tar ((:url . "https://github.com/mattfidler/r-autoyas.el") (:commit . "d321a7da0ef2e94668d53e0807277da7b70ea678") (:revdesc . "d321a7da0ef2") (:keywords "r" "yasnippet"))])
  (racer . [(20210307 243) ((emacs (25 1)) (rust-mode (0 2 0)) (dash (2 13 0)) (s (1 10 0)) (f (0 18 2)) (pos-tip (0 4 6))) "Code completion, goto-definition and docs browsing for Rust via racer" tar ((:url . "https://github.com/racer-rust/emacs-racer") (:commit . "1e63e98626737ea9b662d4a9b1ffd6842b1c648c") (:revdesc . "1e63e9862673") (:keywords "abbrev" "convenience" "matching" "rust" "tools"))])
- (racket-mode . [(20241116 1700) ((emacs (25 1))) "Racket editing, REPL, and more" tar ((:url . "https://github.com/greghendershott/racket-mode") (:commit . "c5bee6895b2d028820a75356abacc19a5ed11918") (:revdesc . "c5bee6895b2d") (:authors ("Greg Hendershott" . "racket-mode-author@greghendershott.com")))])
+ (racket-mode . [(20241121 2018) ((emacs (25 1))) "Racket editing, REPL, and more" tar ((:url . "https://github.com/greghendershott/racket-mode") (:commit . "09f5019321f3fc59ee013841a06696be313aecf0") (:revdesc . "09f5019321f3") (:authors ("Greg Hendershott" . "racket-mode-author@greghendershott.com")))])
  (rails-i18n . [(20220126 1643) ((emacs (27 2)) (yaml (0 1 0)) (dash (2 19 1))) "Seach and insert i18n on ruby code" tar ((:url . "https://github.com/otavioschwanck/rails-i18n.el") (:commit . "8e87e4e48e31902b8259ded28a208c2e7efea6e9") (:revdesc . "8e87e4e48e31") (:keywords "tools" "languages") (:authors ("Otávio Schwanck dos Santos" . "otavioschwanck@gmail.com")) (:maintainers ("Otávio Schwanck dos Santos" . "otavioschwanck@gmail.com")) (:maintainer "Otávio Schwanck dos Santos" . "otavioschwanck@gmail.com"))])
  (rails-log-mode . [(20140408 425) nil "Major mode for viewing Rails log files" tar ((:url . "https://github.com/ananthakumaran/rails-log-mode") (:commit . "ff440003ad7d47cb0ac3300f2a632f4cfd36a446") (:revdesc . "ff440003ad7d") (:keywords "rails" "log") (:authors ("Anantha kumaran" . "ananthakumaran@gmail.com")) (:maintainers ("Anantha kumaran" . "ananthakumaran@gmail.com")) (:maintainer "Anantha kumaran" . "ananthakumaran@gmail.com"))])
  (rails-routes . [(20220126 1631) ((emacs (27 2)) (inflections (1 1))) "Search for and insert rails routes" tar ((:url . "https://github.com/otavioschwanck/rails-routes.el") (:commit . "eab995a9297ca5bd9bd4f4c2737f2fecfc36def0") (:revdesc . "eab995a9297c") (:keywords "tools" "languages") (:authors ("Otávio Schwanck" . "otavioschwanck@gmail.com")) (:maintainers ("Otávio Schwanck" . "otavioschwanck@gmail.com")) (:maintainer "Otávio Schwanck" . "otavioschwanck@gmail.com"))])
@@ -4827,7 +4827,7 @@
  (shell-current-directory . [(20140101 2354) nil "Create new shell based on buffer directory" tar ((:url . "https://github.com/metaperl/shell-current-directory") (:commit . "bf843771bf9a4aa05e054ade799eb8862f3be89a") (:revdesc . "bf843771bf9a") (:keywords "shell" "comint"))])
  (shell-here . [(20220102 1703) nil "Open a shell relative to the working directory" tar ((:url . "https://codeberg.org/emacs-weirdware/shell-here") (:commit . "eeb437ff26d62a5009046b1b3b4503b768e3131a") (:revdesc . "eeb437ff26d6") (:keywords "unix" "tools" "processes") (:authors ("Ian Eure" . "ian.eure@gmail.com")) (:maintainers ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com"))])
  (shell-history . [(20100505 839) nil "Integration with shell history" tar ((:url . "https://github.com/emacsorphanage/shell-history") (:commit . "ee371a81f2d2bf5a308344078329ca1e9b5ed38c") (:revdesc . "ee371a81f2d2") (:keywords "processes" "convenience") (:authors ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainers ("rubikitch" . "rubikitch@ruby-lang.org")) (:maintainer "rubikitch" . "rubikitch@ruby-lang.org"))])
- (shell-maker . [(20241119 1109) ((emacs (27 1))) "Interaction mode for making comint shells" tar ((:url . "https://github.com/xenodium/shell-maker") (:commit . "d90ec9ad3f83d381de65159043318f3381bb3a36") (:revdesc . "d90ec9ad3f83"))])
+ (shell-maker . [(20241123 1808) ((emacs (27 1))) "Interaction mode for making comint shells" tar ((:url . "https://github.com/xenodium/shell-maker") (:commit . "82db4dbedfd8196d487bb18be186204b9b840a85") (:revdesc . "82db4dbedfd8"))])
  (shell-pop . [(20231228 612) ((emacs (24 1)) (cl-lib (0 5))) "Helps you to use shell easily on Emacs. Only one key action to work" tar ((:url . "https://github.com/kyagi/shell-pop-el") (:commit . "ff3dc705ee1c7bc566b35c17e4635c57061fe3ae") (:revdesc . "ff3dc705ee1c") (:keywords "shell" "terminal" "tools") (:authors ("Kazuo YAGI" . "kazuo.yagi@gmail.com")) (:maintainers ("Kazuo YAGI" . "kazuo.yagi@gmail.com")) (:maintainer "Kazuo YAGI" . "kazuo.yagi@gmail.com"))])
  (shell-split-string . [(20151224 1008) nil "Split strings using shell-like syntax" tar ((:url . "https://github.com/10sr/shell-split-string-el") (:commit . "19f6f999c33cc66a4c91bacdcc3697c25d97bf5a") (:revdesc . "19f6f999c33c") (:keywords "utility" "library" "shell" "string") (:authors ("10sr" . "8.slashes+el[at]gmail[dot]com")) (:maintainers ("10sr" . "8.slashes+el[at]gmail[dot]com")) (:maintainer "10sr" . "8.slashes+el[at]gmail[dot]com"))])
  (shell-switcher . [(20210509 1045) ((emacs (24))) "Provide fast switching between shell buffers" tar ((:url . "https://github.com/DamienCassou/shell-switcher") (:commit . "ed74b20fa12935be0068765f5bc8de97b92a8020") (:revdesc . "ed74b20fa129") (:keywords "emacs" "package" "elisp" "shell" "eshell" "term" "switcher") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainers ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com"))])
@@ -4862,7 +4862,7 @@
  (side-hustle . [(20240625 1228) ((emacs (24 4)) (seq (2 20))) "Hustle through Imenu in a side window" tar ((:url . "https://github.com/rnkn/side-hustle") (:commit . "94450b58cec1b809afe08d0754a6662839efbc9d") (:revdesc . "94450b58cec1") (:keywords "convenience") (:authors ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainers ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainer "Paul W. Rankin" . "rnkn@rnkn.xyz"))])
  (side-notes . [(20240629 1008) ((emacs (24 4))) "Easy access to a directory notes file" tar ((:url . "https://github.com/rnkn/side-notes") (:commit . "96a142dfd5768d66b1d574027e13c572e4c82a87") (:revdesc . "96a142dfd576") (:keywords "convenience") (:authors ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainers ("Paul W. Rankin" . "rnkn@rnkn.xyz")) (:maintainer "Paul W. Rankin" . "rnkn@rnkn.xyz"))])
  (sidecar-locals . [(20240421 655) ((emacs (27 1))) "A flexible alternative to built-in dir-locals" tar ((:url . "https://codeberg.org/ideasman42/emacs-sidecar-locals") (:commit . "3daf8c07fac7c4ada7a02a1edad2f64894463614") (:revdesc . "3daf8c07fac7") (:keywords "convenience") (:authors ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainers ("Campbell Barton" . "ideasman42@gmail.com")) (:maintainer "Campbell Barton" . "ideasman42@gmail.com"))])
- (sideline . [(20241117 1845) ((emacs (27 1)) (ht (2 4))) "Show information on the side" tar ((:url . "https://github.com/emacs-sideline/sideline") (:commit . "56d4a8558870546516523bf08d35a6859f632855") (:revdesc . "56d4a8558870") (:keywords "convenience") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
+ (sideline . [(20241123 311) ((emacs (27 1)) (ht (2 4))) "Show information on the side" tar ((:url . "https://github.com/emacs-sideline/sideline") (:commit . "b329d097a37585cd21c3b9a5862e0bb2a2f76442") (:revdesc . "b329d097a375") (:keywords "convenience") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (sideline-blame . [(20240906 1906) ((emacs (27 1)) (sideline (0 1 0)) (vc-msg (1 1 1))) "Show blame messages with sideline" tar ((:url . "https://github.com/emacs-sideline/sideline-blame") (:commit . "48288bc77a90b58c7609598d0a129ba1638d0098") (:revdesc . "48288bc77a90") (:keywords "convenience" "blame") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (sideline-flycheck . [(20240629 840) ((emacs (27 1)) (sideline (0 1 1)) (flycheck (0 14)) (ht (2 4))) "Show flycheck errors with sideline" tar ((:url . "https://github.com/emacs-sideline/sideline-flycheck") (:commit . "4147f2754c353e0b7920caf385b8dccc5e6301f7") (:revdesc . "4147f2754c35") (:keywords "convenience" "flycheck") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
  (sideline-flymake . [(20240509 742) ((emacs (27 1)) (sideline (0 1 0))) "Show flymake errors with sideline" tar ((:url . "https://github.com/emacs-sideline/sideline-flymake") (:commit . "06e84875022a5645ece8f4c2c8b56aa5f003c65d") (:revdesc . "06e84875022a") (:keywords "convenience" "flymake") (:authors ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainers ("Jen-Chieh" . "jcs090218@gmail.com")) (:maintainer "Jen-Chieh" . "jcs090218@gmail.com"))])
@@ -4899,10 +4899,10 @@
  (skewer-reload-stylesheets . [(20160725 1220) ((skewer-mode (1 5 3))) "Live-edit CSS, SCSS, Less, and friends" tar ((:url . "https://github.com/NateEag/skewer-reload-stylesheets") (:commit . "3207abca9551660407a6b009cb40fb32bbb550da") (:revdesc . "3207abca9551") (:authors ("Nate Eagleson" . "nate@nateeag.com")) (:maintainers ("Nate Eagleson" . "nate@nateeag.com")) (:maintainer "Nate Eagleson" . "nate@nateeag.com"))])
  (skype . [(20160711 824) nil "Skype UI for emacs users." tar ((:url . "https://github.com/kiwanami/emacs-skype") (:commit . "8e3b33e620ed355522aa36434ff41e3ced080629") (:revdesc . "8e3b33e620ed") (:keywords "skype" "chat") (:authors ("SAKURAI Masashi" . "m.sakurai@kiwanami.net")) (:maintainers ("SAKURAI Masashi" . "m.sakurai@kiwanami.net")) (:maintainer "SAKURAI Masashi" . "m.sakurai@kiwanami.net"))])
  (sl . [(20161217 1404) ((cl-lib (0 5))) "An Emacs clone of sl(1)" tar ((:url . "https://github.com/xuchunyang/sl.el") (:commit . "0882117728be91276b815e18c2a66106bf9d69d3") (:revdesc . "0882117728be") (:authors ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainers ("Chunyang Xu" . "mail@xuchunyang.me")) (:maintainer "Chunyang Xu" . "mail@xuchunyang.me"))])
- (slack . [(20241119 2336) ((websocket (1 8)) (request (0 2 0)) (oauth2 (0 10)) (circe (2 2)) (alert (1 2)) (emojify (0 2)) (emacs (25 1)) (dash (2 19 1)) (s (1 13 1))) "Slack client for Emacs" tar ((:url . "https://github.com/emacs-slack/emacs-slack") (:commit . "113cb87e0a0a3daeae4f1c587fe7c1a0b66cdb61") (:revdesc . "113cb87e0a0a") (:keywords "tools") (:authors ("yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local")) (:maintainers ("yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local")) (:maintainer "yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local"))])
+ (slack . [(20241123 1653) ((websocket (1 8)) (request (0 2 0)) (oauth2 (0 10)) (circe (2 2)) (alert (1 2)) (emojify (0 2)) (emacs (25 1)) (dash (2 19 1)) (s (1 13 1)) (ts (0 3))) "Slack client for Emacs" tar ((:url . "https://github.com/emacs-slack/emacs-slack") (:commit . "603e26caf0ae2cfec0c64bd8861060ee1871ebe9") (:revdesc . "603e26caf0ae") (:keywords "tools") (:authors ("yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local")) (:maintainers ("yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local")) (:maintainer "yuya.minami" . "yuya.minami@yuyaminami-no-MacBook-Pro.local"))])
  (slideview . [(20150324 2240) ((cl-lib (0 3))) "File slideshow" tar ((:url . "https://github.com/mhayashi1120/Emacs-slideview") (:commit . "b6d170bda139aedf81b47dc55cbd1a3af512fb4c") (:revdesc . "b6d170bda139") (:keywords "files") (:authors ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainers ("Masahiro Hayashi" . "mhayashi1120@gmail.com")) (:maintainer "Masahiro Hayashi" . "mhayashi1120@gmail.com"))])
  (slim-mode . [(20240513 2118) nil "Major mode for editing Slim files" tar ((:url . "https://github.com/slim-template/emacs-slim") (:commit . "8c92169817f2fa59255f547f0a9fb4fbb8309db9") (:revdesc . "8c92169817f2") (:keywords "markup" "language"))])
- (slime . [(20241118 1544) ((emacs (24 3)) (macrostep (0 9))) "Superior Lisp Interaction Mode for Emacs" tar ((:url . "https://github.com/slime/slime") (:commit . "929753a0dfb04832e3e358e5c83a90086111aedf") (:revdesc . "929753a0dfb0") (:keywords "languages" "lisp" "slime"))])
+ (slime . [(20241121 1734) ((emacs (24 3)) (macrostep (0 9))) "Superior Lisp Interaction Mode for Emacs" tar ((:url . "https://github.com/slime/slime") (:commit . "9be8de1faac578407cbaebf4e17ecfb30867673e") (:revdesc . "9be8de1faac5") (:keywords "languages" "lisp" "slime"))])
  (slime-company . [(20210124 1627) ((emacs (24 4)) (slime (2 13)) (company (0 9 0))) "Slime completion backend for company mode" tar ((:url . "https://github.com/anwyn/slime-company") (:commit . "f20ecc4104d4c35052696e7e760109fb02060e72") (:revdesc . "f20ecc4104d4") (:keywords "convenience" "lisp" "abbrev") (:authors ("Ole Arndt" . "anwyn@sugarshark.com")) (:maintainers ("Ole Arndt" . "anwyn@sugarshark.com")) (:maintainer "Ole Arndt" . "anwyn@sugarshark.com"))])
  (slime-docker . [(20210426 1422) ((emacs (24 4)) (slime (2 16)) (docker-tramp (0 1))) "Integration of SLIME with Docker containers" tar ((:url . "https://github.com/cl-docker-images/slime-docker") (:commit . "c7d073720f2bd8e9f72a20309fff2afa4c4e798d") (:revdesc . "c7d073720f2b") (:keywords "docker" "lisp" "slime"))])
  (slime-repl-ansi-color . [(20230214 1453) ((emacs (24)) (slime (2 3 1))) "Turn on ANSI colors in REPL output;" tar ((:url . "https://gitlab.com/augfab/slime-repl-ansi-color") (:commit . "9e8af90490332217e45d7568f1690df3f4e25d4b") (:revdesc . "9e8af9049033") (:keywords "lisp") (:authors ("Max Mikhanosha" . "max@openchat.com")) (:maintainers ("Augustin Fabre" . "augustin@augfab.fr")) (:maintainer "Augustin Fabre" . "augustin@augfab.fr"))])
@@ -5054,7 +5054,7 @@
  (sr-speedbar . [(20220705 1231) nil "Same frame speedbar" tar ((:url . "https://github.com/emacsorphanage/sr-speedbar") (:commit . "73ecfc21cf38f0cb1dfbbebebdc3cf573eccf7d2") (:revdesc . "73ecfc21cf38") (:keywords "speedbar" "sr-speedbar.el") (:authors ("Sebastian Rose" . "sebastian_rose@gmx.de")) (:maintainers ("Sebastian Rose" . "sebastian_rose@gmx.de") ("Peter Lunicks" . "plunix@users.sourceforge.net")) (:maintainer "Sebastian Rose" . "sebastian_rose@gmx.de"))])
  (srcery-theme . [(20240220 805) ((emacs (24))) "Dark color theme" tar ((:url . "https://github.com/srcery-colors/srcery-emacs") (:commit . "60028633c5722e6b8ea12844618be0e9b31be55a") (:revdesc . "60028633c572") (:keywords "faces"))])
  (srefactor . [(20230504 617) ((emacs (24 4))) "A refactoring tool based on Semantic parser framework" tar ((:url . "https://github.com/tuhdo/semantic-refactor") (:commit . "95c70a94b5aad4c85b35569e2f2325047791153a") (:revdesc . "95c70a94b5aa") (:keywords "c" "languages" "tools") (:authors ("Do Hoang" . "tuhdo1710@gmail.com")))])
- (srfi . [(20241115 2307) ((emacs (25 1))) "Scheme Requests for Implementation browser" tar ((:url . "https://github.com/srfi-explorations/emacs-srfi") (:commit . "72d09e6c34f0809536a668ca7031ead6ba082ded") (:revdesc . "72d09e6c34f0") (:keywords "languages" "util") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainers ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io"))])
+ (srfi . [(20241121 1857) ((emacs (25 1))) "Scheme Requests for Implementation browser" tar ((:url . "https://github.com/srfi-explorations/emacs-srfi") (:commit . "e9f6edb09d9cce461249ad54505911d71ca81a45") (:revdesc . "e9f6edb09d9c") (:keywords "languages" "util") (:authors ("Lassi Kortela" . "lassi@lassi.io")) (:maintainers ("Lassi Kortela" . "lassi@lassi.io")) (:maintainer "Lassi Kortela" . "lassi@lassi.io"))])
  (srv . [(20180715 1959) ((emacs (24 3))) "Perform SRV DNS requests" tar ((:url . "https://github.com/legoscia/srv.el") (:commit . "714387d5a5cf34d8d8cd96bdb1f9cb8ded823ff7") (:revdesc . "714387d5a5cf") (:keywords "comm") (:authors ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainers ("Magnus Henoch" . "magnus.henoch@gmail.com")) (:maintainer "Magnus Henoch" . "magnus.henoch@gmail.com"))])
  (ssass-mode . [(20200211 132) ((emacs (24 3))) "Edit Sass without a Turing Machine" tar ((:url . "https://github.com/AdamNiederer/ssass-mode") (:commit . "96f557887ad97a0066a60c54f92b7234b8407016") (:revdesc . "96f557887ad9") (:keywords "languages" "sass") (:authors ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainers ("Adam Niederer" . "adam.niederer@gmail.com")) (:maintainer "Adam Niederer" . "adam.niederer@gmail.com"))])
  (ssh . [(20120904 2042) nil "Support for remote logins using ssh" tar ((:url . "https://codeberg.org/emacs-weirdware-abandoned/ssh") (:commit . "c17cf5b43df8ac4662a0580f85898e1f078df0d1") (:revdesc . "c17cf5b43df8") (:keywords "unix" "comm") (:authors ("Noah Friedman" . "friedman@splode.com")) (:maintainers ("Ian Eure" . "ian.eure@gmail.com")) (:maintainer "Ian Eure" . "ian.eure@gmail.com"))])
@@ -5154,7 +5154,7 @@
  (symon . [(20170224 833) nil "Tiny graphical system monitor" tar ((:url . "https://github.com/zk-phi/symon") (:commit . "76461679dfe13a5dccd3c8735fb6f58b26b46733") (:revdesc . "76461679dfe1"))])
  (symon-lingr . [(20150719 1342) ((symon (1 1 2)) (cl-lib (0 5))) "A notification-based Lingr client powered by symon.el" tar ((:url . "https://github.com/zk-phi/symon-lingr") (:commit . "056d1a473e36992ff5881e5ce6fdc331cead975f") (:revdesc . "056d1a473e36"))])
  (sync-recentf . [(20160326 2001) nil "Synchronize the recent files list between Emacs instances" tar ((:url . "https://github.com/ffevotte/sync-recentf") (:commit . "0052561d5c5b5c2684faedc3eead776aec06c3ed") (:revdesc . "0052561d5c5b") (:keywords "recentf") (:authors ("François Févotte" . "fevotte@gmail.com")) (:maintainers ("François Févotte" . "fevotte@gmail.com")) (:maintainer "François Févotte" . "fevotte@gmail.com"))])
- (syncthing . [(20240101 2334) ((emacs (27 1))) "Client for Syncthing" tar ((:url . "https://github.com/KeyWeeUsr/emacs-syncthing") (:commit . "9f44d45a55b460b7eaeb9fb15d17d94e790705e0") (:revdesc . "9f44d45a55b4") (:keywords "convenience" "syncthing" "sync" "client" "view") (:authors ("Peter Badida" . "keyweeusr@gmail.com")) (:maintainers ("Peter Badida" . "keyweeusr@gmail.com")) (:maintainer "Peter Badida" . "keyweeusr@gmail.com"))])
+ (syncthing . [(20241121 2359) ((emacs (27 1))) "Client for Syncthing" tar ((:url . "https://github.com/KeyWeeUsr/emacs-syncthing") (:commit . "725b2dac739c6dd03db0a03f49f3c1cbf9b336bd") (:revdesc . "725b2dac739c") (:keywords "convenience" "syncthing" "sync" "client" "view") (:authors ("Peter Badida" . "keyweeusr@gmail.com")) (:maintainers ("Peter Badida" . "keyweeusr@gmail.com")) (:maintainer "Peter Badida" . "keyweeusr@gmail.com"))])
  (synonymous . [(20180325 1817) ((emacs (24)) (cl-lib (0 5)) (request (0 2 0))) "A thesaurus at your fingertips" tar ((:url . "https://github.com/toroidal-code/synonymous.el") (:commit . "2cb9a674d84fddf3f1b00c9d6b13a853576acb87") (:revdesc . "2cb9a674d84f") (:keywords "utility") (:authors ("Katherine Whitlock" . "toroidalcode@gmail.com") ("authored by Manuel Serrano" . "Manuel.Serrano@inria.fr")) (:maintainers ("Katherine Whitlock" . "toroidalcode@gmail.com") ("authored by Manuel Serrano" . "Manuel.Serrano@inria.fr")) (:maintainer "Katherine Whitlock" . "toroidalcode@gmail.com"))])
  (synosaurus . [(20191125 552) ((cl-lib (0 5))) "An extensible thesaurus supporting lookup and substitution" tar ((:url . "https://github.com/hpdeifel/synosaurus") (:commit . "14d34fc92a77c3a916b4d58400424c44ae99cd81") (:revdesc . "14d34fc92a77") (:keywords "wp") (:authors ("Hans-Peter Deifel" . "hpd@hpdeifel.de")) (:maintainers ("Hans-Peter Deifel" . "hpd@hpdeifel.de")) (:maintainer "Hans-Peter Deifel" . "hpd@hpdeifel.de"))])
  (synquid . [(20160930 1550) ((flycheck (27)) (emacs (24 3))) "Major mode for editing Synquid files" tar ((:url . "https://github.com/cpitclaudel/synquid-emacs") (:commit . "28701ce1a15437202f53ab93a14bcba1de83fd2c") (:revdesc . "28701ce1a154") (:keywords "languages") (:authors ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainers ("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) (:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com"))])
@@ -5180,8 +5180,8 @@
  (tabby-mode . [(20240107 2124) ((emacs (25 1))) "Minor mode for the Tabby AI coding assistant" tar ((:url . "https://github.com/ragnard/tabby-mode") (:commit . "b656727247c5fc78690827fecf232edc1945a331") (:revdesc . "b656727247c5") (:keywords "tools" "convenience") (:authors ("Ragnar Dahlén" . "r.dahlen@gmail.com")) (:maintainers ("Ragnar Dahlén" . "r.dahlen@gmail.com")) (:maintainer "Ragnar Dahlén" . "r.dahlen@gmail.com"))])
  (tabgo . [(20240204 1326) ((emacs (27 1))) "Jump to tabs, avy style" tar ((:url . "https://github.com/isamert/tabgo.el") (:commit . "83b7d3261e9a6aaffd8e97bc047b77a6131789ee") (:revdesc . "83b7d3261e9a") (:authors ("Isa Mert Gurbuz" . "isamertgurbuz@gmail.com")) (:maintainers ("Isa Mert Gurbuz" . "isamertgurbuz@gmail.com")) (:maintainer "Isa Mert Gurbuz" . "isamertgurbuz@gmail.com"))])
  (tablist . [(20231019 1126) ((emacs (24 3))) "Extended tabulated-list-mode" tar ((:url . "https://github.com/emacsorphanage/tablist") (:commit . "fcd37147121fabdf003a70279cf86fbe08cfac6f") (:revdesc . "fcd37147121f") (:keywords "extensions" "lisp") (:authors ("Andreas Politz" . "politza@fh-trier.de")) (:maintainers ("Andreas Politz" . "politza@fh-trier.de")) (:maintainer "Andreas Politz" . "politza@fh-trier.de"))])
- (tabnine . [(20241112 1629) ((emacs (27 1)) (dash (2 16 0)) (s (1 12 0)) (editorconfig (0 9 1)) (language-id (0 5 1)) (transient (0 4 0))) "An unofficial TabNine package with TabNine Chat supported" tar ((:url . "https://github.com/shuxiao9058/tabnine") (:commit . "f410e1820151957926fcd44ecaf8a34307d04465") (:revdesc . "f410e1820151") (:keywords "convenience") (:authors ("Aaron Ji" . "shuxiao9058@gmail.com") ("Tommy Xiang" . "tommyx058@gmail.com") ("John Gong" . "gjtzone@hotmail.com")) (:maintainers ("Aaron Ji" . "shuxiao9058@gmail.com") ("Tommy Xiang" . "tommyx058@gmail.com") ("John Gong" . "gjtzone@hotmail.com")) (:maintainer "Aaron Ji" . "shuxiao9058@gmail.com"))])
- (tabspaces . [(20240924 1414) ((emacs (27 1)) (project (0 8 1))) "Leverage tab-bar and project for buffer-isolated workspaces" tar ((:url . "https://github.com/mclear-tools/tabspaces") (:commit . "49bd9508bade2962f72f4fab9ffc12ef31c271f7") (:revdesc . "49bd9508bade") (:keywords "convenience" "frames") (:authors ("Colin McLear" . "mclear@fastmail.com")))])
+ (tabnine . [(20241123 715) ((emacs (27 1)) (dash (2 16 0)) (s (1 12 0)) (editorconfig (0 9 1)) (language-id (0 5 1)) (transient (0 4 0))) "An unofficial TabNine package with TabNine Chat supported" tar ((:url . "https://github.com/shuxiao9058/tabnine") (:commit . "1f7e417eb18e097c0c08c9d151f40f476aa64608") (:revdesc . "1f7e417eb18e") (:keywords "convenience") (:authors ("Aaron Ji" . "shuxiao9058@gmail.com") ("Tommy Xiang" . "tommyx058@gmail.com") ("John Gong" . "gjtzone@hotmail.com")) (:maintainers ("Aaron Ji" . "shuxiao9058@gmail.com") ("Tommy Xiang" . "tommyx058@gmail.com") ("John Gong" . "gjtzone@hotmail.com")) (:maintainer "Aaron Ji" . "shuxiao9058@gmail.com"))])
+ (tabspaces . [(20241123 1957) ((emacs (27 1)) (project (0 8 1))) "Leverage tab-bar and project for buffer-isolated workspaces" tar ((:url . "https://github.com/mclear-tools/tabspaces") (:commit . "4fd52c33f4a215360e2b2e1b237115a217ae9bbe") (:revdesc . "4fd52c33f4a2") (:keywords "convenience" "frames") (:authors ("Colin McLear" . "mclear@fastmail.com")))])
  (tabula-rasa . [(20141216 547) ((emacs (24 4))) "Distraction free writing mode" tar ((:url . "https://github.com/dppdppd/Tabula-Rasa") (:commit . "e85fff9de18dc31bc6a7aca726e34a95cc5459f5") (:revdesc . "e85fff9de18d") (:keywords "distraction free" "writing") (:authors ("Ido Magal" . "misc@satans.church")) (:maintainers ("Ido Magal" . "misc@satans.church")) (:maintainer "Ido Magal" . "misc@satans.church"))])
  (tagedit . [(20161121 855) ((s (1 3 1)) (dash (1 0 3))) "Some paredit-like features for html-mode" tar ((:url . "https://github.com/magnars/tagedit") (:commit . "b3a70101a0dcf85498c92b7fcfa7fdbac869746c") (:revdesc . "b3a70101a0dc") (:keywords "convenience") (:authors ("Magnar Sveen" . "magnars@gmail.com")) (:maintainers ("Magnar Sveen" . "magnars@gmail.com")) (:maintainer "Magnar Sveen" . "magnars@gmail.com"))])
  (take-off . [(20140531 917) ((emacs (24 3)) (web-server (0 1 0))) "Emacs remote web access" tar ((:url . "https://github.com/tburette/take-off") (:commit . "aa9ea45566fc74febbb6ee9c409ecc4b59246215") (:revdesc . "aa9ea45566fc") (:authors ("Thomas Burette" . "burettethomas@gmail.com")) (:maintainers ("Thomas Burette" . "burettethomas@gmail.com")) (:maintainer "Thomas Burette" . "burettethomas@gmail.com"))])
@@ -5333,7 +5333,7 @@
  (tramp-term . [(20220725 1441) nil "Automatic setup of directory tracking in ssh sessions" tar ((:url . "https://github.com/cuspymd/tramp-term.el") (:commit . "ed75189122737d301f716a30a8013205aa3736f1") (:revdesc . "ed7518912273") (:keywords "comm" "terminals") (:authors ("Randy Morris" . "randy.morris@archlinux.us")) (:maintainers ("Randy Morris" . "randy.morris@archlinux.us")) (:maintainer "Randy Morris" . "randy.morris@archlinux.us"))])
  (transducers . [(20241103 35) ((emacs (28 1))) "Ergonomic, efficient data processing" tar ((:url . "https://github.com/fosskers/transducers.el") (:commit . "f8f46db6ddba6641669160fffb3f98213ab5b213") (:revdesc . "f8f46db6ddba") (:keywords "lisp") (:authors ("Colin Woodbury" . "colin@fosskers.ca")) (:maintainers ("Colin Woodbury" . "colin@fosskers.ca")) (:maintainer "Colin Woodbury" . "colin@fosskers.ca"))])
  (transfer-sh . [(20200601 1708) ((emacs (24 3)) (async (1 0))) "Simple interface for sending buffer contents to transfer.sh" tar ((:url . "https://gitlab.com/tuedachu/transfer-sh.el") (:commit . "0621a66d00ec91a209a542c10b158095088bd44d") (:revdesc . "0621a66d00ec") (:keywords "comm" "convenience" "files"))])
- (transient . [(20241115 2034) ((emacs (26 1)) (compat (30 0 0 0)) (seq (2 24))) "Transient commands" tar ((:url . "https://github.com/magit/transient") (:commit . "291b86e66de3d7b73384f8751050acbdd2187ddb") (:revdesc . "291b86e66de3") (:keywords "extensions") (:authors ("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev"))])
+ (transient . [(20241123 1834) ((emacs (26 1)) (compat (30 0 0 0)) (seq (2 24))) "Transient commands" tar ((:url . "https://github.com/magit/transient") (:commit . "7e50a8fa8ee71f9ada1e9065ba7b1a079c9f3ba8") (:revdesc . "7e50a8fa8ee7") (:keywords "extensions") (:authors ("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev"))])
  (transient-dwim . [(20221225 1630) ((emacs (26 1)) (transient (0 1))) "Useful preset transient commands" tar ((:url . "https://github.com/conao3/transient-dwim.el") (:commit . "cb5e0d35729fc6448553b7a17fc5c843f00e8c1d") (:revdesc . "cb5e0d35729f") (:keywords "tools") (:authors ("Naoya Yamashita" . "conao3@gmail.com")) (:maintainers ("Naoya Yamashita" . "conao3@gmail.com")) (:maintainer "Naoya Yamashita" . "conao3@gmail.com"))])
  (transient-extras . [(20230721 839) ((emacs (28 1))) "Extra features for transient" tar ((:url . "https://github.com/haji-ali/transient-extras") (:commit . "ca0d5c597382615f0ee8300ff8718f54f8214359") (:revdesc . "ca0d5c597382") (:keywords "convenience") (:authors ("Al Haji-Ali" . "abdo.haji.ali@gmail.com") ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainers ("Al Haji-Ali" . "abdo.haji.ali@gmail.com") ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainer "Al Haji-Ali" . "abdo.haji.ali@gmail.com"))])
  (transient-extras-a2ps . [(20230303 1511) ((emacs (28 1)) (transient-extras (1 0 0))) "A transient interface to a2ps" tar ((:url . "https://github.com/haji-ali/transient-extras") (:commit . "e91a1cddb1f0cb8b99d2bd30db64d467e5fa7ea8") (:revdesc . "e91a1cddb1f0") (:keywords "convenience") (:authors ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainers ("Samuel W. Flint" . "swflint@flintfam.org")) (:maintainer "Samuel W. Flint" . "swflint@flintfam.org"))])
@@ -5350,10 +5350,10 @@
  (tree-edit . [(20231124 1712) ((emacs (29 1)) (dash (2 19)) (reazon (0 4 0)) (s (0 0 0))) "A library for structural refactoring and editing" tar ((:url . "https://github.com/ethan-leba/tree-edit") (:commit . "3e71d276e7369ff4525f0e2b84356a31fe6b7782") (:revdesc . "3e71d276e736") (:authors ("Ethan Leba" . "ethanleba5@gmail.com")) (:maintainers ("Ethan Leba" . "ethanleba5@gmail.com")) (:maintainer "Ethan Leba" . "ethanleba5@gmail.com"))])
  (tree-mode . [(20151104 1331) nil "A mode to manage tree widgets" tar ((:url . "https://github.com/emacsorphanage/tree-mode") (:commit . "b06078826d5875d74b0e7b7ac47b0d0917610534") (:revdesc . "b06078826d58") (:keywords "help" "convenience" "widget") (:authors (nil . "wenbinye@163.com")) (:maintainers (nil . "wenbinye@163.com")) (:maintainer nil . "wenbinye@163.com"))])
  (tree-sitter . [(20220212 1632) ((emacs (25 1)) (tsc (0 18 0))) "Incremental parsing system" tar ((:url . "https://github.com/emacs-tree-sitter/elisp-tree-sitter") (:commit . "909717c685ff5a2327fa2ca8fb8a25216129361c") (:revdesc . "909717c685ff") (:keywords "languages" "tools" "parsers" "tree-sitter") (:authors ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainers ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainer "Tuấn-Anh Nguyễn" . "ubolonton@gmail.com"))])
- (tree-sitter-ess-r . [(20241120 757) ((emacs (26 1)) (ess (18 10 1)) (tree-sitter (0 12 1)) (tree-sitter-langs (0 12 0))) "R with tree-sitter" tar ((:url . "https://github.com/ShuguangSun/tree-sitter-ess-r") (:commit . "895846900530017e91f95374a125c66b01d8925c") (:revdesc . "895846900530") (:keywords "tools") (:authors ("Shuguang Sun" . "shuguang79@qq.com")) (:maintainers ("Shuguang Sun" . "shuguang79@qq.com")) (:maintainer "Shuguang Sun" . "shuguang79@qq.com"))])
+ (tree-sitter-ess-r . [(20241120 1547) ((emacs (26 1)) (ess (18 10 1)) (tree-sitter (0 12 1)) (tree-sitter-langs (0 12 0))) "R with tree-sitter" tar ((:url . "https://github.com/ShuguangSun/tree-sitter-ess-r") (:commit . "5e5dbd4d1cf6417530bae2f620405d304fac7772") (:revdesc . "5e5dbd4d1cf6") (:keywords "tools") (:authors ("Shuguang Sun" . "shuguang79@qq.com")) (:maintainers ("Shuguang Sun" . "shuguang79@qq.com")) (:maintainer "Shuguang Sun" . "shuguang79@qq.com"))])
  (tree-sitter-indent . [(20220411 1439) ((emacs (26 1)) (tree-sitter (0 12 1)) (seq (2 20))) "Provide indentation with a Tree-sitter backend" tar ((:url . "https://codeberg.org/FelipeLema/tree-sitter-indent.el") (:commit . "4ef246db3e4ff99f672fe5e4b416c890f885c09e") (:revdesc . "4ef246db3e4f") (:keywords "convenience" "internal") (:authors ("Felipe Lema" . "felipelema@mortemale.org")) (:maintainers ("Felipe Lema" . "felipelema@mortemale.org")) (:maintainer "Felipe Lema" . "felipelema@mortemale.org"))])
  (tree-sitter-ispell . [(20240610 2252) ((emacs (26 1)) (tree-sitter (0 15 0))) "Run ispell on tree-sitter text nodes" tar ((:url . "https://github.com/erickgnavar/tree-sitter-ispell.el") (:commit . "a06eff00affff85992d2a8ad0019034747ffeb70") (:revdesc . "a06eff00afff") (:authors ("Erick Navarro" . "erick@navarro.io")) (:maintainers ("Erick Navarro" . "erick@navarro.io")) (:maintainer "Erick Navarro" . "erick@navarro.io"))])
- (tree-sitter-langs . [(20241118 451) ((emacs (25 1)) (tree-sitter (0 15 0))) "Grammar bundle for tree-sitter" tar ((:url . "https://github.com/emacs-tree-sitter/tree-sitter-langs") (:commit . "b955ffbe26b3a7e931f116720efa7dee9de35174") (:revdesc . "b955ffbe26b3") (:keywords "languages" "tools" "parsers" "tree-sitter") (:authors ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainers ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainer "Tuấn-Anh Nguyễn" . "ubolonton@gmail.com"))])
+ (tree-sitter-langs . [(20241120 1722) ((emacs (25 1)) (tree-sitter (0 15 0))) "Grammar bundle for tree-sitter" tar ((:url . "https://github.com/emacs-tree-sitter/tree-sitter-langs") (:commit . "2e9f14626bbbcf7b37487d9b2b2969dea9284c6a") (:revdesc . "2e9f14626bbb") (:keywords "languages" "tools" "parsers" "tree-sitter") (:authors ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainers ("Tuấn-Anh Nguyễn" . "ubolonton@gmail.com")) (:maintainer "Tuấn-Anh Nguyễn" . "ubolonton@gmail.com"))])
  (treebundel . [(20240531 2321) ((emacs (27 1)) (compat (29 1 4 2))) "Bundle related git-worktrees together" tar ((:url . "https://github.com/purplg/treebundel") (:commit . "b0a5d1bf924d8cadde5bae50b8d9ac131279b828") (:revdesc . "b0a5d1bf924d") (:keywords "convenience" "vc"))])
  (treefactor . [(20200516 1631) ((emacs (26 1)) (dash (2 16 0)) (f (0 20 0)) (org (9 2 6)) (avy (0 5 0))) "Restructure your messy Org documents" tar ((:url . "https://github.com/cyberthal/treefactor") (:commit . "75357757022a4399ab772ff0d92065bd114dabe9") (:revdesc . "75357757022a") (:keywords "outlines" "files" "convenience") (:authors ("Leo Littlebook" . "Leo.Littlebook@gmail.com")) (:maintainers ("Leo Littlebook" . "Leo.Littlebook@gmail.com")) (:maintainer "Leo Littlebook" . "Leo.Littlebook@gmail.com"))])
  (treemacs . [(20241113 2139) ((emacs (26 1)) (cl-lib (0 5)) (dash (2 11 0)) (s (1 12 0)) (ace-window (0 9 0)) (pfuture (1 7)) (hydra (0 13 2)) (ht (2 2)) (cfrs (1 3 2))) "A tree style file explorer package" tar ((:url . "https://github.com/Alexander-Miller/treemacs") (:commit . "2fd7745f1bc446fc590dc7ba2eb4e062a51fbb3e") (:revdesc . "2fd7745f1bc4") (:authors ("Alexander Miller" . "alexanderm@web.de")) (:maintainers ("Alexander Miller" . "alexanderm@web.de")) (:maintainer "Alexander Miller" . "alexanderm@web.de"))])
@@ -5441,7 +5441,7 @@
  (unidecode . [(20201213 1449) nil "Transliterate Unicode to ASCII" tar ((:url . "https://github.com/sindikat/unidecode") (:commit . "525b51b38f5b0435642005957740fe22ecb2a53c") (:revdesc . "525b51b38f5b") (:authors ("sindikat" . "sindikatatmail36dotnet")) (:maintainers ("John Mastro" . "john.b.mastro@gmail.com")) (:maintainer "John Mastro" . "john.b.mastro@gmail.com"))])
  (unifdef . [(20200517 514) nil "Delete code guarded by processor directives" tar ((:url . "https://github.com/Lindydancer/unifdef") (:commit . "7a4b76f664c4375e3d98e8af0a29270752c13701") (:revdesc . "7a4b76f664c4") (:keywords "convenience" "languages"))])
  (unify-opening . [(20230903 844) ((emacs (24 4))) "Unify the mechanism to open files" tar ((:url . "https://github.com/DamienCassou/unify-opening") (:commit . "282ce0e35ecebbe602bec6f8d64f0192d8a18342") (:revdesc . "282ce0e35ece") (:authors ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainers ("Damien Cassou" . "damien.cassou@gmail.com")) (:maintainer "Damien Cassou" . "damien.cassou@gmail.com"))])
- (uniline . [(20241116 1149) ((emacs (29 1)) (hydra (0 15 0))) "Draw UNICODE lines, boxes, arrows onto existing text" tar ((:url . "https://github.com/tbanel/uniline") (:commit . "7f94b02530fc7ad4da2f540d8afaddbb963f7eb8") (:revdesc . "7f94b02530fc") (:keywords "convenience" "text"))])
+ (uniline . [(20241122 951) ((emacs (29 1)) (hydra (0 15 0))) "Draw UNICODE lines, boxes, arrows onto existing text" tar ((:url . "https://github.com/tbanel/uniline") (:commit . "2cc8e5f2cbf04d8a2fddb81eb3c08f8b35f2df60") (:revdesc . "2cc8e5f2cbf0") (:keywords "convenience" "text"))])
  (unipoint . [(20140113 2224) nil "A simple way to insert unicode characters by TeX name" tar ((:url . "https://github.com/apg/unipoint") (:commit . "5da04aebac35a5c9e1d8704f2231808d42f4b36a") (:revdesc . "5da04aebac35") (:authors ("Andrew Gwozdziewycz" . "git@apgwoz.com")) (:maintainers ("Andrew Gwozdziewycz" . "git@apgwoz.com")) (:maintainer "Andrew Gwozdziewycz" . "git@apgwoz.com"))])
  (unison . [(20160704 740) ((emacs (24 1))) "Sync with Unison" tar ((:url . "https://github.com/unhammer/unison.el") (:commit . "a78a04c0d1398d00f75a1bd4799622a65bcb0f28") (:revdesc . "a78a04c0d139") (:keywords "sync") (:authors ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainers ("Kevin Brubeck Unhammer" . "unhammer@fsfe.org")) (:maintainer "Kevin Brubeck Unhammer" . "unhammer@fsfe.org"))])
  (unison-mode . [(20160513 1501) nil "Syntax highlighting for unison file synchronization program" tar ((:url . "https://github.com/impaktor/unison-mode") (:commit . "0bd6a65c0d12f87fcf7bdff15fe54444959b93bf") (:revdesc . "0bd6a65c0d12") (:keywords "symchronization" "unison") (:authors ("Karl Fogelmark" . "karlfogel@gmail.com")) (:maintainers ("Karl Fogelmark" . "karlfogel@gmail.com")) (:maintainer "Karl Fogelmark" . "karlfogel@gmail.com"))])
@@ -5543,7 +5543,7 @@
  (visual-fill-column . [(20240411 656) ((emacs (25 1))) "Fill-column for visual-line-mode" tar ((:url . "https://codeberg.org/joostkremers/visual-fill-column") (:commit . "e04d3521b6dc2435de4c4a4b9cac5feb194f0d5b") (:revdesc . "e04d3521b6dc") (:authors ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainers ("Joost Kremers" . "joostkremers@fastmail.fm")) (:maintainer "Joost Kremers" . "joostkremers@fastmail.fm"))])
  (visual-regexp . [(20210502 2019) ((cl-lib (0 2))) "A regexp/replace command for Emacs with interactive visual feedback" tar ((:url . "https://github.com/benma/visual-regexp.el") (:commit . "48457d42a5e0fe10fa3a9c15854f1f127ade09b5") (:revdesc . "48457d42a5e0") (:keywords "regexp" "replace" "visual" "feedback") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainers ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com"))])
  (visual-regexp-steroids . [(20170222 253) ((visual-regexp (1 1))) "Extends visual-regexp to support other regexp engines" tar ((:url . "https://github.com/benma/visual-regexp-steroids.el") (:commit . "a6420b25ec0fbba43bf57875827092e1196d8a9e") (:revdesc . "a6420b25ec0f") (:keywords "external" "foreign" "regexp" "replace" "python" "visual" "feedback") (:authors ("Marko Bencun" . "mbencun@gmail.com")) (:maintainers ("Marko Bencun" . "mbencun@gmail.com")) (:maintainer "Marko Bencun" . "mbencun@gmail.com"))])
- (visual-replace . [(20241118 2004) ((emacs (26 1))) "A prompt for replace-string and query-replace" tar ((:url . "https://github.com/szermatt/visual-replace") (:commit . "ef41f40371974e8c13dbd82f2fd11fdee98d99a1") (:revdesc . "ef41f4037197") (:keywords "convenience" "matching" "replace") (:authors ("Stephane Zermatten" . "szermatt@gmail.com")) (:maintainers ("Stephane Zermatten" . "szermatt@gmail.com")) (:maintainer "Stephane Zermatten" . "szermatt@gmail.com"))])
+ (visual-replace . [(20241124 1051) ((emacs (26 1))) "A prompt for replace-string and query-replace" tar ((:url . "https://github.com/szermatt/visual-replace") (:commit . "19544555e7b5bba624238217a295fd4c80c0ed1d") (:revdesc . "19544555e7b5") (:keywords "convenience" "matching" "replace") (:authors ("Stephane Zermatten" . "szermatt@gmail.com")) (:maintainers ("Stephane Zermatten" . "szermatt@gmail.com")) (:maintainer "Stephane Zermatten" . "szermatt@gmail.com"))])
  (vlc . [(20200328 1143) ((emacs (25 1))) "VideoLAN VLC Media Player Control" tar ((:url . "https://github.com/xuchunyang/vlc.el") (:commit . "07c4a12904f2700fb8420c4e71395fd59a5e6faa") (:revdesc . "07c4a12904f2") (:keywords "tools"))])
  (vlf . [(20191126 2250) nil "View Large Files" tar ((:url . "https://github.com/m00natic/vlfi") (:commit . "cc02f2533782d6b9b628cec7e2dcf25b2d05a27c") (:revdesc . "cc02f2533782") (:keywords "large files" "utilities") (:maintainers ("Andrey Kotlarski" . "m00naticus@gmail.com")) (:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com"))])
  (vline . [(20210805 1528) ((emacs (24 3))) "Column highlighting (vertical line displaying) mode" tar ((:url . "https://github.com/buzztaiki/vline") (:commit . "f5d7b5743dceca75b81c8c95287cd5b0341debf9") (:revdesc . "f5d7b5743dce") (:keywords "faces" "editing" "emulating") (:authors ("Taiki SUGAWARA" . "buzz.taiki@gmail.com")) (:maintainers ("Taiki SUGAWARA" . "buzz.taiki@gmail.com")) (:maintainer "Taiki SUGAWARA" . "buzz.taiki@gmail.com"))])
@@ -5556,7 +5556,7 @@
  (vscdark-theme . [(20191212 107) ((emacs (24 1))) "VS Code Dark+ like theme" tar ((:url . "https://github.com/abelikoff/vscdark-theme") (:commit . "f419553e2a2f091a8bc257fb5ab520326e93ddd4") (:revdesc . "f419553e2a2f"))])
  (vscode-dark-plus-theme . [(20230725 1703) nil "Default Visual Studio Code Dark+ theme" tar ((:url . "https://github.com/ianyepan/vscode-dark-plus-emacs-theme") (:commit . "65420ca73b543e1e7955905bea1a8d7e5fe6c5ff") (:revdesc . "65420ca73b54"))])
  (vscode-icon . [(20230330 2206) ((emacs (25 1))) "Utility package to provide Vscode style icons" tar ((:url . "https://github.com/jojojames/vscode-icon-emacs") (:commit . "3976bc2e7e2fe0068ae59c11d226f67e0e87aaea") (:revdesc . "3976bc2e7e2f") (:keywords "files" "tools") (:authors ("James Nguyen" . "james@jojojames.com")) (:maintainers ("James Nguyen" . "james@jojojames.com")) (:maintainer "James Nguyen" . "james@jojojames.com"))])
- (vsh-mode . [(20240820 1320) ((emacs (30 0))) "Alternate PTY interface for complex terminal sessions" tar ((:url . "https://github.com/hardenedapple/vsh") (:commit . "40daabb4b05e1dce8bc9b68cb437d9aff3cfa7d0") (:revdesc . "40daabb4b05e") (:keywords "processes") (:authors ("Matthew Malcomson" . "hardenedapple@gmail.com")) (:maintainers ("Matthew Malcomson" . "hardenedapple@gmail.com")) (:maintainer "Matthew Malcomson" . "hardenedapple@gmail.com"))])
+ (vsh-mode . [(20241104 1341) ((emacs (30 0))) "Alternate PTY interface for complex terminal sessions" tar ((:url . "https://github.com/hardenedapple/vsh") (:commit . "47b6190777be9e1c4c0efb94c166b29c83b10553") (:revdesc . "47b6190777be") (:keywords "processes") (:authors ("Matthew Malcomson" . "hardenedapple@gmail.com")) (:maintainers ("Matthew Malcomson" . "hardenedapple@gmail.com")) (:maintainer "Matthew Malcomson" . "hardenedapple@gmail.com"))])
  (vterm . [(20241118 1627) ((emacs (25 1))) "Fully-featured terminal emulator" tar ((:url . "https://github.com/akermu/emacs-libvterm") (:commit . "fd50624723200f4ac261f122f6332f57796c782f") (:revdesc . "fd5062472320") (:keywords "terminals") (:authors ("Lukas Fürmetz" . "fuermetz@mailbox.org")) (:maintainers ("Lukas Fürmetz" . "fuermetz@mailbox.org")) (:maintainer "Lukas Fürmetz" . "fuermetz@mailbox.org"))])
  (vterm-hotkey . [(20240702 1445) ((emacs (29 4)) (vterm (0 0))) "Control vterm buffers with hotkeys" tar ((:url . "https://github.com/rootatpixel/vterm-hotkey") (:commit . "039033a4c30dabca625d6924d1796bb9e13d85c7") (:revdesc . "039033a4c30d") (:keywords "terminals" "processes" "hotkeys"))])
  (vterm-toggle . [(20230912 246) ((emacs (25 1)) (vterm (0 0 1))) "Toggles between the vterm buffer and other buffers" tar ((:url . "https://github.com/jixiuf/vterm-toggle") (:commit . "06cb4f3c565e46470a3c4505c11e26066d869715") (:revdesc . "06cb4f3c565e") (:keywords "vterm" "terminals") (:authors (nil . "jixiufjixiuf@qq.com")) (:maintainers (nil . "jixiufjixiuf@qq.com")) (:maintainer nil . "jixiufjixiuf@qq.com"))])
@@ -5663,7 +5663,7 @@
  (winum . [(20190911 1607) ((cl-lib (0 5)) (dash (2 13 0))) "Navigate windows and frames using numbers" tar ((:url . "https://github.com/deb0ch/emacs-winum") (:commit . "098249c65042ee0308b8236d1ee838c8da8fdf25") (:revdesc . "098249c65042") (:keywords "convenience" "frames" "windows" "multi-screen") (:authors ("Thomas de Beauchêne" . "thomas.de.beauchene@gmail.com")) (:maintainers ("Thomas de Beauchêne" . "thomas.de.beauchene@gmail.com")) (:maintainer "Thomas de Beauchêne" . "thomas.de.beauchene@gmail.com"))])
  (wisp-mode . [(20240921 1758) ((emacs (24 4))) "Tools for wisp: the Whitespace-to-Lisp preprocessor" tar ((:url . "https://hg.sr.ht/~arnebab/wisp") (:commit . "61d068638c88d149a6f75619e284f8c1e9657e90") (:revdesc . "61d068638c88d149a6f75619e284f8c1e9657e90") (:keywords "languages" "lisp" "scheme") (:authors ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainers ("Arne Babenhauserheide" . "arne_bab@web.de")) (:maintainer "Arne Babenhauserheide" . "arne_bab@web.de"))])
  (wispjs-mode . [(20170720 1919) ((clojure-mode (0))) "Major mode for Wisp code" tar ((:url . "https://github.com/krisajenkins/wispjs-mode") (:commit . "60f9f5fd9d1556e2d008939f67eb1b1d0f325fa8") (:revdesc . "60f9f5fd9d15") (:authors ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainers ("Kris Jenkins" . "krisajenkins@gmail.com")) (:maintainer "Kris Jenkins" . "krisajenkins@gmail.com"))])
- (with-editor . [(20240831 2230) ((emacs (26 1)) (compat (30 0 0 0))) "Use the Emacsclient as $EDITOR" tar ((:url . "https://github.com/magit/with-editor") (:commit . "77cb2403158cfea9d8bfb8adad81b84d1d6d7c6a") (:revdesc . "77cb2403158c") (:keywords "processes" "terminals") (:authors ("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev"))])
+ (with-editor . [(20241123 2137) ((emacs (26 1)) (compat (30 0 0 0))) "Use the Emacsclient as $EDITOR" tar ((:url . "https://github.com/magit/with-editor") (:commit . "57f20bdb0d50256acdd12019aaa42b609204699b") (:revdesc . "57f20bdb0d50") (:keywords "processes" "terminals") (:authors ("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")) (:maintainers ("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")) (:maintainer "Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev"))])
  (with-emacs . [(20220814 444) ((emacs (24 4))) "Evaluate Emacs Lisp expressions in a separate Emacs process" tar ((:url . "https://github.com/twlz0ne/with-emacs.el") (:commit . "fb9ef454a4bb2d6de3415807b4858a20a9cc0dad") (:revdesc . "fb9ef454a4bb") (:keywords "tools") (:authors ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainers ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainer "Gong Qijian" . "gongqijian@gmail.com"))])
  (with-namespace . [(20130407 1822) ((dash (1 1 0)) (loop (1 1))) "Interoperable elisp namespaces" tar ((:url . "https://github.com/Wilfred/with-namespace.el") (:commit . "36828a40428c8e53c117f2df830b2f7a59ddd306") (:revdesc . "36828a40428c") (:keywords "namespaces") (:authors ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainers ("Wilfred Hughes" . "me@wilfred.me.uk")) (:maintainer "Wilfred Hughes" . "me@wilfred.me.uk"))])
  (with-proxy . [(20200510 414) ((emacs (24 4))) "Evaluate expressions with proxy" tar ((:url . "https://github.com/twlz0ne/with-proxy.el") (:commit . "93b1ed2f3060f305009fa71f4fb5bb10173a10e3") (:revdesc . "93b1ed2f3060") (:keywords "comm") (:authors ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainers ("Gong Qijian" . "gongqijian@gmail.com")) (:maintainer "Gong Qijian" . "gongqijian@gmail.com"))])
diff --git a/emacs/elpa/archives/nongnu/archive-contents b/emacs/elpa/archives/nongnu/archive-contents
@@ -486,7 +486,7 @@
 		 ("Arne Jørgensen" . "arne@arnested.dk"))
 		(:commit . "f632fa5f140b04260fa23b15ffccbfe5a787b2e2"))])
  (dslide .
-	 [(0 5 3)
+	 [(0 5 4)
 	  ((emacs
 	    (29 2)))
 	  "Domain Specific sLIDEs. A presentation framework" tar
@@ -495,7 +495,7 @@
 	   (:maintainer "Positron" . "contact@positron.solutions")
 	   (:authors
 	    ("Positron" . "contact@positron.solutions"))
-	   (:commit . "2d8a9ac3e37157ce8b78880ebc1defc61303a44d"))])
+	   (:commit . "dee290e1c41fdcaa3be508f8476b3ca3a5e56ed1"))])
  (eat .
       [(0 9 4)
        ((emacs
@@ -2015,7 +2015,7 @@
 	       ("David Christiansen" . "david@davidchristiansen.dk"))
 	      (:commit . "1edda80e2e32b72e77f4f16ae5b83c312c68ee95"))])
  (racket-mode .
-	      [(1 0 20241116 120019)
+	      [(1 0 20241121 151851)
 	       ((emacs
 		 (25 1)))
 	       "Racket editing, REPL, and more" tar
diff --git a/emacs/elpa/archives/nongnu/archive-contents.signed b/emacs/elpa/archives/nongnu/archive-contents.signed
@@ -1 +1 @@
-Good signature from 645357D2883A0966 GNU ELPA Signing Agent (2023) <elpasign@elpa.gnu.org> (trust undefined) created at 2024-11-20T10:10:03+0000 using EDDSA
-\ No newline at end of file
+Good signature from 645357D2883A0966 GNU ELPA Signing Agent (2023) <elpasign@elpa.gnu.org> (trust undefined) created at 2024-11-24T10:10:03+0000 using EDDSA
+\ No newline at end of file
diff --git a/emacs/elpa/cape-20241105.858/cape-pkg.el b/emacs/elpa/cape-20241105.858/cape-pkg.el
@@ -1,11 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "cape" "20241105.858"
-  "Completion At Point Extensions."
-  '((emacs  "28.1")
-    (compat "30"))
-  :url "https://github.com/minad/cape"
-  :commit "74c3501ecd19ec9af0d30c16c10ded47dc995ffa"
-  :revdesc "74c3501ecd19"
-  :keywords '("abbrev" "convenience" "matching" "completion" "text")
-  :authors '(("Daniel Mendler" . "mail@daniel-mendler.de"))
-  :maintainers '(("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/cape-20241105.858/cape.el b/emacs/elpa/cape-20241105.858/cape.el
@@ -1,1303 +0,0 @@
-;;; cape.el --- Completion At Point Extensions -*- lexical-binding: t -*-
-
-;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
-
-;; Author: Daniel Mendler <mail@daniel-mendler.de>
-;; Maintainer: Daniel Mendler <mail@daniel-mendler.de>
-;; Created: 2021
-;; Package-Version: 20241105.858
-;; Package-Revision: 74c3501ecd19
-;; Package-Requires: ((emacs "28.1") (compat "30"))
-;; URL: https://github.com/minad/cape
-;; Keywords: abbrev, convenience, matching, completion, text
-
-;; This file is part of GNU Emacs.
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Let your completions fly! This package provides additional completion
-;; backends in the form of Capfs (completion-at-point-functions).
-;;
-;; `cape-abbrev': Complete abbreviation (add-global-abbrev, add-mode-abbrev).
-;; `cape-dabbrev': Complete word from current buffers.
-;; `cape-dict': Complete word from dictionary file.
-;; `cape-elisp-block': Complete Elisp in Org or Markdown code block.
-;; `cape-elisp-symbol': Complete Elisp symbol.
-;; `cape-emoji': Complete Emoji.
-;; `cape-file': Complete file name.
-;; `cape-history': Complete from Eshell, Comint or minibuffer history.
-;; `cape-keyword': Complete programming language keyword.
-;; `cape-line': Complete entire line from file.
-;; `cape-rfc1345': Complete Unicode char using RFC 1345 mnemonics.
-;; `cape-sgml': Complete Unicode char from SGML entity, e.g., &alpha.
-;; `cape-tex': Complete Unicode char from TeX command, e.g. \hbar.
-
-;;; Code:
-
-(require 'compat)
-(eval-when-compile
-  (require 'cl-lib)
-  (require 'subr-x))
-
-;;;; Customization
-
-(defgroup cape nil
-  "Completion At Point Extensions."
-  :link '(info-link :tag "Info Manual" "(cape)")
-  :link '(url-link :tag "Website" "https://github.com/minad/cape")
-  :link '(emacs-library-link :tag "Library Source" "cape.el")
-  :group 'convenience
-  :group 'tools
-  :group 'matching
-  :prefix "cape-")
-
-(defcustom cape-dict-limit 100
-  "Maximal number of completion candidates returned by `cape-dict'."
-  :type '(choice (const nil) natnum))
-
-(defcustom cape-dict-file "/usr/share/dict/words"
-  "Path to dictionary word list file.
-This variable can also be a list of paths or
-a function returning a single or more paths."
-  :type '(choice string (repeat string) function))
-
-(defcustom cape-dict-case-replace 'case-replace
-  "Preserve case of input.
-See `dabbrev-case-replace' for details."
-  :type '(choice (const :tag "off" nil)
-                 (const :tag "use `case-replace'" case-replace)
-                 (other :tag "on" t)))
-
-(defcustom cape-dict-case-fold 'case-fold-search
-  "Case fold search during search.
-See `dabbrev-case-fold-search' for details."
-  :type '(choice (const :tag "off" nil)
-                 (const :tag "use `case-fold-search'" case-fold-search)
-                 (other :tag "on" t)))
-
-(defcustom cape-dabbrev-min-length 4
-  "Minimum length of Dabbrev expansions.
-This setting ensures that words which are too short
-are not offered as completion candidates, such that
-auto completion does not pop up too aggressively."
-  :type 'natnum)
-
-(defcustom cape-dabbrev-check-other-buffers t
-  "Buffers to check for Dabbrev.
-
-If t, check all other buffers, subject to Dabbrev ignore rules.
-If a function, only search the buffers returned by this function.
-Any other non-nil value only checks some other buffers, as per
-`dabbrev-select-buffers-function'."
-  :type `(choice (const :tag "off" nil)
-                 (const :tag "same-mode buffers" ,#'cape--buffers-major-mode)
-                 (function :tag "function")
-                 (const :tag "some" some)
-                 (other :tag "all" t)))
-
-(defcustom cape-file-directory nil
-  "Base directory used by `cape-file."
-  :type '(choice (const nil) string function))
-
-(defcustom cape-file-prefix "file:"
-  "File completion trigger prefixes.
-The value can be a string or a list of strings.  The default
-`file:' is the prefix of Org file links which work in arbitrary
-buffers via `org-open-at-point-global'."
-  :type '(choice string (repeat string)))
-
-(defcustom cape-file-directory-must-exist t
-  "The parent directory must exist for file completion."
-  :type 'boolean)
-
-(defcustom cape-line-buffer-function #'cape--buffers-major-mode
-  "Function which returns list of buffers.
-The buffers are scanned for completion candidates by `cape-line'."
-  :type '(choice (const :tag "Current buffer" current-buffer)
-                 (const :tag "All buffers" buffer-list)
-                 (const :tag "Buffers with same major mode" cape--buffers-major-mode)
-                 (function :tag "Custom function")))
-
-(defcustom cape-elisp-symbol-wrapper
-  '((org-mode ?~ ?~)
-    (markdown-mode ?` ?`)
-    (emacs-lisp-mode ?` ?')
-    (rst-mode "``" "``")
-    (log-edit-mode "`" "'")
-    (change-log-mode "`" "'")
-    (message-mode "`" "'")
-    (rcirc-mode "`" "'"))
-  "Wrapper characters for symbols."
-  :type '(alist :key-type symbol :value-type (list (choice character string)
-                                                   (choice character string))))
-
-;;;; Helpers
-
-(defun cape--case-fold-p (fold)
-  "Return non-nil if case folding is enabled for FOLD."
-  (if (eq fold 'case-fold-search) case-fold-search fold))
-
-(defun cape--case-replace-list (flag input strs)
-  "Replace case of STRS depending on INPUT and FLAG."
-  (if (and (if (eq flag 'case-replace) case-replace flag)
-           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input)))
-      (mapcar (apply-partially #'cape--case-replace flag input) strs)
-    strs))
-
-(defun cape--case-replace (flag input str)
-  "Replace case of STR depending on INPUT and FLAG."
-  (or (and (if (eq flag 'case-replace) case-replace flag)
-           (string-prefix-p input str t)
-           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input))
-           (save-match-data
-             ;; Ensure that single character uppercase input does not lead to an
-             ;; all uppercase result.
-             (when (and (= (length input) 1) (> (length str) 1))
-               (setq input (concat input (substring str 1 2))))
-             (and (string-match input input)
-                  (replace-match str nil nil input))))
-      str))
-
-(defun cape--separator-p (str)
-  "Return non-nil if input STR has a separator character.
-Separator characters are used by completion styles like Orderless
-to split filter words.  In Corfu, the separator is configurable
-via the variable `corfu-separator'."
-  (string-search (string ;; Support `corfu-separator' and Orderless
-                  (or (and (bound-and-true-p corfu-mode)
-                           (bound-and-true-p corfu-separator))
-                      ?\s))
-                 str))
-
-(defmacro cape--silent (&rest body)
-  "Silence BODY."
-  (declare (indent 0))
-  `(cl-letf ((inhibit-message t)
-             (message-log-max nil)
-             ((symbol-function #'minibuffer-message) #'ignore))
-     (ignore-errors ,@body)))
-
-(defun cape--bounds (thing)
-  "Return bounds of THING."
-  (or (bounds-of-thing-at-point thing) (cons (point) (point))))
-
-(defmacro cape--wrapped-table (wrap body)
-  "Create wrapped completion table, handle `completion--unquote'.
-WRAP is the wrapper function.
-BODY is the wrapping expression."
-  (declare (indent 1))
-  `(lambda (str pred action)
-     (,@body
-      (let ((result (complete-with-action action table str pred)))
-        (when (and (eq action 'completion--unquote) (functionp (cadr result)))
-          (cl-callf ,wrap (cadr result)))
-        result))))
-
-(defun cape--accept-all-table (table)
-  "Create completion TABLE which accepts all input."
-  (cape--wrapped-table cape--accept-all-table
-    (or (eq action 'lambda))))
-
-(defun cape--passthrough-table (table)
-  "Create completion TABLE disabling any filtering."
-  (cape--wrapped-table cape--passthrough-table
-    (let (completion-ignore-case completion-regexp-list (_ (setq str ""))))))
-
-(defun cape--noninterruptible-table (table)
-  "Create non-interruptible completion TABLE."
-  (cape--wrapped-table cape--noninterruptible-table
-    (let (throw-on-input))))
-
-(defun cape--silent-table (table)
-  "Create a new completion TABLE which is silent (no messages, no errors)."
-  (cape--wrapped-table cape--silent-table
-    (cape--silent)))
-
-(defun cape--nonessential-table (table)
-  "Mark completion TABLE as `non-essential'."
-  (let ((dir default-directory))
-    (cape--wrapped-table cape--nonessential-table
-      (let ((default-directory dir)
-            (non-essential t))))))
-
-(defvar cape--debug-length 5
-  "Length of printed lists in `cape--debug-print'.")
-
-(defvar cape--debug-id 0
-  "Completion table identifier.")
-
-(defun cape--debug-message (&rest msg)
-  "Print debug MSG."
-  (let ((inhibit-message t))
-    (apply #'message msg)))
-
-(defun cape--debug-print (obj &optional full)
-  "Print OBJ as string, truncate lists if FULL is nil."
-  (cond
-   ((symbolp obj) (symbol-name obj))
-   ((functionp obj) "#<function>")
-   ((proper-list-p obj)
-    (concat
-     "("
-     (string-join
-      (mapcar #'cape--debug-print
-              (if full obj (take cape--debug-length obj)))
-      " ")
-     (if (and (not full) (length> obj cape--debug-length)) " ...)" ")")))
-   (t (let ((print-level 2))
-        (prin1-to-string obj)))))
-
-(defun cape--debug-table (table name beg end)
-  "Create completion TABLE with debug messages.
-NAME is the name of the Capf, BEG and END are the input markers."
-  (lambda (str pred action)
-    (let ((result (complete-with-action action table str pred)))
-      (if (and (eq action 'completion--unquote) (functionp (cadr result)))
-          ;; See `cape--wrapped-table'
-          (cl-callf cape--debug-table (cadr result) name beg end)
-        (cape--debug-message
-         "%s(action=%S input=%s:%s:%S prefix=%S ignore-case=%S%s%s) => %s"
-         name
-         (pcase action
-           ('nil 'try)
-           ('t 'all)
-           ('lambda 'test)
-           (_ action))
-         (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
-         str completion-ignore-case
-         (if completion-regexp-list
-             (format " regexp=%s" (cape--debug-print completion-regexp-list t))
-           "")
-         (if pred
-             (format " predicate=%s" (cape--debug-print pred))
-           "")
-         (cape--debug-print result)))
-      result)))
-
-(cl-defun cape--properties-table (table &key category (sort t) strip &allow-other-keys)
-  "Create completion TABLE with properties.
-CATEGORY is the optional completion category.
-SORT should be nil to disable sorting.
-STRIP means to strip all metadata."
-  ;; The metadata will be overridden if the category is non-nil, if the table is
-  ;; a function table or if sorting should be disabled for a non-nil
-  ;; non-function table.
-  (if (or category (functionp table) (and (not sort) table))
-      (let ((metadata (and (not strip)
-                           `(metadata
-                             ,@(and category `((category . ,category)))
-                             ,@(and (not sort) '((display-sort-function . identity)
-                                                 (cycle-sort-function . identity)))))))
-        (lambda (str pred action)
-          (if (eq action 'metadata)
-              metadata
-            (complete-with-action action table str pred))))
-    table))
-
-(defun cape--dynamic-table (beg end fun)
-  "Create dynamic completion table from FUN with caching.
-BEG and END are the input bounds.  FUN is the function which
-computes the candidates.  FUN must return a pair of a predicate
-function function and the list of candidates.  The predicate is
-passed new input and must return non-nil if the candidates are
-still valid.
-
-It is only necessary to use this function if the set of
-candidates is computed dynamically based on the input and not
-statically determined.  The behavior is similar but slightly
-different to `completion-table-dynamic'.
-
-The difference to the builtins `completion-table-dynamic' and
-`completion-table-with-cache' is that this function does not use
-the prefix argument of the completion table to compute the
-candidates.  Instead it uses the input in the buffer between BEG
-and END to FUN to compute the candidates.  This way the dynamic
-candidate computation is compatible with non-prefix completion
-styles like `substring' or `orderless', which pass the empty
-string as first argument to the completion table."
-  (let ((beg (copy-marker beg))
-        (end (copy-marker end t))
-        valid table)
-    (lambda (str pred action)
-      ;; Bail out early for `metadata' and `boundaries'. This is a pointless
-      ;; move because of caching, but we do it anyway in the hope that the
-      ;; profiler report looks less confusing, since the weight of the expensive
-      ;; FUN computation is moved to the `all-completions' action.  Computing
-      ;; `all-completions' must surely be most expensive, so nobody will suspect
-      ;; a thing.
-      (unless (or (eq action 'metadata) (eq (car-safe action) 'boundaries))
-        (let ((input (buffer-substring-no-properties beg end)))
-          (unless (and valid
-                       (or (cape--separator-p input)
-                           (funcall valid input)))
-            (let* (;; Reset in case `all-completions' is used inside FUN
-                   completion-ignore-case completion-regexp-list
-                   ;; Retrieve new state by calling FUN
-                   (new (funcall fun input))
-                   ;; No interrupt during state update
-                   throw-on-input)
-              (setq valid (car new) table (cdr new)))))
-        (complete-with-action action table str pred)))))
-
-;;;; Capfs
-
-;;;;; cape-history
-
-(declare-function ring-elements "ring")
-(declare-function eshell-bol "eshell")
-(declare-function comint-line-beginning-position "comint")
-(defvar eshell-history-ring)
-(defvar comint-input-ring)
-
-(defvar cape--history-properties
-  (list :company-kind (lambda (_) 'text)
-        :exclusive 'no)
-  "Completion extra properties for `cape-history'.")
-
-;;;###autoload
-(defun cape-history (&optional interactive)
-  "Complete from Eshell, Comint or minibuffer history.
-See also `consult-history' for a more flexible variant based on
-`completing-read'.  If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      (cape-interactive #'cape-history)
-    (let (history bol)
-      (cond
-       ((derived-mode-p 'eshell-mode)
-        (setq history eshell-history-ring
-              bol (static-if (< emacs-major-version 30)
-                      (save-excursion (eshell-bol) (point))
-                    (line-beginning-position))))
-       ((derived-mode-p 'comint-mode)
-        (setq history comint-input-ring
-              bol (comint-line-beginning-position)))
-       ((and (minibufferp) (not (eq minibuffer-history-variable t)))
-        (setq history (symbol-value minibuffer-history-variable)
-              bol (line-beginning-position))))
-      (when (ring-p history)
-        (setq history (ring-elements history)))
-      (when history
-        `(,bol ,(point)
-          ,(cape--properties-table history :sort nil)
-          ,@cape--history-properties)))))
-
-;;;;; cape-file
-
-(defvar comint-unquote-function)
-(defvar comint-requote-function)
-
-(defvar cape--file-properties
-  (list :annotation-function (lambda (s) (if (string-suffix-p "/" s) " Dir" " File"))
-        :company-kind (lambda (s) (if (string-suffix-p "/" s) 'folder 'file))
-        :exclusive 'no)
-  "Completion extra properties for `cape-file'.")
-
-;;;###autoload
-(defun cape-file (&optional interactive)
-  "Complete file name at point.
-See the user option `cape-file-directory-must-exist'.
-If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      (cape-interactive '(cape-file-directory-must-exist) #'cape-file)
-    (pcase-let* ((default-directory (pcase cape-file-directory
-                                      ('nil default-directory)
-                                      ((pred stringp) cape-file-directory)
-                                      (_ (funcall cape-file-directory))))
-                 (prefix (and cape-file-prefix
-                              (looking-back
-                               (concat
-                                (regexp-opt (ensure-list cape-file-prefix) t)
-                                "[^ \n\t]*")
-                               (pos-bol))
-                              (match-end 1)))
-                 (`(,beg . ,end) (if prefix
-                                     (cons prefix (point))
-                                   (cape--bounds 'filename)))
-                 (non-essential t)
-                 (file (buffer-substring-no-properties beg end)))
-      (when (or prefix
-                (not cape-file-directory-must-exist)
-                (and (string-search "/" file)
-                     (file-exists-p (file-name-directory file))))
-        (unless (boundp 'comint-unquote-function)
-          (require 'comint))
-        `(,beg ,end
-          ,(cape--nonessential-table
-            (completion-table-with-quoting
-             #'read-file-name-internal
-             comint-unquote-function
-             comint-requote-function))
-          ,@(when (or prefix (string-match-p "./" file))
-              '(:company-prefix-length t))
-          ,@cape--file-properties)))))
-
-;;;;; cape-elisp-symbol
-
-(autoload 'elisp--company-kind "elisp-mode")
-(autoload 'elisp--company-doc-buffer "elisp-mode")
-(autoload 'elisp--company-doc-string "elisp-mode")
-(autoload 'elisp--company-location "elisp-mode")
-
-(defvar cape--elisp-symbol-properties
-  (list :annotation-function #'cape--elisp-symbol-annotation
-        :exit-function #'cape--elisp-symbol-exit
-        :predicate #'cape--elisp-symbol-predicate
-        :company-kind #'elisp--company-kind
-        :company-doc-buffer #'elisp--company-doc-buffer
-        :company-docsig #'elisp--company-doc-string
-        :company-location #'elisp--company-location
-        :exclusive 'no)
-  "Completion extra properties for `cape-elisp-symbol'.")
-
-(defun cape--elisp-symbol-predicate (sym)
-  "Return t if SYM is bound, fbound or propertized."
-  (or (fboundp sym) (boundp sym) (symbol-plist sym)))
-
-(defun cape--elisp-symbol-exit (sym status)
-  "Wrap symbol SYM with `cape-elisp-symbol-wrapper' buffers.
-STATUS is the exit status."
-  (when-let (((not (eq status 'exact)))
-             (c (cl-loop for (m . c) in cape-elisp-symbol-wrapper
-                         if (derived-mode-p m) return c))
-             ((or (not (derived-mode-p 'emacs-lisp-mode))
-                  ;; Inside comment or string
-                  (let ((s (syntax-ppss))) (or (nth 3 s) (nth 4 s)))))
-             (x (if (stringp (car c)) (car c) (string (car c))))
-             (y (if (stringp (cadr c)) (cadr c) (string (cadr c)))))
-    (save-excursion
-      (backward-char (length sym))
-      (unless (save-excursion
-                (and (ignore-errors (or (backward-char (length x)) t))
-                     (looking-at-p (regexp-quote x))))
-        (insert x)))
-    (unless (looking-at-p (regexp-quote y))
-      (insert y))))
-
-(defun cape--elisp-symbol-annotation (sym)
-  "Return kind of SYM."
-  (setq sym (intern-soft sym))
-  (cond
-   ((special-form-p sym) " Special")
-   ((macrop sym) " Macro")
-   ((commandp sym) " Command")
-   ((fboundp sym) " Function")
-   ((custom-variable-p sym) " Custom")
-   ((boundp sym) " Variable")
-   ((featurep sym) " Feature")
-   ((facep sym) " Face")
-   (t " Symbol")))
-
-;;;###autoload
-(defun cape-elisp-symbol (&optional interactive)
-  "Complete Elisp symbol at point.
-If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      ;; No cycling since it breaks the :exit-function.
-      (let (completion-cycle-threshold)
-        (cape-interactive #'cape-elisp-symbol))
-    (pcase-let ((`(,beg . ,end) (cape--bounds 'symbol)))
-      (when (eq (char-after beg) ?')
-        (setq beg (1+ beg) end (max beg end)))
-      `(,beg ,end
-        ,(cape--properties-table obarray :category 'symbol)
-        ,@cape--elisp-symbol-properties))))
-
-;;;;; cape-elisp-block
-
-(declare-function org-element-context "org-element")
-(declare-function markdown-code-block-lang "ext:markdown-mode")
-
-(defun cape--inside-block-p (&rest langs)
-  "Return non-nil if inside LANGS code block."
-  (when-let ((face (get-text-property (point) 'face))
-             (lang (or (and (if (listp face)
-                                (memq 'org-block face)
-                              (eq 'org-block face))
-                            (plist-get (cadr (org-element-context)) :language))
-                       (and (if (listp face)
-                                (memq 'markdown-code-face face)
-                              (eq 'markdown-code-face face))
-                            (save-excursion
-                              (markdown-code-block-lang))))))
-    (member lang langs)))
-
-;;;###autoload
-(defun cape-elisp-block (&optional interactive)
-  "Complete Elisp in Org or Markdown code block.
-This Capf is particularly useful for literate Emacs configurations.
-If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (cond
-   (interactive
-    ;; No code block check. Always complete Elisp when command was
-    ;; explicitly invoked interactively.
-    (cape-interactive #'elisp-completion-at-point))
-   ((cape--inside-block-p "elisp" "emacs-lisp")
-    (elisp-completion-at-point))))
-
-;;;;; cape-dabbrev
-
-(defvar cape--dabbrev-properties
-  (list :annotation-function (lambda (_) " Dabbrev")
-        :company-kind (lambda (_) 'text)
-        :exclusive 'no)
-  "Completion extra properties for `cape-dabbrev'.")
-
-(defvar dabbrev-case-replace)
-(defvar dabbrev-case-fold-search)
-(defvar dabbrev-abbrev-char-regexp)
-(defvar dabbrev-abbrev-skip-leading-regexp)
-(declare-function dabbrev--find-all-expansions "dabbrev")
-(declare-function dabbrev--reset-global-variables "dabbrev")
-
-(defun cape--dabbrev-list (input)
-  "Find all Dabbrev expansions for INPUT."
-  (cape--silent
-    (let* ((chk cape-dabbrev-check-other-buffers)
-           (funp (and (not (memq chk '(nil t some))) (functionp chk))))
-      (dlet ((dabbrev-check-other-buffers (and chk (not funp)))
-             (dabbrev-check-all-buffers (eq chk t))
-             (dabbrev-search-these-buffers-only (and funp (funcall chk))))
-        (dabbrev--reset-global-variables)
-        (cons
-         (apply-partially #'string-prefix-p input)
-         (cl-loop with min-len = (+ cape-dabbrev-min-length (length input))
-                  with ic = (cape--case-fold-p dabbrev-case-fold-search)
-                  for w in (dabbrev--find-all-expansions input ic)
-                  if (>= (length w) min-len) collect
-                  (cape--case-replace (and ic dabbrev-case-replace) input w)))))))
-
-(defun cape--dabbrev-bounds ()
-  "Return bounds of abbreviation."
-  (unless (boundp 'dabbrev-abbrev-char-regexp)
-    (require 'dabbrev))
-  (let ((re (or dabbrev-abbrev-char-regexp "\\sw\\|\\s_"))
-        (limit (minibuffer-prompt-end)))
-    (when (or (looking-at re)
-              (and (> (point) limit)
-                   (save-excursion (forward-char -1) (looking-at re))))
-      (cons (save-excursion
-              (while (and (> (point) limit)
-                          (save-excursion (forward-char -1) (looking-at re)))
-                (forward-char -1))
-              (when dabbrev-abbrev-skip-leading-regexp
-                (while (looking-at dabbrev-abbrev-skip-leading-regexp)
-                  (forward-char 1)))
-              (point))
-            (save-excursion
-              (while (looking-at re)
-                (forward-char 1))
-              (point))))))
-
-;;;###autoload
-(defun cape-dabbrev (&optional interactive)
-  "Complete with Dabbrev at point.
-
-If INTERACTIVE is nil the function acts like a Capf.  In case you
-observe a performance issue with auto-completion and `cape-dabbrev'
-it is strongly recommended to disable scanning in other buffers.
-See the user options `cape-dabbrev-min-length' and
-`cape-dabbrev-check-other-buffers'."
-  (interactive (list t))
-  (if interactive
-      (cape-interactive '((cape-dabbrev-min-length 0)) #'cape-dabbrev)
-    (when-let ((bounds (cape--dabbrev-bounds)))
-      `(,(car bounds) ,(cdr bounds)
-        ,(cape--properties-table
-          (completion-table-case-fold
-           (cape--dynamic-table (car bounds) (cdr bounds) #'cape--dabbrev-list)
-           (not (cape--case-fold-p dabbrev-case-fold-search)))
-          :category 'cape-dabbrev)
-        ,@cape--dabbrev-properties))))
-
-;;;;; cape-dict
-
-(defvar cape--dict-properties
-  (list :annotation-function (lambda (_) " Dict")
-        :company-kind (lambda (_) 'text)
-        :exclusive 'no)
-  "Completion extra properties for `cape-dict'.")
-
-(defun cape--dict-list (input)
-  "Return all words from `cape-dict-file' matching INPUT."
-  (unless (equal input "")
-     (let* ((inhibit-message t)
-            (message-log-max nil)
-            (default-directory
-             (if (and (not (file-remote-p default-directory))
-                      (file-directory-p default-directory))
-                 default-directory
-               user-emacs-directory))
-            (files (mapcar #'expand-file-name
-                           (ensure-list
-                            (if (functionp cape-dict-file)
-                                (funcall cape-dict-file)
-                              cape-dict-file))))
-            (words
-             (apply #'process-lines-ignore-status
-                    "grep"
-                    (concat "-Fh"
-                            (and (cape--case-fold-p cape-dict-case-fold) "i")
-                            (and cape-dict-limit (format "m%d" cape-dict-limit)))
-                    input files)))
-       (cons
-        (apply-partially
-          (if (and cape-dict-limit (length= words cape-dict-limit))
-             #'equal #'string-search)
-         input)
-        (cape--case-replace-list cape-dict-case-replace input words)))))
-
-;;;###autoload
-(defun cape-dict (&optional interactive)
-  "Complete word from dictionary at point.
-This completion function works best if the dictionary is sorted
-by frequency.  See the custom option `cape-dict-file'.  If
-INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      (cape-interactive #'cape-dict)
-    (pcase-let ((`(,beg . ,end) (cape--bounds 'word)))
-      `(,beg ,end
-        ,(cape--properties-table
-          (completion-table-case-fold
-           (cape--dynamic-table beg end #'cape--dict-list)
-           (not (cape--case-fold-p cape-dict-case-fold)))
-          :sort nil ;; Presorted word list (by frequency)
-          :category 'cape-dict)
-        ,@cape--dict-properties))))
-
-;;;;; cape-abbrev
-
-(defun cape--abbrev-list ()
-  "Abbreviation list."
-  (delete "" (cl-loop for x in (abbrev--suggest-get-active-tables-including-parents)
-                      nconc (all-completions "" x))))
-
-(defun cape--abbrev-annotation (abbrev)
-  "Annotate ABBREV with expansion."
-  (concat " "
-          (truncate-string-to-width
-           (format
-            "%s"
-            (symbol-value
-             (cl-loop for x in (abbrev--suggest-get-active-tables-including-parents)
-                      thereis (abbrev--symbol abbrev x))))
-           30 0 nil t)))
-
-(defun cape--abbrev-exit (_str status)
-  "Expand expansion if STATUS is not exact."
-  (unless (eq status 'exact)
-    (expand-abbrev)))
-
-(defvar cape--abbrev-properties
-  (list :annotation-function #'cape--abbrev-annotation
-        :exit-function #'cape--abbrev-exit
-        :company-kind (lambda (_) 'snippet)
-        :exclusive 'no)
-  "Completion extra properties for `cape-abbrev'.")
-
-;;;###autoload
-(defun cape-abbrev (&optional interactive)
-  "Complete abbreviation at point.
-If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      ;; No cycling since it breaks the :exit-function.
-      (let (completion-cycle-threshold)
-        (cape-interactive #'cape-abbrev))
-    (when-let (abbrevs (cape--abbrev-list))
-      (let ((bounds (cape--bounds 'symbol)))
-        `(,(car bounds) ,(cdr bounds)
-          ,(cape--properties-table abbrevs :category 'cape-abbrev)
-          ,@cape--abbrev-properties)))))
-
-;;;;; cape-line
-
-(defvar cape--line-properties nil
-  "Completion extra properties for `cape-line'.")
-
-(defun cape--buffers-major-mode ()
-  "Return buffers with same major mode as current buffer."
-  (cl-loop for buf in (buffer-list)
-           if (eq major-mode (buffer-local-value 'major-mode buf))
-           collect buf))
-
-(defun cape--line-list ()
-  "Return all lines from buffer."
-  (let ((ht (make-hash-table :test #'equal))
-        (curr-buf (current-buffer))
-        (buffers (funcall cape-line-buffer-function))
-        lines)
-    (dolist (buf (ensure-list buffers))
-      (with-current-buffer buf
-        (let ((beg (point-min))
-              (max (point-max))
-              (pt (if (eq curr-buf buf) (point) -1))
-              end)
-          (save-excursion
-            (while (< beg max)
-              (goto-char beg)
-              (setq end (pos-eol))
-              (unless (<= beg pt end)
-                (let ((line (buffer-substring-no-properties beg end)))
-                  (unless (or (string-blank-p line) (gethash line ht))
-                    (puthash line t ht)
-                    (push line lines))))
-              (setq beg (1+ end)))))))
-    (nreverse lines)))
-
-;;;###autoload
-(defun cape-line (&optional interactive)
-  "Complete current line from other lines.
-The buffers returned by `cape-line-buffer-function' are scanned for lines.
-If INTERACTIVE is nil the function acts like a Capf."
-  (interactive (list t))
-  (if interactive
-      (cape-interactive #'cape-line)
-    `(,(pos-bol) ,(point)
-      ,(cape--properties-table (cape--line-list) :sort nil)
-      ,@cape--line-properties)))
-
-;;;; Capf combinators
-
-(defun cape--company-call (&rest app)
-  "Apply APP and handle future return values."
-  ;; Backends are non-interruptible. Disable interrupts!
-  (let ((toi throw-on-input)
-        (throw-on-input nil))
-    (pcase (apply app)
-      ;; Handle async future return values.
-      (`(:async . ,fetch)
-       (let ((res 'cape--waiting))
-         (if toi
-             (unwind-protect
-                 (progn
-                   (funcall fetch
-                            (lambda (arg)
-                              (when (eq res 'cape--waiting)
-                                (push 'cape--done unread-command-events)
-                                (setq res arg))))
-                   (when (eq res 'cape--waiting)
-                     (let ((ev (let ((input-method-function nil)
-                                     (echo-keystrokes 0))
-                                 (read-event nil t))))
-                       (unless (eq ev 'cape--done)
-                         (push (cons t ev) unread-command-events)
-                         (setq res 'cape--cancelled)
-                         (throw toi t)))))
-               (setq unread-command-events
-                     (delq 'cape--done unread-command-events)))
-           (funcall fetch (lambda (arg) (setq res arg)))
-           ;; Force synchronization, not interruptible! We use polling
-           ;; here and ignore pending input since we don't use
-           ;; `sit-for'. This is the same method used by Company itself.
-           (while (eq res 'cape--waiting)
-             (sleep-for 0.01)))
-         res))
-      ;; Plain old synchronous return value.
-      (res res))))
-
-(defvar-local cape--company-init nil)
-
-;;;###autoload
-(defun cape-company-to-capf (backend &optional valid)
-  "Convert Company BACKEND function to Capf.
-VALID is a function taking the old and new input string.  It should
-return nil if the cached candidates became invalid.  The default value
-for VALID is `string-prefix-p' such that the candidates are only fetched
-again if the input prefix changed."
-  (lambda ()
-    (when (and (symbolp backend) (not (fboundp backend)))
-      (ignore-errors (require backend nil t)))
-    (when (bound-and-true-p company-mode)
-      (error "`cape-company-to-capf' should not be used with `company-mode', use the Company backend directly instead"))
-    (when (and (symbolp backend) (not (alist-get backend cape--company-init)))
-      (funcall backend 'init)
-      (put backend 'company-init t)
-      (setf (alist-get backend cape--company-init) t))
-    (when-let ((prefix (cape--company-call backend 'prefix))
-               (initial-input (if (stringp prefix) prefix (car-safe prefix))))
-      (let* ((end (point)) (beg (- end (length initial-input)))
-             (valid (if (cape--company-call backend 'no-cache initial-input)
-                        #'equal (or valid #'string-prefix-p)))
-             restore-props)
-        (list beg end
-              (funcall
-               (if (cape--company-call backend 'ignore-case)
-                   #'completion-table-case-fold
-                 #'identity)
-               (cape--properties-table
-                (cape--dynamic-table
-                 beg end
-                 (lambda (input)
-                   (let ((cands (cape--company-call backend 'candidates input)))
-                     ;; The candidate string including text properties should be
-                     ;; restored in the :exit-function, unless the UI guarantees
-                     ;; this itself, like Corfu.
-                     (unless (bound-and-true-p corfu-mode)
-                       (setq restore-props cands))
-                     (cons (apply-partially valid input) cands))))
-                :category backend
-                :sort (not (cape--company-call backend 'sorted))))
-              :exclusive 'no
-              :company-prefix-length (cdr-safe prefix)
-              :company-doc-buffer (lambda (x) (cape--company-call backend 'doc-buffer x))
-              :company-location (lambda (x) (cape--company-call backend 'location x))
-              :company-docsig (lambda (x) (cape--company-call backend 'meta x))
-              :company-deprecated (lambda (x) (cape--company-call backend 'deprecated x))
-              :company-kind (lambda (x) (cape--company-call backend 'kind x))
-              :annotation-function (lambda (x)
-                                     (when-let (ann (cape--company-call backend 'annotation x))
-                                       (concat " " (string-trim ann))))
-              :exit-function (lambda (x _status)
-                               ;; Restore the candidate string including
-                               ;; properties if restore-props is non-nil.  See
-                               ;; the comment above.
-                               (setq x (or (car (member x restore-props)) x))
-                               (cape--company-call backend 'post-completion x)))))))
-
-;;;###autoload
-(defun cape-interactive (&rest capfs)
-  "Complete interactively with the given CAPFS."
-  (let* ((ctx (and (consp (car capfs)) (car capfs)))
-         (capfs (if ctx (cdr capfs) capfs))
-         (completion-at-point-functions
-          (if ctx
-              (mapcar (lambda (f) `(lambda () (let ,ctx (funcall ',f)))) capfs)
-            capfs)))
-    (unless (completion-at-point)
-      (user-error "%s: No completions"
-                  (mapconcat (lambda (fun)
-                               (if (symbolp fun)
-                                   (symbol-name fun)
-                                 "anonymous-capf"))
-                             capfs ", ")))))
-
-;;;###autoload
-(defun cape-capf-interactive (capf)
-  "Create interactive completion function from CAPF."
-  (lambda (&optional interactive)
-    (interactive (list t))
-    (if interactive (cape-interactive capf) (funcall capf))))
-
-;;;###autoload
-(defun cape-wrap-super (&rest capfs)
-  "Call CAPFS and return merged completion result.
-The CAPFS list can contain the keyword `:with' to mark the Capfs
-afterwards as auxiliary One of the non-auxiliary Capfs before
-`:with' must return non-nil for the super Capf to set in and
-return a non-nil result.  Such behavior is useful when listing
-multiple super Capfs in the `completion-at-point-functions':
-
-  (setq completion-at-point-functions
-        (list (cape-capf-super \\='eglot-completion-at-point
-                               :with \\='tempel-complete)
-              (cape-capf-super \\='cape-dabbrev
-                               :with \\='tempel-complete)))"
-  (when-let ((results (cl-loop for capf in capfs until (eq capf :with)
-                               for res = (funcall capf)
-                               if res collect (cons t res))))
-    (pcase-let* ((results (nconc results
-                                 (cl-loop for capf in (cdr (memq :with capfs))
-                                          for res = (funcall capf)
-                                          if res collect (cons nil res))))
-                 (`((,_main ,beg ,end . ,_)) results)
-                 (cand-ht nil)
-                 (tables nil)
-                 (exclusive nil)
-                 (prefix-len nil)
-                 (cand-functions
-                  '(:company-docsig :company-location :company-kind
-                    :company-doc-buffer :company-deprecated
-                    :annotation-function :exit-function)))
-      (cl-loop for (main beg2 end2 table . plist) in results do
-               ;; Note: `cape-capf-super' currently cannot merge Capfs which
-               ;; trigger at different beginning positions.  In order to support
-               ;; this, take the smallest BEG value and then normalize all
-               ;; candidates by prefixing them such that they all start at the
-               ;; smallest BEG position.
-               (when (= beg beg2)
-                 (push (list main (plist-get plist :predicate) table
-                             ;; Plist attached to the candidates
-                             (mapcan (lambda (f)
-                                       (when-let ((v (plist-get plist f)))
-                                         (list f v)))
-                                     cand-functions))
-                       tables)
-                 ;; The resulting merged Capf is exclusive if one of the main
-                 ;; Capfs is exclusive.
-                 (when (and main (not (eq (plist-get plist :exclusive) 'no)))
-                   (setq exclusive t))
-                 (setq end (max end end2))
-                 (let ((plen (plist-get plist :company-prefix-length)))
-                   (cond
-                    ((eq plen t)
-                     (setq prefix-len t))
-                    ((and (not prefix-len) (integerp plen))
-                     (setq prefix-len plen))
-                    ((and (integerp prefix-len) (integerp plen))
-                     (setq prefix-len (max prefix-len plen)))))))
-      (setq tables (nreverse tables))
-      `(,beg ,end
-        ,(lambda (str pred action)
-           (pcase action
-             (`(boundaries . ,_) nil)
-             ('metadata
-              '(metadata (category . cape-super)
-                         (display-sort-function . identity)
-                         (cycle-sort-function . identity)))
-             ('t ;; all-completions
-              (let ((ht (make-hash-table :test #'equal))
-                    (candidates nil))
-                (cl-loop for (main table-pred table cand-plist) in tables do
-                         (let* ((pr (if (and table-pred pred)
-                                        (lambda (x) (and (funcall table-pred x) (funcall pred x)))
-                                      (or table-pred pred)))
-                                (md (completion-metadata "" table pr))
-                                (sort (or (completion-metadata-get md 'display-sort-function)
-                                          #'identity))
-                                ;; Always compute candidates of the main Capf
-                                ;; tables, which come first in the tables
-                                ;; list. For the :with Capfs only compute
-                                ;; candidates if we've already determined that
-                                ;; main candidates are available.
-                                (cands (when (or main (or exclusive cand-ht candidates))
-                                         (funcall sort (all-completions str table pr)))))
-                           ;; Handle duplicates with a hash table.
-                           (cl-loop
-                            for cand in-ref cands
-                            for dup = (gethash cand ht t) do
-                            (cond
-                             ((eq dup t)
-                              ;; Candidate does not yet exist.
-                              (puthash cand cand-plist ht))
-                             ((not (equal dup cand-plist))
-                              ;; Duplicate candidate. Candidate plist is
-                              ;; different, therefore disambiguate the
-                              ;; candidates.
-                              (setf cand (propertize cand 'cape-capf-super
-                                                     (cons cand cand-plist))))))
-                           (when cands (push cands candidates))))
-                (when (or cand-ht candidates)
-                  (setq candidates (apply #'nconc (nreverse candidates))
-                        cand-ht ht)
-                  candidates)))
-             (_ ;; try-completion and test-completion
-              (cl-loop for (_main table-pred table _cand-plist) in tables thereis
-                       (complete-with-action
-                        action table str
-                        (if (and table-pred pred)
-                            (lambda (x) (and (funcall table-pred x) (funcall pred x)))
-                          (or table-pred pred)))))))
-        :company-prefix-length ,prefix-len
-        ,@(and (not exclusive) '(:exclusive no))
-        ,@(mapcan
-           (lambda (prop)
-             (list prop
-                   (lambda (cand &rest args)
-                     (if-let ((ref (get-text-property 0 'cape-capf-super cand)))
-                         (when-let ((fun (plist-get (cdr ref) prop)))
-                           (apply fun (car ref) args))
-                       (when-let ((plist (and cand-ht (gethash cand cand-ht)))
-                                  (fun (plist-get plist prop)))
-                         (apply fun cand args))))))
-           cand-functions)))))
-
-;;;###autoload
-(defun cape-wrap-debug (capf &optional name)
-  "Call CAPF and return a completion table which prints trace messages.
-If CAPF is an anonymous lambda, pass the Capf NAME explicitly for
-meaningful debugging output."
-  (unless name
-    (setq name (if (symbolp capf) capf "capf")))
-  (setq name (format "%s@%s" name (cl-incf cape--debug-id)))
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     (let* ((limit (1+ cape--debug-length))
-            (pred (plist-get plist :predicate))
-            (cands
-             ;; Reset regexps for `all-completions'
-             (let (completion-ignore-case completion-regexp-list)
-               (all-completions
-                "" table
-                (lambda (&rest args)
-                  (and (or (not pred) (apply pred args)) (>= (cl-decf limit) 0))))))
-            (plist-str "")
-            (plist-elt plist))
-       (while (cdr plist-elt)
-         (setq plist-str (format "%s %s=%s" plist-str
-                                 (substring (symbol-name (car plist-elt)) 1)
-                                 (cape--debug-print (cadr plist-elt)))
-               plist-elt (cddr plist-elt)))
-       (cape--debug-message
-        "%s => input=%s:%s:%S table=%s%s"
-        name (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
-        (cape--debug-print cands)
-        plist-str))
-     `(,beg ,end ,(cape--debug-table
-                   table name (copy-marker beg) (copy-marker end t))
-       ,@(when-let ((exit (plist-get plist :exit-function)))
-           (list :exit-function
-                 (lambda (cand status)
-                   (cape--debug-message "%s:exit(candidate=%S status=%s)"
-                                        name cand status)
-                   (funcall exit cand status))))
-       . ,plist))
-    (result
-     (cape--debug-message "%s() => %s (No completion)"
-                          name (cape--debug-print result)))))
-
-;;;###autoload
-(defun cape-wrap-buster (capf &optional valid)
-  "Call CAPF and return a completion table with cache busting.
-This function can be used as an advice around an existing Capf.
-The cache is busted when the input changes.  The argument VALID
-can be a function taking the old and new input string.  It should
-return nil if the new input requires that the completion table is
-refreshed.  The default value for VALID is `equal', such that the
-completion table is refreshed on every input change."
-  (setq valid (or valid #'equal))
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     (setq plist `(:cape--buster t . ,plist))
-     `(,beg ,end
-       ,(let* ((beg (copy-marker beg))
-               (end (copy-marker end t))
-               (input (buffer-substring-no-properties beg end)))
-          (lambda (str pred action)
-            (let ((new-input (buffer-substring-no-properties beg end)))
-              (unless (or (not (eq action t))
-                          (cape--separator-p new-input)
-                          (funcall valid input new-input))
-                (pcase
-                    ;; Reset in case `all-completions' is used inside CAPF
-                    (let (completion-ignore-case completion-regexp-list)
-                      (funcall capf))
-                  ((and `(,new-beg ,new-end ,new-table . ,new-plist)
-                        (guard (and (= beg new-beg) (= end new-end))))
-                   (let (throw-on-input) ;; No interrupt during state update
-                     (setf table new-table
-                           input new-input
-                           (cddr plist) new-plist))))))
-            (complete-with-action action table str pred)))
-       ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-passthrough (capf)
-  "Call CAPF and make sure that no completion style filtering takes place."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,(cape--passthrough-table table) ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-properties (capf &rest properties)
-  "Call CAPF and strip or add completion PROPERTIES.
-Completion properties include for example :exclusive,
-:annotation-function and the various :company-* extensions.  Furthermore
-a boolean :sort flag and a completion :category symbol can be specified.
-The boolean :strip flag means to strip all completion properties."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end
-            ,(apply #'cape--properties-table table properties)
-            ,@(and (not (plist-get properties :strip))
-                   (append properties plist))))))
-
-;;;###autoload
-(defun cape-wrap-nonexclusive (capf)
-  "Call CAPF and ensure that it is marked as non-exclusive.
-This function can be used as an advice around an existing Capf."
-  (cape-wrap-properties capf :exclusive 'no))
-
-;;;###autoload
-(defun cape-wrap-predicate (capf predicate)
-  "Call CAPF and add an additional candidate PREDICATE.
-The PREDICATE is passed the candidate symbol or string."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,table
-            :predicate
-            ,(if-let (pred (plist-get plist :predicate))
-                 ;; First argument is key, second is value for hash tables.
-                 ;; The first argument can be a cons cell for alists. Then
-                 ;; the candidate itself is either a string or a symbol. We
-                 ;; normalize the calling convention here such that PREDICATE
-                 ;; always receives a string or a symbol.
-                 (lambda (&rest args)
-                   (when (apply pred args)
-                     (setq args (car args))
-                     (funcall predicate (if (consp args) (car args) args))))
-               (lambda (key &optional _val)
-                 (funcall predicate (if (consp key) (car key) key))))
-            ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-silent (capf)
-  "Call CAPF and silence it (no messages, no errors).
-This function can be used as an advice around an existing Capf."
-  (pcase (cape--silent (funcall capf))
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,(cape--silent-table table) ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-case-fold (capf &optional nofold)
-  "Call CAPF and return a case-insensitive completion table.
-If NOFOLD is non-nil return a case sensitive table instead.  This
-function can be used as an advice around an existing Capf."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,(completion-table-case-fold table nofold) ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-noninterruptible (capf)
-  "Call CAPF and return a non-interruptible completion table.
-This function can be used as an advice around an existing Capf."
-  (pcase (let (throw-on-input) (funcall capf))
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,(cape--noninterruptible-table table) ,@plist))))
-
-;;;###autoload
-(defun cape-wrap-prefix-length (capf length)
-  "Call CAPF and ensure that prefix length is greater or equal than LENGTH.
-If the prefix is long enough, enforce auto completion."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     (when (>= (- end beg) length)
-       `(,beg ,end ,table
-         :company-prefix-length t
-         ,@plist)))))
-
-;;;###autoload
-(defun cape-wrap-inside-faces (capf &rest faces)
-  "Call CAPF only if inside FACES.
-This function can be used as an advice around an existing Capf."
-  (when-let (((> (point) (point-min)))
-             (fs (get-text-property (1- (point)) 'face))
-             ((if (listp fs)
-                  (cl-loop for f in fs thereis (memq f faces))
-                (memq fs faces))))
-    (funcall capf)))
-
-;;;###autoload
-(defun cape-wrap-inside-code (capf)
-  "Call CAPF only if inside code, not inside a comment or string.
-This function can be used as an advice around an existing Capf."
-  (let ((s (syntax-ppss)))
-    (and (not (nth 3 s)) (not (nth 4 s)) (funcall capf))))
-
-;;;###autoload
-(defun cape-wrap-inside-comment (capf)
-  "Call CAPF only if inside comment.
-This function can be used as an advice around an existing Capf."
-  (and (nth 4 (syntax-ppss)) (funcall capf)))
-
-;;;###autoload
-(defun cape-wrap-inside-string (capf)
-  "Call CAPF only if inside string.
-This function can be used as an advice around an existing Capf."
-  (and (nth 3 (syntax-ppss)) (funcall capf)))
-
-;;;###autoload
-(defun cape-wrap-purify (capf)
-  "Call CAPF and ensure that it does not illegally modify the buffer.
-This function can be used as an advice around an existing
-Capf.  It has been introduced mainly to fix the broken
-`pcomplete-completions-at-point' function in Emacs versions < 29."
-  ;; bug#50470: Fix Capfs which illegally modify the buffer or which illegally
-  ;; call `completion-in-region'.  The workaround here was proposed by
-  ;; @jakanakaevangeli and is used in his capf-autosuggest package.  In Emacs 29
-  ;; the purity bug of Pcomplete has been fixed, such that make
-  ;; `cape-wrap-purify' is not necessary anymore.
-  (catch 'cape--illegal-completion-in-region
-    (condition-case nil
-        (let ((buffer-read-only t)
-              (inhibit-read-only nil)
-              (completion-in-region-function
-               (lambda (beg end coll pred)
-                 (throw 'cape--illegal-completion-in-region
-                        (list beg end coll :predicate pred)))))
-          (funcall capf))
-      (buffer-read-only nil))))
-
-;;;###autoload
-(defun cape-wrap-accept-all (capf)
-  "Call CAPF and return a completion table which accepts every input.
-This function can be used as an advice around an existing Capf."
-  (pcase (funcall capf)
-    (`(,beg ,end ,table . ,plist)
-     `(,beg ,end ,(cape--accept-all-table table) . ,plist))))
-
-;;;###autoload (autoload 'cape-capf-accept-all "cape")
-;;;###autoload (autoload 'cape-capf-buster "cape")
-;;;###autoload (autoload 'cape-capf-case-fold "cape")
-;;;###autoload (autoload 'cape-capf-debug "cape")
-;;;###autoload (autoload 'cape-capf-inside-code "cape")
-;;;###autoload (autoload 'cape-capf-inside-comment "cape")
-;;;###autoload (autoload 'cape-capf-inside-faces "cape")
-;;;###autoload (autoload 'cape-capf-inside-string "cape")
-;;;###autoload (autoload 'cape-capf-nonexclusive "cape")
-;;;###autoload (autoload 'cape-capf-noninterruptible "cape")
-;;;###autoload (autoload 'cape-capf-passthrough "cape")
-;;;###autoload (autoload 'cape-capf-predicate "cape")
-;;;###autoload (autoload 'cape-capf-prefix-length "cape")
-;;;###autoload (autoload 'cape-capf-properties "cape")
-;;;###autoload (autoload 'cape-capf-purify "cape")
-;;;###autoload (autoload 'cape-capf-silent "cape")
-;;;###autoload (autoload 'cape-capf-super "cape")
-
-(dolist (wrapper (list #'cape-wrap-accept-all #'cape-wrap-buster
-                       #'cape-wrap-case-fold #'cape-wrap-debug
-                       #'cape-wrap-inside-code #'cape-wrap-inside-comment
-                       #'cape-wrap-inside-faces #'cape-wrap-inside-string
-                       #'cape-wrap-nonexclusive #'cape-wrap-noninterruptible
-                       #'cape-wrap-passthrough #'cape-wrap-predicate
-                       #'cape-wrap-prefix-length #'cape-wrap-properties
-                       #'cape-wrap-purify #'cape-wrap-silent #'cape-wrap-super))
-  (let ((name (string-remove-prefix "cape-wrap-" (symbol-name wrapper))))
-    (defalias (intern (format "cape-capf-%s" name))
-      (lambda (capf &rest args) (lambda () (apply wrapper capf args)))
-      (format "Create a %s Capf from CAPF.
-The Capf calls `%s' with CAPF and ARGS as arguments." name wrapper))))
-
-(defvar-keymap cape-prefix-map
-  :doc "Keymap used as completion entry point.
-The keymap should be installed globally under a prefix."
-  "p" #'completion-at-point
-  "t" #'complete-tag
-  "d" #'cape-dabbrev
-  "h" #'cape-history
-  "f" #'cape-file
-  "s" #'cape-elisp-symbol
-  "e" #'cape-elisp-block
-  "a" #'cape-abbrev
-  "l" #'cape-line
-  "w" #'cape-dict
-  "k"  'cape-keyword
-  ":"  'cape-emoji
-  "\\" 'cape-tex
-  "_"  'cape-tex
-  "^"  'cape-tex
-  "&"  'cape-sgml
-  "r"  'cape-rfc1345)
-
-;;;###autoload (autoload 'cape-prefix-map "cape" nil t 'keymap)
-(defalias 'cape-prefix-map cape-prefix-map)
-
-(provide 'cape)
-;;; cape.el ends here
diff --git a/emacs/elpa/cape-20241105.858/cape.elc b/emacs/elpa/cape-20241105.858/cape.elc
Binary files differ.
diff --git a/emacs/elpa/cape-20241105.858/cape-autoloads.el b/emacs/elpa/cape-20241123.925/cape-autoloads.el
diff --git a/emacs/elpa/cape-20241105.858/cape-char.el b/emacs/elpa/cape-20241123.925/cape-char.el
diff --git a/emacs/elpa/cape-20241105.858/cape-char.elc b/emacs/elpa/cape-20241123.925/cape-char.elc
Binary files differ.
diff --git a/emacs/elpa/cape-20241105.858/cape-keyword.el b/emacs/elpa/cape-20241123.925/cape-keyword.el
diff --git a/emacs/elpa/cape-20241105.858/cape-keyword.elc b/emacs/elpa/cape-20241123.925/cape-keyword.elc
Binary files differ.
diff --git a/emacs/elpa/cape-20241123.925/cape-pkg.el b/emacs/elpa/cape-20241123.925/cape-pkg.el
@@ -0,0 +1,11 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "cape" "20241123.925"
+  "Completion At Point Extensions."
+  '((emacs  "28.1")
+    (compat "30"))
+  :url "https://github.com/minad/cape"
+  :commit "9a7c44fe8b7ace73fa8ebf6b5805474f0ca07d01"
+  :revdesc "9a7c44fe8b7a"
+  :keywords '("abbrev" "convenience" "matching" "completion" "text")
+  :authors '(("Daniel Mendler" . "mail@daniel-mendler.de"))
+  :maintainers '(("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/cape-20241123.925/cape.el b/emacs/elpa/cape-20241123.925/cape.el
@@ -0,0 +1,1302 @@
+;;; cape.el --- Completion At Point Extensions -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
+
+;; Author: Daniel Mendler <mail@daniel-mendler.de>
+;; Maintainer: Daniel Mendler <mail@daniel-mendler.de>
+;; Created: 2021
+;; Package-Version: 20241123.925
+;; Package-Revision: 9a7c44fe8b7a
+;; Package-Requires: ((emacs "28.1") (compat "30"))
+;; URL: https://github.com/minad/cape
+;; Keywords: abbrev, convenience, matching, completion, text
+
+;; This file is part of GNU Emacs.
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Let your completions fly! This package provides additional completion
+;; backends in the form of Capfs (completion-at-point-functions).
+;;
+;; `cape-abbrev': Complete abbreviation (add-global-abbrev, add-mode-abbrev).
+;; `cape-dabbrev': Complete word from current buffers.
+;; `cape-dict': Complete word from dictionary file.
+;; `cape-elisp-block': Complete Elisp in Org or Markdown code block.
+;; `cape-elisp-symbol': Complete Elisp symbol.
+;; `cape-emoji': Complete Emoji.
+;; `cape-file': Complete file name.
+;; `cape-history': Complete from Eshell, Comint or minibuffer history.
+;; `cape-keyword': Complete programming language keyword.
+;; `cape-line': Complete entire line from file.
+;; `cape-rfc1345': Complete Unicode char using RFC 1345 mnemonics.
+;; `cape-sgml': Complete Unicode char from SGML entity, e.g., &alpha.
+;; `cape-tex': Complete Unicode char from TeX command, e.g. \hbar.
+
+;;; Code:
+
+(require 'compat)
+(eval-when-compile
+  (require 'cl-lib)
+  (require 'subr-x))
+
+;;;; Customization
+
+(defgroup cape nil
+  "Completion At Point Extensions."
+  :link '(info-link :tag "Info Manual" "(cape)")
+  :link '(url-link :tag "Website" "https://github.com/minad/cape")
+  :link '(emacs-library-link :tag "Library Source" "cape.el")
+  :group 'convenience
+  :group 'tools
+  :group 'matching
+  :prefix "cape-")
+
+(defcustom cape-dict-limit 100
+  "Maximal number of completion candidates returned by `cape-dict'."
+  :type '(choice (const nil) natnum))
+
+(defcustom cape-dict-file "/usr/share/dict/words"
+  "Path to dictionary word list file.
+This variable can also be a list of paths or
+a function returning a single or more paths."
+  :type '(choice string (repeat string) function))
+
+(defcustom cape-dict-case-replace 'case-replace
+  "Preserve case of input.
+See `dabbrev-case-replace' for details."
+  :type '(choice (const :tag "off" nil)
+                 (const :tag "use `case-replace'" case-replace)
+                 (other :tag "on" t)))
+
+(defcustom cape-dict-case-fold 'case-fold-search
+  "Case fold search during search.
+See `dabbrev-case-fold-search' for details."
+  :type '(choice (const :tag "off" nil)
+                 (const :tag "use `case-fold-search'" case-fold-search)
+                 (other :tag "on" t)))
+
+(defcustom cape-dabbrev-min-length 4
+  "Minimum length of Dabbrev expansions.
+This setting ensures that words which are too short
+are not offered as completion candidates, such that
+auto completion does not pop up too aggressively."
+  :type 'natnum)
+
+(defcustom cape-dabbrev-check-other-buffers t
+  "Buffers to check for Dabbrev.
+
+If t, check all other buffers, subject to Dabbrev ignore rules.
+If a function, only search the buffers returned by this function.
+Any other non-nil value only checks some other buffers, as per
+`dabbrev-select-buffers-function'."
+  :type `(choice (const :tag "off" nil)
+                 (const :tag "same-mode buffers" ,#'cape--buffers-major-mode)
+                 (function :tag "function")
+                 (const :tag "some" some)
+                 (other :tag "all" t)))
+
+(defcustom cape-file-directory nil
+  "Base directory used by `cape-file."
+  :type '(choice (const nil) string function))
+
+(defcustom cape-file-prefix "file:"
+  "File completion trigger prefixes.
+The value can be a string or a list of strings.  The default
+`file:' is the prefix of Org file links which work in arbitrary
+buffers via `org-open-at-point-global'."
+  :type '(choice string (repeat string)))
+
+(defcustom cape-file-directory-must-exist t
+  "The parent directory must exist for file completion."
+  :type 'boolean)
+
+(defcustom cape-line-buffer-function #'cape--buffers-major-mode
+  "Function which returns list of buffers.
+The buffers are scanned for completion candidates by `cape-line'."
+  :type '(choice (const :tag "Current buffer" current-buffer)
+                 (const :tag "All buffers" buffer-list)
+                 (const :tag "Buffers with same major mode" cape--buffers-major-mode)
+                 (function :tag "Custom function")))
+
+(defcustom cape-elisp-symbol-wrapper
+  '((org-mode ?~ ?~)
+    (markdown-mode ?` ?`)
+    (emacs-lisp-mode ?` ?')
+    (rst-mode "``" "``")
+    (log-edit-mode "`" "'")
+    (change-log-mode "`" "'")
+    (message-mode "`" "'")
+    (rcirc-mode "`" "'"))
+  "Wrapper characters for symbols."
+  :type '(alist :key-type symbol :value-type (list (choice character string)
+                                                   (choice character string))))
+
+;;;; Helpers
+
+(defun cape--case-fold-p (fold)
+  "Return non-nil if case folding is enabled for FOLD."
+  (if (eq fold 'case-fold-search) case-fold-search fold))
+
+(defun cape--case-replace-list (flag input strs)
+  "Replace case of STRS depending on INPUT and FLAG."
+  (if (and (if (eq flag 'case-replace) case-replace flag)
+           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input)))
+      (mapcar (apply-partially #'cape--case-replace flag input) strs)
+    strs))
+
+(defun cape--case-replace (flag input str)
+  "Replace case of STR depending on INPUT and FLAG."
+  (or (and (if (eq flag 'case-replace) case-replace flag)
+           (string-prefix-p input str t)
+           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input))
+           (save-match-data
+             ;; Ensure that single character uppercase input does not lead to an
+             ;; all uppercase result.
+             (when (and (= (length input) 1) (> (length str) 1))
+               (setq input (concat input (substring str 1 2))))
+             (and (string-match input input)
+                  (replace-match str nil nil input))))
+      str))
+
+(defun cape--separator-p (str)
+  "Return non-nil if input STR has a separator character.
+Separator characters are used by completion styles like Orderless
+to split filter words.  In Corfu, the separator is configurable
+via the variable `corfu-separator'."
+  (string-search (string ;; Support `corfu-separator' and Orderless
+                  (or (and (bound-and-true-p corfu-mode)
+                           (bound-and-true-p corfu-separator))
+                      ?\s))
+                 str))
+
+(defmacro cape--silent (&rest body)
+  "Silence BODY."
+  (declare (indent 0))
+  `(cl-letf ((inhibit-message t)
+             (message-log-max nil)
+             ((symbol-function #'minibuffer-message) #'ignore))
+     (ignore-errors ,@body)))
+
+(defun cape--bounds (thing)
+  "Return bounds of THING."
+  (or (bounds-of-thing-at-point thing) (cons (point) (point))))
+
+(defmacro cape--wrapped-table (wrap body)
+  "Create wrapped completion table, handle `completion--unquote'.
+WRAP is the wrapper function.
+BODY is the wrapping expression."
+  (declare (indent 1))
+  `(lambda (str pred action)
+     (,@body
+      (let ((result (complete-with-action action table str pred)))
+        (when (and (eq action 'completion--unquote) (functionp (cadr result)))
+          (cl-callf ,wrap (cadr result)))
+        result))))
+
+(defun cape--accept-all-table (table)
+  "Create completion TABLE which accepts all input."
+  (cape--wrapped-table cape--accept-all-table
+    (or (eq action 'lambda))))
+
+(defun cape--passthrough-table (table)
+  "Create completion TABLE disabling any filtering."
+  (cape--wrapped-table cape--passthrough-table
+    (let (completion-ignore-case completion-regexp-list (_ (setq str ""))))))
+
+(defun cape--noninterruptible-table (table)
+  "Create non-interruptible completion TABLE."
+  (cape--wrapped-table cape--noninterruptible-table
+    (let (throw-on-input))))
+
+(defun cape--silent-table (table)
+  "Create a new completion TABLE which is silent (no messages, no errors)."
+  (cape--wrapped-table cape--silent-table
+    (cape--silent)))
+
+(defun cape--nonessential-table (table)
+  "Mark completion TABLE as `non-essential'."
+  (let ((dir default-directory))
+    (cape--wrapped-table cape--nonessential-table
+      (let ((default-directory dir)
+            (non-essential t))))))
+
+(defvar cape--debug-length 5
+  "Length of printed lists in `cape--debug-print'.")
+
+(defvar cape--debug-id 0
+  "Completion table identifier.")
+
+(defun cape--debug-message (&rest msg)
+  "Print debug MSG."
+  (let ((inhibit-message t))
+    (apply #'message msg)))
+
+(defun cape--debug-print (obj &optional full)
+  "Print OBJ as string, truncate lists if FULL is nil."
+  (cond
+   ((symbolp obj) (symbol-name obj))
+   ((functionp obj) "#<function>")
+   ((proper-list-p obj)
+    (concat
+     "("
+     (string-join
+      (mapcar #'cape--debug-print
+              (if full obj (take cape--debug-length obj)))
+      " ")
+     (if (and (not full) (length> obj cape--debug-length)) " ...)" ")")))
+   (t (let ((print-level 2))
+        (prin1-to-string obj)))))
+
+(defun cape--debug-table (table name beg end)
+  "Create completion TABLE with debug messages.
+NAME is the name of the Capf, BEG and END are the input markers."
+  (lambda (str pred action)
+    (let ((result (complete-with-action action table str pred)))
+      (if (and (eq action 'completion--unquote) (functionp (cadr result)))
+          ;; See `cape--wrapped-table'
+          (cl-callf cape--debug-table (cadr result) name beg end)
+        (cape--debug-message
+         "%s(action=%S input=%s:%s:%S prefix=%S ignore-case=%S%s%s) => %s"
+         name
+         (pcase action
+           ('nil 'try)
+           ('t 'all)
+           ('lambda 'test)
+           (_ action))
+         (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
+         str completion-ignore-case
+         (if completion-regexp-list
+             (format " regexp=%s" (cape--debug-print completion-regexp-list t))
+           "")
+         (if pred
+             (format " predicate=%s" (cape--debug-print pred))
+           "")
+         (cape--debug-print result)))
+      result)))
+
+(cl-defun cape--properties-table (table &key category (sort t) strip &allow-other-keys)
+  "Create completion TABLE with properties.
+CATEGORY is the optional completion category.
+SORT should be nil to disable sorting.
+STRIP means to strip all metadata."
+  ;; The metadata will be overridden if the category is non-nil, if the table is
+  ;; a function table or if sorting should be disabled for a non-nil
+  ;; non-function table.
+  (if (or category (functionp table) (and (not sort) table))
+      (let ((metadata (and (not strip)
+                           `(metadata
+                             ,@(and category `((category . ,category)))
+                             ,@(and (not sort) '((display-sort-function . identity)
+                                                 (cycle-sort-function . identity)))))))
+        (lambda (str pred action)
+          (if (eq action 'metadata)
+              metadata
+            (complete-with-action action table str pred))))
+    table))
+
+(defun cape--dynamic-table (beg end fun)
+  "Create dynamic completion table from FUN with caching.
+BEG and END are the input bounds.  FUN is the function which
+computes the candidates.  FUN must return a pair of a predicate
+function function and the list of candidates.  The predicate is
+passed new input and must return non-nil if the candidates are
+still valid.
+
+It is only necessary to use this function if the set of
+candidates is computed dynamically based on the input and not
+statically determined.  The behavior is similar but slightly
+different to `completion-table-dynamic'.
+
+The difference to the builtins `completion-table-dynamic' and
+`completion-table-with-cache' is that this function does not use
+the prefix argument of the completion table to compute the
+candidates.  Instead it uses the input in the buffer between BEG
+and END to FUN to compute the candidates.  This way the dynamic
+candidate computation is compatible with non-prefix completion
+styles like `substring' or `orderless', which pass the empty
+string as first argument to the completion table."
+  (let ((beg (copy-marker beg))
+        (end (copy-marker end t))
+        valid table)
+    (lambda (str pred action)
+      ;; Bail out early for `metadata' and `boundaries'. This is a pointless
+      ;; move because of caching, but we do it anyway in the hope that the
+      ;; profiler report looks less confusing, since the weight of the expensive
+      ;; FUN computation is moved to the `all-completions' action.  Computing
+      ;; `all-completions' must surely be most expensive, so nobody will suspect
+      ;; a thing.
+      (unless (or (eq action 'metadata) (eq (car-safe action) 'boundaries))
+        (let ((input (buffer-substring-no-properties beg end)))
+          (unless (and valid
+                       (or (cape--separator-p input)
+                           (funcall valid input)))
+            (let* (;; Reset in case `all-completions' is used inside FUN
+                   completion-ignore-case completion-regexp-list
+                   ;; Retrieve new state by calling FUN
+                   (new (and (< beg end) (funcall fun input)))
+                   ;; No interrupt during state update
+                   throw-on-input)
+              (setq valid (car new) table (cdr new)))))
+        (complete-with-action action table str pred)))))
+
+;;;; Capfs
+
+;;;;; cape-history
+
+(declare-function ring-elements "ring")
+(declare-function eshell-bol "eshell")
+(declare-function comint-line-beginning-position "comint")
+(defvar eshell-history-ring)
+(defvar comint-input-ring)
+
+(defvar cape--history-properties
+  (list :company-kind (lambda (_) 'text)
+        :exclusive 'no)
+  "Completion extra properties for `cape-history'.")
+
+;;;###autoload
+(defun cape-history (&optional interactive)
+  "Complete from Eshell, Comint or minibuffer history.
+See also `consult-history' for a more flexible variant based on
+`completing-read'.  If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      (cape-interactive #'cape-history)
+    (let (history bol)
+      (cond
+       ((derived-mode-p 'eshell-mode)
+        (setq history eshell-history-ring
+              bol (static-if (< emacs-major-version 30)
+                      (save-excursion (eshell-bol) (point))
+                    (line-beginning-position))))
+       ((derived-mode-p 'comint-mode)
+        (setq history comint-input-ring
+              bol (comint-line-beginning-position)))
+       ((and (minibufferp) (not (eq minibuffer-history-variable t)))
+        (setq history (symbol-value minibuffer-history-variable)
+              bol (line-beginning-position))))
+      (when (ring-p history)
+        (setq history (ring-elements history)))
+      (when history
+        `(,bol ,(point)
+          ,(cape--properties-table history :sort nil)
+          ,@cape--history-properties)))))
+
+;;;;; cape-file
+
+(defvar comint-unquote-function)
+(defvar comint-requote-function)
+
+(defvar cape--file-properties
+  (list :annotation-function (lambda (s) (if (string-suffix-p "/" s) " Dir" " File"))
+        :company-kind (lambda (s) (if (string-suffix-p "/" s) 'folder 'file))
+        :exclusive 'no)
+  "Completion extra properties for `cape-file'.")
+
+;;;###autoload
+(defun cape-file (&optional interactive)
+  "Complete file name at point.
+See the user option `cape-file-directory-must-exist'.
+If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      (cape-interactive '(cape-file-directory-must-exist) #'cape-file)
+    (pcase-let* ((default-directory (pcase cape-file-directory
+                                      ('nil default-directory)
+                                      ((pred stringp) cape-file-directory)
+                                      (_ (funcall cape-file-directory))))
+                 (prefix (and cape-file-prefix
+                              (looking-back
+                               (concat
+                                (regexp-opt (ensure-list cape-file-prefix) t)
+                                "[^ \n\t]*")
+                               (pos-bol))
+                              (match-end 1)))
+                 (`(,beg . ,end) (if prefix
+                                     (cons prefix (point))
+                                   (cape--bounds 'filename)))
+                 (non-essential t)
+                 (file (buffer-substring-no-properties beg end)))
+      (when (or prefix
+                (not cape-file-directory-must-exist)
+                (and (string-search "/" file)
+                     (file-exists-p (file-name-directory file))))
+        (unless (boundp 'comint-unquote-function)
+          (require 'comint))
+        `(,beg ,end
+          ,(cape--nonessential-table
+            (completion-table-with-quoting
+             #'read-file-name-internal
+             comint-unquote-function
+             comint-requote-function))
+          ,@(when (or prefix (string-match-p "./" file))
+              '(:company-prefix-length t))
+          ,@cape--file-properties)))))
+
+;;;;; cape-elisp-symbol
+
+(autoload 'elisp--company-kind "elisp-mode")
+(autoload 'elisp--company-doc-buffer "elisp-mode")
+(autoload 'elisp--company-doc-string "elisp-mode")
+(autoload 'elisp--company-location "elisp-mode")
+
+(defvar cape--elisp-symbol-properties
+  (list :annotation-function #'cape--elisp-symbol-annotation
+        :exit-function #'cape--elisp-symbol-exit
+        :predicate #'cape--elisp-symbol-predicate
+        :company-kind #'elisp--company-kind
+        :company-doc-buffer #'elisp--company-doc-buffer
+        :company-docsig #'elisp--company-doc-string
+        :company-location #'elisp--company-location
+        :exclusive 'no)
+  "Completion extra properties for `cape-elisp-symbol'.")
+
+(defun cape--elisp-symbol-predicate (sym)
+  "Return t if SYM is bound, fbound or propertized."
+  (or (fboundp sym) (boundp sym) (symbol-plist sym)))
+
+(defun cape--elisp-symbol-exit (sym status)
+  "Wrap symbol SYM with `cape-elisp-symbol-wrapper' buffers.
+STATUS is the exit status."
+  (when-let (((not (eq status 'exact)))
+             (c (cl-loop for (m . c) in cape-elisp-symbol-wrapper
+                         if (derived-mode-p m) return c))
+             ((or (not (derived-mode-p 'emacs-lisp-mode))
+                  ;; Inside comment or string
+                  (let ((s (syntax-ppss))) (or (nth 3 s) (nth 4 s)))))
+             (x (if (stringp (car c)) (car c) (string (car c))))
+             (y (if (stringp (cadr c)) (cadr c) (string (cadr c)))))
+    (save-excursion
+      (backward-char (length sym))
+      (unless (save-excursion
+                (and (ignore-errors (or (backward-char (length x)) t))
+                     (looking-at-p (regexp-quote x))))
+        (insert x)))
+    (unless (looking-at-p (regexp-quote y))
+      (insert y))))
+
+(defun cape--elisp-symbol-annotation (sym)
+  "Return kind of SYM."
+  (setq sym (intern-soft sym))
+  (cond
+   ((special-form-p sym) " Special")
+   ((macrop sym) " Macro")
+   ((commandp sym) " Command")
+   ((fboundp sym) " Function")
+   ((custom-variable-p sym) " Custom")
+   ((boundp sym) " Variable")
+   ((featurep sym) " Feature")
+   ((facep sym) " Face")
+   (t " Symbol")))
+
+;;;###autoload
+(defun cape-elisp-symbol (&optional interactive)
+  "Complete Elisp symbol at point.
+If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      ;; No cycling since it breaks the :exit-function.
+      (let (completion-cycle-threshold)
+        (cape-interactive #'cape-elisp-symbol))
+    (pcase-let ((`(,beg . ,end) (cape--bounds 'symbol)))
+      (when (eq (char-after beg) ?')
+        (setq beg (1+ beg) end (max beg end)))
+      `(,beg ,end
+        ,(cape--properties-table obarray :category 'symbol)
+        ,@cape--elisp-symbol-properties))))
+
+;;;;; cape-elisp-block
+
+(declare-function org-element-context "org-element")
+(declare-function markdown-code-block-lang "ext:markdown-mode")
+
+(defun cape--inside-block-p (&rest langs)
+  "Return non-nil if inside LANGS code block."
+  (when-let ((face (get-text-property (point) 'face))
+             (lang (or (and (if (listp face)
+                                (memq 'org-block face)
+                              (eq 'org-block face))
+                            (plist-get (cadr (org-element-context)) :language))
+                       (and (if (listp face)
+                                (memq 'markdown-code-face face)
+                              (eq 'markdown-code-face face))
+                            (save-excursion
+                              (markdown-code-block-lang))))))
+    (member lang langs)))
+
+;;;###autoload
+(defun cape-elisp-block (&optional interactive)
+  "Complete Elisp in Org or Markdown code block.
+This Capf is particularly useful for literate Emacs configurations.
+If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (cond
+   (interactive
+    ;; No code block check. Always complete Elisp when command was
+    ;; explicitly invoked interactively.
+    (cape-interactive #'elisp-completion-at-point))
+   ((cape--inside-block-p "elisp" "emacs-lisp")
+    (elisp-completion-at-point))))
+
+;;;;; cape-dabbrev
+
+(defvar cape--dabbrev-properties
+  (list :annotation-function (lambda (_) " Dabbrev")
+        :company-kind (lambda (_) 'text)
+        :exclusive 'no)
+  "Completion extra properties for `cape-dabbrev'.")
+
+(defvar dabbrev-case-replace)
+(defvar dabbrev-case-fold-search)
+(defvar dabbrev-abbrev-char-regexp)
+(defvar dabbrev-abbrev-skip-leading-regexp)
+(declare-function dabbrev--find-all-expansions "dabbrev")
+(declare-function dabbrev--reset-global-variables "dabbrev")
+
+(defun cape--dabbrev-list (input)
+  "Find all Dabbrev expansions for INPUT."
+  (cape--silent
+    (let* ((chk cape-dabbrev-check-other-buffers)
+           (funp (and (not (memq chk '(nil t some))) (functionp chk))))
+      (dlet ((dabbrev-check-other-buffers (and chk (not funp)))
+             (dabbrev-check-all-buffers (eq chk t))
+             (dabbrev-search-these-buffers-only (and funp (funcall chk))))
+        (dabbrev--reset-global-variables)
+        (cons
+         (apply-partially #'string-prefix-p input)
+         (cl-loop with min-len = (+ cape-dabbrev-min-length (length input))
+                  with ic = (cape--case-fold-p dabbrev-case-fold-search)
+                  for w in (dabbrev--find-all-expansions input ic)
+                  if (>= (length w) min-len) collect
+                  (cape--case-replace (and ic dabbrev-case-replace) input w)))))))
+
+(defun cape--dabbrev-bounds ()
+  "Return bounds of abbreviation."
+  (unless (boundp 'dabbrev-abbrev-char-regexp)
+    (require 'dabbrev))
+  (let ((re (or dabbrev-abbrev-char-regexp "\\sw\\|\\s_"))
+        (limit (minibuffer-prompt-end)))
+    (when (or (looking-at re)
+              (and (> (point) limit)
+                   (save-excursion (forward-char -1) (looking-at re))))
+      (cons (save-excursion
+              (while (and (> (point) limit)
+                          (save-excursion (forward-char -1) (looking-at re)))
+                (forward-char -1))
+              (when dabbrev-abbrev-skip-leading-regexp
+                (while (looking-at dabbrev-abbrev-skip-leading-regexp)
+                  (forward-char 1)))
+              (point))
+            (save-excursion
+              (while (looking-at re)
+                (forward-char 1))
+              (point))))))
+
+;;;###autoload
+(defun cape-dabbrev (&optional interactive)
+  "Complete with Dabbrev at point.
+
+If INTERACTIVE is nil the function acts like a Capf.  In case you
+observe a performance issue with auto-completion and `cape-dabbrev'
+it is strongly recommended to disable scanning in other buffers.
+See the user options `cape-dabbrev-min-length' and
+`cape-dabbrev-check-other-buffers'."
+  (interactive (list t))
+  (if interactive
+      (cape-interactive '((cape-dabbrev-min-length 0)) #'cape-dabbrev)
+    (when-let ((bounds (cape--dabbrev-bounds)))
+      `(,(car bounds) ,(cdr bounds)
+        ,(cape--properties-table
+          (completion-table-case-fold
+           (cape--dynamic-table (car bounds) (cdr bounds) #'cape--dabbrev-list)
+           (not (cape--case-fold-p dabbrev-case-fold-search)))
+          :category 'cape-dabbrev)
+        ,@cape--dabbrev-properties))))
+
+;;;;; cape-dict
+
+(defvar cape--dict-properties
+  (list :annotation-function (lambda (_) " Dict")
+        :company-kind (lambda (_) 'text)
+        :exclusive 'no)
+  "Completion extra properties for `cape-dict'.")
+
+(defun cape--dict-list (input)
+  "Return all words from `cape-dict-file' matching INPUT."
+  (let* ((inhibit-message t)
+         (message-log-max nil)
+         (default-directory
+          (if (and (not (file-remote-p default-directory))
+                   (file-directory-p default-directory))
+              default-directory
+            user-emacs-directory))
+         (files (mapcar #'expand-file-name
+                        (ensure-list
+                         (if (functionp cape-dict-file)
+                             (funcall cape-dict-file)
+                           cape-dict-file))))
+         (words
+          (apply #'process-lines-ignore-status
+                 "grep"
+                 (concat "-Fh"
+                         (and (cape--case-fold-p cape-dict-case-fold) "i")
+                         (and cape-dict-limit (format "m%d" cape-dict-limit)))
+                 input files)))
+    (cons
+     (apply-partially
+      (if (and cape-dict-limit (length= words cape-dict-limit))
+          #'equal #'string-search)
+      input)
+     (cape--case-replace-list cape-dict-case-replace input words))))
+
+;;;###autoload
+(defun cape-dict (&optional interactive)
+  "Complete word from dictionary at point.
+This completion function works best if the dictionary is sorted
+by frequency.  See the custom option `cape-dict-file'.  If
+INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      (cape-interactive #'cape-dict)
+    (pcase-let ((`(,beg . ,end) (cape--bounds 'word)))
+      `(,beg ,end
+        ,(cape--properties-table
+          (completion-table-case-fold
+           (cape--dynamic-table beg end #'cape--dict-list)
+           (not (cape--case-fold-p cape-dict-case-fold)))
+          :sort nil ;; Presorted word list (by frequency)
+          :category 'cape-dict)
+        ,@cape--dict-properties))))
+
+;;;;; cape-abbrev
+
+(defun cape--abbrev-list ()
+  "Abbreviation list."
+  (delete "" (cl-loop for x in (abbrev--suggest-get-active-tables-including-parents)
+                      nconc (all-completions "" x))))
+
+(defun cape--abbrev-annotation (abbrev)
+  "Annotate ABBREV with expansion."
+  (concat " "
+          (truncate-string-to-width
+           (format
+            "%s"
+            (symbol-value
+             (cl-loop for x in (abbrev--suggest-get-active-tables-including-parents)
+                      thereis (abbrev--symbol abbrev x))))
+           30 0 nil t)))
+
+(defun cape--abbrev-exit (_str status)
+  "Expand expansion if STATUS is not exact."
+  (unless (eq status 'exact)
+    (expand-abbrev)))
+
+(defvar cape--abbrev-properties
+  (list :annotation-function #'cape--abbrev-annotation
+        :exit-function #'cape--abbrev-exit
+        :company-kind (lambda (_) 'snippet)
+        :exclusive 'no)
+  "Completion extra properties for `cape-abbrev'.")
+
+;;;###autoload
+(defun cape-abbrev (&optional interactive)
+  "Complete abbreviation at point.
+If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      ;; No cycling since it breaks the :exit-function.
+      (let (completion-cycle-threshold)
+        (cape-interactive #'cape-abbrev))
+    (when-let (abbrevs (cape--abbrev-list))
+      (let ((bounds (cape--bounds 'symbol)))
+        `(,(car bounds) ,(cdr bounds)
+          ,(cape--properties-table abbrevs :category 'cape-abbrev)
+          ,@cape--abbrev-properties)))))
+
+;;;;; cape-line
+
+(defvar cape--line-properties nil
+  "Completion extra properties for `cape-line'.")
+
+(defun cape--buffers-major-mode ()
+  "Return buffers with same major mode as current buffer."
+  (cl-loop for buf in (buffer-list)
+           if (eq major-mode (buffer-local-value 'major-mode buf))
+           collect buf))
+
+(defun cape--line-list ()
+  "Return all lines from buffer."
+  (let ((ht (make-hash-table :test #'equal))
+        (curr-buf (current-buffer))
+        (buffers (funcall cape-line-buffer-function))
+        lines)
+    (dolist (buf (ensure-list buffers))
+      (with-current-buffer buf
+        (let ((beg (point-min))
+              (max (point-max))
+              (pt (if (eq curr-buf buf) (point) -1))
+              end)
+          (save-excursion
+            (while (< beg max)
+              (goto-char beg)
+              (setq end (pos-eol))
+              (unless (<= beg pt end)
+                (let ((line (buffer-substring-no-properties beg end)))
+                  (unless (or (string-blank-p line) (gethash line ht))
+                    (puthash line t ht)
+                    (push line lines))))
+              (setq beg (1+ end)))))))
+    (nreverse lines)))
+
+;;;###autoload
+(defun cape-line (&optional interactive)
+  "Complete current line from other lines.
+The buffers returned by `cape-line-buffer-function' are scanned for lines.
+If INTERACTIVE is nil the function acts like a Capf."
+  (interactive (list t))
+  (if interactive
+      (cape-interactive #'cape-line)
+    `(,(pos-bol) ,(point)
+      ,(cape--properties-table (cape--line-list) :sort nil)
+      ,@cape--line-properties)))
+
+;;;; Capf combinators
+
+(defun cape--company-call (&rest app)
+  "Apply APP and handle future return values."
+  ;; Backends are non-interruptible. Disable interrupts!
+  (let ((toi throw-on-input)
+        (throw-on-input nil))
+    (pcase (apply app)
+      ;; Handle async future return values.
+      (`(:async . ,fetch)
+       (let ((res 'cape--waiting))
+         (if toi
+             (unwind-protect
+                 (progn
+                   (funcall fetch
+                            (lambda (arg)
+                              (when (eq res 'cape--waiting)
+                                (push 'cape--done unread-command-events)
+                                (setq res arg))))
+                   (when (eq res 'cape--waiting)
+                     (let ((ev (let ((input-method-function nil)
+                                     (echo-keystrokes 0))
+                                 (read-event nil t))))
+                       (unless (eq ev 'cape--done)
+                         (push (cons t ev) unread-command-events)
+                         (setq res 'cape--cancelled)
+                         (throw toi t)))))
+               (setq unread-command-events
+                     (delq 'cape--done unread-command-events)))
+           (funcall fetch (lambda (arg) (setq res arg)))
+           ;; Force synchronization, not interruptible! We use polling
+           ;; here and ignore pending input since we don't use
+           ;; `sit-for'. This is the same method used by Company itself.
+           (while (eq res 'cape--waiting)
+             (sleep-for 0.01)))
+         res))
+      ;; Plain old synchronous return value.
+      (res res))))
+
+(defvar-local cape--company-init nil)
+
+;;;###autoload
+(defun cape-company-to-capf (backend &optional valid)
+  "Convert Company BACKEND function to Capf.
+VALID is a function taking the old and new input string.  It should
+return nil if the cached candidates became invalid.  The default value
+for VALID is `string-prefix-p' such that the candidates are only fetched
+again if the input prefix changed."
+  (lambda ()
+    (when (and (symbolp backend) (not (fboundp backend)))
+      (ignore-errors (require backend nil t)))
+    (when (bound-and-true-p company-mode)
+      (error "`cape-company-to-capf' should not be used with `company-mode', use the Company backend directly instead"))
+    (when (and (symbolp backend) (not (alist-get backend cape--company-init)))
+      (funcall backend 'init)
+      (put backend 'company-init t)
+      (setf (alist-get backend cape--company-init) t))
+    (when-let ((prefix (cape--company-call backend 'prefix))
+               (initial-input (if (stringp prefix) prefix (car-safe prefix))))
+      (let* ((end (point)) (beg (- end (length initial-input)))
+             (valid (if (cape--company-call backend 'no-cache initial-input)
+                        #'equal (or valid #'string-prefix-p)))
+             restore-props)
+        (list beg end
+              (funcall
+               (if (cape--company-call backend 'ignore-case)
+                   #'completion-table-case-fold
+                 #'identity)
+               (cape--properties-table
+                (cape--dynamic-table
+                 beg end
+                 (lambda (input)
+                   (let ((cands (cape--company-call backend 'candidates input)))
+                     ;; The candidate string including text properties should be
+                     ;; restored in the :exit-function, unless the UI guarantees
+                     ;; this itself, like Corfu.
+                     (unless (bound-and-true-p corfu-mode)
+                       (setq restore-props cands))
+                     (cons (apply-partially valid input) cands))))
+                :category backend
+                :sort (not (cape--company-call backend 'sorted))))
+              :exclusive 'no
+              :company-prefix-length (cdr-safe prefix)
+              :company-doc-buffer (lambda (x) (cape--company-call backend 'doc-buffer x))
+              :company-location (lambda (x) (cape--company-call backend 'location x))
+              :company-docsig (lambda (x) (cape--company-call backend 'meta x))
+              :company-deprecated (lambda (x) (cape--company-call backend 'deprecated x))
+              :company-kind (lambda (x) (cape--company-call backend 'kind x))
+              :annotation-function (lambda (x)
+                                     (when-let (ann (cape--company-call backend 'annotation x))
+                                       (concat " " (string-trim ann))))
+              :exit-function (lambda (x _status)
+                               ;; Restore the candidate string including
+                               ;; properties if restore-props is non-nil.  See
+                               ;; the comment above.
+                               (setq x (or (car (member x restore-props)) x))
+                               (cape--company-call backend 'post-completion x)))))))
+
+;;;###autoload
+(defun cape-interactive (&rest capfs)
+  "Complete interactively with the given CAPFS."
+  (let* ((ctx (and (consp (car capfs)) (car capfs)))
+         (capfs (if ctx (cdr capfs) capfs))
+         (completion-at-point-functions
+          (if ctx
+              (mapcar (lambda (f) `(lambda () (let ,ctx (funcall ',f)))) capfs)
+            capfs)))
+    (unless (completion-at-point)
+      (user-error "%s: No completions"
+                  (mapconcat (lambda (fun)
+                               (if (symbolp fun)
+                                   (symbol-name fun)
+                                 "anonymous-capf"))
+                             capfs ", ")))))
+
+;;;###autoload
+(defun cape-capf-interactive (capf)
+  "Create interactive completion function from CAPF."
+  (lambda (&optional interactive)
+    (interactive (list t))
+    (if interactive (cape-interactive capf) (funcall capf))))
+
+;;;###autoload
+(defun cape-wrap-super (&rest capfs)
+  "Call CAPFS and return merged completion result.
+The CAPFS list can contain the keyword `:with' to mark the Capfs
+afterwards as auxiliary One of the non-auxiliary Capfs before
+`:with' must return non-nil for the super Capf to set in and
+return a non-nil result.  Such behavior is useful when listing
+multiple super Capfs in the `completion-at-point-functions':
+
+  (setq completion-at-point-functions
+        (list (cape-capf-super \\='eglot-completion-at-point
+                               :with \\='tempel-complete)
+              (cape-capf-super \\='cape-dabbrev
+                               :with \\='tempel-complete)))"
+  (when-let ((results (cl-loop for capf in capfs until (eq capf :with)
+                               for res = (funcall capf)
+                               if res collect (cons t res))))
+    (pcase-let* ((results (nconc results
+                                 (cl-loop for capf in (cdr (memq :with capfs))
+                                          for res = (funcall capf)
+                                          if res collect (cons nil res))))
+                 (`((,_main ,beg ,end . ,_)) results)
+                 (cand-ht nil)
+                 (tables nil)
+                 (exclusive nil)
+                 (prefix-len nil)
+                 (cand-functions
+                  '(:company-docsig :company-location :company-kind
+                    :company-doc-buffer :company-deprecated
+                    :annotation-function :exit-function)))
+      (cl-loop for (main beg2 end2 table . plist) in results do
+               ;; Note: `cape-capf-super' currently cannot merge Capfs which
+               ;; trigger at different beginning positions.  In order to support
+               ;; this, take the smallest BEG value and then normalize all
+               ;; candidates by prefixing them such that they all start at the
+               ;; smallest BEG position.
+               (when (= beg beg2)
+                 (push (list main (plist-get plist :predicate) table
+                             ;; Plist attached to the candidates
+                             (mapcan (lambda (f)
+                                       (when-let ((v (plist-get plist f)))
+                                         (list f v)))
+                                     cand-functions))
+                       tables)
+                 ;; The resulting merged Capf is exclusive if one of the main
+                 ;; Capfs is exclusive.
+                 (when (and main (not (eq (plist-get plist :exclusive) 'no)))
+                   (setq exclusive t))
+                 (setq end (max end end2))
+                 (let ((plen (plist-get plist :company-prefix-length)))
+                   (cond
+                    ((eq plen t)
+                     (setq prefix-len t))
+                    ((and (not prefix-len) (integerp plen))
+                     (setq prefix-len plen))
+                    ((and (integerp prefix-len) (integerp plen))
+                     (setq prefix-len (max prefix-len plen)))))))
+      (setq tables (nreverse tables))
+      `(,beg ,end
+        ,(lambda (str pred action)
+           (pcase action
+             (`(boundaries . ,_) nil)
+             ('metadata
+              '(metadata (category . cape-super)
+                         (display-sort-function . identity)
+                         (cycle-sort-function . identity)))
+             ('t ;; all-completions
+              (let ((ht (make-hash-table :test #'equal))
+                    (candidates nil))
+                (cl-loop for (main table-pred table cand-plist) in tables do
+                         (let* ((pr (if (and table-pred pred)
+                                        (lambda (x) (and (funcall table-pred x) (funcall pred x)))
+                                      (or table-pred pred)))
+                                (md (completion-metadata "" table pr))
+                                (sort (or (completion-metadata-get md 'display-sort-function)
+                                          #'identity))
+                                ;; Always compute candidates of the main Capf
+                                ;; tables, which come first in the tables
+                                ;; list. For the :with Capfs only compute
+                                ;; candidates if we've already determined that
+                                ;; main candidates are available.
+                                (cands (when (or main (or exclusive cand-ht candidates))
+                                         (funcall sort (all-completions str table pr)))))
+                           ;; Handle duplicates with a hash table.
+                           (cl-loop
+                            for cand in-ref cands
+                            for dup = (gethash cand ht t) do
+                            (cond
+                             ((eq dup t)
+                              ;; Candidate does not yet exist.
+                              (puthash cand cand-plist ht))
+                             ((not (equal dup cand-plist))
+                              ;; Duplicate candidate. Candidate plist is
+                              ;; different, therefore disambiguate the
+                              ;; candidates.
+                              (setf cand (propertize cand 'cape-capf-super
+                                                     (cons cand cand-plist))))))
+                           (when cands (push cands candidates))))
+                (when (or cand-ht candidates)
+                  (setq candidates (apply #'nconc (nreverse candidates))
+                        cand-ht ht)
+                  candidates)))
+             (_ ;; try-completion and test-completion
+              (cl-loop for (_main table-pred table _cand-plist) in tables thereis
+                       (complete-with-action
+                        action table str
+                        (if (and table-pred pred)
+                            (lambda (x) (and (funcall table-pred x) (funcall pred x)))
+                          (or table-pred pred)))))))
+        :company-prefix-length ,prefix-len
+        ,@(and (not exclusive) '(:exclusive no))
+        ,@(mapcan
+           (lambda (prop)
+             (list prop
+                   (lambda (cand &rest args)
+                     (if-let ((ref (get-text-property 0 'cape-capf-super cand)))
+                         (when-let ((fun (plist-get (cdr ref) prop)))
+                           (apply fun (car ref) args))
+                       (when-let ((plist (and cand-ht (gethash cand cand-ht)))
+                                  (fun (plist-get plist prop)))
+                         (apply fun cand args))))))
+           cand-functions)))))
+
+;;;###autoload
+(defun cape-wrap-debug (capf &optional name)
+  "Call CAPF and return a completion table which prints trace messages.
+If CAPF is an anonymous lambda, pass the Capf NAME explicitly for
+meaningful debugging output."
+  (unless name
+    (setq name (if (symbolp capf) capf "capf")))
+  (setq name (format "%s@%s" name (cl-incf cape--debug-id)))
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     (let* ((limit (1+ cape--debug-length))
+            (pred (plist-get plist :predicate))
+            (cands
+             ;; Reset regexps for `all-completions'
+             (let (completion-ignore-case completion-regexp-list)
+               (all-completions
+                "" table
+                (lambda (&rest args)
+                  (and (or (not pred) (apply pred args)) (>= (cl-decf limit) 0))))))
+            (plist-str "")
+            (plist-elt plist))
+       (while (cdr plist-elt)
+         (setq plist-str (format "%s %s=%s" plist-str
+                                 (substring (symbol-name (car plist-elt)) 1)
+                                 (cape--debug-print (cadr plist-elt)))
+               plist-elt (cddr plist-elt)))
+       (cape--debug-message
+        "%s => input=%s:%s:%S table=%s%s"
+        name (+ beg 0) (+ end 0) (buffer-substring-no-properties beg end)
+        (cape--debug-print cands)
+        plist-str))
+     `(,beg ,end ,(cape--debug-table
+                   table name (copy-marker beg) (copy-marker end t))
+       ,@(when-let ((exit (plist-get plist :exit-function)))
+           (list :exit-function
+                 (lambda (cand status)
+                   (cape--debug-message "%s:exit(candidate=%S status=%s)"
+                                        name cand status)
+                   (funcall exit cand status))))
+       . ,plist))
+    (result
+     (cape--debug-message "%s() => %s (No completion)"
+                          name (cape--debug-print result)))))
+
+;;;###autoload
+(defun cape-wrap-buster (capf &optional valid)
+  "Call CAPF and return a completion table with cache busting.
+This function can be used as an advice around an existing Capf.
+The cache is busted when the input changes.  The argument VALID
+can be a function taking the old and new input string.  It should
+return nil if the new input requires that the completion table is
+refreshed.  The default value for VALID is `equal', such that the
+completion table is refreshed on every input change."
+  (setq valid (or valid #'equal))
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     (setq plist `(:cape--buster t . ,plist))
+     `(,beg ,end
+       ,(let* ((beg (copy-marker beg))
+               (end (copy-marker end t))
+               (input (buffer-substring-no-properties beg end)))
+          (lambda (str pred action)
+            (let ((new-input (buffer-substring-no-properties beg end)))
+              (unless (or (not (eq action t))
+                          (cape--separator-p new-input)
+                          (funcall valid input new-input))
+                (pcase
+                    ;; Reset in case `all-completions' is used inside CAPF
+                    (let (completion-ignore-case completion-regexp-list)
+                      (funcall capf))
+                  ((and `(,new-beg ,new-end ,new-table . ,new-plist)
+                        (guard (and (= beg new-beg) (= end new-end))))
+                   (let (throw-on-input) ;; No interrupt during state update
+                     (setf table new-table
+                           input new-input
+                           (cddr plist) new-plist))))))
+            (complete-with-action action table str pred)))
+       ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-passthrough (capf)
+  "Call CAPF and make sure that no completion style filtering takes place."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,(cape--passthrough-table table) ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-properties (capf &rest properties)
+  "Call CAPF and strip or add completion PROPERTIES.
+Completion properties include for example :exclusive,
+:annotation-function and the various :company-* extensions.  Furthermore
+a boolean :sort flag and a completion :category symbol can be specified.
+The boolean :strip flag means to strip all completion properties."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end
+            ,(apply #'cape--properties-table table properties)
+            ,@(and (not (plist-get properties :strip))
+                   (append properties plist))))))
+
+;;;###autoload
+(defun cape-wrap-nonexclusive (capf)
+  "Call CAPF and ensure that it is marked as non-exclusive.
+This function can be used as an advice around an existing Capf."
+  (cape-wrap-properties capf :exclusive 'no))
+
+;;;###autoload
+(defun cape-wrap-predicate (capf predicate)
+  "Call CAPF and add an additional candidate PREDICATE.
+The PREDICATE is passed the candidate symbol or string."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,table
+            :predicate
+            ,(if-let (pred (plist-get plist :predicate))
+                 ;; First argument is key, second is value for hash tables.
+                 ;; The first argument can be a cons cell for alists. Then
+                 ;; the candidate itself is either a string or a symbol. We
+                 ;; normalize the calling convention here such that PREDICATE
+                 ;; always receives a string or a symbol.
+                 (lambda (&rest args)
+                   (when (apply pred args)
+                     (setq args (car args))
+                     (funcall predicate (if (consp args) (car args) args))))
+               (lambda (key &optional _val)
+                 (funcall predicate (if (consp key) (car key) key))))
+            ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-silent (capf)
+  "Call CAPF and silence it (no messages, no errors).
+This function can be used as an advice around an existing Capf."
+  (pcase (cape--silent (funcall capf))
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,(cape--silent-table table) ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-case-fold (capf &optional nofold)
+  "Call CAPF and return a case-insensitive completion table.
+If NOFOLD is non-nil return a case sensitive table instead.  This
+function can be used as an advice around an existing Capf."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,(completion-table-case-fold table nofold) ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-noninterruptible (capf)
+  "Call CAPF and return a non-interruptible completion table.
+This function can be used as an advice around an existing Capf."
+  (pcase (let (throw-on-input) (funcall capf))
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,(cape--noninterruptible-table table) ,@plist))))
+
+;;;###autoload
+(defun cape-wrap-prefix-length (capf length)
+  "Call CAPF and ensure that prefix length is greater or equal than LENGTH.
+If the prefix is long enough, enforce auto completion."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     (when (>= (- end beg) length)
+       `(,beg ,end ,table
+         :company-prefix-length t
+         ,@plist)))))
+
+;;;###autoload
+(defun cape-wrap-inside-faces (capf &rest faces)
+  "Call CAPF only if inside FACES.
+This function can be used as an advice around an existing Capf."
+  (when-let (((> (point) (point-min)))
+             (fs (get-text-property (1- (point)) 'face))
+             ((if (listp fs)
+                  (cl-loop for f in fs thereis (memq f faces))
+                (memq fs faces))))
+    (funcall capf)))
+
+;;;###autoload
+(defun cape-wrap-inside-code (capf)
+  "Call CAPF only if inside code, not inside a comment or string.
+This function can be used as an advice around an existing Capf."
+  (let ((s (syntax-ppss)))
+    (and (not (nth 3 s)) (not (nth 4 s)) (funcall capf))))
+
+;;;###autoload
+(defun cape-wrap-inside-comment (capf)
+  "Call CAPF only if inside comment.
+This function can be used as an advice around an existing Capf."
+  (and (nth 4 (syntax-ppss)) (funcall capf)))
+
+;;;###autoload
+(defun cape-wrap-inside-string (capf)
+  "Call CAPF only if inside string.
+This function can be used as an advice around an existing Capf."
+  (and (nth 3 (syntax-ppss)) (funcall capf)))
+
+;;;###autoload
+(defun cape-wrap-purify (capf)
+  "Call CAPF and ensure that it does not illegally modify the buffer.
+This function can be used as an advice around an existing
+Capf.  It has been introduced mainly to fix the broken
+`pcomplete-completions-at-point' function in Emacs versions < 29."
+  ;; bug#50470: Fix Capfs which illegally modify the buffer or which illegally
+  ;; call `completion-in-region'.  The workaround here was proposed by
+  ;; @jakanakaevangeli and is used in his capf-autosuggest package.  In Emacs 29
+  ;; the purity bug of Pcomplete has been fixed, such that make
+  ;; `cape-wrap-purify' is not necessary anymore.
+  (catch 'cape--illegal-completion-in-region
+    (condition-case nil
+        (let ((buffer-read-only t)
+              (inhibit-read-only nil)
+              (completion-in-region-function
+               (lambda (beg end coll pred)
+                 (throw 'cape--illegal-completion-in-region
+                        (list beg end coll :predicate pred)))))
+          (funcall capf))
+      (buffer-read-only nil))))
+
+;;;###autoload
+(defun cape-wrap-accept-all (capf)
+  "Call CAPF and return a completion table which accepts every input.
+This function can be used as an advice around an existing Capf."
+  (pcase (funcall capf)
+    (`(,beg ,end ,table . ,plist)
+     `(,beg ,end ,(cape--accept-all-table table) . ,plist))))
+
+;;;###autoload (autoload 'cape-capf-accept-all "cape")
+;;;###autoload (autoload 'cape-capf-buster "cape")
+;;;###autoload (autoload 'cape-capf-case-fold "cape")
+;;;###autoload (autoload 'cape-capf-debug "cape")
+;;;###autoload (autoload 'cape-capf-inside-code "cape")
+;;;###autoload (autoload 'cape-capf-inside-comment "cape")
+;;;###autoload (autoload 'cape-capf-inside-faces "cape")
+;;;###autoload (autoload 'cape-capf-inside-string "cape")
+;;;###autoload (autoload 'cape-capf-nonexclusive "cape")
+;;;###autoload (autoload 'cape-capf-noninterruptible "cape")
+;;;###autoload (autoload 'cape-capf-passthrough "cape")
+;;;###autoload (autoload 'cape-capf-predicate "cape")
+;;;###autoload (autoload 'cape-capf-prefix-length "cape")
+;;;###autoload (autoload 'cape-capf-properties "cape")
+;;;###autoload (autoload 'cape-capf-purify "cape")
+;;;###autoload (autoload 'cape-capf-silent "cape")
+;;;###autoload (autoload 'cape-capf-super "cape")
+
+(dolist (wrapper (list #'cape-wrap-accept-all #'cape-wrap-buster
+                       #'cape-wrap-case-fold #'cape-wrap-debug
+                       #'cape-wrap-inside-code #'cape-wrap-inside-comment
+                       #'cape-wrap-inside-faces #'cape-wrap-inside-string
+                       #'cape-wrap-nonexclusive #'cape-wrap-noninterruptible
+                       #'cape-wrap-passthrough #'cape-wrap-predicate
+                       #'cape-wrap-prefix-length #'cape-wrap-properties
+                       #'cape-wrap-purify #'cape-wrap-silent #'cape-wrap-super))
+  (let ((name (string-remove-prefix "cape-wrap-" (symbol-name wrapper))))
+    (defalias (intern (format "cape-capf-%s" name))
+      (lambda (capf &rest args) (lambda () (apply wrapper capf args)))
+      (format "Create a %s Capf from CAPF.
+The Capf calls `%s' with CAPF and ARGS as arguments." name wrapper))))
+
+(defvar-keymap cape-prefix-map
+  :doc "Keymap used as completion entry point.
+The keymap should be installed globally under a prefix."
+  "p" #'completion-at-point
+  "t" #'complete-tag
+  "d" #'cape-dabbrev
+  "h" #'cape-history
+  "f" #'cape-file
+  "s" #'cape-elisp-symbol
+  "e" #'cape-elisp-block
+  "a" #'cape-abbrev
+  "l" #'cape-line
+  "w" #'cape-dict
+  "k"  'cape-keyword
+  ":"  'cape-emoji
+  "\\" 'cape-tex
+  "_"  'cape-tex
+  "^"  'cape-tex
+  "&"  'cape-sgml
+  "r"  'cape-rfc1345)
+
+;;;###autoload (autoload 'cape-prefix-map "cape" nil t 'keymap)
+(defalias 'cape-prefix-map cape-prefix-map)
+
+(provide 'cape)
+;;; cape.el ends here
diff --git a/emacs/elpa/cape-20241123.925/cape.elc b/emacs/elpa/cape-20241123.925/cape.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-openai.el b/emacs/elpa/gptel-20241115.456/gptel-openai.el
@@ -1,454 +0,0 @@
-;;; gptel-openai.el ---  ChatGPT suppport for gptel  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023  Karthik Chikmagalur
-
-;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This file adds support for the ChatGPT API to gptel
-
-;;; Code:
-(require 'cl-generic)
-(eval-when-compile
-  (require 'cl-lib))
-(require 'map)
-
-(defvar gptel-model)
-(defvar gptel-stream)
-(defvar gptel-use-curl)
-(defvar gptel-backend)
-(defvar gptel-temperature)
-(defvar gptel-max-tokens)
-(defvar gptel--system-message)
-(defvar json-object-type)
-(defvar gptel-mode)
-(defvar gptel-track-response)
-(defvar gptel-track-media)
-(declare-function gptel-context--collect-media "gptel-context")
-(declare-function gptel--base64-encode "gptel")
-(declare-function gptel--trim-prefixes "gptel")
-(declare-function gptel--parse-media-links "gptel")
-(declare-function gptel--model-capable-p "gptel")
-(declare-function gptel--model-name "gptel")
-(declare-function gptel--get-api-key "gptel")
-(declare-function prop-match-value "text-property-search")
-(declare-function text-property-search-backward "text-property-search")
-(declare-function json-read "json")
-(declare-function gptel-prompt-prefix-string "gptel")
-(declare-function gptel-response-prefix-string "gptel")
-(declare-function gptel--merge-plists "gptel")
-(declare-function gptel-context--wrap "gptel-context")
-
-(defmacro gptel--json-read ()
-  (if (fboundp 'json-parse-buffer)
-      `(json-parse-buffer
-        :object-type 'plist
-        :null-object nil
-        :false-object :json-false)
-    (require 'json)
-    (defvar json-object-type)
-    (declare-function json-read "json" ())
-    `(let ((json-object-type 'plist))
-      (json-read))))
-
-(defmacro gptel--json-encode (object)
-  (if (fboundp 'json-serialize)
-      `(json-serialize ,object
-        :null-object nil
-        :false-object :json-false)
-    (require 'json)
-    (defvar json-false)
-    (declare-function json-encode "json" (object))
-    `(let ((json-false :json-false))
-      (json-encode ,object))))
-
-(defun gptel--process-models (models)
-  "Convert items in MODELS to symbols with appropriate properties."
-  (let ((models-processed))
-    (dolist (model models)
-      (cl-etypecase model
-        (string (push (intern model) models-processed))
-        (symbol (push model models-processed))
-        (cons
-         (cl-destructuring-bind (name . props) model
-           (setf (symbol-plist name)
-                 ;; MAYBE: Merging existing symbol plists is safer, but makes it
-                 ;; difficult to reset a symbol plist, since removing keys from
-                 ;; it (as opposed to setting them to nil) is more work.
-                 ;;
-                 ;; (map-merge 'plist (symbol-plist name) props)
-                 props)
-           (push name models-processed)))))
-    (nreverse models-processed)))
-
-;;; Common backend struct for LLM support
-(defvar gptel--known-backends nil
-  "Alist of LLM backends known to gptel.
-
-This is an alist mapping user-provided names to backend structs,
-see `gptel-backend'.
-
-You can have more than one backend pointing to the same resource
-with differing settings.")
-
-(cl-defstruct
-    (gptel-backend (:constructor gptel--make-backend)
-                   (:copier gptel--copy-backend))
-  name host header protocol stream
-  endpoint key models url request-params
-  curl-args)
-
-;;; OpenAI (ChatGPT)
-(cl-defstruct (gptel-openai (:constructor gptel--make-openai)
-                            (:copier nil)
-                            (:include gptel-backend)))
-
-(cl-defmethod gptel-curl--parse-stream ((_backend gptel-openai) _info)
-  (let* ((content-strs))
-    (condition-case nil
-        (while (re-search-forward "^data:" nil t)
-          (save-match-data
-            (unless (looking-at " *\\[DONE\\]")
-              (when-let* ((response (gptel--json-read))
-                          (delta (map-nested-elt
-                                  response '(:choices 0 :delta)))
-                          (content (plist-get delta :content)))
-                (push content content-strs)))))
-      (error
-       (goto-char (match-beginning 0))))
-    (apply #'concat (nreverse content-strs))))
-
-(cl-defmethod gptel--parse-response ((_backend gptel-openai) response _info)
-  (map-nested-elt response '(:choices 0 :message :content)))
-
-(cl-defmethod gptel--request-data ((_backend gptel-openai) prompts)
-  "JSON encode PROMPTS for sending to ChatGPT."
-  (let ((prompts-plist
-         `(:model ,(gptel--model-name gptel-model)
-           :messages [,@prompts]
-           :stream ,(or (and gptel-stream gptel-use-curl
-                         (gptel-backend-stream gptel-backend))
-                     :json-false))))
-    (when gptel-temperature
-      (plist-put prompts-plist :temperature gptel-temperature))
-    (when gptel-max-tokens
-      (plist-put prompts-plist :max_completion_tokens gptel-max-tokens))
-    ;; Merge request params with model and backend params.
-    (gptel--merge-plists
-     prompts-plist
-     (gptel-backend-request-params gptel-backend)
-     (gptel--model-request-params  gptel-model))))
-
-(cl-defmethod gptel--parse-buffer ((_backend gptel-openai) &optional max-entries)
-  (let ((prompts) (prop)
-        (include-media (and gptel-track-media
-                            (or (gptel--model-capable-p 'media)
-                                (gptel--model-capable-p 'url)))))
-    (if (or gptel-mode gptel-track-response)
-        (while (and
-                (or (not max-entries) (>= max-entries 0))
-                (setq prop (text-property-search-backward
-                            'gptel 'response
-                            (when (get-char-property (max (point-min) (1- (point)))
-                                                     'gptel)
-                              t))))
-          (if (prop-match-value prop)   ;assistant role
-              (push (list :role "assistant"
-                          :content
-                          (buffer-substring-no-properties (prop-match-beginning prop)
-                                                          (prop-match-end prop)))
-                    prompts)
-            (if include-media
-                (push (list :role "user"
-                            :content
-                            (gptel--openai-parse-multipart
-                             (gptel--parse-media-links
-                              major-mode (prop-match-beginning prop) (prop-match-end prop))))
-                      prompts)
-              (push (list :role "user"
-                          :content
-                          (gptel--trim-prefixes
-                           (buffer-substring-no-properties (prop-match-beginning prop)
-                                                           (prop-match-end prop))))
-                    prompts)))
-          (and max-entries (cl-decf max-entries)))
-      (push (list :role "user"
-                  :content
-                  (gptel--trim-prefixes (buffer-substring-no-properties (point-min) (point-max))))
-            prompts))
-    (if (and (not (gptel--model-capable-p 'nosystem))
-             gptel--system-message)
-        (cons (list :role "system"
-                    :content gptel--system-message)
-              prompts)
-      prompts)))
-
-;; TODO This could be a generic function
-(defun gptel--openai-parse-multipart (parts)
-  "Convert a multipart prompt PARTS to the OpenAI API format.
-
-The input is an alist of the form
- ((:text \"some text\")
-  (:media \"/path/to/media.png\" :mime \"image/png\")
-  (:text \"More text\")).
-
-The output is a vector of entries in a backend-appropriate
-format."
-  (cl-loop
-   for part in parts
-   for n upfrom 1
-   with last = (length parts)
-   for text = (plist-get part :text)
-   for media = (plist-get part :media)
-   if text do
-   (and (or (= n 1) (= n last)) (setq text (gptel--trim-prefixes text))) and
-   unless (string-empty-p text)
-   collect `(:type "text" :text ,text) into parts-array end
-   else if media
-   collect
-   `(:type "image_url"
-     :image_url (:url ,(concat "data:" (plist-get part :mime)
-                        ";base64," (gptel--base64-encode media))))
-   into parts-array end and
-   if (plist-get part :url)
-   collect
-   `(:type "image_url"
-     :image_url (:url ,(plist-get part :url)))
-   into parts-array
-   finally return (vconcat parts-array)))
-
-;; TODO: Does this need to be a generic function?
-(cl-defmethod gptel--wrap-user-prompt ((_backend gptel-openai) prompts
-                                       &optional inject-media)
-  "Wrap the last user prompt in PROMPTS with the context string.
-
-If INJECT-MEDIA is non-nil wrap it with base64-encoded media
-files in the context."
-  (if inject-media
-      ;; Wrap the first user prompt with included media files/contexts
-      (when-let ((media-list (gptel-context--collect-media)))
-        (cl-callf (lambda (current)
-                    (vconcat
-                     (gptel--openai-parse-multipart media-list)
-                     (cl-typecase current
-                       (string `((:type "text" :text ,current)))
-                       (vector current)
-                       (t current))))
-            (plist-get (cadr prompts) :content)))
-    ;; Wrap the last user prompt with included text contexts
-    (cl-callf (lambda (current)
-                (cl-etypecase current
-                  (string (gptel-context--wrap current))
-                  (vector (if-let ((wrapped (gptel-context--wrap nil)))
-                              (vconcat `((:type "text" :text ,wrapped))
-                                       current)
-                            current))))
-        (plist-get (car (last prompts)) :content))))
-
-;;;###autoload
-(cl-defun gptel-make-openai
-    (name &key curl-args models stream key request-params
-          (header
-           (lambda () (when-let (key (gptel--get-api-key))
-                   `(("Authorization" . ,(concat "Bearer " key))))))
-          (host "api.openai.com")
-          (protocol "https")
-          (endpoint "/v1/chat/completions"))
-  "Register an OpenAI API-compatible backend for gptel with NAME.
-
-Keyword arguments:
-
-CURL-ARGS (optional) is a list of additional Curl arguments.
-
-HOST (optional) is the API host, typically \"api.openai.com\".
-
-MODELS is a list of available model names, as symbols.
-Additionally, you can specify supported LLM capabilities like
-vision or tool-use by appending a plist to the model with more
-information, in the form
-
- (model-name . plist)
-
-For a list of currently recognized plist keys, see
-`gptel--openai-models'. An example of a model specification
-including both kinds of specs:
-
-:models
-\\='(gpt-3.5-turbo                         ;Simple specs
-  gpt-4-turbo
-  (gpt-4o-mini                          ;Full spec
-   :description
-   \"Affordable and intelligent small model for lightweight tasks\"
-   :capabilities (media tool json url)
-   :mime-types
-   (\"image/jpeg\" \"image/png\" \"image/gif\" \"image/webp\")))
-
-STREAM is a boolean to toggle streaming responses, defaults to
-false.
-
-PROTOCOL (optional) specifies the protocol, https by default.
-
-ENDPOINT (optional) is the API endpoint for completions, defaults to
-\"/v1/chat/completions\".
-
-HEADER (optional) is for additional headers to send with each
-request.  It should be an alist or a function that retuns an
-alist, like:
- ((\"Content-Type\" . \"application/json\"))
-
-KEY (optional) is a variable whose value is the API key, or
-function that returns the key.
-
-REQUEST-PARAMS (optional) is a plist of additional HTTP request
-parameters (as plist keys) and values supported by the API.  Use
-these to set parameters that gptel does not provide user options
-for."
-  (declare (indent 1))
-  (let ((backend (gptel--make-openai
-                  :curl-args curl-args
-                  :name name
-                  :host host
-                  :header header
-                  :key key
-                  :models (gptel--process-models models)
-                  :protocol protocol
-                  :endpoint endpoint
-                  :stream stream
-                  :request-params request-params
-                  :url (if protocol
-                           (concat protocol "://" host endpoint)
-                         (concat host endpoint)))))
-    (prog1 backend
-      (setf (alist-get name gptel--known-backends
-                       nil nil #'equal)
-                  backend))))
-
-;;; Azure
-;;;###autoload
-(cl-defun gptel-make-azure
-    (name &key curl-args host
-          (protocol "https")
-          (header (lambda () `(("api-key" . ,(gptel--get-api-key)))))
-          (key 'gptel-api-key)
-          models stream endpoint request-params)
-  "Register an Azure backend for gptel with NAME.
-
-Keyword arguments:
-
-CURL-ARGS (optional) is a list of additional Curl arguments.
-
-HOST is the API host.
-
-MODELS is a list of available model names, as symbols.
-
-STREAM is a boolean to toggle streaming responses, defaults to
-false.
-
-PROTOCOL (optional) specifies the protocol, https by default.
-
-ENDPOINT is the API endpoint for completions.
-
-HEADER (optional) is for additional headers to send with each
-request.  It should be an alist or a function that retuns an
-alist, like:
- ((\"Content-Type\" . \"application/json\"))
-
-KEY (optional) is a variable whose value is the API key, or
-function that returns the key.
-
-REQUEST-PARAMS (optional) is a plist of additional HTTP request
-parameters (as plist keys) and values supported by the API.  Use
-these to set parameters that gptel does not provide user options
-for.
-
-Example:
--------
-
- (gptel-make-azure
-  \"Azure-1\"
-  :protocol \"https\"
-  :host \"RESOURCE_NAME.openai.azure.com\"
-  :endpoint
-  \"/openai/deployments/DEPLOYMENT_NAME/completions?api-version=2023-05-15\"
-  :stream t
-  :models \\='(gpt-3.5-turbo gpt-4))"
-  (declare (indent 1))
-  (let ((backend (gptel--make-openai
-                  :curl-args curl-args
-                  :name name
-                  :host host
-                  :header header
-                  :key key
-                  :models (gptel--process-models models)
-                  :protocol protocol
-                  :endpoint endpoint
-                  :stream stream
-                  :request-params request-params
-                  :url (if protocol
-                           (concat protocol "://" host endpoint)
-                         (concat host endpoint)))))
-    (prog1 backend
-      (setf (alist-get name gptel--known-backends
-                       nil nil #'equal)
-            backend))))
-
-;; GPT4All
-;;;###autoload
-(defalias 'gptel-make-gpt4all 'gptel-make-openai
-  "Register a GPT4All backend for gptel with NAME.
-
-Keyword arguments:
-
-CURL-ARGS (optional) is a list of additional Curl arguments.
-
-HOST is where GPT4All runs (with port), typically localhost:4891
-
-MODELS is a list of available model names, as symbols.
-
-STREAM is a boolean to toggle streaming responses, defaults to
-false.
-
-PROTOCOL specifies the protocol, https by default.
-
-ENDPOINT (optional) is the API endpoint for completions, defaults to
-\"/api/v1/completions\"
-
-HEADER (optional) is for additional headers to send with each
-request. It should be an alist or a function that retuns an
-alist, like:
-((\"Content-Type\" . \"application/json\"))
-
-KEY (optional) is a variable whose value is the API key, or
-function that returns the key. This is typically not required for
-local models like GPT4All.
-
-REQUEST-PARAMS (optional) is a plist of additional HTTP request
-parameters (as plist keys) and values supported by the API.  Use
-these to set parameters that gptel does not provide user options
-for.
-
-Example:
--------
-
-(gptel-make-gpt4all
- \"GPT4All\"
- :protocol \"http\"
- :host \"localhost:4891\"
- :models \\='(mistral-7b-openorca.Q4_0.gguf))")
-
-(provide 'gptel-openai)
-;;; gptel-openai.el ends here
diff --git a/emacs/elpa/gptel-20241115.456/gptel-openai.elc b/emacs/elpa/gptel-20241115.456/gptel-openai.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-pkg.el b/emacs/elpa/gptel-20241115.456/gptel-pkg.el
@@ -1,12 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "gptel" "20241115.456"
-  "Interact with ChatGPT or other LLMs."
-  '((emacs     "27.1")
-    (transient "0.4.0")
-    (compat    "29.1.4.1"))
-  :url "https://github.com/karthink/gptel"
-  :commit "51ae43f4edefe0375acbcb836d94d8d0348a531d"
-  :revdesc "51ae43f4edef"
-  :keywords '("convenience")
-  :authors '(("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com"))
-  :maintainers '(("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")))
diff --git a/emacs/elpa/gptel-20241115.456/gptel-rewrite.el b/emacs/elpa/gptel-20241115.456/gptel-rewrite.el
@@ -1,433 +0,0 @@
-;;; gptel-rewrite.el --- Refactoring functions for gptel  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2024  Karthik Chikmagalur
-
-;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
-;; Keywords: hypermedia, convenience, tools
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;
-
-;;; Code:
-(require 'gptel-transient)
-(require 'cl-lib)
-
-(defvar eldoc-documentation-functions)
-(defvar diff-entire-buffers)
-
-(declare-function diff-no-select "diff")
-
-;; * User options
-
-(defcustom gptel-rewrite-directives-hook (list #'gptel--rewrite-message)
-  "Hook run to generate gptel's default rewrite directives.
-
-Each function in this hook is called with no arguments until one
-returns a non-nil value, the base string to use as the
-rewrite/refactor instruction.
-
-Use this hook to tailor context-specific refactoring directives.
-For example, you can specialize the default refactor directive
-for a particular major-mode."
-  :group 'gptel
-  :type 'hook)
-
-(defface gptel-rewrite-highlight-face
-  '((((class color) (min-colors 88) (background dark))
-     :background "#041714" :extend t)
-    (((class color) (min-colors 88) (background light))
-     :background "light goldenrod yellow" :extend t)
-    (t :inherit secondary-selection))
-  "Face for highlighting regions with pending rewrites."
-  :group 'gptel)
-
-;; * Variables
-
-(defvar-keymap gptel-rewrite-actions-map
-  :doc "Keymap for gptel rewrite actions at point."
-  "C-c C-k" #'gptel--rewrite-clear
-  "C-c C-a" #'gptel--rewrite-apply
-  "C-c C-d" #'gptel--rewrite-diff
-  "C-c C-e" #'gptel--rewrite-ediff
-  "C-c C-n" #'gptel--rewrite-next
-  "C-c C-p" #'gptel--rewrite-previous
-  "C-c C-m" #'gptel--rewrite-merge)
-
-(defvar-local gptel--rewrite-overlays nil
-  "List of active rewrite overlays in the buffer.")
-
-(defvar-local gptel--rewrite-message nil)
-
-;; * Helper functions
-
-(defun gptel--rewrite-sanitize-overlays ()
-  "Ensure gptel's rewrite overlays in buffer are consistent."
-  (setq gptel--rewrite-overlays
-        (cl-delete-if-not #'overlay-buffer
-                          gptel--rewrite-overlays)))
-
-(defsubst gptel--refactor-or-rewrite ()
-  "Rewrite should be refactored into refactor.
-
-Or is it the other way around?"
-  (if (derived-mode-p 'prog-mode)
-      "Refactor" "Rewrite"))
-
-(defun gptel--rewrite-message ()
-  "Set a generic refactor/rewrite message for the buffer."
-  (if (derived-mode-p 'prog-mode)
-      (format "You are a %s programmer. Generate only code, no explanation, no code fences. Refactor the following code."
-              (gptel--strip-mode-suffix major-mode))
-    (format "You are a prose editor. Rewrite the following text to be more professional.")))
-
-(defun gptel--rewrite-key-help (callback)
-  "Eldoc documentation function for gptel rewrite actions.
-
-CALLBACK is supplied by Eldoc, see
-`eldoc-documentation-functions'."
-  (when (and gptel--rewrite-overlays
-             (get-char-property (point) 'gptel-rewrite))
-      (funcall callback
-               (format (substitute-command-keys "%s rewrite available: accept \\[gptel--rewrite-apply], clear \\[gptel--rewrite-clear], merge \\[gptel--rewrite-merge], diff \\[gptel--rewrite-diff] or ediff \\[gptel--rewrite-ediff]")
-                       (propertize (concat (gptel-backend-name gptel-backend)
-                                           ":" (gptel--model-name gptel-model))
-                                   'face 'mode-line-emphasis)))))
-
-(defun gptel--rewrite-move (search-func)
-  "Move directionally to a gptel rewrite location using SEARCH-FUNC."
-  (let* ((ov (cdr (get-char-property-and-overlay (point) 'gptel-rewrite)))
-         (pt (save-excursion
-               (if ov
-                   (goto-char
-                    (funcall search-func (overlay-start ov) 'gptel-rewrite))
-                 (goto-char
-                  (max (1- (funcall search-func (point) 'gptel-rewrite))
-                       (point-min))))
-               (funcall search-func (point) 'gptel-rewrite))))
-    (if (get-char-property pt 'gptel-rewrite)
-        (goto-char pt)
-      (user-error "No further rewrite regions!"))))
-
-(defun gptel--rewrite-next ()
-  "Go to next pending LLM rewrite in buffer, if one exists."
-  (interactive)
-  (gptel--rewrite-move #'next-single-char-property-change))
-
-(defun gptel--rewrite-previous ()
-  "Go to previous pending LLM rewrite in buffer, if one exists."
-  (interactive)
-  (gptel--rewrite-move #'previous-single-char-property-change))
-
-(defun gptel--rewrite-overlay-at (&optional pt)
-  "Check for a gptel rewrite overlay at PT and return it.
-
-If no suitable overlay is found, raise an error."
-  (pcase-let ((`(,response . ,ov)
-               (get-char-property-and-overlay (or pt (point)) 'gptel-rewrite))
-              (diff-entire-buffers nil))
-    (unless ov (user-error "Could not find region being rewritten."))
-    (unless response (user-error "No LLM output available for this rewrite."))
-    ov))
-
-(defun gptel--rewrite-prepare-buffer (ovs &optional buf)
-  "Prepare new buffer with LLM changes applied and return it.
-
-This is used for (e)diff purposes.
-
-RESPONSE is the LLM response.  OVS are the overlays specifying
-the changed regions. BUF is the (current) buffer."
-  (setq buf (or buf (current-buffer)))
-  (with-current-buffer buf
-    (let ((pmin (point-min))
-          (pmax (point-max))
-          (pt   (point))
-          ;; (mode major-mode)
-          (newbuf (get-buffer-create "*gptel-diff*"))
-          (inhibit-read-only t)
-          (inhibit-message t))
-      (save-restriction
-        (widen)
-        (with-current-buffer newbuf
-          (erase-buffer)
-          (insert-buffer-substring buf)))
-      (with-current-buffer newbuf
-        (narrow-to-region pmin pmax)
-        (goto-char pt)
-        ;; We mostly just want font-locking
-        ;; (delay-mode-hooks (funcall mode))
-        ;; Apply the changes to the new buffer
-        (save-excursion
-          (gptel--rewrite-apply ovs)))
-      newbuf)))
-
-;; * Refactor action functions
-
-(defun gptel--rewrite-clear (&optional ovs)
-  "Clear pending LLM responses in OVS or at point."
-  (interactive (list (gptel--rewrite-overlay-at)))
-  (dolist (ov (ensure-list ovs))
-    (setq gptel--rewrite-overlays (delq ov gptel--rewrite-overlays))
-    (delete-overlay ov))
-  (unless gptel--rewrite-overlays
-    (remove-hook 'eldoc-documentation-functions 'gptel--rewrite-key-help 'local))
-  (message "Cleared pending LLM response(s)."))
-
-(defun gptel--rewrite-apply (&optional ovs)
-  "Apply pending LLM responses in OVS or at point."
-  (interactive (list (gptel--rewrite-overlay-at)))
-  (cl-loop for ov in (ensure-list ovs)
-           for ov-beg = (overlay-start ov)
-           for ov-end = (overlay-end ov)
-           for response = (overlay-get ov 'gptel-rewrite)
-           do (overlay-put ov 'before-string nil)
-           (goto-char ov-beg)
-           (delete-region ov-beg ov-end)
-           (insert response))
-  (message "Replaced region(s) with LLM output."))
-
-(defun gptel--rewrite-diff (&optional ovs switches)
-  "Diff pending LLM responses in OVS or at point."
-  (interactive (list (gptel--rewrite-overlay-at)))
-  (let* ((buf (current-buffer))
-         (newbuf (gptel--rewrite-prepare-buffer ovs))
-         (diff-buf (diff-no-select
-                    (if-let ((buf-file (buffer-file-name buf)))
-                        (expand-file-name buf-file) buf)
-                    newbuf switches)))
-    (with-current-buffer diff-buf
-      (setq-local diff-jump-to-old-file t))
-    (display-buffer diff-buf)))
-
-(defun gptel--rewrite-ediff (&optional ovs)
-  "Ediff pending LLM responses in OVS or at point."
-  (interactive (list (gptel--rewrite-overlay-at)))
-  (letrec ((newbuf (gptel--rewrite-prepare-buffer ovs))
-           (cwc (current-window-configuration))
-           (gptel--ediff-restore
-            (lambda ()
-              (when (window-configuration-p cwc)
-                (set-window-configuration cwc))
-              (remove-hook 'ediff-quit-hook gptel--ediff-restore))))
-    (add-hook 'ediff-quit-hook gptel--ediff-restore)
-    (ediff-buffers (current-buffer) newbuf)))
-
-(defun gptel--rewrite-merge (&optional ovs)
-  "Insert pending LLM responses in OVS as merge conflicts."
-  (interactive (list (gptel--rewrite-overlay-at)))
-  (let ((changed))
-    (dolist (ov (ensure-list ovs))
-      (save-excursion
-        (when-let (new-str (overlay-get ov 'gptel-rewrite))
-          ;; Insert merge
-          (goto-char (overlay-start ov))
-          (unless (bolp) (insert "\n"))
-          (insert-before-markers "<<<<<<< original\n")
-          (goto-char (overlay-end ov))
-          (unless (bolp) (insert "\n"))
-          (insert
-           "=======\n" new-str
-           "\n>>>>>>> " (gptel-backend-name gptel-backend) "\n")
-          (setq changed t))))
-    (when changed (smerge-mode 1)))
-  (gptel--rewrite-clear ovs))
-
-;; * Transient Prefix for rewriting/refactoring
-
-;;;###autoload (autoload 'gptel-rewrite-menu "gptel-rewrite" nil t)
-(transient-define-prefix gptel-rewrite-menu ()
-  "Rewrite or refactor text region using an LLM."
-  [:description
-   (lambda ()
-     (format "Directive:  %s"
-             (truncate-string-to-width
-              gptel--rewrite-message
-              (max (- (window-width) 14) 20) nil nil t)))
-   (gptel--infix-rewrite-prompt)]
-  ;; FIXME: We are requiring `gptel-transient' because of this suffix, perhaps
-  ;; we can get find some way around that?
-  [:description (lambda () (concat "Context for " (gptel--refactor-or-rewrite)))
-   :if use-region-p
-   (gptel--suffix-context-buffer :key "C")]
-  [[:description "Diff Options"
-    :if (lambda () gptel--rewrite-overlays)
-    ("-b" "Ignore whitespace changes"      ("-b" "--ignore-space-change"))
-    ("-w" "Ignore all whitespace"          ("-w" "--ignore-all-space"))
-    ("-i" "Ignore case"                    ("-i" "--ignore-case"))
-    (gptel--rewrite-infix-diff:-U)]
-   [:description gptel--refactor-or-rewrite
-    :if use-region-p
-    (gptel--suffix-rewrite)]]
-  [[:description (lambda () (concat "Diff " (gptel--refactor-or-rewrite) "s"))
-    :if (lambda () gptel--rewrite-overlays)
-    (gptel--suffix-rewrite-diff)
-    (gptel--suffix-rewrite-ediff)]
-   [:description (lambda () (concat "Continue " (gptel--refactor-or-rewrite) "s"))
-    :if (lambda () (gptel--rewrite-sanitize-overlays))
-    (gptel--suffix-rewrite-merge)
-    (gptel--suffix-rewrite-apply)]
-   [:description (lambda () (concat "Reject " (gptel--refactor-or-rewrite) "s"))
-    :if (lambda () (gptel--rewrite-sanitize-overlays))
-    (gptel--suffix-rewrite-clear)]]
-  (interactive)
-  (unless gptel--rewrite-message
-    (setq gptel--rewrite-message
-          (save-mark-and-excursion
-            (run-hook-with-args-until-success
-             'gptel-rewrite-directives-hook))))
-  (transient-setup 'gptel-rewrite-menu))
-
-;; * Transient infixes for rewriting/refactoring
-
-(transient-define-infix gptel--infix-rewrite-prompt ()
-  "Chat directive (system message) to use for rewriting or refactoring."
-  :description (lambda () (if (derived-mode-p 'prog-mode)
-                         "Set directives for refactor"
-                       "Set directives for rewrite"))
-  :format "%k %d"
-  :class 'transient-lisp-variable
-  :variable 'gptel--rewrite-message
-  :key "d"
-  :prompt "Set directive for rewrite: "
-  :reader (lambda (prompt _ history)
-            (read-string
-             prompt
-             (save-mark-and-excursion
-               (run-hook-with-args-until-success
-                'gptel-rewrite-directives-hook))
-             history)))
-
-(transient-define-argument gptel--rewrite-infix-diff:-U ()
-  :description "Context lines"
-  :class 'transient-option
-  :argument "-U"
-  :reader #'transient-read-number-N0)
-
-;; * Transient suffixes for rewriting/refactoring
-
-(transient-define-suffix gptel--suffix-rewrite (&optional rewrite-message)
-  "Rewrite or refactor region contents."
-  :key "r"
-  :description #'gptel--refactor-or-rewrite
-  (interactive (list gptel--rewrite-message))
-  (let* ((prompt (buffer-substring-no-properties
-                  (region-beginning) (region-end)))
-         (gptel--system-message (or rewrite-message gptel--rewrite-message))
-         ;; always send context with system message
-         (gptel-use-context (and gptel-use-context 'system)))
-    (deactivate-mark)
-    (gptel-request prompt
-      :context
-      (let ((ov (make-overlay (region-beginning) (region-end))))
-        (overlay-put ov 'category 'gptel)
-        (overlay-put ov 'evaporate t)
-        ov)
-      :callback
-      (lambda (response info)
-        (if (not response)
-            (message (concat "LLM response error: %s. Rewrite/refactor in buffer %s canceled."
-                             (propertize "❌" 'face 'error))
-                     (plist-get info :status)
-                     (plist-get info :buffer))
-          ;; Store response
-          (let ((buf (plist-get info :buffer))
-                 (ov  (plist-get info :context))
-                 (action-str) (hint-str))
-            (with-current-buffer buf
-              (if (derived-mode-p 'prog-mode)
-                  (progn
-                    (setq action-str "refactor")
-                    (when (string-match-p "^```" response)
-                      (setq response (replace-regexp-in-string "^```.*$" "" response))))
-                (setq action-str "rewrite"))
-              (setq hint-str (concat "[" (gptel-backend-name gptel-backend)
-                                     ":" (gptel--model-name gptel-model) "] "
-                                     (upcase action-str) " READY ✓\n"))
-              (add-hook 'eldoc-documentation-functions #'gptel--rewrite-key-help nil 'local)
-              (overlay-put ov 'gptel-rewrite response)
-              (overlay-put ov 'face 'gptel-rewrite-highlight-face)
-              (overlay-put ov 'keymap gptel-rewrite-actions-map)
-              (overlay-put ov 'before-string
-                           (concat (propertize
-                                    " " 'display `(space :align-to (- right ,(1+ (length hint-str)))))
-                                   (propertize hint-str 'face 'success)))
-              (overlay-put
-               ov 'help-echo
-               (format "%s rewrite available:
-- accept \\[gptel--rewrite-apply],
-- clear  \\[gptel--rewrite-clear],
-- merge  \\[gptel--accept-merge],
-- diff   \\[gptel--rewrite-diff],
-- ediff  \\[gptel--rewrite-ediff]"
-                       (propertize (concat (gptel-backend-name gptel-backend)
-                                           ":" (gptel--model-name gptel-model)))))
-              (push ov gptel--rewrite-overlays))
-            ;; Message user
-            (message
-             (concat
-              "LLM %s output"
-              (unless (eq (current-buffer) buf) (format " in buffer %s " buf))
-              (substitute-command-keys " ready, \\[gptel-menu] to continue."))
-             action-str)))))))
-
-(transient-define-suffix gptel--suffix-rewrite-diff (&optional switches)
-  "Diff LLM output against buffer."
-  :if (lambda () gptel--rewrite-overlays)
-  :key "D"
-  :description (concat "Diff  LLM " (downcase (gptel--refactor-or-rewrite)) "s")
-  (interactive (list (transient-args transient-current-command)))
-  (gptel--rewrite-diff gptel--rewrite-overlays switches))
-
-(transient-define-suffix gptel--suffix-rewrite-ediff ()
-  "Ediff LLM output against buffer."
-  :if (lambda () gptel--rewrite-overlays)
-  :key "E"
-  :description (concat "Ediff LLM " (downcase (gptel--refactor-or-rewrite)) "s")
-  (interactive)
-  (gptel--rewrite-ediff gptel--rewrite-overlays))
-
-(transient-define-suffix gptel--suffix-rewrite-merge ()
-  "Insert LLM output as merge conflicts"
-  :if (lambda () gptel--rewrite-overlays)
-  :key "cm"
-  :description "Accept as merge conflicts"
-  (interactive)
-  (gptel--rewrite-merge gptel--rewrite-overlays))
-
-(transient-define-suffix gptel--suffix-rewrite-apply ()
-  "Accept pending LLM rewrites."
-  :if (lambda () gptel--rewrite-overlays)
-  :key "ca"
-  :description "Accept in-place"
-  (interactive)
-  (gptel--rewrite-apply gptel--rewrite-overlays))
-
-(transient-define-suffix gptel--suffix-rewrite-clear ()
-  "Clear pending LLM rewrites."
-  :if (lambda () gptel--rewrite-overlays)
-  :key "ck"
-  :description (concat "Clear pending "
-                       (downcase (gptel--refactor-or-rewrite))
-                       "s")
-  (interactive)
-  (gptel--rewrite-clear gptel--rewrite-overlays))
-
-(provide 'gptel-rewrite)
-;;; gptel-rewrite.el ends here
-
-;; Local Variables:
-;; outline-regexp: "^;; \\*+"
-;; End:
diff --git a/emacs/elpa/gptel-20241115.456/gptel-rewrite.elc b/emacs/elpa/gptel-20241115.456/gptel-rewrite.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-transient.elc b/emacs/elpa/gptel-20241115.456/gptel-transient.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel.el b/emacs/elpa/gptel-20241115.456/gptel.el
@@ -1,1888 +0,0 @@
-;;; gptel.el --- Interact with ChatGPT or other LLMs     -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023  Karthik Chikmagalur
-
-;; Author: Karthik Chikmagalur <karthik.chikmagalur@gmail.com>
-;; Package-Version: 20241115.456
-;; Package-Revision: 51ae43f4edef
-;; Package-Requires: ((emacs "27.1") (transient "0.4.0") (compat "29.1.4.1"))
-;; Keywords: convenience
-;; URL: https://github.com/karthink/gptel
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;; This file is NOT part of GNU Emacs.
-
-;;; Commentary:
-
-;; gptel is a simple Large Language Model chat client, with support for multiple
-;; models and backends.
-;;
-;; It works in the spirit of Emacs, available at any time and in any buffer.
-;;
-;; gptel supports
-;;
-;; - The services ChatGPT, Azure, Gemini, Anthropic AI, Anyscale, Together.ai,
-;;   Perplexity, Anyscale, OpenRouter, Groq, PrivateGPT, DeepSeek, Cerebras,
-;;   Github Models and Kagi (FastGPT & Summarizer)
-;; - Local models via Ollama, Llama.cpp, Llamafiles or GPT4All
-;;
-;;  Additionally, any LLM service (local or remote) that provides an
-;;  OpenAI-compatible API is supported.
-;;
-;; Features:
-;; - It’s async and fast, streams responses.
-;; - Interact with LLMs from anywhere in Emacs (any buffer, shell, minibuffer,
-;;   wherever)
-;; - LLM responses are in Markdown or Org markup.
-;; - Supports conversations and multiple independent sessions.
-;; - Supports multi-modal models (send images, documents).
-;; - Save chats as regular Markdown/Org/Text files and resume them later.
-;; - You can go back and edit your previous prompts or LLM responses when
-;;   continuing a conversation.  These will be fed back to the model.
-;; - Redirect prompts and responses easily
-;; - Rewrite, refactor or fill in regions in buffers
-;; - Write your own commands for custom tasks with a simple API.
-;;
-;; Requirements for ChatGPT, Azure, Gemini or Kagi:
-;;
-;; - You need an appropriate API key.  Set the variable `gptel-api-key' to the
-;;   key or to a function of no arguments that returns the key.  (It tries to
-;;   use `auth-source' by default)
-;;
-;;   ChatGPT is configured out of the box.  For the other sources:
-;;
-;; - For Azure: define a gptel-backend with `gptel-make-azure', which see.
-;; - For Gemini: define a gptel-backend with `gptel-make-gemini', which see.
-;; - For Anthropic (Claude): define a gptel-backend with `gptel-make-anthropic',
-;;   which see
-;; - For Together.ai, Anyscale, Perplexity, Groq, OpenRouter, DeepSeek, Cerebras or
-;;   Github Models: define a gptel-backend with `gptel-make-openai', which see.
-;; - For PrivateGPT: define a backend with `gptel-make-privategpt', which see.
-;; - For Kagi: define a gptel-backend with `gptel-make-kagi', which see.
-;;
-;; For local models using Ollama, Llama.cpp or GPT4All:
-;;
-;; - The model has to be running on an accessible address (or localhost)
-;; - Define a gptel-backend with `gptel-make-ollama' or `gptel-make-gpt4all',
-;;   which see.
-;; - Llama.cpp or Llamafiles: Define a gptel-backend with `gptel-make-openai',
-;;
-;; Consult the package README for examples and more help with configuring
-;; backends.
-;;
-;; Usage:
-;;
-;; gptel can be used in any buffer or in a dedicated chat buffer.  The
-;; interaction model is simple: Type in a query and the response will be
-;; inserted below.  You can continue the conversation by typing below the
-;; response.
-;;
-;; To use this in any buffer:
-;;
-;; - Call `gptel-send' to send the buffer's text up to the cursor.  Select a
-;;   region to send only the region.
-;;
-;; - You can select previous prompts and responses to continue the conversation.
-;;
-;; - Call `gptel-send' with a prefix argument to access a menu where you can set
-;;   your backend, model and other parameters, or to redirect the
-;;   prompt/response.
-;;
-;; To use this in a dedicated buffer:
-;; 
-;; - M-x gptel: Start a chat session
-;;
-;; - In the chat session: Press `C-c RET' (`gptel-send') to send your prompt.
-;;   Use a prefix argument (`C-u C-c RET') to access a menu.  In this menu you
-;;   can set chat parameters like the system directives, active backend or
-;;   model, or choose to redirect the input or output elsewhere (such as to the
-;;   kill ring).
-;;
-;; - You can save this buffer to a file.  When opening this file, turn on
-;;   `gptel-mode' before editing it to restore the conversation state and
-;;   continue chatting.
-;;
-;; - To include media files with your request, you can add them to the context
-;;   (described next), or include them as links in Org or Markdown mode chat
-;;   buffers.  Sending media is disabled by default, you can turn it on globally
-;;   via `gptel-track-media', or locally in a chat buffer via the header line.
-;; 
-;; Include more context with requests:
-;;
-;; If you want to provide the LLM with more context, you can add arbitrary
-;; regions, buffers or files to the query with `gptel-add'.  To add text or
-;; media files, call `gptel-add' in Dired or use the dedicated `gptel-add-file'.
-;;
-;; You can also add context from gptel's menu instead (gptel-send with a prefix
-;; arg), as well as examine or modify context.
-;;
-;; When context is available, gptel will include it with each LLM query.
-;;
-;; Rewrite/refactor interface
-;;
-;; In any buffer: with a region selected, you can rewrite prose, refactor code
-;; or fill in the region.  Use gptel's menu (C-u M-x `gptel-send') to access
-;; this feature.
-;;
-;; gptel in Org mode:
-;;
-;; gptel offers a few extra conveniences in Org mode.
-;; - You can limit the conversation context to an Org heading with
-;;   `gptel-org-set-topic'.
-;;   
-;; - You can have branching conversations in Org mode, where each hierarchical
-;;   outline path through the document is a separate conversation branch.
-;;   See the variable `gptel-org-branching-context'.
-;;   
-;; - You can declare the gptel model, backend, temperature, system message and
-;;   other parameters as Org properties with the command
-;;   `gptel-org-set-properties'.  gptel queries under the corresponding heading
-;;   will always use these settings, allowing you to create mostly reproducible
-;;   LLM chat notebooks.
-;;
-;; Finally, gptel offers a general purpose API for writing LLM ineractions
-;; that suit your workflow, see `gptel-request'.
-
-;;; Code:
-(declare-function markdown-mode "markdown-mode")
-(declare-function gptel-curl-get-response "gptel-curl")
-(declare-function gptel-menu "gptel-transient")
-(declare-function gptel-system-prompt "gptel-transient")
-(declare-function pulse-momentary-highlight-region "pulse")
-
-(declare-function ediff-make-cloned-buffer "ediff-util")
-(declare-function ediff-regions-internal "ediff")
-
-(declare-function gptel-org--create-prompt "gptel-org")
-(declare-function gptel-org-set-topic "gptel-org")
-(declare-function gptel-org--save-state "gptel-org")
-(declare-function gptel-org--restore-state "gptel-org")
-(declare-function gptel--stream-convert-markdown->org "gptel-org")
-(declare-function gptel--convert-markdown->org "gptel-org")
-(define-obsolete-function-alias
-  'gptel-set-topic 'gptel-org-set-topic "0.7.5")
-
-(eval-when-compile
-  (require 'subr-x)
-  (require 'cl-lib))
-(require 'compat nil t)
-(require 'url)
-(require 'map)
-(require 'text-property-search)
-(require 'cl-generic)
-(require 'gptel-openai)
-
-(with-eval-after-load 'org
-  (require 'gptel-org))
-
-
-;;; User options
-
-(defgroup gptel nil
-  "Interact with LLMs from anywhere in Emacs."
-  :group 'hypermedia)
-
-;; (defcustom gptel-host "api.openai.com"
-;;   "The API host queried by gptel."
-;;   :group 'gptel
-;;   :type 'string)
-(make-obsolete-variable
- 'gptel-host
- "Use `gptel-make-openai' instead."
- "0.5.0")
-
-(defcustom gptel-proxy ""
-  "Path to a proxy to use for gptel interactions.
-Passed to curl via --proxy arg, for example \"proxy.yourorg.com:80\"
-Leave it empty if you don't use a proxy."
-  :type 'string)
-
-(defcustom gptel-api-key #'gptel-api-key-from-auth-source
-  "An API key (string) for the default LLM backend.
-
-OpenAI by default.
-
-Can also be a function of no arguments that returns an API
-key (more secure) for the active backend."
-  :type '(choice
-          (string :tag "API key")
-          (function :tag "Function that returns the API key")))
-
-(defcustom gptel-stream t
-  "Stream responses from the LLM as they are received.
-
-This option is ignored unless
-- the LLM backend supports streaming, and
-- Curl is in use (see `gptel-use-curl')
-
-When set to nil, Emacs waits for the full response and inserts it
-all at once.  This wait is asynchronous.
-
-\='tis a bit silly."
-  :type 'boolean)
-(make-obsolete-variable 'gptel-playback 'gptel-stream "0.3.0")
-
-(defcustom gptel-use-curl (and (executable-find "curl") t)
-  "Whether gptel should prefer Curl when available."
-  :type 'boolean)
-
-(defcustom gptel-curl-file-size-threshold 130000
-  "Size threshold for using file input with Curl.
-
-Specifies the size threshold for when to use a temporary file to pass data to
-Curl in GPTel queries.  If the size of the data to be sent exceeds this
-threshold, the data is written to a temporary file and passed to Curl using the
-`--data-binary' option with a file reference.  Otherwise, the data is passed
-directly as a command-line argument.
-
-The value is an integer representing the number of bytes.
-
-Adjusting this value may be necessary depending on the environment
-and the typical size of the data being sent in GPTel queries.
-A larger value may improve performance by avoiding the overhead of creating
-temporary files for small data payloads, while a smaller value may be needed
-if the command-line argument size is limited by the operating system."
-  :type 'natnum)
-
-(defcustom gptel-response-filter-functions
-  (list #'gptel--convert-org)
-  "Abnormal hook for transforming the response from an LLM.
-
-This is used to format the response in some way, such as filling
-paragraphs, adding annotations or recording information in the
-response like links.
-
-Each function in this hook receives two arguments, the response
-string to transform and the LLM interaction buffer.  It
-should return the transformed string.
-
-NOTE: This is only used for non-streaming responses.  To
-transform streaming responses, use `gptel-post-stream-hook' and
-`gptel-post-response-functions'."
-  :type 'hook)
-
-(defcustom gptel-pre-response-hook nil
-  "Hook run before inserting the LLM response into the current buffer.
-
-This hook is called in the buffer where the LLM response will be
-inserted.
-
-Note: this hook only runs if the request succeeds."
-  :type 'hook)
-
-(define-obsolete-variable-alias
-  'gptel-post-response-hook 'gptel-post-response-functions
-  "0.6.0"
-  "Post-response functions are now called with two arguments: the
-start and end buffer positions of the response.")
-
-(defcustom gptel-post-response-functions nil
-  "Abnormal hook run after inserting the LLM response into the current buffer.
-
-This hook is called in the buffer to which the LLM response is
-sent, and after the full response has been inserted.  Each
-function is called with two arguments: the response beginning and
-end positions.
-
-Note: this hook runs even if the request fails.  In this case the
-response beginning and end positions are both the cursor position
-at the time of the request."
-  :type 'hook)
-
-;; (defcustom gptel-pre-stream-insert-hook nil
-;;   "Hook run before each insertion of the LLM's streaming response.
-
-;; This hook is called in the buffer from which the prompt was sent
-;; to the LLM, immediately before text insertion."
-;;   :group 'gptel
-;;   :type 'hook)
-
-(defcustom gptel-post-stream-hook nil
-  "Hook run after each insertion of the LLM's streaming response.
-
-This hook is called in the buffer from which the prompt was sent
-to the LLM, and after a text insertion."
-  :type 'hook)
-
-(defcustom gptel-save-state-hook nil
-  "Hook run before gptel saves model parameters to a file.
-
-You can use this hook to store additional conversation state or
-model parameters to the chat buffer, or to modify the buffer in
-some other way."
-  :type 'hook)
-
-(defcustom gptel-default-mode (if (fboundp 'markdown-mode)
-				  'markdown-mode
-				'text-mode)
-  "The default major mode for dedicated chat buffers.
-
-If `markdown-mode' is available, it is used.  Otherwise gptel
-defaults to `text-mode'."
-  :type 'function)
-
-;; TODO: Handle `prog-mode' using the `comment-start' variable
-(defcustom gptel-prompt-prefix-alist
-  '((markdown-mode . "### ")
-    (org-mode . "*** ")
-    (text-mode . "### "))
-  "String used as a prefix to the query being sent to the LLM.
-
-This is meant for the user to distinguish between queries and
-responses, and is removed from the query before it is sent.
-
-This is an alist mapping major modes to the prefix strings.  This
-is only inserted in dedicated gptel buffers."
-  :type '(alist :key-type symbol :value-type string))
-
-(defcustom gptel-response-prefix-alist
-  '((markdown-mode . "")
-    (org-mode . "")
-    (text-mode . ""))
-  "String inserted before the response from the LLM.
-
-This is meant for the user to distinguish between queries and
-responses.
-
-This is an alist mapping major modes to the reply prefix strings.  This
-is only inserted in dedicated gptel buffers before the AI's response."
-  :type '(alist :key-type symbol :value-type string))
-
-(defcustom gptel-use-header-line t
-  "Whether `gptel-mode' should use header-line for status information.
-
-When set to nil, use the mode line for (minimal) status
-information and the echo area for messages."
-  :type 'boolean)
-
-(defcustom gptel-display-buffer-action '(pop-to-buffer)
-  "The action used to display gptel chat buffers.
-
-The gptel buffer is displayed in a window using
-
-  (display-buffer BUFFER gptel-display-buffer-action)
-
-The value of this option has the form (FUNCTION . ALIST),
-where FUNCTION is a function or a list of functions.  Each such
-function should accept two arguments: a buffer to display and an
-alist of the same form as ALIST.  See info node `(elisp)Choosing
-Window' for details."
-  :type display-buffer--action-custom-type)
-
-(defcustom gptel-crowdsourced-prompts-file
-  (let ((cache-dir (or (eval-when-compile
-			 (require 'xdg)
-			 (xdg-cache-home))
-                       user-emacs-directory)))
-    (expand-file-name "gptel-crowdsourced-prompts.csv" cache-dir))
-  "File used to store crowdsourced system prompts.
-
-These are prompts cached from an online source (see
-`gptel--crowdsourced-prompts-url'), and can be set from the
-transient menu interface provided by `gptel-menu'."
-  :type 'file)
-
-;; Model and interaction parameters
-(defcustom gptel-directives
-  '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
-    (programming . "You are a large language model and a careful programmer. Provide code and only code as output without any additional text, prompt or note.")
-    (writing . "You are a large language model and a writing assistant. Respond concisely.")
-    (chat . "You are a large language model and a conversation partner. Respond concisely."))
-  "System prompts (directives) for the LLM.
-
-These are system instructions sent at the beginning of each
-request to the LLM.
-
-Each entry in this alist maps a symbol naming the directive to
-the string that is sent.  To set the directive for a chat session
-interactively call `gptel-send' with a prefix argument."
-  :safe #'always
-  :type '(alist :key-type symbol :value-type string))
-
-(defvar gptel--system-message (alist-get 'default gptel-directives)
-  "The system message used by gptel.")
-(put 'gptel--system-message 'safe-local-variable #'always)
-
-(defcustom gptel-max-tokens nil
-  "Max tokens per response.
-
-This is roughly the number of words in the response.  100-300 is a
-reasonable range for short answers, 400 or more for longer
-responses.
-
-To set the target token count for a chat session interactively
-call `gptel-send' with a prefix argument."
-  :safe #'always
-  :type '(choice (natnum :tag "Specify Token count")
-                 (const :tag "Default" nil)))
-
-(defcustom gptel-model 'gpt-4o-mini
-  "GPT Model for chat.
-
-The name of the model, as a symbol.  This is the name as expected
-by the LLM provider's API.
-
-The current options for ChatGPT are
-- `gpt-3.5-turbo'
-- `gpt-3.5-turbo-16k'
-- `gpt-4o-mini'
-- `gpt-4'
-- `gpt-4o'
-- `gpt-4-turbo'
-- `gpt-4-turbo-preview'
-- `gpt-4-32k'
-- `gpt-4-1106-preview'
-
-To set the model for a chat session interactively call
-`gptel-send' with a prefix argument."
-  :safe #'always
-  :type '(choice
-          (symbol :tag "Specify model name")
-          (const :tag "GPT 4 omni mini" gpt-4o-mini)
-          (const :tag "GPT 3.5 turbo" gpt-3.5-turbo)
-          (const :tag "GPT 3.5 turbo 16k" gpt-3.5-turbo-16k)
-          (const :tag "GPT 4" gpt-4)
-          (const :tag "GPT 4 omni" gpt-4o)
-          (const :tag "GPT 4 turbo" gpt-4-turbo)
-          (const :tag "GPT 4 turbo (preview)" gpt-4-turbo-preview)
-          (const :tag "GPT 4 32k" gpt-4-32k)
-          (const :tag "GPT 4 1106 (preview)" gpt-4-1106-preview)))
-
-(defcustom gptel-temperature 1.0
-  "\"Temperature\" of the LLM response.
-
-This is a number between 0.0 and 2.0 that controls the randomness
-of the response, with 2.0 being the most random.
-
-To set the temperature for a chat session interactively call
-`gptel-send' with a prefix argument."
-  :safe #'always
-  :type 'number)
-
-(defvar gptel--known-backends)
-
-(defconst gptel--openai-models
-  '((gpt-4o
-     :description "Advanced model for complex tasks; cheaper & faster than GPT-Turbo"
-     :capabilities (media tool json url)
-     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
-     :context-window 128
-     :input-cost 2.50
-     :output-cost 10
-     :cutoff-date "2023-10")
-    (gpt-4o-mini
-     :description "Cheap model for fast tasks; cheaper & more capable than GPT-3.5 Turbo"
-     :capabilities (media tool json url)
-     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
-     :context-window 128
-     :input-cost 0.15
-     :output-cost 0.60
-     :cutoff-date "2023-10")
-    (gpt-4-turbo
-     :description "Previous high-intelligence model"
-     :capabilities (media tool url)
-     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
-     :context-window 128
-     :input-cost 10
-     :output-cost 30
-     :cutoff-date "2023-12")
-    ;; points to gpt-4-0613
-    (gpt-4
-     :description "GPT-4 snapshot from June 2023 with improved function calling support"
-     :context-window 8.192
-     :input-cost 30
-     :output-cost 60
-     :cutoff-date "2023-09")
-    (gpt-4-turbo-preview
-     :description "Points to gpt-4-0125-preview"
-     :context-window 128
-     :input-cost 10
-     :output-cost 30
-     :cutoff-date "2023-12")
-    (gpt-4-0125-preview
-     :description "GPT-4 Turbo preview model intended to reduce cases of “laziness”"
-     :context-window 128
-     :input-cost 10
-     :output-cost 30
-     :cutoff-date "2023-12")
-    (o1-preview
-     :description "Reasoning model designed to solve hard problems across domains"
-     :context-window 128
-     :input-cost 15
-     :output-cost 60
-     :cutoff-date "2023-10"
-     :capabilities (nosystem)
-     :request-params (:stream :json-false))
-    (o1-mini
-     :description "Faster and cheaper reasoning model good at coding, math, and science"
-     :context-window 128
-     :input-cost 3
-     :output-cost 12
-     :cutoff-date "2023-10"
-     :capabilities (nosystem)
-     :request-params (:stream :json-false))
-    ;; limited information available
-    (gpt-4-32k
-     :input-cost 60
-     :output-cost 120)
-    (gpt-4-1106-preview
-     :description "Preview model with improved function calling support"
-     :context-window 128
-     :input-cost 10
-     :output-cost 30
-     :cutoff-date "2023-04")
-    (gpt-3.5-turbo
-     :description "More expensive & less capable than GPT-4o-mini; use that instead"
-     :capabilities (tool)
-     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
-     :context-window 16.358
-     :input-cost 0.50
-     :output-cost 1.50
-     :cutoff-date "2021-09")
-    (gpt-3.5-turbo-16k
-     :description "More expensive & less capable than GPT-4o-mini; use that instead"
-     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
-     :context-window 16.385
-     :input-cost 3
-     :output-cost 4
-     :cutoff-date "2021-09"))
-  "List of available OpenAI models and associated properties.
-Keys:
-
-- `:description': a brief description of the model.
-
-- `:capabilities': a list of capabilities supported by the model.
-
-- `:mime-types': a list of supported MIME types for media files.
-
-- `:context-window': the context window size, in thousands of tokens.
-
-- `:input-cost': the input cost, in US dollars per million tokens.
-
-- `:output-cost': the output cost, in US dollars per million tokens.
-
-- `:cutoff-date': the knowledge cutoff date.
-
-- `:request-params': a plist of additional request parameters to
-  include when using this model.
-
-Information about the OpenAI models was obtained from the following
-sources:
-
-- <https://openai.com/pricing>
-- <https://platform.openai.com/docs/models>")
-
-(defvar gptel--openai
-  (gptel-make-openai
-      "ChatGPT"
-    :key 'gptel-api-key
-    :stream t
-    :models gptel--openai-models))
-
-(defcustom gptel-backend gptel--openai
-  "LLM backend to use.
-
-This is the default \"backend\", an object of type
-`gptel-backend' containing connection, authentication and model
-information.
-
-A backend for ChatGPT is pre-defined by gptel.  Backends for
-other LLM providers (local or remote) may be constructed using
-one of the available backend creation functions:
-- `gptel-make-openai'
-- `gptel-make-azure'
-- `gptel-make-ollama'
-- `gptel-make-gpt4all'
-- `gptel-make-gemini'
-See their documentation for more information and the package
-README for examples."
-  :safe #'always
-  :type `(choice
-          (const :tag "ChatGPT" ,gptel--openai)
-          (restricted-sexp :match-alternatives (gptel-backend-p 'nil)
-			   :tag "Other backend")))
-
-(defvar gptel-expert-commands nil
-  "Whether experimental gptel options should be enabled.
-
-This opens up advanced options in `gptel-menu'.")
-
-(defvar-local gptel--bounds nil)
-(put 'gptel--bounds 'safe-local-variable #'always)
-
-(defvar gptel--num-messages-to-send nil)
-(put 'gptel--num-messages-to-send 'safe-local-variable #'always)
-
-(defcustom gptel-log-level nil
-  "Logging level for gptel.
-
-This is one of nil or the symbols info and debug:
-
-nil: Don't log responses
-info: Log request and response bodies
-debug: Log request/response bodies, headers and all other
-       connection settings.
-
-When non-nil, information is logged to `gptel--log-buffer-name',
-which see."
-  :type '(choice
-          (const :tag "No logging" nil)
-          (const :tag "Limited" info)
-          (const :tag "Full" debug)))
-(make-obsolete-variable
- 'gptel--debug 'gptel-log-level "0.6.5")
-
-(defcustom gptel-track-response t
-  "Distinguish between user messages and LLM responses.
-
-When creating a prompt to send to the LLM, gptel distinguishes
-between text entered by the user and past LLM responses.  This
-distinction is necessary for back-and-forth conversation with an
-LLM.
-
-In regular Emacs buffers you can turn this behavior off by
-setting `gptel-track-response' to nil.  All text, including
-past LLM responses, is then treated as user input when sending
-queries.
-
-This variable has no effect in dedicated chat buffers (buffers
-with `gptel-mode' enabled), where user prompts and responses are
-always handled separately."
-  :type 'boolean)
-
-(defcustom gptel-track-media nil
-  "Whether supported media in chat buffers should be sent.
-
-When the active `gptel-model' supports it, gptel can send images
-or other media from links in chat buffers to the LLM.  To use
-this, the following steps are required.
-
-1. `gptel-track-media' (this variable) should be non-nil
-
-2. The LLM should provide vision or document support.  Currently,
-only the OpenAI, Anthropic and Ollama APIs are supported.  See
-the documentation of `gptel-make-openai', `gptel-make-anthropic'
-and `gptel-make-ollama' resp. for details on how to specify media
-support for models.
-
-3. Only \"standalone\" links in chat buffers are considered.
-These are links on their own line with no surrounding text.
-Further:
-
-- In Org mode, only files or URLs of the form
-  [[/path/to/media][bracket links]] and <angle/link/path>
-  are sent.
-
-- In Markdown mode, only files or URLS of the form
-  [bracket link](/path/to/media) and <angle/link/path>
-  are sent.
-
-This option has no effect in non-chat buffers.  To include
-media (including images) more generally, use `gptel-add'."
-  :type 'boolean)
-
-(defcustom gptel-use-context 'system
-  "Where in the request to inject gptel's additional context.
-
-gptel always includes the active region or the buffer up to the
-cursor in the request to the LLM.  Additionally, you can add
-other buffers or their regions to the context with
-`gptel-add-context', or from gptel's menu.  This data will be
-sent with every request.
-
-This option controls whether and where this additional context is
-included in the request.
-
-Currently supported options are:
-
-    nil     - Do not use the context.
-    system  - Include the context with the system message.
-    user    - Include the context with the user prompt."
-  :group 'gptel
-  :type '(choice
-          (const :tag "Don't include context" nil)
-          (const :tag "With system message" system)
-          (const :tag "With user prompt" user)))
-
-(defvar-local gptel--old-header-line nil)
-
-(defvar gptel-context--alist nil
-  "List of gptel's context sources.
-
-Each entry is of the form
- (buffer . (overlay1 overlay2 ...))
-or
- (\"path/to/file\").")
-
-
-;;; Utility functions
-
-(defun gptel-api-key-from-auth-source (&optional host user)
-  "Lookup api key in the auth source.
-By default, the LLM host for the active backend is used as HOST,
-and \"apikey\" as USER."
-  (if-let ((secret
-            (plist-get
-             (car (auth-source-search
-                   :host (or host (gptel-backend-host gptel-backend))
-                   :user (or user "apikey")
-                   :require '(:secret)))
-                              :secret)))
-      (if (functionp secret)
-          (encode-coding-string (funcall secret) 'utf-8)
-        secret)
-    (user-error "No `gptel-api-key' found in the auth source")))
-
-;; FIXME Should we utf-8 encode the api-key here?
-(defun gptel--get-api-key (&optional key)
-  "Get api key from KEY, or from `gptel-api-key'."
-  (when-let ((key-sym (or key (gptel-backend-key gptel-backend))))
-    (cl-typecase key-sym
-      (function (funcall key-sym))
-      (string key-sym)
-      (symbol (if-let ((val (symbol-value key-sym)))
-                  (gptel--get-api-key
-                   (symbol-value key-sym))
-                (error "`gptel-api-key' is not valid")))
-      (t (error "`gptel-api-key' is not valid")))))
-
-(defsubst gptel--to-number (val)
-  "Ensure VAL is a number."
-  (cond
-   ((numberp val) val)
-   ((stringp val) (string-to-number val))
-   ((error "%S cannot be converted to a number" val))))
-
-(defsubst gptel--to-string (s)
-  "Convert S to a string, if possible."
-  (cl-etypecase s
-    (symbol (symbol-name s))
-    (string s)
-    (number (number-to-string s))))
-
-(defsubst gptel--intern (s)
-  "Intern S, if possible."
-  (cl-etypecase s
-    (symbol s)
-    (string (intern s))))
-
-(defun gptel--merge-plists (&rest plists)
-  "Merge PLISTS, altering the first one.
-
-Later plists in the sequence take precedence over earlier ones."
-  (let (;; (rtn (copy-sequence (pop plists)))
-        (rtn (pop plists))
-        p v ls)
-    (while plists
-      (setq ls (pop plists))
-      (while ls
-        (setq p (pop ls) v (pop ls))
-        (setq rtn (plist-put rtn p v))))
-    rtn))
-(defun gptel-auto-scroll ()
-  "Scroll window if LLM response continues below viewport.
-
-Note: This will move the cursor."
-  (when-let ((win (get-buffer-window (current-buffer) 'visible))
-             ((not (pos-visible-in-window-p (point) win)))
-             (scroll-error-top-bottom t))
-    (condition-case nil
-        (with-selected-window win
-          (scroll-up-command))
-      (error nil))))
-
-(defun gptel-beginning-of-response (&optional _ _ arg)
-  "Move point to the beginning of the LLM response ARG times."
-  (interactive "p")
-  ;; FIXME: Only works for arg == 1
-  (gptel-end-of-response nil nil (- (or arg 1))))
-
-(defun gptel-end-of-response (&optional _ _ arg)
-  "Move point to the end of the LLM response ARG times."
-  (interactive (list nil nil
-                     (prefix-numeric-value current-prefix-arg)))
-  (unless arg (setq arg 1))
-  (let ((search (if (> arg 0)
-                    #'text-property-search-forward
-                  #'text-property-search-backward)))
-    (dotimes (_ (abs arg))
-      (funcall search 'gptel 'response t)
-      (if (> arg 0)
-          (when (looking-at (concat "\n\\{1,2\\}"
-                                    (regexp-quote
-                                     (gptel-prompt-prefix-string))
-                                    "?"))
-            (goto-char (match-end 0)))
-        (when (looking-back (concat (regexp-quote
-                                     (gptel-response-prefix-string))
-                                    "?")
-                            (point-min))
-          (goto-char (match-beginning 0)))))))
-
-(defmacro gptel--at-word-end (&rest body)
-  "Execute BODY at end of the current word or punctuation."
-  `(save-excursion
-     (skip-syntax-forward "w.")
-     ,(macroexp-progn body)))
-
-(defun gptel-prompt-prefix-string ()
-  "Prefix before user prompts in `gptel-mode'."
-  (or (alist-get major-mode gptel-prompt-prefix-alist) ""))
-
-(defun gptel-response-prefix-string ()
-  "Prefix before LLM responses in `gptel-mode'."
-  (or (alist-get major-mode gptel-response-prefix-alist) ""))
-
-(defsubst gptel--trim-prefixes (s)
-  "Remove prompt/response prefixes from string S."
-  (string-trim s
-   (format "[\t\r\n ]*\\(?:%s\\)?[\t\r\n ]*"
-             (regexp-quote (gptel-prompt-prefix-string)))
-   (format "[\t\r\n ]*\\(?:%s\\)?[\t\r\n ]*"
-           (regexp-quote (gptel-response-prefix-string)))))
-
-(defsubst gptel--link-standalone-p (beg end)
-  "Return non-nil if positions BEG and END are isolated.
-
-This means the extent from BEG to END is the only non-whitespace
-content on this line."
-  (save-excursion
-    (and (= beg (progn (goto-char beg) (beginning-of-line)
-                       (skip-chars-forward "\t ")
-                       (point)))
-         (= end (progn (goto-char end) (end-of-line)
-                       (skip-chars-backward "\t ")
-                       (point))))))
-
-(defvar-local gptel--backend-name nil
-  "Store to persist backend name across Emacs sessions.
-
-Note: Changing this variable does not affect gptel\\='s behavior
-in any way.")
-(put 'gptel--backend-name 'safe-local-variable #'always)
-
-;;;; Model interface
-;; NOTE: This interface would be simpler to implement as a defstruct.  But then
-;; users cannot set `gptel-model' to a symbol/string directly, or we'd need
-;; another map from these symbols to the actual model structs.
-
-(defsubst gptel--model-name (model)
-  "Get name of gptel MODEL."
-  (gptel--to-string model))
-
-(defsubst gptel--model-capabilities (model)
-  "Get MODEL capabilities."
-  (get model :capabilities))
-
-(defsubst gptel--model-mimes (model)
-  "Get supported mime-types for MODEL."
-  (get model :mime-types))
-
-(defsubst gptel--model-capable-p (cap &optional model)
-  "Return non-nil if MODEL supports capability CAP."
-  (memq cap (gptel--model-capabilities
-             (or model gptel-model))))
-
-;; TODO Handle model mime specifications like "image/*"
-(defsubst gptel--model-mime-capable-p (mime &optional model)
-  "Return non nil if MODEL can understand MIME type."
-  (car-safe (member mime (gptel--model-mimes
-                        (or model gptel-model)))))
-
-(defsubst gptel--model-request-params (model)
-  "Get model-specific request parameters for MODEL."
-  (get model :request-params))
-
-;;;; File handling
-(defun gptel--base64-encode (file)
-  "Encode FILE as a base64 string.
-
-FILE is assumed to exist and be a regular file."
-  (with-temp-buffer
-    (insert-file-contents-literally file)
-    (base64-encode-region (point-min) (point-max)
-                          :no-line-break)
-    (buffer-string)))
-
-;;;; Response text recognition
-
-(defun gptel--get-buffer-bounds ()
-  "Return the gptel response boundaries in the buffer as an alist."
-  (save-excursion
-    (save-restriction
-      (widen)
-      (goto-char (point-max))
-      (let ((prop) (bounds))
-        (while (setq prop (text-property-search-backward
-                           'gptel 'response t))
-          (push (cons (prop-match-beginning prop)
-                      (prop-match-end prop))
-                bounds))
-        bounds))))
-
-(defun gptel--get-bounds ()
-  "Return the gptel response boundaries around point."
-  (let (prop)
-    (save-excursion
-      (when (text-property-search-backward
-             'gptel 'response t)
-        (when (setq prop (text-property-search-forward
-                          'gptel 'response t))
-          (cons (prop-match-beginning prop)
-                      (prop-match-end prop)))))))
-
-(defun gptel--in-response-p (&optional pt)
-  "Check if position PT is inside a gptel response."
-  (get-char-property (or pt (point)) 'gptel))
-
-(defun gptel--at-response-history-p (&optional pt)
-  "Check if gptel response at position PT has variants."
-  (get-char-property (or pt (point)) 'gptel-history))
-
-(defvar gptel--mode-description-alist
-  '((js2-mode      . "Javascript")
-    (sh-mode       . "Shell")
-    (enh-ruby-mode . "Ruby")
-    (yaml-mode     . "Yaml")
-    (yaml-ts-mode  . "Yaml")
-    (rustic-mode   . "Rust"))
-  "Mapping from unconventionally named major modes to languages.
-
-This is used when generating system prompts for rewriting and
-when including context from these major modes.")
-
-(defun gptel--strip-mode-suffix (mode-sym)
-  "Remove the -mode suffix from MODE-SYM.
-
-MODE-SYM is typically a major-mode symbol."
-  (or (alist-get mode-sym gptel--mode-description-alist)
-      (let ((mode-name (thread-last
-                         (symbol-name mode-sym)
-                         (string-remove-suffix "-mode")
-                         (string-remove-suffix "-ts"))))
-        (if (provided-mode-derived-p
-             mode-sym 'prog-mode 'text-mode 'tex-mode)
-            mode-name ""))))
-
-
-;;; Logging
-
-(defconst gptel--log-buffer-name "*gptel-log*"
-  "Log buffer for gptel.")
-
-(declare-function json-pretty-print "json")
-
-(defun gptel--log (data &optional type no-json)
-  "Log DATA to `gptel--log-buffer-name'.
-
-TYPE is a label for data being logged.  DATA is assumed to be
-Valid JSON unless NO-JSON is t."
-  (with-current-buffer (get-buffer-create gptel--log-buffer-name)
-    (let ((p (goto-char (point-max))))
-      (unless (bobp) (insert "\n"))
-      (insert (format "{\"gptel\": \"%s\", " (or type "none"))
-              (format-time-string "\"timestamp\": \"%Y-%m-%d %H:%M:%S\"}\n")
-              data)
-      (unless no-json (ignore-errors (json-pretty-print p (point)))))))
-
-
-;;; Saving and restoring state
-
-(defun gptel--restore-state ()
-  "Restore gptel state when turning on `gptel-mode'."
-  (when (buffer-file-name)
-    (if (derived-mode-p 'org-mode)
-        (progn
-          (require 'gptel-org)
-          (gptel-org--restore-state))
-      (when gptel--bounds
-        (mapc (pcase-lambda (`(,beg . ,end))
-                (put-text-property beg end 'gptel 'response))
-              gptel--bounds)
-        (message "gptel chat restored."))
-      (when gptel--backend-name
-        (if-let ((backend (alist-get
-                           gptel--backend-name gptel--known-backends
-                           nil nil #'equal)))
-            (setq-local gptel-backend backend)
-          (message
-           (substitute-command-keys
-            (concat
-             "Could not activate gptel backend \"%s\"!  "
-             "Switch backends with \\[universal-argument] \\[gptel-send]"
-             " before using gptel."))
-           gptel--backend-name))))))
-
-(defun gptel--save-state ()
-  "Write the gptel state to the buffer.
-
-This saves chat metadata when writing the buffer to disk.  To
-restore a chat session, turn on `gptel-mode' after opening the
-file."
-  (run-hooks 'gptel-save-state-hook)
-  (if (derived-mode-p 'org-mode)
-      (progn
-        (require 'gptel-org)
-        (gptel-org--save-state))
-    (let ((print-escape-newlines t))
-      (save-excursion
-        (save-restriction
-          (add-file-local-variable 'gptel-model gptel-model)
-          (add-file-local-variable 'gptel--backend-name
-                                   (gptel-backend-name gptel-backend))
-          (unless (equal (default-value 'gptel-temperature) gptel-temperature)
-            (add-file-local-variable 'gptel-temperature gptel-temperature))
-          (unless (string= (default-value 'gptel--system-message)
-                           gptel--system-message)
-            (add-file-local-variable 'gptel--system-message gptel--system-message))
-          (when gptel-max-tokens
-            (add-file-local-variable 'gptel-max-tokens gptel-max-tokens))
-          (when (natnump gptel--num-messages-to-send)
-            (add-file-local-variable 'gptel--num-messages-to-send
-                                     gptel--num-messages-to-send))
-          (add-file-local-variable 'gptel--bounds (gptel--get-buffer-bounds)))))))
-
-
-;;; Minor mode and UI
-
-;; NOTE: It's not clear that this is the best strategy:
-(add-to-list 'text-property-default-nonsticky '(gptel . t))
-
-;;;###autoload
-(define-minor-mode gptel-mode
-  "Minor mode for interacting with LLMs."
-  :lighter " GPT"
-  :keymap
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-c RET") #'gptel-send)
-    map)
-  (if gptel-mode
-      (progn
-        (unless (or (derived-mode-p 'org-mode 'markdown-mode)
-                    (eq major-mode 'text-mode))
-          (gptel-mode -1)
-          (user-error (format "`gptel-mode' is not supported in `%s'." major-mode)))
-        (add-hook 'before-save-hook #'gptel--save-state nil t)
-        (gptel--restore-state)
-        (if gptel-use-header-line
-          (setq gptel--old-header-line header-line-format
-                header-line-format
-                (list '(:eval (concat (propertize " " 'display '(space :align-to 0))
-                               (format "%s" (gptel-backend-name gptel-backend))))
-                      (propertize " Ready" 'face 'success)
-                      '(:eval
-                        (let* ((model (gptel--model-name gptel-model))
-                              (system
-                               (propertize
-                                (buttonize
-                                 (format "[Prompt: %s]"
-                                  (or (car-safe (rassoc gptel--system-message gptel-directives))
-                                   (truncate-string-to-width gptel--system-message 15 nil nil t)))
-                                 (lambda (&rest _) (gptel-system-prompt)))
-                                'mouse-face 'highlight
-                                'help-echo "System message for session"))
-                              (context
-                               (and gptel-context--alist
-                                (cl-loop for entry in gptel-context--alist
-                                 if (bufferp (car entry)) count it into bufs
-                                 else count (stringp (car entry)) into files
-                                 finally return
-                                 (propertize
-                                  (buttonize
-                                   (concat "[Context: "
-                                    (and (> bufs 0) (format "%d buf" bufs))
-                                    (and (> bufs 1) "s")
-                                    (and (> bufs 0) (> files 0) ", ")
-                                    (and (> files 0) (format "%d file" files))
-                                    (and (> files 1) "s")
-                                    "]")
-                                   (lambda (&rest _)
-                                     (require 'gptel-context)
-                                     (gptel-context--buffer-setup)))
-                                  'mouse-face 'highlight
-                                  'help-echo "Active gptel context"))))
-                              (toggle-track-media
-                               (lambda (&rest _)
-                                 (setq-local gptel-track-media
-                                  (not gptel-track-media))
-                                 (if gptel-track-media
-                                     (message
-                                      (concat
-                                       "Sending media from included links.  To include media, create "
-                                       "a \"standalone\" link in a paragraph by itself, separated from surrounding text."))
-                                   (message "Ignoring image links.  Only link text will be sent."))
-                                 (run-at-time 0 nil #'force-mode-line-update)))
-                              (track-media
-                               (and (gptel--model-capable-p 'media)
-                                (if gptel-track-media
-                                    (propertize
-                                     (buttonize "[Sending media]" toggle-track-media)
-                                     'mouse-face 'highlight
-                                     'help-echo
-                                     "Sending media from standalone links/urls when supported.\nClick to toggle")
-                                  (propertize
-                                     (buttonize "[Ignoring media]" toggle-track-media)
-                                     'mouse-face 'highlight
-                                     'help-echo
-                                     "Ignoring images from standalone links/urls.\nClick to toggle")))))
-                         (concat
-                          (propertize
-                           " " 'display
-                           `(space :align-to (- right ,(+ 5 (length model) (length system)
-                                                        (length track-media) (length context)))))
-                          track-media (and context " ") context " " system " "
-                          (propertize
-                           (buttonize (concat "[" model "]")
-                            (lambda (&rest _) (gptel-menu)))
-                           'mouse-face 'highlight
-                           'help-echo "GPT model in use"))))))
-          (setq mode-line-process
-                '(:eval (concat " "
-                         (buttonize (gptel--model-name gptel-model)
-                            (lambda (&rest _) (gptel-menu))))))))
-    (remove-hook 'before-save-hook #'gptel--save-state t)
-    (if gptel-use-header-line
-        (setq header-line-format gptel--old-header-line
-              gptel--old-header-line nil)
-      (setq mode-line-process nil))))
-
-(defun gptel--update-status (&optional msg face)
-  "Update status MSG in FACE."
-  (when gptel-mode
-    (if gptel-use-header-line
-        (and (consp header-line-format)
-           (setf (nth 1 header-line-format)
-                 (propertize msg 'face face)))
-      (if (member msg '(" Typing..." " Waiting..."))
-          (setq mode-line-process (propertize msg 'face face))
-        (setq mode-line-process
-              '(:eval (concat " "
-                       (buttonize (gptel--model-name gptel-model)
-                            (lambda (&rest _) (gptel-menu))))))
-        (message (propertize msg 'face face))))
-    (force-mode-line-update)))
-
-(declare-function gptel-context--wrap "gptel-context")
-
-
-;;; Send queries, handle responses
-(cl-defun gptel-request
-    (&optional prompt &key callback
-               (buffer (current-buffer))
-               position context dry-run
-               (stream nil) (in-place nil)
-               (system gptel--system-message))
-  "Request a response from the `gptel-backend' for PROMPT.
-
-The request is asynchronous, the function immediately returns
-with the data that was sent.
-
-Note: This function is not fully self-contained.  Consider
-let-binding the parameters `gptel-backend' and `gptel-model'
-around calls to it as required.
-
-If PROMPT is
-- a string, it is used to create a full prompt suitable for
-  sending to the LLM.
-- nil but region is active, the region contents are used.
-- nil, the current buffer's contents up to (point) are used.
-  Previous responses from the LLM are identified as responses.
-- A list of plists, it is used as is.
-
-Keyword arguments:
-
-CALLBACK, if supplied, is a function of two arguments, called
-with the RESPONSE (a string) and INFO (a plist):
-
- (callback RESPONSE INFO)
-
-RESPONSE is nil if there was no response or an error.
-
-The INFO plist has (at least) the following keys:
-:data         - The request data included with the query
-:position     - marker at the point the request was sent, unless
-                POSITION is specified.
-:buffer       - The buffer current when the request was sent,
-                unless BUFFER is specified.
-:status       - Short string describing the result of the request
-
-Example of a callback that messages the user with the response
-and info:
-
- (lambda (response info)
-  (if response
-      (let ((posn (marker-position (plist-get info :position)))
-            (buf  (buffer-name (plist-get info :buffer))))
-        (message \"Response for request from %S at %d: %s\"
-                 buf posn response))
-    (message \"gptel-request failed with message: %s\"
-             (plist-get info :status))))
-
-Or, for just the response:
-
- (lambda (response _)
-  ;; Do something with response
-  (message (rot13-string response)))
-
-If CALLBACK is omitted, the response is inserted at the point the
-request was sent.
-
-BUFFER and POSITION are the buffer and position (integer or
-marker) at which the response is inserted.  If a CALLBACK is
-specified, no response is inserted and these arguments are
-ignored, but they are still available in the INFO plist passed
-to CALLBACK for you to use.
-
-BUFFER defaults to the current buffer, and POSITION to the value
-of (point) or (region-end), depending on whether the region is
-active.
-
-CONTEXT is any additional data needed for the callback to run. It
-is included in the INFO argument to the callback.
-
-SYSTEM is the system message (chat directive) sent to the LLM. If
-omitted, the value of `gptel--system-message' for the current
-buffer is used.
-
-The following keywords are mainly for internal use:
-
-IN-PLACE is a boolean used by the default callback when inserting
-the response to determine if delimiters are needed between the
-prompt and the response.
-
-STREAM is a boolean that determines if the response should be
-streamed, as in `gptel-stream'. Do not set this if you are
-specifying a custom CALLBACK!
-
-If DRY-RUN is non-nil, construct and return the full
-query data as usual, but do not send the request.
-
-Model parameters can be let-bound around calls to this function."
-  (declare (indent 1))
-  ;; TODO Remove this check in version 1.0
-  (gptel--sanitize-model)
-  (let* ((gptel--system-message
-          ;Add context chunks to system message if required
-          (if (and gptel-context--alist
-                   (eq gptel-use-context 'system)
-                   (not (gptel--model-capable-p 'nosystem)))
-              (gptel-context--wrap system)
-            system))
-         (gptel-stream stream)
-         (start-marker
-          (cond
-           ((null position)
-            (if (use-region-p)
-                (set-marker (make-marker) (region-end))
-              (gptel--at-word-end (point-marker))))
-           ((markerp position) position)
-           ((integerp position)
-            (set-marker (make-marker) position buffer))))
-         (full-prompt
-          (cond
-           ((null prompt)
-            (gptel--create-prompt start-marker))
-           ((stringp prompt)
-            ;; FIXME Dear reader, welcome to Jank City:
-            (with-temp-buffer
-              (let ((gptel-model (buffer-local-value 'gptel-model buffer))
-                    (gptel-backend (buffer-local-value 'gptel-backend buffer)))
-                (insert prompt)
-                (gptel--create-prompt))))
-           ((consp prompt) prompt)))
-         (request-data (gptel--request-data gptel-backend full-prompt))
-         (info (list :data request-data
-                     :buffer buffer
-                     :position start-marker)))
-    ;; This context should not be confused with the context aggregation context!
-    (when context (plist-put info :context context))
-    (when in-place (plist-put info :in-place in-place))
-    (unless dry-run
-      (funcall (if gptel-use-curl
-                   #'gptel-curl-get-response #'gptel--url-get-response)
-               info callback))
-    request-data))
-
-;; TODO: Handle multiple requests(#15). (Only one request from one buffer at a time?)
-;;;###autoload
-(defun gptel-send (&optional arg)
-  "Submit this prompt to the current LLM backend.
-
-By default, the contents of the buffer up to the cursor position
-are sent.  If the region is active, its contents are sent
-instead.
-
-The response from the LLM is inserted below the cursor position
-at the time of sending.  To change this behavior or model
-parameters, use prefix arg ARG activate a transient menu with
-more options instead.
-
-This command is asynchronous, you can continue to use Emacs while
-waiting for the response."
-  (interactive "P")
-  (if (and arg (require 'gptel-transient nil t))
-      (call-interactively #'gptel-menu)
-  (message "Querying %s..." (gptel-backend-name gptel-backend))
-  (gptel--sanitize-model)
-  (gptel-request nil :stream gptel-stream)
-  (gptel--update-status " Waiting..." 'warning)))
-
-(declare-function json-pretty-print-buffer "json")
-(defun gptel--inspect-query (request-data &optional arg)
-  "Show REQUEST-DATA, the full LLM query to be sent, in a buffer.
-
-This functions as a dry run of `gptel-send'.  If ARG is
-the symbol json, show the encoded JSON query instead of the Lisp
-structure gptel uses."
-  (with-current-buffer (get-buffer-create "*gptel-query*")
-    (let ((standard-output (current-buffer))
-          (inhibit-read-only t))
-      (buffer-disable-undo)
-      (erase-buffer)
-      (if (eq arg 'json)
-          (progn (fundamental-mode)
-                 (insert (gptel--json-encode request-data))
-                 (json-pretty-print-buffer))
-        (lisp-data-mode)
-        (prin1 request-data)
-        (pp-buffer))
-      (goto-char (point-min))
-      (view-mode 1)
-      (display-buffer (current-buffer) gptel-display-buffer-action))))
-
-(defun gptel--insert-response (response info)
-  "Insert the LLM RESPONSE into the gptel buffer.
-
-INFO is a plist containing information relevant to this buffer.
-See `gptel--url-get-response' for details."
-  (let* ((status-str  (plist-get info :status))
-         (gptel-buffer (plist-get info :buffer))
-         (start-marker (plist-get info :position))
-         response-beg response-end)
-    ;; Handle read-only buffers
-    (when (with-current-buffer gptel-buffer
-            (or buffer-read-only
-                (get-char-property start-marker 'read-only)))
-      (message "Buffer is read only, displaying reply in buffer \"*LLM response*\"")
-      (display-buffer
-       (with-current-buffer (get-buffer-create "*LLM response*")
-         (visual-line-mode 1)
-         (goto-char (point-max))
-         (move-marker start-marker (point) (current-buffer))
-         (current-buffer))
-       '((display-buffer-reuse-window
-          display-buffer-pop-up-window)
-         (reusable-frames . visible))))
-    ;; Insert response and status message/error message
-    (with-current-buffer gptel-buffer
-      (if response
-          (progn
-            (setq response (gptel--transform-response
-                               response gptel-buffer))
-            (save-excursion
-              (put-text-property
-               0 (length response) 'gptel 'response response)
-              (with-current-buffer (marker-buffer start-marker)
-                (goto-char start-marker)
-                (run-hooks 'gptel-pre-response-hook)
-                (unless (or (bobp) (plist-get info :in-place))
-                  (insert "\n\n")
-                  (when gptel-mode
-                    (insert (gptel-response-prefix-string))))
-                (setq response-beg (point)) ;Save response start position
-                (insert response)
-                (setq response-end (point))
-                (pulse-momentary-highlight-region response-beg response-end)
-                (when gptel-mode (insert "\n\n" (gptel-prompt-prefix-string)))) ;Save response end position
-              (when gptel-mode (gptel--update-status " Ready" 'success))))
-        (gptel--update-status
-         (format " Response Error: %s" status-str) 'error)
-        (message "gptel response error: (%s) %s"
-                 status-str (plist-get info :error))))
-    ;; Run hook in visible window to set window-point, BUG #269
-    (if-let ((gptel-window (get-buffer-window gptel-buffer 'visible)))
-        (with-selected-window gptel-window
-          (run-hook-with-args 'gptel-post-response-functions response-beg response-end))
-      (with-current-buffer gptel-buffer
-        (run-hook-with-args 'gptel-post-response-functions response-beg response-end)))))
-
-(defun gptel--create-prompt (&optional prompt-end)
-  "Return a full conversation prompt from the contents of this buffer.
-
-If `gptel--num-messages-to-send' is set, limit to that many
-recent exchanges.
-
-If the region is active limit the prompt to the region contents
-instead.
-
-If `gptel-context--alist' is non-nil and the additional
-context needs to be included with the user prompt, add it.
-
-If PROMPT-END (a marker) is provided, end the prompt contents
-there."
-  (save-excursion
-    (save-restriction
-      (let* ((max-entries (and gptel--num-messages-to-send
-                               (* 2 gptel--num-messages-to-send)))
-             (prompt-end (or prompt-end (point-max)))
-             (prompts
-              (cond
-               ((use-region-p)
-                ;; Narrow to region
-                (narrow-to-region (region-beginning) (region-end))
-                (goto-char (point-max))
-                (gptel--parse-buffer gptel-backend max-entries))
-               ((derived-mode-p 'org-mode)
-                (require 'gptel-org)
-                (goto-char prompt-end)
-                (gptel-org--create-prompt prompt-end))
-               (t (goto-char prompt-end)
-                  (gptel--parse-buffer gptel-backend max-entries)))))
-        ;; NOTE: prompts is modified in place here
-        (when gptel-context--alist
-          ;; Inject context chunks into the last user prompt if required.
-          ;; This is also the fallback for when `gptel-use-context' is set to
-          ;; 'system but the model does not support system messages.
-          (when (and gptel-use-context
-                     (or (eq gptel-use-context 'user)
-                         (gptel--model-capable-p 'nosystem))
-                     (> (length prompts) 0)) ;FIXME context should be injected
-                                             ;even when there are no prompts
-            (gptel--wrap-user-prompt gptel-backend prompts))
-          ;; Inject media chunks into the first user prompt if required.  Media
-          ;; chunks are always included with the first user message,
-          ;; irrespective of the preference in `gptel-use-context'.  This is
-          ;; because media cannot be included (in general) with system messages.
-          (when (and gptel-use-context gptel-track-media
-                     (gptel--model-capable-p 'media))
-            (gptel--wrap-user-prompt gptel-backend prompts :media)))
-        prompts))))
-
-(cl-defgeneric gptel--parse-buffer (backend max-entries)
-  "Parse current buffer backwards from point and return a list of prompts.
-
-BACKEND is the LLM backend in use.
-
-MAX-ENTRIES is the number of queries/responses to include for
-contexbt.")
-
-(cl-defgeneric gptel--parse-media-links (mode beg end)
-  "Find media links between BEG and END.
-
-MODE is the major-mode of the buffer.
-
-Returns a plist where each entry is of the form
-  (:text \"some text\")
-or
-  (:media \"media uri or file path\")."
-  (ignore mode)                         ;byte-compiler
-  (list `(:text ,(buffer-substring beg end))))
-
-(defvar markdown-regex-link-inline)
-(defvar markdown-regex-angle-uri)
-(declare-function markdown-link-at-pos "markdown-mode")
-(declare-function mailcap-file-name-to-mime-type "mailcap")
-
-(cl-defmethod gptel--parse-media-links ((_mode (eql 'markdown-mode)) beg end)
-  "Parse text and actionable links between BEG and END.
-
-Return a list of the form
- ((:text \"some text\")
-  (:media \"/path/to/media.png\" :mime \"image/png\")
-  (:text \"More text\"))
-for inclusion into the user prompt for the gptel request."
-  (require 'mailcap)                    ;FIXME Avoid this somehow
-  (let ((parts) (from-pt))
-    (save-excursion
-      (setq from-pt (goto-char beg))
-      (while (re-search-forward
-              (concat "\\(?:" markdown-regex-link-inline "\\|"
-                      markdown-regex-angle-uri "\\)")
-              end t)
-        (when-let* ((link-at-pt (markdown-link-at-pos (point)))
-                    ((gptel--link-standalone-p
-                      (car link-at-pt) (cadr link-at-pt)))
-                    (path (nth 3 link-at-pt))
-                    (path (string-remove-prefix "file://" path))
-                    (mime (mailcap-file-name-to-mime-type path))
-                    ((gptel--model-mime-capable-p mime)))
-          (cond
-           ((seq-some (lambda (p) (string-prefix-p p path))
-                      '("https:" "http:" "ftp:"))
-            ;; Collect text up to this image, and collect this image url
-            (when (gptel--model-capable-p 'url) ; FIXME This is not a good place
-                                                ; to check for url capability!
-              (push (list :text (buffer-substring-no-properties from-pt (car link-at-pt)))
-                    parts)
-              (push (list :url path :mime mime) parts)
-              (setq from-pt (cadr link-at-pt))))
-           ((file-readable-p path)
-            ;; Collect text up to this image, and collect this image
-            (push (list :text (buffer-substring-no-properties from-pt (car link-at-pt)))
-                  parts)
-            (push (list :media path :mime mime) parts)
-            (setq from-pt (cadr link-at-pt)))))))
-    (unless (= from-pt end)
-      (push (list :text (buffer-substring-no-properties from-pt end)) parts))
-    (nreverse parts)))
-
-(cl-defgeneric gptel--wrap-user-prompt (backend _prompts)
-  "Wrap the last prompt in PROMPTS with gptel's context.
-
-PROMPTS is a structure as returned by `gptel--parse-buffer'.
-Typically this is a list of plists.
-
-BACKEND is the gptel backend in use."
-  (display-warning
-   '(gptel context)
-   (format "Context support not implemented for backend %s, ignoring context"
-           (gptel-backend-name backend))))
-
-(cl-defgeneric gptel--request-data (backend prompts)
-  "Generate a plist of all data for an LLM query.
-
-BACKEND is the LLM backend in use.
-
-PROMPTS is the plist of previous user queries and LLM responses.")
-
-;; TODO: Use `run-hook-wrapped' with an accumulator instead to handle
-;; buffer-local hooks, etc.
-(defun gptel--transform-response (content-str buffer)
-  "Filter CONTENT-STR through `gptel-response-filter-functions`.
-
-BUFFER is passed along with CONTENT-STR to each function in this
-hook."
-  (let ((filtered-str content-str))
-    (dolist (filter-func gptel-response-filter-functions filtered-str)
-      (condition-case nil
-          (when (functionp filter-func)
-            (setq filtered-str
-                  (funcall filter-func filtered-str buffer)))
-        (error
-         (display-warning '(gptel filter-functions)
-                          (format "Function %S returned an error"
-                                  filter-func)))))))
-
-(defun gptel--convert-org (content buffer)
-  "Transform CONTENT according to required major-mode.
-
-Currently only `org-mode' is handled.
-
-BUFFER is the LLM interaction buffer."
-  (if (with-current-buffer buffer (derived-mode-p 'org-mode))
-      (gptel--convert-markdown->org content)
-    content))
-
-(defun gptel--url-get-response (info &optional callback)
-  "Fetch response to prompt in INFO from the LLM.
-
-INFO is a plist with the following keys:
-- :data     (the data being sent)
-- :buffer   (the gptel buffer)
-- :position (marker at which to insert the response).
-
-Call CALLBACK with the response and INFO afterwards.  If omitted
-the response is inserted into the current buffer after point."
-  (let* ((inhibit-message t)
-         (message-log-max nil)
-         (backend gptel-backend)
-         (url-request-method "POST")
-         (url-request-extra-headers
-          (append '(("Content-Type" . "application/json"))
-                  (when-let ((header (gptel-backend-header gptel-backend)))
-                    (if (functionp header)
-                        (funcall header) header))))
-        (url-request-data
-         (encode-coding-string
-          (gptel--json-encode (plist-get info :data))
-          'utf-8)))
-    ;; why do these checks not occur inside of `gptel--log'?
-    (when gptel-log-level               ;logging
-      (when (eq gptel-log-level 'debug)
-        (gptel--log (gptel--json-encode
-                     (mapcar (lambda (pair) (cons (intern (car pair)) (cdr pair)))
-                             url-request-extra-headers))
-                    "request headers"))
-      (gptel--log url-request-data "request body"))
-    (url-retrieve (let ((backend-url (gptel-backend-url gptel-backend)))
-                    (if (functionp backend-url)
-                        (funcall backend-url) backend-url))
-                  (lambda (_)
-                    (pcase-let ((`(,response ,http-msg ,error)
-                                 (gptel--url-parse-response backend (current-buffer))))
-                      (plist-put info :status http-msg)
-                      (when error (plist-put info :error error))
-                      (funcall (or callback #'gptel--insert-response)
-                               response info)
-                      (kill-buffer)))
-                  nil t nil)))
-
-(cl-defgeneric gptel--parse-response (backend response proc-info)
-  "Response extractor for LLM requests.
-
-BACKEND is the LLM backend in use.
-
-RESPONSE is the parsed JSON of the response, as a plist.
-
-PROC-INFO is a plist with process information and other context.
-See `gptel-curl--get-response' for its contents.")
-
-(defvar url-http-end-of-headers)
-(defvar url-http-response-status)
-(defun gptel--url-parse-response (backend response-buffer)
-  "Parse response from BACKEND in RESPONSE-BUFFER."
-  (when (buffer-live-p response-buffer)
-    (with-current-buffer response-buffer
-      (when gptel-log-level             ;logging
-        (save-excursion
-          (goto-char url-http-end-of-headers)
-          (when (eq gptel-log-level 'debug)
-            (gptel--log (gptel--json-encode (buffer-substring-no-properties (point-min) (point)))
-                        "response headers"))
-          (gptel--log (buffer-substring-no-properties (point) (point-max))
-                      "response body")))
-      (if-let* ((http-msg (string-trim (buffer-substring (line-beginning-position)
-                                                         (line-end-position))))
-                (response (progn (goto-char url-http-end-of-headers)
-                                 (condition-case nil
-                                     (gptel--json-read)
-                                   (error 'json-read-error)))))
-          (cond
-            ;; FIXME Handle the case where HTTP 100 is followed by HTTP (not 200) BUG #194
-           ((or (memq url-http-response-status '(200 100))
-                (string-match-p "\\(?:1\\|2\\)00 OK" http-msg))
-            (list (string-trim (gptel--parse-response backend response
-                                             `(:buffer ,response-buffer
-                                               :backend ,backend)))
-                   http-msg))
-           ((plist-get response :error)
-            (let* ((error-data (plist-get response :error))
-                   (error-msg (plist-get error-data :message))
-                   (error-type (plist-get error-data :type))
-                   (backend-name (gptel-backend-name backend)))
-              (if (stringp error-data)
-                  (progn
-		    (message "%s error: (%s) %s" backend-name http-msg error-data)
-                    (setq error-msg (string-trim error-data)))
-                (when (stringp error-msg)
-                  (message "%s error: (%s) %s" backend-name http-msg (string-trim error-msg)))
-                (when error-type
-		  (setq http-msg (concat "("  http-msg ") " (string-trim error-type)))))
-              (list nil (concat "(" http-msg ") " (or error-msg "")))))
-           ((eq response 'json-read-error)
-            (list nil (concat "(" http-msg ") Malformed JSON in response.") "json-read-error"))
-           (t (list nil (concat "(" http-msg ") Could not parse HTTP response.")
-                    "Could not parse HTTP response.")))
-        (list nil (concat "(" http-msg ") Could not parse HTTP response.")
-              "Could not parse HTTP response.")))))
-
-(cl-defun gptel--sanitize-model (&key (backend gptel-backend)
-                                      (model gptel-model)
-                                      (shoosh t))
-  "Check if MODEL is available in BACKEND, adjust accordingly.
-
-If SHOOSH is true, don't issue a warning."
-  (let ((available (gptel-backend-models backend)))
-    (when (stringp model)
-      (unless shoosh
-        (display-warning
-         'gptel
-         (format "`gptel-model' expects a symbol, found string \"%s\"
-   Resetting `gptel-model' to %s"
-                 model model)))
-      (setq gptel-model (gptel--intern model)
-            model gptel-model))
-    (unless (member model available)
-      (let ((fallback (car available)))
-        (unless shoosh
-          (display-warning
-           'gptel
-           (format (concat "Preferred `gptel-model' \"%s\" not"
-                           "supported in \"%s\", using \"%s\" instead")
-                   model (gptel-backend-name backend) fallback)))
-        (setq-local gptel-model fallback)))))
-
-;;;###autoload
-(defun gptel (name &optional _ initial interactivep)
-  "Switch to or start a chat session with NAME.
-
-Ask for API-KEY if `gptel-api-key' is unset.
-
-If region is active, use it as the INITIAL prompt.  Returns the
-buffer created or switched to.
-
-INTERACTIVEP is t when gptel is called interactively."
-  (interactive
-   (let* ((backend (default-value 'gptel-backend))
-          (backend-name
-           (format "*%s*" (gptel-backend-name backend))))
-     (list (read-buffer
-            "Create or choose gptel buffer: "
-            backend-name nil                         ; DEFAULT and REQUIRE-MATCH
-            (lambda (b)                                   ; PREDICATE
-              ;; NOTE: buffer check is required (#450)
-              (and-let* ((buf (get-buffer (or (car-safe b) b))))
-                (buffer-local-value 'gptel-mode buf))))
-           (condition-case nil
-               (gptel--get-api-key
-                (gptel-backend-key backend))
-             ((error user-error)
-              (setq gptel-api-key
-                    (read-passwd
-                     (format "%s API key: " backend-name)))))
-           (and (use-region-p)
-                (buffer-substring (region-beginning)
-                                  (region-end)))
-           t)))
-  (with-current-buffer (get-buffer-create name)
-    (cond ;Set major mode
-     ((eq major-mode gptel-default-mode))
-     ((eq gptel-default-mode 'text-mode)
-      (text-mode)
-      (visual-line-mode 1))
-     (t (funcall gptel-default-mode)))
-    (gptel--sanitize-model :backend (default-value 'gptel-backend)
-                           :model (default-value 'gptel-model)
-                           :shoosh nil)
-    (unless gptel-mode (gptel-mode 1))
-    (goto-char (point-max))
-    (skip-chars-backward "\t\r\n")
-    (if (bobp) (insert (or initial (gptel-prompt-prefix-string))))
-    (when interactivep
-      (display-buffer (current-buffer) gptel-display-buffer-action)
-      (message "Send your query with %s!"
-               (substitute-command-keys "\\[gptel-send]")))
-    (current-buffer)))
-
-
-;;; Response tweaking commands
-
-(defun gptel--attach-response-history (history &optional buf)
-  "Attach HISTORY to the next gptel response in buffer BUF.
-
-HISTORY is a list of strings typically containing text replaced
-by gptel.  BUF is the current buffer if not specified.
-
-This is used to maintain variants of prompts or responses to diff
-against if required."
-  (with-current-buffer (or buf (current-buffer))
-    (letrec ((gptel--attach-after
-              (lambda (b e)
-                (put-text-property b e 'gptel-history
-                                   (append (ensure-list history)
-                                           (get-char-property (1- e) 'gptel-history)))
-                (remove-hook 'gptel-post-response-functions
-                             gptel--attach-after 'local))))
-      (add-hook 'gptel-post-response-functions gptel--attach-after
-                nil 'local))))
-
-(defun gptel--ediff (&optional arg bounds-func)
-  "Ediff response at point against previous gptel responses.
-
-If prefix ARG is non-nil, select the previous response to ediff
-against interactively.
-
-If specified, use BOUNDS-FUNC to compute the bounds of the
-response at point.  This can be used to include additional
-context for the ediff session."
-  (interactive "P")
-  (when (gptel--at-response-history-p)
-    (pcase-let* ((`(,beg . ,end) (funcall (or bounds-func #'gptel--get-bounds)))
-                 (prev-response
-                  (if arg
-                      (completing-read "Choose response variant to diff against: "
-                                       (get-char-property (point) 'gptel-history)
-                                       nil t)
-                    (car-safe (get-char-property (point) 'gptel-history))))
-                 (buffer-mode major-mode)
-                 (bufname (buffer-name))
-                 (`(,new-buf ,new-beg ,new-end)
-                  (with-current-buffer
-                      (get-buffer-create (concat bufname "-PREVIOUS-*"))
-                    (let ((inhibit-read-only t))
-                      (erase-buffer)
-                      (delay-mode-hooks (funcall buffer-mode))
-                      (visual-line-mode)
-                      (insert prev-response)
-                      (goto-char (point-min))
-                      (list (current-buffer) (point-min) (point-max))))))
-      (unless prev-response (user-error "gptel response is additive: no changes to ediff"))
-      (require 'ediff)
-      (letrec ((cwc (current-window-configuration))
-               (gptel--ediff-restore
-                (lambda ()
-                  (when (window-configuration-p cwc)
-                    (set-window-configuration cwc))
-                  (kill-buffer (get-buffer (concat bufname "-PREVIOUS-*")))
-                  (kill-buffer (get-buffer (concat bufname "-CURRENT-*")))
-                  (remove-hook 'ediff-quit-hook gptel--ediff-restore))))
-        (add-hook 'ediff-quit-hook gptel--ediff-restore)
-        (apply
-         #'ediff-regions-internal
-         (get-buffer (ediff-make-cloned-buffer (current-buffer) "-CURRENT-*"))
-         beg end new-buf new-beg new-end
-         nil
-         (list 'ediff-regions-wordwise 'word-wise nil)
-         ;; (if (transient-arg-value "-w" args)
-         ;;     (list 'ediff-regions-wordwise 'word-wise nil)
-         ;;   (list 'ediff-regions-linewise nil nil))
-         )))))
-
-(defun gptel--mark-response ()
-  "Mark gptel response at point, if any."
-  (interactive)
-  (unless (gptel--in-response-p) (user-error "No gptel response at point"))
-  (pcase-let ((`(,beg . ,end) (gptel--get-bounds)))
-    (goto-char beg) (push-mark) (goto-char end) (activate-mark)))
-
-(defun gptel--previous-variant (&optional arg)
-  "Switch to previous gptel-response at this point, if it exists."
-  (interactive "p")
-  (pcase-let* ((`(,beg . ,end) (gptel--get-bounds))
-               (history (get-char-property (point) 'gptel-history))
-               (alt-response (car-safe history))
-               (offset))
-    (unless (and history alt-response)
-      (user-error "No variant responses available"))
-    (if (> arg 0)
-        (setq history (append (cdr history)
-                              (list (buffer-substring-no-properties beg end))))
-      (setq
-       alt-response (car (last history))
-       history (cons (buffer-substring-no-properties beg end)
-                     (nbutlast history))))
-    (add-text-properties
-             0 (length alt-response)
-             `(gptel response gptel-history ,history)
-             alt-response)
-    (setq offset (min (- (point) beg) (1- (length alt-response))))
-    (delete-region beg end)
-    (insert alt-response)
-    (goto-char (+ beg offset))
-    (pulse-momentary-highlight-region beg (+ beg (length alt-response)))))
-
-(defun gptel--next-variant (&optional arg)
-  "Switch to next gptel-response at this point, if it exists."
-  (interactive "p")
-  (gptel--previous-variant (- arg)))
-
-(provide 'gptel)
-;;; gptel.el ends here
-
-;; Local Variables:
-;; bug-reference-url-format: "https://github.com/karthink/gptel/issues/%s"
-;; End:
diff --git a/emacs/elpa/gptel-20241115.456/gptel.elc b/emacs/elpa/gptel-20241115.456/gptel.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-anthropic.el b/emacs/elpa/gptel-20241123.2058/gptel-anthropic.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-anthropic.elc b/emacs/elpa/gptel-20241123.2058/gptel-anthropic.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-autoloads.el b/emacs/elpa/gptel-20241123.2058/gptel-autoloads.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-context.el b/emacs/elpa/gptel-20241123.2058/gptel-context.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-context.elc b/emacs/elpa/gptel-20241123.2058/gptel-context.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-curl.el b/emacs/elpa/gptel-20241123.2058/gptel-curl.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-curl.elc b/emacs/elpa/gptel-20241123.2058/gptel-curl.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-gemini.el b/emacs/elpa/gptel-20241123.2058/gptel-gemini.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-gemini.elc b/emacs/elpa/gptel-20241123.2058/gptel-gemini.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-kagi.el b/emacs/elpa/gptel-20241123.2058/gptel-kagi.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-kagi.elc b/emacs/elpa/gptel-20241123.2058/gptel-kagi.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-ollama.el b/emacs/elpa/gptel-20241123.2058/gptel-ollama.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-ollama.elc b/emacs/elpa/gptel-20241123.2058/gptel-ollama.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-openai.el b/emacs/elpa/gptel-20241123.2058/gptel-openai.el
@@ -0,0 +1,455 @@
+;;; gptel-openai.el ---  ChatGPT suppport for gptel  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Karthik Chikmagalur
+
+;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file adds support for the ChatGPT API to gptel
+
+;;; Code:
+(require 'cl-generic)
+(eval-when-compile
+  (require 'cl-lib))
+(require 'map)
+
+(defvar gptel-model)
+(defvar gptel-stream)
+(defvar gptel-use-curl)
+(defvar gptel-backend)
+(defvar gptel-temperature)
+(defvar gptel-max-tokens)
+(defvar gptel--system-message)
+(defvar json-object-type)
+(defvar gptel-mode)
+(defvar gptel-track-response)
+(defvar gptel-track-media)
+(declare-function gptel-context--collect-media "gptel-context")
+(declare-function gptel--base64-encode "gptel")
+(declare-function gptel--trim-prefixes "gptel")
+(declare-function gptel--parse-media-links "gptel")
+(declare-function gptel--model-capable-p "gptel")
+(declare-function gptel--model-name "gptel")
+(declare-function gptel--get-api-key "gptel")
+(declare-function prop-match-value "text-property-search")
+(declare-function text-property-search-backward "text-property-search")
+(declare-function json-read "json")
+(declare-function gptel-prompt-prefix-string "gptel")
+(declare-function gptel-response-prefix-string "gptel")
+(declare-function gptel--merge-plists "gptel")
+(declare-function gptel--model-request-params "gptel")
+(declare-function gptel-context--wrap "gptel-context")
+
+(defmacro gptel--json-read ()
+  (if (fboundp 'json-parse-buffer)
+      `(json-parse-buffer
+        :object-type 'plist
+        :null-object nil
+        :false-object :json-false)
+    (require 'json)
+    (defvar json-object-type)
+    (declare-function json-read "json" ())
+    `(let ((json-object-type 'plist))
+      (json-read))))
+
+(defmacro gptel--json-encode (object)
+  (if (fboundp 'json-serialize)
+      `(json-serialize ,object
+        :null-object nil
+        :false-object :json-false)
+    (require 'json)
+    (defvar json-false)
+    (declare-function json-encode "json" (object))
+    `(let ((json-false :json-false))
+      (json-encode ,object))))
+
+(defun gptel--process-models (models)
+  "Convert items in MODELS to symbols with appropriate properties."
+  (let ((models-processed))
+    (dolist (model models)
+      (cl-etypecase model
+        (string (push (intern model) models-processed))
+        (symbol (push model models-processed))
+        (cons
+         (cl-destructuring-bind (name . props) model
+           (setf (symbol-plist name)
+                 ;; MAYBE: Merging existing symbol plists is safer, but makes it
+                 ;; difficult to reset a symbol plist, since removing keys from
+                 ;; it (as opposed to setting them to nil) is more work.
+                 ;;
+                 ;; (map-merge 'plist (symbol-plist name) props)
+                 props)
+           (push name models-processed)))))
+    (nreverse models-processed)))
+
+;;; Common backend struct for LLM support
+(defvar gptel--known-backends nil
+  "Alist of LLM backends known to gptel.
+
+This is an alist mapping user-provided names to backend structs,
+see `gptel-backend'.
+
+You can have more than one backend pointing to the same resource
+with differing settings.")
+
+(cl-defstruct
+    (gptel-backend (:constructor gptel--make-backend)
+                   (:copier gptel--copy-backend))
+  name host header protocol stream
+  endpoint key models url request-params
+  curl-args)
+
+;;; OpenAI (ChatGPT)
+(cl-defstruct (gptel-openai (:constructor gptel--make-openai)
+                            (:copier nil)
+                            (:include gptel-backend)))
+
+(cl-defmethod gptel-curl--parse-stream ((_backend gptel-openai) _info)
+  (let* ((content-strs))
+    (condition-case nil
+        (while (re-search-forward "^data:" nil t)
+          (save-match-data
+            (unless (looking-at " *\\[DONE\\]")
+              (when-let* ((response (gptel--json-read))
+                          (delta (map-nested-elt
+                                  response '(:choices 0 :delta)))
+                          (content (plist-get delta :content)))
+                (push content content-strs)))))
+      (error
+       (goto-char (match-beginning 0))))
+    (apply #'concat (nreverse content-strs))))
+
+(cl-defmethod gptel--parse-response ((_backend gptel-openai) response _info)
+  (map-nested-elt response '(:choices 0 :message :content)))
+
+(cl-defmethod gptel--request-data ((_backend gptel-openai) prompts)
+  "JSON encode PROMPTS for sending to ChatGPT."
+  (let ((prompts-plist
+         `(:model ,(gptel--model-name gptel-model)
+           :messages [,@prompts]
+           :stream ,(or (and gptel-stream gptel-use-curl
+                         (gptel-backend-stream gptel-backend))
+                     :json-false))))
+    (when gptel-temperature
+      (plist-put prompts-plist :temperature gptel-temperature))
+    (when gptel-max-tokens
+      (plist-put prompts-plist :max_completion_tokens gptel-max-tokens))
+    ;; Merge request params with model and backend params.
+    (gptel--merge-plists
+     prompts-plist
+     (gptel-backend-request-params gptel-backend)
+     (gptel--model-request-params  gptel-model))))
+
+(cl-defmethod gptel--parse-buffer ((_backend gptel-openai) &optional max-entries)
+  (let ((prompts) (prop)
+        (include-media (and gptel-track-media
+                            (or (gptel--model-capable-p 'media)
+                                (gptel--model-capable-p 'url)))))
+    (if (or gptel-mode gptel-track-response)
+        (while (and
+                (or (not max-entries) (>= max-entries 0))
+                (setq prop (text-property-search-backward
+                            'gptel 'response
+                            (when (get-char-property (max (point-min) (1- (point)))
+                                                     'gptel)
+                              t))))
+          (if (prop-match-value prop)   ;assistant role
+              (push (list :role "assistant"
+                          :content
+                          (buffer-substring-no-properties (prop-match-beginning prop)
+                                                          (prop-match-end prop)))
+                    prompts)
+            (if include-media
+                (push (list :role "user"
+                            :content
+                            (gptel--openai-parse-multipart
+                             (gptel--parse-media-links
+                              major-mode (prop-match-beginning prop) (prop-match-end prop))))
+                      prompts)
+              (push (list :role "user"
+                          :content
+                          (gptel--trim-prefixes
+                           (buffer-substring-no-properties (prop-match-beginning prop)
+                                                           (prop-match-end prop))))
+                    prompts)))
+          (and max-entries (cl-decf max-entries)))
+      (push (list :role "user"
+                  :content
+                  (gptel--trim-prefixes (buffer-substring-no-properties (point-min) (point-max))))
+            prompts))
+    (if (and (not (gptel--model-capable-p 'nosystem))
+             gptel--system-message)
+        (cons (list :role "system"
+                    :content gptel--system-message)
+              prompts)
+      prompts)))
+
+;; TODO This could be a generic function
+(defun gptel--openai-parse-multipart (parts)
+  "Convert a multipart prompt PARTS to the OpenAI API format.
+
+The input is an alist of the form
+ ((:text \"some text\")
+  (:media \"/path/to/media.png\" :mime \"image/png\")
+  (:text \"More text\")).
+
+The output is a vector of entries in a backend-appropriate
+format."
+  (cl-loop
+   for part in parts
+   for n upfrom 1
+   with last = (length parts)
+   for text = (plist-get part :text)
+   for media = (plist-get part :media)
+   if text do
+   (and (or (= n 1) (= n last)) (setq text (gptel--trim-prefixes text))) and
+   unless (string-empty-p text)
+   collect `(:type "text" :text ,text) into parts-array end
+   else if media
+   collect
+   `(:type "image_url"
+     :image_url (:url ,(concat "data:" (plist-get part :mime)
+                        ";base64," (gptel--base64-encode media))))
+   into parts-array end and
+   if (plist-get part :url)
+   collect
+   `(:type "image_url"
+     :image_url (:url ,(plist-get part :url)))
+   into parts-array
+   finally return (vconcat parts-array)))
+
+;; TODO: Does this need to be a generic function?
+(cl-defmethod gptel--wrap-user-prompt ((_backend gptel-openai) prompts
+                                       &optional inject-media)
+  "Wrap the last user prompt in PROMPTS with the context string.
+
+If INJECT-MEDIA is non-nil wrap it with base64-encoded media
+files in the context."
+  (if inject-media
+      ;; Wrap the first user prompt with included media files/contexts
+      (when-let ((media-list (gptel-context--collect-media)))
+        (cl-callf (lambda (current)
+                    (vconcat
+                     (gptel--openai-parse-multipart media-list)
+                     (cl-typecase current
+                       (string `((:type "text" :text ,current)))
+                       (vector current)
+                       (t current))))
+            (plist-get (cadr prompts) :content)))
+    ;; Wrap the last user prompt with included text contexts
+    (cl-callf (lambda (current)
+                (cl-etypecase current
+                  (string (gptel-context--wrap current))
+                  (vector (if-let ((wrapped (gptel-context--wrap nil)))
+                              (vconcat `((:type "text" :text ,wrapped))
+                                       current)
+                            current))))
+        (plist-get (car (last prompts)) :content))))
+
+;;;###autoload
+(cl-defun gptel-make-openai
+    (name &key curl-args models stream key request-params
+          (header
+           (lambda () (when-let (key (gptel--get-api-key))
+                   `(("Authorization" . ,(concat "Bearer " key))))))
+          (host "api.openai.com")
+          (protocol "https")
+          (endpoint "/v1/chat/completions"))
+  "Register an OpenAI API-compatible backend for gptel with NAME.
+
+Keyword arguments:
+
+CURL-ARGS (optional) is a list of additional Curl arguments.
+
+HOST (optional) is the API host, typically \"api.openai.com\".
+
+MODELS is a list of available model names, as symbols.
+Additionally, you can specify supported LLM capabilities like
+vision or tool-use by appending a plist to the model with more
+information, in the form
+
+ (model-name . plist)
+
+For a list of currently recognized plist keys, see
+`gptel--openai-models'. An example of a model specification
+including both kinds of specs:
+
+:models
+\\='(gpt-3.5-turbo                         ;Simple specs
+  gpt-4-turbo
+  (gpt-4o-mini                          ;Full spec
+   :description
+   \"Affordable and intelligent small model for lightweight tasks\"
+   :capabilities (media tool json url)
+   :mime-types
+   (\"image/jpeg\" \"image/png\" \"image/gif\" \"image/webp\")))
+
+STREAM is a boolean to toggle streaming responses, defaults to
+false.
+
+PROTOCOL (optional) specifies the protocol, https by default.
+
+ENDPOINT (optional) is the API endpoint for completions, defaults to
+\"/v1/chat/completions\".
+
+HEADER (optional) is for additional headers to send with each
+request.  It should be an alist or a function that retuns an
+alist, like:
+ ((\"Content-Type\" . \"application/json\"))
+
+KEY (optional) is a variable whose value is the API key, or
+function that returns the key.
+
+REQUEST-PARAMS (optional) is a plist of additional HTTP request
+parameters (as plist keys) and values supported by the API.  Use
+these to set parameters that gptel does not provide user options
+for."
+  (declare (indent 1))
+  (let ((backend (gptel--make-openai
+                  :curl-args curl-args
+                  :name name
+                  :host host
+                  :header header
+                  :key key
+                  :models (gptel--process-models models)
+                  :protocol protocol
+                  :endpoint endpoint
+                  :stream stream
+                  :request-params request-params
+                  :url (if protocol
+                           (concat protocol "://" host endpoint)
+                         (concat host endpoint)))))
+    (prog1 backend
+      (setf (alist-get name gptel--known-backends
+                       nil nil #'equal)
+                  backend))))
+
+;;; Azure
+;;;###autoload
+(cl-defun gptel-make-azure
+    (name &key curl-args host
+          (protocol "https")
+          (header (lambda () `(("api-key" . ,(gptel--get-api-key)))))
+          (key 'gptel-api-key)
+          models stream endpoint request-params)
+  "Register an Azure backend for gptel with NAME.
+
+Keyword arguments:
+
+CURL-ARGS (optional) is a list of additional Curl arguments.
+
+HOST is the API host.
+
+MODELS is a list of available model names, as symbols.
+
+STREAM is a boolean to toggle streaming responses, defaults to
+false.
+
+PROTOCOL (optional) specifies the protocol, https by default.
+
+ENDPOINT is the API endpoint for completions.
+
+HEADER (optional) is for additional headers to send with each
+request.  It should be an alist or a function that retuns an
+alist, like:
+ ((\"Content-Type\" . \"application/json\"))
+
+KEY (optional) is a variable whose value is the API key, or
+function that returns the key.
+
+REQUEST-PARAMS (optional) is a plist of additional HTTP request
+parameters (as plist keys) and values supported by the API.  Use
+these to set parameters that gptel does not provide user options
+for.
+
+Example:
+-------
+
+ (gptel-make-azure
+  \"Azure-1\"
+  :protocol \"https\"
+  :host \"RESOURCE_NAME.openai.azure.com\"
+  :endpoint
+  \"/openai/deployments/DEPLOYMENT_NAME/completions?api-version=2023-05-15\"
+  :stream t
+  :models \\='(gpt-3.5-turbo gpt-4))"
+  (declare (indent 1))
+  (let ((backend (gptel--make-openai
+                  :curl-args curl-args
+                  :name name
+                  :host host
+                  :header header
+                  :key key
+                  :models (gptel--process-models models)
+                  :protocol protocol
+                  :endpoint endpoint
+                  :stream stream
+                  :request-params request-params
+                  :url (if protocol
+                           (concat protocol "://" host endpoint)
+                         (concat host endpoint)))))
+    (prog1 backend
+      (setf (alist-get name gptel--known-backends
+                       nil nil #'equal)
+            backend))))
+
+;; GPT4All
+;;;###autoload
+(defalias 'gptel-make-gpt4all 'gptel-make-openai
+  "Register a GPT4All backend for gptel with NAME.
+
+Keyword arguments:
+
+CURL-ARGS (optional) is a list of additional Curl arguments.
+
+HOST is where GPT4All runs (with port), typically localhost:4891
+
+MODELS is a list of available model names, as symbols.
+
+STREAM is a boolean to toggle streaming responses, defaults to
+false.
+
+PROTOCOL specifies the protocol, https by default.
+
+ENDPOINT (optional) is the API endpoint for completions, defaults to
+\"/api/v1/completions\"
+
+HEADER (optional) is for additional headers to send with each
+request. It should be an alist or a function that retuns an
+alist, like:
+((\"Content-Type\" . \"application/json\"))
+
+KEY (optional) is a variable whose value is the API key, or
+function that returns the key. This is typically not required for
+local models like GPT4All.
+
+REQUEST-PARAMS (optional) is a plist of additional HTTP request
+parameters (as plist keys) and values supported by the API.  Use
+these to set parameters that gptel does not provide user options
+for.
+
+Example:
+-------
+
+(gptel-make-gpt4all
+ \"GPT4All\"
+ :protocol \"http\"
+ :host \"localhost:4891\"
+ :models \\='(mistral-7b-openorca.Q4_0.gguf))")
+
+(provide 'gptel-openai)
+;;; gptel-openai.el ends here
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-openai.elc b/emacs/elpa/gptel-20241123.2058/gptel-openai.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-org.el b/emacs/elpa/gptel-20241123.2058/gptel-org.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-org.elc b/emacs/elpa/gptel-20241123.2058/gptel-org.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-pkg.el b/emacs/elpa/gptel-20241123.2058/gptel-pkg.el
@@ -0,0 +1,12 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "gptel" "20241123.2058"
+  "Interact with ChatGPT or other LLMs."
+  '((emacs     "27.1")
+    (transient "0.4.0")
+    (compat    "29.1.4.1"))
+  :url "https://github.com/karthink/gptel"
+  :commit "20e07943d792133ba57a325e123436de471e1429"
+  :revdesc "20e07943d792"
+  :keywords '("convenience")
+  :authors '(("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com"))
+  :maintainers '(("Karthik Chikmagalur" . "karthik.chikmagalur@gmail.com")))
diff --git a/emacs/elpa/gptel-20241115.456/gptel-privategpt.el b/emacs/elpa/gptel-20241123.2058/gptel-privategpt.el
diff --git a/emacs/elpa/gptel-20241115.456/gptel-privategpt.elc b/emacs/elpa/gptel-20241123.2058/gptel-privategpt.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-rewrite.el b/emacs/elpa/gptel-20241123.2058/gptel-rewrite.el
@@ -0,0 +1,450 @@
+;;; gptel-rewrite.el --- Refactoring functions for gptel  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024  Karthik Chikmagalur
+
+;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
+;; Keywords: hypermedia, convenience, tools
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+(require 'gptel-transient)
+(require 'cl-lib)
+
+(defvar eldoc-documentation-functions)
+(defvar diff-entire-buffers)
+
+(declare-function diff-no-select "diff")
+
+;; * User options
+
+(defcustom gptel-rewrite-directives-hook (list #'gptel--rewrite-message)
+  "Hook run to generate gptel's default rewrite directives.
+
+Each function in this hook is called with no arguments until one
+returns a non-nil value, the base string to use as the
+rewrite/refactor instruction.
+
+Use this hook to tailor context-specific refactoring directives.
+For example, you can specialize the default refactor directive
+for a particular major-mode."
+  :group 'gptel
+  :type 'hook)
+
+(defface gptel-rewrite-highlight-face
+  '((((class color) (min-colors 88) (background dark))
+     :background "#041714" :extend t)
+    (((class color) (min-colors 88) (background light))
+     :background "light goldenrod yellow" :extend t)
+    (t :inherit secondary-selection))
+  "Face for highlighting regions with pending rewrites."
+  :group 'gptel)
+
+;; * Variables
+
+(defvar-keymap gptel-rewrite-actions-map
+  :doc "Keymap for gptel rewrite actions at point."
+  "C-c C-k" #'gptel--rewrite-clear
+  "C-c C-a" #'gptel--rewrite-apply
+  "C-c C-d" #'gptel--rewrite-diff
+  "C-c C-e" #'gptel--rewrite-ediff
+  "C-c C-n" #'gptel--rewrite-next
+  "C-c C-p" #'gptel--rewrite-previous
+  "C-c C-m" #'gptel--rewrite-merge)
+
+(defvar-local gptel--rewrite-overlays nil
+  "List of active rewrite overlays in the buffer.")
+
+(defvar-local gptel--rewrite-message nil)
+
+;; * Helper functions
+
+(defun gptel--rewrite-sanitize-overlays ()
+  "Ensure gptel's rewrite overlays in buffer are consistent."
+  (setq gptel--rewrite-overlays
+        (cl-delete-if-not #'overlay-buffer
+                          gptel--rewrite-overlays)))
+
+(defsubst gptel--refactor-or-rewrite ()
+  "Rewrite should be refactored into refactor.
+
+Or is it the other way around?"
+  (if (derived-mode-p 'prog-mode)
+      "Refactor" "Rewrite"))
+
+(defun gptel--rewrite-message ()
+  "Set a generic refactor/rewrite message for the buffer."
+  (if (derived-mode-p 'prog-mode)
+      (format "You are a %s programmer. Generate only code, no explanation, no code fences. Refactor the following code."
+              (gptel--strip-mode-suffix major-mode))
+    (format "You are a prose editor. Rewrite the following text to be more professional.")))
+
+(defun gptel--rewrite-key-help (callback)
+  "Eldoc documentation function for gptel rewrite actions.
+
+CALLBACK is supplied by Eldoc, see
+`eldoc-documentation-functions'."
+  (when (and gptel--rewrite-overlays
+             (get-char-property (point) 'gptel-rewrite))
+      (funcall callback
+               (format (substitute-command-keys "%s rewrite available: accept \\[gptel--rewrite-apply], clear \\[gptel--rewrite-clear], merge \\[gptel--rewrite-merge], diff \\[gptel--rewrite-diff] or ediff \\[gptel--rewrite-ediff]")
+                       (propertize (concat (gptel-backend-name gptel-backend)
+                                           ":" (gptel--model-name gptel-model))
+                                   'face 'mode-line-emphasis)))))
+
+(defun gptel--rewrite-move (search-func)
+  "Move directionally to a gptel rewrite location using SEARCH-FUNC."
+  (let* ((ov (cdr (get-char-property-and-overlay (point) 'gptel-rewrite)))
+         (pt (save-excursion
+               (if ov
+                   (goto-char
+                    (funcall search-func (overlay-start ov) 'gptel-rewrite))
+                 (goto-char
+                  (max (1- (funcall search-func (point) 'gptel-rewrite))
+                       (point-min))))
+               (funcall search-func (point) 'gptel-rewrite))))
+    (if (get-char-property pt 'gptel-rewrite)
+        (goto-char pt)
+      (user-error "No further rewrite regions!"))))
+
+(defun gptel--rewrite-next ()
+  "Go to next pending LLM rewrite in buffer, if one exists."
+  (interactive)
+  (gptel--rewrite-move #'next-single-char-property-change))
+
+(defun gptel--rewrite-previous ()
+  "Go to previous pending LLM rewrite in buffer, if one exists."
+  (interactive)
+  (gptel--rewrite-move #'previous-single-char-property-change))
+
+(defun gptel--rewrite-overlay-at (&optional pt)
+  "Check for a gptel rewrite overlay at PT and return it.
+
+If no suitable overlay is found, raise an error."
+  (pcase-let ((`(,response . ,ov)
+               (get-char-property-and-overlay (or pt (point)) 'gptel-rewrite))
+              (diff-entire-buffers nil))
+    (unless ov (user-error "Could not find region being rewritten."))
+    (unless response (user-error "No LLM output available for this rewrite."))
+    ov))
+
+(defun gptel--rewrite-prepare-buffer (ovs &optional buf)
+  "Prepare new buffer with LLM changes applied and return it.
+
+This is used for (e)diff purposes.
+
+RESPONSE is the LLM response.  OVS are the overlays specifying
+the changed regions. BUF is the (current) buffer."
+  (setq buf (or buf (current-buffer)))
+  (with-current-buffer buf
+    (let ((pmin (point-min))
+          (pmax (point-max))
+          (pt   (point))
+          ;; (mode major-mode)
+          (newbuf (get-buffer-create "*gptel-diff*"))
+          (inhibit-read-only t)
+          (inhibit-message t))
+      (save-restriction
+        (widen)
+        (with-current-buffer newbuf
+          (erase-buffer)
+          (insert-buffer-substring buf)))
+      (with-current-buffer newbuf
+        (narrow-to-region pmin pmax)
+        (goto-char pt)
+        ;; We mostly just want font-locking
+        ;; (delay-mode-hooks (funcall mode))
+        ;; Apply the changes to the new buffer
+        (save-excursion
+          (gptel--rewrite-apply ovs)))
+      newbuf)))
+
+;; * Refactor action functions
+
+(defun gptel--rewrite-clear (&optional ovs)
+  "Clear pending LLM responses in OVS or at point."
+  (interactive (list (gptel--rewrite-overlay-at)))
+  (dolist (ov (ensure-list ovs))
+    (setq gptel--rewrite-overlays (delq ov gptel--rewrite-overlays))
+    (delete-overlay ov))
+  (unless gptel--rewrite-overlays
+    (remove-hook 'eldoc-documentation-functions 'gptel--rewrite-key-help 'local))
+  (message "Cleared pending LLM response(s)."))
+
+(defun gptel--rewrite-apply (&optional ovs)
+  "Apply pending LLM responses in OVS or at point."
+  (interactive (list (gptel--rewrite-overlay-at)))
+  (cl-loop for ov in (ensure-list ovs)
+           for ov-beg = (overlay-start ov)
+           for ov-end = (overlay-end ov)
+           for response = (overlay-get ov 'gptel-rewrite)
+           do (overlay-put ov 'before-string nil)
+           (goto-char ov-beg)
+           (delete-region ov-beg ov-end)
+           (insert response))
+  (message "Replaced region(s) with LLM output."))
+
+(defun gptel--rewrite-diff (&optional ovs switches)
+  "Diff pending LLM responses in OVS or at point."
+  (interactive (list (gptel--rewrite-overlay-at)))
+  (let* ((buf (current-buffer))
+         (newbuf (gptel--rewrite-prepare-buffer ovs))
+         (diff-buf (diff-no-select
+                    (if-let ((buf-file (buffer-file-name buf)))
+                        (expand-file-name buf-file) buf)
+                    newbuf switches)))
+    (with-current-buffer diff-buf
+      (setq-local diff-jump-to-old-file t))
+    (display-buffer diff-buf)))
+
+(defun gptel--rewrite-ediff (&optional ovs)
+  "Ediff pending LLM responses in OVS or at point."
+  (interactive (list (gptel--rewrite-overlay-at)))
+  (letrec ((newbuf (gptel--rewrite-prepare-buffer ovs))
+           (cwc (current-window-configuration))
+           (gptel--ediff-restore
+            (lambda ()
+              (when (window-configuration-p cwc)
+                (set-window-configuration cwc))
+              (remove-hook 'ediff-quit-hook gptel--ediff-restore))))
+    (add-hook 'ediff-quit-hook gptel--ediff-restore)
+    (ediff-buffers (current-buffer) newbuf)))
+
+(defun gptel--rewrite-merge (&optional ovs)
+  "Insert pending LLM responses in OVS as merge conflicts."
+  (interactive (list (gptel--rewrite-overlay-at)))
+  (let ((changed))
+    (dolist (ov (ensure-list ovs))
+      (save-excursion
+        (when-let (new-str (overlay-get ov 'gptel-rewrite))
+          ;; Insert merge
+          (goto-char (overlay-start ov))
+          (unless (bolp) (insert "\n"))
+          (insert-before-markers "<<<<<<< original\n")
+          (goto-char (overlay-end ov))
+          (unless (bolp) (insert "\n"))
+          (insert
+           "=======\n" new-str
+           "\n>>>>>>> " (gptel-backend-name gptel-backend) "\n")
+          (setq changed t))))
+    (when changed (smerge-mode 1)))
+  (gptel--rewrite-clear ovs))
+
+;; * Transient Prefix for rewriting/refactoring
+
+;;;###autoload (autoload 'gptel-rewrite-menu "gptel-rewrite" nil t)
+(transient-define-prefix gptel-rewrite-menu ()
+  "Rewrite or refactor text region using an LLM."
+  [:description
+   (lambda ()
+     (format "Directive:  %s"
+             (truncate-string-to-width
+              gptel--rewrite-message
+              (max (- (window-width) 14) 20) nil nil t)))
+   (gptel--infix-rewrite-prompt)]
+  ;; FIXME: We are requiring `gptel-transient' because of this suffix, perhaps
+  ;; we can get find some way around that?
+  [:description (lambda () (concat "Context for " (gptel--refactor-or-rewrite)))
+   :if use-region-p
+   (gptel--suffix-context-buffer :key "C")]
+  [[:description "Diff Options"
+    :if (lambda () gptel--rewrite-overlays)
+    ("-b" "Ignore whitespace changes"      ("-b" "--ignore-space-change"))
+    ("-w" "Ignore all whitespace"          ("-w" "--ignore-all-space"))
+    ("-i" "Ignore case"                    ("-i" "--ignore-case"))
+    (gptel--rewrite-infix-diff:-U)]
+   [:description gptel--refactor-or-rewrite
+    :if use-region-p
+    (gptel--suffix-rewrite)]
+   ["Dry Run" :if (lambda () (or gptel-log-level gptel-expert-commands))
+    ("I" "Inspect query (Lisp)"
+     (lambda ()
+       "Inspect the query that will be sent as a lisp object."
+       (interactive)
+       (gptel--sanitize-model)
+       (gptel--inspect-query
+        (gptel--suffix-rewrite gptel--rewrite-message t))))
+    ("J" "Inspect query (JSON)"
+     (lambda ()
+       "Inspect the query that will be sent as a JSON object."
+       (interactive)
+       (gptel--sanitize-model)
+       (gptel--inspect-query
+        (gptel--suffix-rewrite gptel--rewrite-message t)
+        'json)))]]
+  [[:description (lambda () (concat "Diff " (gptel--refactor-or-rewrite) "s"))
+    :if (lambda () gptel--rewrite-overlays)
+    (gptel--suffix-rewrite-diff)
+    (gptel--suffix-rewrite-ediff)]
+   [:description (lambda () (concat "Continue " (gptel--refactor-or-rewrite) "s"))
+    :if (lambda () (gptel--rewrite-sanitize-overlays))
+    (gptel--suffix-rewrite-merge)
+    (gptel--suffix-rewrite-apply)]
+   [:description (lambda () (concat "Reject " (gptel--refactor-or-rewrite) "s"))
+    :if (lambda () (gptel--rewrite-sanitize-overlays))
+    (gptel--suffix-rewrite-clear)]]
+  (interactive)
+  (unless gptel--rewrite-message
+    (setq gptel--rewrite-message
+          (save-mark-and-excursion
+            (run-hook-with-args-until-success
+             'gptel-rewrite-directives-hook))))
+  (transient-setup 'gptel-rewrite-menu))
+
+;; * Transient infixes for rewriting/refactoring
+
+(transient-define-infix gptel--infix-rewrite-prompt ()
+  "Chat directive (system message) to use for rewriting or refactoring."
+  :description (lambda () (if (derived-mode-p 'prog-mode)
+                         "Set directives for refactor"
+                       "Set directives for rewrite"))
+  :format "%k %d"
+  :class 'transient-lisp-variable
+  :variable 'gptel--rewrite-message
+  :key "d"
+  :prompt "Set directive for rewrite: "
+  :reader (lambda (prompt _ history)
+            (read-string
+             prompt
+             (save-mark-and-excursion
+               (run-hook-with-args-until-success
+                'gptel-rewrite-directives-hook))
+             history)))
+
+(transient-define-argument gptel--rewrite-infix-diff:-U ()
+  :description "Context lines"
+  :class 'transient-option
+  :argument "-U"
+  :reader #'transient-read-number-N0)
+
+;; * Transient suffixes for rewriting/refactoring
+
+(transient-define-suffix gptel--suffix-rewrite (&optional rewrite-message dry-run)
+  "Rewrite or refactor region contents."
+  :key "r"
+  :description #'gptel--refactor-or-rewrite
+  (interactive (list gptel--rewrite-message))
+  (let* ((prompt (buffer-substring-no-properties
+                  (region-beginning) (region-end)))
+         (gptel--system-message (or rewrite-message gptel--rewrite-message))
+         ;; always send context with system message
+         (gptel-use-context (and gptel-use-context 'system)))
+    (deactivate-mark)
+    (gptel-request prompt
+      :dry-run dry-run
+      :context
+      (let ((ov (make-overlay (region-beginning) (region-end))))
+        (overlay-put ov 'category 'gptel)
+        (overlay-put ov 'evaporate t)
+        ov)
+      :callback
+      (lambda (response info)
+        (if (not response)
+            (message (concat "LLM response error: %s. Rewrite/refactor in buffer %s canceled."
+                             (propertize "❌" 'face 'error))
+                     (plist-get info :status)
+                     (plist-get info :buffer))
+          ;; Store response
+          (let ((buf (plist-get info :buffer))
+                 (ov  (plist-get info :context))
+                 (action-str) (hint-str))
+            (with-current-buffer buf
+              (if (derived-mode-p 'prog-mode)
+                  (progn
+                    (setq action-str "refactor")
+                    (when (string-match-p "^```" response)
+                      (setq response (replace-regexp-in-string "^```.*$" "" response))))
+                (setq action-str "rewrite"))
+              (setq hint-str (concat "[" (gptel-backend-name gptel-backend)
+                                     ":" (gptel--model-name gptel-model) "] "
+                                     (upcase action-str) " READY ✓\n"))
+              (add-hook 'eldoc-documentation-functions #'gptel--rewrite-key-help nil 'local)
+              (overlay-put ov 'gptel-rewrite response)
+              (overlay-put ov 'face 'gptel-rewrite-highlight-face)
+              (overlay-put ov 'keymap gptel-rewrite-actions-map)
+              (overlay-put ov 'before-string
+                           (concat (propertize
+                                    " " 'display `(space :align-to (- right ,(1+ (length hint-str)))))
+                                   (propertize hint-str 'face 'success)))
+              (overlay-put
+               ov 'help-echo
+               (format "%s rewrite available:
+- accept \\[gptel--rewrite-apply],
+- clear  \\[gptel--rewrite-clear],
+- merge  \\[gptel--accept-merge],
+- diff   \\[gptel--rewrite-diff],
+- ediff  \\[gptel--rewrite-ediff]"
+                       (propertize (concat (gptel-backend-name gptel-backend)
+                                           ":" (gptel--model-name gptel-model)))))
+              (push ov gptel--rewrite-overlays))
+            ;; Message user
+            (message
+             (concat
+              "LLM %s output"
+              (unless (eq (current-buffer) buf) (format " in buffer %s " buf))
+              (substitute-command-keys " ready, \\[gptel-menu] to continue."))
+             action-str)))))))
+
+(transient-define-suffix gptel--suffix-rewrite-diff (&optional switches)
+  "Diff LLM output against buffer."
+  :if (lambda () gptel--rewrite-overlays)
+  :key "D"
+  :description (concat "Diff  LLM " (downcase (gptel--refactor-or-rewrite)) "s")
+  (interactive (list (transient-args transient-current-command)))
+  (gptel--rewrite-diff gptel--rewrite-overlays switches))
+
+(transient-define-suffix gptel--suffix-rewrite-ediff ()
+  "Ediff LLM output against buffer."
+  :if (lambda () gptel--rewrite-overlays)
+  :key "E"
+  :description (concat "Ediff LLM " (downcase (gptel--refactor-or-rewrite)) "s")
+  (interactive)
+  (gptel--rewrite-ediff gptel--rewrite-overlays))
+
+(transient-define-suffix gptel--suffix-rewrite-merge ()
+  "Insert LLM output as merge conflicts"
+  :if (lambda () gptel--rewrite-overlays)
+  :key "cm"
+  :description "Accept as merge conflicts"
+  (interactive)
+  (gptel--rewrite-merge gptel--rewrite-overlays))
+
+(transient-define-suffix gptel--suffix-rewrite-apply ()
+  "Accept pending LLM rewrites."
+  :if (lambda () gptel--rewrite-overlays)
+  :key "ca"
+  :description "Accept in-place"
+  (interactive)
+  (gptel--rewrite-apply gptel--rewrite-overlays))
+
+(transient-define-suffix gptel--suffix-rewrite-clear ()
+  "Clear pending LLM rewrites."
+  :if (lambda () gptel--rewrite-overlays)
+  :key "ck"
+  :description (concat "Clear pending "
+                       (downcase (gptel--refactor-or-rewrite))
+                       "s")
+  (interactive)
+  (gptel--rewrite-clear gptel--rewrite-overlays))
+
+(provide 'gptel-rewrite)
+;;; gptel-rewrite.el ends here
+
+;; Local Variables:
+;; outline-regexp: "^;; \\*+"
+;; End:
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-rewrite.elc b/emacs/elpa/gptel-20241123.2058/gptel-rewrite.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241115.456/gptel-transient.el b/emacs/elpa/gptel-20241123.2058/gptel-transient.el
diff --git a/emacs/elpa/gptel-20241123.2058/gptel-transient.elc b/emacs/elpa/gptel-20241123.2058/gptel-transient.elc
Binary files differ.
diff --git a/emacs/elpa/gptel-20241123.2058/gptel.el b/emacs/elpa/gptel-20241123.2058/gptel.el
@@ -0,0 +1,1889 @@
+;;; gptel.el --- Interact with ChatGPT or other LLMs     -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Karthik Chikmagalur
+
+;; Author: Karthik Chikmagalur <karthik.chikmagalur@gmail.com>
+;; Package-Version: 20241123.2058
+;; Package-Revision: 20e07943d792
+;; Package-Requires: ((emacs "27.1") (transient "0.4.0") (compat "29.1.4.1"))
+;; Keywords: convenience
+;; URL: https://github.com/karthink/gptel
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;; This file is NOT part of GNU Emacs.
+
+;;; Commentary:
+
+;; gptel is a simple Large Language Model chat client, with support for multiple
+;; models and backends.
+;;
+;; It works in the spirit of Emacs, available at any time and in any buffer.
+;;
+;; gptel supports
+;;
+;; - The services ChatGPT, Azure, Gemini, Anthropic AI, Anyscale, Together.ai,
+;;   Perplexity, Anyscale, OpenRouter, Groq, PrivateGPT, DeepSeek, Cerebras,
+;;   Github Models and Kagi (FastGPT & Summarizer)
+;; - Local models via Ollama, Llama.cpp, Llamafiles or GPT4All
+;;
+;;  Additionally, any LLM service (local or remote) that provides an
+;;  OpenAI-compatible API is supported.
+;;
+;; Features:
+;; - It’s async and fast, streams responses.
+;; - Interact with LLMs from anywhere in Emacs (any buffer, shell, minibuffer,
+;;   wherever)
+;; - LLM responses are in Markdown or Org markup.
+;; - Supports conversations and multiple independent sessions.
+;; - Supports multi-modal models (send images, documents).
+;; - Save chats as regular Markdown/Org/Text files and resume them later.
+;; - You can go back and edit your previous prompts or LLM responses when
+;;   continuing a conversation.  These will be fed back to the model.
+;; - Redirect prompts and responses easily
+;; - Rewrite, refactor or fill in regions in buffers
+;; - Write your own commands for custom tasks with a simple API.
+;;
+;; Requirements for ChatGPT, Azure, Gemini or Kagi:
+;;
+;; - You need an appropriate API key.  Set the variable `gptel-api-key' to the
+;;   key or to a function of no arguments that returns the key.  (It tries to
+;;   use `auth-source' by default)
+;;
+;;   ChatGPT is configured out of the box.  For the other sources:
+;;
+;; - For Azure: define a gptel-backend with `gptel-make-azure', which see.
+;; - For Gemini: define a gptel-backend with `gptel-make-gemini', which see.
+;; - For Anthropic (Claude): define a gptel-backend with `gptel-make-anthropic',
+;;   which see
+;; - For Together.ai, Anyscale, Perplexity, Groq, OpenRouter, DeepSeek, Cerebras or
+;;   Github Models: define a gptel-backend with `gptel-make-openai', which see.
+;; - For PrivateGPT: define a backend with `gptel-make-privategpt', which see.
+;; - For Kagi: define a gptel-backend with `gptel-make-kagi', which see.
+;;
+;; For local models using Ollama, Llama.cpp or GPT4All:
+;;
+;; - The model has to be running on an accessible address (or localhost)
+;; - Define a gptel-backend with `gptel-make-ollama' or `gptel-make-gpt4all',
+;;   which see.
+;; - Llama.cpp or Llamafiles: Define a gptel-backend with `gptel-make-openai',
+;;
+;; Consult the package README for examples and more help with configuring
+;; backends.
+;;
+;; Usage:
+;;
+;; gptel can be used in any buffer or in a dedicated chat buffer.  The
+;; interaction model is simple: Type in a query and the response will be
+;; inserted below.  You can continue the conversation by typing below the
+;; response.
+;;
+;; To use this in any buffer:
+;;
+;; - Call `gptel-send' to send the buffer's text up to the cursor.  Select a
+;;   region to send only the region.
+;;
+;; - You can select previous prompts and responses to continue the conversation.
+;;
+;; - Call `gptel-send' with a prefix argument to access a menu where you can set
+;;   your backend, model and other parameters, or to redirect the
+;;   prompt/response.
+;;
+;; To use this in a dedicated buffer:
+;; 
+;; - M-x gptel: Start a chat session
+;;
+;; - In the chat session: Press `C-c RET' (`gptel-send') to send your prompt.
+;;   Use a prefix argument (`C-u C-c RET') to access a menu.  In this menu you
+;;   can set chat parameters like the system directives, active backend or
+;;   model, or choose to redirect the input or output elsewhere (such as to the
+;;   kill ring).
+;;
+;; - You can save this buffer to a file.  When opening this file, turn on
+;;   `gptel-mode' before editing it to restore the conversation state and
+;;   continue chatting.
+;;
+;; - To include media files with your request, you can add them to the context
+;;   (described next), or include them as links in Org or Markdown mode chat
+;;   buffers.  Sending media is disabled by default, you can turn it on globally
+;;   via `gptel-track-media', or locally in a chat buffer via the header line.
+;; 
+;; Include more context with requests:
+;;
+;; If you want to provide the LLM with more context, you can add arbitrary
+;; regions, buffers or files to the query with `gptel-add'.  To add text or
+;; media files, call `gptel-add' in Dired or use the dedicated `gptel-add-file'.
+;;
+;; You can also add context from gptel's menu instead (gptel-send with a prefix
+;; arg), as well as examine or modify context.
+;;
+;; When context is available, gptel will include it with each LLM query.
+;;
+;; Rewrite/refactor interface
+;;
+;; In any buffer: with a region selected, you can rewrite prose, refactor code
+;; or fill in the region.  Use gptel's menu (C-u M-x `gptel-send') to access
+;; this feature.
+;;
+;; gptel in Org mode:
+;;
+;; gptel offers a few extra conveniences in Org mode.
+;; - You can limit the conversation context to an Org heading with
+;;   `gptel-org-set-topic'.
+;;   
+;; - You can have branching conversations in Org mode, where each hierarchical
+;;   outline path through the document is a separate conversation branch.
+;;   See the variable `gptel-org-branching-context'.
+;;   
+;; - You can declare the gptel model, backend, temperature, system message and
+;;   other parameters as Org properties with the command
+;;   `gptel-org-set-properties'.  gptel queries under the corresponding heading
+;;   will always use these settings, allowing you to create mostly reproducible
+;;   LLM chat notebooks.
+;;
+;; Finally, gptel offers a general purpose API for writing LLM ineractions
+;; that suit your workflow, see `gptel-request'.
+
+;;; Code:
+(declare-function markdown-mode "markdown-mode")
+(declare-function gptel-curl-get-response "gptel-curl")
+(declare-function gptel-menu "gptel-transient")
+(declare-function gptel-system-prompt "gptel-transient")
+(declare-function pulse-momentary-highlight-region "pulse")
+
+(declare-function ediff-make-cloned-buffer "ediff-util")
+(declare-function ediff-regions-internal "ediff")
+
+(declare-function gptel-org--create-prompt "gptel-org")
+(declare-function gptel-org-set-topic "gptel-org")
+(declare-function gptel-org--save-state "gptel-org")
+(declare-function gptel-org--restore-state "gptel-org")
+(declare-function gptel--stream-convert-markdown->org "gptel-org")
+(declare-function gptel--convert-markdown->org "gptel-org")
+(define-obsolete-function-alias
+  'gptel-set-topic 'gptel-org-set-topic "0.7.5")
+
+(eval-when-compile
+  (require 'subr-x)
+  (require 'cl-lib))
+(require 'compat nil t)
+(require 'url)
+(require 'map)
+(require 'text-property-search)
+(require 'cl-generic)
+(require 'gptel-openai)
+
+(with-eval-after-load 'org
+  (require 'gptel-org))
+
+
+;;; User options
+
+(defgroup gptel nil
+  "Interact with LLMs from anywhere in Emacs."
+  :group 'hypermedia)
+
+;; (defcustom gptel-host "api.openai.com"
+;;   "The API host queried by gptel."
+;;   :group 'gptel
+;;   :type 'string)
+(make-obsolete-variable
+ 'gptel-host
+ "Use `gptel-make-openai' instead."
+ "0.5.0")
+
+(defcustom gptel-proxy ""
+  "Path to a proxy to use for gptel interactions.
+Passed to curl via --proxy arg, for example \"proxy.yourorg.com:80\"
+Leave it empty if you don't use a proxy."
+  :type 'string)
+
+(defcustom gptel-api-key #'gptel-api-key-from-auth-source
+  "An API key (string) for the default LLM backend.
+
+OpenAI by default.
+
+Can also be a function of no arguments that returns an API
+key (more secure) for the active backend."
+  :type '(choice
+          (string :tag "API key")
+          (function :tag "Function that returns the API key")))
+
+(defcustom gptel-stream t
+  "Stream responses from the LLM as they are received.
+
+This option is ignored unless
+- the LLM backend supports streaming, and
+- Curl is in use (see `gptel-use-curl')
+
+When set to nil, Emacs waits for the full response and inserts it
+all at once.  This wait is asynchronous.
+
+\='tis a bit silly."
+  :type 'boolean)
+(make-obsolete-variable 'gptel-playback 'gptel-stream "0.3.0")
+
+(defcustom gptel-use-curl (and (executable-find "curl") t)
+  "Whether gptel should prefer Curl when available."
+  :type 'boolean)
+
+(defcustom gptel-curl-file-size-threshold 130000
+  "Size threshold for using file input with Curl.
+
+Specifies the size threshold for when to use a temporary file to pass data to
+Curl in GPTel queries.  If the size of the data to be sent exceeds this
+threshold, the data is written to a temporary file and passed to Curl using the
+`--data-binary' option with a file reference.  Otherwise, the data is passed
+directly as a command-line argument.
+
+The value is an integer representing the number of bytes.
+
+Adjusting this value may be necessary depending on the environment
+and the typical size of the data being sent in GPTel queries.
+A larger value may improve performance by avoiding the overhead of creating
+temporary files for small data payloads, while a smaller value may be needed
+if the command-line argument size is limited by the operating system."
+  :type 'natnum)
+
+(defcustom gptel-response-filter-functions
+  (list #'gptel--convert-org)
+  "Abnormal hook for transforming the response from an LLM.
+
+This is used to format the response in some way, such as filling
+paragraphs, adding annotations or recording information in the
+response like links.
+
+Each function in this hook receives two arguments, the response
+string to transform and the LLM interaction buffer.  It
+should return the transformed string.
+
+NOTE: This is only used for non-streaming responses.  To
+transform streaming responses, use `gptel-post-stream-hook' and
+`gptel-post-response-functions'."
+  :type 'hook)
+
+(defcustom gptel-pre-response-hook nil
+  "Hook run before inserting the LLM response into the current buffer.
+
+This hook is called in the buffer where the LLM response will be
+inserted.
+
+Note: this hook only runs if the request succeeds."
+  :type 'hook)
+
+(define-obsolete-variable-alias
+  'gptel-post-response-hook 'gptel-post-response-functions
+  "0.6.0"
+  "Post-response functions are now called with two arguments: the
+start and end buffer positions of the response.")
+
+(defcustom gptel-post-response-functions nil
+  "Abnormal hook run after inserting the LLM response into the current buffer.
+
+This hook is called in the buffer to which the LLM response is
+sent, and after the full response has been inserted.  Each
+function is called with two arguments: the response beginning and
+end positions.
+
+Note: this hook runs even if the request fails.  In this case the
+response beginning and end positions are both the cursor position
+at the time of the request."
+  :type 'hook)
+
+;; (defcustom gptel-pre-stream-insert-hook nil
+;;   "Hook run before each insertion of the LLM's streaming response.
+
+;; This hook is called in the buffer from which the prompt was sent
+;; to the LLM, immediately before text insertion."
+;;   :group 'gptel
+;;   :type 'hook)
+
+(defcustom gptel-post-stream-hook nil
+  "Hook run after each insertion of the LLM's streaming response.
+
+This hook is called in the buffer from which the prompt was sent
+to the LLM, and after a text insertion."
+  :type 'hook)
+
+(defcustom gptel-save-state-hook nil
+  "Hook run before gptel saves model parameters to a file.
+
+You can use this hook to store additional conversation state or
+model parameters to the chat buffer, or to modify the buffer in
+some other way."
+  :type 'hook)
+
+(defcustom gptel-default-mode (if (fboundp 'markdown-mode)
+				  'markdown-mode
+				'text-mode)
+  "The default major mode for dedicated chat buffers.
+
+If `markdown-mode' is available, it is used.  Otherwise gptel
+defaults to `text-mode'."
+  :type 'function)
+
+;; TODO: Handle `prog-mode' using the `comment-start' variable
+(defcustom gptel-prompt-prefix-alist
+  '((markdown-mode . "### ")
+    (org-mode . "*** ")
+    (text-mode . "### "))
+  "String used as a prefix to the query being sent to the LLM.
+
+This is meant for the user to distinguish between queries and
+responses, and is removed from the query before it is sent.
+
+This is an alist mapping major modes to the prefix strings.  This
+is only inserted in dedicated gptel buffers."
+  :type '(alist :key-type symbol :value-type string))
+
+(defcustom gptel-response-prefix-alist
+  '((markdown-mode . "")
+    (org-mode . "")
+    (text-mode . ""))
+  "String inserted before the response from the LLM.
+
+This is meant for the user to distinguish between queries and
+responses.
+
+This is an alist mapping major modes to the reply prefix strings.  This
+is only inserted in dedicated gptel buffers before the AI's response."
+  :type '(alist :key-type symbol :value-type string))
+
+(defcustom gptel-use-header-line t
+  "Whether `gptel-mode' should use header-line for status information.
+
+When set to nil, use the mode line for (minimal) status
+information and the echo area for messages."
+  :type 'boolean)
+
+(defcustom gptel-display-buffer-action '(pop-to-buffer)
+  "The action used to display gptel chat buffers.
+
+The gptel buffer is displayed in a window using
+
+  (display-buffer BUFFER gptel-display-buffer-action)
+
+The value of this option has the form (FUNCTION . ALIST),
+where FUNCTION is a function or a list of functions.  Each such
+function should accept two arguments: a buffer to display and an
+alist of the same form as ALIST.  See info node `(elisp)Choosing
+Window' for details."
+  :type display-buffer--action-custom-type)
+
+(defcustom gptel-crowdsourced-prompts-file
+  (let ((cache-dir (or (eval-when-compile
+			 (require 'xdg)
+			 (xdg-cache-home))
+                       user-emacs-directory)))
+    (expand-file-name "gptel-crowdsourced-prompts.csv" cache-dir))
+  "File used to store crowdsourced system prompts.
+
+These are prompts cached from an online source (see
+`gptel--crowdsourced-prompts-url'), and can be set from the
+transient menu interface provided by `gptel-menu'."
+  :type 'file)
+
+;; Model and interaction parameters
+(defcustom gptel-directives
+  '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
+    (programming . "You are a large language model and a careful programmer. Provide code and only code as output without any additional text, prompt or note.")
+    (writing . "You are a large language model and a writing assistant. Respond concisely.")
+    (chat . "You are a large language model and a conversation partner. Respond concisely."))
+  "System prompts (directives) for the LLM.
+
+These are system instructions sent at the beginning of each
+request to the LLM.
+
+Each entry in this alist maps a symbol naming the directive to
+the string that is sent.  To set the directive for a chat session
+interactively call `gptel-send' with a prefix argument."
+  :safe #'always
+  :type '(alist :key-type symbol :value-type string))
+
+(defvar gptel--system-message (alist-get 'default gptel-directives)
+  "The system message used by gptel.")
+(put 'gptel--system-message 'safe-local-variable #'always)
+
+(defcustom gptel-max-tokens nil
+  "Max tokens per response.
+
+This is roughly the number of words in the response.  100-300 is a
+reasonable range for short answers, 400 or more for longer
+responses.
+
+To set the target token count for a chat session interactively
+call `gptel-send' with a prefix argument."
+  :safe #'always
+  :type '(choice (natnum :tag "Specify Token count")
+                 (const :tag "Default" nil)))
+
+(defcustom gptel-model 'gpt-4o-mini
+  "GPT Model for chat.
+
+The name of the model, as a symbol.  This is the name as expected
+by the LLM provider's API.
+
+The current options for ChatGPT are
+- `gpt-3.5-turbo'
+- `gpt-3.5-turbo-16k'
+- `gpt-4o-mini'
+- `gpt-4'
+- `gpt-4o'
+- `gpt-4-turbo'
+- `gpt-4-turbo-preview'
+- `gpt-4-32k'
+- `gpt-4-1106-preview'
+
+To set the model for a chat session interactively call
+`gptel-send' with a prefix argument."
+  :safe #'always
+  :type '(choice
+          (symbol :tag "Specify model name")
+          (const :tag "GPT 4 omni mini" gpt-4o-mini)
+          (const :tag "GPT 3.5 turbo" gpt-3.5-turbo)
+          (const :tag "GPT 3.5 turbo 16k" gpt-3.5-turbo-16k)
+          (const :tag "GPT 4" gpt-4)
+          (const :tag "GPT 4 omni" gpt-4o)
+          (const :tag "GPT 4 turbo" gpt-4-turbo)
+          (const :tag "GPT 4 turbo (preview)" gpt-4-turbo-preview)
+          (const :tag "GPT 4 32k" gpt-4-32k)
+          (const :tag "GPT 4 1106 (preview)" gpt-4-1106-preview)))
+
+(defcustom gptel-temperature 1.0
+  "\"Temperature\" of the LLM response.
+
+This is a number between 0.0 and 2.0 that controls the randomness
+of the response, with 2.0 being the most random.
+
+To set the temperature for a chat session interactively call
+`gptel-send' with a prefix argument."
+  :safe #'always
+  :type 'number)
+
+(defvar gptel--known-backends)
+
+(defconst gptel--openai-models
+  '((gpt-4o
+     :description "Advanced model for complex tasks; cheaper & faster than GPT-Turbo"
+     :capabilities (media tool json url)
+     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
+     :context-window 128
+     :input-cost 2.50
+     :output-cost 10
+     :cutoff-date "2023-10")
+    (gpt-4o-mini
+     :description "Cheap model for fast tasks; cheaper & more capable than GPT-3.5 Turbo"
+     :capabilities (media tool json url)
+     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
+     :context-window 128
+     :input-cost 0.15
+     :output-cost 0.60
+     :cutoff-date "2023-10")
+    (gpt-4-turbo
+     :description "Previous high-intelligence model"
+     :capabilities (media tool url)
+     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
+     :context-window 128
+     :input-cost 10
+     :output-cost 30
+     :cutoff-date "2023-12")
+    ;; points to gpt-4-0613
+    (gpt-4
+     :description "GPT-4 snapshot from June 2023 with improved function calling support"
+     :context-window 8.192
+     :input-cost 30
+     :output-cost 60
+     :cutoff-date "2023-09")
+    (gpt-4-turbo-preview
+     :description "Points to gpt-4-0125-preview"
+     :context-window 128
+     :input-cost 10
+     :output-cost 30
+     :cutoff-date "2023-12")
+    (gpt-4-0125-preview
+     :description "GPT-4 Turbo preview model intended to reduce cases of “laziness”"
+     :context-window 128
+     :input-cost 10
+     :output-cost 30
+     :cutoff-date "2023-12")
+    (o1-preview
+     :description "Reasoning model designed to solve hard problems across domains"
+     :context-window 128
+     :input-cost 15
+     :output-cost 60
+     :cutoff-date "2023-10"
+     :capabilities (nosystem)
+     :request-params (:stream :json-false))
+    (o1-mini
+     :description "Faster and cheaper reasoning model good at coding, math, and science"
+     :context-window 128
+     :input-cost 3
+     :output-cost 12
+     :cutoff-date "2023-10"
+     :capabilities (nosystem)
+     :request-params (:stream :json-false))
+    ;; limited information available
+    (gpt-4-32k
+     :input-cost 60
+     :output-cost 120)
+    (gpt-4-1106-preview
+     :description "Preview model with improved function calling support"
+     :context-window 128
+     :input-cost 10
+     :output-cost 30
+     :cutoff-date "2023-04")
+    (gpt-3.5-turbo
+     :description "More expensive & less capable than GPT-4o-mini; use that instead"
+     :capabilities (tool)
+     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
+     :context-window 16.358
+     :input-cost 0.50
+     :output-cost 1.50
+     :cutoff-date "2021-09")
+    (gpt-3.5-turbo-16k
+     :description "More expensive & less capable than GPT-4o-mini; use that instead"
+     :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
+     :context-window 16.385
+     :input-cost 3
+     :output-cost 4
+     :cutoff-date "2021-09"))
+  "List of available OpenAI models and associated properties.
+Keys:
+
+- `:description': a brief description of the model.
+
+- `:capabilities': a list of capabilities supported by the model.
+
+- `:mime-types': a list of supported MIME types for media files.
+
+- `:context-window': the context window size, in thousands of tokens.
+
+- `:input-cost': the input cost, in US dollars per million tokens.
+
+- `:output-cost': the output cost, in US dollars per million tokens.
+
+- `:cutoff-date': the knowledge cutoff date.
+
+- `:request-params': a plist of additional request parameters to
+  include when using this model.
+
+Information about the OpenAI models was obtained from the following
+sources:
+
+- <https://openai.com/pricing>
+- <https://platform.openai.com/docs/models>")
+
+(defvar gptel--openai
+  (gptel-make-openai
+      "ChatGPT"
+    :key 'gptel-api-key
+    :stream t
+    :models gptel--openai-models))
+
+(defcustom gptel-backend gptel--openai
+  "LLM backend to use.
+
+This is the default \"backend\", an object of type
+`gptel-backend' containing connection, authentication and model
+information.
+
+A backend for ChatGPT is pre-defined by gptel.  Backends for
+other LLM providers (local or remote) may be constructed using
+one of the available backend creation functions:
+- `gptel-make-openai'
+- `gptel-make-azure'
+- `gptel-make-ollama'
+- `gptel-make-gpt4all'
+- `gptel-make-gemini'
+See their documentation for more information and the package
+README for examples."
+  :safe #'always
+  :type `(choice
+          (const :tag "ChatGPT" ,gptel--openai)
+          (restricted-sexp :match-alternatives (gptel-backend-p 'nil)
+			   :tag "Other backend")))
+
+(defvar gptel-expert-commands nil
+  "Whether experimental gptel options should be enabled.
+
+This opens up advanced options in `gptel-menu'.")
+
+(defvar-local gptel--bounds nil)
+(put 'gptel--bounds 'safe-local-variable #'always)
+
+(defvar gptel--num-messages-to-send nil)
+(put 'gptel--num-messages-to-send 'safe-local-variable #'always)
+
+(defcustom gptel-log-level nil
+  "Logging level for gptel.
+
+This is one of nil or the symbols info and debug:
+
+nil: Don't log responses
+info: Log request and response bodies
+debug: Log request/response bodies, headers and all other
+       connection settings.
+
+When non-nil, information is logged to `gptel--log-buffer-name',
+which see."
+  :type '(choice
+          (const :tag "No logging" nil)
+          (const :tag "Limited" info)
+          (const :tag "Full" debug)))
+(make-obsolete-variable
+ 'gptel--debug 'gptel-log-level "0.6.5")
+
+(defcustom gptel-track-response t
+  "Distinguish between user messages and LLM responses.
+
+When creating a prompt to send to the LLM, gptel distinguishes
+between text entered by the user and past LLM responses.  This
+distinction is necessary for back-and-forth conversation with an
+LLM.
+
+In regular Emacs buffers you can turn this behavior off by
+setting `gptel-track-response' to nil.  All text, including
+past LLM responses, is then treated as user input when sending
+queries.
+
+This variable has no effect in dedicated chat buffers (buffers
+with `gptel-mode' enabled), where user prompts and responses are
+always handled separately."
+  :type 'boolean)
+
+(defcustom gptel-track-media nil
+  "Whether supported media in chat buffers should be sent.
+
+When the active `gptel-model' supports it, gptel can send images
+or other media from links in chat buffers to the LLM.  To use
+this, the following steps are required.
+
+1. `gptel-track-media' (this variable) should be non-nil
+
+2. The LLM should provide vision or document support.  Currently,
+only the OpenAI, Anthropic and Ollama APIs are supported.  See
+the documentation of `gptel-make-openai', `gptel-make-anthropic'
+and `gptel-make-ollama' resp. for details on how to specify media
+support for models.
+
+3. Only \"standalone\" links in chat buffers are considered.
+These are links on their own line with no surrounding text.
+Further:
+
+- In Org mode, only files or URLs of the form
+  [[/path/to/media][bracket links]] and <angle/link/path>
+  are sent.
+
+- In Markdown mode, only files or URLS of the form
+  [bracket link](/path/to/media) and <angle/link/path>
+  are sent.
+
+This option has no effect in non-chat buffers.  To include
+media (including images) more generally, use `gptel-add'."
+  :type 'boolean)
+
+(defcustom gptel-use-context 'system
+  "Where in the request to inject gptel's additional context.
+
+gptel always includes the active region or the buffer up to the
+cursor in the request to the LLM.  Additionally, you can add
+other buffers or their regions to the context with
+`gptel-add-context', or from gptel's menu.  This data will be
+sent with every request.
+
+This option controls whether and where this additional context is
+included in the request.
+
+Currently supported options are:
+
+    nil     - Do not use the context.
+    system  - Include the context with the system message.
+    user    - Include the context with the user prompt."
+  :group 'gptel
+  :type '(choice
+          (const :tag "Don't include context" nil)
+          (const :tag "With system message" system)
+          (const :tag "With user prompt" user)))
+
+(defvar-local gptel--old-header-line nil)
+
+(defvar gptel-context--alist nil
+  "List of gptel's context sources.
+
+Each entry is of the form
+ (buffer . (overlay1 overlay2 ...))
+or
+ (\"path/to/file\").")
+
+
+;;; Utility functions
+
+(defun gptel-api-key-from-auth-source (&optional host user)
+  "Lookup api key in the auth source.
+By default, the LLM host for the active backend is used as HOST,
+and \"apikey\" as USER."
+  (if-let ((secret
+            (plist-get
+             (car (auth-source-search
+                   :host (or host (gptel-backend-host gptel-backend))
+                   :user (or user "apikey")
+                   :require '(:secret)))
+                              :secret)))
+      (if (functionp secret)
+          (encode-coding-string (funcall secret) 'utf-8)
+        secret)
+    (user-error "No `gptel-api-key' found in the auth source")))
+
+;; FIXME Should we utf-8 encode the api-key here?
+(defun gptel--get-api-key (&optional key)
+  "Get api key from KEY, or from `gptel-api-key'."
+  (when-let ((key-sym (or key (gptel-backend-key gptel-backend))))
+    (cl-typecase key-sym
+      (function (funcall key-sym))
+      (string key-sym)
+      (symbol (if-let ((val (symbol-value key-sym)))
+                  (gptel--get-api-key
+                   (symbol-value key-sym))
+                (error "`gptel-api-key' is not valid")))
+      (t (error "`gptel-api-key' is not valid")))))
+
+(defsubst gptel--to-number (val)
+  "Ensure VAL is a number."
+  (cond
+   ((numberp val) val)
+   ((stringp val) (string-to-number val))
+   ((error "%S cannot be converted to a number" val))))
+
+(defsubst gptel--to-string (s)
+  "Convert S to a string, if possible."
+  (cl-etypecase s
+    (symbol (symbol-name s))
+    (string s)
+    (number (number-to-string s))))
+
+(defsubst gptel--intern (s)
+  "Intern S, if possible."
+  (cl-etypecase s
+    (symbol s)
+    (string (intern s))))
+
+(defun gptel--merge-plists (&rest plists)
+  "Merge PLISTS, altering the first one.
+
+Later plists in the sequence take precedence over earlier ones."
+  (let (;; (rtn (copy-sequence (pop plists)))
+        (rtn (pop plists))
+        p v ls)
+    (while plists
+      (setq ls (pop plists))
+      (while ls
+        (setq p (pop ls) v (pop ls))
+        (setq rtn (plist-put rtn p v))))
+    rtn))
+(defun gptel-auto-scroll ()
+  "Scroll window if LLM response continues below viewport.
+
+Note: This will move the cursor."
+  (when-let ((win (get-buffer-window (current-buffer) 'visible))
+             ((not (pos-visible-in-window-p (point) win)))
+             (scroll-error-top-bottom t))
+    (condition-case nil
+        (with-selected-window win
+          (scroll-up-command))
+      (error nil))))
+
+(defun gptel-beginning-of-response (&optional _ _ arg)
+  "Move point to the beginning of the LLM response ARG times."
+  (interactive "p")
+  ;; FIXME: Only works for arg == 1
+  (gptel-end-of-response nil nil (- (or arg 1))))
+
+(defun gptel-end-of-response (&optional _ _ arg)
+  "Move point to the end of the LLM response ARG times."
+  (interactive (list nil nil
+                     (prefix-numeric-value current-prefix-arg)))
+  (unless arg (setq arg 1))
+  (let ((search (if (> arg 0)
+                    #'text-property-search-forward
+                  #'text-property-search-backward)))
+    (dotimes (_ (abs arg))
+      (funcall search 'gptel 'response t)
+      (if (> arg 0)
+          (when (looking-at (concat "\n\\{1,2\\}"
+                                    (regexp-quote
+                                     (gptel-prompt-prefix-string))
+                                    "?"))
+            (goto-char (match-end 0)))
+        (when (looking-back (concat (regexp-quote
+                                     (gptel-response-prefix-string))
+                                    "?")
+                            (point-min))
+          (goto-char (match-beginning 0)))))))
+
+(defmacro gptel--at-word-end (&rest body)
+  "Execute BODY at end of the current word or punctuation."
+  `(save-excursion
+     (skip-syntax-forward "w.")
+     ,(macroexp-progn body)))
+
+(defun gptel-prompt-prefix-string ()
+  "Prefix before user prompts in `gptel-mode'."
+  (or (alist-get major-mode gptel-prompt-prefix-alist) ""))
+
+(defun gptel-response-prefix-string ()
+  "Prefix before LLM responses in `gptel-mode'."
+  (or (alist-get major-mode gptel-response-prefix-alist) ""))
+
+(defsubst gptel--trim-prefixes (s)
+  "Remove prompt/response prefixes from string S."
+  (string-trim s
+   (format "[\t\r\n ]*\\(?:%s\\)?[\t\r\n ]*"
+             (regexp-quote (gptel-prompt-prefix-string)))
+   (format "[\t\r\n ]*\\(?:%s\\)?[\t\r\n ]*"
+           (regexp-quote (gptel-response-prefix-string)))))
+
+(defsubst gptel--link-standalone-p (beg end)
+  "Return non-nil if positions BEG and END are isolated.
+
+This means the extent from BEG to END is the only non-whitespace
+content on this line."
+  (save-excursion
+    (and (= beg (progn (goto-char beg) (beginning-of-line)
+                       (skip-chars-forward "\t ")
+                       (point)))
+         (= end (progn (goto-char end) (end-of-line)
+                       (skip-chars-backward "\t ")
+                       (point))))))
+
+(defvar-local gptel--backend-name nil
+  "Store to persist backend name across Emacs sessions.
+
+Note: Changing this variable does not affect gptel\\='s behavior
+in any way.")
+(put 'gptel--backend-name 'safe-local-variable #'always)
+
+;;;; Model interface
+;; NOTE: This interface would be simpler to implement as a defstruct.  But then
+;; users cannot set `gptel-model' to a symbol/string directly, or we'd need
+;; another map from these symbols to the actual model structs.
+
+(defsubst gptel--model-name (model)
+  "Get name of gptel MODEL."
+  (gptel--to-string model))
+
+(defsubst gptel--model-capabilities (model)
+  "Get MODEL capabilities."
+  (get model :capabilities))
+
+(defsubst gptel--model-mimes (model)
+  "Get supported mime-types for MODEL."
+  (get model :mime-types))
+
+(defsubst gptel--model-capable-p (cap &optional model)
+  "Return non-nil if MODEL supports capability CAP."
+  (memq cap (gptel--model-capabilities
+             (or model gptel-model))))
+
+;; TODO Handle model mime specifications like "image/*"
+(defsubst gptel--model-mime-capable-p (mime &optional model)
+  "Return non nil if MODEL can understand MIME type."
+  (car-safe (member mime (gptel--model-mimes
+                        (or model gptel-model)))))
+
+(defsubst gptel--model-request-params (model)
+  "Get model-specific request parameters for MODEL."
+  (get model :request-params))
+
+;;;; File handling
+(defun gptel--base64-encode (file)
+  "Encode FILE as a base64 string.
+
+FILE is assumed to exist and be a regular file."
+  (with-temp-buffer
+    (insert-file-contents-literally file)
+    (base64-encode-region (point-min) (point-max)
+                          :no-line-break)
+    (buffer-string)))
+
+;;;; Response text recognition
+
+(defun gptel--get-buffer-bounds ()
+  "Return the gptel response boundaries in the buffer as an alist."
+  (save-excursion
+    (save-restriction
+      (widen)
+      (goto-char (point-max))
+      (let ((prop) (bounds))
+        (while (setq prop (text-property-search-backward
+                           'gptel 'response t))
+          (push (cons (prop-match-beginning prop)
+                      (prop-match-end prop))
+                bounds))
+        bounds))))
+
+(defun gptel--get-bounds ()
+  "Return the gptel response boundaries around point."
+  (let (prop)
+    (save-excursion
+      (when (text-property-search-backward
+             'gptel 'response t)
+        (when (setq prop (text-property-search-forward
+                          'gptel 'response t))
+          (cons (prop-match-beginning prop)
+                      (prop-match-end prop)))))))
+
+(defun gptel--in-response-p (&optional pt)
+  "Check if position PT is inside a gptel response."
+  (get-char-property (or pt (point)) 'gptel))
+
+(defun gptel--at-response-history-p (&optional pt)
+  "Check if gptel response at position PT has variants."
+  (get-char-property (or pt (point)) 'gptel-history))
+
+(defvar gptel--mode-description-alist
+  '((js2-mode      . "Javascript")
+    (sh-mode       . "Shell")
+    (enh-ruby-mode . "Ruby")
+    (yaml-mode     . "Yaml")
+    (yaml-ts-mode  . "Yaml")
+    (rustic-mode   . "Rust"))
+  "Mapping from unconventionally named major modes to languages.
+
+This is used when generating system prompts for rewriting and
+when including context from these major modes.")
+
+(defun gptel--strip-mode-suffix (mode-sym)
+  "Remove the -mode suffix from MODE-SYM.
+
+MODE-SYM is typically a major-mode symbol."
+  (or (alist-get mode-sym gptel--mode-description-alist)
+      (let ((mode-name (thread-last
+                         (symbol-name mode-sym)
+                         (string-remove-suffix "-mode")
+                         (string-remove-suffix "-ts"))))
+        (if (provided-mode-derived-p
+             mode-sym 'prog-mode 'text-mode 'tex-mode)
+            mode-name ""))))
+
+
+;;; Logging
+
+(defconst gptel--log-buffer-name "*gptel-log*"
+  "Log buffer for gptel.")
+
+(declare-function json-pretty-print "json")
+
+(defun gptel--log (data &optional type no-json)
+  "Log DATA to `gptel--log-buffer-name'.
+
+TYPE is a label for data being logged.  DATA is assumed to be
+Valid JSON unless NO-JSON is t."
+  (with-current-buffer (get-buffer-create gptel--log-buffer-name)
+    (let ((p (goto-char (point-max))))
+      (unless (bobp) (insert "\n"))
+      (insert (format "{\"gptel\": \"%s\", " (or type "none"))
+              (format-time-string "\"timestamp\": \"%Y-%m-%d %H:%M:%S\"}\n")
+              data)
+      (unless no-json (ignore-errors (json-pretty-print p (point)))))))
+
+
+;;; Saving and restoring state
+
+(defun gptel--restore-state ()
+  "Restore gptel state when turning on `gptel-mode'."
+  (when (buffer-file-name)
+    (if (derived-mode-p 'org-mode)
+        (progn
+          (require 'gptel-org)
+          (gptel-org--restore-state))
+      (when gptel--bounds
+        (mapc (pcase-lambda (`(,beg . ,end))
+                (put-text-property beg end 'gptel 'response))
+              gptel--bounds)
+        (message "gptel chat restored."))
+      (when gptel--backend-name
+        (if-let ((backend (alist-get
+                           gptel--backend-name gptel--known-backends
+                           nil nil #'equal)))
+            (setq-local gptel-backend backend)
+          (message
+           (substitute-command-keys
+            (concat
+             "Could not activate gptel backend \"%s\"!  "
+             "Switch backends with \\[universal-argument] \\[gptel-send]"
+             " before using gptel."))
+           gptel--backend-name))))))
+
+(defun gptel--save-state ()
+  "Write the gptel state to the buffer.
+
+This saves chat metadata when writing the buffer to disk.  To
+restore a chat session, turn on `gptel-mode' after opening the
+file."
+  (run-hooks 'gptel-save-state-hook)
+  (if (derived-mode-p 'org-mode)
+      (progn
+        (require 'gptel-org)
+        (gptel-org--save-state))
+    (let ((print-escape-newlines t))
+      (save-excursion
+        (save-restriction
+          (add-file-local-variable 'gptel-model gptel-model)
+          (add-file-local-variable 'gptel--backend-name
+                                   (gptel-backend-name gptel-backend))
+          (unless (equal (default-value 'gptel-temperature) gptel-temperature)
+            (add-file-local-variable 'gptel-temperature gptel-temperature))
+          (unless (string= (default-value 'gptel--system-message)
+                           gptel--system-message)
+            (add-file-local-variable 'gptel--system-message gptel--system-message))
+          (when gptel-max-tokens
+            (add-file-local-variable 'gptel-max-tokens gptel-max-tokens))
+          (when (natnump gptel--num-messages-to-send)
+            (add-file-local-variable 'gptel--num-messages-to-send
+                                     gptel--num-messages-to-send))
+          (add-file-local-variable 'gptel--bounds (gptel--get-buffer-bounds)))))))
+
+
+;;; Minor mode and UI
+
+;; NOTE: It's not clear that this is the best strategy:
+(add-to-list 'text-property-default-nonsticky '(gptel . t))
+
+;;;###autoload
+(define-minor-mode gptel-mode
+  "Minor mode for interacting with LLMs."
+  :lighter " GPT"
+  :keymap
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c RET") #'gptel-send)
+    map)
+  (if gptel-mode
+      (progn
+        (unless (or (derived-mode-p 'org-mode 'markdown-mode)
+                    (eq major-mode 'text-mode))
+          (gptel-mode -1)
+          (user-error (format "`gptel-mode' is not supported in `%s'." major-mode)))
+        (add-hook 'before-save-hook #'gptel--save-state nil t)
+        (gptel--restore-state)
+        (if gptel-use-header-line
+          (setq gptel--old-header-line header-line-format
+                header-line-format
+                (list '(:eval (concat (propertize " " 'display '(space :align-to 0))
+                               (format "%s" (gptel-backend-name gptel-backend))))
+                      (propertize " Ready" 'face 'success)
+                      '(:eval
+                        (let* ((model (gptel--model-name gptel-model))
+                              (system
+                               (propertize
+                                (buttonize
+                                 (format "[Prompt: %s]"
+                                  (or (car-safe (rassoc gptel--system-message gptel-directives))
+                                   (truncate-string-to-width gptel--system-message 15 nil nil t)))
+                                 (lambda (&rest _) (gptel-system-prompt)))
+                                'mouse-face 'highlight
+                                'help-echo "System message for session"))
+                              (context
+                               (and gptel-context--alist
+                                (cl-loop for entry in gptel-context--alist
+                                 if (bufferp (car entry)) count it into bufs
+                                 else count (stringp (car entry)) into files
+                                 finally return
+                                 (propertize
+                                  (buttonize
+                                   (concat "[Context: "
+                                    (and (> bufs 0) (format "%d buf" bufs))
+                                    (and (> bufs 1) "s")
+                                    (and (> bufs 0) (> files 0) ", ")
+                                    (and (> files 0) (format "%d file" files))
+                                    (and (> files 1) "s")
+                                    "]")
+                                   (lambda (&rest _)
+                                     (require 'gptel-context)
+                                     (gptel-context--buffer-setup)))
+                                  'mouse-face 'highlight
+                                  'help-echo "Active gptel context"))))
+                              (toggle-track-media
+                               (lambda (&rest _)
+                                 (setq-local gptel-track-media
+                                  (not gptel-track-media))
+                                 (if gptel-track-media
+                                     (message
+                                      (concat
+                                       "Sending media from included links.  To include media, create "
+                                       "a \"standalone\" link in a paragraph by itself, separated from surrounding text."))
+                                   (message "Ignoring image links.  Only link text will be sent."))
+                                 (run-at-time 0 nil #'force-mode-line-update)))
+                              (track-media
+                               (and (gptel--model-capable-p 'media)
+                                (if gptel-track-media
+                                    (propertize
+                                     (buttonize "[Sending media]" toggle-track-media)
+                                     'mouse-face 'highlight
+                                     'help-echo
+                                     "Sending media from standalone links/urls when supported.\nClick to toggle")
+                                  (propertize
+                                     (buttonize "[Ignoring media]" toggle-track-media)
+                                     'mouse-face 'highlight
+                                     'help-echo
+                                     "Ignoring images from standalone links/urls.\nClick to toggle")))))
+                         (concat
+                          (propertize
+                           " " 'display
+                           `(space :align-to (- right ,(+ 5 (length model) (length system)
+                                                        (length track-media) (length context)))))
+                          track-media (and context " ") context " " system " "
+                          (propertize
+                           (buttonize (concat "[" model "]")
+                            (lambda (&rest _) (gptel-menu)))
+                           'mouse-face 'highlight
+                           'help-echo "GPT model in use"))))))
+          (setq mode-line-process
+                '(:eval (concat " "
+                         (buttonize (gptel--model-name gptel-model)
+                            (lambda (&rest _) (gptel-menu))))))))
+    (remove-hook 'before-save-hook #'gptel--save-state t)
+    (if gptel-use-header-line
+        (setq header-line-format gptel--old-header-line
+              gptel--old-header-line nil)
+      (setq mode-line-process nil))))
+
+(defun gptel--update-status (&optional msg face)
+  "Update status MSG in FACE."
+  (when gptel-mode
+    (if gptel-use-header-line
+        (and (consp header-line-format)
+           (setf (nth 1 header-line-format)
+                 (propertize msg 'face face)))
+      (if (member msg '(" Typing..." " Waiting..."))
+          (setq mode-line-process (propertize msg 'face face))
+        (setq mode-line-process
+              '(:eval (concat " "
+                       (buttonize (gptel--model-name gptel-model)
+                            (lambda (&rest _) (gptel-menu))))))
+        (message (propertize msg 'face face))))
+    (force-mode-line-update)))
+
+(declare-function gptel-context--wrap "gptel-context")
+
+
+;;; Send queries, handle responses
+(cl-defun gptel-request
+    (&optional prompt &key callback
+               (buffer (current-buffer))
+               position context dry-run
+               (stream nil) (in-place nil)
+               (system gptel--system-message))
+  "Request a response from the `gptel-backend' for PROMPT.
+
+The request is asynchronous, the function immediately returns
+with the data that was sent.
+
+Note: This function is not fully self-contained.  Consider
+let-binding the parameters `gptel-backend' and `gptel-model'
+around calls to it as required.
+
+If PROMPT is
+- a string, it is used to create a full prompt suitable for
+  sending to the LLM.
+- nil but region is active, the region contents are used.
+- nil, the current buffer's contents up to (point) are used.
+  Previous responses from the LLM are identified as responses.
+- A list of plists, it is used as is.
+
+Keyword arguments:
+
+CALLBACK, if supplied, is a function of two arguments, called
+with the RESPONSE (a string) and INFO (a plist):
+
+ (callback RESPONSE INFO)
+
+RESPONSE is nil if there was no response or an error.
+
+The INFO plist has (at least) the following keys:
+:data         - The request data included with the query
+:position     - marker at the point the request was sent, unless
+                POSITION is specified.
+:buffer       - The buffer current when the request was sent,
+                unless BUFFER is specified.
+:status       - Short string describing the result of the request
+
+Example of a callback that messages the user with the response
+and info:
+
+ (lambda (response info)
+  (if response
+      (let ((posn (marker-position (plist-get info :position)))
+            (buf  (buffer-name (plist-get info :buffer))))
+        (message \"Response for request from %S at %d: %s\"
+                 buf posn response))
+    (message \"gptel-request failed with message: %s\"
+             (plist-get info :status))))
+
+Or, for just the response:
+
+ (lambda (response _)
+  ;; Do something with response
+  (message (rot13-string response)))
+
+If CALLBACK is omitted, the response is inserted at the point the
+request was sent.
+
+BUFFER and POSITION are the buffer and position (integer or
+marker) at which the response is inserted.  If a CALLBACK is
+specified, no response is inserted and these arguments are
+ignored, but they are still available in the INFO plist passed
+to CALLBACK for you to use.
+
+BUFFER defaults to the current buffer, and POSITION to the value
+of (point) or (region-end), depending on whether the region is
+active.
+
+CONTEXT is any additional data needed for the callback to run. It
+is included in the INFO argument to the callback.
+
+SYSTEM is the system message (chat directive) sent to the LLM. If
+omitted, the value of `gptel--system-message' for the current
+buffer is used.
+
+The following keywords are mainly for internal use:
+
+IN-PLACE is a boolean used by the default callback when inserting
+the response to determine if delimiters are needed between the
+prompt and the response.
+
+STREAM is a boolean that determines if the response should be
+streamed, as in `gptel-stream'. Do not set this if you are
+specifying a custom CALLBACK!
+
+If DRY-RUN is non-nil, construct and return the full
+query data as usual, but do not send the request.
+
+Model parameters can be let-bound around calls to this function."
+  (declare (indent 1))
+  ;; TODO Remove this check in version 1.0
+  (gptel--sanitize-model)
+  (let* ((gptel--system-message
+          ;Add context chunks to system message if required
+          (if (and gptel-context--alist
+                   (eq gptel-use-context 'system)
+                   (not (gptel--model-capable-p 'nosystem)))
+              (gptel-context--wrap system)
+            system))
+         (gptel-stream stream)
+         (start-marker
+          (cond
+           ((null position)
+            (if (use-region-p)
+                (set-marker (make-marker) (region-end))
+              (gptel--at-word-end (point-marker))))
+           ((markerp position) position)
+           ((integerp position)
+            (set-marker (make-marker) position buffer))))
+         (full-prompt
+          (cond
+           ((null prompt)
+            (gptel--create-prompt start-marker))
+           ((stringp prompt)
+            ;; FIXME Dear reader, welcome to Jank City:
+            (with-temp-buffer
+              (let ((gptel-model (buffer-local-value 'gptel-model buffer))
+                    (gptel-backend (buffer-local-value 'gptel-backend buffer)))
+                (insert prompt)
+                (gptel--create-prompt))))
+           ((consp prompt) prompt)))
+         (request-data (gptel--request-data gptel-backend full-prompt))
+         (info (list :data request-data
+                     :buffer buffer
+                     :position start-marker)))
+    ;; This context should not be confused with the context aggregation context!
+    (when context (plist-put info :context context))
+    (when in-place (plist-put info :in-place in-place))
+    (unless dry-run
+      (funcall (if gptel-use-curl
+                   #'gptel-curl-get-response #'gptel--url-get-response)
+               info callback))
+    request-data))
+
+;; TODO: Handle multiple requests(#15). (Only one request from one buffer at a time?)
+;;;###autoload
+(defun gptel-send (&optional arg)
+  "Submit this prompt to the current LLM backend.
+
+By default, the contents of the buffer up to the cursor position
+are sent.  If the region is active, its contents are sent
+instead.
+
+The response from the LLM is inserted below the cursor position
+at the time of sending.  To change this behavior or model
+parameters, use prefix arg ARG activate a transient menu with
+more options instead.
+
+This command is asynchronous, you can continue to use Emacs while
+waiting for the response."
+  (interactive "P")
+  (if (and arg (require 'gptel-transient nil t))
+      (call-interactively #'gptel-menu)
+  (message "Querying %s..." (gptel-backend-name gptel-backend))
+  (gptel--sanitize-model)
+  (gptel-request nil :stream gptel-stream)
+  (gptel--update-status " Waiting..." 'warning)))
+
+(declare-function json-pretty-print-buffer "json")
+(defun gptel--inspect-query (request-data &optional arg)
+  "Show REQUEST-DATA, the full LLM query to be sent, in a buffer.
+
+This functions as a dry run of `gptel-send'.  If ARG is
+the symbol json, show the encoded JSON query instead of the Lisp
+structure gptel uses."
+  (with-current-buffer (get-buffer-create "*gptel-query*")
+    (let ((standard-output (current-buffer))
+          (inhibit-read-only t))
+      (buffer-disable-undo)
+      (erase-buffer)
+      (if (eq arg 'json)
+          (progn (fundamental-mode)
+                 (insert (gptel--json-encode request-data))
+                 (json-pretty-print-buffer))
+        (lisp-data-mode)
+        (prin1 request-data)
+        (pp-buffer))
+      (goto-char (point-min))
+      (view-mode 1)
+      (display-buffer (current-buffer) gptel-display-buffer-action))))
+
+(defun gptel--insert-response (response info)
+  "Insert the LLM RESPONSE into the gptel buffer.
+
+INFO is a plist containing information relevant to this buffer.
+See `gptel--url-get-response' for details."
+  (let* ((status-str  (plist-get info :status))
+         (gptel-buffer (plist-get info :buffer))
+         (start-marker (plist-get info :position))
+         response-beg response-end)
+    ;; Handle read-only buffers
+    (when (with-current-buffer gptel-buffer
+            (or buffer-read-only
+                (get-char-property start-marker 'read-only)))
+      (message "Buffer is read only, displaying reply in buffer \"*LLM response*\"")
+      (display-buffer
+       (with-current-buffer (get-buffer-create "*LLM response*")
+         (visual-line-mode 1)
+         (goto-char (point-max))
+         (move-marker start-marker (point) (current-buffer))
+         (current-buffer))
+       '((display-buffer-reuse-window
+          display-buffer-pop-up-window)
+         (reusable-frames . visible))))
+    ;; Insert response and status message/error message
+    (with-current-buffer gptel-buffer
+      (if response
+          (progn
+            (setq response (gptel--transform-response
+                               response gptel-buffer))
+            (save-excursion
+              (put-text-property
+               0 (length response) 'gptel 'response response)
+              (with-current-buffer (marker-buffer start-marker)
+                (goto-char start-marker)
+                (run-hooks 'gptel-pre-response-hook)
+                (unless (or (bobp) (plist-get info :in-place))
+                  (insert "\n\n")
+                  (when gptel-mode
+                    (insert (gptel-response-prefix-string))))
+                (setq response-beg (point)) ;Save response start position
+                (insert response)
+                (setq response-end (point))
+                (pulse-momentary-highlight-region response-beg response-end)
+                (when gptel-mode (insert "\n\n" (gptel-prompt-prefix-string)))) ;Save response end position
+              (when gptel-mode (gptel--update-status " Ready" 'success))))
+        (gptel--update-status
+         (format " Response Error: %s" status-str) 'error)
+        (message "gptel response error: (%s) %s"
+                 status-str (plist-get info :error))))
+    ;; Run hook in visible window to set window-point, BUG #269
+    (if-let ((gptel-window (get-buffer-window gptel-buffer 'visible)))
+        (with-selected-window gptel-window
+          (run-hook-with-args 'gptel-post-response-functions response-beg response-end))
+      (with-current-buffer gptel-buffer
+        (run-hook-with-args 'gptel-post-response-functions response-beg response-end)))))
+
+(defun gptel--create-prompt (&optional prompt-end)
+  "Return a full conversation prompt from the contents of this buffer.
+
+If `gptel--num-messages-to-send' is set, limit to that many
+recent exchanges.
+
+If the region is active limit the prompt to the region contents
+instead.
+
+If `gptel-context--alist' is non-nil and the additional
+context needs to be included with the user prompt, add it.
+
+If PROMPT-END (a marker) is provided, end the prompt contents
+there."
+  (save-excursion
+    (save-restriction
+      (let* ((max-entries (and gptel--num-messages-to-send
+                               (* 2 gptel--num-messages-to-send)))
+             (prompt-end (or prompt-end (point-max)))
+             (prompts
+              (cond
+               ((use-region-p)
+                ;; Narrow to region
+                (narrow-to-region (region-beginning) (region-end))
+                (goto-char (point-max))
+                (gptel--parse-buffer gptel-backend max-entries))
+               ((derived-mode-p 'org-mode)
+                (require 'gptel-org)
+                (goto-char prompt-end)
+                (gptel-org--create-prompt prompt-end))
+               (t (goto-char prompt-end)
+                  (gptel--parse-buffer gptel-backend max-entries)))))
+        ;; NOTE: prompts is modified in place here
+        (when gptel-context--alist
+          ;; Inject context chunks into the last user prompt if required.
+          ;; This is also the fallback for when `gptel-use-context' is set to
+          ;; 'system but the model does not support system messages.
+          (when (and gptel-use-context
+                     (or (eq gptel-use-context 'user)
+                         (gptel--model-capable-p 'nosystem))
+                     (> (length prompts) 0)) ;FIXME context should be injected
+                                             ;even when there are no prompts
+            (gptel--wrap-user-prompt gptel-backend prompts))
+          ;; Inject media chunks into the first user prompt if required.  Media
+          ;; chunks are always included with the first user message,
+          ;; irrespective of the preference in `gptel-use-context'.  This is
+          ;; because media cannot be included (in general) with system messages.
+          (when (and gptel-use-context gptel-track-media
+                     (gptel--model-capable-p 'media))
+            (gptel--wrap-user-prompt gptel-backend prompts :media)))
+        prompts))))
+
+(cl-defgeneric gptel--parse-buffer (backend max-entries)
+  "Parse current buffer backwards from point and return a list of prompts.
+
+BACKEND is the LLM backend in use.
+
+MAX-ENTRIES is the number of queries/responses to include for
+contexbt.")
+
+(cl-defgeneric gptel--parse-media-links (mode beg end)
+  "Find media links between BEG and END.
+
+MODE is the major-mode of the buffer.
+
+Returns a plist where each entry is of the form
+  (:text \"some text\")
+or
+  (:media \"media uri or file path\")."
+  (ignore mode)                         ;byte-compiler
+  (list `(:text ,(buffer-substring-no-properties
+                  beg end))))
+
+(defvar markdown-regex-link-inline)
+(defvar markdown-regex-angle-uri)
+(declare-function markdown-link-at-pos "markdown-mode")
+(declare-function mailcap-file-name-to-mime-type "mailcap")
+
+(cl-defmethod gptel--parse-media-links ((_mode (eql 'markdown-mode)) beg end)
+  "Parse text and actionable links between BEG and END.
+
+Return a list of the form
+ ((:text \"some text\")
+  (:media \"/path/to/media.png\" :mime \"image/png\")
+  (:text \"More text\"))
+for inclusion into the user prompt for the gptel request."
+  (require 'mailcap)                    ;FIXME Avoid this somehow
+  (let ((parts) (from-pt))
+    (save-excursion
+      (setq from-pt (goto-char beg))
+      (while (re-search-forward
+              (concat "\\(?:" markdown-regex-link-inline "\\|"
+                      markdown-regex-angle-uri "\\)")
+              end t)
+        (when-let* ((link-at-pt (markdown-link-at-pos (point)))
+                    ((gptel--link-standalone-p
+                      (car link-at-pt) (cadr link-at-pt)))
+                    (path (nth 3 link-at-pt))
+                    (path (string-remove-prefix "file://" path))
+                    (mime (mailcap-file-name-to-mime-type path))
+                    ((gptel--model-mime-capable-p mime)))
+          (cond
+           ((seq-some (lambda (p) (string-prefix-p p path))
+                      '("https:" "http:" "ftp:"))
+            ;; Collect text up to this image, and collect this image url
+            (when (gptel--model-capable-p 'url) ; FIXME This is not a good place
+                                                ; to check for url capability!
+              (push (list :text (buffer-substring-no-properties from-pt (car link-at-pt)))
+                    parts)
+              (push (list :url path :mime mime) parts)
+              (setq from-pt (cadr link-at-pt))))
+           ((file-readable-p path)
+            ;; Collect text up to this image, and collect this image
+            (push (list :text (buffer-substring-no-properties from-pt (car link-at-pt)))
+                  parts)
+            (push (list :media path :mime mime) parts)
+            (setq from-pt (cadr link-at-pt)))))))
+    (unless (= from-pt end)
+      (push (list :text (buffer-substring-no-properties from-pt end)) parts))
+    (nreverse parts)))
+
+(cl-defgeneric gptel--wrap-user-prompt (backend _prompts)
+  "Wrap the last prompt in PROMPTS with gptel's context.
+
+PROMPTS is a structure as returned by `gptel--parse-buffer'.
+Typically this is a list of plists.
+
+BACKEND is the gptel backend in use."
+  (display-warning
+   '(gptel context)
+   (format "Context support not implemented for backend %s, ignoring context"
+           (gptel-backend-name backend))))
+
+(cl-defgeneric gptel--request-data (backend prompts)
+  "Generate a plist of all data for an LLM query.
+
+BACKEND is the LLM backend in use.
+
+PROMPTS is the plist of previous user queries and LLM responses.")
+
+;; TODO: Use `run-hook-wrapped' with an accumulator instead to handle
+;; buffer-local hooks, etc.
+(defun gptel--transform-response (content-str buffer)
+  "Filter CONTENT-STR through `gptel-response-filter-functions`.
+
+BUFFER is passed along with CONTENT-STR to each function in this
+hook."
+  (let ((filtered-str content-str))
+    (dolist (filter-func gptel-response-filter-functions filtered-str)
+      (condition-case nil
+          (when (functionp filter-func)
+            (setq filtered-str
+                  (funcall filter-func filtered-str buffer)))
+        (error
+         (display-warning '(gptel filter-functions)
+                          (format "Function %S returned an error"
+                                  filter-func)))))))
+
+(defun gptel--convert-org (content buffer)
+  "Transform CONTENT according to required major-mode.
+
+Currently only `org-mode' is handled.
+
+BUFFER is the LLM interaction buffer."
+  (if (with-current-buffer buffer (derived-mode-p 'org-mode))
+      (gptel--convert-markdown->org content)
+    content))
+
+(defun gptel--url-get-response (info &optional callback)
+  "Fetch response to prompt in INFO from the LLM.
+
+INFO is a plist with the following keys:
+- :data     (the data being sent)
+- :buffer   (the gptel buffer)
+- :position (marker at which to insert the response).
+
+Call CALLBACK with the response and INFO afterwards.  If omitted
+the response is inserted into the current buffer after point."
+  (let* ((inhibit-message t)
+         (message-log-max nil)
+         (backend gptel-backend)
+         (url-request-method "POST")
+         (url-request-extra-headers
+          (append '(("Content-Type" . "application/json"))
+                  (when-let ((header (gptel-backend-header gptel-backend)))
+                    (if (functionp header)
+                        (funcall header) header))))
+        (url-request-data
+         (encode-coding-string
+          (gptel--json-encode (plist-get info :data))
+          'utf-8)))
+    ;; why do these checks not occur inside of `gptel--log'?
+    (when gptel-log-level               ;logging
+      (when (eq gptel-log-level 'debug)
+        (gptel--log (gptel--json-encode
+                     (mapcar (lambda (pair) (cons (intern (car pair)) (cdr pair)))
+                             url-request-extra-headers))
+                    "request headers"))
+      (gptel--log url-request-data "request body"))
+    (url-retrieve (let ((backend-url (gptel-backend-url gptel-backend)))
+                    (if (functionp backend-url)
+                        (funcall backend-url) backend-url))
+                  (lambda (_)
+                    (pcase-let ((`(,response ,http-msg ,error)
+                                 (gptel--url-parse-response backend (current-buffer))))
+                      (plist-put info :status http-msg)
+                      (when error (plist-put info :error error))
+                      (funcall (or callback #'gptel--insert-response)
+                               response info)
+                      (kill-buffer)))
+                  nil t nil)))
+
+(cl-defgeneric gptel--parse-response (backend response proc-info)
+  "Response extractor for LLM requests.
+
+BACKEND is the LLM backend in use.
+
+RESPONSE is the parsed JSON of the response, as a plist.
+
+PROC-INFO is a plist with process information and other context.
+See `gptel-curl--get-response' for its contents.")
+
+(defvar url-http-end-of-headers)
+(defvar url-http-response-status)
+(defun gptel--url-parse-response (backend response-buffer)
+  "Parse response from BACKEND in RESPONSE-BUFFER."
+  (when (buffer-live-p response-buffer)
+    (with-current-buffer response-buffer
+      (when gptel-log-level             ;logging
+        (save-excursion
+          (goto-char url-http-end-of-headers)
+          (when (eq gptel-log-level 'debug)
+            (gptel--log (gptel--json-encode (buffer-substring-no-properties (point-min) (point)))
+                        "response headers"))
+          (gptel--log (buffer-substring-no-properties (point) (point-max))
+                      "response body")))
+      (if-let* ((http-msg (string-trim (buffer-substring (line-beginning-position)
+                                                         (line-end-position))))
+                (response (progn (goto-char url-http-end-of-headers)
+                                 (condition-case nil
+                                     (gptel--json-read)
+                                   (error 'json-read-error)))))
+          (cond
+            ;; FIXME Handle the case where HTTP 100 is followed by HTTP (not 200) BUG #194
+           ((or (memq url-http-response-status '(200 100))
+                (string-match-p "\\(?:1\\|2\\)00 OK" http-msg))
+            (list (string-trim (gptel--parse-response backend response
+                                             `(:buffer ,response-buffer
+                                               :backend ,backend)))
+                   http-msg))
+           ((plist-get response :error)
+            (let* ((error-data (plist-get response :error))
+                   (error-msg (plist-get error-data :message))
+                   (error-type (plist-get error-data :type))
+                   (backend-name (gptel-backend-name backend)))
+              (if (stringp error-data)
+                  (progn
+		    (message "%s error: (%s) %s" backend-name http-msg error-data)
+                    (setq error-msg (string-trim error-data)))
+                (when (stringp error-msg)
+                  (message "%s error: (%s) %s" backend-name http-msg (string-trim error-msg)))
+                (when error-type
+		  (setq http-msg (concat "("  http-msg ") " (string-trim error-type)))))
+              (list nil (concat "(" http-msg ") " (or error-msg "")))))
+           ((eq response 'json-read-error)
+            (list nil (concat "(" http-msg ") Malformed JSON in response.") "json-read-error"))
+           (t (list nil (concat "(" http-msg ") Could not parse HTTP response.")
+                    "Could not parse HTTP response.")))
+        (list nil (concat "(" http-msg ") Could not parse HTTP response.")
+              "Could not parse HTTP response.")))))
+
+(cl-defun gptel--sanitize-model (&key (backend gptel-backend)
+                                      (model gptel-model)
+                                      (shoosh t))
+  "Check if MODEL is available in BACKEND, adjust accordingly.
+
+If SHOOSH is true, don't issue a warning."
+  (let ((available (gptel-backend-models backend)))
+    (when (stringp model)
+      (unless shoosh
+        (display-warning
+         'gptel
+         (format "`gptel-model' expects a symbol, found string \"%s\"
+   Resetting `gptel-model' to %s"
+                 model model)))
+      (setq gptel-model (gptel--intern model)
+            model gptel-model))
+    (unless (member model available)
+      (let ((fallback (car available)))
+        (unless shoosh
+          (display-warning
+           'gptel
+           (format (concat "Preferred `gptel-model' \"%s\" not"
+                           "supported in \"%s\", using \"%s\" instead")
+                   model (gptel-backend-name backend) fallback)))
+        (setq-local gptel-model fallback)))))
+
+;;;###autoload
+(defun gptel (name &optional _ initial interactivep)
+  "Switch to or start a chat session with NAME.
+
+Ask for API-KEY if `gptel-api-key' is unset.
+
+If region is active, use it as the INITIAL prompt.  Returns the
+buffer created or switched to.
+
+INTERACTIVEP is t when gptel is called interactively."
+  (interactive
+   (let* ((backend (default-value 'gptel-backend))
+          (backend-name
+           (format "*%s*" (gptel-backend-name backend))))
+     (list (read-buffer
+            "Create or choose gptel buffer: "
+            backend-name nil                         ; DEFAULT and REQUIRE-MATCH
+            (lambda (b)                                   ; PREDICATE
+              ;; NOTE: buffer check is required (#450)
+              (and-let* ((buf (get-buffer (or (car-safe b) b))))
+                (buffer-local-value 'gptel-mode buf))))
+           (condition-case nil
+               (gptel--get-api-key
+                (gptel-backend-key backend))
+             ((error user-error)
+              (setq gptel-api-key
+                    (read-passwd
+                     (format "%s API key: " backend-name)))))
+           (and (use-region-p)
+                (buffer-substring (region-beginning)
+                                  (region-end)))
+           t)))
+  (with-current-buffer (get-buffer-create name)
+    (cond ;Set major mode
+     ((eq major-mode gptel-default-mode))
+     ((eq gptel-default-mode 'text-mode)
+      (text-mode)
+      (visual-line-mode 1))
+     (t (funcall gptel-default-mode)))
+    (gptel--sanitize-model :backend (default-value 'gptel-backend)
+                           :model (default-value 'gptel-model)
+                           :shoosh nil)
+    (unless gptel-mode (gptel-mode 1))
+    (goto-char (point-max))
+    (skip-chars-backward "\t\r\n")
+    (if (bobp) (insert (or initial (gptel-prompt-prefix-string))))
+    (when interactivep
+      (display-buffer (current-buffer) gptel-display-buffer-action)
+      (message "Send your query with %s!"
+               (substitute-command-keys "\\[gptel-send]")))
+    (current-buffer)))
+
+
+;;; Response tweaking commands
+
+(defun gptel--attach-response-history (history &optional buf)
+  "Attach HISTORY to the next gptel response in buffer BUF.
+
+HISTORY is a list of strings typically containing text replaced
+by gptel.  BUF is the current buffer if not specified.
+
+This is used to maintain variants of prompts or responses to diff
+against if required."
+  (with-current-buffer (or buf (current-buffer))
+    (letrec ((gptel--attach-after
+              (lambda (b e)
+                (put-text-property b e 'gptel-history
+                                   (append (ensure-list history)
+                                           (get-char-property (1- e) 'gptel-history)))
+                (remove-hook 'gptel-post-response-functions
+                             gptel--attach-after 'local))))
+      (add-hook 'gptel-post-response-functions gptel--attach-after
+                nil 'local))))
+
+(defun gptel--ediff (&optional arg bounds-func)
+  "Ediff response at point against previous gptel responses.
+
+If prefix ARG is non-nil, select the previous response to ediff
+against interactively.
+
+If specified, use BOUNDS-FUNC to compute the bounds of the
+response at point.  This can be used to include additional
+context for the ediff session."
+  (interactive "P")
+  (when (gptel--at-response-history-p)
+    (pcase-let* ((`(,beg . ,end) (funcall (or bounds-func #'gptel--get-bounds)))
+                 (prev-response
+                  (if arg
+                      (completing-read "Choose response variant to diff against: "
+                                       (get-char-property (point) 'gptel-history)
+                                       nil t)
+                    (car-safe (get-char-property (point) 'gptel-history))))
+                 (buffer-mode major-mode)
+                 (bufname (buffer-name))
+                 (`(,new-buf ,new-beg ,new-end)
+                  (with-current-buffer
+                      (get-buffer-create (concat bufname "-PREVIOUS-*"))
+                    (let ((inhibit-read-only t))
+                      (erase-buffer)
+                      (delay-mode-hooks (funcall buffer-mode))
+                      (visual-line-mode)
+                      (insert prev-response)
+                      (goto-char (point-min))
+                      (list (current-buffer) (point-min) (point-max))))))
+      (unless prev-response (user-error "gptel response is additive: no changes to ediff"))
+      (require 'ediff)
+      (letrec ((cwc (current-window-configuration))
+               (gptel--ediff-restore
+                (lambda ()
+                  (when (window-configuration-p cwc)
+                    (set-window-configuration cwc))
+                  (kill-buffer (get-buffer (concat bufname "-PREVIOUS-*")))
+                  (kill-buffer (get-buffer (concat bufname "-CURRENT-*")))
+                  (remove-hook 'ediff-quit-hook gptel--ediff-restore))))
+        (add-hook 'ediff-quit-hook gptel--ediff-restore)
+        (apply
+         #'ediff-regions-internal
+         (get-buffer (ediff-make-cloned-buffer (current-buffer) "-CURRENT-*"))
+         beg end new-buf new-beg new-end
+         nil
+         (list 'ediff-regions-wordwise 'word-wise nil)
+         ;; (if (transient-arg-value "-w" args)
+         ;;     (list 'ediff-regions-wordwise 'word-wise nil)
+         ;;   (list 'ediff-regions-linewise nil nil))
+         )))))
+
+(defun gptel--mark-response ()
+  "Mark gptel response at point, if any."
+  (interactive)
+  (unless (gptel--in-response-p) (user-error "No gptel response at point"))
+  (pcase-let ((`(,beg . ,end) (gptel--get-bounds)))
+    (goto-char beg) (push-mark) (goto-char end) (activate-mark)))
+
+(defun gptel--previous-variant (&optional arg)
+  "Switch to previous gptel-response at this point, if it exists."
+  (interactive "p")
+  (pcase-let* ((`(,beg . ,end) (gptel--get-bounds))
+               (history (get-char-property (point) 'gptel-history))
+               (alt-response (car-safe history))
+               (offset))
+    (unless (and history alt-response)
+      (user-error "No variant responses available"))
+    (if (> arg 0)
+        (setq history (append (cdr history)
+                              (list (buffer-substring-no-properties beg end))))
+      (setq
+       alt-response (car (last history))
+       history (cons (buffer-substring-no-properties beg end)
+                     (nbutlast history))))
+    (add-text-properties
+             0 (length alt-response)
+             `(gptel response gptel-history ,history)
+             alt-response)
+    (setq offset (min (- (point) beg) (1- (length alt-response))))
+    (delete-region beg end)
+    (insert alt-response)
+    (goto-char (+ beg offset))
+    (pulse-momentary-highlight-region beg (+ beg (length alt-response)))))
+
+(defun gptel--next-variant (&optional arg)
+  "Switch to next gptel-response at this point, if it exists."
+  (interactive "p")
+  (gptel--previous-variant (- arg)))
+
+(provide 'gptel)
+;;; gptel.el ends here
+
+;; Local Variables:
+;; bug-reference-url-format: "https://github.com/karthink/gptel/issues/%s"
+;; End:
diff --git a/emacs/elpa/gptel-20241123.2058/gptel.elc b/emacs/elpa/gptel-20241123.2058/gptel.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-eslint.el b/emacs/elpa/lsp-mode-20241119.828/lsp-eslint.el
@@ -1,454 +0,0 @@
-;;; lsp-eslint.el --- lsp-mode eslint integration    -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2019  Ivan Yonchovski
-
-;; Author: Ivan Yonchovski <yyoncho@gmail.com>
-;; Keywords: languages
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;
-
-;;; Code:
-
-(require 'lsp-protocol)
-(require 'lsp-mode)
-
-(defconst lsp-eslint/status-ok 1)
-(defconst lsp-eslint/status-warn 2)
-(defconst lsp-eslint/status-error 3)
-
-(defgroup lsp-eslint nil
-  "ESLint language server group."
-  :group 'lsp-mode
-  :link '(url-link "https://github.com/microsoft/vscode-eslint"))
-
-(defcustom lsp-eslint-unzipped-path (f-join lsp-server-install-dir "eslint/unzipped")
-  "The path to the file in which `eslint' will be stored."
-  :type 'file
-  :group 'lsp-eslint
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-download-url "https://github.com/emacs-lsp/lsp-server-binaries/blob/master/dbaeumer.vscode-eslint-3.0.10.vsix?raw=true"
-  "ESLint language server download url."
-  :type 'string
-  :group 'lsp-eslint
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-eslint-server-command `("node"
-                                       "~/server/out/eslintServer.js"
-                                       "--stdio")
-  "Command to start ESLint server."
-  :risky t
-  :type '(repeat string)
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-enable t
-  "Controls whether ESLint is enabled for JavaScript files or not."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-package-manager "npm"
-  "The package manager you use to install node modules."
-  :type '(choice (const :tag "npm" "npm")
-                 (const :tag "yarn" "yarn")
-                 (const :tag "pnpm" "pnpm")
-                 (string :tag "other"))
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-format t
-  "Whether to perform format."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-node-path nil
-  "A path added to NODE_PATH when resolving the `eslint' module."
-  :type '(repeat string)
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-node "node"
-  "Path to Node.js."
-  :type 'file
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-options nil
-  "The ESLint options object to provide args normally passed to
-  `eslint' when executed from a command line (see
-  https://eslint.org/docs/latest/integrate/nodejs-api)."
-  :type 'alist)
-
-(defcustom lsp-eslint-experimental nil
-  "The eslint experimental configuration."
-  :type 'alist)
-
-(defcustom lsp-eslint-config-problems nil
-  "The eslint problems configuration."
-  :type 'alist)
-
-(defcustom lsp-eslint-time-budget nil
-  "The eslint config to inform you of slow validation times and
-  long ESLint runs when computing code fixes during save."
-  :type 'alist)
-
-(defcustom lsp-eslint-trace-server "off"
-  "Traces the communication between VSCode and the ESLint linter service."
-  :type 'string)
-
-(defcustom lsp-eslint-run "onType"
-  "Run the linter on save (onSave) or on type (onType)"
-  :type '(choice (const :tag "onSave" "onSave")
-                 (const :tag "onType" "onType"))
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-auto-fix-on-save nil
-  "Turns auto fix on save on or off."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-fix-all-problem-type "all"
-  "Determines which problems are fixed when running the
-source.fixAll code action."
-  :type '(choice
-          (const "all")
-          (const "problems")
-          string)
-  :package-version '(lsp-mode . "7.0.1"))
-
-(defcustom lsp-eslint-quiet nil
-  "Turns on quiet mode, which ignores warnings."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-working-directories []
-  "A vector of working directory names to use. Can be a pattern, an absolute path
-or a path relative to the workspace. Examples:
- - \"/home/user/abc/\"
- - \"abc/\"
- - (directory \"abc\") which is equivalent to \"abc\" above
- - (pattern \"abc/*\")
-Note that the home directory reference ~/ is not currently supported, use
-/home/[user]/ instead."
-  :type 'lsp-string-vector
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-validate '("svelte")
-  "An array of language ids which should always be validated by ESLint."
-  :type '(repeat string)
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-provide-lint-task nil
-  "Controls whether a task for linting the whole workspace will be available."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-lint-task-enable nil
-  "Controls whether a task for linting the whole workspace will be available."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-lint-task-options "."
-  "Command line options applied when running the task for linting the whole
-workspace (see https://eslint.org/docs/user-guide/command-line-interface)."
-  :type 'string
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-runtime nil
-  "The location of the node binary to run ESLint under."
-  :type '(repeat string)
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-code-action-disable-rule-comment t
-  "Controls whether code actions to add a rule-disabling comment should be shown."
-  :type 'bool
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-code-action-disable-rule-comment-location "separateLine"
-  "Controls where the disable rule code action places comments.
-
-Accepts the following values:
-- \"separateLine\": Add the comment above the line to be disabled (default).
-- \"sameLine\": Add the comment on the same line that will be disabled."
-  :type '(choice
-          (const "separateLine")
-          (const "sameLine"))
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-code-action-show-documentation t
-  "Controls whether code actions to show documentation for an ESLint rule should
-be shown."
-  :type 'bool
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-warn-on-ignored-files nil
-  "Controls whether a warning should be emitted when a file is ignored."
-  :type 'bool
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-rules-customizations []
-  "Controls severity overrides for ESLint rules.
-
-The value is a vector of alists, with each alist containing the following keys:
-- rule - The rule to match. Can match wildcards with *, or be prefixed with !
-  to negate the match.
-- severity - The severity to report this rule as. Can be one of the following:
-  - \"off\": Disable the rule.
-  - \"info\": Report as informational.
-  - \"warn\": Report as a warning.
-  - \"error\": Report as an error.
-  - \"upgrade\": Increase by 1 severity level (eg. warning -> error).
-  - \"downgrade\": Decrease by 1 severity level (eg. warning -> info).
-  - \"default\": Report as the same severity specified in the ESLint config."
-  :type '(lsp-repeatable-vector
-          (alist :options ((rule string)
-                           (severity (choice
-                                      (const "off")
-                                      (const "info")
-                                      (const "warn")
-                                      (const "error")
-                                      (const "upgrade")
-                                      (const "downgrade")
-                                      (const "default"))))))
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-experimental-incremental-sync t
-  "Controls whether the new incremental text document synchronization should
-be used."
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-eslint-save-library-choices t
-  "Controls whether to remember choices made to permit or deny ESLint libraries
-from running."
-  :type 'boolean
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-eslint-library-choices-file (expand-file-name (locate-user-emacs-file ".lsp-eslint-choices"))
-  "The file where choices to permit or deny ESLint libraries from running is
-stored."
-  :type 'string
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defun lsp--find-eslint ()
-  (or
-   (when-let* ((workspace-folder (lsp-find-session-folder (lsp-session) default-directory)))
-     (let ((eslint-local-path (f-join workspace-folder "node_modules" ".bin"
-                                      (if (eq system-type 'windows-nt) "eslint.cmd" "eslint"))))
-       (when (f-exists? eslint-local-path)
-         eslint-local-path)))
-   "eslint"))
-
-(defun lsp-eslint-create-default-configuration ()
-  "Create default ESLint configuration."
-  (interactive)
-  (unless (lsp-session-folders (lsp-session))
-    (user-error "There are no workspace folders"))
-  (pcase (->> (lsp-session)
-              lsp-session-folders
-              (-filter (lambda (dir)
-                         (-none?
-                          (lambda (file) (f-exists? (f-join dir file)))
-                          '(".eslintrc.js" ".eslintrc.yaml" ".eslintrc.yml" ".eslintrc" ".eslintrc.json")))))
-    (`nil (user-error "All workspace folders contain ESLint configuration"))
-    (folders (let ((default-directory (completing-read "Select project folder: " folders nil t)))
-               (async-shell-command (format "%s --init" (lsp--find-eslint)))))))
-
-(lsp-defun lsp-eslint-status-handler (workspace (&eslint:StatusParams :state))
-  (setf (lsp--workspace-status-string workspace)
-        (propertize "ESLint"
-                    'face (cond
-                           ((eq state lsp-eslint/status-error) 'error)
-                           ((eq state lsp-eslint/status-warn) 'warn)
-                           (t 'success)))))
-
-(lsp-defun lsp-eslint--configuration (_workspace (&ConfigurationParams :items))
-  (->> items
-       (seq-map (-lambda ((&ConfigurationItem :scope-uri?))
-                  (-when-let* ((file (lsp--uri-to-path scope-uri?))
-                               (buffer (find-buffer-visiting file))
-                               (workspace-folder (lsp-find-session-folder (lsp-session) file)))
-                    (with-current-buffer buffer
-                      (let ((working-directory (lsp-eslint--working-directory workspace-folder file)))
-                        (list :validate (if (member (lsp-buffer-language) lsp-eslint-validate) "on" "probe")
-                              :packageManager lsp-eslint-package-manager
-                              :codeAction (list
-                                           :disableRuleComment (list
-                                                                :enable (lsp-json-bool lsp-eslint-code-action-disable-rule-comment)
-                                                                :location lsp-eslint-code-action-disable-rule-comment-location)
-                                           :showDocumentation (list
-                                                               :enable (lsp-json-bool lsp-eslint-code-action-show-documentation)))
-                              :codeActionOnSave (list :enable (lsp-json-bool lsp-eslint-auto-fix-on-save)
-                                                      :mode lsp-eslint-fix-all-problem-type)
-                              :format (lsp-json-bool lsp-eslint-format)
-                              :quiet (lsp-json-bool lsp-eslint-quiet)
-                              :onIgnoredFiles (if lsp-eslint-warn-on-ignored-files "warn" "off")
-                              :options (or lsp-eslint-options (ht))
-                              :experimental (or lsp-eslint-experimental (ht))
-                              :problems (or lsp-eslint-config-problems (ht))
-                              :timeBudget (or lsp-eslint-time-budget (ht))
-                              :rulesCustomizations lsp-eslint-rules-customizations
-                              :run lsp-eslint-run
-                              :nodePath lsp-eslint-node-path
-                              :workingDirectory (when working-directory
-                                                  (list
-                                                   :directory working-directory
-                                                   :!cwd :json-false))
-                              :workspaceFolder (list :uri (lsp--path-to-uri workspace-folder)
-                                                     :name (f-filename workspace-folder))))))))
-       (apply #'vector)))
-
-(defun lsp-eslint--working-directory (workspace current-file)
-  "Find the first directory in the parameter config.workingDirectories which
-contains the current file"
-  (let ((directories (-map (lambda (dir)
-                             (when (and (listp dir) (plist-member dir 'directory))
-                               (setq dir (plist-get dir 'directory)))
-                             (if (and (listp dir) (plist-member dir 'pattern))
-                               (progn
-                                 (setq dir (plist-get dir 'pattern))
-                                 (when (not (f-absolute? dir))
-                                   (setq dir (f-join workspace dir)))
-                                 (f-glob dir))
-                               (if (f-absolute? dir)
-                                 dir
-                                 (f-join workspace dir))))
-                           (append lsp-eslint-working-directories nil))))
-    (-first (lambda (dir) (f-ancestor-of-p dir current-file)) (-flatten directories))))
-
-(lsp-defun lsp-eslint--open-doc (_workspace (&eslint:OpenESLintDocParams :url))
-  "Open documentation."
-  (browse-url url))
-
-(defun lsp-eslint-apply-all-fixes ()
-  "Apply all autofixes in the current buffer."
-  (interactive)
-  (lsp-send-execute-command "eslint.applyAllFixes" (vector (lsp--versioned-text-document-identifier))))
-
-;; XXX: replace with `lsp-make-interactive-code-action' macro
-;; (lsp-make-interactive-code-action eslint-fix-all "source.fixAll.eslint")
-
-(defun lsp-eslint-fix-all ()
-  "Perform the source.fixAll.eslint code action, if available."
-  (interactive)
-  (condition-case nil
-      (lsp-execute-code-action-by-kind "source.fixAll.eslint")
-    (lsp-no-code-actions
-     (when (called-interactively-p 'any)
-       (lsp--info "source.fixAll.eslint action not available")))))
-
-(defun lsp-eslint-server-command ()
-  (if (lsp-eslint-server-exists? lsp-eslint-server-command)
-      lsp-eslint-server-command
-    `(,lsp-eslint-node ,(f-join lsp-eslint-unzipped-path
-                                "extension/server/out/eslintServer.js")
-                       "--stdio")))
-
-(defun lsp-eslint-server-exists? (eslint-server-command)
-  (let* ((command-name (f-base (f-filename (cl-first eslint-server-command))))
-         (first-argument (cl-second eslint-server-command))
-         (first-argument-exist (and first-argument (file-exists-p first-argument))))
-    (if (equal command-name lsp-eslint-node)
-        first-argument-exist
-      (executable-find (cl-first eslint-server-command)))))
-
-(defvar lsp-eslint--stored-libraries (ht)
-  "Hash table defining if a given path to an ESLint library is allowed to run.
-If the value for a key is 4, it will be allowed. If it is 1, it will not. If a
-value does not exist for the key, or the value is nil, the user will be prompted
-to allow or deny it.")
-
-(when (and (file-exists-p lsp-eslint-library-choices-file)
-           lsp-eslint-save-library-choices)
-  (setq lsp-eslint--stored-libraries (lsp--read-from-file lsp-eslint-library-choices-file)))
-
-(lsp-defun lsp-eslint--confirm-local (_workspace (&eslint:ConfirmExecutionParams :library-path) callback)
-  (if-let* ((option-alist '(("Always" 4 . t)
-                           ("Yes" 4 . nil)
-                           ("No" 1 . nil)
-                           ("Never" 1 . t)))
-           (remembered-answer (gethash library-path lsp-eslint--stored-libraries)))
-      (funcall callback remembered-answer)
-    (lsp-ask-question
-     (format
-      "Allow lsp-mode to execute %s? Note: The latest versions of the ESLint language server no longer create this prompt."
-      library-path)
-     (mapcar 'car option-alist)
-     (lambda (response)
-       (let ((option (cdr (assoc response option-alist))))
-         (when (cdr option)
-           (puthash library-path (car option) lsp-eslint--stored-libraries)
-           (when lsp-eslint-save-library-choices
-             (lsp--persist lsp-eslint-library-choices-file lsp-eslint--stored-libraries)))
-         (funcall callback (car option)))))))
-
-(defun lsp-eslint--probe-failed (_workspace _message)
-  "Called when the server detects a misconfiguration in ESLint."
-  (lsp--error "ESLint is not configured correctly. Please ensure your eslintrc is set up for the languages you are using."))
-
-(lsp-register-client
- (make-lsp-client
-  :new-connection
-  (lsp-stdio-connection
-   (lambda () (lsp-eslint-server-command))
-   (lambda () (lsp-eslint-server-exists? (lsp-eslint-server-command))))
-  :activation-fn (lambda (filename &optional _)
-                   (when lsp-eslint-enable
-                     (or (string-match-p (rx (one-or-more anything) "."
-                                             (or "ts" "js" "jsx" "tsx" "html" "vue" "svelte")eos)
-                                         filename)
-                         (and (derived-mode-p 'js-mode 'js2-mode 'typescript-mode 'typescript-ts-mode 'html-mode 'svelte-mode)
-                           (not (string-match-p "\\.json\\'" filename))))))
-  :priority -1
-  :completion-in-comments? t
-  :add-on? t
-  :multi-root t
-  :notification-handlers (ht ("eslint/status" #'lsp-eslint-status-handler))
-  :request-handlers (ht ("workspace/configuration" #'lsp-eslint--configuration)
-                        ("eslint/openDoc" #'lsp-eslint--open-doc)
-                        ("eslint/probeFailed" #'lsp-eslint--probe-failed))
-  :async-request-handlers (ht ("eslint/confirmESLintExecution" #'lsp-eslint--confirm-local))
-  :server-id 'eslint
-  :initialized-fn (lambda (workspace)
-                    (with-lsp-workspace workspace
-                      (lsp--server-register-capability
-                       (lsp-make-registration
-                        :id "random-id"
-                        :method "workspace/didChangeWatchedFiles"
-                        :register-options? (lsp-make-did-change-watched-files-registration-options
-                                            :watchers
-                                            `[,(lsp-make-file-system-watcher
-                                                :glob-pattern "**/.eslintr{c.js,c.yaml,c.yml,c,c.json}")
-                                              ,(lsp-make-file-system-watcher
-                                                :glob-pattern "**/.eslintignore")
-                                              ,(lsp-make-file-system-watcher
-                                                :glob-pattern "**/package.json")])))))
-  :download-server-fn (lambda (_client callback error-callback _update?)
-                        (let ((tmp-zip (make-temp-file "ext" nil ".zip")))
-                          (delete-file tmp-zip)
-                          (lsp-download-install
-                           (lambda (&rest _)
-                             (condition-case err
-                                 (progn
-                                   (lsp-unzip tmp-zip lsp-eslint-unzipped-path)
-                                   (funcall callback))
-                               (error (funcall error-callback err))))
-                           error-callback
-                           :url lsp-eslint-download-url
-                           :store-path tmp-zip)))))
-
-(lsp-consistency-check lsp-eslint)
-
-(provide 'lsp-eslint)
-;;; lsp-eslint.el ends here
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-eslint.elc b/emacs/elpa/lsp-mode-20241119.828/lsp-eslint.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mode-pkg.el b/emacs/elpa/lsp-mode-20241119.828/lsp-mode-pkg.el
@@ -1,15 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "lsp-mode" "20241119.828"
-  "LSP mode."
-  '((emacs         "27.1")
-    (dash          "2.18.0")
-    (f             "0.20.0")
-    (ht            "2.3")
-    (spinner       "1.7.3")
-    (markdown-mode "2.3")
-    (lv            "0")
-    (eldoc         "1.11"))
-  :url "https://github.com/emacs-lsp/lsp-mode"
-  :commit "620bbd7163fa9d9281cd315ffa3ee29d83be8686"
-  :revdesc "620bbd7163fa"
-  :keywords '("languages"))
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mode.el b/emacs/elpa/lsp-mode-20241119.828/lsp-mode.el
@@ -1,9958 +0,0 @@
-;;; lsp-mode.el --- LSP mode                              -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020-2024 emacs-lsp maintainers
-
-;; Author: Vibhav Pant, Fangrui Song, Ivan Yonchovski
-;; Keywords: languages
-;; Package-Requires: ((emacs "27.1") (dash "2.18.0") (f "0.20.0") (ht "2.3") (spinner "1.7.3") (markdown-mode "2.3") (lv "0") (eldoc "1.11"))
-;; Package-Version: 20241119.828
-;; Package-Revision: 620bbd7163fa
-
-;; URL: https://github.com/emacs-lsp/lsp-mode
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Emacs client/library for the Language Server Protocol
-
-;;; Code:
-
-(require 'cl-generic)
-(require 'cl-lib)
-(require 'compile)
-(require 'dash)
-(require 'epg)
-(require 'ewoc)
-(require 'f)
-(require 'filenotify)
-(require 'files)
-(require 'ht)
-(require 'imenu)
-(require 'inline)
-(require 'json)
-(require 'lv)
-(require 'markdown-mode)
-(require 'network-stream)
-(require 'pcase)
-(require 'rx)
-(require 's)
-(require 'seq)
-(require 'spinner)
-(require 'subr-x)
-(require 'tree-widget)
-(require 'url-parse)
-(require 'url-util)
-(require 'widget)
-(require 'xref)
-(require 'minibuffer)
-(require 'help-mode)
-(require 'lsp-protocol)
-
-(defgroup lsp-mode nil
-  "Language Server Protocol client."
-  :group 'tools
-  :tag "Language Server (lsp-mode)")
-
-(declare-function evil-set-command-property "ext:evil-common")
-(declare-function projectile-project-root "ext:projectile")
-(declare-function yas-expand-snippet "ext:yasnippet")
-(declare-function dap-mode "ext:dap-mode")
-(declare-function dap-auto-configure-mode "ext:dap-mode")
-
-(defvar yas-inhibit-overlay-modification-protection)
-(defvar yas-indent-line)
-(defvar yas-wrap-around-region)
-(defvar yas-also-auto-indent-first-line)
-(defvar dap-auto-configure-mode)
-(defvar dap-ui-menu-items)
-(defvar company-minimum-prefix-length)
-
-(defconst lsp--message-type-face
-  `((1 . ,compilation-error-face)
-    (2 . ,compilation-warning-face)
-    (3 . ,compilation-message-face)
-    (4 . ,compilation-info-face)))
-
-(defconst lsp--errors
-  '((-32700 "Parse Error")
-    (-32600 "Invalid Request")
-    (-32601 "Method not Found")
-    (-32602 "Invalid Parameters")
-    (-32603 "Internal Error")
-    (-32099 "Server Start Error")
-    (-32000 "Server End Error")
-    (-32002 "Server Not Initialized")
-    (-32001 "Unknown Error Code")
-    (-32800 "Request Cancelled"))
-  "Alist of error codes to user friendly strings.")
-
-(defconst lsp--empty-ht (make-hash-table))
-
-(eval-and-compile
-  (defun dash-expand:&lsp-wks (key source)
-    `(,(intern-soft (format "lsp--workspace-%s" (eval key))) ,source))
-
-  (defun dash-expand:&lsp-cln (key source)
-    `(,(intern-soft (format "lsp--client-%s" (eval key))) ,source)))
-
-(define-obsolete-variable-alias 'lsp-print-io 'lsp-log-io "lsp-mode 6.1")
-
-(defcustom lsp-log-io nil
-  "If non-nil, log all messages from the language server to a *lsp-log* buffer."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-log-io-allowlist-methods '()
-  "The methods to filter before print to lsp-log-io."
-  :group 'lsp-mode
-  :type '(repeat string)
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-log-max message-log-max
-  "Maximum number of lines to keep in the log buffer.
-If nil, disable message logging.  If t, log messages but don’t truncate
-the buffer when it becomes large."
-  :group 'lsp-mode
-  :type '(choice (const :tag "Disable" nil)
-                 (integer :tag "lines")
-                 (const :tag "Unlimited" t))
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-io-messages-max t
-  "Maximum number of messages that can be locked in a `lsp-io' buffer."
-  :group 'lsp-mode
-  :type '(choice (const :tag "Unlimited" t)
-                 (integer :tag "Messages"))
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-keep-workspace-alive t
-  "If non nil keep workspace alive when the last workspace buffer is closed."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-enable-snippet t
-  "Enable/disable snippet completion support."
-  :group 'lsp-completion
-  :type 'boolean)
-
-(defcustom lsp-enable-folding t
-  "Enable/disable code folding support."
-  :group 'lsp-mode
-  :type 'boolean
-  :package-version '(lsp-mode . "6.1"))
-
-(define-obsolete-variable-alias 'lsp-enable-semantic-highlighting 'lsp-semantic-tokens-enable "lsp-mode 8.0.0")
-
-(defcustom lsp-semantic-tokens-enable nil
-  "Enable/disable support for semantic tokens.
-As defined by the Language Server Protocol 3.16."
-  :group 'lsp-semantic-tokens
-  :type 'boolean)
-
-(defcustom lsp-folding-range-limit nil
-  "The maximum number of folding ranges to receive from the language server."
-  :group 'lsp-mode
-  :type '(choice (const :tag "No limit." nil)
-                 (integer :tag "Number of lines."))
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-folding-line-folding-only nil
-  "If non-nil, only fold complete lines."
-  :group 'lsp-mode
-  :type 'boolean
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-client-packages
-  '( ccls lsp-actionscript lsp-ada lsp-angular lsp-ansible lsp-asm lsp-astro
-     lsp-autotools lsp-awk lsp-bash lsp-beancount lsp-bufls lsp-clangd
-     lsp-clojure lsp-cmake lsp-cobol lsp-credo lsp-crystal lsp-csharp lsp-css
-     lsp-cucumber lsp-cypher lsp-d lsp-dart lsp-dhall lsp-docker lsp-dockerfile
-     lsp-earthly lsp-elixir lsp-elm lsp-emmet lsp-erlang lsp-eslint lsp-fortran lsp-futhark
-     lsp-fsharp lsp-gdscript lsp-gleam lsp-glsl lsp-go lsp-golangci-lint lsp-grammarly
-     lsp-graphql lsp-groovy lsp-hack lsp-haskell lsp-haxe lsp-idris lsp-java
-     lsp-javascript lsp-jq lsp-json lsp-kotlin lsp-latex lsp-lisp lsp-ltex
-     lsp-lua lsp-fennel lsp-magik lsp-markdown lsp-marksman lsp-mdx lsp-meson lsp-metals lsp-mint
-     lsp-mojo lsp-move lsp-mssql lsp-nextflow lsp-nginx lsp-nim lsp-nix lsp-nushell lsp-ocaml
-     lsp-openscad lsp-pascal lsp-perl lsp-perlnavigator lsp-php lsp-pls
-     lsp-purescript lsp-pwsh lsp-pyls lsp-pylsp lsp-pyright lsp-python-ms
-     lsp-qml lsp-r lsp-racket lsp-remark lsp-rf lsp-roslyn lsp-rubocop lsp-ruby-lsp
-     lsp-ruby-syntax-tree lsp-ruff lsp-rust lsp-semgrep lsp-shader
-     lsp-solargraph lsp-solidity lsp-sonarlint lsp-sorbet lsp-sourcekit
-     lsp-sql lsp-sqls lsp-steep lsp-svelte lsp-tailwindcss lsp-terraform
-     lsp-tex lsp-tilt lsp-toml lsp-trunk lsp-ttcn3 lsp-typeprof lsp-typespec lsp-v
-     lsp-vala lsp-verilog lsp-vetur lsp-vhdl lsp-vimscript lsp-volar lsp-wgsl
-     lsp-xml lsp-yaml lsp-yang lsp-zig)
-  "List of the clients to be automatically required."
-  :group 'lsp-mode
-  :type '(repeat symbol))
-
-(defcustom lsp-progress-via-spinner t
-  "If non-nil, display LSP $/progress reports via a spinner in the modeline."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-progress-spinner-type 'progress-bar
-  "Holds the type of spinner to be used in the mode-line.
-Takes a value accepted by `spinner-start'."
-  :group 'lsp-mode
-  :type `(choice :tag "Choose a spinner by name"
-                 ,@(mapcar (lambda (c) (list 'const (car c)))
-                           spinner-types)))
-
-(defvar-local lsp-use-workspace-root-for-server-default-directory nil
-  "Use `lsp-workspace-root' for `default-directory' when starting LSP process.")
-
-(defvar-local lsp--cur-workspace nil)
-
-(defvar-local lsp--cur-version 0)
-(defvar-local lsp--virtual-buffer-connections nil)
-(defvar-local lsp--virtual-buffer nil)
-(defvar lsp--virtual-buffer-mappings (ht))
-
-(defvar lsp--uri-file-prefix (pcase system-type
-                               (`windows-nt "file:///")
-                               (_ "file://"))
-  "Prefix for a file-uri.")
-
-(defvar-local lsp-buffer-uri nil
-  "If set, return it instead of calculating it using `buffer-file-name'.")
-
-(define-error 'lsp-error "Unknown lsp-mode error")
-(define-error 'lsp-empty-response-error
-  "Empty response from the language server" 'lsp-error)
-(define-error 'lsp-timed-out-error
-  "Timed out while waiting for a response from the language server" 'lsp-error)
-(define-error 'lsp-capability-not-supported
-  "Capability not supported by the language server" 'lsp-error)
-(define-error 'lsp-file-scheme-not-supported
-  "Unsupported file scheme" 'lsp-error)
-(define-error 'lsp-client-already-exists-error
-  "A client with this server-id already exists" 'lsp-error)
-(define-error 'lsp-no-code-actions
-  "No code actions" 'lsp-error)
-
-(defcustom lsp-auto-guess-root nil
-  "Automatically guess the project root using projectile/project.
-Do *not* use this setting unless you are familiar with `lsp-mode'
-internals and you are sure that all of your projects are
-following `projectile'/`project.el' conventions."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-guess-root-without-session nil
-  "Ignore the session file when calculating the project root.
-You almost always want to set lsp-auto-guess-root too.
-Do *not* use this setting unless you are familiar with `lsp-mode'
-internals and you are sure that all of your projects are
-following `projectile'/`project.el' conventions."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-restart 'interactive
-  "Defines how server-exited events must be handled."
-  :group 'lsp-mode
-  :type '(choice (const interactive)
-                 (const auto-restart)
-                 (const ignore)))
-
-(defcustom lsp-session-file (expand-file-name (locate-user-emacs-file ".lsp-session-v1"))
-  "File where session information is stored."
-  :group 'lsp-mode
-  :type 'file)
-
-(defcustom lsp-auto-configure t
-  "Auto configure `lsp-mode' main features.
-When set to t `lsp-mode' will auto-configure completion,
-code-actions, breadcrumb, `flycheck', `flymake', `imenu', symbol highlighting,
-lenses, links, and so on.
-
-For finer granularity you may use `lsp-enable-*' properties."
-  :group 'lsp-mode
-  :type 'boolean
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-disabled-clients nil
-  "A list of disabled/blocklisted clients.
-Each entry in the list can be either:
-a symbol, the server-id for the LSP client, or
-a cons pair (MAJOR-MODE . CLIENTS), where MAJOR-MODE is the major-mode,
-and CLIENTS is either a client or a list of clients.
-
-This option can also be used as a file- or directory-local variable to
-disable a language server for individual files or directories/projects
-respectively."
-  :group 'lsp-mode
-  :type '(repeat (symbol))
-  :safe 'listp
-  :package-version '(lsp-mode . "6.1"))
-
-(defvar lsp-clients (make-hash-table :test 'eql)
-  "Hash table server-id -> client.
-It contains all of the clients that are currently registered.")
-
-(defvar lsp-enabled-clients nil
-  "List of clients allowed to be used for projects.
-When nil, all registered clients are considered candidates.")
-
-(defvar lsp-last-id 0
-  "Last request id.")
-
-(defcustom lsp-before-initialize-hook nil
-  "List of functions to be called before a Language Server has been initialized
-for a new workspace."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-after-initialize-hook nil
-  "List of functions to be called after a Language Server has been initialized
-for a new workspace."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-before-open-hook nil
-  "List of functions to be called before a new file with LSP support is opened."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-after-open-hook nil
-  "List of functions to be called after a new file with LSP support is opened."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-file-watchers t
-  "If non-nil lsp-mode will watch the files in the workspace if
-the server has requested that."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.1"))
-;;;###autoload(put 'lsp-enable-file-watchers 'safe-local-variable #'booleanp)
-
-(define-obsolete-variable-alias 'lsp-file-watch-ignored 'lsp-file-watch-ignored-directories "8.0.0")
-
-(defcustom lsp-file-watch-ignored-directories
-  '(; SCM tools
-    "[/\\\\]\\.git\\'"
-    "[/\\\\]\\.github\\'"
-    "[/\\\\]\\.gitlab\\'"
-    "[/\\\\]\\.circleci\\'"
-    "[/\\\\]\\.hg\\'"
-    "[/\\\\]\\.bzr\\'"
-    "[/\\\\]_darcs\\'"
-    "[/\\\\]\\.svn\\'"
-    "[/\\\\]_FOSSIL_\\'"
-    ;; IDE or build tools
-    "[/\\\\]\\.idea\\'"
-    "[/\\\\]\\.ensime_cache\\'"
-    "[/\\\\]\\.eunit\\'"
-    "[/\\\\]node_modules"
-    "[/\\\\]\\.yarn\\'"
-    "[/\\\\]\\.fslckout\\'"
-    "[/\\\\]\\.tox\\'"
-    "[/\\\\]\\.nox\\'"
-    "[/\\\\]dist\\'"
-    "[/\\\\]dist-newstyle\\'"
-    "[/\\\\]\\.stack-work\\'"
-    "[/\\\\]\\.bloop\\'"
-    "[/\\\\]\\.metals\\'"
-    "[/\\\\]target\\'"
-    "[/\\\\]\\.ccls-cache\\'"
-    "[/\\\\]\\.vs\\'"
-    "[/\\\\]\\.vscode\\'"
-    "[/\\\\]\\.venv\\'"
-    "[/\\\\]\\.mypy_cache\\'"
-    "[/\\\\]\\.pytest_cache\\'"
-    ;; Swift Package Manager
-    "[/\\\\]\\.build\\'"
-    ;; Python
-    "[/\\\\]__pycache__\\'"
-    "[/\\\\]site-packages\\'"
-    "[/\\\\].pyenv\\'"
-    ;; Autotools output
-    "[/\\\\]\\.deps\\'"
-    "[/\\\\]build-aux\\'"
-    "[/\\\\]autom4te.cache\\'"
-    "[/\\\\]\\.reference\\'"
-    ;; Bazel
-    "[/\\\\]bazel-[^/\\\\]+\\'"
-    ;; CSharp
-    "[/\\\\]\\.cache[/\\\\]lsp-csharp\\'"
-    "[/\\\\]\\.meta\\'"
-    "[/\\\\]\\.nuget\\'"
-    ;; Unity
-    "[/\\\\]Library\\'"
-    ;; Clojure
-    "[/\\\\]\\.lsp\\'"
-    "[/\\\\]\\.clj-kondo\\'"
-    "[/\\\\]\\.shadow-cljs\\'"
-    "[/\\\\]\\.babel_cache\\'"
-    "[/\\\\]\\.cpcache\\'"
-    "[/\\\\]\\checkouts\\'"
-    ;; Gradle
-    "[/\\\\]\\.gradle\\'"
-    ;; Maven
-    "[/\\\\]\\.m2\\'"
-    ;; .Net Core build-output
-    "[/\\\\]bin/Debug\\'"
-    "[/\\\\]obj\\'"
-    ;; OCaml and Dune
-    "[/\\\\]_opam\\'"
-    "[/\\\\]_build\\'"
-    ;; Elixir
-    "[/\\\\]\\.elixir_ls\\'"
-    ;; Elixir Credo
-    "[/\\\\]\\.elixir-tools\\'"
-    ;; terraform and terragrunt
-    "[/\\\\]\\.terraform\\'"
-    "[/\\\\]\\.terragrunt-cache\\'"
-    ;; nix-direnv
-    "[/\\\\]\\result"
-    "[/\\\\]\\result-bin"
-    "[/\\\\]\\.direnv\\'")
-  "List of regexps matching directory paths which won't be monitored when
-creating file watches. Customization of this variable is only honored at
-the global level or at a root of an lsp workspace."
-  :group 'lsp-mode
-  :type '(repeat string)
-  :package-version '(lsp-mode . "8.0.0"))
-
-(define-obsolete-function-alias 'lsp-file-watch-ignored 'lsp-file-watch-ignored-directories "7.0.1")
-
-(defun lsp-file-watch-ignored-directories ()
-  lsp-file-watch-ignored-directories)
-
-;; Allow lsp-file-watch-ignored-directories as a file or directory-local variable
-;;;###autoload(put 'lsp-file-watch-ignored-directories 'safe-local-variable 'lsp--string-listp)
-
-(defcustom lsp-file-watch-ignored-files
-  '(
-    ;; Flycheck tempfiles
-    "[/\\\\]flycheck_[^/\\\\]+\\'"
-    ;; lockfiles
-    "[/\\\\]\\.#[^/\\\\]+\\'"
-    ;; backup files
-    "[/\\\\][^/\\\\]+~\\'" )
-  "List of regexps matching files for which change events will
-not be sent to the server.
-
-This setting has no impact on whether a file-watch is created for
-a directory; it merely prevents notifications pertaining to
-matched files from being sent to the server.  To prevent a
-file-watch from being created for a directory, customize
-`lsp-file-watch-ignored-directories'
-
-Customization of this variable is only honored at the global
-level or at a root of an lsp workspace."
-  :group 'lsp-mode
-  :type '(repeat string)
-  :package-version '(lsp-mode . "8.0.0"))
-
-;; Allow lsp-file-watch-ignored-files as a file or directory-local variable
-;;;###autoload(put 'lsp-file-watch-ignored-files 'safe-local-variable 'lsp--string-listp)
-
-(defcustom lsp-after-uninitialized-functions nil
-  "List of functions to be called after a Language Server has been uninitialized."
-  :type 'hook
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.3"))
-
-(defconst lsp--sync-full 1)
-(defconst lsp--sync-incremental 2)
-
-(defcustom lsp-debounce-full-sync-notifications t
-  "If non-nil debounce full sync events.
-This flag affects only servers which do not support incremental updates."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-debounce-full-sync-notifications-interval 1.0
-  "Time to wait before sending full sync synchronization after buffer modification."
-  :type 'float
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.1"))
-
-(defvar lsp--stderr-index 0)
-
-(defvar lsp--delayed-requests nil)
-(defvar lsp--delay-timer nil)
-
-(defcustom lsp-document-sync-method nil
-  "How to sync the document with the language server."
-  :type '(choice (const :tag "Documents are synced by always sending the full content of the document." lsp--sync-full)
-                 (const :tag "Documents are synced by always sending incremental changes to the document." lsp--sync-incremental)
-                 (const :tag "Use the method recommended by the language server." nil))
-  :group 'lsp-mode)
-
-(defcustom lsp-auto-execute-action t
-  "Auto-execute single action."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-links t
-  "If non-nil, all references to links in a file will be made clickable, if
-supported by the language server."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-enable-imenu t
-  "If non-nil, automatically enable `imenu' integration when server provides
-`textDocument/documentSymbol'."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.2"))
-
-(defcustom lsp-enable-dap-auto-configure t
-  "If non-nil, enable `dap-auto-configure-mode`."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "7.0"))
-
-(defcustom lsp-eldoc-enable-hover t
-  "If non-nil, `eldoc' will display hover info when it is present."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-eldoc-render-all nil
-  "Display all of the info returned by document/onHover.
-If this is set to nil, `eldoc' will show only the symbol information."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias 'lsp-enable-completion-at-point
-  'lsp-completion-enable "lsp-mode 7.0.1")
-
-(defcustom lsp-completion-enable t
-  "Enable `completion-at-point' integration."
-  :type 'boolean
-  :group 'lsp-completion)
-
-(defcustom lsp-enable-symbol-highlighting t
-  "Highlight references of the symbol at point."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-xref t
-  "Enable xref integration."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias
-  'lsp-references-exclude-definition
-  'lsp-references-exclude-declaration
-  "9.0.1")
-
-(defcustom lsp-references-exclude-declaration nil
-  "If non-nil, exclude declarations when finding references."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-indentation t
-  "Indent regions using the file formatting functionality provided by the
-language server."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-on-type-formatting t
-  "Enable `textDocument/onTypeFormatting' integration."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-enable-text-document-color t
-  "Enable `textDocument/documentColor' integration."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-before-save-edits t
-  "If non-nil, `lsp-mode' will apply edits suggested by the language server
-before saving a document."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defcustom lsp-after-apply-edits-hook nil
-  "Hooks to run when text edit is applied.
-It contains the operation source."
-  :type 'hook
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-apply-edits-after-file-operations t
-  "Whether to apply edits returned by server after file operations if any.
-Applicable only if server supports workspace.fileOperations for operations:
-`workspace/willRenameFiles', `workspace/willCreateFiles' and
-`workspace/willDeleteFiles'."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-modeline-code-actions-enable t
-  "Whether to show code actions on modeline."
-  :type 'boolean
-  :group 'lsp-modeline)
-
-(defcustom lsp-modeline-diagnostics-enable t
-  "Whether to show diagnostics on modeline."
-  :type 'boolean
-  :group 'lsp-modeline)
-
-(defcustom lsp-modeline-workspace-status-enable t
-  "Whether to show workspace status on modeline."
-  :type 'boolean
-  :group 'lsp-modeline
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-headerline-breadcrumb-enable t
-  "Whether to enable breadcrumb on headerline."
-  :type 'boolean
-  :group 'lsp-headerline)
-
-(defcustom lsp-configure-hook nil
-  "Hooks to run when `lsp-configure-buffer' is called."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-unconfigure-hook nil
-  "Hooks to run when `lsp-unconfig-buffer' is called."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-after-diagnostics-hook nil
-  "Hooks to run after diagnostics are received.
-Note: it runs only if the receiving buffer is open. Use
-`lsp-diagnostics-updated-hook'if you want to be notified when
-diagnostics have changed."
-  :type 'hook
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias 'lsp-after-diagnostics-hook
-  'lsp-diagnostics-updated-hook "lsp-mode 6.4")
-
-(defcustom lsp-diagnostics-updated-hook nil
-  "Hooks to run after diagnostics are received."
-  :type 'hook
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias 'lsp-workspace-folders-changed-hook
-  'lsp-workspace-folders-changed-functions "lsp-mode 6.3")
-
-(defcustom lsp-workspace-folders-changed-functions nil
-  "Hooks to run after the folders has changed.
-The hook will receive two parameters list of added and removed folders."
-  :type 'hook
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias 'lsp-eldoc-hook 'eldoc-documentation-functions "lsp-mode 9.0.0")
-
-(defcustom lsp-before-apply-edits-hook nil
-  "Hooks to run before applying edits."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defgroup lsp-imenu nil
-  "LSP Imenu."
-  :group 'lsp-mode
-  :tag "LSP Imenu")
-
-(defcustom lsp-imenu-show-container-name t
-  "Display the symbol's container name in an imenu entry."
-  :type 'boolean
-  :group 'lsp-imenu)
-
-(defcustom lsp-imenu-container-name-separator "/"
-  "Separator string to use to separate the container name from the symbol while
-displaying imenu entries."
-  :type 'string
-  :group 'lsp-imenu)
-
-(defcustom lsp-imenu-sort-methods '(kind name)
-  "How to sort the imenu items.
-
-The value is a list of `kind' `name' or `position'.  Priorities
-are determined by the index of the element."
-  :type '(repeat (choice (const name)
-                         (const position)
-                         (const kind)))
-  :group 'lsp-imenu)
-
-(defcustom lsp-imenu-index-symbol-kinds nil
-  "Which symbol kinds to show in imenu."
-  :type '(repeat (choice (const :tag "Miscellaneous" nil)
-                         (const :tag "File" File)
-                         (const :tag "Module" Module)
-                         (const :tag "Namespace" Namespace)
-                         (const :tag "Package" Package)
-                         (const :tag "Class" Class)
-                         (const :tag "Method" Method)
-                         (const :tag "Property" Property)
-                         (const :tag "Field" Field)
-                         (const :tag "Constructor" Constructor)
-                         (const :tag "Enum" Enum)
-                         (const :tag "Interface" Interface)
-                         (const :tag "Function" Function)
-                         (const :tag "Variable" Variable)
-                         (const :tag "Constant" Constant)
-                         (const :tag "String" String)
-                         (const :tag "Number" Number)
-                         (const :tag "Boolean" Boolean)
-                         (const :tag "Array" Array)
-                         (const :tag "Object" Object)
-                         (const :tag "Key" Key)
-                         (const :tag "Null" Null)
-                         (const :tag "Enum Member" EnumMember)
-                         (const :tag "Struct" Struct)
-                         (const :tag "Event" Event)
-                         (const :tag "Operator" Operator)
-                         (const :tag "Type Parameter" TypeParameter)))
-  :group 'lsp-imenu)
-
-;; vibhavp: Should we use a lower value (5)?
-(defcustom lsp-response-timeout 10
-  "Number of seconds to wait for a response from the language server before
-timing out. Nil if no timeout."
-  :type '(choice
-          (number :tag "Seconds")
-          (const :tag "No timeout" nil))
-  :group 'lsp-mode)
-
-(defcustom lsp-tcp-connection-timeout 2
-  "The timeout for tcp connection in seconds."
-  :type 'number
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.2"))
-
-(defconst lsp--imenu-compare-function-alist
-  (list (cons 'name #'lsp--imenu-compare-name)
-        (cons 'kind #'lsp--imenu-compare-kind)
-        (cons 'position #'lsp--imenu-compare-line-col))
-  "An alist of (METHOD . FUNCTION).
-METHOD is one of the symbols accepted by
-`lsp-imenu-sort-methods'.
-
-FUNCTION takes two hash tables representing DocumentSymbol.  It
-returns a negative number, 0, or a positive number indicating
-whether the first parameter is less than, equal to, or greater
-than the second parameter.")
-
-(defcustom lsp-diagnostic-clean-after-change nil
-  "When non-nil, clean the diagnostics on change.
-
-Note that when that setting is nil, `lsp-mode' will show stale
-diagnostics until server publishes the new set of diagnostics"
-  :type 'boolean
-  :group 'lsp-diagnostics
-  :package-version '(lsp-mode . "7.0.1"))
-
-(defcustom lsp-server-trace nil
-  "Request tracing on the server side.
-The actual trace output at each level depends on the language server in use.
-Changes take effect only when a new session is started."
-  :type '(choice (const :tag "Disabled" "off")
-                 (const :tag "Messages only" "messages")
-                 (const :tag "Verbose" "verbose")
-                 (const :tag "Default (disabled)" nil))
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.1"))
-
-(defcustom lsp-auto-touch-files t
-  "If non-nil ensure the files exist before sending
-`textDocument/didOpen' notification."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defvar lsp-language-id-configuration
-  '(("\\(^CMakeLists\\.txt\\|\\.cmake\\)\\'" . "cmake")
-    ("\\(^Dockerfile\\(?:\\..*\\)?\\|\\.[Dd]ockerfile\\)\\'" . "dockerfile")
-    ("\\.astro$" . "astro")
-    ("\\.cs\\'" . "csharp")
-    ("\\.css$" . "css")
-    ("\\.cypher$" . "cypher")
-    ("Earthfile" . "earthfile")
-    ("\\.ebuild$" . "shellscript")
-    ("\\.go\\'" . "go")
-    ("\\.html$" . "html")
-    ("\\.hx$" . "haxe")
-    ("\\.hy$" . "hy")
-    ("\\.java\\'" . "java")
-    ("\\.jq$"  . "jq")
-    ("\\.js$" . "javascript")
-    ("\\.json$" . "json")
-    ("\\.jsonc$" . "jsonc")
-    ("\\.jsonnet$" . "jsonnet")
-    ("\\.jsx$" . "javascriptreact")
-    ("\\.lua$" . "lua")
-    ("\\.fnl$" . "fennel")
-    ("\\.mdx\\'" . "mdx")
-    ("\\.nu$" . "nushell")
-    ("\\.php$" . "php")
-    ("\\.ps[dm]?1\\'" . "powershell")
-    ("\\.rs\\'" . "rust")
-    ("\\.spec\\'" . "rpm-spec")
-    ("\\.sql$" . "sql")
-    ("\\.svelte$" . "svelte")
-    ("\\.toml\\'" . "toml")
-    ("\\.ts$" . "typescript")
-    ("\\.tsp$" . "typespec")
-    ("\\.tsx$" . "typescriptreact")
-    ("\\.ttcn3$" . "ttcn3")
-    ("\\.vue$" . "vue")
-    ("\\.xml$" . "xml")
-    ("\\ya?ml$" . "yaml")
-    ("^PKGBUILD$" . "shellscript")
-    ("^go\\.mod\\'" . "go.mod")
-    ("^settings\\.json$" . "jsonc")
-    ("^yang\\.settings$" . "jsonc")
-    ("^meson\\(_options\\.txt\\|\\.\\(build\\|format\\)\\)\\'" . "meson")
-    (ada-mode . "ada")
-    (ada-ts-mode . "ada")
-    (gpr-mode . "gpr")
-    (gpr-ts-mode . "gpr")
-    (awk-mode . "awk")
-    (awk-ts-mode . "awk")
-    (nxml-mode . "xml")
-    (sql-mode . "sql")
-    (vimrc-mode . "vim")
-    (vimscript-ts-mode . "vim")
-    (sh-mode . "shellscript")
-    (bash-ts-mode . "shellscript")
-    (ebuild-mode . "shellscript")
-    (pkgbuild-mode . "shellscript")
-    (envrc-file-mode . "shellscript")
-    (scala-mode . "scala")
-    (scala-ts-mode . "scala")
-    (julia-mode . "julia")
-    (julia-ts-mode . "julia")
-    (clojure-mode . "clojure")
-    (clojurec-mode . "clojure")
-    (clojurescript-mode . "clojurescript")
-    (clojure-ts-mode . "clojure")
-    (clojure-ts-clojurec-mode . "clojure")
-    (clojure-ts-clojurescript-mode . "clojurescript")
-    (java-mode . "java")
-    (java-ts-mode . "java")
-    (jdee-mode . "java")
-    (groovy-mode . "groovy")
-    (nextflow-mode . "nextflow")
-    (python-mode . "python")
-    (python-ts-mode . "python")
-    (cython-mode . "python")
-    ("\\(\\.mojo\\|\\.🔥\\)\\'" . "mojo")
-    (lsp--render-markdown . "markdown")
-    (move-mode . "move")
-    (rust-mode . "rust")
-    (rust-ts-mode . "rust")
-    (rustic-mode . "rust")
-    (kotlin-mode . "kotlin")
-    (kotlin-ts-mode . "kotlin")
-    (css-mode . "css")
-    (css-ts-mode . "css")
-    (less-mode . "less")
-    (less-css-mode . "less")
-    (lua-mode . "lua")
-    (lua-ts-mode . "lua")
-    (sass-mode . "sass")
-    (ssass-mode . "sass")
-    (scss-mode . "scss")
-    (scad-mode . "openscad")
-    (xml-mode . "xml")
-    (c-mode . "c")
-    (c-ts-mode . "c")
-    (c++-mode . "cpp")
-    (c++-ts-mode . "cpp")
-    (cuda-mode . "cuda")
-    (objc-mode . "objective-c")
-    (html-mode . "html")
-    (html-ts-mode . "html")
-    (sgml-mode . "html")
-    (mhtml-mode . "html")
-    (mint-mode . "mint")
-    (go-dot-mod-mode . "go.mod")
-    (go-mod-ts-mode . "go.mod")
-    (go-mode . "go")
-    (go-ts-mode . "go")
-    (graphql-mode . "graphql")
-    (haskell-mode . "haskell")
-    (haskell-ts-mode . "haskell")
-    (hack-mode . "hack")
-    (php-mode . "php")
-    (php-ts-mode . "php")
-    (powershell-mode . "powershell")
-    (powershell-mode . "PowerShell")
-    (powershell-ts-mode . "powershell")
-    (json-mode . "json")
-    (json-ts-mode . "json")
-    (jsonc-mode . "jsonc")
-    (rjsx-mode . "javascript")
-    (js2-mode . "javascript")
-    (js-mode . "javascript")
-    (js-ts-mode . "javascript")
-    (typescript-mode . "typescript")
-    (typescript-ts-mode . "typescript")
-    (typespec-mode . "typespec")
-    (tsx-ts-mode . "typescriptreact")
-    (svelte-mode . "svelte")
-    (fsharp-mode . "fsharp")
-    (reason-mode . "reason")
-    (caml-mode . "ocaml")
-    (tuareg-mode . "ocaml")
-    (futhark-mode . "futhark")
-    (swift-mode . "swift")
-    (elixir-mode . "elixir")
-    (elixir-ts-mode . "elixir")
-    (heex-ts-mode . "elixir")
-    (conf-javaprop-mode . "spring-boot-properties")
-    (yaml-mode . "yaml")
-    (yaml-ts-mode . "yaml")
-    (ruby-mode . "ruby")
-    (enh-ruby-mode . "ruby")
-    (ruby-ts-mode . "ruby")
-    (feature-mode . "cucumber")
-    (fortran-mode . "fortran")
-    (f90-mode . "fortran")
-    (elm-mode . "elm")
-    (dart-mode . "dart")
-    (erlang-mode . "erlang")
-    (dockerfile-mode . "dockerfile")
-    (dockerfile-ts-mode . "dockerfile")
-    (csharp-mode . "csharp")
-    (csharp-tree-sitter-mode . "csharp")
-    (csharp-ts-mode . "csharp")
-    (plain-tex-mode . "plaintex")
-    (context-mode . "context")
-    (cypher-mode . "cypher")
-    (latex-mode . "latex")
-    (LaTeX-mode . "latex")
-    (v-mode . "v")
-    (vhdl-mode . "vhdl")
-    (vhdl-ts-mode . "vhdl")
-    (verilog-mode . "verilog")
-    (terraform-mode . "terraform")
-    (ess-julia-mode . "julia")
-    (ess-r-mode . "r")
-    (crystal-mode . "crystal")
-    (nim-mode . "nim")
-    (dhall-mode . "dhall")
-    (cmake-mode . "cmake")
-    (cmake-ts-mode . "cmake")
-    (purescript-mode . "purescript")
-    (gdscript-mode . "gdscript")
-    (gdscript-ts-mode . "gdscript")
-    (perl-mode . "perl")
-    (cperl-mode . "perl")
-    (robot-mode . "robot")
-    (racket-mode . "racket")
-    (nix-mode . "nix")
-    (nix-ts-mode . "nix")
-    (prolog-mode . "prolog")
-    (vala-mode . "vala")
-    (actionscript-mode . "actionscript")
-    (d-mode . "d")
-    (zig-mode . "zig")
-    (zig-ts-mode . "zig")
-    (text-mode . "plaintext")
-    (markdown-mode . "markdown")
-    (gfm-mode . "markdown")
-    (beancount-mode . "beancount")
-    (conf-toml-mode . "toml")
-    (toml-ts-mode . "toml")
-    (org-mode . "org")
-    (org-journal-mode . "org")
-    (nginx-mode . "nginx")
-    (magik-mode . "magik")
-    (magik-ts-mode . "magik")
-    (idris-mode . "idris")
-    (idris2-mode . "idris2")
-    (gleam-mode . "gleam")
-    (gleam-ts-mode . "gleam")
-    (graphviz-dot-mode . "dot")
-    (tiltfile-mode . "tiltfile")
-    (solidity-mode . "solidity")
-    (bibtex-mode . "bibtex")
-    (rst-mode . "restructuredtext")
-    (glsl-mode . "glsl")
-    (shader-mode . "shaderlab")
-    (wgsl-mode . "wgsl")
-    (jq-mode . "jq")
-    (jq-ts-mode . "jq")
-    (protobuf-mode . "protobuf")
-    (nushell-mode . "nushell")
-    (nushell-ts-mode . "nushell")
-    (meson-mode . "meson")
-    (yang-mode . "yang"))
-  "Language id configuration.")
-
-(defvar lsp--last-active-workspaces nil
-  "Keep track of last active workspace.
-We want to try the last workspace first when jumping into a library
-directory")
-
-(defvar lsp-method-requirements
-  '(("textDocument/callHierarchy" :capability :callHierarchyProvider)
-    ("textDocument/codeAction" :capability :codeActionProvider)
-    ("codeAction/resolve"
-     :check-command (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (lsp:code-action-options-resolve-provider?
-                         (lsp--capability-for-method "textDocument/codeAction")))))
-    ("textDocument/codeLens" :capability :codeLensProvider)
-    ("textDocument/completion" :capability :completionProvider)
-    ("completionItem/resolve"
-     :check-command (lambda (wk)
-                      (with-lsp-workspace wk
-                        (lsp:completion-options-resolve-provider?
-                         (lsp--capability-for-method "textDocument/completion")))))
-    ("textDocument/declaration" :capability :declarationProvider)
-    ("textDocument/definition" :capability :definitionProvider)
-    ("textDocument/documentColor" :capability :colorProvider)
-    ("textDocument/documentLink" :capability :documentLinkProvider)
-    ("textDocument/inlayHint" :capability :inlayHintProvider)
-    ("textDocument/documentHighlight" :capability :documentHighlightProvider)
-    ("textDocument/documentSymbol" :capability :documentSymbolProvider)
-    ("textDocument/foldingRange" :capability :foldingRangeProvider)
-    ("textDocument/formatting" :capability :documentFormattingProvider)
-    ("textDocument/hover" :capability :hoverProvider)
-    ("textDocument/implementation" :capability :implementationProvider)
-    ("textDocument/linkedEditingRange" :capability :linkedEditingRangeProvider)
-    ("textDocument/onTypeFormatting" :capability :documentOnTypeFormattingProvider)
-    ("textDocument/prepareRename"
-     :check-command (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (lsp:rename-options-prepare-provider?
-                         (lsp--capability-for-method "textDocument/rename")))))
-    ("textDocument/rangeFormatting" :capability :documentRangeFormattingProvider)
-    ("textDocument/references" :capability :referencesProvider)
-    ("textDocument/rename" :capability :renameProvider)
-    ("textDocument/selectionRange" :capability :selectionRangeProvider)
-    ("textDocument/semanticTokens" :capability :semanticTokensProvider)
-    ("textDocument/semanticTokensFull"
-     :check-command (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (lsp-get (lsp--capability :semanticTokensProvider) :full))))
-    ("textDocument/semanticTokensFull/Delta"
-     :check-command (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (let ((capFull (lsp-get (lsp--capability :semanticTokensProvider) :full)))
-                          (and (not (booleanp capFull)) (lsp-get capFull :delta))))))
-    ("textDocument/semanticTokensRangeProvider"
-     :check-command (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (lsp-get (lsp--capability :semanticTokensProvider) :range))))
-    ("textDocument/signatureHelp" :capability :signatureHelpProvider)
-    ("textDocument/typeDefinition" :capability :typeDefinitionProvider)
-    ("textDocument/typeHierarchy" :capability :typeHierarchyProvider)
-    ("textDocument/diagnostic" :capability :diagnosticProvider)
-    ("workspace/executeCommand" :capability :executeCommandProvider)
-    ("workspace/symbol" :capability :workspaceSymbolProvider))
-
-  "Map methods to requirements.
-It is used by request-sending functions to determine which server
-must be used for handling a particular message.")
-
-(defconst lsp--file-change-type
-  `((created . 1)
-    (changed . 2)
-    (deleted . 3)))
-
-(defconst lsp--watch-kind
-  `((create . 1)
-    (change . 2)
-    (delete . 4)))
-
-(defvar lsp-window-body-width 40
-  "Window body width when rendering doc.")
-
-(defface lsp-face-highlight-textual
-  '((t :inherit highlight))
-  "Face used for textual occurrences of symbols."
-  :group 'lsp-mode)
-
-(defface lsp-face-highlight-read
-  '((t :inherit highlight :underline t))
-  "Face used for highlighting symbols being read."
-  :group 'lsp-mode)
-
-(defface lsp-face-highlight-write
-  '((t :inherit highlight :weight bold))
-  "Face used for highlighting symbols being written to."
-  :group 'lsp-mode)
-
-(define-obsolete-variable-alias 'lsp-lens-auto-enable
-  'lsp-lens-enable "lsp-mode 7.0.1")
-
-(defcustom lsp-lens-enable t
-  "Auto enable lenses if server supports."
-  :group 'lsp-lens
-  :type 'boolean
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-symbol-highlighting-skip-current nil
-  "If non-nil skip current symbol when setting symbol highlights."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-file-watch-threshold 1000
-  "Show warning if the files to watch are more than.
-Set to nil to disable the warning."
-  :type 'number
-  :group 'lsp-mode)
-;;;###autoload(put 'lsp-file-watch-threshold 'safe-local-variable (lambda (i) (or (numberp i) (not i))))
-
-(defvar lsp-custom-markup-modes
-  '((rust-mode "no_run" "rust,no_run" "rust,ignore" "rust,should_panic"))
-  "Mode to uses with markdown code blocks.
-They are added to `markdown-code-lang-modes'")
-
-(defcustom lsp-signature-render-documentation t
-  "Display signature documentation in `eldoc'."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.2"))
-
-(defcustom lsp-signature-auto-activate '(:on-trigger-char :on-server-request)
-  "Auto activate signature conditions."
-  :type '(repeat (choice (const :tag "On trigger chars pressed." :on-trigger-char)
-                         (const :tag "After selected completion." :after-completion)
-                         (const :tag "When the server has sent show signature help." :on-server-request)))
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.2"))
-
-(defcustom lsp-signature-doc-lines 20
-  "If number, limit the number of lines to show in the docs."
-  :type 'number
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-signature-function 'lsp-lv-message
-  "The function used for displaying signature info.
-It will be called with one param - the signature info. When
-called with nil the signature info must be cleared."
-  :type 'function
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "6.3"))
-
-(defcustom lsp-keymap-prefix "s-l"
-  "LSP-mode keymap prefix."
-  :group 'lsp-mode
-  :type 'string
-  :package-version '(lsp-mode . "6.3"))
-
-(defvar-local lsp--buffer-workspaces ()
-  "List of the buffer workspaces.")
-
-(defvar-local lsp--buffer-deferred nil
-  "Whether buffer was loaded via `lsp-deferred'.")
-
-(defvar lsp--session nil
-  "Contain the `lsp-session' for the current Emacs instance.")
-
-(defvar lsp--tcp-port 10000)
-
-(defvar lsp--client-packages-required nil
-  "If nil, `lsp-client-packages' are yet to be required.")
-
-(defvar lsp--tcp-server-port 0
-  "The server socket which is opened when using `lsp-tcp-server' (a server
-socket is opened in Emacs and the language server connects to it).  The
-default value of 0 ensures that a random high port is used. Set it to a positive
-integer to use a specific port.")
-
-(defvar lsp--tcp-server-wait-seconds 10
-  "Wait this amount of time for the client to connect to our server socket
-when using `lsp-tcp-server'.")
-
-(defvar-local lsp--document-symbols nil
-  "The latest document symbols.")
-
-(defvar-local lsp--document-selection-range-cache nil
-  "The document selection cache.")
-
-(defvar-local lsp--document-symbols-request-async nil
-  "If non-nil, request document symbols asynchronously.")
-
-(defvar-local lsp--document-symbols-tick -1
-  "The value of `buffer-chars-modified-tick' when document
-  symbols were last retrieved.")
-
-(defvar-local lsp--have-document-highlights nil
-  "Set to `t' on symbol highlighting, cleared on
-`lsp--cleanup-highlights-if-needed'. Checking a separately
-defined flag is substantially faster than unconditionally
-calling `remove-overlays'.")
-
-;; Buffer local variable for storing number of lines.
-(defvar lsp--log-lines)
-
-(defvar-local lsp--eldoc-saved-message nil)
-
-(defvar lsp--on-change-timer nil)
-(defvar lsp--on-idle-timer nil)
-
-(defvar-local lsp--signature-last nil)
-(defvar-local lsp--signature-last-index nil)
-(defvar lsp--signature-last-buffer nil)
-
-(defvar-local lsp--virtual-buffer-point-max nil)
-
-(cl-defmethod lsp-execute-command (_server _command _arguments)
-  "Ask SERVER to execute COMMAND with ARGUMENTS.")
-
-(defun lsp-elt (sequence n)
-  "Return Nth element of SEQUENCE or nil if N is out of range."
-  (cond
-   ((listp sequence) (elt sequence n))
-   ((arrayp sequence)
-    (and (> (length sequence) n) (aref sequence n)))
-   (t (and (> (length sequence) n) (elt sequence n)))))
-
-;; define seq-first and seq-rest for older emacs
-(defun lsp-seq-first (sequence)
-  "Return the first element of SEQUENCE."
-  (lsp-elt sequence 0))
-
-(defun lsp-seq-rest (sequence)
-  "Return a sequence of the elements of SEQUENCE except the first one."
-  (seq-drop sequence 1))
-
-;;;###autoload
-(defun lsp--string-listp (sequence)
-  "Return t if all elements of SEQUENCE are strings, else nil."
-  (not (seq-find (lambda (x) (not (stringp x))) sequence)))
-
-(defun lsp--string-vector-p (candidate)
-  "Returns true if CANDIDATE is a vector data structure and
-every element of it is of type string, else nil."
-  (and
-   (vectorp candidate)
-   (seq-every-p #'stringp candidate)))
-
-(make-obsolete 'lsp--string-vector-p nil "lsp-mode 8.0.0")
-
-(defun lsp--editable-vector-match (widget value)
-  "Function for `lsp-editable-vector' :match."
-  ;; Value must be a list or a vector and all the members must match the type.
-  (and (or (listp value) (vectorp value))
-       (length (cdr (lsp--editable-vector-match-inline widget value)))))
-
-(defun lsp--editable-vector-match-inline (widget value)
-  "Value for `lsp-editable-vector' :match-inline."
-  (let ((type (nth 0 (widget-get widget :args)))
-        (ok t)
-        found)
-    (while (and value ok)
-      (let ((answer (widget-match-inline type value)))
-        (if answer
-            (let ((head (if (vectorp answer) (aref answer 0) (car answer)))
-                  (tail (if (vectorp answer) (seq-drop 1 answer) (cdr answer))))
-              (setq found (append found head)
-                    value tail))
-          (setq ok nil))))
-    (cons found value)))
-
-(defun lsp--editable-vector-value-to-external (_widget internal-value)
-  "Convert the internal list value to a vector."
-  (if (listp internal-value)
-      (apply 'vector internal-value)
-    internal-value))
-
-(defun lsp--editable-vector-value-to-internal (_widget external-value)
-  "Convert the external vector value to a list."
-  (if (vectorp external-value)
-      (append external-value nil)
-    external-value))
-
-(define-widget 'lsp--editable-vector 'editable-list
-  "A subclass of `editable-list' that accepts and returns a
-vector instead of a list."
-  :value-to-external 'lsp--editable-vector-value-to-external
-  :value-to-internal 'lsp--editable-vector-value-to-internal
-  :match 'lsp--editable-vector-match
-  :match-inline 'lsp--editable-vector-match-inline)
-
-(define-widget 'lsp-repeatable-vector 'lsp--editable-vector
-  "A variable length homogeneous vector."
-  :tag "Repeat"
-  :format "%{%t%}:\n%v%i\n")
-
-(define-widget 'lsp-string-vector 'lazy
-  "A vector of zero or more elements, every element of which is a string.
-Appropriate for any language-specific `defcustom' that needs to
-serialize as a JSON array of strings.
-
-Deprecated. Use `lsp-repeatable-vector' instead. "
-  :offset 4
-  :tag "Vector"
-  :type '(lsp-repeatable-vector string))
-
-(make-obsolete 'lsp-string-vector nil "lsp-mode 8.0.0")
-
-(defvar lsp--show-message t
-  "If non-nil, show debug message from `lsp-mode'.")
-
-(defun lsp--message  (format &rest args)
-  "Wrapper for `message'
-
-We `inhibit-message' the message when the cursor is in the
-minibuffer and when emacs version is before emacs 27 due to the
-fact that we often use `lsp--info', `lsp--warn' and `lsp--error'
-in async context and the call to these function is removing the
-minibuffer prompt. The issue with async messages is already fixed
-in emacs 27.
-
-See #2049"
-  (when lsp--show-message
-    (let ((inhibit-message (or inhibit-message
-                               (and (minibufferp)
-                                    (version< emacs-version "27.0")))))
-      (apply #'message format args))))
-
-(defun lsp--info (format &rest args)
-  "Display lsp info message with FORMAT with ARGS."
-  (lsp--message "%s :: %s" (propertize "LSP" 'face 'success) (apply #'format format args)))
-
-(defun lsp--warn (format &rest args)
-  "Display lsp warn message with FORMAT with ARGS."
-  (lsp--message "%s :: %s" (propertize "LSP" 'face 'warning) (apply #'format format args)))
-
-(defun lsp--error (format &rest args)
-  "Display lsp error message with FORMAT with ARGS."
-  (lsp--message "%s :: %s" (propertize "LSP" 'face 'error) (apply #'format format args)))
-
-(defun lsp-log (format &rest args)
-  "Log message to the ’*lsp-log*’ buffer.
-
-FORMAT and ARGS i the same as for `message'."
-  (when lsp-log-max
-    (let ((log-buffer (get-buffer "*lsp-log*"))
-          (inhibit-read-only t))
-      (unless log-buffer
-        (setq log-buffer (get-buffer-create "*lsp-log*"))
-        (with-current-buffer log-buffer
-          (buffer-disable-undo)
-          (view-mode 1)
-          (set (make-local-variable 'lsp--log-lines) 0)))
-      (with-current-buffer log-buffer
-        (save-excursion
-          (let* ((message (apply 'format format args))
-                 ;; Count newlines in message.
-                 (newlines (1+ (cl-loop with start = 0
-                                        for count from 0
-                                        while (string-match "\n" message start)
-                                        do (setq start (match-end 0))
-                                        finally return count))))
-            (goto-char (point-max))
-
-            ;; in case the buffer is not empty insert before last \n to preserve
-            ;; the point position(in case it is in the end)
-            (if (eq (point) (point-min))
-                (progn
-                  (insert "\n")
-                  (backward-char))
-              (backward-char)
-              (insert "\n"))
-            (insert message)
-
-            (setq lsp--log-lines (+ lsp--log-lines newlines))
-
-            (when (and (integerp lsp-log-max) (> lsp--log-lines lsp-log-max))
-              (let ((to-delete (- lsp--log-lines lsp-log-max)))
-                (goto-char (point-min))
-                (forward-line to-delete)
-                (delete-region (point-min) (point))
-                (setq lsp--log-lines lsp-log-max)))))))))
-
-(defalias 'lsp-message 'lsp-log)
-
-(defalias 'lsp-ht 'ht)
-
-(defalias 'lsp-file-local-name 'file-local-name)
-
-(defun lsp-f-canonical (file-name)
-  "Return the canonical FILE-NAME, without a trailing slash."
-  (directory-file-name (expand-file-name file-name)))
-
-(defalias 'lsp-canonical-file-name 'lsp-f-canonical)
-
-(defun lsp-f-same? (path-a path-b)
-  "Return t if PATH-A and PATH-B are references to the same file.
-Symlinks are not followed."
-  (when (and (f-exists? path-a)
-             (f-exists? path-b))
-    (equal
-     (lsp-f-canonical (directory-file-name (f-expand path-a)))
-     (lsp-f-canonical (directory-file-name (f-expand path-b))))))
-
-(defun lsp-f-parent (path)
-  "Return the parent directory to PATH.
-Symlinks are not followed."
-  (let ((parent (file-name-directory
-                 (directory-file-name (f-expand path default-directory)))))
-    (unless (lsp-f-same? path parent)
-      (if (f-relative? path)
-          (f-relative parent)
-        (directory-file-name parent)))))
-
-(defun lsp-f-ancestor-of? (path-a path-b)
-  "Return t if PATH-A is an ancestor of PATH-B.
-Symlinks are not followed."
-  (unless (lsp-f-same? path-a path-b)
-    (s-prefix? (concat (lsp-f-canonical path-a) (f-path-separator))
-               (lsp-f-canonical path-b))))
-
-(defun lsp--merge-results (results method)
-  "Merge RESULTS by filtering the empty hash-tables and merging
-the lists according to METHOD."
-  (pcase (--map (if (vectorp it)
-                    (append it nil) it)
-                (-filter #'identity results))
-    (`() ())
-    ;; only one result - simply return it
-    (`(,fst) fst)
-    ;; multiple results merge it based on strategy
-    (results
-     (pcase method
-       ("textDocument/hover" (pcase (seq-filter
-                                     (-compose #'not #'lsp-empty?)
-                                     results)
-                               (`(,hover) hover)
-                               (hovers (lsp-make-hover
-                                        :contents
-                                        (-mapcat
-                                         (-lambda ((&Hover :contents))
-                                           (if (and (sequencep contents)
-                                                    (not (stringp contents)))
-                                               (append contents ())
-                                             (list contents)))
-                                         hovers)))))
-       ("textDocument/completion"
-        (lsp-make-completion-list
-         :is-incomplete (seq-some
-                         #'lsp:completion-list-is-incomplete
-                         results)
-         :items (cl-mapcan (lambda (it) (append (if (lsp-completion-list? it)
-                                                    (lsp:completion-list-items it)
-                                                  it)
-                                                nil))
-                           results)))
-       ("completionItem/resolve"
-        (let ((item (cl-first results)))
-          (when-let* ((details (seq-filter #'identity
-                                          (seq-map #'lsp:completion-item-detail? results))))
-            (lsp:set-completion-item-detail?
-             item
-             (string-join details " ")))
-          (when-let* ((docs (seq-filter #'identity
-                                       (seq-map #'lsp:completion-item-documentation? results))))
-            (lsp:set-completion-item-documentation?
-             item
-             (lsp-make-markup-content
-              :kind (or (seq-some (lambda (it)
-                                    (when (equal (lsp:markup-content-kind it)
-                                                 lsp/markup-kind-markdown)
-                                      lsp/markup-kind-markdown))
-                                  docs)
-                        lsp/markup-kind-plain-text)
-              :value (string-join (seq-map (lambda (doc)
-                                             (or (lsp:markup-content-value doc)
-                                                 (and (stringp doc) doc)))
-                                           docs)
-                                  "\n"))))
-          (when-let* ((edits (seq-filter #'identity
-                                        (seq-map #'lsp:completion-item-additional-text-edits? results))))
-            (lsp:set-completion-item-additional-text-edits?
-             item
-             (cl-mapcan (lambda (it) (if (seqp it) it (list it))) edits)))
-          item))
-       (_ (cl-mapcan (lambda (it) (if (seqp it) it (list it))) results))))))
-
-(defun lsp--spinner-start ()
-  "Start spinner indication."
-  (condition-case _err (spinner-start (lsp-progress-spinner-type)) (error)))
-
-(defun lsp--propertize (str type)
-  "Propertize STR as per TYPE."
-  (propertize str 'face (alist-get type lsp--message-type-face)))
-
-(defun lsp-workspaces ()
-  "Return the lsp workspaces associated with the current project."
-  (if lsp--cur-workspace (list lsp--cur-workspace) lsp--buffer-workspaces))
-
-(defun lsp--completing-read (prompt collection transform-fn &optional predicate
-                                    require-match initial-input
-                                    hist def inherit-input-method)
-  "Wrap `completing-read' to provide transformation function and disable sort.
-
-TRANSFORM-FN will be used to transform each of the items before displaying.
-
-PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF
-INHERIT-INPUT-METHOD will be proxied to `completing-read' without changes."
-  (let* ((col (--map (cons (funcall transform-fn it) it) collection))
-         (completion (completing-read prompt
-                                      (lambda (string pred action)
-                                        (if (eq action 'metadata)
-                                            `(metadata (display-sort-function . identity))
-                                          (complete-with-action action col string pred)))
-                                      predicate require-match initial-input hist
-                                      def inherit-input-method)))
-    (cdr (assoc completion col))))
-
-(defconst lsp--system-arch (lambda ()
-                             (setq lsp--system-arch
-                                   (pcase system-type
-                                     ('windows-nt
-                                      (pcase system-configuration
-                                        ((rx bol "x86_64-") 'x64)
-                                        (_ 'x86)))
-                                     ('darwin
-                                      (pcase system-configuration
-                                        ((rx "aarch64-") 'arm64)
-                                        (_ 'x64)))
-                                     ('gnu/linux
-                                       (pcase system-configuration
-                                         ((rx bol "aarch64-") 'arm64)
-                                         ((rx bol "x86_64") 'x64)
-                                         ((rx bol (| "i386" "i886")) 'x32)))
-                                     (_
-                                      (pcase system-configuration
-                                        ((rx bol "x86_64") 'x64)
-                                        ((rx bol (| "i386" "i886")) 'x32))))))
-  "Return the system architecture of `Emacs'.
-Special values:
-  `x64'       64bit
-  `x32'       32bit
-  `arm64'     ARM 64bit")
-
-(defmacro lsp-with-current-buffer (buffer-id &rest body)
-  (declare (indent 1) (debug t))
-  `(if-let* ((wcb (plist-get ,buffer-id :with-current-buffer)))
-       (with-lsp-workspaces (plist-get ,buffer-id :workspaces)
-         (funcall wcb (lambda () ,@body)))
-     (with-current-buffer ,buffer-id
-       ,@body)))
-
-(defvar lsp--throw-on-input nil
-  "Make `lsp-*-while-no-input' throws `input' on interrupted.")
-
-(defmacro lsp--catch (tag bodyform &rest handlers)
-  "Catch TAG thrown in BODYFORM.
-The return value from TAG will be handled in HANDLERS by `pcase'."
-  (declare (debug (form form &rest (pcase-PAT body))) (indent 2))
-  (let ((re-sym (make-symbol "re")))
-    `(let ((,re-sym (catch ,tag ,bodyform)))
-       (pcase ,re-sym
-         ,@handlers))))
-
-(defmacro lsp--while-no-input (&rest body)
-  "Wrap BODY in `while-no-input' and respecting `non-essential'.
-If `lsp--throw-on-input' is set, will throw if input is pending, else
-return value of `body' or nil if interrupted."
-  (declare (debug t) (indent 0))
-  `(if non-essential
-       (let ((res (while-no-input ,@body)))
-         (cond
-          ((and lsp--throw-on-input (equal res t))
-           (throw 'input :interrupted))
-          ((booleanp res) nil)
-          (t res)))
-     ,@body))
-
-;; A ‘lsp--client’ object describes the client-side behavior of a language
-;; server.  It is used to start individual server processes, each of which is
-;; represented by a ‘lsp--workspace’ object.  Client objects are normally
-;; created using ‘lsp-define-stdio-client’ or ‘lsp-define-tcp-client’.  Each
-;; workspace refers to exactly one client, but there can be multiple workspaces
-;; for a single client.
-(cl-defstruct lsp--client
-  ;; ‘language-id’ is a function that receives a buffer as a single argument
-  ;; and should return the language identifier for that buffer.  See
-  ;; https://microsoft.github.io/language-server-protocol/specification#textdocumentitem
-  ;; for a list of language identifiers.  Also consult the documentation for
-  ;; the language server represented by this client to find out what language
-  ;; identifiers it supports or expects.
-  (language-id nil)
-
-  ;; ‘add-on?’ when set to t the server will be started no matter whether there
-  ;; is another server handling the same mode.
-  (add-on? nil)
-  ;; ‘new-connection’ is a function that should start a language server process
-  ;; and return a cons (COMMAND-PROCESS . COMMUNICATION-PROCESS).
-  ;; COMMAND-PROCESS must be a process object representing the server process
-  ;; just started.  COMMUNICATION-PROCESS must be a process (including pipe and
-  ;; network processes) that ‘lsp-mode’ uses to communicate with the language
-  ;; server using the language server protocol.  COMMAND-PROCESS and
-  ;; COMMUNICATION-PROCESS may be the same process; in that case
-  ;; ‘new-connection’ may also return that process as a single
-  ;; object. ‘new-connection’ is called with two arguments, FILTER and
-  ;; SENTINEL.  FILTER should be used as process filter for
-  ;; COMMUNICATION-PROCESS, and SENTINEL should be used as process sentinel for
-  ;; COMMAND-PROCESS.
-  (new-connection nil)
-
-  ;; ‘ignore-regexps’ is a list of regexps.  When a data packet from the
-  ;; language server matches any of these regexps, it will be ignored.  This is
-  ;; intended for dealing with language servers that output non-protocol data.
-  (ignore-regexps nil)
-
-  ;; ‘ignore-messages’ is a list of regexps.  When a message from the language
-  ;; server matches any of these regexps, it will be ignored.  This is useful
-  ;; for filtering out unwanted messages; such as servers that send nonstandard
-  ;; message types, or extraneous log messages.
-  (ignore-messages nil)
-
-  ;; ‘notification-handlers’ is a hash table mapping notification method names
-  ;; (strings) to functions handling the respective notifications.  Upon
-  ;; receiving a notification, ‘lsp-mode’ will call the associated handler
-  ;; function passing two arguments, the ‘lsp--workspace’ object and the
-  ;; deserialized notification parameters.
-  (notification-handlers (make-hash-table :test 'equal))
-
-  ;; ‘request-handlers’ is a hash table mapping request method names
-  ;; (strings) to functions handling the respective notifications.  Upon
-  ;; receiving a request, ‘lsp-mode’ will call the associated handler function
-  ;; passing two arguments, the ‘lsp--workspace’ object and the deserialized
-  ;; request parameters.
-  (request-handlers (make-hash-table :test 'equal))
-
-  ;; ‘response-handlers’ is a hash table mapping integral JSON-RPC request
-  ;; identifiers for pending asynchronous requests to functions handling the
-  ;; respective responses.  Upon receiving a response from the language server,
-  ;; ‘lsp-mode’ will call the associated response handler function with a
-  ;; single argument, the deserialized response parameters.
-  (response-handlers (make-hash-table :test 'eql))
-
-  ;; ‘prefix-function’ is called for getting the prefix for completion.
-  ;; The function takes no parameter and returns a cons (start . end) representing
-  ;; the start and end bounds of the prefix. If it's not set, the client uses a
-  ;; default prefix function."
-  (prefix-function nil)
-
-  ;; Contains mapping of scheme to the function that is going to be used to load
-  ;; the file.
-  (uri-handlers (make-hash-table :test #'equal))
-
-  ;; ‘action-handlers’ is a hash table mapping action to a handler function. It
-  ;; can be used in `lsp-execute-code-action' to determine whether the action
-  ;; current client is interested in executing the action instead of sending it
-  ;; to the server.
-  (action-handlers (make-hash-table :test 'equal))
-
-  ;; `action-filter' can be set to a function that modifies any incoming
-  ;; `CodeAction' in place before it is executed. The return value is ignored.
-  ;; This can be used to patch up broken code action requests before they are
-  ;; sent back to the LSP server. See `lsp-fix-code-action-booleans' for an
-  ;; example of a function that can be useful here.
-  (action-filter nil)
-
-  ;; major modes supported by the client.
-  major-modes
-  ;; Function that will be called to decide if this language client
-  ;; should manage a particular buffer. The function will be passed
-  ;; the file name and major mode to inform the decision. Setting
-  ;; `activation-fn' will override `major-modes', if
-  ;; present.
-  activation-fn
-  ;; Break the tie when major-mode is supported by multiple clients.
-  (priority 0)
-  ;; Unique identifier for representing the client object.
-  server-id
-  ;; defines whether the client supports multi root workspaces.
-  multi-root
-  ;; Initialization options or a function that returns initialization options.
-  initialization-options
-  ;; `semantic-tokens-faces-overrides’ is a plist that can be used to extend, or
-  ;; completely replace, the faces used for semantic highlighting on a
-  ;; client-by-client basis.
-  ;;
-  ;; It recognizes four members, all of which are optional: `:types’ and
-  ;; `:modifiers’, respectively, should be face definition lists akin to
-  ;; `:lsp-semantic-token-faces’. If specified, each of these face lists will be
-  ;; merged with the default face definition list.
-  ;;
-  ;; Alternatively, if the plist members `:discard-default-types’ or
-  ;; `:discard-default-modifiers' are non-nil, the default `:type' or `:modifiers'
-  ;; face definitions will be replaced entirely by their respective overrides.
-  ;;
-  ;; For example, setting `:semantic-tokens-faces-overrides' to
-  ;; `(:types (("macro" . font-lock-keyword-face)))' will remap "macro" tokens from
-  ;; their default face `lsp-face-semhl-macro' to `font-lock-keyword-face'.
-  ;;
-  ;; `(:types (("macro" . font-lock-keyword-face) ("not-quite-a-macro" . some-face)))'
-  ;; will also remap "macro", but on top of that associate the fictional token type
-  ;; "not-quite-a-macro" with the face named `some-face'.
-  ;;
-  ;; `(:types (("macro" . font-lock-keyword-face))
-  ;;   :modifiers (("declaration" . lsp-face-semhl-interface))
-  ;;   :discard-default-types t
-  ;;   :discard-default-modifiers t)'
-  ;; will discard all default face definitions, hence leaving the client with
-  ;; only one token type "macro", mapped to `font-lock-keyword-face', and one
-  ;; modifier type "declaration", mapped to `lsp-face-semhl-interface'.
-  semantic-tokens-faces-overrides
-  ;; Provides support for registering LSP Server specific capabilities.
-  custom-capabilities
-  ;; Function which returns the folders that are considered to be not projects but library files.
-  ;; The function accepts one parameter currently active workspace.
-  ;; See: https://github.com/emacs-lsp/lsp-mode/issues/225.
-  library-folders-fn
-  ;; function which will be called when opening file in the workspace to perform
-  ;; client specific initialization. The function accepts one parameter
-  ;; currently active workspace.
-  before-file-open-fn
-  ;; Function which will be called right after a workspace has been initialized.
-  initialized-fn
-  ;; ‘remote?’ indicate whether the client can be used for LSP server over TRAMP.
-  (remote? nil)
-
-  ;; ‘completion-in-comments?’ t if the client supports completion in comments.
-  (completion-in-comments? nil)
-
-  ;; ‘path->uri-fn’ the function to use for path->uri conversion for the client.
-  (path->uri-fn nil)
-
-  ;; ‘uri->path-fn’ the function to use for uri->path conversion for the client.
-  (uri->path-fn nil)
-  ;; Function that returns an environment structure that will be used
-  ;; to set some environment variables when starting the language
-  ;; server process. These environment variables enable some
-  ;; additional features in the language server. The environment
-  ;; structure is an alist of the form (KEY . VALUE), where KEY is a
-  ;; string (regularly in all caps), and VALUE may be a string, a
-  ;; boolean, or a sequence of strings.
-  environment-fn
-
-  ;; ‘after-open-fn’ workspace after open specific hooks.
-  (after-open-fn nil)
-
-  ;; ‘async-request-handlers’ is a hash table mapping request method names
-  ;; (strings) to functions handling the respective requests that may take
-  ;; time to finish.  Upon receiving a request, ‘lsp-mode’ will call the
-  ;; associated handler function passing three arguments, the ‘lsp--workspace’
-  ;; object, the deserialized request parameters and the callback which accept
-  ;; result as its parameter.
-  (async-request-handlers (make-hash-table :test 'equal))
-  download-server-fn
-  download-in-progress?
-  buffers
-  synchronize-sections)
-
-(defun lsp-clients-executable-find (find-command &rest args)
-  "Finds an executable by invoking a search command.
-
-FIND-COMMAND is the executable finder that searches for the
-actual language server executable. ARGS is a list of arguments to
-give to FIND-COMMAND to find the language server.  Returns the
-output of FIND-COMMAND if it exits successfully, nil otherwise.
-
-Typical uses include finding an executable by invoking `find' in
-a project, finding LLVM commands on macOS with `xcrun', or
-looking up project-specific language servers for projects written
-in the various dynamic languages, e.g. `nvm', `pyenv' and `rbenv'
-etc."
-  (when-let* ((find-command-path (executable-find find-command))
-              (executable-path
-               (with-temp-buffer
-                 (when (zerop (apply 'call-process find-command-path nil t nil args))
-                   (buffer-substring-no-properties (point-min) (point-max))))))
-    (string-trim executable-path)))
-
-(defvar lsp--already-widened nil)
-
-(defmacro lsp-save-restriction-and-excursion (&rest form)
-  (declare (indent 0) (debug t))
-  `(if lsp--already-widened
-       (save-excursion ,@form)
-     (-let [lsp--already-widened t]
-       (save-restriction
-         (widen)
-         (save-excursion ,@form)))))
-
-;; from http://emacs.stackexchange.com/questions/8082/how-to-get-buffer-position-given-line-number-and-column-number
-(defun lsp--line-character-to-point (line character)
-  "Return the point for character CHARACTER on line LINE."
-  (or (lsp-virtual-buffer-call :line/character->point line character)
-      (let ((inhibit-field-text-motion t))
-        (lsp-save-restriction-and-excursion
-          (goto-char (point-min))
-          (forward-line line)
-          ;; server may send character position beyond the current line and we
-          ;; should fallback to line end.
-          (-let [line-end (line-end-position)]
-            (if (> character (- line-end (point)))
-                line-end
-              (forward-char character)
-              (point)))))))
-
-(lsp-defun lsp--position-to-point ((&Position :line :character))
-  "Convert `Position' object in PARAMS to a point."
-  (lsp--line-character-to-point line character))
-
-(lsp-defun lsp--range-to-region ((&RangeToPoint :start :end))
-  (cons start end))
-
-(lsp-defun lsp--range-text ((&RangeToPoint :start :end))
-  (buffer-substring start end))
-
-(lsp-defun lsp--find-wrapping-range ((&SelectionRange :parent? :range (&RangeToPoint :start :end)))
-  (cond
-   ((and
-     (region-active-p)
-     (<= start (region-beginning) end)
-     (<= start (region-end) end)
-     (or (not (= start (region-beginning)))
-         (not (= end (region-end)))))
-    (cons start end))
-   ((and (<= start (point) end)
-         (not (region-active-p)))
-    (cons start end))
-   (parent? (lsp--find-wrapping-range parent?))))
-
-(defun lsp--get-selection-range ()
-  (or
-   (-when-let ((cache . cache-tick) lsp--document-selection-range-cache)
-     (when (= cache-tick (buffer-modified-tick)) cache))
-   (let ((response (cl-first
-                    (lsp-request
-                     "textDocument/selectionRange"
-                     (list :textDocument (lsp--text-document-identifier)
-                           :positions (vector (lsp--cur-position)))))))
-     (setq lsp--document-selection-range-cache
-           (cons response (buffer-modified-tick)))
-     response)))
-
-(defun lsp-extend-selection ()
-  "Extend selection."
-  (interactive)
-  (unless (lsp-feature? "textDocument/selectionRange")
-    (signal 'lsp-capability-not-supported (list "selectionRangeProvider")))
-  (-when-let ((start . end) (lsp--find-wrapping-range (lsp--get-selection-range)))
-    (goto-char start)
-    (set-mark (point))
-    (goto-char end)
-    (exchange-point-and-mark)))
-
-(defun lsp-warn (message &rest args)
-  "Display a warning message made from (`format-message' MESSAGE ARGS...).
-This is equivalent to `display-warning', using `lsp-mode' as the type and
-`:warning' as the level."
-  (display-warning 'lsp-mode (apply #'format-message message args)))
-
-(defun lsp--get-uri-handler (scheme)
-  "Get uri handler for SCHEME in the current workspace."
-  (--some (gethash scheme (lsp--client-uri-handlers (lsp--workspace-client it)))
-          (or (lsp-workspaces) (lsp--session-workspaces (lsp-session)))))
-
-(defun lsp--fix-path-casing (path)
-  "On windows, downcases path because the windows file system is
-case-insensitive.
-
-On other systems, returns path without change."
-  (if (eq system-type 'windows-nt) (downcase path) path))
-
-(defun lsp--uri-to-path (uri)
-  "Convert URI to a file path."
-  (if-let* ((fn (->> (lsp-workspaces)
-                    (-keep (-compose #'lsp--client-uri->path-fn #'lsp--workspace-client))
-                    (cl-first))))
-      (funcall fn uri)
-    (lsp--uri-to-path-1 uri)))
-
-(defun lsp-remap-path-if-needed (file-name)
-  (-if-let ((virtual-buffer &as &plist :buffer) (gethash file-name lsp--virtual-buffer-mappings))
-      (propertize (buffer-local-value 'buffer-file-name buffer)
-                  'lsp-virtual-buffer virtual-buffer)
-    file-name))
-
-(defun lsp--uri-to-path-1 (uri)
-  "Convert URI to a file path."
-  (let* ((url (url-generic-parse-url (url-unhex-string uri)))
-         (type (url-type url))
-         (target (url-target url))
-         (file
-          (concat (decode-coding-string (url-filename url)
-                                        (or locale-coding-system 'utf-8))
-                  (when (and target
-                             (not (s-match
-                                   (rx "#" (group (1+ num)) (or "," "#")
-                                       (group (1+ num))
-                                       string-end)
-                                   uri)))
-                    (concat "#" target))))
-         (file-name (if (and type (not (string= type "file")))
-                        (if-let* ((handler (lsp--get-uri-handler type)))
-                            (funcall handler uri)
-                          uri)
-                      ;; `url-generic-parse-url' is buggy on windows:
-                      ;; https://github.com/emacs-lsp/lsp-mode/pull/265
-                      (or (and (eq system-type 'windows-nt)
-                               (eq (elt file 0) ?\/)
-                               (substring file 1))
-                          file))))
-    (->> file-name
-         (concat (-some #'lsp--workspace-host-root (lsp-workspaces)))
-         (lsp-remap-path-if-needed))))
-
-(defun lsp--buffer-uri ()
-  "Return URI of the current buffer."
-  (or lsp-buffer-uri
-      (plist-get lsp--virtual-buffer :buffer-uri)
-      (lsp--path-to-uri
-       (or (buffer-file-name) (buffer-file-name (buffer-base-buffer))))))
-
-(defun lsp-register-client-capabilities (&rest _args)
-  "Implemented only to make `company-lsp' happy.
-DELETE when `lsp-mode.el' is deleted.")
-
-(defconst lsp--url-path-allowed-chars
-  (url--allowed-chars (append '(?/) url-unreserved-chars))
-  "`url-unreserved-chars' with additional delim ?/.
-This set of allowed chars is enough for hexifying local file paths.")
-
-(defun lsp--path-to-uri-1 (path)
-  (concat lsp--uri-file-prefix
-          (--> path
-            (expand-file-name it)
-            (or (file-remote-p it 'localname t) it)
-            (url-hexify-string it lsp--url-path-allowed-chars))))
-
-(defun lsp--path-to-uri (path)
-  "Convert PATH to a uri."
-  (if-let* ((uri-fn (->> (lsp-workspaces)
-                        (-keep (-compose #'lsp--client-path->uri-fn #'lsp--workspace-client))
-                        (cl-first))))
-      (funcall uri-fn path)
-    (lsp--path-to-uri-1 path)))
-
-(defun lsp--string-match-any (regex-list str)
-  "Return the first regex, if any, within REGEX-LIST matching STR."
-  (--first (string-match it str) regex-list))
-
-(cl-defstruct lsp-watch
-  (descriptors (make-hash-table :test 'equal))
-  root-directory)
-
-(defun lsp--folder-watch-callback (event callback watch ignored-files ignored-directories)
-  (let ((file-name (cl-third event))
-        (event-type (cl-second event)))
-    (cond
-     ((and (file-directory-p file-name)
-           (equal 'created event-type)
-           (not (lsp--string-match-any ignored-directories file-name)))
-
-      (lsp-watch-root-folder (file-truename file-name) callback ignored-files ignored-directories watch)
-
-      ;; process the files that are already present in
-      ;; the directory.
-      (->> (directory-files-recursively file-name ".*" t)
-           (seq-do (lambda (f)
-                     (unless (file-directory-p f)
-                       (funcall callback (list nil 'created f)))))))
-     ((and (memq event-type '(created deleted changed))
-           (not (file-directory-p file-name))
-           (not (lsp--string-match-any ignored-files file-name)))
-      (funcall callback event))
-     ((and (memq event-type '(renamed))
-           (not (file-directory-p file-name))
-           (not (lsp--string-match-any ignored-files file-name)))
-      (funcall callback `(,(cl-first event) deleted ,(cl-third event)))
-      (funcall callback `(,(cl-first event) created ,(cl-fourth event)))))))
-
-(defun lsp--ask-about-watching-big-repo (number-of-directories dir)
-  "Ask the user if they want to watch NUMBER-OF-DIRECTORIES from a repository DIR.
-This is useful when there is a lot of files in a repository, as
-that may slow Emacs down. Returns t if the user wants to watch
-the entire repository, nil otherwise."
-  (prog1
-      (yes-or-no-p
-       (format
-        "Watching all the files in %s would require adding watches to %s directories, so watching the repo may slow Emacs down.
-Do you want to watch all files in %s? "
-        dir
-        number-of-directories
-        dir))
-    (lsp--info
-     (concat "You can configure this warning with the `lsp-enable-file-watchers' "
-             "and `lsp-file-watch-threshold' variables"))))
-
-
-(defun lsp--path-is-watchable-directory (path dir ignored-directories)
-  "Figure out whether PATH (inside of DIR) is meant to have a file watcher set.
-IGNORED-DIRECTORIES is a list of regexes to filter out directories we don't
-want to watch."
-  (let
-      ((full-path (f-join dir path)))
-    (and (file-accessible-directory-p full-path)
-         (not (equal path "."))
-         (not (equal path ".."))
-         (not (lsp--string-match-any ignored-directories full-path)))))
-
-
-(defun lsp--all-watchable-directories (dir ignored-directories &optional visited)
-  "Traverse DIR recursively returning a list of paths that should have watchers.
-IGNORED-DIRECTORIES will be used for exclusions.
-VISITED is used to track already-visited directories to avoid infinite loops."
-  (let* ((dir (if (f-symlink? dir)
-                  (file-truename dir)
-                dir))
-         ;; Initialize visited directories if not provided
-         (visited (or visited (make-hash-table :test 'equal))))
-    (if (gethash dir visited)
-        ;; If the directory has already been visited, skip it
-        nil
-      ;; Mark the current directory as visited
-      (puthash dir t visited)
-      (apply #'nconc
-             ;; the directory itself is assumed to be part of the set
-             (list dir)
-             ;; collect all subdirectories that are watchable
-             (-map
-              (lambda (path) (lsp--all-watchable-directories (f-join dir path) ignored-directories visited))
-              ;; but only look at subdirectories that are watchable
-              (-filter (lambda (path) (lsp--path-is-watchable-directory path dir ignored-directories))
-                       (directory-files dir)))))))
-
-(defun lsp-watch-root-folder (dir callback ignored-files ignored-directories &optional watch warn-big-repo?)
-  "Create recursive file notification watch in DIR.
-CALLBACK will be called when there are changes in any of
-the monitored files. WATCHES is a hash table directory->file
-notification handle which contains all of the watch that
-already have been created. Watches will not be created for
-any directory that matches any regex in IGNORED-DIRECTORIES.
-Watches will not be created for any file that matches any
-regex in IGNORED-FILES."
-  (let* ((dir (if (f-symlink? dir)
-                  (file-truename dir)
-                dir))
-         (watch (or watch (make-lsp-watch :root-directory dir)))
-         (dirs-to-watch (lsp--all-watchable-directories dir ignored-directories)))
-    (lsp-log "Creating watchers for following %s folders:\n  %s"
-             (length dirs-to-watch)
-             (s-join "\n  " dirs-to-watch))
-    (when (or
-           (not warn-big-repo?)
-           (not lsp-file-watch-threshold)
-           (let ((number-of-directories (length dirs-to-watch)))
-             (or
-              (< number-of-directories lsp-file-watch-threshold)
-              (condition-case nil
-                  (lsp--ask-about-watching-big-repo number-of-directories dir)
-                (quit)))))
-      (dolist (current-dir dirs-to-watch)
-        (condition-case err
-            (progn
-              (puthash
-               current-dir
-               (file-notify-add-watch current-dir
-                                      '(change)
-                                      (lambda (event)
-                                        (lsp--folder-watch-callback event callback watch ignored-files ignored-directories)))
-               (lsp-watch-descriptors watch)))
-          (error (lsp-log "Failed to create a watch for %s: message" (error-message-string err)))
-          (file-missing (lsp-log "Failed to create a watch for %s: message" (error-message-string err))))))
-    watch))
-
-(defun lsp-kill-watch (watch)
-  "Delete WATCH."
-  (-> watch lsp-watch-descriptors hash-table-values (-each #'file-notify-rm-watch))
-  (ht-clear! (lsp-watch-descriptors watch)))
-
-(defun lsp-json-bool (val)
-  "Convert VAL to JSON boolean."
-  (if val t :json-false))
-
-(defmacro with-lsp-workspace (workspace &rest body)
-  "Helper macro for invoking BODY in WORKSPACE context."
-  (declare (debug (form body))
-           (indent 1))
-  `(let ((lsp--cur-workspace ,workspace)) ,@body))
-
-(defmacro with-lsp-workspaces (workspaces &rest body)
-  "Helper macro for invoking BODY against multiple WORKSPACES."
-  (declare (debug (form body))
-           (indent 1))
-  `(let ((lsp--buffer-workspaces ,workspaces)) ,@body))
-
-
-
-(defmacro lsp-consistency-check (package)
-  `(defconst ,(intern (concat (symbol-name package)
-                              "-plist-value-when-compiled"))
-     (eval-when-compile lsp-use-plists)))
-
-
-;; loading code-workspace files
-
-;;;###autoload
-(defun lsp-load-vscode-workspace (file)
-  "Load vscode workspace from FILE"
-  (interactive "fSelect file to import: ")
-  (mapc #'lsp-workspace-folders-remove (lsp-session-folders (lsp-session)))
-
-  (let ((dir (f-dirname file)))
-    (->> file
-         (json-read-file)
-         (alist-get 'folders)
-         (-map (-lambda ((&alist 'path))
-                 (lsp-workspace-folders-add (expand-file-name path dir)))))))
-
-;;;###autoload
-(defun lsp-save-vscode-workspace (file)
-  "Save vscode workspace to FILE"
-  (interactive "FSelect file to save to: ")
-
-  (let ((json-encoding-pretty-print t))
-    (f-write-text (json-encode
-                   `((folders . ,(->> (lsp-session)
-                                      (lsp-session-folders)
-                                      (--map `((path . ,it)))))))
-                  'utf-8
-                  file)))
-
-
-(defmacro lsp-foreach-workspace (&rest body)
-  "Execute BODY for each of the current workspaces."
-  (declare (debug (form body)))
-  `(--map (with-lsp-workspace it ,@body) (lsp-workspaces)))
-
-(defmacro when-lsp-workspace (workspace &rest body)
-  "Helper macro for invoking BODY in WORKSPACE context if present."
-  (declare (debug (form body))
-           (indent 1))
-  `(when-let* ((lsp--cur-workspace ,workspace)) ,@body))
-
-(lsp-defun lsp--window-show-quick-pick (_workspace (&ShowQuickPickParams :place-holder :can-pick-many :items))
-  (if-let* ((selectfunc (if can-pick-many #'completing-read-multiple #'completing-read))
-            (itemLabels (seq-map (-lambda ((item &as &QuickPickItem :label)) (format "%s" label))
-                                 items))
-            (result (funcall-interactively
-                     selectfunc
-                     (format "%s%s " place-holder (if can-pick-many " (* for all)" "")) itemLabels))
-            (choices (if (listp result)
-                         (if (equal result '("*"))
-                             itemLabels
-                           result)
-                       (list result))))
-      (vconcat (seq-filter #'identity (seq-map (-lambda ((item &as &QuickPickItem :label :user-data))
-                                                 (if (member label choices)
-                                                     (lsp-make-quick-pick-item :label label :picked t :user-data user-data)
-                                                   nil))
-                                               items)))))
-
-(lsp-defun lsp--window-show-input-box (_workspace (&ShowInputBoxParams :prompt :value?))
-  (read-string (format "%s: " prompt) (or value? "")))
-
-(lsp-defun lsp--window-show-message (_workspace (&ShowMessageRequestParams :message :type))
-  "Send the server's messages to log.
-PARAMS - the data sent from _WORKSPACE."
-  (funcall (cl-case type
-             (1 'lsp--error)
-             (2 'lsp--warn)
-             (t 'lsp--info))
-           "%s"
-           message))
-
-(lsp-defun lsp--window-log-message (workspace (&ShowMessageRequestParams :message :type))
-  "Send the server's messages to log.
-PARAMS - the data sent from WORKSPACE."
-  (ignore
-   (let ((client (lsp--workspace-client workspace)))
-     (when (or (not client)
-               (cl-notany (-rpartial #'string-match-p message)
-                          (lsp--client-ignore-messages client)))
-       (lsp-log "%s" (lsp--propertize message type))))))
-
-(lsp-defun lsp--window-log-message-request ((&ShowMessageRequestParams :message :type :actions?))
-  "Display a message request to user sending the user selection back to server."
-  (let* ((message (lsp--propertize message type))
-         (choices (seq-map #'lsp:message-action-item-title actions?)))
-    (if choices
-        (completing-read (concat message " ") (seq-into choices 'list) nil t)
-      (lsp-log message))))
-
-(lsp-defun lsp--window-show-document ((&ShowDocumentParams :uri :selection?))
-  "Show document URI in a buffer and go to SELECTION if any."
-  (let ((path (lsp--uri-to-path uri)))
-    (when (f-exists? path)
-      (with-current-buffer (find-file path)
-        (when selection?
-          (goto-char (lsp--position-to-point (lsp:range-start selection?))))
-        t))))
-
-(defcustom lsp-progress-prefix "⌛ "
-  "Progress prefix."
-  :group 'lsp-mode
-  :type 'string
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-progress-function #'lsp-on-progress-modeline
-  "Function for handling the progress notifications."
-  :group 'lsp-mode
-  :type '(choice
-          (const :tag "Use modeline" lsp-on-progress-modeline)
-          (const :tag "Legacy(uses either `progress-reporter' or `spinner' based on `lsp-progress-via-spinner')"
-                 lsp-on-progress-legacy)
-          (const :tag "Ignore" ignore)
-          (function :tag "Other function"))
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defcustom lsp-request-while-no-input-may-block nil
-  "Have `lsp-request-while-no-input` block unless `non-essential` is t."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defun lsp--progress-status ()
-  "Returns the status of the progress for the current workspaces."
-  (-let ((progress-status
-          (s-join
-           "|"
-           (-keep
-            (lambda (workspace)
-              (let ((tokens (lsp--workspace-work-done-tokens workspace)))
-                (unless (ht-empty? tokens)
-                  (mapconcat
-                   (-lambda ((&WorkDoneProgressBegin :message? :title :percentage?))
-                     (concat (if percentage?
-                                 (if (numberp percentage?)
-                                     (format "%.0f%%%% " percentage?)
-                                   (format "%s%%%% " percentage?))
-                               "")
-                             (or message? title)))
-                   (ht-values tokens)
-                   "|"))))
-            (lsp-workspaces)))))
-    (unless (s-blank? progress-status)
-      (concat lsp-progress-prefix progress-status " "))))
-
-(lsp-defun lsp-on-progress-modeline (workspace (&ProgressParams :token :value
-                                                                (value &as &WorkDoneProgress :kind)))
-  "PARAMS contains the progress data.
-WORKSPACE is the workspace that contains the progress token."
-  (add-to-list 'global-mode-string '(t (:eval (lsp--progress-status))))
-  (pcase kind
-    ("begin" (lsp-workspace-set-work-done-token token value workspace))
-    ("report" (lsp-workspace-set-work-done-token token value workspace))
-    ("end" (lsp-workspace-rem-work-done-token token workspace)))
-  (force-mode-line-update))
-
-(lsp-defun lsp-on-progress-legacy (workspace (&ProgressParams :token :value
-                                                              (value &as &WorkDoneProgress :kind)))
-  "PARAMS contains the progress data.
-WORKSPACE is the workspace that contains the progress token."
-  (pcase kind
-    ("begin"
-     (-let* (((&WorkDoneProgressBegin :title :percentage?) value)
-             (reporter
-              (if lsp-progress-via-spinner
-                  (let* ((spinner-strings (alist-get (lsp-progress-spinner-type) spinner-types))
-                         ;; Set message as a tooltip for the spinner strings
-                         (propertized-strings
-                          (seq-map (lambda (string) (propertize string 'help-echo title))
-                                   spinner-strings))
-                         (spinner-type (vconcat propertized-strings)))
-                    ;; The progress relates to the server as a whole,
-                    ;; display it on all buffers.
-                    (mapcar (lambda (buffer)
-                              (lsp-with-current-buffer buffer
-                                (spinner-start spinner-type))
-                              buffer)
-                            (lsp--workspace-buffers workspace)))
-                (if percentage?
-                    (make-progress-reporter title 0 100 percentage?)
-                  ;; No percentage, just progress
-                  (make-progress-reporter title nil nil)))))
-       (lsp-workspace-set-work-done-token token reporter workspace)))
-    ("report"
-     (when-let* ((reporter (lsp-workspace-get-work-done-token token workspace)))
-       (unless lsp-progress-via-spinner
-         (progress-reporter-update reporter (lsp:work-done-progress-report-percentage? value)))))
-
-    ("end"
-     (when-let* ((reporter (lsp-workspace-get-work-done-token token workspace)))
-       (if lsp-progress-via-spinner
-           (mapc (lambda (buffer)
-                   (when (lsp-buffer-live-p buffer)
-                     (lsp-with-current-buffer buffer
-                       (spinner-stop))))
-                 reporter)
-         (progress-reporter-done reporter))
-       (lsp-workspace-rem-work-done-token token workspace)))))
-
-
-;; diagnostics
-
-(defvar lsp-diagnostic-filter nil
-  "A a function which will be called with
-  `&PublishDiagnosticsParams' and `workspace' which can be used
-  to filter out the diagnostics. The function should return
-  `&PublishDiagnosticsParams'.
-
-Common usecase are:
-1. Filter the diagnostics for a particular language server.
-2. Filter out the diagnostics under specific level.")
-
-(defvar lsp-diagnostic-stats (ht))
-
-(defun lsp-diagnostics (&optional current-workspace?)
-  "Return the diagnostics from all workspaces."
-  (or (pcase (if current-workspace?
-                 (lsp-workspaces)
-               (lsp--session-workspaces (lsp-session)))
-        (`() ())
-        (`(,workspace) (lsp--workspace-diagnostics workspace))
-        (`,workspaces (let ((result (make-hash-table :test 'equal)))
-                        (mapc (lambda (workspace)
-                                (->> workspace
-                                     (lsp--workspace-diagnostics)
-                                     (maphash (lambda (file-name diagnostics)
-                                                (puthash file-name
-                                                         (append (gethash file-name result) diagnostics)
-                                                         result)))))
-                              workspaces)
-                        result)))
-      (ht)))
-
-(defun lsp-diagnostics-stats-for (path)
-  "Get diagnostics statistics for PATH.
-The result format is vector [_ errors warnings infos hints] or nil."
-  (gethash (lsp--fix-path-casing path) lsp-diagnostic-stats))
-
-(defun lsp-diagnostics--request-pull-diagnostics (workspace)
-  "Request new diagnostics for the current file within WORKSPACE.
-This is only executed if the server supports pull diagnostics."
-  (when (lsp-feature? "textDocument/diagnostic")
-    (let ((path (lsp--fix-path-casing (buffer-file-name))))
-      (lsp-request-async "textDocument/diagnostic"
-                         (list :textDocument (lsp--text-document-identifier))
-                         (-lambda ((&DocumentDiagnosticReport :kind :items?))
-                           (lsp-diagnostics--apply-pull-diagnostics workspace path kind items?))
-                         :mode 'tick))))
-
-(defun lsp-diagnostics--update-path (path new-stats)
-  (let ((new-stats (copy-sequence new-stats))
-        (path (lsp--fix-path-casing (directory-file-name path))))
-    (if-let* ((old-data (gethash path lsp-diagnostic-stats)))
-        (dotimes (idx 5)
-          (cl-callf + (aref old-data idx)
-            (aref new-stats idx)))
-      (puthash path new-stats lsp-diagnostic-stats))))
-
-(defun lsp-diagnostics--convert-and-update-path-stats (workspace path diagnostics)
-  (let ((path (lsp--fix-path-casing path))
-        (new-stats (make-vector 5 0)))
-    (mapc (-lambda ((&Diagnostic :severity?))
-            (cl-incf (aref new-stats (or severity? 1))))
-          diagnostics)
-    (when-let* ((old-diags (gethash path (lsp--workspace-diagnostics workspace))))
-      (mapc (-lambda ((&Diagnostic :severity?))
-              (cl-decf (aref new-stats (or severity? 1))))
-            old-diags))
-    (lsp-diagnostics--update-path path new-stats)
-    (while (not (string= path (setf path (file-name-directory
-                                          (directory-file-name path)))))
-      (lsp-diagnostics--update-path path new-stats))))
-
-(lsp-defun lsp--on-diagnostics-update-stats (workspace
-                                             (&PublishDiagnosticsParams :uri :diagnostics))
-  (lsp-diagnostics--convert-and-update-path-stats workspace (lsp--uri-to-path uri) diagnostics))
-
-(defun lsp-diagnostics--apply-pull-diagnostics (workspace path kind diagnostics?)
-  "Update WORKSPACE diagnostics at PATH with DIAGNOSTICS?.
-Depends on KIND being a \\='full\\=' update."
-  (cond
-   ((equal kind "full")
-    ;; TODO support `lsp-diagnostic-filter'
-    ;; (the params types differ from the published diagnostics response)
-    (lsp-diagnostics--convert-and-update-path-stats workspace path diagnostics?)
-    (-let* ((lsp--virtual-buffer-mappings (ht))
-            (workspace-diagnostics (lsp--workspace-diagnostics workspace)))
-      (if (seq-empty-p diagnostics?)
-          (remhash path workspace-diagnostics)
-        (puthash path (append diagnostics? nil) workspace-diagnostics))
-      (run-hooks 'lsp-diagnostics-updated-hook)))
-    ((equal kind "unchanged") t)
-    (t (lsp--error "Unknown pull diagnostic result kind '%s'" kind))))
-
-(defun lsp--on-diagnostics (workspace params)
-  "Callback for textDocument/publishDiagnostics.
-interface PublishDiagnosticsParams {
-    uri: string;
-    diagnostics: Diagnostic[];
-}
-PARAMS contains the diagnostics data.
-WORKSPACE is the workspace that contains the diagnostics."
-  (when lsp-diagnostic-filter
-    (setf params (funcall lsp-diagnostic-filter params workspace)))
-
-  (lsp--on-diagnostics-update-stats workspace params)
-
-  (-let* (((&PublishDiagnosticsParams :uri :diagnostics) params)
-          (lsp--virtual-buffer-mappings (ht))
-          (file (lsp--fix-path-casing (lsp--uri-to-path uri)))
-          (workspace-diagnostics (lsp--workspace-diagnostics workspace)))
-
-    (if (seq-empty-p diagnostics)
-        (remhash file workspace-diagnostics)
-      (puthash file (append diagnostics nil) workspace-diagnostics))
-
-    (run-hooks 'lsp-diagnostics-updated-hook)))
-
-(defun lsp-diagnostics--workspace-cleanup (workspace)
-  (->> workspace
-       (lsp--workspace-diagnostics)
-       (maphash (lambda (key _)
-                  (lsp--on-diagnostics-update-stats
-                   workspace
-                   (lsp-make-publish-diagnostics-params
-                    :uri (lsp--path-to-uri key)
-                    :diagnostics [])))))
-  (clrhash (lsp--workspace-diagnostics workspace)))
-
-
-
-;; textDocument/foldingRange support
-
-(cl-defstruct lsp--folding-range beg end kind children)
-
-(defvar-local lsp--cached-folding-ranges nil)
-(defvar-local lsp--cached-nested-folding-ranges nil)
-
-(defun lsp--folding-range-width (range)
-  (- (lsp--folding-range-end range)
-     (lsp--folding-range-beg range)))
-
-(defun lsp--get-folding-ranges ()
-  "Get the folding ranges for the current buffer."
-  (unless (eq (buffer-chars-modified-tick) (car lsp--cached-folding-ranges))
-    (let* ((ranges (lsp-request "textDocument/foldingRange"
-                                `(:textDocument ,(lsp--text-document-identifier))))
-           (sorted-line-col-pairs (->> ranges
-                                       (cl-mapcan (-lambda ((&FoldingRange :start-line
-                                                                           :start-character?
-                                                                           :end-line
-                                                                           :end-character?))
-                                                    (list (cons start-line start-character?)
-                                                          (cons end-line end-character?))))
-                                       (-sort #'lsp--line-col-comparator)))
-           (line-col-to-point-map (lsp--convert-line-col-to-points-batch
-                                   sorted-line-col-pairs)))
-      (setq lsp--cached-folding-ranges
-            (cons (buffer-chars-modified-tick)
-                  (--> ranges
-                    (seq-map (-lambda ((range &as
-                                              &FoldingRange :start-line
-                                              :start-character?
-                                              :end-line
-                                              :end-character?
-                                              :kind?))
-                               (make-lsp--folding-range
-                                :beg (ht-get line-col-to-point-map
-                                             (cons start-line start-character?))
-                                :end (ht-get line-col-to-point-map
-                                             (cons end-line end-character?))
-                                :kind kind?))
-                             it)
-                    (seq-filter (lambda (folding-range)
-                                  (< (lsp--folding-range-beg folding-range)
-                                     (lsp--folding-range-end folding-range)))
-                                it)
-                    (seq-into it 'list)
-                    (delete-dups it))))))
-  (cdr lsp--cached-folding-ranges))
-
-(defun lsp--get-nested-folding-ranges ()
-  "Get a list of nested folding ranges for the current buffer."
-  (-let [(tick . _) lsp--cached-folding-ranges]
-    (if (and (eq tick (buffer-chars-modified-tick))
-             lsp--cached-nested-folding-ranges)
-        lsp--cached-nested-folding-ranges
-      (setq lsp--cached-nested-folding-ranges
-            (lsp--folding-range-build-trees (lsp--get-folding-ranges))))))
-
-(defun lsp--folding-range-build-trees (ranges)
-  (setq ranges (seq-sort #'lsp--range-before-p ranges))
-  (let* ((dummy-node (make-lsp--folding-range
-                      :beg most-negative-fixnum
-                      :end most-positive-fixnum))
-         (stack (list dummy-node)))
-    (dolist (range ranges)
-      (while (not (lsp--range-inside-p range (car stack)))
-        (pop stack))
-      (push range (lsp--folding-range-children (car stack)))
-      (push range stack))
-    (lsp--folding-range-children dummy-node)))
-
-(defun lsp--range-inside-p (r1 r2)
-  "Return non-nil if folding range R1 lies inside R2"
-  (and (>= (lsp--folding-range-beg r1) (lsp--folding-range-beg r2))
-       (<= (lsp--folding-range-end r1) (lsp--folding-range-end r2))))
-
-(defun lsp--range-before-p (r1 r2)
-  "Return non-nil if folding range R1 ends before R2"
-  ;; Ensure r1 comes before r2
-  (or (< (lsp--folding-range-beg r1)
-         (lsp--folding-range-beg r2))
-      ;; If beg(r1) == beg(r2) make sure r2 ends first
-      (and (= (lsp--folding-range-beg r1)
-              (lsp--folding-range-beg r2))
-           (< (lsp--folding-range-end r2)
-              (lsp--folding-range-end r1)))))
-
-(defun lsp--point-inside-range-p (point range)
-  "Return non-nil if POINT lies inside folding range RANGE."
-  (and (>= point (lsp--folding-range-beg range))
-       (<= point (lsp--folding-range-end range))))
-
-(cl-defun lsp--get-current-innermost-folding-range (&optional (point (point)))
-  "Return the innermost folding range POINT lies in."
-  (seq-reduce (lambda (innermost-range curr-range)
-                (if (and (lsp--point-inside-range-p point curr-range)
-                         (or (null innermost-range)
-                             (lsp--range-inside-p curr-range innermost-range)))
-                    curr-range
-                  innermost-range))
-              (lsp--get-folding-ranges)
-              nil))
-
-(cl-defun lsp--get-current-outermost-folding-range (&optional (point (point)))
-  "Return the outermost folding range POINT lies in."
-  (cdr (seq-reduce (-lambda ((best-pair &as outermost-width . _) curr-range)
-                     (let ((curr-width (lsp--folding-range-width curr-range)))
-                       (if (and (lsp--point-inside-range-p point curr-range)
-                                (or (null best-pair)
-                                    (> curr-width outermost-width)))
-                           (cons curr-width curr-range)
-                         best-pair)))
-                   (lsp--get-folding-ranges)
-                   nil)))
-
-(defun lsp--folding-range-at-point-bounds ()
-  (when (and lsp-enable-folding
-             (lsp-feature? "textDocument/foldingRange"))
-    (if-let* ((range (lsp--get-current-innermost-folding-range)))
-        (cons (lsp--folding-range-beg range)
-              (lsp--folding-range-end range)))))
-(put 'lsp--folding-range 'bounds-of-thing-at-point
-     #'lsp--folding-range-at-point-bounds)
-
-(defun lsp--get-nearest-folding-range (&optional backward)
-  (let ((point (point))
-        (found nil))
-    (while (not
-            (or found
-                (if backward
-                    (<= point (point-min))
-                  (>= point (point-max)))))
-      (if backward (cl-decf point) (cl-incf point))
-      (setq found (lsp--get-current-innermost-folding-range point)))
-    found))
-
-(defun lsp--folding-range-at-point-forward-op (n)
-  (when (and lsp-enable-folding
-             (not (zerop n))
-             (lsp-feature? "textDocument/foldingRange"))
-    (cl-block break
-      (dotimes (_ (abs n))
-        (if-let* ((range (lsp--get-nearest-folding-range (< n 0))))
-            (goto-char (if (< n 0)
-                           (lsp--folding-range-beg range)
-                         (lsp--folding-range-end range)))
-          (cl-return-from break))))))
-(put 'lsp--folding-range 'forward-op
-     #'lsp--folding-range-at-point-forward-op)
-
-(defun lsp--folding-range-at-point-beginning-op ()
-  (goto-char (car (lsp--folding-range-at-point-bounds))))
-(put 'lsp--folding-range 'beginning-op
-     #'lsp--folding-range-at-point-beginning-op)
-
-(defun lsp--folding-range-at-point-end-op ()
-  (goto-char (cdr (lsp--folding-range-at-point-bounds))))
-(put 'lsp--folding-range 'end-op
-     #'lsp--folding-range-at-point-end-op)
-
-(defun lsp--range-at-point-bounds ()
-  (or (lsp--folding-range-at-point-bounds)
-      (when-let* ((range (and
-                         (lsp-feature? "textDocument/hover")
-                         (->> (lsp--text-document-position-params)
-                              (lsp-request "textDocument/hover")
-                              (lsp:hover-range?)))))
-        (lsp--range-to-region range))))
-
-;; A more general purpose "thing", useful for applications like focus.el
-(put 'lsp--range 'bounds-of-thing-at-point
-     #'lsp--range-at-point-bounds)
-
-(defun lsp--log-io-p (method)
-  "Return non nil if should log for METHOD."
-  (and lsp-log-io
-       (or (not lsp-log-io-allowlist-methods)
-           (member method lsp-log-io-allowlist-methods))))
-
-
-;; toggles
-
-(defun lsp-toggle-trace-io ()
-  "Toggle client-server protocol logging."
-  (interactive)
-  (setq lsp-log-io (not lsp-log-io))
-  (lsp--info "Server logging %s." (if lsp-log-io "enabled" "disabled")))
-
-(defun lsp-toggle-signature-auto-activate ()
-  "Toggle signature auto activate."
-  (interactive)
-  (setq lsp-signature-auto-activate
-        (unless lsp-signature-auto-activate '(:on-trigger-char)))
-  (lsp--info "Signature autoactivate %s." (if lsp-signature-auto-activate "enabled" "disabled"))
-  (lsp--update-signature-help-hook))
-
-(defun lsp-toggle-on-type-formatting ()
-  "Toggle on type formatting."
-  (interactive)
-  (setq lsp-enable-on-type-formatting (not lsp-enable-on-type-formatting))
-  (lsp--info "On type formatting is %s." (if lsp-enable-on-type-formatting "enabled" "disabled"))
-  (lsp--update-on-type-formatting-hook))
-
-(defun lsp-toggle-symbol-highlight ()
-  "Toggle symbol highlighting."
-  (interactive)
-  (setq lsp-enable-symbol-highlighting (not lsp-enable-symbol-highlighting))
-
-  (cond
-   ((and lsp-enable-symbol-highlighting
-         (lsp-feature? "textDocument/documentHighlight"))
-    (add-hook 'lsp-on-idle-hook #'lsp--document-highlight nil t)
-    (lsp--info "Symbol highlighting enabled in current buffer."))
-   ((not lsp-enable-symbol-highlighting)
-    (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
-    (lsp--remove-overlays 'lsp-highlight)
-    (lsp--info "Symbol highlighting disabled in current buffer."))))
-
-
-;; keybindings
-(defvar lsp--binding-descriptions nil
-  "List of key binding/short description pair.")
-
-(defmacro lsp-define-conditional-key (keymap key def desc cond &rest bindings)
-  "In KEYMAP, define key sequence KEY as DEF conditionally.
-This is like `define-key', except the definition disappears
-whenever COND evaluates to nil.
-DESC is the short-description for the binding.
-BINDINGS is a list of (key def desc cond)."
-  (declare (indent defun)
-           (debug (form form form form form &rest sexp)))
-  (->> (cl-list* key def desc cond bindings)
-       (-partition 4)
-       (-mapcat (-lambda ((key def desc cond))
-                  `((define-key ,keymap ,key
-                      '(menu-item
-                        ,(format "maybe-%s" def)
-                        ,def
-                        :filter
-                        (lambda (item)
-                          (when (with-current-buffer (or (when (buffer-live-p lsp--describe-buffer)
-                                                           lsp--describe-buffer)
-                                                         (current-buffer))
-                                  ,cond)
-                            item))))
-                    (when (stringp ,key)
-                      (setq lsp--binding-descriptions
-                            (append lsp--binding-descriptions '(,key ,desc)))))))
-       macroexp-progn))
-
-(defvar lsp--describe-buffer nil)
-
-(defun lsp-describe-buffer-bindings-advice (fn buffer &optional prefix menus)
-  (let ((lsp--describe-buffer buffer))
-    (funcall fn buffer prefix menus)))
-
-(advice-add 'describe-buffer-bindings
-            :around
-            #'lsp-describe-buffer-bindings-advice)
-
-(defun lsp--prepend-prefix (mappings)
-  (->> mappings
-       (-partition 2)
-       (-mapcat (-lambda ((key description))
-                  (list (concat lsp-keymap-prefix " " key)
-                        description)))))
-
-(defvar lsp-command-map
-  (-doto (make-sparse-keymap)
-    (lsp-define-conditional-key
-      ;; workspaces
-      "wD" lsp-disconnect "disconnect" (lsp-workspaces)
-      "wd" lsp-describe-session "describe session" t
-      "wq" lsp-workspace-shutdown "shutdown server" (lsp-workspaces)
-      "wr" lsp-workspace-restart "restart server" (lsp-workspaces)
-      "ws" lsp "start server" t
-
-      ;; formatting
-      "==" lsp-format-buffer "format buffer" (or (lsp-feature? "textDocument/rangeFormatting")
-                                                 (lsp-feature? "textDocument/formatting"))
-      "=r" lsp-format-region "format region" (lsp-feature? "textDocument/rangeFormatting")
-
-      ;; folders
-      "Fa" lsp-workspace-folders-add "add folder" t
-      "Fb" lsp-workspace-blocklist-remove "un-blocklist folder" t
-      "Fr" lsp-workspace-folders-remove "remove folder" t
-
-      ;; toggles
-      "TD" lsp-modeline-diagnostics-mode "toggle modeline diagnostics" (lsp-feature?
-                                                                        "textDocument/publishDiagnostics")
-      "TL" lsp-toggle-trace-io "toggle log io" t
-      "TS" lsp-ui-sideline-mode "toggle sideline" (featurep 'lsp-ui-sideline)
-      "TT" lsp-treemacs-sync-mode "toggle treemacs integration" (featurep 'lsp-treemacs)
-      "Ta" lsp-modeline-code-actions-mode "toggle modeline code actions" (lsp-feature?
-                                                                          "textDocument/codeAction")
-      "Tb" lsp-headerline-breadcrumb-mode "toggle breadcrumb" (lsp-feature?
-                                                               "textDocument/documentSymbol")
-      "Td" lsp-ui-doc-mode "toggle documentation popup" (featurep 'lsp-ui-doc)
-      "Tf" lsp-toggle-on-type-formatting "toggle on type formatting" (lsp-feature?
-                                                                      "textDocument/onTypeFormatting")
-      "Th" lsp-toggle-symbol-highlight "toggle highlighting" (lsp-feature? "textDocument/documentHighlight")
-      "Tl" lsp-lens-mode "toggle lenses" (lsp-feature? "textDocument/codeLens")
-      "Ts" lsp-toggle-signature-auto-activate "toggle signature" (lsp-feature? "textDocument/signatureHelp")
-
-      ;; goto
-      "ga" xref-find-apropos "find symbol in workspace" (lsp-feature? "workspace/symbol")
-      "gd" lsp-find-declaration "find declarations" (lsp-feature? "textDocument/declaration")
-      "ge" lsp-treemacs-errors-list "show errors" (fboundp 'lsp-treemacs-errors-list)
-      "gg" lsp-find-definition "find definitions" (lsp-feature? "textDocument/definition")
-      "gh" lsp-treemacs-call-hierarchy "call hierarchy" (and (lsp-feature? "callHierarchy/incomingCalls")
-                                                             (fboundp 'lsp-treemacs-call-hierarchy))
-      "gi" lsp-find-implementation "find implementations" (lsp-feature? "textDocument/implementation")
-      "gr" lsp-find-references "find references" (lsp-feature? "textDocument/references")
-      "gt" lsp-find-type-definition "find type definition" (lsp-feature? "textDocument/typeDefinition")
-
-      ;; help
-      "hg" lsp-ui-doc-glance "glance symbol" (and (featurep 'lsp-ui-doc)
-                                                  (lsp-feature? "textDocument/hover"))
-      "hh" lsp-describe-thing-at-point "describe symbol at point" (lsp-feature? "textDocument/hover")
-      "hs" lsp-signature-activate "signature help" (lsp-feature? "textDocument/signatureHelp")
-
-      ;; refactoring
-      "ro" lsp-organize-imports "organize imports" (lsp-feature? "textDocument/codeAction")
-      "rr" lsp-rename "rename" (lsp-feature? "textDocument/rename")
-
-      ;; actions
-      "aa" lsp-execute-code-action "code actions" (lsp-feature? "textDocument/codeAction")
-      "ah" lsp-document-highlight "highlight symbol" (lsp-feature? "textDocument/documentHighlight")
-      "al" lsp-avy-lens "lens" (and (bound-and-true-p lsp-lens-mode) (featurep 'avy))
-
-      ;; peeks
-      "Gg" lsp-ui-peek-find-definitions "peek definitions" (and (lsp-feature? "textDocument/definition")
-                                                                (fboundp 'lsp-ui-peek-find-definitions))
-      "Gi" lsp-ui-peek-find-implementation "peek implementations" (and
-                                                                   (fboundp 'lsp-ui-peek-find-implementation)
-                                                                   (lsp-feature? "textDocument/implementation"))
-      "Gr" lsp-ui-peek-find-references "peek references" (and (fboundp 'lsp-ui-peek-find-references)
-                                                              (lsp-feature? "textDocument/references"))
-      "Gs" lsp-ui-peek-find-workspace-symbol "peek workspace symbol" (and (fboundp
-                                                                           'lsp-ui-peek-find-workspace-symbol)
-                                                                          (lsp-feature? "workspace/symbol")))))
-
-
-;; which-key integration
-
-(declare-function which-key-add-major-mode-key-based-replacements "ext:which-key")
-(declare-function which-key-add-key-based-replacements "ext:which-key")
-
-(defun lsp-enable-which-key-integration (&optional all-modes)
-  "Adds descriptions for `lsp-mode-map' to `which-key-mode' for the current
-active `major-mode', or for all major modes when ALL-MODES is t."
-  (cl-flet ((which-key-fn (if all-modes
-                              'which-key-add-key-based-replacements
-                            (apply-partially 'which-key-add-major-mode-key-based-replacements major-mode))))
-    (apply
-     #'which-key-fn
-     (lsp--prepend-prefix
-      (cl-list*
-       ""    "lsp"
-       "w"   "workspaces"
-       "F"   "folders"
-       "="   "formatting"
-       "T"   "toggle"
-       "g"   "goto"
-       "h"   "help"
-       "r"   "refactor"
-       "a"   "code actions"
-       "G"   "peek"
-       lsp--binding-descriptions)))))
-
-
-;; Globbing syntax
-
-;; We port VSCode's glob-to-regexp code
-;; (https://github.com/Microsoft/vscode/blob/466da1c9013c624140f6d1473b23a870abc82d44/src/vs/base/common/glob.ts)
-;; since the LSP globbing syntax seems to be the same as that of
-;; VSCode.
-
-(defconst lsp-globstar "**"
-  "Globstar pattern.")
-
-(defconst lsp-glob-split ?/
-  "The character by which we split path components in a glob
-pattern.")
-
-(defconst lsp-path-regexp "[/\\\\]"
-  "Forward or backslash to be used as a path separator in
-computed regexps.")
-
-(defconst lsp-non-path-regexp "[^/\\\\]"
-  "A regexp matching anything other than a slash.")
-
-(defconst lsp-globstar-regexp
-  (format "\\(?:%s\\|%s+%s\\|%s%s+\\)*?"
-          lsp-path-regexp
-          lsp-non-path-regexp lsp-path-regexp
-          lsp-path-regexp lsp-non-path-regexp)
-  "Globstar in regexp form.")
-
-(defun lsp-split-glob-pattern (pattern split-char)
-  "Split PATTERN at SPLIT-CHAR while respecting braces and brackets."
-  (when pattern
-    (let ((segments nil)
-          (in-braces nil)
-          (in-brackets nil)
-          (current-segment ""))
-      (dolist (char (string-to-list pattern))
-        (cl-block 'exit-point
-          (if (eq char split-char)
-              (when (and (null in-braces)
-                         (null in-brackets))
-                (push current-segment segments)
-                (setq current-segment "")
-                (cl-return-from 'exit-point))
-            (pcase char
-              (?{
-               (setq in-braces t))
-              (?}
-               (setq in-braces nil))
-              (?\[
-               (setq in-brackets t))
-              (?\]
-               (setq in-brackets nil))))
-          (setq current-segment (concat current-segment
-                                        (char-to-string char)))))
-      (unless (string-empty-p current-segment)
-        (push current-segment segments))
-      (nreverse segments))))
-
-(defun lsp--glob-to-regexp (pattern)
-  "Helper function to convert a PATTERN from LSP's glob syntax to
-an Elisp regexp."
-  (if (string-empty-p pattern)
-      ""
-    (let ((current-regexp "")
-          (glob-segments (lsp-split-glob-pattern pattern lsp-glob-split)))
-      (if (-all? (lambda (segment) (eq segment lsp-globstar))
-                 glob-segments)
-          ".*"
-        (let ((prev-segment-was-globstar nil))
-          (seq-do-indexed
-           (lambda (segment index)
-             (if (string-equal segment lsp-globstar)
-                 (unless prev-segment-was-globstar
-                   (setq current-regexp (concat current-regexp
-                                                lsp-globstar-regexp))
-                   (setq prev-segment-was-globstar t))
-               (let ((in-braces nil)
-                     (brace-val "")
-                     (in-brackets nil)
-                     (bracket-val ""))
-                 (dolist (char (string-to-list segment))
-                   (cond
-                    ((and (not (char-equal char ?\}))
-                          in-braces)
-                     (setq brace-val (concat brace-val
-                                             (char-to-string char))))
-                    ((and in-brackets
-                          (or (not (char-equal char ?\]))
-                              (string-empty-p bracket-val)))
-                     (let ((curr (cond
-                                  ((char-equal char ?-)
-                                   "-")
-                                  ;; NOTE: ?\^ and ?^ are different characters
-                                  ((and (memq char '(?^ ?!))
-                                        (string-empty-p bracket-val))
-                                   "^")
-                                  ((char-equal char lsp-glob-split)
-                                   "")
-                                  (t
-                                   (regexp-quote (char-to-string char))))))
-                       (setq bracket-val (concat bracket-val curr))))
-                    (t
-                     (cl-case char
-                       (?{
-                        (setq in-braces t))
-                       (?\[
-                        (setq in-brackets t))
-                       (?}
-                        (let* ((choices (lsp-split-glob-pattern brace-val ?\,))
-                               (brace-regexp (concat "\\(?:"
-                                                     (mapconcat #'lsp--glob-to-regexp choices "\\|")
-                                                     "\\)")))
-                          (setq current-regexp (concat current-regexp
-                                                       brace-regexp))
-                          (setq in-braces nil)
-                          (setq brace-val "")))
-                       (?\]
-                        (setq current-regexp
-                              (concat current-regexp
-                                      "[" bracket-val "]"))
-                        (setq in-brackets nil)
-                        (setq bracket-val ""))
-                       (??
-                        (setq current-regexp
-                              (concat current-regexp
-                                      lsp-non-path-regexp)))
-                       (?*
-                        (setq current-regexp
-                              (concat current-regexp
-                                      lsp-non-path-regexp "*?")))
-                       (t
-                        (setq current-regexp
-                              (concat current-regexp
-                                      (regexp-quote (char-to-string char)))))))))
-                 (when (and (< index (1- (length glob-segments)))
-                            (or (not (string-equal (nth (1+ index) glob-segments)
-                                                   lsp-globstar))
-                                (< (+ index 2)
-                                   (length glob-segments))))
-                   (setq current-regexp
-                         (concat current-regexp
-                                 lsp-path-regexp)))
-                 (setq prev-segment-was-globstar nil))))
-           glob-segments)
-          current-regexp)))))
-
-;; See https://github.com/emacs-lsp/lsp-mode/issues/2365
-(defun lsp-glob-unbrace-at-top-level (glob-pattern)
-  "If GLOB-PATTERN does not start with a brace, return a singleton list
-containing GLOB-PATTERN.
-
-If GLOB-PATTERN does start with a brace, return a list of the
-comma-separated globs within the top-level braces."
-  (if (not (string-prefix-p "{" glob-pattern))
-      (list glob-pattern)
-    (lsp-split-glob-pattern (substring glob-pattern 1 -1) ?\,)))
-
-(defun lsp-glob-convert-to-wrapped-regexp (glob-pattern)
-  "Convert GLOB-PATTERN to a regexp wrapped with the beginning-
-and end-of-string meta-characters."
-  (concat "\\`" (lsp--glob-to-regexp (string-trim glob-pattern)) "\\'"))
-
-(defun lsp-glob-to-regexps (glob-pattern)
-  "Convert a GLOB-PATTERN to a list of Elisp regexps."
-  (when-let*
-      ((glob-pattern (cond ((hash-table-p glob-pattern)
-                            (ht-get glob-pattern "pattern"))
-                           ((stringp glob-pattern) glob-pattern)
-                           (t (error "Unknown glob-pattern type: %s" glob-pattern))))
-       (trimmed-pattern (string-trim glob-pattern))
-       (top-level-unbraced-patterns (lsp-glob-unbrace-at-top-level trimmed-pattern)))
-    (seq-map #'lsp-glob-convert-to-wrapped-regexp
-             top-level-unbraced-patterns)))
-
-
-
-(defvar lsp-mode-menu)
-
-(defun lsp-mouse-click (event)
-  (interactive "e")
-  (let* ((ec (event-start event))
-         (choice (x-popup-menu event lsp-mode-menu))
-         (action (lookup-key lsp-mode-menu (apply 'vector choice))))
-
-    (select-window (posn-window ec))
-
-    (unless (and (region-active-p) (eq action 'lsp-execute-code-action))
-      (goto-char (posn-point ec)))
-    (run-with-idle-timer
-     0.001 nil
-     (lambda ()
-       (cl-labels ((check (value) (not (null value))))
-         (when choice
-           (call-interactively action)))))))
-
-(defvar lsp-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-<down-mouse-1>") #'lsp-find-definition-mouse)
-    (define-key map (kbd "C-<mouse-1>") #'ignore)
-    (define-key map (kbd "<mouse-3>") #'lsp-mouse-click)
-    (define-key map (kbd "C-S-SPC") #'lsp-signature-activate)
-    (when lsp-keymap-prefix
-      (define-key map (kbd lsp-keymap-prefix) lsp-command-map))
-    map)
-  "Keymap for `lsp-mode'.")
-
-(define-minor-mode lsp-mode "Mode for LSP interaction."
-  :keymap lsp-mode-map
-  :lighter
-  (" LSP["
-   (lsp--buffer-workspaces
-    (:eval (mapconcat #'lsp--workspace-print lsp--buffer-workspaces "]["))
-    (:propertize "Disconnected" face warning))
-   "]")
-  :group 'lsp-mode
-  (when (and lsp-mode (not lsp--buffer-workspaces) (not lsp--buffer-deferred))
-    ;; fire up `lsp' when someone calls `lsp-mode' instead of `lsp'
-    (lsp)))
-
-(defvar lsp-mode-menu
-  (easy-menu-create-menu
-   nil
-   `(["Go to definition" lsp-find-definition
-      :active (lsp-feature? "textDocument/definition")]
-     ["Find references" lsp-find-references
-      :active (lsp-feature? "textDocument/references")]
-     ["Find implementations" lsp-find-implementation
-      :active (lsp-feature? "textDocument/implementation")]
-     ["Find declarations" lsp-find-declaration
-      :active (lsp-feature? "textDocument/declaration")]
-     ["Go to type declaration" lsp-find-type-definition
-      :active (lsp-feature? "textDocument/typeDefinition")]
-     "--"
-     ["Describe" lsp-describe-thing-at-point]
-     ["Code action" lsp-execute-code-action]
-     ["Format" lsp-format-buffer]
-     ["Highlight references" lsp-document-highlight]
-     ["Type Hierarchy" lsp-java-type-hierarchy
-      :visible (lsp-can-execute-command? "java.navigate.resolveTypeHierarchy")]
-     ["Type Hierarchy" lsp-treemacs-type-hierarchy
-      :visible (and (not (lsp-can-execute-command? "java.navigate.resolveTypeHierarchy"))
-                    (functionp 'lsp-treemacs-type-hierarchy)
-                    (lsp-feature? "textDocument/typeHierarchy"))]
-     ["Call Hierarchy" lsp-treemacs-call-hierarchy
-      :visible (and (functionp 'lsp-treemacs-call-hierarchy)
-                    (lsp-feature? "textDocument/callHierarchy"))]
-     ["Rename" lsp-rename
-      :active (lsp-feature? "textDocument/rename")]
-     "--"
-     ("Session"
-      ["View logs" lsp-workspace-show-log]
-      ["Describe" lsp-describe-session]
-      ["Shutdown" lsp-shutdown-workspace]
-      ["Restart" lsp-restart-workspace])
-     ("Workspace Folders"
-      ["Add" lsp-workspace-folders-add]
-      ["Remove" lsp-workspace-folders-remove]
-      ["Open" lsp-workspace-folders-open])
-     ("Toggle features"
-      ["Lenses" lsp-lens-mode]
-      ["Headerline breadcrumb" lsp-headerline-breadcrumb-mode]
-      ["Modeline code actions" lsp-modeline-code-actions-mode]
-      ["Modeline diagnostics" lsp-modeline-diagnostics-mode])
-     "---"
-     ("Debug"
-      :active (bound-and-true-p dap-ui-mode)
-      :filter ,(lambda (_)
-                 (and (boundp 'dap-ui-menu-items)
-                      (nthcdr 3 dap-ui-menu-items))))))
-  "Menu for lsp-mode.")
-
-(defalias 'make-lsp-client 'make-lsp--client)
-
-(cl-defstruct lsp--registered-capability
-  (id "")
-  (method " ")
-  (options nil))
-
-;; A ‘lsp--workspace’ object represents exactly one language server process.
-(cl-defstruct lsp--workspace
-  ;; the `ewoc' object for displaying I/O to and from the server
-  (ewoc nil)
-
-  ;; ‘server-capabilities’ is a hash table of the language server capabilities.
-  ;; It is the hash table representation of a LSP ServerCapabilities structure;
-  ;; cf. https://microsoft.github.io/language-server-protocol/specification#initialize.
-  (server-capabilities nil)
-
-  ;; ‘registered-server-capabilities’ is a list of hash tables that represent
-  ;; dynamically-registered Registration objects.  See
-  ;; https://microsoft.github.io/language-server-protocol/specification#client_registerCapability.
-  (registered-server-capabilities nil)
-
-  ;; ‘root’ is a directory name or a directory file name for the workspace
-  ;; root.  ‘lsp-mode’ passes this directory to the ‘initialize’ method of the
-  ;; language server; see
-  ;; https://microsoft.github.io/language-server-protocol/specification#initialize.
-  (root nil)
-
-  ;; ‘client’ is the ‘lsp--client’ object associated with this workspace.
-  (client nil)
-
-  ;; ‘host-root’ contains the host root info as derived from `file-remote-p'. It
-  ;; used to derive the file path in `lsp--uri-to-path' when using tramp
-  ;; connection.
-  (host-root nil)
-
-  ;; ‘proc’ is a process object; it may represent a regular process, a pipe, or
-  ;; a network connection.  ‘lsp-mode’ communicates with ‘proc’ using the
-  ;; language server protocol.  ‘proc’ corresponds to the COMMUNICATION-PROCESS
-  ;; element of the return value of the client’s ‘get-root’ field, which see.
-  (proc nil)
-
-  ;; ‘proc’ is a process object; it must represent a regular process, not a
-  ;; pipe or network process.  It represents the actual server process that
-  ;; corresponds to this workspace.  ‘cmd-proc’ corresponds to the
-  ;; COMMAND-PROCESS element of the return value of the client’s ‘get-root’
-  ;; field, which see.
-  (cmd-proc nil)
-
-  ;; ‘buffers’ is a list of buffers associated with this workspace.
-  (buffers nil)
-
-  ;; if semantic tokens is enabled, `semantic-tokens-faces' contains
-  ;; one face (or nil) for each token type supported by the language server.
-  (semantic-tokens-faces nil)
-
-  ;; If semantic highlighting is enabled, `semantic-tokens-modifier-faces'
-  ;; contains one face (or nil) for each modifier type supported by the language
-  ;; server
-  (semantic-tokens-modifier-faces nil)
-
-  ;; Extra client capabilities provided by third-party packages using
-  ;; `lsp-register-client-capabilities'. It's value is an alist of (PACKAGE-NAME
-  ;; . CAPS), where PACKAGE-NAME is a symbol of the third-party package name,
-  ;; and CAPS is either a plist of the client capabilities, or a function that
-  ;; takes no argument and returns a plist of the client capabilities or nil.
-  (extra-client-capabilities nil)
-
-  ;; Workspace status
-  (status nil)
-
-  ;; ‘metadata’ is a generic storage for workspace specific data. It is
-  ;; accessed via `lsp-workspace-set-metadata' and `lsp-workspace-set-metadata'
-  (metadata (make-hash-table :test 'equal))
-
-  ;; contains all the file notification watches that have been created for the
-  ;; current workspace in format filePath->file notification handle.
-  (watches (make-hash-table :test 'equal))
-
-  ;; list of workspace folders
-  (workspace-folders nil)
-
-  ;; ‘last-id’ the last request id for the current workspace.
-  (last-id 0)
-
-  ;; ‘status-string’ allows extensions to specify custom status string based on
-  ;; the Language Server specific messages.
-  (status-string nil)
-
-  ;; ‘shutdown-action’ flag used to mark that workspace should not be restarted (e.g. it
-  ;; was stopped).
-  shutdown-action
-
-  ;; ‘diagnostics’ a hashmap with workspace diagnostics.
-  (diagnostics (make-hash-table :test 'equal))
-
-  ;; contains all the workDone progress tokens that have been created
-  ;; for the current workspace.
-  (work-done-tokens (make-hash-table :test 'equal)))
-
-
-(cl-defstruct lsp-session
-  ;; contains the folders that are part of the current session
-  folders
-  ;; contains the folders that must not be imported in the current workspace.
-  folders-blocklist
-  ;; contains the list of folders that must be imported in a project in case of
-  ;; multi root LSP server.
-  (server-id->folders (make-hash-table :test 'equal))
-  ;; folder to list of the servers that are associated with the folder.
-  (folder->servers (make-hash-table :test 'equal))
-  ;; ‘metadata’ is a generic storage for workspace specific data. It is
-  ;; accessed via `lsp-workspace-set-metadata' and `lsp-workspace-set-metadata'
-  (metadata (make-hash-table :test 'equal)))
-
-(defun lsp-workspace-status (status-string &optional workspace)
-  "Set current workspace status to STATUS-STRING.
-If WORKSPACE is not specified defaults to lsp--cur-workspace."
-  (let ((status-string (when status-string (replace-regexp-in-string "%" "%%" status-string))))
-    (setf (lsp--workspace-status-string (or workspace lsp--cur-workspace)) status-string)))
-
-(defun lsp-session-set-metadata (key value &optional _workspace)
-  "Associate KEY with VALUE in the WORKSPACE metadata.
-If WORKSPACE is not provided current workspace will be used."
-  (puthash key value (lsp-session-metadata (lsp-session))))
-
-(defalias 'lsp-workspace-set-metadata 'lsp-session-set-metadata)
-
-(defun lsp-session-get-metadata (key &optional _workspace)
-  "Lookup KEY in WORKSPACE metadata.
-If WORKSPACE is not provided current workspace will be used."
-  (gethash key (lsp-session-metadata (lsp-session))))
-
-(defalias 'lsp-workspace-get-metadata 'lsp-session-get-metadata)
-
-(defun lsp-workspace-set-work-done-token (token value workspace)
-  "Associate TOKEN with VALUE in the WORKSPACE work-done-tokens."
-  (puthash token value (lsp--workspace-work-done-tokens workspace)))
-
-(defun lsp-workspace-get-work-done-token (token workspace)
-  "Lookup TOKEN in the WORKSPACE work-done-tokens."
-  (gethash token (lsp--workspace-work-done-tokens workspace)))
-
-(defun lsp-workspace-rem-work-done-token (token workspace)
-  "Remove TOKEN from the WORKSPACE work-done-tokens."
-  (remhash token (lsp--workspace-work-done-tokens workspace)))
-
-
-(defun lsp--make-notification (method &optional params)
-  "Create notification body for method METHOD and parameters PARAMS."
-  (list :jsonrpc "2.0" :method method :params params))
-
-(defalias 'lsp--make-request 'lsp--make-notification)
-(defalias 'lsp-make-request 'lsp--make-notification)
-
-(defun lsp--make-response (id result)
-  "Create response for REQUEST with RESULT."
-  `(:jsonrpc "2.0" :id ,id :result ,result))
-
-(defun lsp-make-notification (method &optional params)
-  "Create notification body for method METHOD and parameters PARAMS."
-  (lsp--make-notification method params))
-
-(defmacro lsp--json-serialize (params)
-  (if (progn
-        (require 'json)
-        (fboundp 'json-serialize))
-      `(json-serialize ,params
-                       :null-object nil
-                       :false-object :json-false)
-    `(let ((json-false :json-false))
-       (json-encode ,params))))
-
-(defun lsp--make-message (params)
-  "Create a LSP message from PARAMS, after encoding it to a JSON string."
-  (let ((body (lsp--json-serialize params)))
-    (concat "Content-Length: "
-            (number-to-string (1+ (string-bytes body)))
-            "\r\n\r\n"
-            body
-            "\n")))
-
-(cl-defstruct lsp--log-entry timestamp process-time type method id body)
-
-(defun lsp--make-log-entry (method id body type &optional process-time)
-  "Create an outgoing log object from BODY with method METHOD and id ID.
-If ID is non-nil, then the body is assumed to be a notification.
-TYPE can either be `incoming' or `outgoing'"
-  (cl-assert (memq type '(incoming-req outgoing-req incoming-notif
-                                       outgoing-notif incoming-resp
-                                       outgoing-resp)))
-  (make-lsp--log-entry
-   :timestamp (format-time-string "%I:%M:%S %p")
-   :process-time process-time
-   :method method
-   :id id
-   :type type
-   :body body))
-
-(defun lsp--log-font-lock-json (body)
-  "Font lock JSON BODY."
-  (with-temp-buffer
-    (insert body)
-    ;; We set the temp buffer file-name extension to .json and call `set-auto-mode'
-    ;; so the users configured json mode is used which could be
-    ;; `json-mode', `json-ts-mode', `jsonian-mode', etc.
-    (let ((buffer-file-name "lsp-log.json"))
-      (delay-mode-hooks
-        (set-auto-mode)
-        (if (fboundp 'font-lock-ensure)
-            (font-lock-ensure)
-          (with-no-warnings
-            (font-lock-fontify-buffer)))))
-    (buffer-string)))
-
-(defun lsp--log-entry-pp (entry)
-  (cl-assert (lsp--log-entry-p entry))
-  (pcase-let (((cl-struct lsp--log-entry timestamp method id type process-time
-                          body)
-               entry)
-              (json-false :json-false)
-              (json-encoding-pretty-print t)
-              (str nil))
-    (setq str
-          (concat (format "[Trace - %s] " timestamp)
-                  (pcase type
-                    ('incoming-req (format "Received request '%s - (%s)." method id))
-                    ('outgoing-req (format "Sending request '%s - (%s)'." method id))
-
-                    ('incoming-notif (format "Received notification '%s'." method))
-                    ('outgoing-notif (format "Sending notification '%s'." method))
-
-                    ('incoming-resp (format "Received response '%s - (%s)' in %dms."
-                                            method id process-time))
-                    ('outgoing-resp
-                     (format
-                      "Sending response '%s - (%s)'. Processing request took %dms"
-                      method id process-time)))
-                  "\n"
-                  (if (memq type '(incoming-resp ougoing-resp))
-                      "Result: "
-                    "Params: ")
-                  (lsp--log-font-lock-json (json-encode body))
-                  "\n\n\n"))
-    (setq str (propertize str 'mouse-face 'highlight 'read-only t))
-    (insert str)))
-
-(defvar-local lsp--log-io-ewoc nil)
-
-(defun lsp--get-create-io-ewoc (workspace)
-  (if (and (lsp--workspace-ewoc workspace)
-           (buffer-live-p (ewoc-buffer (lsp--workspace-ewoc workspace))))
-      (lsp--workspace-ewoc workspace)
-    (with-current-buffer (lsp--get-log-buffer-create workspace)
-      (unless (eq 'lsp-log-io-mode major-mode) (lsp-log-io-mode))
-      (setq-local window-point-insertion-type t)
-      (setq lsp--log-io-ewoc (ewoc-create #'lsp--log-entry-pp nil nil t))
-      (setf (lsp--workspace-ewoc workspace) lsp--log-io-ewoc))
-    (lsp--workspace-ewoc workspace)))
-
-(defun lsp--ewoc-count (ewoc)
-  (let* ((count 0)
-         (count-fn (lambda (_) (setq count (1+ count)))))
-    (ewoc-map count-fn ewoc)
-    count))
-
-(defun lsp--log-entry-new (entry workspace)
-  (let* ((ewoc (lsp--get-create-io-ewoc workspace))
-         (count (and (not (eq lsp-io-messages-max t)) (lsp--ewoc-count ewoc)))
-         (node (if (or (eq lsp-io-messages-max t)
-                       (>= lsp-io-messages-max count))
-                   nil
-                 (ewoc-nth ewoc (1- lsp-io-messages-max))))
-         (prev nil)
-         (inhibit-read-only t))
-    (while node
-      (setq prev (ewoc-prev ewoc node))
-      (ewoc-delete ewoc node)
-      (setq node prev))
-    (ewoc-enter-last ewoc entry)))
-
-(defun lsp--send-notification (body)
-  "Send BODY as a notification to the language server."
-  (lsp-foreach-workspace
-   (when (lsp--log-io-p (plist-get body :method))
-     (lsp--log-entry-new (lsp--make-log-entry
-                          (plist-get body :method)
-                          nil (plist-get body :params) 'outgoing-notif)
-                         lsp--cur-workspace))
-   (lsp--send-no-wait body
-                      (lsp--workspace-proc lsp--cur-workspace))))
-
-(defalias 'lsp-send-notification 'lsp--send-notification)
-
-(defun lsp-notify (method params)
-  "Send notification METHOD with PARAMS."
-  (lsp--send-notification (lsp--make-notification method params)))
-
-(defun lsp--cur-workspace-check ()
-  "Check whether buffer lsp workspace(s) are set."
-  (cl-assert (lsp-workspaces) nil
-             "No language server(s) is associated with this buffer."))
-
-(defun lsp--send-request (body &optional no-wait no-merge)
-  "Send BODY as a request to the language server, get the response.
-If NO-WAIT is non-nil, don't synchronously wait for a response.
-If NO-MERGE is non-nil, don't merge the results but return an
-alist mapping workspace->result."
-  (lsp-request (plist-get body :method)
-               (plist-get body :params)
-               :no-wait no-wait
-               :no-merge no-merge))
-
-(defalias 'lsp-send-request 'lsp--send-request
-  "Send BODY as a request to the language server and return the response
-synchronously.
-\n(fn BODY)")
-
-(cl-defun lsp-request (method params &key no-wait no-merge)
-  "Send request METHOD with PARAMS.
-If NO-MERGE is non-nil, don't merge the results but return alist
-workspace->result.
-If NO-WAIT is non-nil send the request as notification."
-  (if no-wait
-      (lsp-notify method params)
-    (let* ((send-time (float-time))
-           ;; max time by which we must get a response
-           (expected-time
-            (and
-             lsp-response-timeout
-             (+ send-time lsp-response-timeout)))
-           resp-result resp-error done?)
-      (unwind-protect
-          (progn
-            (lsp-request-async method params
-                               (lambda (res) (setf resp-result (or res :finished)) (throw 'lsp-done '_))
-                               :error-handler (lambda (err) (setf resp-error err) (throw 'lsp-done '_))
-                               :no-merge no-merge
-                               :mode 'detached
-                               :cancel-token :sync-request)
-            (while (not (or resp-error resp-result))
-              (if (functionp 'json-rpc-connection)
-                  (catch 'lsp-done (sit-for 0.01))
-                (catch 'lsp-done
-                  (accept-process-output
-                   nil
-                   (if expected-time (- expected-time send-time) 1))))
-              (setq send-time (float-time))
-              (when (and expected-time (< expected-time send-time))
-                (error "Timeout while waiting for response.  Method: %s" method)))
-            (setq done? t)
-            (cond
-             ((eq resp-result :finished) nil)
-             (resp-result resp-result)
-             ((lsp-json-error? resp-error) (error (lsp:json-error-message resp-error)))
-             ((lsp-json-error? (cl-first resp-error))
-              (error (lsp:json-error-message (cl-first resp-error))))))
-        (unless done?
-          (lsp-cancel-request-by-token :sync-request))))))
-
-(cl-defun lsp-request-while-no-input (method params)
-  "Send request METHOD with PARAMS and waits until there is no input.
-Return same value as `lsp--while-no-input' and respecting `non-essential'."
-  (if (or non-essential (not lsp-request-while-no-input-may-block))
-      (let* ((send-time (float-time))
-             ;; max time by which we must get a response
-             (expected-time
-              (and
-               lsp-response-timeout
-               (+ send-time lsp-response-timeout)))
-             resp-result resp-error done?)
-        (unwind-protect
-            (progn
-              (lsp-request-async method params
-                                 (lambda (res) (setf resp-result (or res :finished)) (throw 'lsp-done '_))
-                                 :error-handler (lambda (err) (setf resp-error err) (throw 'lsp-done '_))
-                                 :mode 'detached
-                                 :cancel-token :sync-request)
-              (while (not (or resp-error resp-result (input-pending-p)))
-                (catch 'lsp-done
-                  (sit-for
-                   (if expected-time (- expected-time send-time) 1)))
-                (setq send-time (float-time))
-                (when (and expected-time (< expected-time send-time))
-                  (error "Timeout while waiting for response.  Method: %s" method)))
-              (setq done? (or resp-error resp-result))
-              (cond
-               ((eq resp-result :finished) nil)
-               (resp-result resp-result)
-               ((lsp-json-error? resp-error) (error (lsp:json-error-message resp-error)))
-               ((lsp-json-error? (cl-first resp-error))
-                (error (lsp:json-error-message (cl-first resp-error))))))
-          (unless done?
-            (lsp-cancel-request-by-token :sync-request))
-          (when (and (input-pending-p) lsp--throw-on-input)
-            (throw 'input :interrupted))))
-    (lsp-request method params)))
-
-(defvar lsp--cancelable-requests (ht))
-
-(cl-defun lsp-request-async (method params callback
-                                    &key mode error-handler cancel-handler no-merge cancel-token)
-  "Send METHOD with PARAMS as a request to the language server.
-Call CALLBACK with the response received from the server
-asynchronously.
-MODE determines when the callback will be called depending on the
-condition of the original buffer.  It could be:
-- `detached' which means that the callback will be executed no
-matter what has happened to the buffer.
-- `alive' - the callback will be executed only if the buffer from
-which the call was executed is still alive.
-- `current' the callback will be executed only if the original buffer
-is still selected.
-- `tick' - the callback will be executed only if the buffer was not modified.
-- `unchanged' - the callback will be executed only if the buffer hasn't
-changed and if the buffer is not modified.
-
-ERROR-HANDLER will be called in case the request has failed.
-CANCEL-HANDLER will be called in case the request is being canceled.
-If NO-MERGE is non-nil, don't merge the results but return alist
-workspace->result.
-CANCEL-TOKEN is the token that can be used to cancel request."
-  (lsp--send-request-async `(:jsonrpc "2.0" :method ,method :params ,params)
-                           callback mode error-handler cancel-handler no-merge cancel-token))
-
-(defun lsp--create-request-cancel (id workspaces hook buf method cancel-callback)
-  (lambda (&rest _)
-    (unless (and (equal 'post-command-hook hook)
-                 (equal (current-buffer) buf))
-      (lsp--request-cleanup-hooks id)
-      (with-lsp-workspaces workspaces
-        (lsp--cancel-request id)
-        (when cancel-callback (funcall cancel-callback)))
-      (lsp-log "Cancelling %s(%s) in hook %s" method id hook))))
-
-(defun lsp--create-async-callback
-    (callback method no-merge workspaces)
-  "Create async handler expecting COUNT results, merge them and call CALLBACK.
-MODE determines when the callback will be called depending on the
-condition of the original buffer. METHOD is the invoked method.
-If NO-MERGE is non-nil, don't merge the results but return alist
-workspace->result. ID is the request id."
-  (let (results errors)
-    (lambda (result)
-      (push (cons lsp--cur-workspace result)
-            (if (eq result :error) errors results))
-      (when (and (not (eq (length errors) (length workspaces)))
-                 (eq (+ (length errors) (length results)) (length workspaces)))
-        (funcall callback
-                 (if no-merge
-                     results
-                   (lsp--merge-results (-map #'cl-rest results) method)))))))
-
-(defcustom lsp-default-create-error-handler-fn nil
-  "Default error handler customization.
-Handler should give METHOD as argument and return function of one argument
-ERROR."
-  :type 'function
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defun lsp--create-default-error-handler (method)
-  "Default error handler.
-METHOD is the executed method."
-  (if lsp-default-create-error-handler-fn
-      (funcall lsp-default-create-error-handler-fn method)
-    (lambda (error)
-      (lsp--warn "%s" (or (lsp--error-string error)
-                          (format "%s Request has failed" method))))))
-
-(defvar lsp--request-cleanup-hooks (ht))
-
-(defun lsp--request-cleanup-hooks (request-id)
-  (when-let* ((cleanup-function (gethash request-id lsp--request-cleanup-hooks)))
-    (funcall cleanup-function)
-    (remhash request-id lsp--request-cleanup-hooks)))
-
-(defun lsp-cancel-request-by-token (cancel-token)
-  "Cancel request using CANCEL-TOKEN."
-  (-when-let ((request-id . workspaces) (gethash cancel-token lsp--cancelable-requests))
-    (with-lsp-workspaces workspaces
-      (lsp--cancel-request request-id))
-    (remhash cancel-token lsp--cancelable-requests)
-    (lsp--request-cleanup-hooks request-id)))
-
-(defun lsp--send-request-async (body callback
-                                     &optional mode error-callback cancel-callback
-                                     no-merge cancel-token)
-  "Send BODY as a request to the language server.
-Call CALLBACK with the response received from the server
-asynchronously.
-MODE determines when the callback will be called depending on the
-condition of the original buffer.  It could be:
-- `detached' which means that the callback will be executed no
-matter what has happened to the buffer.
-- `alive' - the callback will be executed only if the buffer from
-which the call was executed is still alive.
-- `current' the callback will be executed only if the original buffer
-is still selected.
-- `tick' - the callback will be executed only if the buffer was not modified.
-- `unchanged' - the callback will be executed only if the buffer hasn't
-changed and if the buffer is not modified.
-
-ERROR-CALLBACK will be called in case the request has failed.
-CANCEL-CALLBACK will be called in case the request is being canceled.
-If NO-MERGE is non-nil, don't merge the results but return alist
-workspace->result.
-CANCEL-TOKEN is the token that can be used to cancel request."
-  (when cancel-token
-    (lsp-cancel-request-by-token cancel-token))
-
-  (if-let* ((target-workspaces (lsp--find-workspaces-for body)))
-      (let* ((start-time (current-time))
-             (method (plist-get body :method))
-             (id (cl-incf lsp-last-id))
-             (buf (current-buffer))
-             (cancel-callback (when cancel-callback
-                                (pcase mode
-                                  ((or 'alive 'tick 'unchanged)
-                                   (lambda ()
-                                     (with-current-buffer buf
-                                       (funcall cancel-callback))))
-                                  (_ cancel-callback))))
-             ;; calculate what are the (hook . local) pairs which will cancel
-             ;; the request
-             (hooks (pcase mode
-                      ('alive     '((kill-buffer-hook . t)))
-                      ('tick      '((kill-buffer-hook . t) (after-change-functions . t)))
-                      ('unchanged '((after-change-functions . t) (post-command-hook . nil)))
-                      ('current   '((post-command-hook . nil)))))
-             ;; note: lambdas in emacs can be compared but we should make sure
-             ;; that all of the captured arguments are the same - in our case
-             ;; `lsp--create-request-cancel' will return the same lambda when
-             ;; called with the same params.
-             (cleanup-hooks
-              (lambda () (mapc
-                          (-lambda ((hook . local))
-                            (if local
-                                (when (buffer-live-p buf)
-                                  (with-current-buffer buf
-                                    (remove-hook hook
-                                                 (lsp--create-request-cancel
-                                                  id target-workspaces hook buf method cancel-callback)
-                                                 t)))
-                              (remove-hook hook (lsp--create-request-cancel
-                                                 id target-workspaces hook buf method cancel-callback))))
-                          hooks)
-                (remhash cancel-token lsp--cancelable-requests)))
-             (callback (pcase mode
-                         ((or 'alive 'tick 'unchanged) (lambda (&rest args)
-                                                         (with-current-buffer buf
-                                                           (apply callback args))))
-                         (_ callback)))
-             (callback (lsp--create-async-callback callback
-                                                   method
-                                                   no-merge
-                                                   target-workspaces))
-             (callback (lambda (result)
-                         (lsp--request-cleanup-hooks id)
-                         (funcall callback result)))
-             (error-callback (lsp--create-async-callback
-                              (or error-callback
-                                  (lsp--create-default-error-handler method))
-                              method
-                              nil
-                              target-workspaces))
-             (error-callback (lambda (error)
-                               (funcall callback :error)
-                               (lsp--request-cleanup-hooks id)
-                               (funcall error-callback error)))
-             (body (plist-put body :id id)))
-
-        ;; cancel request in any of the hooks
-        (mapc (-lambda ((hook . local))
-                (add-hook hook
-                          (lsp--create-request-cancel
-                           id target-workspaces hook buf method cancel-callback)
-                          nil local))
-              hooks)
-        (puthash id cleanup-hooks lsp--request-cleanup-hooks)
-
-        (setq lsp--last-active-workspaces target-workspaces)
-
-        (when cancel-token
-          (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))
-
-        (seq-doseq (workspace target-workspaces)
-          (when (lsp--log-io-p method)
-            (lsp--log-entry-new (lsp--make-log-entry method id
-                                                     (plist-get body :params)
-                                                     'outgoing-req)
-                                workspace))
-          (puthash id
-                   (list callback error-callback method start-time (current-time))
-                   (-> workspace
-                       (lsp--workspace-client)
-                       (lsp--client-response-handlers)))
-          (lsp--send-no-wait body (lsp--workspace-proc workspace)))
-        body)
-    (error "The connected server(s) does not support method %s.
-To find out what capabilities support your server use `M-x lsp-describe-session'
-and expand the capabilities section"
-           (plist-get body :method))))
-
-;; deprecated, use lsp-request-async.
-(defalias 'lsp-send-request-async 'lsp--send-request-async)
-(make-obsolete 'lsp-send-request-async 'lsp-request-async "lsp-mode 7.0.1")
-
-;; Clean up the entire state of lsp mode when Emacs is killed, to get rid of any
-;; pending language servers.
-(add-hook 'kill-emacs-hook #'lsp--global-teardown)
-
-(defun lsp--global-teardown ()
-  "Unload working workspaces."
-  (lsp-foreach-workspace (lsp--shutdown-workspace)))
-
-(defun lsp--shutdown-workspace (&optional restart)
-  "Shut down the language server process for ‘lsp--cur-workspace’."
-  (with-demoted-errors "LSP error: %S"
-    (let ((lsp-response-timeout 0.5))
-      (condition-case err
-          (lsp-request "shutdown" nil)
-        (error (lsp--error "%s" err))))
-    (lsp-notify "exit" nil))
-  (setf (lsp--workspace-shutdown-action lsp--cur-workspace) (or (and restart 'restart) 'shutdown))
-  (lsp--uninitialize-workspace))
-
-(defcustom lsp-inlay-hint-enable nil
-  "If non-nil it will enable inlay hints."
-  :type 'boolean
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defun lsp--uninitialize-workspace ()
-  "Cleanup buffer state.
-When a workspace is shut down, by request or from just
-disappearing, unset all the variables related to it."
-  (-let [(&lsp-wks 'cmd-proc 'buffers) lsp--cur-workspace]
-    (lsp-process-kill cmd-proc)
-    (mapc (lambda (buf)
-            (when (lsp-buffer-live-p buf)
-              (lsp-with-current-buffer buf
-                                       (lsp-managed-mode -1))))
-          buffers)
-    (lsp-diagnostics--workspace-cleanup lsp--cur-workspace)))
-
-(defun lsp--client-capabilities (&optional custom-capabilities)
-  "Return the client capabilities appending CUSTOM-CAPABILITIES."
-  (append
-   `((general . ((positionEncodings . ["utf-32", "utf-16"])))
-     (workspace . ((workspaceEdit . ((documentChanges . t)
-                                     (resourceOperations . ["create" "rename" "delete"])))
-                   (applyEdit . t)
-                   (symbol . ((symbolKind . ((valueSet . ,(apply 'vector (number-sequence 1 26)))))))
-                   (executeCommand . ((dynamicRegistration . :json-false)))
-                   ,@(when lsp-enable-file-watchers '((didChangeWatchedFiles . ((dynamicRegistration . t)))))
-                   (workspaceFolders . t)
-                   (configuration . t)
-                   ,@(when lsp-semantic-tokens-enable
-                       `((semanticTokens . ((refreshSupport . ,(or (and (boundp 'lsp-semantic-tokens-honor-refresh-requests)
-                                                                        lsp-semantic-tokens-honor-refresh-requests)
-                                                                   :json-false))))))
-                   ,@(when lsp-lens-enable '((codeLens . ((refreshSupport . t)))))
-                   ,@(when lsp-inlay-hint-enable '((inlayHint . ((refreshSupport . :json-false)))))
-                   (diagnostics . ((refreshSupport . :json-false)))
-                   (fileOperations . ((didCreate . :json-false)
-                                      (willCreate . :json-false)
-                                      (didRename . t)
-                                      (willRename . t)
-                                      (didDelete . :json-false)
-                                      (willDelete . :json-false)))))
-     (textDocument . ((declaration . ((dynamicRegistration . t)
-                                      (linkSupport . t)))
-                      (definition . ((dynamicRegistration . t)
-                                     (linkSupport . t)))
-                      (references . ((dynamicRegistration . t)))
-                      (implementation . ((dynamicRegistration . t)
-                                         (linkSupport . t)))
-                      (typeDefinition . ((dynamicRegistration . t)
-                                         (linkSupport . t)))
-                      (synchronization . ((willSave . t) (didSave . t) (willSaveWaitUntil . t)))
-                      (documentSymbol . ((symbolKind . ((valueSet . ,(apply 'vector (number-sequence 1 26)))))
-                                         (hierarchicalDocumentSymbolSupport . t)))
-                      (formatting . ((dynamicRegistration . t)))
-                      (rangeFormatting . ((dynamicRegistration . t)))
-                      (onTypeFormatting . ((dynamicRegistration . t)))
-                      ,@(when (and lsp-semantic-tokens-enable
-                                   (functionp 'lsp--semantic-tokens-capabilities))
-                          (lsp--semantic-tokens-capabilities))
-                      (rename . ((dynamicRegistration . t) (prepareSupport . t)))
-                      (codeAction . ((dynamicRegistration . t)
-                                     (isPreferredSupport . t)
-                                     (codeActionLiteralSupport . ((codeActionKind . ((valueSet . [""
-                                                                                                  "quickfix"
-                                                                                                  "refactor"
-                                                                                                  "refactor.extract"
-                                                                                                  "refactor.inline"
-                                                                                                  "refactor.rewrite"
-                                                                                                  "source"
-                                                                                                  "source.organizeImports"])))))
-                                     (resolveSupport . ((properties . ["edit" "command"])))
-                                     (dataSupport . t)))
-                      (completion . ((completionItem . ((snippetSupport . ,(cond
-                                                                            ((and lsp-enable-snippet (not (fboundp 'yas-minor-mode)))
-                                                                             (lsp--warn (concat
-                                                                                         "Yasnippet is not installed, but `lsp-enable-snippet' is set to `t'. "
-                                                                                         "You must either install yasnippet, or disable snippet support."))
-                                                                             :json-false)
-                                                                            (lsp-enable-snippet t)
-                                                                            (t :json-false)))
-                                                        (documentationFormat . ["markdown" "plaintext"])
-                                                        ;; Remove this after jdtls support resolveSupport
-                                                        (resolveAdditionalTextEditsSupport . t)
-                                                        (insertReplaceSupport . t)
-                                                        (deprecatedSupport . t)
-                                                        (resolveSupport
-                                                         . ((properties . ["documentation"
-                                                                           "detail"
-                                                                           "additionalTextEdits"
-                                                                           "command"
-                                                                           "insertTextFormat"
-                                                                           "insertTextMode"])))
-                                                        (insertTextModeSupport . ((valueSet . [1 2])))))
-                                     (contextSupport . t)
-                                     (dynamicRegistration . t)))
-                      (signatureHelp . ((signatureInformation . ((parameterInformation . ((labelOffsetSupport . t)))))
-                                        (dynamicRegistration . t)))
-                      (documentLink . ((dynamicRegistration . t)
-                                       (tooltipSupport . t)))
-                      (hover . ((contentFormat . ["markdown" "plaintext"])
-                                (dynamicRegistration . t)))
-                      ,@(when lsp-enable-folding
-                          `((foldingRange . ((dynamicRegistration . t)
-                                             ,@(when lsp-folding-range-limit
-                                                 `((rangeLimit . ,lsp-folding-range-limit)))
-                                             ,@(when lsp-folding-line-folding-only
-                                                 `((lineFoldingOnly . t)))))))
-                      (selectionRange . ((dynamicRegistration . t)))
-                      (callHierarchy . ((dynamicRegistration . :json-false)))
-                      (typeHierarchy . ((dynamicRegistration . t)))
-                      (publishDiagnostics . ((relatedInformation . t)
-                                             (tagSupport . ((valueSet . [1 2])))
-                                             (versionSupport . t)))
-                      (diagnostic . ((dynamicRegistration . :json-false)
-                                     (relatedDocumentSupport . :json-false)))
-                      (linkedEditingRange . ((dynamicRegistration . t)))))
-     (window . ((workDoneProgress . t)
-                (showDocument . ((support . t))))))
-   custom-capabilities))
-
-(defun lsp-find-roots-for-workspace (workspace session)
-  "Get all roots for the WORKSPACE."
-  (-filter #'identity (ht-map (lambda (folder workspaces)
-                                (when (-contains? workspaces workspace)
-                                  folder))
-                              (lsp-session-folder->servers session))))
-
-(defun lsp-session-watches (&optional session)
-  "Get watches created for SESSION."
-  (or (gethash "__watches" (lsp-session-metadata (or session (lsp-session))))
-      (-let [res (make-hash-table :test 'equal)]
-        (puthash "__watches" res (lsp-session-metadata (or session (lsp-session))))
-        res)))
-
-(defun lsp--file-process-event (session root-folder event)
-  "Process file event."
-  (let* ((changed-file (cl-third event))
-         (rel-changed-file (f-relative changed-file root-folder))
-         (event-numeric-kind (alist-get (cl-second event) lsp--file-change-type))
-         (bit-position (1- event-numeric-kind))
-         (watch-bit (ash 1 bit-position)))
-    (->>
-     session
-     lsp-session-folder->servers
-     (gethash root-folder)
-     (seq-do (lambda (workspace)
-               (when (->>
-                      workspace
-                      lsp--workspace-registered-server-capabilities
-                      (-any?
-                       (lambda (capability)
-                         (and
-                          (equal (lsp--registered-capability-method capability)
-                                 "workspace/didChangeWatchedFiles")
-                          (->>
-                           capability
-                           lsp--registered-capability-options
-                           (lsp:did-change-watched-files-registration-options-watchers)
-                           (seq-find
-                            (-lambda ((fs-watcher &as &FileSystemWatcher :glob-pattern :kind? :_cachedRegexp cached-regexp))
-                              (when (or (null kind?)
-                                        (> (logand kind? watch-bit) 0))
-                                (-let [regexes (or cached-regexp
-                                                   (let ((regexp (lsp-glob-to-regexps glob-pattern)))
-                                                     (lsp-put fs-watcher :_cachedRegexp regexp)
-                                                     regexp))]
-                                  (-any? (lambda (re)
-                                           (or (string-match re changed-file)
-                                               (string-match re rel-changed-file)))
-                                         regexes))))))))))
-                 (with-lsp-workspace workspace
-                   (lsp-notify
-                    "workspace/didChangeWatchedFiles"
-                    `((changes . [((type . ,event-numeric-kind)
-                                   (uri . ,(lsp--path-to-uri changed-file)))]))))))))))
-
-(lsp-defun lsp--server-register-capability ((&Registration :method :id :register-options?))
-  "Register capability REG."
-  (when (and lsp-enable-file-watchers
-             (equal method "workspace/didChangeWatchedFiles"))
-    (-let* ((created-watches (lsp-session-watches (lsp-session)))
-            (root-folders (cl-set-difference
-                           (lsp-find-roots-for-workspace lsp--cur-workspace (lsp-session))
-                           (ht-keys created-watches))))
-      ;; create watch for each root folder without such
-      (dolist (folder root-folders)
-        (let* ((watch (make-lsp-watch :root-directory folder))
-               (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder))
-               (ignored-files-regex-list (car ignored-things))
-               (ignored-directories-regex-list (cadr ignored-things)))
-          (puthash folder watch created-watches)
-          (lsp-watch-root-folder (file-truename folder)
-                                 (-partial #'lsp--file-process-event (lsp-session) folder)
-                                 ignored-files-regex-list
-                                 ignored-directories-regex-list
-                                 watch
-                                 t)))))
-
-  (push
-   (make-lsp--registered-capability :id id :method method :options register-options?)
-   (lsp--workspace-registered-server-capabilities lsp--cur-workspace)))
-
-(defmacro lsp--with-workspace-temp-buffer (workspace-root &rest body)
-  "With a temp-buffer under `WORKSPACE-ROOT' and evaluate `BODY', useful to
-access dir-local variables."
-  (declare (indent 1) (debug t))
-  `(with-temp-buffer
-     ;; Set the buffer's name to something under the root so that we can hack the local variables
-     ;; This file doesn't need to exist and will not be created due to this.
-     (setq-local buffer-file-name (expand-file-name "lsp-mode-temp" (expand-file-name ,workspace-root)))
-     (hack-local-variables)
-     (prog1 ,@body
-       (setq-local buffer-file-name nil))))
-
-(defun lsp--get-ignored-regexes-for-workspace-root (workspace-root)
-  "Return a list of the form
-(lsp-file-watch-ignored-files lsp-file-watch-ignored-directories) for the given
-WORKSPACE-ROOT."
-  ;; The intent of this function is to provide per-root workspace-level customization of the
-  ;; lsp-file-watch-ignored-directories and lsp-file-watch-ignored-files variables.
-  (lsp--with-workspace-temp-buffer workspace-root
-    (list lsp-file-watch-ignored-files (lsp-file-watch-ignored-directories))))
-
-
-(defun lsp--cleanup-hanging-watches ()
-  "Cleanup watches in case there are no more workspaces that are interested
-in that particular folder."
-  (let* ((session (lsp-session))
-         (watches (lsp-session-watches session)))
-    (dolist (watched-folder (ht-keys watches))
-      (when (-none? (lambda (workspace)
-                      (with-lsp-workspace workspace
-                        (lsp--registered-capability "workspace/didChangeWatchedFiles")))
-                    (gethash watched-folder (lsp-session-folder->servers (lsp-session))))
-        (lsp-log "Cleaning up watches for folder %s. There is no workspace watching this folder..." watched-folder)
-        (lsp-kill-watch (gethash watched-folder watches))
-        (remhash watched-folder watches)))))
-
-(lsp-defun lsp--server-unregister-capability ((&Unregistration :id :method))
-  "Unregister capability UNREG."
-  (setf (lsp--workspace-registered-server-capabilities lsp--cur-workspace)
-        (seq-remove (lambda (e) (equal (lsp--registered-capability-id e) id))
-                    (lsp--workspace-registered-server-capabilities lsp--cur-workspace)))
-  (when (equal method "workspace/didChangeWatchedFiles")
-    (lsp--cleanup-hanging-watches)))
-
-(defun lsp--server-capabilities ()
-  "Return the capabilities of the language server associated with the buffer."
-  (->> (lsp-workspaces)
-       (-keep #'lsp--workspace-server-capabilities)
-       (apply #'lsp-merge)))
-
-(defun lsp--send-open-close-p ()
-  "Return whether open and close notifications should be sent to the server."
-  (let ((sync (lsp:server-capabilities-text-document-sync? (lsp--server-capabilities))))
-    (or (memq sync '(1 2))
-        (lsp:text-document-sync-options-open-close? sync))))
-
-(defun lsp--send-will-save-p ()
-  "Return whether willSave notifications should be sent to the server."
-  (-> (lsp--server-capabilities)
-      (lsp:server-capabilities-text-document-sync?)
-      (lsp:text-document-sync-options-will-save?)))
-
-(defun lsp--send-will-save-wait-until-p ()
-  "Return whether willSaveWaitUntil notifications should be sent to the server."
-  (-> (lsp--server-capabilities)
-      (lsp:server-capabilities-text-document-sync?)
-      (lsp:text-document-sync-options-will-save-wait-until?)))
-
-(defun lsp--send-did-save-p ()
-  "Return whether didSave notifications should be sent to the server."
-  (let ((sync (lsp:server-capabilities-text-document-sync? (lsp--server-capabilities))))
-    (or (memq sync '(1 2))
-        (lsp:text-document-sync-options-save? sync))))
-
-(defun lsp--save-include-text-p ()
-  "Return whether save notifications should include the text document's contents."
-  (->> (lsp--server-capabilities)
-       (lsp:server-capabilities-text-document-sync?)
-       (lsp:text-document-sync-options-save?)
-       (lsp:text-document-save-registration-options-include-text?)))
-
-(defun lsp--send-will-rename-files-p (path)
-  "Return whether willRenameFiles request should be sent to the server.
-If any filters, checks if it applies for PATH."
-  (let* ((will-rename (-> (lsp--server-capabilities)
-                          (lsp:server-capabilities-workspace?)
-                          (lsp:workspace-server-capabilities-file-operations?)
-                          (lsp:workspace-file-operations-will-rename?)))
-         (filters (seq-into (lsp:file-operation-registration-options-filters will-rename) 'list)))
-    (and will-rename
-         (or (seq-empty-p filters)
-             (-any? (-lambda ((&FileOperationFilter :scheme? :pattern (&FileOperationPattern :glob)))
-                      (-let [regexes (lsp-glob-to-regexps glob)]
-                        (and (or (not scheme?)
-                                 (string-prefix-p scheme? (lsp--path-to-uri path)))
-                             (-any? (lambda (re)
-                                      (string-match re path))
-                                    regexes))))
-                    filters)))))
-
-(defun lsp--send-did-rename-files-p ()
-  "Return whether didRenameFiles notification should be sent to the server."
-  (-> (lsp--server-capabilities)
-      (lsp:server-capabilities-workspace?)
-      (lsp:workspace-server-capabilities-file-operations?)
-      (lsp:workspace-file-operations-did-rename?)))
-
-(declare-function project-roots "ext:project" (project) t)
-(declare-function project-root "ext:project" (project) t)
-
-(defun lsp--suggest-project-root ()
-  "Get project root."
-  (or
-   (when (fboundp 'projectile-project-root)
-     (condition-case nil
-         (projectile-project-root)
-       (error nil)))
-   (when (fboundp 'project-current)
-     (when-let* ((project (project-current)))
-       (if (fboundp 'project-root)
-           (project-root project)
-         (car (with-no-warnings
-                (project-roots project))))))
-   default-directory))
-
-(defun lsp--read-from-file (file)
-  "Read FILE content."
-  (when (file-exists-p file)
-    (cl-first (read-from-string (f-read-text file 'utf-8)))))
-
-(defun lsp--persist (file-name to-persist)
-  "Persist TO-PERSIST in FILE-NAME.
-
-This function creates the parent directories if they don't exist
-yet."
-  (let ((print-length nil)
-        (print-level nil))
-    ;; Create all parent directories:
-    (make-directory (f-parent file-name) t)
-    (f-write-text (prin1-to-string to-persist) 'utf-8 file-name)))
-
-(defun lsp-workspace-folders-add (project-root)
-  "Add PROJECT-ROOT to the list of workspace folders."
-  (interactive
-   (list (read-directory-name "Select folder to add: "
-                              (or (lsp--suggest-project-root) default-directory) nil t)))
-  (cl-pushnew (lsp-f-canonical project-root)
-              (lsp-session-folders (lsp-session)) :test 'equal)
-  (lsp--persist-session (lsp-session))
-
-  (run-hook-with-args 'lsp-workspace-folders-changed-functions (list project-root) nil))
-
-(defun lsp-workspace-folders-remove (project-root)
-  "Remove PROJECT-ROOT from the list of workspace folders."
-  (interactive (list (completing-read "Select folder to remove: "
-                                      (lsp-session-folders (lsp-session))
-                                      nil t nil nil
-                                      (lsp-find-session-folder (lsp-session) default-directory))))
-
-  (setq project-root (lsp-f-canonical project-root))
-
-  ;; send remove folder to each multiroot workspace associated with the folder
-  (dolist (wks (->> (lsp-session)
-                    (lsp-session-folder->servers)
-                    (gethash project-root)
-                    (--filter (lsp--client-multi-root (lsp--workspace-client it)))))
-    (with-lsp-workspace wks
-      (lsp-notify "workspace/didChangeWorkspaceFolders"
-                  (lsp-make-did-change-workspace-folders-params
-                   :event (lsp-make-workspace-folders-change-event
-                           :removed (vector (lsp-make-workspace-folder
-                                             :uri (lsp--path-to-uri project-root)
-                                             :name (f-filename project-root)))
-                           :added [])))))
-
-  ;; turn off servers in the removed directory
-  (let* ((session (lsp-session))
-         (folder->servers (lsp-session-folder->servers session))
-         (server-id->folders (lsp-session-server-id->folders session))
-         (workspaces (gethash project-root folder->servers)))
-
-    (remhash project-root folder->servers)
-
-    ;; turn off the servers without root folders
-    (dolist (workspace workspaces)
-      (when (--none? (-contains? it workspace) (ht-values folder->servers))
-        (lsp--info "Shutdown %s since folder %s is removed..."
-                   (lsp--workspace-print workspace) project-root)
-        (with-lsp-workspace workspace (lsp--shutdown-workspace))))
-
-    (setf (lsp-session-folders session)
-          (-remove-item project-root (lsp-session-folders session)))
-
-    (ht-aeach (puthash key
-                       (-remove-item project-root value)
-                       server-id->folders)
-              server-id->folders)
-    (lsp--persist-session (lsp-session)))
-
-  (run-hook-with-args 'lsp-workspace-folders-changed-functions nil (list project-root)))
-
-(defun lsp-workspace-blocklist-remove (project-root)
-  "Remove PROJECT-ROOT from the workspace blocklist."
-  (interactive (list (completing-read "Select folder to remove:"
-                                      (lsp-session-folders-blocklist (lsp-session))
-                                      nil t)))
-  (setf (lsp-session-folders-blocklist (lsp-session))
-        (delete project-root
-                (lsp-session-folders-blocklist (lsp-session))))
-  (lsp--persist-session (lsp-session)))
-
-(define-obsolete-function-alias 'lsp-workspace-folders-switch
-  'lsp-workspace-folders-open "lsp-mode 6.1")
-
-(defun lsp-workspace-folders-open (project-root)
-  "Open the directory located at PROJECT-ROOT"
-  (interactive (list (completing-read "Open folder: "
-                                      (lsp-session-folders (lsp-session))
-                                      nil t)))
-  (find-file project-root))
-
-(defun lsp--maybe-enable-signature-help (trigger-characters)
-  (let ((ch last-command-event))
-    (when (cl-find ch trigger-characters :key #'string-to-char)
-      (lsp-signature-activate))))
-
-(defun lsp--on-type-formatting-handler-create ()
-  (when-let* ((provider (lsp--capability-for-method "textDocument/onTypeFormatting" )))
-    (-let [(&DocumentOnTypeFormattingOptions :more-trigger-character?
-                                             :first-trigger-character) provider]
-      (lambda ()
-        (lsp--on-type-formatting first-trigger-character
-                                 more-trigger-character?)))))
-
-(defun lsp--update-on-type-formatting-hook (&optional cleanup?)
-  (let ((on-type-formatting-handler (lsp--on-type-formatting-handler-create)))
-    (cond
-     ((and lsp-enable-on-type-formatting on-type-formatting-handler (not cleanup?))
-      (add-hook 'post-self-insert-hook on-type-formatting-handler nil t))
-     ((or cleanup?
-          (not lsp-enable-on-type-formatting))
-      (remove-hook 'post-self-insert-hook on-type-formatting-handler t)))))
-
-(defun lsp--signature-help-handler-create ()
-  (-when-let ((&SignatureHelpOptions? :trigger-characters?)
-              (lsp--capability-for-method "textDocument/signatureHelp"))
-    (lambda ()
-      (lsp--maybe-enable-signature-help trigger-characters?))))
-
-(defun lsp--update-signature-help-hook (&optional cleanup?)
-  (let ((signature-help-handler (lsp--signature-help-handler-create)))
-    (cond
-     ((and (or (equal lsp-signature-auto-activate t)
-               (memq :on-trigger-char lsp-signature-auto-activate))
-           signature-help-handler
-           (not cleanup?))
-      (add-hook 'post-self-insert-hook signature-help-handler nil t))
-
-     ((or cleanup?
-          (not (or (equal lsp-signature-auto-activate t)
-                   (memq :on-trigger-char lsp-signature-auto-activate))))
-      (remove-hook 'post-self-insert-hook signature-help-handler t)))))
-
-(defun lsp--after-set-visited-file-name ()
-  (lsp-disconnect)
-  (lsp))
-
-;; TODO remove those eldoc workarounds when dropping support for Emacs 27
-;; https://github.com/emacs-lsp/lsp-mode/issues/3295#issuecomment-1308994099
-(defvar eldoc-documentation-default) ; CI
-(when (< emacs-major-version 28)
-  (unless (boundp 'eldoc-documentation-functions)
-    (load "eldoc" nil 'nomessage))
-  (when (memq (default-value 'eldoc-documentation-function) '(nil ignore))
-    ;; actually `eldoc-documentation-strategy', but CI was failing
-    (setq-default eldoc-documentation-function 'eldoc-documentation-default)))
-
-(define-minor-mode lsp-managed-mode
-  "Mode for source buffers managed by lsp-mode."
-  :lighter nil
-  (cond
-   (lsp-managed-mode
-    (when (lsp-feature? "textDocument/hover")
-      (add-hook 'eldoc-documentation-functions #'lsp-eldoc-function nil t)
-      (eldoc-mode 1))
-
-    (add-hook 'after-change-functions #'lsp-on-change nil t)
-    (add-hook 'after-revert-hook #'lsp-on-revert nil t)
-    (add-hook 'after-save-hook #'lsp-on-save nil t)
-    (add-hook 'auto-save-hook #'lsp--on-auto-save nil t)
-    (add-hook 'before-change-functions #'lsp-before-change nil t)
-    (add-hook 'before-save-hook #'lsp--before-save nil t)
-    (add-hook 'kill-buffer-hook #'lsp--text-document-did-close nil t)
-    (add-hook 'post-command-hook #'lsp--post-command nil t)
-
-    (lsp--update-on-type-formatting-hook)
-    (lsp--update-signature-help-hook)
-
-    (when lsp-enable-xref
-      (add-hook 'xref-backend-functions #'lsp--xref-backend nil t))
-
-    (lsp-configure-buffer)
-
-    ;; make sure we turn off lsp-mode in case major mode changes, because major
-    ;; mode change will wipe the buffer locals.
-    (add-hook 'change-major-mode-hook #'lsp-disconnect nil t)
-    (add-hook 'after-set-visited-file-name-hook #'lsp--after-set-visited-file-name nil t)
-
-    (let ((buffer (lsp-current-buffer)))
-      (run-with-idle-timer
-       0.0 nil
-       (lambda ()
-         (when (lsp-buffer-live-p buffer)
-           (lsp-with-current-buffer buffer
-             (lsp--on-change-debounce buffer)
-             (lsp--on-idle buffer)))))))
-   (t
-    (lsp-unconfig-buffer)
-
-    (remove-hook 'eldoc-documentation-functions #'lsp-eldoc-function t)
-    (remove-hook 'post-command-hook #'lsp--post-command t)
-    (remove-hook 'after-change-functions #'lsp-on-change t)
-    (remove-hook 'after-revert-hook #'lsp-on-revert t)
-    (remove-hook 'after-save-hook #'lsp-on-save t)
-    (remove-hook 'auto-save-hook #'lsp--on-auto-save t)
-    (remove-hook 'before-change-functions #'lsp-before-change t)
-    (remove-hook 'before-save-hook #'lsp--before-save t)
-    (remove-hook 'kill-buffer-hook #'lsp--text-document-did-close t)
-
-    (lsp--update-on-type-formatting-hook :cleanup)
-    (lsp--update-signature-help-hook :cleanup)
-
-    (when lsp--on-idle-timer
-      (cancel-timer lsp--on-idle-timer)
-      (setq lsp--on-idle-timer nil))
-
-    (remove-hook 'lsp-on-idle-hook #'lsp--document-links t)
-    (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
-
-    (lsp--remove-overlays 'lsp-highlight)
-    (lsp--remove-overlays 'lsp-links)
-
-    (remove-hook 'xref-backend-functions #'lsp--xref-backend t)
-    (remove-hook 'change-major-mode-hook #'lsp-disconnect t)
-    (remove-hook 'after-set-visited-file-name-hook #'lsp--after-set-visited-file-name t)
-    (setq-local lsp-buffer-uri nil))))
-
-(defun lsp-configure-buffer ()
-  "Configure LSP features for current buffer."
-  ;; make sure the core is running in the context of all available workspaces
-  ;; to avoid misconfiguration in case we are running in `with-lsp-workspace' context
-  (let ((lsp--buffer-workspaces (cond
-                                 (lsp--buffer-workspaces)
-                                 (lsp--cur-workspace (list lsp--cur-workspace))))
-        lsp--cur-workspace)
-    (when lsp-auto-configure
-      (lsp--auto-configure)
-
-      (when (and lsp-enable-text-document-color
-                 (lsp-feature? "textDocument/documentColor"))
-        (add-hook 'lsp-on-change-hook #'lsp--document-color nil t))
-
-      (when (and lsp-enable-imenu
-                 (lsp-feature? "textDocument/documentSymbol"))
-        (lsp-enable-imenu))
-
-      (when (and lsp-enable-indentation
-                 (lsp-feature? "textDocument/rangeFormatting"))
-        (add-function :override (local 'indent-region-function) #'lsp-format-region))
-
-      (when (and lsp-enable-symbol-highlighting
-                 (lsp-feature? "textDocument/documentHighlight"))
-        (add-hook 'lsp-on-idle-hook #'lsp--document-highlight nil t))
-
-      (when (and lsp-enable-links
-                 (lsp-feature? "textDocument/documentLink"))
-        (add-hook 'lsp-on-idle-hook #'lsp--document-links nil t))
-
-      (when (and lsp-inlay-hint-enable
-                 (lsp-feature? "textDocument/inlayHint"))
-        (lsp-inlay-hints-mode))
-
-      (when (and lsp-enable-dap-auto-configure
-                 (functionp 'dap-mode))
-        (dap-auto-configure-mode 1)))
-    (run-hooks 'lsp-configure-hook)))
-
-(defun lsp-unconfig-buffer ()
-  "Unconfigure LSP features for buffer."
-  (lsp--remove-overlays 'lsp-color)
-
-  (when (advice-function-member-p 'lsp--imenu-create-index imenu-create-index-function)
-    (remove-function (local 'imenu-create-index-function) #'lsp--imenu-create-index)
-    (setq-local imenu-menubar-modified-tick 0)
-    (setq-local imenu--index-alist nil)
-    (imenu--cleanup))
-
-  (remove-function (local 'indent-region-function) #'lsp-format-region)
-
-  (remove-hook 'lsp-on-change-hook #'lsp--document-color t)
-  (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
-  (remove-hook 'lsp-on-idle-hook #'lsp--document-links t)
-
-  (when (and lsp-enable-dap-auto-configure
-             (functionp 'dap-mode))
-    (dap-auto-configure-mode -1))
-
-  (run-hooks 'lsp-unconfigure-hook))
-
-(defun lsp--buffer-content ()
-  (lsp-save-restriction-and-excursion
-    (or (lsp-virtual-buffer-call :buffer-string)
-        (buffer-substring-no-properties (point-min)
-                                        (point-max)))))
-
-(defun lsp--text-document-did-open ()
-  "`document/didOpen' event."
-  (run-hooks 'lsp-before-open-hook)
-  (when (and lsp-auto-touch-files
-             (not (f-exists? (lsp--uri-to-path (lsp--buffer-uri)))))
-    (lsp--info "Saving file '%s' because it is not present on the disk." (lsp--buffer-uri))
-    (save-buffer))
-
-  (setq lsp--cur-version (or lsp--cur-version 0))
-  (cl-pushnew (lsp-current-buffer) (lsp--workspace-buffers lsp--cur-workspace))
-  (lsp-notify
-   "textDocument/didOpen"
-   (list :textDocument
-         (list :uri (lsp--buffer-uri)
-               :languageId (lsp-buffer-language)
-               :version lsp--cur-version
-               :text (lsp--buffer-content))))
-
-  (lsp-managed-mode 1)
-
-  (lsp-diagnostics--request-pull-diagnostics lsp--cur-workspace)
-
-  (run-hooks 'lsp-after-open-hook)
-  (when-let* ((client (-some-> lsp--cur-workspace (lsp--workspace-client))))
-    (-some-> (lsp--client-after-open-fn client)
-      (funcall))
-    (-some-> (format "lsp-%s-after-open-hook" (lsp--client-server-id client))
-      (intern-soft)
-      (run-hooks))))
-
-(defun lsp--text-document-identifier ()
-  "Make TextDocumentIdentifier."
-  (list :uri (lsp--buffer-uri)))
-
-(defun lsp--versioned-text-document-identifier ()
-  "Make VersionedTextDocumentIdentifier."
-  (plist-put (lsp--text-document-identifier) :version lsp--cur-version))
-
-(defun lsp--cur-line (&optional point)
-  (1- (line-number-at-pos point)))
-
-(defun lsp--cur-position ()
-  "Make a Position object for the current point."
-  (or (lsp-virtual-buffer-call :cur-position)
-      (lsp-save-restriction-and-excursion
-        (list :line (lsp--cur-line)
-              :character (- (point) (line-beginning-position))))))
-
-(defun lsp--point-to-position (point)
-  "Convert POINT to Position."
-  (lsp-save-restriction-and-excursion
-    (goto-char point)
-    (lsp--cur-position)))
-
-(defun lsp--range (start end)
-  "Make Range body from START and END."
-  ;; make sure start and end are Position objects
-  (list :start start :end end))
-
-(defun lsp--region-to-range (start end)
-  "Make Range object for the current region."
-  (lsp--range (lsp--point-to-position start)
-              (lsp--point-to-position end)))
-
-(defun lsp--region-or-line ()
-  "The active region or the current line."
-  (if (use-region-p)
-      (lsp--region-to-range (region-beginning) (region-end))
-    (lsp--region-to-range (line-beginning-position) (line-end-position))))
-
-(defun lsp--check-document-changes-version (document-changes)
-  "Verify that DOCUMENT-CHANGES have the proper version."
-  (unless (seq-every-p
-           (-lambda ((&TextDocumentEdit :text-document))
-             (or
-              (not text-document)
-              (let* ((filename (-> text-document
-                                   lsp:versioned-text-document-identifier-uri
-                                   lsp--uri-to-path))
-                     (version (lsp:versioned-text-document-identifier-version? text-document)))
-                (with-current-buffer (find-file-noselect filename)
-                  (or (null version) (zerop version) (= -1 version)
-                      (equal version lsp--cur-version))))))
-           document-changes)
-    (error "Document changes cannot be applied due to different document version")))
-
-(defun lsp--apply-workspace-edit (workspace-edit &optional operation)
-  "Apply the WorkspaceEdit object WORKSPACE-EDIT.
-OPERATION is symbol representing the source of this text edit."
-  (-let (((&WorkspaceEdit :document-changes? :changes?) workspace-edit))
-    (if-let* ((document-changes (seq-reverse document-changes?)))
-        (progn
-          (lsp--check-document-changes-version document-changes)
-          (->> document-changes
-               (seq-filter (-lambda ((&CreateFile :kind)) (equal kind "create")))
-               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation))))
-          (->> document-changes
-               (seq-filter (-lambda ((&CreateFile :kind))
-                             (and (or (not kind) (equal kind "edit"))
-                                  (not (equal kind "create")))))
-               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation))))
-          (->> document-changes
-               (seq-filter (-lambda ((&CreateFile :kind))
-                             (and (not (or (not kind) (equal kind "edit")))
-                                  (not (equal kind "create")))))
-               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation)))))
-      (lsp-map
-       (lambda (uri text-edits)
-         (with-current-buffer (-> uri lsp--uri-to-path find-file-noselect)
-           (lsp--apply-text-edits text-edits operation)))
-       changes?))))
-
-(defmacro lsp-with-filename (file &rest body)
-  "Execute BODY with FILE as a context.
-Need to handle the case when FILE indicates virtual buffer."
-  (declare (indent 1) (debug t))
-  `(if-let* ((lsp--virtual-buffer (get-text-property 0 'lsp-virtual-buffer ,file)))
-       (lsp-with-current-buffer lsp--virtual-buffer
-         ,@body)
-     ,@body))
-
-(defun lsp--apply-text-document-edit (edit &optional operation)
-  "Apply the TextDocumentEdit object EDIT.
-OPERATION is symbol representing the source of this text edit.
-If the file is not being visited by any buffer, it is opened with
-`find-file-noselect'.
-Because lsp-mode does not store previous document versions, the edit is only
-applied if the version of the textDocument matches the version of the
-corresponding file.
-
-interface TextDocumentEdit {
-  textDocument: VersionedTextDocumentIdentifier;
-  edits: TextEdit[];
-}"
-  (pcase (lsp:edit-kind edit)
-    ("create" (-let* (((&CreateFile :uri :options?) edit)
-                      (file-name (lsp--uri-to-path uri)))
-                (mkdir (f-dirname file-name) t)
-                (f-touch file-name)
-                (when (lsp:create-file-options-overwrite? options?)
-                  (f-write-text "" nil file-name))
-                (find-file-noselect file-name)))
-    ("delete" (-let (((&DeleteFile :uri :options? (&DeleteFileOptions? :recursive?)) edit))
-                (f-delete (lsp--uri-to-path uri) recursive?)))
-    ("rename" (-let* (((&RenameFile :old-uri :new-uri :options? (&RenameFileOptions? :overwrite?)) edit)
-                      (old-file-name (lsp--uri-to-path old-uri))
-                      (new-file-name (lsp--uri-to-path new-uri))
-                      (buf (find-buffer-visiting old-file-name)))
-                (when buf
-                  (lsp-with-current-buffer buf
-                    (save-buffer)
-                    (lsp--text-document-did-close)))
-                (mkdir (f-dirname new-file-name) t)
-                (rename-file old-file-name new-file-name overwrite?)
-                (when buf
-                  (lsp-with-current-buffer buf
-                    (set-buffer-modified-p nil)
-                    (setq lsp-buffer-uri nil)
-                    (set-visited-file-name new-file-name)
-                    (lsp)))))
-    (_ (let ((file-name (->> edit
-                             (lsp:text-document-edit-text-document)
-                             (lsp:versioned-text-document-identifier-uri)
-                             (lsp--uri-to-path))))
-         (lsp-with-current-buffer (find-buffer-visiting file-name)
-           (lsp-with-filename file-name
-             (lsp--apply-text-edits (lsp:text-document-edit-edits edit) operation)))))))
-
-(lsp-defun lsp--position-compare ((&Position :line left-line
-                                             :character left-character)
-                                  (&Position :line right-line
-                                             :character right-character))
-  "Return t if position LEFT is greater than RIGHT."
-  (if (= left-line right-line)
-      (> left-character right-character)
-    (> left-line right-line)))
-
-(lsp-defun lsp-point-in-range? (position (&Range :start :end))
-  "Returns if POINT is in RANGE."
-  (not (or (lsp--position-compare start position)
-           (lsp--position-compare position end))))
-
-(lsp-defun lsp--position-equal ((&Position :line left-line
-                                           :character left-character)
-                                (&Position :line right-line
-                                           :character right-character))
-  "Return whether LEFT and RIGHT positions are equal."
-  (and (= left-line right-line)
-       (= left-character right-character)))
-
-(lsp-defun lsp--text-edit-sort-predicate ((&TextEdit :range (&Range :start left-start :end left-end))
-                                          (&TextEdit :range (&Range :start right-start :end right-end)))
-  (if (lsp--position-equal left-start right-start)
-      (lsp--position-compare left-end right-end)
-    (lsp--position-compare left-start right-start)))
-
-(lsp-defun lsp--apply-text-edit ((edit &as &TextEdit :range (&RangeToPoint :start :end) :new-text))
-  "Apply the edits described in the TextEdit object in TEXT-EDIT."
-  (setq new-text (s-replace "\r" "" (or new-text "")))
-  (lsp:set-text-edit-new-text edit new-text)
-  (goto-char start)
-  (delete-region start end)
-  (insert new-text))
-
-;; WORKAROUND: typescript-language might send -1 when applying code actions.
-;; see https://github.com/emacs-lsp/lsp-mode/issues/1582
-(lsp-defun lsp--fix-point ((point &as &Position :character :line))
-  (-doto point
-    (lsp:set-position-line (max 0 line))
-    (lsp:set-position-character (max 0 character))))
-
-(lsp-defun lsp--apply-text-edit-replace-buffer-contents ((edit &as
-                                                               &TextEdit
-                                                               :range (&Range :start :end)
-                                                               :new-text))
-  "Apply the edits described in the TextEdit object in TEXT-EDIT.
-The method uses `replace-buffer-contents'."
-  (setq new-text (s-replace "\r" "" (or new-text "")))
-  (lsp:set-text-edit-new-text edit new-text)
-  (-let* ((source (current-buffer))
-          ((beg . end) (lsp--range-to-region (lsp-make-range :start (lsp--fix-point start)
-                                                             :end (lsp--fix-point end)))))
-    (with-temp-buffer
-      (insert new-text)
-      (let ((temp (current-buffer)))
-        (with-current-buffer source
-          (save-excursion
-            (save-restriction
-              (narrow-to-region beg end)
-
-              ;; On emacs versions < 26.2,
-              ;; `replace-buffer-contents' is buggy - it calls
-              ;; change functions with invalid arguments - so we
-              ;; manually call the change functions here.
-              ;;
-              ;; See emacs bugs #32237, #32278:
-              ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32237
-              ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32278
-              (let ((inhibit-modification-hooks t)
-                    (length (- end beg)))
-                (run-hook-with-args 'before-change-functions
-                                    beg end)
-                (replace-buffer-contents temp)
-                (run-hook-with-args 'after-change-functions
-                                    beg (+ beg (length new-text))
-                                    length)))))))))
-
-(defun lsp--to-yasnippet-snippet (snippet)
-  "Convert LSP SNIPPET to yasnippet snippet."
-  ;; LSP snippet doesn't escape "{" and "`", but yasnippet requires escaping it.
-  (replace-regexp-in-string (rx (or bos (not (any "$" "\\"))) (group (or "{" "`")))
-                            (rx "\\" (backref 1))
-                            snippet
-                            nil nil 1))
-
-(defvar-local lsp-enable-relative-indentation nil
-  "Enable relative indentation when insert texts, snippets ...
-from language server.")
-
-(defun lsp--expand-snippet (snippet &optional start end expand-env)
-  "Wrapper of `yas-expand-snippet' with all of it arguments.
-The snippet will be convert to LSP style and indent according to
-LSP server result."
-  (require 'yasnippet nil t)
-  (let* ((inhibit-field-text-motion t)
-         (yas-wrap-around-region nil)
-         (yas-indent-line 'none)
-         (yas-also-auto-indent-first-line nil))
-    (yas-expand-snippet
-     (lsp--to-yasnippet-snippet snippet)
-     start end expand-env)))
-
-(defun lsp--indent-lines (start end &optional insert-text-mode?)
-  "Indent from START to END based on INSERT-TEXT-MODE? value.
-- When INSERT-TEXT-MODE? is provided
-  - if it's `lsp/insert-text-mode-as-it', do no editor indentation.
-  - if it's `lsp/insert-text-mode-adjust-indentation', adjust leading
-    whitespaces to match the line where text is inserted.
-- When it's not provided, using `indent-line-function' for each line."
-  (save-excursion
-    (goto-char end)
-    (let* ((end-line (line-number-at-pos))
-           (offset (save-excursion
-                     (goto-char start)
-                     (current-indentation)))
-           (indent-line-function
-            (cond ((equal insert-text-mode? lsp/insert-text-mode-as-it)
-                   #'ignore)
-                  ((or (equal insert-text-mode? lsp/insert-text-mode-adjust-indentation)
-                       lsp-enable-relative-indentation
-                       ;; Indenting snippets is extremely slow in `org-mode' buffers
-                       ;; since it has to calculate indentation based on SRC block
-                       ;; position.  Thus we use relative indentation as default.
-                       (derived-mode-p 'org-mode))
-                   (lambda () (save-excursion
-                                (beginning-of-line)
-                                (indent-to-column offset))))
-                  (t indent-line-function))))
-      (goto-char start)
-      (forward-line)
-      (while (and (not (eobp))
-                  (<= (line-number-at-pos) end-line))
-        (funcall indent-line-function)
-        (forward-line)))))
-
-(defun lsp--apply-text-edits (edits &optional operation)
-  "Apply the EDITS described in the TextEdit[] object.
-OPERATION is symbol representing the source of this text edit."
-  (unless (seq-empty-p edits)
-    (atomic-change-group
-      (run-hooks 'lsp-before-apply-edits-hook)
-      (let* ((change-group (prepare-change-group))
-             (howmany (length edits))
-             (message (format "Applying %s edits to `%s' ..." howmany (current-buffer)))
-             (_ (lsp--info message))
-             (reporter (make-progress-reporter message 0 howmany))
-             (done 0)
-             (apply-edit (if (not lsp--virtual-buffer)
-                             #'lsp--apply-text-edit-replace-buffer-contents
-                           #'lsp--apply-text-edit)))
-        (unwind-protect
-            (->> edits
-                 ;; We sort text edits so as to apply edits that modify latter
-                 ;; parts of the document first. Furthermore, because the LSP
-                 ;; spec dictates that: "If multiple inserts have the same
-                 ;; position, the order in the array defines which edit to
-                 ;; apply first."  We reverse the initial list and sort stably
-                 ;; to make sure the order among edits with the same position
-                 ;; is preserved.
-                 (nreverse)
-                 (seq-sort #'lsp--text-edit-sort-predicate)
-                 (mapc (lambda (edit)
-                         (progress-reporter-update reporter (cl-incf done))
-                         (funcall apply-edit edit)
-                         (when (lsp:snippet-text-edit-insert-text-format? edit)
-                           (-when-let ((&SnippetTextEdit :range (&RangeToPoint :start)
-                                                         :insert-text-format? :new-text) edit)
-                             (when (eq insert-text-format? lsp/insert-text-format-snippet)
-                               ;; No `save-excursion' needed since expand snippet will change point anyway
-                               (goto-char (+ start (length new-text)))
-                               (lsp--indent-lines start (point))
-                               (lsp--expand-snippet new-text start (point)))))
-                         (run-hook-with-args 'lsp-after-apply-edits-hook operation))))
-          (undo-amalgamate-change-group change-group)
-          (progress-reporter-done reporter))))))
-
-(defun lsp--create-apply-text-edits-handlers ()
-  "Create (handler cleanup-fn) for applying text edits in async request.
-Only works when mode is `tick or `alive."
-  (let* (first-edited
-         (func (lambda (start &rest _)
-                 (setq first-edited (if first-edited
-                                        (min start first-edited)
-                                      start)))))
-    (add-hook 'before-change-functions func nil t)
-    (list
-     (lambda (edits)
-       (if (and first-edited
-                (seq-find (-lambda ((&TextEdit :range (&RangeToPoint :end)))
-                            ;; Text edit region is overlapped
-                            (> end first-edited))
-                          edits))
-           (lsp--warn "TextEdits will not be applied since document has been modified before of them.")
-         (lsp--apply-text-edits edits 'completion-cleanup)))
-     (lambda ()
-       (remove-hook 'before-change-functions func t)))))
-
-(defun lsp--capability (cap &optional capabilities)
-  "Get the value of capability CAP.  If CAPABILITIES is non-nil, use them instead."
-  (when (stringp cap)
-    (setq cap (intern (concat ":" cap))))
-
-  (lsp-get (or capabilities
-               (lsp--server-capabilities))
-           cap))
-
-(defun lsp--registered-capability (method)
-  "Check whether there is workspace providing METHOD."
-  (->> (lsp-workspaces)
-       (--keep (seq-find (lambda (reg)
-                           (equal (lsp--registered-capability-method reg) method))
-                         (lsp--workspace-registered-server-capabilities it)))
-       cl-first))
-
-(defun lsp--capability-for-method (method)
-  "Get the value of capability for METHOD."
-  (-let* ((reqs (cdr (assoc method lsp-method-requirements)))
-          ((&plist :capability) reqs))
-    (or (and capability (lsp--capability capability))
-        (-some-> (lsp--registered-capability method)
-          (lsp--registered-capability-options)))))
-
-(defvar-local lsp--before-change-vals nil
-  "Store the positions from the `lsp-before-change' function call, for
-validation and use in the `lsp-on-change' function.")
-
-(defun lsp--text-document-content-change-event (start end length)
-  "Make a TextDocumentContentChangeEvent body for START to END, of length LENGTH."
-  ;; So (47 54 0) means add    7 chars starting at pos 47
-  ;; must become
-  ;;   {"range":{"start":{"line":5,"character":6}
-  ;;             ,"end" :{"line":5,"character":6}}
-  ;;             ,"rangeLength":0
-  ;;             ,"text":"\nbb = 5"}
-  ;;
-  ;; And (47 47 7) means delete 7 chars starting at pos 47
-  ;; must become
-  ;;   {"range":{"start":{"line":6,"character":0}
-  ;;            ,"end"  :{"line":7,"character":0}}
-  ;;            ,"rangeLength":7
-  ;;            ,"text":""}
-  ;;
-  ;; (208 221 3) means delete 3 chars starting at pos 208, and replace them with
-  ;; 13 chars. So it must become
-  ;;   {"range":{"start":{"line":5,"character":8}
-  ;;             ,"end" :{"line":5,"character":11}}
-  ;;             ,"rangeLength":3
-  ;;             ,"text":"new-chars-xxx"}
-  ;;
-
-  ;; Adding text:
-  ;;   lsp-before-change:(start,end)=(33,33)
-  ;;   lsp-on-change:(start,end,length)=(33,34,0)
-  ;;
-  ;; Changing text:
-  ;;   lsp-before-change:(start,end)=(208,211)
-  ;;   lsp-on-change:(start,end,length)=(208,221,3)
-  ;;
-  ;; Deleting text:
-  ;;   lsp-before-change:(start,end)=(19,27)
-  ;;   lsp-on-change:(start,end,length)=(19,19,8)
-  (if (zerop length)
-      ;; Adding something only, work from start only
-      `( :range ,(lsp--range
-                  (lsp--point-to-position start)
-                  (lsp--point-to-position start))
-         :rangeLength 0
-         :text ,(buffer-substring-no-properties start end))
-
-    (if (eq start end)
-        ;; Deleting something only
-        (if (lsp--bracketed-change-p start length)
-            ;; The before-change value is bracketed, use it
-            `( :range ,(lsp--range
-                        (lsp--point-to-position start)
-                        (plist-get lsp--before-change-vals :end-pos))
-               :rangeLength ,length
-               :text "")
-          ;; If the change is not bracketed, send a full change event instead.
-          (lsp--full-change-event))
-
-      ;; Deleting some things, adding others
-      (if (lsp--bracketed-change-p start length)
-          ;; The before-change value is valid, use it
-          `( :range ,(lsp--range
-                      (lsp--point-to-position start)
-                      (plist-get lsp--before-change-vals :end-pos))
-             :rangeLength ,length
-             :text ,(buffer-substring-no-properties start end))
-        (lsp--full-change-event)))))
-
-(defun lsp--bracketed-change-p (start length)
-  "If the before and after positions are the same, and the length
-is the size of the start range, we are probably good."
-  (-let [(&plist :end before-end :start before-start) lsp--before-change-vals]
-    (and (eq start before-start)
-         (eq length (- before-end before-start)))))
-
-(defun lsp--full-change-event ()
-  `(:text ,(lsp--buffer-content)))
-
-(defun lsp-before-change (start end)
-  "Executed before a file is changed.
-Added to `before-change-functions'."
-  ;; Note:
-  ;;
-  ;; This variable holds a list of functions to call when Emacs is about to
-  ;; modify a buffer. Each function gets two arguments, the beginning and end of
-  ;; the region that is about to change, represented as integers. The buffer
-  ;; that is about to change is always the current buffer when the function is
-  ;; called.
-  ;;
-  ;; WARNING:
-  ;;
-  ;; Do not expect the before-change hooks and the after-change hooks be called
-  ;; in balanced pairs around each buffer change. Also don't expect the
-  ;; before-change hooks to be called for every chunk of text Emacs is about to
-  ;; delete. These hooks are provided on the assumption that Lisp programs will
-  ;; use either before- or the after-change hooks, but not both, and the
-  ;; boundaries of the region where the changes happen might include more than
-  ;; just the actual changed text, or even lump together several changes done
-  ;; piecemeal.
-  (save-match-data
-    (lsp-save-restriction-and-excursion
-      (setq lsp--before-change-vals
-            (list :start start
-                  :end end
-                  :end-pos (lsp--point-to-position end))))))
-
-(defun lsp--flush-delayed-changes ()
-  (let ((inhibit-quit t))
-    (when lsp--delay-timer
-      (cancel-timer lsp--delay-timer))
-    (mapc (-lambda ((workspace buffer document change))
-            (with-current-buffer buffer
-              (with-lsp-workspace workspace
-                (lsp-notify "textDocument/didChange"
-                            (list :textDocument document
-                                  :contentChanges (vector change))))))
-          (prog1 (nreverse lsp--delayed-requests)
-            (setq lsp--delayed-requests nil)))))
-
-(defun lsp--workspace-sync-method (workspace)
-  (let ((sync (-> workspace
-                  (lsp--workspace-server-capabilities)
-                  (lsp:server-capabilities-text-document-sync?))))
-    (if (lsp-text-document-sync-options? sync)
-        (lsp:text-document-sync-options-change? sync)
-      sync)))
-
-(defun lsp-on-change (start end length &optional content-change-event-fn)
-  "Executed when a file is changed.
-Added to `after-change-functions'."
-  ;; Note:
-  ;;
-  ;; Each function receives three arguments: the beginning and end of the region
-  ;; just changed, and the length of the text that existed before the change.
-  ;; All three arguments are integers. The buffer that has been changed is
-  ;; always the current buffer when the function is called.
-  ;;
-  ;; The length of the old text is the difference between the buffer positions
-  ;; before and after that text as it was before the change. As for the
-  ;; changed text, its length is simply the difference between the first two
-  ;; arguments.
-  ;;
-  ;; So (47 54 0) means add    7 chars starting at pos 47
-  ;; So (47 47 7) means delete 7 chars starting at pos 47
-  (save-match-data
-    (let ((inhibit-quit t)
-          ;; make sure that `lsp-on-change' is called in multi-workspace context
-          ;; see #2901
-          lsp--cur-workspace)
-      ;; A (revert-buffer) call with the 'preserve-modes parameter (eg, as done
-      ;; by auto-revert-mode) will cause this handler to get called with a nil
-      ;; buffer-file-name. We need the buffer-file-name to send notifications;
-      ;; so we skip handling revert-buffer-caused changes and instead handle
-      ;; reverts separately in lsp-on-revert
-      (when (not revert-buffer-in-progress-p)
-        (cl-incf lsp--cur-version)
-        (mapc
-         (lambda (workspace)
-           (pcase (or lsp-document-sync-method
-                      (lsp--workspace-sync-method workspace))
-             (1
-              (if lsp-debounce-full-sync-notifications
-                  (setq lsp--delayed-requests
-                        (->> lsp--delayed-requests
-                             (-remove (-lambda ((_ buffer))
-                                        (equal (current-buffer) buffer)))
-                             (cons (list workspace
-                                         (current-buffer)
-                                         (lsp--versioned-text-document-identifier)
-                                         (lsp--full-change-event)))))
-                (with-lsp-workspace workspace
-                  (lsp-notify "textDocument/didChange"
-                              (list :contentChanges (vector (lsp--full-change-event))
-                                    :textDocument (lsp--versioned-text-document-identifier)))
-                  (lsp-diagnostics--request-pull-diagnostics workspace))))
-             (2
-              (with-lsp-workspace workspace
-                (lsp-notify
-                 "textDocument/didChange"
-                 (list :textDocument (lsp--versioned-text-document-identifier)
-                       :contentChanges (vector
-                                        (if content-change-event-fn
-                                            (funcall content-change-event-fn start end length)
-                                          (lsp--text-document-content-change-event
-                                           start end length)))))
-                (lsp-diagnostics--request-pull-diagnostics workspace)))))
-         (lsp-workspaces))
-        (when lsp--delay-timer (cancel-timer lsp--delay-timer))
-        (setq lsp--delay-timer (run-with-idle-timer
-                                lsp-debounce-full-sync-notifications-interval
-                                nil
-                                #'lsp--flush-delayed-changes))
-        ;; force cleanup overlays after each change
-        (lsp--remove-overlays 'lsp-highlight)
-        (lsp--after-change (current-buffer))))))
-
-
-
-;; facilities for on change hooks. We do not want to make lsp calls on each
-;; change event so we add debounce to avoid flooding the server with events.
-;; Additionally, we want to have a mechanism for stopping the server calls in
-;; particular cases like, e. g. when performing completion.
-
-(defvar lsp-inhibit-lsp-hooks nil
-  "Flag to control.")
-
-(defcustom lsp-on-change-hook nil
-  "Hooks to run when buffer has changed."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defcustom lsp-idle-delay 0.500
-  "Debounce interval for `after-change-functions'."
-  :type 'number
-  :group 'lsp-mode)
-
-(defcustom lsp-on-idle-hook nil
-  "Hooks to run after `lsp-idle-delay'."
-  :type 'hook
-  :group 'lsp-mode)
-
-(defun lsp--idle-reschedule (buffer)
-  (when lsp--on-idle-timer
-    (cancel-timer lsp--on-idle-timer))
-
-  (setq lsp--on-idle-timer (run-with-idle-timer
-                            lsp-idle-delay
-                            nil
-                            #'lsp--on-idle
-                            buffer)))
-
-(defun lsp--post-command ()
-  (lsp--cleanup-highlights-if-needed)
-  (lsp--idle-reschedule (current-buffer)))
-
-(defun lsp--on-idle (buffer)
-  "Start post command loop."
-  (when (and (buffer-live-p buffer)
-             (equal buffer (current-buffer))
-             (not lsp-inhibit-lsp-hooks)
-             lsp-managed-mode)
-    (run-hooks 'lsp-on-idle-hook)))
-
-(defun lsp--on-change-debounce (buffer)
-  (when (and (buffer-live-p buffer)
-             (equal buffer (current-buffer))
-             (not lsp-inhibit-lsp-hooks)
-             lsp-managed-mode)
-    (run-hooks 'lsp-on-change-hook)))
-
-(defun lsp--after-change (buffer)
-  "Called after most textDocument/didChange events."
-  (setq lsp--signature-last-index nil
-        lsp--signature-last nil)
-
-  ;; cleanup diagnostics
-  (when lsp-diagnostic-clean-after-change
-    (dolist (workspace (lsp-workspaces))
-      (-let [diagnostics (lsp--workspace-diagnostics workspace)]
-        (remhash (lsp--fix-path-casing (buffer-file-name)) diagnostics))))
-
-  (when (fboundp 'lsp--semantic-tokens-refresh-if-enabled)
-    (lsp--semantic-tokens-refresh-if-enabled buffer))
-  (when lsp--on-change-timer
-    (cancel-timer lsp--on-change-timer))
-  (setq lsp--on-change-timer (run-with-idle-timer
-                              lsp-idle-delay
-                              nil
-                              #'lsp--on-change-debounce
-                              buffer))
-  (lsp--idle-reschedule buffer))
-
-
-(defcustom lsp-trim-trailing-whitespace t
-  "Trim trailing whitespace on a line."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-insert-final-newline t
-  "Insert a newline character at the end of the file if one does not exist."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-trim-final-newlines t
-  "Trim all newlines after the final newline at the end of the file."
-  :group 'lsp-mode
-  :type 'boolean)
-
-
-(defun lsp--on-type-formatting (first-trigger-characters more-trigger-characters)
-  "Self insert handling.
-Applies on type formatting."
-  (let ((ch last-command-event))
-    (when (or (eq (string-to-char first-trigger-characters) ch)
-              (cl-find ch more-trigger-characters :key #'string-to-char))
-      (lsp-request-async "textDocument/onTypeFormatting"
-                         (lsp-make-document-on-type-formatting-params
-                          :text-document (lsp--text-document-identifier)
-                          :options (lsp-make-formatting-options
-                                    :tab-size (symbol-value (lsp--get-indent-width major-mode))
-                                    :insert-spaces (lsp-json-bool (not indent-tabs-mode))
-                                    :trim-trailing-whitespace? (lsp-json-bool lsp-trim-trailing-whitespace)
-                                    :insert-final-newline? (lsp-json-bool lsp-insert-final-newline)
-                                    :trim-final-newlines? (lsp-json-bool lsp-trim-final-newlines))
-                          :ch (char-to-string ch)
-                          :position (lsp--cur-position))
-                         (lambda (data) (lsp--apply-text-edits data 'format))
-                         :mode 'tick))))
-
-
-;; links
-(defun lsp--document-links ()
-  (when (lsp-feature? "textDocument/documentLink")
-    (lsp-request-async
-     "textDocument/documentLink"
-     `(:textDocument ,(lsp--text-document-identifier))
-     (lambda (links)
-       (lsp--remove-overlays 'lsp-link)
-       (seq-do
-        (-lambda ((link &as &DocumentLink :range (&Range :start :end)))
-          (-doto (make-button (lsp--position-to-point start)
-                              (lsp--position-to-point end)
-                              'action (lsp--document-link-keymap link)
-                              'keymap (let ((map (make-sparse-keymap)))
-                                        (define-key map [M-return] 'push-button)
-                                        (define-key map [mouse-2] 'push-button)
-                                        map)
-                              'help-echo "mouse-2, M-RET: Visit this link")
-            (overlay-put 'lsp-link t)))
-        links))
-     :mode 'unchanged)))
-
-(defun lsp--document-link-handle-target (url)
-  (let* ((parsed-url (url-generic-parse-url (url-unhex-string url)))
-         (type (url-type parsed-url)))
-    (pcase type
-      ("file"
-       (xref-push-marker-stack)
-       (find-file (lsp--uri-to-path url))
-       (-when-let ((_ line column) (s-match (rx "#" (group (1+ num)) (or "," "#") (group (1+ num))) url))
-         (goto-char (lsp--position-to-point
-                     (lsp-make-position :character (1- (string-to-number column))
-                                        :line (1- (string-to-number line)))))))
-      ((or "http" "https") (browse-url url))
-      (type (if-let* ((handler (lsp--get-uri-handler type)))
-                (funcall handler url)
-              (signal 'lsp-file-scheme-not-supported (list url)))))))
-
-(lsp-defun lsp--document-link-keymap ((link &as &DocumentLink :target?))
-  (if target?
-      (lambda (_)
-        (interactive)
-        (lsp--document-link-handle-target target?))
-    (lambda (_)
-      (interactive)
-      (when (lsp:document-link-registration-options-resolve-provider?
-             (lsp--capability-for-method "textDocument/documentLink"))
-        (lsp-request-async
-         "documentLink/resolve"
-         link
-         (-lambda ((&DocumentLink :target?))
-           (lsp--document-link-handle-target target?)))))))
-
-
-
-(defcustom lsp-warn-no-matched-clients t
-  "Whether to show messages when there are no supported clients."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defun lsp-buffer-language--configured-id ()
-  "Return nil when not registered."
-  (->> lsp-language-id-configuration
-       (-first
-        (-lambda ((mode-or-pattern . language))
-          (cond
-           ((and (stringp mode-or-pattern)
-                 (s-matches? mode-or-pattern (buffer-file-name)))
-            language)
-           ((eq mode-or-pattern major-mode) language))))
-       cl-rest))
-
-(defvar-local lsp--buffer-language nil
-  "Locally cached returned value of `lsp-buffer-language'.")
-
-(defun lsp-buffer-language ()
-  "Get language corresponding current buffer."
-  (or lsp--buffer-language
-      (let* ((configured-language (lsp-buffer-language--configured-id)))
-        (setq lsp--buffer-language
-              (or configured-language
-                  ;; ensure non-nil
-                  (string-remove-suffix "-mode" (symbol-name major-mode))))
-        (when (and lsp-warn-no-matched-clients
-                   (null configured-language))
-          (lsp-warn "Unable to calculate the languageId for buffer `%s'. \
-Take a look at `lsp-language-id-configuration'. The `major-mode' is %s"
-                    (buffer-name)
-                    major-mode))
-        lsp--buffer-language)))
-
-(defun lsp-activate-on (&rest languages)
-  "Returns language activation function.
-The function will return t when the `lsp-buffer-language' returns
-one of the LANGUAGES."
-  (lambda (_file-name _mode)
-    (-contains? languages (lsp-buffer-language))))
-
-(defun lsp-workspace-root (&optional path)
-  "Find the workspace root for the current file or PATH."
-  (-when-let* ((file-name (or path (buffer-file-name)))
-               (file-name (lsp-f-canonical file-name)))
-    (->> (lsp-session)
-         (lsp-session-folders)
-         (--filter (and (lsp--files-same-host it file-name)
-                        (or (lsp-f-ancestor-of? it file-name)
-                            (equal it file-name))))
-         (--max-by (> (length it) (length other))))))
-
-(defun lsp-on-revert ()
-  "Executed when a file is reverted.
-Added to `after-revert-hook'."
-  (let ((n (buffer-size))
-        (revert-buffer-in-progress-p nil))
-    (lsp-on-change 0 n n)))
-
-(defun lsp--text-document-did-close (&optional keep-workspace-alive)
-  "Executed when the file is closed, added to `kill-buffer-hook'.
-
-If KEEP-WORKSPACE-ALIVE is non-nil, do not shutdown the workspace
-if it's closing the last buffer in the workspace."
-  (lsp-foreach-workspace
-   (cl-callf2 delq (lsp-current-buffer) (lsp--workspace-buffers lsp--cur-workspace))
-   (with-demoted-errors "Error sending didClose notification in ‘lsp--text-document-did-close’: %S"
-     (lsp-notify "textDocument/didClose"
-                 `(:textDocument ,(lsp--text-document-identifier))))
-   (when (and (not lsp-keep-workspace-alive)
-              (not keep-workspace-alive)
-              (not (lsp--workspace-buffers lsp--cur-workspace)))
-     (lsp--shutdown-workspace))))
-
-(defun lsp--will-save-text-document-params (reason)
-  (list :textDocument (lsp--text-document-identifier)
-        :reason reason))
-
-(defun lsp--before-save ()
-  "Before save handler."
-  (with-demoted-errors "Error in ‘lsp--before-save’: %S"
-    (let ((params (lsp--will-save-text-document-params 1)))
-      (when (lsp--send-will-save-p)
-        (lsp-notify "textDocument/willSave" params))
-      (when (and (lsp--send-will-save-wait-until-p) lsp-before-save-edits)
-        (let ((lsp-response-timeout 0.1))
-          (condition-case nil
-              (lsp--apply-text-edits
-               (lsp-request "textDocument/willSaveWaitUntil"
-                            params)
-               'before-save)
-            (error)))))))
-
-(defun lsp--on-auto-save ()
-  "Handler for auto-save."
-  (when (lsp--send-will-save-p)
-    (with-demoted-errors "Error in ‘lsp--on-auto-save’: %S"
-      (lsp-notify "textDocument/willSave" (lsp--will-save-text-document-params 2)))))
-
-(defun lsp--text-document-did-save ()
-  "Executed when the file is closed, added to `after-save-hook''."
-  (when (lsp--send-did-save-p)
-    (with-demoted-errors "Error on ‘lsp--text-document-did-save: %S’"
-      (lsp-notify "textDocument/didSave"
-                  `( :textDocument ,(lsp--versioned-text-document-identifier)
-                     ,@(when (lsp--save-include-text-p)
-                         (list :text (lsp--buffer-content))))))))
-
-(defun lsp--text-document-position-params (&optional identifier position)
-  "Make TextDocumentPositionParams for the current point in the current document.
-If IDENTIFIER and POSITION are non-nil, they will be used as the document
-identifier and the position respectively."
-  (list :textDocument (or identifier (lsp--text-document-identifier))
-        :position (or position (lsp--cur-position))))
-
-(defun lsp--get-buffer-diagnostics ()
-  "Return buffer diagnostics."
-  (gethash (or
-            (plist-get lsp--virtual-buffer :buffer-file-name)
-            (lsp--fix-path-casing (buffer-file-name)))
-           (lsp-diagnostics t)))
-
-(defun lsp-cur-line-diagnostics ()
-  "Return any diagnostics that apply to the current line."
-  (-let [(&plist :start (&plist :line start) :end (&plist :line end)) (lsp--region-or-line)]
-    (cl-coerce (-filter
-                (-lambda ((&Diagnostic :range (&Range :start (&Position :line))))
-                  (and (>= line start) (<= line end)))
-                (lsp--get-buffer-diagnostics))
-               'vector)))
-
-(lsp-defun lsp-range-overlapping?((left &as &Range :start left-start :end left-end)
-                                  (right &as &Range :start right-start :end right-end))
-  (or (lsp-point-in-range? right-start left)
-      (lsp-point-in-range? right-end left)
-      (lsp-point-in-range? left-start right)
-      (lsp-point-in-range? left-end right)))
-
-(defun lsp-make-position-1 (position)
-  (lsp-make-position :line (plist-get position :line)
-                     :character (plist-get position :character)))
-
-(defun lsp-cur-possition-diagnostics ()
-  "Return any diagnostics that apply to the current line."
-  (-let* ((start (if (use-region-p) (region-beginning) (point)))
-          (end (if (use-region-p) (region-end) (point)))
-          (current-range (lsp-make-range :start (lsp-make-position-1 (lsp-point-to-position start))
-                                         :end (lsp-make-position-1 (lsp-point-to-position end)))))
-    (->> (lsp--get-buffer-diagnostics)
-         (-filter
-          (-lambda ((&Diagnostic :range))
-            (lsp-range-overlapping? range current-range)))
-         (apply 'vector))))
-
-(defalias 'lsp--cur-line-diagnotics 'lsp-cur-line-diagnostics)
-
-(defun lsp--extract-line-from-buffer (pos)
-  "Return the line pointed to by POS (a Position object) in the current buffer."
-  (let* ((point (lsp--position-to-point pos))
-         (inhibit-field-text-motion t))
-    (save-excursion
-      (goto-char point)
-      (buffer-substring (line-beginning-position) (line-end-position)))))
-
-(lsp-defun lsp--xref-make-item (filename (&Range :start (start &as &Position :character start-char :line start-line)
-                                                 :end (end &as &Position :character end-char)))
-  "Return a xref-item from a RANGE in FILENAME."
-  (let* ((line (lsp--extract-line-from-buffer start))
-         (len (length line)))
-    (add-face-text-property (max (min start-char len) 0)
-                            (max (min end-char len) 0)
-                            'xref-match t line)
-    ;; LINE is nil when FILENAME is not being current visited by any buffer.
-    (xref-make-match (or line filename)
-                     (xref-make-file-location
-                      filename
-                      (lsp-translate-line (1+ start-line))
-                      (lsp-translate-column start-char))
-                     (- end-char start-char))))
-
-(defun lsp--location-uri (loc)
-  (if (lsp-location? loc)
-      (lsp:location-uri loc)
-    (lsp:location-link-target-uri loc)))
-
-(lsp-defun lsp-goto-location ((loc &as &Location :uri :range (&Range :start)))
-  "Go to location."
-  (let ((path (lsp--uri-to-path uri)))
-    (if (f-exists? path)
-        (with-current-buffer (find-file path)
-          (goto-char (lsp--position-to-point start)))
-      (error "There is no file %s" path))))
-
-(defun lsp--location-range (loc)
-  (if (lsp-location? loc)
-      (lsp:location-range loc)
-    (lsp:location-link-target-selection-range loc)))
-
-(defun lsp--locations-to-xref-items (locations)
-  "Return a list of `xref-item' given LOCATIONS, which can be of
-type Location, LocationLink, Location[] or LocationLink[]."
-  (setq locations
-        (pcase locations
-          ((seq (or (lsp-interface Location)
-                    (lsp-interface LocationLink)))
-           (append locations nil))
-          ((or (lsp-interface Location)
-               (lsp-interface LocationLink))
-           (list locations))))
-
-  (cl-labels ((get-xrefs-in-file
-               (file-locs)
-               (-let [(filename . matches) file-locs]
-                 (condition-case err
-                     (let ((visiting (find-buffer-visiting filename))
-                           (fn (lambda (loc)
-                                 (lsp-with-filename filename
-                                   (lsp--xref-make-item filename
-                                                        (lsp--location-range loc))))))
-                       (if visiting
-                           (with-current-buffer visiting
-                             (seq-map fn matches))
-                         (when (file-readable-p filename)
-                           (with-temp-buffer
-                             (insert-file-contents-literally filename)
-                             (seq-map fn matches)))))
-                   (error (lsp-warn "Failed to process xref entry for filename '%s': %s"
-                                    filename (error-message-string err)))
-                   (file-error (lsp-warn "Failed to process xref entry, file-error, '%s': %s"
-                                         filename (error-message-string err)))))))
-
-    (->> locations
-         (seq-sort #'lsp--location-before-p)
-         (seq-group-by (-compose #'lsp--uri-to-path #'lsp--location-uri))
-         (seq-map #'get-xrefs-in-file)
-         (apply #'nconc))))
-
-(defun lsp--location-before-p (left right)
-  "Sort first by file, then by line, then by column."
-  (let ((left-uri (lsp--location-uri left))
-        (right-uri (lsp--location-uri right)))
-    (if (not (string= left-uri right-uri))
-        (string< left-uri right-uri)
-      (-let (((&Range :start left-start) (lsp--location-range left))
-             ((&Range :start right-start) (lsp--location-range right)))
-        (lsp--position-compare right-start left-start)))))
-
-(defun lsp--make-reference-params (&optional td-position exclude-declaration)
-  "Make a ReferenceParam object.
-If TD-POSITION is non-nil, use it as TextDocumentPositionParams object instead.
-If EXCLUDE-DECLARATION is non-nil, request the server to include declarations."
-  (let ((json-false :json-false))
-    (plist-put (or td-position (lsp--text-document-position-params))
-               :context `(:includeDeclaration ,(lsp-json-bool (not exclude-declaration))))))
-
-(defun lsp--cancel-request (id)
-  "Cancel request with ID in all workspaces."
-  (lsp-foreach-workspace
-   (->> lsp--cur-workspace lsp--workspace-client lsp--client-response-handlers (remhash id))
-   (lsp-notify "$/cancelRequest" `(:id ,id))))
-
-(defvar-local lsp--hover-saved-bounds nil)
-
-(defun lsp-eldoc-function (cb &rest _ignored)
-  "`lsp-mode' eldoc function to display hover info (based on `textDocument/hover')."
-  (if (and lsp--hover-saved-bounds
-           (lsp--point-in-bounds-p lsp--hover-saved-bounds))
-      lsp--eldoc-saved-message
-    (setq lsp--hover-saved-bounds nil
-          lsp--eldoc-saved-message nil)
-    (if (looking-at-p "[[:space:]\n]")
-        (setq lsp--eldoc-saved-message nil) ; And returns nil.
-      (when (and lsp-eldoc-enable-hover (lsp-feature? "textDocument/hover"))
-        (lsp-request-async
-         "textDocument/hover"
-         (lsp--text-document-position-params)
-         (-lambda ((hover &as &Hover? :range? :contents))
-           (setq lsp--hover-saved-bounds (when range?
-                                           (lsp--range-to-region range?)))
-           (funcall cb (setq lsp--eldoc-saved-message
-                             (when contents
-                               (lsp--render-on-hover-content
-                                contents
-                                lsp-eldoc-render-all)))))
-         :error-handler #'ignore
-         :mode 'tick
-         :cancel-token :eldoc-hover)))))
-
-(defun lsp--point-on-highlight? ()
-  (-some? (lambda (overlay)
-            (overlay-get overlay 'lsp-highlight))
-          (overlays-at (point))))
-
-(defun lsp--cleanup-highlights-if-needed ()
-  (when (and lsp-enable-symbol-highlighting
-             lsp--have-document-highlights
-             (not (lsp--point-on-highlight?)))
-    (lsp--remove-overlays 'lsp-highlight)
-    (setq lsp--have-document-highlights nil)
-    (lsp-cancel-request-by-token :highlights)))
-
-(defvar-local lsp--symbol-bounds-of-last-highlight-invocation nil
-  "The bounds of the symbol from which `lsp--document-highlight'
-  most recently requested highlights.")
-
-(defun lsp--document-highlight ()
-  (when (lsp-feature? "textDocument/documentHighlight")
-    (let ((curr-sym-bounds (bounds-of-thing-at-point 'symbol)))
-      (unless (or (looking-at-p "[[:space:]\n]")
-                  (not lsp-enable-symbol-highlighting)
-                  (and lsp--have-document-highlights
-                       curr-sym-bounds
-                       (equal curr-sym-bounds
-                              lsp--symbol-bounds-of-last-highlight-invocation)))
-        (setq lsp--symbol-bounds-of-last-highlight-invocation
-              curr-sym-bounds)
-        (lsp-request-async "textDocument/documentHighlight"
-                           (lsp--text-document-position-params)
-                           #'lsp--document-highlight-callback
-                           :mode 'tick
-                           :cancel-token :highlights)))))
-
-(defun lsp--help-open-link (&rest _)
-  "Open markdown link at point via mouse or keyboard."
-  (interactive "P")
-  (let ((buffer-list-update-hook nil))
-    (-let [(buffer point) (if-let* ((valid (and (listp last-input-event)
-                                                (eq (car last-input-event) 'mouse-2)))
-                                    (event (cadr last-input-event))
-                                    (win (posn-window event))
-                                    (buffer (window-buffer win)))
-                              `(,buffer ,(posn-point event))
-                            `(,(current-buffer) ,(point)))]
-      (with-current-buffer buffer
-        (when-let* ((face (get-text-property point 'face))
-                    (url (or (and (eq face 'markdown-link-face)
-                                  (get-text-property point 'help-echo))
-                             (and (memq face '(markdown-url-face markdown-plain-url-face))
-                                  (nth 3 (markdown-link-at-pos point))))))
-          (lsp--document-link-handle-target url))))))
-
-(defvar lsp-help-mode-map
-  (-doto (make-sparse-keymap)
-    (define-key [remap markdown-follow-link-at-point] #'lsp--help-open-link))
-  "Keymap for `lsp-help-mode'.")
-
-(define-derived-mode lsp-help-mode help-mode "LspHelp"
-  "Major mode for displaying lsp help.")
-
-(defun lsp-describe-thing-at-point ()
-  "Display the type signature and documentation of the thing at point."
-  (interactive)
-  (let ((contents (-some->> (lsp--text-document-position-params)
-                    (lsp--make-request "textDocument/hover")
-                    (lsp--send-request)
-                    (lsp:hover-contents))))
-    (if (and contents (not (equal contents "")))
-        (let ((lsp-help-buf-name "*lsp-help*"))
-          (with-current-buffer (get-buffer-create lsp-help-buf-name)
-            (delay-mode-hooks
-              (lsp-help-mode)
-              (with-help-window lsp-help-buf-name
-                (insert
-		 (mapconcat 'string-trim-right
-			    (split-string (lsp--render-on-hover-content contents t) "\n")
-			    "\n"))))
-            (run-mode-hooks)))
-      (lsp--info "No content at point."))))
-
-(defun lsp--point-in-bounds-p (bounds)
-  "Return whether the current point is within BOUNDS."
-  (and (<= (car bounds) (point)) (< (point) (cdr bounds))))
-
-(defun lsp-get-renderer (language)
-  "Get renderer for LANGUAGE."
-  (lambda (str)
-    (lsp--render-string str language)))
-
-(defun lsp--setup-markdown (mode)
-  "Setup the ‘markdown-mode’ in the frame.
-MODE is the mode used in the parent frame."
-  (make-local-variable 'markdown-code-lang-modes)
-  (dolist (mark (alist-get mode lsp-custom-markup-modes))
-    (add-to-list 'markdown-code-lang-modes (cons mark mode)))
-  (setq-local markdown-fontify-code-blocks-natively t)
-  (setq-local markdown-fontify-code-block-default-mode mode)
-  (setq-local markdown-hide-markup t)
-
-  ;; Render some common HTML entities.
-  ;; This should really happen in markdown-mode instead,
-  ;; but it doesn't, so we do it here for now.
-  (setq prettify-symbols-alist
-        (cl-loop for i from 0 to 255
-                 collect (cons (format "&#x%02X;" i) i)))
-  (push '("&lt;" . ?<) prettify-symbols-alist)
-  (push '("&gt;" . ?>) prettify-symbols-alist)
-  (push '("&amp;" . ?&) prettify-symbols-alist)
-  (push '("&nbsp;" . ? ) prettify-symbols-alist)
-  (setq prettify-symbols-compose-predicate
-        (lambda (_start _end _match) t))
-  (prettify-symbols-mode 1))
-
-(defvar lsp-help-link-keymap
-  (let ((map (make-sparse-keymap)))
-    (define-key map [mouse-2] #'lsp--help-open-link)
-    (define-key map "\r" #'lsp--help-open-link)
-    map)
-  "Keymap active on links in *lsp-help* mode.")
-
-(defun lsp--fix-markdown-links ()
-  (let ((inhibit-read-only t)
-        (inhibit-modification-hooks t)
-        (prop))
-    (save-restriction
-      (goto-char (point-min))
-      (while (setq prop (markdown-find-next-prop 'face))
-        (let ((end (or (next-single-property-change (car prop) 'face)
-                       (point-max))))
-          (when (memq (get-text-property (car prop) 'face)
-                      '(markdown-link-face
-                        markdown-url-face
-                        markdown-plain-url-face))
-            (add-text-properties (car prop) end
-                                 (list 'button t
-                                       'category 'lsp-help-link
-                                       'follow-link t
-                                       'keymap lsp-help-link-keymap)))
-          (goto-char end))))))
-
-(defun lsp--buffer-string-visible ()
-  "Return visible buffer string.
-Stolen from `org-copy-visible'."
-  (let ((temp (generate-new-buffer " *temp*"))
-        (beg (point-min))
-        (end (point-max)))
-    (while (/= beg end)
-      (when (get-char-property beg 'invisible)
-        (setq beg (next-single-char-property-change beg 'invisible nil end)))
-      (let* ((next (next-single-char-property-change beg 'invisible nil end))
-             (substring (buffer-substring beg next)))
-        (with-current-buffer temp (insert substring))
-        ;; (setq result (concat result substring))
-        (setq beg next)))
-    (setq deactivate-mark t)
-    (prog1 (with-current-buffer temp
-             (s-chop-suffix "\n" (buffer-string)))
-      (kill-buffer temp))))
-
-(defvar lsp-buffer-major-mode nil
-  "Holds the major mode when fontification function is running.
-See #2588")
-
-(defvar view-inhibit-help-message)
-
-(defun lsp--render-markdown ()
-  "Render markdown."
-
-  (let ((markdown-enable-math nil))
-    (goto-char (point-min))
-    (while (re-search-forward
-            (rx (and "\\" (group (or "\\" "`" "*" "_" ":" "/"
-                                     "{" "}" "[" "]" "(" ")"
-                                     "#" "+" "-" "." "!" "|"))))
-            nil t)
-      (replace-match (rx (backref 1))))
-
-    ;; markdown-mode v2.3 does not yet provide gfm-view-mode
-    (if (fboundp 'gfm-view-mode)
-        (let ((view-inhibit-help-message t))
-          (gfm-view-mode))
-      (gfm-mode))
-
-    (lsp--setup-markdown lsp-buffer-major-mode)))
-
-(defvar lsp--display-inline-image-alist
-  '((lsp--render-markdown
-     (:regexp
-      "!\\[.*?\\](data:image/[a-zA-Z]+;base64,\\([A-Za-z0-9+/\n]+?=*?\\)\\(|[^)]+\\)?)"
-      :sexp
-      (create-image
-       (base64-decode-string
-        (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
-       nil t))))
-  "Replaced string regexp and function returning image.
-Each element should have the form (MODE . (PROPERTY-LIST...)).
-MODE (car) is function which is defined in `lsp-language-id-configuration'.
-Cdr should be list of PROPERTY-LIST.
-
-Each PROPERTY-LIST should have properties:
-:regexp  Regexp which determines what string is relpaced to image.
-         You should also get information of image, by parenthesis constructs.
-         By default, all matched string is replaced to image, but you can
-         change index of replaced string by keyword :replaced-index.
-
-:sexp    Return image when evaluated. You can use information of regexp
-         by using (match-beggining N), (match-end N) or (match-substring N).
-
-In addition, each can have property:
-:replaced-index  Determine index which is used to replace regexp to image.
-                 The value means first argument of `match-beginning' and
-                 `match-end'. If omitted, interpreted as index 0.")
-
-(defcustom lsp-display-inline-image t
-  "Showing inline image or not."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defcustom lsp-enable-suggest-server-download t
-  "When non-nil enable server downloading suggestions."
-  :group 'lsp-mode
-  :type 'boolean
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-auto-register-remote-clients t
-  "When non-nil register remote when registering the local one."
-  :group 'lsp-mode
-  :type 'boolean
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defun lsp--display-inline-image (mode)
-  "Add image property if available."
-  (let ((plist-list (cdr (assq mode lsp--display-inline-image-alist))))
-    (when (and (display-images-p) lsp-display-inline-image)
-      (cl-loop
-       for plist in plist-list
-       with regexp with replaced-index
-       do
-       (setq regexp (plist-get plist :regexp))
-       (setq replaced-index (or (plist-get plist :replaced-index) 0))
-
-       (font-lock-remove-keywords nil (list regexp replaced-index))
-       (let ((inhibit-read-only t))
-         (save-excursion
-           (goto-char (point-min))
-           (while (re-search-forward regexp nil t)
-             (set-text-properties
-              (match-beginning replaced-index) (match-end replaced-index)
-              nil)
-             (add-text-properties
-              (match-beginning replaced-index) (match-end replaced-index)
-              `(display ,(eval (plist-get plist :sexp)))))))))))
-
-(defun lsp--fontlock-with-mode (str mode)
-  "Fontlock STR with MODE."
-  (let ((lsp-buffer-major-mode major-mode))
-    (with-temp-buffer
-      (with-demoted-errors "Error during doc rendering: %s"
-        (insert str)
-        (delay-mode-hooks (funcall mode))
-        (cl-flet ((window-body-width () lsp-window-body-width))
-          ;; This can go wrong in some cases, and the fontification would
-          ;; not work as expected.
-          ;;
-          ;; See #2984
-          (ignore-errors (font-lock-ensure))
-          (lsp--display-inline-image mode)
-          (when (eq mode 'lsp--render-markdown)
-            (lsp--fix-markdown-links))))
-      (lsp--buffer-string-visible))))
-
-(defun lsp--render-string (str language)
-  "Render STR using `major-mode' corresponding to LANGUAGE.
-When language is nil render as markup if `markdown-mode' is loaded."
-  (setq str (s-replace "\r" "" (or str "")))
-  (if-let* ((modes (-keep (-lambda ((mode . lang))
-                            (when (and (equal lang language) (functionp mode))
-                              mode))
-                          lsp-language-id-configuration))
-            (mode (car (or (member major-mode modes) modes))))
-      (lsp--fontlock-with-mode str mode)
-    str))
-
-(defun lsp--render-element (content)
-  "Render CONTENT element."
-  (let ((inhibit-message t))
-    (or
-     (pcase content
-       ((lsp-interface MarkedString :value :language)
-        (lsp--render-string value language))
-       ((lsp-interface MarkupContent :value :kind)
-        (lsp--render-string value kind))
-       ;; plain string
-       ((pred stringp) (lsp--render-string content "markdown"))
-       ((pred null) "")
-       (_ (error "Failed to handle %s" content)))
-     "")))
-
-(defun lsp--create-unique-string-fn ()
-  (let (elements)
-    (lambda (element)
-      (let ((count (cl-count element elements :test #'string=)))
-        (prog1 (if (zerop count)
-                   element
-                 (format "%s (%s)" element count))
-          (push element elements))))))
-
-(defun lsp--select-action (actions)
-  "Select an action to execute from ACTIONS."
-  (cond
-   ((seq-empty-p actions) (signal 'lsp-no-code-actions nil))
-   ((and (eq (seq-length actions) 1) lsp-auto-execute-action)
-    (lsp-seq-first actions))
-   (t (let ((completion-ignore-case t))
-        (lsp--completing-read "Select code action: "
-                              (seq-into actions 'list)
-                              (-compose (lsp--create-unique-string-fn)
-                                        #'lsp:code-action-title)
-                              nil t)))))
-
-(defun lsp--workspace-server-id (workspace)
-  "Return the server ID of WORKSPACE."
-  (-> workspace lsp--workspace-client lsp--client-server-id))
-
-(defun lsp--handle-rendered-for-echo-area (contents)
-  "Return a single line from RENDERED, appropriate for display in the echo area."
-  (pcase (lsp-workspaces)
-    (`(,workspace)
-     (lsp-clients-extract-signature-on-hover contents (lsp--workspace-server-id workspace)))
-    ;; For projects with multiple active workspaces we also default to
-    ;; render the first line.
-    (_ (lsp-clients-extract-signature-on-hover contents nil))))
-
-(cl-defmethod lsp-clients-extract-signature-on-hover (contents _server-id)
-  "Extract a representative line from CONTENTS, to show in the echo area."
-  (car (s-lines (s-trim (lsp--render-element contents)))))
-
-(defun lsp--render-on-hover-content (contents render-all)
-  "Render the content received from `document/onHover' request.
-CONTENTS  - MarkedString | MarkedString[] | MarkupContent
-RENDER-ALL - nil if only the signature should be rendered."
-  (cond
-   ((lsp-markup-content? contents)
-    ;; MarkupContent.
-    ;; It tends to be long and is not suitable to display fully in the echo area.
-    ;; Just display the first line which is typically the signature.
-    (if render-all
-        (lsp--render-element contents)
-      (lsp--handle-rendered-for-echo-area contents)))
-   ((and (stringp contents) (not (string-match-p "\n" contents)))
-    ;; If the contents is a single string containing a single line,
-    ;; render it always.
-    (lsp--render-element contents))
-   (t
-    ;; MarkedString -> MarkedString[]
-    (when (or (lsp-marked-string? contents) (stringp contents))
-      (setq contents (list contents)))
-    ;; Consider the signature consisting of the elements who have a renderable
-    ;; "language" property. When render-all is nil, ignore other elements.
-    (string-join
-     (seq-map
-      #'lsp--render-element
-      (if render-all
-          contents
-        ;; Only render contents that have an available renderer.
-        (seq-take
-         (seq-filter
-          (-andfn #'lsp-marked-string?
-                  (-compose #'lsp-get-renderer #'lsp:marked-string-language))
-          contents)
-         1)))
-     (if (bound-and-true-p page-break-lines-mode)
-         "\n\n"
-       "\n")))))
-
-
-
-(defvar lsp-signature-mode-map
-  (-doto (make-sparse-keymap)
-    (define-key (kbd "M-n") #'lsp-signature-next)
-    (define-key (kbd "M-p") #'lsp-signature-previous)
-    (define-key (kbd "M-a") #'lsp-signature-toggle-full-docs)
-    (define-key (kbd "C-c C-k") #'lsp-signature-stop)
-    (define-key (kbd "C-g") #'lsp-signature-stop))
-  "Keymap for `lsp-signature-mode'.")
-
-(define-minor-mode lsp-signature-mode
-  "Mode used to show signature popup."
-  :keymap lsp-signature-mode-map
-  :lighter ""
-  :group 'lsp-mode)
-
-(defun lsp-signature-stop ()
-  "Stop showing current signature help."
-  (interactive)
-  (lsp-cancel-request-by-token :signature)
-  (remove-hook 'post-command-hook #'lsp-signature)
-  (funcall lsp-signature-function nil)
-  (lsp-signature-mode -1))
-
-(declare-function page-break-lines--update-display-tables "ext:page-break-lines")
-
-(defun lsp--setup-page-break-mode-if-present ()
-  "Enable `page-break-lines-mode' in current buffer."
-  (when (fboundp 'page-break-lines-mode)
-    (page-break-lines-mode)
-    ;; force page-break-lines-mode to update the display tables.
-    (page-break-lines--update-display-tables)))
-
-(defun lsp-lv-message (message)
-  (add-hook 'lv-window-hook #'lsp--setup-page-break-mode-if-present)
-  (if message
-      (progn
-        (setq lsp--signature-last-buffer (current-buffer))
-        (let ((lv-force-update t))
-          (lv-message "%s" message)))
-    (lv-delete-window)
-    (remove-hook 'lv-window-hook #'lsp--setup-page-break-mode-if-present)))
-
-(declare-function posframe-show "ext:posframe")
-(declare-function posframe-hide "ext:posframe")
-(declare-function posframe-poshandler-point-bottom-left-corner-upward "ext:posframe")
-
-(defface lsp-signature-posframe
-  '((t :inherit tooltip))
-  "Background and foreground for `lsp-signature-posframe'."
-  :group 'lsp-mode)
-
-(defvar lsp-signature-posframe-params
-  (list :poshandler #'posframe-poshandler-point-bottom-left-corner-upward
-        :height 10
-        :width 60
-        :border-width 1
-        :min-width 60)
-  "Params for signature and `posframe-show'.")
-
-(defun lsp-signature-posframe (str)
-  "Use posframe to show the STR signatureHelp string."
-  (if str
-      (apply #'posframe-show
-             (with-current-buffer (get-buffer-create " *lsp-signature*")
-               (erase-buffer)
-               (insert str)
-               (visual-line-mode 1)
-               (lsp--setup-page-break-mode-if-present)
-               (current-buffer))
-             (append
-              lsp-signature-posframe-params
-              (list :position (point)
-                    :background-color (face-attribute 'lsp-signature-posframe :background nil t)
-                    :foreground-color (face-attribute 'lsp-signature-posframe :foreground nil t)
-                    :border-color (face-attribute (if (facep 'child-frame-border)
-                                                      'child-frame-border
-                                                    'internal-border)
-                                                  :background nil t))))
-    (posframe-hide " *lsp-signature*")))
-
-(defun lsp--handle-signature-update (signature)
-  (let ((message
-         (if (lsp-signature-help? signature)
-             (lsp--signature->message signature)
-           (mapconcat #'lsp--signature->message signature "\n"))))
-    (if (s-present? message)
-        (funcall lsp-signature-function message)
-      (lsp-signature-stop))))
-
-(defun lsp-signature-activate ()
-  "Activate signature help.
-It will show up only if current point has signature help."
-  (interactive)
-  (setq lsp--signature-last nil
-        lsp--signature-last-index nil
-        lsp--signature-last-buffer (current-buffer))
-  (add-hook 'post-command-hook #'lsp-signature)
-  (lsp-signature-mode t))
-
-(defcustom lsp-signature-cycle t
-  "Whether `lsp-signature-next' and prev should cycle."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defun lsp-signature-next ()
-  "Show next signature."
-  (interactive)
-  (let ((nsigs (length (lsp:signature-help-signatures lsp--signature-last))))
-    (when (and lsp--signature-last-index
-               lsp--signature-last
-               (or lsp-signature-cycle (< (1+ lsp--signature-last-index) nsigs)))
-      (setq lsp--signature-last-index (% (1+ lsp--signature-last-index) nsigs))
-      (funcall lsp-signature-function (lsp--signature->message lsp--signature-last)))))
-
-(defun lsp-signature-previous ()
-  "Next signature."
-  (interactive)
-  (when (and lsp--signature-last-index
-             lsp--signature-last
-             (or lsp-signature-cycle (not (zerop lsp--signature-last-index))))
-    (setq lsp--signature-last-index (1- (if (zerop lsp--signature-last-index)
-                                            (length (lsp:signature-help-signatures lsp--signature-last))
-                                          lsp--signature-last-index)))
-    (funcall lsp-signature-function (lsp--signature->message lsp--signature-last))))
-
-(defun lsp-signature-toggle-full-docs ()
-  "Toggle full/partial signature documentation."
-  (interactive)
-  (let ((all? (not (numberp lsp-signature-doc-lines))))
-    (setq lsp-signature-doc-lines (if all?
-                                      (or (car-safe lsp-signature-doc-lines)
-                                          20)
-                                    (list lsp-signature-doc-lines))))
-  (lsp-signature-activate))
-
-(defface lsp-signature-highlight-function-argument
-  '((t :inherit eldoc-highlight-function-argument))
-  "The face to use to highlight function arguments in signatures."
-  :group 'lsp-mode)
-
-(defun lsp--signature->message (signature-help)
-  "Generate eldoc message from SIGNATURE-HELP response."
-  (setq lsp--signature-last signature-help)
-
-  (when (and signature-help (not (seq-empty-p (lsp:signature-help-signatures signature-help))))
-    (-let* (((&SignatureHelp :active-signature?
-                             :active-parameter?
-                             :signatures) signature-help)
-            (active-signature? (or lsp--signature-last-index active-signature? 0))
-            (_ (setq lsp--signature-last-index active-signature?))
-            ((signature &as &SignatureInformation? :label :parameters?) (seq-elt signatures active-signature?))
-            (prefix (if (= (length signatures) 1)
-                        ""
-                      (concat (propertize (format " %s/%s"
-                                                  (1+ active-signature?)
-                                                  (length signatures))
-                                          'face 'success)
-                              " ")))
-            (method-docs (when
-                             (and lsp-signature-render-documentation
-                                  (or (not (numberp lsp-signature-doc-lines)) (< 0 lsp-signature-doc-lines)))
-                           (let ((docs (lsp--render-element
-                                        (lsp:parameter-information-documentation? signature))))
-                             (when (s-present? docs)
-                               (concat
-                                "\n"
-                                (if (fboundp 'page-break-lines-mode)
-                                    "\n"
-                                  "")
-                                (if (and (numberp lsp-signature-doc-lines)
-                                         (> (length (s-lines docs)) lsp-signature-doc-lines))
-                                    (concat (s-join "\n" (-take lsp-signature-doc-lines (s-lines docs)))
-                                            (propertize "\nTruncated..." 'face 'highlight))
-                                  docs)))))))
-      (when (and active-parameter? (not (seq-empty-p parameters?)))
-        (-when-let* ((param (when (and (< -1 active-parameter? (length parameters?)))
-                              (seq-elt parameters? active-parameter?)))
-                     (selected-param-label (let ((label (lsp:parameter-information-label param)))
-                                             (if (stringp label) label (append label nil))))
-                     (start (if (stringp selected-param-label)
-                                (s-index-of selected-param-label label)
-                              (cl-first selected-param-label)))
-                     (end (if (stringp selected-param-label)
-                              (+ start (length selected-param-label))
-                            (cl-second selected-param-label))))
-          (add-face-text-property start end 'lsp-signature-highlight-function-argument nil label)))
-      (concat prefix label method-docs))))
-
-(defun lsp-signature ()
-  "Display signature info (based on `textDocument/signatureHelp')"
-  (if (and lsp--signature-last-buffer
-           (not (equal (current-buffer) lsp--signature-last-buffer)))
-      (lsp-signature-stop)
-    (lsp-request-async "textDocument/signatureHelp"
-                       (lsp--text-document-position-params)
-                       #'lsp--handle-signature-update
-                       :cancel-token :signature)))
-
-
-(defcustom lsp-overlay-document-color-char "■"
-  "Display the char represent the document color in overlay"
-  :type 'string
-  :group 'lsp-mode)
-
-;; color presentation
-(defun lsp--color-create-interactive-command (color range)
-  (lambda ()
-    (interactive)
-    (-let [(&ColorPresentation? :text-edit?
-                                :additional-text-edits?)
-           (lsp--completing-read
-            "Select color presentation: "
-            (lsp-request
-             "textDocument/colorPresentation"
-             `( :textDocument ,(lsp--text-document-identifier)
-                :color ,color
-                :range ,range))
-            #'lsp:color-presentation-label
-            nil
-            t)]
-      (when text-edit?
-        (lsp--apply-text-edit text-edit?))
-      (when additional-text-edits?
-        (lsp--apply-text-edits additional-text-edits? 'color-presentation)))))
-
-(defun lsp--number->color (number)
-  (let ((result (format "%x"
-                        (round (* (or number 0) 255.0)))))
-    (if (= 1 (length result))
-        (concat "0" result)
-      result)))
-
-(defun lsp--document-color ()
-  "Document color handler."
-  (when (lsp-feature? "textDocument/documentColor")
-    (lsp-request-async
-     "textDocument/documentColor"
-     `(:textDocument ,(lsp--text-document-identifier))
-     (lambda (result)
-       (lsp--remove-overlays 'lsp-color)
-       (seq-do
-        (-lambda ((&ColorInformation :color (color &as &Color :red :green :blue)
-                                     :range))
-          (-let* (((beg . end) (lsp--range-to-region range))
-                  (overlay (make-overlay beg end))
-                  (command (lsp--color-create-interactive-command color range)))
-            (overlay-put overlay 'lsp-color t)
-            (overlay-put overlay 'evaporate t)
-            (overlay-put overlay
-                         'before-string
-                         (propertize
-                          lsp-overlay-document-color-char
-                          'face `((:foreground ,(format
-                                                 "#%s%s%s"
-                                                 (lsp--number->color red)
-                                                 (lsp--number->color green)
-                                                 (lsp--number->color blue))))
-                          'action command
-                          'mouse-face 'lsp-lens-mouse-face
-                          'local-map (-doto (make-sparse-keymap)
-                                       (define-key [mouse-1] command))))))
-        result))
-     :mode 'unchanged
-     :cancel-token :document-color-token)))
-
-
-
-(defun lsp--action-trigger-parameter-hints (_command)
-  "Handler for editor.action.triggerParameterHints."
-  (when (member :on-server-request lsp-signature-auto-activate)
-    (lsp-signature-activate)))
-
-(defun lsp--action-trigger-suggest (_command)
-  "Handler for editor.action.triggerSuggest."
-  (cond
-   ((and (bound-and-true-p company-mode)
-         (fboundp 'company-auto-begin)
-         (fboundp 'company-post-command))
-    (run-at-time 0 nil
-                 (lambda ()
-                   (let ((this-command 'company-idle-begin)
-                         (company-minimum-prefix-length 0))
-                     (company-auto-begin)
-                     (company-post-command)))))
-   (t
-    (completion-at-point))))
-
-(defconst lsp--default-action-handlers
-  (ht ("editor.action.triggerParameterHints" #'lsp--action-trigger-parameter-hints)
-      ("editor.action.triggerSuggest" #'lsp--action-trigger-suggest))
-  "Default action handlers.")
-
-(defun lsp--find-action-handler (command)
-  "Find action handler for particular COMMAND."
-  (or
-   (--some (-some->> it
-             (lsp--workspace-client)
-             (lsp--client-action-handlers)
-             (gethash command))
-           (lsp-workspaces))
-   (gethash command lsp--default-action-handlers)))
-
-(defun lsp--text-document-code-action-params (&optional kind)
-  "Code action params."
-  (list :textDocument (lsp--text-document-identifier)
-        :range (if (use-region-p)
-                   (lsp--region-to-range (region-beginning) (region-end))
-                 (lsp--region-to-range (point) (point)))
-        :context `( :diagnostics ,(lsp-cur-possition-diagnostics)
-                    ,@(when kind (list :only (vector kind))))))
-
-(defun lsp-code-actions-at-point (&optional kind)
-  "Retrieve the code actions for the active region or the current line.
-It will filter by KIND if non nil."
-  (lsp-request "textDocument/codeAction" (lsp--text-document-code-action-params kind)))
-
-(defun lsp-execute-code-action-by-kind (command-kind)
-  "Execute code action by COMMAND-KIND."
-  (if-let* ((action (->> (lsp-get-or-calculate-code-actions command-kind)
-                        (-filter (-lambda ((&CodeAction :kind?))
-                                   (and kind? (s-prefix? command-kind kind?))))
-                        lsp--select-action)))
-      (lsp-execute-code-action action)
-    (signal 'lsp-no-code-actions '(command-kind))))
-
-(defalias 'lsp-get-or-calculate-code-actions 'lsp-code-actions-at-point)
-
-(lsp-defun lsp--execute-command ((action &as &Command :command :arguments?))
-  "Parse and execute a code ACTION represented as a Command LSP type."
-  (let ((server-id (->> (lsp-workspaces)
-                        (cl-first)
-                        (or lsp--cur-workspace)
-                        (lsp--workspace-client)
-                        (lsp--client-server-id))))
-    (condition-case nil
-        (with-no-warnings
-          (lsp-execute-command server-id (intern command) arguments?))
-      (cl-no-applicable-method
-       (if-let* ((action-handler (lsp--find-action-handler command)))
-           (funcall action-handler action)
-         (lsp-send-execute-command command arguments?))))))
-
-(lsp-defun lsp-execute-code-action ((action &as &CodeAction :command? :edit?))
-  "Execute code action ACTION. For example, when text under the
-caret has a suggestion to apply a fix from an lsp-server, calling
-this function will do so.
-If ACTION is not set it will be selected from `lsp-code-actions-at-point'.
-Request codeAction/resolve for more info if server supports."
-  (interactive (list (lsp--select-action (lsp-code-actions-at-point))))
-  (if (and (lsp-feature? "codeAction/resolve")
-           (not command?)
-           (not edit?))
-      (lsp--execute-code-action (lsp-request "codeAction/resolve" action))
-    (lsp--execute-code-action action)))
-
-(lsp-defun lsp--execute-code-action ((action &as &CodeAction :command? :edit?))
-  "Execute code action ACTION."
-  (when edit?
-    (lsp--apply-workspace-edit edit? 'code-action))
-
-  (cond
-   ((stringp command?) (lsp--execute-command action))
-   ((lsp-command? command?) (progn
-                              (when-let* ((action-filter (->> (lsp-workspaces)
-                                                             (cl-first)
-                                                             (or lsp--cur-workspace)
-                                                             (lsp--workspace-client)
-                                                             (lsp--client-action-filter))))
-                                (funcall action-filter command?))
-                              (lsp--execute-command command?)))))
-
-(lsp-defun lsp-fix-code-action-booleans ((&Command :arguments?) boolean-action-arguments)
-  "Patch incorrect boolean argument values in the provided `CodeAction' command
-in place, based on the BOOLEAN-ACTION-ARGUMENTS list. The values
-in this list can be either symbols or lists of symbols that
-represent paths to boolean arguments in code actions:
-
-> (lsp-fix-code-action-booleans command `(:foo :bar (:some :nested :boolean)))
-
-When there are available code actions, the server sends
-`lsp-mode' a list of possible command names and arguments as
-JSON. `lsp-mode' parses all boolean false values as `nil'. As a
-result code action arguments containing falsy values don't
-roundtrip correctly because `lsp-mode' will end up sending null
-values back to the client. This list makes it possible to
-selectively transform `nil' values back into `:json-false'."
-  (seq-doseq (path boolean-action-arguments)
-    (seq-doseq (args arguments?)
-      (lsp--fix-nested-boolean args (if (listp path) path (list path))))))
-
-(defun lsp--fix-nested-boolean (structure path)
-  "Traverse STRUCTURE using the paths from the PATH list, changing the value to
-`:json-false' if it was `nil'. PATH should be a list containing
-one or more symbols, and STRUCTURE should be compatible with
-`lsp-member?', `lsp-get', and `lsp-put'."
-  (let ((key (car path))
-        (rest (cdr path)))
-    (if (null rest)
-        ;; `lsp-put' returns `nil' both when the key doesn't exist and when the
-        ;; value is `nil', so we need to explicitly check its presence here
-        (when (and (lsp-member? structure key) (not (lsp-get structure key)))
-          (lsp-put structure key :json-false))
-      ;; If `key' does not exist, then we'll silently ignore it
-      (when-let* ((child (lsp-get structure key)))
-        (lsp--fix-nested-boolean child rest)))))
-
-(defvar lsp--formatting-indent-alist
-  ;; Taken from `dtrt-indent-mode'
-  '(
-    (ada-mode                   . ada-indent)                       ; Ada
-    (ada-ts-mode                . ada-ts-mode-indent-offset)
-    (c++-mode                   . c-basic-offset)                   ; C++
-    (c++-ts-mode                . c-ts-mode-indent-offset)
-    (c-mode                     . c-basic-offset)                   ; C
-    (c-ts-mode                  . c-ts-mode-indent-offset)
-    (cperl-mode                 . cperl-indent-level)               ; Perl
-    (crystal-mode               . crystal-indent-level)             ; Crystal (Ruby)
-    (csharp-mode                . c-basic-offset)                   ; C#
-    (csharp-tree-sitter-mode    . csharp-tree-sitter-indent-offset) ; C#
-    (csharp-ts-mode             . csharp-ts-mode-indent-offset)     ; C# (tree-sitter, Emacs29)
-    (css-mode                   . css-indent-offset)                ; CSS
-    (d-mode                     . c-basic-offset)                   ; D
-    (enh-ruby-mode              . enh-ruby-indent-level)            ; Ruby
-    (erlang-mode                . erlang-indent-level)              ; Erlang
-    (ess-mode                   . ess-indent-offset)                ; ESS (R)
-    (go-ts-mode                 . go-ts-mode-indent-offset)
-    (gpr-mode                   . gpr-indent-offset)                ; GNAT Project
-    (gpr-ts-mode                . gpr-ts-mode-indent-offset)
-    (hack-mode                  . hack-indent-offset)               ; Hack
-    (java-mode                  . c-basic-offset)                   ; Java
-    (java-ts-mode               . java-ts-mode-indent-offset)
-    (jde-mode                   . c-basic-offset)                   ; Java (JDE)
-    (js-mode                    . js-indent-level)                  ; JavaScript
-    (js-ts-mode                 . js-indent-level)
-    (js2-mode                   . js2-basic-offset)                 ; JavaScript-IDE
-    (js3-mode                   . js3-indent-level)                 ; JavaScript-IDE
-    (json-mode                  . js-indent-level)                  ; JSON
-    (json-ts-mode               . json-ts-mode-indent-offset)
-    (lua-mode                   . lua-indent-level)                 ; Lua
-    (lua-ts-mode                . lua-ts-indent-offset)
-    (nxml-mode                  . nxml-child-indent)                ; XML
-    (objc-mode                  . c-basic-offset)                   ; Objective C
-    (pascal-mode                . pascal-indent-level)              ; Pascal
-    (perl-mode                  . perl-indent-level)                ; Perl
-    (php-mode                   . c-basic-offset)                   ; PHP
-    (php-ts-mode                . php-ts-mode-indent-offset)        ; PHP
-    (powershell-mode            . powershell-indent)                ; PowerShell
-    (powershell-ts-mode         . powershell-ts-mode-indent-offset) ; PowerShell
-    (raku-mode                  . raku-indent-offset)               ; Perl6/Raku
-    (ruby-mode                  . ruby-indent-level)                ; Ruby
-    (rust-mode                  . rust-indent-offset)               ; Rust
-    (rust-ts-mode               . rust-ts-mode-indent-offset)
-    (rustic-mode                . rustic-indent-offset)             ; Rust
-    (scala-mode                 . scala-indent:step)                ; Scala
-    (sgml-mode                  . sgml-basic-offset)                ; SGML
-    (sh-mode                    . sh-basic-offset)                  ; Shell Script
-    (toml-ts-mode               . toml-ts-mode-indent-offset)
-    (typescript-mode            . typescript-indent-level)          ; Typescript
-    (typescript-ts-mode         . typescript-ts-mode-indent-offset) ; Typescript (tree-sitter, Emacs29)
-    (yaml-mode                  . yaml-indent-offset)               ; YAML
-    (yang-mode                  . c-basic-offset)                   ; YANG (yang-mode)
-
-    (default                    . standard-indent))                 ; default fallback
-  "A mapping from `major-mode' to its indent variable.")
-
-(defun lsp--get-indent-width (mode)
-  "Get indentation offset for MODE."
-  (or (alist-get mode lsp--formatting-indent-alist)
-      (lsp--get-indent-width (or (get mode 'derived-mode-parent) 'default))))
-
-(defun lsp--make-document-formatting-params ()
-  "Create document formatting params."
-  (lsp-make-document-formatting-params
-   :text-document (lsp--text-document-identifier)
-   :options (lsp-make-formatting-options
-             :tab-size (symbol-value (lsp--get-indent-width major-mode))
-             :insert-spaces (lsp-json-bool (not indent-tabs-mode))
-             :trim-trailing-whitespace? (lsp-json-bool lsp-trim-trailing-whitespace)
-             :insert-final-newline? (lsp-json-bool lsp-insert-final-newline)
-             :trim-final-newlines? (lsp-json-bool lsp-trim-final-newlines))))
-
-(defun lsp-format-buffer ()
-  "Ask the server to format this document."
-  (interactive "*")
-  (cond ((lsp-feature? "textDocument/formatting")
-         (let ((edits (lsp-request "textDocument/formatting"
-                                   (lsp--make-document-formatting-params))))
-           (if (seq-empty-p edits)
-               (lsp--info "No formatting changes provided")
-             (lsp--apply-text-edits edits 'format))))
-        ((lsp-feature? "textDocument/rangeFormatting")
-         (save-restriction
-           (widen)
-           (lsp-format-region (point-min) (point-max))))
-        (t (signal 'lsp-capability-not-supported (list "documentFormattingProvider")))))
-
-(defun lsp-format-region (s e)
-  "Ask the server to format the region, or if none is selected, the current line."
-  (interactive "r")
-  (let ((edits (lsp-request
-                "textDocument/rangeFormatting"
-                (lsp--make-document-range-formatting-params s e))))
-    (if (seq-empty-p edits)
-        (lsp--info "No formatting changes provided")
-      (lsp--apply-text-edits edits 'format))))
-
-(defmacro lsp-make-interactive-code-action (func-name code-action-kind)
-  "Define an interactive function FUNC-NAME that attempts to
-execute a CODE-ACTION-KIND action."
-  `(defun ,(intern (concat "lsp-" (symbol-name func-name))) ()
-     ,(format "Perform the %s code action, if available." code-action-kind)
-     (interactive)
-     ;; Even when `lsp-auto-execute-action' is nil, it still makes sense to
-     ;; auto-execute here: the user has specified exactly what they want.
-     (let ((lsp-auto-execute-action t))
-       (condition-case nil
-           (lsp-execute-code-action-by-kind ,code-action-kind)
-         (lsp-no-code-actions
-          (when (called-interactively-p 'any)
-            (lsp--info ,(format "%s action not available" code-action-kind))))))))
-
-(lsp-make-interactive-code-action organize-imports "source.organizeImports")
-
-(defun lsp--make-document-range-formatting-params (start end)
-  "Make DocumentRangeFormattingParams for selected region."
-  (lsp:set-document-range-formatting-params-range (lsp--make-document-formatting-params)
-                                                  (lsp--region-to-range start end)))
-
-(defconst lsp--highlight-kind-face
-  '((1 . lsp-face-highlight-textual)
-    (2 . lsp-face-highlight-read)
-    (3 . lsp-face-highlight-write)))
-
-(defun lsp--remove-overlays (name)
-  (save-restriction
-    (widen)
-    (remove-overlays (point-min) (point-max) name t)))
-
-(defun lsp-document-highlight ()
-  "Highlight all relevant references to the symbol under point."
-  (interactive)
-  (lsp--remove-overlays 'lsp-highlight) ;; clear any previous highlights
-  (setq lsp--have-document-highlights nil
-        lsp--symbol-bounds-of-last-highlight-invocation nil)
-  (let ((lsp-enable-symbol-highlighting t))
-    (lsp--document-highlight)))
-
-(defun lsp--document-highlight-callback (highlights)
-  "Create a callback to process the reply of a
-`textDocument/documentHighlight' message for the buffer BUF.
-A reference is highlighted only if it is visible in a window."
-  (lsp--remove-overlays 'lsp-highlight)
-
-  (let* ((wins-visible-pos (-map (lambda (win)
-                                   (cons (1- (line-number-at-pos (window-start win) t))
-                                         (1+ (line-number-at-pos (window-end win) t))))
-                                 (get-buffer-window-list nil nil 'visible))))
-    (setq lsp--have-document-highlights t)
-    (-map
-     (-lambda ((&DocumentHighlight :range (&Range :start (start &as &Position :line start-line)
-                                                  :end (end &as &Position :line end-line))
-                                   :kind?))
-       (-map
-        (-lambda ((start-window . end-window))
-          ;; Make the overlay only if the reference is visible
-          (when (and (> (1+ start-line) start-window)
-                     (< (1+ end-line) end-window))
-            (let ((start-point (lsp--position-to-point start))
-                  (end-point (lsp--position-to-point end)))
-              (when (not (and lsp-symbol-highlighting-skip-current
-                              (<= start-point (point) end-point)))
-                (-doto (make-overlay start-point end-point)
-                  (overlay-put 'face (cdr (assq (or kind? 1) lsp--highlight-kind-face)))
-                  (overlay-put 'lsp-highlight t))))))
-        wins-visible-pos))
-     highlights)))
-
-(defcustom lsp-symbol-kinds
-  '((1 . "File")
-    (2 . "Module")
-    (3 . "Namespace")
-    (4 . "Package")
-    (5 . "Class")
-    (6 . "Method")
-    (7 . "Property")
-    (8 . "Field")
-    (9 . "Constructor")
-    (10 . "Enum")
-    (11 . "Interface")
-    (12 . "Function")
-    (13 . "Variable")
-    (14 . "Constant")
-    (15 . "String")
-    (16 . "Number")
-    (17 . "Boolean")
-    (18 . "Array")
-    (19 . "Object")
-    (20 . "Key")
-    (21 . "Null")
-    (22 . "Enum Member")
-    (23 . "Struct")
-    (24 . "Event")
-    (25 . "Operator")
-    (26 . "Type Parameter"))
-  "Alist mapping SymbolKinds to human-readable strings.
-Various Symbol objects in the LSP protocol have an integral type,
-specifying what they are. This alist maps such type integrals to
-readable representations of them. See
-`https://microsoft.github.io/language-server-protocol/specifications/specification-current/',
-namespace SymbolKind."
-  :group 'lsp-mode
-  :type '(alist :key-type integer :value-type string))
-(defalias 'lsp--symbol-kind 'lsp-symbol-kinds)
-
-(lsp-defun lsp--symbol-information-to-xref
-  ((&SymbolInformation :kind :name
-                       :location (&Location :uri :range (&Range :start
-                                                                (&Position :line :character)))))
-  "Return a `xref-item' from SYMBOL information."
-  (xref-make (format "[%s] %s" (alist-get kind lsp-symbol-kinds) name)
-             (xref-make-file-location (lsp--uri-to-path uri)
-                                      line
-                                      character)))
-
-(defun lsp--get-document-symbols ()
-  "Get document symbols.
-
-If the buffer has not been modified since symbols were last
-retrieved, simply return the latest result.
-
-Else, if the request was initiated by Imenu updating its menu-bar
-entry, perform it asynchronously; i.e., give Imenu the latest
-result and then force a refresh when a new one is available.
-
-Else (e.g., due to interactive use of `imenu' or `xref'),
-perform the request synchronously."
-  (if (= (buffer-chars-modified-tick) lsp--document-symbols-tick)
-      lsp--document-symbols
-    (let ((method "textDocument/documentSymbol")
-          (params `(:textDocument ,(lsp--text-document-identifier)))
-          (tick (buffer-chars-modified-tick)))
-      (if (not lsp--document-symbols-request-async)
-          (prog1
-              (setq lsp--document-symbols (lsp-request method params))
-            (setq lsp--document-symbols-tick tick))
-        (lsp-request-async method params
-                           (lambda (document-symbols)
-                             (setq lsp--document-symbols document-symbols
-                                   lsp--document-symbols-tick tick)
-                             (lsp--imenu-refresh))
-                           :mode 'alive
-                           :cancel-token :document-symbols)
-        lsp--document-symbols))))
-
-(advice-add 'imenu-update-menubar :around
-            (lambda (oldfun &rest r)
-              (let ((lsp--document-symbols-request-async t))
-                (apply oldfun r))))
-
-(defun lsp--document-symbols->document-symbols-hierarchy (document-symbols current-position)
-  "Convert DOCUMENT-SYMBOLS to symbols hierarchy on CURRENT-POSITION."
-  (-let (((symbol &as &DocumentSymbol? :children?)
-          (seq-find (-lambda ((&DocumentSymbol :range))
-                      (lsp-point-in-range? current-position range))
-                    document-symbols)))
-    (if children?
-        (cons symbol (lsp--document-symbols->document-symbols-hierarchy children? current-position))
-      (when symbol
-        (list symbol)))))
-
-(lsp-defun lsp--symbol-information->document-symbol ((&SymbolInformation :name :kind :location :container-name? :deprecated?))
-  "Convert a SymbolInformation to a DocumentInformation"
-  (lsp-make-document-symbol :name name
-                            :kind kind
-                            :range (lsp:location-range location)
-                            :children? nil
-                            :deprecated? deprecated?
-                            :selection-range (lsp:location-range location)
-                            :detail? container-name?))
-
-(defun lsp--symbols-informations->document-symbols-hierarchy (symbols-informations current-position)
-  "Convert SYMBOLS-INFORMATIONS to symbols hierarchy on CURRENT-POSITION."
-  (--> symbols-informations
-    (-keep (-lambda ((symbol &as &SymbolInformation :location (&Location :range)))
-             (when (lsp-point-in-range? current-position range)
-               (lsp--symbol-information->document-symbol symbol)))
-           it)
-    (sort it (-lambda ((&DocumentSymbol :range (&Range :start a-start-position :end a-end-position))
-                       (&DocumentSymbol :range (&Range :start b-start-position :end b-end-position)))
-               (and (lsp--position-compare b-start-position a-start-position)
-                    (lsp--position-compare a-end-position b-end-position))))))
-
-(defun lsp--symbols->document-symbols-hierarchy (symbols)
-  "Convert SYMBOLS to symbols-hierarchy."
-  (when-let* ((first-symbol (lsp-seq-first symbols)))
-    (let ((cur-position (lsp-make-position :line (plist-get (lsp--cur-position) :line)
-                                           :character (plist-get (lsp--cur-position) :character))))
-      (if (lsp-symbol-information? first-symbol)
-          (lsp--symbols-informations->document-symbols-hierarchy symbols cur-position)
-        (lsp--document-symbols->document-symbols-hierarchy symbols cur-position)))))
-
-(defun lsp--xref-backend () 'xref-lsp)
-
-(cl-defmethod xref-backend-identifier-at-point ((_backend (eql xref-lsp)))
-  (propertize (or (thing-at-point 'symbol) "")
-              'identifier-at-point t))
-
-(defun lsp--xref-elements-index (symbols path)
-  (-mapcat
-   (-lambda (sym)
-     (pcase-exhaustive sym
-       ((lsp-interface DocumentSymbol :name :children? :selection-range (lsp-interface Range :start))
-        (cons (cons (concat path name)
-                    (lsp--position-to-point start))
-              (lsp--xref-elements-index children? (concat path name " / "))))
-       ((lsp-interface SymbolInformation :name :location (lsp-interface Location :range (lsp-interface Range :start)))
-        (list (cons (concat path name)
-                    (lsp--position-to-point start))))))
-   symbols))
-
-(defvar-local lsp--symbols-cache nil)
-
-(cl-defmethod xref-backend-identifier-completion-table ((_backend (eql xref-lsp)))
-  (if (lsp--find-workspaces-for "textDocument/documentSymbol")
-      (progn
-        (setq lsp--symbols-cache (lsp--xref-elements-index
-                                  (lsp--get-document-symbols) nil))
-        lsp--symbols-cache)
-    (list (propertize (or (thing-at-point 'symbol) "")
-                      'identifier-at-point t))))
-
-(cl-defmethod xref-backend-definitions ((_backend (eql xref-lsp)) identifier)
-  (save-excursion
-    (unless (get-text-property 0 'identifier-at-point identifier)
-      (goto-char (cl-rest (or (assoc identifier lsp--symbols-cache)
-                              (user-error "Unable to find symbol %s in current document" identifier)))))
-    (lsp--locations-to-xref-items (lsp-request "textDocument/definition"
-                                               (lsp--text-document-position-params)))))
-
-(cl-defmethod xref-backend-references ((_backend (eql xref-lsp)) identifier)
-  (save-excursion
-    (unless (get-text-property 0 'identifier-at-point identifier)
-      (goto-char (cl-rest (or (assoc identifier lsp--symbols-cache)
-                              (user-error "Unable to find symbol %s" identifier)))))
-    (lsp--locations-to-xref-items (lsp-request "textDocument/references"
-                                               (lsp--make-reference-params nil lsp-references-exclude-declaration)))))
-
-(cl-defmethod xref-backend-apropos ((_backend (eql xref-lsp)) pattern)
-  (seq-map #'lsp--symbol-information-to-xref
-           (lsp-request "workspace/symbol" `(:query ,pattern))))
-
-(defcustom lsp-rename-use-prepare t
-  "Whether `lsp-rename' should do a prepareRename first.
-For some language servers, textDocument/prepareRename might be
-too slow, in which case this variable may be set to nil.
-`lsp-rename' will then use `thing-at-point' `symbol' to determine
-the symbol to rename at point."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defun lsp--get-symbol-to-rename ()
-  "Get a symbol to rename and placeholder at point.
-Returns a cons ((START . END) . PLACEHOLDER?), and nil if
-renaming is generally supported but cannot be done at point.
-START and END are the bounds of the identifiers being renamed,
-while PLACEHOLDER?, is either nil or a string suggested by the
-language server as the initial input of a new-name prompt."
-  (unless (lsp-feature? "textDocument/rename")
-    (error "The connected server(s) doesn't support renaming"))
-  (if (and lsp-rename-use-prepare (lsp-feature? "textDocument/prepareRename"))
-      (when-let* ((response
-                  (lsp-request "textDocument/prepareRename"
-                               (lsp--text-document-position-params))))
-        (let* ((bounds (lsp--range-to-region
-                        (if (lsp-range? response)
-                            response
-                          (lsp:prepare-rename-result-range response))))
-               (placeholder
-                (and (not (lsp-range? response))
-                     (lsp:prepare-rename-result-placeholder response))))
-          (cons bounds placeholder)))
-    (when-let* ((bounds (bounds-of-thing-at-point 'symbol)))
-      (cons bounds nil))))
-
-(defface lsp-face-rename '((t :underline t))
-  "Face used to highlight the identifier being renamed.
-Renaming can be done using `lsp-rename'."
-  :group 'lsp-mode)
-
-(defface lsp-rename-placeholder-face '((t :inherit font-lock-variable-name-face))
-  "Face used to display the rename placeholder in.
-When calling `lsp-rename' interactively, this will be the face of
-the new name."
-  :group 'lsp-mode)
-
-(defvar lsp-rename-history '()
-  "History for `lsp--read-rename'.")
-
-(defun lsp--read-rename (at-point)
-  "Read a new name for a `lsp-rename' at `point' from the user.
-AT-POINT shall be a structure as returned by
-`lsp--get-symbol-to-rename'.
-
-Returns a string, which should be the new name for the identifier
-at point. If renaming cannot be done at point (as determined from
-AT-POINT), throw a `user-error'.
-
-This function is for use in `lsp-rename' only, and shall not be
-relied upon."
-  (unless at-point
-    (user-error "`lsp-rename' is invalid here"))
-  (-let* ((((start . end) . placeholder?) at-point)
-          ;; Do the `buffer-substring' first to not include `lsp-face-rename'
-          (rename-me (buffer-substring start end))
-          (placeholder (or placeholder? rename-me))
-          (placeholder (propertize placeholder 'face 'lsp-rename-placeholder-face))
-
-          overlay)
-    ;; We need unwind protect, as the user might cancel here, causing the
-    ;; overlay to linger.
-    (unwind-protect
-        (progn
-          (setq overlay (make-overlay start end))
-          (overlay-put overlay 'face 'lsp-face-rename)
-
-          (read-string (format "Rename %s to: " rename-me) placeholder
-                       'lsp-rename-history))
-      (and overlay (delete-overlay overlay)))))
-
-(defun lsp-rename (newname)
-  "Rename the symbol (and all references to it) under point to NEWNAME."
-  (interactive (list (lsp--read-rename (lsp--get-symbol-to-rename))))
-  (when-let* ((edits (lsp-request "textDocument/rename"
-                                 `( :textDocument ,(lsp--text-document-identifier)
-                                    :position ,(lsp--cur-position)
-                                    :newName ,newname))))
-    (lsp--apply-workspace-edit edits 'rename)))
-
-(defun lsp--on-rename-file (old-func old-name new-name &optional ok-if-already-exists?)
-  "Advice around function `rename-file'.
-Applies OLD-FUNC with OLD-NAME, NEW-NAME and OK-IF-ALREADY-EXISTS?.
-
-This advice sends workspace/willRenameFiles before renaming file
-to check if server wants to apply any workspaceEdits after renamed."
-  (if (and lsp-apply-edits-after-file-operations
-           (lsp--send-will-rename-files-p old-name))
-      (let ((params (lsp-make-rename-files-params
-                     :files (vector (lsp-make-file-rename
-                                     :oldUri (lsp--path-to-uri old-name)
-                                     :newUri (lsp--path-to-uri new-name))))))
-        (when-let* ((edits (lsp-request "workspace/willRenameFiles" params)))
-          (lsp--apply-workspace-edit edits 'rename-file)
-          (funcall old-func old-name new-name ok-if-already-exists?)
-          (when (lsp--send-did-rename-files-p)
-            (lsp-notify "workspace/didRenameFiles" params))))
-    (funcall old-func old-name new-name ok-if-already-exists?)))
-
-(advice-add 'rename-file :around #'lsp--on-rename-file)
-
-(defcustom lsp-xref-force-references nil
-  "If non-nil threat everything as references(e. g. jump if only one item.)"
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defun lsp-show-xrefs (xrefs display-action references?)
-  (unless (region-active-p) (push-mark nil t))
-  (if (boundp 'xref-show-definitions-function)
-      (with-no-warnings
-        (xref-push-marker-stack)
-        (funcall (if (and references? (not lsp-xref-force-references))
-                     xref-show-xrefs-function
-                   xref-show-definitions-function)
-                 (-const xrefs)
-                 `((window . ,(selected-window))
-                   (display-action . ,display-action)
-                   ,(if (and references? (not lsp-xref-force-references))
-                        `(auto-jump . ,xref-auto-jump-to-first-xref)
-                      `(auto-jump . ,xref-auto-jump-to-first-definition)))))
-    (xref--show-xrefs xrefs display-action)))
-
-(cl-defmethod seq-empty-p ((ht hash-table))
-  "Function `seq-empty-p' for hash-table."
-  (hash-table-empty-p ht))
-
-(cl-defun lsp-find-locations (method &optional extra &key display-action references?)
-  "Send request named METHOD and get cross references of the symbol under point.
-EXTRA is a plist of extra parameters.
-REFERENCES? t when METHOD returns references."
-  (let ((loc (lsp-request method
-                          (append (lsp--text-document-position-params) extra))))
-    (if (seq-empty-p loc)
-        (lsp--error "Not found for: %s" (or (thing-at-point 'symbol t) ""))
-      (lsp-show-xrefs (lsp--locations-to-xref-items loc) display-action references?))))
-
-(cl-defun lsp-find-declaration (&key display-action)
-  "Find declarations of the symbol under point."
-  (interactive)
-  (lsp-find-locations "textDocument/declaration" nil :display-action display-action))
-
-(cl-defun lsp-find-definition (&key display-action)
-  "Find definitions of the symbol under point."
-  (interactive)
-  (lsp-find-locations "textDocument/definition" nil :display-action display-action))
-
-(defun lsp-find-definition-mouse (click)
-  "Click to start `lsp-find-definition' at clicked point."
-  (interactive "e")
-  (let* ((ec (event-start click))
-         (p1 (posn-point ec))
-         (w1 (posn-window ec)))
-    (select-window w1)
-    (goto-char p1)
-    (lsp-find-definition)))
-
-(cl-defun lsp-find-implementation (&key display-action)
-  "Find implementations of the symbol under point."
-  (interactive)
-  (lsp-find-locations "textDocument/implementation"
-                      nil
-                      :display-action display-action
-                      :references? t))
-
-(cl-defun lsp-find-references (&optional exclude-declaration &key display-action)
-  "Find references of the symbol under point."
-  (interactive "P")
-  (lsp-find-locations "textDocument/references"
-                      (list :context `(:includeDeclaration ,(lsp-json-bool (not (or exclude-declaration lsp-references-exclude-declaration)))))
-                      :display-action display-action
-                      :references? t))
-
-(cl-defun lsp-find-type-definition (&key display-action)
-  "Find type definitions of the symbol under point."
-  (interactive)
-  (lsp-find-locations "textDocument/typeDefinition" nil :display-action display-action))
-
-(defalias 'lsp-find-custom #'lsp-find-locations)
-(defalias 'lsp-goto-implementation #'lsp-find-implementation)
-(defalias 'lsp-goto-type-definition #'lsp-find-type-definition)
-
-(with-eval-after-load 'evil
-  (evil-set-command-property 'lsp-find-definition :jump t)
-  (evil-set-command-property 'lsp-find-implementation :jump t)
-  (evil-set-command-property 'lsp-find-references :jump t)
-  (evil-set-command-property 'lsp-find-type-definition :jump t))
-
-(defun lsp--workspace-method-supported? (check-command method capability workspace)
-  (with-lsp-workspace workspace
-    (if check-command
-        (funcall check-command workspace)
-      (or
-       (when capability (lsp--capability capability))
-       (lsp--registered-capability method)
-       (and (not capability) (not check-command))))))
-
-(defun lsp-disable-method-for-server (method server-id)
-  "Disable METHOD for SERVER-ID."
-  (cl-callf
-      (lambda (reqs)
-        (-let (((&plist :check-command :capability) reqs))
-          (list :check-command
-                (lambda (workspace)
-                  (unless (-> workspace
-                              lsp--workspace-client
-                              lsp--client-server-id
-                              (eq server-id))
-                    (lsp--workspace-method-supported? check-command
-                                                      method
-                                                      capability
-                                                      workspace))))))
-      (alist-get method lsp-method-requirements nil nil 'string=)))
-
-(defun lsp--find-workspaces-for (msg-or-method)
-  "Find all workspaces in the current project that can handle MSG."
-  (let ((method (if (stringp msg-or-method)
-                    msg-or-method
-                  (plist-get msg-or-method :method))))
-    (-if-let (reqs (cdr (assoc method lsp-method-requirements)))
-        (-let (((&plist :capability :check-command) reqs))
-          (-filter
-           (-partial #'lsp--workspace-method-supported?
-                     check-command method capability)
-           (lsp-workspaces)))
-      (lsp-workspaces))))
-
-(defun lsp-can-execute-command? (command-name)
-  "Returns non-nil if current language server(s) can execute COMMAND-NAME.
-The command is executed via `workspace/executeCommand'"
-  (cl-position
-   command-name
-   (lsp:execute-command-options-commands
-    (lsp:server-capabilities-execute-command-provider?
-     (lsp--server-capabilities)))
-   :test #'equal))
-
-(defalias 'lsp-feature? 'lsp--find-workspaces-for)
-
-(cl-defmethod lsp-execute-command (_server _command _arguments)
-  "Dispatch COMMAND execution."
-  (signal 'cl-no-applicable-method nil))
-
-(defun lsp-workspace-command-execute (command &optional args)
-  "Execute workspace COMMAND with ARGS."
-  (condition-case-unless-debug err
-      (let ((params (if args
-                        (list :command command :arguments args)
-                      (list :command command))))
-        (lsp-request "workspace/executeCommand" params))
-    (error
-     (error "`workspace/executeCommand' with `%s' failed.\n\n%S"
-            command err))))
-
-(defun lsp-send-execute-command (command &optional args)
-  "Create and send a `workspace/executeCommand' message having command COMMAND
-and optional ARGS."
-  (lsp-workspace-command-execute command args))
-
-(defalias 'lsp-point-to-position #'lsp--point-to-position)
-(defalias 'lsp-text-document-identifier #'lsp--text-document-identifier)
-(defalias 'lsp--send-execute-command #'lsp-send-execute-command)
-(defalias 'lsp-on-open #'lsp--text-document-did-open)
-(defalias 'lsp-on-save #'lsp--text-document-did-save)
-
-(defun lsp--set-configuration (settings)
-  "Set the SETTINGS for the lsp server."
-  (lsp-notify "workspace/didChangeConfiguration" `(:settings ,settings)))
-
-(defun lsp-current-buffer ()
-  (or lsp--virtual-buffer
-      (current-buffer)))
-
-(defun lsp-buffer-live-p (buffer-id)
-  (if-let* ((buffer-live (plist-get buffer-id :buffer-live?)))
-      (funcall buffer-live buffer-id)
-    (buffer-live-p buffer-id)))
-
-(defun lsp--on-set-visited-file-name (old-func &rest args)
-  "Advice around function `set-visited-file-name'.
-
-This advice sends textDocument/didClose for the old file and
-textDocument/didOpen for the new file."
-  (when lsp--cur-workspace
-    (lsp--text-document-did-close t))
-  (prog1 (apply old-func args)
-    (when lsp--cur-workspace
-      (lsp--text-document-did-open))))
-
-(advice-add 'set-visited-file-name :around #'lsp--on-set-visited-file-name)
-
-(defcustom lsp-flush-delayed-changes-before-next-message t
-  "If non-nil send the document changes update before sending other messages.
-
-If nil, and `lsp-debounce-full-sync-notifications' is non-nil,
- change notifications will be throttled by
- `lsp-debounce-full-sync-notifications-interval' regardless of
- other messages."
-  :group 'lsp-mode
-  :type 'boolean)
-
-(defvar lsp--not-flushing-delayed-changes t)
-
-(defun lsp--send-no-wait (message proc)
-  "Send MESSAGE to PROC without waiting for further output."
-
-  (when (and lsp--not-flushing-delayed-changes
-             lsp-flush-delayed-changes-before-next-message)
-    (let ((lsp--not-flushing-delayed-changes nil))
-      (lsp--flush-delayed-changes)))
-  (lsp-process-send proc message))
-
-(define-error 'lsp-parse-error
-  "Error parsing message from language server" 'lsp-error)
-(define-error 'lsp-unknown-message-type
-  "Unknown message type" '(lsp-error lsp-parse-error))
-(define-error 'lsp-unknown-json-rpc-version
-  "Unknown JSON-RPC protocol version" '(lsp-error lsp-parse-error))
-(define-error 'lsp-no-content-length
-  "Content-Length header missing in message" '(lsp-error lsp-parse-error))
-(define-error 'lsp-invalid-header-name
-  "Invalid header name" '(lsp-error lsp-parse-error))
-
-;;  id  method
-;;   x    x     request
-;;   x    .     response
-;;   .    x     notification
-(defun lsp--get-message-type (json-data)
-  "Get the message type from JSON-DATA."
-  (if (lsp:json-message-id? json-data)
-      (if (lsp:json-message-error? json-data)
-          'response-error
-        (if (lsp:json-message-method? json-data)
-            'request
-          'response))
-    'notification))
-
-(defconst lsp--default-notification-handlers
-  (ht ("window/showMessage" #'lsp--window-show-message)
-      ("window/logMessage" #'lsp--window-log-message)
-      ("window/showInputBox" #'lsp--window-show-input-box)
-      ("window/showQuickPick" #'lsp--window-show-quick-pick)
-      ("textDocument/publishDiagnostics" #'lsp--on-diagnostics)
-      ("textDocument/diagnosticsEnd" #'ignore)
-      ("textDocument/diagnosticsBegin" #'ignore)
-      ("telemetry/event" #'ignore)
-      ("$/progress" (lambda (workspace params)
-                      (funcall lsp-progress-function workspace params)))))
-
-(lsp-defun lsp--on-notification (workspace (&JSONNotification :params :method))
-  "Call the appropriate handler for NOTIFICATION."
-  (-let ((client (lsp--workspace-client workspace)))
-    (when (lsp--log-io-p method)
-      (lsp--log-entry-new (lsp--make-log-entry method nil params 'incoming-notif)
-                          lsp--cur-workspace))
-    (if-let* ((handler (or (gethash method (lsp--client-notification-handlers client))
-                          (gethash method lsp--default-notification-handlers))))
-        (funcall handler workspace params)
-      (when (and method (not (string-prefix-p "$" method)))
-        (lsp-warn "Unknown notification: %s" method)))))
-
-(lsp-defun lsp--build-workspace-configuration-response ((&ConfigurationParams :items))
-  "Get section configuration.
-PARAMS are the `workspace/configuration' request params"
-  (->> items
-       (-map (-lambda ((&ConfigurationItem :section?))
-               (-let* ((path-parts (split-string section? "\\."))
-                       (path-without-last (s-join "." (-slice path-parts 0 -1)))
-                       (path-parts-len (length path-parts)))
-                 (cond
-                  ((<= path-parts-len 1)
-                   (ht-get (lsp-configuration-section section?)
-                           (car-safe path-parts)
-                           (ht-create)))
-                  ((> path-parts-len 1)
-                   (when-let* ((section (lsp-configuration-section path-without-last))
-                              (keys path-parts))
-                     (while (and keys section)
-                       (setf section (ht-get section (pop keys))))
-                     section))))))
-       (apply #'vector)))
-
-(defun lsp--ms-since (timestamp)
-  "Integer number of milliseconds since TIMESTAMP.  Fractions discarded."
-  (floor (* 1000 (float-time (time-since timestamp)))))
-
-(defun lsp--send-request-response (workspace recv-time request response)
-  "Send the RESPONSE for REQUEST in WORKSPACE and log if needed."
-  (-let* (((&JSONResponse :params :method :id) request)
-          (process (lsp--workspace-proc workspace))
-          (response (lsp--make-response id response))
-          (req-entry (and lsp-log-io
-                          (lsp--make-log-entry method id params 'incoming-req)))
-          (resp-entry (and lsp-log-io
-                           (lsp--make-log-entry method id response 'outgoing-resp
-                                                (lsp--ms-since recv-time)))))
-    ;; Send response to the server.
-    (when (lsp--log-io-p method)
-      (lsp--log-entry-new req-entry workspace)
-      (lsp--log-entry-new resp-entry workspace))
-    (lsp--send-no-wait response process)))
-
-(lsp-defun lsp--on-request (workspace (request &as &JSONRequest :params :method))
-  "Call the appropriate handler for REQUEST, and send the return value to the
-server. WORKSPACE is the active workspace."
-  (-let* ((recv-time (current-time))
-          (client (lsp--workspace-client workspace))
-          (buffers (lsp--workspace-buffers workspace))
-          handler
-          (response (cond
-                     ((setq handler (gethash method (lsp--client-request-handlers client) nil))
-                      (funcall handler workspace params))
-                     ((setq handler (gethash method (lsp--client-async-request-handlers client) nil))
-                      (funcall handler workspace params
-                               (-partial #'lsp--send-request-response
-                                         workspace recv-time request))
-                      'delay-response)
-                     ((equal method "client/registerCapability")
-                      (mapc #'lsp--server-register-capability
-                            (lsp:registration-params-registrations params))
-                      (mapc (lambda (buf)
-                              (when (lsp-buffer-live-p buf)
-                                (lsp-with-current-buffer buf
-                                  (lsp-unconfig-buffer)
-                                  (lsp-configure-buffer))))
-                            buffers)
-                      nil)
-                     ((equal method "window/showMessageRequest")
-                      (let ((choice (lsp--window-log-message-request params)))
-                        `(:title ,choice)))
-                     ((equal method "window/showDocument")
-                      (let ((success? (lsp--window-show-document params)))
-                        (lsp-make-show-document-result :success (or success?
-                                                                    :json-false))))
-                     ((equal method "client/unregisterCapability")
-                      (mapc #'lsp--server-unregister-capability
-                            (lsp:unregistration-params-unregisterations params))
-                      (mapc (lambda (buf)
-                              (when (lsp-buffer-live-p buf)
-                                (lsp-with-current-buffer buf
-                                  (lsp-unconfig-buffer)
-                                  (lsp-configure-buffer))))
-                            buffers)
-                      nil)
-                     ((equal method "workspace/applyEdit")
-                      (list :applied (condition-case err
-                                         (prog1 t
-                                           (lsp--apply-workspace-edit (lsp:apply-workspace-edit-params-edit params) 'server-requested))
-                                       (error
-                                        (lsp--error "Failed to apply edits with message %s"
-                                                    (error-message-string err))
-                                        :json-false))))
-                     ((equal method "workspace/configuration")
-                      (with-lsp-workspace workspace
-                        (if-let* ((buf (car buffers)))
-                            (lsp-with-current-buffer buf
-                              (lsp--build-workspace-configuration-response params))
-                          (lsp--with-workspace-temp-buffer (lsp--workspace-root workspace)
-                            (lsp--build-workspace-configuration-response params)))))
-                     ((equal method "workspace/workspaceFolders")
-                      (let ((folders (or (-> workspace
-                                             (lsp--workspace-client)
-                                             (lsp--client-server-id)
-                                             (gethash (lsp-session-server-id->folders (lsp-session))))
-                                         (lsp-session-folders (lsp-session)))))
-                        (->> folders
-                             (-distinct)
-                             (-map (lambda (folder)
-                                     (list :uri (lsp--path-to-uri folder))))
-                             (apply #'vector))))
-                     ((equal method "window/workDoneProgress/create")
-                      nil ;; no specific reply, no processing required
-                      )
-                     ((equal method "workspace/semanticTokens/refresh")
-                      (when (and lsp-semantic-tokens-enable
-                                 (fboundp 'lsp--semantic-tokens-on-refresh))
-                        (lsp--semantic-tokens-on-refresh workspace))
-                      nil)
-                     ((equal method "workspace/codeLens/refresh")
-                      (when (and lsp-lens-enable
-                                 (fboundp 'lsp--lens-on-refresh))
-                        (lsp--lens-on-refresh workspace))
-                      nil)
-                     ((equal method "workspace/diagnostic/refresh")
-                      nil)
-                     (t (lsp-warn "Unknown request method: %s" method) nil))))
-    ;; Send response to the server.
-    (unless (eq response 'delay-response)
-      (lsp--send-request-response workspace recv-time request response))))
-
-(lsp-defun lsp--error-string ((&JSONError :message :code))
-  "Format ERR as a user friendly string."
-  (format "Error from the Language Server: %s (%s)"
-          message
-          (or (car (alist-get code lsp--errors)) "Unknown error")))
-
-(defun lsp--get-body-length (headers)
-  (let ((content-length (cdr (assoc "Content-Length" headers))))
-    (if content-length
-        (string-to-number content-length)
-
-      ;; This usually means either the server or our parser is
-      ;; screwed up with a previous Content-Length
-      (error "No Content-Length header"))))
-
-(defun lsp--parse-header (s)
-  "Parse string S as a LSP (KEY . VAL) header."
-  (let ((pos (string-match "\:" s))
-        key val)
-    (unless pos
-      (signal 'lsp-invalid-header-name (list s)))
-    (setq key (substring s 0 pos)
-          val (s-trim-left (substring s (+ 1 pos))))
-    (when (equal key "Content-Length")
-      (cl-assert (cl-loop for c across val
-                          when (or (> c ?9) (< c ?0)) return nil
-                          finally return t)
-                 nil (format "Invalid Content-Length value: %s" val)))
-    (cons key val)))
-
-(defmacro lsp--read-json (str)
-  "Read json string STR."
-  (if (progn
-        (require 'json)
-        (fboundp 'json-parse-string))
-      `(json-parse-string ,str
-                          :object-type (if lsp-use-plists
-                                           'plist
-                                         'hash-table)
-                          :null-object nil
-                          :false-object nil)
-    `(let ((json-array-type 'vector)
-           (json-object-type (if lsp-use-plists
-                                 'plist
-                               'hash-table))
-           (json-false nil))
-       (json-read-from-string ,str))))
-
-(defmacro lsp-json-read-buffer ()
-  "Read json from the current buffer."
-  (if (progn
-        (require 'json)
-        (fboundp 'json-parse-buffer))
-      `(json-parse-buffer :object-type (if lsp-use-plists
-                                           'plist
-                                         'hash-table)
-                          :null-object nil
-                          :false-object nil)
-    `(let ((json-array-type 'vector)
-           (json-object-type (if lsp-use-plists
-                                 'plist
-                               'hash-table))
-           (json-false nil))
-       (json-read))))
-
-(defun lsp--read-json-file (file-path)
-  "Read json file."
-  (-> file-path
-    (f-read-text)
-    (lsp--read-json)))
-
-(defun lsp--parser-on-message (json-data workspace)
-  "Called when the parser P read a complete MSG from the server."
-  (with-demoted-errors "Error processing message %S."
-    (with-lsp-workspace workspace
-      (let* ((client (lsp--workspace-client workspace))
-             (id (--when-let (lsp:json-response-id json-data)
-                   (if (stringp it) (string-to-number it) it)))
-             (data (lsp:json-response-result json-data)))
-        (pcase (lsp--get-message-type json-data)
-          ('response
-           (cl-assert id)
-           (-let [(callback _ method _ before-send) (gethash id (lsp--client-response-handlers client))]
-             (when (lsp--log-io-p method)
-               (lsp--log-entry-new
-                (lsp--make-log-entry method id data 'incoming-resp
-                                     (lsp--ms-since before-send))
-                workspace))
-             (when callback
-               (remhash id (lsp--client-response-handlers client))
-               (funcall callback (lsp:json-response-result json-data)))))
-          ('response-error
-           (cl-assert id)
-           (-let [(_ callback method _ before-send) (gethash id (lsp--client-response-handlers client))]
-             (when (lsp--log-io-p method)
-               (lsp--log-entry-new
-                (lsp--make-log-entry method id (lsp:json-response-error-error json-data)
-                                     'incoming-resp (lsp--ms-since before-send))
-                workspace))
-             (when callback
-               (remhash id (lsp--client-response-handlers client))
-               (funcall callback (lsp:json-response-error-error json-data)))))
-          ('notification
-           (lsp--on-notification workspace json-data))
-          ('request (lsp--on-request workspace json-data)))))))
-
-(defun lsp--create-filter-function (workspace)
-  "Make filter for the workspace."
-  (let ((body-received 0)
-        leftovers body-length body chunk)
-    (lambda (_proc input)
-      (setf chunk (if (s-blank? leftovers)
-                      (encode-coding-string input 'utf-8-unix t)
-                    (concat leftovers (encode-coding-string input 'utf-8-unix t))))
-
-      (let (messages)
-        (while (not (s-blank? chunk))
-          (if (not body-length)
-              ;; Read headers
-              (if-let* ((body-sep-pos (string-match-p "\r\n\r\n" chunk)))
-                  ;; We've got all the headers, handle them all at once:
-                  (setf body-length (lsp--get-body-length
-                                     (mapcar #'lsp--parse-header
-                                             (split-string
-                                              (substring-no-properties chunk
-                                                                       (or (string-match-p "Content-Length" chunk)
-                                                                           (error "Unable to find Content-Length header."))
-                                                                       body-sep-pos)
-                                              "\r\n")))
-                        body-received 0
-                        leftovers nil
-                        chunk (substring-no-properties chunk (+ body-sep-pos 4)))
-
-                ;; Haven't found the end of the headers yet. Save everything
-                ;; for when the next chunk arrives and await further input.
-                (setf leftovers chunk
-                      chunk nil))
-            (let* ((chunk-length (string-bytes chunk))
-                   (left-to-receive (- body-length body-received))
-                   (this-body (if (< left-to-receive chunk-length)
-                                  (prog1 (substring-no-properties chunk 0 left-to-receive)
-                                    (setf chunk (substring-no-properties chunk left-to-receive)))
-                                (prog1 chunk
-                                  (setf chunk nil))))
-                   (body-bytes (string-bytes this-body)))
-              (push this-body body)
-              (setf body-received (+ body-received body-bytes))
-              (when (>= chunk-length left-to-receive)
-                (condition-case err
-                    (with-temp-buffer
-                      (apply #'insert
-                             (nreverse
-                              (prog1 body
-                                (setf leftovers nil
-                                      body-length nil
-                                      body-received nil
-                                      body nil))))
-                      (decode-coding-region (point-min)
-                                            (point-max)
-                                            'utf-8)
-                      (goto-char (point-min))
-                      (push (lsp-json-read-buffer) messages))
-
-                  (error
-                   (lsp-warn "Failed to parse the following chunk:\n'''\n%s\n'''\nwith message %s"
-                             (concat leftovers input)
-                             err)))))))
-        (mapc (lambda (msg)
-                (lsp--parser-on-message msg workspace))
-              (nreverse messages))))))
-
-(defvar-local lsp--line-col-to-point-hash-table nil
-  "Hash table with keys (line . col) and values that are either point positions
-or markers.")
-
-(defcustom lsp-imenu-detailed-outline t
-  "Whether `lsp-imenu' should include signatures.
-This will be ignored if the server doesn't provide the necessary
-information, for example if it doesn't support DocumentSymbols."
-  :group 'lsp-imenu
-  :type 'boolean)
-
-(defcustom lsp-imenu-hide-parent-details t
-  "Whether `lsp-imenu' should hide signatures of parent nodes."
-  :group 'lsp-imenu
-  :type 'boolean)
-
-(defface lsp-details-face '((t :height 0.8 :inherit shadow))
-  "Used to display additional information throughout `lsp'.
-Things like line numbers, signatures, ... are considered
-additional information. Often, additional faces are defined that
-inherit from this face by default, like `lsp-signature-face', and
-they may be customized for finer control."
-  :group 'lsp-mode)
-
-(defface lsp-signature-face '((t :inherit lsp-details-face))
-  "Used to display signatures in `imenu', ...."
-  :group 'lsp-mode)
-
-(lsp-defun lsp-render-symbol ((&DocumentSymbol :name :detail? :deprecated?)
-                              show-detail?)
-  "Render INPUT0, an `&DocumentSymbol', to a string.
-If SHOW-DETAIL? is set, make use of its `:detail?' field (often
-the signature)."
-  (let ((detail (and show-detail? (s-present? detail?)
-                     (propertize (concat " " (s-trim-left detail?))
-                                 'face 'lsp-signature-face)))
-        (name (if deprecated?
-                  (propertize name 'face 'lsp-face-semhl-deprecated) name)))
-    (concat name detail)))
-
-(lsp-defun lsp-render-symbol-information ((&SymbolInformation :name :deprecated? :container-name?)
-                                          separator)
-  "Render a piece of SymbolInformation.
-Handle :deprecated?. If SEPARATOR is non-nil, the
-symbol's (optional) parent, SEPARATOR and the symbol itself are
-concatenated."
-  (when (and separator container-name? (not (string-empty-p container-name?)))
-    (setq name (concat name separator container-name?)))
-  (if deprecated? (propertize name 'face 'lsp-face-semhl-deprecated) name))
-
-(defun lsp--symbol-to-imenu-elem (sym)
-  "Convert SYM to imenu element.
-
-SYM is a SymbolInformation message.
-
-Return a cons cell (full-name . start-point)."
-  (let ((start-point (ht-get lsp--line-col-to-point-hash-table
-                             (lsp--get-line-and-col sym))))
-    (cons (lsp-render-symbol-information
-           sym (and lsp-imenu-show-container-name
-                    lsp-imenu-container-name-separator))
-          start-point)))
-
-(lsp-defun lsp--symbol-to-hierarchical-imenu-elem ((sym &as &DocumentSymbol :children?))
-  "Convert SYM to hierarchical imenu elements.
-
-SYM is a DocumentSymbol message.
-
-Return cons cell (\"symbol-name (symbol-kind)\" . start-point) if
-SYM doesn't have any children. Otherwise return a cons cell with
-an alist
-
-  (\"symbol-name\" . ((\"(symbol-kind)\" . start-point)
-                    cons-cells-from-children))"
-  (let ((filtered-children (lsp--imenu-filter-symbols children?))
-        (signature (lsp-render-symbol sym lsp-imenu-detailed-outline)))
-    (if (seq-empty-p filtered-children)
-        (cons signature
-              (ht-get lsp--line-col-to-point-hash-table
-                      (lsp--get-line-and-col sym)))
-      (cons signature
-            (lsp--imenu-create-hierarchical-index filtered-children)))))
-
-(lsp-defun lsp--symbol-ignore ((&SymbolInformation :kind))
-  "Determine if SYM is for the current document and is to be shown."
-  ;; It's a SymbolInformation or DocumentSymbol, which is always in the
-  ;; current buffer file.
-  (and lsp-imenu-index-symbol-kinds
-       (numberp kind)
-       (let ((clamped-kind (if (< 0 kind (length lsp/symbol-kind-lookup))
-                               kind
-                             0)))
-         (not (memql (aref lsp/symbol-kind-lookup clamped-kind)
-                     lsp-imenu-index-symbol-kinds)))))
-
-(lsp-defun lsp--get-symbol-type ((&SymbolInformation :kind))
-  "The string name of the kind of SYM."
-  (alist-get kind lsp-symbol-kinds "Other"))
-
-(defun lsp--get-line-and-col (sym)
-  "Obtain the line and column corresponding to SYM."
-  (-let* ((location (lsp:symbol-information-location sym))
-          (name-range (or (and location (lsp:location-range location))
-                          (lsp:document-symbol-selection-range sym)))
-          ((&Range :start (&Position :line :character)) name-range))
-    (cons line character)))
-
-(defun lsp--collect-lines-and-cols (symbols)
-  "Return a sorted list ((line . col) ...) of the locations of SYMBOLS."
-  (let ((stack (mapcar 'identity symbols))
-        line-col-list)
-    (while stack
-      (let ((sym (pop stack)))
-        (push (lsp--get-line-and-col sym) line-col-list)
-        (unless (seq-empty-p (lsp:document-symbol-children? sym))
-          (setf stack (nconc (lsp--imenu-filter-symbols (lsp:document-symbol-children? sym)) stack)))))
-    (-sort #'lsp--line-col-comparator line-col-list)))
-
-(defun lsp--convert-line-col-to-points-batch (line-col-list)
-  "Convert a sorted list of positions from line-column
-representation to point representation."
-  (let ((line-col-to-point-map (ht-create))
-        (inhibit-field-text-motion t)
-        (curr-line 0))
-    (lsp-save-restriction-and-excursion
-      (goto-char (point-min))
-      (cl-loop for (line . col) in line-col-list do
-               (forward-line (- line curr-line))
-               (setq curr-line line)
-               (let ((line-end (line-end-position)))
-                 (if (or (not col) (> col (- line-end (point))))
-                     (goto-char line-end)
-                   (forward-char col)))
-               (ht-set! line-col-to-point-map (cons line col) (if imenu-use-markers
-                                                                  (point-marker)
-                                                                (point)))))
-    line-col-to-point-map))
-
-(cl-defun lsp--line-col-comparator ((l1 . c1) (l2 . c2))
-  (or (< l1 l2)
-      (and (= l1 l2)
-           (cond ((and c1 c2)
-                  (< c1 c2))
-                 (c1 t)))))
-
-(defun lsp-imenu-create-uncategorized-index (symbols)
-  "Create imenu index from document SYMBOLS.
-This function, unlike `lsp-imenu-create-categorized-index', does
-not categorize by type, but instead returns an `imenu' index
-corresponding to the symbol hierarchy returned by the server
-directly."
-  (let* ((lsp--line-col-to-point-hash-table (-> symbols
-                                                lsp--collect-lines-and-cols
-                                                lsp--convert-line-col-to-points-batch)))
-    (if (lsp--imenu-hierarchical-p symbols)
-        (lsp--imenu-create-hierarchical-index symbols)
-      (lsp--imenu-create-non-hierarchical-index symbols))))
-
-(defcustom lsp-imenu-symbol-kinds
-  '((1 . "Files")
-    (2 . "Modules")
-    (3 . "Namespaces")
-    (4 . "Packages")
-    (5 . "Classes")
-    (6 . "Methods")
-    (7 . "Properties")
-    (8 . "Fields")
-    (9 . "Constructors")
-    (10 . "Enums")
-    (11 . "Interfaces")
-    (12 . "Functions")
-    (13 . "Variables")
-    (14 . "Constants")
-    (15 . "Strings")
-    (16 . "Numbers")
-    (17 . "Booleans")
-    (18 . "Arrays")
-    (19 . "Objects")
-    (20 . "Keys")
-    (21 . "Nulls")
-    (22 . "Enum Members")
-    (23 . "Structs")
-    (24 . "Events")
-    (25 . "Operators")
-    (26 . "Type Parameters"))
-  "`lsp-symbol-kinds', but only used by `imenu'.
-A new variable is needed, as it is `imenu' convention to use
-pluralized categories, which `lsp-symbol-kinds' doesn't. If the
-non-pluralized names are preferred, this can be set to
-`lsp-symbol-kinds'."
-  :type '(alist :key-type integer :value-type string))
-
-(defun lsp--imenu-kind->name (kind)
-  (alist-get kind lsp-imenu-symbol-kinds "?"))
-
-(defun lsp-imenu-create-top-level-categorized-index (symbols)
-  "Create an `imenu' index categorizing SYMBOLS by type.
-Only root symbols are categorized.
-
-See `lsp-symbol-kinds' to customize the category naming. SYMBOLS
-shall be a list of DocumentSymbols or SymbolInformation."
-  (mapcan
-   (-lambda ((type . symbols))
-     (let ((cat (lsp--imenu-kind->name type))
-           (symbols (lsp-imenu-create-uncategorized-index symbols)))
-       ;; If there is no :kind (this is being defensive), or we couldn't look it
-       ;; up, just display the symbols inline, without categories.
-       (if cat (list (cons cat symbols)) symbols)))
-   (sort (seq-group-by #'lsp:document-symbol-kind symbols)
-         (-lambda ((kinda) (kindb)) (< kinda kindb)))))
-
-(lsp-defun lsp--symbol->imenu ((sym &as &DocumentSymbol :selection-range (&RangeToPoint :start)))
-  "Convert an `&DocumentSymbol' to an `imenu' entry."
-  (cons (lsp-render-symbol sym lsp-imenu-detailed-outline) start))
-
-(defun lsp--imenu-create-categorized-index-1 (symbols)
-  "Returns an `imenu' index from SYMBOLS categorized by type.
-The result looks like this: ((\"Variables\" . (...)))."
-  (->>
-   symbols
-   (mapcan
-    (-lambda ((sym &as &DocumentSymbol :kind :children?))
-      (if (seq-empty-p children?)
-          (list (list kind (lsp--symbol->imenu sym)))
-        (let ((parent (lsp-render-symbol sym (and lsp-imenu-detailed-outline
-                                                  (not lsp-imenu-hide-parent-details)))))
-          (cons
-           (list kind (lsp--symbol->imenu sym))
-           (mapcar (-lambda ((type .  imenu-items))
-                     (list type (cons parent (mapcan #'cdr imenu-items))))
-                   (-group-by #'car (lsp--imenu-create-categorized-index-1 children?))))))))
-   (-group-by #'car)
-   (mapcar
-    (-lambda ((kind . syms))
-      (cons kind (mapcan #'cdr syms))))))
-
-(defun lsp--imenu-create-categorized-index (symbols)
-  (let ((syms (lsp--imenu-create-categorized-index-1 symbols)))
-    (dolist (sym syms)
-      (setcar sym (lsp--imenu-kind->name (car sym))))
-    syms))
-
-(lsp-defun lsp--symbol-information->imenu ((sym &as &SymbolInformation :location (&Location :range (&RangeToPoint :start))))
-  (cons (lsp-render-symbol-information sym nil) start))
-
-(defun lsp--imenu-create-categorized-index-flat (symbols)
-  "Create a kind-categorized index for SymbolInformation."
-  (mapcar (-lambda ((kind . syms))
-            (cons (lsp--imenu-kind->name kind)
-                  (mapcan (-lambda ((parent . children))
-                            (let ((children (mapcar #'lsp--symbol-information->imenu children)))
-                              (if parent (list (cons parent children)) children)))
-                          (-group-by #'lsp:symbol-information-container-name? syms))))
-          (seq-group-by #'lsp:symbol-information-kind symbols)))
-
-(defun lsp-imenu-create-categorized-index (symbols)
-  (if (lsp--imenu-hierarchical-p symbols)
-      (lsp--imenu-create-categorized-index symbols)
-    (lsp--imenu-create-categorized-index-flat symbols)))
-
-(defcustom lsp-imenu-index-function #'lsp-imenu-create-uncategorized-index
-  "Function that should create an `imenu' index.
-It will be called with a list of SymbolInformation or
-DocumentSymbols, whose first level is already filtered. It shall
-then return an appropriate `imenu' index (see
-`imenu-create-index-function').
-
-Note that this interface is not stable, and subject to change any
-time."
-  :group 'lsp-imenu
-  :type '(radio
-          (const :tag "Categorize by type"
-                 lsp-imenu-create-categorized-index)
-          (const :tag "Categorize root symbols by type"
-                 lsp-imenu-create-top-level-categorized-index)
-          (const :tag "Uncategorized, inline entries"
-                 lsp-imenu-create-uncategorized-index)
-          (function :tag "Custom function")))
-
-(defun lsp--imenu-create-index ()
-  "Create an `imenu' index based on the language server.
-Respects `lsp-imenu-index-function'."
-  (let ((symbols (lsp--imenu-filter-symbols (lsp--get-document-symbols))))
-    (funcall lsp-imenu-index-function symbols)))
-
-(defun lsp--imenu-filter-symbols (symbols)
-  "Filter out unsupported symbols from SYMBOLS."
-  (seq-remove #'lsp--symbol-ignore symbols))
-
-(defun lsp--imenu-hierarchical-p (symbols)
-  "Determine whether any element in SYMBOLS has children."
-  (seq-some #'lsp-document-symbol? symbols))
-
-(defun lsp--imenu-create-non-hierarchical-index (symbols)
-  "Create imenu index for non-hierarchical SYMBOLS.
-
-SYMBOLS are a list of DocumentSymbol messages.
-
-Return a nested alist keyed by symbol names. e.g.
-
-   ((\"SomeClass\" (\"(Class)\" . 10)
-                 (\"someField (Field)\" . 20)
-                 (\"someFunction (Function)\" . 25)
-                 (\"SomeSubClass\" (\"(Class)\" . 30)
-                                  (\"someSubField (Field)\" . 35))
-    (\"someFunction (Function)\" . 40))"
-  (seq-map (lambda (nested-alist)
-             (cons (car nested-alist)
-                   (seq-map #'lsp--symbol-to-imenu-elem (cdr nested-alist))))
-           (seq-group-by #'lsp--get-symbol-type symbols)))
-
-(defun lsp--imenu-create-hierarchical-index (symbols)
-  "Create imenu index for hierarchical SYMBOLS.
-
-SYMBOLS are a list of DocumentSymbol messages.
-
-Return a nested alist keyed by symbol names. e.g.
-
-   ((\"SomeClass\" (\"(Class)\" . 10)
-                 (\"someField (Field)\" . 20)
-                 (\"someFunction (Function)\" . 25)
-                 (\"SomeSubClass\" (\"(Class)\" . 30)
-                                  (\"someSubField (Field)\" . 35))
-    (\"someFunction (Function)\" . 40))"
-  (seq-map #'lsp--symbol-to-hierarchical-imenu-elem
-           (seq-sort #'lsp--imenu-symbol-lessp symbols)))
-
-(defun lsp--imenu-symbol-lessp (sym1 sym2)
-  (let* ((compare-results (mapcar (lambda (method)
-                                    (funcall (alist-get method lsp--imenu-compare-function-alist)
-                                             sym1 sym2))
-                                  lsp-imenu-sort-methods))
-         (result (seq-find (lambda (result)
-                             (not (= result 0)))
-                           compare-results
-                           0)))
-    (and (numberp result) (< result 0))))
-
-(lsp-defun lsp--imenu-compare-kind ((&SymbolInformation :kind left)
-                                    (&SymbolInformation :kind right))
-  "Compare SYM1 and SYM2 by kind."
-  (- left right))
-
-(defun lsp--imenu-compare-line-col (sym1 sym2)
-  (if (lsp--line-col-comparator
-       (lsp--get-line-and-col sym1)
-       (lsp--get-line-and-col sym2))
-      -1
-    1))
-
-(lsp-defun lsp--imenu-compare-name ((&SymbolInformation :name name1)
-                                    (&SymbolInformation :name name2))
-  "Compare SYM1 and SYM2 by name."
-  (let ((result (compare-strings name1 0 (length name1) name2 0 (length name2))))
-    (if (numberp result) result 0)))
-
-(defun lsp--imenu-refresh ()
-  "Force Imenu to refresh itself."
-  (imenu--menubar-select imenu--rescan-item))
-
-(defun lsp-enable-imenu ()
-  "Use lsp-imenu for the current buffer."
-  (imenu--cleanup)
-  (add-function :override (local 'imenu-create-index-function) #'lsp--imenu-create-index)
-  (setq-local imenu-menubar-modified-tick -1)
-  (setq-local imenu--index-alist nil)
-  (when menu-bar-mode
-    (lsp--imenu-refresh)))
-
-(defun lsp-resolve-final-command (command &optional test?)
-  "Resolve final function COMMAND."
-  (let* ((command (lsp-resolve-value command))
-         (command (cl-etypecase command
-                    (list
-                     (cl-assert (seq-every-p (apply-partially #'stringp) command) nil
-                                "Invalid command list")
-                     command)
-                    (string (list command)))))
-    (if (and (file-remote-p default-directory) (not test?))
-        (list shell-file-name "-c"
-              (string-join (cons "stty raw > /dev/null;"
-                                 (mapcar #'shell-quote-argument command))
-                           " "))
-      command)))
-
-(defun lsp-server-present? (final-command)
-  "Check whether FINAL-COMMAND is present."
-  (let ((binary-found? (executable-find (cl-first final-command) t)))
-    (if binary-found?
-        (lsp-log "Command \"%s\" is present on the path." (s-join " " final-command))
-      (lsp-log "Command \"%s\" is not present on the path." (s-join " " final-command)))
-    binary-found?))
-
-(defun lsp--value-to-string (value)
-  "Convert VALUE to a string that can be set as value in an environment
-variable."
-  (cond
-   ((stringp value) value)
-   ((booleanp value) (if value
-                         "1"
-                       "0"))
-   ((and (sequencep value)
-         (seq-every-p #'stringp value)) (string-join value ":"))
-   (t (user-error "Only strings, booleans, and sequences of strings are supported as environment variables"))))
-
-(defun lsp--compute-process-environment (environment-fn)
-  "Append a list of KEY=VALUE from the alist ENVIRONMENT to `process-environment'.
-Ignore non-boolean keys whose value is nil."
-  (let ((environment (if environment-fn
-                         (funcall environment-fn)
-                       nil)))
-    (-flatten (cons (cl-loop for (key . value) in environment
-                             if (or (eval value)
-                                    (eq (get value 'custom-type) 'boolean))
-                             collect (concat key "=" (lsp--value-to-string
-                                                      (eval value))))
-                    process-environment))))
-
-(defun lsp--default-directory-for-connection (&optional path)
-  "Return path to be used for the working directory of a LSP process.
-
-If `lsp-use-workspace-root-for-server-default-directory' is
-non-nil, uses `lsp-workspace-root' to find the directory
-corresponding to PATH, else returns `default-directory'."
-  (if lsp-use-workspace-root-for-server-default-directory
-      (lsp-workspace-root path)
-    default-directory))
-
-(defun lsp--fix-remote-cmd (program)
-  "Helper for `lsp-stdio-connection'.
-Originally coppied from eglot."
-
-  (if (file-remote-p default-directory)
-      (list shell-file-name "-c"
-            (string-join (cons "stty raw > /dev/null;"
-                               (mapcar #'shell-quote-argument program))
-                         " "))
-    program))
-
-(defvar tramp-use-ssh-controlmaster-options)
-(defvar tramp-ssh-controlmaster-options)
-
-(defun lsp-stdio-connection (command &optional test-command)
-  "Returns a connection property list using COMMAND.
-COMMAND can be: A string, denoting the command to launch the
-language server. A list of strings, denoting an executable with
-its command line arguments. A function, that either returns a
-string or a list of strings. In all cases, the launched language
-server should send and receive messages on standard I/O.
-TEST-COMMAND is a function with no arguments which returns
-whether the command is present or not. When not specified
-`lsp-mode' will check whether the first element of the list
-returned by COMMAND is available via `executable-find'"
-  (cl-check-type command (or string
-                             function
-                             (and list
-                                  (satisfies (lambda (l)
-                                               (seq-every-p (lambda (el)
-                                                              (stringp el))
-                                                            l))))))
-  (list :connect (lambda (filter sentinel name environment-fn workspace)
-                   (if (and (functionp 'json-rpc-connection)
-                            (not (file-remote-p default-directory)))
-                       (lsp-json-rpc-connection workspace (lsp-resolve-final-command command))
-                     (let ((final-command (lsp-resolve-final-command command))
-                           (process-name (generate-new-buffer-name name))
-                           (process-environment
-                            (lsp--compute-process-environment environment-fn)))
-                       (let* ((stderr-buf (get-buffer-create (format "*%s::stderr*" process-name)))
-                              (default-directory (lsp--default-directory-for-connection))
-                              (tramp-use-ssh-controlmaster-options 'suppress)
-                              (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none")
-                              (proc (make-process
-                                     :name process-name
-                                     :connection-type 'pipe
-                                     :buffer (format "*%s*" process-name)
-                                     :coding 'no-conversion
-                                     :command final-command
-                                     :filter filter
-                                     :sentinel sentinel
-                                     :stderr stderr-buf
-                                     :noquery t
-                                     :file-handler t)))
-                         (set-process-query-on-exit-flag proc nil)
-                         (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil)
-                         (with-current-buffer (get-buffer stderr-buf)
-                           ;; Make the *NAME::stderr* buffer buffer-read-only, q to bury, etc.
-                           (special-mode))
-                         (cons proc proc)))))
-        :test? (or
-                test-command
-                (lambda ()
-                  (lsp-server-present? (lsp-resolve-final-command command t))))))
-
-(defun lsp--open-network-stream (host port name)
-  "Open network stream to HOST:PORT.
-  NAME will be passed to `open-network-stream'.
-  RETRY-COUNT is the number of the retries.
-  SLEEP-INTERVAL is the sleep interval between each retry."
-  (let* ((retries 0)
-         (sleep-interval 0.01)
-         (number-of-retries (/ lsp-tcp-connection-timeout sleep-interval))
-         connection)
-    (while (and (not connection) (< retries number-of-retries))
-      (condition-case err
-          (setq connection (open-network-stream name nil host port
-                                                :type 'plain
-                                                :coding 'no-conversion))
-        (file-error
-         (let ((inhibit-message t))
-           (lsp--warn "Failed to connect to %s:%s with error message %s"
-                      host
-                      port
-                      (error-message-string err))
-           (sleep-for sleep-interval)
-           (cl-incf retries)))))
-    (or connection (error "Port %s was never taken. Consider increasing `lsp-tcp-connection-timeout'." port))))
-
-(defun lsp--port-available (host port)
-  "Return non-nil if HOST and PORT are available."
-  (condition-case _err
-      (delete-process (open-network-stream "*connection-test*" nil host port :type 'plain))
-    (file-error t)))
-
-(defun lsp--find-available-port (host starting-port)
-  "Find available port on HOST starting from STARTING-PORT."
-  (let ((port starting-port))
-    (while (not (lsp--port-available host port))
-      (cl-incf port))
-    port))
-
-(defun lsp-tcp-connection (command-fn)
-  "Returns a connection property list similar to `lsp-stdio-connection'.
-COMMAND-FN can only be a function that takes a single argument, a
-port number. It should return a command for launches a language server
-process listening for TCP connections on the provided port."
-  (cl-check-type command-fn function)
-  (list
-   :connect (lambda (filter sentinel name environment-fn _workspace)
-              (let* ((host "localhost")
-                     (port (lsp--find-available-port host (cl-incf lsp--tcp-port)))
-                     (command (funcall command-fn port))
-                     (final-command (if (consp command) command (list command)))
-                     (_ (unless (lsp-server-present? final-command)
-                          (user-error (format "Couldn't find executable %s" (cl-first final-command)))))
-                     (process-environment
-                      (lsp--compute-process-environment environment-fn))
-                     (proc (make-process :name name :connection-type 'pipe :coding 'no-conversion
-                                         :command final-command :sentinel sentinel :stderr (format "*%s::stderr*" name) :noquery t))
-                     (tcp-proc (lsp--open-network-stream host port (concat name "::tcp"))))
-
-                ;; TODO: Same :noquery issue (see above)
-                (set-process-query-on-exit-flag proc nil)
-                (set-process-query-on-exit-flag tcp-proc nil)
-                (set-process-filter tcp-proc filter)
-                (cons tcp-proc proc)))
-   :test? (lambda () (lsp-server-present? (funcall command-fn 0)))))
-
-(defalias 'lsp-tcp-server 'lsp-tcp-server-command)
-
-(defun lsp-tcp-server-command (command-fn)
-  "Create tcp server connection.
-In this mode Emacs is TCP server and the language server connects
-to it. COMMAND is function with one parameter(the port) and it
-should return the command to start the LS server."
-  (cl-check-type command-fn function)
-  (list
-   :connect (lambda (filter sentinel name environment-fn _workspace)
-              (let* (tcp-client-connection
-                     (tcp-server (make-network-process :name (format "*tcp-server-%s*" name)
-                                                       :buffer (format "*tcp-server-%s*" name)
-                                                       :family 'ipv4
-                                                       :service lsp--tcp-server-port
-                                                       :sentinel (lambda (proc _string)
-                                                                   (lsp-log "Language server %s is connected." name)
-                                                                   (setf tcp-client-connection proc))
-                                                       :server 't))
-                     (port (process-contact tcp-server :service))
-                     (final-command (funcall command-fn port))
-                     (process-environment
-                      (lsp--compute-process-environment environment-fn))
-                     (cmd-proc (make-process :name name
-                                             :connection-type 'pipe
-                                             :coding 'no-conversion
-                                             :command final-command
-                                             :stderr (format "*tcp-server-%s*::stderr" name)
-                                             :noquery t)))
-                (let ((retries 0))
-                  ;; wait for the client to connect (we sit-for 500 ms, so have to double lsp--tcp-server-wait-seconds)
-                  (while (and (not tcp-client-connection) (< retries (* 2 lsp--tcp-server-wait-seconds)))
-                    (lsp--info "Waiting for connection for %s, retries: %s" name retries)
-                    (sit-for 0.500)
-                    (cl-incf retries)))
-
-                (unless tcp-client-connection
-                  (condition-case nil (delete-process tcp-server) (error))
-                  (condition-case nil (delete-process cmd-proc) (error))
-                  (error "Failed to create connection to %s on port %s" name port))
-                (lsp--info "Successfully connected to %s" name)
-
-                (set-process-query-on-exit-flag cmd-proc nil)
-                (set-process-query-on-exit-flag tcp-client-connection nil)
-                (set-process-query-on-exit-flag tcp-server nil)
-
-                (set-process-filter tcp-client-connection filter)
-                (set-process-sentinel tcp-client-connection sentinel)
-                (cons tcp-client-connection cmd-proc)))
-   :test? (lambda () (lsp-server-present? (funcall command-fn 0)))))
-
-(defalias 'lsp-tramp-connection 'lsp-stdio-connection)
-
-(defun lsp--auto-configure ()
-  "Autoconfigure `company', `flycheck', `lsp-ui', etc if they are installed."
-  (when (functionp 'lsp-ui-mode)
-    (lsp-ui-mode))
-
-  (if lsp-headerline-breadcrumb-enable
-      (add-hook 'lsp-configure-hook 'lsp-headerline-breadcrumb-mode)
-    (remove-hook 'lsp-configure-hook 'lsp-headerline-breadcrumb-mode))
-  (if lsp-modeline-code-actions-enable
-      (add-hook 'lsp-configure-hook 'lsp-modeline-code-actions-mode)
-    (remove-hook 'lsp-configure-hook 'lsp-modeline-code-actions-mode))
-  (if lsp-modeline-diagnostics-enable
-      (add-hook 'lsp-configure-hook 'lsp-modeline-diagnostics-mode)
-    (remove-hook 'lsp-configure-hook 'lsp-modeline-diagnostics-mode))
-  (if lsp-modeline-workspace-status-enable
-      (add-hook 'lsp-configure-hook 'lsp-modeline-workspace-status-mode)
-    (remove-hook 'lsp-configure-hook 'lsp-modeline-workspace-status-mode))
-  (if lsp-lens-enable
-      (add-hook 'lsp-configure-hook 'lsp-lens--enable)
-    (remove-hook 'lsp-configure-hook 'lsp-lens--enable))
-  (if lsp-semantic-tokens-enable
-      (add-hook 'lsp-configure-hook 'lsp-semantic-tokens--enable)
-    (remove-hook 'lsp-configure-hook 'lsp-semantic-tokens--enable))
-
-  ;; yas-snippet config
-  (setq-local yas-inhibit-overlay-modification-protection t))
-
-(defun lsp--restart-if-needed (workspace)
-  "Handler restart for WORKSPACE."
-  (when (or (eq lsp-restart 'auto-restart)
-            (eq (lsp--workspace-shutdown-action workspace) 'restart)
-            (and (eq lsp-restart 'interactive)
-                 (let ((query (format
-                               "Server %s exited (check corresponding stderr buffer for details). Do you want to restart it?"
-                               (lsp--workspace-print workspace))))
-                   (y-or-n-p query))))
-    (--each (lsp--workspace-buffers workspace)
-      (when (lsp-buffer-live-p it)
-        (lsp-with-current-buffer it
-          (if lsp--buffer-deferred
-              (lsp-deferred)
-            (lsp--info "Restarting LSP in buffer %s" (buffer-name))
-            (lsp)))))))
-
-(defun lsp--update-key (table key fn)
-  "Apply FN on value corresponding to KEY in TABLE."
-  (let ((existing-value (gethash key table)))
-    (if-let* ((new-value (funcall fn existing-value)))
-        (puthash key new-value table)
-      (remhash key table))))
-
-(defun lsp--process-sentinel (workspace process exit-str)
-  "Create the sentinel for WORKSPACE."
-  (unless (process-live-p process)
-    (lsp--handle-process-exit workspace exit-str)))
-
-(defun lsp--handle-process-exit (workspace exit-str)
-  (let* ((folder->workspaces (lsp-session-folder->servers (lsp-session)))
-         (proc (lsp--workspace-proc workspace)))
-    (lsp--warn "%s has exited (%s)"
-               (lsp-process-name proc)
-               (string-trim-right (or exit-str "")))
-    (with-lsp-workspace workspace
-      ;; Clean workspace related data in each of the buffers
-      ;; in the workspace.
-      (--each (lsp--workspace-buffers workspace)
-        (when (lsp-buffer-live-p it)
-          (lsp-with-current-buffer it
-            (setq lsp--buffer-workspaces (delete workspace lsp--buffer-workspaces))
-            (lsp--uninitialize-workspace)
-            (lsp--spinner-stop)
-            (lsp--remove-overlays 'lsp-highlight))))
-
-      ;; Cleanup session from references to the closed workspace.
-      (--each (hash-table-keys folder->workspaces)
-        (lsp--update-key folder->workspaces it (apply-partially 'delete workspace)))
-
-      (lsp-process-cleanup proc))
-
-    (run-hook-with-args 'lsp-after-uninitialized-functions workspace)
-
-    (if (eq (lsp--workspace-shutdown-action workspace) 'shutdown)
-        (lsp--info "Workspace %s shutdown." (lsp--workspace-print workspace))
-      (lsp--restart-if-needed workspace))
-    (lsp--cleanup-hanging-watches)))
-
-(defun lsp-workspace-folders (workspace)
-  "Return all folders associated with WORKSPACE."
-  (let (result)
-    (->> (lsp-session)
-         (lsp-session-folder->servers)
-         (maphash (lambda (folder workspaces)
-                    (when (-contains? workspaces workspace)
-                      (push folder result)))))
-    result))
-
-(defun lsp--start-workspace (session client-template root &optional initialization-options)
-  "Create new workspace for CLIENT-TEMPLATE with project root ROOT.
-INITIALIZATION-OPTIONS are passed to initialize function.
-SESSION is the active session."
-  (lsp--spinner-start)
-  (-let* ((default-directory root)
-          (client (copy-lsp--client client-template))
-          (workspace (make-lsp--workspace
-                      :root root
-                      :client client
-                      :status 'starting
-                      :buffers (list (lsp-current-buffer))
-                      :host-root (file-remote-p root)))
-          ((&lsp-cln 'server-id 'environment-fn 'new-connection 'custom-capabilities
-                     'multi-root 'initialized-fn) client)
-          ((proc . cmd-proc) (funcall
-                              (or (plist-get new-connection :connect)
-                                  (user-error "Client %s is configured incorrectly" client))
-                              (lsp--create-filter-function workspace)
-                              (apply-partially #'lsp--process-sentinel workspace)
-                              (format "%s" server-id)
-                              environment-fn
-                              workspace))
-          (workspace-folders (gethash server-id (lsp-session-server-id->folders session))))
-    (setf (lsp--workspace-proc workspace) proc
-          (lsp--workspace-cmd-proc workspace) cmd-proc)
-
-    ;; update (lsp-session-folder->servers) depending on whether we are starting
-    ;; multi/single folder workspace
-    (mapc (lambda (project-root)
-            (->> session
-                 (lsp-session-folder->servers)
-                 (gethash project-root)
-                 (cl-pushnew workspace)))
-          (or workspace-folders (list root)))
-
-    (with-lsp-workspace workspace
-      (run-hooks 'lsp-before-initialize-hook)
-      (lsp-request-async
-       "initialize"
-       (append
-        (list :processId (unless (file-remote-p (buffer-file-name))
-                           (emacs-pid))
-              :rootPath (lsp-file-local-name (expand-file-name root))
-              :clientInfo (list :name "emacs"
-                                :version (emacs-version))
-              :rootUri (lsp--path-to-uri root)
-              :capabilities (lsp--client-capabilities custom-capabilities)
-              :initializationOptions initialization-options
-              :workDoneToken "1")
-        (when lsp-server-trace
-          (list :trace lsp-server-trace))
-        (when multi-root
-          (->> workspace-folders
-               (-distinct)
-               (-map (lambda (folder)
-                       (list :uri (lsp--path-to-uri folder)
-                             :name (f-filename folder))))
-               (apply 'vector)
-               (list :workspaceFolders))))
-       (-lambda ((&InitializeResult :capabilities))
-         ;; we know that Rust Analyzer will send {} which will be parsed as null
-         ;; when using plists
-         (when (equal 'rust-analyzer server-id)
-           (-> capabilities
-               (lsp:server-capabilities-text-document-sync?)
-               (lsp:set-text-document-sync-options-save? t)))
-
-         (setf (lsp--workspace-server-capabilities workspace) capabilities
-               (lsp--workspace-status workspace) 'initialized)
-
-         (with-lsp-workspace workspace
-           (lsp-notify "initialized" lsp--empty-ht))
-
-         (when initialized-fn (funcall initialized-fn workspace))
-
-         (cl-callf2 -filter #'lsp-buffer-live-p (lsp--workspace-buffers workspace))
-         (->> workspace
-              (lsp--workspace-buffers)
-              (mapc (lambda (buffer)
-                      (lsp-with-current-buffer buffer
-                        (lsp--open-in-workspace workspace)))))
-
-         (with-lsp-workspace workspace
-           (run-hooks 'lsp-after-initialize-hook))
-         (lsp--info "%s initialized successfully in folders: %s"
-                    (lsp--workspace-print workspace)
-                    (lsp-workspace-folders workspace)))
-       :mode 'detached))
-    workspace))
-
-(defun lsp--load-default-session ()
-  "Load default session."
-  (setq lsp--session (or (condition-case err
-                             (lsp--read-from-file lsp-session-file)
-                           (error (lsp--error "Failed to parse the session %s, starting with clean one."
-                                              (error-message-string err))
-                                  nil))
-                         (make-lsp-session))))
-
-(defun lsp-session ()
-  "Get the session associated with the current buffer."
-  (or lsp--session (setq lsp--session (lsp--load-default-session))))
-
-(defun lsp--client-disabled-p (buffer-major-mode client)
-  (seq-some
-   (lambda (entry)
-     (pcase entry
-       ((pred symbolp) (eq entry client))
-       (`(,mode . ,client-or-list)
-        (and (eq mode buffer-major-mode)
-             (if (listp client-or-list)
-                 (memq client client-or-list)
-               (eq client client-or-list))))))
-   lsp-disabled-clients))
-
-
-;; download server
-
-(defcustom lsp-server-install-dir (expand-file-name
-                                   (locate-user-emacs-file (f-join ".cache" "lsp")))
-  "Directory in which the servers will be installed."
-  :risky t
-  :type 'directory
-  :package-version '(lsp-mode . "6.3")
-  :group 'lsp-mode)
-
-(defcustom lsp-verify-signature t
-  "Whether to check GPG signatures of downloaded files."
-  :type 'boolean
-  :package-version '(lsp-mode . "8.0.0")
-  :group 'lsp-mode)
-
-(defvar lsp--dependencies (ht))
-
-(defun lsp-dependency (name &rest definitions)
-  "Used to specify a language server DEPENDENCY, the server
-executable or other required file path. Typically, the
-DEPENDENCY is found by locating it on the system path using
-`executable-find'.
-
-You can explicitly call lsp-dependency in your environment to
-specify the absolute path to the DEPENDENCY. For example, the
-typescript-language-server requires both the server and the
-typescript compiler. If you have installed them in a team shared
-read-only location, you can instruct lsp-mode to use them via
-
- (eval-after-load `lsp-mode
-   `(progn
-      (require lsp-javascript)
-      (lsp-dependency typescript-language-server (:system ,tls-exe))
-      (lsp-dependency typescript (:system ,ts-js))))
-
-where tls-exe is the absolute path to the typescript-language-server
-executable and ts-js is the absolute path to the typescript compiler
-JavaScript file, tsserver.js (the *.js is required for Windows)."
-  (ht-set lsp--dependencies name definitions))
-
-(defun lsp--server-binary-present? (client)
-  (unless (equal (lsp--client-server-id client) 'lsp-pwsh)
-    (condition-case ()
-        (-some-> client lsp--client-new-connection (plist-get :test?) funcall)
-      (error nil)
-      (args-out-of-range nil))))
-
-(define-minor-mode lsp-installation-buffer-mode
-  "Mode used in *lsp-installation* buffers.
-It can be used to set-up keybindings, etc. Disabling this mode
-detaches the installation buffer from commands like
-`lsp-select-installation-buffer'."
-  :init-value nil
-  :lighter nil)
-
-(defface lsp-installation-finished-buffer-face '((t :foreground "orange"))
-  "Face used for finished installation buffers.
-Used in `lsp-select-installation-buffer'."
-  :group 'lsp-mode)
-
-(defface lsp-installation-buffer-face '((t :foreground "green"))
-  "Face used for installation buffers still in progress.
-Used in `lsp-select-installation-buffer'."
-  :group 'lsp-mode)
-
-(defun lsp--installation-buffer? (buf)
-  "Check whether BUF is an `lsp-async-start-process' buffer."
-  (buffer-local-value 'lsp-installation-buffer-mode buf))
-
-(defun lsp-select-installation-buffer (&optional show-finished)
-  "Interactively choose an installation buffer.
-If SHOW-FINISHED is set, leftover (finished) installation buffers
-are still shown."
-  (interactive "P")
-  (let ((bufs (--filter (and (lsp--installation-buffer? it)
-                             (or show-finished (get-buffer-process it)))
-                        (buffer-list))))
-    (pcase bufs
-      (`nil (user-error "No installation buffers"))
-      (`(,buf) (pop-to-buffer buf))
-      (bufs (pop-to-buffer (completing-read "Select installation buffer: "
-                                            (--map (propertize (buffer-name it) 'face
-                                                               (if (get-buffer-process it)
-                                                                   'lsp-installation-buffer-face
-                                                                 'lsp-installation-finished-buffer-face))
-                                                   bufs)))))))
-
-(defun lsp-cleanup-installation-buffers ()
-  "Delete finished *lsp-installation* buffers."
-  (interactive)
-  (dolist (buf (buffer-list))
-    (when (and (lsp--installation-buffer? buf) (not (get-buffer-process buf)))
-      (kill-buffer buf))))
-
-(defun lsp--download-status ()
-  (-some--> #'lsp--client-download-in-progress?
-    (lsp--filter-clients it)
-    (-map (-compose #'symbol-name #'lsp--client-server-id) it)
-    (format "%s" it)
-    (propertize it 'face 'success)
-    (format " Installing following servers: %s" it)
-    (propertize it
-                'local-map (make-mode-line-mouse-map
-                            'mouse-1 #'lsp-select-installation-buffer)
-                'mouse-face 'highlight)))
-
-(defun lsp--install-server-internal (client &optional update?)
-  (unless (lsp--client-download-server-fn client)
-    (user-error "There is no automatic installation for `%s', you have to install it manually following lsp-mode's documentation."
-                (lsp--client-server-id client)))
-
-  (setf (lsp--client-download-in-progress? client) t)
-  (add-to-list 'global-mode-string '(t (:eval (lsp--download-status))))
-  (cl-flet ((done
-             (success? &optional error-message)
-             ;; run with idle timer to make sure the lsp command is executed in
-             ;; the main thread, see #2739.
-             (run-with-timer
-              0.0
-              nil
-              (lambda ()
-                (-let [(&lsp-cln 'server-id 'buffers) client]
-                  (setf (lsp--client-download-in-progress? client) nil
-                        (lsp--client-buffers client) nil)
-                  (if success?
-                      (lsp--info "Server %s downloaded, auto-starting in %s buffers." server-id
-                                 (length buffers))
-                    (lsp--error "Server %s install process failed with the following error message: %s.
-Check `*lsp-install*' and `*lsp-log*' buffer."
-                                server-id
-                                error-message))
-                  (seq-do
-                   (lambda (buffer)
-                     (when (lsp-buffer-live-p buffer)
-                       (lsp-with-current-buffer buffer
-                         (cl-callf2 -remove-item '(t (:eval (lsp--download-status)))
-                                    global-mode-string)
-                         (when success? (lsp)))))
-                   buffers)
-                  (unless (lsp--filter-clients #'lsp--client-download-in-progress?)
-                    (cl-callf2 -remove-item '(t (:eval (lsp--download-status)))
-                               global-mode-string)))))))
-    (lsp--info "Download %s started." (lsp--client-server-id client))
-    (condition-case err
-        (funcall
-         (lsp--client-download-server-fn client)
-         client
-         (lambda () (done t))
-         (lambda (msg) (done nil msg))
-         update?)
-      (error
-       (done nil (error-message-string err))))))
-
-(defun lsp--require-packages ()
-  "Load `lsp-client-packages' if needed."
-  (when (and lsp-auto-configure (not lsp--client-packages-required))
-    (seq-do (lambda (package)
-              ;; loading client is slow and `lsp' can be called repeatedly
-              (unless (featurep package)
-                (require package nil t)))
-            lsp-client-packages)
-    (setq lsp--client-packages-required t)))
-
-;;;###autoload
-(defun lsp-install-server (update? &optional server-id)
-  "Interactively install or re-install server.
-When prefix UPDATE? is t force installation even if the server is present."
-  (interactive "P")
-  (lsp--require-packages)
-  (let* ((chosen-client (or (gethash server-id lsp-clients)
-                            (lsp--completing-read
-                             "Select server to install/re-install: "
-                             (or (->> lsp-clients
-                                      (ht-values)
-                                      (-filter (-andfn
-                                                (-not #'lsp--client-download-in-progress?)
-                                                #'lsp--client-download-server-fn)))
-                                 (user-error "There are no servers with automatic installation"))
-                             (lambda (client)
-                               (let ((server-name (-> client lsp--client-server-id symbol-name)))
-                                 (if (lsp--server-binary-present? client)
-                                     (concat server-name " (Already installed)")
-                                   server-name)))
-                             nil
-                             t)))
-         (update? (or update?
-                      (and (not (lsp--client-download-in-progress? chosen-client))
-                           (lsp--server-binary-present? chosen-client)))))
-    (lsp--install-server-internal chosen-client update?)))
-
-;;;###autoload
-(defun lsp-uninstall-server (dir)
-  "Delete a LSP server from `lsp-server-install-dir'."
-  (interactive
-   (list (read-directory-name "Uninstall LSP server: " (f-slash lsp-server-install-dir))))
-  (unless (file-directory-p dir)
-    (user-error "Couldn't find %s directory" dir))
-  (delete-directory dir 'recursive)
-  (message "Server `%s' uninstalled." (file-name-nondirectory (directory-file-name dir))))
-
-;;;###autoload
-(defun lsp-uninstall-servers ()
-  "Uninstall all installed servers."
-  (interactive)
-  (let* ((dir lsp-server-install-dir)
-         (servers (ignore-errors
-                    (directory-files dir t
-                                     directory-files-no-dot-files-regexp))))
-    (if (or (not (file-directory-p dir)) (zerop (length servers)))
-        (user-error "No servers to uninstall")
-      (when (yes-or-no-p
-             (format "Servers to uninstall: %d (%s), proceed? "
-                     (length servers)
-                     (mapconcat (lambda (server)
-                                  (file-name-nondirectory (directory-file-name server)))
-                                servers " ")))
-        (mapc #'lsp-uninstall-server servers)
-        (message "All servers uninstalled")))))
-
-;;;###autoload
-(defun lsp-update-server (&optional server-id)
-  "Interactively update (reinstall) a server."
-  (interactive)
-  (lsp--require-packages)
-  (let ((chosen-client (or (gethash server-id lsp-clients)
-                           (lsp--completing-read
-                            "Select server to update (if not on the list, probably you need to `lsp-install-server`): "
-                            (or (->> lsp-clients
-                                     (ht-values)
-                                     (-filter (-andfn
-                                               (-not #'lsp--client-download-in-progress?)
-                                               #'lsp--client-download-server-fn
-                                               #'lsp--server-binary-present?)))
-                                (user-error "There are no servers to update"))
-                            (lambda (client)
-                              (-> client lsp--client-server-id symbol-name))
-                            nil
-                            t))))
-    (lsp--install-server-internal chosen-client t)))
-
-;;;###autoload
-(defun lsp-update-servers ()
-  "Update (reinstall) all installed servers."
-  (interactive)
-  (lsp--require-packages)
-  (mapc (lambda (client) (lsp--install-server-internal client t))
-        (-filter (-andfn
-                  (-not #'lsp--client-download-in-progress?)
-                  #'lsp--client-download-server-fn
-                  #'lsp--server-binary-present?) (hash-table-values lsp-clients))))
-
-;;;###autoload
-(defun lsp-ensure-server (server-id)
-  "Ensure server SERVER-ID"
-  (lsp--require-packages)
-  (if-let* ((client (gethash server-id lsp-clients)))
-      (unless (lsp--server-binary-present? client)
-        (lsp--info "Server `%s' is not preset, installing..." server-id)
-        (lsp-install-server nil server-id))
-    (warn "Unable to find server registration with id %s" server-id)))
-
-(defun lsp-async-start-process (callback error-callback &rest command)
-  "Start async process COMMAND with CALLBACK and ERROR-CALLBACK."
-  (let ((name (cl-first command)))
-    (with-current-buffer (compilation-start (mapconcat #'shell-quote-argument (-filter (lambda (cmd)
-                                                                                         (not (null cmd)))
-                                                                                       command)
-                                                       " ") t
-                                            (lambda (&rest _)
-                                              (generate-new-buffer-name (format "*lsp-install: %s*" name))))
-      (lsp-installation-buffer-mode +1)
-      (view-mode +1)
-      (add-hook
-       'compilation-finish-functions
-       (lambda (_buf status)
-         (if (string= "finished\n" status)
-             (condition-case err
-                 (funcall callback)
-               (error
-                (funcall error-callback (error-message-string err))))
-           (funcall error-callback (s-trim-right status))))
-       nil t))))
-
-(defun lsp-resolve-value (value)
-  "Resolve VALUE's value.
-If it is function - call it.
-If it is a variable - return it's value
-Otherwise returns value itself."
-  (cond
-   ((functionp value) (funcall value))
-   ((and (symbolp value) (boundp value)) (symbol-value value))
-   (value)))
-
-(defvar lsp-deps-providers
-  (list :npm (list :path #'lsp--npm-dependency-path
-                   :install #'lsp--npm-dependency-install)
-        :cargo (list :path #'lsp--cargo-dependency-path
-                     :install #'lsp--cargo-dependency-install)
-        :system (list :path #'lsp--system-path)
-        :download (list :path #'lsp-download-path
-                        :install #'lsp-download-install)))
-
-(defun lsp--system-path (path)
-  "If PATH is absolute and exists return it as is. Otherwise,
-return the absolute path to the executable defined by PATH or
-nil."
-  ;; For node.js 'sub-packages' PATH may point to a *.js file. Consider the
-  ;; typescript-language-server. When lsp invokes the server, lsp needs to
-  ;; supply the path to the typescript compiler, tsserver.js, as an argument. To
-  ;; make code platform independent, one must pass the absolute path to the
-  ;; tsserver.js file (Windows requires a *.js file - see help on the JavaScript
-  ;; child process spawn command that is invoked by the
-  ;; typescript-language-server). This is why we check for existence and not
-  ;; that the path is executable.
-  (let ((path (lsp-resolve-value path)))
-    (cond
-     ((and (f-absolute? path)
-           (f-exists? path))
-      path)
-     ((executable-find path t) path))))
-
-(defun lsp-package-path (dependency)
-  "Path to the DEPENDENCY each of the registered providers."
-  (let (path)
-    (--first (-let [(provider . rest) it]
-              (setq path (-some-> lsp-deps-providers
-                           (plist-get provider)
-                           (plist-get :path)
-                           (apply rest))))
-             (gethash dependency lsp--dependencies))
-    path))
-
-(defun lsp-package-ensure (dependency callback error-callback)
-  "Asynchronously ensure a package."
-  (or (-first (-lambda ((provider . rest))
-                (-some-> lsp-deps-providers
-                  (plist-get provider)
-                  (plist-get :install)
-                  (apply (cl-list* callback error-callback rest))))
-              (gethash dependency lsp--dependencies))
-      (funcall error-callback (format "Unable to find a way to install %s" dependency))))
-
-
-;; npm handling
-
-;; https://docs.npmjs.com/files/folders#executables
-(cl-defun lsp--npm-dependency-path (&key package path &allow-other-keys)
-  "Return npm dependency PATH for PACKAGE."
-  (let ((path (executable-find
-               (f-join lsp-server-install-dir "npm" package
-                       (cond ((eq system-type 'windows-nt) "")
-                             (t "bin"))
-                       path)
-               t)))
-    (unless (and path (f-exists? path))
-      (error "The package %s is not installed.  Unable to find %s" package path))
-    path))
-
-(cl-defun lsp--npm-dependency-install (callback error-callback &key package &allow-other-keys)
-  (if-let* ((npm-binary (executable-find "npm")))
-      (progn
-        ;; Explicitly `make-directory' to work around NPM bug in
-        ;; versions 7.0.0 through 7.4.1. See
-        ;; https://github.com/emacs-lsp/lsp-mode/issues/2364 for
-        ;; discussion.
-        (make-directory (f-join lsp-server-install-dir "npm" package "lib") 'parents)
-        (lsp-async-start-process (lambda ()
-                                   (if (string-empty-p
-                                        (string-trim (shell-command-to-string
-                                                      (mapconcat #'shell-quote-argument `(,npm-binary "view" ,package "peerDependencies") " "))))
-                                       (funcall callback)
-                                     (let ((default-directory (f-dirname (car (last (directory-files-recursively (f-join lsp-server-install-dir "npm" package) "package.json")))))
-                                           (process-environment (append '("npm_config_yes=true") process-environment))) ;; Disable prompting for older versions of npx
-                                       (when (f-dir-p default-directory)
-                                         (lsp-async-start-process callback
-                                                                  error-callback
-                                                                  (executable-find "npx")
-                                                                  "npm-install-peers")))))
-                                 error-callback
-                                 npm-binary
-                                 "-g"
-                                 "--prefix"
-                                 (f-join lsp-server-install-dir "npm" package)
-                                 "install"
-                                 package))
-    (lsp-log "Unable to install %s via `npm' because it is not present" package)
-    nil))
-
-
-;; Cargo dependency handling
-(cl-defun lsp--cargo-dependency-path (&key package path &allow-other-keys)
-  (let ((path (executable-find
-               (f-join lsp-server-install-dir
-                       "cargo"
-                       package
-                       "bin"
-                       path)
-               t)))
-    (unless (and path (f-exists? path))
-      (error "The package %s is not installed.  Unable to find %s" package path))
-    path))
-
-(cl-defun lsp--cargo-dependency-install (callback error-callback &key package git &allow-other-keys)
-  (if-let* ((cargo-binary (executable-find "cargo")))
-      (lsp-async-start-process
-       callback
-       error-callback
-       cargo-binary
-       "install"
-       package
-       (when git
-         "--git")
-       git
-       "--root"
-       (f-join lsp-server-install-dir "cargo" package))
-    (lsp-log "Unable to install %s via `cargo' because it is not present" package)
-    nil))
-
-
-
-;; Download URL handling
-(cl-defun lsp-download-install (callback error-callback &key url asc-url pgp-key store-path decompress &allow-other-keys)
-  (let* ((url (lsp-resolve-value url))
-         (store-path (lsp-resolve-value store-path))
-         ;; (decompress (lsp-resolve-value decompress))
-         (download-path
-          (pcase decompress
-            (:gzip (concat store-path ".gz"))
-            (:zip (concat store-path ".zip"))
-            (:targz (concat store-path ".tar.gz"))
-            (`nil store-path)
-            (_ (error ":decompress must be `:gzip', `:zip', `:targz' or `nil'")))))
-    (make-thread
-     (lambda ()
-       (condition-case err
-           (progn
-             (when (f-exists? download-path)
-               (f-delete download-path))
-             (when (f-exists? store-path)
-               (f-delete store-path))
-             (lsp--info "Starting to download %s to %s..." url download-path)
-             (mkdir (f-parent download-path) t)
-             (url-copy-file url download-path)
-             (lsp--info "Finished downloading %s..." download-path)
-             (when (and lsp-verify-signature asc-url pgp-key)
-               (if (executable-find epg-gpg-program)
-                   (let ((asc-download-path (concat download-path ".asc"))
-                         (context (epg-make-context))
-                         (fingerprint)
-                         (signature))
-                     (when (f-exists? asc-download-path)
-                       (f-delete asc-download-path))
-                     (lsp--info "Starting to download %s to %s..." asc-url asc-download-path)
-                     (url-copy-file asc-url asc-download-path)
-                     (lsp--info "Finished downloading %s..." asc-download-path)
-                     (epg-import-keys-from-string context pgp-key)
-                     (setq fingerprint (epg-import-status-fingerprint
-                                        (car
-                                         (epg-import-result-imports
-                                          (epg-context-result-for context 'import)))))
-                     (lsp--info "Verifying signature %s..." asc-download-path)
-                     (epg-verify-file context asc-download-path download-path)
-                     (setq signature (car (epg-context-result-for context 'verify)))
-                     (unless (and
-                              (eq (epg-signature-status signature) 'good)
-                              (equal (epg-signature-fingerprint signature) fingerprint))
-                       (error "Failed to verify GPG signature: %s" (epg-signature-to-string signature))))
-                 (lsp--warn "GPG is not installed, skipping the signature check.")))
-             (when decompress
-               (lsp--info "Decompressing %s..." download-path)
-               (pcase decompress
-                 (:gzip
-                  (lsp-gunzip download-path))
-                 (:zip (lsp-unzip download-path (f-parent store-path)))
-                 (:targz (lsp-tar-gz-decompress download-path (f-parent store-path))))
-               (lsp--info "Decompressed %s..." store-path))
-             (funcall callback))
-         (error (funcall error-callback err)))))))
-
-(cl-defun lsp-download-path (&key store-path binary-path set-executable? &allow-other-keys)
-  "Download URL and store it into STORE-PATH.
-
-SET-EXECUTABLE? when non-nil change the executable flags of
-STORE-PATH to make it executable. BINARY-PATH can be specified
-when the binary to start does not match the name of the
-archive (e.g. when the archive has multiple files)"
-  (let ((store-path (or (lsp-resolve-value binary-path)
-                        (lsp-resolve-value store-path))))
-    (cond
-     ((executable-find store-path) store-path)
-     ((and set-executable? (f-exists? store-path))
-      (set-file-modes store-path #o0700)
-      store-path)
-     ((f-exists? store-path) store-path))))
-
-(defun lsp--find-latest-gh-release-url (url regex)
-  "Fetch the latest version in the releases given by URL by using REGEX."
-  (let ((url-request-method "GET"))
-    (with-current-buffer (url-retrieve-synchronously url)
-      (goto-char (point-min))
-      (re-search-forward "\n\n" nil 'noerror)
-      (delete-region (point-min) (point))
-      (let* ((json-result (lsp-json-read-buffer)))
-        (message "Latest version found: %s" (lsp-get json-result :tag_name))
-        (--> json-result
-             (lsp-get it :assets)
-             (seq-find (lambda (entry) (string-match-p regex (lsp-get entry :name))) it)
-             (lsp-get it :browser_download_url))))))
-
-;; unzip
-
-(defconst lsp-ext-pwsh-script "pwsh -noprofile -noninteractive \
--nologo -ex bypass -c Expand-Archive -Path '%s' -DestinationPath '%s'"
-  "Pwsh script to unzip file.")
-
-(defconst lsp-ext-powershell-script "powershell -noprofile -noninteractive \
--nologo -ex bypass -command Expand-Archive -path '%s' -dest '%s'"
-  "Powershell script to unzip file.")
-
-(defconst lsp-ext-unzip-script "bash -c 'mkdir -p %2$s && unzip -qq -o %1$s -d %2$s'"
-  "Unzip script to unzip file.")
-
-(defcustom lsp-unzip-script (lambda ()
-                              (cond ((and (eq system-type 'windows-nt)
-                                          (executable-find "pwsh"))
-                                     lsp-ext-pwsh-script)
-                                    ((and (eq system-type 'windows-nt)
-                                          (executable-find "powershell"))
-                                     lsp-ext-powershell-script)
-                                    ((executable-find "unzip") lsp-ext-unzip-script)
-                                    ((executable-find "pwsh") lsp-ext-pwsh-script)
-                                    (t nil)))
-  "The script to unzip."
-  :group 'lsp-mode
-  :type 'string
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defun lsp-unzip (zip-file dest)
-  "Unzip ZIP-FILE to DEST."
-  (unless lsp-unzip-script
-    (error "Unable to find `unzip' or `powershell' on the path, please customize `lsp-unzip-script'"))
-  (shell-command (format (lsp-resolve-value lsp-unzip-script) zip-file dest)))
-
-;; gunzip
-
-(defconst lsp-ext-gunzip-script "gzip -d %1$s"
-  "Script to decompress a gzippped file with gzip.")
-
-(defcustom lsp-gunzip-script (lambda ()
-                               (cond ((executable-find "gzip") lsp-ext-gunzip-script)
-                                     (t nil)))
-  "The script to decompress a gzipped file.
-Should be a format string with one argument for the file to be decompressed
-in place."
-  :group 'lsp-mode
-  :type 'string
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defun lsp-gunzip (gz-file)
-  "Decompress GZ-FILE in place."
-  (unless lsp-gunzip-script
-    (error "Unable to find `gzip' on the path, please either customize `lsp-gunzip-script' or manually decompress %s" gz-file))
-  (shell-command (format (lsp-resolve-value lsp-gunzip-script) gz-file)))
-
-;; tar.gz decompression
-
-(defconst lsp-ext-tar-script "bash -c 'mkdir -p %2$s; tar xf %1$s --directory=%2$s'"
-  "Script to decompress a .tar.gz file.")
-
-(defcustom lsp-tar-script (lambda ()
-                            (cond ((executable-find "tar") lsp-ext-tar-script)
-                                  (t nil)))
-  "The script to decompress a .tar.gz file.
-Should be a format string with one argument for the file to be decompressed
-in place."
-  :group 'lsp-mode
-  :type 'string)
-
-(defun lsp-tar-gz-decompress (targz-file dest)
-  "Decompress TARGZ-FILE in DEST."
-  (unless lsp-tar-script
-    (error "Unable to find `tar' on the path, please either customize `lsp-tar-script' or manually decompress %s" targz-file))
-  (shell-command (format (lsp-resolve-value lsp-tar-script) targz-file dest)))
-
-
-;; VSCode marketplace
-
-(defcustom lsp-vscode-ext-url
-  "https://marketplace.visualstudio.com/_apis/public/gallery/publishers/%s/vsextensions/%s/%s/vspackage%s"
-  "Vscode extension template url."
-  :group 'lsp-mode
-  :type 'string
-  :package-version '(lsp-mode . "8.0.0"))
-
-(defun lsp-vscode-extension-url (publisher name version &optional targetPlatform)
-  "Return the URL to vscode extension.
-PUBLISHER is the extension publisher.
-NAME is the name of the extension.
-VERSION is the version of the extension.
-TARGETPLATFORM is the targetPlatform of the extension."
-  (format lsp-vscode-ext-url publisher name version (or targetPlatform "")))
-
-
-
-;; Queueing prompts
-
-(defvar lsp--question-queue nil
-  "List of questions yet to be asked by `lsp-ask-question'.")
-
-(defun lsp-ask-question (question options callback)
-  "Prompt the user to answer the QUESTION with one of the OPTIONS from the
-minibuffer. Once the user selects an option, the CALLBACK function will be
-called, passing the selected option to it.
-
-If the user is currently being shown a question, the question will be stored in
-`lsp--question-queue', and will be asked once the user has answered the current
-question."
-  (add-to-list 'lsp--question-queue `(("question" . ,question)
-                                      ("options" . ,options)
-                                      ("callback" . ,callback)) t)
-  (when (eq (length lsp--question-queue) 1)
-    (lsp--process-question-queue)))
-
-(defun lsp--process-question-queue ()
-  "Take the first question from `lsp--question-queue', process it, then process
-the next question until the queue is empty."
-  (-let* (((&alist "question" "options" "callback") (car lsp--question-queue))
-          (answer (completing-read question options nil t)))
-    (pop lsp--question-queue)
-    (funcall callback answer)
-    (when lsp--question-queue
-      (lsp--process-question-queue))))
-
-(defun lsp--supports-buffer? (client)
-  (and
-   ;; both file and client remote or both local
-   (eq (---truthy? (file-remote-p (buffer-file-name)))
-       (---truthy? (lsp--client-remote? client)))
-
-   ;; activation function or major-mode match.
-   (if-let* ((activation-fn (lsp--client-activation-fn client)))
-       (funcall activation-fn (buffer-file-name) major-mode)
-     (-contains? (lsp--client-major-modes client) major-mode))
-
-   ;; check whether it is enabled if `lsp-enabled-clients' is not null
-   (or (null lsp-enabled-clients)
-       (or (member (lsp--client-server-id client) lsp-enabled-clients)
-           (ignore (lsp--info "Client %s is not in lsp-enabled-clients"
-                              (lsp--client-server-id client)))))
-
-   ;; check whether it is not disabled.
-   (not (lsp--client-disabled-p major-mode (lsp--client-server-id client)))))
-
-(defun lsp--filter-clients (pred)
-  (->> lsp-clients hash-table-values (-filter pred)))
-
-(defun lsp--find-clients ()
-  "Find clients which can handle current buffer."
-  (-when-let (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer?
-                                                            #'lsp--server-binary-present?)))
-    (lsp-log "Found the following clients for %s: %s"
-             (buffer-file-name)
-             (s-join ", "
-                     (-map (lambda (client)
-                             (format "(server-id %s, priority %s)"
-                                     (lsp--client-server-id client)
-                                     (lsp--client-priority client)))
-                           matching-clients)))
-    (-let* (((add-on-clients main-clients) (-separate #'lsp--client-add-on? matching-clients))
-            (selected-clients (if-let* ((main-client (and main-clients
-                                                         (--max-by (> (lsp--client-priority it)
-                                                                      (lsp--client-priority other))
-                                                                   main-clients))))
-                                  (cons main-client add-on-clients)
-                                add-on-clients)))
-      (lsp-log "The following clients were selected based on priority: %s"
-               (s-join ", "
-                       (-map (lambda (client)
-                               (format "(server-id %s, priority %s)"
-                                       (lsp--client-server-id client)
-                                       (lsp--client-priority client)))
-                             selected-clients)))
-      selected-clients)))
-
-(defun lsp-workspace-remove-all-folders()
-  "Delete all lsp tracked folders."
-  (interactive)
-  (--each (lsp-session-folders (lsp-session))
-    (lsp-workspace-folders-remove it)))
-
-(defun lsp-register-client (client)
-  "Registers LSP client CLIENT."
-  (let ((client-id (lsp--client-server-id client)))
-    (puthash client-id client lsp-clients)
-    (setplist (intern (format "lsp-%s-after-open-hook" client-id))
-              `( standard-value (nil) custom-type hook
-                 custom-package-version (lsp-mode . "7.0.1")
-                 variable-documentation ,(format "Hooks to run after `%s' server is run." client-id)
-                 custom-requests nil)))
-  (when (and lsp-auto-register-remote-clients
-             (not (lsp--client-remote? client)))
-    (let ((remote-client (copy-lsp--client client)))
-      (setf (lsp--client-remote? remote-client) t
-            (lsp--client-server-id remote-client) (intern
-                                                   (format "%s-tramp"
-                                                           (lsp--client-server-id client)))
-            ;; disable automatic download
-            (lsp--client-download-server-fn remote-client) nil)
-      (lsp-register-client remote-client))))
-
-(defun lsp--create-initialization-options (_session client)
-  "Create initialization-options from SESSION and CLIENT.
-Add workspace folders depending on server being multiroot and
-session workspace folder configuration for the server."
-  (let* ((initialization-options-or-fn (lsp--client-initialization-options client)))
-    (if (functionp initialization-options-or-fn)
-        (funcall initialization-options-or-fn)
-      initialization-options-or-fn)))
-
-(defvar lsp-client-settings (make-hash-table :test 'equal)
-  "For internal use, any external users please use
-  `lsp-register-custom-settings' function instead")
-
-(defun lsp-register-custom-settings (props)
-  "Register PROPS.
-PROPS is list of triple (path value boolean?) where PATH is the path to the
-property; VALUE can be a literal value, symbol to be evaluated, or either a
-function or lambda function to be called without arguments; BOOLEAN? is an
-optional flag that should be non-nil for boolean settings, when it is nil the
-property will be ignored if the VALUE is nil.
-
-Example: `(lsp-register-custom-settings `((\"foo.bar.buzz.enabled\" t t)))'
-\(note the double parentheses)"
-  (mapc
-   (-lambda ((path . rest))
-     (puthash path rest lsp-client-settings))
-   props))
-
-(defun lsp-region-text (region)
-  "Get the text for REGION in current buffer."
-  (-let (((start . end) (lsp--range-to-region region)))
-    (buffer-substring-no-properties start end)))
-
-(defun lsp-ht-set (tbl paths value)
-  "Set nested hash table value.
-TBL - a hash table, PATHS is the path to the nested VALUE."
-  (pcase paths
-    (`(,path) (ht-set! tbl path value))
-    (`(,path . ,rst) (let ((nested-tbl (or (gethash path tbl)
-                                           (let ((temp-tbl (ht)))
-                                             (ht-set! tbl path temp-tbl)
-                                             temp-tbl))))
-                       (lsp-ht-set nested-tbl rst value)))))
-
-;; sections
-
-(defalias 'defcustom-lsp 'lsp-defcustom)
-
-(defmacro lsp-defcustom (symbol standard doc &rest args)
-  "Defines `lsp-mode' server property."
-  (declare (doc-string 3) (debug (name body))
-           (indent defun))
-  (let ((path (plist-get args :lsp-path))
-        (setter (intern (concat (symbol-name symbol) "--set"))))
-    (cl-remf args :lsp-path)
-    `(progn
-       (lsp-register-custom-settings
-        (quote ((,path ,symbol ,(equal ''boolean (plist-get args :type))))))
-
-       (defcustom ,symbol ,standard ,doc ,@args)
-
-       ;; Use a variable watcher instead of registering a `defcustom'
-       ;; setter since `hack-local-variables' is not aware of custom
-       ;; setters and won't invoke them.
-
-       (defun ,setter (sym val op _where)
-         (when (eq op 'set)
-           (lsp--set-custom-property sym val ,path)))
-
-       (add-variable-watcher ',symbol #',setter))))
-
-(defun lsp--set-custom-property (sym val path)
-  (set sym val)
-  (let ((section (cl-first (s-split "\\." path))))
-    (mapc (lambda (workspace)
-            (when (-contains? (lsp--client-synchronize-sections (lsp--workspace-client workspace))
-                              section)
-              (with-lsp-workspace workspace
-                (lsp--set-configuration (lsp-configuration-section section)))))
-          (lsp--session-workspaces (lsp-session)))))
-
-(defun lsp-configuration-section (section)
-  "Get settings for SECTION."
-  (let ((ret (ht-create)))
-    (maphash (-lambda (path (variable boolean?))
-               (when (s-matches? (concat (regexp-quote section) "\\..*") path)
-                 (let* ((symbol-value (-> variable
-                                          lsp-resolve-value
-                                          lsp-resolve-value))
-                        (value (if (and boolean? (not symbol-value))
-                                   :json-false
-                                 symbol-value)))
-                   (when (or boolean? value)
-                     (lsp-ht-set ret (s-split "\\." path) value)))))
-             lsp-client-settings)
-    ret))
-
-
-(defun lsp--start-connection (session client project-root)
-  "Initiates connection created from CLIENT for PROJECT-ROOT.
-SESSION is the active session."
-  (when (lsp--client-multi-root client)
-    (cl-pushnew project-root (gethash (lsp--client-server-id client)
-                                      (lsp-session-server-id->folders session))))
-  (run-hook-with-args 'lsp-workspace-folders-changed-functions (list project-root) nil)
-
-  (unwind-protect
-      (lsp--start-workspace session client project-root (lsp--create-initialization-options session client))
-    (lsp--spinner-stop)))
-
-;; lsp-log-io-mode
-
-(defvar lsp-log-io-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "M-n") #'lsp-log-io-next)
-    (define-key map (kbd "M-p") #'lsp-log-io-prev)
-    (define-key map (kbd "k") #'lsp--erase-log-buffer)
-    (define-key map (kbd "K") #'lsp--erase-session-log-buffers)
-    map)
-  "Keymap for lsp log buffer mode.")
-
-(define-derived-mode lsp-log-io-mode special-mode "LspLogIo"
-  "Special mode for viewing IO logs.")
-
-(defun lsp-workspace-show-log (workspace)
-  "Display the log buffer of WORKSPACE."
-  (interactive
-   (list (if lsp-log-io
-             (if (eq (length (lsp-workspaces)) 1)
-                 (cl-first (lsp-workspaces))
-               (lsp--completing-read "Workspace: " (lsp-workspaces)
-                                     #'lsp--workspace-print nil t))
-           (user-error "IO logging is disabled"))))
-  (pop-to-buffer (lsp--get-log-buffer-create workspace)))
-
-(defalias 'lsp-switch-to-io-log-buffer 'lsp-workspace-show-log)
-
-(defun lsp--get-log-buffer-create (workspace)
-  "Return the lsp log buffer of WORKSPACE, creating a new one if needed."
-  (let* ((server-id (-> workspace lsp--workspace-client lsp--client-server-id symbol-name))
-         (pid (-> workspace lsp--workspace-cmd-proc lsp-process-id)))
-    (get-buffer-create (format "*lsp-log: %s:%s*" server-id pid))))
-
-(defun lsp--erase-log-buffer (&optional all)
-  "Delete contents of current lsp log buffer.
-When ALL is t, erase all log buffers of the running session."
-  (interactive)
-  (let* ((workspaces (lsp--session-workspaces (lsp-session)))
-         (current-log-buffer (current-buffer)))
-    (dolist (w workspaces)
-      (let ((b (lsp--get-log-buffer-create w)))
-        (when (or all (eq b current-log-buffer))
-          (with-current-buffer b
-            (let ((inhibit-read-only t))
-              (erase-buffer))))))))
-
-(defun lsp--erase-session-log-buffers ()
-  "Erase log buffers of the running session."
-  (interactive)
-  (lsp--erase-log-buffer t))
-
-(defun lsp-log-io-next (arg)
-  "Move to next log entry."
-  (interactive "P")
-  (ewoc-goto-next lsp--log-io-ewoc (or arg 1)))
-
-(defun lsp-log-io-prev (arg)
-  "Move to previous log entry."
-  (interactive "P")
-  (ewoc-goto-prev lsp--log-io-ewoc (or arg 1)))
-
-
-
-(cl-defmethod lsp-process-id ((process process))
-  (process-id process))
-
-(cl-defmethod lsp-process-name ((process process)) (process-name process))
-
-(cl-defmethod lsp-process-status ((process process)) (process-status process))
-
-(cl-defmethod lsp-process-kill ((process process))
-  (when (process-live-p process)
-    (kill-process process)))
-
-(cl-defmethod lsp-process-send ((process process) message)
-  (condition-case err
-      (process-send-string process (lsp--make-message message))
-    (error (lsp--error "Sending to process failed with the following error: %s"
-                       (error-message-string err)))))
-
-(cl-defmethod lsp-process-cleanup (process)
-  ;; Kill standard error buffer only if the process exited normally.
-  ;; Leave it intact otherwise for debugging purposes.
-  (let ((buffer (-> process process-name get-buffer)))
-    (when (and (eq (process-status process) 'exit)
-               (zerop (process-exit-status process))
-               (buffer-live-p buffer))
-      (kill-buffer buffer))))
-
-
-;; native JSONRPC
-
-(declare-function json-rpc "ext:json")
-(declare-function json-rpc-connection "ext:json")
-(declare-function json-rpc-send "ext:json")
-(declare-function json-rpc-shutdown "ext:json")
-(declare-function json-rpc-stderr "ext:json")
-(declare-function json-rpc-pid "ext:json")
-
-(defvar lsp-json-rpc-thread nil)
-(defvar lsp-json-rpc-queue nil)
-(defvar lsp-json-rpc-done nil)
-(defvar lsp-json-rpc-mutex (make-mutex))
-(defvar lsp-json-rpc-condition (make-condition-variable lsp-json-rpc-mutex))
-
-(defun lsp-json-rpc-process-queue ()
-  (while (not lsp-json-rpc-done)
-    (while lsp-json-rpc-queue
-      (-let (((proc . message) (pop lsp-json-rpc-queue)))
-        (json-rpc-send
-         proc message
-         :null-object nil
-         :false-object :json-false)))
-    (with-mutex lsp-json-rpc-mutex
-      (condition-wait lsp-json-rpc-condition))))
-
-(cl-defmethod lsp-process-id (process) (json-rpc-pid process))
-
-(cl-defmethod lsp-process-name (_process) "TBD")
-
-(cl-defmethod lsp-process-kill (process) (json-rpc-shutdown process))
-
-(cl-defmethod lsp-process-send (proc message)
-  (unless lsp-json-rpc-thread
-    (with-current-buffer (get-buffer-create " *json-rpc*")
-      (setq lsp-json-rpc-thread (make-thread #'lsp-json-rpc-process-queue "*json-rpc-queue*"))))
-
-  (with-mutex lsp-json-rpc-mutex
-    (setq lsp-json-rpc-queue (append lsp-json-rpc-queue
-                                     (list (cons proc message))))
-    (condition-notify lsp-json-rpc-condition)))
-
-(cl-defmethod lsp-process-cleanup (_proc))
-
-(defun lsp-json-rpc-connection (workspace command)
-  (let ((con (apply #'json-rpc-connection command))
-        (object-type (if lsp-use-plists 'plist 'hash-table)))
-    (with-current-buffer (get-buffer-create " *json-rpc*")
-      (make-thread
-       (lambda ()
-         (json-rpc
-          con
-          (lambda (result err done)
-            (run-with-timer
-             0.0
-             nil
-             (lambda ()
-               (cond
-                (result (lsp--parser-on-message result workspace))
-                (err (warn "Json parsing failed with the following error: %s" err))
-                (done (lsp--handle-process-exit workspace ""))))))
-          :object-type object-type
-          :null-object nil
-          :false-object nil))
-       "*json-rpc-connection*"))
-    (cons con con)))
-
-(defun lsp-json-rpc-stderr ()
-  (interactive)
-  (--when-let (pcase (lsp-workspaces)
-                (`nil (user-error "There are no active servers in the current buffer"))
-                (`(,workspace) workspace)
-                (workspaces (lsp--completing-read "Select server: "
-                                                  workspaces
-                                                  'lsp--workspace-print nil t)))
-    (let ((content (json-rpc-stderr (lsp--workspace-cmd-proc it)))
-          (buffer (format "*stderr-%s*" (lsp--workspace-print it)) ))
-      (with-current-buffer (get-buffer-create buffer)
-        (with-help-window buffer
-          (insert content))))))
-
-
-(defun lsp--workspace-print (workspace)
-  "Visual representation WORKSPACE."
-  (let* ((proc (lsp--workspace-cmd-proc workspace))
-         (status (lsp--workspace-status workspace))
-         (server-id (-> workspace lsp--workspace-client lsp--client-server-id symbol-name))
-         (pid (lsp-process-id proc)))
-
-    (if (eq 'initialized status)
-        (format "%s:%s" server-id pid)
-      (format "%s:%s/%s" server-id pid status))))
-
-(defun lsp--map-tree-widget (m)
-  "Build `tree-widget' from a hash-table or plist M."
-  (when (lsp-structure-p m)
-    (let (nodes)
-      (lsp-map (lambda (k v)
-                 (push `(tree-widget
-                         :tag ,(if (lsp-structure-p v)
-                                   (format "%s:" k)
-                                 (format "%s: %s" k
-                                         (propertize (format "%s" v)
-                                                     'face
-                                                     'font-lock-string-face)))
-                         :open t
-                         ,@(lsp--map-tree-widget v))
-                       nodes))
-               m)
-      nodes)))
-
-(defun lsp-buffer-name (buffer-id)
-  (if-let* ((buffer-name (plist-get buffer-id :buffer-name)))
-      (funcall buffer-name buffer-id)
-    (buffer-name buffer-id)))
-
-(defun lsp--render-workspace (workspace)
-  "Tree node representation of WORKSPACE."
-  `(tree-widget :tag ,(lsp--workspace-print workspace)
-                :open t
-                (tree-widget :tag ,(propertize "Buffers" 'face 'font-lock-function-name-face)
-                             :open t
-                             ,@(->> workspace
-                                    (lsp--workspace-buffers)
-                                    (--map `(tree-widget
-                                             :tag ,(when (lsp-buffer-live-p it)
-                                                     (let ((buffer-name (lsp-buffer-name it)))
-                                                       (if (lsp-with-current-buffer it buffer-read-only)
-                                                           (propertize buffer-name 'face 'font-lock-constant-face)
-                                                         buffer-name)))))))
-                (tree-widget :tag ,(propertize "Capabilities" 'face 'font-lock-function-name-face)
-                             ,@(-> workspace lsp--workspace-server-capabilities lsp--map-tree-widget))))
-
-(define-derived-mode lsp-browser-mode special-mode "LspBrowser"
-  "Define mode for displaying lsp sessions."
-  (setq-local display-buffer-base-action '(nil . ((inhibit-same-window . t)))))
-
-(defun lsp-describe-session ()
-  "Describes current `lsp-session'."
-  (interactive)
-  (let ((session (lsp-session))
-        (buf (get-buffer-create "*lsp session*"))
-        (root (lsp-workspace-root)))
-    (with-current-buffer buf
-      (lsp-browser-mode)
-      (let ((inhibit-read-only t))
-        (erase-buffer)
-        (--each (lsp-session-folders session)
-          (widget-create
-           `(tree-widget
-             :tag ,(propertize it 'face 'font-lock-keyword-face)
-             :open t
-             ,@(->> session
-                    (lsp-session-folder->servers)
-                    (gethash it)
-                    (-map 'lsp--render-workspace)))))))
-    (pop-to-buffer buf)
-    (goto-char (point-min))
-    (cl-loop for tag = (widget-get (widget-get (widget-at) :node) :tag)
-             until (or (and root (string= tag root)) (eobp))
-             do (goto-char (next-overlay-change (point))))))
-
-(defun lsp--session-workspaces (session)
-  "Get all workspaces that are part of the SESSION."
-  (-> session lsp-session-folder->servers hash-table-values -flatten -uniq))
-
-(defun lsp--find-multiroot-workspace (session client project-root)
-  "Look for a multiroot connection in SESSION created from CLIENT for
-PROJECT-ROOT and BUFFER-MAJOR-MODE."
-  (when (lsp--client-multi-root client)
-    (-when-let (multi-root-workspace (->> session
-                                          (lsp--session-workspaces)
-                                          (--first (eq (-> it lsp--workspace-client lsp--client-server-id)
-                                                       (lsp--client-server-id client)))))
-      (with-lsp-workspace multi-root-workspace
-        (lsp-notify "workspace/didChangeWorkspaceFolders"
-                    (lsp-make-did-change-workspace-folders-params
-                     :event (lsp-make-workspace-folders-change-event
-                             :added (vector (lsp-make-workspace-folder
-                                             :uri (lsp--path-to-uri project-root)
-                                             :name (f-filename project-root)))
-                             :removed []))))
-
-      (->> session (lsp-session-folder->servers) (gethash project-root) (cl-pushnew multi-root-workspace))
-      (->> session (lsp-session-server-id->folders) (gethash (lsp--client-server-id client)) (cl-pushnew project-root))
-
-      (lsp--persist-session session)
-
-      (lsp--info "Opened folder %s in workspace %s" project-root (lsp--workspace-print multi-root-workspace))
-      (lsp--open-in-workspace multi-root-workspace)
-
-      multi-root-workspace)))
-
-(defun lsp--ensure-lsp-servers (session clients project-root ignore-multi-folder)
-  "Ensure that SESSION contain server CLIENTS created for PROJECT-ROOT.
-IGNORE-MULTI-FOLDER to ignore multi folder server."
-  (-map (lambda (client)
-          (or
-           (lsp--find-workspace session client project-root)
-           (unless ignore-multi-folder
-             (lsp--find-multiroot-workspace session client project-root))
-           (lsp--start-connection session client project-root)))
-        clients))
-
-(defun lsp--spinner-stop ()
-  "Stop the spinner in case all of the workspaces are started."
-  (when (--all? (eq (lsp--workspace-status it) 'initialized)
-                lsp--buffer-workspaces)
-    (spinner-stop)))
-
-(defun lsp--open-in-workspace (workspace)
-  "Open in existing WORKSPACE."
-  (if (eq 'initialized (lsp--workspace-status workspace))
-      ;; when workspace is initialized just call document did open.
-      (progn
-        (with-lsp-workspace workspace
-          (when-let* ((before-document-open-fn (-> workspace
-                                                  lsp--workspace-client
-                                                  lsp--client-before-file-open-fn)))
-            (funcall before-document-open-fn workspace))
-          (lsp--text-document-did-open))
-        (lsp--spinner-stop))
-    ;; when it is not initialized
-    (lsp--spinner-start)
-    (cl-pushnew (lsp-current-buffer) (lsp--workspace-buffers workspace))))
-
-(defun lsp--find-workspace (session client project-root)
-  "Find server connection created with CLIENT in SESSION for PROJECT-ROOT."
-  (when-let* ((workspace (->> session
-                             (lsp-session-folder->servers)
-                             (gethash project-root)
-                             (--first (eql (-> it lsp--workspace-client lsp--client-server-id)
-                                           (lsp--client-server-id client))))))
-    (lsp--open-in-workspace workspace)
-    workspace))
-
-(defun lsp--read-char (prompt &optional options)
-  "Wrapper for `read-char-from-minibuffer' if Emacs +27.
-Fallback to `read-key' otherwise.
-PROMPT is the message and OPTIONS the available options."
-  (if (fboundp 'read-char-from-minibuffer)
-      (read-char-from-minibuffer prompt options)
-    (read-key prompt)))
-
-(defun lsp--find-root-interactively (session)
-  "Find project interactively.
-Returns nil if the project should not be added to the current SESSION."
-  (condition-case nil
-      (let* ((project-root-suggestion (or (lsp--suggest-project-root) default-directory))
-             (action (lsp--read-char
-                      (format
-                       "%s is not part of any project.
-
-%s ==> Import project root %s
-%s ==> Import project by selecting root directory interactively
-%s ==> Import project at current directory %s
-%s ==> Do not ask again for the current project by adding %s to lsp-session-folders-blocklist
-%s ==> Do not ask again for the current project by selecting ignore path interactively
-%s ==> Do nothing: ask again when opening other files from the current project
-
-Select action: "
-                       (propertize (buffer-name) 'face 'bold)
-                       (propertize "i" 'face 'success)
-                       (propertize project-root-suggestion 'face 'bold)
-                       (propertize "I" 'face 'success)
-                       (propertize "." 'face 'success)
-                       (propertize default-directory 'face 'bold)
-                       (propertize "d" 'face 'warning)
-                       (propertize project-root-suggestion 'face 'bold)
-                       (propertize "D" 'face 'warning)
-                       (propertize "n" 'face 'warning))
-                      '(?i ?\r ?I ?. ?d ?D ?n))))
-        (cl-case action
-          (?i project-root-suggestion)
-          (?\r project-root-suggestion)
-          (?I (read-directory-name "Select workspace folder to add: "
-                                   (or project-root-suggestion default-directory)
-                                   nil
-                                   t))
-          (?. default-directory)
-          (?d (push project-root-suggestion (lsp-session-folders-blocklist session))
-              (lsp--persist-session session)
-              nil)
-          (?D (push (read-directory-name "Select folder to blocklist: "
-                                         (or project-root-suggestion default-directory)
-                                         nil
-                                         t)
-                    (lsp-session-folders-blocklist session))
-              (lsp--persist-session session)
-              nil)
-          (t nil)))
-    (quit)))
-
-(declare-function tramp-file-name-host "ext:tramp" (file) t)
-(declare-function tramp-dissect-file-name "ext:tramp" (file &optional nodefault))
-
-(defun lsp--files-same-host (f1 f2)
-  "Predicate on whether or not two files are on the same host."
-  (or (not (or (file-remote-p f1) (file-remote-p f2)))
-      (and (file-remote-p f1)
-           (file-remote-p f2)
-           (progn (require 'tramp)
-                  (equal (tramp-file-name-host (tramp-dissect-file-name f1))
-                         (tramp-file-name-host (tramp-dissect-file-name f2)))))))
-
-(defun lsp-find-session-folder (session file-name)
-  "Look in the current SESSION for folder containing FILE-NAME."
-  (let ((file-name-canonical (lsp-f-canonical file-name)))
-    (->> session
-         (lsp-session-folders)
-         (--filter (and (lsp--files-same-host it file-name-canonical)
-                        (or (lsp-f-same? it file-name-canonical)
-                            (and (f-dir? it)
-                                 (lsp-f-ancestor-of? it file-name-canonical)))))
-         (--max-by (> (length it)
-                      (length other))))))
-
-(defun lsp-find-workspace (server-id &optional file-name)
-  "Find workspace for SERVER-ID for FILE-NAME."
-  (-when-let* ((session (lsp-session))
-               (folder->servers (lsp-session-folder->servers session))
-               (workspaces (if file-name
-                               (gethash (lsp-find-session-folder session file-name) folder->servers)
-                             (lsp--session-workspaces session))))
-
-    (--first (eq (lsp--client-server-id (lsp--workspace-client it)) server-id) workspaces)))
-
-(defun lsp--calculate-root (session file-name)
-  "Calculate project root for FILE-NAME in SESSION."
-  (and
-   (->> session
-        (lsp-session-folders-blocklist)
-        (--first (and (lsp--files-same-host it file-name)
-                      (lsp-f-ancestor-of? it file-name)
-                      (prog1 t
-                        (lsp--info "File %s is in blocklisted directory %s" file-name it))))
-        not)
-   (or
-    (when lsp-auto-guess-root
-      (lsp--suggest-project-root))
-    (unless lsp-guess-root-without-session
-      (lsp-find-session-folder session file-name))
-    (unless lsp-auto-guess-root
-      (when-let* ((root-folder (lsp--find-root-interactively session)))
-        (if (or (not (f-equal? root-folder (expand-file-name "~/")))
-                (yes-or-no-p
-                 (concat
-                  (propertize "[WARNING] " 'face 'warning)
-                  "You are trying to import your home folder as project root. This may cause performance issue because some language servers (python, lua, etc) will try to scan all files under project root. To avoid that you may:
-
-1. Use `I' option from the interactive project import to select subfolder(e. g. `~/foo/bar' instead of `~/').
-2. If your file is under `~/' then create a subfolder and move that file in this folder.
-
-Type `No' to go back to project selection.
-Type `Yes' to confirm `HOME' as project root.
-Type `C-g' to cancel project import process and stop `lsp'")))
-            root-folder
-          (lsp--calculate-root session file-name)))))))
-
-(defun lsp--try-open-in-library-workspace ()
-  "Try opening current file as library file in any of the active workspace.
-The library folders are defined by each client for each of the active workspace."
-  (when-let* ((workspace (->> (lsp-session)
-                             (lsp--session-workspaces)
-                             ;; Sort the last active workspaces first as they are more likely to be
-                             ;; the correct ones, especially when jumping to a definition.
-                             (-sort (lambda (a _b)
-                                      (-contains? lsp--last-active-workspaces a)))
-                             (--first
-                              (and (-> it lsp--workspace-client lsp--supports-buffer?)
-                                   (when-let* ((library-folders-fn
-                                               (-> it lsp--workspace-client lsp--client-library-folders-fn)))
-                                     (-first (lambda (library-folder)
-                                               (lsp-f-ancestor-of? library-folder (buffer-file-name)))
-                                             (funcall library-folders-fn it))))))))
-    (lsp--open-in-workspace workspace)
-    (view-mode t)
-    (lsp--info "Opening read-only library file %s." (buffer-file-name))
-    (list workspace)))
-
-(defun lsp--persist-session (session)
-  "Persist SESSION to `lsp-session-file'."
-  (lsp--persist lsp-session-file (make-lsp-session
-                                  :folders (lsp-session-folders session)
-                                  :folders-blocklist (lsp-session-folders-blocklist session)
-                                  :server-id->folders (lsp-session-server-id->folders session))))
-
-(defun lsp--try-project-root-workspaces (ask-for-client ignore-multi-folder)
-  "Try create opening file as a project file.
-When IGNORE-MULTI-FOLDER is t the lsp mode will start new
-language server even if there is language server which can handle
-current language. When IGNORE-MULTI-FOLDER is nil current file
-will be opened in multi folder language server if there is
-such."
-  (-let ((session (lsp-session)))
-    (-if-let (clients (if ask-for-client
-                          (list (lsp--completing-read "Select server to start: "
-                                                      (ht-values lsp-clients)
-                                                      (-compose 'symbol-name 'lsp--client-server-id) nil t))
-                        (lsp--find-clients)))
-        (-if-let (project-root (-some-> session
-                                 (lsp--calculate-root (buffer-file-name))
-                                 (lsp-f-canonical)))
-            (progn
-              ;; update project roots if needed and persist the lsp session
-              (unless (-contains? (lsp-session-folders session) project-root)
-                (cl-pushnew project-root (lsp-session-folders session))
-                (lsp--persist-session session))
-              (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder))
-          (lsp--warn "%s not in project or it is blocklisted." (buffer-name))
-          nil)
-      (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode)
-      nil)))
-
-(defun lsp-shutdown-workspace ()
-  "Shutdown language server."
-  (interactive)
-  (--when-let (pcase (lsp-workspaces)
-                (`nil (user-error "There are no active servers in the current buffer"))
-                (`(,workspace) (when (y-or-n-p (format "Are you sure you want to stop the server %s?"
-                                                       (lsp--workspace-print workspace)))
-                                 workspace))
-                (workspaces (lsp--completing-read "Select server: "
-                                                  workspaces
-                                                  'lsp--workspace-print nil t)))
-    (lsp-workspace-shutdown it)))
-
-(make-obsolete 'lsp-shutdown-workspace 'lsp-workspace-shutdown "lsp-mode 6.1")
-
-(defcustom lsp-auto-select-workspace t
-  "Shutdown or restart a single workspace.
-If set and the current buffer has only a single workspace
-associated with it, `lsp-shutdown-workspace' and
-`lsp-restart-workspace' will act on it without asking."
-  :type 'boolean
-  :group 'lsp-mode)
-
-(defun lsp--read-workspace ()
-  "Ask the user to select a workspace.
-Errors if there are none."
-  (pcase (lsp-workspaces)
-    (`nil (error "No workspaces associated with the current buffer"))
-    ((and `(,workspace) (guard lsp-auto-select-workspace)) workspace)
-    (workspaces (lsp--completing-read "Select workspace: " workspaces
-                                      #'lsp--workspace-print nil t))))
-
-(defun lsp-workspace-shutdown (workspace)
-  "Shut the workspace WORKSPACE and the language server associated with it"
-  (interactive (list (lsp--read-workspace)))
-  (lsp--warn "Stopping %s" (lsp--workspace-print workspace))
-  (with-lsp-workspace workspace (lsp--shutdown-workspace)))
-
-(defun lsp-disconnect ()
-  "Disconnect the buffer from the language server."
-  (interactive)
-  (lsp--text-document-did-close t)
-  (lsp-managed-mode -1)
-  (lsp-mode -1)
-  (setq lsp--buffer-workspaces nil)
-  (lsp--info "Disconnected"))
-
-(defun lsp-restart-workspace ()
-  (interactive)
-  (--when-let (pcase (lsp-workspaces)
-                (`nil (user-error "There are no active servers in the current buffer"))
-                (`(,workspace) workspace)
-                (workspaces (lsp--completing-read "Select server: "
-                                                  workspaces
-                                                  'lsp--workspace-print nil t)))
-    (lsp-workspace-restart it)))
-
-(make-obsolete 'lsp-restart-workspace 'lsp-workspace-restart "lsp-mode 6.1")
-
-(defun lsp-workspace-restart (workspace)
-  "Restart the workspace WORKSPACE and the language server associated with it"
-  (interactive (list (lsp--read-workspace)))
-  (lsp--warn "Restarting %s" (lsp--workspace-print workspace))
-  (with-lsp-workspace workspace (lsp--shutdown-workspace t)))
-
-;;;###autoload
-(defun lsp (&optional arg)
-  "Entry point for the server startup.
-When ARG is t the lsp mode will start new language server even if
-there is language server which can handle current language. When
-ARG is nil current file will be opened in multi folder language
-server if there is such. When `lsp' is called with prefix
-argument ask the user to select which language server to start."
-  (interactive "P")
-
-  (lsp--require-packages)
-
-  (when (buffer-file-name)
-    (let (clients
-          (matching-clients (lsp--filter-clients
-                             (-andfn #'lsp--supports-buffer?
-                                     #'lsp--server-binary-present?))))
-      (cond
-       (matching-clients
-        (when (setq lsp--buffer-workspaces
-                    (or (and
-                         ;; Don't open as library file if file is part of a project.
-                         (not (lsp-find-session-folder (lsp-session) (buffer-file-name)))
-                         (lsp--try-open-in-library-workspace))
-                        (lsp--try-project-root-workspaces (equal arg '(4))
-                                                          (and arg (not (equal arg 1))))))
-          (lsp-mode 1)
-          (when lsp-auto-configure (lsp--auto-configure))
-          (setq lsp-buffer-uri (lsp--buffer-uri))
-          (lsp--info "Connected to %s."
-                     (apply 'concat (--map (format "[%s %s]"
-                                                   (lsp--workspace-print it)
-                                                   (lsp--workspace-root it))
-                                           lsp--buffer-workspaces)))))
-       ;; look for servers which are currently being downloaded.
-       ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer?
-                                                   #'lsp--client-download-in-progress?)))
-        (lsp--info "There are language server(%s) installation in progress.
-The server(s) will be started in the buffer when it has finished."
-                   (-map #'lsp--client-server-id clients))
-        (seq-do (lambda (client)
-                  (cl-pushnew (current-buffer) (lsp--client-buffers client)))
-                clients))
-       ;; look for servers to install
-       ((setq clients (lsp--filter-clients
-                       (-andfn #'lsp--supports-buffer?
-                               (-const lsp-enable-suggest-server-download)
-                               #'lsp--client-download-server-fn
-                               (-not #'lsp--client-download-in-progress?))))
-        (let ((client (lsp--completing-read
-                       (concat "Unable to find installed server supporting this file. "
-                               "The following servers could be installed automatically: ")
-                       clients
-                       (-compose #'symbol-name #'lsp--client-server-id)
-                       nil
-                       t)))
-          (cl-pushnew (current-buffer) (lsp--client-buffers client))
-          (lsp--install-server-internal client)))
-       ;; ignore other warnings
-       ((not lsp-warn-no-matched-clients)
-        nil)
-       ;; automatic installation disabled
-       ((setq clients (unless matching-clients
-                        (lsp--filter-clients (-andfn #'lsp--supports-buffer?
-                                                     #'lsp--client-download-server-fn
-                                                     (-not (-const lsp-enable-suggest-server-download))
-                                                     (-not #'lsp--server-binary-present?)))))
-        (lsp--warn "The following servers support current file but automatic download is disabled: %s
-\(If you have already installed the server check *lsp-log*)."
-                   (mapconcat (lambda (client)
-                                (symbol-name (lsp--client-server-id client)))
-                              clients
-                              " ")))
-       ;; no clients present
-       ((setq clients (unless matching-clients
-                        (lsp--filter-clients (-andfn #'lsp--supports-buffer?
-                                                     (-not #'lsp--server-binary-present?)))))
-        (lsp--warn "The following servers support current file but do not have automatic installation: %s
-You may find the installation instructions at https://emacs-lsp.github.io/lsp-mode/page/languages.
-\(If you have already installed the server check *lsp-log*)."
-                   (mapconcat (lambda (client)
-                                (symbol-name (lsp--client-server-id client)))
-                              clients
-                              " ")))
-       ;; no matches
-       ((-> #'lsp--supports-buffer? lsp--filter-clients not)
-        (lsp--error "There are no language servers supporting current mode `%s' registered with `lsp-mode'.
-This issue might be caused by:
-1. The language you are trying to use does not have built-in support in `lsp-mode'. You must install the required support manually. Examples of this are `lsp-java' or `lsp-metals'.
-2. The language server that you expect to run is not configured to run for major mode `%s'. You may check that by checking the `:major-modes' that are passed to `lsp-register-client'.
-3. `lsp-mode' doesn't have any integration for the language behind `%s'. Refer to https://emacs-lsp.github.io/lsp-mode/page/languages and https://langserver.org/ .
-4. You are over `tramp'. In this case follow https://emacs-lsp.github.io/lsp-mode/page/remote/.
-5. You have disabled the `lsp-mode' clients for that file. (Check `lsp-enabled-clients' and `lsp-disabled-clients').
-You can customize `lsp-warn-no-matched-clients' to disable this message."
-                    major-mode major-mode major-mode))))))
-
-(defun lsp--buffer-visible-p ()
-  "Return non nil if current buffer is visible."
-  (or (buffer-modified-p) (get-buffer-window nil t)))
-
-(defun lsp--init-if-visible ()
-  "Run `lsp' for the current buffer if the buffer is visible.
-Returns non nil if `lsp' was run for the buffer."
-  (when (lsp--buffer-visible-p)
-    (remove-hook 'window-configuration-change-hook #'lsp--init-if-visible t)
-    (lsp)
-    t))
-
-;;;###autoload
-(defun lsp-deferred ()
-  "Entry point that defers server startup until buffer is visible.
-`lsp-deferred' will wait until the buffer is visible before invoking `lsp'.
-This avoids overloading the server with many files when starting Emacs."
-  ;; Workspace may not be initialized yet. Use a buffer local variable to
-  ;; remember that we deferred loading of this buffer.
-  (setq lsp--buffer-deferred t)
-  (let ((buffer (current-buffer)))
-    ;; Avoid false positives as desktop-mode restores buffers by deferring
-    ;; visibility check until the stack clears.
-    (run-with-idle-timer 0 nil (lambda ()
-                                 (when (buffer-live-p buffer)
-                                   (with-current-buffer buffer
-                                     (unless (lsp--init-if-visible)
-                                       (add-hook 'window-configuration-change-hook #'lsp--init-if-visible nil t))))))))
-
-
-
-(defvar lsp-file-truename-cache (ht))
-
-(defmacro lsp-with-cached-filetrue-name (&rest body)
-  "Executes BODY caching the `file-truename' calls."
-  `(let ((old-fn (symbol-function 'file-truename)))
-     (unwind-protect
-         (progn
-           (fset 'file-truename
-                 (lambda (file-name &optional counter prev-dirs)
-                   (or (gethash file-name lsp-file-truename-cache)
-                       (puthash file-name (apply old-fn (list file-name counter prev-dirs))
-                                lsp-file-truename-cache))))
-           ,@body)
-       (fset 'file-truename old-fn))))
-
-
-(defun lsp-virtual-buffer-call (key &rest args)
-  (when lsp--virtual-buffer
-    (when-let* ((fn (plist-get lsp--virtual-buffer key)))
-      (apply fn args))))
-
-(defun lsp-translate-column (column)
-  "Translate COLUMN taking into account virtual buffers."
-  (or (lsp-virtual-buffer-call :real->virtual-char column)
-      column))
-
-(defun lsp-translate-line (line)
-  "Translate LINE taking into account virtual buffers."
-  (or (lsp-virtual-buffer-call :real->virtual-line line)
-      line))
-
-
-;; lsp internal validation.
-
-(defmacro lsp--doctor (&rest checks)
-  `(-let [buf (current-buffer)]
-     (with-current-buffer (get-buffer-create "*lsp-performance*")
-       (with-help-window (current-buffer)
-         ,@(-map (-lambda ((msg form))
-                   `(insert (format "%s: %s\n" ,msg
-                                    (let ((res (with-current-buffer buf
-                                                 ,form)))
-                                      (cond
-                                       ((eq res :optional) (propertize "OPTIONAL" 'face 'warning))
-                                       (res (propertize "OK" 'face 'success))
-                                       (t (propertize "ERROR" 'face 'error)))))))
-                 (-partition 2 checks))))))
-
-(define-obsolete-function-alias 'lsp-diagnose
-  'lsp-doctor "lsp-mode 8.0.0")
-
-(defun lsp-doctor ()
-  "Validate performance settings."
-  (interactive)
-  (lsp--doctor
-   "Checking for Native JSON support" (functionp 'json-serialize)
-   "Check emacs supports `read-process-output-max'" (boundp 'read-process-output-max)
-   "Check `read-process-output-max' default has been changed from 4k"
-   (and (boundp 'read-process-output-max)
-        (> read-process-output-max 4096))
-   "Byte compiled against Native JSON (recompile lsp-mode if failing when Native JSON available)"
-   (condition-case _err
-       (progn (lsp--make-message (list "a" "b"))
-              nil)
-     (error t))
-   "`gc-cons-threshold' increased?" (> gc-cons-threshold 800000)
-   "Using `plist' for deserialized objects? (refer to https://emacs-lsp.github.io/lsp-mode/page/performance/#use-plists-for-deserialization)" (or lsp-use-plists :optional)
-   "Using emacs 28+ with native compilation?"
-   (or (and (fboundp 'native-comp-available-p)
-            (native-comp-available-p))
-       :optional)))
-
-(declare-function package-version-join "ext:package")
-(declare-function package-desc-version "ext:package")
-(declare-function package--alist "ext:package")
-
-(defun lsp-version ()
-  "Return string describing current version of `lsp-mode'."
-  (interactive)
-  (unless (featurep 'package)
-    (require 'package))
-  (let ((ver (format "lsp-mode %s, Emacs %s, %s"
-                     (package-version-join
-                      (package-desc-version
-                       (car (alist-get 'lsp-mode (package--alist)))))
-                     emacs-version
-                     system-type)))
-    (if (called-interactively-p 'interactive)
-        (lsp--info "%s" ver)
-      ver)))
-
-
-
-;; org-mode/virtual-buffer
-
-(declare-function org-babel-get-src-block-info "ext:ob-core")
-(declare-function org-do-remove-indentation "ext:org-macs")
-(declare-function org-src-get-lang-mode "ext:org-src")
-(declare-function org-element-context "ext:org-element")
-
-(defun lsp--virtual-buffer-update-position ()
-  (-if-let (virtual-buffer (-first (-lambda ((&plist :in-range))
-                                     (funcall in-range))
-                                   lsp--virtual-buffer-connections))
-      (unless (equal virtual-buffer lsp--virtual-buffer)
-        (lsp-org))
-    (when lsp-managed-mode
-      (lsp-managed-mode -1)
-      (lsp-mode -1)
-      (setq lsp--buffer-workspaces nil)
-      (setq lsp--virtual-buffer nil)
-      (setq lsp-buffer-uri nil)
-
-      ;; force refresh of diagnostics
-      (run-hooks 'lsp-after-diagnostics-hook))))
-
-(defun lsp-virtual-buffer-on-change (start end length)
-  "Adjust on change event to be executed against the proper language server."
-  (let ((max-point (max end
-                        (or (plist-get lsp--before-change-vals :end) 0)
-                        (+ start length))))
-    (when-let* ((virtual-buffer (-first (lambda (vb)
-                                         (let ((lsp--virtual-buffer vb))
-                                           (and (lsp-virtual-buffer-call :in-range start)
-                                                (lsp-virtual-buffer-call :in-range max-point))))
-                                       lsp--virtual-buffer-connections)))
-      (lsp-with-current-buffer virtual-buffer
-        (lsp-on-change start end length
-                       (lambda (&rest _)
-                         (list :range (lsp--range (list :character 0 :line 0)
-                                                  lsp--virtual-buffer-point-max)
-                               :text (lsp--buffer-content))))))))
-
-(defun lsp-virtual-buffer-before-change (start _end)
-  (when-let* ((virtual-buffer (-first (lambda (vb)
-                                       (lsp-with-current-buffer vb
-                                         (lsp-virtual-buffer-call :in-range start)))
-                                     lsp--virtual-buffer-connections)))
-    (lsp-with-current-buffer virtual-buffer
-      (setq lsp--virtual-buffer-point-max
-            (lsp--point-to-position (lsp-virtual-buffer-call :last-point))))))
-
-(defun lsp-patch-on-change-event ()
-  (remove-hook 'after-change-functions #'lsp-on-change t)
-  (add-hook 'after-change-functions #'lsp-virtual-buffer-on-change nil t)
-  (add-hook 'before-change-functions #'lsp-virtual-buffer-before-change nil t))
-
-(defun lsp-kill-virtual-buffers ()
-  (mapc #'lsp-virtual-buffer-disconnect lsp--virtual-buffer-connections))
-
-(defun lsp--move-point-in-indentation (point indentation)
-  (save-excursion
-    (goto-char point)
-    (if (<= point (+ (line-beginning-position) indentation))
-        (line-beginning-position)
-      point)))
-
-(declare-function flycheck-checker-supports-major-mode-p "ext:flycheck")
-(declare-function flycheck-add-mode "ext:flycheck")
-(declare-function lsp-diagnostics-lsp-checker-if-needed "lsp-diagnostics")
-
-(defalias 'lsp-client-download-server-fn 'lsp--client-download-server-fn)
-
-(defun lsp-flycheck-add-mode (mode)
-  "Register flycheck support for MODE."
-  (lsp-diagnostics-lsp-checker-if-needed)
-  (unless (flycheck-checker-supports-major-mode-p 'lsp mode)
-    (flycheck-add-mode 'lsp mode)))
-
-(defun lsp-progress-spinner-type ()
-  "Retrieve the spinner type value, if value is not a symbol of `spinner-types
-defaults to `progress-bar."
-  (or (car (assoc lsp-progress-spinner-type spinner-types)) 'progress-bar))
-
-(defun lsp-org ()
-  (interactive)
-  (-if-let ((virtual-buffer &as &plist :workspaces) (-first (-lambda ((&plist :in-range))
-                                                              (funcall in-range))
-                                                            lsp--virtual-buffer-connections))
-      (unless (equal lsp--virtual-buffer virtual-buffer)
-        (setq lsp--buffer-workspaces workspaces)
-        (setq lsp--virtual-buffer virtual-buffer)
-        (setq lsp-buffer-uri nil)
-        (lsp-mode 1)
-        (lsp-managed-mode 1)
-        (lsp-patch-on-change-event))
-
-    (save-excursion
-      (-let* (virtual-buffer
-              (wcb (lambda (f)
-                     (with-current-buffer (plist-get virtual-buffer :buffer)
-                       (-let* (((&plist :major-mode :buffer-file-name
-                                        :goto-buffer :workspaces) virtual-buffer)
-                               (lsp--virtual-buffer virtual-buffer)
-                               (lsp--buffer-workspaces workspaces))
-                         (save-excursion
-                           (funcall goto-buffer)
-                           (funcall f))))))
-              ((&plist :begin :end :post-blank :language) (cl-second (org-element-context)))
-              ((&alist :tangle file-name) (cl-third (org-babel-get-src-block-info 'light)))
-
-              (file-name (if file-name
-                             (f-expand file-name)
-                           (user-error "You should specify file name in the src block header.")))
-              (begin-marker (progn
-                              (goto-char begin)
-                              (forward-line)
-                              (set-marker (make-marker) (point))))
-              (end-marker (progn
-                            (goto-char end)
-                            (forward-line (1- (- post-blank)))
-                            (set-marker (make-marker) (1+ (point)))))
-              (buf (current-buffer))
-              (src-block (buffer-substring-no-properties begin-marker
-                                                         (1- end-marker)))
-              (indentation (with-temp-buffer
-                             (insert src-block)
-
-                             (goto-char (point-min))
-                             (let ((indentation (current-indentation)))
-                               (plist-put lsp--virtual-buffer :indentation indentation)
-                               (org-do-remove-indentation)
-                               (goto-char (point-min))
-                               (- indentation (current-indentation))))))
-        (add-hook 'post-command-hook #'lsp--virtual-buffer-update-position nil t)
-
-        (when (fboundp 'flycheck-add-mode)
-          (lsp-flycheck-add-mode 'org-mode))
-
-        (setq lsp--virtual-buffer
-              (list
-               :in-range (lambda (&optional point)
-                           (<= begin-marker (or point (point)) (1- end-marker)))
-               :goto-buffer (lambda () (goto-char begin-marker))
-               :buffer-string
-               (lambda ()
-                 (let ((src-block (buffer-substring-no-properties
-                                   begin-marker
-                                   (1- end-marker))))
-                   (with-temp-buffer
-                     (insert src-block)
-
-                     (goto-char (point-min))
-                     (while (not (eobp))
-                       (delete-region (point) (if (> (+ (point) indentation) (line-end-position))
-                                                  (line-end-position)
-                                                (+ (point) indentation)))
-                       (forward-line))
-                     (buffer-substring-no-properties (point-min)
-                                                     (point-max)))))
-               :buffer buf
-               :begin begin-marker
-               :end end-marker
-               :indentation indentation
-               :last-point (lambda () (1- end-marker))
-               :cur-position (lambda ()
-                               (lsp-save-restriction-and-excursion
-                                 (list :line (- (lsp--cur-line)
-                                                (lsp--cur-line begin-marker))
-                                       :character (let ((character (- (point)
-                                                                      (line-beginning-position)
-                                                                      indentation)))
-                                                    (if (< character 0)
-                                                        0
-                                                      character)))))
-               :line/character->point (-lambda (line character)
-                                        (-let [inhibit-field-text-motion t]
-                                          (+ indentation
-                                             (lsp-save-restriction-and-excursion
-                                               (goto-char begin-marker)
-                                               (forward-line line)
-                                               (-let [line-end (line-end-position)]
-                                                 (if (> character (- line-end (point)))
-                                                     line-end
-                                                   (forward-char character)
-                                                   (point)))))))
-               :major-mode (org-src-get-lang-mode language)
-               :buffer-file-name file-name
-               :buffer-uri (lsp--path-to-uri file-name)
-               :with-current-buffer wcb
-               :buffer-live? (lambda (_) (buffer-live-p buf))
-               :buffer-name (lambda (_)
-                              (propertize (format "%s(%s:%s)%s"
-                                                  (buffer-name buf)
-                                                  begin-marker
-                                                  end-marker
-                                                  language)
-                                          'face 'italic))
-               :real->virtual-line (lambda (line)
-                                     (+ line (line-number-at-pos begin-marker) -1))
-               :real->virtual-char (lambda (char) (+ char indentation))
-               :cleanup (lambda ()
-                          (set-marker begin-marker nil)
-                          (set-marker end-marker nil))))
-        (setf virtual-buffer lsp--virtual-buffer)
-        (puthash file-name virtual-buffer lsp--virtual-buffer-mappings)
-        (push virtual-buffer lsp--virtual-buffer-connections)
-
-        ;; TODO: tangle only connected sections
-        (add-hook 'after-save-hook 'org-babel-tangle nil t)
-        (add-hook 'lsp-after-open-hook #'lsp-patch-on-change-event nil t)
-        (add-hook 'kill-buffer-hook #'lsp-kill-virtual-buffers nil t)
-
-        (setq lsp--buffer-workspaces
-              (lsp-with-current-buffer virtual-buffer
-                (lsp)
-                (plist-put virtual-buffer :workspaces (lsp-workspaces))
-                (lsp-workspaces)))))))
-
-(defun lsp-virtual-buffer-disconnect (virtual-buffer)
-  (interactive (list (or
-                      lsp--virtual-buffer
-                      (when lsp--virtual-buffer-connections
-                        (lsp--completing-read "Select virtual buffer to disconnect: "
-                                              lsp--virtual-buffer-connections
-                                              (-lambda ((&plist :buffer-file-name))
-                                                buffer-file-name))))))
-  (-if-let ((&plist :buffer-file-name file-name :cleanup) virtual-buffer)
-      (progn
-        (lsp-with-current-buffer virtual-buffer
-          (lsp--text-document-did-close))
-        (setq lsp--virtual-buffer-connections (-remove-item virtual-buffer lsp--virtual-buffer-connections))
-        (when (eq virtual-buffer lsp--virtual-buffer)
-          (setf lsp--virtual-buffer nil))
-        (when cleanup (funcall cleanup))
-        (remhash file-name lsp--virtual-buffer-mappings)
-
-        (lsp--virtual-buffer-update-position)
-        (lsp--info "Disconnected from buffer %s" file-name))
-    (lsp--error "Nothing to disconnect from?")))
-
-
-;; inlay hints
-
-(defface lsp-inlay-hint-face
-  '((t :inherit font-lock-comment-face))
-  "The face to use for the JavaScript inlays."
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defface lsp-inlay-hint-type-face
-  '((t :inherit lsp-inlay-hint-face))
-  "Face for inlay type hints (e.g. inferred variable types)."
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-inlay-hint-type-format "%s"
-  "Format string for variable inlays (part of the inlay face)."
-  :type '(string :tag "String")
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defface lsp-inlay-hint-parameter-face
-  '((t :inherit lsp-inlay-hint-face))
-  "Face for inlay parameter hints (e.g. function parameter names at
-call-site)."
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-inlay-hint-param-format "%s"
-  "Format string for parameter inlays (part of the inlay face)."
-  :type '(string :tag "String")
-  :group 'lsp-mode
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defcustom lsp-update-inlay-hints-on-scroll t
-  "If non-nil update inlay hints immediately when scrolling or
-modifying window sizes."
-  :type 'boolean
-  :package-version '(lsp-mode . "9.0.0"))
-
-(defun lsp--format-inlay (text kind)
-  (cond
-   ((eql kind lsp/inlay-hint-kind-type-hint) (format lsp-inlay-hint-type-format text))
-   ((eql kind lsp/inlay-hint-kind-parameter-hint) (format lsp-inlay-hint-param-format text))
-   (t text)))
-
-(defun lsp--face-for-inlay (kind)
-  (cond
-   ((eql kind lsp/inlay-hint-kind-type-hint) 'lsp-inlay-hint-type-face)
-   ((eql kind lsp/inlay-hint-kind-parameter-hint) 'lsp-inlay-hint-parameter-face)
-   (t 'lsp-inlay-hint-face)))
-
-(defun lsp--update-inlay-hints-scroll-function (window start)
-  (lsp-update-inlay-hints start (window-end window t)))
-
-(defun lsp--update-inlay-hints ()
-  (lsp-update-inlay-hints (window-start) (window-end nil t)))
-
-(defun lsp--label-from-inlay-hints-response (label)
-  "Returns a string label built from an array of
-InlayHintLabelParts or the argument itself if it's already a
-string."
-  (cl-typecase label
-    (string label)
-    (vector
-     (string-join (mapcar (lambda (part)
-                            (-let (((&InlayHintLabelPart :value) part))
-                              value))
-                          label)))))
-
-(defun lsp-update-inlay-hints (start end)
-  (lsp-request-async
-   "textDocument/inlayHint"
-   (lsp-make-inlay-hints-params
-    :text-document (lsp--text-document-identifier)
-    :range (lsp-make-range :start
-                           (lsp-point-to-position start)
-                           :end
-                           (lsp-point-to-position end)))
-   (lambda (res)
-     (lsp--remove-overlays 'lsp-inlay-hint)
-     (dolist (hint res)
-       (-let* (((&InlayHint :label :position :kind? :padding-left? :padding-right?) hint)
-               (kind (or kind? lsp/inlay-hint-kind-type-hint))
-               (label (lsp--label-from-inlay-hints-response label))
-               (pos (lsp--position-to-point position))
-               (overlay (make-overlay pos pos nil 'front-advance 'end-advance)))
-         (when (stringp label)
-           (overlay-put overlay 'lsp-inlay-hint t)
-           (overlay-put overlay 'before-string
-                        (format "%s%s%s"
-                                (if padding-left? " " "")
-                                (propertize (lsp--format-inlay label kind)
-                                            'font-lock-face (lsp--face-for-inlay kind))
-                                (if padding-right? " " "")))))))
-   :mode 'tick))
-
-(define-minor-mode lsp-inlay-hints-mode
-  "Mode for displaying inlay hints."
-  :lighter nil
-  (cond
-   ((and lsp-inlay-hints-mode lsp--buffer-workspaces)
-    (add-hook 'lsp-on-idle-hook #'lsp--update-inlay-hints nil t)
-    (when lsp-update-inlay-hints-on-scroll
-      (add-to-list (make-local-variable 'window-scroll-functions)
-                   #'lsp--update-inlay-hints-scroll-function)))
-   (t
-    (lsp--remove-overlays 'lsp-inlay-hint)
-    (remove-hook 'lsp-on-idle-hook #'lsp--update-inlay-hints t)
-    (setf window-scroll-functions
-          (delete #'lsp--update-inlay-hints-scroll-function window-scroll-functions)))))
-
-
-
-;;;###autoload
-(defun lsp-start-plain ()
-  "Start `lsp-mode' using minimal configuration using the latest `melpa' version
-of the packages.
-
-In case the major-mode that you are using for "
-  (interactive)
-  (let ((start-plain (make-temp-file "plain" nil ".el")))
-    (url-copy-file "https://raw.githubusercontent.com/emacs-lsp/lsp-mode/master/scripts/lsp-start-plain.el"
-                   start-plain t)
-    (start-process "lsp-start-plain"
-                   (generate-new-buffer " *lsp-start-plain*")
-                   (expand-file-name invocation-name invocation-directory)
-                    "-q" "-l" start-plain (or (buffer-file-name) ""))))
-
-
-
-(provide 'lsp-mode)
-;;; lsp-mode.el ends here
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-protocol.el b/emacs/elpa/lsp-mode-20241119.828/lsp-protocol.el
@@ -1,831 +0,0 @@
-;;; lsp-protocol.el --- Language Sever Protocol Bindings  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020  Ivan Yonchovski
-
-;; Author: Ivan Yonchovski <yyoncho@gmail.com>
-;; Keywords: convenience
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Autogenerated bindings from lsp4j using
-;; https://github.com/victools/jsonschema-generator+scripts to generate
-;; scripts/generated.protocol.schema.json and then
-;; scripts/lsp-generate-bindings.el
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'dash)
-(require 'ht)
-(require 's)
-(require 'json)
-
-(eval-and-compile
-  (defun lsp-keyword->symbol (keyword)
-    "Convert a KEYWORD to symbol."
-    (intern (substring (symbol-name keyword) 1)))
-
-  (defun lsp-keyword->string (keyword)
-    "Convert a KEYWORD to string."
-    (substring (symbol-name keyword) 1))
-
-  (defvar lsp-use-plists (getenv "LSP_USE_PLISTS")))
-
-(defmacro lsp-interface (&rest interfaces)
-  "Generate LSP bindings from INTERFACES triplet.
-
-Example usage with `dash`.
-
-\(-let [(&ApplyWorkspaceEditResponse
-  :failure-reason?) (ht (\"failureReason\" \"...\"))]
-  failure-reason?)
-
-\(fn (INTERFACE-NAME-1 REQUIRED-FIELDS-1 OPTIONAL-FIELDS-1) (INTERFACE-NAME-2 REQUIRED-FIELDS-2 OPTIONAL-FIELDS-2) ...)"
-  (with-case-table ascii-case-table
-    (->> interfaces
-         (-map (-lambda ((interface required optional))
-                 (let ((params (nconc
-                                (-map (lambda (param-name)
-                                        (cons
-                                         (intern (concat ":" (s-dashed-words (symbol-name param-name)) "?"))
-                                         param-name))
-                                      optional)
-                                (-map (lambda (param-name)
-                                        (cons (intern (concat ":" (s-dashed-words (symbol-name param-name))))
-                                              param-name))
-                                      required))))
-                   (cl-list*
-                    `(defun ,(intern (format "dash-expand:&%s" interface)) (key source)
-                       (unless (or (member key ',(-map #'cl-first params))
-                                   (s-starts-with? ":_" (symbol-name key)))
-                         (error "Unknown key: %s.  Available keys: %s" key ',(-map #'cl-first params)))
-                       ,(if lsp-use-plists
-                            ``(plist-get ,source
-                                         ,(if (s-starts-with? ":_" (symbol-name key))
-                                              key
-                                            (cl-rest (assoc key ',params))))
-                          ``(gethash ,(if (s-starts-with? ":_" (symbol-name key))
-                                          (substring (symbol-name key) 1)
-                                        (substring (symbol-name
-                                                    (cl-rest (assoc key ',params)))
-                                                   1))
-                                     ,source)))
-                    `(defun ,(intern (format "dash-expand:&%s?" interface)) (key source)
-                       (unless (member key ',(-map #'cl-first params))
-                         (error "Unknown key: %s.  Available keys: %s" key ',(-map #'cl-first params)))
-                       ,(if lsp-use-plists
-                            ``(plist-get ,source
-                                         ,(if (s-starts-with? ":_" (symbol-name key))
-                                              key
-                                            (cl-rest (assoc key ',params))))
-                          ``(when (ht? ,source)
-                              (gethash ,(substring (symbol-name
-                                                    (cl-rest (assoc key ',params)))
-                                                   1)
-                                       ,source))))
-
-                    `(defun ,(intern (format "lsp-%s?" (s-dashed-words (symbol-name interface)))) (object)
-                       (cond
-                        ((ht? object)
-                         (-all? (let ((keys (ht-keys object)))
-                                  (lambda (prop)
-                                    (member prop keys)))
-                                ',(-map (lambda (field-name)
-                                          (substring (symbol-name field-name) 1))
-                                        required)))
-                        ((listp object) (-all? (lambda (prop)
-                                                 (plist-member object prop))
-                                               ',required))))
-                    `(cl-defun ,(intern (format "lsp-make-%s" (s-dashed-words (symbol-name interface))))
-                         (&rest plist &key ,@(-map (-lambda ((key))
-                                                     (let ((key-sym (intern (substring (symbol-name key) 1))))
-                                                       (if (special-variable-p key-sym)
-                                                           `((,key ,(intern (format "%s_" (symbol-name key-sym)))))
-                                                         key-sym)))
-                                                     params)
-                                &allow-other-keys)
-                       ,(format "Constructs %s from `plist.'
-Allowed params: %s" interface (reverse (-map #'cl-first params)))
-                       (ignore ,@(-map (-lambda ((key))
-                                         (let ((key-sym (intern (substring (symbol-name key) 1))))
-                                           (if (special-variable-p key-sym)
-                                               (intern (format "%s_" (symbol-name key-sym)))
-                                             key-sym)))
-                                       params))
-                       ,(if lsp-use-plists
-                            `(-mapcat (-lambda ((key value))
-                                        (list (or (cl-rest (assoc key ',params)) key) value))
-                                      (-partition 2 plist))
-                          `(let (($$result (ht)))
-                             (mapc (-lambda ((key value))
-                                     (puthash (lsp-keyword->string (or (cl-rest (assoc key ',params))
-                                                                       key))
-                                              value
-                                              $$result))
-                                   (-partition 2 plist))
-                             $$result)))
-                    `(cl-defun ,(intern (format "lsp--pcase-macroexpander-%s" interface)) (&rest property-bindings)
-                       ,(if lsp-use-plists
-                            ``(and
-                               (pred listp)
-                               ;; Check if all the types required by the
-                               ;; interface exist in the expr-val.
-                               ,@(-map
-                                  (lambda (key)
-                                    `(pred
-                                      (lambda (plist)
-                                        (plist-member plist ,key))))
-                                  ',required)
-                               ;; Recursively generate the bindings.
-                               ,@(let ((current-list property-bindings)
-                                       (output-bindings nil))
-                                   ;; Invariant: while current-list is
-                                   ;; non-nil, the car of current-list is
-                                   ;; always of the form :key, while the
-                                   ;; cadr of current-list is either a)
-                                   ;; nil, b) of the form :key-next or c)
-                                   ;; a pcase pattern that can
-                                   ;; recursively match an expression.
-                                   (while current-list
-                                     (-let* (((curr-binding-as-keyword next-entry . _) current-list)
-                                             (curr-binding-as-camelcased-symbol
-                                              (or (alist-get curr-binding-as-keyword ',params)
-                                                  (error "Unknown key: %s.  Available keys: %s"
-                                                         (symbol-name curr-binding-as-keyword)
-                                                         ',(-map #'cl-first params))))
-                                             (bound-name (lsp-keyword->symbol curr-binding-as-keyword))
-                                             (next-entry-is-key-or-nil
-                                              (and (symbolp next-entry)
-                                                   (or (null next-entry)
-                                                       (s-starts-with? ":" (symbol-name next-entry))))))
-                                       (cond
-                                        ;; If the next-entry is either a
-                                        ;; plist-key or nil, then bind to
-                                        ;; bound-name the value corresponding
-                                        ;; to the camelcased symbol.  Pop
-                                        ;; current-list once.
-                                        (next-entry-is-key-or-nil
-                                         (push `(app (lambda (plist)
-                                                       (plist-get plist ,curr-binding-as-camelcased-symbol))
-                                                     ,bound-name)
-                                               output-bindings)
-                                         (setf current-list (cdr current-list)))
-                                        ;; Otherwise, next-entry is a pcase
-                                        ;; pattern we recursively match to the
-                                        ;; expression. This can in general
-                                        ;; create additional bindings that we
-                                        ;; persist in the top level of
-                                        ;; bindings.  We pop current-list
-                                        ;; twice.
-                                        (t
-                                         (push `(app (lambda (plist)
-                                                       (plist-get plist ,curr-binding-as-camelcased-symbol))
-                                                     ,next-entry)
-                                               output-bindings)
-                                         (setf current-list (cddr current-list))))))
-                                   output-bindings))
-                          ``(and
-                             (pred ht?)
-                             ,@(-map
-                                (lambda (key)
-                                  `(pred
-                                    (lambda (hash-table)
-                                      (ht-contains? hash-table ,(lsp-keyword->string key)))))
-                                ',required)
-                             ,@(let ((current-list property-bindings)
-                                     (output-bindings nil))
-                                 (while current-list
-                                   (-let* (((curr-binding-as-keyword next-entry . _) current-list)
-                                           (curr-binding-as-camelcased-string
-                                            (lsp-keyword->string (or (alist-get curr-binding-as-keyword ',params)
-                                                                     (error "Unknown key: %s.  Available keys: %s"
-                                                                            (symbol-name curr-binding-as-keyword)
-                                                                            ',(-map #'cl-first params)))))
-                                           (bound-name (lsp-keyword->symbol curr-binding-as-keyword))
-                                           (next-entry-is-key-or-nil
-                                            (and (symbolp next-entry)
-                                                 (or (null next-entry)
-                                                     (s-starts-with? ":" (symbol-name next-entry))))))
-                                     (cond
-                                      (next-entry-is-key-or-nil
-                                       (push `(app (lambda (hash-table)
-                                                     (ht-get hash-table ,curr-binding-as-camelcased-string))
-                                                   ,bound-name)
-                                             output-bindings)
-                                       (setf current-list (cdr current-list)))
-                                      (t
-                                       (push `(app (lambda (hash-table)
-                                                     (ht-get hash-table ,curr-binding-as-camelcased-string))
-                                                   ,next-entry)
-                                             output-bindings)
-                                       (setf current-list (cddr current-list))))))
-                                 output-bindings))))
-                    (-mapcat (-lambda ((label . name))
-                               (list
-                                `(defun ,(intern (format "lsp:%s-%s"
-                                                         (s-dashed-words (symbol-name interface))
-                                                         (substring (symbol-name label) 1)))
-                                     (object)
-                                   ,(if lsp-use-plists
-                                        `(plist-get object ,name)
-                                      `(when (ht? object) (gethash ,(lsp-keyword->string name) object))))
-                                `(defun ,(intern (format "lsp:set-%s-%s"
-                                                         (s-dashed-words (symbol-name interface))
-                                                         (substring (symbol-name label) 1)))
-                                     (object value)
-                                   ,@(if lsp-use-plists
-                                         `((plist-put object ,name value))
-                                       `((puthash ,(lsp-keyword->string name) value object)
-                                         object)))))
-                             params)))))
-         (apply #'append)
-         (cl-list* 'progn))))
-
-(pcase-defmacro lsp-interface (interface &rest property-bindings)
-  "If EXPVAL is an instance of INTERFACE, destructure it by matching its
-properties. EXPVAL should be a plist or hash table depending on the variable
-`lsp-use-plists'.
-
-INTERFACE should be an LSP interface defined with `lsp-interface'. This form
-will not match if any of INTERFACE's required fields are missing in EXPVAL.
-
-Each :PROPERTY keyword matches a field in EXPVAL. The keyword may be followed by
-an optional PATTERN, which is a `pcase' pattern to apply to the field's value.
-Otherwise, PROPERTY is let-bound to the field's value.
-
-\(fn INTERFACE [:PROPERTY [PATTERN]]...)"
-  (cl-check-type interface symbol)
-  (let ((lsp-pcase-macroexpander
-         (intern (format "lsp--pcase-macroexpander-%s" interface))))
-    (cl-assert (fboundp lsp-pcase-macroexpander) "not a known LSP interface: %s" interface)
-    (apply lsp-pcase-macroexpander property-bindings)))
-
-(if lsp-use-plists
-    (progn
-      (defun lsp-get (from key)
-        (plist-get from key))
-      (defun lsp-put (where key value)
-        (plist-put where key value))
-      (defun lsp-map (fn value)
-        (-map (-lambda ((k v))
-                (funcall fn (lsp-keyword->string k) v))
-              (-partition 2 value )))
-      (defalias 'lsp-merge 'append)
-      (defalias 'lsp-empty? 'null)
-      (defalias 'lsp-copy 'copy-sequence)
-      (defun lsp-member? (from key)
-        (when (listp from)
-          (plist-member from key)))
-      (defalias 'lsp-structure-p 'json-plist-p)
-      (defun lsp-delete (from key)
-        (cl-remf from key)
-        from))
-  (defun lsp-get (from key)
-    (when from
-      (gethash (lsp-keyword->string key) from)))
-  (defun lsp-put (where key value)
-    (prog1 where
-      (puthash (lsp-keyword->string key) value where)))
-  (defun lsp-map (fn value)
-    (when value
-      (maphash fn value)))
-  (defalias 'lsp-merge 'ht-merge)
-  (defalias 'lsp-empty? 'ht-empty?)
-  (defalias 'lsp-copy 'ht-copy)
-  (defun lsp-member? (from key)
-    (when (hash-table-p from)
-      (not (eq (gethash (lsp-keyword->string key) from :__lsp_default)
-               :__lsp_default))))
-  (defalias 'lsp-structure-p 'hash-table-p)
-  (defun lsp-delete (from key)
-    (ht-remove from (lsp-keyword->string key))
-    from))
-
-(defmacro lsp-defun (name match-form &rest body)
-  "Define a function named NAME.
-The function destructures its input as MATCH-FORM then executes BODY.
-
-Note that you have to enclose the MATCH-FORM in a pair of parens,
-such that:
-
-  (-defun (x) body)
-  (-defun (x y ...) body)
-
-has the usual semantics of `defun'.  Furthermore, these get
-translated into a normal `defun', so there is no performance
-penalty.
-
-See `-let' for a description of the destructuring mechanism."
-  (declare (doc-string 3) (indent defun)
-           (debug (&define name sexp
-                           [&optional stringp]
-                           [&optional ("declare" &rest sexp)]
-                           [&optional ("interactive" interactive)]
-                           def-body)))
-  (cond
-   ((nlistp match-form)
-    (signal 'wrong-type-argument (list #'listp match-form)))
-   ;; no destructuring, so just return regular defun to make things faster
-   ((-all? #'symbolp match-form)
-    `(defun ,name ,match-form ,@body))
-   (t
-    (-let* ((inputs (--map-indexed (list it (make-symbol (format "input%d" it-index))) match-form))
-            ((body docs) (cond
-                          ;; only docs
-                          ((and (stringp (car body))
-                                (not (cdr body)))
-                           (list body (car body)))
-                          ;; docs + body
-                          ((stringp (car body))
-                           (list (cdr body) (car body)))
-                          ;; no docs
-                          (t (list body))))
-            ((body interactive-form) (cond
-                                      ;; interactive form
-                                      ((and (listp (car body))
-                                            (eq (caar body) 'interactive))
-                                       (list (cdr body) (car body)))
-                                      ;; no interactive form
-                                      (t (list body)))))
-      ;; TODO: because inputs to the defun are evaluated only once,
-      ;; -let* need not to create the extra bindings to ensure that.
-      ;; We should find a way to optimize that.  Not critical however.
-      `(defun ,name ,(-map #'cadr inputs)
-         ,@(when docs (list docs))
-         ,@(when interactive-form (list interactive-form))
-         (-let* ,inputs ,@body))))))
-
-
-
-
-;; manually defined interfaces
-(defconst lsp/markup-kind-plain-text "plaintext")
-(defconst lsp/markup-kind-markdown "markdown")
-
-(lsp-interface (JSONResponse (:params :id :method :result) nil)
-               (JSONResponseError (:error) nil)
-               (JSONMessage nil (:params :id :method :result :error))
-               (JSONResult nil (:params :id :method))
-               (JSONNotification (:params :method) nil)
-               (JSONRequest (:params :method) nil)
-               (JSONError (:message :code) (:data))
-               (ProgressParams (:token :value) nil)
-               (Edit (:kind) nil)
-               (WorkDoneProgress (:kind) nil)
-               (WorkDoneProgressBegin  (:kind :title) (:cancellable :message :percentage))
-               (WorkDoneProgressReport  (:kind) (:cancellable :message :percentage))
-               (WorkDoneProgressEnd  (:kind) (:message))
-               (WorkDoneProgressOptions nil (:workDoneProgress))
-               (SemanticTokensOptions (:legend) (:rangeProvider :documentProvider))
-               (SemanticTokensLegend (:tokenTypes :tokenModifiers))
-               (SemanticTokensResult (:resultId) (:data))
-               (SemanticTokensPartialResult nil (:data))
-               (SemanticTokensEdit (:start :deleteCount) (:data))
-               (SemanticTokensDelta (:resultId) (:edits))
-               (SemanticTokensDeltaPartialResult nil (:edits)))
-
-(lsp-interface (v1:ProgressParams (:id :title) (:message :percentage :done)))
-
-(defun dash-expand:&RangeToPoint (key source)
-  "Convert the position KEY from SOURCE into a point."
-  `(lsp--position-to-point
-    (lsp-get ,source ,key)))
-
-(lsp-interface (eslint:StatusParams  (:state) nil)
-               (eslint:OpenESLintDocParams (:url) nil)
-               (eslint:ConfirmExecutionParams (:scope :file :libraryPath) nil))
-
-(lsp-interface (haxe:ProcessStartNotification (:title) nil))
-
-(lsp-interface (pwsh:ScriptRegion (:StartLineNumber :EndLineNumber :StartColumnNumber :EndColumnNumber :Text) nil))
-
-(lsp-interface (omnisharp:ErrorMessage (:Text :FileName :Line :Column))
-               (omnisharp:ProjectInformationRequest (:FileName))
-               (omnisharp:MsBuildProject (:IsUnitProject :IsExe :Platform :Configuration :IntermediateOutputPath :OutputPath :TargetFrameworks :SourceFiles :TargetFramework :TargetPath :AssemblyName :Path :ProjectGuid))
-               (omnisharp:ProjectInformation (:ScriptProject :MsBuildProject))
-               (omnisharp:CodeStructureRequest (:FileName))
-               (omnisharp:CodeStructureResponse (:Elements))
-               (omnisharp:CodeElement (:Kind :Name :DisplayName :Children :Ranges :Properties))
-               (omnisharp:CodeElementProperties () (:static :accessibility :testMethodName :testFramework))
-               (omnisharp:Range (:Start :End))
-               (omnisharp:RangeList () (:attributes :full :name))
-               (omnisharp:Point (:Line :Column))
-               (omnisharp:RunTestsInClassRequest (:MethodNames :RunSettings :TestFrameworkname :TargetFrameworkVersion :NoBuild :Line :Column :Buffer :FileName))
-               (omnisharp:RunTestResponse (:Results :Pass :Failure :ContextHadNoTests))
-               (omnisharp:TestMessageEvent (:MessageLevel :Message))
-               (omnisharp:DotNetTestResult (:MethodName :Outcome :ErrorMessage :ErrorStackTrace :StandardOutput :StandardError))
-               (omnisharp:MetadataRequest (:AssemblyName :TypeName :ProjectName :VersionNumber :Language))
-               (omnisharp:MetadataResponse (:SourceName :Source)))
-
-(lsp-interface (csharp-ls:CSharpMetadata (:textDocument))
-               (csharp-ls:CSharpMetadataResponse (:source :projectName :assemblyName :symbolName)))
-
-(lsp-interface (rls:Cmd (:args :binary :env :cwd) nil))
-
-(lsp-interface (rust-analyzer:AnalyzerStatusParams (:textDocument))
-               (rust-analyzer:SyntaxTreeParams (:textDocument) (:range))
-               (rust-analyzer:ViewHir (:textDocument :position))
-               (rust-analyzer:ViewItemTree (:textDocument))
-               (rust-analyzer:ExpandMacroParams (:textDocument :position) nil)
-               (rust-analyzer:ExpandedMacro (:name :expansion) nil)
-               (rust-analyzer:MatchingBraceParams (:textDocument :positions) nil)
-               (rust-analyzer:OpenCargoTomlParams (:textDocument) nil)
-               (rust-analyzer:OpenExternalDocsParams (:textDocument :position) nil)
-               (rust-analyzer:ResovedCodeActionParams (:id :codeActionParams) nil)
-               (rust-analyzer:JoinLinesParams (:textDocument :ranges) nil)
-               (rust-analyzer:MoveItemParams (:textDocument :range :direction) nil)
-               (rust-analyzer:RunnablesParams (:textDocument) (:position))
-               (rust-analyzer:Runnable (:label :kind :args) (:location))
-               (rust-analyzer:RunnableArgs (:cargoArgs :executableArgs) (:workspaceRoot :expectTest))
-               (rust-analyzer:RelatedTestsParams (:textDocument :position) nil)
-               (rust-analyzer:RelatedTests (:runnable) nil)
-               (rust-analyzer:SsrParams (:query :parseOnly) nil)
-               (rust-analyzer:CommandLink (:title :command) (:arguments :tooltip))
-               (rust-analyzer:CommandLinkGroup (:commands) (:title)))
-
-(lsp-interface (clojure-lsp:TestTreeParams (:uri :tree) nil)
-               (clojure-lsp:TestTreeNode (:name :range :nameRange :kind) (:children))
-               (clojure-lsp:ProjectTreeNode (:name :type) (:nodes :final :id :uri :detail :range)))
-
-(lsp-interface (terraform-ls:ModuleCalls (:v :module_calls) nil))
-(lsp-interface (terraform-ls:Module (:name :docs_link :version :source_type :dependent_modules) nil))
-(lsp-interface (terraform-ls:Providers (:v :provider_requirements :installed_providers) nil))
-(lsp-interface (terraform-ls:module.terraform (:v :required_version :discovered_version)))
-
-
-;; begin autogenerated code
-
-(defvar lsp/completion-item-kind-lookup
-  [nil Text Method Function Constructor Field Variable Class Interface Module Property Unit Value Enum Keyword Snippet Color File Reference Folder EnumMember Constant Struct Event Operator TypeParameter])
-(defconst lsp/completion-item-kind-text 1)
-(defconst lsp/completion-item-kind-method 2)
-(defconst lsp/completion-item-kind-function 3)
-(defconst lsp/completion-item-kind-constructor 4)
-(defconst lsp/completion-item-kind-field 5)
-(defconst lsp/completion-item-kind-variable 6)
-(defconst lsp/completion-item-kind-class 7)
-(defconst lsp/completion-item-kind-interface 8)
-(defconst lsp/completion-item-kind-module 9)
-(defconst lsp/completion-item-kind-property 10)
-(defconst lsp/completion-item-kind-unit 11)
-(defconst lsp/completion-item-kind-value 12)
-(defconst lsp/completion-item-kind-enum 13)
-(defconst lsp/completion-item-kind-keyword 14)
-(defconst lsp/completion-item-kind-snippet 15)
-(defconst lsp/completion-item-kind-color 16)
-(defconst lsp/completion-item-kind-file 17)
-(defconst lsp/completion-item-kind-reference 18)
-(defconst lsp/completion-item-kind-folder 19)
-(defconst lsp/completion-item-kind-enum-member 20)
-(defconst lsp/completion-item-kind-constant 21)
-(defconst lsp/completion-item-kind-struct 22)
-(defconst lsp/completion-item-kind-event 23)
-(defconst lsp/completion-item-kind-operator 24)
-(defconst lsp/completion-item-kind-type-parameter 25)
-(defvar lsp/completion-trigger-kind-lookup
-  [nil Invoked TriggerCharacter TriggerForIncompleteCompletions])
-(defconst lsp/completion-trigger-kind-invoked 1)
-(defconst lsp/completion-trigger-kind-trigger-character 2)
-(defconst lsp/completion-trigger-kind-trigger-for-incomplete-completions 3)
-(defvar lsp/diagnostic-severity-lookup
-  [nil Error Warning Information Hint Max])
-(defconst lsp/diagnostic-severity-error 1)
-(defconst lsp/diagnostic-severity-warning 2)
-(defconst lsp/diagnostic-severity-information 3)
-(defconst lsp/diagnostic-severity-hint 4)
-(defconst lsp/diagnostic-severity-max 5)
-(defvar lsp/diagnostic-tag-lookup
-  [nil Unnecessary Deprecated])
-(defconst lsp/diagnostic-tag-unnecessary 1)
-(defconst lsp/diagnostic-tag-deprecated 2)
-(defvar lsp/completion-item-tag-lookup
-  [nil Deprecated])
-(defconst lsp/completion-item-tag-deprecated 1)
-(defvar lsp/document-highlight-kind-lookup
-  [nil Text Read Write])
-(defconst lsp/document-highlight-kind-text 1)
-(defconst lsp/document-highlight-kind-read 2)
-(defconst lsp/document-highlight-kind-write 3)
-(defvar lsp/file-change-type-lookup
-  [nil Created Changed Deleted])
-(defconst lsp/file-change-type-created 1)
-(defconst lsp/file-change-type-changed 2)
-(defconst lsp/file-change-type-deleted 3)
-(defvar lsp/insert-text-format-lookup
-  [nil PlainText Snippet])
-(defconst lsp/insert-text-format-plain-text 1)
-(defconst lsp/insert-text-format-snippet 2)
-(defvar lsp/insert-text-mode-lookup
-  [nil AsIs AdjustIndentation])
-(defconst lsp/insert-text-mode-as-it 1)
-(defconst lsp/insert-text-mode-adjust-indentation 2)
-(defvar lsp/message-type-lookup
-  [nil Error Warning Info Log])
-(defconst lsp/message-type-error 1)
-(defconst lsp/message-type-warning 2)
-(defconst lsp/message-type-info 3)
-(defconst lsp/message-type-log 4)
-(defvar lsp/signature-help-trigger-kind-lookup
-  [nil Invoked TriggerCharacter ContentChange])
-(defconst lsp/signature-help-trigger-kind-invoked 1)
-(defconst lsp/signature-help-trigger-kind-trigger-character 2)
-(defconst lsp/signature-help-trigger-kind-content-change 3)
-(defvar lsp/symbol-kind-lookup
-  [nil File Module Namespace Package Class Method Property Field Constructor Enum Interface Function Variable Constant String Number Boolean Array Object Key Null EnumMember Struct Event Operator TypeParameter])
-(defconst lsp/symbol-kind-file 1)
-(defconst lsp/symbol-kind-module 2)
-(defconst lsp/symbol-kind-namespace 3)
-(defconst lsp/symbol-kind-package 4)
-(defconst lsp/symbol-kind-class 5)
-(defconst lsp/symbol-kind-method 6)
-(defconst lsp/symbol-kind-property 7)
-(defconst lsp/symbol-kind-field 8)
-(defconst lsp/symbol-kind-constructor 9)
-(defconst lsp/symbol-kind-enum 10)
-(defconst lsp/symbol-kind-interface 11)
-(defconst lsp/symbol-kind-function 12)
-(defconst lsp/symbol-kind-variable 13)
-(defconst lsp/symbol-kind-constant 14)
-(defconst lsp/symbol-kind-string 15)
-(defconst lsp/symbol-kind-number 16)
-(defconst lsp/symbol-kind-boolean 17)
-(defconst lsp/symbol-kind-array 18)
-(defconst lsp/symbol-kind-object 19)
-(defconst lsp/symbol-kind-key 20)
-(defconst lsp/symbol-kind-null 21)
-(defconst lsp/symbol-kind-enum-member 22)
-(defconst lsp/symbol-kind-struct 23)
-(defconst lsp/symbol-kind-event 24)
-(defconst lsp/symbol-kind-operator 25)
-(defconst lsp/symbol-kind-type-parameter 26)
-(defvar lsp/text-document-save-reason-lookup
-  [nil Manual AfterDelay FocusOut])
-(defconst lsp/text-document-save-reason-manual 1)
-(defconst lsp/text-document-save-reason-after-delay 2)
-(defconst lsp/text-document-save-reason-focus-out 3)
-(defvar lsp/text-document-sync-kind-lookup
-  [None Full Incremental])
-(defconst lsp/text-document-sync-kind-none 0)
-(defconst lsp/text-document-sync-kind-full 1)
-(defconst lsp/text-document-sync-kind-incremental 2)
-(defvar lsp/type-hierarchy-direction-lookup
-  [nil Children Parents Both])
-(defconst lsp/type-hierarchy-direction-children 1)
-(defconst lsp/type-hierarchy-direction-parents 2)
-(defconst lsp/type-hierarchy-direction-both 3)
-(defvar lsp/call-hierarchy-direction-lookup
-  [nil CallsFrom CallsTo])
-(defconst lsp/call-hierarchy-direction-calls-from 1)
-(defconst lsp/call-hierarchy-direction-calls-to 2)
-(defvar lsp/response-error-code-lookup
-  [nil ParseError InvalidRequest MethodNotFound InvalidParams InternalError serverErrorStart serverErrorEnd])
-(defconst lsp/response-error-code-parse-error 1)
-(defconst lsp/response-error-code-invalid-request 2)
-(defconst lsp/response-error-code-method-not-found 3)
-(defconst lsp/response-error-code-invalid-params 4)
-(defconst lsp/response-error-code-internal-error 5)
-(defconst lsp/response-error-code-server-error-start 6)
-(defconst lsp/response-error-code-server-error-end 7)
-
-(lsp-interface
- (CallHierarchyCapabilities nil (:dynamicRegistration))
- (CallHierarchyItem (:kind :name :range :selectionRange :uri) (:detail :tags))
- (ClientCapabilities nil (:experimental :textDocument :workspace))
- (ClientInfo (:name) (:version))
- (CodeActionCapabilities nil (:codeActionLiteralSupport :dynamicRegistration :isPreferredSupport :dataSupport :resolveSupport))
- (CodeActionContext (:diagnostics) (:only))
- (CodeActionKindCapabilities (:valueSet) nil)
- (CodeActionLiteralSupportCapabilities nil (:codeActionKind))
- (CodeActionOptions nil (:codeActionKinds :resolveProvider))
- (CodeLensCapabilities nil (:dynamicRegistration))
- (CodeLensOptions (:resolveProvider) nil)
- (Color (:red :green :blue :alpha) nil)
- (ColorProviderCapabilities nil (:dynamicRegistration))
- (ColorProviderOptions nil (:documentSelector :id))
- (ColoringInformation (:range :styles) nil)
- (Command (:title :command) (:arguments))
- (CompletionCapabilities nil (:completionItem :completionItemKind :contextSupport :dynamicRegistration))
- (CompletionContext (:triggerKind) (:triggerCharacter))
- (CompletionItem (:label) (:additionalTextEdits :command :commitCharacters :data :deprecated :detail :documentation :filterText :insertText :insertTextFormat :insertTextMode :kind :preselect :sortText :tags :textEdit :score :labelDetails))
- (CompletionItemCapabilities nil (:commitCharactersSupport :deprecatedSupport :documentationFormat :preselectSupport :snippetSupport :tagSupport :insertReplaceSupport :resolveSupport))
- (CompletionItemKindCapabilities nil (:valueSet))
- (CompletionItemTagSupportCapabilities (:valueSet) nil)
- (CompletionOptions nil (:resolveProvider :triggerCharacters :allCommitCharacters))
- (ConfigurationItem nil (:scopeUri :section))
- (CreateFileOptions nil (:ignoreIfExists :overwrite))
- (DeclarationCapabilities nil (:dynamicRegistration :linkSupport))
- (DefinitionCapabilities nil (:dynamicRegistration :linkSupport))
- (DeleteFileOptions nil (:ignoreIfNotExists :recursive))
- (Diagnostic (:range :message) (:code :relatedInformation :severity :source :tags))
- (DiagnosticClientCapabilities nil (:dynamicRegistration :relatedDocumentSupport))
- (DiagnosticOptions (:interFileDependencies :workspaceDiagnostics) (:identifier))
- (DiagnosticRelatedInformation (:location :message) nil)
- (DiagnosticServerCancellationData (:retriggerRequest) nil)
- (DiagnosticsTagSupport (:valueSet) nil)
- (DidChangeConfigurationCapabilities nil (:dynamicRegistration))
- (DidChangeWatchedFilesCapabilities nil (:dynamicRegistration))
- (DocumentDiagnosticParams (:textDocument) (:identifier :previousResultId))
- (DocumentDiagnosticReport (:kind) (:resultId :items :relatedDocuments))
- (DocumentFilter nil (:language :pattern :scheme))
- (DocumentHighlightCapabilities nil (:dynamicRegistration))
- (DocumentLinkCapabilities nil (:dynamicRegistration :tooltipSupport))
- (DocumentLinkOptions nil (:resolveProvider))
- (DocumentOnTypeFormattingOptions (:firstTriggerCharacter) (:moreTriggerCharacter))
- (DocumentSymbol (:kind :name :range :selectionRange) (:children :deprecated :detail))
- (DocumentSymbolCapabilities nil (:dynamicRegistration :hierarchicalDocumentSymbolSupport :symbolKind))
- (ExecuteCommandCapabilities nil (:dynamicRegistration))
- (ExecuteCommandOptions (:commands) nil)
- (FileEvent (:type :uri) nil)
- (FileSystemWatcher (:globPattern) (:kind))
- (FileOperationFilter (:pattern) (:scheme))
- (FileOperationPattern (:glob) (:matches :options))
- (FileOperationPatternOptions nil (:ignoreCase))
- (FileOperationRegistrationOptions (:filters) nil)
- (FoldingRangeCapabilities nil (:dynamicRegistration :lineFoldingOnly :rangeLimit))
- (FoldingRangeProviderOptions nil (:documentSelector :id))
- (FormattingCapabilities nil (:dynamicRegistration))
- (FormattingOptions (:tabSize :insertSpaces) (:trimTrailingWhitespace :insertFinalNewline :trimFinalNewlines))
- (HoverCapabilities nil (:contentFormat :dynamicRegistration))
- (ImplementationCapabilities nil (:dynamicRegistration :linkSupport))
- (LabelDetails (:detail :description) nil)
- (LinkedEditingRanges (:ranges) (:wordPattern))
- (Location (:range :uri) nil)
- (MarkedString (:language :value) nil)
- (MarkupContent (:kind :value) nil)
- (MessageActionItem (:title) nil)
- (OnTypeFormattingCapabilities nil (:dynamicRegistration))
- (ParameterInformation (:label) (:documentation))
- (ParameterInformationCapabilities nil (:labelOffsetSupport))
- (Position (:character :line) nil)
- (PublishDiagnosticsCapabilities nil (:relatedInformation :tagSupport :versionSupport))
- (Range (:start :end) nil)
- (RangeFormattingCapabilities nil (:dynamicRegistration))
- (ReferenceContext (:includeDeclaration) nil)
- (ReferencesCapabilities nil (:dynamicRegistration))
- (Registration (:method :id) (:registerOptions))
- (RenameCapabilities nil (:dynamicRegistration :prepareSupport))
- (RenameFileOptions nil (:ignoreIfExists :overwrite))
- (RenameOptions nil (:documentSelector :id :prepareProvider))
- (ResourceChange nil (:current :newUri))
- (ResourceOperation (:kind) nil)
- (SaveOptions nil (:includeText))
- (SelectionRange (:range) (:parent))
- (SelectionRangeCapabilities nil (:dynamicRegistration))
- (SemanticHighlightingCapabilities nil (:semanticHighlighting))
- (SemanticHighlightingInformation (:line) (:tokens))
- (SemanticHighlightingServerCapabilities nil (:scopes))
- (ServerCapabilities nil (:callHierarchyProvider :codeActionProvider :codeLensProvider :colorProvider :completionProvider :declarationProvider :definitionProvider :documentFormattingProvider :documentHighlightProvider :documentLinkProvider :documentOnTypeFormattingProvider :documentRangeFormattingProvider :documentSymbolProvider :executeCommandProvider :experimental :foldingRangeProvider :hoverProvider :implementationProvider :referencesProvider :renameProvider :selectionRangeProvider :semanticHighlighting :signatureHelpProvider :textDocumentSync :typeDefinitionProvider :typeHierarchyProvider :workspace :workspaceSymbolProvider :semanticTokensProvider))
- (ServerInfo (:name) (:version))
- (SignatureHelp (:signatures) (:activeParameter :activeSignature))
- (SignatureHelpCapabilities nil (:contextSupport :dynamicRegistration :signatureInformation))
- (SignatureHelpContext (:triggerKind :isRetrigger) (:activeSignatureHelp :triggerCharacter))
- (SignatureHelpOptions nil (:retriggerCharacters :triggerCharacters))
- (SignatureInformation (:label) (:documentation :parameters))
- (SignatureInformationCapabilities nil (:documentationFormat :parameterInformation))
- (StaticRegistrationOptions nil (:documentSelector :id))
- (SymbolCapabilities nil (:dynamicRegistration :symbolKind))
- (SymbolKindCapabilities nil (:valueSet))
- (SynchronizationCapabilities nil (:didSave :dynamicRegistration :willSave :willSaveWaitUntil))
- (TextDocumentClientCapabilities nil (:callHierarchy :codeAction :codeLens :colorProvider :completion :declaration :definition :documentHighlight :documentLink :documentSymbol :foldingRange :formatting :hover :implementation :onTypeFormatting :publishDiagnostics :rangeFormatting :references :rename :selectionRange :semanticHighlightingCapabilities :signatureHelp :synchronization :typeDefinition :typeHierarchyCapabilities))
- (TextDocumentContentChangeEvent (:text) (:range :rangeLength))
- (TextDocumentEdit (:textDocument :edits) nil)
- (TextDocumentIdentifier (:uri) nil)
- (TextDocumentItem (:languageId :text :uri :version) nil)
- (TextDocumentSyncOptions nil (:change :openClose :save :willSave :willSaveWaitUntil))
- (TextEdit (:newText :range) nil)
- (InsertReplaceEdit (:newText :insert :replace) nil)
- (SnippetTextEdit (:newText :range) (:insertTextFormat))
- (TypeDefinitionCapabilities nil (:dynamicRegistration :linkSupport))
- (TypeHierarchyCapabilities nil (:dynamicRegistration))
- (TypeHierarchyItem (:kind :name :range :selectionRange :uri) (:children :data :deprecated :detail :parents))
- (Unregistration (:method :id) nil)
- (VersionedTextDocumentIdentifier (:uri) (:version))
- (WorkspaceClientCapabilities nil (:applyEdit :configuration :didChangeConfiguration :didChangeWatchedFiles :executeCommand :symbol :workspaceEdit :workspaceFolders))
- (WorkspaceEdit nil (:changes :documentChanges :resourceChanges))
- (WorkspaceEditCapabilities nil (:documentChanges :failureHandling :resourceChanges :resourceOperations))
- (WorkspaceFolder (:uri :name) nil)
- (WorkspaceFoldersChangeEvent (:removed :added) nil)
- (WorkspaceFoldersOptions nil (:changeNotifications :supported))
- (WorkspaceServerCapabilities nil (:workspaceFolders :fileOperations))
- (WorkspaceFileOperations nil (:didCreate :willCreate :didRename :willRename :didDelete :willDelete))
- (ApplyWorkspaceEditParams (:edit) (:label))
- (ApplyWorkspaceEditResponse (:applied) nil)
- (CallHierarchyIncomingCall (:from :fromRanges) nil)
- (CallHierarchyIncomingCallsParams (:item) nil)
- (CallHierarchyOutgoingCall (:to :fromRanges) nil)
- (CallHierarchyOutgoingCallsParams (:item) nil)
- (CallHierarchyPrepareParams (:textDocument :position) (:uri))
- (CodeAction (:title) (:command :diagnostics :edit :isPreferred :kind :data))
- (CodeActionKind nil nil)
- (CodeActionParams (:textDocument :context :range) nil)
- (CodeLens (:range) (:command :data))
- (CodeLensParams (:textDocument) nil)
- (CodeLensRegistrationOptions nil (:documentSelector :resolveProvider))
- (ColorInformation (:color :range) nil)
- (ColorPresentation (:label) (:additionalTextEdits :textEdit))
- (ColorPresentationParams (:color :textDocument :range) nil)
- (ColoringParams (:uri :infos) nil)
- (ColoringStyle nil nil)
- (CompletionList (:items :isIncomplete) nil)
- (CompletionParams (:textDocument :position) (:context :uri))
- (CompletionRegistrationOptions nil (:documentSelector :resolveProvider :triggerCharacters))
- (ConfigurationParams (:items) nil)
- (CreateFile (:kind :uri) (:options))
- (DeclarationParams (:textDocument :position) (:uri))
- (DefinitionParams (:textDocument :position) (:uri))
- (DeleteFile (:kind :uri) (:options))
- (DidChangeConfigurationParams (:settings) nil)
- (DidChangeTextDocumentParams (:contentChanges :textDocument) (:uri))
- (DidChangeWatchedFilesParams (:changes) nil)
- (DidChangeWatchedFilesRegistrationOptions (:watchers) nil)
- (DidChangeWorkspaceFoldersParams (:event) nil)
- (DidCloseTextDocumentParams (:textDocument) nil)
- (DidOpenTextDocumentParams (:textDocument) (:text))
- (DidSaveTextDocumentParams (:textDocument) (:text))
- (DocumentColorParams (:textDocument) nil)
- (DocumentFormattingParams (:textDocument :options) nil)
- (DocumentHighlight (:range) (:kind))
- (DocumentHighlightParams (:textDocument :position) (:uri))
- (DocumentLink (:range) (:data :target :tooltip))
- (DocumentLinkParams (:textDocument) nil)
- (DocumentLinkRegistrationOptions nil (:documentSelector :resolveProvider))
- (DocumentOnTypeFormattingParams (:ch :textDocument :options :position) nil)
- (DocumentOnTypeFormattingRegistrationOptions (:firstTriggerCharacter) (:documentSelector :moreTriggerCharacter))
- (DocumentRangeFormattingParams (:textDocument :options :range) nil)
- (DocumentSymbolParams (:textDocument) nil)
- (DynamicRegistrationCapabilities nil (:dynamicRegistration))
- (ExecuteCommandParams (:command) (:arguments))
- (ExecuteCommandRegistrationOptions (:commands) nil)
- (FailureHandlingKind nil nil)
- (FileRename (:oldUri :newUri) nil)
- (FoldingRange (:endLine :startLine) (:endCharacter :kind :startCharacter))
- (FoldingRangeKind nil nil)
- (FoldingRangeRequestParams (:textDocument) nil)
- (Hover (:contents) (:range))
- (HoverParams (:textDocument :position) (:uri))
- (ImplementationParams (:textDocument :position) (:uri))
- (InitializeError (:retry) nil)
- (InitializeErrorCode nil nil)
- (InitializeParams nil (:capabilities :clientInfo :clientName :initializationOptions :processId :rootPath :rootUri :trace :workspaceFolders))
- (InitializeResult (:capabilities) (:serverInfo))
- (InitializedParams nil nil)
- (LocationLink (:targetSelectionRange :targetUri :targetRange) (:originSelectionRange))
- (MarkupKind nil nil)
- (MessageParams (:type :message) nil)
- (PrepareRenameParams (:textDocument :position) (:uri))
- (PrepareRenameResult (:range :placeholder) nil)
- (PublishDiagnosticsParams (:diagnostics :uri) (:version))
- (QuickPickItem (:label :picked :userData) nil)
- (ReferenceParams (:textDocument :context :position) (:uri))
- (RegistrationParams (:registrations) nil)
- (RenameFile (:kind :newUri :oldUri) (:options))
- (RenameFilesParams (:files) nil)
- (RenameParams (:newName :textDocument :position) (:uri))
- (ResolveTypeHierarchyItemParams (:item :resolve :direction) nil)
- (ResourceOperationKind nil nil)
- (SelectionRangeParams (:textDocument :positions) nil)
- (SemanticHighlightingParams (:textDocument :lines) nil)
- (ShowDocumentParams (:uri) (:external :takeFocus :selection))
- (ShowDocumentResult (:success) nil)
- (ShowInputBoxParams (:prompt) (:value))
- (ShowMessageRequestParams (:type :message) (:actions))
- (ShowQuickPickParams (:placeHolder :canPickMany :items) nil)
- (SignatureHelpParams (:textDocument :position) (:context :uri))
- (SignatureHelpRegistrationOptions nil (:documentSelector :triggerCharacters))
- (SymbolInformation (:kind :name :location) (:containerName :deprecated))
- (TextDocumentChangeRegistrationOptions (:syncKind) (:documentSelector))
- (TextDocumentPositionParams (:textDocument :position) (:uri))
- (TextDocumentRegistrationOptions nil (:documentSelector))
- (TextDocumentSaveRegistrationOptions nil (:documentSelector :includeText))
- (TypeDefinitionParams (:textDocument :position) (:uri))
- (TypeHierarchyParams (:resolve :textDocument :position) (:direction :uri))
- (UnregistrationParams (:unregisterations) nil)
- (WatchKind nil nil)
- (WillSaveTextDocumentParams (:reason :textDocument) nil)
- (WorkspaceSymbolParams (:query) nil)
- ;; 3.17
- (InlayHint (:label :position) (:kind :paddingLeft :paddingRight))
- (InlayHintLabelPart (:value) (:tooltip :location :command))
- (InlayHintsParams (:textDocument) (:range)))
-
-;; 3.17
-(defconst lsp/inlay-hint-kind-type-hint 1)
-(defconst lsp/inlay-hint-kind-parameter-hint 2)
-
-
-(provide 'lsp-protocol)
-
-;;; lsp-protocol.el ends here
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-actionscript.el b/emacs/elpa/lsp-mode-20241123.739/lsp-actionscript.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-actionscript.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-actionscript.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ada.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ada.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ada.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ada.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-angular.el b/emacs/elpa/lsp-mode-20241123.739/lsp-angular.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-angular.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-angular.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ansible.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ansible.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ansible.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ansible.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-asm.el b/emacs/elpa/lsp-mode-20241123.739/lsp-asm.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-asm.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-asm.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-astro.el b/emacs/elpa/lsp-mode-20241123.739/lsp-astro.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-astro.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-astro.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-autotools.el b/emacs/elpa/lsp-mode-20241123.739/lsp-autotools.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-autotools.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-autotools.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-awk.el b/emacs/elpa/lsp-mode-20241123.739/lsp-awk.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-awk.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-awk.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-bash.el b/emacs/elpa/lsp-mode-20241123.739/lsp-bash.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-bash.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-bash.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-beancount.el b/emacs/elpa/lsp-mode-20241123.739/lsp-beancount.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-beancount.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-beancount.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-bufls.el b/emacs/elpa/lsp-mode-20241123.739/lsp-bufls.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-bufls.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-bufls.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-camel.el b/emacs/elpa/lsp-mode-20241123.739/lsp-camel.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-camel.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-camel.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-clangd.el b/emacs/elpa/lsp-mode-20241123.739/lsp-clangd.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-clangd.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-clangd.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-clojure.el b/emacs/elpa/lsp-mode-20241123.739/lsp-clojure.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-clojure.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-clojure.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cmake.el b/emacs/elpa/lsp-mode-20241123.739/lsp-cmake.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cmake.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-cmake.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cobol.el b/emacs/elpa/lsp-mode-20241123.739/lsp-cobol.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cobol.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-cobol.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-completion.el b/emacs/elpa/lsp-mode-20241123.739/lsp-completion.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-completion.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-completion.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-credo.el b/emacs/elpa/lsp-mode-20241123.739/lsp-credo.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-credo.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-credo.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-crystal.el b/emacs/elpa/lsp-mode-20241123.739/lsp-crystal.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-crystal.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-crystal.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-csharp.el b/emacs/elpa/lsp-mode-20241123.739/lsp-csharp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-csharp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-csharp.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-css.el b/emacs/elpa/lsp-mode-20241123.739/lsp-css.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-css.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-css.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cucumber.el b/emacs/elpa/lsp-mode-20241123.739/lsp-cucumber.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cucumber.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-cucumber.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cypher.el b/emacs/elpa/lsp-mode-20241123.739/lsp-cypher.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-cypher.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-cypher.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-d.el b/emacs/elpa/lsp-mode-20241123.739/lsp-d.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-d.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-d.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dhall.el b/emacs/elpa/lsp-mode-20241123.739/lsp-dhall.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dhall.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-dhall.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-diagnostics.el b/emacs/elpa/lsp-mode-20241123.739/lsp-diagnostics.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-diagnostics.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-diagnostics.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dired.el b/emacs/elpa/lsp-mode-20241123.739/lsp-dired.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dired.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-dired.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dockerfile.el b/emacs/elpa/lsp-mode-20241123.739/lsp-dockerfile.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dockerfile.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-dockerfile.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dot.el b/emacs/elpa/lsp-mode-20241123.739/lsp-dot.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-dot.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-dot.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-earthly.el b/emacs/elpa/lsp-mode-20241123.739/lsp-earthly.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-earthly.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-earthly.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-elixir.el b/emacs/elpa/lsp-mode-20241123.739/lsp-elixir.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-elixir.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-elixir.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-elm.el b/emacs/elpa/lsp-mode-20241123.739/lsp-elm.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-elm.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-elm.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-emmet.el b/emacs/elpa/lsp-mode-20241123.739/lsp-emmet.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-emmet.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-emmet.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-erlang.el b/emacs/elpa/lsp-mode-20241123.739/lsp-erlang.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-erlang.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-erlang.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241123.739/lsp-eslint.el b/emacs/elpa/lsp-mode-20241123.739/lsp-eslint.el
@@ -0,0 +1,463 @@
+;;; lsp-eslint.el --- lsp-mode eslint integration    -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2019  Ivan Yonchovski
+
+;; Author: Ivan Yonchovski <yyoncho@gmail.com>
+;; Keywords: languages
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'lsp-protocol)
+(require 'lsp-mode)
+
+(defconst lsp-eslint/status-ok 1)
+(defconst lsp-eslint/status-warn 2)
+(defconst lsp-eslint/status-error 3)
+
+(defgroup lsp-eslint nil
+  "ESLint language server group."
+  :group 'lsp-mode
+  :link '(url-link "https://github.com/microsoft/vscode-eslint"))
+
+(defcustom lsp-eslint-unzipped-path (f-join lsp-server-install-dir "eslint/unzipped")
+  "The path to the file in which `eslint' will be stored."
+  :type 'file
+  :group 'lsp-eslint
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-download-url "https://github.com/emacs-lsp/lsp-server-binaries/blob/master/dbaeumer.vscode-eslint-3.0.10.vsix?raw=true"
+  "ESLint language server download url."
+  :type 'string
+  :group 'lsp-eslint
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-eslint-server-command `("node"
+                                       "~/server/out/eslintServer.js"
+                                       "--stdio")
+  "Command to start ESLint server."
+  :risky t
+  :type '(repeat string)
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-enable t
+  "Controls whether ESLint is enabled for JavaScript files or not."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-package-manager "npm"
+  "The package manager you use to install node modules."
+  :type '(choice (const :tag "npm" "npm")
+                 (const :tag "yarn" "yarn")
+                 (const :tag "pnpm" "pnpm")
+                 (string :tag "other"))
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-format t
+  "Whether to perform format."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-node-path nil
+  "A path added to NODE_PATH when resolving the `eslint' module."
+  :type '(repeat string)
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-node "node"
+  "Path to Node.js."
+  :type 'file
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-options nil
+  "The ESLint options object to provide args normally passed to
+  `eslint' when executed from a command line (see
+  https://eslint.org/docs/latest/integrate/nodejs-api)."
+  :type 'alist)
+
+(defcustom lsp-eslint-experimental nil
+  "The eslint experimental configuration."
+  :type 'alist)
+
+(defcustom lsp-eslint-config-problems nil
+  "The eslint problems configuration."
+  :type 'alist)
+
+(defcustom lsp-eslint-time-budget nil
+  "The eslint config to inform you of slow validation times and
+  long ESLint runs when computing code fixes during save."
+  :type 'alist)
+
+(defcustom lsp-eslint-trace-server "off"
+  "Traces the communication between VSCode and the ESLint linter service."
+  :type 'string)
+
+(defcustom lsp-eslint-run "onType"
+  "Run the linter on save (onSave) or on type (onType)"
+  :type '(choice (const :tag "onSave" "onSave")
+                 (const :tag "onType" "onType"))
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-auto-fix-on-save nil
+  "Turns auto fix on save on or off."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-fix-all-problem-type "all"
+  "Determines which problems are fixed when running the
+source.fixAll code action."
+  :type '(choice
+          (const "all")
+          (const "problems")
+          string)
+  :package-version '(lsp-mode . "7.0.1"))
+
+(defcustom lsp-eslint-quiet nil
+  "Turns on quiet mode, which ignores warnings."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-working-directories []
+  "A vector of working directory names to use.
+Can be a pattern, an absolute path, a path relative to the workspace,
+or a supported mode such as \"auto\" or \"location\".
+Examples:
+ - \"/home/user/abc/\"
+ - \"abc/\"
+ - (directory \"abc\") which is equivalent to \"abc\" above
+ - (pattern \"abc/*\")
+ - (mode \"auto\")
+ - (mode \"location\")
+Note that the home directory reference ~/ is not currently supported, use
+/home/[user]/ instead."
+  :type '(lsp-repeatable-vector (choice string (plist mode string)))
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-validate '("svelte")
+  "An array of language ids which should always be validated by ESLint."
+  :type '(repeat string)
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-provide-lint-task nil
+  "Controls whether a task for linting the whole workspace will be available."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-lint-task-enable nil
+  "Controls whether a task for linting the whole workspace will be available."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-lint-task-options "."
+  "Command line options applied when running the task for linting the whole
+workspace (see https://eslint.org/docs/user-guide/command-line-interface)."
+  :type 'string
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-runtime nil
+  "The location of the node binary to run ESLint under."
+  :type '(repeat string)
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-code-action-disable-rule-comment t
+  "Controls whether code actions to add a rule-disabling comment should be shown."
+  :type 'bool
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-code-action-disable-rule-comment-location "separateLine"
+  "Controls where the disable rule code action places comments.
+
+Accepts the following values:
+- \"separateLine\": Add the comment above the line to be disabled (default).
+- \"sameLine\": Add the comment on the same line that will be disabled."
+  :type '(choice
+          (const "separateLine")
+          (const "sameLine"))
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-code-action-show-documentation t
+  "Controls whether code actions to show documentation for an ESLint rule should
+be shown."
+  :type 'bool
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-warn-on-ignored-files nil
+  "Controls whether a warning should be emitted when a file is ignored."
+  :type 'bool
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-rules-customizations []
+  "Controls severity overrides for ESLint rules.
+
+The value is a vector of alists, with each alist containing the following keys:
+- rule - The rule to match. Can match wildcards with *, or be prefixed with !
+  to negate the match.
+- severity - The severity to report this rule as. Can be one of the following:
+  - \"off\": Disable the rule.
+  - \"info\": Report as informational.
+  - \"warn\": Report as a warning.
+  - \"error\": Report as an error.
+  - \"upgrade\": Increase by 1 severity level (eg. warning -> error).
+  - \"downgrade\": Decrease by 1 severity level (eg. warning -> info).
+  - \"default\": Report as the same severity specified in the ESLint config."
+  :type '(lsp-repeatable-vector
+          (alist :options ((rule string)
+                           (severity (choice
+                                      (const "off")
+                                      (const "info")
+                                      (const "warn")
+                                      (const "error")
+                                      (const "upgrade")
+                                      (const "downgrade")
+                                      (const "default"))))))
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-experimental-incremental-sync t
+  "Controls whether the new incremental text document synchronization should
+be used."
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-eslint-save-library-choices t
+  "Controls whether to remember choices made to permit or deny ESLint libraries
+from running."
+  :type 'boolean
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-eslint-library-choices-file (expand-file-name (locate-user-emacs-file ".lsp-eslint-choices"))
+  "The file where choices to permit or deny ESLint libraries from running is
+stored."
+  :type 'string
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defun lsp--find-eslint ()
+  (or
+   (when-let* ((workspace-folder (lsp-find-session-folder (lsp-session) default-directory)))
+     (let ((eslint-local-path (f-join workspace-folder "node_modules" ".bin"
+                                      (if (eq system-type 'windows-nt) "eslint.cmd" "eslint"))))
+       (when (f-exists? eslint-local-path)
+         eslint-local-path)))
+   "eslint"))
+
+(defun lsp-eslint-create-default-configuration ()
+  "Create default ESLint configuration."
+  (interactive)
+  (unless (lsp-session-folders (lsp-session))
+    (user-error "There are no workspace folders"))
+  (pcase (->> (lsp-session)
+              lsp-session-folders
+              (-filter (lambda (dir)
+                         (-none?
+                          (lambda (file) (f-exists? (f-join dir file)))
+                          '(".eslintrc.js" ".eslintrc.yaml" ".eslintrc.yml" ".eslintrc" ".eslintrc.json")))))
+    (`nil (user-error "All workspace folders contain ESLint configuration"))
+    (folders (let ((default-directory (completing-read "Select project folder: " folders nil t)))
+               (async-shell-command (format "%s --init" (lsp--find-eslint)))))))
+
+(lsp-defun lsp-eslint-status-handler (workspace (&eslint:StatusParams :state))
+  (setf (lsp--workspace-status-string workspace)
+        (propertize "ESLint"
+                    'face (cond
+                           ((eq state lsp-eslint/status-error) 'error)
+                           ((eq state lsp-eslint/status-warn) 'warn)
+                           (t 'success)))))
+
+(lsp-defun lsp-eslint--configuration (_workspace (&ConfigurationParams :items))
+  (->> items
+       (seq-map (-lambda ((&ConfigurationItem :scope-uri?))
+                  (-when-let* ((file (lsp--uri-to-path scope-uri?))
+                               (buffer (find-buffer-visiting file))
+                               (workspace-folder (lsp-find-session-folder (lsp-session) file)))
+                    (with-current-buffer buffer
+                      (list :validate (if (member (lsp-buffer-language) lsp-eslint-validate) "on" "probe")
+                            :packageManager lsp-eslint-package-manager
+                            :codeAction (list
+                                         :disableRuleComment (list
+                                                              :enable (lsp-json-bool lsp-eslint-code-action-disable-rule-comment)
+                                                              :location lsp-eslint-code-action-disable-rule-comment-location)
+                                         :showDocumentation (list
+                                                             :enable (lsp-json-bool lsp-eslint-code-action-show-documentation)))
+                            :codeActionOnSave (list :enable (lsp-json-bool lsp-eslint-auto-fix-on-save)
+                                                    :mode lsp-eslint-fix-all-problem-type)
+                            :format (lsp-json-bool lsp-eslint-format)
+                            :quiet (lsp-json-bool lsp-eslint-quiet)
+                            :onIgnoredFiles (if lsp-eslint-warn-on-ignored-files "warn" "off")
+                            :options (or lsp-eslint-options (ht))
+                            :experimental (or lsp-eslint-experimental (ht))
+                            :problems (or lsp-eslint-config-problems (ht))
+                            :timeBudget (or lsp-eslint-time-budget (ht))
+                            :rulesCustomizations lsp-eslint-rules-customizations
+                            :run lsp-eslint-run
+                            :nodePath lsp-eslint-node-path
+                            :workingDirectory (lsp-eslint--working-directory workspace-folder file)
+                            :workspaceFolder (list :uri (lsp--path-to-uri workspace-folder)
+                                                   :name (f-filename workspace-folder)))))))
+       (apply #'vector)))
+
+(defun lsp-eslint--working-directory (workspace current-file)
+  "Find the first directory in the parameter config.workingDirectories which
+contains the current file"
+  (let* ((directories (-map (lambda (dir)
+                              (when (and (listp dir) (plist-member dir 'directory))
+                                (setq dir (plist-get dir 'directory)))
+                              (cond
+                               ((not (listp dir))
+                                (if (f-absolute? dir) dir (f-join workspace dir)))
+                               ((plist-member dir 'pattern)
+                                (setq dir (plist-get dir 'pattern))
+                                (when (not (f-absolute? dir))
+                                  (setq dir (f-join workspace dir)))
+                                (f-glob dir))
+                               ((plist-member dir 'mode)
+                                ;; we don't want this setting to get flattened by -flatten
+                                `(mode . ,(plist-get dir 'mode)))))
+                            (append lsp-eslint-working-directories nil)))
+         (working-directory (-first (lambda (dir)
+                                      (if (stringp dir)
+                                          (f-ancestor-of-p dir current-file)
+                                        dir))
+                                    (-flatten directories))))
+    (cond
+     ((consp working-directory) `(:mode ,(cdr working-directory)))
+     ((stringp working-directory) (list :directory working-directory :!cwd :json-false)))))
+
+(lsp-defun lsp-eslint--open-doc (_workspace (&eslint:OpenESLintDocParams :url))
+  "Open documentation."
+  (browse-url url))
+
+(defun lsp-eslint-apply-all-fixes ()
+  "Apply all autofixes in the current buffer."
+  (interactive)
+  (lsp-send-execute-command "eslint.applyAllFixes" (vector (lsp--versioned-text-document-identifier))))
+
+;; XXX: replace with `lsp-make-interactive-code-action' macro
+;; (lsp-make-interactive-code-action eslint-fix-all "source.fixAll.eslint")
+
+(defun lsp-eslint-fix-all ()
+  "Perform the source.fixAll.eslint code action, if available."
+  (interactive)
+  (condition-case nil
+      (lsp-execute-code-action-by-kind "source.fixAll.eslint")
+    (lsp-no-code-actions
+     (when (called-interactively-p 'any)
+       (lsp--info "source.fixAll.eslint action not available")))))
+
+(defun lsp-eslint-server-command ()
+  (if (lsp-eslint-server-exists? lsp-eslint-server-command)
+      lsp-eslint-server-command
+    `(,lsp-eslint-node ,(f-join lsp-eslint-unzipped-path
+                                "extension/server/out/eslintServer.js")
+                       "--stdio")))
+
+(defun lsp-eslint-server-exists? (eslint-server-command)
+  (let* ((command-name (f-base (f-filename (cl-first eslint-server-command))))
+         (first-argument (cl-second eslint-server-command))
+         (first-argument-exist (and first-argument (file-exists-p first-argument))))
+    (if (equal command-name lsp-eslint-node)
+        first-argument-exist
+      (executable-find (cl-first eslint-server-command)))))
+
+(defvar lsp-eslint--stored-libraries (ht)
+  "Hash table defining if a given path to an ESLint library is allowed to run.
+If the value for a key is 4, it will be allowed. If it is 1, it will not. If a
+value does not exist for the key, or the value is nil, the user will be prompted
+to allow or deny it.")
+
+(when (and (file-exists-p lsp-eslint-library-choices-file)
+           lsp-eslint-save-library-choices)
+  (setq lsp-eslint--stored-libraries (lsp--read-from-file lsp-eslint-library-choices-file)))
+
+(lsp-defun lsp-eslint--confirm-local (_workspace (&eslint:ConfirmExecutionParams :library-path) callback)
+  (if-let* ((option-alist '(("Always" 4 . t)
+                           ("Yes" 4 . nil)
+                           ("No" 1 . nil)
+                           ("Never" 1 . t)))
+           (remembered-answer (gethash library-path lsp-eslint--stored-libraries)))
+      (funcall callback remembered-answer)
+    (lsp-ask-question
+     (format
+      "Allow lsp-mode to execute %s? Note: The latest versions of the ESLint language server no longer create this prompt."
+      library-path)
+     (mapcar 'car option-alist)
+     (lambda (response)
+       (let ((option (cdr (assoc response option-alist))))
+         (when (cdr option)
+           (puthash library-path (car option) lsp-eslint--stored-libraries)
+           (when lsp-eslint-save-library-choices
+             (lsp--persist lsp-eslint-library-choices-file lsp-eslint--stored-libraries)))
+         (funcall callback (car option)))))))
+
+(defun lsp-eslint--probe-failed (_workspace _message)
+  "Called when the server detects a misconfiguration in ESLint."
+  (lsp--error "ESLint is not configured correctly. Please ensure your eslintrc is set up for the languages you are using."))
+
+(lsp-register-client
+ (make-lsp-client
+  :new-connection
+  (lsp-stdio-connection
+   (lambda () (lsp-eslint-server-command))
+   (lambda () (lsp-eslint-server-exists? (lsp-eslint-server-command))))
+  :activation-fn (lambda (filename &optional _)
+                   (when lsp-eslint-enable
+                     (or (string-match-p (rx (one-or-more anything) "."
+                                             (or "ts" "js" "jsx" "tsx" "html" "vue" "svelte")eos)
+                                         filename)
+                         (and (derived-mode-p 'js-mode 'js2-mode 'typescript-mode 'typescript-ts-mode 'html-mode 'svelte-mode)
+                           (not (string-match-p "\\.json\\'" filename))))))
+  :priority -1
+  :completion-in-comments? t
+  :add-on? t
+  :multi-root t
+  :notification-handlers (ht ("eslint/status" #'lsp-eslint-status-handler))
+  :request-handlers (ht ("workspace/configuration" #'lsp-eslint--configuration)
+                        ("eslint/openDoc" #'lsp-eslint--open-doc)
+                        ("eslint/probeFailed" #'lsp-eslint--probe-failed))
+  :async-request-handlers (ht ("eslint/confirmESLintExecution" #'lsp-eslint--confirm-local))
+  :server-id 'eslint
+  :initialized-fn (lambda (workspace)
+                    (with-lsp-workspace workspace
+                      (lsp--server-register-capability
+                       (lsp-make-registration
+                        :id "random-id"
+                        :method "workspace/didChangeWatchedFiles"
+                        :register-options? (lsp-make-did-change-watched-files-registration-options
+                                            :watchers
+                                            `[,(lsp-make-file-system-watcher
+                                                :glob-pattern "**/.eslintr{c.js,c.yaml,c.yml,c,c.json}")
+                                              ,(lsp-make-file-system-watcher
+                                                :glob-pattern "**/.eslintignore")
+                                              ,(lsp-make-file-system-watcher
+                                                :glob-pattern "**/package.json")])))))
+  :download-server-fn (lambda (_client callback error-callback _update?)
+                        (let ((tmp-zip (make-temp-file "ext" nil ".zip")))
+                          (delete-file tmp-zip)
+                          (lsp-download-install
+                           (lambda (&rest _)
+                             (condition-case err
+                                 (progn
+                                   (lsp-unzip tmp-zip lsp-eslint-unzipped-path)
+                                   (funcall callback))
+                               (error (funcall error-callback err))))
+                           error-callback
+                           :url lsp-eslint-download-url
+                           :store-path tmp-zip)))))
+
+(lsp-consistency-check lsp-eslint)
+
+(provide 'lsp-eslint)
+;;; lsp-eslint.el ends here
diff --git a/emacs/elpa/lsp-mode-20241123.739/lsp-eslint.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-eslint.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fennel.el b/emacs/elpa/lsp-mode-20241123.739/lsp-fennel.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fennel.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-fennel.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fortran.el b/emacs/elpa/lsp-mode-20241123.739/lsp-fortran.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fortran.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-fortran.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fsharp.el b/emacs/elpa/lsp-mode-20241123.739/lsp-fsharp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-fsharp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-fsharp.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-futhark.el b/emacs/elpa/lsp-mode-20241123.739/lsp-futhark.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-futhark.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-futhark.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-gdscript.el b/emacs/elpa/lsp-mode-20241123.739/lsp-gdscript.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-gdscript.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-gdscript.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-gleam.el b/emacs/elpa/lsp-mode-20241123.739/lsp-gleam.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-gleam.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-gleam.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-glsl.el b/emacs/elpa/lsp-mode-20241123.739/lsp-glsl.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-glsl.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-glsl.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-go.el b/emacs/elpa/lsp-mode-20241123.739/lsp-go.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-go.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-go.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-golangci-lint.el b/emacs/elpa/lsp-mode-20241123.739/lsp-golangci-lint.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-golangci-lint.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-golangci-lint.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-graphql.el b/emacs/elpa/lsp-mode-20241123.739/lsp-graphql.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-graphql.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-graphql.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-groovy.el b/emacs/elpa/lsp-mode-20241123.739/lsp-groovy.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-groovy.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-groovy.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-hack.el b/emacs/elpa/lsp-mode-20241123.739/lsp-hack.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-hack.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-hack.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-haxe.el b/emacs/elpa/lsp-mode-20241123.739/lsp-haxe.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-haxe.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-haxe.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-headerline.el b/emacs/elpa/lsp-mode-20241123.739/lsp-headerline.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-headerline.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-headerline.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-html.el b/emacs/elpa/lsp-mode-20241123.739/lsp-html.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-html.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-html.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-hy.el b/emacs/elpa/lsp-mode-20241123.739/lsp-hy.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-hy.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-hy.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-icons.el b/emacs/elpa/lsp-mode-20241123.739/lsp-icons.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-icons.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-icons.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ido.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ido.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ido.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ido.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-idris.el b/emacs/elpa/lsp-mode-20241123.739/lsp-idris.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-idris.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-idris.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-iedit.el b/emacs/elpa/lsp-mode-20241123.739/lsp-iedit.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-iedit.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-iedit.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-javascript.el b/emacs/elpa/lsp-mode-20241123.739/lsp-javascript.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-javascript.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-javascript.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-jq.el b/emacs/elpa/lsp-mode-20241123.739/lsp-jq.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-jq.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-jq.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-json.el b/emacs/elpa/lsp-mode-20241123.739/lsp-json.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-json.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-json.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-jsonnet.el b/emacs/elpa/lsp-mode-20241123.739/lsp-jsonnet.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-jsonnet.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-jsonnet.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-kotlin.el b/emacs/elpa/lsp-mode-20241123.739/lsp-kotlin.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-kotlin.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-kotlin.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lens.el b/emacs/elpa/lsp-mode-20241123.739/lsp-lens.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lens.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-lens.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lisp.el b/emacs/elpa/lsp-mode-20241123.739/lsp-lisp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lisp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-lisp.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lua.el b/emacs/elpa/lsp-mode-20241123.739/lsp-lua.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-lua.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-lua.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-magik.el b/emacs/elpa/lsp-mode-20241123.739/lsp-magik.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-magik.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-magik.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-markdown.el b/emacs/elpa/lsp-mode-20241123.739/lsp-markdown.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-markdown.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-markdown.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-marksman.el b/emacs/elpa/lsp-mode-20241123.739/lsp-marksman.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-marksman.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-marksman.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mdx.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mdx.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mdx.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-mdx.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-meson.el b/emacs/elpa/lsp-mode-20241123.739/lsp-meson.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-meson.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-meson.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mint.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mint.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mint.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-mint.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mode-autoloads.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mode-autoloads.el
diff --git a/emacs/elpa/lsp-mode-20241123.739/lsp-mode-pkg.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mode-pkg.el
@@ -0,0 +1,15 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "lsp-mode" "20241123.739"
+  "LSP mode."
+  '((emacs         "27.1")
+    (dash          "2.18.0")
+    (f             "0.20.0")
+    (ht            "2.3")
+    (spinner       "1.7.3")
+    (markdown-mode "2.3")
+    (lv            "0")
+    (eldoc         "1.11"))
+  :url "https://github.com/emacs-lsp/lsp-mode"
+  :commit "ae4907082b429c35bdc675cb5614e1d9aa520171"
+  :revdesc "ae4907082b42"
+  :keywords '("languages"))
diff --git a/emacs/elpa/lsp-mode-20241123.739/lsp-mode.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mode.el
@@ -0,0 +1,9958 @@
+;;; lsp-mode.el --- LSP mode                              -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2020-2024 emacs-lsp maintainers
+
+;; Author: Vibhav Pant, Fangrui Song, Ivan Yonchovski
+;; Keywords: languages
+;; Package-Requires: ((emacs "27.1") (dash "2.18.0") (f "0.20.0") (ht "2.3") (spinner "1.7.3") (markdown-mode "2.3") (lv "0") (eldoc "1.11"))
+;; Package-Version: 20241123.739
+;; Package-Revision: ae4907082b42
+
+;; URL: https://github.com/emacs-lsp/lsp-mode
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Emacs client/library for the Language Server Protocol
+
+;;; Code:
+
+(require 'cl-generic)
+(require 'cl-lib)
+(require 'compile)
+(require 'dash)
+(require 'epg)
+(require 'ewoc)
+(require 'f)
+(require 'filenotify)
+(require 'files)
+(require 'ht)
+(require 'imenu)
+(require 'inline)
+(require 'json)
+(require 'lv)
+(require 'markdown-mode)
+(require 'network-stream)
+(require 'pcase)
+(require 'rx)
+(require 's)
+(require 'seq)
+(require 'spinner)
+(require 'subr-x)
+(require 'tree-widget)
+(require 'url-parse)
+(require 'url-util)
+(require 'widget)
+(require 'xref)
+(require 'minibuffer)
+(require 'help-mode)
+(require 'lsp-protocol)
+
+(defgroup lsp-mode nil
+  "Language Server Protocol client."
+  :group 'tools
+  :tag "Language Server (lsp-mode)")
+
+(declare-function evil-set-command-property "ext:evil-common")
+(declare-function projectile-project-root "ext:projectile")
+(declare-function yas-expand-snippet "ext:yasnippet")
+(declare-function dap-mode "ext:dap-mode")
+(declare-function dap-auto-configure-mode "ext:dap-mode")
+
+(defvar yas-inhibit-overlay-modification-protection)
+(defvar yas-indent-line)
+(defvar yas-wrap-around-region)
+(defvar yas-also-auto-indent-first-line)
+(defvar dap-auto-configure-mode)
+(defvar dap-ui-menu-items)
+(defvar company-minimum-prefix-length)
+
+(defconst lsp--message-type-face
+  `((1 . ,compilation-error-face)
+    (2 . ,compilation-warning-face)
+    (3 . ,compilation-message-face)
+    (4 . ,compilation-info-face)))
+
+(defconst lsp--errors
+  '((-32700 "Parse Error")
+    (-32600 "Invalid Request")
+    (-32601 "Method not Found")
+    (-32602 "Invalid Parameters")
+    (-32603 "Internal Error")
+    (-32099 "Server Start Error")
+    (-32000 "Server End Error")
+    (-32002 "Server Not Initialized")
+    (-32001 "Unknown Error Code")
+    (-32800 "Request Cancelled"))
+  "Alist of error codes to user friendly strings.")
+
+(defconst lsp--empty-ht (make-hash-table))
+
+(eval-and-compile
+  (defun dash-expand:&lsp-wks (key source)
+    `(,(intern-soft (format "lsp--workspace-%s" (eval key))) ,source))
+
+  (defun dash-expand:&lsp-cln (key source)
+    `(,(intern-soft (format "lsp--client-%s" (eval key))) ,source)))
+
+(define-obsolete-variable-alias 'lsp-print-io 'lsp-log-io "lsp-mode 6.1")
+
+(defcustom lsp-log-io nil
+  "If non-nil, log all messages from the language server to a *lsp-log* buffer."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-log-io-allowlist-methods '()
+  "The methods to filter before print to lsp-log-io."
+  :group 'lsp-mode
+  :type '(repeat string)
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-log-max message-log-max
+  "Maximum number of lines to keep in the log buffer.
+If nil, disable message logging.  If t, log messages but don’t truncate
+the buffer when it becomes large."
+  :group 'lsp-mode
+  :type '(choice (const :tag "Disable" nil)
+                 (integer :tag "lines")
+                 (const :tag "Unlimited" t))
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-io-messages-max t
+  "Maximum number of messages that can be locked in a `lsp-io' buffer."
+  :group 'lsp-mode
+  :type '(choice (const :tag "Unlimited" t)
+                 (integer :tag "Messages"))
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-keep-workspace-alive t
+  "If non nil keep workspace alive when the last workspace buffer is closed."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-enable-snippet t
+  "Enable/disable snippet completion support."
+  :group 'lsp-completion
+  :type 'boolean)
+
+(defcustom lsp-enable-folding t
+  "Enable/disable code folding support."
+  :group 'lsp-mode
+  :type 'boolean
+  :package-version '(lsp-mode . "6.1"))
+
+(define-obsolete-variable-alias 'lsp-enable-semantic-highlighting 'lsp-semantic-tokens-enable "lsp-mode 8.0.0")
+
+(defcustom lsp-semantic-tokens-enable nil
+  "Enable/disable support for semantic tokens.
+As defined by the Language Server Protocol 3.16."
+  :group 'lsp-semantic-tokens
+  :type 'boolean)
+
+(defcustom lsp-folding-range-limit nil
+  "The maximum number of folding ranges to receive from the language server."
+  :group 'lsp-mode
+  :type '(choice (const :tag "No limit." nil)
+                 (integer :tag "Number of lines."))
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-folding-line-folding-only nil
+  "If non-nil, only fold complete lines."
+  :group 'lsp-mode
+  :type 'boolean
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-client-packages
+  '( ccls lsp-actionscript lsp-ada lsp-angular lsp-ansible lsp-asm lsp-astro
+     lsp-autotools lsp-awk lsp-bash lsp-beancount lsp-bufls lsp-clangd
+     lsp-clojure lsp-cmake lsp-cobol lsp-credo lsp-crystal lsp-csharp lsp-css
+     lsp-cucumber lsp-cypher lsp-d lsp-dart lsp-dhall lsp-docker lsp-dockerfile
+     lsp-earthly lsp-elixir lsp-elm lsp-emmet lsp-erlang lsp-eslint lsp-fortran lsp-futhark
+     lsp-fsharp lsp-gdscript lsp-gleam lsp-glsl lsp-go lsp-golangci-lint lsp-grammarly
+     lsp-graphql lsp-groovy lsp-hack lsp-haskell lsp-haxe lsp-idris lsp-java
+     lsp-javascript lsp-jq lsp-json lsp-kotlin lsp-latex lsp-lisp lsp-ltex
+     lsp-lua lsp-fennel lsp-magik lsp-markdown lsp-marksman lsp-mdx lsp-meson lsp-metals lsp-mint
+     lsp-mojo lsp-move lsp-mssql lsp-nextflow lsp-nginx lsp-nim lsp-nix lsp-nushell lsp-ocaml
+     lsp-openscad lsp-pascal lsp-perl lsp-perlnavigator lsp-php lsp-pls
+     lsp-purescript lsp-pwsh lsp-pyls lsp-pylsp lsp-pyright lsp-python-ms
+     lsp-qml lsp-r lsp-racket lsp-remark lsp-rf lsp-roslyn lsp-rubocop lsp-ruby-lsp
+     lsp-ruby-syntax-tree lsp-ruff lsp-rust lsp-semgrep lsp-shader
+     lsp-solargraph lsp-solidity lsp-sonarlint lsp-sorbet lsp-sourcekit
+     lsp-sql lsp-sqls lsp-steep lsp-svelte lsp-tailwindcss lsp-terraform
+     lsp-tex lsp-tilt lsp-toml lsp-trunk lsp-ttcn3 lsp-typeprof lsp-typespec lsp-v
+     lsp-vala lsp-verilog lsp-vetur lsp-vhdl lsp-vimscript lsp-volar lsp-wgsl
+     lsp-xml lsp-yaml lsp-yang lsp-zig)
+  "List of the clients to be automatically required."
+  :group 'lsp-mode
+  :type '(repeat symbol))
+
+(defcustom lsp-progress-via-spinner t
+  "If non-nil, display LSP $/progress reports via a spinner in the modeline."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-progress-spinner-type 'progress-bar
+  "Holds the type of spinner to be used in the mode-line.
+Takes a value accepted by `spinner-start'."
+  :group 'lsp-mode
+  :type `(choice :tag "Choose a spinner by name"
+                 ,@(mapcar (lambda (c) (list 'const (car c)))
+                           spinner-types)))
+
+(defvar-local lsp-use-workspace-root-for-server-default-directory nil
+  "Use `lsp-workspace-root' for `default-directory' when starting LSP process.")
+
+(defvar-local lsp--cur-workspace nil)
+
+(defvar-local lsp--cur-version 0)
+(defvar-local lsp--virtual-buffer-connections nil)
+(defvar-local lsp--virtual-buffer nil)
+(defvar lsp--virtual-buffer-mappings (ht))
+
+(defvar lsp--uri-file-prefix (pcase system-type
+                               (`windows-nt "file:///")
+                               (_ "file://"))
+  "Prefix for a file-uri.")
+
+(defvar-local lsp-buffer-uri nil
+  "If set, return it instead of calculating it using `buffer-file-name'.")
+
+(define-error 'lsp-error "Unknown lsp-mode error")
+(define-error 'lsp-empty-response-error
+  "Empty response from the language server" 'lsp-error)
+(define-error 'lsp-timed-out-error
+  "Timed out while waiting for a response from the language server" 'lsp-error)
+(define-error 'lsp-capability-not-supported
+  "Capability not supported by the language server" 'lsp-error)
+(define-error 'lsp-file-scheme-not-supported
+  "Unsupported file scheme" 'lsp-error)
+(define-error 'lsp-client-already-exists-error
+  "A client with this server-id already exists" 'lsp-error)
+(define-error 'lsp-no-code-actions
+  "No code actions" 'lsp-error)
+
+(defcustom lsp-auto-guess-root nil
+  "Automatically guess the project root using projectile/project.
+Do *not* use this setting unless you are familiar with `lsp-mode'
+internals and you are sure that all of your projects are
+following `projectile'/`project.el' conventions."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-guess-root-without-session nil
+  "Ignore the session file when calculating the project root.
+You almost always want to set lsp-auto-guess-root too.
+Do *not* use this setting unless you are familiar with `lsp-mode'
+internals and you are sure that all of your projects are
+following `projectile'/`project.el' conventions."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-restart 'interactive
+  "Defines how server-exited events must be handled."
+  :group 'lsp-mode
+  :type '(choice (const interactive)
+                 (const auto-restart)
+                 (const ignore)))
+
+(defcustom lsp-session-file (expand-file-name (locate-user-emacs-file ".lsp-session-v1"))
+  "File where session information is stored."
+  :group 'lsp-mode
+  :type 'file)
+
+(defcustom lsp-auto-configure t
+  "Auto configure `lsp-mode' main features.
+When set to t `lsp-mode' will auto-configure completion,
+code-actions, breadcrumb, `flycheck', `flymake', `imenu', symbol highlighting,
+lenses, links, and so on.
+
+For finer granularity you may use `lsp-enable-*' properties."
+  :group 'lsp-mode
+  :type 'boolean
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-disabled-clients nil
+  "A list of disabled/blocklisted clients.
+Each entry in the list can be either:
+a symbol, the server-id for the LSP client, or
+a cons pair (MAJOR-MODE . CLIENTS), where MAJOR-MODE is the major-mode,
+and CLIENTS is either a client or a list of clients.
+
+This option can also be used as a file- or directory-local variable to
+disable a language server for individual files or directories/projects
+respectively."
+  :group 'lsp-mode
+  :type '(repeat (symbol))
+  :safe 'listp
+  :package-version '(lsp-mode . "6.1"))
+
+(defvar lsp-clients (make-hash-table :test 'eql)
+  "Hash table server-id -> client.
+It contains all of the clients that are currently registered.")
+
+(defvar lsp-enabled-clients nil
+  "List of clients allowed to be used for projects.
+When nil, all registered clients are considered candidates.")
+
+(defvar lsp-last-id 0
+  "Last request id.")
+
+(defcustom lsp-before-initialize-hook nil
+  "List of functions to be called before a Language Server has been initialized
+for a new workspace."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-after-initialize-hook nil
+  "List of functions to be called after a Language Server has been initialized
+for a new workspace."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-before-open-hook nil
+  "List of functions to be called before a new file with LSP support is opened."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-after-open-hook nil
+  "List of functions to be called after a new file with LSP support is opened."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-file-watchers t
+  "If non-nil lsp-mode will watch the files in the workspace if
+the server has requested that."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.1"))
+;;;###autoload(put 'lsp-enable-file-watchers 'safe-local-variable #'booleanp)
+
+(define-obsolete-variable-alias 'lsp-file-watch-ignored 'lsp-file-watch-ignored-directories "8.0.0")
+
+(defcustom lsp-file-watch-ignored-directories
+  '(; SCM tools
+    "[/\\\\]\\.git\\'"
+    "[/\\\\]\\.github\\'"
+    "[/\\\\]\\.gitlab\\'"
+    "[/\\\\]\\.circleci\\'"
+    "[/\\\\]\\.hg\\'"
+    "[/\\\\]\\.bzr\\'"
+    "[/\\\\]_darcs\\'"
+    "[/\\\\]\\.svn\\'"
+    "[/\\\\]_FOSSIL_\\'"
+    ;; IDE or build tools
+    "[/\\\\]\\.idea\\'"
+    "[/\\\\]\\.ensime_cache\\'"
+    "[/\\\\]\\.eunit\\'"
+    "[/\\\\]node_modules"
+    "[/\\\\]\\.yarn\\'"
+    "[/\\\\]\\.fslckout\\'"
+    "[/\\\\]\\.tox\\'"
+    "[/\\\\]\\.nox\\'"
+    "[/\\\\]dist\\'"
+    "[/\\\\]dist-newstyle\\'"
+    "[/\\\\]\\.stack-work\\'"
+    "[/\\\\]\\.bloop\\'"
+    "[/\\\\]\\.metals\\'"
+    "[/\\\\]target\\'"
+    "[/\\\\]\\.ccls-cache\\'"
+    "[/\\\\]\\.vs\\'"
+    "[/\\\\]\\.vscode\\'"
+    "[/\\\\]\\.venv\\'"
+    "[/\\\\]\\.mypy_cache\\'"
+    "[/\\\\]\\.pytest_cache\\'"
+    ;; Swift Package Manager
+    "[/\\\\]\\.build\\'"
+    ;; Python
+    "[/\\\\]__pycache__\\'"
+    "[/\\\\]site-packages\\'"
+    "[/\\\\].pyenv\\'"
+    ;; Autotools output
+    "[/\\\\]\\.deps\\'"
+    "[/\\\\]build-aux\\'"
+    "[/\\\\]autom4te.cache\\'"
+    "[/\\\\]\\.reference\\'"
+    ;; Bazel
+    "[/\\\\]bazel-[^/\\\\]+\\'"
+    ;; CSharp
+    "[/\\\\]\\.cache[/\\\\]lsp-csharp\\'"
+    "[/\\\\]\\.meta\\'"
+    "[/\\\\]\\.nuget\\'"
+    ;; Unity
+    "[/\\\\]Library\\'"
+    ;; Clojure
+    "[/\\\\]\\.lsp\\'"
+    "[/\\\\]\\.clj-kondo\\'"
+    "[/\\\\]\\.shadow-cljs\\'"
+    "[/\\\\]\\.babel_cache\\'"
+    "[/\\\\]\\.cpcache\\'"
+    "[/\\\\]\\checkouts\\'"
+    ;; Gradle
+    "[/\\\\]\\.gradle\\'"
+    ;; Maven
+    "[/\\\\]\\.m2\\'"
+    ;; .Net Core build-output
+    "[/\\\\]bin/Debug\\'"
+    "[/\\\\]obj\\'"
+    ;; OCaml and Dune
+    "[/\\\\]_opam\\'"
+    "[/\\\\]_build\\'"
+    ;; Elixir
+    "[/\\\\]\\.elixir_ls\\'"
+    ;; Elixir Credo
+    "[/\\\\]\\.elixir-tools\\'"
+    ;; terraform and terragrunt
+    "[/\\\\]\\.terraform\\'"
+    "[/\\\\]\\.terragrunt-cache\\'"
+    ;; nix-direnv
+    "[/\\\\]\\result"
+    "[/\\\\]\\result-bin"
+    "[/\\\\]\\.direnv\\'")
+  "List of regexps matching directory paths which won't be monitored when
+creating file watches. Customization of this variable is only honored at
+the global level or at a root of an lsp workspace."
+  :group 'lsp-mode
+  :type '(repeat string)
+  :package-version '(lsp-mode . "8.0.0"))
+
+(define-obsolete-function-alias 'lsp-file-watch-ignored 'lsp-file-watch-ignored-directories "7.0.1")
+
+(defun lsp-file-watch-ignored-directories ()
+  lsp-file-watch-ignored-directories)
+
+;; Allow lsp-file-watch-ignored-directories as a file or directory-local variable
+;;;###autoload(put 'lsp-file-watch-ignored-directories 'safe-local-variable 'lsp--string-listp)
+
+(defcustom lsp-file-watch-ignored-files
+  '(
+    ;; Flycheck tempfiles
+    "[/\\\\]flycheck_[^/\\\\]+\\'"
+    ;; lockfiles
+    "[/\\\\]\\.#[^/\\\\]+\\'"
+    ;; backup files
+    "[/\\\\][^/\\\\]+~\\'" )
+  "List of regexps matching files for which change events will
+not be sent to the server.
+
+This setting has no impact on whether a file-watch is created for
+a directory; it merely prevents notifications pertaining to
+matched files from being sent to the server.  To prevent a
+file-watch from being created for a directory, customize
+`lsp-file-watch-ignored-directories'
+
+Customization of this variable is only honored at the global
+level or at a root of an lsp workspace."
+  :group 'lsp-mode
+  :type '(repeat string)
+  :package-version '(lsp-mode . "8.0.0"))
+
+;; Allow lsp-file-watch-ignored-files as a file or directory-local variable
+;;;###autoload(put 'lsp-file-watch-ignored-files 'safe-local-variable 'lsp--string-listp)
+
+(defcustom lsp-after-uninitialized-functions nil
+  "List of functions to be called after a Language Server has been uninitialized."
+  :type 'hook
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.3"))
+
+(defconst lsp--sync-full 1)
+(defconst lsp--sync-incremental 2)
+
+(defcustom lsp-debounce-full-sync-notifications t
+  "If non-nil debounce full sync events.
+This flag affects only servers which do not support incremental updates."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-debounce-full-sync-notifications-interval 1.0
+  "Time to wait before sending full sync synchronization after buffer modification."
+  :type 'float
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.1"))
+
+(defvar lsp--stderr-index 0)
+
+(defvar lsp--delayed-requests nil)
+(defvar lsp--delay-timer nil)
+
+(defcustom lsp-document-sync-method nil
+  "How to sync the document with the language server."
+  :type '(choice (const :tag "Documents are synced by always sending the full content of the document." lsp--sync-full)
+                 (const :tag "Documents are synced by always sending incremental changes to the document." lsp--sync-incremental)
+                 (const :tag "Use the method recommended by the language server." nil))
+  :group 'lsp-mode)
+
+(defcustom lsp-auto-execute-action t
+  "Auto-execute single action."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-links t
+  "If non-nil, all references to links in a file will be made clickable, if
+supported by the language server."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-enable-imenu t
+  "If non-nil, automatically enable `imenu' integration when server provides
+`textDocument/documentSymbol'."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.2"))
+
+(defcustom lsp-enable-dap-auto-configure t
+  "If non-nil, enable `dap-auto-configure-mode`."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "7.0"))
+
+(defcustom lsp-eldoc-enable-hover t
+  "If non-nil, `eldoc' will display hover info when it is present."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-eldoc-render-all nil
+  "Display all of the info returned by document/onHover.
+If this is set to nil, `eldoc' will show only the symbol information."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias 'lsp-enable-completion-at-point
+  'lsp-completion-enable "lsp-mode 7.0.1")
+
+(defcustom lsp-completion-enable t
+  "Enable `completion-at-point' integration."
+  :type 'boolean
+  :group 'lsp-completion)
+
+(defcustom lsp-enable-symbol-highlighting t
+  "Highlight references of the symbol at point."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-xref t
+  "Enable xref integration."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias
+  'lsp-references-exclude-definition
+  'lsp-references-exclude-declaration
+  "9.0.1")
+
+(defcustom lsp-references-exclude-declaration nil
+  "If non-nil, exclude declarations when finding references."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-indentation t
+  "Indent regions using the file formatting functionality provided by the
+language server."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-on-type-formatting t
+  "Enable `textDocument/onTypeFormatting' integration."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-enable-text-document-color t
+  "Enable `textDocument/documentColor' integration."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-before-save-edits t
+  "If non-nil, `lsp-mode' will apply edits suggested by the language server
+before saving a document."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defcustom lsp-after-apply-edits-hook nil
+  "Hooks to run when text edit is applied.
+It contains the operation source."
+  :type 'hook
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-apply-edits-after-file-operations t
+  "Whether to apply edits returned by server after file operations if any.
+Applicable only if server supports workspace.fileOperations for operations:
+`workspace/willRenameFiles', `workspace/willCreateFiles' and
+`workspace/willDeleteFiles'."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-modeline-code-actions-enable t
+  "Whether to show code actions on modeline."
+  :type 'boolean
+  :group 'lsp-modeline)
+
+(defcustom lsp-modeline-diagnostics-enable t
+  "Whether to show diagnostics on modeline."
+  :type 'boolean
+  :group 'lsp-modeline)
+
+(defcustom lsp-modeline-workspace-status-enable t
+  "Whether to show workspace status on modeline."
+  :type 'boolean
+  :group 'lsp-modeline
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-headerline-breadcrumb-enable t
+  "Whether to enable breadcrumb on headerline."
+  :type 'boolean
+  :group 'lsp-headerline)
+
+(defcustom lsp-configure-hook nil
+  "Hooks to run when `lsp-configure-buffer' is called."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-unconfigure-hook nil
+  "Hooks to run when `lsp-unconfig-buffer' is called."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-after-diagnostics-hook nil
+  "Hooks to run after diagnostics are received.
+Note: it runs only if the receiving buffer is open. Use
+`lsp-diagnostics-updated-hook'if you want to be notified when
+diagnostics have changed."
+  :type 'hook
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias 'lsp-after-diagnostics-hook
+  'lsp-diagnostics-updated-hook "lsp-mode 6.4")
+
+(defcustom lsp-diagnostics-updated-hook nil
+  "Hooks to run after diagnostics are received."
+  :type 'hook
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias 'lsp-workspace-folders-changed-hook
+  'lsp-workspace-folders-changed-functions "lsp-mode 6.3")
+
+(defcustom lsp-workspace-folders-changed-functions nil
+  "Hooks to run after the folders has changed.
+The hook will receive two parameters list of added and removed folders."
+  :type 'hook
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias 'lsp-eldoc-hook 'eldoc-documentation-functions "lsp-mode 9.0.0")
+
+(defcustom lsp-before-apply-edits-hook nil
+  "Hooks to run before applying edits."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defgroup lsp-imenu nil
+  "LSP Imenu."
+  :group 'lsp-mode
+  :tag "LSP Imenu")
+
+(defcustom lsp-imenu-show-container-name t
+  "Display the symbol's container name in an imenu entry."
+  :type 'boolean
+  :group 'lsp-imenu)
+
+(defcustom lsp-imenu-container-name-separator "/"
+  "Separator string to use to separate the container name from the symbol while
+displaying imenu entries."
+  :type 'string
+  :group 'lsp-imenu)
+
+(defcustom lsp-imenu-sort-methods '(kind name)
+  "How to sort the imenu items.
+
+The value is a list of `kind' `name' or `position'.  Priorities
+are determined by the index of the element."
+  :type '(repeat (choice (const name)
+                         (const position)
+                         (const kind)))
+  :group 'lsp-imenu)
+
+(defcustom lsp-imenu-index-symbol-kinds nil
+  "Which symbol kinds to show in imenu."
+  :type '(repeat (choice (const :tag "Miscellaneous" nil)
+                         (const :tag "File" File)
+                         (const :tag "Module" Module)
+                         (const :tag "Namespace" Namespace)
+                         (const :tag "Package" Package)
+                         (const :tag "Class" Class)
+                         (const :tag "Method" Method)
+                         (const :tag "Property" Property)
+                         (const :tag "Field" Field)
+                         (const :tag "Constructor" Constructor)
+                         (const :tag "Enum" Enum)
+                         (const :tag "Interface" Interface)
+                         (const :tag "Function" Function)
+                         (const :tag "Variable" Variable)
+                         (const :tag "Constant" Constant)
+                         (const :tag "String" String)
+                         (const :tag "Number" Number)
+                         (const :tag "Boolean" Boolean)
+                         (const :tag "Array" Array)
+                         (const :tag "Object" Object)
+                         (const :tag "Key" Key)
+                         (const :tag "Null" Null)
+                         (const :tag "Enum Member" EnumMember)
+                         (const :tag "Struct" Struct)
+                         (const :tag "Event" Event)
+                         (const :tag "Operator" Operator)
+                         (const :tag "Type Parameter" TypeParameter)))
+  :group 'lsp-imenu)
+
+;; vibhavp: Should we use a lower value (5)?
+(defcustom lsp-response-timeout 10
+  "Number of seconds to wait for a response from the language server before
+timing out. Nil if no timeout."
+  :type '(choice
+          (number :tag "Seconds")
+          (const :tag "No timeout" nil))
+  :group 'lsp-mode)
+
+(defcustom lsp-tcp-connection-timeout 2
+  "The timeout for tcp connection in seconds."
+  :type 'number
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.2"))
+
+(defconst lsp--imenu-compare-function-alist
+  (list (cons 'name #'lsp--imenu-compare-name)
+        (cons 'kind #'lsp--imenu-compare-kind)
+        (cons 'position #'lsp--imenu-compare-line-col))
+  "An alist of (METHOD . FUNCTION).
+METHOD is one of the symbols accepted by
+`lsp-imenu-sort-methods'.
+
+FUNCTION takes two hash tables representing DocumentSymbol.  It
+returns a negative number, 0, or a positive number indicating
+whether the first parameter is less than, equal to, or greater
+than the second parameter.")
+
+(defcustom lsp-diagnostic-clean-after-change nil
+  "When non-nil, clean the diagnostics on change.
+
+Note that when that setting is nil, `lsp-mode' will show stale
+diagnostics until server publishes the new set of diagnostics"
+  :type 'boolean
+  :group 'lsp-diagnostics
+  :package-version '(lsp-mode . "7.0.1"))
+
+(defcustom lsp-server-trace nil
+  "Request tracing on the server side.
+The actual trace output at each level depends on the language server in use.
+Changes take effect only when a new session is started."
+  :type '(choice (const :tag "Disabled" "off")
+                 (const :tag "Messages only" "messages")
+                 (const :tag "Verbose" "verbose")
+                 (const :tag "Default (disabled)" nil))
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.1"))
+
+(defcustom lsp-auto-touch-files t
+  "If non-nil ensure the files exist before sending
+`textDocument/didOpen' notification."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defvar lsp-language-id-configuration
+  '(("\\(^CMakeLists\\.txt\\|\\.cmake\\)\\'" . "cmake")
+    ("\\(^Dockerfile\\(?:\\..*\\)?\\|\\.[Dd]ockerfile\\)\\'" . "dockerfile")
+    ("\\.astro$" . "astro")
+    ("\\.cs\\'" . "csharp")
+    ("\\.css$" . "css")
+    ("\\.cypher$" . "cypher")
+    ("Earthfile" . "earthfile")
+    ("\\.ebuild$" . "shellscript")
+    ("\\.go\\'" . "go")
+    ("\\.html$" . "html")
+    ("\\.hx$" . "haxe")
+    ("\\.hy$" . "hy")
+    ("\\.java\\'" . "java")
+    ("\\.jq$"  . "jq")
+    ("\\.js$" . "javascript")
+    ("\\.json$" . "json")
+    ("\\.jsonc$" . "jsonc")
+    ("\\.jsonnet$" . "jsonnet")
+    ("\\.jsx$" . "javascriptreact")
+    ("\\.lua$" . "lua")
+    ("\\.fnl$" . "fennel")
+    ("\\.mdx\\'" . "mdx")
+    ("\\.nu$" . "nushell")
+    ("\\.php$" . "php")
+    ("\\.ps[dm]?1\\'" . "powershell")
+    ("\\.rs\\'" . "rust")
+    ("\\.spec\\'" . "rpm-spec")
+    ("\\.sql$" . "sql")
+    ("\\.svelte$" . "svelte")
+    ("\\.toml\\'" . "toml")
+    ("\\.ts$" . "typescript")
+    ("\\.tsp$" . "typespec")
+    ("\\.tsx$" . "typescriptreact")
+    ("\\.ttcn3$" . "ttcn3")
+    ("\\.vue$" . "vue")
+    ("\\.xml$" . "xml")
+    ("\\ya?ml$" . "yaml")
+    ("^PKGBUILD$" . "shellscript")
+    ("^go\\.mod\\'" . "go.mod")
+    ("^settings\\.json$" . "jsonc")
+    ("^yang\\.settings$" . "jsonc")
+    ("^meson\\(_options\\.txt\\|\\.\\(build\\|format\\)\\)\\'" . "meson")
+    (ada-mode . "ada")
+    (ada-ts-mode . "ada")
+    (gpr-mode . "gpr")
+    (gpr-ts-mode . "gpr")
+    (awk-mode . "awk")
+    (awk-ts-mode . "awk")
+    (nxml-mode . "xml")
+    (sql-mode . "sql")
+    (vimrc-mode . "vim")
+    (vimscript-ts-mode . "vim")
+    (sh-mode . "shellscript")
+    (bash-ts-mode . "shellscript")
+    (ebuild-mode . "shellscript")
+    (pkgbuild-mode . "shellscript")
+    (envrc-file-mode . "shellscript")
+    (scala-mode . "scala")
+    (scala-ts-mode . "scala")
+    (julia-mode . "julia")
+    (julia-ts-mode . "julia")
+    (clojure-mode . "clojure")
+    (clojurec-mode . "clojure")
+    (clojurescript-mode . "clojurescript")
+    (clojure-ts-mode . "clojure")
+    (clojure-ts-clojurec-mode . "clojure")
+    (clojure-ts-clojurescript-mode . "clojurescript")
+    (java-mode . "java")
+    (java-ts-mode . "java")
+    (jdee-mode . "java")
+    (groovy-mode . "groovy")
+    (nextflow-mode . "nextflow")
+    (python-mode . "python")
+    (python-ts-mode . "python")
+    (cython-mode . "python")
+    ("\\(\\.mojo\\|\\.🔥\\)\\'" . "mojo")
+    (lsp--render-markdown . "markdown")
+    (move-mode . "move")
+    (rust-mode . "rust")
+    (rust-ts-mode . "rust")
+    (rustic-mode . "rust")
+    (kotlin-mode . "kotlin")
+    (kotlin-ts-mode . "kotlin")
+    (css-mode . "css")
+    (css-ts-mode . "css")
+    (less-mode . "less")
+    (less-css-mode . "less")
+    (lua-mode . "lua")
+    (lua-ts-mode . "lua")
+    (sass-mode . "sass")
+    (ssass-mode . "sass")
+    (scss-mode . "scss")
+    (scad-mode . "openscad")
+    (xml-mode . "xml")
+    (c-mode . "c")
+    (c-ts-mode . "c")
+    (c++-mode . "cpp")
+    (c++-ts-mode . "cpp")
+    (cuda-mode . "cuda")
+    (objc-mode . "objective-c")
+    (html-mode . "html")
+    (html-ts-mode . "html")
+    (sgml-mode . "html")
+    (mhtml-mode . "html")
+    (mint-mode . "mint")
+    (go-dot-mod-mode . "go.mod")
+    (go-mod-ts-mode . "go.mod")
+    (go-mode . "go")
+    (go-ts-mode . "go")
+    (graphql-mode . "graphql")
+    (haskell-mode . "haskell")
+    (haskell-ts-mode . "haskell")
+    (hack-mode . "hack")
+    (php-mode . "php")
+    (php-ts-mode . "php")
+    (powershell-mode . "powershell")
+    (powershell-mode . "PowerShell")
+    (powershell-ts-mode . "powershell")
+    (json-mode . "json")
+    (json-ts-mode . "json")
+    (jsonc-mode . "jsonc")
+    (rjsx-mode . "javascript")
+    (js2-mode . "javascript")
+    (js-mode . "javascript")
+    (js-ts-mode . "javascript")
+    (typescript-mode . "typescript")
+    (typescript-ts-mode . "typescript")
+    (typespec-mode . "typespec")
+    (tsx-ts-mode . "typescriptreact")
+    (svelte-mode . "svelte")
+    (fsharp-mode . "fsharp")
+    (reason-mode . "reason")
+    (caml-mode . "ocaml")
+    (tuareg-mode . "ocaml")
+    (futhark-mode . "futhark")
+    (swift-mode . "swift")
+    (elixir-mode . "elixir")
+    (elixir-ts-mode . "elixir")
+    (heex-ts-mode . "elixir")
+    (conf-javaprop-mode . "spring-boot-properties")
+    (yaml-mode . "yaml")
+    (yaml-ts-mode . "yaml")
+    (ruby-mode . "ruby")
+    (enh-ruby-mode . "ruby")
+    (ruby-ts-mode . "ruby")
+    (feature-mode . "cucumber")
+    (fortran-mode . "fortran")
+    (f90-mode . "fortran")
+    (elm-mode . "elm")
+    (dart-mode . "dart")
+    (erlang-mode . "erlang")
+    (dockerfile-mode . "dockerfile")
+    (dockerfile-ts-mode . "dockerfile")
+    (csharp-mode . "csharp")
+    (csharp-tree-sitter-mode . "csharp")
+    (csharp-ts-mode . "csharp")
+    (plain-tex-mode . "plaintex")
+    (context-mode . "context")
+    (cypher-mode . "cypher")
+    (latex-mode . "latex")
+    (LaTeX-mode . "latex")
+    (v-mode . "v")
+    (vhdl-mode . "vhdl")
+    (vhdl-ts-mode . "vhdl")
+    (verilog-mode . "verilog")
+    (terraform-mode . "terraform")
+    (ess-julia-mode . "julia")
+    (ess-r-mode . "r")
+    (crystal-mode . "crystal")
+    (nim-mode . "nim")
+    (dhall-mode . "dhall")
+    (cmake-mode . "cmake")
+    (cmake-ts-mode . "cmake")
+    (purescript-mode . "purescript")
+    (gdscript-mode . "gdscript")
+    (gdscript-ts-mode . "gdscript")
+    (perl-mode . "perl")
+    (cperl-mode . "perl")
+    (robot-mode . "robot")
+    (racket-mode . "racket")
+    (nix-mode . "nix")
+    (nix-ts-mode . "nix")
+    (prolog-mode . "prolog")
+    (vala-mode . "vala")
+    (actionscript-mode . "actionscript")
+    (d-mode . "d")
+    (zig-mode . "zig")
+    (zig-ts-mode . "zig")
+    (text-mode . "plaintext")
+    (markdown-mode . "markdown")
+    (gfm-mode . "markdown")
+    (beancount-mode . "beancount")
+    (conf-toml-mode . "toml")
+    (toml-ts-mode . "toml")
+    (org-mode . "org")
+    (org-journal-mode . "org")
+    (nginx-mode . "nginx")
+    (magik-mode . "magik")
+    (magik-ts-mode . "magik")
+    (idris-mode . "idris")
+    (idris2-mode . "idris2")
+    (gleam-mode . "gleam")
+    (gleam-ts-mode . "gleam")
+    (graphviz-dot-mode . "dot")
+    (tiltfile-mode . "tiltfile")
+    (solidity-mode . "solidity")
+    (bibtex-mode . "bibtex")
+    (rst-mode . "restructuredtext")
+    (glsl-mode . "glsl")
+    (shader-mode . "shaderlab")
+    (wgsl-mode . "wgsl")
+    (jq-mode . "jq")
+    (jq-ts-mode . "jq")
+    (protobuf-mode . "protobuf")
+    (nushell-mode . "nushell")
+    (nushell-ts-mode . "nushell")
+    (meson-mode . "meson")
+    (yang-mode . "yang"))
+  "Language id configuration.")
+
+(defvar lsp--last-active-workspaces nil
+  "Keep track of last active workspace.
+We want to try the last workspace first when jumping into a library
+directory")
+
+(defvar lsp-method-requirements
+  '(("textDocument/callHierarchy" :capability :callHierarchyProvider)
+    ("textDocument/codeAction" :capability :codeActionProvider)
+    ("codeAction/resolve"
+     :check-command (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (lsp:code-action-options-resolve-provider?
+                         (lsp--capability-for-method "textDocument/codeAction")))))
+    ("textDocument/codeLens" :capability :codeLensProvider)
+    ("textDocument/completion" :capability :completionProvider)
+    ("completionItem/resolve"
+     :check-command (lambda (wk)
+                      (with-lsp-workspace wk
+                        (lsp:completion-options-resolve-provider?
+                         (lsp--capability-for-method "textDocument/completion")))))
+    ("textDocument/declaration" :capability :declarationProvider)
+    ("textDocument/definition" :capability :definitionProvider)
+    ("textDocument/documentColor" :capability :colorProvider)
+    ("textDocument/documentLink" :capability :documentLinkProvider)
+    ("textDocument/inlayHint" :capability :inlayHintProvider)
+    ("textDocument/documentHighlight" :capability :documentHighlightProvider)
+    ("textDocument/documentSymbol" :capability :documentSymbolProvider)
+    ("textDocument/foldingRange" :capability :foldingRangeProvider)
+    ("textDocument/formatting" :capability :documentFormattingProvider)
+    ("textDocument/hover" :capability :hoverProvider)
+    ("textDocument/implementation" :capability :implementationProvider)
+    ("textDocument/linkedEditingRange" :capability :linkedEditingRangeProvider)
+    ("textDocument/onTypeFormatting" :capability :documentOnTypeFormattingProvider)
+    ("textDocument/prepareRename"
+     :check-command (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (lsp:rename-options-prepare-provider?
+                         (lsp--capability-for-method "textDocument/rename")))))
+    ("textDocument/rangeFormatting" :capability :documentRangeFormattingProvider)
+    ("textDocument/references" :capability :referencesProvider)
+    ("textDocument/rename" :capability :renameProvider)
+    ("textDocument/selectionRange" :capability :selectionRangeProvider)
+    ("textDocument/semanticTokens" :capability :semanticTokensProvider)
+    ("textDocument/semanticTokensFull"
+     :check-command (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (lsp-get (lsp--capability :semanticTokensProvider) :full))))
+    ("textDocument/semanticTokensFull/Delta"
+     :check-command (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (let ((capFull (lsp-get (lsp--capability :semanticTokensProvider) :full)))
+                          (and (not (booleanp capFull)) (lsp-get capFull :delta))))))
+    ("textDocument/semanticTokensRangeProvider"
+     :check-command (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (lsp-get (lsp--capability :semanticTokensProvider) :range))))
+    ("textDocument/signatureHelp" :capability :signatureHelpProvider)
+    ("textDocument/typeDefinition" :capability :typeDefinitionProvider)
+    ("textDocument/typeHierarchy" :capability :typeHierarchyProvider)
+    ("textDocument/diagnostic" :capability :diagnosticProvider)
+    ("workspace/executeCommand" :capability :executeCommandProvider)
+    ("workspace/symbol" :capability :workspaceSymbolProvider))
+
+  "Map methods to requirements.
+It is used by request-sending functions to determine which server
+must be used for handling a particular message.")
+
+(defconst lsp--file-change-type
+  `((created . 1)
+    (changed . 2)
+    (deleted . 3)))
+
+(defconst lsp--watch-kind
+  `((create . 1)
+    (change . 2)
+    (delete . 4)))
+
+(defvar lsp-window-body-width 40
+  "Window body width when rendering doc.")
+
+(defface lsp-face-highlight-textual
+  '((t :inherit highlight))
+  "Face used for textual occurrences of symbols."
+  :group 'lsp-mode)
+
+(defface lsp-face-highlight-read
+  '((t :inherit highlight :underline t))
+  "Face used for highlighting symbols being read."
+  :group 'lsp-mode)
+
+(defface lsp-face-highlight-write
+  '((t :inherit highlight :weight bold))
+  "Face used for highlighting symbols being written to."
+  :group 'lsp-mode)
+
+(define-obsolete-variable-alias 'lsp-lens-auto-enable
+  'lsp-lens-enable "lsp-mode 7.0.1")
+
+(defcustom lsp-lens-enable t
+  "Auto enable lenses if server supports."
+  :group 'lsp-lens
+  :type 'boolean
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-symbol-highlighting-skip-current nil
+  "If non-nil skip current symbol when setting symbol highlights."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-file-watch-threshold 1000
+  "Show warning if the files to watch are more than.
+Set to nil to disable the warning."
+  :type 'number
+  :group 'lsp-mode)
+;;;###autoload(put 'lsp-file-watch-threshold 'safe-local-variable (lambda (i) (or (numberp i) (not i))))
+
+(defvar lsp-custom-markup-modes
+  '((rust-mode "no_run" "rust,no_run" "rust,ignore" "rust,should_panic"))
+  "Mode to uses with markdown code blocks.
+They are added to `markdown-code-lang-modes'")
+
+(defcustom lsp-signature-render-documentation t
+  "Display signature documentation in `eldoc'."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.2"))
+
+(defcustom lsp-signature-auto-activate '(:on-trigger-char :on-server-request)
+  "Auto activate signature conditions."
+  :type '(repeat (choice (const :tag "On trigger chars pressed." :on-trigger-char)
+                         (const :tag "After selected completion." :after-completion)
+                         (const :tag "When the server has sent show signature help." :on-server-request)))
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.2"))
+
+(defcustom lsp-signature-doc-lines 20
+  "If number, limit the number of lines to show in the docs."
+  :type 'number
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-signature-function 'lsp-lv-message
+  "The function used for displaying signature info.
+It will be called with one param - the signature info. When
+called with nil the signature info must be cleared."
+  :type 'function
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "6.3"))
+
+(defcustom lsp-keymap-prefix "s-l"
+  "LSP-mode keymap prefix."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "6.3"))
+
+(defvar-local lsp--buffer-workspaces ()
+  "List of the buffer workspaces.")
+
+(defvar-local lsp--buffer-deferred nil
+  "Whether buffer was loaded via `lsp-deferred'.")
+
+(defvar lsp--session nil
+  "Contain the `lsp-session' for the current Emacs instance.")
+
+(defvar lsp--tcp-port 10000)
+
+(defvar lsp--client-packages-required nil
+  "If nil, `lsp-client-packages' are yet to be required.")
+
+(defvar lsp--tcp-server-port 0
+  "The server socket which is opened when using `lsp-tcp-server' (a server
+socket is opened in Emacs and the language server connects to it).  The
+default value of 0 ensures that a random high port is used. Set it to a positive
+integer to use a specific port.")
+
+(defvar lsp--tcp-server-wait-seconds 10
+  "Wait this amount of time for the client to connect to our server socket
+when using `lsp-tcp-server'.")
+
+(defvar-local lsp--document-symbols nil
+  "The latest document symbols.")
+
+(defvar-local lsp--document-selection-range-cache nil
+  "The document selection cache.")
+
+(defvar-local lsp--document-symbols-request-async nil
+  "If non-nil, request document symbols asynchronously.")
+
+(defvar-local lsp--document-symbols-tick -1
+  "The value of `buffer-chars-modified-tick' when document
+  symbols were last retrieved.")
+
+(defvar-local lsp--have-document-highlights nil
+  "Set to `t' on symbol highlighting, cleared on
+`lsp--cleanup-highlights-if-needed'. Checking a separately
+defined flag is substantially faster than unconditionally
+calling `remove-overlays'.")
+
+;; Buffer local variable for storing number of lines.
+(defvar lsp--log-lines)
+
+(defvar-local lsp--eldoc-saved-message nil)
+
+(defvar lsp--on-change-timer nil)
+(defvar lsp--on-idle-timer nil)
+
+(defvar-local lsp--signature-last nil)
+(defvar-local lsp--signature-last-index nil)
+(defvar lsp--signature-last-buffer nil)
+
+(defvar-local lsp--virtual-buffer-point-max nil)
+
+(cl-defmethod lsp-execute-command (_server _command _arguments)
+  "Ask SERVER to execute COMMAND with ARGUMENTS.")
+
+(defun lsp-elt (sequence n)
+  "Return Nth element of SEQUENCE or nil if N is out of range."
+  (cond
+   ((listp sequence) (elt sequence n))
+   ((arrayp sequence)
+    (and (> (length sequence) n) (aref sequence n)))
+   (t (and (> (length sequence) n) (elt sequence n)))))
+
+;; define seq-first and seq-rest for older emacs
+(defun lsp-seq-first (sequence)
+  "Return the first element of SEQUENCE."
+  (lsp-elt sequence 0))
+
+(defun lsp-seq-rest (sequence)
+  "Return a sequence of the elements of SEQUENCE except the first one."
+  (seq-drop sequence 1))
+
+;;;###autoload
+(defun lsp--string-listp (sequence)
+  "Return t if all elements of SEQUENCE are strings, else nil."
+  (not (seq-find (lambda (x) (not (stringp x))) sequence)))
+
+(defun lsp--string-vector-p (candidate)
+  "Returns true if CANDIDATE is a vector data structure and
+every element of it is of type string, else nil."
+  (and
+   (vectorp candidate)
+   (seq-every-p #'stringp candidate)))
+
+(make-obsolete 'lsp--string-vector-p nil "lsp-mode 8.0.0")
+
+(defun lsp--editable-vector-match (widget value)
+  "Function for `lsp-editable-vector' :match."
+  ;; Value must be a list or a vector and all the members must match the type.
+  (and (or (listp value) (vectorp value))
+       (length (cdr (lsp--editable-vector-match-inline widget value)))))
+
+(defun lsp--editable-vector-match-inline (widget value)
+  "Value for `lsp-editable-vector' :match-inline."
+  (let ((type (nth 0 (widget-get widget :args)))
+        (ok t)
+        found)
+    (while (and value ok)
+      (let ((answer (widget-match-inline type value)))
+        (if answer
+            (let ((head (if (vectorp answer) (aref answer 0) (car answer)))
+                  (tail (if (vectorp answer) (seq-drop 1 answer) (cdr answer))))
+              (setq found (append found head)
+                    value tail))
+          (setq ok nil))))
+    (cons found value)))
+
+(defun lsp--editable-vector-value-to-external (_widget internal-value)
+  "Convert the internal list value to a vector."
+  (if (listp internal-value)
+      (apply 'vector internal-value)
+    internal-value))
+
+(defun lsp--editable-vector-value-to-internal (_widget external-value)
+  "Convert the external vector value to a list."
+  (if (vectorp external-value)
+      (append external-value nil)
+    external-value))
+
+(define-widget 'lsp--editable-vector 'editable-list
+  "A subclass of `editable-list' that accepts and returns a
+vector instead of a list."
+  :value-to-external 'lsp--editable-vector-value-to-external
+  :value-to-internal 'lsp--editable-vector-value-to-internal
+  :match 'lsp--editable-vector-match
+  :match-inline 'lsp--editable-vector-match-inline)
+
+(define-widget 'lsp-repeatable-vector 'lsp--editable-vector
+  "A variable length homogeneous vector."
+  :tag "Repeat"
+  :format "%{%t%}:\n%v%i\n")
+
+(define-widget 'lsp-string-vector 'lazy
+  "A vector of zero or more elements, every element of which is a string.
+Appropriate for any language-specific `defcustom' that needs to
+serialize as a JSON array of strings.
+
+Deprecated. Use `lsp-repeatable-vector' instead. "
+  :offset 4
+  :tag "Vector"
+  :type '(lsp-repeatable-vector string))
+
+(make-obsolete 'lsp-string-vector nil "lsp-mode 8.0.0")
+
+(defvar lsp--show-message t
+  "If non-nil, show debug message from `lsp-mode'.")
+
+(defun lsp--message  (format &rest args)
+  "Wrapper for `message'
+
+We `inhibit-message' the message when the cursor is in the
+minibuffer and when emacs version is before emacs 27 due to the
+fact that we often use `lsp--info', `lsp--warn' and `lsp--error'
+in async context and the call to these function is removing the
+minibuffer prompt. The issue with async messages is already fixed
+in emacs 27.
+
+See #2049"
+  (when lsp--show-message
+    (let ((inhibit-message (or inhibit-message
+                               (and (minibufferp)
+                                    (version< emacs-version "27.0")))))
+      (apply #'message format args))))
+
+(defun lsp--info (format &rest args)
+  "Display lsp info message with FORMAT with ARGS."
+  (lsp--message "%s :: %s" (propertize "LSP" 'face 'success) (apply #'format format args)))
+
+(defun lsp--warn (format &rest args)
+  "Display lsp warn message with FORMAT with ARGS."
+  (lsp--message "%s :: %s" (propertize "LSP" 'face 'warning) (apply #'format format args)))
+
+(defun lsp--error (format &rest args)
+  "Display lsp error message with FORMAT with ARGS."
+  (lsp--message "%s :: %s" (propertize "LSP" 'face 'error) (apply #'format format args)))
+
+(defun lsp-log (format &rest args)
+  "Log message to the ’*lsp-log*’ buffer.
+
+FORMAT and ARGS i the same as for `message'."
+  (when lsp-log-max
+    (let ((log-buffer (get-buffer "*lsp-log*"))
+          (inhibit-read-only t))
+      (unless log-buffer
+        (setq log-buffer (get-buffer-create "*lsp-log*"))
+        (with-current-buffer log-buffer
+          (buffer-disable-undo)
+          (view-mode 1)
+          (set (make-local-variable 'lsp--log-lines) 0)))
+      (with-current-buffer log-buffer
+        (save-excursion
+          (let* ((message (apply 'format format args))
+                 ;; Count newlines in message.
+                 (newlines (1+ (cl-loop with start = 0
+                                        for count from 0
+                                        while (string-match "\n" message start)
+                                        do (setq start (match-end 0))
+                                        finally return count))))
+            (goto-char (point-max))
+
+            ;; in case the buffer is not empty insert before last \n to preserve
+            ;; the point position(in case it is in the end)
+            (if (eq (point) (point-min))
+                (progn
+                  (insert "\n")
+                  (backward-char))
+              (backward-char)
+              (insert "\n"))
+            (insert message)
+
+            (setq lsp--log-lines (+ lsp--log-lines newlines))
+
+            (when (and (integerp lsp-log-max) (> lsp--log-lines lsp-log-max))
+              (let ((to-delete (- lsp--log-lines lsp-log-max)))
+                (goto-char (point-min))
+                (forward-line to-delete)
+                (delete-region (point-min) (point))
+                (setq lsp--log-lines lsp-log-max)))))))))
+
+(defalias 'lsp-message 'lsp-log)
+
+(defalias 'lsp-ht 'ht)
+
+(defalias 'lsp-file-local-name 'file-local-name)
+
+(defun lsp-f-canonical (file-name)
+  "Return the canonical FILE-NAME, without a trailing slash."
+  (directory-file-name (expand-file-name file-name)))
+
+(defalias 'lsp-canonical-file-name 'lsp-f-canonical)
+
+(defun lsp-f-same? (path-a path-b)
+  "Return t if PATH-A and PATH-B are references to the same file.
+Symlinks are not followed."
+  (when (and (f-exists? path-a)
+             (f-exists? path-b))
+    (equal
+     (lsp-f-canonical (directory-file-name (f-expand path-a)))
+     (lsp-f-canonical (directory-file-name (f-expand path-b))))))
+
+(defun lsp-f-parent (path)
+  "Return the parent directory to PATH.
+Symlinks are not followed."
+  (let ((parent (file-name-directory
+                 (directory-file-name (f-expand path default-directory)))))
+    (unless (lsp-f-same? path parent)
+      (if (f-relative? path)
+          (f-relative parent)
+        (directory-file-name parent)))))
+
+(defun lsp-f-ancestor-of? (path-a path-b)
+  "Return t if PATH-A is an ancestor of PATH-B.
+Symlinks are not followed."
+  (unless (lsp-f-same? path-a path-b)
+    (s-prefix? (concat (lsp-f-canonical path-a) (f-path-separator))
+               (lsp-f-canonical path-b))))
+
+(defun lsp--merge-results (results method)
+  "Merge RESULTS by filtering the empty hash-tables and merging
+the lists according to METHOD."
+  (pcase (--map (if (vectorp it)
+                    (append it nil) it)
+                (-filter #'identity results))
+    (`() ())
+    ;; only one result - simply return it
+    (`(,fst) fst)
+    ;; multiple results merge it based on strategy
+    (results
+     (pcase method
+       ("textDocument/hover" (pcase (seq-filter
+                                     (-compose #'not #'lsp-empty?)
+                                     results)
+                               (`(,hover) hover)
+                               (hovers (lsp-make-hover
+                                        :contents
+                                        (-mapcat
+                                         (-lambda ((&Hover :contents))
+                                           (if (and (sequencep contents)
+                                                    (not (stringp contents)))
+                                               (append contents ())
+                                             (list contents)))
+                                         hovers)))))
+       ("textDocument/completion"
+        (lsp-make-completion-list
+         :is-incomplete (seq-some
+                         #'lsp:completion-list-is-incomplete
+                         results)
+         :items (cl-mapcan (lambda (it) (append (if (lsp-completion-list? it)
+                                                    (lsp:completion-list-items it)
+                                                  it)
+                                                nil))
+                           results)))
+       ("completionItem/resolve"
+        (let ((item (cl-first results)))
+          (when-let* ((details (seq-filter #'identity
+                                          (seq-map #'lsp:completion-item-detail? results))))
+            (lsp:set-completion-item-detail?
+             item
+             (string-join details " ")))
+          (when-let* ((docs (seq-filter #'identity
+                                       (seq-map #'lsp:completion-item-documentation? results))))
+            (lsp:set-completion-item-documentation?
+             item
+             (lsp-make-markup-content
+              :kind (or (seq-some (lambda (it)
+                                    (when (equal (lsp:markup-content-kind it)
+                                                 lsp/markup-kind-markdown)
+                                      lsp/markup-kind-markdown))
+                                  docs)
+                        lsp/markup-kind-plain-text)
+              :value (string-join (seq-map (lambda (doc)
+                                             (or (lsp:markup-content-value doc)
+                                                 (and (stringp doc) doc)))
+                                           docs)
+                                  "\n"))))
+          (when-let* ((edits (seq-filter #'identity
+                                        (seq-map #'lsp:completion-item-additional-text-edits? results))))
+            (lsp:set-completion-item-additional-text-edits?
+             item
+             (cl-mapcan (lambda (it) (if (seqp it) it (list it))) edits)))
+          item))
+       (_ (cl-mapcan (lambda (it) (if (seqp it) it (list it))) results))))))
+
+(defun lsp--spinner-start ()
+  "Start spinner indication."
+  (condition-case _err (spinner-start (lsp-progress-spinner-type)) (error)))
+
+(defun lsp--propertize (str type)
+  "Propertize STR as per TYPE."
+  (propertize str 'face (alist-get type lsp--message-type-face)))
+
+(defun lsp-workspaces ()
+  "Return the lsp workspaces associated with the current project."
+  (if lsp--cur-workspace (list lsp--cur-workspace) lsp--buffer-workspaces))
+
+(defun lsp--completing-read (prompt collection transform-fn &optional predicate
+                                    require-match initial-input
+                                    hist def inherit-input-method)
+  "Wrap `completing-read' to provide transformation function and disable sort.
+
+TRANSFORM-FN will be used to transform each of the items before displaying.
+
+PROMPT COLLECTION PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF
+INHERIT-INPUT-METHOD will be proxied to `completing-read' without changes."
+  (let* ((col (--map (cons (funcall transform-fn it) it) collection))
+         (completion (completing-read prompt
+                                      (lambda (string pred action)
+                                        (if (eq action 'metadata)
+                                            `(metadata (display-sort-function . identity))
+                                          (complete-with-action action col string pred)))
+                                      predicate require-match initial-input hist
+                                      def inherit-input-method)))
+    (cdr (assoc completion col))))
+
+(defconst lsp--system-arch (lambda ()
+                             (setq lsp--system-arch
+                                   (pcase system-type
+                                     ('windows-nt
+                                      (pcase system-configuration
+                                        ((rx bol "x86_64-") 'x64)
+                                        (_ 'x86)))
+                                     ('darwin
+                                      (pcase system-configuration
+                                        ((rx "aarch64-") 'arm64)
+                                        (_ 'x64)))
+                                     ('gnu/linux
+                                       (pcase system-configuration
+                                         ((rx bol "aarch64-") 'arm64)
+                                         ((rx bol "x86_64") 'x64)
+                                         ((rx bol (| "i386" "i886")) 'x32)))
+                                     (_
+                                      (pcase system-configuration
+                                        ((rx bol "x86_64") 'x64)
+                                        ((rx bol (| "i386" "i886")) 'x32))))))
+  "Return the system architecture of `Emacs'.
+Special values:
+  `x64'       64bit
+  `x32'       32bit
+  `arm64'     ARM 64bit")
+
+(defmacro lsp-with-current-buffer (buffer-id &rest body)
+  (declare (indent 1) (debug t))
+  `(if-let* ((wcb (plist-get ,buffer-id :with-current-buffer)))
+       (with-lsp-workspaces (plist-get ,buffer-id :workspaces)
+         (funcall wcb (lambda () ,@body)))
+     (with-current-buffer ,buffer-id
+       ,@body)))
+
+(defvar lsp--throw-on-input nil
+  "Make `lsp-*-while-no-input' throws `input' on interrupted.")
+
+(defmacro lsp--catch (tag bodyform &rest handlers)
+  "Catch TAG thrown in BODYFORM.
+The return value from TAG will be handled in HANDLERS by `pcase'."
+  (declare (debug (form form &rest (pcase-PAT body))) (indent 2))
+  (let ((re-sym (make-symbol "re")))
+    `(let ((,re-sym (catch ,tag ,bodyform)))
+       (pcase ,re-sym
+         ,@handlers))))
+
+(defmacro lsp--while-no-input (&rest body)
+  "Wrap BODY in `while-no-input' and respecting `non-essential'.
+If `lsp--throw-on-input' is set, will throw if input is pending, else
+return value of `body' or nil if interrupted."
+  (declare (debug t) (indent 0))
+  `(if non-essential
+       (let ((res (while-no-input ,@body)))
+         (cond
+          ((and lsp--throw-on-input (equal res t))
+           (throw 'input :interrupted))
+          ((booleanp res) nil)
+          (t res)))
+     ,@body))
+
+;; A ‘lsp--client’ object describes the client-side behavior of a language
+;; server.  It is used to start individual server processes, each of which is
+;; represented by a ‘lsp--workspace’ object.  Client objects are normally
+;; created using ‘lsp-define-stdio-client’ or ‘lsp-define-tcp-client’.  Each
+;; workspace refers to exactly one client, but there can be multiple workspaces
+;; for a single client.
+(cl-defstruct lsp--client
+  ;; ‘language-id’ is a function that receives a buffer as a single argument
+  ;; and should return the language identifier for that buffer.  See
+  ;; https://microsoft.github.io/language-server-protocol/specification#textdocumentitem
+  ;; for a list of language identifiers.  Also consult the documentation for
+  ;; the language server represented by this client to find out what language
+  ;; identifiers it supports or expects.
+  (language-id nil)
+
+  ;; ‘add-on?’ when set to t the server will be started no matter whether there
+  ;; is another server handling the same mode.
+  (add-on? nil)
+  ;; ‘new-connection’ is a function that should start a language server process
+  ;; and return a cons (COMMAND-PROCESS . COMMUNICATION-PROCESS).
+  ;; COMMAND-PROCESS must be a process object representing the server process
+  ;; just started.  COMMUNICATION-PROCESS must be a process (including pipe and
+  ;; network processes) that ‘lsp-mode’ uses to communicate with the language
+  ;; server using the language server protocol.  COMMAND-PROCESS and
+  ;; COMMUNICATION-PROCESS may be the same process; in that case
+  ;; ‘new-connection’ may also return that process as a single
+  ;; object. ‘new-connection’ is called with two arguments, FILTER and
+  ;; SENTINEL.  FILTER should be used as process filter for
+  ;; COMMUNICATION-PROCESS, and SENTINEL should be used as process sentinel for
+  ;; COMMAND-PROCESS.
+  (new-connection nil)
+
+  ;; ‘ignore-regexps’ is a list of regexps.  When a data packet from the
+  ;; language server matches any of these regexps, it will be ignored.  This is
+  ;; intended for dealing with language servers that output non-protocol data.
+  (ignore-regexps nil)
+
+  ;; ‘ignore-messages’ is a list of regexps.  When a message from the language
+  ;; server matches any of these regexps, it will be ignored.  This is useful
+  ;; for filtering out unwanted messages; such as servers that send nonstandard
+  ;; message types, or extraneous log messages.
+  (ignore-messages nil)
+
+  ;; ‘notification-handlers’ is a hash table mapping notification method names
+  ;; (strings) to functions handling the respective notifications.  Upon
+  ;; receiving a notification, ‘lsp-mode’ will call the associated handler
+  ;; function passing two arguments, the ‘lsp--workspace’ object and the
+  ;; deserialized notification parameters.
+  (notification-handlers (make-hash-table :test 'equal))
+
+  ;; ‘request-handlers’ is a hash table mapping request method names
+  ;; (strings) to functions handling the respective notifications.  Upon
+  ;; receiving a request, ‘lsp-mode’ will call the associated handler function
+  ;; passing two arguments, the ‘lsp--workspace’ object and the deserialized
+  ;; request parameters.
+  (request-handlers (make-hash-table :test 'equal))
+
+  ;; ‘response-handlers’ is a hash table mapping integral JSON-RPC request
+  ;; identifiers for pending asynchronous requests to functions handling the
+  ;; respective responses.  Upon receiving a response from the language server,
+  ;; ‘lsp-mode’ will call the associated response handler function with a
+  ;; single argument, the deserialized response parameters.
+  (response-handlers (make-hash-table :test 'eql))
+
+  ;; ‘prefix-function’ is called for getting the prefix for completion.
+  ;; The function takes no parameter and returns a cons (start . end) representing
+  ;; the start and end bounds of the prefix. If it's not set, the client uses a
+  ;; default prefix function."
+  (prefix-function nil)
+
+  ;; Contains mapping of scheme to the function that is going to be used to load
+  ;; the file.
+  (uri-handlers (make-hash-table :test #'equal))
+
+  ;; ‘action-handlers’ is a hash table mapping action to a handler function. It
+  ;; can be used in `lsp-execute-code-action' to determine whether the action
+  ;; current client is interested in executing the action instead of sending it
+  ;; to the server.
+  (action-handlers (make-hash-table :test 'equal))
+
+  ;; `action-filter' can be set to a function that modifies any incoming
+  ;; `CodeAction' in place before it is executed. The return value is ignored.
+  ;; This can be used to patch up broken code action requests before they are
+  ;; sent back to the LSP server. See `lsp-fix-code-action-booleans' for an
+  ;; example of a function that can be useful here.
+  (action-filter nil)
+
+  ;; major modes supported by the client.
+  major-modes
+  ;; Function that will be called to decide if this language client
+  ;; should manage a particular buffer. The function will be passed
+  ;; the file name and major mode to inform the decision. Setting
+  ;; `activation-fn' will override `major-modes', if
+  ;; present.
+  activation-fn
+  ;; Break the tie when major-mode is supported by multiple clients.
+  (priority 0)
+  ;; Unique identifier for representing the client object.
+  server-id
+  ;; defines whether the client supports multi root workspaces.
+  multi-root
+  ;; Initialization options or a function that returns initialization options.
+  initialization-options
+  ;; `semantic-tokens-faces-overrides’ is a plist that can be used to extend, or
+  ;; completely replace, the faces used for semantic highlighting on a
+  ;; client-by-client basis.
+  ;;
+  ;; It recognizes four members, all of which are optional: `:types’ and
+  ;; `:modifiers’, respectively, should be face definition lists akin to
+  ;; `:lsp-semantic-token-faces’. If specified, each of these face lists will be
+  ;; merged with the default face definition list.
+  ;;
+  ;; Alternatively, if the plist members `:discard-default-types’ or
+  ;; `:discard-default-modifiers' are non-nil, the default `:type' or `:modifiers'
+  ;; face definitions will be replaced entirely by their respective overrides.
+  ;;
+  ;; For example, setting `:semantic-tokens-faces-overrides' to
+  ;; `(:types (("macro" . font-lock-keyword-face)))' will remap "macro" tokens from
+  ;; their default face `lsp-face-semhl-macro' to `font-lock-keyword-face'.
+  ;;
+  ;; `(:types (("macro" . font-lock-keyword-face) ("not-quite-a-macro" . some-face)))'
+  ;; will also remap "macro", but on top of that associate the fictional token type
+  ;; "not-quite-a-macro" with the face named `some-face'.
+  ;;
+  ;; `(:types (("macro" . font-lock-keyword-face))
+  ;;   :modifiers (("declaration" . lsp-face-semhl-interface))
+  ;;   :discard-default-types t
+  ;;   :discard-default-modifiers t)'
+  ;; will discard all default face definitions, hence leaving the client with
+  ;; only one token type "macro", mapped to `font-lock-keyword-face', and one
+  ;; modifier type "declaration", mapped to `lsp-face-semhl-interface'.
+  semantic-tokens-faces-overrides
+  ;; Provides support for registering LSP Server specific capabilities.
+  custom-capabilities
+  ;; Function which returns the folders that are considered to be not projects but library files.
+  ;; The function accepts one parameter currently active workspace.
+  ;; See: https://github.com/emacs-lsp/lsp-mode/issues/225.
+  library-folders-fn
+  ;; function which will be called when opening file in the workspace to perform
+  ;; client specific initialization. The function accepts one parameter
+  ;; currently active workspace.
+  before-file-open-fn
+  ;; Function which will be called right after a workspace has been initialized.
+  initialized-fn
+  ;; ‘remote?’ indicate whether the client can be used for LSP server over TRAMP.
+  (remote? nil)
+
+  ;; ‘completion-in-comments?’ t if the client supports completion in comments.
+  (completion-in-comments? nil)
+
+  ;; ‘path->uri-fn’ the function to use for path->uri conversion for the client.
+  (path->uri-fn nil)
+
+  ;; ‘uri->path-fn’ the function to use for uri->path conversion for the client.
+  (uri->path-fn nil)
+  ;; Function that returns an environment structure that will be used
+  ;; to set some environment variables when starting the language
+  ;; server process. These environment variables enable some
+  ;; additional features in the language server. The environment
+  ;; structure is an alist of the form (KEY . VALUE), where KEY is a
+  ;; string (regularly in all caps), and VALUE may be a string, a
+  ;; boolean, or a sequence of strings.
+  environment-fn
+
+  ;; ‘after-open-fn’ workspace after open specific hooks.
+  (after-open-fn nil)
+
+  ;; ‘async-request-handlers’ is a hash table mapping request method names
+  ;; (strings) to functions handling the respective requests that may take
+  ;; time to finish.  Upon receiving a request, ‘lsp-mode’ will call the
+  ;; associated handler function passing three arguments, the ‘lsp--workspace’
+  ;; object, the deserialized request parameters and the callback which accept
+  ;; result as its parameter.
+  (async-request-handlers (make-hash-table :test 'equal))
+  download-server-fn
+  download-in-progress?
+  buffers
+  synchronize-sections)
+
+(defun lsp-clients-executable-find (find-command &rest args)
+  "Finds an executable by invoking a search command.
+
+FIND-COMMAND is the executable finder that searches for the
+actual language server executable. ARGS is a list of arguments to
+give to FIND-COMMAND to find the language server.  Returns the
+output of FIND-COMMAND if it exits successfully, nil otherwise.
+
+Typical uses include finding an executable by invoking `find' in
+a project, finding LLVM commands on macOS with `xcrun', or
+looking up project-specific language servers for projects written
+in the various dynamic languages, e.g. `nvm', `pyenv' and `rbenv'
+etc."
+  (when-let* ((find-command-path (executable-find find-command))
+              (executable-path
+               (with-temp-buffer
+                 (when (zerop (apply 'call-process find-command-path nil t nil args))
+                   (buffer-substring-no-properties (point-min) (point-max))))))
+    (string-trim executable-path)))
+
+(defvar lsp--already-widened nil)
+
+(defmacro lsp-save-restriction-and-excursion (&rest form)
+  (declare (indent 0) (debug t))
+  `(if lsp--already-widened
+       (save-excursion ,@form)
+     (-let [lsp--already-widened t]
+       (save-restriction
+         (widen)
+         (save-excursion ,@form)))))
+
+;; from http://emacs.stackexchange.com/questions/8082/how-to-get-buffer-position-given-line-number-and-column-number
+(defun lsp--line-character-to-point (line character)
+  "Return the point for character CHARACTER on line LINE."
+  (or (lsp-virtual-buffer-call :line/character->point line character)
+      (let ((inhibit-field-text-motion t))
+        (lsp-save-restriction-and-excursion
+          (goto-char (point-min))
+          (forward-line line)
+          ;; server may send character position beyond the current line and we
+          ;; should fallback to line end.
+          (-let [line-end (line-end-position)]
+            (if (> character (- line-end (point)))
+                line-end
+              (forward-char character)
+              (point)))))))
+
+(lsp-defun lsp--position-to-point ((&Position :line :character))
+  "Convert `Position' object in PARAMS to a point."
+  (lsp--line-character-to-point line character))
+
+(lsp-defun lsp--range-to-region ((&RangeToPoint :start :end))
+  (cons start end))
+
+(lsp-defun lsp--range-text ((&RangeToPoint :start :end))
+  (buffer-substring start end))
+
+(lsp-defun lsp--find-wrapping-range ((&SelectionRange :parent? :range (&RangeToPoint :start :end)))
+  (cond
+   ((and
+     (region-active-p)
+     (<= start (region-beginning) end)
+     (<= start (region-end) end)
+     (or (not (= start (region-beginning)))
+         (not (= end (region-end)))))
+    (cons start end))
+   ((and (<= start (point) end)
+         (not (region-active-p)))
+    (cons start end))
+   (parent? (lsp--find-wrapping-range parent?))))
+
+(defun lsp--get-selection-range ()
+  (or
+   (-when-let ((cache . cache-tick) lsp--document-selection-range-cache)
+     (when (= cache-tick (buffer-modified-tick)) cache))
+   (let ((response (cl-first
+                    (lsp-request
+                     "textDocument/selectionRange"
+                     (list :textDocument (lsp--text-document-identifier)
+                           :positions (vector (lsp--cur-position)))))))
+     (setq lsp--document-selection-range-cache
+           (cons response (buffer-modified-tick)))
+     response)))
+
+(defun lsp-extend-selection ()
+  "Extend selection."
+  (interactive)
+  (unless (lsp-feature? "textDocument/selectionRange")
+    (signal 'lsp-capability-not-supported (list "selectionRangeProvider")))
+  (-when-let ((start . end) (lsp--find-wrapping-range (lsp--get-selection-range)))
+    (goto-char start)
+    (set-mark (point))
+    (goto-char end)
+    (exchange-point-and-mark)))
+
+(defun lsp-warn (message &rest args)
+  "Display a warning message made from (`format-message' MESSAGE ARGS...).
+This is equivalent to `display-warning', using `lsp-mode' as the type and
+`:warning' as the level."
+  (display-warning 'lsp-mode (apply #'format-message message args)))
+
+(defun lsp--get-uri-handler (scheme)
+  "Get uri handler for SCHEME in the current workspace."
+  (--some (gethash scheme (lsp--client-uri-handlers (lsp--workspace-client it)))
+          (or (lsp-workspaces) (lsp--session-workspaces (lsp-session)))))
+
+(defun lsp--fix-path-casing (path)
+  "On windows, downcases path because the windows file system is
+case-insensitive.
+
+On other systems, returns path without change."
+  (if (eq system-type 'windows-nt) (downcase path) path))
+
+(defun lsp--uri-to-path (uri)
+  "Convert URI to a file path."
+  (if-let* ((fn (->> (lsp-workspaces)
+                    (-keep (-compose #'lsp--client-uri->path-fn #'lsp--workspace-client))
+                    (cl-first))))
+      (funcall fn uri)
+    (lsp--uri-to-path-1 uri)))
+
+(defun lsp-remap-path-if-needed (file-name)
+  (-if-let ((virtual-buffer &as &plist :buffer) (gethash file-name lsp--virtual-buffer-mappings))
+      (propertize (buffer-local-value 'buffer-file-name buffer)
+                  'lsp-virtual-buffer virtual-buffer)
+    file-name))
+
+(defun lsp--uri-to-path-1 (uri)
+  "Convert URI to a file path."
+  (let* ((url (url-generic-parse-url (url-unhex-string uri)))
+         (type (url-type url))
+         (target (url-target url))
+         (file
+          (concat (decode-coding-string (url-filename url)
+                                        (or locale-coding-system 'utf-8))
+                  (when (and target
+                             (not (s-match
+                                   (rx "#" (group (1+ num)) (or "," "#")
+                                       (group (1+ num))
+                                       string-end)
+                                   uri)))
+                    (concat "#" target))))
+         (file-name (if (and type (not (string= type "file")))
+                        (if-let* ((handler (lsp--get-uri-handler type)))
+                            (funcall handler uri)
+                          uri)
+                      ;; `url-generic-parse-url' is buggy on windows:
+                      ;; https://github.com/emacs-lsp/lsp-mode/pull/265
+                      (or (and (eq system-type 'windows-nt)
+                               (eq (elt file 0) ?\/)
+                               (substring file 1))
+                          file))))
+    (->> file-name
+         (concat (-some #'lsp--workspace-host-root (lsp-workspaces)))
+         (lsp-remap-path-if-needed))))
+
+(defun lsp--buffer-uri ()
+  "Return URI of the current buffer."
+  (or lsp-buffer-uri
+      (plist-get lsp--virtual-buffer :buffer-uri)
+      (lsp--path-to-uri
+       (or (buffer-file-name) (buffer-file-name (buffer-base-buffer))))))
+
+(defun lsp-register-client-capabilities (&rest _args)
+  "Implemented only to make `company-lsp' happy.
+DELETE when `lsp-mode.el' is deleted.")
+
+(defconst lsp--url-path-allowed-chars
+  (url--allowed-chars (append '(?/) url-unreserved-chars))
+  "`url-unreserved-chars' with additional delim ?/.
+This set of allowed chars is enough for hexifying local file paths.")
+
+(defun lsp--path-to-uri-1 (path)
+  (concat lsp--uri-file-prefix
+          (--> path
+            (expand-file-name it)
+            (or (file-remote-p it 'localname t) it)
+            (url-hexify-string it lsp--url-path-allowed-chars))))
+
+(defun lsp--path-to-uri (path)
+  "Convert PATH to a uri."
+  (if-let* ((uri-fn (->> (lsp-workspaces)
+                        (-keep (-compose #'lsp--client-path->uri-fn #'lsp--workspace-client))
+                        (cl-first))))
+      (funcall uri-fn path)
+    (lsp--path-to-uri-1 path)))
+
+(defun lsp--string-match-any (regex-list str)
+  "Return the first regex, if any, within REGEX-LIST matching STR."
+  (--first (string-match it str) regex-list))
+
+(cl-defstruct lsp-watch
+  (descriptors (make-hash-table :test 'equal))
+  root-directory)
+
+(defun lsp--folder-watch-callback (event callback watch ignored-files ignored-directories)
+  (let ((file-name (cl-third event))
+        (event-type (cl-second event)))
+    (cond
+     ((and (file-directory-p file-name)
+           (equal 'created event-type)
+           (not (lsp--string-match-any ignored-directories file-name)))
+
+      (lsp-watch-root-folder (file-truename file-name) callback ignored-files ignored-directories watch)
+
+      ;; process the files that are already present in
+      ;; the directory.
+      (->> (directory-files-recursively file-name ".*" t)
+           (seq-do (lambda (f)
+                     (unless (file-directory-p f)
+                       (funcall callback (list nil 'created f)))))))
+     ((and (memq event-type '(created deleted changed))
+           (not (file-directory-p file-name))
+           (not (lsp--string-match-any ignored-files file-name)))
+      (funcall callback event))
+     ((and (memq event-type '(renamed))
+           (not (file-directory-p file-name))
+           (not (lsp--string-match-any ignored-files file-name)))
+      (funcall callback `(,(cl-first event) deleted ,(cl-third event)))
+      (funcall callback `(,(cl-first event) created ,(cl-fourth event)))))))
+
+(defun lsp--ask-about-watching-big-repo (number-of-directories dir)
+  "Ask the user if they want to watch NUMBER-OF-DIRECTORIES from a repository DIR.
+This is useful when there is a lot of files in a repository, as
+that may slow Emacs down. Returns t if the user wants to watch
+the entire repository, nil otherwise."
+  (prog1
+      (yes-or-no-p
+       (format
+        "Watching all the files in %s would require adding watches to %s directories, so watching the repo may slow Emacs down.
+Do you want to watch all files in %s? "
+        dir
+        number-of-directories
+        dir))
+    (lsp--info
+     (concat "You can configure this warning with the `lsp-enable-file-watchers' "
+             "and `lsp-file-watch-threshold' variables"))))
+
+
+(defun lsp--path-is-watchable-directory (path dir ignored-directories)
+  "Figure out whether PATH (inside of DIR) is meant to have a file watcher set.
+IGNORED-DIRECTORIES is a list of regexes to filter out directories we don't
+want to watch."
+  (let
+      ((full-path (f-join dir path)))
+    (and (file-accessible-directory-p full-path)
+         (not (equal path "."))
+         (not (equal path ".."))
+         (not (lsp--string-match-any ignored-directories full-path)))))
+
+
+(defun lsp--all-watchable-directories (dir ignored-directories &optional visited)
+  "Traverse DIR recursively returning a list of paths that should have watchers.
+IGNORED-DIRECTORIES will be used for exclusions.
+VISITED is used to track already-visited directories to avoid infinite loops."
+  (let* ((dir (if (f-symlink? dir)
+                  (file-truename dir)
+                dir))
+         ;; Initialize visited directories if not provided
+         (visited (or visited (make-hash-table :test 'equal))))
+    (if (gethash dir visited)
+        ;; If the directory has already been visited, skip it
+        nil
+      ;; Mark the current directory as visited
+      (puthash dir t visited)
+      (apply #'nconc
+             ;; the directory itself is assumed to be part of the set
+             (list dir)
+             ;; collect all subdirectories that are watchable
+             (-map
+              (lambda (path) (lsp--all-watchable-directories (f-join dir path) ignored-directories visited))
+              ;; but only look at subdirectories that are watchable
+              (-filter (lambda (path) (lsp--path-is-watchable-directory path dir ignored-directories))
+                       (directory-files dir)))))))
+
+(defun lsp-watch-root-folder (dir callback ignored-files ignored-directories &optional watch warn-big-repo?)
+  "Create recursive file notification watch in DIR.
+CALLBACK will be called when there are changes in any of
+the monitored files. WATCHES is a hash table directory->file
+notification handle which contains all of the watch that
+already have been created. Watches will not be created for
+any directory that matches any regex in IGNORED-DIRECTORIES.
+Watches will not be created for any file that matches any
+regex in IGNORED-FILES."
+  (let* ((dir (if (f-symlink? dir)
+                  (file-truename dir)
+                dir))
+         (watch (or watch (make-lsp-watch :root-directory dir)))
+         (dirs-to-watch (lsp--all-watchable-directories dir ignored-directories)))
+    (lsp-log "Creating watchers for following %s folders:\n  %s"
+             (length dirs-to-watch)
+             (s-join "\n  " dirs-to-watch))
+    (when (or
+           (not warn-big-repo?)
+           (not lsp-file-watch-threshold)
+           (let ((number-of-directories (length dirs-to-watch)))
+             (or
+              (< number-of-directories lsp-file-watch-threshold)
+              (condition-case nil
+                  (lsp--ask-about-watching-big-repo number-of-directories dir)
+                (quit)))))
+      (dolist (current-dir dirs-to-watch)
+        (condition-case err
+            (progn
+              (puthash
+               current-dir
+               (file-notify-add-watch current-dir
+                                      '(change)
+                                      (lambda (event)
+                                        (lsp--folder-watch-callback event callback watch ignored-files ignored-directories)))
+               (lsp-watch-descriptors watch)))
+          (error (lsp-log "Failed to create a watch for %s: message" (error-message-string err)))
+          (file-missing (lsp-log "Failed to create a watch for %s: message" (error-message-string err))))))
+    watch))
+
+(defun lsp-kill-watch (watch)
+  "Delete WATCH."
+  (-> watch lsp-watch-descriptors hash-table-values (-each #'file-notify-rm-watch))
+  (ht-clear! (lsp-watch-descriptors watch)))
+
+(defun lsp-json-bool (val)
+  "Convert VAL to JSON boolean."
+  (if val t :json-false))
+
+(defmacro with-lsp-workspace (workspace &rest body)
+  "Helper macro for invoking BODY in WORKSPACE context."
+  (declare (debug (form body))
+           (indent 1))
+  `(let ((lsp--cur-workspace ,workspace)) ,@body))
+
+(defmacro with-lsp-workspaces (workspaces &rest body)
+  "Helper macro for invoking BODY against multiple WORKSPACES."
+  (declare (debug (form body))
+           (indent 1))
+  `(let ((lsp--buffer-workspaces ,workspaces)) ,@body))
+
+
+
+(defmacro lsp-consistency-check (package)
+  `(defconst ,(intern (concat (symbol-name package)
+                              "-plist-value-when-compiled"))
+     (eval-when-compile lsp-use-plists)))
+
+
+;; loading code-workspace files
+
+;;;###autoload
+(defun lsp-load-vscode-workspace (file)
+  "Load vscode workspace from FILE"
+  (interactive "fSelect file to import: ")
+  (mapc #'lsp-workspace-folders-remove (lsp-session-folders (lsp-session)))
+
+  (let ((dir (f-dirname file)))
+    (->> file
+         (json-read-file)
+         (alist-get 'folders)
+         (-map (-lambda ((&alist 'path))
+                 (lsp-workspace-folders-add (expand-file-name path dir)))))))
+
+;;;###autoload
+(defun lsp-save-vscode-workspace (file)
+  "Save vscode workspace to FILE"
+  (interactive "FSelect file to save to: ")
+
+  (let ((json-encoding-pretty-print t))
+    (f-write-text (json-encode
+                   `((folders . ,(->> (lsp-session)
+                                      (lsp-session-folders)
+                                      (--map `((path . ,it)))))))
+                  'utf-8
+                  file)))
+
+
+(defmacro lsp-foreach-workspace (&rest body)
+  "Execute BODY for each of the current workspaces."
+  (declare (debug (form body)))
+  `(--map (with-lsp-workspace it ,@body) (lsp-workspaces)))
+
+(defmacro when-lsp-workspace (workspace &rest body)
+  "Helper macro for invoking BODY in WORKSPACE context if present."
+  (declare (debug (form body))
+           (indent 1))
+  `(when-let* ((lsp--cur-workspace ,workspace)) ,@body))
+
+(lsp-defun lsp--window-show-quick-pick (_workspace (&ShowQuickPickParams :place-holder :can-pick-many :items))
+  (if-let* ((selectfunc (if can-pick-many #'completing-read-multiple #'completing-read))
+            (itemLabels (seq-map (-lambda ((item &as &QuickPickItem :label)) (format "%s" label))
+                                 items))
+            (result (funcall-interactively
+                     selectfunc
+                     (format "%s%s " place-holder (if can-pick-many " (* for all)" "")) itemLabels))
+            (choices (if (listp result)
+                         (if (equal result '("*"))
+                             itemLabels
+                           result)
+                       (list result))))
+      (vconcat (seq-filter #'identity (seq-map (-lambda ((item &as &QuickPickItem :label :user-data))
+                                                 (if (member label choices)
+                                                     (lsp-make-quick-pick-item :label label :picked t :user-data user-data)
+                                                   nil))
+                                               items)))))
+
+(lsp-defun lsp--window-show-input-box (_workspace (&ShowInputBoxParams :prompt :value?))
+  (read-string (format "%s: " prompt) (or value? "")))
+
+(lsp-defun lsp--window-show-message (_workspace (&ShowMessageRequestParams :message :type))
+  "Send the server's messages to log.
+PARAMS - the data sent from _WORKSPACE."
+  (funcall (cl-case type
+             (1 'lsp--error)
+             (2 'lsp--warn)
+             (t 'lsp--info))
+           "%s"
+           message))
+
+(lsp-defun lsp--window-log-message (workspace (&ShowMessageRequestParams :message :type))
+  "Send the server's messages to log.
+PARAMS - the data sent from WORKSPACE."
+  (ignore
+   (let ((client (lsp--workspace-client workspace)))
+     (when (or (not client)
+               (cl-notany (-rpartial #'string-match-p message)
+                          (lsp--client-ignore-messages client)))
+       (lsp-log "%s" (lsp--propertize message type))))))
+
+(lsp-defun lsp--window-log-message-request ((&ShowMessageRequestParams :message :type :actions?))
+  "Display a message request to user sending the user selection back to server."
+  (let* ((message (lsp--propertize message type))
+         (choices (seq-map #'lsp:message-action-item-title actions?)))
+    (if choices
+        (completing-read (concat message " ") (seq-into choices 'list) nil t)
+      (lsp-log message))))
+
+(lsp-defun lsp--window-show-document ((&ShowDocumentParams :uri :selection?))
+  "Show document URI in a buffer and go to SELECTION if any."
+  (let ((path (lsp--uri-to-path uri)))
+    (when (f-exists? path)
+      (with-current-buffer (find-file path)
+        (when selection?
+          (goto-char (lsp--position-to-point (lsp:range-start selection?))))
+        t))))
+
+(defcustom lsp-progress-prefix "⌛ "
+  "Progress prefix."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-progress-function #'lsp-on-progress-modeline
+  "Function for handling the progress notifications."
+  :group 'lsp-mode
+  :type '(choice
+          (const :tag "Use modeline" lsp-on-progress-modeline)
+          (const :tag "Legacy(uses either `progress-reporter' or `spinner' based on `lsp-progress-via-spinner')"
+                 lsp-on-progress-legacy)
+          (const :tag "Ignore" ignore)
+          (function :tag "Other function"))
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defcustom lsp-request-while-no-input-may-block nil
+  "Have `lsp-request-while-no-input` block unless `non-essential` is t."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defun lsp--progress-status ()
+  "Returns the status of the progress for the current workspaces."
+  (-let ((progress-status
+          (s-join
+           "|"
+           (-keep
+            (lambda (workspace)
+              (let ((tokens (lsp--workspace-work-done-tokens workspace)))
+                (unless (ht-empty? tokens)
+                  (mapconcat
+                   (-lambda ((&WorkDoneProgressBegin :message? :title :percentage?))
+                     (concat (if percentage?
+                                 (if (numberp percentage?)
+                                     (format "%.0f%%%% " percentage?)
+                                   (format "%s%%%% " percentage?))
+                               "")
+                             (or message? title)))
+                   (ht-values tokens)
+                   "|"))))
+            (lsp-workspaces)))))
+    (unless (s-blank? progress-status)
+      (concat lsp-progress-prefix progress-status " "))))
+
+(lsp-defun lsp-on-progress-modeline (workspace (&ProgressParams :token :value
+                                                                (value &as &WorkDoneProgress :kind)))
+  "PARAMS contains the progress data.
+WORKSPACE is the workspace that contains the progress token."
+  (add-to-list 'global-mode-string '(t (:eval (lsp--progress-status))))
+  (pcase kind
+    ("begin" (lsp-workspace-set-work-done-token token value workspace))
+    ("report" (lsp-workspace-set-work-done-token token value workspace))
+    ("end" (lsp-workspace-rem-work-done-token token workspace)))
+  (force-mode-line-update))
+
+(lsp-defun lsp-on-progress-legacy (workspace (&ProgressParams :token :value
+                                                              (value &as &WorkDoneProgress :kind)))
+  "PARAMS contains the progress data.
+WORKSPACE is the workspace that contains the progress token."
+  (pcase kind
+    ("begin"
+     (-let* (((&WorkDoneProgressBegin :title :percentage?) value)
+             (reporter
+              (if lsp-progress-via-spinner
+                  (let* ((spinner-strings (alist-get (lsp-progress-spinner-type) spinner-types))
+                         ;; Set message as a tooltip for the spinner strings
+                         (propertized-strings
+                          (seq-map (lambda (string) (propertize string 'help-echo title))
+                                   spinner-strings))
+                         (spinner-type (vconcat propertized-strings)))
+                    ;; The progress relates to the server as a whole,
+                    ;; display it on all buffers.
+                    (mapcar (lambda (buffer)
+                              (lsp-with-current-buffer buffer
+                                (spinner-start spinner-type))
+                              buffer)
+                            (lsp--workspace-buffers workspace)))
+                (if percentage?
+                    (make-progress-reporter title 0 100 percentage?)
+                  ;; No percentage, just progress
+                  (make-progress-reporter title nil nil)))))
+       (lsp-workspace-set-work-done-token token reporter workspace)))
+    ("report"
+     (when-let* ((reporter (lsp-workspace-get-work-done-token token workspace)))
+       (unless lsp-progress-via-spinner
+         (progress-reporter-update reporter (lsp:work-done-progress-report-percentage? value)))))
+
+    ("end"
+     (when-let* ((reporter (lsp-workspace-get-work-done-token token workspace)))
+       (if lsp-progress-via-spinner
+           (mapc (lambda (buffer)
+                   (when (lsp-buffer-live-p buffer)
+                     (lsp-with-current-buffer buffer
+                       (spinner-stop))))
+                 reporter)
+         (progress-reporter-done reporter))
+       (lsp-workspace-rem-work-done-token token workspace)))))
+
+
+;; diagnostics
+
+(defvar lsp-diagnostic-filter nil
+  "A a function which will be called with
+  `&PublishDiagnosticsParams' and `workspace' which can be used
+  to filter out the diagnostics. The function should return
+  `&PublishDiagnosticsParams'.
+
+Common usecase are:
+1. Filter the diagnostics for a particular language server.
+2. Filter out the diagnostics under specific level.")
+
+(defvar lsp-diagnostic-stats (ht))
+
+(defun lsp-diagnostics (&optional current-workspace?)
+  "Return the diagnostics from all workspaces."
+  (or (pcase (if current-workspace?
+                 (lsp-workspaces)
+               (lsp--session-workspaces (lsp-session)))
+        (`() ())
+        (`(,workspace) (lsp--workspace-diagnostics workspace))
+        (`,workspaces (let ((result (make-hash-table :test 'equal)))
+                        (mapc (lambda (workspace)
+                                (->> workspace
+                                     (lsp--workspace-diagnostics)
+                                     (maphash (lambda (file-name diagnostics)
+                                                (puthash file-name
+                                                         (append (gethash file-name result) diagnostics)
+                                                         result)))))
+                              workspaces)
+                        result)))
+      (ht)))
+
+(defun lsp-diagnostics-stats-for (path)
+  "Get diagnostics statistics for PATH.
+The result format is vector [_ errors warnings infos hints] or nil."
+  (gethash (lsp--fix-path-casing path) lsp-diagnostic-stats))
+
+(defun lsp-diagnostics--request-pull-diagnostics (workspace)
+  "Request new diagnostics for the current file within WORKSPACE.
+This is only executed if the server supports pull diagnostics."
+  (when (lsp-feature? "textDocument/diagnostic")
+    (let ((path (lsp--fix-path-casing (buffer-file-name))))
+      (lsp-request-async "textDocument/diagnostic"
+                         (list :textDocument (lsp--text-document-identifier))
+                         (-lambda ((&DocumentDiagnosticReport :kind :items?))
+                           (lsp-diagnostics--apply-pull-diagnostics workspace path kind items?))
+                         :mode 'tick))))
+
+(defun lsp-diagnostics--update-path (path new-stats)
+  (let ((new-stats (copy-sequence new-stats))
+        (path (lsp--fix-path-casing (directory-file-name path))))
+    (if-let* ((old-data (gethash path lsp-diagnostic-stats)))
+        (dotimes (idx 5)
+          (cl-callf + (aref old-data idx)
+            (aref new-stats idx)))
+      (puthash path new-stats lsp-diagnostic-stats))))
+
+(defun lsp-diagnostics--convert-and-update-path-stats (workspace path diagnostics)
+  (let ((path (lsp--fix-path-casing path))
+        (new-stats (make-vector 5 0)))
+    (mapc (-lambda ((&Diagnostic :severity?))
+            (cl-incf (aref new-stats (or severity? 1))))
+          diagnostics)
+    (when-let* ((old-diags (gethash path (lsp--workspace-diagnostics workspace))))
+      (mapc (-lambda ((&Diagnostic :severity?))
+              (cl-decf (aref new-stats (or severity? 1))))
+            old-diags))
+    (lsp-diagnostics--update-path path new-stats)
+    (while (not (string= path (setf path (file-name-directory
+                                          (directory-file-name path)))))
+      (lsp-diagnostics--update-path path new-stats))))
+
+(lsp-defun lsp--on-diagnostics-update-stats (workspace
+                                             (&PublishDiagnosticsParams :uri :diagnostics))
+  (lsp-diagnostics--convert-and-update-path-stats workspace (lsp--uri-to-path uri) diagnostics))
+
+(defun lsp-diagnostics--apply-pull-diagnostics (workspace path kind diagnostics?)
+  "Update WORKSPACE diagnostics at PATH with DIAGNOSTICS?.
+Depends on KIND being a \\='full\\=' update."
+  (cond
+   ((equal kind "full")
+    ;; TODO support `lsp-diagnostic-filter'
+    ;; (the params types differ from the published diagnostics response)
+    (lsp-diagnostics--convert-and-update-path-stats workspace path diagnostics?)
+    (-let* ((lsp--virtual-buffer-mappings (ht))
+            (workspace-diagnostics (lsp--workspace-diagnostics workspace)))
+      (if (seq-empty-p diagnostics?)
+          (remhash path workspace-diagnostics)
+        (puthash path (append diagnostics? nil) workspace-diagnostics))
+      (run-hooks 'lsp-diagnostics-updated-hook)))
+    ((equal kind "unchanged") t)
+    (t (lsp--error "Unknown pull diagnostic result kind '%s'" kind))))
+
+(defun lsp--on-diagnostics (workspace params)
+  "Callback for textDocument/publishDiagnostics.
+interface PublishDiagnosticsParams {
+    uri: string;
+    diagnostics: Diagnostic[];
+}
+PARAMS contains the diagnostics data.
+WORKSPACE is the workspace that contains the diagnostics."
+  (when lsp-diagnostic-filter
+    (setf params (funcall lsp-diagnostic-filter params workspace)))
+
+  (lsp--on-diagnostics-update-stats workspace params)
+
+  (-let* (((&PublishDiagnosticsParams :uri :diagnostics) params)
+          (lsp--virtual-buffer-mappings (ht))
+          (file (lsp--fix-path-casing (lsp--uri-to-path uri)))
+          (workspace-diagnostics (lsp--workspace-diagnostics workspace)))
+
+    (if (seq-empty-p diagnostics)
+        (remhash file workspace-diagnostics)
+      (puthash file (append diagnostics nil) workspace-diagnostics))
+
+    (run-hooks 'lsp-diagnostics-updated-hook)))
+
+(defun lsp-diagnostics--workspace-cleanup (workspace)
+  (->> workspace
+       (lsp--workspace-diagnostics)
+       (maphash (lambda (key _)
+                  (lsp--on-diagnostics-update-stats
+                   workspace
+                   (lsp-make-publish-diagnostics-params
+                    :uri (lsp--path-to-uri key)
+                    :diagnostics [])))))
+  (clrhash (lsp--workspace-diagnostics workspace)))
+
+
+
+;; textDocument/foldingRange support
+
+(cl-defstruct lsp--folding-range beg end kind children)
+
+(defvar-local lsp--cached-folding-ranges nil)
+(defvar-local lsp--cached-nested-folding-ranges nil)
+
+(defun lsp--folding-range-width (range)
+  (- (lsp--folding-range-end range)
+     (lsp--folding-range-beg range)))
+
+(defun lsp--get-folding-ranges ()
+  "Get the folding ranges for the current buffer."
+  (unless (eq (buffer-chars-modified-tick) (car lsp--cached-folding-ranges))
+    (let* ((ranges (lsp-request "textDocument/foldingRange"
+                                `(:textDocument ,(lsp--text-document-identifier))))
+           (sorted-line-col-pairs (->> ranges
+                                       (cl-mapcan (-lambda ((&FoldingRange :start-line
+                                                                           :start-character?
+                                                                           :end-line
+                                                                           :end-character?))
+                                                    (list (cons start-line start-character?)
+                                                          (cons end-line end-character?))))
+                                       (-sort #'lsp--line-col-comparator)))
+           (line-col-to-point-map (lsp--convert-line-col-to-points-batch
+                                   sorted-line-col-pairs)))
+      (setq lsp--cached-folding-ranges
+            (cons (buffer-chars-modified-tick)
+                  (--> ranges
+                    (seq-map (-lambda ((range &as
+                                              &FoldingRange :start-line
+                                              :start-character?
+                                              :end-line
+                                              :end-character?
+                                              :kind?))
+                               (make-lsp--folding-range
+                                :beg (ht-get line-col-to-point-map
+                                             (cons start-line start-character?))
+                                :end (ht-get line-col-to-point-map
+                                             (cons end-line end-character?))
+                                :kind kind?))
+                             it)
+                    (seq-filter (lambda (folding-range)
+                                  (< (lsp--folding-range-beg folding-range)
+                                     (lsp--folding-range-end folding-range)))
+                                it)
+                    (seq-into it 'list)
+                    (delete-dups it))))))
+  (cdr lsp--cached-folding-ranges))
+
+(defun lsp--get-nested-folding-ranges ()
+  "Get a list of nested folding ranges for the current buffer."
+  (-let [(tick . _) lsp--cached-folding-ranges]
+    (if (and (eq tick (buffer-chars-modified-tick))
+             lsp--cached-nested-folding-ranges)
+        lsp--cached-nested-folding-ranges
+      (setq lsp--cached-nested-folding-ranges
+            (lsp--folding-range-build-trees (lsp--get-folding-ranges))))))
+
+(defun lsp--folding-range-build-trees (ranges)
+  (setq ranges (seq-sort #'lsp--range-before-p ranges))
+  (let* ((dummy-node (make-lsp--folding-range
+                      :beg most-negative-fixnum
+                      :end most-positive-fixnum))
+         (stack (list dummy-node)))
+    (dolist (range ranges)
+      (while (not (lsp--range-inside-p range (car stack)))
+        (pop stack))
+      (push range (lsp--folding-range-children (car stack)))
+      (push range stack))
+    (lsp--folding-range-children dummy-node)))
+
+(defun lsp--range-inside-p (r1 r2)
+  "Return non-nil if folding range R1 lies inside R2"
+  (and (>= (lsp--folding-range-beg r1) (lsp--folding-range-beg r2))
+       (<= (lsp--folding-range-end r1) (lsp--folding-range-end r2))))
+
+(defun lsp--range-before-p (r1 r2)
+  "Return non-nil if folding range R1 ends before R2"
+  ;; Ensure r1 comes before r2
+  (or (< (lsp--folding-range-beg r1)
+         (lsp--folding-range-beg r2))
+      ;; If beg(r1) == beg(r2) make sure r2 ends first
+      (and (= (lsp--folding-range-beg r1)
+              (lsp--folding-range-beg r2))
+           (< (lsp--folding-range-end r2)
+              (lsp--folding-range-end r1)))))
+
+(defun lsp--point-inside-range-p (point range)
+  "Return non-nil if POINT lies inside folding range RANGE."
+  (and (>= point (lsp--folding-range-beg range))
+       (<= point (lsp--folding-range-end range))))
+
+(cl-defun lsp--get-current-innermost-folding-range (&optional (point (point)))
+  "Return the innermost folding range POINT lies in."
+  (seq-reduce (lambda (innermost-range curr-range)
+                (if (and (lsp--point-inside-range-p point curr-range)
+                         (or (null innermost-range)
+                             (lsp--range-inside-p curr-range innermost-range)))
+                    curr-range
+                  innermost-range))
+              (lsp--get-folding-ranges)
+              nil))
+
+(cl-defun lsp--get-current-outermost-folding-range (&optional (point (point)))
+  "Return the outermost folding range POINT lies in."
+  (cdr (seq-reduce (-lambda ((best-pair &as outermost-width . _) curr-range)
+                     (let ((curr-width (lsp--folding-range-width curr-range)))
+                       (if (and (lsp--point-inside-range-p point curr-range)
+                                (or (null best-pair)
+                                    (> curr-width outermost-width)))
+                           (cons curr-width curr-range)
+                         best-pair)))
+                   (lsp--get-folding-ranges)
+                   nil)))
+
+(defun lsp--folding-range-at-point-bounds ()
+  (when (and lsp-enable-folding
+             (lsp-feature? "textDocument/foldingRange"))
+    (if-let* ((range (lsp--get-current-innermost-folding-range)))
+        (cons (lsp--folding-range-beg range)
+              (lsp--folding-range-end range)))))
+(put 'lsp--folding-range 'bounds-of-thing-at-point
+     #'lsp--folding-range-at-point-bounds)
+
+(defun lsp--get-nearest-folding-range (&optional backward)
+  (let ((point (point))
+        (found nil))
+    (while (not
+            (or found
+                (if backward
+                    (<= point (point-min))
+                  (>= point (point-max)))))
+      (if backward (cl-decf point) (cl-incf point))
+      (setq found (lsp--get-current-innermost-folding-range point)))
+    found))
+
+(defun lsp--folding-range-at-point-forward-op (n)
+  (when (and lsp-enable-folding
+             (not (zerop n))
+             (lsp-feature? "textDocument/foldingRange"))
+    (cl-block break
+      (dotimes (_ (abs n))
+        (if-let* ((range (lsp--get-nearest-folding-range (< n 0))))
+            (goto-char (if (< n 0)
+                           (lsp--folding-range-beg range)
+                         (lsp--folding-range-end range)))
+          (cl-return-from break))))))
+(put 'lsp--folding-range 'forward-op
+     #'lsp--folding-range-at-point-forward-op)
+
+(defun lsp--folding-range-at-point-beginning-op ()
+  (goto-char (car (lsp--folding-range-at-point-bounds))))
+(put 'lsp--folding-range 'beginning-op
+     #'lsp--folding-range-at-point-beginning-op)
+
+(defun lsp--folding-range-at-point-end-op ()
+  (goto-char (cdr (lsp--folding-range-at-point-bounds))))
+(put 'lsp--folding-range 'end-op
+     #'lsp--folding-range-at-point-end-op)
+
+(defun lsp--range-at-point-bounds ()
+  (or (lsp--folding-range-at-point-bounds)
+      (when-let* ((range (and
+                         (lsp-feature? "textDocument/hover")
+                         (->> (lsp--text-document-position-params)
+                              (lsp-request "textDocument/hover")
+                              (lsp:hover-range?)))))
+        (lsp--range-to-region range))))
+
+;; A more general purpose "thing", useful for applications like focus.el
+(put 'lsp--range 'bounds-of-thing-at-point
+     #'lsp--range-at-point-bounds)
+
+(defun lsp--log-io-p (method)
+  "Return non nil if should log for METHOD."
+  (and lsp-log-io
+       (or (not lsp-log-io-allowlist-methods)
+           (member method lsp-log-io-allowlist-methods))))
+
+
+;; toggles
+
+(defun lsp-toggle-trace-io ()
+  "Toggle client-server protocol logging."
+  (interactive)
+  (setq lsp-log-io (not lsp-log-io))
+  (lsp--info "Server logging %s." (if lsp-log-io "enabled" "disabled")))
+
+(defun lsp-toggle-signature-auto-activate ()
+  "Toggle signature auto activate."
+  (interactive)
+  (setq lsp-signature-auto-activate
+        (unless lsp-signature-auto-activate '(:on-trigger-char)))
+  (lsp--info "Signature autoactivate %s." (if lsp-signature-auto-activate "enabled" "disabled"))
+  (lsp--update-signature-help-hook))
+
+(defun lsp-toggle-on-type-formatting ()
+  "Toggle on type formatting."
+  (interactive)
+  (setq lsp-enable-on-type-formatting (not lsp-enable-on-type-formatting))
+  (lsp--info "On type formatting is %s." (if lsp-enable-on-type-formatting "enabled" "disabled"))
+  (lsp--update-on-type-formatting-hook))
+
+(defun lsp-toggle-symbol-highlight ()
+  "Toggle symbol highlighting."
+  (interactive)
+  (setq lsp-enable-symbol-highlighting (not lsp-enable-symbol-highlighting))
+
+  (cond
+   ((and lsp-enable-symbol-highlighting
+         (lsp-feature? "textDocument/documentHighlight"))
+    (add-hook 'lsp-on-idle-hook #'lsp--document-highlight nil t)
+    (lsp--info "Symbol highlighting enabled in current buffer."))
+   ((not lsp-enable-symbol-highlighting)
+    (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
+    (lsp--remove-overlays 'lsp-highlight)
+    (lsp--info "Symbol highlighting disabled in current buffer."))))
+
+
+;; keybindings
+(defvar lsp--binding-descriptions nil
+  "List of key binding/short description pair.")
+
+(defmacro lsp-define-conditional-key (keymap key def desc cond &rest bindings)
+  "In KEYMAP, define key sequence KEY as DEF conditionally.
+This is like `define-key', except the definition disappears
+whenever COND evaluates to nil.
+DESC is the short-description for the binding.
+BINDINGS is a list of (key def desc cond)."
+  (declare (indent defun)
+           (debug (form form form form form &rest sexp)))
+  (->> (cl-list* key def desc cond bindings)
+       (-partition 4)
+       (-mapcat (-lambda ((key def desc cond))
+                  `((define-key ,keymap ,key
+                      '(menu-item
+                        ,(format "maybe-%s" def)
+                        ,def
+                        :filter
+                        (lambda (item)
+                          (when (with-current-buffer (or (when (buffer-live-p lsp--describe-buffer)
+                                                           lsp--describe-buffer)
+                                                         (current-buffer))
+                                  ,cond)
+                            item))))
+                    (when (stringp ,key)
+                      (setq lsp--binding-descriptions
+                            (append lsp--binding-descriptions '(,key ,desc)))))))
+       macroexp-progn))
+
+(defvar lsp--describe-buffer nil)
+
+(defun lsp-describe-buffer-bindings-advice (fn buffer &optional prefix menus)
+  (let ((lsp--describe-buffer buffer))
+    (funcall fn buffer prefix menus)))
+
+(advice-add 'describe-buffer-bindings
+            :around
+            #'lsp-describe-buffer-bindings-advice)
+
+(defun lsp--prepend-prefix (mappings)
+  (->> mappings
+       (-partition 2)
+       (-mapcat (-lambda ((key description))
+                  (list (concat lsp-keymap-prefix " " key)
+                        description)))))
+
+(defvar lsp-command-map
+  (-doto (make-sparse-keymap)
+    (lsp-define-conditional-key
+      ;; workspaces
+      "wD" lsp-disconnect "disconnect" (lsp-workspaces)
+      "wd" lsp-describe-session "describe session" t
+      "wq" lsp-workspace-shutdown "shutdown server" (lsp-workspaces)
+      "wr" lsp-workspace-restart "restart server" (lsp-workspaces)
+      "ws" lsp "start server" t
+
+      ;; formatting
+      "==" lsp-format-buffer "format buffer" (or (lsp-feature? "textDocument/rangeFormatting")
+                                                 (lsp-feature? "textDocument/formatting"))
+      "=r" lsp-format-region "format region" (lsp-feature? "textDocument/rangeFormatting")
+
+      ;; folders
+      "Fa" lsp-workspace-folders-add "add folder" t
+      "Fb" lsp-workspace-blocklist-remove "un-blocklist folder" t
+      "Fr" lsp-workspace-folders-remove "remove folder" t
+
+      ;; toggles
+      "TD" lsp-modeline-diagnostics-mode "toggle modeline diagnostics" (lsp-feature?
+                                                                        "textDocument/publishDiagnostics")
+      "TL" lsp-toggle-trace-io "toggle log io" t
+      "TS" lsp-ui-sideline-mode "toggle sideline" (featurep 'lsp-ui-sideline)
+      "TT" lsp-treemacs-sync-mode "toggle treemacs integration" (featurep 'lsp-treemacs)
+      "Ta" lsp-modeline-code-actions-mode "toggle modeline code actions" (lsp-feature?
+                                                                          "textDocument/codeAction")
+      "Tb" lsp-headerline-breadcrumb-mode "toggle breadcrumb" (lsp-feature?
+                                                               "textDocument/documentSymbol")
+      "Td" lsp-ui-doc-mode "toggle documentation popup" (featurep 'lsp-ui-doc)
+      "Tf" lsp-toggle-on-type-formatting "toggle on type formatting" (lsp-feature?
+                                                                      "textDocument/onTypeFormatting")
+      "Th" lsp-toggle-symbol-highlight "toggle highlighting" (lsp-feature? "textDocument/documentHighlight")
+      "Tl" lsp-lens-mode "toggle lenses" (lsp-feature? "textDocument/codeLens")
+      "Ts" lsp-toggle-signature-auto-activate "toggle signature" (lsp-feature? "textDocument/signatureHelp")
+
+      ;; goto
+      "ga" xref-find-apropos "find symbol in workspace" (lsp-feature? "workspace/symbol")
+      "gd" lsp-find-declaration "find declarations" (lsp-feature? "textDocument/declaration")
+      "ge" lsp-treemacs-errors-list "show errors" (fboundp 'lsp-treemacs-errors-list)
+      "gg" lsp-find-definition "find definitions" (lsp-feature? "textDocument/definition")
+      "gh" lsp-treemacs-call-hierarchy "call hierarchy" (and (lsp-feature? "callHierarchy/incomingCalls")
+                                                             (fboundp 'lsp-treemacs-call-hierarchy))
+      "gi" lsp-find-implementation "find implementations" (lsp-feature? "textDocument/implementation")
+      "gr" lsp-find-references "find references" (lsp-feature? "textDocument/references")
+      "gt" lsp-find-type-definition "find type definition" (lsp-feature? "textDocument/typeDefinition")
+
+      ;; help
+      "hg" lsp-ui-doc-glance "glance symbol" (and (featurep 'lsp-ui-doc)
+                                                  (lsp-feature? "textDocument/hover"))
+      "hh" lsp-describe-thing-at-point "describe symbol at point" (lsp-feature? "textDocument/hover")
+      "hs" lsp-signature-activate "signature help" (lsp-feature? "textDocument/signatureHelp")
+
+      ;; refactoring
+      "ro" lsp-organize-imports "organize imports" (lsp-feature? "textDocument/codeAction")
+      "rr" lsp-rename "rename" (lsp-feature? "textDocument/rename")
+
+      ;; actions
+      "aa" lsp-execute-code-action "code actions" (lsp-feature? "textDocument/codeAction")
+      "ah" lsp-document-highlight "highlight symbol" (lsp-feature? "textDocument/documentHighlight")
+      "al" lsp-avy-lens "lens" (and (bound-and-true-p lsp-lens-mode) (featurep 'avy))
+
+      ;; peeks
+      "Gg" lsp-ui-peek-find-definitions "peek definitions" (and (lsp-feature? "textDocument/definition")
+                                                                (fboundp 'lsp-ui-peek-find-definitions))
+      "Gi" lsp-ui-peek-find-implementation "peek implementations" (and
+                                                                   (fboundp 'lsp-ui-peek-find-implementation)
+                                                                   (lsp-feature? "textDocument/implementation"))
+      "Gr" lsp-ui-peek-find-references "peek references" (and (fboundp 'lsp-ui-peek-find-references)
+                                                              (lsp-feature? "textDocument/references"))
+      "Gs" lsp-ui-peek-find-workspace-symbol "peek workspace symbol" (and (fboundp
+                                                                           'lsp-ui-peek-find-workspace-symbol)
+                                                                          (lsp-feature? "workspace/symbol")))))
+
+
+;; which-key integration
+
+(declare-function which-key-add-major-mode-key-based-replacements "ext:which-key")
+(declare-function which-key-add-key-based-replacements "ext:which-key")
+
+(defun lsp-enable-which-key-integration (&optional all-modes)
+  "Adds descriptions for `lsp-mode-map' to `which-key-mode' for the current
+active `major-mode', or for all major modes when ALL-MODES is t."
+  (cl-flet ((which-key-fn (if all-modes
+                              'which-key-add-key-based-replacements
+                            (apply-partially 'which-key-add-major-mode-key-based-replacements major-mode))))
+    (apply
+     #'which-key-fn
+     (lsp--prepend-prefix
+      (cl-list*
+       ""    "lsp"
+       "w"   "workspaces"
+       "F"   "folders"
+       "="   "formatting"
+       "T"   "toggle"
+       "g"   "goto"
+       "h"   "help"
+       "r"   "refactor"
+       "a"   "code actions"
+       "G"   "peek"
+       lsp--binding-descriptions)))))
+
+
+;; Globbing syntax
+
+;; We port VSCode's glob-to-regexp code
+;; (https://github.com/Microsoft/vscode/blob/466da1c9013c624140f6d1473b23a870abc82d44/src/vs/base/common/glob.ts)
+;; since the LSP globbing syntax seems to be the same as that of
+;; VSCode.
+
+(defconst lsp-globstar "**"
+  "Globstar pattern.")
+
+(defconst lsp-glob-split ?/
+  "The character by which we split path components in a glob
+pattern.")
+
+(defconst lsp-path-regexp "[/\\\\]"
+  "Forward or backslash to be used as a path separator in
+computed regexps.")
+
+(defconst lsp-non-path-regexp "[^/\\\\]"
+  "A regexp matching anything other than a slash.")
+
+(defconst lsp-globstar-regexp
+  (format "\\(?:%s\\|%s+%s\\|%s%s+\\)*?"
+          lsp-path-regexp
+          lsp-non-path-regexp lsp-path-regexp
+          lsp-path-regexp lsp-non-path-regexp)
+  "Globstar in regexp form.")
+
+(defun lsp-split-glob-pattern (pattern split-char)
+  "Split PATTERN at SPLIT-CHAR while respecting braces and brackets."
+  (when pattern
+    (let ((segments nil)
+          (in-braces nil)
+          (in-brackets nil)
+          (current-segment ""))
+      (dolist (char (string-to-list pattern))
+        (cl-block 'exit-point
+          (if (eq char split-char)
+              (when (and (null in-braces)
+                         (null in-brackets))
+                (push current-segment segments)
+                (setq current-segment "")
+                (cl-return-from 'exit-point))
+            (pcase char
+              (?{
+               (setq in-braces t))
+              (?}
+               (setq in-braces nil))
+              (?\[
+               (setq in-brackets t))
+              (?\]
+               (setq in-brackets nil))))
+          (setq current-segment (concat current-segment
+                                        (char-to-string char)))))
+      (unless (string-empty-p current-segment)
+        (push current-segment segments))
+      (nreverse segments))))
+
+(defun lsp--glob-to-regexp (pattern)
+  "Helper function to convert a PATTERN from LSP's glob syntax to
+an Elisp regexp."
+  (if (string-empty-p pattern)
+      ""
+    (let ((current-regexp "")
+          (glob-segments (lsp-split-glob-pattern pattern lsp-glob-split)))
+      (if (-all? (lambda (segment) (eq segment lsp-globstar))
+                 glob-segments)
+          ".*"
+        (let ((prev-segment-was-globstar nil))
+          (seq-do-indexed
+           (lambda (segment index)
+             (if (string-equal segment lsp-globstar)
+                 (unless prev-segment-was-globstar
+                   (setq current-regexp (concat current-regexp
+                                                lsp-globstar-regexp))
+                   (setq prev-segment-was-globstar t))
+               (let ((in-braces nil)
+                     (brace-val "")
+                     (in-brackets nil)
+                     (bracket-val ""))
+                 (dolist (char (string-to-list segment))
+                   (cond
+                    ((and (not (char-equal char ?\}))
+                          in-braces)
+                     (setq brace-val (concat brace-val
+                                             (char-to-string char))))
+                    ((and in-brackets
+                          (or (not (char-equal char ?\]))
+                              (string-empty-p bracket-val)))
+                     (let ((curr (cond
+                                  ((char-equal char ?-)
+                                   "-")
+                                  ;; NOTE: ?\^ and ?^ are different characters
+                                  ((and (memq char '(?^ ?!))
+                                        (string-empty-p bracket-val))
+                                   "^")
+                                  ((char-equal char lsp-glob-split)
+                                   "")
+                                  (t
+                                   (regexp-quote (char-to-string char))))))
+                       (setq bracket-val (concat bracket-val curr))))
+                    (t
+                     (cl-case char
+                       (?{
+                        (setq in-braces t))
+                       (?\[
+                        (setq in-brackets t))
+                       (?}
+                        (let* ((choices (lsp-split-glob-pattern brace-val ?\,))
+                               (brace-regexp (concat "\\(?:"
+                                                     (mapconcat #'lsp--glob-to-regexp choices "\\|")
+                                                     "\\)")))
+                          (setq current-regexp (concat current-regexp
+                                                       brace-regexp))
+                          (setq in-braces nil)
+                          (setq brace-val "")))
+                       (?\]
+                        (setq current-regexp
+                              (concat current-regexp
+                                      "[" bracket-val "]"))
+                        (setq in-brackets nil)
+                        (setq bracket-val ""))
+                       (??
+                        (setq current-regexp
+                              (concat current-regexp
+                                      lsp-non-path-regexp)))
+                       (?*
+                        (setq current-regexp
+                              (concat current-regexp
+                                      lsp-non-path-regexp "*?")))
+                       (t
+                        (setq current-regexp
+                              (concat current-regexp
+                                      (regexp-quote (char-to-string char)))))))))
+                 (when (and (< index (1- (length glob-segments)))
+                            (or (not (string-equal (nth (1+ index) glob-segments)
+                                                   lsp-globstar))
+                                (< (+ index 2)
+                                   (length glob-segments))))
+                   (setq current-regexp
+                         (concat current-regexp
+                                 lsp-path-regexp)))
+                 (setq prev-segment-was-globstar nil))))
+           glob-segments)
+          current-regexp)))))
+
+;; See https://github.com/emacs-lsp/lsp-mode/issues/2365
+(defun lsp-glob-unbrace-at-top-level (glob-pattern)
+  "If GLOB-PATTERN does not start with a brace, return a singleton list
+containing GLOB-PATTERN.
+
+If GLOB-PATTERN does start with a brace, return a list of the
+comma-separated globs within the top-level braces."
+  (if (not (string-prefix-p "{" glob-pattern))
+      (list glob-pattern)
+    (lsp-split-glob-pattern (substring glob-pattern 1 -1) ?\,)))
+
+(defun lsp-glob-convert-to-wrapped-regexp (glob-pattern)
+  "Convert GLOB-PATTERN to a regexp wrapped with the beginning-
+and end-of-string meta-characters."
+  (concat "\\`" (lsp--glob-to-regexp (string-trim glob-pattern)) "\\'"))
+
+(defun lsp-glob-to-regexps (glob-pattern)
+  "Convert a GLOB-PATTERN to a list of Elisp regexps."
+  (when-let*
+      ((glob-pattern (cond ((hash-table-p glob-pattern)
+                            (ht-get glob-pattern "pattern"))
+                           ((stringp glob-pattern) glob-pattern)
+                           (t (error "Unknown glob-pattern type: %s" glob-pattern))))
+       (trimmed-pattern (string-trim glob-pattern))
+       (top-level-unbraced-patterns (lsp-glob-unbrace-at-top-level trimmed-pattern)))
+    (seq-map #'lsp-glob-convert-to-wrapped-regexp
+             top-level-unbraced-patterns)))
+
+
+
+(defvar lsp-mode-menu)
+
+(defun lsp-mouse-click (event)
+  (interactive "e")
+  (let* ((ec (event-start event))
+         (choice (x-popup-menu event lsp-mode-menu))
+         (action (lookup-key lsp-mode-menu (apply 'vector choice))))
+
+    (select-window (posn-window ec))
+
+    (unless (and (region-active-p) (eq action 'lsp-execute-code-action))
+      (goto-char (posn-point ec)))
+    (run-with-idle-timer
+     0.001 nil
+     (lambda ()
+       (cl-labels ((check (value) (not (null value))))
+         (when choice
+           (call-interactively action)))))))
+
+(defvar lsp-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-<down-mouse-1>") #'lsp-find-definition-mouse)
+    (define-key map (kbd "C-<mouse-1>") #'ignore)
+    (define-key map (kbd "<mouse-3>") #'lsp-mouse-click)
+    (define-key map (kbd "C-S-SPC") #'lsp-signature-activate)
+    (when lsp-keymap-prefix
+      (define-key map (kbd lsp-keymap-prefix) lsp-command-map))
+    map)
+  "Keymap for `lsp-mode'.")
+
+(define-minor-mode lsp-mode "Mode for LSP interaction."
+  :keymap lsp-mode-map
+  :lighter
+  (" LSP["
+   (lsp--buffer-workspaces
+    (:eval (mapconcat #'lsp--workspace-print lsp--buffer-workspaces "]["))
+    (:propertize "Disconnected" face warning))
+   "]")
+  :group 'lsp-mode
+  (when (and lsp-mode (not lsp--buffer-workspaces) (not lsp--buffer-deferred))
+    ;; fire up `lsp' when someone calls `lsp-mode' instead of `lsp'
+    (lsp)))
+
+(defvar lsp-mode-menu
+  (easy-menu-create-menu
+   nil
+   `(["Go to definition" lsp-find-definition
+      :active (lsp-feature? "textDocument/definition")]
+     ["Find references" lsp-find-references
+      :active (lsp-feature? "textDocument/references")]
+     ["Find implementations" lsp-find-implementation
+      :active (lsp-feature? "textDocument/implementation")]
+     ["Find declarations" lsp-find-declaration
+      :active (lsp-feature? "textDocument/declaration")]
+     ["Go to type declaration" lsp-find-type-definition
+      :active (lsp-feature? "textDocument/typeDefinition")]
+     "--"
+     ["Describe" lsp-describe-thing-at-point]
+     ["Code action" lsp-execute-code-action]
+     ["Format" lsp-format-buffer]
+     ["Highlight references" lsp-document-highlight]
+     ["Type Hierarchy" lsp-java-type-hierarchy
+      :visible (lsp-can-execute-command? "java.navigate.resolveTypeHierarchy")]
+     ["Type Hierarchy" lsp-treemacs-type-hierarchy
+      :visible (and (not (lsp-can-execute-command? "java.navigate.resolveTypeHierarchy"))
+                    (functionp 'lsp-treemacs-type-hierarchy)
+                    (lsp-feature? "textDocument/typeHierarchy"))]
+     ["Call Hierarchy" lsp-treemacs-call-hierarchy
+      :visible (and (functionp 'lsp-treemacs-call-hierarchy)
+                    (lsp-feature? "textDocument/callHierarchy"))]
+     ["Rename" lsp-rename
+      :active (lsp-feature? "textDocument/rename")]
+     "--"
+     ("Session"
+      ["View logs" lsp-workspace-show-log]
+      ["Describe" lsp-describe-session]
+      ["Shutdown" lsp-shutdown-workspace]
+      ["Restart" lsp-restart-workspace])
+     ("Workspace Folders"
+      ["Add" lsp-workspace-folders-add]
+      ["Remove" lsp-workspace-folders-remove]
+      ["Open" lsp-workspace-folders-open])
+     ("Toggle features"
+      ["Lenses" lsp-lens-mode]
+      ["Headerline breadcrumb" lsp-headerline-breadcrumb-mode]
+      ["Modeline code actions" lsp-modeline-code-actions-mode]
+      ["Modeline diagnostics" lsp-modeline-diagnostics-mode])
+     "---"
+     ("Debug"
+      :active (bound-and-true-p dap-ui-mode)
+      :filter ,(lambda (_)
+                 (and (boundp 'dap-ui-menu-items)
+                      (nthcdr 3 dap-ui-menu-items))))))
+  "Menu for lsp-mode.")
+
+(defalias 'make-lsp-client 'make-lsp--client)
+
+(cl-defstruct lsp--registered-capability
+  (id "")
+  (method " ")
+  (options nil))
+
+;; A ‘lsp--workspace’ object represents exactly one language server process.
+(cl-defstruct lsp--workspace
+  ;; the `ewoc' object for displaying I/O to and from the server
+  (ewoc nil)
+
+  ;; ‘server-capabilities’ is a hash table of the language server capabilities.
+  ;; It is the hash table representation of a LSP ServerCapabilities structure;
+  ;; cf. https://microsoft.github.io/language-server-protocol/specification#initialize.
+  (server-capabilities nil)
+
+  ;; ‘registered-server-capabilities’ is a list of hash tables that represent
+  ;; dynamically-registered Registration objects.  See
+  ;; https://microsoft.github.io/language-server-protocol/specification#client_registerCapability.
+  (registered-server-capabilities nil)
+
+  ;; ‘root’ is a directory name or a directory file name for the workspace
+  ;; root.  ‘lsp-mode’ passes this directory to the ‘initialize’ method of the
+  ;; language server; see
+  ;; https://microsoft.github.io/language-server-protocol/specification#initialize.
+  (root nil)
+
+  ;; ‘client’ is the ‘lsp--client’ object associated with this workspace.
+  (client nil)
+
+  ;; ‘host-root’ contains the host root info as derived from `file-remote-p'. It
+  ;; used to derive the file path in `lsp--uri-to-path' when using tramp
+  ;; connection.
+  (host-root nil)
+
+  ;; ‘proc’ is a process object; it may represent a regular process, a pipe, or
+  ;; a network connection.  ‘lsp-mode’ communicates with ‘proc’ using the
+  ;; language server protocol.  ‘proc’ corresponds to the COMMUNICATION-PROCESS
+  ;; element of the return value of the client’s ‘get-root’ field, which see.
+  (proc nil)
+
+  ;; ‘proc’ is a process object; it must represent a regular process, not a
+  ;; pipe or network process.  It represents the actual server process that
+  ;; corresponds to this workspace.  ‘cmd-proc’ corresponds to the
+  ;; COMMAND-PROCESS element of the return value of the client’s ‘get-root’
+  ;; field, which see.
+  (cmd-proc nil)
+
+  ;; ‘buffers’ is a list of buffers associated with this workspace.
+  (buffers nil)
+
+  ;; if semantic tokens is enabled, `semantic-tokens-faces' contains
+  ;; one face (or nil) for each token type supported by the language server.
+  (semantic-tokens-faces nil)
+
+  ;; If semantic highlighting is enabled, `semantic-tokens-modifier-faces'
+  ;; contains one face (or nil) for each modifier type supported by the language
+  ;; server
+  (semantic-tokens-modifier-faces nil)
+
+  ;; Extra client capabilities provided by third-party packages using
+  ;; `lsp-register-client-capabilities'. It's value is an alist of (PACKAGE-NAME
+  ;; . CAPS), where PACKAGE-NAME is a symbol of the third-party package name,
+  ;; and CAPS is either a plist of the client capabilities, or a function that
+  ;; takes no argument and returns a plist of the client capabilities or nil.
+  (extra-client-capabilities nil)
+
+  ;; Workspace status
+  (status nil)
+
+  ;; ‘metadata’ is a generic storage for workspace specific data. It is
+  ;; accessed via `lsp-workspace-set-metadata' and `lsp-workspace-set-metadata'
+  (metadata (make-hash-table :test 'equal))
+
+  ;; contains all the file notification watches that have been created for the
+  ;; current workspace in format filePath->file notification handle.
+  (watches (make-hash-table :test 'equal))
+
+  ;; list of workspace folders
+  (workspace-folders nil)
+
+  ;; ‘last-id’ the last request id for the current workspace.
+  (last-id 0)
+
+  ;; ‘status-string’ allows extensions to specify custom status string based on
+  ;; the Language Server specific messages.
+  (status-string nil)
+
+  ;; ‘shutdown-action’ flag used to mark that workspace should not be restarted (e.g. it
+  ;; was stopped).
+  shutdown-action
+
+  ;; ‘diagnostics’ a hashmap with workspace diagnostics.
+  (diagnostics (make-hash-table :test 'equal))
+
+  ;; contains all the workDone progress tokens that have been created
+  ;; for the current workspace.
+  (work-done-tokens (make-hash-table :test 'equal)))
+
+
+(cl-defstruct lsp-session
+  ;; contains the folders that are part of the current session
+  folders
+  ;; contains the folders that must not be imported in the current workspace.
+  folders-blocklist
+  ;; contains the list of folders that must be imported in a project in case of
+  ;; multi root LSP server.
+  (server-id->folders (make-hash-table :test 'equal))
+  ;; folder to list of the servers that are associated with the folder.
+  (folder->servers (make-hash-table :test 'equal))
+  ;; ‘metadata’ is a generic storage for workspace specific data. It is
+  ;; accessed via `lsp-workspace-set-metadata' and `lsp-workspace-set-metadata'
+  (metadata (make-hash-table :test 'equal)))
+
+(defun lsp-workspace-status (status-string &optional workspace)
+  "Set current workspace status to STATUS-STRING.
+If WORKSPACE is not specified defaults to lsp--cur-workspace."
+  (let ((status-string (when status-string (replace-regexp-in-string "%" "%%" status-string))))
+    (setf (lsp--workspace-status-string (or workspace lsp--cur-workspace)) status-string)))
+
+(defun lsp-session-set-metadata (key value &optional _workspace)
+  "Associate KEY with VALUE in the WORKSPACE metadata.
+If WORKSPACE is not provided current workspace will be used."
+  (puthash key value (lsp-session-metadata (lsp-session))))
+
+(defalias 'lsp-workspace-set-metadata 'lsp-session-set-metadata)
+
+(defun lsp-session-get-metadata (key &optional _workspace)
+  "Lookup KEY in WORKSPACE metadata.
+If WORKSPACE is not provided current workspace will be used."
+  (gethash key (lsp-session-metadata (lsp-session))))
+
+(defalias 'lsp-workspace-get-metadata 'lsp-session-get-metadata)
+
+(defun lsp-workspace-set-work-done-token (token value workspace)
+  "Associate TOKEN with VALUE in the WORKSPACE work-done-tokens."
+  (puthash token value (lsp--workspace-work-done-tokens workspace)))
+
+(defun lsp-workspace-get-work-done-token (token workspace)
+  "Lookup TOKEN in the WORKSPACE work-done-tokens."
+  (gethash token (lsp--workspace-work-done-tokens workspace)))
+
+(defun lsp-workspace-rem-work-done-token (token workspace)
+  "Remove TOKEN from the WORKSPACE work-done-tokens."
+  (remhash token (lsp--workspace-work-done-tokens workspace)))
+
+
+(defun lsp--make-notification (method &optional params)
+  "Create notification body for method METHOD and parameters PARAMS."
+  (list :jsonrpc "2.0" :method method :params params))
+
+(defalias 'lsp--make-request 'lsp--make-notification)
+(defalias 'lsp-make-request 'lsp--make-notification)
+
+(defun lsp--make-response (id result)
+  "Create response for REQUEST with RESULT."
+  `(:jsonrpc "2.0" :id ,id :result ,result))
+
+(defun lsp-make-notification (method &optional params)
+  "Create notification body for method METHOD and parameters PARAMS."
+  (lsp--make-notification method params))
+
+(defmacro lsp--json-serialize (params)
+  (if (progn
+        (require 'json)
+        (fboundp 'json-serialize))
+      `(json-serialize ,params
+                       :null-object nil
+                       :false-object :json-false)
+    `(let ((json-false :json-false))
+       (json-encode ,params))))
+
+(defun lsp--make-message (params)
+  "Create a LSP message from PARAMS, after encoding it to a JSON string."
+  (let ((body (lsp--json-serialize params)))
+    (concat "Content-Length: "
+            (number-to-string (1+ (string-bytes body)))
+            "\r\n\r\n"
+            body
+            "\n")))
+
+(cl-defstruct lsp--log-entry timestamp process-time type method id body)
+
+(defun lsp--make-log-entry (method id body type &optional process-time)
+  "Create an outgoing log object from BODY with method METHOD and id ID.
+If ID is non-nil, then the body is assumed to be a notification.
+TYPE can either be `incoming' or `outgoing'"
+  (cl-assert (memq type '(incoming-req outgoing-req incoming-notif
+                                       outgoing-notif incoming-resp
+                                       outgoing-resp)))
+  (make-lsp--log-entry
+   :timestamp (format-time-string "%I:%M:%S %p")
+   :process-time process-time
+   :method method
+   :id id
+   :type type
+   :body body))
+
+(defun lsp--log-font-lock-json (body)
+  "Font lock JSON BODY."
+  (with-temp-buffer
+    (insert body)
+    ;; We set the temp buffer file-name extension to .json and call `set-auto-mode'
+    ;; so the users configured json mode is used which could be
+    ;; `json-mode', `json-ts-mode', `jsonian-mode', etc.
+    (let ((buffer-file-name "lsp-log.json"))
+      (delay-mode-hooks
+        (set-auto-mode)
+        (if (fboundp 'font-lock-ensure)
+            (font-lock-ensure)
+          (with-no-warnings
+            (font-lock-fontify-buffer)))))
+    (buffer-string)))
+
+(defun lsp--log-entry-pp (entry)
+  (cl-assert (lsp--log-entry-p entry))
+  (pcase-let (((cl-struct lsp--log-entry timestamp method id type process-time
+                          body)
+               entry)
+              (json-false :json-false)
+              (json-encoding-pretty-print t)
+              (str nil))
+    (setq str
+          (concat (format "[Trace - %s] " timestamp)
+                  (pcase type
+                    ('incoming-req (format "Received request '%s - (%s)." method id))
+                    ('outgoing-req (format "Sending request '%s - (%s)'." method id))
+
+                    ('incoming-notif (format "Received notification '%s'." method))
+                    ('outgoing-notif (format "Sending notification '%s'." method))
+
+                    ('incoming-resp (format "Received response '%s - (%s)' in %dms."
+                                            method id process-time))
+                    ('outgoing-resp
+                     (format
+                      "Sending response '%s - (%s)'. Processing request took %dms"
+                      method id process-time)))
+                  "\n"
+                  (if (memq type '(incoming-resp ougoing-resp))
+                      "Result: "
+                    "Params: ")
+                  (lsp--log-font-lock-json (json-encode body))
+                  "\n\n\n"))
+    (setq str (propertize str 'mouse-face 'highlight 'read-only t))
+    (insert str)))
+
+(defvar-local lsp--log-io-ewoc nil)
+
+(defun lsp--get-create-io-ewoc (workspace)
+  (if (and (lsp--workspace-ewoc workspace)
+           (buffer-live-p (ewoc-buffer (lsp--workspace-ewoc workspace))))
+      (lsp--workspace-ewoc workspace)
+    (with-current-buffer (lsp--get-log-buffer-create workspace)
+      (unless (eq 'lsp-log-io-mode major-mode) (lsp-log-io-mode))
+      (setq-local window-point-insertion-type t)
+      (setq lsp--log-io-ewoc (ewoc-create #'lsp--log-entry-pp nil nil t))
+      (setf (lsp--workspace-ewoc workspace) lsp--log-io-ewoc))
+    (lsp--workspace-ewoc workspace)))
+
+(defun lsp--ewoc-count (ewoc)
+  (let* ((count 0)
+         (count-fn (lambda (_) (setq count (1+ count)))))
+    (ewoc-map count-fn ewoc)
+    count))
+
+(defun lsp--log-entry-new (entry workspace)
+  (let* ((ewoc (lsp--get-create-io-ewoc workspace))
+         (count (and (not (eq lsp-io-messages-max t)) (lsp--ewoc-count ewoc)))
+         (node (if (or (eq lsp-io-messages-max t)
+                       (>= lsp-io-messages-max count))
+                   nil
+                 (ewoc-nth ewoc (1- lsp-io-messages-max))))
+         (prev nil)
+         (inhibit-read-only t))
+    (while node
+      (setq prev (ewoc-prev ewoc node))
+      (ewoc-delete ewoc node)
+      (setq node prev))
+    (ewoc-enter-last ewoc entry)))
+
+(defun lsp--send-notification (body)
+  "Send BODY as a notification to the language server."
+  (lsp-foreach-workspace
+   (when (lsp--log-io-p (plist-get body :method))
+     (lsp--log-entry-new (lsp--make-log-entry
+                          (plist-get body :method)
+                          nil (plist-get body :params) 'outgoing-notif)
+                         lsp--cur-workspace))
+   (lsp--send-no-wait body
+                      (lsp--workspace-proc lsp--cur-workspace))))
+
+(defalias 'lsp-send-notification 'lsp--send-notification)
+
+(defun lsp-notify (method params)
+  "Send notification METHOD with PARAMS."
+  (lsp--send-notification (lsp--make-notification method params)))
+
+(defun lsp--cur-workspace-check ()
+  "Check whether buffer lsp workspace(s) are set."
+  (cl-assert (lsp-workspaces) nil
+             "No language server(s) is associated with this buffer."))
+
+(defun lsp--send-request (body &optional no-wait no-merge)
+  "Send BODY as a request to the language server, get the response.
+If NO-WAIT is non-nil, don't synchronously wait for a response.
+If NO-MERGE is non-nil, don't merge the results but return an
+alist mapping workspace->result."
+  (lsp-request (plist-get body :method)
+               (plist-get body :params)
+               :no-wait no-wait
+               :no-merge no-merge))
+
+(defalias 'lsp-send-request 'lsp--send-request
+  "Send BODY as a request to the language server and return the response
+synchronously.
+\n(fn BODY)")
+
+(cl-defun lsp-request (method params &key no-wait no-merge)
+  "Send request METHOD with PARAMS.
+If NO-MERGE is non-nil, don't merge the results but return alist
+workspace->result.
+If NO-WAIT is non-nil send the request as notification."
+  (if no-wait
+      (lsp-notify method params)
+    (let* ((send-time (float-time))
+           ;; max time by which we must get a response
+           (expected-time
+            (and
+             lsp-response-timeout
+             (+ send-time lsp-response-timeout)))
+           resp-result resp-error done?)
+      (unwind-protect
+          (progn
+            (lsp-request-async method params
+                               (lambda (res) (setf resp-result (or res :finished)) (throw 'lsp-done '_))
+                               :error-handler (lambda (err) (setf resp-error err) (throw 'lsp-done '_))
+                               :no-merge no-merge
+                               :mode 'detached
+                               :cancel-token :sync-request)
+            (while (not (or resp-error resp-result))
+              (if (functionp 'json-rpc-connection)
+                  (catch 'lsp-done (sit-for 0.01))
+                (catch 'lsp-done
+                  (accept-process-output
+                   nil
+                   (if expected-time (- expected-time send-time) 1))))
+              (setq send-time (float-time))
+              (when (and expected-time (< expected-time send-time))
+                (error "Timeout while waiting for response.  Method: %s" method)))
+            (setq done? t)
+            (cond
+             ((eq resp-result :finished) nil)
+             (resp-result resp-result)
+             ((lsp-json-error? resp-error) (error (lsp:json-error-message resp-error)))
+             ((lsp-json-error? (cl-first resp-error))
+              (error (lsp:json-error-message (cl-first resp-error))))))
+        (unless done?
+          (lsp-cancel-request-by-token :sync-request))))))
+
+(cl-defun lsp-request-while-no-input (method params)
+  "Send request METHOD with PARAMS and waits until there is no input.
+Return same value as `lsp--while-no-input' and respecting `non-essential'."
+  (if (or non-essential (not lsp-request-while-no-input-may-block))
+      (let* ((send-time (float-time))
+             ;; max time by which we must get a response
+             (expected-time
+              (and
+               lsp-response-timeout
+               (+ send-time lsp-response-timeout)))
+             resp-result resp-error done?)
+        (unwind-protect
+            (progn
+              (lsp-request-async method params
+                                 (lambda (res) (setf resp-result (or res :finished)) (throw 'lsp-done '_))
+                                 :error-handler (lambda (err) (setf resp-error err) (throw 'lsp-done '_))
+                                 :mode 'detached
+                                 :cancel-token :sync-request)
+              (while (not (or resp-error resp-result (input-pending-p)))
+                (catch 'lsp-done
+                  (sit-for
+                   (if expected-time (- expected-time send-time) 1)))
+                (setq send-time (float-time))
+                (when (and expected-time (< expected-time send-time))
+                  (error "Timeout while waiting for response.  Method: %s" method)))
+              (setq done? (or resp-error resp-result))
+              (cond
+               ((eq resp-result :finished) nil)
+               (resp-result resp-result)
+               ((lsp-json-error? resp-error) (error (lsp:json-error-message resp-error)))
+               ((lsp-json-error? (cl-first resp-error))
+                (error (lsp:json-error-message (cl-first resp-error))))))
+          (unless done?
+            (lsp-cancel-request-by-token :sync-request))
+          (when (and (input-pending-p) lsp--throw-on-input)
+            (throw 'input :interrupted))))
+    (lsp-request method params)))
+
+(defvar lsp--cancelable-requests (ht))
+
+(cl-defun lsp-request-async (method params callback
+                                    &key mode error-handler cancel-handler no-merge cancel-token)
+  "Send METHOD with PARAMS as a request to the language server.
+Call CALLBACK with the response received from the server
+asynchronously.
+MODE determines when the callback will be called depending on the
+condition of the original buffer.  It could be:
+- `detached' which means that the callback will be executed no
+matter what has happened to the buffer.
+- `alive' - the callback will be executed only if the buffer from
+which the call was executed is still alive.
+- `current' the callback will be executed only if the original buffer
+is still selected.
+- `tick' - the callback will be executed only if the buffer was not modified.
+- `unchanged' - the callback will be executed only if the buffer hasn't
+changed and if the buffer is not modified.
+
+ERROR-HANDLER will be called in case the request has failed.
+CANCEL-HANDLER will be called in case the request is being canceled.
+If NO-MERGE is non-nil, don't merge the results but return alist
+workspace->result.
+CANCEL-TOKEN is the token that can be used to cancel request."
+  (lsp--send-request-async `(:jsonrpc "2.0" :method ,method :params ,params)
+                           callback mode error-handler cancel-handler no-merge cancel-token))
+
+(defun lsp--create-request-cancel (id workspaces hook buf method cancel-callback)
+  (lambda (&rest _)
+    (unless (and (equal 'post-command-hook hook)
+                 (equal (current-buffer) buf))
+      (lsp--request-cleanup-hooks id)
+      (with-lsp-workspaces workspaces
+        (lsp--cancel-request id)
+        (when cancel-callback (funcall cancel-callback)))
+      (lsp-log "Cancelling %s(%s) in hook %s" method id hook))))
+
+(defun lsp--create-async-callback
+    (callback method no-merge workspaces)
+  "Create async handler expecting COUNT results, merge them and call CALLBACK.
+MODE determines when the callback will be called depending on the
+condition of the original buffer. METHOD is the invoked method.
+If NO-MERGE is non-nil, don't merge the results but return alist
+workspace->result. ID is the request id."
+  (let (results errors)
+    (lambda (result)
+      (push (cons lsp--cur-workspace result)
+            (if (eq result :error) errors results))
+      (when (and (not (eq (length errors) (length workspaces)))
+                 (eq (+ (length errors) (length results)) (length workspaces)))
+        (funcall callback
+                 (if no-merge
+                     results
+                   (lsp--merge-results (-map #'cl-rest results) method)))))))
+
+(defcustom lsp-default-create-error-handler-fn nil
+  "Default error handler customization.
+Handler should give METHOD as argument and return function of one argument
+ERROR."
+  :type 'function
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defun lsp--create-default-error-handler (method)
+  "Default error handler.
+METHOD is the executed method."
+  (if lsp-default-create-error-handler-fn
+      (funcall lsp-default-create-error-handler-fn method)
+    (lambda (error)
+      (lsp--warn "%s" (or (lsp--error-string error)
+                          (format "%s Request has failed" method))))))
+
+(defvar lsp--request-cleanup-hooks (ht))
+
+(defun lsp--request-cleanup-hooks (request-id)
+  (when-let* ((cleanup-function (gethash request-id lsp--request-cleanup-hooks)))
+    (funcall cleanup-function)
+    (remhash request-id lsp--request-cleanup-hooks)))
+
+(defun lsp-cancel-request-by-token (cancel-token)
+  "Cancel request using CANCEL-TOKEN."
+  (-when-let ((request-id . workspaces) (gethash cancel-token lsp--cancelable-requests))
+    (with-lsp-workspaces workspaces
+      (lsp--cancel-request request-id))
+    (remhash cancel-token lsp--cancelable-requests)
+    (lsp--request-cleanup-hooks request-id)))
+
+(defun lsp--send-request-async (body callback
+                                     &optional mode error-callback cancel-callback
+                                     no-merge cancel-token)
+  "Send BODY as a request to the language server.
+Call CALLBACK with the response received from the server
+asynchronously.
+MODE determines when the callback will be called depending on the
+condition of the original buffer.  It could be:
+- `detached' which means that the callback will be executed no
+matter what has happened to the buffer.
+- `alive' - the callback will be executed only if the buffer from
+which the call was executed is still alive.
+- `current' the callback will be executed only if the original buffer
+is still selected.
+- `tick' - the callback will be executed only if the buffer was not modified.
+- `unchanged' - the callback will be executed only if the buffer hasn't
+changed and if the buffer is not modified.
+
+ERROR-CALLBACK will be called in case the request has failed.
+CANCEL-CALLBACK will be called in case the request is being canceled.
+If NO-MERGE is non-nil, don't merge the results but return alist
+workspace->result.
+CANCEL-TOKEN is the token that can be used to cancel request."
+  (when cancel-token
+    (lsp-cancel-request-by-token cancel-token))
+
+  (if-let* ((target-workspaces (lsp--find-workspaces-for body)))
+      (let* ((start-time (current-time))
+             (method (plist-get body :method))
+             (id (cl-incf lsp-last-id))
+             (buf (current-buffer))
+             (cancel-callback (when cancel-callback
+                                (pcase mode
+                                  ((or 'alive 'tick 'unchanged)
+                                   (lambda ()
+                                     (with-current-buffer buf
+                                       (funcall cancel-callback))))
+                                  (_ cancel-callback))))
+             ;; calculate what are the (hook . local) pairs which will cancel
+             ;; the request
+             (hooks (pcase mode
+                      ('alive     '((kill-buffer-hook . t)))
+                      ('tick      '((kill-buffer-hook . t) (after-change-functions . t)))
+                      ('unchanged '((after-change-functions . t) (post-command-hook . nil)))
+                      ('current   '((post-command-hook . nil)))))
+             ;; note: lambdas in emacs can be compared but we should make sure
+             ;; that all of the captured arguments are the same - in our case
+             ;; `lsp--create-request-cancel' will return the same lambda when
+             ;; called with the same params.
+             (cleanup-hooks
+              (lambda () (mapc
+                          (-lambda ((hook . local))
+                            (if local
+                                (when (buffer-live-p buf)
+                                  (with-current-buffer buf
+                                    (remove-hook hook
+                                                 (lsp--create-request-cancel
+                                                  id target-workspaces hook buf method cancel-callback)
+                                                 t)))
+                              (remove-hook hook (lsp--create-request-cancel
+                                                 id target-workspaces hook buf method cancel-callback))))
+                          hooks)
+                (remhash cancel-token lsp--cancelable-requests)))
+             (callback (pcase mode
+                         ((or 'alive 'tick 'unchanged) (lambda (&rest args)
+                                                         (with-current-buffer buf
+                                                           (apply callback args))))
+                         (_ callback)))
+             (callback (lsp--create-async-callback callback
+                                                   method
+                                                   no-merge
+                                                   target-workspaces))
+             (callback (lambda (result)
+                         (lsp--request-cleanup-hooks id)
+                         (funcall callback result)))
+             (error-callback (lsp--create-async-callback
+                              (or error-callback
+                                  (lsp--create-default-error-handler method))
+                              method
+                              nil
+                              target-workspaces))
+             (error-callback (lambda (error)
+                               (funcall callback :error)
+                               (lsp--request-cleanup-hooks id)
+                               (funcall error-callback error)))
+             (body (plist-put body :id id)))
+
+        ;; cancel request in any of the hooks
+        (mapc (-lambda ((hook . local))
+                (add-hook hook
+                          (lsp--create-request-cancel
+                           id target-workspaces hook buf method cancel-callback)
+                          nil local))
+              hooks)
+        (puthash id cleanup-hooks lsp--request-cleanup-hooks)
+
+        (setq lsp--last-active-workspaces target-workspaces)
+
+        (when cancel-token
+          (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))
+
+        (seq-doseq (workspace target-workspaces)
+          (when (lsp--log-io-p method)
+            (lsp--log-entry-new (lsp--make-log-entry method id
+                                                     (plist-get body :params)
+                                                     'outgoing-req)
+                                workspace))
+          (puthash id
+                   (list callback error-callback method start-time (current-time))
+                   (-> workspace
+                       (lsp--workspace-client)
+                       (lsp--client-response-handlers)))
+          (lsp--send-no-wait body (lsp--workspace-proc workspace)))
+        body)
+    (error "The connected server(s) does not support method %s.
+To find out what capabilities support your server use `M-x lsp-describe-session'
+and expand the capabilities section"
+           (plist-get body :method))))
+
+;; deprecated, use lsp-request-async.
+(defalias 'lsp-send-request-async 'lsp--send-request-async)
+(make-obsolete 'lsp-send-request-async 'lsp-request-async "lsp-mode 7.0.1")
+
+;; Clean up the entire state of lsp mode when Emacs is killed, to get rid of any
+;; pending language servers.
+(add-hook 'kill-emacs-hook #'lsp--global-teardown)
+
+(defun lsp--global-teardown ()
+  "Unload working workspaces."
+  (lsp-foreach-workspace (lsp--shutdown-workspace)))
+
+(defun lsp--shutdown-workspace (&optional restart)
+  "Shut down the language server process for ‘lsp--cur-workspace’."
+  (with-demoted-errors "LSP error: %S"
+    (let ((lsp-response-timeout 0.5))
+      (condition-case err
+          (lsp-request "shutdown" nil)
+        (error (lsp--error "%s" err))))
+    (lsp-notify "exit" nil))
+  (setf (lsp--workspace-shutdown-action lsp--cur-workspace) (or (and restart 'restart) 'shutdown))
+  (lsp--uninitialize-workspace))
+
+(defcustom lsp-inlay-hint-enable nil
+  "If non-nil it will enable inlay hints."
+  :type 'boolean
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defun lsp--uninitialize-workspace ()
+  "Cleanup buffer state.
+When a workspace is shut down, by request or from just
+disappearing, unset all the variables related to it."
+  (-let [(&lsp-wks 'cmd-proc 'buffers) lsp--cur-workspace]
+    (lsp-process-kill cmd-proc)
+    (mapc (lambda (buf)
+            (when (lsp-buffer-live-p buf)
+              (lsp-with-current-buffer buf
+                                       (lsp-managed-mode -1))))
+          buffers)
+    (lsp-diagnostics--workspace-cleanup lsp--cur-workspace)))
+
+(defun lsp--client-capabilities (&optional custom-capabilities)
+  "Return the client capabilities appending CUSTOM-CAPABILITIES."
+  (append
+   `((general . ((positionEncodings . ["utf-32", "utf-16"])))
+     (workspace . ((workspaceEdit . ((documentChanges . t)
+                                     (resourceOperations . ["create" "rename" "delete"])))
+                   (applyEdit . t)
+                   (symbol . ((symbolKind . ((valueSet . ,(apply 'vector (number-sequence 1 26)))))))
+                   (executeCommand . ((dynamicRegistration . :json-false)))
+                   ,@(when lsp-enable-file-watchers '((didChangeWatchedFiles . ((dynamicRegistration . t)))))
+                   (workspaceFolders . t)
+                   (configuration . t)
+                   ,@(when lsp-semantic-tokens-enable
+                       `((semanticTokens . ((refreshSupport . ,(or (and (boundp 'lsp-semantic-tokens-honor-refresh-requests)
+                                                                        lsp-semantic-tokens-honor-refresh-requests)
+                                                                   :json-false))))))
+                   ,@(when lsp-lens-enable '((codeLens . ((refreshSupport . t)))))
+                   ,@(when lsp-inlay-hint-enable '((inlayHint . ((refreshSupport . :json-false)))))
+                   (diagnostics . ((refreshSupport . :json-false)))
+                   (fileOperations . ((didCreate . :json-false)
+                                      (willCreate . :json-false)
+                                      (didRename . t)
+                                      (willRename . t)
+                                      (didDelete . :json-false)
+                                      (willDelete . :json-false)))))
+     (textDocument . ((declaration . ((dynamicRegistration . t)
+                                      (linkSupport . t)))
+                      (definition . ((dynamicRegistration . t)
+                                     (linkSupport . t)))
+                      (references . ((dynamicRegistration . t)))
+                      (implementation . ((dynamicRegistration . t)
+                                         (linkSupport . t)))
+                      (typeDefinition . ((dynamicRegistration . t)
+                                         (linkSupport . t)))
+                      (synchronization . ((willSave . t) (didSave . t) (willSaveWaitUntil . t)))
+                      (documentSymbol . ((symbolKind . ((valueSet . ,(apply 'vector (number-sequence 1 26)))))
+                                         (hierarchicalDocumentSymbolSupport . t)))
+                      (formatting . ((dynamicRegistration . t)))
+                      (rangeFormatting . ((dynamicRegistration . t)))
+                      (onTypeFormatting . ((dynamicRegistration . t)))
+                      ,@(when (and lsp-semantic-tokens-enable
+                                   (functionp 'lsp--semantic-tokens-capabilities))
+                          (lsp--semantic-tokens-capabilities))
+                      (rename . ((dynamicRegistration . t) (prepareSupport . t)))
+                      (codeAction . ((dynamicRegistration . t)
+                                     (isPreferredSupport . t)
+                                     (codeActionLiteralSupport . ((codeActionKind . ((valueSet . [""
+                                                                                                  "quickfix"
+                                                                                                  "refactor"
+                                                                                                  "refactor.extract"
+                                                                                                  "refactor.inline"
+                                                                                                  "refactor.rewrite"
+                                                                                                  "source"
+                                                                                                  "source.organizeImports"])))))
+                                     (resolveSupport . ((properties . ["edit" "command"])))
+                                     (dataSupport . t)))
+                      (completion . ((completionItem . ((snippetSupport . ,(cond
+                                                                            ((and lsp-enable-snippet (not (fboundp 'yas-minor-mode)))
+                                                                             (lsp--warn (concat
+                                                                                         "Yasnippet is not installed, but `lsp-enable-snippet' is set to `t'. "
+                                                                                         "You must either install yasnippet, or disable snippet support."))
+                                                                             :json-false)
+                                                                            (lsp-enable-snippet t)
+                                                                            (t :json-false)))
+                                                        (documentationFormat . ["markdown" "plaintext"])
+                                                        ;; Remove this after jdtls support resolveSupport
+                                                        (resolveAdditionalTextEditsSupport . t)
+                                                        (insertReplaceSupport . t)
+                                                        (deprecatedSupport . t)
+                                                        (resolveSupport
+                                                         . ((properties . ["documentation"
+                                                                           "detail"
+                                                                           "additionalTextEdits"
+                                                                           "command"
+                                                                           "insertTextFormat"
+                                                                           "insertTextMode"])))
+                                                        (insertTextModeSupport . ((valueSet . [1 2])))))
+                                     (contextSupport . t)
+                                     (dynamicRegistration . t)))
+                      (signatureHelp . ((signatureInformation . ((parameterInformation . ((labelOffsetSupport . t)))))
+                                        (dynamicRegistration . t)))
+                      (documentLink . ((dynamicRegistration . t)
+                                       (tooltipSupport . t)))
+                      (hover . ((contentFormat . ["markdown" "plaintext"])
+                                (dynamicRegistration . t)))
+                      ,@(when lsp-enable-folding
+                          `((foldingRange . ((dynamicRegistration . t)
+                                             ,@(when lsp-folding-range-limit
+                                                 `((rangeLimit . ,lsp-folding-range-limit)))
+                                             ,@(when lsp-folding-line-folding-only
+                                                 `((lineFoldingOnly . t)))))))
+                      (selectionRange . ((dynamicRegistration . t)))
+                      (callHierarchy . ((dynamicRegistration . :json-false)))
+                      (typeHierarchy . ((dynamicRegistration . t)))
+                      (publishDiagnostics . ((relatedInformation . t)
+                                             (tagSupport . ((valueSet . [1 2])))
+                                             (versionSupport . t)))
+                      (diagnostic . ((dynamicRegistration . :json-false)
+                                     (relatedDocumentSupport . :json-false)))
+                      (linkedEditingRange . ((dynamicRegistration . t)))))
+     (window . ((workDoneProgress . t)
+                (showDocument . ((support . t))))))
+   custom-capabilities))
+
+(defun lsp-find-roots-for-workspace (workspace session)
+  "Get all roots for the WORKSPACE."
+  (-filter #'identity (ht-map (lambda (folder workspaces)
+                                (when (-contains? workspaces workspace)
+                                  folder))
+                              (lsp-session-folder->servers session))))
+
+(defun lsp-session-watches (&optional session)
+  "Get watches created for SESSION."
+  (or (gethash "__watches" (lsp-session-metadata (or session (lsp-session))))
+      (-let [res (make-hash-table :test 'equal)]
+        (puthash "__watches" res (lsp-session-metadata (or session (lsp-session))))
+        res)))
+
+(defun lsp--file-process-event (session root-folder event)
+  "Process file event."
+  (let* ((changed-file (cl-third event))
+         (rel-changed-file (f-relative changed-file root-folder))
+         (event-numeric-kind (alist-get (cl-second event) lsp--file-change-type))
+         (bit-position (1- event-numeric-kind))
+         (watch-bit (ash 1 bit-position)))
+    (->>
+     session
+     lsp-session-folder->servers
+     (gethash root-folder)
+     (seq-do (lambda (workspace)
+               (when (->>
+                      workspace
+                      lsp--workspace-registered-server-capabilities
+                      (-any?
+                       (lambda (capability)
+                         (and
+                          (equal (lsp--registered-capability-method capability)
+                                 "workspace/didChangeWatchedFiles")
+                          (->>
+                           capability
+                           lsp--registered-capability-options
+                           (lsp:did-change-watched-files-registration-options-watchers)
+                           (seq-find
+                            (-lambda ((fs-watcher &as &FileSystemWatcher :glob-pattern :kind? :_cachedRegexp cached-regexp))
+                              (when (or (null kind?)
+                                        (> (logand kind? watch-bit) 0))
+                                (-let [regexes (or cached-regexp
+                                                   (let ((regexp (lsp-glob-to-regexps glob-pattern)))
+                                                     (lsp-put fs-watcher :_cachedRegexp regexp)
+                                                     regexp))]
+                                  (-any? (lambda (re)
+                                           (or (string-match re changed-file)
+                                               (string-match re rel-changed-file)))
+                                         regexes))))))))))
+                 (with-lsp-workspace workspace
+                   (lsp-notify
+                    "workspace/didChangeWatchedFiles"
+                    `((changes . [((type . ,event-numeric-kind)
+                                   (uri . ,(lsp--path-to-uri changed-file)))]))))))))))
+
+(lsp-defun lsp--server-register-capability ((&Registration :method :id :register-options?))
+  "Register capability REG."
+  (when (and lsp-enable-file-watchers
+             (equal method "workspace/didChangeWatchedFiles"))
+    (-let* ((created-watches (lsp-session-watches (lsp-session)))
+            (root-folders (cl-set-difference
+                           (lsp-find-roots-for-workspace lsp--cur-workspace (lsp-session))
+                           (ht-keys created-watches))))
+      ;; create watch for each root folder without such
+      (dolist (folder root-folders)
+        (let* ((watch (make-lsp-watch :root-directory folder))
+               (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder))
+               (ignored-files-regex-list (car ignored-things))
+               (ignored-directories-regex-list (cadr ignored-things)))
+          (puthash folder watch created-watches)
+          (lsp-watch-root-folder (file-truename folder)
+                                 (-partial #'lsp--file-process-event (lsp-session) folder)
+                                 ignored-files-regex-list
+                                 ignored-directories-regex-list
+                                 watch
+                                 t)))))
+
+  (push
+   (make-lsp--registered-capability :id id :method method :options register-options?)
+   (lsp--workspace-registered-server-capabilities lsp--cur-workspace)))
+
+(defmacro lsp--with-workspace-temp-buffer (workspace-root &rest body)
+  "With a temp-buffer under `WORKSPACE-ROOT' and evaluate `BODY', useful to
+access dir-local variables."
+  (declare (indent 1) (debug t))
+  `(with-temp-buffer
+     ;; Set the buffer's name to something under the root so that we can hack the local variables
+     ;; This file doesn't need to exist and will not be created due to this.
+     (setq-local buffer-file-name (expand-file-name "lsp-mode-temp" (expand-file-name ,workspace-root)))
+     (hack-local-variables)
+     (prog1 ,@body
+       (setq-local buffer-file-name nil))))
+
+(defun lsp--get-ignored-regexes-for-workspace-root (workspace-root)
+  "Return a list of the form
+(lsp-file-watch-ignored-files lsp-file-watch-ignored-directories) for the given
+WORKSPACE-ROOT."
+  ;; The intent of this function is to provide per-root workspace-level customization of the
+  ;; lsp-file-watch-ignored-directories and lsp-file-watch-ignored-files variables.
+  (lsp--with-workspace-temp-buffer workspace-root
+    (list lsp-file-watch-ignored-files (lsp-file-watch-ignored-directories))))
+
+
+(defun lsp--cleanup-hanging-watches ()
+  "Cleanup watches in case there are no more workspaces that are interested
+in that particular folder."
+  (let* ((session (lsp-session))
+         (watches (lsp-session-watches session)))
+    (dolist (watched-folder (ht-keys watches))
+      (when (-none? (lambda (workspace)
+                      (with-lsp-workspace workspace
+                        (lsp--registered-capability "workspace/didChangeWatchedFiles")))
+                    (gethash watched-folder (lsp-session-folder->servers (lsp-session))))
+        (lsp-log "Cleaning up watches for folder %s. There is no workspace watching this folder..." watched-folder)
+        (lsp-kill-watch (gethash watched-folder watches))
+        (remhash watched-folder watches)))))
+
+(lsp-defun lsp--server-unregister-capability ((&Unregistration :id :method))
+  "Unregister capability UNREG."
+  (setf (lsp--workspace-registered-server-capabilities lsp--cur-workspace)
+        (seq-remove (lambda (e) (equal (lsp--registered-capability-id e) id))
+                    (lsp--workspace-registered-server-capabilities lsp--cur-workspace)))
+  (when (equal method "workspace/didChangeWatchedFiles")
+    (lsp--cleanup-hanging-watches)))
+
+(defun lsp--server-capabilities ()
+  "Return the capabilities of the language server associated with the buffer."
+  (->> (lsp-workspaces)
+       (-keep #'lsp--workspace-server-capabilities)
+       (apply #'lsp-merge)))
+
+(defun lsp--send-open-close-p ()
+  "Return whether open and close notifications should be sent to the server."
+  (let ((sync (lsp:server-capabilities-text-document-sync? (lsp--server-capabilities))))
+    (or (memq sync '(1 2))
+        (lsp:text-document-sync-options-open-close? sync))))
+
+(defun lsp--send-will-save-p ()
+  "Return whether willSave notifications should be sent to the server."
+  (-> (lsp--server-capabilities)
+      (lsp:server-capabilities-text-document-sync?)
+      (lsp:text-document-sync-options-will-save?)))
+
+(defun lsp--send-will-save-wait-until-p ()
+  "Return whether willSaveWaitUntil notifications should be sent to the server."
+  (-> (lsp--server-capabilities)
+      (lsp:server-capabilities-text-document-sync?)
+      (lsp:text-document-sync-options-will-save-wait-until?)))
+
+(defun lsp--send-did-save-p ()
+  "Return whether didSave notifications should be sent to the server."
+  (let ((sync (lsp:server-capabilities-text-document-sync? (lsp--server-capabilities))))
+    (or (memq sync '(1 2))
+        (lsp:text-document-sync-options-save? sync))))
+
+(defun lsp--save-include-text-p ()
+  "Return whether save notifications should include the text document's contents."
+  (->> (lsp--server-capabilities)
+       (lsp:server-capabilities-text-document-sync?)
+       (lsp:text-document-sync-options-save?)
+       (lsp:text-document-save-registration-options-include-text?)))
+
+(defun lsp--send-will-rename-files-p (path)
+  "Return whether willRenameFiles request should be sent to the server.
+If any filters, checks if it applies for PATH."
+  (let* ((will-rename (-> (lsp--server-capabilities)
+                          (lsp:server-capabilities-workspace?)
+                          (lsp:workspace-server-capabilities-file-operations?)
+                          (lsp:workspace-file-operations-will-rename?)))
+         (filters (seq-into (lsp:file-operation-registration-options-filters will-rename) 'list)))
+    (and will-rename
+         (or (seq-empty-p filters)
+             (-any? (-lambda ((&FileOperationFilter :scheme? :pattern (&FileOperationPattern :glob)))
+                      (-let [regexes (lsp-glob-to-regexps glob)]
+                        (and (or (not scheme?)
+                                 (string-prefix-p scheme? (lsp--path-to-uri path)))
+                             (-any? (lambda (re)
+                                      (string-match re path))
+                                    regexes))))
+                    filters)))))
+
+(defun lsp--send-did-rename-files-p ()
+  "Return whether didRenameFiles notification should be sent to the server."
+  (-> (lsp--server-capabilities)
+      (lsp:server-capabilities-workspace?)
+      (lsp:workspace-server-capabilities-file-operations?)
+      (lsp:workspace-file-operations-did-rename?)))
+
+(declare-function project-roots "ext:project" (project) t)
+(declare-function project-root "ext:project" (project) t)
+
+(defun lsp--suggest-project-root ()
+  "Get project root."
+  (or
+   (when (fboundp 'projectile-project-root)
+     (condition-case nil
+         (projectile-project-root)
+       (error nil)))
+   (when (fboundp 'project-current)
+     (when-let* ((project (project-current)))
+       (if (fboundp 'project-root)
+           (project-root project)
+         (car (with-no-warnings
+                (project-roots project))))))
+   default-directory))
+
+(defun lsp--read-from-file (file)
+  "Read FILE content."
+  (when (file-exists-p file)
+    (cl-first (read-from-string (f-read-text file 'utf-8)))))
+
+(defun lsp--persist (file-name to-persist)
+  "Persist TO-PERSIST in FILE-NAME.
+
+This function creates the parent directories if they don't exist
+yet."
+  (let ((print-length nil)
+        (print-level nil))
+    ;; Create all parent directories:
+    (make-directory (f-parent file-name) t)
+    (f-write-text (prin1-to-string to-persist) 'utf-8 file-name)))
+
+(defun lsp-workspace-folders-add (project-root)
+  "Add PROJECT-ROOT to the list of workspace folders."
+  (interactive
+   (list (read-directory-name "Select folder to add: "
+                              (or (lsp--suggest-project-root) default-directory) nil t)))
+  (cl-pushnew (lsp-f-canonical project-root)
+              (lsp-session-folders (lsp-session)) :test 'equal)
+  (lsp--persist-session (lsp-session))
+
+  (run-hook-with-args 'lsp-workspace-folders-changed-functions (list project-root) nil))
+
+(defun lsp-workspace-folders-remove (project-root)
+  "Remove PROJECT-ROOT from the list of workspace folders."
+  (interactive (list (completing-read "Select folder to remove: "
+                                      (lsp-session-folders (lsp-session))
+                                      nil t nil nil
+                                      (lsp-find-session-folder (lsp-session) default-directory))))
+
+  (setq project-root (lsp-f-canonical project-root))
+
+  ;; send remove folder to each multiroot workspace associated with the folder
+  (dolist (wks (->> (lsp-session)
+                    (lsp-session-folder->servers)
+                    (gethash project-root)
+                    (--filter (lsp--client-multi-root (lsp--workspace-client it)))))
+    (with-lsp-workspace wks
+      (lsp-notify "workspace/didChangeWorkspaceFolders"
+                  (lsp-make-did-change-workspace-folders-params
+                   :event (lsp-make-workspace-folders-change-event
+                           :removed (vector (lsp-make-workspace-folder
+                                             :uri (lsp--path-to-uri project-root)
+                                             :name (f-filename project-root)))
+                           :added [])))))
+
+  ;; turn off servers in the removed directory
+  (let* ((session (lsp-session))
+         (folder->servers (lsp-session-folder->servers session))
+         (server-id->folders (lsp-session-server-id->folders session))
+         (workspaces (gethash project-root folder->servers)))
+
+    (remhash project-root folder->servers)
+
+    ;; turn off the servers without root folders
+    (dolist (workspace workspaces)
+      (when (--none? (-contains? it workspace) (ht-values folder->servers))
+        (lsp--info "Shutdown %s since folder %s is removed..."
+                   (lsp--workspace-print workspace) project-root)
+        (with-lsp-workspace workspace (lsp--shutdown-workspace))))
+
+    (setf (lsp-session-folders session)
+          (-remove-item project-root (lsp-session-folders session)))
+
+    (ht-aeach (puthash key
+                       (-remove-item project-root value)
+                       server-id->folders)
+              server-id->folders)
+    (lsp--persist-session (lsp-session)))
+
+  (run-hook-with-args 'lsp-workspace-folders-changed-functions nil (list project-root)))
+
+(defun lsp-workspace-blocklist-remove (project-root)
+  "Remove PROJECT-ROOT from the workspace blocklist."
+  (interactive (list (completing-read "Select folder to remove:"
+                                      (lsp-session-folders-blocklist (lsp-session))
+                                      nil t)))
+  (setf (lsp-session-folders-blocklist (lsp-session))
+        (delete project-root
+                (lsp-session-folders-blocklist (lsp-session))))
+  (lsp--persist-session (lsp-session)))
+
+(define-obsolete-function-alias 'lsp-workspace-folders-switch
+  'lsp-workspace-folders-open "lsp-mode 6.1")
+
+(defun lsp-workspace-folders-open (project-root)
+  "Open the directory located at PROJECT-ROOT"
+  (interactive (list (completing-read "Open folder: "
+                                      (lsp-session-folders (lsp-session))
+                                      nil t)))
+  (find-file project-root))
+
+(defun lsp--maybe-enable-signature-help (trigger-characters)
+  (let ((ch last-command-event))
+    (when (cl-find ch trigger-characters :key #'string-to-char)
+      (lsp-signature-activate))))
+
+(defun lsp--on-type-formatting-handler-create ()
+  (when-let* ((provider (lsp--capability-for-method "textDocument/onTypeFormatting" )))
+    (-let [(&DocumentOnTypeFormattingOptions :more-trigger-character?
+                                             :first-trigger-character) provider]
+      (lambda ()
+        (lsp--on-type-formatting first-trigger-character
+                                 more-trigger-character?)))))
+
+(defun lsp--update-on-type-formatting-hook (&optional cleanup?)
+  (let ((on-type-formatting-handler (lsp--on-type-formatting-handler-create)))
+    (cond
+     ((and lsp-enable-on-type-formatting on-type-formatting-handler (not cleanup?))
+      (add-hook 'post-self-insert-hook on-type-formatting-handler nil t))
+     ((or cleanup?
+          (not lsp-enable-on-type-formatting))
+      (remove-hook 'post-self-insert-hook on-type-formatting-handler t)))))
+
+(defun lsp--signature-help-handler-create ()
+  (-when-let ((&SignatureHelpOptions? :trigger-characters?)
+              (lsp--capability-for-method "textDocument/signatureHelp"))
+    (lambda ()
+      (lsp--maybe-enable-signature-help trigger-characters?))))
+
+(defun lsp--update-signature-help-hook (&optional cleanup?)
+  (let ((signature-help-handler (lsp--signature-help-handler-create)))
+    (cond
+     ((and (or (equal lsp-signature-auto-activate t)
+               (memq :on-trigger-char lsp-signature-auto-activate))
+           signature-help-handler
+           (not cleanup?))
+      (add-hook 'post-self-insert-hook signature-help-handler nil t))
+
+     ((or cleanup?
+          (not (or (equal lsp-signature-auto-activate t)
+                   (memq :on-trigger-char lsp-signature-auto-activate))))
+      (remove-hook 'post-self-insert-hook signature-help-handler t)))))
+
+(defun lsp--after-set-visited-file-name ()
+  (lsp-disconnect)
+  (lsp))
+
+;; TODO remove those eldoc workarounds when dropping support for Emacs 27
+;; https://github.com/emacs-lsp/lsp-mode/issues/3295#issuecomment-1308994099
+(defvar eldoc-documentation-default) ; CI
+(when (< emacs-major-version 28)
+  (unless (boundp 'eldoc-documentation-functions)
+    (load "eldoc" nil 'nomessage))
+  (when (memq (default-value 'eldoc-documentation-function) '(nil ignore))
+    ;; actually `eldoc-documentation-strategy', but CI was failing
+    (setq-default eldoc-documentation-function 'eldoc-documentation-default)))
+
+(define-minor-mode lsp-managed-mode
+  "Mode for source buffers managed by lsp-mode."
+  :lighter nil
+  (cond
+   (lsp-managed-mode
+    (when (lsp-feature? "textDocument/hover")
+      (add-hook 'eldoc-documentation-functions #'lsp-eldoc-function nil t)
+      (eldoc-mode 1))
+
+    (add-hook 'after-change-functions #'lsp-on-change nil t)
+    (add-hook 'after-revert-hook #'lsp-on-revert nil t)
+    (add-hook 'after-save-hook #'lsp-on-save nil t)
+    (add-hook 'auto-save-hook #'lsp--on-auto-save nil t)
+    (add-hook 'before-change-functions #'lsp-before-change nil t)
+    (add-hook 'before-save-hook #'lsp--before-save nil t)
+    (add-hook 'kill-buffer-hook #'lsp--text-document-did-close nil t)
+    (add-hook 'post-command-hook #'lsp--post-command nil t)
+
+    (lsp--update-on-type-formatting-hook)
+    (lsp--update-signature-help-hook)
+
+    (when lsp-enable-xref
+      (add-hook 'xref-backend-functions #'lsp--xref-backend nil t))
+
+    (lsp-configure-buffer)
+
+    ;; make sure we turn off lsp-mode in case major mode changes, because major
+    ;; mode change will wipe the buffer locals.
+    (add-hook 'change-major-mode-hook #'lsp-disconnect nil t)
+    (add-hook 'after-set-visited-file-name-hook #'lsp--after-set-visited-file-name nil t)
+
+    (let ((buffer (lsp-current-buffer)))
+      (run-with-idle-timer
+       0.0 nil
+       (lambda ()
+         (when (lsp-buffer-live-p buffer)
+           (lsp-with-current-buffer buffer
+             (lsp--on-change-debounce buffer)
+             (lsp--on-idle buffer)))))))
+   (t
+    (lsp-unconfig-buffer)
+
+    (remove-hook 'eldoc-documentation-functions #'lsp-eldoc-function t)
+    (remove-hook 'post-command-hook #'lsp--post-command t)
+    (remove-hook 'after-change-functions #'lsp-on-change t)
+    (remove-hook 'after-revert-hook #'lsp-on-revert t)
+    (remove-hook 'after-save-hook #'lsp-on-save t)
+    (remove-hook 'auto-save-hook #'lsp--on-auto-save t)
+    (remove-hook 'before-change-functions #'lsp-before-change t)
+    (remove-hook 'before-save-hook #'lsp--before-save t)
+    (remove-hook 'kill-buffer-hook #'lsp--text-document-did-close t)
+
+    (lsp--update-on-type-formatting-hook :cleanup)
+    (lsp--update-signature-help-hook :cleanup)
+
+    (when lsp--on-idle-timer
+      (cancel-timer lsp--on-idle-timer)
+      (setq lsp--on-idle-timer nil))
+
+    (remove-hook 'lsp-on-idle-hook #'lsp--document-links t)
+    (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
+
+    (lsp--remove-overlays 'lsp-highlight)
+    (lsp--remove-overlays 'lsp-links)
+
+    (remove-hook 'xref-backend-functions #'lsp--xref-backend t)
+    (remove-hook 'change-major-mode-hook #'lsp-disconnect t)
+    (remove-hook 'after-set-visited-file-name-hook #'lsp--after-set-visited-file-name t)
+    (setq-local lsp-buffer-uri nil))))
+
+(defun lsp-configure-buffer ()
+  "Configure LSP features for current buffer."
+  ;; make sure the core is running in the context of all available workspaces
+  ;; to avoid misconfiguration in case we are running in `with-lsp-workspace' context
+  (let ((lsp--buffer-workspaces (cond
+                                 (lsp--buffer-workspaces)
+                                 (lsp--cur-workspace (list lsp--cur-workspace))))
+        lsp--cur-workspace)
+    (when lsp-auto-configure
+      (lsp--auto-configure)
+
+      (when (and lsp-enable-text-document-color
+                 (lsp-feature? "textDocument/documentColor"))
+        (add-hook 'lsp-on-change-hook #'lsp--document-color nil t))
+
+      (when (and lsp-enable-imenu
+                 (lsp-feature? "textDocument/documentSymbol"))
+        (lsp-enable-imenu))
+
+      (when (and lsp-enable-indentation
+                 (lsp-feature? "textDocument/rangeFormatting"))
+        (add-function :override (local 'indent-region-function) #'lsp-format-region))
+
+      (when (and lsp-enable-symbol-highlighting
+                 (lsp-feature? "textDocument/documentHighlight"))
+        (add-hook 'lsp-on-idle-hook #'lsp--document-highlight nil t))
+
+      (when (and lsp-enable-links
+                 (lsp-feature? "textDocument/documentLink"))
+        (add-hook 'lsp-on-idle-hook #'lsp--document-links nil t))
+
+      (when (and lsp-inlay-hint-enable
+                 (lsp-feature? "textDocument/inlayHint"))
+        (lsp-inlay-hints-mode))
+
+      (when (and lsp-enable-dap-auto-configure
+                 (functionp 'dap-mode))
+        (dap-auto-configure-mode 1)))
+    (run-hooks 'lsp-configure-hook)))
+
+(defun lsp-unconfig-buffer ()
+  "Unconfigure LSP features for buffer."
+  (lsp--remove-overlays 'lsp-color)
+
+  (when (advice-function-member-p 'lsp--imenu-create-index imenu-create-index-function)
+    (remove-function (local 'imenu-create-index-function) #'lsp--imenu-create-index)
+    (setq-local imenu-menubar-modified-tick 0)
+    (setq-local imenu--index-alist nil)
+    (imenu--cleanup))
+
+  (remove-function (local 'indent-region-function) #'lsp-format-region)
+
+  (remove-hook 'lsp-on-change-hook #'lsp--document-color t)
+  (remove-hook 'lsp-on-idle-hook #'lsp--document-highlight t)
+  (remove-hook 'lsp-on-idle-hook #'lsp--document-links t)
+
+  (when (and lsp-enable-dap-auto-configure
+             (functionp 'dap-mode))
+    (dap-auto-configure-mode -1))
+
+  (run-hooks 'lsp-unconfigure-hook))
+
+(defun lsp--buffer-content ()
+  (lsp-save-restriction-and-excursion
+    (or (lsp-virtual-buffer-call :buffer-string)
+        (buffer-substring-no-properties (point-min)
+                                        (point-max)))))
+
+(defun lsp--text-document-did-open ()
+  "`document/didOpen' event."
+  (run-hooks 'lsp-before-open-hook)
+  (when (and lsp-auto-touch-files
+             (not (f-exists? (lsp--uri-to-path (lsp--buffer-uri)))))
+    (lsp--info "Saving file '%s' because it is not present on the disk." (lsp--buffer-uri))
+    (save-buffer))
+
+  (setq lsp--cur-version (or lsp--cur-version 0))
+  (cl-pushnew (lsp-current-buffer) (lsp--workspace-buffers lsp--cur-workspace))
+  (lsp-notify
+   "textDocument/didOpen"
+   (list :textDocument
+         (list :uri (lsp--buffer-uri)
+               :languageId (lsp-buffer-language)
+               :version lsp--cur-version
+               :text (lsp--buffer-content))))
+
+  (lsp-managed-mode 1)
+
+  (lsp-diagnostics--request-pull-diagnostics lsp--cur-workspace)
+
+  (run-hooks 'lsp-after-open-hook)
+  (when-let* ((client (-some-> lsp--cur-workspace (lsp--workspace-client))))
+    (-some-> (lsp--client-after-open-fn client)
+      (funcall))
+    (-some-> (format "lsp-%s-after-open-hook" (lsp--client-server-id client))
+      (intern-soft)
+      (run-hooks))))
+
+(defun lsp--text-document-identifier ()
+  "Make TextDocumentIdentifier."
+  (list :uri (lsp--buffer-uri)))
+
+(defun lsp--versioned-text-document-identifier ()
+  "Make VersionedTextDocumentIdentifier."
+  (plist-put (lsp--text-document-identifier) :version lsp--cur-version))
+
+(defun lsp--cur-line (&optional point)
+  (1- (line-number-at-pos point)))
+
+(defun lsp--cur-position ()
+  "Make a Position object for the current point."
+  (or (lsp-virtual-buffer-call :cur-position)
+      (lsp-save-restriction-and-excursion
+        (list :line (lsp--cur-line)
+              :character (- (point) (line-beginning-position))))))
+
+(defun lsp--point-to-position (point)
+  "Convert POINT to Position."
+  (lsp-save-restriction-and-excursion
+    (goto-char point)
+    (lsp--cur-position)))
+
+(defun lsp--range (start end)
+  "Make Range body from START and END."
+  ;; make sure start and end are Position objects
+  (list :start start :end end))
+
+(defun lsp--region-to-range (start end)
+  "Make Range object for the current region."
+  (lsp--range (lsp--point-to-position start)
+              (lsp--point-to-position end)))
+
+(defun lsp--region-or-line ()
+  "The active region or the current line."
+  (if (use-region-p)
+      (lsp--region-to-range (region-beginning) (region-end))
+    (lsp--region-to-range (line-beginning-position) (line-end-position))))
+
+(defun lsp--check-document-changes-version (document-changes)
+  "Verify that DOCUMENT-CHANGES have the proper version."
+  (unless (seq-every-p
+           (-lambda ((&TextDocumentEdit :text-document))
+             (or
+              (not text-document)
+              (let* ((filename (-> text-document
+                                   lsp:versioned-text-document-identifier-uri
+                                   lsp--uri-to-path))
+                     (version (lsp:versioned-text-document-identifier-version? text-document)))
+                (with-current-buffer (find-file-noselect filename)
+                  (or (null version) (zerop version) (= -1 version)
+                      (equal version lsp--cur-version))))))
+           document-changes)
+    (error "Document changes cannot be applied due to different document version")))
+
+(defun lsp--apply-workspace-edit (workspace-edit &optional operation)
+  "Apply the WorkspaceEdit object WORKSPACE-EDIT.
+OPERATION is symbol representing the source of this text edit."
+  (-let (((&WorkspaceEdit :document-changes? :changes?) workspace-edit))
+    (if-let* ((document-changes (seq-reverse document-changes?)))
+        (progn
+          (lsp--check-document-changes-version document-changes)
+          (->> document-changes
+               (seq-filter (-lambda ((&CreateFile :kind)) (equal kind "create")))
+               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation))))
+          (->> document-changes
+               (seq-filter (-lambda ((&CreateFile :kind))
+                             (and (or (not kind) (equal kind "edit"))
+                                  (not (equal kind "create")))))
+               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation))))
+          (->> document-changes
+               (seq-filter (-lambda ((&CreateFile :kind))
+                             (and (not (or (not kind) (equal kind "edit")))
+                                  (not (equal kind "create")))))
+               (seq-do (lambda (change) (lsp--apply-text-document-edit change operation)))))
+      (lsp-map
+       (lambda (uri text-edits)
+         (with-current-buffer (-> uri lsp--uri-to-path find-file-noselect)
+           (lsp--apply-text-edits text-edits operation)))
+       changes?))))
+
+(defmacro lsp-with-filename (file &rest body)
+  "Execute BODY with FILE as a context.
+Need to handle the case when FILE indicates virtual buffer."
+  (declare (indent 1) (debug t))
+  `(if-let* ((lsp--virtual-buffer (get-text-property 0 'lsp-virtual-buffer ,file)))
+       (lsp-with-current-buffer lsp--virtual-buffer
+         ,@body)
+     ,@body))
+
+(defun lsp--apply-text-document-edit (edit &optional operation)
+  "Apply the TextDocumentEdit object EDIT.
+OPERATION is symbol representing the source of this text edit.
+If the file is not being visited by any buffer, it is opened with
+`find-file-noselect'.
+Because lsp-mode does not store previous document versions, the edit is only
+applied if the version of the textDocument matches the version of the
+corresponding file.
+
+interface TextDocumentEdit {
+  textDocument: VersionedTextDocumentIdentifier;
+  edits: TextEdit[];
+}"
+  (pcase (lsp:edit-kind edit)
+    ("create" (-let* (((&CreateFile :uri :options?) edit)
+                      (file-name (lsp--uri-to-path uri)))
+                (mkdir (f-dirname file-name) t)
+                (f-touch file-name)
+                (when (lsp:create-file-options-overwrite? options?)
+                  (f-write-text "" nil file-name))
+                (find-file-noselect file-name)))
+    ("delete" (-let (((&DeleteFile :uri :options? (&DeleteFileOptions? :recursive?)) edit))
+                (f-delete (lsp--uri-to-path uri) recursive?)))
+    ("rename" (-let* (((&RenameFile :old-uri :new-uri :options? (&RenameFileOptions? :overwrite?)) edit)
+                      (old-file-name (lsp--uri-to-path old-uri))
+                      (new-file-name (lsp--uri-to-path new-uri))
+                      (buf (find-buffer-visiting old-file-name)))
+                (when buf
+                  (lsp-with-current-buffer buf
+                    (save-buffer)
+                    (lsp--text-document-did-close)))
+                (mkdir (f-dirname new-file-name) t)
+                (rename-file old-file-name new-file-name overwrite?)
+                (when buf
+                  (lsp-with-current-buffer buf
+                    (set-buffer-modified-p nil)
+                    (setq lsp-buffer-uri nil)
+                    (set-visited-file-name new-file-name)
+                    (lsp)))))
+    (_ (let ((file-name (->> edit
+                             (lsp:text-document-edit-text-document)
+                             (lsp:versioned-text-document-identifier-uri)
+                             (lsp--uri-to-path))))
+         (lsp-with-current-buffer (find-buffer-visiting file-name)
+           (lsp-with-filename file-name
+             (lsp--apply-text-edits (lsp:text-document-edit-edits edit) operation)))))))
+
+(lsp-defun lsp--position-compare ((&Position :line left-line
+                                             :character left-character)
+                                  (&Position :line right-line
+                                             :character right-character))
+  "Return t if position LEFT is greater than RIGHT."
+  (if (= left-line right-line)
+      (> left-character right-character)
+    (> left-line right-line)))
+
+(lsp-defun lsp-point-in-range? (position (&Range :start :end))
+  "Returns if POINT is in RANGE."
+  (not (or (lsp--position-compare start position)
+           (lsp--position-compare position end))))
+
+(lsp-defun lsp--position-equal ((&Position :line left-line
+                                           :character left-character)
+                                (&Position :line right-line
+                                           :character right-character))
+  "Return whether LEFT and RIGHT positions are equal."
+  (and (= left-line right-line)
+       (= left-character right-character)))
+
+(lsp-defun lsp--text-edit-sort-predicate ((&TextEdit :range (&Range :start left-start :end left-end))
+                                          (&TextEdit :range (&Range :start right-start :end right-end)))
+  (if (lsp--position-equal left-start right-start)
+      (lsp--position-compare left-end right-end)
+    (lsp--position-compare left-start right-start)))
+
+(lsp-defun lsp--apply-text-edit ((edit &as &TextEdit :range (&RangeToPoint :start :end) :new-text))
+  "Apply the edits described in the TextEdit object in TEXT-EDIT."
+  (setq new-text (s-replace "\r" "" (or new-text "")))
+  (lsp:set-text-edit-new-text edit new-text)
+  (goto-char start)
+  (delete-region start end)
+  (insert new-text))
+
+;; WORKAROUND: typescript-language might send -1 when applying code actions.
+;; see https://github.com/emacs-lsp/lsp-mode/issues/1582
+(lsp-defun lsp--fix-point ((point &as &Position :character :line))
+  (-doto point
+    (lsp:set-position-line (max 0 line))
+    (lsp:set-position-character (max 0 character))))
+
+(lsp-defun lsp--apply-text-edit-replace-buffer-contents ((edit &as
+                                                               &TextEdit
+                                                               :range (&Range :start :end)
+                                                               :new-text))
+  "Apply the edits described in the TextEdit object in TEXT-EDIT.
+The method uses `replace-buffer-contents'."
+  (setq new-text (s-replace "\r" "" (or new-text "")))
+  (lsp:set-text-edit-new-text edit new-text)
+  (-let* ((source (current-buffer))
+          ((beg . end) (lsp--range-to-region (lsp-make-range :start (lsp--fix-point start)
+                                                             :end (lsp--fix-point end)))))
+    (with-temp-buffer
+      (insert new-text)
+      (let ((temp (current-buffer)))
+        (with-current-buffer source
+          (save-excursion
+            (save-restriction
+              (narrow-to-region beg end)
+
+              ;; On emacs versions < 26.2,
+              ;; `replace-buffer-contents' is buggy - it calls
+              ;; change functions with invalid arguments - so we
+              ;; manually call the change functions here.
+              ;;
+              ;; See emacs bugs #32237, #32278:
+              ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32237
+              ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32278
+              (let ((inhibit-modification-hooks t)
+                    (length (- end beg)))
+                (run-hook-with-args 'before-change-functions
+                                    beg end)
+                (replace-buffer-contents temp)
+                (run-hook-with-args 'after-change-functions
+                                    beg (+ beg (length new-text))
+                                    length)))))))))
+
+(defun lsp--to-yasnippet-snippet (snippet)
+  "Convert LSP SNIPPET to yasnippet snippet."
+  ;; LSP snippet doesn't escape "{" and "`", but yasnippet requires escaping it.
+  (replace-regexp-in-string (rx (or bos (not (any "$" "\\"))) (group (or "{" "`")))
+                            (rx "\\" (backref 1))
+                            snippet
+                            nil nil 1))
+
+(defvar-local lsp-enable-relative-indentation nil
+  "Enable relative indentation when insert texts, snippets ...
+from language server.")
+
+(defun lsp--expand-snippet (snippet &optional start end expand-env)
+  "Wrapper of `yas-expand-snippet' with all of it arguments.
+The snippet will be convert to LSP style and indent according to
+LSP server result."
+  (require 'yasnippet nil t)
+  (let* ((inhibit-field-text-motion t)
+         (yas-wrap-around-region nil)
+         (yas-indent-line 'none)
+         (yas-also-auto-indent-first-line nil))
+    (yas-expand-snippet
+     (lsp--to-yasnippet-snippet snippet)
+     start end expand-env)))
+
+(defun lsp--indent-lines (start end &optional insert-text-mode?)
+  "Indent from START to END based on INSERT-TEXT-MODE? value.
+- When INSERT-TEXT-MODE? is provided
+  - if it's `lsp/insert-text-mode-as-it', do no editor indentation.
+  - if it's `lsp/insert-text-mode-adjust-indentation', adjust leading
+    whitespaces to match the line where text is inserted.
+- When it's not provided, using `indent-line-function' for each line."
+  (save-excursion
+    (goto-char end)
+    (let* ((end-line (line-number-at-pos))
+           (offset (save-excursion
+                     (goto-char start)
+                     (current-indentation)))
+           (indent-line-function
+            (cond ((equal insert-text-mode? lsp/insert-text-mode-as-it)
+                   #'ignore)
+                  ((or (equal insert-text-mode? lsp/insert-text-mode-adjust-indentation)
+                       lsp-enable-relative-indentation
+                       ;; Indenting snippets is extremely slow in `org-mode' buffers
+                       ;; since it has to calculate indentation based on SRC block
+                       ;; position.  Thus we use relative indentation as default.
+                       (derived-mode-p 'org-mode))
+                   (lambda () (save-excursion
+                                (beginning-of-line)
+                                (indent-to-column offset))))
+                  (t indent-line-function))))
+      (goto-char start)
+      (forward-line)
+      (while (and (not (eobp))
+                  (<= (line-number-at-pos) end-line))
+        (funcall indent-line-function)
+        (forward-line)))))
+
+(defun lsp--apply-text-edits (edits &optional operation)
+  "Apply the EDITS described in the TextEdit[] object.
+OPERATION is symbol representing the source of this text edit."
+  (unless (seq-empty-p edits)
+    (atomic-change-group
+      (run-hooks 'lsp-before-apply-edits-hook)
+      (let* ((change-group (prepare-change-group))
+             (howmany (length edits))
+             (message (format "Applying %s edits to `%s' ..." howmany (current-buffer)))
+             (_ (lsp--info message))
+             (reporter (make-progress-reporter message 0 howmany))
+             (done 0)
+             (apply-edit (if (not lsp--virtual-buffer)
+                             #'lsp--apply-text-edit-replace-buffer-contents
+                           #'lsp--apply-text-edit)))
+        (unwind-protect
+            (->> edits
+                 ;; We sort text edits so as to apply edits that modify latter
+                 ;; parts of the document first. Furthermore, because the LSP
+                 ;; spec dictates that: "If multiple inserts have the same
+                 ;; position, the order in the array defines which edit to
+                 ;; apply first."  We reverse the initial list and sort stably
+                 ;; to make sure the order among edits with the same position
+                 ;; is preserved.
+                 (nreverse)
+                 (seq-sort #'lsp--text-edit-sort-predicate)
+                 (mapc (lambda (edit)
+                         (progress-reporter-update reporter (cl-incf done))
+                         (funcall apply-edit edit)
+                         (when (lsp:snippet-text-edit-insert-text-format? edit)
+                           (-when-let ((&SnippetTextEdit :range (&RangeToPoint :start)
+                                                         :insert-text-format? :new-text) edit)
+                             (when (eq insert-text-format? lsp/insert-text-format-snippet)
+                               ;; No `save-excursion' needed since expand snippet will change point anyway
+                               (goto-char (+ start (length new-text)))
+                               (lsp--indent-lines start (point))
+                               (lsp--expand-snippet new-text start (point)))))
+                         (run-hook-with-args 'lsp-after-apply-edits-hook operation))))
+          (undo-amalgamate-change-group change-group)
+          (progress-reporter-done reporter))))))
+
+(defun lsp--create-apply-text-edits-handlers ()
+  "Create (handler cleanup-fn) for applying text edits in async request.
+Only works when mode is `tick or `alive."
+  (let* (first-edited
+         (func (lambda (start &rest _)
+                 (setq first-edited (if first-edited
+                                        (min start first-edited)
+                                      start)))))
+    (add-hook 'before-change-functions func nil t)
+    (list
+     (lambda (edits)
+       (if (and first-edited
+                (seq-find (-lambda ((&TextEdit :range (&RangeToPoint :end)))
+                            ;; Text edit region is overlapped
+                            (> end first-edited))
+                          edits))
+           (lsp--warn "TextEdits will not be applied since document has been modified before of them.")
+         (lsp--apply-text-edits edits 'completion-cleanup)))
+     (lambda ()
+       (remove-hook 'before-change-functions func t)))))
+
+(defun lsp--capability (cap &optional capabilities)
+  "Get the value of capability CAP.  If CAPABILITIES is non-nil, use them instead."
+  (when (stringp cap)
+    (setq cap (intern (concat ":" cap))))
+
+  (lsp-get (or capabilities
+               (lsp--server-capabilities))
+           cap))
+
+(defun lsp--registered-capability (method)
+  "Check whether there is workspace providing METHOD."
+  (->> (lsp-workspaces)
+       (--keep (seq-find (lambda (reg)
+                           (equal (lsp--registered-capability-method reg) method))
+                         (lsp--workspace-registered-server-capabilities it)))
+       cl-first))
+
+(defun lsp--capability-for-method (method)
+  "Get the value of capability for METHOD."
+  (-let* ((reqs (cdr (assoc method lsp-method-requirements)))
+          ((&plist :capability) reqs))
+    (or (and capability (lsp--capability capability))
+        (-some-> (lsp--registered-capability method)
+          (lsp--registered-capability-options)))))
+
+(defvar-local lsp--before-change-vals nil
+  "Store the positions from the `lsp-before-change' function call, for
+validation and use in the `lsp-on-change' function.")
+
+(defun lsp--text-document-content-change-event (start end length)
+  "Make a TextDocumentContentChangeEvent body for START to END, of length LENGTH."
+  ;; So (47 54 0) means add    7 chars starting at pos 47
+  ;; must become
+  ;;   {"range":{"start":{"line":5,"character":6}
+  ;;             ,"end" :{"line":5,"character":6}}
+  ;;             ,"rangeLength":0
+  ;;             ,"text":"\nbb = 5"}
+  ;;
+  ;; And (47 47 7) means delete 7 chars starting at pos 47
+  ;; must become
+  ;;   {"range":{"start":{"line":6,"character":0}
+  ;;            ,"end"  :{"line":7,"character":0}}
+  ;;            ,"rangeLength":7
+  ;;            ,"text":""}
+  ;;
+  ;; (208 221 3) means delete 3 chars starting at pos 208, and replace them with
+  ;; 13 chars. So it must become
+  ;;   {"range":{"start":{"line":5,"character":8}
+  ;;             ,"end" :{"line":5,"character":11}}
+  ;;             ,"rangeLength":3
+  ;;             ,"text":"new-chars-xxx"}
+  ;;
+
+  ;; Adding text:
+  ;;   lsp-before-change:(start,end)=(33,33)
+  ;;   lsp-on-change:(start,end,length)=(33,34,0)
+  ;;
+  ;; Changing text:
+  ;;   lsp-before-change:(start,end)=(208,211)
+  ;;   lsp-on-change:(start,end,length)=(208,221,3)
+  ;;
+  ;; Deleting text:
+  ;;   lsp-before-change:(start,end)=(19,27)
+  ;;   lsp-on-change:(start,end,length)=(19,19,8)
+  (if (zerop length)
+      ;; Adding something only, work from start only
+      `( :range ,(lsp--range
+                  (lsp--point-to-position start)
+                  (lsp--point-to-position start))
+         :rangeLength 0
+         :text ,(buffer-substring-no-properties start end))
+
+    (if (eq start end)
+        ;; Deleting something only
+        (if (lsp--bracketed-change-p start length)
+            ;; The before-change value is bracketed, use it
+            `( :range ,(lsp--range
+                        (lsp--point-to-position start)
+                        (plist-get lsp--before-change-vals :end-pos))
+               :rangeLength ,length
+               :text "")
+          ;; If the change is not bracketed, send a full change event instead.
+          (lsp--full-change-event))
+
+      ;; Deleting some things, adding others
+      (if (lsp--bracketed-change-p start length)
+          ;; The before-change value is valid, use it
+          `( :range ,(lsp--range
+                      (lsp--point-to-position start)
+                      (plist-get lsp--before-change-vals :end-pos))
+             :rangeLength ,length
+             :text ,(buffer-substring-no-properties start end))
+        (lsp--full-change-event)))))
+
+(defun lsp--bracketed-change-p (start length)
+  "If the before and after positions are the same, and the length
+is the size of the start range, we are probably good."
+  (-let [(&plist :end before-end :start before-start) lsp--before-change-vals]
+    (and (eq start before-start)
+         (eq length (- before-end before-start)))))
+
+(defun lsp--full-change-event ()
+  `(:text ,(lsp--buffer-content)))
+
+(defun lsp-before-change (start end)
+  "Executed before a file is changed.
+Added to `before-change-functions'."
+  ;; Note:
+  ;;
+  ;; This variable holds a list of functions to call when Emacs is about to
+  ;; modify a buffer. Each function gets two arguments, the beginning and end of
+  ;; the region that is about to change, represented as integers. The buffer
+  ;; that is about to change is always the current buffer when the function is
+  ;; called.
+  ;;
+  ;; WARNING:
+  ;;
+  ;; Do not expect the before-change hooks and the after-change hooks be called
+  ;; in balanced pairs around each buffer change. Also don't expect the
+  ;; before-change hooks to be called for every chunk of text Emacs is about to
+  ;; delete. These hooks are provided on the assumption that Lisp programs will
+  ;; use either before- or the after-change hooks, but not both, and the
+  ;; boundaries of the region where the changes happen might include more than
+  ;; just the actual changed text, or even lump together several changes done
+  ;; piecemeal.
+  (save-match-data
+    (lsp-save-restriction-and-excursion
+      (setq lsp--before-change-vals
+            (list :start start
+                  :end end
+                  :end-pos (lsp--point-to-position end))))))
+
+(defun lsp--flush-delayed-changes ()
+  (let ((inhibit-quit t))
+    (when lsp--delay-timer
+      (cancel-timer lsp--delay-timer))
+    (mapc (-lambda ((workspace buffer document change))
+            (with-current-buffer buffer
+              (with-lsp-workspace workspace
+                (lsp-notify "textDocument/didChange"
+                            (list :textDocument document
+                                  :contentChanges (vector change))))))
+          (prog1 (nreverse lsp--delayed-requests)
+            (setq lsp--delayed-requests nil)))))
+
+(defun lsp--workspace-sync-method (workspace)
+  (let ((sync (-> workspace
+                  (lsp--workspace-server-capabilities)
+                  (lsp:server-capabilities-text-document-sync?))))
+    (if (lsp-text-document-sync-options? sync)
+        (lsp:text-document-sync-options-change? sync)
+      sync)))
+
+(defun lsp-on-change (start end length &optional content-change-event-fn)
+  "Executed when a file is changed.
+Added to `after-change-functions'."
+  ;; Note:
+  ;;
+  ;; Each function receives three arguments: the beginning and end of the region
+  ;; just changed, and the length of the text that existed before the change.
+  ;; All three arguments are integers. The buffer that has been changed is
+  ;; always the current buffer when the function is called.
+  ;;
+  ;; The length of the old text is the difference between the buffer positions
+  ;; before and after that text as it was before the change. As for the
+  ;; changed text, its length is simply the difference between the first two
+  ;; arguments.
+  ;;
+  ;; So (47 54 0) means add    7 chars starting at pos 47
+  ;; So (47 47 7) means delete 7 chars starting at pos 47
+  (save-match-data
+    (let ((inhibit-quit t)
+          ;; make sure that `lsp-on-change' is called in multi-workspace context
+          ;; see #2901
+          lsp--cur-workspace)
+      ;; A (revert-buffer) call with the 'preserve-modes parameter (eg, as done
+      ;; by auto-revert-mode) will cause this handler to get called with a nil
+      ;; buffer-file-name. We need the buffer-file-name to send notifications;
+      ;; so we skip handling revert-buffer-caused changes and instead handle
+      ;; reverts separately in lsp-on-revert
+      (when (not revert-buffer-in-progress-p)
+        (cl-incf lsp--cur-version)
+        (mapc
+         (lambda (workspace)
+           (pcase (or lsp-document-sync-method
+                      (lsp--workspace-sync-method workspace))
+             (1
+              (if lsp-debounce-full-sync-notifications
+                  (setq lsp--delayed-requests
+                        (->> lsp--delayed-requests
+                             (-remove (-lambda ((_ buffer))
+                                        (equal (current-buffer) buffer)))
+                             (cons (list workspace
+                                         (current-buffer)
+                                         (lsp--versioned-text-document-identifier)
+                                         (lsp--full-change-event)))))
+                (with-lsp-workspace workspace
+                  (lsp-notify "textDocument/didChange"
+                              (list :contentChanges (vector (lsp--full-change-event))
+                                    :textDocument (lsp--versioned-text-document-identifier)))
+                  (lsp-diagnostics--request-pull-diagnostics workspace))))
+             (2
+              (with-lsp-workspace workspace
+                (lsp-notify
+                 "textDocument/didChange"
+                 (list :textDocument (lsp--versioned-text-document-identifier)
+                       :contentChanges (vector
+                                        (if content-change-event-fn
+                                            (funcall content-change-event-fn start end length)
+                                          (lsp--text-document-content-change-event
+                                           start end length)))))
+                (lsp-diagnostics--request-pull-diagnostics workspace)))))
+         (lsp-workspaces))
+        (when lsp--delay-timer (cancel-timer lsp--delay-timer))
+        (setq lsp--delay-timer (run-with-idle-timer
+                                lsp-debounce-full-sync-notifications-interval
+                                nil
+                                #'lsp--flush-delayed-changes))
+        ;; force cleanup overlays after each change
+        (lsp--remove-overlays 'lsp-highlight)
+        (lsp--after-change (current-buffer))))))
+
+
+
+;; facilities for on change hooks. We do not want to make lsp calls on each
+;; change event so we add debounce to avoid flooding the server with events.
+;; Additionally, we want to have a mechanism for stopping the server calls in
+;; particular cases like, e. g. when performing completion.
+
+(defvar lsp-inhibit-lsp-hooks nil
+  "Flag to control.")
+
+(defcustom lsp-on-change-hook nil
+  "Hooks to run when buffer has changed."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defcustom lsp-idle-delay 0.500
+  "Debounce interval for `after-change-functions'."
+  :type 'number
+  :group 'lsp-mode)
+
+(defcustom lsp-on-idle-hook nil
+  "Hooks to run after `lsp-idle-delay'."
+  :type 'hook
+  :group 'lsp-mode)
+
+(defun lsp--idle-reschedule (buffer)
+  (when lsp--on-idle-timer
+    (cancel-timer lsp--on-idle-timer))
+
+  (setq lsp--on-idle-timer (run-with-idle-timer
+                            lsp-idle-delay
+                            nil
+                            #'lsp--on-idle
+                            buffer)))
+
+(defun lsp--post-command ()
+  (lsp--cleanup-highlights-if-needed)
+  (lsp--idle-reschedule (current-buffer)))
+
+(defun lsp--on-idle (buffer)
+  "Start post command loop."
+  (when (and (buffer-live-p buffer)
+             (equal buffer (current-buffer))
+             (not lsp-inhibit-lsp-hooks)
+             lsp-managed-mode)
+    (run-hooks 'lsp-on-idle-hook)))
+
+(defun lsp--on-change-debounce (buffer)
+  (when (and (buffer-live-p buffer)
+             (equal buffer (current-buffer))
+             (not lsp-inhibit-lsp-hooks)
+             lsp-managed-mode)
+    (run-hooks 'lsp-on-change-hook)))
+
+(defun lsp--after-change (buffer)
+  "Called after most textDocument/didChange events."
+  (setq lsp--signature-last-index nil
+        lsp--signature-last nil)
+
+  ;; cleanup diagnostics
+  (when lsp-diagnostic-clean-after-change
+    (dolist (workspace (lsp-workspaces))
+      (-let [diagnostics (lsp--workspace-diagnostics workspace)]
+        (remhash (lsp--fix-path-casing (buffer-file-name)) diagnostics))))
+
+  (when (fboundp 'lsp--semantic-tokens-refresh-if-enabled)
+    (lsp--semantic-tokens-refresh-if-enabled buffer))
+  (when lsp--on-change-timer
+    (cancel-timer lsp--on-change-timer))
+  (setq lsp--on-change-timer (run-with-idle-timer
+                              lsp-idle-delay
+                              nil
+                              #'lsp--on-change-debounce
+                              buffer))
+  (lsp--idle-reschedule buffer))
+
+
+(defcustom lsp-trim-trailing-whitespace t
+  "Trim trailing whitespace on a line."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-insert-final-newline t
+  "Insert a newline character at the end of the file if one does not exist."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-trim-final-newlines t
+  "Trim all newlines after the final newline at the end of the file."
+  :group 'lsp-mode
+  :type 'boolean)
+
+
+(defun lsp--on-type-formatting (first-trigger-characters more-trigger-characters)
+  "Self insert handling.
+Applies on type formatting."
+  (let ((ch last-command-event))
+    (when (or (eq (string-to-char first-trigger-characters) ch)
+              (cl-find ch more-trigger-characters :key #'string-to-char))
+      (lsp-request-async "textDocument/onTypeFormatting"
+                         (lsp-make-document-on-type-formatting-params
+                          :text-document (lsp--text-document-identifier)
+                          :options (lsp-make-formatting-options
+                                    :tab-size (symbol-value (lsp--get-indent-width major-mode))
+                                    :insert-spaces (lsp-json-bool (not indent-tabs-mode))
+                                    :trim-trailing-whitespace? (lsp-json-bool lsp-trim-trailing-whitespace)
+                                    :insert-final-newline? (lsp-json-bool lsp-insert-final-newline)
+                                    :trim-final-newlines? (lsp-json-bool lsp-trim-final-newlines))
+                          :ch (char-to-string ch)
+                          :position (lsp--cur-position))
+                         (lambda (data) (lsp--apply-text-edits data 'format))
+                         :mode 'tick))))
+
+
+;; links
+(defun lsp--document-links ()
+  (when (lsp-feature? "textDocument/documentLink")
+    (lsp-request-async
+     "textDocument/documentLink"
+     `(:textDocument ,(lsp--text-document-identifier))
+     (lambda (links)
+       (lsp--remove-overlays 'lsp-link)
+       (seq-do
+        (-lambda ((link &as &DocumentLink :range (&Range :start :end)))
+          (-doto (make-button (lsp--position-to-point start)
+                              (lsp--position-to-point end)
+                              'action (lsp--document-link-keymap link)
+                              'keymap (let ((map (make-sparse-keymap)))
+                                        (define-key map [M-return] 'push-button)
+                                        (define-key map [mouse-2] 'push-button)
+                                        map)
+                              'help-echo "mouse-2, M-RET: Visit this link")
+            (overlay-put 'lsp-link t)))
+        links))
+     :mode 'unchanged)))
+
+(defun lsp--document-link-handle-target (url)
+  (let* ((parsed-url (url-generic-parse-url (url-unhex-string url)))
+         (type (url-type parsed-url)))
+    (pcase type
+      ("file"
+       (xref-push-marker-stack)
+       (find-file (lsp--uri-to-path url))
+       (-when-let ((_ line column) (s-match (rx "#" (group (1+ num)) (or "," "#") (group (1+ num))) url))
+         (goto-char (lsp--position-to-point
+                     (lsp-make-position :character (1- (string-to-number column))
+                                        :line (1- (string-to-number line)))))))
+      ((or "http" "https") (browse-url url))
+      (type (if-let* ((handler (lsp--get-uri-handler type)))
+                (funcall handler url)
+              (signal 'lsp-file-scheme-not-supported (list url)))))))
+
+(lsp-defun lsp--document-link-keymap ((link &as &DocumentLink :target?))
+  (if target?
+      (lambda (_)
+        (interactive)
+        (lsp--document-link-handle-target target?))
+    (lambda (_)
+      (interactive)
+      (when (lsp:document-link-registration-options-resolve-provider?
+             (lsp--capability-for-method "textDocument/documentLink"))
+        (lsp-request-async
+         "documentLink/resolve"
+         link
+         (-lambda ((&DocumentLink :target?))
+           (lsp--document-link-handle-target target?)))))))
+
+
+
+(defcustom lsp-warn-no-matched-clients t
+  "Whether to show messages when there are no supported clients."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defun lsp-buffer-language--configured-id ()
+  "Return nil when not registered."
+  (->> lsp-language-id-configuration
+       (-first
+        (-lambda ((mode-or-pattern . language))
+          (cond
+           ((and (stringp mode-or-pattern)
+                 (s-matches? mode-or-pattern (buffer-file-name)))
+            language)
+           ((eq mode-or-pattern major-mode) language))))
+       cl-rest))
+
+(defvar-local lsp--buffer-language nil
+  "Locally cached returned value of `lsp-buffer-language'.")
+
+(defun lsp-buffer-language ()
+  "Get language corresponding current buffer."
+  (or lsp--buffer-language
+      (let* ((configured-language (lsp-buffer-language--configured-id)))
+        (setq lsp--buffer-language
+              (or configured-language
+                  ;; ensure non-nil
+                  (string-remove-suffix "-mode" (symbol-name major-mode))))
+        (when (and lsp-warn-no-matched-clients
+                   (null configured-language))
+          (lsp-warn "Unable to calculate the languageId for buffer `%s'. \
+Take a look at `lsp-language-id-configuration'. The `major-mode' is %s"
+                    (buffer-name)
+                    major-mode))
+        lsp--buffer-language)))
+
+(defun lsp-activate-on (&rest languages)
+  "Returns language activation function.
+The function will return t when the `lsp-buffer-language' returns
+one of the LANGUAGES."
+  (lambda (_file-name _mode)
+    (-contains? languages (lsp-buffer-language))))
+
+(defun lsp-workspace-root (&optional path)
+  "Find the workspace root for the current file or PATH."
+  (-when-let* ((file-name (or path (buffer-file-name)))
+               (file-name (lsp-f-canonical file-name)))
+    (->> (lsp-session)
+         (lsp-session-folders)
+         (--filter (and (lsp--files-same-host it file-name)
+                        (or (lsp-f-ancestor-of? it file-name)
+                            (equal it file-name))))
+         (--max-by (> (length it) (length other))))))
+
+(defun lsp-on-revert ()
+  "Executed when a file is reverted.
+Added to `after-revert-hook'."
+  (let ((n (buffer-size))
+        (revert-buffer-in-progress-p nil))
+    (lsp-on-change 0 n n)))
+
+(defun lsp--text-document-did-close (&optional keep-workspace-alive)
+  "Executed when the file is closed, added to `kill-buffer-hook'.
+
+If KEEP-WORKSPACE-ALIVE is non-nil, do not shutdown the workspace
+if it's closing the last buffer in the workspace."
+  (lsp-foreach-workspace
+   (cl-callf2 delq (lsp-current-buffer) (lsp--workspace-buffers lsp--cur-workspace))
+   (with-demoted-errors "Error sending didClose notification in ‘lsp--text-document-did-close’: %S"
+     (lsp-notify "textDocument/didClose"
+                 `(:textDocument ,(lsp--text-document-identifier))))
+   (when (and (not lsp-keep-workspace-alive)
+              (not keep-workspace-alive)
+              (not (lsp--workspace-buffers lsp--cur-workspace)))
+     (lsp--shutdown-workspace))))
+
+(defun lsp--will-save-text-document-params (reason)
+  (list :textDocument (lsp--text-document-identifier)
+        :reason reason))
+
+(defun lsp--before-save ()
+  "Before save handler."
+  (with-demoted-errors "Error in ‘lsp--before-save’: %S"
+    (let ((params (lsp--will-save-text-document-params 1)))
+      (when (lsp--send-will-save-p)
+        (lsp-notify "textDocument/willSave" params))
+      (when (and (lsp--send-will-save-wait-until-p) lsp-before-save-edits)
+        (let ((lsp-response-timeout 0.1))
+          (condition-case nil
+              (lsp--apply-text-edits
+               (lsp-request "textDocument/willSaveWaitUntil"
+                            params)
+               'before-save)
+            (error)))))))
+
+(defun lsp--on-auto-save ()
+  "Handler for auto-save."
+  (when (lsp--send-will-save-p)
+    (with-demoted-errors "Error in ‘lsp--on-auto-save’: %S"
+      (lsp-notify "textDocument/willSave" (lsp--will-save-text-document-params 2)))))
+
+(defun lsp--text-document-did-save ()
+  "Executed when the file is closed, added to `after-save-hook''."
+  (when (lsp--send-did-save-p)
+    (with-demoted-errors "Error on ‘lsp--text-document-did-save: %S’"
+      (lsp-notify "textDocument/didSave"
+                  `( :textDocument ,(lsp--versioned-text-document-identifier)
+                     ,@(when (lsp--save-include-text-p)
+                         (list :text (lsp--buffer-content))))))))
+
+(defun lsp--text-document-position-params (&optional identifier position)
+  "Make TextDocumentPositionParams for the current point in the current document.
+If IDENTIFIER and POSITION are non-nil, they will be used as the document
+identifier and the position respectively."
+  (list :textDocument (or identifier (lsp--text-document-identifier))
+        :position (or position (lsp--cur-position))))
+
+(defun lsp--get-buffer-diagnostics ()
+  "Return buffer diagnostics."
+  (gethash (or
+            (plist-get lsp--virtual-buffer :buffer-file-name)
+            (lsp--fix-path-casing (buffer-file-name)))
+           (lsp-diagnostics t)))
+
+(defun lsp-cur-line-diagnostics ()
+  "Return any diagnostics that apply to the current line."
+  (-let [(&plist :start (&plist :line start) :end (&plist :line end)) (lsp--region-or-line)]
+    (cl-coerce (-filter
+                (-lambda ((&Diagnostic :range (&Range :start (&Position :line))))
+                  (and (>= line start) (<= line end)))
+                (lsp--get-buffer-diagnostics))
+               'vector)))
+
+(lsp-defun lsp-range-overlapping?((left &as &Range :start left-start :end left-end)
+                                  (right &as &Range :start right-start :end right-end))
+  (or (lsp-point-in-range? right-start left)
+      (lsp-point-in-range? right-end left)
+      (lsp-point-in-range? left-start right)
+      (lsp-point-in-range? left-end right)))
+
+(defun lsp-make-position-1 (position)
+  (lsp-make-position :line (plist-get position :line)
+                     :character (plist-get position :character)))
+
+(defun lsp-cur-possition-diagnostics ()
+  "Return any diagnostics that apply to the current line."
+  (-let* ((start (if (use-region-p) (region-beginning) (point)))
+          (end (if (use-region-p) (region-end) (point)))
+          (current-range (lsp-make-range :start (lsp-make-position-1 (lsp-point-to-position start))
+                                         :end (lsp-make-position-1 (lsp-point-to-position end)))))
+    (->> (lsp--get-buffer-diagnostics)
+         (-filter
+          (-lambda ((&Diagnostic :range))
+            (lsp-range-overlapping? range current-range)))
+         (apply 'vector))))
+
+(defalias 'lsp--cur-line-diagnotics 'lsp-cur-line-diagnostics)
+
+(defun lsp--extract-line-from-buffer (pos)
+  "Return the line pointed to by POS (a Position object) in the current buffer."
+  (let* ((point (lsp--position-to-point pos))
+         (inhibit-field-text-motion t))
+    (save-excursion
+      (goto-char point)
+      (buffer-substring (line-beginning-position) (line-end-position)))))
+
+(lsp-defun lsp--xref-make-item (filename (&Range :start (start &as &Position :character start-char :line start-line)
+                                                 :end (end &as &Position :character end-char)))
+  "Return a xref-item from a RANGE in FILENAME."
+  (let* ((line (lsp--extract-line-from-buffer start))
+         (len (length line)))
+    (add-face-text-property (max (min start-char len) 0)
+                            (max (min end-char len) 0)
+                            'xref-match t line)
+    ;; LINE is nil when FILENAME is not being current visited by any buffer.
+    (xref-make-match (or line filename)
+                     (xref-make-file-location
+                      filename
+                      (lsp-translate-line (1+ start-line))
+                      (lsp-translate-column start-char))
+                     (- end-char start-char))))
+
+(defun lsp--location-uri (loc)
+  (if (lsp-location? loc)
+      (lsp:location-uri loc)
+    (lsp:location-link-target-uri loc)))
+
+(lsp-defun lsp-goto-location ((loc &as &Location :uri :range (&Range :start)))
+  "Go to location."
+  (let ((path (lsp--uri-to-path uri)))
+    (if (f-exists? path)
+        (with-current-buffer (find-file path)
+          (goto-char (lsp--position-to-point start)))
+      (error "There is no file %s" path))))
+
+(defun lsp--location-range (loc)
+  (if (lsp-location? loc)
+      (lsp:location-range loc)
+    (lsp:location-link-target-selection-range loc)))
+
+(defun lsp--locations-to-xref-items (locations)
+  "Return a list of `xref-item' given LOCATIONS, which can be of
+type Location, LocationLink, Location[] or LocationLink[]."
+  (setq locations
+        (pcase locations
+          ((seq (or (lsp-interface Location)
+                    (lsp-interface LocationLink)))
+           (append locations nil))
+          ((or (lsp-interface Location)
+               (lsp-interface LocationLink))
+           (list locations))))
+
+  (cl-labels ((get-xrefs-in-file
+               (file-locs)
+               (-let [(filename . matches) file-locs]
+                 (condition-case err
+                     (let ((visiting (find-buffer-visiting filename))
+                           (fn (lambda (loc)
+                                 (lsp-with-filename filename
+                                   (lsp--xref-make-item filename
+                                                        (lsp--location-range loc))))))
+                       (if visiting
+                           (with-current-buffer visiting
+                             (seq-map fn matches))
+                         (when (file-readable-p filename)
+                           (with-temp-buffer
+                             (insert-file-contents-literally filename)
+                             (seq-map fn matches)))))
+                   (error (lsp-warn "Failed to process xref entry for filename '%s': %s"
+                                    filename (error-message-string err)))
+                   (file-error (lsp-warn "Failed to process xref entry, file-error, '%s': %s"
+                                         filename (error-message-string err)))))))
+
+    (->> locations
+         (seq-sort #'lsp--location-before-p)
+         (seq-group-by (-compose #'lsp--uri-to-path #'lsp--location-uri))
+         (seq-map #'get-xrefs-in-file)
+         (apply #'nconc))))
+
+(defun lsp--location-before-p (left right)
+  "Sort first by file, then by line, then by column."
+  (let ((left-uri (lsp--location-uri left))
+        (right-uri (lsp--location-uri right)))
+    (if (not (string= left-uri right-uri))
+        (string< left-uri right-uri)
+      (-let (((&Range :start left-start) (lsp--location-range left))
+             ((&Range :start right-start) (lsp--location-range right)))
+        (lsp--position-compare right-start left-start)))))
+
+(defun lsp--make-reference-params (&optional td-position exclude-declaration)
+  "Make a ReferenceParam object.
+If TD-POSITION is non-nil, use it as TextDocumentPositionParams object instead.
+If EXCLUDE-DECLARATION is non-nil, request the server to include declarations."
+  (let ((json-false :json-false))
+    (plist-put (or td-position (lsp--text-document-position-params))
+               :context `(:includeDeclaration ,(lsp-json-bool (not exclude-declaration))))))
+
+(defun lsp--cancel-request (id)
+  "Cancel request with ID in all workspaces."
+  (lsp-foreach-workspace
+   (->> lsp--cur-workspace lsp--workspace-client lsp--client-response-handlers (remhash id))
+   (lsp-notify "$/cancelRequest" `(:id ,id))))
+
+(defvar-local lsp--hover-saved-bounds nil)
+
+(defun lsp-eldoc-function (cb &rest _ignored)
+  "`lsp-mode' eldoc function to display hover info (based on `textDocument/hover')."
+  (if (and lsp--hover-saved-bounds
+           (lsp--point-in-bounds-p lsp--hover-saved-bounds))
+      lsp--eldoc-saved-message
+    (setq lsp--hover-saved-bounds nil
+          lsp--eldoc-saved-message nil)
+    (if (looking-at-p "[[:space:]\n]")
+        (setq lsp--eldoc-saved-message nil) ; And returns nil.
+      (when (and lsp-eldoc-enable-hover (lsp-feature? "textDocument/hover"))
+        (lsp-request-async
+         "textDocument/hover"
+         (lsp--text-document-position-params)
+         (-lambda ((hover &as &Hover? :range? :contents))
+           (setq lsp--hover-saved-bounds (when range?
+                                           (lsp--range-to-region range?)))
+           (funcall cb (setq lsp--eldoc-saved-message
+                             (when contents
+                               (lsp--render-on-hover-content
+                                contents
+                                lsp-eldoc-render-all)))))
+         :error-handler #'ignore
+         :mode 'tick
+         :cancel-token :eldoc-hover)))))
+
+(defun lsp--point-on-highlight? ()
+  (-some? (lambda (overlay)
+            (overlay-get overlay 'lsp-highlight))
+          (overlays-at (point))))
+
+(defun lsp--cleanup-highlights-if-needed ()
+  (when (and lsp-enable-symbol-highlighting
+             lsp--have-document-highlights
+             (not (lsp--point-on-highlight?)))
+    (lsp--remove-overlays 'lsp-highlight)
+    (setq lsp--have-document-highlights nil)
+    (lsp-cancel-request-by-token :highlights)))
+
+(defvar-local lsp--symbol-bounds-of-last-highlight-invocation nil
+  "The bounds of the symbol from which `lsp--document-highlight'
+  most recently requested highlights.")
+
+(defun lsp--document-highlight ()
+  (when (lsp-feature? "textDocument/documentHighlight")
+    (let ((curr-sym-bounds (bounds-of-thing-at-point 'symbol)))
+      (unless (or (looking-at-p "[[:space:]\n]")
+                  (not lsp-enable-symbol-highlighting)
+                  (and lsp--have-document-highlights
+                       curr-sym-bounds
+                       (equal curr-sym-bounds
+                              lsp--symbol-bounds-of-last-highlight-invocation)))
+        (setq lsp--symbol-bounds-of-last-highlight-invocation
+              curr-sym-bounds)
+        (lsp-request-async "textDocument/documentHighlight"
+                           (lsp--text-document-position-params)
+                           #'lsp--document-highlight-callback
+                           :mode 'tick
+                           :cancel-token :highlights)))))
+
+(defun lsp--help-open-link (&rest _)
+  "Open markdown link at point via mouse or keyboard."
+  (interactive "P")
+  (let ((buffer-list-update-hook nil))
+    (-let [(buffer point) (if-let* ((valid (and (listp last-input-event)
+                                                (eq (car last-input-event) 'mouse-2)))
+                                    (event (cadr last-input-event))
+                                    (win (posn-window event))
+                                    (buffer (window-buffer win)))
+                              `(,buffer ,(posn-point event))
+                            `(,(current-buffer) ,(point)))]
+      (with-current-buffer buffer
+        (when-let* ((face (get-text-property point 'face))
+                    (url (or (and (eq face 'markdown-link-face)
+                                  (get-text-property point 'help-echo))
+                             (and (memq face '(markdown-url-face markdown-plain-url-face))
+                                  (nth 3 (markdown-link-at-pos point))))))
+          (lsp--document-link-handle-target url))))))
+
+(defvar lsp-help-mode-map
+  (-doto (make-sparse-keymap)
+    (define-key [remap markdown-follow-link-at-point] #'lsp--help-open-link))
+  "Keymap for `lsp-help-mode'.")
+
+(define-derived-mode lsp-help-mode help-mode "LspHelp"
+  "Major mode for displaying lsp help.")
+
+(defun lsp-describe-thing-at-point ()
+  "Display the type signature and documentation of the thing at point."
+  (interactive)
+  (let ((contents (-some->> (lsp--text-document-position-params)
+                    (lsp--make-request "textDocument/hover")
+                    (lsp--send-request)
+                    (lsp:hover-contents))))
+    (if (and contents (not (equal contents "")))
+        (let ((lsp-help-buf-name "*lsp-help*"))
+          (with-current-buffer (get-buffer-create lsp-help-buf-name)
+            (delay-mode-hooks
+              (lsp-help-mode)
+              (with-help-window lsp-help-buf-name
+                (insert
+		 (mapconcat 'string-trim-right
+			    (split-string (lsp--render-on-hover-content contents t) "\n")
+			    "\n"))))
+            (run-mode-hooks)))
+      (lsp--info "No content at point."))))
+
+(defun lsp--point-in-bounds-p (bounds)
+  "Return whether the current point is within BOUNDS."
+  (and (<= (car bounds) (point)) (< (point) (cdr bounds))))
+
+(defun lsp-get-renderer (language)
+  "Get renderer for LANGUAGE."
+  (lambda (str)
+    (lsp--render-string str language)))
+
+(defun lsp--setup-markdown (mode)
+  "Setup the ‘markdown-mode’ in the frame.
+MODE is the mode used in the parent frame."
+  (make-local-variable 'markdown-code-lang-modes)
+  (dolist (mark (alist-get mode lsp-custom-markup-modes))
+    (add-to-list 'markdown-code-lang-modes (cons mark mode)))
+  (setq-local markdown-fontify-code-blocks-natively t)
+  (setq-local markdown-fontify-code-block-default-mode mode)
+  (setq-local markdown-hide-markup t)
+
+  ;; Render some common HTML entities.
+  ;; This should really happen in markdown-mode instead,
+  ;; but it doesn't, so we do it here for now.
+  (setq prettify-symbols-alist
+        (cl-loop for i from 0 to 255
+                 collect (cons (format "&#x%02X;" i) i)))
+  (push '("&lt;" . ?<) prettify-symbols-alist)
+  (push '("&gt;" . ?>) prettify-symbols-alist)
+  (push '("&amp;" . ?&) prettify-symbols-alist)
+  (push '("&nbsp;" . ? ) prettify-symbols-alist)
+  (setq prettify-symbols-compose-predicate
+        (lambda (_start _end _match) t))
+  (prettify-symbols-mode 1))
+
+(defvar lsp-help-link-keymap
+  (let ((map (make-sparse-keymap)))
+    (define-key map [mouse-2] #'lsp--help-open-link)
+    (define-key map "\r" #'lsp--help-open-link)
+    map)
+  "Keymap active on links in *lsp-help* mode.")
+
+(defun lsp--fix-markdown-links ()
+  (let ((inhibit-read-only t)
+        (inhibit-modification-hooks t)
+        (prop))
+    (save-restriction
+      (goto-char (point-min))
+      (while (setq prop (markdown-find-next-prop 'face))
+        (let ((end (or (next-single-property-change (car prop) 'face)
+                       (point-max))))
+          (when (memq (get-text-property (car prop) 'face)
+                      '(markdown-link-face
+                        markdown-url-face
+                        markdown-plain-url-face))
+            (add-text-properties (car prop) end
+                                 (list 'button t
+                                       'category 'lsp-help-link
+                                       'follow-link t
+                                       'keymap lsp-help-link-keymap)))
+          (goto-char end))))))
+
+(defun lsp--buffer-string-visible ()
+  "Return visible buffer string.
+Stolen from `org-copy-visible'."
+  (let ((temp (generate-new-buffer " *temp*"))
+        (beg (point-min))
+        (end (point-max)))
+    (while (/= beg end)
+      (when (get-char-property beg 'invisible)
+        (setq beg (next-single-char-property-change beg 'invisible nil end)))
+      (let* ((next (next-single-char-property-change beg 'invisible nil end))
+             (substring (buffer-substring beg next)))
+        (with-current-buffer temp (insert substring))
+        ;; (setq result (concat result substring))
+        (setq beg next)))
+    (setq deactivate-mark t)
+    (prog1 (with-current-buffer temp
+             (s-chop-suffix "\n" (buffer-string)))
+      (kill-buffer temp))))
+
+(defvar lsp-buffer-major-mode nil
+  "Holds the major mode when fontification function is running.
+See #2588")
+
+(defvar view-inhibit-help-message)
+
+(defun lsp--render-markdown ()
+  "Render markdown."
+
+  (let ((markdown-enable-math nil))
+    (goto-char (point-min))
+    (while (re-search-forward
+            (rx (and "\\" (group (or "\\" "`" "*" "_" ":" "/"
+                                     "{" "}" "[" "]" "(" ")"
+                                     "#" "+" "-" "." "!" "|"))))
+            nil t)
+      (replace-match (rx (backref 1))))
+
+    ;; markdown-mode v2.3 does not yet provide gfm-view-mode
+    (if (fboundp 'gfm-view-mode)
+        (let ((view-inhibit-help-message t))
+          (gfm-view-mode))
+      (gfm-mode))
+
+    (lsp--setup-markdown lsp-buffer-major-mode)))
+
+(defvar lsp--display-inline-image-alist
+  '((lsp--render-markdown
+     (:regexp
+      "!\\[.*?\\](data:image/[a-zA-Z]+;base64,\\([A-Za-z0-9+/\n]+?=*?\\)\\(|[^)]+\\)?)"
+      :sexp
+      (create-image
+       (base64-decode-string
+        (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
+       nil t))))
+  "Replaced string regexp and function returning image.
+Each element should have the form (MODE . (PROPERTY-LIST...)).
+MODE (car) is function which is defined in `lsp-language-id-configuration'.
+Cdr should be list of PROPERTY-LIST.
+
+Each PROPERTY-LIST should have properties:
+:regexp  Regexp which determines what string is relpaced to image.
+         You should also get information of image, by parenthesis constructs.
+         By default, all matched string is replaced to image, but you can
+         change index of replaced string by keyword :replaced-index.
+
+:sexp    Return image when evaluated. You can use information of regexp
+         by using (match-beggining N), (match-end N) or (match-substring N).
+
+In addition, each can have property:
+:replaced-index  Determine index which is used to replace regexp to image.
+                 The value means first argument of `match-beginning' and
+                 `match-end'. If omitted, interpreted as index 0.")
+
+(defcustom lsp-display-inline-image t
+  "Showing inline image or not."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defcustom lsp-enable-suggest-server-download t
+  "When non-nil enable server downloading suggestions."
+  :group 'lsp-mode
+  :type 'boolean
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-auto-register-remote-clients t
+  "When non-nil register remote when registering the local one."
+  :group 'lsp-mode
+  :type 'boolean
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defun lsp--display-inline-image (mode)
+  "Add image property if available."
+  (let ((plist-list (cdr (assq mode lsp--display-inline-image-alist))))
+    (when (and (display-images-p) lsp-display-inline-image)
+      (cl-loop
+       for plist in plist-list
+       with regexp with replaced-index
+       do
+       (setq regexp (plist-get plist :regexp))
+       (setq replaced-index (or (plist-get plist :replaced-index) 0))
+
+       (font-lock-remove-keywords nil (list regexp replaced-index))
+       (let ((inhibit-read-only t))
+         (save-excursion
+           (goto-char (point-min))
+           (while (re-search-forward regexp nil t)
+             (set-text-properties
+              (match-beginning replaced-index) (match-end replaced-index)
+              nil)
+             (add-text-properties
+              (match-beginning replaced-index) (match-end replaced-index)
+              `(display ,(eval (plist-get plist :sexp)))))))))))
+
+(defun lsp--fontlock-with-mode (str mode)
+  "Fontlock STR with MODE."
+  (let ((lsp-buffer-major-mode major-mode))
+    (with-temp-buffer
+      (with-demoted-errors "Error during doc rendering: %s"
+        (insert str)
+        (delay-mode-hooks (funcall mode))
+        (cl-flet ((window-body-width () lsp-window-body-width))
+          ;; This can go wrong in some cases, and the fontification would
+          ;; not work as expected.
+          ;;
+          ;; See #2984
+          (ignore-errors (font-lock-ensure))
+          (lsp--display-inline-image mode)
+          (when (eq mode 'lsp--render-markdown)
+            (lsp--fix-markdown-links))))
+      (lsp--buffer-string-visible))))
+
+(defun lsp--render-string (str language)
+  "Render STR using `major-mode' corresponding to LANGUAGE.
+When language is nil render as markup if `markdown-mode' is loaded."
+  (setq str (s-replace "\r" "" (or str "")))
+  (if-let* ((modes (-keep (-lambda ((mode . lang))
+                            (when (and (equal lang language) (functionp mode))
+                              mode))
+                          lsp-language-id-configuration))
+            (mode (car (or (member major-mode modes) modes))))
+      (lsp--fontlock-with-mode str mode)
+    str))
+
+(defun lsp--render-element (content)
+  "Render CONTENT element."
+  (let ((inhibit-message t))
+    (or
+     (pcase content
+       ((lsp-interface MarkedString :value :language)
+        (lsp--render-string value language))
+       ((lsp-interface MarkupContent :value :kind)
+        (lsp--render-string value kind))
+       ;; plain string
+       ((pred stringp) (lsp--render-string content "markdown"))
+       ((pred null) "")
+       (_ (error "Failed to handle %s" content)))
+     "")))
+
+(defun lsp--create-unique-string-fn ()
+  (let (elements)
+    (lambda (element)
+      (let ((count (cl-count element elements :test #'string=)))
+        (prog1 (if (zerop count)
+                   element
+                 (format "%s (%s)" element count))
+          (push element elements))))))
+
+(defun lsp--select-action (actions)
+  "Select an action to execute from ACTIONS."
+  (cond
+   ((seq-empty-p actions) (signal 'lsp-no-code-actions nil))
+   ((and (eq (seq-length actions) 1) lsp-auto-execute-action)
+    (lsp-seq-first actions))
+   (t (let ((completion-ignore-case t))
+        (lsp--completing-read "Select code action: "
+                              (seq-into actions 'list)
+                              (-compose (lsp--create-unique-string-fn)
+                                        #'lsp:code-action-title)
+                              nil t)))))
+
+(defun lsp--workspace-server-id (workspace)
+  "Return the server ID of WORKSPACE."
+  (-> workspace lsp--workspace-client lsp--client-server-id))
+
+(defun lsp--handle-rendered-for-echo-area (contents)
+  "Return a single line from RENDERED, appropriate for display in the echo area."
+  (pcase (lsp-workspaces)
+    (`(,workspace)
+     (lsp-clients-extract-signature-on-hover contents (lsp--workspace-server-id workspace)))
+    ;; For projects with multiple active workspaces we also default to
+    ;; render the first line.
+    (_ (lsp-clients-extract-signature-on-hover contents nil))))
+
+(cl-defmethod lsp-clients-extract-signature-on-hover (contents _server-id)
+  "Extract a representative line from CONTENTS, to show in the echo area."
+  (car (s-lines (s-trim (lsp--render-element contents)))))
+
+(defun lsp--render-on-hover-content (contents render-all)
+  "Render the content received from `document/onHover' request.
+CONTENTS  - MarkedString | MarkedString[] | MarkupContent
+RENDER-ALL - nil if only the signature should be rendered."
+  (cond
+   ((lsp-markup-content? contents)
+    ;; MarkupContent.
+    ;; It tends to be long and is not suitable to display fully in the echo area.
+    ;; Just display the first line which is typically the signature.
+    (if render-all
+        (lsp--render-element contents)
+      (lsp--handle-rendered-for-echo-area contents)))
+   ((and (stringp contents) (not (string-match-p "\n" contents)))
+    ;; If the contents is a single string containing a single line,
+    ;; render it always.
+    (lsp--render-element contents))
+   (t
+    ;; MarkedString -> MarkedString[]
+    (when (or (lsp-marked-string? contents) (stringp contents))
+      (setq contents (list contents)))
+    ;; Consider the signature consisting of the elements who have a renderable
+    ;; "language" property. When render-all is nil, ignore other elements.
+    (string-join
+     (seq-map
+      #'lsp--render-element
+      (if render-all
+          contents
+        ;; Only render contents that have an available renderer.
+        (seq-take
+         (seq-filter
+          (-andfn #'lsp-marked-string?
+                  (-compose #'lsp-get-renderer #'lsp:marked-string-language))
+          contents)
+         1)))
+     (if (bound-and-true-p page-break-lines-mode)
+         "\n\n"
+       "\n")))))
+
+
+
+(defvar lsp-signature-mode-map
+  (-doto (make-sparse-keymap)
+    (define-key (kbd "M-n") #'lsp-signature-next)
+    (define-key (kbd "M-p") #'lsp-signature-previous)
+    (define-key (kbd "M-a") #'lsp-signature-toggle-full-docs)
+    (define-key (kbd "C-c C-k") #'lsp-signature-stop)
+    (define-key (kbd "C-g") #'lsp-signature-stop))
+  "Keymap for `lsp-signature-mode'.")
+
+(define-minor-mode lsp-signature-mode
+  "Mode used to show signature popup."
+  :keymap lsp-signature-mode-map
+  :lighter ""
+  :group 'lsp-mode)
+
+(defun lsp-signature-stop ()
+  "Stop showing current signature help."
+  (interactive)
+  (lsp-cancel-request-by-token :signature)
+  (remove-hook 'post-command-hook #'lsp-signature)
+  (funcall lsp-signature-function nil)
+  (lsp-signature-mode -1))
+
+(declare-function page-break-lines--update-display-tables "ext:page-break-lines")
+
+(defun lsp--setup-page-break-mode-if-present ()
+  "Enable `page-break-lines-mode' in current buffer."
+  (when (fboundp 'page-break-lines-mode)
+    (page-break-lines-mode)
+    ;; force page-break-lines-mode to update the display tables.
+    (page-break-lines--update-display-tables)))
+
+(defun lsp-lv-message (message)
+  (add-hook 'lv-window-hook #'lsp--setup-page-break-mode-if-present)
+  (if message
+      (progn
+        (setq lsp--signature-last-buffer (current-buffer))
+        (let ((lv-force-update t))
+          (lv-message "%s" message)))
+    (lv-delete-window)
+    (remove-hook 'lv-window-hook #'lsp--setup-page-break-mode-if-present)))
+
+(declare-function posframe-show "ext:posframe")
+(declare-function posframe-hide "ext:posframe")
+(declare-function posframe-poshandler-point-bottom-left-corner-upward "ext:posframe")
+
+(defface lsp-signature-posframe
+  '((t :inherit tooltip))
+  "Background and foreground for `lsp-signature-posframe'."
+  :group 'lsp-mode)
+
+(defvar lsp-signature-posframe-params
+  (list :poshandler #'posframe-poshandler-point-bottom-left-corner-upward
+        :height 10
+        :width 60
+        :border-width 1
+        :min-width 60)
+  "Params for signature and `posframe-show'.")
+
+(defun lsp-signature-posframe (str)
+  "Use posframe to show the STR signatureHelp string."
+  (if str
+      (apply #'posframe-show
+             (with-current-buffer (get-buffer-create " *lsp-signature*")
+               (erase-buffer)
+               (insert str)
+               (visual-line-mode 1)
+               (lsp--setup-page-break-mode-if-present)
+               (current-buffer))
+             (append
+              lsp-signature-posframe-params
+              (list :position (point)
+                    :background-color (face-attribute 'lsp-signature-posframe :background nil t)
+                    :foreground-color (face-attribute 'lsp-signature-posframe :foreground nil t)
+                    :border-color (face-attribute (if (facep 'child-frame-border)
+                                                      'child-frame-border
+                                                    'internal-border)
+                                                  :background nil t))))
+    (posframe-hide " *lsp-signature*")))
+
+(defun lsp--handle-signature-update (signature)
+  (let ((message
+         (if (lsp-signature-help? signature)
+             (lsp--signature->message signature)
+           (mapconcat #'lsp--signature->message signature "\n"))))
+    (if (s-present? message)
+        (funcall lsp-signature-function message)
+      (lsp-signature-stop))))
+
+(defun lsp-signature-activate ()
+  "Activate signature help.
+It will show up only if current point has signature help."
+  (interactive)
+  (setq lsp--signature-last nil
+        lsp--signature-last-index nil
+        lsp--signature-last-buffer (current-buffer))
+  (add-hook 'post-command-hook #'lsp-signature)
+  (lsp-signature-mode t))
+
+(defcustom lsp-signature-cycle t
+  "Whether `lsp-signature-next' and prev should cycle."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defun lsp-signature-next ()
+  "Show next signature."
+  (interactive)
+  (let ((nsigs (length (lsp:signature-help-signatures lsp--signature-last))))
+    (when (and lsp--signature-last-index
+               lsp--signature-last
+               (or lsp-signature-cycle (< (1+ lsp--signature-last-index) nsigs)))
+      (setq lsp--signature-last-index (% (1+ lsp--signature-last-index) nsigs))
+      (funcall lsp-signature-function (lsp--signature->message lsp--signature-last)))))
+
+(defun lsp-signature-previous ()
+  "Next signature."
+  (interactive)
+  (when (and lsp--signature-last-index
+             lsp--signature-last
+             (or lsp-signature-cycle (not (zerop lsp--signature-last-index))))
+    (setq lsp--signature-last-index (1- (if (zerop lsp--signature-last-index)
+                                            (length (lsp:signature-help-signatures lsp--signature-last))
+                                          lsp--signature-last-index)))
+    (funcall lsp-signature-function (lsp--signature->message lsp--signature-last))))
+
+(defun lsp-signature-toggle-full-docs ()
+  "Toggle full/partial signature documentation."
+  (interactive)
+  (let ((all? (not (numberp lsp-signature-doc-lines))))
+    (setq lsp-signature-doc-lines (if all?
+                                      (or (car-safe lsp-signature-doc-lines)
+                                          20)
+                                    (list lsp-signature-doc-lines))))
+  (lsp-signature-activate))
+
+(defface lsp-signature-highlight-function-argument
+  '((t :inherit eldoc-highlight-function-argument))
+  "The face to use to highlight function arguments in signatures."
+  :group 'lsp-mode)
+
+(defun lsp--signature->message (signature-help)
+  "Generate eldoc message from SIGNATURE-HELP response."
+  (setq lsp--signature-last signature-help)
+
+  (when (and signature-help (not (seq-empty-p (lsp:signature-help-signatures signature-help))))
+    (-let* (((&SignatureHelp :active-signature?
+                             :active-parameter?
+                             :signatures) signature-help)
+            (active-signature? (or lsp--signature-last-index active-signature? 0))
+            (_ (setq lsp--signature-last-index active-signature?))
+            ((signature &as &SignatureInformation? :label :parameters?) (seq-elt signatures active-signature?))
+            (prefix (if (= (length signatures) 1)
+                        ""
+                      (concat (propertize (format " %s/%s"
+                                                  (1+ active-signature?)
+                                                  (length signatures))
+                                          'face 'success)
+                              " ")))
+            (method-docs (when
+                             (and lsp-signature-render-documentation
+                                  (or (not (numberp lsp-signature-doc-lines)) (< 0 lsp-signature-doc-lines)))
+                           (let ((docs (lsp--render-element
+                                        (lsp:parameter-information-documentation? signature))))
+                             (when (s-present? docs)
+                               (concat
+                                "\n"
+                                (if (fboundp 'page-break-lines-mode)
+                                    "\n"
+                                  "")
+                                (if (and (numberp lsp-signature-doc-lines)
+                                         (> (length (s-lines docs)) lsp-signature-doc-lines))
+                                    (concat (s-join "\n" (-take lsp-signature-doc-lines (s-lines docs)))
+                                            (propertize "\nTruncated..." 'face 'highlight))
+                                  docs)))))))
+      (when (and active-parameter? (not (seq-empty-p parameters?)))
+        (-when-let* ((param (when (and (< -1 active-parameter? (length parameters?)))
+                              (seq-elt parameters? active-parameter?)))
+                     (selected-param-label (let ((label (lsp:parameter-information-label param)))
+                                             (if (stringp label) label (append label nil))))
+                     (start (if (stringp selected-param-label)
+                                (s-index-of selected-param-label label)
+                              (cl-first selected-param-label)))
+                     (end (if (stringp selected-param-label)
+                              (+ start (length selected-param-label))
+                            (cl-second selected-param-label))))
+          (add-face-text-property start end 'lsp-signature-highlight-function-argument nil label)))
+      (concat prefix label method-docs))))
+
+(defun lsp-signature ()
+  "Display signature info (based on `textDocument/signatureHelp')"
+  (if (and lsp--signature-last-buffer
+           (not (equal (current-buffer) lsp--signature-last-buffer)))
+      (lsp-signature-stop)
+    (lsp-request-async "textDocument/signatureHelp"
+                       (lsp--text-document-position-params)
+                       #'lsp--handle-signature-update
+                       :cancel-token :signature)))
+
+
+(defcustom lsp-overlay-document-color-char "■"
+  "Display the char represent the document color in overlay"
+  :type 'string
+  :group 'lsp-mode)
+
+;; color presentation
+(defun lsp--color-create-interactive-command (color range)
+  (lambda ()
+    (interactive)
+    (-let [(&ColorPresentation? :text-edit?
+                                :additional-text-edits?)
+           (lsp--completing-read
+            "Select color presentation: "
+            (lsp-request
+             "textDocument/colorPresentation"
+             `( :textDocument ,(lsp--text-document-identifier)
+                :color ,color
+                :range ,range))
+            #'lsp:color-presentation-label
+            nil
+            t)]
+      (when text-edit?
+        (lsp--apply-text-edit text-edit?))
+      (when additional-text-edits?
+        (lsp--apply-text-edits additional-text-edits? 'color-presentation)))))
+
+(defun lsp--number->color (number)
+  (let ((result (format "%x"
+                        (round (* (or number 0) 255.0)))))
+    (if (= 1 (length result))
+        (concat "0" result)
+      result)))
+
+(defun lsp--document-color ()
+  "Document color handler."
+  (when (lsp-feature? "textDocument/documentColor")
+    (lsp-request-async
+     "textDocument/documentColor"
+     `(:textDocument ,(lsp--text-document-identifier))
+     (lambda (result)
+       (lsp--remove-overlays 'lsp-color)
+       (seq-do
+        (-lambda ((&ColorInformation :color (color &as &Color :red :green :blue)
+                                     :range))
+          (-let* (((beg . end) (lsp--range-to-region range))
+                  (overlay (make-overlay beg end))
+                  (command (lsp--color-create-interactive-command color range)))
+            (overlay-put overlay 'lsp-color t)
+            (overlay-put overlay 'evaporate t)
+            (overlay-put overlay
+                         'before-string
+                         (propertize
+                          lsp-overlay-document-color-char
+                          'face `((:foreground ,(format
+                                                 "#%s%s%s"
+                                                 (lsp--number->color red)
+                                                 (lsp--number->color green)
+                                                 (lsp--number->color blue))))
+                          'action command
+                          'mouse-face 'lsp-lens-mouse-face
+                          'local-map (-doto (make-sparse-keymap)
+                                       (define-key [mouse-1] command))))))
+        result))
+     :mode 'unchanged
+     :cancel-token :document-color-token)))
+
+
+
+(defun lsp--action-trigger-parameter-hints (_command)
+  "Handler for editor.action.triggerParameterHints."
+  (when (member :on-server-request lsp-signature-auto-activate)
+    (lsp-signature-activate)))
+
+(defun lsp--action-trigger-suggest (_command)
+  "Handler for editor.action.triggerSuggest."
+  (cond
+   ((and (bound-and-true-p company-mode)
+         (fboundp 'company-auto-begin)
+         (fboundp 'company-post-command))
+    (run-at-time 0 nil
+                 (lambda ()
+                   (let ((this-command 'company-idle-begin)
+                         (company-minimum-prefix-length 0))
+                     (company-auto-begin)
+                     (company-post-command)))))
+   (t
+    (completion-at-point))))
+
+(defconst lsp--default-action-handlers
+  (ht ("editor.action.triggerParameterHints" #'lsp--action-trigger-parameter-hints)
+      ("editor.action.triggerSuggest" #'lsp--action-trigger-suggest))
+  "Default action handlers.")
+
+(defun lsp--find-action-handler (command)
+  "Find action handler for particular COMMAND."
+  (or
+   (--some (-some->> it
+             (lsp--workspace-client)
+             (lsp--client-action-handlers)
+             (gethash command))
+           (lsp-workspaces))
+   (gethash command lsp--default-action-handlers)))
+
+(defun lsp--text-document-code-action-params (&optional kind)
+  "Code action params."
+  (list :textDocument (lsp--text-document-identifier)
+        :range (if (use-region-p)
+                   (lsp--region-to-range (region-beginning) (region-end))
+                 (lsp--region-to-range (point) (point)))
+        :context `( :diagnostics ,(lsp-cur-possition-diagnostics)
+                    ,@(when kind (list :only (vector kind))))))
+
+(defun lsp-code-actions-at-point (&optional kind)
+  "Retrieve the code actions for the active region or the current line.
+It will filter by KIND if non nil."
+  (lsp-request "textDocument/codeAction" (lsp--text-document-code-action-params kind)))
+
+(defun lsp-execute-code-action-by-kind (command-kind)
+  "Execute code action by COMMAND-KIND."
+  (if-let* ((action (->> (lsp-get-or-calculate-code-actions command-kind)
+                        (-filter (-lambda ((&CodeAction :kind?))
+                                   (and kind? (s-prefix? command-kind kind?))))
+                        lsp--select-action)))
+      (lsp-execute-code-action action)
+    (signal 'lsp-no-code-actions '(command-kind))))
+
+(defalias 'lsp-get-or-calculate-code-actions 'lsp-code-actions-at-point)
+
+(lsp-defun lsp--execute-command ((action &as &Command :command :arguments?))
+  "Parse and execute a code ACTION represented as a Command LSP type."
+  (let ((server-id (->> (lsp-workspaces)
+                        (cl-first)
+                        (or lsp--cur-workspace)
+                        (lsp--workspace-client)
+                        (lsp--client-server-id))))
+    (condition-case nil
+        (with-no-warnings
+          (lsp-execute-command server-id (intern command) arguments?))
+      (cl-no-applicable-method
+       (if-let* ((action-handler (lsp--find-action-handler command)))
+           (funcall action-handler action)
+         (lsp-send-execute-command command arguments?))))))
+
+(lsp-defun lsp-execute-code-action ((action &as &CodeAction :command? :edit?))
+  "Execute code action ACTION. For example, when text under the
+caret has a suggestion to apply a fix from an lsp-server, calling
+this function will do so.
+If ACTION is not set it will be selected from `lsp-code-actions-at-point'.
+Request codeAction/resolve for more info if server supports."
+  (interactive (list (lsp--select-action (lsp-code-actions-at-point))))
+  (if (and (lsp-feature? "codeAction/resolve")
+           (not command?)
+           (not edit?))
+      (lsp--execute-code-action (lsp-request "codeAction/resolve" action))
+    (lsp--execute-code-action action)))
+
+(lsp-defun lsp--execute-code-action ((action &as &CodeAction :command? :edit?))
+  "Execute code action ACTION."
+  (when edit?
+    (lsp--apply-workspace-edit edit? 'code-action))
+
+  (cond
+   ((stringp command?) (lsp--execute-command action))
+   ((lsp-command? command?) (progn
+                              (when-let* ((action-filter (->> (lsp-workspaces)
+                                                             (cl-first)
+                                                             (or lsp--cur-workspace)
+                                                             (lsp--workspace-client)
+                                                             (lsp--client-action-filter))))
+                                (funcall action-filter command?))
+                              (lsp--execute-command command?)))))
+
+(lsp-defun lsp-fix-code-action-booleans ((&Command :arguments?) boolean-action-arguments)
+  "Patch incorrect boolean argument values in the provided `CodeAction' command
+in place, based on the BOOLEAN-ACTION-ARGUMENTS list. The values
+in this list can be either symbols or lists of symbols that
+represent paths to boolean arguments in code actions:
+
+> (lsp-fix-code-action-booleans command `(:foo :bar (:some :nested :boolean)))
+
+When there are available code actions, the server sends
+`lsp-mode' a list of possible command names and arguments as
+JSON. `lsp-mode' parses all boolean false values as `nil'. As a
+result code action arguments containing falsy values don't
+roundtrip correctly because `lsp-mode' will end up sending null
+values back to the client. This list makes it possible to
+selectively transform `nil' values back into `:json-false'."
+  (seq-doseq (path boolean-action-arguments)
+    (seq-doseq (args arguments?)
+      (lsp--fix-nested-boolean args (if (listp path) path (list path))))))
+
+(defun lsp--fix-nested-boolean (structure path)
+  "Traverse STRUCTURE using the paths from the PATH list, changing the value to
+`:json-false' if it was `nil'. PATH should be a list containing
+one or more symbols, and STRUCTURE should be compatible with
+`lsp-member?', `lsp-get', and `lsp-put'."
+  (let ((key (car path))
+        (rest (cdr path)))
+    (if (null rest)
+        ;; `lsp-put' returns `nil' both when the key doesn't exist and when the
+        ;; value is `nil', so we need to explicitly check its presence here
+        (when (and (lsp-member? structure key) (not (lsp-get structure key)))
+          (lsp-put structure key :json-false))
+      ;; If `key' does not exist, then we'll silently ignore it
+      (when-let* ((child (lsp-get structure key)))
+        (lsp--fix-nested-boolean child rest)))))
+
+(defvar lsp--formatting-indent-alist
+  ;; Taken from `dtrt-indent-mode'
+  '(
+    (ada-mode                   . ada-indent)                       ; Ada
+    (ada-ts-mode                . ada-ts-mode-indent-offset)
+    (c++-mode                   . c-basic-offset)                   ; C++
+    (c++-ts-mode                . c-ts-mode-indent-offset)
+    (c-mode                     . c-basic-offset)                   ; C
+    (c-ts-mode                  . c-ts-mode-indent-offset)
+    (cperl-mode                 . cperl-indent-level)               ; Perl
+    (crystal-mode               . crystal-indent-level)             ; Crystal (Ruby)
+    (csharp-mode                . c-basic-offset)                   ; C#
+    (csharp-tree-sitter-mode    . csharp-tree-sitter-indent-offset) ; C#
+    (csharp-ts-mode             . csharp-ts-mode-indent-offset)     ; C# (tree-sitter, Emacs29)
+    (css-mode                   . css-indent-offset)                ; CSS
+    (d-mode                     . c-basic-offset)                   ; D
+    (enh-ruby-mode              . enh-ruby-indent-level)            ; Ruby
+    (erlang-mode                . erlang-indent-level)              ; Erlang
+    (ess-mode                   . ess-indent-offset)                ; ESS (R)
+    (go-ts-mode                 . go-ts-mode-indent-offset)
+    (gpr-mode                   . gpr-indent-offset)                ; GNAT Project
+    (gpr-ts-mode                . gpr-ts-mode-indent-offset)
+    (hack-mode                  . hack-indent-offset)               ; Hack
+    (java-mode                  . c-basic-offset)                   ; Java
+    (java-ts-mode               . java-ts-mode-indent-offset)
+    (jde-mode                   . c-basic-offset)                   ; Java (JDE)
+    (js-mode                    . js-indent-level)                  ; JavaScript
+    (js-ts-mode                 . js-indent-level)
+    (js2-mode                   . js2-basic-offset)                 ; JavaScript-IDE
+    (js3-mode                   . js3-indent-level)                 ; JavaScript-IDE
+    (json-mode                  . js-indent-level)                  ; JSON
+    (json-ts-mode               . json-ts-mode-indent-offset)
+    (lua-mode                   . lua-indent-level)                 ; Lua
+    (lua-ts-mode                . lua-ts-indent-offset)
+    (nxml-mode                  . nxml-child-indent)                ; XML
+    (objc-mode                  . c-basic-offset)                   ; Objective C
+    (pascal-mode                . pascal-indent-level)              ; Pascal
+    (perl-mode                  . perl-indent-level)                ; Perl
+    (php-mode                   . c-basic-offset)                   ; PHP
+    (php-ts-mode                . php-ts-mode-indent-offset)        ; PHP
+    (powershell-mode            . powershell-indent)                ; PowerShell
+    (powershell-ts-mode         . powershell-ts-mode-indent-offset) ; PowerShell
+    (raku-mode                  . raku-indent-offset)               ; Perl6/Raku
+    (ruby-mode                  . ruby-indent-level)                ; Ruby
+    (rust-mode                  . rust-indent-offset)               ; Rust
+    (rust-ts-mode               . rust-ts-mode-indent-offset)
+    (rustic-mode                . rustic-indent-offset)             ; Rust
+    (scala-mode                 . scala-indent:step)                ; Scala
+    (sgml-mode                  . sgml-basic-offset)                ; SGML
+    (sh-mode                    . sh-basic-offset)                  ; Shell Script
+    (toml-ts-mode               . toml-ts-mode-indent-offset)
+    (typescript-mode            . typescript-indent-level)          ; Typescript
+    (typescript-ts-mode         . typescript-ts-mode-indent-offset) ; Typescript (tree-sitter, Emacs29)
+    (yaml-mode                  . yaml-indent-offset)               ; YAML
+    (yang-mode                  . c-basic-offset)                   ; YANG (yang-mode)
+
+    (default                    . standard-indent))                 ; default fallback
+  "A mapping from `major-mode' to its indent variable.")
+
+(defun lsp--get-indent-width (mode)
+  "Get indentation offset for MODE."
+  (or (alist-get mode lsp--formatting-indent-alist)
+      (lsp--get-indent-width (or (get mode 'derived-mode-parent) 'default))))
+
+(defun lsp--make-document-formatting-params ()
+  "Create document formatting params."
+  (lsp-make-document-formatting-params
+   :text-document (lsp--text-document-identifier)
+   :options (lsp-make-formatting-options
+             :tab-size (symbol-value (lsp--get-indent-width major-mode))
+             :insert-spaces (lsp-json-bool (not indent-tabs-mode))
+             :trim-trailing-whitespace? (lsp-json-bool lsp-trim-trailing-whitespace)
+             :insert-final-newline? (lsp-json-bool lsp-insert-final-newline)
+             :trim-final-newlines? (lsp-json-bool lsp-trim-final-newlines))))
+
+(defun lsp-format-buffer ()
+  "Ask the server to format this document."
+  (interactive "*")
+  (cond ((lsp-feature? "textDocument/formatting")
+         (let ((edits (lsp-request "textDocument/formatting"
+                                   (lsp--make-document-formatting-params))))
+           (if (seq-empty-p edits)
+               (lsp--info "No formatting changes provided")
+             (lsp--apply-text-edits edits 'format))))
+        ((lsp-feature? "textDocument/rangeFormatting")
+         (save-restriction
+           (widen)
+           (lsp-format-region (point-min) (point-max))))
+        (t (signal 'lsp-capability-not-supported (list "documentFormattingProvider")))))
+
+(defun lsp-format-region (s e)
+  "Ask the server to format the region, or if none is selected, the current line."
+  (interactive "r")
+  (let ((edits (lsp-request
+                "textDocument/rangeFormatting"
+                (lsp--make-document-range-formatting-params s e))))
+    (if (seq-empty-p edits)
+        (lsp--info "No formatting changes provided")
+      (lsp--apply-text-edits edits 'format))))
+
+(defmacro lsp-make-interactive-code-action (func-name code-action-kind)
+  "Define an interactive function FUNC-NAME that attempts to
+execute a CODE-ACTION-KIND action."
+  `(defun ,(intern (concat "lsp-" (symbol-name func-name))) ()
+     ,(format "Perform the %s code action, if available." code-action-kind)
+     (interactive)
+     ;; Even when `lsp-auto-execute-action' is nil, it still makes sense to
+     ;; auto-execute here: the user has specified exactly what they want.
+     (let ((lsp-auto-execute-action t))
+       (condition-case nil
+           (lsp-execute-code-action-by-kind ,code-action-kind)
+         (lsp-no-code-actions
+          (when (called-interactively-p 'any)
+            (lsp--info ,(format "%s action not available" code-action-kind))))))))
+
+(lsp-make-interactive-code-action organize-imports "source.organizeImports")
+
+(defun lsp--make-document-range-formatting-params (start end)
+  "Make DocumentRangeFormattingParams for selected region."
+  (lsp:set-document-range-formatting-params-range (lsp--make-document-formatting-params)
+                                                  (lsp--region-to-range start end)))
+
+(defconst lsp--highlight-kind-face
+  '((1 . lsp-face-highlight-textual)
+    (2 . lsp-face-highlight-read)
+    (3 . lsp-face-highlight-write)))
+
+(defun lsp--remove-overlays (name)
+  (save-restriction
+    (widen)
+    (remove-overlays (point-min) (point-max) name t)))
+
+(defun lsp-document-highlight ()
+  "Highlight all relevant references to the symbol under point."
+  (interactive)
+  (lsp--remove-overlays 'lsp-highlight) ;; clear any previous highlights
+  (setq lsp--have-document-highlights nil
+        lsp--symbol-bounds-of-last-highlight-invocation nil)
+  (let ((lsp-enable-symbol-highlighting t))
+    (lsp--document-highlight)))
+
+(defun lsp--document-highlight-callback (highlights)
+  "Create a callback to process the reply of a
+`textDocument/documentHighlight' message for the buffer BUF.
+A reference is highlighted only if it is visible in a window."
+  (lsp--remove-overlays 'lsp-highlight)
+
+  (let* ((wins-visible-pos (-map (lambda (win)
+                                   (cons (1- (line-number-at-pos (window-start win) t))
+                                         (1+ (line-number-at-pos (window-end win) t))))
+                                 (get-buffer-window-list nil nil 'visible))))
+    (setq lsp--have-document-highlights t)
+    (-map
+     (-lambda ((&DocumentHighlight :range (&Range :start (start &as &Position :line start-line)
+                                                  :end (end &as &Position :line end-line))
+                                   :kind?))
+       (-map
+        (-lambda ((start-window . end-window))
+          ;; Make the overlay only if the reference is visible
+          (when (and (> (1+ start-line) start-window)
+                     (< (1+ end-line) end-window))
+            (let ((start-point (lsp--position-to-point start))
+                  (end-point (lsp--position-to-point end)))
+              (when (not (and lsp-symbol-highlighting-skip-current
+                              (<= start-point (point) end-point)))
+                (-doto (make-overlay start-point end-point)
+                  (overlay-put 'face (cdr (assq (or kind? 1) lsp--highlight-kind-face)))
+                  (overlay-put 'lsp-highlight t))))))
+        wins-visible-pos))
+     highlights)))
+
+(defcustom lsp-symbol-kinds
+  '((1 . "File")
+    (2 . "Module")
+    (3 . "Namespace")
+    (4 . "Package")
+    (5 . "Class")
+    (6 . "Method")
+    (7 . "Property")
+    (8 . "Field")
+    (9 . "Constructor")
+    (10 . "Enum")
+    (11 . "Interface")
+    (12 . "Function")
+    (13 . "Variable")
+    (14 . "Constant")
+    (15 . "String")
+    (16 . "Number")
+    (17 . "Boolean")
+    (18 . "Array")
+    (19 . "Object")
+    (20 . "Key")
+    (21 . "Null")
+    (22 . "Enum Member")
+    (23 . "Struct")
+    (24 . "Event")
+    (25 . "Operator")
+    (26 . "Type Parameter"))
+  "Alist mapping SymbolKinds to human-readable strings.
+Various Symbol objects in the LSP protocol have an integral type,
+specifying what they are. This alist maps such type integrals to
+readable representations of them. See
+`https://microsoft.github.io/language-server-protocol/specifications/specification-current/',
+namespace SymbolKind."
+  :group 'lsp-mode
+  :type '(alist :key-type integer :value-type string))
+(defalias 'lsp--symbol-kind 'lsp-symbol-kinds)
+
+(lsp-defun lsp--symbol-information-to-xref
+  ((&SymbolInformation :kind :name
+                       :location (&Location :uri :range (&Range :start
+                                                                (&Position :line :character)))))
+  "Return a `xref-item' from SYMBOL information."
+  (xref-make (format "[%s] %s" (alist-get kind lsp-symbol-kinds) name)
+             (xref-make-file-location (lsp--uri-to-path uri)
+                                      line
+                                      character)))
+
+(defun lsp--get-document-symbols ()
+  "Get document symbols.
+
+If the buffer has not been modified since symbols were last
+retrieved, simply return the latest result.
+
+Else, if the request was initiated by Imenu updating its menu-bar
+entry, perform it asynchronously; i.e., give Imenu the latest
+result and then force a refresh when a new one is available.
+
+Else (e.g., due to interactive use of `imenu' or `xref'),
+perform the request synchronously."
+  (if (= (buffer-chars-modified-tick) lsp--document-symbols-tick)
+      lsp--document-symbols
+    (let ((method "textDocument/documentSymbol")
+          (params `(:textDocument ,(lsp--text-document-identifier)))
+          (tick (buffer-chars-modified-tick)))
+      (if (not lsp--document-symbols-request-async)
+          (prog1
+              (setq lsp--document-symbols (lsp-request method params))
+            (setq lsp--document-symbols-tick tick))
+        (lsp-request-async method params
+                           (lambda (document-symbols)
+                             (setq lsp--document-symbols document-symbols
+                                   lsp--document-symbols-tick tick)
+                             (lsp--imenu-refresh))
+                           :mode 'alive
+                           :cancel-token :document-symbols)
+        lsp--document-symbols))))
+
+(advice-add 'imenu-update-menubar :around
+            (lambda (oldfun &rest r)
+              (let ((lsp--document-symbols-request-async t))
+                (apply oldfun r))))
+
+(defun lsp--document-symbols->document-symbols-hierarchy (document-symbols current-position)
+  "Convert DOCUMENT-SYMBOLS to symbols hierarchy on CURRENT-POSITION."
+  (-let (((symbol &as &DocumentSymbol? :children?)
+          (seq-find (-lambda ((&DocumentSymbol :range))
+                      (lsp-point-in-range? current-position range))
+                    document-symbols)))
+    (if children?
+        (cons symbol (lsp--document-symbols->document-symbols-hierarchy children? current-position))
+      (when symbol
+        (list symbol)))))
+
+(lsp-defun lsp--symbol-information->document-symbol ((&SymbolInformation :name :kind :location :container-name? :deprecated?))
+  "Convert a SymbolInformation to a DocumentInformation"
+  (lsp-make-document-symbol :name name
+                            :kind kind
+                            :range (lsp:location-range location)
+                            :children? nil
+                            :deprecated? deprecated?
+                            :selection-range (lsp:location-range location)
+                            :detail? container-name?))
+
+(defun lsp--symbols-informations->document-symbols-hierarchy (symbols-informations current-position)
+  "Convert SYMBOLS-INFORMATIONS to symbols hierarchy on CURRENT-POSITION."
+  (--> symbols-informations
+    (-keep (-lambda ((symbol &as &SymbolInformation :location (&Location :range)))
+             (when (lsp-point-in-range? current-position range)
+               (lsp--symbol-information->document-symbol symbol)))
+           it)
+    (sort it (-lambda ((&DocumentSymbol :range (&Range :start a-start-position :end a-end-position))
+                       (&DocumentSymbol :range (&Range :start b-start-position :end b-end-position)))
+               (and (lsp--position-compare b-start-position a-start-position)
+                    (lsp--position-compare a-end-position b-end-position))))))
+
+(defun lsp--symbols->document-symbols-hierarchy (symbols)
+  "Convert SYMBOLS to symbols-hierarchy."
+  (when-let* ((first-symbol (lsp-seq-first symbols)))
+    (let ((cur-position (lsp-make-position :line (plist-get (lsp--cur-position) :line)
+                                           :character (plist-get (lsp--cur-position) :character))))
+      (if (lsp-symbol-information? first-symbol)
+          (lsp--symbols-informations->document-symbols-hierarchy symbols cur-position)
+        (lsp--document-symbols->document-symbols-hierarchy symbols cur-position)))))
+
+(defun lsp--xref-backend () 'xref-lsp)
+
+(cl-defmethod xref-backend-identifier-at-point ((_backend (eql xref-lsp)))
+  (propertize (or (thing-at-point 'symbol) "")
+              'identifier-at-point t))
+
+(defun lsp--xref-elements-index (symbols path)
+  (-mapcat
+   (-lambda (sym)
+     (pcase-exhaustive sym
+       ((lsp-interface DocumentSymbol :name :children? :selection-range (lsp-interface Range :start))
+        (cons (cons (concat path name)
+                    (lsp--position-to-point start))
+              (lsp--xref-elements-index children? (concat path name " / "))))
+       ((lsp-interface SymbolInformation :name :location (lsp-interface Location :range (lsp-interface Range :start)))
+        (list (cons (concat path name)
+                    (lsp--position-to-point start))))))
+   symbols))
+
+(defvar-local lsp--symbols-cache nil)
+
+(cl-defmethod xref-backend-identifier-completion-table ((_backend (eql xref-lsp)))
+  (if (lsp--find-workspaces-for "textDocument/documentSymbol")
+      (progn
+        (setq lsp--symbols-cache (lsp--xref-elements-index
+                                  (lsp--get-document-symbols) nil))
+        lsp--symbols-cache)
+    (list (propertize (or (thing-at-point 'symbol) "")
+                      'identifier-at-point t))))
+
+(cl-defmethod xref-backend-definitions ((_backend (eql xref-lsp)) identifier)
+  (save-excursion
+    (unless (get-text-property 0 'identifier-at-point identifier)
+      (goto-char (cl-rest (or (assoc identifier lsp--symbols-cache)
+                              (user-error "Unable to find symbol %s in current document" identifier)))))
+    (lsp--locations-to-xref-items (lsp-request "textDocument/definition"
+                                               (lsp--text-document-position-params)))))
+
+(cl-defmethod xref-backend-references ((_backend (eql xref-lsp)) identifier)
+  (save-excursion
+    (unless (get-text-property 0 'identifier-at-point identifier)
+      (goto-char (cl-rest (or (assoc identifier lsp--symbols-cache)
+                              (user-error "Unable to find symbol %s" identifier)))))
+    (lsp--locations-to-xref-items (lsp-request "textDocument/references"
+                                               (lsp--make-reference-params nil lsp-references-exclude-declaration)))))
+
+(cl-defmethod xref-backend-apropos ((_backend (eql xref-lsp)) pattern)
+  (seq-map #'lsp--symbol-information-to-xref
+           (lsp-request "workspace/symbol" `(:query ,pattern))))
+
+(defcustom lsp-rename-use-prepare t
+  "Whether `lsp-rename' should do a prepareRename first.
+For some language servers, textDocument/prepareRename might be
+too slow, in which case this variable may be set to nil.
+`lsp-rename' will then use `thing-at-point' `symbol' to determine
+the symbol to rename at point."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defun lsp--get-symbol-to-rename ()
+  "Get a symbol to rename and placeholder at point.
+Returns a cons ((START . END) . PLACEHOLDER?), and nil if
+renaming is generally supported but cannot be done at point.
+START and END are the bounds of the identifiers being renamed,
+while PLACEHOLDER?, is either nil or a string suggested by the
+language server as the initial input of a new-name prompt."
+  (unless (lsp-feature? "textDocument/rename")
+    (error "The connected server(s) doesn't support renaming"))
+  (if (and lsp-rename-use-prepare (lsp-feature? "textDocument/prepareRename"))
+      (when-let* ((response
+                  (lsp-request "textDocument/prepareRename"
+                               (lsp--text-document-position-params))))
+        (let* ((bounds (lsp--range-to-region
+                        (if (lsp-range? response)
+                            response
+                          (lsp:prepare-rename-result-range response))))
+               (placeholder
+                (and (not (lsp-range? response))
+                     (lsp:prepare-rename-result-placeholder response))))
+          (cons bounds placeholder)))
+    (when-let* ((bounds (bounds-of-thing-at-point 'symbol)))
+      (cons bounds nil))))
+
+(defface lsp-face-rename '((t :underline t))
+  "Face used to highlight the identifier being renamed.
+Renaming can be done using `lsp-rename'."
+  :group 'lsp-mode)
+
+(defface lsp-rename-placeholder-face '((t :inherit font-lock-variable-name-face))
+  "Face used to display the rename placeholder in.
+When calling `lsp-rename' interactively, this will be the face of
+the new name."
+  :group 'lsp-mode)
+
+(defvar lsp-rename-history '()
+  "History for `lsp--read-rename'.")
+
+(defun lsp--read-rename (at-point)
+  "Read a new name for a `lsp-rename' at `point' from the user.
+AT-POINT shall be a structure as returned by
+`lsp--get-symbol-to-rename'.
+
+Returns a string, which should be the new name for the identifier
+at point. If renaming cannot be done at point (as determined from
+AT-POINT), throw a `user-error'.
+
+This function is for use in `lsp-rename' only, and shall not be
+relied upon."
+  (unless at-point
+    (user-error "`lsp-rename' is invalid here"))
+  (-let* ((((start . end) . placeholder?) at-point)
+          ;; Do the `buffer-substring' first to not include `lsp-face-rename'
+          (rename-me (buffer-substring start end))
+          (placeholder (or placeholder? rename-me))
+          (placeholder (propertize placeholder 'face 'lsp-rename-placeholder-face))
+
+          overlay)
+    ;; We need unwind protect, as the user might cancel here, causing the
+    ;; overlay to linger.
+    (unwind-protect
+        (progn
+          (setq overlay (make-overlay start end))
+          (overlay-put overlay 'face 'lsp-face-rename)
+
+          (read-string (format "Rename %s to: " rename-me) placeholder
+                       'lsp-rename-history))
+      (and overlay (delete-overlay overlay)))))
+
+(defun lsp-rename (newname)
+  "Rename the symbol (and all references to it) under point to NEWNAME."
+  (interactive (list (lsp--read-rename (lsp--get-symbol-to-rename))))
+  (when-let* ((edits (lsp-request "textDocument/rename"
+                                 `( :textDocument ,(lsp--text-document-identifier)
+                                    :position ,(lsp--cur-position)
+                                    :newName ,newname))))
+    (lsp--apply-workspace-edit edits 'rename)))
+
+(defun lsp--on-rename-file (old-func old-name new-name &optional ok-if-already-exists?)
+  "Advice around function `rename-file'.
+Applies OLD-FUNC with OLD-NAME, NEW-NAME and OK-IF-ALREADY-EXISTS?.
+
+This advice sends workspace/willRenameFiles before renaming file
+to check if server wants to apply any workspaceEdits after renamed."
+  (if (and lsp-apply-edits-after-file-operations
+           (lsp--send-will-rename-files-p old-name))
+      (let ((params (lsp-make-rename-files-params
+                     :files (vector (lsp-make-file-rename
+                                     :oldUri (lsp--path-to-uri old-name)
+                                     :newUri (lsp--path-to-uri new-name))))))
+        (when-let* ((edits (lsp-request "workspace/willRenameFiles" params)))
+          (lsp--apply-workspace-edit edits 'rename-file)
+          (funcall old-func old-name new-name ok-if-already-exists?)
+          (when (lsp--send-did-rename-files-p)
+            (lsp-notify "workspace/didRenameFiles" params))))
+    (funcall old-func old-name new-name ok-if-already-exists?)))
+
+(advice-add 'rename-file :around #'lsp--on-rename-file)
+
+(defcustom lsp-xref-force-references nil
+  "If non-nil threat everything as references(e. g. jump if only one item.)"
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defun lsp-show-xrefs (xrefs display-action references?)
+  (unless (region-active-p) (push-mark nil t))
+  (if (boundp 'xref-show-definitions-function)
+      (with-no-warnings
+        (xref-push-marker-stack)
+        (funcall (if (and references? (not lsp-xref-force-references))
+                     xref-show-xrefs-function
+                   xref-show-definitions-function)
+                 (-const xrefs)
+                 `((window . ,(selected-window))
+                   (display-action . ,display-action)
+                   ,(if (and references? (not lsp-xref-force-references))
+                        `(auto-jump . ,xref-auto-jump-to-first-xref)
+                      `(auto-jump . ,xref-auto-jump-to-first-definition)))))
+    (xref--show-xrefs xrefs display-action)))
+
+(cl-defmethod seq-empty-p ((ht hash-table))
+  "Function `seq-empty-p' for hash-table."
+  (hash-table-empty-p ht))
+
+(cl-defun lsp-find-locations (method &optional extra &key display-action references?)
+  "Send request named METHOD and get cross references of the symbol under point.
+EXTRA is a plist of extra parameters.
+REFERENCES? t when METHOD returns references."
+  (let ((loc (lsp-request method
+                          (append (lsp--text-document-position-params) extra))))
+    (if (seq-empty-p loc)
+        (lsp--error "Not found for: %s" (or (thing-at-point 'symbol t) ""))
+      (lsp-show-xrefs (lsp--locations-to-xref-items loc) display-action references?))))
+
+(cl-defun lsp-find-declaration (&key display-action)
+  "Find declarations of the symbol under point."
+  (interactive)
+  (lsp-find-locations "textDocument/declaration" nil :display-action display-action))
+
+(cl-defun lsp-find-definition (&key display-action)
+  "Find definitions of the symbol under point."
+  (interactive)
+  (lsp-find-locations "textDocument/definition" nil :display-action display-action))
+
+(defun lsp-find-definition-mouse (click)
+  "Click to start `lsp-find-definition' at clicked point."
+  (interactive "e")
+  (let* ((ec (event-start click))
+         (p1 (posn-point ec))
+         (w1 (posn-window ec)))
+    (select-window w1)
+    (goto-char p1)
+    (lsp-find-definition)))
+
+(cl-defun lsp-find-implementation (&key display-action)
+  "Find implementations of the symbol under point."
+  (interactive)
+  (lsp-find-locations "textDocument/implementation"
+                      nil
+                      :display-action display-action
+                      :references? t))
+
+(cl-defun lsp-find-references (&optional exclude-declaration &key display-action)
+  "Find references of the symbol under point."
+  (interactive "P")
+  (lsp-find-locations "textDocument/references"
+                      (list :context `(:includeDeclaration ,(lsp-json-bool (not (or exclude-declaration lsp-references-exclude-declaration)))))
+                      :display-action display-action
+                      :references? t))
+
+(cl-defun lsp-find-type-definition (&key display-action)
+  "Find type definitions of the symbol under point."
+  (interactive)
+  (lsp-find-locations "textDocument/typeDefinition" nil :display-action display-action))
+
+(defalias 'lsp-find-custom #'lsp-find-locations)
+(defalias 'lsp-goto-implementation #'lsp-find-implementation)
+(defalias 'lsp-goto-type-definition #'lsp-find-type-definition)
+
+(with-eval-after-load 'evil
+  (evil-set-command-property 'lsp-find-definition :jump t)
+  (evil-set-command-property 'lsp-find-implementation :jump t)
+  (evil-set-command-property 'lsp-find-references :jump t)
+  (evil-set-command-property 'lsp-find-type-definition :jump t))
+
+(defun lsp--workspace-method-supported? (check-command method capability workspace)
+  (with-lsp-workspace workspace
+    (if check-command
+        (funcall check-command workspace)
+      (or
+       (when capability (lsp--capability capability))
+       (lsp--registered-capability method)
+       (and (not capability) (not check-command))))))
+
+(defun lsp-disable-method-for-server (method server-id)
+  "Disable METHOD for SERVER-ID."
+  (cl-callf
+      (lambda (reqs)
+        (-let (((&plist :check-command :capability) reqs))
+          (list :check-command
+                (lambda (workspace)
+                  (unless (-> workspace
+                              lsp--workspace-client
+                              lsp--client-server-id
+                              (eq server-id))
+                    (lsp--workspace-method-supported? check-command
+                                                      method
+                                                      capability
+                                                      workspace))))))
+      (alist-get method lsp-method-requirements nil nil 'string=)))
+
+(defun lsp--find-workspaces-for (msg-or-method)
+  "Find all workspaces in the current project that can handle MSG."
+  (let ((method (if (stringp msg-or-method)
+                    msg-or-method
+                  (plist-get msg-or-method :method))))
+    (-if-let (reqs (cdr (assoc method lsp-method-requirements)))
+        (-let (((&plist :capability :check-command) reqs))
+          (-filter
+           (-partial #'lsp--workspace-method-supported?
+                     check-command method capability)
+           (lsp-workspaces)))
+      (lsp-workspaces))))
+
+(defun lsp-can-execute-command? (command-name)
+  "Returns non-nil if current language server(s) can execute COMMAND-NAME.
+The command is executed via `workspace/executeCommand'"
+  (cl-position
+   command-name
+   (lsp:execute-command-options-commands
+    (lsp:server-capabilities-execute-command-provider?
+     (lsp--server-capabilities)))
+   :test #'equal))
+
+(defalias 'lsp-feature? 'lsp--find-workspaces-for)
+
+(cl-defmethod lsp-execute-command (_server _command _arguments)
+  "Dispatch COMMAND execution."
+  (signal 'cl-no-applicable-method nil))
+
+(defun lsp-workspace-command-execute (command &optional args)
+  "Execute workspace COMMAND with ARGS."
+  (condition-case-unless-debug err
+      (let ((params (if args
+                        (list :command command :arguments args)
+                      (list :command command))))
+        (lsp-request "workspace/executeCommand" params))
+    (error
+     (error "`workspace/executeCommand' with `%s' failed.\n\n%S"
+            command err))))
+
+(defun lsp-send-execute-command (command &optional args)
+  "Create and send a `workspace/executeCommand' message having command COMMAND
+and optional ARGS."
+  (lsp-workspace-command-execute command args))
+
+(defalias 'lsp-point-to-position #'lsp--point-to-position)
+(defalias 'lsp-text-document-identifier #'lsp--text-document-identifier)
+(defalias 'lsp--send-execute-command #'lsp-send-execute-command)
+(defalias 'lsp-on-open #'lsp--text-document-did-open)
+(defalias 'lsp-on-save #'lsp--text-document-did-save)
+
+(defun lsp--set-configuration (settings)
+  "Set the SETTINGS for the lsp server."
+  (lsp-notify "workspace/didChangeConfiguration" `(:settings ,settings)))
+
+(defun lsp-current-buffer ()
+  (or lsp--virtual-buffer
+      (current-buffer)))
+
+(defun lsp-buffer-live-p (buffer-id)
+  (if-let* ((buffer-live (plist-get buffer-id :buffer-live?)))
+      (funcall buffer-live buffer-id)
+    (buffer-live-p buffer-id)))
+
+(defun lsp--on-set-visited-file-name (old-func &rest args)
+  "Advice around function `set-visited-file-name'.
+
+This advice sends textDocument/didClose for the old file and
+textDocument/didOpen for the new file."
+  (when lsp--cur-workspace
+    (lsp--text-document-did-close t))
+  (prog1 (apply old-func args)
+    (when lsp--cur-workspace
+      (lsp--text-document-did-open))))
+
+(advice-add 'set-visited-file-name :around #'lsp--on-set-visited-file-name)
+
+(defcustom lsp-flush-delayed-changes-before-next-message t
+  "If non-nil send the document changes update before sending other messages.
+
+If nil, and `lsp-debounce-full-sync-notifications' is non-nil,
+ change notifications will be throttled by
+ `lsp-debounce-full-sync-notifications-interval' regardless of
+ other messages."
+  :group 'lsp-mode
+  :type 'boolean)
+
+(defvar lsp--not-flushing-delayed-changes t)
+
+(defun lsp--send-no-wait (message proc)
+  "Send MESSAGE to PROC without waiting for further output."
+
+  (when (and lsp--not-flushing-delayed-changes
+             lsp-flush-delayed-changes-before-next-message)
+    (let ((lsp--not-flushing-delayed-changes nil))
+      (lsp--flush-delayed-changes)))
+  (lsp-process-send proc message))
+
+(define-error 'lsp-parse-error
+  "Error parsing message from language server" 'lsp-error)
+(define-error 'lsp-unknown-message-type
+  "Unknown message type" '(lsp-error lsp-parse-error))
+(define-error 'lsp-unknown-json-rpc-version
+  "Unknown JSON-RPC protocol version" '(lsp-error lsp-parse-error))
+(define-error 'lsp-no-content-length
+  "Content-Length header missing in message" '(lsp-error lsp-parse-error))
+(define-error 'lsp-invalid-header-name
+  "Invalid header name" '(lsp-error lsp-parse-error))
+
+;;  id  method
+;;   x    x     request
+;;   x    .     response
+;;   .    x     notification
+(defun lsp--get-message-type (json-data)
+  "Get the message type from JSON-DATA."
+  (if (lsp:json-message-id? json-data)
+      (if (lsp:json-message-error? json-data)
+          'response-error
+        (if (lsp:json-message-method? json-data)
+            'request
+          'response))
+    'notification))
+
+(defconst lsp--default-notification-handlers
+  (ht ("window/showMessage" #'lsp--window-show-message)
+      ("window/logMessage" #'lsp--window-log-message)
+      ("window/showInputBox" #'lsp--window-show-input-box)
+      ("window/showQuickPick" #'lsp--window-show-quick-pick)
+      ("textDocument/publishDiagnostics" #'lsp--on-diagnostics)
+      ("textDocument/diagnosticsEnd" #'ignore)
+      ("textDocument/diagnosticsBegin" #'ignore)
+      ("telemetry/event" #'ignore)
+      ("$/progress" (lambda (workspace params)
+                      (funcall lsp-progress-function workspace params)))))
+
+(lsp-defun lsp--on-notification (workspace (&JSONNotification :params :method))
+  "Call the appropriate handler for NOTIFICATION."
+  (-let ((client (lsp--workspace-client workspace)))
+    (when (lsp--log-io-p method)
+      (lsp--log-entry-new (lsp--make-log-entry method nil params 'incoming-notif)
+                          lsp--cur-workspace))
+    (if-let* ((handler (or (gethash method (lsp--client-notification-handlers client))
+                          (gethash method lsp--default-notification-handlers))))
+        (funcall handler workspace params)
+      (when (and method (not (string-prefix-p "$" method)))
+        (lsp-warn "Unknown notification: %s" method)))))
+
+(lsp-defun lsp--build-workspace-configuration-response ((&ConfigurationParams :items))
+  "Get section configuration.
+PARAMS are the `workspace/configuration' request params"
+  (->> items
+       (-map (-lambda ((&ConfigurationItem :section?))
+               (-let* ((path-parts (split-string section? "\\."))
+                       (path-without-last (s-join "." (-slice path-parts 0 -1)))
+                       (path-parts-len (length path-parts)))
+                 (cond
+                  ((<= path-parts-len 1)
+                   (ht-get (lsp-configuration-section section?)
+                           (car-safe path-parts)
+                           (ht-create)))
+                  ((> path-parts-len 1)
+                   (when-let* ((section (lsp-configuration-section path-without-last))
+                              (keys path-parts))
+                     (while (and keys section)
+                       (setf section (ht-get section (pop keys))))
+                     section))))))
+       (apply #'vector)))
+
+(defun lsp--ms-since (timestamp)
+  "Integer number of milliseconds since TIMESTAMP.  Fractions discarded."
+  (floor (* 1000 (float-time (time-since timestamp)))))
+
+(defun lsp--send-request-response (workspace recv-time request response)
+  "Send the RESPONSE for REQUEST in WORKSPACE and log if needed."
+  (-let* (((&JSONResponse :params :method :id) request)
+          (process (lsp--workspace-proc workspace))
+          (response (lsp--make-response id response))
+          (req-entry (and lsp-log-io
+                          (lsp--make-log-entry method id params 'incoming-req)))
+          (resp-entry (and lsp-log-io
+                           (lsp--make-log-entry method id response 'outgoing-resp
+                                                (lsp--ms-since recv-time)))))
+    ;; Send response to the server.
+    (when (lsp--log-io-p method)
+      (lsp--log-entry-new req-entry workspace)
+      (lsp--log-entry-new resp-entry workspace))
+    (lsp--send-no-wait response process)))
+
+(lsp-defun lsp--on-request (workspace (request &as &JSONRequest :params :method))
+  "Call the appropriate handler for REQUEST, and send the return value to the
+server. WORKSPACE is the active workspace."
+  (-let* ((recv-time (current-time))
+          (client (lsp--workspace-client workspace))
+          (buffers (lsp--workspace-buffers workspace))
+          handler
+          (response (cond
+                     ((setq handler (gethash method (lsp--client-request-handlers client) nil))
+                      (funcall handler workspace params))
+                     ((setq handler (gethash method (lsp--client-async-request-handlers client) nil))
+                      (funcall handler workspace params
+                               (-partial #'lsp--send-request-response
+                                         workspace recv-time request))
+                      'delay-response)
+                     ((equal method "client/registerCapability")
+                      (mapc #'lsp--server-register-capability
+                            (lsp:registration-params-registrations params))
+                      (mapc (lambda (buf)
+                              (when (lsp-buffer-live-p buf)
+                                (lsp-with-current-buffer buf
+                                  (lsp-unconfig-buffer)
+                                  (lsp-configure-buffer))))
+                            buffers)
+                      nil)
+                     ((equal method "window/showMessageRequest")
+                      (let ((choice (lsp--window-log-message-request params)))
+                        `(:title ,choice)))
+                     ((equal method "window/showDocument")
+                      (let ((success? (lsp--window-show-document params)))
+                        (lsp-make-show-document-result :success (or success?
+                                                                    :json-false))))
+                     ((equal method "client/unregisterCapability")
+                      (mapc #'lsp--server-unregister-capability
+                            (lsp:unregistration-params-unregisterations params))
+                      (mapc (lambda (buf)
+                              (when (lsp-buffer-live-p buf)
+                                (lsp-with-current-buffer buf
+                                  (lsp-unconfig-buffer)
+                                  (lsp-configure-buffer))))
+                            buffers)
+                      nil)
+                     ((equal method "workspace/applyEdit")
+                      (list :applied (condition-case err
+                                         (prog1 t
+                                           (lsp--apply-workspace-edit (lsp:apply-workspace-edit-params-edit params) 'server-requested))
+                                       (error
+                                        (lsp--error "Failed to apply edits with message %s"
+                                                    (error-message-string err))
+                                        :json-false))))
+                     ((equal method "workspace/configuration")
+                      (with-lsp-workspace workspace
+                        (if-let* ((buf (car buffers)))
+                            (lsp-with-current-buffer buf
+                              (lsp--build-workspace-configuration-response params))
+                          (lsp--with-workspace-temp-buffer (lsp--workspace-root workspace)
+                            (lsp--build-workspace-configuration-response params)))))
+                     ((equal method "workspace/workspaceFolders")
+                      (let ((folders (or (-> workspace
+                                             (lsp--workspace-client)
+                                             (lsp--client-server-id)
+                                             (gethash (lsp-session-server-id->folders (lsp-session))))
+                                         (lsp-session-folders (lsp-session)))))
+                        (->> folders
+                             (-distinct)
+                             (-map (lambda (folder)
+                                     (list :uri (lsp--path-to-uri folder))))
+                             (apply #'vector))))
+                     ((equal method "window/workDoneProgress/create")
+                      nil ;; no specific reply, no processing required
+                      )
+                     ((equal method "workspace/semanticTokens/refresh")
+                      (when (and lsp-semantic-tokens-enable
+                                 (fboundp 'lsp--semantic-tokens-on-refresh))
+                        (lsp--semantic-tokens-on-refresh workspace))
+                      nil)
+                     ((equal method "workspace/codeLens/refresh")
+                      (when (and lsp-lens-enable
+                                 (fboundp 'lsp--lens-on-refresh))
+                        (lsp--lens-on-refresh workspace))
+                      nil)
+                     ((equal method "workspace/diagnostic/refresh")
+                      nil)
+                     (t (lsp-warn "Unknown request method: %s" method) nil))))
+    ;; Send response to the server.
+    (unless (eq response 'delay-response)
+      (lsp--send-request-response workspace recv-time request response))))
+
+(lsp-defun lsp--error-string ((&JSONError :message :code))
+  "Format ERR as a user friendly string."
+  (format "Error from the Language Server: %s (%s)"
+          message
+          (or (car (alist-get code lsp--errors)) "Unknown error")))
+
+(defun lsp--get-body-length (headers)
+  (let ((content-length (cdr (assoc "Content-Length" headers))))
+    (if content-length
+        (string-to-number content-length)
+
+      ;; This usually means either the server or our parser is
+      ;; screwed up with a previous Content-Length
+      (error "No Content-Length header"))))
+
+(defun lsp--parse-header (s)
+  "Parse string S as a LSP (KEY . VAL) header."
+  (let ((pos (string-match "\:" s))
+        key val)
+    (unless pos
+      (signal 'lsp-invalid-header-name (list s)))
+    (setq key (substring s 0 pos)
+          val (s-trim-left (substring s (+ 1 pos))))
+    (when (equal key "Content-Length")
+      (cl-assert (cl-loop for c across val
+                          when (or (> c ?9) (< c ?0)) return nil
+                          finally return t)
+                 nil (format "Invalid Content-Length value: %s" val)))
+    (cons key val)))
+
+(defmacro lsp--read-json (str)
+  "Read json string STR."
+  (if (progn
+        (require 'json)
+        (fboundp 'json-parse-string))
+      `(json-parse-string ,str
+                          :object-type (if lsp-use-plists
+                                           'plist
+                                         'hash-table)
+                          :null-object nil
+                          :false-object nil)
+    `(let ((json-array-type 'vector)
+           (json-object-type (if lsp-use-plists
+                                 'plist
+                               'hash-table))
+           (json-false nil))
+       (json-read-from-string ,str))))
+
+(defmacro lsp-json-read-buffer ()
+  "Read json from the current buffer."
+  (if (progn
+        (require 'json)
+        (fboundp 'json-parse-buffer))
+      `(json-parse-buffer :object-type (if lsp-use-plists
+                                           'plist
+                                         'hash-table)
+                          :null-object nil
+                          :false-object nil)
+    `(let ((json-array-type 'vector)
+           (json-object-type (if lsp-use-plists
+                                 'plist
+                               'hash-table))
+           (json-false nil))
+       (json-read))))
+
+(defun lsp--read-json-file (file-path)
+  "Read json file."
+  (-> file-path
+    (f-read-text)
+    (lsp--read-json)))
+
+(defun lsp--parser-on-message (json-data workspace)
+  "Called when the parser P read a complete MSG from the server."
+  (with-demoted-errors "Error processing message %S."
+    (with-lsp-workspace workspace
+      (let* ((client (lsp--workspace-client workspace))
+             (id (--when-let (lsp:json-response-id json-data)
+                   (if (stringp it) (string-to-number it) it)))
+             (data (lsp:json-response-result json-data)))
+        (pcase (lsp--get-message-type json-data)
+          ('response
+           (cl-assert id)
+           (-let [(callback _ method _ before-send) (gethash id (lsp--client-response-handlers client))]
+             (when (lsp--log-io-p method)
+               (lsp--log-entry-new
+                (lsp--make-log-entry method id data 'incoming-resp
+                                     (lsp--ms-since before-send))
+                workspace))
+             (when callback
+               (remhash id (lsp--client-response-handlers client))
+               (funcall callback (lsp:json-response-result json-data)))))
+          ('response-error
+           (cl-assert id)
+           (-let [(_ callback method _ before-send) (gethash id (lsp--client-response-handlers client))]
+             (when (lsp--log-io-p method)
+               (lsp--log-entry-new
+                (lsp--make-log-entry method id (lsp:json-response-error-error json-data)
+                                     'incoming-resp (lsp--ms-since before-send))
+                workspace))
+             (when callback
+               (remhash id (lsp--client-response-handlers client))
+               (funcall callback (lsp:json-response-error-error json-data)))))
+          ('notification
+           (lsp--on-notification workspace json-data))
+          ('request (lsp--on-request workspace json-data)))))))
+
+(defun lsp--create-filter-function (workspace)
+  "Make filter for the workspace."
+  (let ((body-received 0)
+        leftovers body-length body chunk)
+    (lambda (_proc input)
+      (setf chunk (if (s-blank? leftovers)
+                      (encode-coding-string input 'utf-8-unix t)
+                    (concat leftovers (encode-coding-string input 'utf-8-unix t))))
+
+      (let (messages)
+        (while (not (s-blank? chunk))
+          (if (not body-length)
+              ;; Read headers
+              (if-let* ((body-sep-pos (string-match-p "\r\n\r\n" chunk)))
+                  ;; We've got all the headers, handle them all at once:
+                  (setf body-length (lsp--get-body-length
+                                     (mapcar #'lsp--parse-header
+                                             (split-string
+                                              (substring-no-properties chunk
+                                                                       (or (string-match-p "Content-Length" chunk)
+                                                                           (error "Unable to find Content-Length header."))
+                                                                       body-sep-pos)
+                                              "\r\n")))
+                        body-received 0
+                        leftovers nil
+                        chunk (substring-no-properties chunk (+ body-sep-pos 4)))
+
+                ;; Haven't found the end of the headers yet. Save everything
+                ;; for when the next chunk arrives and await further input.
+                (setf leftovers chunk
+                      chunk nil))
+            (let* ((chunk-length (string-bytes chunk))
+                   (left-to-receive (- body-length body-received))
+                   (this-body (if (< left-to-receive chunk-length)
+                                  (prog1 (substring-no-properties chunk 0 left-to-receive)
+                                    (setf chunk (substring-no-properties chunk left-to-receive)))
+                                (prog1 chunk
+                                  (setf chunk nil))))
+                   (body-bytes (string-bytes this-body)))
+              (push this-body body)
+              (setf body-received (+ body-received body-bytes))
+              (when (>= chunk-length left-to-receive)
+                (condition-case err
+                    (with-temp-buffer
+                      (apply #'insert
+                             (nreverse
+                              (prog1 body
+                                (setf leftovers nil
+                                      body-length nil
+                                      body-received nil
+                                      body nil))))
+                      (decode-coding-region (point-min)
+                                            (point-max)
+                                            'utf-8)
+                      (goto-char (point-min))
+                      (push (lsp-json-read-buffer) messages))
+
+                  (error
+                   (lsp-warn "Failed to parse the following chunk:\n'''\n%s\n'''\nwith message %s"
+                             (concat leftovers input)
+                             err)))))))
+        (mapc (lambda (msg)
+                (lsp--parser-on-message msg workspace))
+              (nreverse messages))))))
+
+(defvar-local lsp--line-col-to-point-hash-table nil
+  "Hash table with keys (line . col) and values that are either point positions
+or markers.")
+
+(defcustom lsp-imenu-detailed-outline t
+  "Whether `lsp-imenu' should include signatures.
+This will be ignored if the server doesn't provide the necessary
+information, for example if it doesn't support DocumentSymbols."
+  :group 'lsp-imenu
+  :type 'boolean)
+
+(defcustom lsp-imenu-hide-parent-details t
+  "Whether `lsp-imenu' should hide signatures of parent nodes."
+  :group 'lsp-imenu
+  :type 'boolean)
+
+(defface lsp-details-face '((t :height 0.8 :inherit shadow))
+  "Used to display additional information throughout `lsp'.
+Things like line numbers, signatures, ... are considered
+additional information. Often, additional faces are defined that
+inherit from this face by default, like `lsp-signature-face', and
+they may be customized for finer control."
+  :group 'lsp-mode)
+
+(defface lsp-signature-face '((t :inherit lsp-details-face))
+  "Used to display signatures in `imenu', ...."
+  :group 'lsp-mode)
+
+(lsp-defun lsp-render-symbol ((&DocumentSymbol :name :detail? :deprecated?)
+                              show-detail?)
+  "Render INPUT0, an `&DocumentSymbol', to a string.
+If SHOW-DETAIL? is set, make use of its `:detail?' field (often
+the signature)."
+  (let ((detail (and show-detail? (s-present? detail?)
+                     (propertize (concat " " (s-trim-left detail?))
+                                 'face 'lsp-signature-face)))
+        (name (if deprecated?
+                  (propertize name 'face 'lsp-face-semhl-deprecated) name)))
+    (concat name detail)))
+
+(lsp-defun lsp-render-symbol-information ((&SymbolInformation :name :deprecated? :container-name?)
+                                          separator)
+  "Render a piece of SymbolInformation.
+Handle :deprecated?. If SEPARATOR is non-nil, the
+symbol's (optional) parent, SEPARATOR and the symbol itself are
+concatenated."
+  (when (and separator container-name? (not (string-empty-p container-name?)))
+    (setq name (concat name separator container-name?)))
+  (if deprecated? (propertize name 'face 'lsp-face-semhl-deprecated) name))
+
+(defun lsp--symbol-to-imenu-elem (sym)
+  "Convert SYM to imenu element.
+
+SYM is a SymbolInformation message.
+
+Return a cons cell (full-name . start-point)."
+  (let ((start-point (ht-get lsp--line-col-to-point-hash-table
+                             (lsp--get-line-and-col sym))))
+    (cons (lsp-render-symbol-information
+           sym (and lsp-imenu-show-container-name
+                    lsp-imenu-container-name-separator))
+          start-point)))
+
+(lsp-defun lsp--symbol-to-hierarchical-imenu-elem ((sym &as &DocumentSymbol :children?))
+  "Convert SYM to hierarchical imenu elements.
+
+SYM is a DocumentSymbol message.
+
+Return cons cell (\"symbol-name (symbol-kind)\" . start-point) if
+SYM doesn't have any children. Otherwise return a cons cell with
+an alist
+
+  (\"symbol-name\" . ((\"(symbol-kind)\" . start-point)
+                    cons-cells-from-children))"
+  (let ((filtered-children (lsp--imenu-filter-symbols children?))
+        (signature (lsp-render-symbol sym lsp-imenu-detailed-outline)))
+    (if (seq-empty-p filtered-children)
+        (cons signature
+              (ht-get lsp--line-col-to-point-hash-table
+                      (lsp--get-line-and-col sym)))
+      (cons signature
+            (lsp--imenu-create-hierarchical-index filtered-children)))))
+
+(lsp-defun lsp--symbol-ignore ((&SymbolInformation :kind))
+  "Determine if SYM is for the current document and is to be shown."
+  ;; It's a SymbolInformation or DocumentSymbol, which is always in the
+  ;; current buffer file.
+  (and lsp-imenu-index-symbol-kinds
+       (numberp kind)
+       (let ((clamped-kind (if (< 0 kind (length lsp/symbol-kind-lookup))
+                               kind
+                             0)))
+         (not (memql (aref lsp/symbol-kind-lookup clamped-kind)
+                     lsp-imenu-index-symbol-kinds)))))
+
+(lsp-defun lsp--get-symbol-type ((&SymbolInformation :kind))
+  "The string name of the kind of SYM."
+  (alist-get kind lsp-symbol-kinds "Other"))
+
+(defun lsp--get-line-and-col (sym)
+  "Obtain the line and column corresponding to SYM."
+  (-let* ((location (lsp:symbol-information-location sym))
+          (name-range (or (and location (lsp:location-range location))
+                          (lsp:document-symbol-selection-range sym)))
+          ((&Range :start (&Position :line :character)) name-range))
+    (cons line character)))
+
+(defun lsp--collect-lines-and-cols (symbols)
+  "Return a sorted list ((line . col) ...) of the locations of SYMBOLS."
+  (let ((stack (mapcar 'identity symbols))
+        line-col-list)
+    (while stack
+      (let ((sym (pop stack)))
+        (push (lsp--get-line-and-col sym) line-col-list)
+        (unless (seq-empty-p (lsp:document-symbol-children? sym))
+          (setf stack (nconc (lsp--imenu-filter-symbols (lsp:document-symbol-children? sym)) stack)))))
+    (-sort #'lsp--line-col-comparator line-col-list)))
+
+(defun lsp--convert-line-col-to-points-batch (line-col-list)
+  "Convert a sorted list of positions from line-column
+representation to point representation."
+  (let ((line-col-to-point-map (ht-create))
+        (inhibit-field-text-motion t)
+        (curr-line 0))
+    (lsp-save-restriction-and-excursion
+      (goto-char (point-min))
+      (cl-loop for (line . col) in line-col-list do
+               (forward-line (- line curr-line))
+               (setq curr-line line)
+               (let ((line-end (line-end-position)))
+                 (if (or (not col) (> col (- line-end (point))))
+                     (goto-char line-end)
+                   (forward-char col)))
+               (ht-set! line-col-to-point-map (cons line col) (if imenu-use-markers
+                                                                  (point-marker)
+                                                                (point)))))
+    line-col-to-point-map))
+
+(cl-defun lsp--line-col-comparator ((l1 . c1) (l2 . c2))
+  (or (< l1 l2)
+      (and (= l1 l2)
+           (cond ((and c1 c2)
+                  (< c1 c2))
+                 (c1 t)))))
+
+(defun lsp-imenu-create-uncategorized-index (symbols)
+  "Create imenu index from document SYMBOLS.
+This function, unlike `lsp-imenu-create-categorized-index', does
+not categorize by type, but instead returns an `imenu' index
+corresponding to the symbol hierarchy returned by the server
+directly."
+  (let* ((lsp--line-col-to-point-hash-table (-> symbols
+                                                lsp--collect-lines-and-cols
+                                                lsp--convert-line-col-to-points-batch)))
+    (if (lsp--imenu-hierarchical-p symbols)
+        (lsp--imenu-create-hierarchical-index symbols)
+      (lsp--imenu-create-non-hierarchical-index symbols))))
+
+(defcustom lsp-imenu-symbol-kinds
+  '((1 . "Files")
+    (2 . "Modules")
+    (3 . "Namespaces")
+    (4 . "Packages")
+    (5 . "Classes")
+    (6 . "Methods")
+    (7 . "Properties")
+    (8 . "Fields")
+    (9 . "Constructors")
+    (10 . "Enums")
+    (11 . "Interfaces")
+    (12 . "Functions")
+    (13 . "Variables")
+    (14 . "Constants")
+    (15 . "Strings")
+    (16 . "Numbers")
+    (17 . "Booleans")
+    (18 . "Arrays")
+    (19 . "Objects")
+    (20 . "Keys")
+    (21 . "Nulls")
+    (22 . "Enum Members")
+    (23 . "Structs")
+    (24 . "Events")
+    (25 . "Operators")
+    (26 . "Type Parameters"))
+  "`lsp-symbol-kinds', but only used by `imenu'.
+A new variable is needed, as it is `imenu' convention to use
+pluralized categories, which `lsp-symbol-kinds' doesn't. If the
+non-pluralized names are preferred, this can be set to
+`lsp-symbol-kinds'."
+  :type '(alist :key-type integer :value-type string))
+
+(defun lsp--imenu-kind->name (kind)
+  (alist-get kind lsp-imenu-symbol-kinds "?"))
+
+(defun lsp-imenu-create-top-level-categorized-index (symbols)
+  "Create an `imenu' index categorizing SYMBOLS by type.
+Only root symbols are categorized.
+
+See `lsp-symbol-kinds' to customize the category naming. SYMBOLS
+shall be a list of DocumentSymbols or SymbolInformation."
+  (mapcan
+   (-lambda ((type . symbols))
+     (let ((cat (lsp--imenu-kind->name type))
+           (symbols (lsp-imenu-create-uncategorized-index symbols)))
+       ;; If there is no :kind (this is being defensive), or we couldn't look it
+       ;; up, just display the symbols inline, without categories.
+       (if cat (list (cons cat symbols)) symbols)))
+   (sort (seq-group-by #'lsp:document-symbol-kind symbols)
+         (-lambda ((kinda) (kindb)) (< kinda kindb)))))
+
+(lsp-defun lsp--symbol->imenu ((sym &as &DocumentSymbol :selection-range (&RangeToPoint :start)))
+  "Convert an `&DocumentSymbol' to an `imenu' entry."
+  (cons (lsp-render-symbol sym lsp-imenu-detailed-outline) start))
+
+(defun lsp--imenu-create-categorized-index-1 (symbols)
+  "Returns an `imenu' index from SYMBOLS categorized by type.
+The result looks like this: ((\"Variables\" . (...)))."
+  (->>
+   symbols
+   (mapcan
+    (-lambda ((sym &as &DocumentSymbol :kind :children?))
+      (if (seq-empty-p children?)
+          (list (list kind (lsp--symbol->imenu sym)))
+        (let ((parent (lsp-render-symbol sym (and lsp-imenu-detailed-outline
+                                                  (not lsp-imenu-hide-parent-details)))))
+          (cons
+           (list kind (lsp--symbol->imenu sym))
+           (mapcar (-lambda ((type .  imenu-items))
+                     (list type (cons parent (mapcan #'cdr imenu-items))))
+                   (-group-by #'car (lsp--imenu-create-categorized-index-1 children?))))))))
+   (-group-by #'car)
+   (mapcar
+    (-lambda ((kind . syms))
+      (cons kind (mapcan #'cdr syms))))))
+
+(defun lsp--imenu-create-categorized-index (symbols)
+  (let ((syms (lsp--imenu-create-categorized-index-1 symbols)))
+    (dolist (sym syms)
+      (setcar sym (lsp--imenu-kind->name (car sym))))
+    syms))
+
+(lsp-defun lsp--symbol-information->imenu ((sym &as &SymbolInformation :location (&Location :range (&RangeToPoint :start))))
+  (cons (lsp-render-symbol-information sym nil) start))
+
+(defun lsp--imenu-create-categorized-index-flat (symbols)
+  "Create a kind-categorized index for SymbolInformation."
+  (mapcar (-lambda ((kind . syms))
+            (cons (lsp--imenu-kind->name kind)
+                  (mapcan (-lambda ((parent . children))
+                            (let ((children (mapcar #'lsp--symbol-information->imenu children)))
+                              (if parent (list (cons parent children)) children)))
+                          (-group-by #'lsp:symbol-information-container-name? syms))))
+          (seq-group-by #'lsp:symbol-information-kind symbols)))
+
+(defun lsp-imenu-create-categorized-index (symbols)
+  (if (lsp--imenu-hierarchical-p symbols)
+      (lsp--imenu-create-categorized-index symbols)
+    (lsp--imenu-create-categorized-index-flat symbols)))
+
+(defcustom lsp-imenu-index-function #'lsp-imenu-create-uncategorized-index
+  "Function that should create an `imenu' index.
+It will be called with a list of SymbolInformation or
+DocumentSymbols, whose first level is already filtered. It shall
+then return an appropriate `imenu' index (see
+`imenu-create-index-function').
+
+Note that this interface is not stable, and subject to change any
+time."
+  :group 'lsp-imenu
+  :type '(radio
+          (const :tag "Categorize by type"
+                 lsp-imenu-create-categorized-index)
+          (const :tag "Categorize root symbols by type"
+                 lsp-imenu-create-top-level-categorized-index)
+          (const :tag "Uncategorized, inline entries"
+                 lsp-imenu-create-uncategorized-index)
+          (function :tag "Custom function")))
+
+(defun lsp--imenu-create-index ()
+  "Create an `imenu' index based on the language server.
+Respects `lsp-imenu-index-function'."
+  (let ((symbols (lsp--imenu-filter-symbols (lsp--get-document-symbols))))
+    (funcall lsp-imenu-index-function symbols)))
+
+(defun lsp--imenu-filter-symbols (symbols)
+  "Filter out unsupported symbols from SYMBOLS."
+  (seq-remove #'lsp--symbol-ignore symbols))
+
+(defun lsp--imenu-hierarchical-p (symbols)
+  "Determine whether any element in SYMBOLS has children."
+  (seq-some #'lsp-document-symbol? symbols))
+
+(defun lsp--imenu-create-non-hierarchical-index (symbols)
+  "Create imenu index for non-hierarchical SYMBOLS.
+
+SYMBOLS are a list of DocumentSymbol messages.
+
+Return a nested alist keyed by symbol names. e.g.
+
+   ((\"SomeClass\" (\"(Class)\" . 10)
+                 (\"someField (Field)\" . 20)
+                 (\"someFunction (Function)\" . 25)
+                 (\"SomeSubClass\" (\"(Class)\" . 30)
+                                  (\"someSubField (Field)\" . 35))
+    (\"someFunction (Function)\" . 40))"
+  (seq-map (lambda (nested-alist)
+             (cons (car nested-alist)
+                   (seq-map #'lsp--symbol-to-imenu-elem (cdr nested-alist))))
+           (seq-group-by #'lsp--get-symbol-type symbols)))
+
+(defun lsp--imenu-create-hierarchical-index (symbols)
+  "Create imenu index for hierarchical SYMBOLS.
+
+SYMBOLS are a list of DocumentSymbol messages.
+
+Return a nested alist keyed by symbol names. e.g.
+
+   ((\"SomeClass\" (\"(Class)\" . 10)
+                 (\"someField (Field)\" . 20)
+                 (\"someFunction (Function)\" . 25)
+                 (\"SomeSubClass\" (\"(Class)\" . 30)
+                                  (\"someSubField (Field)\" . 35))
+    (\"someFunction (Function)\" . 40))"
+  (seq-map #'lsp--symbol-to-hierarchical-imenu-elem
+           (seq-sort #'lsp--imenu-symbol-lessp symbols)))
+
+(defun lsp--imenu-symbol-lessp (sym1 sym2)
+  (let* ((compare-results (mapcar (lambda (method)
+                                    (funcall (alist-get method lsp--imenu-compare-function-alist)
+                                             sym1 sym2))
+                                  lsp-imenu-sort-methods))
+         (result (seq-find (lambda (result)
+                             (not (= result 0)))
+                           compare-results
+                           0)))
+    (and (numberp result) (< result 0))))
+
+(lsp-defun lsp--imenu-compare-kind ((&SymbolInformation :kind left)
+                                    (&SymbolInformation :kind right))
+  "Compare SYM1 and SYM2 by kind."
+  (- left right))
+
+(defun lsp--imenu-compare-line-col (sym1 sym2)
+  (if (lsp--line-col-comparator
+       (lsp--get-line-and-col sym1)
+       (lsp--get-line-and-col sym2))
+      -1
+    1))
+
+(lsp-defun lsp--imenu-compare-name ((&SymbolInformation :name name1)
+                                    (&SymbolInformation :name name2))
+  "Compare SYM1 and SYM2 by name."
+  (let ((result (compare-strings name1 0 (length name1) name2 0 (length name2))))
+    (if (numberp result) result 0)))
+
+(defun lsp--imenu-refresh ()
+  "Force Imenu to refresh itself."
+  (imenu--menubar-select imenu--rescan-item))
+
+(defun lsp-enable-imenu ()
+  "Use lsp-imenu for the current buffer."
+  (imenu--cleanup)
+  (add-function :override (local 'imenu-create-index-function) #'lsp--imenu-create-index)
+  (setq-local imenu-menubar-modified-tick -1)
+  (setq-local imenu--index-alist nil)
+  (when menu-bar-mode
+    (lsp--imenu-refresh)))
+
+(defun lsp-resolve-final-command (command &optional test?)
+  "Resolve final function COMMAND."
+  (let* ((command (lsp-resolve-value command))
+         (command (cl-etypecase command
+                    (list
+                     (cl-assert (seq-every-p (apply-partially #'stringp) command) nil
+                                "Invalid command list")
+                     command)
+                    (string (list command)))))
+    (if (and (file-remote-p default-directory) (not test?))
+        (list shell-file-name "-c"
+              (string-join (cons "stty raw > /dev/null;"
+                                 (mapcar #'shell-quote-argument command))
+                           " "))
+      command)))
+
+(defun lsp-server-present? (final-command)
+  "Check whether FINAL-COMMAND is present."
+  (let ((binary-found? (executable-find (cl-first final-command) t)))
+    (if binary-found?
+        (lsp-log "Command \"%s\" is present on the path." (s-join " " final-command))
+      (lsp-log "Command \"%s\" is not present on the path." (s-join " " final-command)))
+    binary-found?))
+
+(defun lsp--value-to-string (value)
+  "Convert VALUE to a string that can be set as value in an environment
+variable."
+  (cond
+   ((stringp value) value)
+   ((booleanp value) (if value
+                         "1"
+                       "0"))
+   ((and (sequencep value)
+         (seq-every-p #'stringp value)) (string-join value ":"))
+   (t (user-error "Only strings, booleans, and sequences of strings are supported as environment variables"))))
+
+(defun lsp--compute-process-environment (environment-fn)
+  "Append a list of KEY=VALUE from the alist ENVIRONMENT to `process-environment'.
+Ignore non-boolean keys whose value is nil."
+  (let ((environment (if environment-fn
+                         (funcall environment-fn)
+                       nil)))
+    (-flatten (cons (cl-loop for (key . value) in environment
+                             if (or (eval value)
+                                    (eq (get value 'custom-type) 'boolean))
+                             collect (concat key "=" (lsp--value-to-string
+                                                      (eval value))))
+                    process-environment))))
+
+(defun lsp--default-directory-for-connection (&optional path)
+  "Return path to be used for the working directory of a LSP process.
+
+If `lsp-use-workspace-root-for-server-default-directory' is
+non-nil, uses `lsp-workspace-root' to find the directory
+corresponding to PATH, else returns `default-directory'."
+  (if lsp-use-workspace-root-for-server-default-directory
+      (lsp-workspace-root path)
+    default-directory))
+
+(defun lsp--fix-remote-cmd (program)
+  "Helper for `lsp-stdio-connection'.
+Originally coppied from eglot."
+
+  (if (file-remote-p default-directory)
+      (list shell-file-name "-c"
+            (string-join (cons "stty raw > /dev/null;"
+                               (mapcar #'shell-quote-argument program))
+                         " "))
+    program))
+
+(defvar tramp-use-ssh-controlmaster-options)
+(defvar tramp-ssh-controlmaster-options)
+
+(defun lsp-stdio-connection (command &optional test-command)
+  "Returns a connection property list using COMMAND.
+COMMAND can be: A string, denoting the command to launch the
+language server. A list of strings, denoting an executable with
+its command line arguments. A function, that either returns a
+string or a list of strings. In all cases, the launched language
+server should send and receive messages on standard I/O.
+TEST-COMMAND is a function with no arguments which returns
+whether the command is present or not. When not specified
+`lsp-mode' will check whether the first element of the list
+returned by COMMAND is available via `executable-find'"
+  (cl-check-type command (or string
+                             function
+                             (and list
+                                  (satisfies (lambda (l)
+                                               (seq-every-p (lambda (el)
+                                                              (stringp el))
+                                                            l))))))
+  (list :connect (lambda (filter sentinel name environment-fn workspace)
+                   (if (and (functionp 'json-rpc-connection)
+                            (not (file-remote-p default-directory)))
+                       (lsp-json-rpc-connection workspace (lsp-resolve-final-command command))
+                     (let ((final-command (lsp-resolve-final-command command))
+                           (process-name (generate-new-buffer-name name))
+                           (process-environment
+                            (lsp--compute-process-environment environment-fn)))
+                       (let* ((stderr-buf (get-buffer-create (format "*%s::stderr*" process-name)))
+                              (default-directory (lsp--default-directory-for-connection))
+                              (tramp-use-ssh-controlmaster-options 'suppress)
+                              (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none")
+                              (proc (make-process
+                                     :name process-name
+                                     :connection-type 'pipe
+                                     :buffer (format "*%s*" process-name)
+                                     :coding 'no-conversion
+                                     :command final-command
+                                     :filter filter
+                                     :sentinel sentinel
+                                     :stderr stderr-buf
+                                     :noquery t
+                                     :file-handler t)))
+                         (set-process-query-on-exit-flag proc nil)
+                         (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil)
+                         (with-current-buffer (get-buffer stderr-buf)
+                           ;; Make the *NAME::stderr* buffer buffer-read-only, q to bury, etc.
+                           (special-mode))
+                         (cons proc proc)))))
+        :test? (or
+                test-command
+                (lambda ()
+                  (lsp-server-present? (lsp-resolve-final-command command t))))))
+
+(defun lsp--open-network-stream (host port name)
+  "Open network stream to HOST:PORT.
+  NAME will be passed to `open-network-stream'.
+  RETRY-COUNT is the number of the retries.
+  SLEEP-INTERVAL is the sleep interval between each retry."
+  (let* ((retries 0)
+         (sleep-interval 0.01)
+         (number-of-retries (/ lsp-tcp-connection-timeout sleep-interval))
+         connection)
+    (while (and (not connection) (< retries number-of-retries))
+      (condition-case err
+          (setq connection (open-network-stream name nil host port
+                                                :type 'plain
+                                                :coding 'no-conversion))
+        (file-error
+         (let ((inhibit-message t))
+           (lsp--warn "Failed to connect to %s:%s with error message %s"
+                      host
+                      port
+                      (error-message-string err))
+           (sleep-for sleep-interval)
+           (cl-incf retries)))))
+    (or connection (error "Port %s was never taken. Consider increasing `lsp-tcp-connection-timeout'." port))))
+
+(defun lsp--port-available (host port)
+  "Return non-nil if HOST and PORT are available."
+  (condition-case _err
+      (delete-process (open-network-stream "*connection-test*" nil host port :type 'plain))
+    (file-error t)))
+
+(defun lsp--find-available-port (host starting-port)
+  "Find available port on HOST starting from STARTING-PORT."
+  (let ((port starting-port))
+    (while (not (lsp--port-available host port))
+      (cl-incf port))
+    port))
+
+(defun lsp-tcp-connection (command-fn)
+  "Returns a connection property list similar to `lsp-stdio-connection'.
+COMMAND-FN can only be a function that takes a single argument, a
+port number. It should return a command for launches a language server
+process listening for TCP connections on the provided port."
+  (cl-check-type command-fn function)
+  (list
+   :connect (lambda (filter sentinel name environment-fn _workspace)
+              (let* ((host "localhost")
+                     (port (lsp--find-available-port host (cl-incf lsp--tcp-port)))
+                     (command (funcall command-fn port))
+                     (final-command (if (consp command) command (list command)))
+                     (_ (unless (lsp-server-present? final-command)
+                          (user-error (format "Couldn't find executable %s" (cl-first final-command)))))
+                     (process-environment
+                      (lsp--compute-process-environment environment-fn))
+                     (proc (make-process :name name :connection-type 'pipe :coding 'no-conversion
+                                         :command final-command :sentinel sentinel :stderr (format "*%s::stderr*" name) :noquery t))
+                     (tcp-proc (lsp--open-network-stream host port (concat name "::tcp"))))
+
+                ;; TODO: Same :noquery issue (see above)
+                (set-process-query-on-exit-flag proc nil)
+                (set-process-query-on-exit-flag tcp-proc nil)
+                (set-process-filter tcp-proc filter)
+                (cons tcp-proc proc)))
+   :test? (lambda () (lsp-server-present? (funcall command-fn 0)))))
+
+(defalias 'lsp-tcp-server 'lsp-tcp-server-command)
+
+(defun lsp-tcp-server-command (command-fn)
+  "Create tcp server connection.
+In this mode Emacs is TCP server and the language server connects
+to it. COMMAND is function with one parameter(the port) and it
+should return the command to start the LS server."
+  (cl-check-type command-fn function)
+  (list
+   :connect (lambda (filter sentinel name environment-fn _workspace)
+              (let* (tcp-client-connection
+                     (tcp-server (make-network-process :name (format "*tcp-server-%s*" name)
+                                                       :buffer (format "*tcp-server-%s*" name)
+                                                       :family 'ipv4
+                                                       :service lsp--tcp-server-port
+                                                       :sentinel (lambda (proc _string)
+                                                                   (lsp-log "Language server %s is connected." name)
+                                                                   (setf tcp-client-connection proc))
+                                                       :server 't))
+                     (port (process-contact tcp-server :service))
+                     (final-command (funcall command-fn port))
+                     (process-environment
+                      (lsp--compute-process-environment environment-fn))
+                     (cmd-proc (make-process :name name
+                                             :connection-type 'pipe
+                                             :coding 'no-conversion
+                                             :command final-command
+                                             :stderr (format "*tcp-server-%s*::stderr" name)
+                                             :noquery t)))
+                (let ((retries 0))
+                  ;; wait for the client to connect (we sit-for 500 ms, so have to double lsp--tcp-server-wait-seconds)
+                  (while (and (not tcp-client-connection) (< retries (* 2 lsp--tcp-server-wait-seconds)))
+                    (lsp--info "Waiting for connection for %s, retries: %s" name retries)
+                    (sit-for 0.500)
+                    (cl-incf retries)))
+
+                (unless tcp-client-connection
+                  (condition-case nil (delete-process tcp-server) (error))
+                  (condition-case nil (delete-process cmd-proc) (error))
+                  (error "Failed to create connection to %s on port %s" name port))
+                (lsp--info "Successfully connected to %s" name)
+
+                (set-process-query-on-exit-flag cmd-proc nil)
+                (set-process-query-on-exit-flag tcp-client-connection nil)
+                (set-process-query-on-exit-flag tcp-server nil)
+
+                (set-process-filter tcp-client-connection filter)
+                (set-process-sentinel tcp-client-connection sentinel)
+                (cons tcp-client-connection cmd-proc)))
+   :test? (lambda () (lsp-server-present? (funcall command-fn 0)))))
+
+(defalias 'lsp-tramp-connection 'lsp-stdio-connection)
+
+(defun lsp--auto-configure ()
+  "Autoconfigure `company', `flycheck', `lsp-ui', etc if they are installed."
+  (when (functionp 'lsp-ui-mode)
+    (lsp-ui-mode))
+
+  (if lsp-headerline-breadcrumb-enable
+      (add-hook 'lsp-configure-hook 'lsp-headerline-breadcrumb-mode)
+    (remove-hook 'lsp-configure-hook 'lsp-headerline-breadcrumb-mode))
+  (if lsp-modeline-code-actions-enable
+      (add-hook 'lsp-configure-hook 'lsp-modeline-code-actions-mode)
+    (remove-hook 'lsp-configure-hook 'lsp-modeline-code-actions-mode))
+  (if lsp-modeline-diagnostics-enable
+      (add-hook 'lsp-configure-hook 'lsp-modeline-diagnostics-mode)
+    (remove-hook 'lsp-configure-hook 'lsp-modeline-diagnostics-mode))
+  (if lsp-modeline-workspace-status-enable
+      (add-hook 'lsp-configure-hook 'lsp-modeline-workspace-status-mode)
+    (remove-hook 'lsp-configure-hook 'lsp-modeline-workspace-status-mode))
+  (if lsp-lens-enable
+      (add-hook 'lsp-configure-hook 'lsp-lens--enable)
+    (remove-hook 'lsp-configure-hook 'lsp-lens--enable))
+  (if lsp-semantic-tokens-enable
+      (add-hook 'lsp-configure-hook 'lsp-semantic-tokens--enable)
+    (remove-hook 'lsp-configure-hook 'lsp-semantic-tokens--enable))
+
+  ;; yas-snippet config
+  (setq-local yas-inhibit-overlay-modification-protection t))
+
+(defun lsp--restart-if-needed (workspace)
+  "Handler restart for WORKSPACE."
+  (when (or (eq lsp-restart 'auto-restart)
+            (eq (lsp--workspace-shutdown-action workspace) 'restart)
+            (and (eq lsp-restart 'interactive)
+                 (let ((query (format
+                               "Server %s exited (check corresponding stderr buffer for details). Do you want to restart it?"
+                               (lsp--workspace-print workspace))))
+                   (y-or-n-p query))))
+    (--each (lsp--workspace-buffers workspace)
+      (when (lsp-buffer-live-p it)
+        (lsp-with-current-buffer it
+          (if lsp--buffer-deferred
+              (lsp-deferred)
+            (lsp--info "Restarting LSP in buffer %s" (buffer-name))
+            (lsp)))))))
+
+(defun lsp--update-key (table key fn)
+  "Apply FN on value corresponding to KEY in TABLE."
+  (let ((existing-value (gethash key table)))
+    (if-let* ((new-value (funcall fn existing-value)))
+        (puthash key new-value table)
+      (remhash key table))))
+
+(defun lsp--process-sentinel (workspace process exit-str)
+  "Create the sentinel for WORKSPACE."
+  (unless (process-live-p process)
+    (lsp--handle-process-exit workspace exit-str)))
+
+(defun lsp--handle-process-exit (workspace exit-str)
+  (let* ((folder->workspaces (lsp-session-folder->servers (lsp-session)))
+         (proc (lsp--workspace-proc workspace)))
+    (lsp--warn "%s has exited (%s)"
+               (lsp-process-name proc)
+               (string-trim-right (or exit-str "")))
+    (with-lsp-workspace workspace
+      ;; Clean workspace related data in each of the buffers
+      ;; in the workspace.
+      (--each (lsp--workspace-buffers workspace)
+        (when (lsp-buffer-live-p it)
+          (lsp-with-current-buffer it
+            (setq lsp--buffer-workspaces (delete workspace lsp--buffer-workspaces))
+            (lsp--uninitialize-workspace)
+            (lsp--spinner-stop)
+            (lsp--remove-overlays 'lsp-highlight))))
+
+      ;; Cleanup session from references to the closed workspace.
+      (--each (hash-table-keys folder->workspaces)
+        (lsp--update-key folder->workspaces it (apply-partially 'delete workspace)))
+
+      (lsp-process-cleanup proc))
+
+    (run-hook-with-args 'lsp-after-uninitialized-functions workspace)
+
+    (if (eq (lsp--workspace-shutdown-action workspace) 'shutdown)
+        (lsp--info "Workspace %s shutdown." (lsp--workspace-print workspace))
+      (lsp--restart-if-needed workspace))
+    (lsp--cleanup-hanging-watches)))
+
+(defun lsp-workspace-folders (workspace)
+  "Return all folders associated with WORKSPACE."
+  (let (result)
+    (->> (lsp-session)
+         (lsp-session-folder->servers)
+         (maphash (lambda (folder workspaces)
+                    (when (-contains? workspaces workspace)
+                      (push folder result)))))
+    result))
+
+(defun lsp--start-workspace (session client-template root &optional initialization-options)
+  "Create new workspace for CLIENT-TEMPLATE with project root ROOT.
+INITIALIZATION-OPTIONS are passed to initialize function.
+SESSION is the active session."
+  (lsp--spinner-start)
+  (-let* ((default-directory root)
+          (client (copy-lsp--client client-template))
+          (workspace (make-lsp--workspace
+                      :root root
+                      :client client
+                      :status 'starting
+                      :buffers (list (lsp-current-buffer))
+                      :host-root (file-remote-p root)))
+          ((&lsp-cln 'server-id 'environment-fn 'new-connection 'custom-capabilities
+                     'multi-root 'initialized-fn) client)
+          ((proc . cmd-proc) (funcall
+                              (or (plist-get new-connection :connect)
+                                  (user-error "Client %s is configured incorrectly" client))
+                              (lsp--create-filter-function workspace)
+                              (apply-partially #'lsp--process-sentinel workspace)
+                              (format "%s" server-id)
+                              environment-fn
+                              workspace))
+          (workspace-folders (gethash server-id (lsp-session-server-id->folders session))))
+    (setf (lsp--workspace-proc workspace) proc
+          (lsp--workspace-cmd-proc workspace) cmd-proc)
+
+    ;; update (lsp-session-folder->servers) depending on whether we are starting
+    ;; multi/single folder workspace
+    (mapc (lambda (project-root)
+            (->> session
+                 (lsp-session-folder->servers)
+                 (gethash project-root)
+                 (cl-pushnew workspace)))
+          (or workspace-folders (list root)))
+
+    (with-lsp-workspace workspace
+      (run-hooks 'lsp-before-initialize-hook)
+      (lsp-request-async
+       "initialize"
+       (append
+        (list :processId (unless (file-remote-p (buffer-file-name))
+                           (emacs-pid))
+              :rootPath (lsp-file-local-name (expand-file-name root))
+              :clientInfo (list :name "emacs"
+                                :version (emacs-version))
+              :rootUri (lsp--path-to-uri root)
+              :capabilities (lsp--client-capabilities custom-capabilities)
+              :initializationOptions initialization-options
+              :workDoneToken "1")
+        (when lsp-server-trace
+          (list :trace lsp-server-trace))
+        (when multi-root
+          (->> workspace-folders
+               (-distinct)
+               (-map (lambda (folder)
+                       (list :uri (lsp--path-to-uri folder)
+                             :name (f-filename folder))))
+               (apply 'vector)
+               (list :workspaceFolders))))
+       (-lambda ((&InitializeResult :capabilities))
+         ;; we know that Rust Analyzer will send {} which will be parsed as null
+         ;; when using plists
+         (when (equal 'rust-analyzer server-id)
+           (-> capabilities
+               (lsp:server-capabilities-text-document-sync?)
+               (lsp:set-text-document-sync-options-save? t)))
+
+         (setf (lsp--workspace-server-capabilities workspace) capabilities
+               (lsp--workspace-status workspace) 'initialized)
+
+         (with-lsp-workspace workspace
+           (lsp-notify "initialized" lsp--empty-ht))
+
+         (when initialized-fn (funcall initialized-fn workspace))
+
+         (cl-callf2 -filter #'lsp-buffer-live-p (lsp--workspace-buffers workspace))
+         (->> workspace
+              (lsp--workspace-buffers)
+              (mapc (lambda (buffer)
+                      (lsp-with-current-buffer buffer
+                        (lsp--open-in-workspace workspace)))))
+
+         (with-lsp-workspace workspace
+           (run-hooks 'lsp-after-initialize-hook))
+         (lsp--info "%s initialized successfully in folders: %s"
+                    (lsp--workspace-print workspace)
+                    (lsp-workspace-folders workspace)))
+       :mode 'detached))
+    workspace))
+
+(defun lsp--load-default-session ()
+  "Load default session."
+  (setq lsp--session (or (condition-case err
+                             (lsp--read-from-file lsp-session-file)
+                           (error (lsp--error "Failed to parse the session %s, starting with clean one."
+                                              (error-message-string err))
+                                  nil))
+                         (make-lsp-session))))
+
+(defun lsp-session ()
+  "Get the session associated with the current buffer."
+  (or lsp--session (setq lsp--session (lsp--load-default-session))))
+
+(defun lsp--client-disabled-p (buffer-major-mode client)
+  (seq-some
+   (lambda (entry)
+     (pcase entry
+       ((pred symbolp) (eq entry client))
+       (`(,mode . ,client-or-list)
+        (and (eq mode buffer-major-mode)
+             (if (listp client-or-list)
+                 (memq client client-or-list)
+               (eq client client-or-list))))))
+   lsp-disabled-clients))
+
+
+;; download server
+
+(defcustom lsp-server-install-dir (expand-file-name
+                                   (locate-user-emacs-file (f-join ".cache" "lsp")))
+  "Directory in which the servers will be installed."
+  :risky t
+  :type 'directory
+  :package-version '(lsp-mode . "6.3")
+  :group 'lsp-mode)
+
+(defcustom lsp-verify-signature t
+  "Whether to check GPG signatures of downloaded files."
+  :type 'boolean
+  :package-version '(lsp-mode . "8.0.0")
+  :group 'lsp-mode)
+
+(defvar lsp--dependencies (ht))
+
+(defun lsp-dependency (name &rest definitions)
+  "Used to specify a language server DEPENDENCY, the server
+executable or other required file path. Typically, the
+DEPENDENCY is found by locating it on the system path using
+`executable-find'.
+
+You can explicitly call lsp-dependency in your environment to
+specify the absolute path to the DEPENDENCY. For example, the
+typescript-language-server requires both the server and the
+typescript compiler. If you have installed them in a team shared
+read-only location, you can instruct lsp-mode to use them via
+
+ (eval-after-load `lsp-mode
+   `(progn
+      (require lsp-javascript)
+      (lsp-dependency typescript-language-server (:system ,tls-exe))
+      (lsp-dependency typescript (:system ,ts-js))))
+
+where tls-exe is the absolute path to the typescript-language-server
+executable and ts-js is the absolute path to the typescript compiler
+JavaScript file, tsserver.js (the *.js is required for Windows)."
+  (ht-set lsp--dependencies name definitions))
+
+(defun lsp--server-binary-present? (client)
+  (unless (equal (lsp--client-server-id client) 'lsp-pwsh)
+    (condition-case ()
+        (-some-> client lsp--client-new-connection (plist-get :test?) funcall)
+      (error nil)
+      (args-out-of-range nil))))
+
+(define-minor-mode lsp-installation-buffer-mode
+  "Mode used in *lsp-installation* buffers.
+It can be used to set-up keybindings, etc. Disabling this mode
+detaches the installation buffer from commands like
+`lsp-select-installation-buffer'."
+  :init-value nil
+  :lighter nil)
+
+(defface lsp-installation-finished-buffer-face '((t :foreground "orange"))
+  "Face used for finished installation buffers.
+Used in `lsp-select-installation-buffer'."
+  :group 'lsp-mode)
+
+(defface lsp-installation-buffer-face '((t :foreground "green"))
+  "Face used for installation buffers still in progress.
+Used in `lsp-select-installation-buffer'."
+  :group 'lsp-mode)
+
+(defun lsp--installation-buffer? (buf)
+  "Check whether BUF is an `lsp-async-start-process' buffer."
+  (buffer-local-value 'lsp-installation-buffer-mode buf))
+
+(defun lsp-select-installation-buffer (&optional show-finished)
+  "Interactively choose an installation buffer.
+If SHOW-FINISHED is set, leftover (finished) installation buffers
+are still shown."
+  (interactive "P")
+  (let ((bufs (--filter (and (lsp--installation-buffer? it)
+                             (or show-finished (get-buffer-process it)))
+                        (buffer-list))))
+    (pcase bufs
+      (`nil (user-error "No installation buffers"))
+      (`(,buf) (pop-to-buffer buf))
+      (bufs (pop-to-buffer (completing-read "Select installation buffer: "
+                                            (--map (propertize (buffer-name it) 'face
+                                                               (if (get-buffer-process it)
+                                                                   'lsp-installation-buffer-face
+                                                                 'lsp-installation-finished-buffer-face))
+                                                   bufs)))))))
+
+(defun lsp-cleanup-installation-buffers ()
+  "Delete finished *lsp-installation* buffers."
+  (interactive)
+  (dolist (buf (buffer-list))
+    (when (and (lsp--installation-buffer? buf) (not (get-buffer-process buf)))
+      (kill-buffer buf))))
+
+(defun lsp--download-status ()
+  (-some--> #'lsp--client-download-in-progress?
+    (lsp--filter-clients it)
+    (-map (-compose #'symbol-name #'lsp--client-server-id) it)
+    (format "%s" it)
+    (propertize it 'face 'success)
+    (format " Installing following servers: %s" it)
+    (propertize it
+                'local-map (make-mode-line-mouse-map
+                            'mouse-1 #'lsp-select-installation-buffer)
+                'mouse-face 'highlight)))
+
+(defun lsp--install-server-internal (client &optional update?)
+  (unless (lsp--client-download-server-fn client)
+    (user-error "There is no automatic installation for `%s', you have to install it manually following lsp-mode's documentation."
+                (lsp--client-server-id client)))
+
+  (setf (lsp--client-download-in-progress? client) t)
+  (add-to-list 'global-mode-string '(t (:eval (lsp--download-status))))
+  (cl-flet ((done
+             (success? &optional error-message)
+             ;; run with idle timer to make sure the lsp command is executed in
+             ;; the main thread, see #2739.
+             (run-with-timer
+              0.0
+              nil
+              (lambda ()
+                (-let [(&lsp-cln 'server-id 'buffers) client]
+                  (setf (lsp--client-download-in-progress? client) nil
+                        (lsp--client-buffers client) nil)
+                  (if success?
+                      (lsp--info "Server %s downloaded, auto-starting in %s buffers." server-id
+                                 (length buffers))
+                    (lsp--error "Server %s install process failed with the following error message: %s.
+Check `*lsp-install*' and `*lsp-log*' buffer."
+                                server-id
+                                error-message))
+                  (seq-do
+                   (lambda (buffer)
+                     (when (lsp-buffer-live-p buffer)
+                       (lsp-with-current-buffer buffer
+                         (cl-callf2 -remove-item '(t (:eval (lsp--download-status)))
+                                    global-mode-string)
+                         (when success? (lsp)))))
+                   buffers)
+                  (unless (lsp--filter-clients #'lsp--client-download-in-progress?)
+                    (cl-callf2 -remove-item '(t (:eval (lsp--download-status)))
+                               global-mode-string)))))))
+    (lsp--info "Download %s started." (lsp--client-server-id client))
+    (condition-case err
+        (funcall
+         (lsp--client-download-server-fn client)
+         client
+         (lambda () (done t))
+         (lambda (msg) (done nil msg))
+         update?)
+      (error
+       (done nil (error-message-string err))))))
+
+(defun lsp--require-packages ()
+  "Load `lsp-client-packages' if needed."
+  (when (and lsp-auto-configure (not lsp--client-packages-required))
+    (seq-do (lambda (package)
+              ;; loading client is slow and `lsp' can be called repeatedly
+              (unless (featurep package)
+                (require package nil t)))
+            lsp-client-packages)
+    (setq lsp--client-packages-required t)))
+
+;;;###autoload
+(defun lsp-install-server (update? &optional server-id)
+  "Interactively install or re-install server.
+When prefix UPDATE? is t force installation even if the server is present."
+  (interactive "P")
+  (lsp--require-packages)
+  (let* ((chosen-client (or (gethash server-id lsp-clients)
+                            (lsp--completing-read
+                             "Select server to install/re-install: "
+                             (or (->> lsp-clients
+                                      (ht-values)
+                                      (-filter (-andfn
+                                                (-not #'lsp--client-download-in-progress?)
+                                                #'lsp--client-download-server-fn)))
+                                 (user-error "There are no servers with automatic installation"))
+                             (lambda (client)
+                               (let ((server-name (-> client lsp--client-server-id symbol-name)))
+                                 (if (lsp--server-binary-present? client)
+                                     (concat server-name " (Already installed)")
+                                   server-name)))
+                             nil
+                             t)))
+         (update? (or update?
+                      (and (not (lsp--client-download-in-progress? chosen-client))
+                           (lsp--server-binary-present? chosen-client)))))
+    (lsp--install-server-internal chosen-client update?)))
+
+;;;###autoload
+(defun lsp-uninstall-server (dir)
+  "Delete a LSP server from `lsp-server-install-dir'."
+  (interactive
+   (list (read-directory-name "Uninstall LSP server: " (f-slash lsp-server-install-dir))))
+  (unless (file-directory-p dir)
+    (user-error "Couldn't find %s directory" dir))
+  (delete-directory dir 'recursive)
+  (message "Server `%s' uninstalled." (file-name-nondirectory (directory-file-name dir))))
+
+;;;###autoload
+(defun lsp-uninstall-servers ()
+  "Uninstall all installed servers."
+  (interactive)
+  (let* ((dir lsp-server-install-dir)
+         (servers (ignore-errors
+                    (directory-files dir t
+                                     directory-files-no-dot-files-regexp))))
+    (if (or (not (file-directory-p dir)) (zerop (length servers)))
+        (user-error "No servers to uninstall")
+      (when (yes-or-no-p
+             (format "Servers to uninstall: %d (%s), proceed? "
+                     (length servers)
+                     (mapconcat (lambda (server)
+                                  (file-name-nondirectory (directory-file-name server)))
+                                servers " ")))
+        (mapc #'lsp-uninstall-server servers)
+        (message "All servers uninstalled")))))
+
+;;;###autoload
+(defun lsp-update-server (&optional server-id)
+  "Interactively update (reinstall) a server."
+  (interactive)
+  (lsp--require-packages)
+  (let ((chosen-client (or (gethash server-id lsp-clients)
+                           (lsp--completing-read
+                            "Select server to update (if not on the list, probably you need to `lsp-install-server`): "
+                            (or (->> lsp-clients
+                                     (ht-values)
+                                     (-filter (-andfn
+                                               (-not #'lsp--client-download-in-progress?)
+                                               #'lsp--client-download-server-fn
+                                               #'lsp--server-binary-present?)))
+                                (user-error "There are no servers to update"))
+                            (lambda (client)
+                              (-> client lsp--client-server-id symbol-name))
+                            nil
+                            t))))
+    (lsp--install-server-internal chosen-client t)))
+
+;;;###autoload
+(defun lsp-update-servers ()
+  "Update (reinstall) all installed servers."
+  (interactive)
+  (lsp--require-packages)
+  (mapc (lambda (client) (lsp--install-server-internal client t))
+        (-filter (-andfn
+                  (-not #'lsp--client-download-in-progress?)
+                  #'lsp--client-download-server-fn
+                  #'lsp--server-binary-present?) (hash-table-values lsp-clients))))
+
+;;;###autoload
+(defun lsp-ensure-server (server-id)
+  "Ensure server SERVER-ID"
+  (lsp--require-packages)
+  (if-let* ((client (gethash server-id lsp-clients)))
+      (unless (lsp--server-binary-present? client)
+        (lsp--info "Server `%s' is not preset, installing..." server-id)
+        (lsp-install-server nil server-id))
+    (warn "Unable to find server registration with id %s" server-id)))
+
+(defun lsp-async-start-process (callback error-callback &rest command)
+  "Start async process COMMAND with CALLBACK and ERROR-CALLBACK."
+  (let ((name (cl-first command)))
+    (with-current-buffer (compilation-start (mapconcat #'shell-quote-argument (-filter (lambda (cmd)
+                                                                                         (not (null cmd)))
+                                                                                       command)
+                                                       " ") t
+                                            (lambda (&rest _)
+                                              (generate-new-buffer-name (format "*lsp-install: %s*" name))))
+      (lsp-installation-buffer-mode +1)
+      (view-mode +1)
+      (add-hook
+       'compilation-finish-functions
+       (lambda (_buf status)
+         (if (string= "finished\n" status)
+             (condition-case err
+                 (funcall callback)
+               (error
+                (funcall error-callback (error-message-string err))))
+           (funcall error-callback (s-trim-right status))))
+       nil t))))
+
+(defun lsp-resolve-value (value)
+  "Resolve VALUE's value.
+If it is function - call it.
+If it is a variable - return it's value
+Otherwise returns value itself."
+  (cond
+   ((functionp value) (funcall value))
+   ((and (symbolp value) (boundp value)) (symbol-value value))
+   (value)))
+
+(defvar lsp-deps-providers
+  (list :npm (list :path #'lsp--npm-dependency-path
+                   :install #'lsp--npm-dependency-install)
+        :cargo (list :path #'lsp--cargo-dependency-path
+                     :install #'lsp--cargo-dependency-install)
+        :system (list :path #'lsp--system-path)
+        :download (list :path #'lsp-download-path
+                        :install #'lsp-download-install)))
+
+(defun lsp--system-path (path)
+  "If PATH is absolute and exists return it as is. Otherwise,
+return the absolute path to the executable defined by PATH or
+nil."
+  ;; For node.js 'sub-packages' PATH may point to a *.js file. Consider the
+  ;; typescript-language-server. When lsp invokes the server, lsp needs to
+  ;; supply the path to the typescript compiler, tsserver.js, as an argument. To
+  ;; make code platform independent, one must pass the absolute path to the
+  ;; tsserver.js file (Windows requires a *.js file - see help on the JavaScript
+  ;; child process spawn command that is invoked by the
+  ;; typescript-language-server). This is why we check for existence and not
+  ;; that the path is executable.
+  (let ((path (lsp-resolve-value path)))
+    (cond
+     ((and (f-absolute? path)
+           (f-exists? path))
+      path)
+     ((executable-find path t) path))))
+
+(defun lsp-package-path (dependency)
+  "Path to the DEPENDENCY each of the registered providers."
+  (let (path)
+    (--first (-let [(provider . rest) it]
+              (setq path (-some-> lsp-deps-providers
+                           (plist-get provider)
+                           (plist-get :path)
+                           (apply rest))))
+             (gethash dependency lsp--dependencies))
+    path))
+
+(defun lsp-package-ensure (dependency callback error-callback)
+  "Asynchronously ensure a package."
+  (or (-first (-lambda ((provider . rest))
+                (-some-> lsp-deps-providers
+                  (plist-get provider)
+                  (plist-get :install)
+                  (apply (cl-list* callback error-callback rest))))
+              (gethash dependency lsp--dependencies))
+      (funcall error-callback (format "Unable to find a way to install %s" dependency))))
+
+
+;; npm handling
+
+;; https://docs.npmjs.com/files/folders#executables
+(cl-defun lsp--npm-dependency-path (&key package path &allow-other-keys)
+  "Return npm dependency PATH for PACKAGE."
+  (let ((path (executable-find
+               (f-join lsp-server-install-dir "npm" package
+                       (cond ((eq system-type 'windows-nt) "")
+                             (t "bin"))
+                       path)
+               t)))
+    (unless (and path (f-exists? path))
+      (error "The package %s is not installed.  Unable to find %s" package path))
+    path))
+
+(cl-defun lsp--npm-dependency-install (callback error-callback &key package &allow-other-keys)
+  (if-let* ((npm-binary (executable-find "npm")))
+      (progn
+        ;; Explicitly `make-directory' to work around NPM bug in
+        ;; versions 7.0.0 through 7.4.1. See
+        ;; https://github.com/emacs-lsp/lsp-mode/issues/2364 for
+        ;; discussion.
+        (make-directory (f-join lsp-server-install-dir "npm" package "lib") 'parents)
+        (lsp-async-start-process (lambda ()
+                                   (if (string-empty-p
+                                        (string-trim (shell-command-to-string
+                                                      (mapconcat #'shell-quote-argument `(,npm-binary "view" ,package "peerDependencies") " "))))
+                                       (funcall callback)
+                                     (let ((default-directory (f-dirname (car (last (directory-files-recursively (f-join lsp-server-install-dir "npm" package) "package.json")))))
+                                           (process-environment (append '("npm_config_yes=true") process-environment))) ;; Disable prompting for older versions of npx
+                                       (when (f-dir-p default-directory)
+                                         (lsp-async-start-process callback
+                                                                  error-callback
+                                                                  (executable-find "npx")
+                                                                  "npm-install-peers")))))
+                                 error-callback
+                                 npm-binary
+                                 "-g"
+                                 "--prefix"
+                                 (f-join lsp-server-install-dir "npm" package)
+                                 "install"
+                                 package))
+    (lsp-log "Unable to install %s via `npm' because it is not present" package)
+    nil))
+
+
+;; Cargo dependency handling
+(cl-defun lsp--cargo-dependency-path (&key package path &allow-other-keys)
+  (let ((path (executable-find
+               (f-join lsp-server-install-dir
+                       "cargo"
+                       package
+                       "bin"
+                       path)
+               t)))
+    (unless (and path (f-exists? path))
+      (error "The package %s is not installed.  Unable to find %s" package path))
+    path))
+
+(cl-defun lsp--cargo-dependency-install (callback error-callback &key package git &allow-other-keys)
+  (if-let* ((cargo-binary (executable-find "cargo")))
+      (lsp-async-start-process
+       callback
+       error-callback
+       cargo-binary
+       "install"
+       package
+       (when git
+         "--git")
+       git
+       "--root"
+       (f-join lsp-server-install-dir "cargo" package))
+    (lsp-log "Unable to install %s via `cargo' because it is not present" package)
+    nil))
+
+
+
+;; Download URL handling
+(cl-defun lsp-download-install (callback error-callback &key url asc-url pgp-key store-path decompress &allow-other-keys)
+  (let* ((url (lsp-resolve-value url))
+         (store-path (lsp-resolve-value store-path))
+         ;; (decompress (lsp-resolve-value decompress))
+         (download-path
+          (pcase decompress
+            (:gzip (concat store-path ".gz"))
+            (:zip (concat store-path ".zip"))
+            (:targz (concat store-path ".tar.gz"))
+            (`nil store-path)
+            (_ (error ":decompress must be `:gzip', `:zip', `:targz' or `nil'")))))
+    (make-thread
+     (lambda ()
+       (condition-case err
+           (progn
+             (when (f-exists? download-path)
+               (f-delete download-path))
+             (when (f-exists? store-path)
+               (f-delete store-path))
+             (lsp--info "Starting to download %s to %s..." url download-path)
+             (mkdir (f-parent download-path) t)
+             (url-copy-file url download-path)
+             (lsp--info "Finished downloading %s..." download-path)
+             (when (and lsp-verify-signature asc-url pgp-key)
+               (if (executable-find epg-gpg-program)
+                   (let ((asc-download-path (concat download-path ".asc"))
+                         (context (epg-make-context))
+                         (fingerprint)
+                         (signature))
+                     (when (f-exists? asc-download-path)
+                       (f-delete asc-download-path))
+                     (lsp--info "Starting to download %s to %s..." asc-url asc-download-path)
+                     (url-copy-file asc-url asc-download-path)
+                     (lsp--info "Finished downloading %s..." asc-download-path)
+                     (epg-import-keys-from-string context pgp-key)
+                     (setq fingerprint (epg-import-status-fingerprint
+                                        (car
+                                         (epg-import-result-imports
+                                          (epg-context-result-for context 'import)))))
+                     (lsp--info "Verifying signature %s..." asc-download-path)
+                     (epg-verify-file context asc-download-path download-path)
+                     (setq signature (car (epg-context-result-for context 'verify)))
+                     (unless (and
+                              (eq (epg-signature-status signature) 'good)
+                              (equal (epg-signature-fingerprint signature) fingerprint))
+                       (error "Failed to verify GPG signature: %s" (epg-signature-to-string signature))))
+                 (lsp--warn "GPG is not installed, skipping the signature check.")))
+             (when decompress
+               (lsp--info "Decompressing %s..." download-path)
+               (pcase decompress
+                 (:gzip
+                  (lsp-gunzip download-path))
+                 (:zip (lsp-unzip download-path (f-parent store-path)))
+                 (:targz (lsp-tar-gz-decompress download-path (f-parent store-path))))
+               (lsp--info "Decompressed %s..." store-path))
+             (funcall callback))
+         (error (funcall error-callback err)))))))
+
+(cl-defun lsp-download-path (&key store-path binary-path set-executable? &allow-other-keys)
+  "Download URL and store it into STORE-PATH.
+
+SET-EXECUTABLE? when non-nil change the executable flags of
+STORE-PATH to make it executable. BINARY-PATH can be specified
+when the binary to start does not match the name of the
+archive (e.g. when the archive has multiple files)"
+  (let ((store-path (or (lsp-resolve-value binary-path)
+                        (lsp-resolve-value store-path))))
+    (cond
+     ((executable-find store-path) store-path)
+     ((and set-executable? (f-exists? store-path))
+      (set-file-modes store-path #o0700)
+      store-path)
+     ((f-exists? store-path) store-path))))
+
+(defun lsp--find-latest-gh-release-url (url regex)
+  "Fetch the latest version in the releases given by URL by using REGEX."
+  (let ((url-request-method "GET"))
+    (with-current-buffer (url-retrieve-synchronously url)
+      (goto-char (point-min))
+      (re-search-forward "\n\n" nil 'noerror)
+      (delete-region (point-min) (point))
+      (let* ((json-result (lsp-json-read-buffer)))
+        (message "Latest version found: %s" (lsp-get json-result :tag_name))
+        (--> json-result
+             (lsp-get it :assets)
+             (seq-find (lambda (entry) (string-match-p regex (lsp-get entry :name))) it)
+             (lsp-get it :browser_download_url))))))
+
+;; unzip
+
+(defconst lsp-ext-pwsh-script "pwsh -noprofile -noninteractive \
+-nologo -ex bypass -c Expand-Archive -Path '%s' -DestinationPath '%s'"
+  "Pwsh script to unzip file.")
+
+(defconst lsp-ext-powershell-script "powershell -noprofile -noninteractive \
+-nologo -ex bypass -command Expand-Archive -path '%s' -dest '%s'"
+  "Powershell script to unzip file.")
+
+(defconst lsp-ext-unzip-script "bash -c 'mkdir -p %2$s && unzip -qq -o %1$s -d %2$s'"
+  "Unzip script to unzip file.")
+
+(defcustom lsp-unzip-script (lambda ()
+                              (cond ((and (eq system-type 'windows-nt)
+                                          (executable-find "pwsh"))
+                                     lsp-ext-pwsh-script)
+                                    ((and (eq system-type 'windows-nt)
+                                          (executable-find "powershell"))
+                                     lsp-ext-powershell-script)
+                                    ((executable-find "unzip") lsp-ext-unzip-script)
+                                    ((executable-find "pwsh") lsp-ext-pwsh-script)
+                                    (t nil)))
+  "The script to unzip."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defun lsp-unzip (zip-file dest)
+  "Unzip ZIP-FILE to DEST."
+  (unless lsp-unzip-script
+    (error "Unable to find `unzip' or `powershell' on the path, please customize `lsp-unzip-script'"))
+  (shell-command (format (lsp-resolve-value lsp-unzip-script) zip-file dest)))
+
+;; gunzip
+
+(defconst lsp-ext-gunzip-script "gzip -d %1$s"
+  "Script to decompress a gzippped file with gzip.")
+
+(defcustom lsp-gunzip-script (lambda ()
+                               (cond ((executable-find "gzip") lsp-ext-gunzip-script)
+                                     (t nil)))
+  "The script to decompress a gzipped file.
+Should be a format string with one argument for the file to be decompressed
+in place."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defun lsp-gunzip (gz-file)
+  "Decompress GZ-FILE in place."
+  (unless lsp-gunzip-script
+    (error "Unable to find `gzip' on the path, please either customize `lsp-gunzip-script' or manually decompress %s" gz-file))
+  (shell-command (format (lsp-resolve-value lsp-gunzip-script) gz-file)))
+
+;; tar.gz decompression
+
+(defconst lsp-ext-tar-script "bash -c 'mkdir -p %2$s; tar xf %1$s --directory=%2$s'"
+  "Script to decompress a .tar.gz file.")
+
+(defcustom lsp-tar-script (lambda ()
+                            (cond ((executable-find "tar") lsp-ext-tar-script)
+                                  (t nil)))
+  "The script to decompress a .tar.gz file.
+Should be a format string with one argument for the file to be decompressed
+in place."
+  :group 'lsp-mode
+  :type 'string)
+
+(defun lsp-tar-gz-decompress (targz-file dest)
+  "Decompress TARGZ-FILE in DEST."
+  (unless lsp-tar-script
+    (error "Unable to find `tar' on the path, please either customize `lsp-tar-script' or manually decompress %s" targz-file))
+  (shell-command (format (lsp-resolve-value lsp-tar-script) targz-file dest)))
+
+
+;; VSCode marketplace
+
+(defcustom lsp-vscode-ext-url
+  "https://marketplace.visualstudio.com/_apis/public/gallery/publishers/%s/vsextensions/%s/%s/vspackage%s"
+  "Vscode extension template url."
+  :group 'lsp-mode
+  :type 'string
+  :package-version '(lsp-mode . "8.0.0"))
+
+(defun lsp-vscode-extension-url (publisher name version &optional targetPlatform)
+  "Return the URL to vscode extension.
+PUBLISHER is the extension publisher.
+NAME is the name of the extension.
+VERSION is the version of the extension.
+TARGETPLATFORM is the targetPlatform of the extension."
+  (format lsp-vscode-ext-url publisher name version (or targetPlatform "")))
+
+
+
+;; Queueing prompts
+
+(defvar lsp--question-queue nil
+  "List of questions yet to be asked by `lsp-ask-question'.")
+
+(defun lsp-ask-question (question options callback)
+  "Prompt the user to answer the QUESTION with one of the OPTIONS from the
+minibuffer. Once the user selects an option, the CALLBACK function will be
+called, passing the selected option to it.
+
+If the user is currently being shown a question, the question will be stored in
+`lsp--question-queue', and will be asked once the user has answered the current
+question."
+  (add-to-list 'lsp--question-queue `(("question" . ,question)
+                                      ("options" . ,options)
+                                      ("callback" . ,callback)) t)
+  (when (eq (length lsp--question-queue) 1)
+    (lsp--process-question-queue)))
+
+(defun lsp--process-question-queue ()
+  "Take the first question from `lsp--question-queue', process it, then process
+the next question until the queue is empty."
+  (-let* (((&alist "question" "options" "callback") (car lsp--question-queue))
+          (answer (completing-read question options nil t)))
+    (pop lsp--question-queue)
+    (funcall callback answer)
+    (when lsp--question-queue
+      (lsp--process-question-queue))))
+
+(defun lsp--supports-buffer? (client)
+  (and
+   ;; both file and client remote or both local
+   (eq (---truthy? (file-remote-p (buffer-file-name)))
+       (---truthy? (lsp--client-remote? client)))
+
+   ;; activation function or major-mode match.
+   (if-let* ((activation-fn (lsp--client-activation-fn client)))
+       (funcall activation-fn (buffer-file-name) major-mode)
+     (-contains? (lsp--client-major-modes client) major-mode))
+
+   ;; check whether it is enabled if `lsp-enabled-clients' is not null
+   (or (null lsp-enabled-clients)
+       (or (member (lsp--client-server-id client) lsp-enabled-clients)
+           (ignore (lsp--info "Client %s is not in lsp-enabled-clients"
+                              (lsp--client-server-id client)))))
+
+   ;; check whether it is not disabled.
+   (not (lsp--client-disabled-p major-mode (lsp--client-server-id client)))))
+
+(defun lsp--filter-clients (pred)
+  (->> lsp-clients hash-table-values (-filter pred)))
+
+(defun lsp--find-clients ()
+  "Find clients which can handle current buffer."
+  (-when-let (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer?
+                                                            #'lsp--server-binary-present?)))
+    (lsp-log "Found the following clients for %s: %s"
+             (buffer-file-name)
+             (s-join ", "
+                     (-map (lambda (client)
+                             (format "(server-id %s, priority %s)"
+                                     (lsp--client-server-id client)
+                                     (lsp--client-priority client)))
+                           matching-clients)))
+    (-let* (((add-on-clients main-clients) (-separate #'lsp--client-add-on? matching-clients))
+            (selected-clients (if-let* ((main-client (and main-clients
+                                                         (--max-by (> (lsp--client-priority it)
+                                                                      (lsp--client-priority other))
+                                                                   main-clients))))
+                                  (cons main-client add-on-clients)
+                                add-on-clients)))
+      (lsp-log "The following clients were selected based on priority: %s"
+               (s-join ", "
+                       (-map (lambda (client)
+                               (format "(server-id %s, priority %s)"
+                                       (lsp--client-server-id client)
+                                       (lsp--client-priority client)))
+                             selected-clients)))
+      selected-clients)))
+
+(defun lsp-workspace-remove-all-folders()
+  "Delete all lsp tracked folders."
+  (interactive)
+  (--each (lsp-session-folders (lsp-session))
+    (lsp-workspace-folders-remove it)))
+
+(defun lsp-register-client (client)
+  "Registers LSP client CLIENT."
+  (let ((client-id (lsp--client-server-id client)))
+    (puthash client-id client lsp-clients)
+    (setplist (intern (format "lsp-%s-after-open-hook" client-id))
+              `( standard-value (nil) custom-type hook
+                 custom-package-version (lsp-mode . "7.0.1")
+                 variable-documentation ,(format "Hooks to run after `%s' server is run." client-id)
+                 custom-requests nil)))
+  (when (and lsp-auto-register-remote-clients
+             (not (lsp--client-remote? client)))
+    (let ((remote-client (copy-lsp--client client)))
+      (setf (lsp--client-remote? remote-client) t
+            (lsp--client-server-id remote-client) (intern
+                                                   (format "%s-tramp"
+                                                           (lsp--client-server-id client)))
+            ;; disable automatic download
+            (lsp--client-download-server-fn remote-client) nil)
+      (lsp-register-client remote-client))))
+
+(defun lsp--create-initialization-options (_session client)
+  "Create initialization-options from SESSION and CLIENT.
+Add workspace folders depending on server being multiroot and
+session workspace folder configuration for the server."
+  (let* ((initialization-options-or-fn (lsp--client-initialization-options client)))
+    (if (functionp initialization-options-or-fn)
+        (funcall initialization-options-or-fn)
+      initialization-options-or-fn)))
+
+(defvar lsp-client-settings (make-hash-table :test 'equal)
+  "For internal use, any external users please use
+  `lsp-register-custom-settings' function instead")
+
+(defun lsp-register-custom-settings (props)
+  "Register PROPS.
+PROPS is list of triple (path value boolean?) where PATH is the path to the
+property; VALUE can be a literal value, symbol to be evaluated, or either a
+function or lambda function to be called without arguments; BOOLEAN? is an
+optional flag that should be non-nil for boolean settings, when it is nil the
+property will be ignored if the VALUE is nil.
+
+Example: `(lsp-register-custom-settings `((\"foo.bar.buzz.enabled\" t t)))'
+\(note the double parentheses)"
+  (mapc
+   (-lambda ((path . rest))
+     (puthash path rest lsp-client-settings))
+   props))
+
+(defun lsp-region-text (region)
+  "Get the text for REGION in current buffer."
+  (-let (((start . end) (lsp--range-to-region region)))
+    (buffer-substring-no-properties start end)))
+
+(defun lsp-ht-set (tbl paths value)
+  "Set nested hash table value.
+TBL - a hash table, PATHS is the path to the nested VALUE."
+  (pcase paths
+    (`(,path) (ht-set! tbl path value))
+    (`(,path . ,rst) (let ((nested-tbl (or (gethash path tbl)
+                                           (let ((temp-tbl (ht)))
+                                             (ht-set! tbl path temp-tbl)
+                                             temp-tbl))))
+                       (lsp-ht-set nested-tbl rst value)))))
+
+;; sections
+
+(defalias 'defcustom-lsp 'lsp-defcustom)
+
+(defmacro lsp-defcustom (symbol standard doc &rest args)
+  "Defines `lsp-mode' server property."
+  (declare (doc-string 3) (debug (name body))
+           (indent defun))
+  (let ((path (plist-get args :lsp-path))
+        (setter (intern (concat (symbol-name symbol) "--set"))))
+    (cl-remf args :lsp-path)
+    `(progn
+       (lsp-register-custom-settings
+        (quote ((,path ,symbol ,(equal ''boolean (plist-get args :type))))))
+
+       (defcustom ,symbol ,standard ,doc ,@args)
+
+       ;; Use a variable watcher instead of registering a `defcustom'
+       ;; setter since `hack-local-variables' is not aware of custom
+       ;; setters and won't invoke them.
+
+       (defun ,setter (sym val op _where)
+         (when (eq op 'set)
+           (lsp--set-custom-property sym val ,path)))
+
+       (add-variable-watcher ',symbol #',setter))))
+
+(defun lsp--set-custom-property (sym val path)
+  (set sym val)
+  (let ((section (cl-first (s-split "\\." path))))
+    (mapc (lambda (workspace)
+            (when (-contains? (lsp--client-synchronize-sections (lsp--workspace-client workspace))
+                              section)
+              (with-lsp-workspace workspace
+                (lsp--set-configuration (lsp-configuration-section section)))))
+          (lsp--session-workspaces (lsp-session)))))
+
+(defun lsp-configuration-section (section)
+  "Get settings for SECTION."
+  (let ((ret (ht-create)))
+    (maphash (-lambda (path (variable boolean?))
+               (when (s-matches? (concat (regexp-quote section) "\\..*") path)
+                 (let* ((symbol-value (-> variable
+                                          lsp-resolve-value
+                                          lsp-resolve-value))
+                        (value (if (and boolean? (not symbol-value))
+                                   :json-false
+                                 symbol-value)))
+                   (when (or boolean? value)
+                     (lsp-ht-set ret (s-split "\\." path) value)))))
+             lsp-client-settings)
+    ret))
+
+
+(defun lsp--start-connection (session client project-root)
+  "Initiates connection created from CLIENT for PROJECT-ROOT.
+SESSION is the active session."
+  (when (lsp--client-multi-root client)
+    (cl-pushnew project-root (gethash (lsp--client-server-id client)
+                                      (lsp-session-server-id->folders session))))
+  (run-hook-with-args 'lsp-workspace-folders-changed-functions (list project-root) nil)
+
+  (unwind-protect
+      (lsp--start-workspace session client project-root (lsp--create-initialization-options session client))
+    (lsp--spinner-stop)))
+
+;; lsp-log-io-mode
+
+(defvar lsp-log-io-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "M-n") #'lsp-log-io-next)
+    (define-key map (kbd "M-p") #'lsp-log-io-prev)
+    (define-key map (kbd "k") #'lsp--erase-log-buffer)
+    (define-key map (kbd "K") #'lsp--erase-session-log-buffers)
+    map)
+  "Keymap for lsp log buffer mode.")
+
+(define-derived-mode lsp-log-io-mode special-mode "LspLogIo"
+  "Special mode for viewing IO logs.")
+
+(defun lsp-workspace-show-log (workspace)
+  "Display the log buffer of WORKSPACE."
+  (interactive
+   (list (if lsp-log-io
+             (if (eq (length (lsp-workspaces)) 1)
+                 (cl-first (lsp-workspaces))
+               (lsp--completing-read "Workspace: " (lsp-workspaces)
+                                     #'lsp--workspace-print nil t))
+           (user-error "IO logging is disabled"))))
+  (pop-to-buffer (lsp--get-log-buffer-create workspace)))
+
+(defalias 'lsp-switch-to-io-log-buffer 'lsp-workspace-show-log)
+
+(defun lsp--get-log-buffer-create (workspace)
+  "Return the lsp log buffer of WORKSPACE, creating a new one if needed."
+  (let* ((server-id (-> workspace lsp--workspace-client lsp--client-server-id symbol-name))
+         (pid (-> workspace lsp--workspace-cmd-proc lsp-process-id)))
+    (get-buffer-create (format "*lsp-log: %s:%s*" server-id pid))))
+
+(defun lsp--erase-log-buffer (&optional all)
+  "Delete contents of current lsp log buffer.
+When ALL is t, erase all log buffers of the running session."
+  (interactive)
+  (let* ((workspaces (lsp--session-workspaces (lsp-session)))
+         (current-log-buffer (current-buffer)))
+    (dolist (w workspaces)
+      (let ((b (lsp--get-log-buffer-create w)))
+        (when (or all (eq b current-log-buffer))
+          (with-current-buffer b
+            (let ((inhibit-read-only t))
+              (erase-buffer))))))))
+
+(defun lsp--erase-session-log-buffers ()
+  "Erase log buffers of the running session."
+  (interactive)
+  (lsp--erase-log-buffer t))
+
+(defun lsp-log-io-next (arg)
+  "Move to next log entry."
+  (interactive "P")
+  (ewoc-goto-next lsp--log-io-ewoc (or arg 1)))
+
+(defun lsp-log-io-prev (arg)
+  "Move to previous log entry."
+  (interactive "P")
+  (ewoc-goto-prev lsp--log-io-ewoc (or arg 1)))
+
+
+
+(cl-defmethod lsp-process-id ((process process))
+  (process-id process))
+
+(cl-defmethod lsp-process-name ((process process)) (process-name process))
+
+(cl-defmethod lsp-process-status ((process process)) (process-status process))
+
+(cl-defmethod lsp-process-kill ((process process))
+  (when (process-live-p process)
+    (kill-process process)))
+
+(cl-defmethod lsp-process-send ((process process) message)
+  (condition-case err
+      (process-send-string process (lsp--make-message message))
+    (error (lsp--error "Sending to process failed with the following error: %s"
+                       (error-message-string err)))))
+
+(cl-defmethod lsp-process-cleanup (process)
+  ;; Kill standard error buffer only if the process exited normally.
+  ;; Leave it intact otherwise for debugging purposes.
+  (let ((buffer (-> process process-name get-buffer)))
+    (when (and (eq (process-status process) 'exit)
+               (zerop (process-exit-status process))
+               (buffer-live-p buffer))
+      (kill-buffer buffer))))
+
+
+;; native JSONRPC
+
+(declare-function json-rpc "ext:json")
+(declare-function json-rpc-connection "ext:json")
+(declare-function json-rpc-send "ext:json")
+(declare-function json-rpc-shutdown "ext:json")
+(declare-function json-rpc-stderr "ext:json")
+(declare-function json-rpc-pid "ext:json")
+
+(defvar lsp-json-rpc-thread nil)
+(defvar lsp-json-rpc-queue nil)
+(defvar lsp-json-rpc-done nil)
+(defvar lsp-json-rpc-mutex (make-mutex))
+(defvar lsp-json-rpc-condition (make-condition-variable lsp-json-rpc-mutex))
+
+(defun lsp-json-rpc-process-queue ()
+  (while (not lsp-json-rpc-done)
+    (while lsp-json-rpc-queue
+      (-let (((proc . message) (pop lsp-json-rpc-queue)))
+        (json-rpc-send
+         proc message
+         :null-object nil
+         :false-object :json-false)))
+    (with-mutex lsp-json-rpc-mutex
+      (condition-wait lsp-json-rpc-condition))))
+
+(cl-defmethod lsp-process-id (process) (json-rpc-pid process))
+
+(cl-defmethod lsp-process-name (_process) "TBD")
+
+(cl-defmethod lsp-process-kill (process) (json-rpc-shutdown process))
+
+(cl-defmethod lsp-process-send (proc message)
+  (unless lsp-json-rpc-thread
+    (with-current-buffer (get-buffer-create " *json-rpc*")
+      (setq lsp-json-rpc-thread (make-thread #'lsp-json-rpc-process-queue "*json-rpc-queue*"))))
+
+  (with-mutex lsp-json-rpc-mutex
+    (setq lsp-json-rpc-queue (append lsp-json-rpc-queue
+                                     (list (cons proc message))))
+    (condition-notify lsp-json-rpc-condition)))
+
+(cl-defmethod lsp-process-cleanup (_proc))
+
+(defun lsp-json-rpc-connection (workspace command)
+  (let ((con (apply #'json-rpc-connection command))
+        (object-type (if lsp-use-plists 'plist 'hash-table)))
+    (with-current-buffer (get-buffer-create " *json-rpc*")
+      (make-thread
+       (lambda ()
+         (json-rpc
+          con
+          (lambda (result err done)
+            (run-with-timer
+             0.0
+             nil
+             (lambda ()
+               (cond
+                (result (lsp--parser-on-message result workspace))
+                (err (warn "Json parsing failed with the following error: %s" err))
+                (done (lsp--handle-process-exit workspace ""))))))
+          :object-type object-type
+          :null-object nil
+          :false-object nil))
+       "*json-rpc-connection*"))
+    (cons con con)))
+
+(defun lsp-json-rpc-stderr ()
+  (interactive)
+  (--when-let (pcase (lsp-workspaces)
+                (`nil (user-error "There are no active servers in the current buffer"))
+                (`(,workspace) workspace)
+                (workspaces (lsp--completing-read "Select server: "
+                                                  workspaces
+                                                  'lsp--workspace-print nil t)))
+    (let ((content (json-rpc-stderr (lsp--workspace-cmd-proc it)))
+          (buffer (format "*stderr-%s*" (lsp--workspace-print it)) ))
+      (with-current-buffer (get-buffer-create buffer)
+        (with-help-window buffer
+          (insert content))))))
+
+
+(defun lsp--workspace-print (workspace)
+  "Visual representation WORKSPACE."
+  (let* ((proc (lsp--workspace-cmd-proc workspace))
+         (status (lsp--workspace-status workspace))
+         (server-id (-> workspace lsp--workspace-client lsp--client-server-id symbol-name))
+         (pid (lsp-process-id proc)))
+
+    (if (eq 'initialized status)
+        (format "%s:%s" server-id pid)
+      (format "%s:%s/%s" server-id pid status))))
+
+(defun lsp--map-tree-widget (m)
+  "Build `tree-widget' from a hash-table or plist M."
+  (when (lsp-structure-p m)
+    (let (nodes)
+      (lsp-map (lambda (k v)
+                 (push `(tree-widget
+                         :tag ,(if (lsp-structure-p v)
+                                   (format "%s:" k)
+                                 (format "%s: %s" k
+                                         (propertize (format "%s" v)
+                                                     'face
+                                                     'font-lock-string-face)))
+                         :open t
+                         ,@(lsp--map-tree-widget v))
+                       nodes))
+               m)
+      nodes)))
+
+(defun lsp-buffer-name (buffer-id)
+  (if-let* ((buffer-name (plist-get buffer-id :buffer-name)))
+      (funcall buffer-name buffer-id)
+    (buffer-name buffer-id)))
+
+(defun lsp--render-workspace (workspace)
+  "Tree node representation of WORKSPACE."
+  `(tree-widget :tag ,(lsp--workspace-print workspace)
+                :open t
+                (tree-widget :tag ,(propertize "Buffers" 'face 'font-lock-function-name-face)
+                             :open t
+                             ,@(->> workspace
+                                    (lsp--workspace-buffers)
+                                    (--map `(tree-widget
+                                             :tag ,(when (lsp-buffer-live-p it)
+                                                     (let ((buffer-name (lsp-buffer-name it)))
+                                                       (if (lsp-with-current-buffer it buffer-read-only)
+                                                           (propertize buffer-name 'face 'font-lock-constant-face)
+                                                         buffer-name)))))))
+                (tree-widget :tag ,(propertize "Capabilities" 'face 'font-lock-function-name-face)
+                             ,@(-> workspace lsp--workspace-server-capabilities lsp--map-tree-widget))))
+
+(define-derived-mode lsp-browser-mode special-mode "LspBrowser"
+  "Define mode for displaying lsp sessions."
+  (setq-local display-buffer-base-action '(nil . ((inhibit-same-window . t)))))
+
+(defun lsp-describe-session ()
+  "Describes current `lsp-session'."
+  (interactive)
+  (let ((session (lsp-session))
+        (buf (get-buffer-create "*lsp session*"))
+        (root (lsp-workspace-root)))
+    (with-current-buffer buf
+      (lsp-browser-mode)
+      (let ((inhibit-read-only t))
+        (erase-buffer)
+        (--each (lsp-session-folders session)
+          (widget-create
+           `(tree-widget
+             :tag ,(propertize it 'face 'font-lock-keyword-face)
+             :open t
+             ,@(->> session
+                    (lsp-session-folder->servers)
+                    (gethash it)
+                    (-map 'lsp--render-workspace)))))))
+    (pop-to-buffer buf)
+    (goto-char (point-min))
+    (cl-loop for tag = (widget-get (widget-get (widget-at) :node) :tag)
+             until (or (and root (string= tag root)) (eobp))
+             do (goto-char (next-overlay-change (point))))))
+
+(defun lsp--session-workspaces (session)
+  "Get all workspaces that are part of the SESSION."
+  (-> session lsp-session-folder->servers hash-table-values -flatten -uniq))
+
+(defun lsp--find-multiroot-workspace (session client project-root)
+  "Look for a multiroot connection in SESSION created from CLIENT for
+PROJECT-ROOT and BUFFER-MAJOR-MODE."
+  (when (lsp--client-multi-root client)
+    (-when-let (multi-root-workspace (->> session
+                                          (lsp--session-workspaces)
+                                          (--first (eq (-> it lsp--workspace-client lsp--client-server-id)
+                                                       (lsp--client-server-id client)))))
+      (with-lsp-workspace multi-root-workspace
+        (lsp-notify "workspace/didChangeWorkspaceFolders"
+                    (lsp-make-did-change-workspace-folders-params
+                     :event (lsp-make-workspace-folders-change-event
+                             :added (vector (lsp-make-workspace-folder
+                                             :uri (lsp--path-to-uri project-root)
+                                             :name (f-filename project-root)))
+                             :removed []))))
+
+      (->> session (lsp-session-folder->servers) (gethash project-root) (cl-pushnew multi-root-workspace))
+      (->> session (lsp-session-server-id->folders) (gethash (lsp--client-server-id client)) (cl-pushnew project-root))
+
+      (lsp--persist-session session)
+
+      (lsp--info "Opened folder %s in workspace %s" project-root (lsp--workspace-print multi-root-workspace))
+      (lsp--open-in-workspace multi-root-workspace)
+
+      multi-root-workspace)))
+
+(defun lsp--ensure-lsp-servers (session clients project-root ignore-multi-folder)
+  "Ensure that SESSION contain server CLIENTS created for PROJECT-ROOT.
+IGNORE-MULTI-FOLDER to ignore multi folder server."
+  (-map (lambda (client)
+          (or
+           (lsp--find-workspace session client project-root)
+           (unless ignore-multi-folder
+             (lsp--find-multiroot-workspace session client project-root))
+           (lsp--start-connection session client project-root)))
+        clients))
+
+(defun lsp--spinner-stop ()
+  "Stop the spinner in case all of the workspaces are started."
+  (when (--all? (eq (lsp--workspace-status it) 'initialized)
+                lsp--buffer-workspaces)
+    (spinner-stop)))
+
+(defun lsp--open-in-workspace (workspace)
+  "Open in existing WORKSPACE."
+  (if (eq 'initialized (lsp--workspace-status workspace))
+      ;; when workspace is initialized just call document did open.
+      (progn
+        (with-lsp-workspace workspace
+          (when-let* ((before-document-open-fn (-> workspace
+                                                  lsp--workspace-client
+                                                  lsp--client-before-file-open-fn)))
+            (funcall before-document-open-fn workspace))
+          (lsp--text-document-did-open))
+        (lsp--spinner-stop))
+    ;; when it is not initialized
+    (lsp--spinner-start)
+    (cl-pushnew (lsp-current-buffer) (lsp--workspace-buffers workspace))))
+
+(defun lsp--find-workspace (session client project-root)
+  "Find server connection created with CLIENT in SESSION for PROJECT-ROOT."
+  (when-let* ((workspace (->> session
+                             (lsp-session-folder->servers)
+                             (gethash project-root)
+                             (--first (eql (-> it lsp--workspace-client lsp--client-server-id)
+                                           (lsp--client-server-id client))))))
+    (lsp--open-in-workspace workspace)
+    workspace))
+
+(defun lsp--read-char (prompt &optional options)
+  "Wrapper for `read-char-from-minibuffer' if Emacs +27.
+Fallback to `read-key' otherwise.
+PROMPT is the message and OPTIONS the available options."
+  (if (fboundp 'read-char-from-minibuffer)
+      (read-char-from-minibuffer prompt options)
+    (read-key prompt)))
+
+(defun lsp--find-root-interactively (session)
+  "Find project interactively.
+Returns nil if the project should not be added to the current SESSION."
+  (condition-case nil
+      (let* ((project-root-suggestion (or (lsp--suggest-project-root) default-directory))
+             (action (lsp--read-char
+                      (format
+                       "%s is not part of any project.
+
+%s ==> Import project root %s
+%s ==> Import project by selecting root directory interactively
+%s ==> Import project at current directory %s
+%s ==> Do not ask again for the current project by adding %s to lsp-session-folders-blocklist
+%s ==> Do not ask again for the current project by selecting ignore path interactively
+%s ==> Do nothing: ask again when opening other files from the current project
+
+Select action: "
+                       (propertize (buffer-name) 'face 'bold)
+                       (propertize "i" 'face 'success)
+                       (propertize project-root-suggestion 'face 'bold)
+                       (propertize "I" 'face 'success)
+                       (propertize "." 'face 'success)
+                       (propertize default-directory 'face 'bold)
+                       (propertize "d" 'face 'warning)
+                       (propertize project-root-suggestion 'face 'bold)
+                       (propertize "D" 'face 'warning)
+                       (propertize "n" 'face 'warning))
+                      '(?i ?\r ?I ?. ?d ?D ?n))))
+        (cl-case action
+          (?i project-root-suggestion)
+          (?\r project-root-suggestion)
+          (?I (read-directory-name "Select workspace folder to add: "
+                                   (or project-root-suggestion default-directory)
+                                   nil
+                                   t))
+          (?. default-directory)
+          (?d (push project-root-suggestion (lsp-session-folders-blocklist session))
+              (lsp--persist-session session)
+              nil)
+          (?D (push (read-directory-name "Select folder to blocklist: "
+                                         (or project-root-suggestion default-directory)
+                                         nil
+                                         t)
+                    (lsp-session-folders-blocklist session))
+              (lsp--persist-session session)
+              nil)
+          (t nil)))
+    (quit)))
+
+(declare-function tramp-file-name-host "ext:tramp" (file) t)
+(declare-function tramp-dissect-file-name "ext:tramp" (file &optional nodefault))
+
+(defun lsp--files-same-host (f1 f2)
+  "Predicate on whether or not two files are on the same host."
+  (or (not (or (file-remote-p f1) (file-remote-p f2)))
+      (and (file-remote-p f1)
+           (file-remote-p f2)
+           (progn (require 'tramp)
+                  (equal (tramp-file-name-host (tramp-dissect-file-name f1))
+                         (tramp-file-name-host (tramp-dissect-file-name f2)))))))
+
+(defun lsp-find-session-folder (session file-name)
+  "Look in the current SESSION for folder containing FILE-NAME."
+  (let ((file-name-canonical (lsp-f-canonical file-name)))
+    (->> session
+         (lsp-session-folders)
+         (--filter (and (lsp--files-same-host it file-name-canonical)
+                        (or (lsp-f-same? it file-name-canonical)
+                            (and (f-dir? it)
+                                 (lsp-f-ancestor-of? it file-name-canonical)))))
+         (--max-by (> (length it)
+                      (length other))))))
+
+(defun lsp-find-workspace (server-id &optional file-name)
+  "Find workspace for SERVER-ID for FILE-NAME."
+  (-when-let* ((session (lsp-session))
+               (folder->servers (lsp-session-folder->servers session))
+               (workspaces (if file-name
+                               (gethash (lsp-find-session-folder session file-name) folder->servers)
+                             (lsp--session-workspaces session))))
+
+    (--first (eq (lsp--client-server-id (lsp--workspace-client it)) server-id) workspaces)))
+
+(defun lsp--calculate-root (session file-name)
+  "Calculate project root for FILE-NAME in SESSION."
+  (and
+   (->> session
+        (lsp-session-folders-blocklist)
+        (--first (and (lsp--files-same-host it file-name)
+                      (lsp-f-ancestor-of? it file-name)
+                      (prog1 t
+                        (lsp--info "File %s is in blocklisted directory %s" file-name it))))
+        not)
+   (or
+    (when lsp-auto-guess-root
+      (lsp--suggest-project-root))
+    (unless lsp-guess-root-without-session
+      (lsp-find-session-folder session file-name))
+    (unless lsp-auto-guess-root
+      (when-let* ((root-folder (lsp--find-root-interactively session)))
+        (if (or (not (f-equal? root-folder (expand-file-name "~/")))
+                (yes-or-no-p
+                 (concat
+                  (propertize "[WARNING] " 'face 'warning)
+                  "You are trying to import your home folder as project root. This may cause performance issue because some language servers (python, lua, etc) will try to scan all files under project root. To avoid that you may:
+
+1. Use `I' option from the interactive project import to select subfolder(e. g. `~/foo/bar' instead of `~/').
+2. If your file is under `~/' then create a subfolder and move that file in this folder.
+
+Type `No' to go back to project selection.
+Type `Yes' to confirm `HOME' as project root.
+Type `C-g' to cancel project import process and stop `lsp'")))
+            root-folder
+          (lsp--calculate-root session file-name)))))))
+
+(defun lsp--try-open-in-library-workspace ()
+  "Try opening current file as library file in any of the active workspace.
+The library folders are defined by each client for each of the active workspace."
+  (when-let* ((workspace (->> (lsp-session)
+                             (lsp--session-workspaces)
+                             ;; Sort the last active workspaces first as they are more likely to be
+                             ;; the correct ones, especially when jumping to a definition.
+                             (-sort (lambda (a _b)
+                                      (-contains? lsp--last-active-workspaces a)))
+                             (--first
+                              (and (-> it lsp--workspace-client lsp--supports-buffer?)
+                                   (when-let* ((library-folders-fn
+                                               (-> it lsp--workspace-client lsp--client-library-folders-fn)))
+                                     (-first (lambda (library-folder)
+                                               (lsp-f-ancestor-of? library-folder (buffer-file-name)))
+                                             (funcall library-folders-fn it))))))))
+    (lsp--open-in-workspace workspace)
+    (view-mode t)
+    (lsp--info "Opening read-only library file %s." (buffer-file-name))
+    (list workspace)))
+
+(defun lsp--persist-session (session)
+  "Persist SESSION to `lsp-session-file'."
+  (lsp--persist lsp-session-file (make-lsp-session
+                                  :folders (lsp-session-folders session)
+                                  :folders-blocklist (lsp-session-folders-blocklist session)
+                                  :server-id->folders (lsp-session-server-id->folders session))))
+
+(defun lsp--try-project-root-workspaces (ask-for-client ignore-multi-folder)
+  "Try create opening file as a project file.
+When IGNORE-MULTI-FOLDER is t the lsp mode will start new
+language server even if there is language server which can handle
+current language. When IGNORE-MULTI-FOLDER is nil current file
+will be opened in multi folder language server if there is
+such."
+  (-let ((session (lsp-session)))
+    (-if-let (clients (if ask-for-client
+                          (list (lsp--completing-read "Select server to start: "
+                                                      (ht-values lsp-clients)
+                                                      (-compose 'symbol-name 'lsp--client-server-id) nil t))
+                        (lsp--find-clients)))
+        (-if-let (project-root (-some-> session
+                                 (lsp--calculate-root (buffer-file-name))
+                                 (lsp-f-canonical)))
+            (progn
+              ;; update project roots if needed and persist the lsp session
+              (unless (-contains? (lsp-session-folders session) project-root)
+                (cl-pushnew project-root (lsp-session-folders session))
+                (lsp--persist-session session))
+              (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder))
+          (lsp--warn "%s not in project or it is blocklisted." (buffer-name))
+          nil)
+      (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode)
+      nil)))
+
+(defun lsp-shutdown-workspace ()
+  "Shutdown language server."
+  (interactive)
+  (--when-let (pcase (lsp-workspaces)
+                (`nil (user-error "There are no active servers in the current buffer"))
+                (`(,workspace) (when (y-or-n-p (format "Are you sure you want to stop the server %s?"
+                                                       (lsp--workspace-print workspace)))
+                                 workspace))
+                (workspaces (lsp--completing-read "Select server: "
+                                                  workspaces
+                                                  'lsp--workspace-print nil t)))
+    (lsp-workspace-shutdown it)))
+
+(make-obsolete 'lsp-shutdown-workspace 'lsp-workspace-shutdown "lsp-mode 6.1")
+
+(defcustom lsp-auto-select-workspace t
+  "Shutdown or restart a single workspace.
+If set and the current buffer has only a single workspace
+associated with it, `lsp-shutdown-workspace' and
+`lsp-restart-workspace' will act on it without asking."
+  :type 'boolean
+  :group 'lsp-mode)
+
+(defun lsp--read-workspace ()
+  "Ask the user to select a workspace.
+Errors if there are none."
+  (pcase (lsp-workspaces)
+    (`nil (error "No workspaces associated with the current buffer"))
+    ((and `(,workspace) (guard lsp-auto-select-workspace)) workspace)
+    (workspaces (lsp--completing-read "Select workspace: " workspaces
+                                      #'lsp--workspace-print nil t))))
+
+(defun lsp-workspace-shutdown (workspace)
+  "Shut the workspace WORKSPACE and the language server associated with it"
+  (interactive (list (lsp--read-workspace)))
+  (lsp--warn "Stopping %s" (lsp--workspace-print workspace))
+  (with-lsp-workspace workspace (lsp--shutdown-workspace)))
+
+(defun lsp-disconnect ()
+  "Disconnect the buffer from the language server."
+  (interactive)
+  (lsp--text-document-did-close t)
+  (lsp-managed-mode -1)
+  (lsp-mode -1)
+  (setq lsp--buffer-workspaces nil)
+  (lsp--info "Disconnected"))
+
+(defun lsp-restart-workspace ()
+  (interactive)
+  (--when-let (pcase (lsp-workspaces)
+                (`nil (user-error "There are no active servers in the current buffer"))
+                (`(,workspace) workspace)
+                (workspaces (lsp--completing-read "Select server: "
+                                                  workspaces
+                                                  'lsp--workspace-print nil t)))
+    (lsp-workspace-restart it)))
+
+(make-obsolete 'lsp-restart-workspace 'lsp-workspace-restart "lsp-mode 6.1")
+
+(defun lsp-workspace-restart (workspace)
+  "Restart the workspace WORKSPACE and the language server associated with it"
+  (interactive (list (lsp--read-workspace)))
+  (lsp--warn "Restarting %s" (lsp--workspace-print workspace))
+  (with-lsp-workspace workspace (lsp--shutdown-workspace t)))
+
+;;;###autoload
+(defun lsp (&optional arg)
+  "Entry point for the server startup.
+When ARG is t the lsp mode will start new language server even if
+there is language server which can handle current language. When
+ARG is nil current file will be opened in multi folder language
+server if there is such. When `lsp' is called with prefix
+argument ask the user to select which language server to start."
+  (interactive "P")
+
+  (lsp--require-packages)
+
+  (when (buffer-file-name)
+    (let (clients
+          (matching-clients (lsp--filter-clients
+                             (-andfn #'lsp--supports-buffer?
+                                     #'lsp--server-binary-present?))))
+      (cond
+       (matching-clients
+        (when (setq lsp--buffer-workspaces
+                    (or (and
+                         ;; Don't open as library file if file is part of a project.
+                         (not (lsp-find-session-folder (lsp-session) (buffer-file-name)))
+                         (lsp--try-open-in-library-workspace))
+                        (lsp--try-project-root-workspaces (equal arg '(4))
+                                                          (and arg (not (equal arg 1))))))
+          (lsp-mode 1)
+          (when lsp-auto-configure (lsp--auto-configure))
+          (setq lsp-buffer-uri (lsp--buffer-uri))
+          (lsp--info "Connected to %s."
+                     (apply 'concat (--map (format "[%s %s]"
+                                                   (lsp--workspace-print it)
+                                                   (lsp--workspace-root it))
+                                           lsp--buffer-workspaces)))))
+       ;; look for servers which are currently being downloaded.
+       ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer?
+                                                   #'lsp--client-download-in-progress?)))
+        (lsp--info "There are language server(%s) installation in progress.
+The server(s) will be started in the buffer when it has finished."
+                   (-map #'lsp--client-server-id clients))
+        (seq-do (lambda (client)
+                  (cl-pushnew (current-buffer) (lsp--client-buffers client)))
+                clients))
+       ;; look for servers to install
+       ((setq clients (lsp--filter-clients
+                       (-andfn #'lsp--supports-buffer?
+                               (-const lsp-enable-suggest-server-download)
+                               #'lsp--client-download-server-fn
+                               (-not #'lsp--client-download-in-progress?))))
+        (let ((client (lsp--completing-read
+                       (concat "Unable to find installed server supporting this file. "
+                               "The following servers could be installed automatically: ")
+                       clients
+                       (-compose #'symbol-name #'lsp--client-server-id)
+                       nil
+                       t)))
+          (cl-pushnew (current-buffer) (lsp--client-buffers client))
+          (lsp--install-server-internal client)))
+       ;; ignore other warnings
+       ((not lsp-warn-no-matched-clients)
+        nil)
+       ;; automatic installation disabled
+       ((setq clients (unless matching-clients
+                        (lsp--filter-clients (-andfn #'lsp--supports-buffer?
+                                                     #'lsp--client-download-server-fn
+                                                     (-not (-const lsp-enable-suggest-server-download))
+                                                     (-not #'lsp--server-binary-present?)))))
+        (lsp--warn "The following servers support current file but automatic download is disabled: %s
+\(If you have already installed the server check *lsp-log*)."
+                   (mapconcat (lambda (client)
+                                (symbol-name (lsp--client-server-id client)))
+                              clients
+                              " ")))
+       ;; no clients present
+       ((setq clients (unless matching-clients
+                        (lsp--filter-clients (-andfn #'lsp--supports-buffer?
+                                                     (-not #'lsp--server-binary-present?)))))
+        (lsp--warn "The following servers support current file but do not have automatic installation: %s
+You may find the installation instructions at https://emacs-lsp.github.io/lsp-mode/page/languages.
+\(If you have already installed the server check *lsp-log*)."
+                   (mapconcat (lambda (client)
+                                (symbol-name (lsp--client-server-id client)))
+                              clients
+                              " ")))
+       ;; no matches
+       ((-> #'lsp--supports-buffer? lsp--filter-clients not)
+        (lsp--error "There are no language servers supporting current mode `%s' registered with `lsp-mode'.
+This issue might be caused by:
+1. The language you are trying to use does not have built-in support in `lsp-mode'. You must install the required support manually. Examples of this are `lsp-java' or `lsp-metals'.
+2. The language server that you expect to run is not configured to run for major mode `%s'. You may check that by checking the `:major-modes' that are passed to `lsp-register-client'.
+3. `lsp-mode' doesn't have any integration for the language behind `%s'. Refer to https://emacs-lsp.github.io/lsp-mode/page/languages and https://langserver.org/ .
+4. You are over `tramp'. In this case follow https://emacs-lsp.github.io/lsp-mode/page/remote/.
+5. You have disabled the `lsp-mode' clients for that file. (Check `lsp-enabled-clients' and `lsp-disabled-clients').
+You can customize `lsp-warn-no-matched-clients' to disable this message."
+                    major-mode major-mode major-mode))))))
+
+(defun lsp--buffer-visible-p ()
+  "Return non nil if current buffer is visible."
+  (or (buffer-modified-p) (get-buffer-window nil t)))
+
+(defun lsp--init-if-visible ()
+  "Run `lsp' for the current buffer if the buffer is visible.
+Returns non nil if `lsp' was run for the buffer."
+  (when (lsp--buffer-visible-p)
+    (remove-hook 'window-configuration-change-hook #'lsp--init-if-visible t)
+    (lsp)
+    t))
+
+;;;###autoload
+(defun lsp-deferred ()
+  "Entry point that defers server startup until buffer is visible.
+`lsp-deferred' will wait until the buffer is visible before invoking `lsp'.
+This avoids overloading the server with many files when starting Emacs."
+  ;; Workspace may not be initialized yet. Use a buffer local variable to
+  ;; remember that we deferred loading of this buffer.
+  (setq lsp--buffer-deferred t)
+  (let ((buffer (current-buffer)))
+    ;; Avoid false positives as desktop-mode restores buffers by deferring
+    ;; visibility check until the stack clears.
+    (run-with-idle-timer 0 nil (lambda ()
+                                 (when (buffer-live-p buffer)
+                                   (with-current-buffer buffer
+                                     (unless (lsp--init-if-visible)
+                                       (add-hook 'window-configuration-change-hook #'lsp--init-if-visible nil t))))))))
+
+
+
+(defvar lsp-file-truename-cache (ht))
+
+(defmacro lsp-with-cached-filetrue-name (&rest body)
+  "Executes BODY caching the `file-truename' calls."
+  `(let ((old-fn (symbol-function 'file-truename)))
+     (unwind-protect
+         (progn
+           (fset 'file-truename
+                 (lambda (file-name &optional counter prev-dirs)
+                   (or (gethash file-name lsp-file-truename-cache)
+                       (puthash file-name (apply old-fn (list file-name counter prev-dirs))
+                                lsp-file-truename-cache))))
+           ,@body)
+       (fset 'file-truename old-fn))))
+
+
+(defun lsp-virtual-buffer-call (key &rest args)
+  (when lsp--virtual-buffer
+    (when-let* ((fn (plist-get lsp--virtual-buffer key)))
+      (apply fn args))))
+
+(defun lsp-translate-column (column)
+  "Translate COLUMN taking into account virtual buffers."
+  (or (lsp-virtual-buffer-call :real->virtual-char column)
+      column))
+
+(defun lsp-translate-line (line)
+  "Translate LINE taking into account virtual buffers."
+  (or (lsp-virtual-buffer-call :real->virtual-line line)
+      line))
+
+
+;; lsp internal validation.
+
+(defmacro lsp--doctor (&rest checks)
+  `(-let [buf (current-buffer)]
+     (with-current-buffer (get-buffer-create "*lsp-performance*")
+       (with-help-window (current-buffer)
+         ,@(-map (-lambda ((msg form))
+                   `(insert (format "%s: %s\n" ,msg
+                                    (let ((res (with-current-buffer buf
+                                                 ,form)))
+                                      (cond
+                                       ((eq res :optional) (propertize "OPTIONAL" 'face 'warning))
+                                       (res (propertize "OK" 'face 'success))
+                                       (t (propertize "ERROR" 'face 'error)))))))
+                 (-partition 2 checks))))))
+
+(define-obsolete-function-alias 'lsp-diagnose
+  'lsp-doctor "lsp-mode 8.0.0")
+
+(defun lsp-doctor ()
+  "Validate performance settings."
+  (interactive)
+  (lsp--doctor
+   "Checking for Native JSON support" (functionp 'json-serialize)
+   "Check emacs supports `read-process-output-max'" (boundp 'read-process-output-max)
+   "Check `read-process-output-max' default has been changed from 4k"
+   (and (boundp 'read-process-output-max)
+        (> read-process-output-max 4096))
+   "Byte compiled against Native JSON (recompile lsp-mode if failing when Native JSON available)"
+   (condition-case _err
+       (progn (lsp--make-message (list "a" "b"))
+              nil)
+     (error t))
+   "`gc-cons-threshold' increased?" (> gc-cons-threshold 800000)
+   "Using `plist' for deserialized objects? (refer to https://emacs-lsp.github.io/lsp-mode/page/performance/#use-plists-for-deserialization)" (or lsp-use-plists :optional)
+   "Using emacs 28+ with native compilation?"
+   (or (and (fboundp 'native-comp-available-p)
+            (native-comp-available-p))
+       :optional)))
+
+(declare-function package-version-join "ext:package")
+(declare-function package-desc-version "ext:package")
+(declare-function package--alist "ext:package")
+
+(defun lsp-version ()
+  "Return string describing current version of `lsp-mode'."
+  (interactive)
+  (unless (featurep 'package)
+    (require 'package))
+  (let ((ver (format "lsp-mode %s, Emacs %s, %s"
+                     (package-version-join
+                      (package-desc-version
+                       (car (alist-get 'lsp-mode (package--alist)))))
+                     emacs-version
+                     system-type)))
+    (if (called-interactively-p 'interactive)
+        (lsp--info "%s" ver)
+      ver)))
+
+
+
+;; org-mode/virtual-buffer
+
+(declare-function org-babel-get-src-block-info "ext:ob-core")
+(declare-function org-do-remove-indentation "ext:org-macs")
+(declare-function org-src-get-lang-mode "ext:org-src")
+(declare-function org-element-context "ext:org-element")
+
+(defun lsp--virtual-buffer-update-position ()
+  (-if-let (virtual-buffer (-first (-lambda ((&plist :in-range))
+                                     (funcall in-range))
+                                   lsp--virtual-buffer-connections))
+      (unless (equal virtual-buffer lsp--virtual-buffer)
+        (lsp-org))
+    (when lsp-managed-mode
+      (lsp-managed-mode -1)
+      (lsp-mode -1)
+      (setq lsp--buffer-workspaces nil)
+      (setq lsp--virtual-buffer nil)
+      (setq lsp-buffer-uri nil)
+
+      ;; force refresh of diagnostics
+      (run-hooks 'lsp-after-diagnostics-hook))))
+
+(defun lsp-virtual-buffer-on-change (start end length)
+  "Adjust on change event to be executed against the proper language server."
+  (let ((max-point (max end
+                        (or (plist-get lsp--before-change-vals :end) 0)
+                        (+ start length))))
+    (when-let* ((virtual-buffer (-first (lambda (vb)
+                                         (let ((lsp--virtual-buffer vb))
+                                           (and (lsp-virtual-buffer-call :in-range start)
+                                                (lsp-virtual-buffer-call :in-range max-point))))
+                                       lsp--virtual-buffer-connections)))
+      (lsp-with-current-buffer virtual-buffer
+        (lsp-on-change start end length
+                       (lambda (&rest _)
+                         (list :range (lsp--range (list :character 0 :line 0)
+                                                  lsp--virtual-buffer-point-max)
+                               :text (lsp--buffer-content))))))))
+
+(defun lsp-virtual-buffer-before-change (start _end)
+  (when-let* ((virtual-buffer (-first (lambda (vb)
+                                       (lsp-with-current-buffer vb
+                                         (lsp-virtual-buffer-call :in-range start)))
+                                     lsp--virtual-buffer-connections)))
+    (lsp-with-current-buffer virtual-buffer
+      (setq lsp--virtual-buffer-point-max
+            (lsp--point-to-position (lsp-virtual-buffer-call :last-point))))))
+
+(defun lsp-patch-on-change-event ()
+  (remove-hook 'after-change-functions #'lsp-on-change t)
+  (add-hook 'after-change-functions #'lsp-virtual-buffer-on-change nil t)
+  (add-hook 'before-change-functions #'lsp-virtual-buffer-before-change nil t))
+
+(defun lsp-kill-virtual-buffers ()
+  (mapc #'lsp-virtual-buffer-disconnect lsp--virtual-buffer-connections))
+
+(defun lsp--move-point-in-indentation (point indentation)
+  (save-excursion
+    (goto-char point)
+    (if (<= point (+ (line-beginning-position) indentation))
+        (line-beginning-position)
+      point)))
+
+(declare-function flycheck-checker-supports-major-mode-p "ext:flycheck")
+(declare-function flycheck-add-mode "ext:flycheck")
+(declare-function lsp-diagnostics-lsp-checker-if-needed "lsp-diagnostics")
+
+(defalias 'lsp-client-download-server-fn 'lsp--client-download-server-fn)
+
+(defun lsp-flycheck-add-mode (mode)
+  "Register flycheck support for MODE."
+  (lsp-diagnostics-lsp-checker-if-needed)
+  (unless (flycheck-checker-supports-major-mode-p 'lsp mode)
+    (flycheck-add-mode 'lsp mode)))
+
+(defun lsp-progress-spinner-type ()
+  "Retrieve the spinner type value, if value is not a symbol of `spinner-types
+defaults to `progress-bar."
+  (or (car (assoc lsp-progress-spinner-type spinner-types)) 'progress-bar))
+
+(defun lsp-org ()
+  (interactive)
+  (-if-let ((virtual-buffer &as &plist :workspaces) (-first (-lambda ((&plist :in-range))
+                                                              (funcall in-range))
+                                                            lsp--virtual-buffer-connections))
+      (unless (equal lsp--virtual-buffer virtual-buffer)
+        (setq lsp--buffer-workspaces workspaces)
+        (setq lsp--virtual-buffer virtual-buffer)
+        (setq lsp-buffer-uri nil)
+        (lsp-mode 1)
+        (lsp-managed-mode 1)
+        (lsp-patch-on-change-event))
+
+    (save-excursion
+      (-let* (virtual-buffer
+              (wcb (lambda (f)
+                     (with-current-buffer (plist-get virtual-buffer :buffer)
+                       (-let* (((&plist :major-mode :buffer-file-name
+                                        :goto-buffer :workspaces) virtual-buffer)
+                               (lsp--virtual-buffer virtual-buffer)
+                               (lsp--buffer-workspaces workspaces))
+                         (save-excursion
+                           (funcall goto-buffer)
+                           (funcall f))))))
+              ((&plist :begin :end :post-blank :language) (cl-second (org-element-context)))
+              ((&alist :tangle file-name) (cl-third (org-babel-get-src-block-info 'light)))
+
+              (file-name (if file-name
+                             (f-expand file-name)
+                           (user-error "You should specify file name in the src block header.")))
+              (begin-marker (progn
+                              (goto-char begin)
+                              (forward-line)
+                              (set-marker (make-marker) (point))))
+              (end-marker (progn
+                            (goto-char end)
+                            (forward-line (1- (- post-blank)))
+                            (set-marker (make-marker) (1+ (point)))))
+              (buf (current-buffer))
+              (src-block (buffer-substring-no-properties begin-marker
+                                                         (1- end-marker)))
+              (indentation (with-temp-buffer
+                             (insert src-block)
+
+                             (goto-char (point-min))
+                             (let ((indentation (current-indentation)))
+                               (plist-put lsp--virtual-buffer :indentation indentation)
+                               (org-do-remove-indentation)
+                               (goto-char (point-min))
+                               (- indentation (current-indentation))))))
+        (add-hook 'post-command-hook #'lsp--virtual-buffer-update-position nil t)
+
+        (when (fboundp 'flycheck-add-mode)
+          (lsp-flycheck-add-mode 'org-mode))
+
+        (setq lsp--virtual-buffer
+              (list
+               :in-range (lambda (&optional point)
+                           (<= begin-marker (or point (point)) (1- end-marker)))
+               :goto-buffer (lambda () (goto-char begin-marker))
+               :buffer-string
+               (lambda ()
+                 (let ((src-block (buffer-substring-no-properties
+                                   begin-marker
+                                   (1- end-marker))))
+                   (with-temp-buffer
+                     (insert src-block)
+
+                     (goto-char (point-min))
+                     (while (not (eobp))
+                       (delete-region (point) (if (> (+ (point) indentation) (line-end-position))
+                                                  (line-end-position)
+                                                (+ (point) indentation)))
+                       (forward-line))
+                     (buffer-substring-no-properties (point-min)
+                                                     (point-max)))))
+               :buffer buf
+               :begin begin-marker
+               :end end-marker
+               :indentation indentation
+               :last-point (lambda () (1- end-marker))
+               :cur-position (lambda ()
+                               (lsp-save-restriction-and-excursion
+                                 (list :line (- (lsp--cur-line)
+                                                (lsp--cur-line begin-marker))
+                                       :character (let ((character (- (point)
+                                                                      (line-beginning-position)
+                                                                      indentation)))
+                                                    (if (< character 0)
+                                                        0
+                                                      character)))))
+               :line/character->point (-lambda (line character)
+                                        (-let [inhibit-field-text-motion t]
+                                          (+ indentation
+                                             (lsp-save-restriction-and-excursion
+                                               (goto-char begin-marker)
+                                               (forward-line line)
+                                               (-let [line-end (line-end-position)]
+                                                 (if (> character (- line-end (point)))
+                                                     line-end
+                                                   (forward-char character)
+                                                   (point)))))))
+               :major-mode (org-src-get-lang-mode language)
+               :buffer-file-name file-name
+               :buffer-uri (lsp--path-to-uri file-name)
+               :with-current-buffer wcb
+               :buffer-live? (lambda (_) (buffer-live-p buf))
+               :buffer-name (lambda (_)
+                              (propertize (format "%s(%s:%s)%s"
+                                                  (buffer-name buf)
+                                                  begin-marker
+                                                  end-marker
+                                                  language)
+                                          'face 'italic))
+               :real->virtual-line (lambda (line)
+                                     (+ line (line-number-at-pos begin-marker) -1))
+               :real->virtual-char (lambda (char) (+ char indentation))
+               :cleanup (lambda ()
+                          (set-marker begin-marker nil)
+                          (set-marker end-marker nil))))
+        (setf virtual-buffer lsp--virtual-buffer)
+        (puthash file-name virtual-buffer lsp--virtual-buffer-mappings)
+        (push virtual-buffer lsp--virtual-buffer-connections)
+
+        ;; TODO: tangle only connected sections
+        (add-hook 'after-save-hook 'org-babel-tangle nil t)
+        (add-hook 'lsp-after-open-hook #'lsp-patch-on-change-event nil t)
+        (add-hook 'kill-buffer-hook #'lsp-kill-virtual-buffers nil t)
+
+        (setq lsp--buffer-workspaces
+              (lsp-with-current-buffer virtual-buffer
+                (lsp)
+                (plist-put virtual-buffer :workspaces (lsp-workspaces))
+                (lsp-workspaces)))))))
+
+(defun lsp-virtual-buffer-disconnect (virtual-buffer)
+  (interactive (list (or
+                      lsp--virtual-buffer
+                      (when lsp--virtual-buffer-connections
+                        (lsp--completing-read "Select virtual buffer to disconnect: "
+                                              lsp--virtual-buffer-connections
+                                              (-lambda ((&plist :buffer-file-name))
+                                                buffer-file-name))))))
+  (-if-let ((&plist :buffer-file-name file-name :cleanup) virtual-buffer)
+      (progn
+        (lsp-with-current-buffer virtual-buffer
+          (lsp--text-document-did-close))
+        (setq lsp--virtual-buffer-connections (-remove-item virtual-buffer lsp--virtual-buffer-connections))
+        (when (eq virtual-buffer lsp--virtual-buffer)
+          (setf lsp--virtual-buffer nil))
+        (when cleanup (funcall cleanup))
+        (remhash file-name lsp--virtual-buffer-mappings)
+
+        (lsp--virtual-buffer-update-position)
+        (lsp--info "Disconnected from buffer %s" file-name))
+    (lsp--error "Nothing to disconnect from?")))
+
+
+;; inlay hints
+
+(defface lsp-inlay-hint-face
+  '((t :inherit font-lock-comment-face))
+  "The face to use for the JavaScript inlays."
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defface lsp-inlay-hint-type-face
+  '((t :inherit lsp-inlay-hint-face))
+  "Face for inlay type hints (e.g. inferred variable types)."
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-inlay-hint-type-format "%s"
+  "Format string for variable inlays (part of the inlay face)."
+  :type '(string :tag "String")
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defface lsp-inlay-hint-parameter-face
+  '((t :inherit lsp-inlay-hint-face))
+  "Face for inlay parameter hints (e.g. function parameter names at
+call-site)."
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-inlay-hint-param-format "%s"
+  "Format string for parameter inlays (part of the inlay face)."
+  :type '(string :tag "String")
+  :group 'lsp-mode
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defcustom lsp-update-inlay-hints-on-scroll t
+  "If non-nil update inlay hints immediately when scrolling or
+modifying window sizes."
+  :type 'boolean
+  :package-version '(lsp-mode . "9.0.0"))
+
+(defun lsp--format-inlay (text kind)
+  (cond
+   ((eql kind lsp/inlay-hint-kind-type-hint) (format lsp-inlay-hint-type-format text))
+   ((eql kind lsp/inlay-hint-kind-parameter-hint) (format lsp-inlay-hint-param-format text))
+   (t text)))
+
+(defun lsp--face-for-inlay (kind)
+  (cond
+   ((eql kind lsp/inlay-hint-kind-type-hint) 'lsp-inlay-hint-type-face)
+   ((eql kind lsp/inlay-hint-kind-parameter-hint) 'lsp-inlay-hint-parameter-face)
+   (t 'lsp-inlay-hint-face)))
+
+(defun lsp--update-inlay-hints-scroll-function (window start)
+  (lsp-update-inlay-hints start (window-end window t)))
+
+(defun lsp--update-inlay-hints ()
+  (lsp-update-inlay-hints (window-start) (window-end nil t)))
+
+(defun lsp--label-from-inlay-hints-response (label)
+  "Returns a string label built from an array of
+InlayHintLabelParts or the argument itself if it's already a
+string."
+  (cl-typecase label
+    (string label)
+    (vector
+     (string-join (mapcar (lambda (part)
+                            (-let (((&InlayHintLabelPart :value) part))
+                              value))
+                          label)))))
+
+(defun lsp-update-inlay-hints (start end)
+  (lsp-request-async
+   "textDocument/inlayHint"
+   (lsp-make-inlay-hints-params
+    :text-document (lsp--text-document-identifier)
+    :range (lsp-make-range :start
+                           (lsp-point-to-position start)
+                           :end
+                           (lsp-point-to-position end)))
+   (lambda (res)
+     (lsp--remove-overlays 'lsp-inlay-hint)
+     (dolist (hint res)
+       (-let* (((&InlayHint :label :position :kind? :padding-left? :padding-right?) hint)
+               (kind (or kind? lsp/inlay-hint-kind-type-hint))
+               (label (lsp--label-from-inlay-hints-response label))
+               (pos (lsp--position-to-point position))
+               (overlay (make-overlay pos pos nil 'front-advance 'end-advance)))
+         (when (stringp label)
+           (overlay-put overlay 'lsp-inlay-hint t)
+           (overlay-put overlay 'before-string
+                        (format "%s%s%s"
+                                (if padding-left? " " "")
+                                (propertize (lsp--format-inlay label kind)
+                                            'font-lock-face (lsp--face-for-inlay kind))
+                                (if padding-right? " " "")))))))
+   :mode 'tick))
+
+(define-minor-mode lsp-inlay-hints-mode
+  "Mode for displaying inlay hints."
+  :lighter nil
+  (cond
+   ((and lsp-inlay-hints-mode lsp--buffer-workspaces)
+    (add-hook 'lsp-on-idle-hook #'lsp--update-inlay-hints nil t)
+    (when lsp-update-inlay-hints-on-scroll
+      (add-to-list (make-local-variable 'window-scroll-functions)
+                   #'lsp--update-inlay-hints-scroll-function)))
+   (t
+    (lsp--remove-overlays 'lsp-inlay-hint)
+    (remove-hook 'lsp-on-idle-hook #'lsp--update-inlay-hints t)
+    (setf window-scroll-functions
+          (delete #'lsp--update-inlay-hints-scroll-function window-scroll-functions)))))
+
+
+
+;;;###autoload
+(defun lsp-start-plain ()
+  "Start `lsp-mode' using minimal configuration using the latest `melpa' version
+of the packages.
+
+In case the major-mode that you are using for "
+  (interactive)
+  (let ((start-plain (make-temp-file "plain" nil ".el")))
+    (url-copy-file "https://raw.githubusercontent.com/emacs-lsp/lsp-mode/master/scripts/lsp-start-plain.el"
+                   start-plain t)
+    (start-process "lsp-start-plain"
+                   (generate-new-buffer " *lsp-start-plain*")
+                   (expand-file-name invocation-name invocation-directory)
+                    "-q" "-l" start-plain (or (buffer-file-name) ""))))
+
+
+
+(provide 'lsp-mode)
+;;; lsp-mode.el ends here
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mode.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-mode.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-modeline.el b/emacs/elpa/lsp-mode-20241123.739/lsp-modeline.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-modeline.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-modeline.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mojo.el b/emacs/elpa/lsp-mode-20241123.739/lsp-mojo.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-mojo.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-mojo.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-move.el b/emacs/elpa/lsp-mode-20241123.739/lsp-move.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-move.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-move.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nextflow.el b/emacs/elpa/lsp-mode-20241123.739/lsp-nextflow.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nextflow.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-nextflow.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nginx.el b/emacs/elpa/lsp-mode-20241123.739/lsp-nginx.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nginx.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-nginx.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nim.el b/emacs/elpa/lsp-mode-20241123.739/lsp-nim.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nim.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-nim.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nix.el b/emacs/elpa/lsp-mode-20241123.739/lsp-nix.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nix.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-nix.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nushell.el b/emacs/elpa/lsp-mode-20241123.739/lsp-nushell.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-nushell.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-nushell.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ocaml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ocaml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ocaml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ocaml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-openscad.el b/emacs/elpa/lsp-mode-20241123.739/lsp-openscad.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-openscad.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-openscad.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-perl.el b/emacs/elpa/lsp-mode-20241123.739/lsp-perl.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-perl.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-perl.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-perlnavigator.el b/emacs/elpa/lsp-mode-20241123.739/lsp-perlnavigator.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-perlnavigator.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-perlnavigator.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-php.el b/emacs/elpa/lsp-mode-20241123.739/lsp-php.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-php.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-php.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pls.el b/emacs/elpa/lsp-mode-20241123.739/lsp-pls.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pls.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-pls.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-prolog.el b/emacs/elpa/lsp-mode-20241123.739/lsp-prolog.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-prolog.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-prolog.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241123.739/lsp-protocol.el b/emacs/elpa/lsp-mode-20241123.739/lsp-protocol.el
@@ -0,0 +1,830 @@
+;;; lsp-protocol.el --- Language Sever Protocol Bindings  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2020  Ivan Yonchovski
+
+;; Author: Ivan Yonchovski <yyoncho@gmail.com>
+;; Keywords: convenience
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Autogenerated bindings from lsp4j using
+;; https://github.com/victools/jsonschema-generator+scripts to generate
+;; scripts/generated.protocol.schema.json and then
+;; scripts/lsp-generate-bindings.el
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'dash)
+(require 'ht)
+(require 's)
+(require 'json)
+
+(eval-and-compile
+  (defun lsp-keyword->symbol (keyword)
+    "Convert a KEYWORD to symbol."
+    (intern (substring (symbol-name keyword) 1)))
+
+  (defun lsp-keyword->string (keyword)
+    "Convert a KEYWORD to string."
+    (substring (symbol-name keyword) 1))
+
+  (defvar lsp-use-plists (getenv "LSP_USE_PLISTS")))
+
+(defmacro lsp-interface (&rest interfaces)
+  "Generate LSP bindings from INTERFACES triplet.
+
+Example usage with `dash`.
+
+\(-let [(&ApplyWorkspaceEditResponse
+  :failure-reason?) (ht (\"failureReason\" \"...\"))]
+  failure-reason?)
+
+\(fn (INTERFACE-NAME-1 REQUIRED-FIELDS-1 OPTIONAL-FIELDS-1) (INTERFACE-NAME-2 REQUIRED-FIELDS-2 OPTIONAL-FIELDS-2) ...)"
+  (with-case-table ascii-case-table
+    (->> interfaces
+         (-map (-lambda ((interface required optional))
+                 (let ((params (nconc
+                                (-map (lambda (param-name)
+                                        (cons
+                                         (intern (concat ":" (s-dashed-words (symbol-name param-name)) "?"))
+                                         param-name))
+                                      optional)
+                                (-map (lambda (param-name)
+                                        (cons (intern (concat ":" (s-dashed-words (symbol-name param-name))))
+                                              param-name))
+                                      required))))
+                   (cl-list*
+                    `(defun ,(intern (format "dash-expand:&%s" interface)) (key source)
+                       (unless (or (member key ',(-map #'cl-first params))
+                                   (s-starts-with? ":_" (symbol-name key)))
+                         (error "Unknown key: %s.  Available keys: %s" key ',(-map #'cl-first params)))
+                       ,(if lsp-use-plists
+                            ``(plist-get ,source
+                                         ,(if (s-starts-with? ":_" (symbol-name key))
+                                              key
+                                            (cl-rest (assoc key ',params))))
+                          ``(gethash ,(if (s-starts-with? ":_" (symbol-name key))
+                                          (substring (symbol-name key) 1)
+                                        (substring (symbol-name
+                                                    (cl-rest (assoc key ',params)))
+                                                   1))
+                                     ,source)))
+                    `(defun ,(intern (format "dash-expand:&%s?" interface)) (key source)
+                       (unless (member key ',(-map #'cl-first params))
+                         (error "Unknown key: %s.  Available keys: %s" key ',(-map #'cl-first params)))
+                       ,(if lsp-use-plists
+                            ``(plist-get ,source
+                                         ,(if (s-starts-with? ":_" (symbol-name key))
+                                              key
+                                            (cl-rest (assoc key ',params))))
+                          ``(when (ht? ,source)
+                              (gethash ,(substring (symbol-name
+                                                    (cl-rest (assoc key ',params)))
+                                                   1)
+                                       ,source))))
+
+                    `(defun ,(intern (format "lsp-%s?" (s-dashed-words (symbol-name interface)))) (object)
+                       (cond
+                        ((ht? object)
+                         (-all? (let ((keys (ht-keys object)))
+                                  (lambda (prop)
+                                    (member prop keys)))
+                                ',(-map (lambda (field-name)
+                                          (substring (symbol-name field-name) 1))
+                                        required)))
+                        ((listp object) (-all? (lambda (prop)
+                                                 (plist-member object prop))
+                                               ',required))))
+                    `(cl-defun ,(intern (format "lsp-make-%s" (s-dashed-words (symbol-name interface))))
+                         (&rest plist &key ,@(-map (-lambda ((key))
+                                                     (let ((key-sym (intern (substring (symbol-name key) 1))))
+                                                       (if (special-variable-p key-sym)
+                                                           `((,key ,(intern (format "%s_" (symbol-name key-sym)))))
+                                                         key-sym)))
+                                                   params)
+                                &allow-other-keys)
+                       ,(format "Constructs %s from `plist.'
+Allowed params: %s" interface (reverse (-map #'cl-first params)))
+                       (ignore ,@(-map (-lambda ((key))
+                                         (let ((key-sym (intern (substring (symbol-name key) 1))))
+                                           (if (special-variable-p key-sym)
+                                               (intern (format "%s_" (symbol-name key-sym)))
+                                             key-sym)))
+                                       params))
+                       ,(if lsp-use-plists
+                            `(-mapcat (-lambda ((key value))
+                                        (list (or (cl-rest (assoc key ',params)) key) value))
+                                      (-partition 2 plist))
+                          `(let (($$result (ht)))
+                             (mapc (-lambda ((key value))
+                                     (puthash (lsp-keyword->string (or (cl-rest (assoc key ',params))
+                                                                       key))
+                                              value
+                                              $$result))
+                                   (-partition 2 plist))
+                             $$result)))
+                    `(cl-defun ,(intern (format "lsp--pcase-macroexpander-%s" interface)) (&rest property-bindings)
+                       ,(if lsp-use-plists
+                            ``(and
+                               (pred listp)
+                               ;; Check if all the types required by the
+                               ;; interface exist in the expr-val.
+                               ,@(-map
+                                  (lambda (key)
+                                    `(pred
+                                      (lambda (plist)
+                                        (plist-member plist ,key))))
+                                  ',required)
+                               ;; Recursively generate the bindings.
+                               ,@(let ((current-list property-bindings)
+                                       (output-bindings nil))
+                                   ;; Invariant: while current-list is
+                                   ;; non-nil, the car of current-list is
+                                   ;; always of the form :key, while the
+                                   ;; cadr of current-list is either a)
+                                   ;; nil, b) of the form :key-next or c)
+                                   ;; a pcase pattern that can
+                                   ;; recursively match an expression.
+                                   (while current-list
+                                     (-let* (((curr-binding-as-keyword next-entry . _) current-list)
+                                             (curr-binding-as-camelcased-symbol
+                                              (or (alist-get curr-binding-as-keyword ',params)
+                                                  (error "Unknown key: %s.  Available keys: %s"
+                                                         (symbol-name curr-binding-as-keyword)
+                                                         ',(-map #'cl-first params))))
+                                             (bound-name (lsp-keyword->symbol curr-binding-as-keyword))
+                                             (next-entry-is-key-or-nil
+                                              (and (symbolp next-entry)
+                                                   (or (null next-entry)
+                                                       (s-starts-with? ":" (symbol-name next-entry))))))
+                                       (cond
+                                        ;; If the next-entry is either a
+                                        ;; plist-key or nil, then bind to
+                                        ;; bound-name the value corresponding
+                                        ;; to the camelcased symbol.  Pop
+                                        ;; current-list once.
+                                        (next-entry-is-key-or-nil
+                                         (push `(app (lambda (plist)
+                                                       (plist-get plist ,curr-binding-as-camelcased-symbol))
+                                                     ,bound-name)
+                                               output-bindings)
+                                         (setf current-list (cdr current-list)))
+                                        ;; Otherwise, next-entry is a pcase
+                                        ;; pattern we recursively match to the
+                                        ;; expression. This can in general
+                                        ;; create additional bindings that we
+                                        ;; persist in the top level of
+                                        ;; bindings.  We pop current-list
+                                        ;; twice.
+                                        (t
+                                         (push `(app (lambda (plist)
+                                                       (plist-get plist ,curr-binding-as-camelcased-symbol))
+                                                     ,next-entry)
+                                               output-bindings)
+                                         (setf current-list (cddr current-list))))))
+                                   output-bindings))
+                          ``(and
+                             (pred ht?)
+                             ,@(-map
+                                (lambda (key)
+                                  `(pred
+                                    (lambda (hash-table)
+                                      (ht-contains? hash-table ,(lsp-keyword->string key)))))
+                                ',required)
+                             ,@(let ((current-list property-bindings)
+                                     (output-bindings nil))
+                                 (while current-list
+                                   (-let* (((curr-binding-as-keyword next-entry . _) current-list)
+                                           (curr-binding-as-camelcased-string
+                                            (lsp-keyword->string (or (alist-get curr-binding-as-keyword ',params)
+                                                                     (error "Unknown key: %s.  Available keys: %s"
+                                                                            (symbol-name curr-binding-as-keyword)
+                                                                            ',(-map #'cl-first params)))))
+                                           (bound-name (lsp-keyword->symbol curr-binding-as-keyword))
+                                           (next-entry-is-key-or-nil
+                                            (and (symbolp next-entry)
+                                                 (or (null next-entry)
+                                                     (s-starts-with? ":" (symbol-name next-entry))))))
+                                     (cond
+                                      (next-entry-is-key-or-nil
+                                       (push `(app (lambda (hash-table)
+                                                     (ht-get hash-table ,curr-binding-as-camelcased-string))
+                                                   ,bound-name)
+                                             output-bindings)
+                                       (setf current-list (cdr current-list)))
+                                      (t
+                                       (push `(app (lambda (hash-table)
+                                                     (ht-get hash-table ,curr-binding-as-camelcased-string))
+                                                   ,next-entry)
+                                             output-bindings)
+                                       (setf current-list (cddr current-list))))))
+                                 output-bindings))))
+                    (-mapcat (-lambda ((label . name))
+                               (list
+                                `(defun ,(intern (format "lsp:%s-%s"
+                                                         (s-dashed-words (symbol-name interface))
+                                                         (substring (symbol-name label) 1)))
+                                     (object)
+                                   ,(if lsp-use-plists
+                                        `(plist-get object ,name)
+                                      `(when (ht? object) (gethash ,(lsp-keyword->string name) object))))
+                                `(defun ,(intern (format "lsp:set-%s-%s"
+                                                         (s-dashed-words (symbol-name interface))
+                                                         (substring (symbol-name label) 1)))
+                                     (object value)
+                                   ,@(if lsp-use-plists
+                                         `((plist-put object ,name value))
+                                       `((puthash ,(lsp-keyword->string name) value object)
+                                         object)))))
+                             params)))))
+         (apply #'append)
+         (cl-list* 'progn))))
+
+(pcase-defmacro lsp-interface (interface &rest property-bindings)
+  "If EXPVAL is an instance of INTERFACE, destructure it by matching its
+properties. EXPVAL should be a plist or hash table depending on the variable
+`lsp-use-plists'.
+
+INTERFACE should be an LSP interface defined with `lsp-interface'. This form
+will not match if any of INTERFACE's required fields are missing in EXPVAL.
+
+Each :PROPERTY keyword matches a field in EXPVAL. The keyword may be followed by
+an optional PATTERN, which is a `pcase' pattern to apply to the field's value.
+Otherwise, PROPERTY is let-bound to the field's value.
+
+\(fn INTERFACE [:PROPERTY [PATTERN]]...)"
+  (cl-check-type interface symbol)
+  (let ((lsp-pcase-macroexpander
+         (intern (format "lsp--pcase-macroexpander-%s" interface))))
+    (cl-assert (fboundp lsp-pcase-macroexpander) "not a known LSP interface: %s" interface)
+    (apply lsp-pcase-macroexpander property-bindings)))
+
+(if lsp-use-plists
+    (progn
+      (defun lsp-get (from key)
+        (plist-get from key))
+      (defun lsp-put (where key value)
+        (plist-put where key value))
+      (defun lsp-map (fn value)
+        (-map (-lambda ((k v))
+                (funcall fn (lsp-keyword->string k) v))
+              (-partition 2 value )))
+      (defalias 'lsp-merge 'append)
+      (defalias 'lsp-empty? 'null)
+      (defalias 'lsp-copy 'copy-sequence)
+      (defun lsp-member? (from key)
+        (when (listp from)
+          (plist-member from key)))
+      (defalias 'lsp-structure-p 'json-plist-p)
+      (defun lsp-delete (from key)
+        (cl-remf from key)
+        from))
+  (defun lsp-get (from key)
+    (when from
+      (gethash (lsp-keyword->string key) from)))
+  (defun lsp-put (where key value)
+    (prog1 where
+      (puthash (lsp-keyword->string key) value where)))
+  (defun lsp-map (fn value)
+    (when value
+      (maphash fn value)))
+  (defalias 'lsp-merge 'ht-merge)
+  (defalias 'lsp-empty? 'ht-empty?)
+  (defalias 'lsp-copy 'ht-copy)
+  (defun lsp-member? (from key)
+    (when (hash-table-p from)
+      (not (eq (gethash (lsp-keyword->string key) from :__lsp_default)
+               :__lsp_default))))
+  (defalias 'lsp-structure-p 'hash-table-p)
+  (defun lsp-delete (from key)
+    (ht-remove from (lsp-keyword->string key))
+    from))
+
+(defmacro lsp-defun (name match-form &rest body)
+  "Define a function named NAME.
+The function destructures its input as MATCH-FORM then executes BODY.
+
+Note that you have to enclose the MATCH-FORM in a pair of parens,
+such that:
+
+  (-defun (x) body)
+  (-defun (x y ...) body)
+
+has the usual semantics of `defun'.  Furthermore, these get
+translated into a normal `defun', so there is no performance
+penalty.
+
+See `-let' for a description of the destructuring mechanism."
+  (declare (doc-string 3) (indent defun)
+           (debug (&define name sexp
+                           [&optional stringp]
+                           [&optional ("declare" &rest sexp)]
+                           [&optional ("interactive" interactive)]
+                           def-body)))
+  (cond
+   ((nlistp match-form)
+    (signal 'wrong-type-argument (list #'listp match-form)))
+   ;; no destructuring, so just return regular defun to make things faster
+   ((-all? #'symbolp match-form)
+    `(defun ,name ,match-form ,@body))
+   (t
+    (-let* ((inputs (--map-indexed (list it (make-symbol (format "input%d" it-index))) match-form))
+            ((body docs) (cond
+                          ;; only docs
+                          ((and (stringp (car body))
+                                (not (cdr body)))
+                           (list body (car body)))
+                          ;; docs + body
+                          ((stringp (car body))
+                           (list (cdr body) (car body)))
+                          ;; no docs
+                          (t (list body))))
+            ((body interactive-form) (cond
+                                      ;; interactive form
+                                      ((and (listp (car body))
+                                            (eq (caar body) 'interactive))
+                                       (list (cdr body) (car body)))
+                                      ;; no interactive form
+                                      (t (list body)))))
+      ;; TODO: because inputs to the defun are evaluated only once,
+      ;; -let* need not to create the extra bindings to ensure that.
+      ;; We should find a way to optimize that.  Not critical however.
+      `(defun ,name ,(-map #'cadr inputs)
+         ,@(when docs (list docs))
+         ,@(when interactive-form (list interactive-form))
+         (-let* ,inputs ,@body))))))
+
+
+
+
+;; manually defined interfaces
+(defconst lsp/markup-kind-plain-text "plaintext")
+(defconst lsp/markup-kind-markdown "markdown")
+
+(lsp-interface (JSONResponse (:params :id :method :result) nil)
+               (JSONResponseError (:error) nil)
+               (JSONMessage nil (:params :id :method :result :error))
+               (JSONResult nil (:params :id :method))
+               (JSONNotification (:params :method) nil)
+               (JSONRequest (:params :method) nil)
+               (JSONError (:message :code) (:data))
+               (ProgressParams (:token :value) nil)
+               (Edit (:kind) nil)
+               (WorkDoneProgress (:kind) nil)
+               (WorkDoneProgressBegin  (:kind :title) (:cancellable :message :percentage))
+               (WorkDoneProgressReport  (:kind) (:cancellable :message :percentage))
+               (WorkDoneProgressEnd  (:kind) (:message))
+               (WorkDoneProgressOptions nil (:workDoneProgress))
+               (SemanticTokensOptions (:legend) (:rangeProvider :documentProvider))
+               (SemanticTokensLegend (:tokenTypes :tokenModifiers))
+               (SemanticTokensResult (:resultId) (:data))
+               (SemanticTokensPartialResult nil (:data))
+               (SemanticTokensEdit (:start :deleteCount) (:data))
+               (SemanticTokensDelta (:resultId) (:edits))
+               (SemanticTokensDeltaPartialResult nil (:edits)))
+
+(lsp-interface (v1:ProgressParams (:id :title) (:message :percentage :done)))
+
+(defun dash-expand:&RangeToPoint (key source)
+  "Convert the position KEY from SOURCE into a point."
+  `(lsp--position-to-point
+    (lsp-get ,source ,key)))
+
+(lsp-interface (eslint:StatusParams  (:state) nil)
+               (eslint:OpenESLintDocParams (:url) nil)
+               (eslint:ConfirmExecutionParams (:scope :file :libraryPath) nil))
+
+(lsp-interface (haxe:ProcessStartNotification (:title) nil))
+
+(lsp-interface (pwsh:ScriptRegion (:StartLineNumber :EndLineNumber :StartColumnNumber :EndColumnNumber :Text) nil))
+
+(lsp-interface (omnisharp:ErrorMessage (:Text :FileName :Line :Column))
+               (omnisharp:ProjectInformationRequest (:FileName))
+               (omnisharp:MsBuildProject (:IsUnitProject :IsExe :Platform :Configuration :IntermediateOutputPath :OutputPath :TargetFrameworks :SourceFiles :TargetFramework :TargetPath :AssemblyName :Path :ProjectGuid))
+               (omnisharp:ProjectInformation (:ScriptProject :MsBuildProject))
+               (omnisharp:CodeStructureRequest (:FileName))
+               (omnisharp:CodeStructureResponse (:Elements))
+               (omnisharp:CodeElement (:Kind :Name :DisplayName :Children :Ranges :Properties))
+               (omnisharp:CodeElementProperties () (:static :accessibility :testMethodName :testFramework))
+               (omnisharp:Range (:Start :End))
+               (omnisharp:RangeList () (:attributes :full :name))
+               (omnisharp:Point (:Line :Column))
+               (omnisharp:RunTestsInClassRequest (:MethodNames :RunSettings :TestFrameworkname :TargetFrameworkVersion :NoBuild :Line :Column :Buffer :FileName))
+               (omnisharp:RunTestResponse (:Results :Pass :Failure :ContextHadNoTests))
+               (omnisharp:TestMessageEvent (:MessageLevel :Message))
+               (omnisharp:DotNetTestResult (:MethodName :Outcome :ErrorMessage :ErrorStackTrace :StandardOutput :StandardError))
+               (omnisharp:MetadataRequest (:AssemblyName :TypeName :ProjectName :VersionNumber :Language))
+               (omnisharp:MetadataResponse (:SourceName :Source)))
+
+(lsp-interface (csharp-ls:CSharpMetadata (:textDocument))
+               (csharp-ls:CSharpMetadataResponse (:source :projectName :assemblyName :symbolName)))
+
+(lsp-interface (rls:Cmd (:args :binary :env :cwd) nil))
+
+(lsp-interface (rust-analyzer:AnalyzerStatusParams (:textDocument))
+               (rust-analyzer:SyntaxTreeParams (:textDocument) (:range))
+               (rust-analyzer:ViewHir (:textDocument :position))
+               (rust-analyzer:ViewItemTree (:textDocument))
+               (rust-analyzer:ExpandMacroParams (:textDocument :position) nil)
+               (rust-analyzer:ExpandedMacro (:name :expansion) nil)
+               (rust-analyzer:MatchingBraceParams (:textDocument :positions) nil)
+               (rust-analyzer:OpenCargoTomlParams (:textDocument) nil)
+               (rust-analyzer:OpenExternalDocsParams (:textDocument :position) nil)
+               (rust-analyzer:ResovedCodeActionParams (:id :codeActionParams) nil)
+               (rust-analyzer:JoinLinesParams (:textDocument :ranges) nil)
+               (rust-analyzer:MoveItemParams (:textDocument :range :direction) nil)
+               (rust-analyzer:RunnablesParams (:textDocument) (:position))
+               (rust-analyzer:Runnable (:label :kind :args) (:location))
+               (rust-analyzer:RunnableArgs (:cargoArgs :executableArgs) (:workspaceRoot :expectTest))
+               (rust-analyzer:RelatedTestsParams (:textDocument :position) nil)
+               (rust-analyzer:RelatedTests (:runnable) nil)
+               (rust-analyzer:SsrParams (:query :parseOnly) nil)
+               (rust-analyzer:CommandLink (:title :command) (:arguments :tooltip))
+               (rust-analyzer:CommandLinkGroup (:commands) (:title)))
+
+(lsp-interface (clojure-lsp:TestTreeParams (:uri :tree) nil)
+               (clojure-lsp:TestTreeNode (:name :range :nameRange :kind) (:children))
+               (clojure-lsp:ProjectTreeNode (:name :type) (:nodes :final :id :uri :detail :range)))
+
+(lsp-interface (terraform-ls:ModuleCalls (:v :module_calls) nil))
+(lsp-interface (terraform-ls:Module (:name :docs_link :version :source_type :dependent_modules) nil))
+(lsp-interface (terraform-ls:Providers (:v :provider_requirements :installed_providers) nil))
+(lsp-interface (terraform-ls:module.terraform (:v :required_version :discovered_version)))
+
+
+;; begin autogenerated code
+
+(defvar lsp/completion-item-kind-lookup
+  [nil Text Method Function Constructor Field Variable Class Interface Module Property Unit Value Enum Keyword Snippet Color File Reference Folder EnumMember Constant Struct Event Operator TypeParameter])
+(defconst lsp/completion-item-kind-text 1)
+(defconst lsp/completion-item-kind-method 2)
+(defconst lsp/completion-item-kind-function 3)
+(defconst lsp/completion-item-kind-constructor 4)
+(defconst lsp/completion-item-kind-field 5)
+(defconst lsp/completion-item-kind-variable 6)
+(defconst lsp/completion-item-kind-class 7)
+(defconst lsp/completion-item-kind-interface 8)
+(defconst lsp/completion-item-kind-module 9)
+(defconst lsp/completion-item-kind-property 10)
+(defconst lsp/completion-item-kind-unit 11)
+(defconst lsp/completion-item-kind-value 12)
+(defconst lsp/completion-item-kind-enum 13)
+(defconst lsp/completion-item-kind-keyword 14)
+(defconst lsp/completion-item-kind-snippet 15)
+(defconst lsp/completion-item-kind-color 16)
+(defconst lsp/completion-item-kind-file 17)
+(defconst lsp/completion-item-kind-reference 18)
+(defconst lsp/completion-item-kind-folder 19)
+(defconst lsp/completion-item-kind-enum-member 20)
+(defconst lsp/completion-item-kind-constant 21)
+(defconst lsp/completion-item-kind-struct 22)
+(defconst lsp/completion-item-kind-event 23)
+(defconst lsp/completion-item-kind-operator 24)
+(defconst lsp/completion-item-kind-type-parameter 25)
+(defvar lsp/completion-trigger-kind-lookup
+  [nil Invoked TriggerCharacter TriggerForIncompleteCompletions])
+(defconst lsp/completion-trigger-kind-invoked 1)
+(defconst lsp/completion-trigger-kind-trigger-character 2)
+(defconst lsp/completion-trigger-kind-trigger-for-incomplete-completions 3)
+(defvar lsp/diagnostic-severity-lookup
+  [nil Error Warning Information Hint Max])
+(defconst lsp/diagnostic-severity-error 1)
+(defconst lsp/diagnostic-severity-warning 2)
+(defconst lsp/diagnostic-severity-information 3)
+(defconst lsp/diagnostic-severity-hint 4)
+(defconst lsp/diagnostic-severity-max 5)
+(defvar lsp/diagnostic-tag-lookup
+  [nil Unnecessary Deprecated])
+(defconst lsp/diagnostic-tag-unnecessary 1)
+(defconst lsp/diagnostic-tag-deprecated 2)
+(defvar lsp/completion-item-tag-lookup
+  [nil Deprecated])
+(defconst lsp/completion-item-tag-deprecated 1)
+(defvar lsp/document-highlight-kind-lookup
+  [nil Text Read Write])
+(defconst lsp/document-highlight-kind-text 1)
+(defconst lsp/document-highlight-kind-read 2)
+(defconst lsp/document-highlight-kind-write 3)
+(defvar lsp/file-change-type-lookup
+  [nil Created Changed Deleted])
+(defconst lsp/file-change-type-created 1)
+(defconst lsp/file-change-type-changed 2)
+(defconst lsp/file-change-type-deleted 3)
+(defvar lsp/insert-text-format-lookup
+  [nil PlainText Snippet])
+(defconst lsp/insert-text-format-plain-text 1)
+(defconst lsp/insert-text-format-snippet 2)
+(defvar lsp/insert-text-mode-lookup
+  [nil AsIs AdjustIndentation])
+(defconst lsp/insert-text-mode-as-it 1)
+(defconst lsp/insert-text-mode-adjust-indentation 2)
+(defvar lsp/message-type-lookup
+  [nil Error Warning Info Log])
+(defconst lsp/message-type-error 1)
+(defconst lsp/message-type-warning 2)
+(defconst lsp/message-type-info 3)
+(defconst lsp/message-type-log 4)
+(defvar lsp/signature-help-trigger-kind-lookup
+  [nil Invoked TriggerCharacter ContentChange])
+(defconst lsp/signature-help-trigger-kind-invoked 1)
+(defconst lsp/signature-help-trigger-kind-trigger-character 2)
+(defconst lsp/signature-help-trigger-kind-content-change 3)
+(defvar lsp/symbol-kind-lookup
+  [nil File Module Namespace Package Class Method Property Field Constructor Enum Interface Function Variable Constant String Number Boolean Array Object Key Null EnumMember Struct Event Operator TypeParameter])
+(defconst lsp/symbol-kind-file 1)
+(defconst lsp/symbol-kind-module 2)
+(defconst lsp/symbol-kind-namespace 3)
+(defconst lsp/symbol-kind-package 4)
+(defconst lsp/symbol-kind-class 5)
+(defconst lsp/symbol-kind-method 6)
+(defconst lsp/symbol-kind-property 7)
+(defconst lsp/symbol-kind-field 8)
+(defconst lsp/symbol-kind-constructor 9)
+(defconst lsp/symbol-kind-enum 10)
+(defconst lsp/symbol-kind-interface 11)
+(defconst lsp/symbol-kind-function 12)
+(defconst lsp/symbol-kind-variable 13)
+(defconst lsp/symbol-kind-constant 14)
+(defconst lsp/symbol-kind-string 15)
+(defconst lsp/symbol-kind-number 16)
+(defconst lsp/symbol-kind-boolean 17)
+(defconst lsp/symbol-kind-array 18)
+(defconst lsp/symbol-kind-object 19)
+(defconst lsp/symbol-kind-key 20)
+(defconst lsp/symbol-kind-null 21)
+(defconst lsp/symbol-kind-enum-member 22)
+(defconst lsp/symbol-kind-struct 23)
+(defconst lsp/symbol-kind-event 24)
+(defconst lsp/symbol-kind-operator 25)
+(defconst lsp/symbol-kind-type-parameter 26)
+(defvar lsp/text-document-save-reason-lookup
+  [nil Manual AfterDelay FocusOut])
+(defconst lsp/text-document-save-reason-manual 1)
+(defconst lsp/text-document-save-reason-after-delay 2)
+(defconst lsp/text-document-save-reason-focus-out 3)
+(defvar lsp/text-document-sync-kind-lookup
+  [None Full Incremental])
+(defconst lsp/text-document-sync-kind-none 0)
+(defconst lsp/text-document-sync-kind-full 1)
+(defconst lsp/text-document-sync-kind-incremental 2)
+(defvar lsp/type-hierarchy-direction-lookup
+  [nil Children Parents Both])
+(defconst lsp/type-hierarchy-direction-children 1)
+(defconst lsp/type-hierarchy-direction-parents 2)
+(defconst lsp/type-hierarchy-direction-both 3)
+(defvar lsp/call-hierarchy-direction-lookup
+  [nil CallsFrom CallsTo])
+(defconst lsp/call-hierarchy-direction-calls-from 1)
+(defconst lsp/call-hierarchy-direction-calls-to 2)
+(defvar lsp/response-error-code-lookup
+  [nil ParseError InvalidRequest MethodNotFound InvalidParams InternalError serverErrorStart serverErrorEnd])
+(defconst lsp/response-error-code-parse-error 1)
+(defconst lsp/response-error-code-invalid-request 2)
+(defconst lsp/response-error-code-method-not-found 3)
+(defconst lsp/response-error-code-invalid-params 4)
+(defconst lsp/response-error-code-internal-error 5)
+(defconst lsp/response-error-code-server-error-start 6)
+(defconst lsp/response-error-code-server-error-end 7)
+
+(lsp-interface
+ (CallHierarchyCapabilities nil (:dynamicRegistration))
+ (CallHierarchyItem (:kind :name :range :selectionRange :uri) (:detail :tags))
+ (ClientCapabilities nil (:experimental :textDocument :workspace))
+ (ClientInfo (:name) (:version))
+ (CodeActionCapabilities nil (:codeActionLiteralSupport :dynamicRegistration :isPreferredSupport :dataSupport :resolveSupport))
+ (CodeActionContext (:diagnostics) (:only))
+ (CodeActionKindCapabilities (:valueSet) nil)
+ (CodeActionLiteralSupportCapabilities nil (:codeActionKind))
+ (CodeActionOptions nil (:codeActionKinds :resolveProvider))
+ (CodeLensCapabilities nil (:dynamicRegistration))
+ (CodeLensOptions (:resolveProvider) nil)
+ (Color (:red :green :blue :alpha) nil)
+ (ColorProviderCapabilities nil (:dynamicRegistration))
+ (ColorProviderOptions nil (:documentSelector :id))
+ (ColoringInformation (:range :styles) nil)
+ (Command (:title :command) (:arguments))
+ (CompletionCapabilities nil (:completionItem :completionItemKind :contextSupport :dynamicRegistration))
+ (CompletionContext (:triggerKind) (:triggerCharacter))
+ (CompletionItem (:label) (:additionalTextEdits :command :commitCharacters :data :deprecated :detail :documentation :filterText :insertText :insertTextFormat :insertTextMode :kind :preselect :sortText :tags :textEdit :score :labelDetails))
+ (CompletionItemCapabilities nil (:commitCharactersSupport :deprecatedSupport :documentationFormat :preselectSupport :snippetSupport :tagSupport :insertReplaceSupport :resolveSupport))
+ (CompletionItemKindCapabilities nil (:valueSet))
+ (CompletionItemTagSupportCapabilities (:valueSet) nil)
+ (CompletionOptions nil (:resolveProvider :triggerCharacters :allCommitCharacters))
+ (ConfigurationItem nil (:scopeUri :section))
+ (CreateFileOptions nil (:ignoreIfExists :overwrite))
+ (DeclarationCapabilities nil (:dynamicRegistration :linkSupport))
+ (DefinitionCapabilities nil (:dynamicRegistration :linkSupport))
+ (DeleteFileOptions nil (:ignoreIfNotExists :recursive))
+ (Diagnostic (:range :message) (:code :relatedInformation :severity :source :tags))
+ (DiagnosticClientCapabilities nil (:dynamicRegistration :relatedDocumentSupport))
+ (DiagnosticOptions (:interFileDependencies :workspaceDiagnostics) (:identifier))
+ (DiagnosticRelatedInformation (:location :message) nil)
+ (DiagnosticServerCancellationData (:retriggerRequest) nil)
+ (DiagnosticsTagSupport (:valueSet) nil)
+ (DidChangeConfigurationCapabilities nil (:dynamicRegistration))
+ (DidChangeWatchedFilesCapabilities nil (:dynamicRegistration))
+ (DocumentDiagnosticParams (:textDocument) (:identifier :previousResultId))
+ (DocumentDiagnosticReport (:kind) (:resultId :items :relatedDocuments))
+ (DocumentFilter nil (:language :pattern :scheme))
+ (DocumentHighlightCapabilities nil (:dynamicRegistration))
+ (DocumentLinkCapabilities nil (:dynamicRegistration :tooltipSupport))
+ (DocumentLinkOptions nil (:resolveProvider))
+ (DocumentOnTypeFormattingOptions (:firstTriggerCharacter) (:moreTriggerCharacter))
+ (DocumentSymbol (:kind :name :range :selectionRange) (:children :deprecated :detail))
+ (DocumentSymbolCapabilities nil (:dynamicRegistration :hierarchicalDocumentSymbolSupport :symbolKind))
+ (ExecuteCommandCapabilities nil (:dynamicRegistration))
+ (ExecuteCommandOptions (:commands) nil)
+ (FileEvent (:type :uri) nil)
+ (FileSystemWatcher (:globPattern) (:kind))
+ (FileOperationFilter (:pattern) (:scheme))
+ (FileOperationPattern (:glob) (:matches :options))
+ (FileOperationPatternOptions nil (:ignoreCase))
+ (FileOperationRegistrationOptions (:filters) nil)
+ (FoldingRangeCapabilities nil (:dynamicRegistration :lineFoldingOnly :rangeLimit))
+ (FoldingRangeProviderOptions nil (:documentSelector :id))
+ (FormattingCapabilities nil (:dynamicRegistration))
+ (FormattingOptions (:tabSize :insertSpaces) (:trimTrailingWhitespace :insertFinalNewline :trimFinalNewlines))
+ (HoverCapabilities nil (:contentFormat :dynamicRegistration))
+ (ImplementationCapabilities nil (:dynamicRegistration :linkSupport))
+ (LabelDetails (:detail :description) nil)
+ (LinkedEditingRanges (:ranges) (:wordPattern))
+ (Location (:range :uri) nil)
+ (MarkedString (:language :value) nil)
+ (MarkupContent (:kind :value) nil)
+ (MessageActionItem (:title) nil)
+ (OnTypeFormattingCapabilities nil (:dynamicRegistration))
+ (ParameterInformation (:label) (:documentation))
+ (ParameterInformationCapabilities nil (:labelOffsetSupport))
+ (Position (:character :line) nil)
+ (PublishDiagnosticsCapabilities nil (:relatedInformation :tagSupport :versionSupport))
+ (Range (:start :end) nil)
+ (RangeFormattingCapabilities nil (:dynamicRegistration))
+ (ReferenceContext (:includeDeclaration) nil)
+ (ReferencesCapabilities nil (:dynamicRegistration))
+ (Registration (:method :id) (:registerOptions))
+ (RenameCapabilities nil (:dynamicRegistration :prepareSupport))
+ (RenameFileOptions nil (:ignoreIfExists :overwrite))
+ (RenameOptions nil (:documentSelector :id :prepareProvider))
+ (ResourceChange nil (:current :newUri))
+ (ResourceOperation (:kind) nil)
+ (SaveOptions nil (:includeText))
+ (SelectionRange (:range) (:parent))
+ (SelectionRangeCapabilities nil (:dynamicRegistration))
+ (SemanticHighlightingCapabilities nil (:semanticHighlighting))
+ (SemanticHighlightingInformation (:line) (:tokens))
+ (SemanticHighlightingServerCapabilities nil (:scopes))
+ (ServerCapabilities nil (:callHierarchyProvider :codeActionProvider :codeLensProvider :colorProvider :completionProvider :declarationProvider :definitionProvider :documentFormattingProvider :documentHighlightProvider :documentLinkProvider :documentOnTypeFormattingProvider :documentRangeFormattingProvider :documentSymbolProvider :executeCommandProvider :experimental :foldingRangeProvider :hoverProvider :implementationProvider :referencesProvider :renameProvider :selectionRangeProvider :semanticHighlighting :signatureHelpProvider :textDocumentSync :typeDefinitionProvider :typeHierarchyProvider :workspace :workspaceSymbolProvider :semanticTokensProvider))
+ (ServerInfo (:name) (:version))
+ (SignatureHelp (:signatures) (:activeParameter :activeSignature))
+ (SignatureHelpCapabilities nil (:contextSupport :dynamicRegistration :signatureInformation))
+ (SignatureHelpContext (:triggerKind :isRetrigger) (:activeSignatureHelp :triggerCharacter))
+ (SignatureHelpOptions nil (:retriggerCharacters :triggerCharacters))
+ (SignatureInformation (:label) (:documentation :parameters))
+ (SignatureInformationCapabilities nil (:documentationFormat :parameterInformation))
+ (StaticRegistrationOptions nil (:documentSelector :id))
+ (SymbolCapabilities nil (:dynamicRegistration :symbolKind))
+ (SymbolKindCapabilities nil (:valueSet))
+ (SynchronizationCapabilities nil (:didSave :dynamicRegistration :willSave :willSaveWaitUntil))
+ (TextDocumentClientCapabilities nil (:callHierarchy :codeAction :codeLens :colorProvider :completion :declaration :definition :documentHighlight :documentLink :documentSymbol :foldingRange :formatting :hover :implementation :onTypeFormatting :publishDiagnostics :rangeFormatting :references :rename :selectionRange :semanticHighlightingCapabilities :signatureHelp :synchronization :typeDefinition :typeHierarchyCapabilities))
+ (TextDocumentContentChangeEvent (:text) (:range :rangeLength))
+ (TextDocumentEdit (:textDocument :edits) nil)
+ (TextDocumentIdentifier (:uri) nil)
+ (TextDocumentItem (:languageId :text :uri :version) nil)
+ (TextDocumentSyncOptions nil (:change :openClose :save :willSave :willSaveWaitUntil))
+ (TextEdit (:newText :range) nil)
+ (InsertReplaceEdit (:newText :insert :replace) nil)
+ (SnippetTextEdit (:newText :range) (:insertTextFormat))
+ (TypeDefinitionCapabilities nil (:dynamicRegistration :linkSupport))
+ (TypeHierarchyCapabilities nil (:dynamicRegistration))
+ (TypeHierarchyItem (:kind :name :range :selectionRange :uri) (:children :data :deprecated :detail :parents))
+ (Unregistration (:method :id) nil)
+ (VersionedTextDocumentIdentifier (:uri) (:version))
+ (WorkspaceClientCapabilities nil (:applyEdit :configuration :didChangeConfiguration :didChangeWatchedFiles :executeCommand :symbol :workspaceEdit :workspaceFolders))
+ (WorkspaceEdit nil (:changes :documentChanges :resourceChanges))
+ (WorkspaceEditCapabilities nil (:documentChanges :failureHandling :resourceChanges :resourceOperations))
+ (WorkspaceFolder (:uri :name) nil)
+ (WorkspaceFoldersChangeEvent (:removed :added) nil)
+ (WorkspaceFoldersOptions nil (:changeNotifications :supported))
+ (WorkspaceServerCapabilities nil (:workspaceFolders :fileOperations))
+ (WorkspaceFileOperations nil (:didCreate :willCreate :didRename :willRename :didDelete :willDelete))
+ (ApplyWorkspaceEditParams (:edit) (:label))
+ (ApplyWorkspaceEditResponse (:applied) nil)
+ (CallHierarchyIncomingCall (:from :fromRanges) nil)
+ (CallHierarchyIncomingCallsParams (:item) nil)
+ (CallHierarchyOutgoingCall (:to :fromRanges) nil)
+ (CallHierarchyOutgoingCallsParams (:item) nil)
+ (CallHierarchyPrepareParams (:textDocument :position) (:uri))
+ (CodeAction (:title) (:command :diagnostics :edit :isPreferred :kind :data))
+ (CodeActionKind nil nil)
+ (CodeActionParams (:textDocument :context :range) nil)
+ (CodeLens (:range) (:command :data))
+ (CodeLensParams (:textDocument) nil)
+ (CodeLensRegistrationOptions nil (:documentSelector :resolveProvider))
+ (ColorInformation (:color :range) nil)
+ (ColorPresentation (:label) (:additionalTextEdits :textEdit))
+ (ColorPresentationParams (:color :textDocument :range) nil)
+ (ColoringParams (:uri :infos) nil)
+ (ColoringStyle nil nil)
+ (CompletionList (:items :isIncomplete) nil)
+ (CompletionParams (:textDocument :position) (:context :uri))
+ (CompletionRegistrationOptions nil (:documentSelector :resolveProvider :triggerCharacters))
+ (ConfigurationParams (:items) nil)
+ (CreateFile (:kind :uri) (:options))
+ (DeclarationParams (:textDocument :position) (:uri))
+ (DefinitionParams (:textDocument :position) (:uri))
+ (DeleteFile (:kind :uri) (:options))
+ (DidChangeConfigurationParams (:settings) nil)
+ (DidChangeTextDocumentParams (:contentChanges :textDocument) (:uri))
+ (DidChangeWatchedFilesParams (:changes) nil)
+ (DidChangeWatchedFilesRegistrationOptions (:watchers) nil)
+ (DidChangeWorkspaceFoldersParams (:event) nil)
+ (DidCloseTextDocumentParams (:textDocument) nil)
+ (DidOpenTextDocumentParams (:textDocument) (:text))
+ (DidSaveTextDocumentParams (:textDocument) (:text))
+ (DocumentColorParams (:textDocument) nil)
+ (DocumentFormattingParams (:textDocument :options) nil)
+ (DocumentHighlight (:range) (:kind))
+ (DocumentHighlightParams (:textDocument :position) (:uri))
+ (DocumentLink (:range) (:data :target :tooltip))
+ (DocumentLinkParams (:textDocument) nil)
+ (DocumentLinkRegistrationOptions nil (:documentSelector :resolveProvider))
+ (DocumentOnTypeFormattingParams (:ch :textDocument :options :position) nil)
+ (DocumentOnTypeFormattingRegistrationOptions (:firstTriggerCharacter) (:documentSelector :moreTriggerCharacter))
+ (DocumentRangeFormattingParams (:textDocument :options :range) nil)
+ (DocumentSymbolParams (:textDocument) nil)
+ (DynamicRegistrationCapabilities nil (:dynamicRegistration))
+ (ExecuteCommandParams (:command) (:arguments))
+ (ExecuteCommandRegistrationOptions (:commands) nil)
+ (FailureHandlingKind nil nil)
+ (FileRename (:oldUri :newUri) nil)
+ (FoldingRange (:endLine :startLine) (:endCharacter :kind :startCharacter))
+ (FoldingRangeKind nil nil)
+ (FoldingRangeRequestParams (:textDocument) nil)
+ (Hover (:contents) (:range))
+ (HoverParams (:textDocument :position) (:uri))
+ (ImplementationParams (:textDocument :position) (:uri))
+ (InitializeError (:retry) nil)
+ (InitializeErrorCode nil nil)
+ (InitializeParams nil (:capabilities :clientInfo :clientName :initializationOptions :processId :rootPath :rootUri :trace :workspaceFolders))
+ (InitializeResult (:capabilities) (:serverInfo))
+ (InitializedParams nil nil)
+ (LocationLink (:targetSelectionRange :targetUri :targetRange) (:originSelectionRange))
+ (MarkupKind nil nil)
+ (MessageParams (:type :message) nil)
+ (PrepareRenameParams (:textDocument :position) (:uri))
+ (PrepareRenameResult (:range :placeholder) nil)
+ (PublishDiagnosticsParams (:diagnostics :uri) (:version))
+ (QuickPickItem (:label :picked :userData) nil)
+ (ReferenceParams (:textDocument :context :position) (:uri))
+ (RegistrationParams (:registrations) nil)
+ (RenameFile (:kind :newUri :oldUri) (:options))
+ (RenameFilesParams (:files) nil)
+ (RenameParams (:newName :textDocument :position) (:uri))
+ (ResolveTypeHierarchyItemParams (:item :resolve :direction) nil)
+ (ResourceOperationKind nil nil)
+ (SelectionRangeParams (:textDocument :positions) nil)
+ (SemanticHighlightingParams (:textDocument :lines) nil)
+ (ShowDocumentParams (:uri) (:external :takeFocus :selection))
+ (ShowDocumentResult (:success) nil)
+ (ShowInputBoxParams (:prompt) (:value))
+ (ShowMessageRequestParams (:type :message) (:actions))
+ (ShowQuickPickParams (:placeHolder :canPickMany :items) nil)
+ (SignatureHelpParams (:textDocument :position) (:context :uri))
+ (SignatureHelpRegistrationOptions nil (:documentSelector :triggerCharacters))
+ (SymbolInformation (:kind :name :location) (:containerName :deprecated))
+ (TextDocumentChangeRegistrationOptions (:syncKind) (:documentSelector))
+ (TextDocumentPositionParams (:textDocument :position) (:uri))
+ (TextDocumentRegistrationOptions nil (:documentSelector))
+ (TextDocumentSaveRegistrationOptions nil (:documentSelector :includeText))
+ (TypeDefinitionParams (:textDocument :position) (:uri))
+ (TypeHierarchyParams (:resolve :textDocument :position) (:direction :uri))
+ (UnregistrationParams (:unregisterations) nil)
+ (WatchKind nil nil)
+ (WillSaveTextDocumentParams (:reason :textDocument) nil)
+ (WorkspaceSymbolParams (:query) nil)
+ ;; 3.17
+ (InlayHint (:label :position) (:kind :paddingLeft :paddingRight))
+ (InlayHintLabelPart (:value) (:tooltip :location :command))
+ (InlayHintsParams (:textDocument) (:range)))
+
+;; 3.17
+(defconst lsp/inlay-hint-kind-type-hint 1)
+(defconst lsp/inlay-hint-kind-parameter-hint 2)
+
+
+(provide 'lsp-protocol)
+;;; lsp-protocol.el ends here
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-protocol.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-protocol.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-purescript.el b/emacs/elpa/lsp-mode-20241123.739/lsp-purescript.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-purescript.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-purescript.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pwsh.el b/emacs/elpa/lsp-mode-20241123.739/lsp-pwsh.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pwsh.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-pwsh.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pyls.el b/emacs/elpa/lsp-mode-20241123.739/lsp-pyls.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pyls.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-pyls.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pylsp.el b/emacs/elpa/lsp-mode-20241123.739/lsp-pylsp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-pylsp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-pylsp.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-qml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-qml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-qml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-qml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-r.el b/emacs/elpa/lsp-mode-20241123.739/lsp-r.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-r.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-r.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-racket.el b/emacs/elpa/lsp-mode-20241123.739/lsp-racket.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-racket.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-racket.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-remark.el b/emacs/elpa/lsp-mode-20241123.739/lsp-remark.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-remark.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-remark.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rf.el b/emacs/elpa/lsp-mode-20241123.739/lsp-rf.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rf.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-rf.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-roslyn.el b/emacs/elpa/lsp-mode-20241123.739/lsp-roslyn.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-roslyn.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-roslyn.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rpm-spec.el b/emacs/elpa/lsp-mode-20241123.739/lsp-rpm-spec.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rpm-spec.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-rpm-spec.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rubocop.el b/emacs/elpa/lsp-mode-20241123.739/lsp-rubocop.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rubocop.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-rubocop.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruby-lsp.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ruby-lsp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruby-lsp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ruby-lsp.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruby-syntax-tree.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ruby-syntax-tree.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruby-syntax-tree.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ruby-syntax-tree.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruff.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ruff.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ruff.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ruff.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rust.el b/emacs/elpa/lsp-mode-20241123.739/lsp-rust.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-rust.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-rust.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-semantic-tokens.el b/emacs/elpa/lsp-mode-20241123.739/lsp-semantic-tokens.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-semantic-tokens.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-semantic-tokens.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-semgrep.el b/emacs/elpa/lsp-mode-20241123.739/lsp-semgrep.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-semgrep.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-semgrep.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-sml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-sml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-solargraph.el b/emacs/elpa/lsp-mode-20241123.739/lsp-solargraph.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-solargraph.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-solargraph.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-solidity.el b/emacs/elpa/lsp-mode-20241123.739/lsp-solidity.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-solidity.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-solidity.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sorbet.el b/emacs/elpa/lsp-mode-20241123.739/lsp-sorbet.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sorbet.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-sorbet.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sql.el b/emacs/elpa/lsp-mode-20241123.739/lsp-sql.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sql.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-sql.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sqls.el b/emacs/elpa/lsp-mode-20241123.739/lsp-sqls.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-sqls.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-sqls.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-steep.el b/emacs/elpa/lsp-mode-20241123.739/lsp-steep.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-steep.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-steep.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-svelte.el b/emacs/elpa/lsp-mode-20241123.739/lsp-svelte.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-svelte.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-svelte.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-terraform.el b/emacs/elpa/lsp-mode-20241123.739/lsp-terraform.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-terraform.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-terraform.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-tex.el b/emacs/elpa/lsp-mode-20241123.739/lsp-tex.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-tex.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-tex.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-tilt.el b/emacs/elpa/lsp-mode-20241123.739/lsp-tilt.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-tilt.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-tilt.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-toml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-toml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-toml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-toml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-trunk.el b/emacs/elpa/lsp-mode-20241123.739/lsp-trunk.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-trunk.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-trunk.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ttcn3.el b/emacs/elpa/lsp-mode-20241123.739/lsp-ttcn3.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-ttcn3.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-ttcn3.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-typeprof.el b/emacs/elpa/lsp-mode-20241123.739/lsp-typeprof.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-typeprof.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-typeprof.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-typespec.el b/emacs/elpa/lsp-mode-20241123.739/lsp-typespec.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-typespec.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-typespec.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-v.el b/emacs/elpa/lsp-mode-20241123.739/lsp-v.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-v.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-v.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vala.el b/emacs/elpa/lsp-mode-20241123.739/lsp-vala.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vala.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-vala.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-verilog.el b/emacs/elpa/lsp-mode-20241123.739/lsp-verilog.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-verilog.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-verilog.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vetur.el b/emacs/elpa/lsp-mode-20241123.739/lsp-vetur.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vetur.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-vetur.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vhdl.el b/emacs/elpa/lsp-mode-20241123.739/lsp-vhdl.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vhdl.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-vhdl.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vimscript.el b/emacs/elpa/lsp-mode-20241123.739/lsp-vimscript.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-vimscript.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-vimscript.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-volar.el b/emacs/elpa/lsp-mode-20241123.739/lsp-volar.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-volar.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-volar.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-wgsl.el b/emacs/elpa/lsp-mode-20241123.739/lsp-wgsl.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-wgsl.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-wgsl.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-xml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-xml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-xml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-xml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-yaml.el b/emacs/elpa/lsp-mode-20241123.739/lsp-yaml.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-yaml.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-yaml.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-yang.el b/emacs/elpa/lsp-mode-20241123.739/lsp-yang.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-yang.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-yang.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-zig.el b/emacs/elpa/lsp-mode-20241123.739/lsp-zig.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp-zig.elc b/emacs/elpa/lsp-mode-20241123.739/lsp-zig.elc
Binary files differ.
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp.el b/emacs/elpa/lsp-mode-20241123.739/lsp.el
diff --git a/emacs/elpa/lsp-mode-20241119.828/lsp.elc b/emacs/elpa/lsp-mode-20241123.739/lsp.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/git-commit.elc b/emacs/elpa/magit-20241116.1557/git-commit.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-base.el b/emacs/elpa/magit-20241116.1557/magit-base.el
@@ -1,1277 +0,0 @@
-;;; magit-base.el --- Early birds  -*- lexical-binding:t; coding:utf-8 -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;; This file contains code taken from GNU Emacs, which is
-;; Copyright (C) 1976-2023 Free Software Foundation, Inc.
-
-;;; Commentary:
-
-;; This library defines utility functions, options and other things that
-;; have to be available early on because they are used by several other
-;; libraries, which cannot depend on one another, because that would lead
-;; to circular dependencies.
-
-;;; Code:
-
-(defconst magit--minimal-git "2.2.0")
-(defconst magit--minimal-emacs "26.1")
-
-(require 'cl-lib)
-(require 'compat)
-(require 'dash)
-(require 'eieio)
-(require 'subr-x)
-
-;; For older Emacs releases we depend on an updated `seq' release from
-;; GNU ELPA, for `seq-keep'.  Unfortunately something else may already
-;; have required `seq', before `package' had a chance to put the more
-;; recent version earlier on the `load-path'.
-(when (and (featurep 'seq)
-           (not (fboundp 'seq-keep)))
-  (unload-feature 'seq 'force))
-(require 'seq)
-
-(require 'crm)
-
-(require 'magit-section)
-
-(eval-when-compile (require 'info))
-(declare-function Info-get-token "info" (pos start all &optional errorstring))
-
-(eval-when-compile (require 'vc-git))
-(declare-function vc-git--run-command-string "vc-git" (file &rest args))
-
-(eval-when-compile (require 'which-func))
-(declare-function which-function "which-func" ())
-
-;;; Options
-
-(defcustom magit-completing-read-function #'magit-builtin-completing-read
-  "Function to be called when requesting input from the user.
-
-If you have enabled `ivy-mode' or `helm-mode', then you don't
-have to customize this option; `magit-builtin-completing-read'
-will work just fine.  However, if you use Ido completion, then
-you do have to use `magit-ido-completing-read', because Ido is
-less well behaved than the former, more modern alternatives.
-
-If you would like to use Ivy or Helm completion with Magit but
-not enable the respective modes globally, then customize this
-option to use `ivy-completing-read' or
-`helm--completing-read-default'.  If you choose to use
-`ivy-completing-read', note that the items may always be shown in
-alphabetical order, depending on your version of Ivy."
-  :group 'magit-essentials
-  :type '(radio (function-item magit-builtin-completing-read)
-                (function-item magit-ido-completing-read)
-                (function-item ivy-completing-read)
-                (function-item helm--completing-read-default)
-                (function :tag "Other function")))
-
-(defcustom magit-dwim-selection
-  '((magit-stash-apply        nil t)
-    (magit-ediff-resolve-all  nil t)
-    (magit-ediff-resolve-rest nil t)
-    (magit-stash-branch       nil t)
-    (magit-stash-branch-here  nil t)
-    (magit-stash-format-patch nil t)
-    (magit-stash-drop         nil ask)
-    (magit-stash-pop          nil ask))
-  "When not to offer alternatives and ask for confirmation.
-
-Many commands by default ask the user to select from a list of
-possible candidates.  They do so even when there is a thing at
-point that they can act on, which is then offered as the default.
-
-This option can be used to tell certain commands to use the thing
-at point instead of asking the user to select a candidate to act
-on, with or without confirmation.
-
-The value has the form ((COMMAND nil|PROMPT DEFAULT)...).
-
-- COMMAND is the command that should not prompt for a choice.
-  To have an effect, the command has to use the function
-  `magit-completing-read' or a utility function which in turn uses
-  that function.
-
-- If the command uses `magit-completing-read' multiple times, then
-  PROMPT can be used to only affect one of these uses.  PROMPT, if
-  non-nil, is a regular expression that is used to match against
-  the PROMPT argument passed to `magit-completing-read'.
-
-- DEFAULT specifies how to use the default.  If it is t, then
-  the DEFAULT argument passed to `magit-completing-read' is used
-  without confirmation.  If it is `ask', then the user is given
-  a chance to abort.  DEFAULT can also be nil, in which case the
-  entry has no effect."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-commands
-  :type '(repeat
-          (list (symbol :tag "Command") ; It might not be fboundp yet.
-                (choice (const  :tag "for all prompts" nil)
-                        (regexp :tag "for prompts matching regexp"))
-                (choice (const  :tag "offer other choices" nil)
-                        (const  :tag "require confirmation" ask)
-                        (const  :tag "use default without confirmation" t)))))
-
-(defconst magit--confirm-actions
-  '((const discard)
-    (const reverse)
-    (const stage-all-changes)
-    (const unstage-all-changes)
-    (const delete)
-    (const trash)
-    (const resurrect)
-    (const untrack)
-    (const rename)
-    (const reset-bisect)
-    (const abort-cherry-pick)
-    (const abort-revert)
-    (const abort-rebase)
-    (const abort-merge)
-    (const merge-dirty)
-    (const delete-unmerged-branch)
-    (const delete-branch-on-remote)
-    (const delete-pr-remote)
-    (const drop-stashes)
-    (const set-and-push)
-    (const amend-published)
-    (const rebase-published)
-    (const edit-published)
-    (const remove-modules)
-    (const remove-dirty-modules)
-    (const trash-module-gitdirs)
-    (const stash-apply-3way)
-    (const kill-process)
-    (const safe-with-wip)))
-
-(defcustom magit-no-confirm '(set-and-push)
-  "A list of symbols for actions Magit should not confirm, or t.
-
-Many potentially dangerous commands by default ask the user for
-confirmation.  Each of the below symbols stands for an action
-which, when invoked unintentionally or without being fully aware
-of the consequences, could lead to tears.  In many cases there
-are several commands that perform variations of a certain action,
-so we don't use the command names but more generic symbols.
-
-Applying changes:
-
-  `discard' Discarding one or more changes (i.e., hunks or the
-  complete diff for a file) loses that change, obviously.
-
-  `reverse' Reverting one or more changes can usually be undone
-  by reverting the reversion.
-
-  `stage-all-changes', `unstage-all-changes' When there are both
-  staged and unstaged changes, then un-/staging everything would
-  destroy that distinction.  Of course that also applies when
-  un-/staging a single change, but then less is lost and one does
-  that so often that having to confirm every time would be
-  unacceptable.
-
-Files:
-
-  `delete' When a file that isn't yet tracked by Git is deleted
-  then it is completely lost, not just the last changes.  Very
-  dangerous.
-
-  `trash' Instead of deleting a file it can also be move to the
-  system trash.  Obviously much less dangerous than deleting it.
-
-  Also see option `magit-delete-by-moving-to-trash'.
-
-  `resurrect' A deleted file can easily be resurrected by
-  \"deleting\" the deletion, which is done using the same command
-  that was used to delete the same file in the first place.
-
-  `untrack' Untracking a file can be undone by tracking it again.
-
-  `rename' Renaming a file can easily be undone.
-
-Sequences:
-
-  `reset-bisect' Aborting (known to Git as \"resetting\") a
-  bisect operation loses all information collected so far.
-
-  `abort-cherry-pick' Aborting a cherry-pick throws away all
-  conflict resolutions which has already been carried out by the
-  user.
-
-  `abort-revert' Aborting a revert throws away all conflict
-  resolutions which has already been carried out by the user.
-
-  `abort-rebase' Aborting a rebase throws away all already
-  modified commits, but it's possible to restore those from the
-  reflog.
-
-  `abort-merge' Aborting a merge throws away all conflict
-  resolutions which has already been carried out by the user.
-
-  `merge-dirty' Merging with a dirty worktree can make it hard to
-  go back to the state before the merge was initiated.
-
-References:
-
-  `delete-unmerged-branch' Once a branch has been deleted it can
-  only be restored using low-level recovery tools provided by
-  Git.  And even then the reflog is gone.  The user always has
-  to confirm the deletion of a branch by accepting the default
-  choice (or selecting another branch), but when a branch has
-  not been merged yet, also make sure the user is aware of that.
-
-  `delete-branch-on-remote' Deleting a \"remote branch\" may mean
-  deleting the (local) \"remote-tracking\" branch only, or also
-  removing it from the remote itself.  The latter often makes more
-  sense because otherwise simply fetching from the remote would
-  restore the remote-tracking branch, but doing that can be
-  surprising and hard to recover from, so we ask.
-
-  `delete-pr-remote' When deleting a branch that was created from
-  a pull-request and if no other branches still exist on that
-  remote, then `magit-branch-delete' offers to delete the remote
-  as well.  This should be safe because it only happens if no
-  other refs exist in the remotes namespace, and you can recreate
-  the remote if necessary.
-
-  `drop-stashes' Dropping a stash is dangerous because Git stores
-  stashes in the reflog.  Once a stash is removed, there is no
-  going back without using low-level recovery tools provided by
-  Git.  When a single stash is dropped, then the user always has
-  to confirm by accepting the default (or selecting another).
-  This action only concerns the deletion of multiple stashes at
-  once.
-
-Publishing:
-
-  `set-and-push' When pushing to the upstream or the push-remote
-  and that isn't actually configured yet, then the user can first
-  set the target.  If s/he confirms the default too quickly, then
-  s/he might end up pushing to the wrong branch and if the remote
-  repository is configured to disallow fixing such mistakes, then
-  that can be quite embarrassing and annoying.
-
-Edit published history:
-
-  Without adding these symbols here, you will be warned before
-  editing commits that have already been pushed to one of the
-  branches listed in `magit-published-branches'.
-
-  `amend-published' Affects most commands that amend to `HEAD'.
-
-  `rebase-published' Affects commands that perform interactive
-  rebases.  This includes commands from the commit popup that
-  modify a commit other than `HEAD', namely the various fixup
-  and squash variants.
-
-  `edit-published' Affects the commands `magit-edit-line-commit'
-  and `magit-diff-edit-hunk-commit'.  These two commands make
-  it quite easy to accidentally edit a published commit, so you
-  should think twice before configuring them not to ask for
-  confirmation.
-
-  To disable confirmation completely, add all three symbols here
-  or set `magit-published-branches' to nil.
-
-Removing modules:
-
-  `remove-modules' When you remove the working directory of a
-  module that does not contain uncommitted changes, then that is
-  safer than doing so when there are uncommitted changes and/or
-  when you also remove the gitdir.  Still, you don't want to do
-  that by accident.
-
-  `remove-dirty-modules' When you remove the working directory of
-  a module that contains uncommitted changes, then those changes
-  are gone for good.  It is better to go to the module, inspect
-  these changes and only if appropriate discard them manually.
-
-  `trash-module-gitdirs' When you remove the gitdir of a module,
-  then all unpushed changes are gone for good.  It is very easy
-  to forget that you have some unfinished work on an unpublished
-  feature branch or even in a stash.
-
-  Actually there are some safety precautions in place, that might
-  help you out if you make an unwise choice here, but don't count
-  on it.  In case of emergency, stay calm and check the stash and
-  the `trash-directory' for traces of lost work.
-
-Various:
-
-  `stash-apply-3way' When a stash cannot be applied using \"git
-  stash apply\", then Magit uses \"git apply\" instead, possibly
-  using the \"--3way\" argument, which isn't always perfectly
-  safe.  See also `magit-stash-apply'.
-
-  `kill-process' There seldom is a reason to kill a process.
-
-Global settings:
-
-  Instead of adding all of the above symbols to the value of this
-  option you can also set it to the atom `t', which has the same
-  effect as adding all of the above symbols.  Doing that most
-  certainly is a bad idea, especially because other symbols might
-  be added in the future.  So even if you don't want to be asked
-  for confirmation for any of these actions, you are still better
-  of adding all of the respective symbols individually.
-
-  When `magit-wip-before-change-mode' is enabled then these actions
-  can fairly easily be undone: `discard', `reverse',
-  `stage-all-changes', and `unstage-all-changes'.  If and only if
-  this mode is enabled, then `safe-with-wip' has the same effect
-  as adding all of these symbols individually."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-essentials
-  :group 'magit-commands
-  :type `(choice (const :tag "Always require confirmation" nil)
-                 (const :tag "Never require confirmation" t)
-                 (set   :tag "Require confirmation except for"
-                        ;; `remove-dirty-modules' and
-                        ;; `trash-module-gitdirs' intentionally
-                        ;; omitted.
-                        ,@magit--confirm-actions)))
-
-(defcustom magit-slow-confirm '(drop-stashes)
-  "Whether to ask user \"y or n\" or \"yes or no\" questions.
-
-When this is nil, then `y-or-n-p' is used when the user has to
-confirm a potentially destructive action.  When this is t, then
-`yes-or-no-p' is used instead.  If this is a list of symbols
-identifying actions, then `yes-or-no-p' is used for those,
-`y-or-no-p' for all others.  The list of actions is the same as
-for `magit-no-confirm' (which see)."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-miscellaneous
-  :type `(choice (const :tag "Always ask \"yes or no\" questions" t)
-                 (const :tag "Always ask \"y or n\" questions" nil)
-                 (set   :tag "Ask \"yes or no\" questions only for"
-                        ,@magit--confirm-actions)))
-
-(defcustom magit-no-message nil
-  "A list of messages Magit should not display.
-
-Magit displays most echo area messages using `message', but a few
-are displayed using `magit-message' instead, which takes the same
-arguments as the former, FORMAT-STRING and ARGS.  `magit-message'
-forgoes printing a message if any member of this list is a prefix
-of the respective FORMAT-STRING.
-
-If Magit prints a message which causes you grief, then please
-first investigate whether there is another option which can be
-used to suppress it.  If that is not the case, then ask the Magit
-maintainers to start using `magit-message' instead of `message'
-in that case.  We are not proactively replacing all uses of
-`message' with `magit-message', just in case someone *might* find
-some of these messages useless.
-
-Messages which can currently be suppressed using this option are:
-* \"Turning on magit-auto-revert-mode...\""
-  :package-version '(magit . "2.8.0")
-  :group 'magit-miscellaneous
-  :type '(repeat string))
-
-(defcustom magit-verbose-messages nil
-  "Whether to make certain prompts and messages more verbose.
-
-Occasionally a user suggests that a certain prompt or message
-should be more verbose, but I would prefer to keep it as-is
-because I don't think that the fact that that one user did not
-understand the existing prompt/message means that a large number
-of users would have the same difficulty, and that making it more
-verbose would actually do a disservice to users who understand
-the shorter prompt well enough.
-
-Going forward I will start offering both messages when I feel the
-suggested longer message is reasonable enough, and the value of
-this option decides which will be used.  Note that changing the
-value of this option affects all such messages and that I do not
-intend to add an option per prompt."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-miscellaneous
-  :type 'boolean)
-
-(defcustom magit-ellipsis
-  '((margin (?… . ">"))
-    (t      (?… . "...")))
-  "Characters or strings used to abbreviate text in some buffers.
-
-Each element has the form (WHERE (FANCY . UNIVERSAL)).
-
-FANCY is a single character or nil whereas UNIVERSAL is a string
-of any length.  The ellipsis produced by `magit--ellipsis' will
-be FANCY if it's a non-nil character that can be displayed with
-the available fonts, otherwise UNIVERSAL will be used.  FANCY is
-meant to be a rich character like a horizontal ellipsis symbol or
-an emoji whereas UNIVERSAL something simpler available in a less
-rich environment like the CLI.  WHERE determines the use-case for
-the ellipsis definition.  Currently the only acceptable values
-for WHERE are `margin' or t (representing the default).
-
-Whether collapsed sections are indicated using ellipsis is
-controlled by `magit-section-visibility-indicator'."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-miscellaneous
-  :type '(repeat (list (symbol :tag "Where")
-                       (cons (choice :tag "Fancy" character (const nil))
-                             (string :tag "Universal")))))
-
-(defcustom magit-update-other-window-delay 0.2
-  "Delay before automatically updating the other window.
-
-When moving around in certain buffers, then certain other
-buffers, which are being displayed in another window, may
-optionally be updated to display information about the
-section at point.
-
-When holding down a key to move by more than just one section,
-then that would update that buffer for each section on the way.
-To prevent that, updating the revision buffer is delayed, and
-this option controls for how long.  For optimal experience you
-might have to adjust this delay and/or the keyboard repeat rate
-and delay of your graphical environment or operating system."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-miscellaneous
-  :type 'number)
-
-(defcustom magit-view-git-manual-method 'info
-  "How links to Git documentation are followed from Magit's Info manuals.
-
-`info'  Follow the link to the node in the `gitman' Info manual
-        as usual.  Unfortunately that manual is not installed by
-        default on some platforms, and when it is then the nodes
-        look worse than the actual manpages.
-
-`man'   View the respective man-page using the `man' package.
-
-`woman' View the respective man-page using the `woman' package."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-miscellaneous
-  :type '(choice (const :tag "view info manual" info)
-                 (const :tag "view manpage using `man'" man)
-                 (const :tag "view manpage using `woman'" woman)))
-
-;;; Section Classes
-
-(defclass magit-commit-section (magit-section)
-  ((keymap :initform 'magit-commit-section-map)))
-
-(setf (alist-get 'commit magit--section-type-alist) 'magit-commit-section)
-
-(defclass magit-diff-section (magit-section)
-  ((keymap :initform 'magit-diff-section-map))
-  :abstract t)
-
-(defclass magit-file-section (magit-diff-section)
-  ((keymap :initform 'magit-file-section-map)
-   (source :initform nil :initarg :source)
-   (header :initform nil :initarg :header)
-   (binary :initform nil :initarg :binary)))
-
-(defclass magit-module-section (magit-file-section)
-  ((keymap :initform 'magit-module-section-map)
-   (range  :initform nil :initarg :range)))
-
-(defclass magit-hunk-section (magit-diff-section)
-  ((keymap      :initform 'magit-hunk-section-map)
-   (refined     :initform nil)
-   (combined    :initform nil :initarg :combined)
-   (from-range  :initform nil :initarg :from-range)
-   (from-ranges :initform nil)
-   (to-range    :initform nil :initarg :to-range)
-   (about       :initform nil :initarg :about)))
-
-(setf (alist-get 'file   magit--section-type-alist) 'magit-file-section)
-(setf (alist-get 'module magit--section-type-alist) 'magit-module-section)
-(setf (alist-get 'hunk   magit--section-type-alist) 'magit-hunk-section)
-
-(defclass magit-log-section (magit-section)
-  ((keymap :initform 'magit-log-section-map))
-  :abstract t)
-(defclass magit-unpulled-section (magit-log-section) ())
-(defclass magit-unpushed-section (magit-log-section) ())
-(defclass magit-unmerged-section (magit-log-section) ())
-
-(setf (alist-get 'unpulled magit--section-type-alist) 'magit-unpulled-section)
-(setf (alist-get 'unpushed magit--section-type-alist) 'magit-unpushed-section)
-(setf (alist-get 'unmerged magit--section-type-alist) 'magit-unmerged-section)
-
-;;; User Input
-
-(defvar helm-completion-in-region-default-sort-fn)
-(defvar helm-crm-default-separator)
-(defvar ivy-sort-functions-alist)
-(defvar ivy-sort-matches-functions-alist)
-(defvar vertico-sort-function)
-
-(defvar magit-completing-read--silent-default nil)
-
-(defvar magit-completing-read-default-prompt-predicate
-  (lambda ()
-    (and (eq magit-completing-read-function
-             'magit-builtin-completing-read)
-         (not (or (bound-and-true-p helm-mode)
-                  (bound-and-true-p ivy-mode)
-                  (bound-and-true-p selectrum-mode)
-                  (bound-and-true-p vertico-mode)))))
-  "Function used to determine whether to add default to prompt.
-
-This is used by `magit-completing-read' (which see).
-
-The default function returns nil, when a completion frameworks is used
-for which this is undesirable.  More precisely, it returns nil, when
-`magit-completing-read-function' is not `magit-builtin-completing-read',
-or one of `helm-mode', `ivy-mode', `selectrum-mode' or `vertico-mode'
-is enabled.  When this function returns nil, then nil is passed to
-`format-prompt' (which see), instead of the default (DEF or FALLBACK).")
-
-(defun magit-completing-read ( prompt collection &optional
-                               predicate require-match initial-input
-                               hist def fallback)
-  "Read a choice in the minibuffer, or use the default choice.
-
-This is the function that Magit commands use when they need the
-user to select a single thing to act on.  The arguments have the
-same meaning as for `completing-read', except for FALLBACK, which
-is unique to this function and is described below.
-
-Instead of asking the user to choose from a list of possible
-candidates, this function may instead just return the default
-specified by DEF, with or without requiring user confirmation.
-Whether that is the case depends on PROMPT, `this-command' and
-`magit-dwim-selection'.  See the documentation of the latter for
-more information.
-
-If it does use the default without the user even having to
-confirm that, then `magit-completing-read--silent-default' is set
-to t, otherwise nil.
-
-If it does read a value in the minibuffer, then this function
-acts similarly to `completing-read', except for the following:
-
-- COLLECTION must be a list of choices.  A function is not
-  supported.
-
-- If REQUIRE-MATCH is nil and the user exits without a choice,
-  then nil is returned instead of an empty string.
-
-- If REQUIRE-MATCH is non-nil and the user exits without a
-  choice, `user-error' is raised.
-
-- FALLBACK specifies a secondary default that is only used if
-  the primary default DEF is nil.  The secondary default is not
-  subject to `magit-dwim-selection' — if DEF is nil but FALLBACK
-  is not, then this function always asks the user to choose a
-  candidate, just as if both defaults were nil.
-
-- `format-prompt' is called on PROMPT and DEF (or FALLBACK if
-  DEF is nil).  This appends \": \" to the prompt and may also
-  add the default to the prompt, using the format specified by
-  `minibuffer-default-prompt-format' and depending on
-  `magit-completing-read-default-prompt-predicate'."
-  (setq magit-completing-read--silent-default nil)
-  (if-let ((dwim (and def
-                      (nth 2 (seq-find (pcase-lambda (`(,cmd ,re ,_))
-                                         (and (eq this-command cmd)
-                                              (or (not re)
-                                                  (string-match-p re prompt))))
-                                       magit-dwim-selection)))))
-      (if (eq dwim 'ask)
-          (if (y-or-n-p (format "%s %s? " prompt def))
-              def
-            (user-error "Abort"))
-        (setq magit-completing-read--silent-default t)
-        def)
-    (unless def
-      (setq def fallback))
-    (let ((command this-command)
-          (reply (funcall
-                  magit-completing-read-function
-                  (magit--format-prompt prompt def)
-                  (if (and (not (functionp collection))
-                           def
-                           (not (member def collection)))
-                      (cons def collection)
-                    collection)
-                  predicate
-                  require-match initial-input hist def)))
-      (setq this-command command)
-      ;; Note: Avoid `string=' to support `helm-comp-read-use-marked'.
-      (if (equal reply "")
-          (if require-match
-              (user-error "Nothing selected")
-            nil)
-        reply))))
-
-(defun magit--format-prompt (prompt default)
-  (format-prompt (if (string-suffix-p ": " prompt)
-                     (substring prompt 0 -2)
-                   prompt)
-                 (and (funcall magit-completing-read-default-prompt-predicate)
-                      default)))
-
-(defun magit--completion-table (collection)
-  (lambda (string pred action)
-    (if (eq action 'metadata)
-        '(metadata (display-sort-function . identity))
-      (complete-with-action action collection string pred))))
-
-(defun magit-builtin-completing-read
-    (prompt choices &optional predicate require-match initial-input hist def)
-  "Magit wrapper for standard `completing-read' function."
-  (unless (or (bound-and-true-p helm-mode)
-              (bound-and-true-p ivy-mode))
-    (setq choices (magit--completion-table choices)))
-  (let ((ivy-sort-functions-alist nil)
-        (vertico-sort-function nil))
-    (completing-read prompt choices
-                     predicate require-match
-                     initial-input hist def)))
-
-(define-obsolete-function-alias 'magit-completing-read-multiple*
-  'magit-completing-read-multiple "Magit-Section 4.0.0")
-
-(defun magit-completing-read-multiple
-    ( prompt table &optional predicate require-match initial-input
-      hist def inherit-input-method
-      no-split)
-  "Read multiple strings in the minibuffer, with completion.
-Like `completing-read-multiple' but don't mess with order of
-TABLE and take an additional argument NO-SPLIT, which causes
-the user input to be returned as a single unmodified string.
-Also work around various incompatible features of various
-third-party completion frameworks."
-  (cl-letf*
-      (;; To implement NO-SPLIT we have to manipulate the respective
-       ;; `split-string' invocation.  We cannot simply advice it to
-       ;; return the input string because `SELECTRUM' would choke on
-       ;; that string.  Use a variable to pass along the raw user
-       ;; input string. aa5f098ab
-       (input nil)
-       (split-string (symbol-function #'split-string))
-       ((symbol-function #'split-string)
-        (lambda (string &optional separators omit-nulls trim)
-          (when (and no-split
-                     (equal separators crm-separator)
-                     (equal omit-nulls t))
-            (setq input string))
-          (funcall split-string string separators omit-nulls trim)))
-       ;; Prevent `BUILT-IN' completion from messing up our existing
-       ;; order of the completion candidates. aa5f098ab
-       (table (magit--completion-table table))
-       ;; Prevent `IVY' from messing up our existing order. c7af78726
-       (ivy-sort-matches-functions-alist nil)
-       ;; Prevent `HELM' from messing up our existing order.  6fcf994bd
-       (helm-completion-in-region-default-sort-fn nil)
-       ;; Prevent `HELM' from automatically appending the separator,
-       ;; which is counterproductive when NO-SPLIT is non-nil and/or
-       ;; when reading commit ranges. 798aff564
-       (helm-crm-default-separator
-        (if no-split nil (bound-and-true-p helm-crm-default-separator)))
-       ;; And now, the moment we have all been waiting for...
-       (values (completing-read-multiple
-                (magit--format-prompt prompt def)
-                table predicate require-match initial-input
-                hist def inherit-input-method)))
-    (if no-split input values)))
-
-(defun magit-ido-completing-read
-    (prompt choices &optional predicate require-match initial-input hist def)
-  "Ido-based `completing-read' almost-replacement.
-
-Unfortunately `ido-completing-read' is not suitable as a
-drop-in replacement for `completing-read', instead we use
-`ido-completing-read+' from the third-party package by the
-same name."
-  (if (and (require 'ido-completing-read+ nil t)
-           (fboundp 'ido-completing-read+))
-      (ido-completing-read+ prompt choices predicate require-match
-                            initial-input hist
-                            (or def (and require-match (car choices))))
-    (display-warning 'magit "ido-completing-read+ is not installed
-
-To use Ido completion with Magit you need to install the
-third-party `ido-completing-read+' packages.  Falling
-back to built-in `completing-read' for now." :error)
-    (magit-builtin-completing-read prompt choices predicate require-match
-                                   initial-input hist def)))
-
-(defvar-keymap magit-minibuffer-local-ns-map
-  :parent minibuffer-local-map
-  "SPC" #'magit-whitespace-disallowed
-  "TAB" #'magit-whitespace-disallowed)
-
-(defun magit-whitespace-disallowed ()
-  "Beep to tell the user that whitespace is not allowed."
-  (interactive)
-  (ding)
-  (message "Whitespace isn't allowed here")
-  (setq defining-kbd-macro nil)
-  (force-mode-line-update))
-
-(defun magit-read-string ( prompt &optional initial-input history default-value
-                           inherit-input-method no-whitespace)
-  "Read a string from the minibuffer, prompting with string PROMPT.
-
-This is similar to `read-string', but
-* empty input is only allowed if DEFAULT-VALUE is non-nil in
-  which case that is returned,
-* whitespace is not allowed and leading and trailing whitespace is
-  removed automatically if NO-WHITESPACE is non-nil,
-* `format-prompt' is used internally.
-* an invalid DEFAULT-VALUE is silently ignored."
-  (when default-value
-    (when (consp default-value)
-      (setq default-value (car default-value)))
-    (unless (stringp default-value)
-      (setq default-value nil)))
-  (let* ((minibuffer-completion-table nil)
-         (val (read-from-minibuffer
-               (format-prompt prompt default-value)
-               initial-input (and no-whitespace magit-minibuffer-local-ns-map)
-               nil history default-value inherit-input-method))
-         (trim (lambda (regexp string)
-                 (save-match-data
-                   (if (string-match regexp string)
-                       (replace-match "" t t string)
-                     string)))))
-    (when (and (string= val "") default-value)
-      (setq val default-value))
-    (when no-whitespace
-      (setq val (funcall trim "\\`\\(?:[ \t\n\r]+\\)"
-                         (funcall trim "\\(?:[ \t\n\r]+\\)\\'" val))))
-    (cond ((string= val "")
-           (user-error "Need non-empty input"))
-          ((and no-whitespace (string-match-p "[\s\t\n]" val))
-           (user-error "Input contains whitespace"))
-          (t val))))
-
-(defun magit-read-string-ns ( prompt &optional initial-input history
-                              default-value inherit-input-method)
-  "Call `magit-read-string' with non-nil NO-WHITESPACE."
-  (magit-read-string prompt initial-input history default-value
-                     inherit-input-method t))
-
-(defmacro magit-read-char-case (prompt verbose &rest clauses)
-  (declare (indent 2)
-           (debug (form form &rest (characterp form body))))
-  `(prog1 (pcase (read-char-choice
-                  (let ((parts (nconc (list ,@(mapcar #'cadr clauses))
-                                      ,(and verbose '(list "[C-g] to abort")))))
-                    (concat ,prompt
-                            (string-join (butlast parts) ", ")
-                            ", or "  (car (last parts)) " "))
-                  ',(mapcar #'car clauses))
-            ,@(--map `(,(car it) ,@(cddr it)) clauses))
-     (message "")))
-
-(defun magit-y-or-n-p (prompt &optional action)
-  "Ask user a \"y or n\" or a \"yes or no\" question using PROMPT.
-Which kind of question is used depends on whether
-ACTION is a member of option `magit-slow-confirm'."
-  (if (or (eq magit-slow-confirm t)
-          (and action (member action magit-slow-confirm)))
-      (yes-or-no-p prompt)
-    (y-or-n-p prompt)))
-
-(defvar magit--no-confirm-alist
-  '((safe-with-wip magit-wip-before-change-mode
-                   discard reverse stage-all-changes unstage-all-changes)))
-
-(cl-defun magit-confirm ( action &optional prompt prompt-n noabort
-                          (items nil sitems) prompt-suffix)
-  (declare (indent defun))
-  (when (and prompt (listp prompt))
-    (setq prompt
-          (apply #'format (car prompt)
-                 (mapcar (lambda (a) (if (stringp a) (string-replace "%" "%%" a) a))
-                         (cdr prompt)))))
-  (when (and prompt-n (listp prompt-n))
-    (setq prompt-n
-          (apply #'format (car prompt-n)
-                 (mapcar (lambda (a) (if (stringp a) (string-replace "%" "%%" a) a))
-                         (cdr prompt-n)))))
-  (setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items)))
-  (setq prompt   (format (concat (or prompt (magit-confirm-make-prompt action))
-                                 "? ")
-                         (car items)))
-  (when prompt-suffix
-    (setq prompt (concat prompt prompt-suffix)))
-  (or (cond ((and (not (eq action t))
-                  (or (eq magit-no-confirm t)
-                      (memq action magit-no-confirm)
-                      (cl-member-if (pcase-lambda (`(,key ,var . ,sub))
-                                      (and (memq key magit-no-confirm)
-                                           (memq action sub)
-                                           (or (not var)
-                                               (and (boundp var)
-                                                    (symbol-value var)))))
-                                    magit--no-confirm-alist)))
-             (or (not sitems) items))
-            ((not sitems)
-             (magit-y-or-n-p prompt action))
-            ((length= items 1)
-             (and (magit-y-or-n-p prompt action) items))
-            ((length> items 1)
-             (and (magit-y-or-n-p (concat (string-join items "\n")
-                                          "\n\n" prompt-n)
-                                  action)
-                  items)))
-      (if noabort nil (user-error "Abort"))))
-
-(defun magit-confirm-files (action files &optional prompt prompt-suffix noabort)
-  (when files
-    (unless prompt
-      (setq prompt (magit-confirm-make-prompt action)))
-    (magit-confirm action
-      (concat prompt " \"%s\"")
-      (concat prompt " %d files")
-      noabort files prompt-suffix)))
-
-(defun magit-confirm-make-prompt (action)
-  (let ((prompt (symbol-name action)))
-    (string-replace "-" " "
-                    (concat (upcase (substring prompt 0 1))
-                            (substring prompt 1)))))
-
-(defun magit-read-number-string (prompt &optional default _history)
-  "Like `read-number' but return value is a string.
-DEFAULT may be a number or a numeric string."
-  (number-to-string
-   (read-number prompt (if (stringp default)
-                           (string-to-number default)
-                         default))))
-
-;;; Debug Utilities
-
-;;;###autoload
-(defun magit-emacs-Q-command ()
-  "Show a shell command that runs an uncustomized Emacs with only Magit loaded.
-See info node `(magit)Debugging Tools' for more information."
-  (interactive)
-  (let ((cmd (mapconcat
-              #'shell-quote-argument
-              `(,(concat invocation-directory invocation-name)
-                "-Q" "--eval" "(setq debug-on-error t)"
-                ,@(cl-mapcan
-                   (lambda (dir) (list "-L" dir))
-                   (delete-dups
-                    (cl-mapcan
-                     (lambda (lib)
-                       (if-let ((path (locate-library lib)))
-                           (list (file-name-directory path))
-                         (error "Cannot find mandatory dependency %s" lib)))
-                     '(;; Like `LOAD_PATH' in `default.mk'.
-                       "compat"
-                       "dash"
-                       "transient"
-                       "with-editor"
-                       ;; Obviously `magit' itself is needed too.
-                       "magit"
-                       ;; While these are part of the Magit repository,
-                       ;; they are distributed as separate packages.
-                       "magit-section"
-                       "git-commit"
-                       ))))
-                ;; Avoid Emacs bug#16406 by using full path.
-                "-l" ,(file-name-sans-extension (locate-library "magit")))
-              " ")))
-    (message "Uncustomized Magit command saved to kill-ring, %s"
-             "please run it in a terminal.")
-    (kill-new cmd)))
-
-;;; Text Utilities
-
-(defmacro magit-bind-match-strings (varlist string &rest body)
-  "Bind variables to submatches according to VARLIST then evaluate BODY.
-Bind the symbols in VARLIST to submatches of the current match
-data, starting with 1 and incrementing by 1 for each symbol.  If
-the last match was against a string, then that has to be provided
-as STRING."
-  (declare (indent 2) (debug (listp form body)))
-  (let ((s (cl-gensym "string"))
-        (i 0))
-    `(let ((,s ,string))
-       (let ,(save-match-data
-               (cl-mapcan (lambda (sym)
-                            (cl-incf i)
-                            (and (not (eq (aref (symbol-name sym) 0) ?_))
-                                 (list (list sym (list 'match-string i s)))))
-                          varlist))
-         ,@body))))
-
-(defun magit-delete-line ()
-  "Delete the rest of the current line."
-  (delete-region (point) (1+ (line-end-position))))
-
-(defun magit-delete-match (&optional num)
-  "Delete text matched by last search.
-If optional NUM is specified, only delete that subexpression."
-  (delete-region (match-beginning (or num 0))
-                 (match-end (or num 0))))
-
-(defun magit-file-line (file)
-  "Return the first line of FILE as a string."
-  (when (file-regular-p file)
-    (with-temp-buffer
-      (insert-file-contents file)
-      (buffer-substring-no-properties (point-min)
-                                      (line-end-position)))))
-
-(defun magit-file-lines (file &optional keep-empty-lines)
-  "Return a list of strings containing one element per line in FILE.
-Unless optional argument KEEP-EMPTY-LINES is t, trim all empty lines."
-  (when (file-regular-p file)
-    (with-temp-buffer
-      (insert-file-contents file)
-      (split-string (buffer-string) "\n" (not keep-empty-lines)))))
-
-(defun magit-set-header-line-format (string)
-  "Set `header-line-format' in the current buffer based on STRING.
-Pad the left side of STRING so that it aligns with the text area."
-  (setq header-line-format
-        (concat (propertize " " 'display '(space :align-to 0))
-                string)))
-
-(defun magit--format-spec (format specification)
-  "Like `format-spec' but preserve text properties in SPECIFICATION."
-  (with-temp-buffer
-    (insert format)
-    (goto-char (point-min))
-    (while (search-forward "%" nil t)
-      (cond
-       ;; Quoted percent sign.
-       ((eq (char-after) ?%)
-        (delete-char 1))
-       ;; Valid format spec.
-       ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
-        (let* ((num (match-string 1))
-               (spec (string-to-char (match-string 2)))
-               (val (assq spec specification)))
-          (unless val
-            (error "Invalid format character: `%%%c'" spec))
-          (setq val (cdr val))
-          ;; Pad result to desired length.
-          (let ((text (format (concat "%" num "s") val)))
-            ;; Insert first, to preserve text properties.
-            (if (next-property-change 0 (concat " " text))
-                ;; If the inserted text has properties, then preserve those.
-                (insert text)
-              ;; Otherwise preserve FORMAT's properties, like `format-spec'.
-              (insert-and-inherit text))
-            ;; Delete the specifier body.
-            (delete-region (+ (match-beginning 0) (length text))
-                           (+ (match-end 0) (length text)))
-            ;; Delete the percent sign.
-            (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
-       ;; Signal an error on bogus format strings.
-       (t
-        (error "Invalid format string"))))
-    (buffer-string)))
-
-;;; Missing from Emacs
-
-(defun magit-kill-this-buffer ()
-  "Kill the current buffer."
-  (interactive)
-  (kill-buffer (current-buffer)))
-
-(defun magit--buffer-string (&optional min max trim)
-  "Like `buffer-substring-no-properties' but the arguments are optional.
-
-This combines the benefits of `buffer-string', `buffer-substring'
-and `buffer-substring-no-properties' into one function that is
-not as painful to use as the latter.  I.e., you can write
-  (magit--buffer-string)
-instead of
-  (buffer-substring-no-properties (point-min)
-                                  (point-max))
-
-Optional MIN defaults to the value of `point-min'.
-Optional MAX defaults to the value of `point-max'.
-
-If optional TRIM is non-nil, then all leading and trailing
-whitespace is remove.  If it is the newline character, then
-one trailing newline is added."
-  ;; Lets write that one last time and be done with it:
-  (let ((str (buffer-substring-no-properties (or min (point-min))
-                                             (or max (point-max)))))
-    (if trim
-        (concat (string-trim str)
-                (and (eq trim ?\n) "\n"))
-      str)))
-
-(defun magit--version> (v1 v2)
-  "Return t if version V1 is higher (younger) than V2.
-This function should be named `version>' and be part of Emacs."
-  (version-list-< (version-to-list v2) (version-to-list v1)))
-
-(defun magit--version>= (v1 v2)
-  "Return t if version V1 is higher (younger) than or equal to V2.
-This function should be named `version>=' and be part of Emacs."
-  (version-list-<= (version-to-list v2) (version-to-list v1)))
-
-;;; Kludges for Emacs Bugs
-
-(when (< emacs-major-version 27)
-  ;; Work around https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559.
-  ;; Fixed by cb55ccae8be946f1562d74718086a4c8c8308ee5 in Emacs 27.1.
-  (with-eval-after-load 'vc-git
-    (defun vc-git-conflicted-files (directory)
-      "Return the list of files with conflicts in DIRECTORY."
-      (let* ((status
-              (vc-git--run-command-string directory "diff-files"
-                                          "--name-status"))
-             (lines (when status (split-string status "\n" 'omit-nulls)))
-             files)
-        (dolist (line lines files)
-          (when (string-match "\\([ MADRCU?!]\\)[ \t]+\\(.+\\)" line)
-            (let ((state (match-string 1 line))
-                  (file (match-string 2 line)))
-              (when (equal state "U")
-                (push (expand-file-name file directory) files)))))))))
-
-(when (< emacs-major-version 27)
-  (defun vc-git--call@bug21559 (fn buffer command &rest args)
-    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
-    (let ((process-environment process-environment))
-      (when revert-buffer-in-progress-p
-        (push "GIT_OPTIONAL_LOCKS=0" process-environment))
-      (apply fn buffer command args)))
-  (advice-add 'vc-git--call :around 'vc-git--call@bug21559)
-
-  (defun vc-git-command@bug21559
-      (fn buffer okstatus file-or-list &rest flags)
-    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
-    (let ((process-environment process-environment))
-      (when revert-buffer-in-progress-p
-        (push "GIT_OPTIONAL_LOCKS=0" process-environment))
-      (apply fn buffer okstatus file-or-list flags)))
-  (advice-add 'vc-git-command :around 'vc-git-command@bug21559)
-
-  (defun auto-revert-handler@bug21559 (fn)
-    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
-    (let ((revert-buffer-in-progress-p t))
-      (funcall fn)))
-  (advice-add 'auto-revert-handler :around 'auto-revert-handler@bug21559)
-  )
-
-(defun magit-which-function ()
-  "Return current function name based on point.
-
-This is a simple wrapper around `which-function', that resets
-Imenu's potentially outdated and therefore unreliable cache by
-setting `imenu--index-alist' to nil before calling that function."
-  (setq imenu--index-alist nil)
-  (which-function))
-
-;;; Kludges for Custom
-
-(defun magit-custom-initialize-reset (symbol exp)
-  "Initialize SYMBOL based on EXP.
-Set the value of the variable SYMBOL, using `set-default'
-\(unlike `custom-initialize-reset', which uses the `:set'
-function if any).  The value is either the symbol's current
-value (as obtained using the `:get' function), if any, or
-the value in the symbol's `saved-value' property if any, or
-\(last of all) the value of EXP."
-  (set-default-toplevel-value
-   symbol
-   (condition-case nil
-       (let ((def (default-toplevel-value symbol))
-             (getter (get symbol 'custom-get)))
-         (if getter (funcall getter symbol) def))
-     (error
-      (eval (let ((sv (get symbol 'saved-value)))
-              (if sv (car sv) exp)))))))
-
-(defun magit-hook-custom-get (symbol)
-  (if (symbol-file symbol 'defvar)
-      (default-toplevel-value symbol)
-    ;;
-    ;; Called by `custom-initialize-reset' on behalf of `symbol's
-    ;; `defcustom', which is being evaluated for the first time to
-    ;; set the initial value, but there's already a default value,
-    ;; which most likely was established by one or more `add-hook'
-    ;; calls.
-    ;;
-    ;; We combine the `standard-value' and the current value, while
-    ;; preserving the order established by `:options', and return
-    ;; the result of that to be used as the "initial" default value.
-    ;;
-    (let ((standard (eval (car (get symbol 'standard-value))))
-          (current (default-toplevel-value symbol))
-          (value nil))
-      (dolist (fn (get symbol 'custom-options))
-        (when (or (memq fn standard)
-                  (memq fn current))
-          (push fn value)))
-      (dolist (fn current)
-        (unless (memq fn value)
-          (push fn value)))
-      (nreverse value))))
-
-;;; Kludges for Info Manuals
-
-;;;###autoload
-(define-advice Info-follow-nearest-node (:around (fn &optional fork) gitman)
-  (let ((node (Info-get-token
-               (point) "\\*note[ \n\t]+"
-               "\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?")))
-    (if (and node (string-match "^(gitman)\\(.+\\)" node))
-        (pcase magit-view-git-manual-method
-          ('info  (funcall fn fork))
-          ('man   (require 'man)
-                  (man (match-string 1 node)))
-          ('woman (require 'woman)
-                  (woman (match-string 1 node)))
-          (_ (user-error "Invalid value for `magit-view-git-manual-method'")))
-      (funcall fn fork))))
-
-;; When making changes here, then also adjust the copy in docs/Makefile.
-;;;###autoload
-(define-advice org-man-export (:around (fn link description format) gitman)
-  (if (and (eq format 'texinfo)
-           (string-prefix-p "git" link))
-      (string-replace "%s" link "
-@ifinfo
-@ref{%s,,,gitman,}.
-@end ifinfo
-@ifhtml
-@html
-the <a href=\"http://git-scm.com/docs/%s\">%s(1)</a> manpage.
-@end html
-@end ifhtml
-@iftex
-the %s(1) manpage.
-@end iftex
-")
-    (funcall fn link description format)))
-
-;;; Kludges for Package Managers
-
-(defun magit--chase-links (filename)
-  "Chase links in FILENAME until a name that is not a link.
-
-This is the same as `file-chase-links', except that it also handles
-fake symlinks that are created by some source based package managers
-\(Elpaca and Straight) on Windows.
-
-See <https://github.com/raxod502/straight.el/issues/520>."
-  (when-let*
-      ((manager (cond ((bound-and-true-p straight-symlink-mode) 'straight)
-                      ((bound-and-true-p elpaca-no-symlink-mode) 'elpaca)))
-       (build (pcase manager
-                ('straight (bound-and-true-p straight-build-dir))
-                ('elpaca (bound-and-true-p elpaca-builds-directory))))
-       ((string-prefix-p build filename))
-       (repo (pcase manager
-               ('straight
-                (and (bound-and-true-p straight-base-dir)
-                     (expand-file-name "repos/magit/lisp/" straight-base-dir)))
-               ('elpaca
-                (and (bound-and-true-p elpaca-repos-directory)
-                     (expand-file-name "magit/lisp/" elpaca-repos-directory))))))
-    (setq filename (expand-file-name (file-name-nondirectory filename) repo)))
-  (file-chase-links filename))
-
-;;; Kludges for older Emacs versions
-
-(if (fboundp 'with-connection-local-variables)
-    (defalias 'magit--with-connection-local-variables
-      #'with-connection-local-variables)
-  (defmacro magit--with-connection-local-variables (&rest body)
-    "Abridged `with-connection-local-variables' for pre Emacs 27 compatibility.
-Bind shell file name and switch for remote execution.
-`with-connection-local-variables' isn't available until Emacs 27.
-This kludge provides the minimal functionality required by
-Magit."
-    `(if (file-remote-p default-directory)
-         (pcase-let ((`(,shell-file-name ,shell-command-switch)
-                      (with-no-warnings ; about unknown tramp functions
-                        (require 'tramp)
-                        (let ((vec (tramp-dissect-file-name
-                                    default-directory)))
-                          (list (tramp-get-method-parameter
-                                 vec 'tramp-remote-shell)
-                                (string-join (tramp-get-method-parameter
-                                              vec 'tramp-remote-shell-args)
-                                             " "))))))
-           ,@body)
-       ,@body)))
-
-(put 'magit--with-connection-local-variables 'lisp-indent-function 'defun)
-
-;;; Miscellaneous
-
-(defun magit-message (format-string &rest args)
-  "Display a message at the bottom of the screen, or not.
-Like `message', except that if the users configured option
-`magit-no-message' to prevent the message corresponding to
-FORMAT-STRING to be displayed, then don't."
-  (unless (--first (string-prefix-p it format-string) magit-no-message)
-    (apply #'message format-string args)))
-
-(defun magit-msg (format-string &rest args)
-  "Display a message at the bottom of the screen, but don't log it.
-Like `message', except that `message-log-max' is bound to nil."
-  (let ((message-log-max nil))
-    (apply #'message format-string args)))
-
-(defmacro magit--with-temp-position (buf pos &rest body)
-  (declare (indent 2))
-  `(with-current-buffer ,buf
-     (save-excursion
-       (save-restriction
-         (widen)
-         (goto-char (or ,pos 1))
-         ,@body))))
-
-(defun magit--ellipsis (&optional where)
-  "Build an ellipsis always as string, depending on WHERE."
-  (if (stringp magit-ellipsis)
-      magit-ellipsis
-    (if-let ((pair (car (or
-                         (alist-get (or where t) magit-ellipsis)
-                         (alist-get t magit-ellipsis)))))
-        (pcase-let ((`(,fancy . ,universal) pair))
-          (let ((ellipsis (if (and fancy (char-displayable-p fancy))
-                              fancy
-                            universal)))
-            (if (characterp ellipsis)
-                (char-to-string ellipsis)
-              ellipsis)))
-      (user-error "Variable magit-ellipsis is invalid"))))
-
-(defun magit--ext-regexp-quote (str)
-  "Like `reqexp-quote', but for Extended Regular Expressions."
-  (let ((special (string-to-list "[*.\\?+^$({"))
-        (quoted nil))
-    (mapc (lambda (c)
-            (when (memq c special)
-              (push ?\\ quoted))
-            (push c quoted))
-          str)
-    (concat (nreverse quoted))))
-
-;;; _
-(provide 'magit-base)
-;;; magit-base.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-base.elc b/emacs/elpa/magit-20241116.1557/magit-base.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-diff.elc b/emacs/elpa/magit-20241116.1557/magit-diff.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-git.el b/emacs/elpa/magit-20241116.1557/magit-git.el
@@ -1,2903 +0,0 @@
-;;; magit-git.el --- Git functionality  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements wrappers for various Git plumbing commands.
-
-;;; Code:
-
-(require 'magit-base)
-
-(require 'format-spec)
-
-;; From `magit-branch'.
-(defvar magit-branch-prefer-remote-upstream)
-(defvar magit-published-branches)
-
-;; From `magit-margin'.
-(declare-function magit-maybe-make-margin-overlay "magit-margin" ())
-
-;; From `magit-mode'.
-(declare-function magit-get-mode-buffer "magit-mode"
-                  (mode &optional value frame))
-(declare-function magit-refresh "magit-mode" ())
-(defvar magit-buffer-diff-type)
-(defvar magit-buffer-diff-args)
-(defvar magit-buffer-file-name)
-(defvar magit-buffer-log-args)
-(defvar magit-buffer-log-files)
-(defvar magit-buffer-refname)
-(defvar magit-buffer-revision)
-
-;; From `magit-process'.
-(declare-function magit-call-git "magit-process" (&rest args))
-(declare-function magit-git "magit-process" (&rest args))
-(declare-function magit-process-buffer "magit-process" (&optional nodisplay))
-(declare-function magit-process-file "magit-process"
-                  (process &optional infile buffer display &rest args))
-(declare-function magit-process-finish-section "magit-process"
-                  (section exit-code))
-(declare-function magit-process-git "magit-process" (destination &rest args))
-(declare-function magit-process-insert-section "magit-process"
-                  (pwd program args &optional errcode errlog face))
-(defvar magit-this-error)
-(defvar magit-process-error-message-regexps)
-
-(eval-when-compile
-  (cl-pushnew 'orig-rev eieio--known-slot-names)
-  (cl-pushnew 'number eieio--known-slot-names))
-
-;;; Options
-
-;; For now this is shared between `magit-process' and `magit-git'.
-(defgroup magit-process nil
-  "Git and other external processes used by Magit."
-  :group 'magit)
-
-(defvar magit-git-environment
-  (list (format "INSIDE_EMACS=%s,magit" emacs-version))
-  "Prepended to `process-environment' while running git.")
-
-(defcustom magit-git-output-coding-system
-  (and (eq system-type 'windows-nt) 'utf-8)
-  "Coding system for receiving output from Git.
-
-If non-nil, the Git config value `i18n.logOutputEncoding' should
-be set via `magit-git-global-arguments' to value consistent with
-this."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-process
-  :type '(choice (coding-system :tag "Coding system to decode Git output")
-                 (const :tag "Use system default" nil)))
-
-(defvar magit-git-w32-path-hack nil
-  "Alist of (EXE . (PATHENTRY)).
-This specifies what additional PATH setting needs to be added to
-the environment in order to run the non-wrapper git executables
-successfully.")
-
-(defcustom magit-git-executable
-  (or (and (eq system-type 'windows-nt)
-           ;; Avoid the wrappers "cmd/git.exe" and "cmd/git.cmd",
-           ;; which are much slower than using "bin/git.exe" directly.
-           (and-let* ((exec (executable-find "git")))
-             (ignore-errors
-               ;; Git for Windows 2.x provides cygpath so we can
-               ;; ask it for native paths.
-               (let* ((core-exe
-                       (car
-                        (process-lines
-                         exec "-c"
-                         "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x"
-                         "X" "git")))
-                      (hack-entry (assoc core-exe magit-git-w32-path-hack))
-                      ;; Running the libexec/git-core executable
-                      ;; requires some extra PATH entries.
-                      (path-hack
-                       (list (concat "PATH="
-                                     (car (process-lines
-                                           exec "-c"
-                                           "alias.P=!cygpath -wp \"$PATH\""
-                                           "P"))))))
-                 ;; The defcustom STANDARD expression can be
-                 ;; evaluated many times, so make sure it is
-                 ;; idempotent.
-                 (if hack-entry
-                     (setcdr hack-entry path-hack)
-                   (push (cons core-exe path-hack) magit-git-w32-path-hack))
-                 core-exe))))
-      (and (eq system-type 'darwin)
-           (executable-find "git"))
-      "git")
-  "The Git executable used by Magit on the local host.
-On remote machines `magit-remote-git-executable' is used instead."
-  :package-version '(magit . "3.2.0")
-  :group 'magit-process
-  :type 'string)
-
-(defcustom magit-remote-git-executable "git"
-  "The Git executable used by Magit on remote machines.
-On the local host `magit-git-executable' is used instead.
-Consider customizing `tramp-remote-path' instead of this
-option."
-  :package-version '(magit . "3.2.0")
-  :group 'magit-process
-  :type 'string)
-
-(defcustom magit-git-global-arguments
-  `("--no-pager" "--literal-pathspecs"
-    "-c" "core.preloadindex=true"
-    "-c" "log.showSignature=false"
-    "-c" "color.ui=false"
-    "-c" "color.diff=false"
-    ,@(and (eq system-type 'windows-nt)
-           (list "-c" "i18n.logOutputEncoding=UTF-8")))
-  "Global Git arguments.
-
-The arguments set here are used every time the git executable is
-run as a subprocess.  They are placed right after the executable
-itself and before the git command - as in `git HERE... COMMAND
-REST'.  See the manpage `git(1)' for valid arguments.
-
-Be careful what you add here, especially if you are using Tramp
-to connect to servers with ancient Git versions.  Never remove
-anything that is part of the default value, unless you really
-know what you are doing.  And think very hard before adding
-something; it will be used every time Magit runs Git for any
-purpose."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-commands
-  :group 'magit-process
-  :type '(repeat string))
-
-(defcustom magit-prefer-remote-upstream nil
-  "Whether to favor remote branches when reading the upstream branch.
-
-This controls whether commands that read a branch from the user
-and then set it as the upstream branch, offer a local or a remote
-branch as default completion candidate, when they have the choice.
-
-This affects all commands that use `magit-read-upstream-branch'
-or `magit-read-starting-point', which includes most commands
-that change the upstream and many that create new branches."
-  :package-version '(magit . "2.4.2")
-  :group 'magit-commands
-  :type 'boolean)
-
-(defcustom magit-list-refs-namespaces
-  '("refs/heads"
-    "refs/remotes"
-    "refs/tags"
-    "refs/pullreqs")
-  "List of ref namespaces considered when reading a ref.
-
-This controls the order of refs returned by `magit-list-refs',
-which is called by functions like `magit-list-branch-names' to
-generate the collection of refs."
-  :package-version '(magit . "3.1.0")
-  :group 'magit-commands
-  :type '(repeat string))
-
-(defcustom magit-list-refs-sortby nil
-  "How to sort the ref collection in the prompt.
-
-This affects commands that read a ref.  More specifically, it
-controls the order of refs returned by `magit-list-refs', which
-is called by functions like `magit-list-branch-names' to generate
-the collection of refs.  By default, refs are sorted according to
-their full refname (i.e., \"refs/...\").
-
-Any value accepted by the `--sort' flag of \"git for-each-ref\" can
-be used.  For example, \"-creatordate\" places refs with more
-recent committer or tagger dates earlier in the list.  A list of
-strings can also be given in order to pass multiple sort keys to
-\"git for-each-ref\".
-
-Note that, depending on the completion framework you use, this
-may not be sufficient to change the order in which the refs are
-displayed.  It only controls the order of the collection passed
-to `magit-completing-read' or, for commands that support reading
-multiple strings, `read-from-minibuffer'.  The completion
-framework ultimately determines how the collection is displayed."
-  :package-version '(magit . "2.11.0")
-  :group 'magit-miscellaneous
-  :type '(choice string (repeat string)))
-
-;;; Git
-
-(defvar magit-git-debug nil
-  "Whether to enable additional reporting of git errors.
-
-Magit basically calls git for one of these two reasons: for
-side-effects or to do something with its standard output.
-
-When git is run for side-effects then its output, including error
-messages, go into the process buffer which is shown when using \
-\\<magit-status-mode-map>\\[magit-process-buffer].
-
-When git's output is consumed in some way, then it would be too
-expensive to also insert it into this buffer, but when this
-option is non-nil and git returns with a non-zero exit status,
-then at least its standard error is inserted into this buffer.
-
-This is only intended for debugging purposes.  Do not enable this
-permanently, that would negatively affect performance.  Also note
-that just because git exits with a non-zero exit status and prints
-an error message that usually doesn't mean that it is an error as
-far as Magit is concerned, which is another reason we usually hide
-these error messages.  Whether some error message is relevant in
-the context of some unexpected behavior has to be judged on a case
-by case basis.
-
-The command `magit-toggle-git-debug' changes the value of this
-variable.
-
-Also see `magit-process-extreme-logging'.")
-
-(defun magit-toggle-git-debug ()
-  "Toggle whether additional git errors are reported.
-See info node `(magit)Debugging Tools' for more information."
-  (interactive)
-  (setq magit-git-debug (not magit-git-debug))
-  (message "Additional reporting of Git errors %s"
-           (if magit-git-debug "enabled" "disabled")))
-
-(defvar magit--refresh-cache nil)
-
-(defmacro magit--with-refresh-cache (key &rest body)
-  (declare (indent 1) (debug (form body)))
-  (let ((k (cl-gensym))
-        (hit (cl-gensym)))
-    `(if magit--refresh-cache
-         (let ((,k ,key))
-           (if-let ((,hit (assoc ,k (cdr magit--refresh-cache))))
-               (progn (cl-incf (caar magit--refresh-cache))
-                      (cdr ,hit))
-             (cl-incf (cdar magit--refresh-cache))
-             (let ((value ,(macroexp-progn body)))
-               (push (cons ,k value)
-                     (cdr magit--refresh-cache))
-               value)))
-       ,@body)))
-
-(defvar magit-with-editor-envvar "GIT_EDITOR"
-  "The environment variable exported by `magit-with-editor'.
-Set this to \"GIT_SEQUENCE_EDITOR\" if you do not want to use
-Emacs to edit commit messages but would like to do so to edit
-rebase sequences.")
-
-(defmacro magit-with-editor (&rest body)
-  "Like `with-editor*' but let-bind some more variables.
-Also respect the value of `magit-with-editor-envvar'."
-  (declare (indent 0) (debug (body)))
-  `(let ((magit-process-popup-time -1)
-         ;; The user may have customized `shell-file-name' to
-         ;; something which results in `w32-shell-dos-semantics' nil
-         ;; (which changes the quoting style used by
-         ;; `shell-quote-argument'), but Git for Windows expects shell
-         ;; quoting in the dos style.
-         (shell-file-name (if (and (eq system-type 'windows-nt)
-                                   ;; If we have Cygwin mount points,
-                                   ;; the git flavor is cygwin, so dos
-                                   ;; shell quoting is probably wrong.
-                                   (not magit-cygwin-mount-points))
-                              "cmdproxy"
-                            shell-file-name)))
-     (with-editor* magit-with-editor-envvar
-       ,@body)))
-
-(defmacro magit--with-temp-process-buffer (&rest body)
-  "Like `with-temp-buffer', but always propagate `process-environment'.
-When that var is buffer-local in the calling buffer, it is not
-propagated by `with-temp-buffer', so we explicitly ensure that
-happens, so that processes will be invoked consistently.  BODY is
-as for that macro."
-  (declare (indent 0) (debug (body)))
-  (let ((p (cl-gensym)))
-    `(let ((,p process-environment))
-       (with-temp-buffer
-         (setq-local process-environment ,p)
-         ,@body))))
-
-(defsubst magit-git-executable ()
-  "Return value of `magit-git-executable' or `magit-remote-git-executable'.
-The variable is chosen depending on whether `default-directory'
-is remote."
-  (if (file-remote-p default-directory)
-      magit-remote-git-executable
-    magit-git-executable))
-
-(defun magit-process-git-arguments (args)
-  "Prepare ARGS for a function that invokes Git.
-
-Magit has many specialized functions for running Git; they all
-pass arguments through this function before handing them to Git,
-to do the following.
-
-* Flatten ARGS, removing nil arguments.
-* Prepend `magit-git-global-arguments' to ARGS.
-* On w32 systems, encode to `w32-ansi-code-page'."
-  (setq args (append magit-git-global-arguments (flatten-tree args)))
-  (if (and (eq system-type 'windows-nt) (boundp 'w32-ansi-code-page))
-      ;; On w32, the process arguments *must* be encoded in the
-      ;; current code-page (see #3250).
-      (mapcar (lambda (arg)
-                (encode-coding-string
-                 arg (intern (format "cp%d" w32-ansi-code-page))))
-              args)
-    args))
-
-(defun magit-git-exit-code (&rest args)
-  "Execute Git with ARGS, returning its exit code."
-  (magit-process-git nil args))
-
-(defun magit-git-success (&rest args)
-  "Execute Git with ARGS, returning t if its exit code is 0."
-  (= (magit-git-exit-code args) 0))
-
-(defun magit-git-failure (&rest args)
-  "Execute Git with ARGS, returning t if its exit code is 1."
-  (= (magit-git-exit-code args) 1))
-
-(defun magit-git-string-p (&rest args)
-  "Execute Git with ARGS, returning the first line of its output.
-If the exit code isn't zero or if there is no output, then return
-nil.  Neither of these results is considered an error; if that is
-what you want, then use `magit-git-string-ng' instead.
-
-This is an experimental replacement for `magit-git-string', and
-still subject to major changes."
-  (magit--with-refresh-cache (cons default-directory args)
-    (magit--with-temp-process-buffer
-      (and (zerop (magit-process-git t args))
-           (not (bobp))
-           (progn
-             (goto-char (point-min))
-             (buffer-substring-no-properties (point) (line-end-position)))))))
-
-(defun magit-git-string-ng (&rest args)
-  "Execute Git with ARGS, returning the first line of its output.
-If the exit code isn't zero or if there is no output, then that
-is considered an error, but instead of actually signaling an
-error, return nil.  Additionally the output is put in the process
-buffer (creating it if necessary) and the error message is shown
-in the status buffer (provided it exists).
-
-This is an experimental replacement for `magit-git-string', and
-still subject to major changes.  Also see `magit-git-string-p'."
-  (magit--with-refresh-cache
-      (list default-directory 'magit-git-string-ng args)
-    (magit--with-temp-process-buffer
-      (let* ((args (magit-process-git-arguments args))
-             (status (magit-process-git t args)))
-        (if (zerop status)
-            (and (not (bobp))
-                 (progn
-                   (goto-char (point-min))
-                   (buffer-substring-no-properties
-                    (point) (line-end-position))))
-          (let ((buf (current-buffer)))
-            (with-current-buffer (magit-process-buffer t)
-              (magit-process-insert-section default-directory
-                                            magit-git-executable args
-                                            status buf
-                                            'magit-section-secondary-heading)))
-          (when-let ((status-buf (magit-get-mode-buffer 'magit-status-mode)))
-            (let ((msg (magit--locate-error-message)))
-              (with-current-buffer status-buf
-                (setq magit-this-error msg))))
-          nil)))))
-
-(defun magit-git-str (&rest args)
-  "Execute Git with ARGS, returning the first line of its output.
-If there is no output, return nil.  If the output begins with a
-newline, return an empty string.  Like `magit-git-string' but
-ignore `magit-git-debug'."
-  (setq args (flatten-tree args))
-  (magit--with-refresh-cache (cons default-directory args)
-    (magit--with-temp-process-buffer
-      (magit-process-git (list t nil) args)
-      (unless (bobp)
-        (goto-char (point-min))
-        (buffer-substring-no-properties (point) (line-end-position))))))
-
-(defun magit-git-output (&rest args)
-  "Execute Git with ARGS, returning its output."
-  (setq args (flatten-tree args))
-  (magit--with-refresh-cache (cons default-directory args)
-    (magit--with-temp-process-buffer
-      (magit-process-git (list t nil) args)
-      (buffer-substring-no-properties (point-min) (point-max)))))
-
-(define-error 'magit-invalid-git-boolean "Not a Git boolean")
-
-(defun magit-git-true (&rest args)
-  "Execute Git with ARGS, returning t if it prints \"true\".
-If it prints \"false\", then return nil.  For any other output
-signal `magit-invalid-git-boolean'."
-  (pcase (magit-git-output args)
-    ((or "true"  "true\n")  t)
-    ((or "false" "false\n") nil)
-    (output (signal 'magit-invalid-git-boolean (list output)))))
-
-(defun magit-git-false (&rest args)
-  "Execute Git with ARGS, returning t if it prints \"false\".
-If it prints \"true\", then return nil.  For any other output
-signal `magit-invalid-git-boolean'."
-  (pcase (magit-git-output args)
-    ((or "true"  "true\n")  nil)
-    ((or "false" "false\n") t)
-    (output (signal 'magit-invalid-git-boolean (list output)))))
-
-(defun magit-git-config-p (variable &optional default)
-  "Return the boolean value of the Git variable VARIABLE.
-VARIABLE has to be specified as a string.  Return DEFAULT (which
-defaults to nil) if VARIABLE is unset.  If VARIABLE's value isn't
-a boolean, then raise an error."
-  (let ((args (list "config" "--bool" "--default" (if default "true" "false")
-                    variable)))
-    (magit--with-refresh-cache (cons default-directory args)
-      (magit--with-temp-process-buffer
-        (let ((status (magit-process-git t args))
-              (output (buffer-substring (point-min) (1- (point-max)))))
-          (if (zerop status)
-              (equal output "true")
-            (signal 'magit-invalid-git-boolean (list output))))))))
-
-(defun magit-git-insert (&rest args)
-  "Execute Git with ARGS, insert stdout at point and return exit code.
-If `magit-git-debug' in non-nil and the exit code is non-zero, then
-insert the run command and stderr into the process buffer."
-  (apply #'magit--git-insert nil args))
-
-(defun magit--git-insert (return-error &rest args)
-  (setq args (flatten-tree args))
-  (if (or return-error magit-git-debug)
-      (let (log)
-        (unwind-protect
-            (let (exit errmsg)
-              (setq log (make-temp-file "magit-stderr"))
-              (delete-file log)
-              (setq exit (magit-process-git (list t log) args))
-              (when (or (> exit 0) (eq magit-git-debug 'all))
-                (when (file-exists-p log)
-                  (with-temp-buffer
-                    (insert-file-contents log)
-                    (goto-char (point-max))
-                    (setq errmsg
-                          (cond
-                           ((eq return-error 'full)
-                            (buffer-string))
-                           ((functionp magit-git-debug)
-                            (funcall magit-git-debug (buffer-string)))
-                           ((magit--locate-error-message)))))
-                  (when magit-git-debug
-                    (let ((magit-git-debug nil))
-                      (with-current-buffer (magit-process-buffer t)
-                        (magit-process-finish-section
-                         (magit-process-insert-section
-                          default-directory magit-git-executable
-                          (magit-process-git-arguments args)
-                          exit log 'magit-section-secondary-heading)
-                         exit)))))
-                (cond ((not magit-git-debug))
-                      (errmsg (message "%s" errmsg))
-                      ((zerop exit))
-                      ((message "Git returned with exit-code %s" exit))))
-              (or errmsg exit))
-          (ignore-errors (delete-file log))))
-    (magit-process-git (list t nil) args)))
-
-(defun magit--locate-error-message ()
-  (goto-char (point-max))
-  (and (run-hook-wrapped 'magit-process-error-message-regexps
-                         (lambda (re) (re-search-backward re nil t)))
-       (match-string-no-properties 1)))
-
-(defun magit-git-string (&rest args)
-  "Execute Git with ARGS, returning the first line of its output.
-If there is no output, return nil.  If the output begins with a
-newline, return an empty string."
-  (setq args (flatten-tree args))
-  (magit--with-refresh-cache (cons default-directory args)
-    (magit--with-temp-process-buffer
-      (apply #'magit-git-insert args)
-      (unless (bobp)
-        (goto-char (point-min))
-        (buffer-substring-no-properties (point) (line-end-position))))))
-
-(defun magit-git-lines (&rest args)
-  "Execute Git with ARGS, returning its output as a list of lines.
-Empty lines anywhere in the output are omitted.
-
-If Git exits with a non-zero exit status, then report show a
-message and add a section in the respective process buffer."
-  (magit--with-temp-process-buffer
-    (apply #'magit-git-insert args)
-    (split-string (buffer-string) "\n" t)))
-
-(defun magit-git-items (&rest args)
-  "Execute Git with ARGS, returning its null-separated output as a list.
-Empty items anywhere in the output are omitted.
-
-If Git exits with a non-zero exit status, then report show a
-message and add a section in the respective process buffer."
-  (magit--with-temp-process-buffer
-    (apply #'magit-git-insert args)
-    (split-string (buffer-string) "\0" t)))
-
-(defvar magit--git-wash-keep-error t)
-
-(defun magit-git-wash (washer &rest args)
-  "Execute Git with ARGS, inserting washed output at point.
-Actually first insert the raw output at point.  If there is no
-output, call `magit-cancel-section'.  Otherwise temporarily narrow
-the buffer to the inserted text, move to its beginning, and then
-call function WASHER with ARGS as its sole argument."
-  (declare (indent 1))
-  (apply #'magit--git-wash washer magit--git-wash-keep-error args))
-
-(defun magit--git-wash (washer keep-error &rest args)
-  (declare (indent 2))
-  (setq args (flatten-tree args))
-  (let ((beg (point))
-        (exit (magit--git-insert (and keep-error 'full) args)))
-    (when (stringp exit)
-      (goto-char beg)
-      (insert (propertize exit 'face 'error))
-      (insert (if (bolp) "\n" "\n\n")))
-    (if (= (point) beg)
-        (magit-cancel-section)
-      (unless (bolp)
-        (insert "\n"))
-      (when (or (equal exit 0)
-                (eq keep-error 'wash-anyway))
-        (save-restriction
-          (narrow-to-region beg (point))
-          (goto-char beg)
-          (funcall washer args))
-        (when (or (= (point) beg)
-                  (= (point) (1+ beg)))
-          (magit-cancel-section))
-        (magit-maybe-make-margin-overlay)))
-    exit))
-
-(defun magit-git-executable-find (command)
-  "Search for COMMAND in Git's exec path, falling back to `exec-path'.
-Like `executable-find', return the absolute file name of the
-executable."
-  (or (locate-file command
-                   (list (concat
-                          (file-remote-p default-directory)
-                          (or (magit-git-string "--exec-path")
-                              (error "`git --exec-path' failed"))))
-                   exec-suffixes
-                   #'file-executable-p)
-      (compat-call executable-find command t)))
-
-;;; Git Version
-
-(defconst magit--git-version-regexp
-  "\\`git version \\([0-9]+\\(\\.[0-9]+\\)\\{1,2\\}\\)")
-
-(defvar magit--host-git-version-cache nil)
-
-(defun magit-git-version>= (n)
-  "Return t if `magit-git-version's value is greater than or equal to N."
-  (magit--version>= (magit-git-version) n))
-
-(defun magit-git-version< (n)
-  "Return t if `magit-git-version's value is smaller than N."
-  (version< (magit-git-version) n))
-
-(defun magit-git-version ()
-  "Return the Git version used for `default-directory'.
-Raise an error if Git cannot be found, if it exits with a
-non-zero status, or the output does not have the expected
-format."
-  (magit--with-refresh-cache default-directory
-    (let ((host (file-remote-p default-directory)))
-      (or (cdr (assoc host magit--host-git-version-cache))
-          (magit--with-temp-process-buffer
-            ;; Unset global arguments for ancient Git versions.
-            (let* ((magit-git-global-arguments nil)
-                   (status (magit-process-git t "version"))
-                   (output (buffer-string)))
-              (cond
-               ((not (zerop status))
-                (display-warning
-                 'magit
-                 (format "%S\n\nRunning \"%s --version\" failed with output:\n\n%s"
-                         (if host
-                             (format "Magit cannot find Git on host %S.\n
-Check the value of `magit-remote-git-executable' using
-`magit-debug-git-executable' and consult the info node
-`(tramp)Remote programs'." host)
-                           "Magit cannot find Git.\n
-Check the values of `magit-git-executable' and `exec-path'
-using `magit-debug-git-executable'.")
-                         (magit-git-executable)
-                         output)))
-               ((save-match-data
-                  (and (string-match magit--git-version-regexp output)
-                       (let ((version (match-string 1 output)))
-                         (push (cons host version)
-                               magit--host-git-version-cache)
-                         version))))
-               ((error "Unexpected \"%s --version\" output: %S"
-                       (magit-git-executable)
-                       output)))))))))
-
-(defun magit-git-version-assert (&optional minimal who)
-  "Assert that the used Git version is greater than or equal to MINIMAL.
-If optional MINIMAL is nil, compare with `magit--minimal-git'
-instead.  Optional WHO if non-nil specifies what functionality
-needs at least MINIMAL, otherwise it defaults to \"Magit\"."
-  (when (magit-git-version< (or minimal magit--minimal-git))
-    (let* ((host (file-remote-p default-directory))
-           (msg (format-spec
-                 (cond (host "\
-%w requires Git %m or greater, but on %h the version is %v.
-
-If multiple Git versions are installed on the host, then the
-problem might be that TRAMP uses the wrong executable.
-
-Check the value of `magit-remote-git-executable' and consult
-the info node `(tramp)Remote programs'.\n")
-                       (t "\
-%w requires Git %m or greater, but you are using %v.
-
-If you have multiple Git versions installed, then check the
-values of `magit-remote-git-executable' and `exec-path'.\n"))
-                 `((?w . ,(or who "Magit"))
-                   (?m . ,(or minimal magit--minimal-git))
-                   (?v . ,(magit-git-version))
-                   (?h . ,host)))))
-      (display-warning 'magit msg :error))))
-
-(defun magit--safe-git-version ()
-  "Return the Git version used for `default-directory' or an error message."
-  (magit--with-temp-process-buffer
-    (let* ((magit-git-global-arguments nil)
-           (status (magit-process-git t "version"))
-           (output (buffer-string)))
-      (cond ((not (zerop status)) output)
-            ((save-match-data
-               (and (string-match magit--git-version-regexp output)
-                    (match-string 1 output))))
-            (t output)))))
-
-(defun magit-debug-git-executable ()
-  "Display a buffer with information about `magit-git-executable'.
-Also include information about `magit-remote-git-executable'.
-See info node `(magit)Debugging Tools' for more information."
-  (interactive)
-  (with-current-buffer (get-buffer-create "*magit-git-debug*")
-    (pop-to-buffer (current-buffer))
-    (erase-buffer)
-    (insert (format "magit-remote-git-executable: %S\n"
-                    magit-remote-git-executable))
-    (insert (concat
-             (format "magit-git-executable: %S" magit-git-executable)
-             (and (not (file-name-absolute-p magit-git-executable))
-                  (format " [%S]" (executable-find magit-git-executable)))
-             (format " (%s)\n" (magit--safe-git-version))))
-    (insert (format "exec-path: %S\n" exec-path))
-    (when-let ((diff (cl-set-difference
-                      (seq-filter #'file-exists-p (remq nil (parse-colon-path
-                                                             (getenv "PATH"))))
-                      (seq-filter #'file-exists-p (remq nil exec-path))
-                      :test #'file-equal-p)))
-      (insert (format "  entries in PATH, but not in exec-path: %S\n" diff)))
-    (dolist (execdir exec-path)
-      (insert (format "  %s (%s)\n" execdir (car (file-attributes execdir))))
-      (when (file-directory-p execdir)
-        (dolist (exec (directory-files
-                       execdir t (concat
-                                  "\\`git" (regexp-opt exec-suffixes) "\\'")))
-          (insert (format "    %s (%s)\n" exec
-                          (magit--safe-git-version))))))))
-
-;;; Variables
-
-(defun magit-config-get-from-cached-list (key)
-  (gethash
-   ;; `git config --list' downcases first and last components of the key.
-   (let* ((key (replace-regexp-in-string "\\`[^.]+" #'downcase key t t))
-          (key (replace-regexp-in-string "[^.]+\\'" #'downcase key t t)))
-     key)
-   (magit--with-refresh-cache (cons (magit-toplevel) 'config)
-     (let ((configs (make-hash-table :test #'equal)))
-       (dolist (conf (magit-git-items "config" "--list" "-z"))
-         (let* ((nl-pos (cl-position ?\n conf))
-                (key (substring conf 0 nl-pos))
-                (val (if nl-pos (substring conf (1+ nl-pos)) "")))
-           (puthash key (nconc (gethash key configs) (list val)) configs)))
-       configs))))
-
-(defun magit-get (&rest keys)
-  "Return the value of the Git variable specified by KEYS."
-  (car (last (apply #'magit-get-all keys))))
-
-(defun magit-get-all (&rest keys)
-  "Return all values of the Git variable specified by KEYS."
-  (let ((magit-git-debug nil)
-        (arg (and (or (null (car keys))
-                      (string-prefix-p "--" (car keys)))
-                  (pop keys)))
-        (key (string-join keys ".")))
-    (if (and magit--refresh-cache (not arg))
-        (magit-config-get-from-cached-list key)
-      (magit-git-items "config" arg "-z" "--get-all" "--include" key))))
-
-(defun magit-get-boolean (&rest keys)
-  "Return the boolean value of the Git variable specified by KEYS.
-Also see `magit-git-config-p'."
-  (let ((arg (and (or (null (car keys))
-                      (string-prefix-p "--" (car keys)))
-                  (pop keys)))
-        (key (string-join keys ".")))
-    (equal (if magit--refresh-cache
-               (car (last (magit-config-get-from-cached-list key)))
-             (magit-git-str "config" arg "--bool" "--include" key))
-           "true")))
-
-(defun magit-set (value &rest keys)
-  "Set the value of the Git variable specified by KEYS to VALUE."
-  (let ((arg (and (or (null (car keys))
-                      (string-prefix-p "--" (car keys)))
-                  (pop keys)))
-        (key (string-join keys ".")))
-    (if value
-        (magit-git-success "config" arg key value)
-      (magit-git-success "config" arg "--unset" key))
-    value))
-
-(gv-define-setter magit-get (val &rest keys)
-  `(magit-set ,val ,@keys))
-
-(defun magit-set-all (values &rest keys)
-  "Set all values of the Git variable specified by KEYS to VALUES."
-  (let ((arg (and (or (null (car keys))
-                      (string-prefix-p "--" (car keys)))
-                  (pop keys)))
-        (var (string-join keys ".")))
-    (when (magit-get var)
-      (magit-call-git "config" arg "--unset-all" var))
-    (dolist (v values)
-      (magit-call-git "config" arg "--add" var v))))
-
-;;; Files
-
-(defun magit--safe-default-directory (&optional file)
-  (catch 'unsafe-default-dir
-    (let ((dir (file-name-as-directory
-                (expand-file-name (or file default-directory))))
-          (previous nil))
-      (while (not (file-accessible-directory-p dir))
-        (setq dir (file-name-directory (directory-file-name dir)))
-        (when (equal dir previous)
-          (throw 'unsafe-default-dir nil))
-        (setq previous dir))
-      dir)))
-
-(defmacro magit--with-safe-default-directory (file &rest body)
-  (declare (indent 1) (debug (form body)))
-  `(when-let ((default-directory (magit--safe-default-directory ,file)))
-     ,@body))
-
-(defun magit-git-dir (&optional path)
-  "Like (expand-file-name PATH (magit-gitdir)) or just (magit-gitdir)."
-  (declare (obsolete 'magit-gitdir "Magit 4.0.0"))
-  (and-let* ((dir (magit-gitdir)))
-    (if path
-        (expand-file-name (convert-standard-filename path) dir)
-      dir)))
-
-(defun magit-gitdir (&optional directory)
-  "Return the absolute and resolved path of the .git directory.
-
-If the `GIT_DIR' environment variable is defined, return that.
-Otherwise return the .git directory for DIRECTORY, or if that is
-nil, then for `default-directory' instead.  If the directory is
-not located inside a Git repository, then return nil."
-  (let ((default-directory (or directory default-directory)))
-    (magit--with-refresh-cache (list default-directory 'magit-gitdir)
-      (magit--with-safe-default-directory nil
-        (and-let*
-            ((dir (magit-rev-parse-safe "--git-dir"))
-             (dir (file-name-as-directory (magit-expand-git-file-name dir))))
-          (if (file-remote-p dir)
-              dir
-            (concat (file-remote-p default-directory) dir)))))))
-
-(defvar magit--separated-gitdirs nil)
-
-(defun magit--record-separated-gitdir ()
-  (let ((topdir (magit-toplevel))
-        (gitdir (magit-gitdir)))
-    ;; Kludge: git-annex converts submodule gitdirs to symlinks. See #3599.
-    (when (file-symlink-p (directory-file-name gitdir))
-      (setq gitdir (file-truename gitdir)))
-    ;; We want to delete the entry for `topdir' here, rather than within
-    ;; (unless ...), in case a `--separate-git-dir' repository was switched to
-    ;; the standard structure (i.e., "topdir/.git/").
-    (setq magit--separated-gitdirs (cl-delete topdir
-                                              magit--separated-gitdirs
-                                              :key #'car :test #'equal))
-    (unless (equal (file-name-as-directory (expand-file-name ".git" topdir))
-                   gitdir)
-      (push (cons topdir gitdir) magit--separated-gitdirs))))
-
-(defun magit-toplevel (&optional directory)
-  "Return the absolute path to the toplevel of the current repository.
-
-From within the working tree or control directory of a repository
-return the absolute path to the toplevel directory of the working
-tree.  As a special case, from within a bare repository return
-the control directory instead.  When called outside a repository
-then return nil.
-
-When optional DIRECTORY is non-nil then return the toplevel for
-that directory instead of the one for `default-directory'.
-
-Try to respect the option `find-file-visit-truename', i.e.,  when
-the value of that option is nil, then avoid needlessly returning
-the truename.  When a symlink to a sub-directory of the working
-tree is involved, or when called from within a sub-directory of
-the gitdir or from the toplevel of a gitdir, which itself is not
-located within the working tree, then it is not possible to avoid
-returning the truename."
-  (or
-   (magit--with-refresh-cache
-       (cons (or directory default-directory) 'magit-toplevel)
-     (magit--with-safe-default-directory directory
-       (if-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
-           (let (updir)
-             (setq topdir (magit-expand-git-file-name topdir))
-             (cond
-              ((and
-                ;; Always honor these settings.
-                (not find-file-visit-truename)
-                (not (getenv "GIT_WORK_TREE"))
-                ;; `--show-cdup' is the relative path to the toplevel
-                ;; from `(file-truename default-directory)'.  Here we
-                ;; pretend it is relative to `default-directory', and
-                ;; go to that directory.  Then we check whether
-                ;; `--show-toplevel' still returns the same value and
-                ;; whether `--show-cdup' now is the empty string.  If
-                ;; both is the case, then we are at the toplevel of
-                ;; the same working tree, but also avoided needlessly
-                ;; following any symlinks.
-                (progn
-                  (setq updir (file-name-as-directory
-                               (magit-rev-parse-safe "--show-cdup")))
-                  (setq updir (if (file-name-absolute-p updir)
-                                  (concat (file-remote-p default-directory)
-                                          updir)
-                                (expand-file-name updir)))
-                  (and-let*
-                      ((default-directory updir)
-                       (top (and (string-equal
-                                  (magit-rev-parse-safe "--show-cdup") "")
-                                 (magit-rev-parse-safe "--show-toplevel"))))
-                    (string-equal (magit-expand-git-file-name top) topdir))))
-               updir)
-              ((concat (file-remote-p default-directory)
-                       (file-name-as-directory topdir)))))
-         (and-let* ((gitdir (magit-rev-parse-safe "--git-dir"))
-                    (gitdir (file-name-as-directory
-                             (if (file-name-absolute-p gitdir)
-                                 ;; We might have followed a symlink.
-                                 (concat (file-remote-p default-directory)
-                                         (magit-expand-git-file-name gitdir))
-                               (expand-file-name gitdir)))))
-           (if (magit-bare-repo-p)
-               gitdir
-             (let* ((link (expand-file-name "gitdir" gitdir))
-                    (wtree (and (file-exists-p link)
-                                (magit-file-line link))))
-               (cond
-                ((and wtree
-                      ;; Ignore .git/gitdir files that result from a
-                      ;; Git bug.  See #2364.
-                      (not (equal wtree ".git")))
-                 ;; Return the linked working tree.
-                 (concat (file-remote-p default-directory)
-                         (file-name-directory wtree)))
-                ;; The working directory may not be the parent
-                ;; directory of .git if it was set up with
-                ;; "git init --separate-git-dir".  See #2955.
-                ((car (rassoc gitdir magit--separated-gitdirs)))
-                (;; Step outside the control directory to enter the
-                 ;; working tree.
-                 (file-name-directory (directory-file-name gitdir))))))))))))
-
-(defun magit--toplevel-safe ()
-  (or (magit-toplevel)
-      (magit--not-inside-repository-error)))
-
-(defmacro magit-with-toplevel (&rest body)
-  (declare (indent defun) (debug (body)))
-  `(let ((default-directory (magit--toplevel-safe)))
-     ,@body))
-
-(define-error 'magit-outside-git-repo "Not inside Git repository")
-(define-error 'magit-corrupt-git-config "Corrupt Git configuration")
-(define-error 'magit-git-executable-not-found
-              (concat "Git executable cannot be found "
-                      "(see https://magit.vc/goto/e6a78ed2)"))
-
-(defun magit--assert-usable-git ()
-  (if (not (compat-call executable-find (magit-git-executable) t))
-      (signal 'magit-git-executable-not-found (magit-git-executable))
-    (let ((magit-git-debug
-           (lambda (err)
-             (signal 'magit-corrupt-git-config
-                     (format "%s: %s" default-directory err)))))
-      ;; This should always succeed unless there's a corrupt config
-      ;; (or at least a similarly severe failing state).  Note that
-      ;; git-config's --default is avoided because it's not available
-      ;; until Git 2.18.
-      (magit-git-string "config" "--get-color" "" "reset"))
-    nil))
-
-(defun magit--not-inside-repository-error ()
-  (magit--assert-usable-git)
-  (signal 'magit-outside-git-repo default-directory))
-
-(defun magit-inside-gitdir-p (&optional noerror)
-  "Return t if `default-directory' is below the repository directory.
-If it is below the working directory, then return nil.
-If it isn't below either, then signal an error unless NOERROR
-is non-nil, in which case return nil."
-  (and (magit--assert-default-directory noerror)
-       ;; Below a repository directory that is not located below the
-       ;; working directory "git rev-parse --is-inside-git-dir" prints
-       ;; "false", which is wrong.
-       (let ((gitdir (magit-gitdir)))
-         (cond (gitdir (file-in-directory-p default-directory gitdir))
-               (noerror nil)
-               ((signal 'magit-outside-git-repo default-directory))))))
-
-(defun magit-inside-worktree-p (&optional noerror)
-  "Return t if `default-directory' is below the working directory.
-If it is below the repository directory, then return nil.
-If it isn't below either, then signal an error unless NOERROR
-is non-nil, in which case return nil."
-  (and (magit--assert-default-directory noerror)
-       (condition-case nil
-           (magit-rev-parse-true "--is-inside-work-tree")
-         (magit-invalid-git-boolean
-          (and (not noerror)
-               (signal 'magit-outside-git-repo default-directory))))))
-
-(cl-defgeneric magit-bare-repo-p (&optional noerror)
-  "Return t if the current repository is bare.
-If it is non-bare, then return nil.  If `default-directory'
-isn't below a Git repository, then signal an error unless
-NOERROR is non-nil, in which case return nil."
-  (and (magit--assert-default-directory noerror)
-       (condition-case nil
-           (magit-rev-parse-true "--is-bare-repository")
-         (magit-invalid-git-boolean
-          (and (not noerror)
-               (signal 'magit-outside-git-repo default-directory))))))
-
-(defun magit--assert-default-directory (&optional noerror)
-  (or (file-directory-p default-directory)
-      (and (not noerror)
-           (let ((exists (file-exists-p default-directory)))
-             (signal (if exists 'file-error 'file-missing)
-                     (list "Running git in directory"
-                           (if exists
-                               "Not a directory"
-                             "No such file or directory")
-                           default-directory))))))
-
-(defun magit-git-repo-p (directory &optional non-bare)
-  "Return t if DIRECTORY is a Git repository.
-When optional NON-BARE is non-nil also return nil if DIRECTORY is
-a bare repository."
-  (and (file-directory-p directory) ; Avoid archives, see #3397.
-       (or (file-regular-p (expand-file-name ".git" directory))
-           (file-directory-p (expand-file-name ".git" directory))
-           (and (not non-bare)
-                (file-regular-p (expand-file-name "HEAD" directory))
-                (file-directory-p (expand-file-name "refs" directory))
-                (file-directory-p (expand-file-name "objects" directory))))))
-
-(defun magit-file-relative-name (&optional file tracked)
-  "Return the path of FILE relative to the repository root.
-
-If optional FILE is nil or omitted, return the relative path of
-the file being visited in the current buffer, if any, else nil.
-If the file is not inside a Git repository, then return nil.
-
-If TRACKED is non-nil, return the path only if it matches a
-tracked file."
-  (unless file
-    (with-current-buffer (or (buffer-base-buffer)
-                             (current-buffer))
-      (setq file (or magit-buffer-file-name buffer-file-name
-                     (and (derived-mode-p 'dired-mode) default-directory)))))
-  (when (and file (or (not tracked)
-                      (magit-file-tracked-p (file-relative-name file))))
-    (and-let* ((dir (magit-toplevel
-                     (magit--safe-default-directory
-                      (directory-file-name (file-name-directory file))))))
-      (file-relative-name file dir))))
-
-(defun magit-file-ignored-p (file)
-  (magit-git-string-p "ls-files" "--others" "--ignored" "--exclude-standard"
-                      "--" (magit-convert-filename-for-git file)))
-
-(defun magit-file-tracked-p (file)
-  (magit-git-success "ls-files" "--error-unmatch"
-                     "--" (magit-convert-filename-for-git file)))
-
-(defun magit-list-files (&rest args)
-  (apply #'magit-git-items "ls-files" "-z" "--full-name" args))
-
-(defun magit-tracked-files ()
-  (magit-list-files "--cached"))
-
-(defun magit-untracked-files (&optional all files compact)
-  (if compact
-      (--mapcat (and (eq (aref it 0) ??)
-                     (list (substring it 3)))
-                (magit-git-items "status" "-z" "--porcelain"
-                                 (magit-ignore-submodules-p t)
-                                 "--" files))
-    (magit-list-files "--other"
-                      (and (not all) "--exclude-standard")
-                      "--" files)))
-
-(defun magit-modified-files (&optional nomodules files)
-  (magit-git-items "diff-index" "-z" "--name-only"
-                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
-                   (if nomodules "--ignore-submodules" "--submodule=short")
-                   (magit-headish) "--" files))
-
-(defun magit-unstaged-files (&optional nomodules files)
-  (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=u"
-                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
-                   (if nomodules "--ignore-submodules" "--submodule=short")
-                   "--" files))
-
-(defun magit-staged-files (&optional nomodules files)
-  (magit-git-items "diff-index" "-z" "--name-only" "--cached"
-                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
-                   (if nomodules "--ignore-submodules" "--submodule=short")
-                   (magit-headish) "--" files))
-
-(defun magit-binary-files (&rest args)
-  (--mapcat (and (string-match "^-\t-\t\\(.+\\)" it)
-                 (list (match-string 1 it)))
-            (apply #'magit-git-items
-                   "diff" "-z" "--numstat" "--ignore-submodules"
-                   args)))
-
-(defun magit-unmerged-files ()
-  (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=U"))
-
-(defun magit-ignored-files ()
-  (magit-git-items "ls-files" "-z" "--others" "--ignored"
-                   "--exclude-standard" "--directory"))
-
-(defun magit-stashed-files (stash)
-  (magit-git-items "stash" "show" "-z" "--name-only" stash))
-
-(defun magit-skip-worktree-files ()
-  (--keep (and (= (aref it 0) ?S)
-               (substring it 2))
-          (magit-list-files "-t")))
-
-(defun magit-assume-unchanged-files ()
-  (--keep (and (memq (aref it 0) '(?h ?s ?m ?r ?c ?k))
-               (substring it 2))
-          (magit-list-files "-v")))
-
-(defun magit-revision-files (rev)
-  (magit-with-toplevel
-    (magit-git-items "ls-tree" "-z" "-r" "--name-only" rev)))
-
-(defun magit-revision-directories (rev)
-  "List directories that contain a tracked file in revision REV."
-  (magit-with-toplevel
-    (mapcar #'file-name-as-directory
-            (magit-git-items "ls-tree" "-z" "-r" "-d" "--name-only" rev))))
-
-(defun magit-changed-files (rev-or-range &optional other-rev)
-  "Return list of files the have changed between two revisions.
-If OTHER-REV is non-nil, REV-OR-RANGE should be a revision, not a
-range.  Otherwise, it can be any revision or range accepted by
-\"git diff\" (i.e., <rev>, <revA>..<revB>, or <revA>...<revB>)."
-  (magit-with-toplevel
-    (magit-git-items "diff" "-z" "--name-only" rev-or-range other-rev)))
-
-(defun magit-renamed-files (revA revB)
-  (mapcar (pcase-lambda (`(,_status ,fileA ,fileB))
-            (cons fileA fileB))
-          (seq-partition (magit-git-items "diff" "-z" "--name-status"
-                                          "--find-renames"
-                                          "--diff-filter=R" revA revB)
-                         3)))
-
-(defun magit--rev-file-name (file rev other-rev)
-  "For FILE, potentially renamed between REV and OTHER-REV, return name in REV.
-Return nil, if FILE appears neither in REV nor OTHER-REV,
-or if no rename is detected."
-  (or (car (member file (magit-revision-files rev)))
-      (and-let* ((renamed (magit-renamed-files rev other-rev)))
-        (car (rassoc file renamed)))))
-
-(defun magit-file-status (&rest args)
-  (magit--with-temp-process-buffer
-    (save-excursion (magit-git-insert "status" "-z" args))
-    (let ((pos (point)) status)
-      (while (> (skip-chars-forward "[:print:]") 0)
-        (let ((x (char-after     pos))
-              (y (char-after (1+ pos)))
-              (file (buffer-substring (+ pos 3) (point))))
-          (forward-char)
-          (if (memq x '(?R ?C))
-              (progn
-                (setq pos (point))
-                (skip-chars-forward "[:print:]")
-                (push (list file (buffer-substring pos (point)) x y) status)
-                (forward-char))
-            (push (list file nil x y) status)))
-        (setq pos (point)))
-      status)))
-
-(defcustom magit-cygwin-mount-points
-  (and (eq system-type 'windows-nt)
-       (cl-sort (--map (if (string-match "^\\(.*\\) on \\(.*\\) type" it)
-                           (cons (file-name-as-directory (match-string 2 it))
-                                 (file-name-as-directory (match-string 1 it)))
-                         (lwarn '(magit) :error
-                                "Failed to parse Cygwin mount: %S" it))
-                       ;; If --exec-path is not a native Windows path,
-                       ;; then we probably have a cygwin git.
-                       (let ((process-environment
-                              (append magit-git-environment
-                                      process-environment)))
-                         (and (not (string-match-p
-                                    "\\`[a-zA-Z]:"
-                                    (car (process-lines
-                                          magit-git-executable "--exec-path"))))
-                              (ignore-errors (process-lines "mount")))))
-                #'> :key (pcase-lambda (`(,cyg . ,_win)) (length cyg))))
-  "Alist of (CYGWIN . WIN32) directory names.
-Sorted from longest to shortest CYGWIN name."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-process
-  :type '(alist :key-type string :value-type directory))
-
-(defun magit-expand-git-file-name (filename)
-  (unless (file-name-absolute-p filename)
-    (setq filename (expand-file-name filename)))
-  (if-let ((cyg:win (and (not (file-remote-p default-directory)) ; see #4976
-                         (cl-assoc filename magit-cygwin-mount-points
-                                   :test (lambda (f cyg) (string-prefix-p cyg f))))))
-      (concat (cdr cyg:win)
-              (substring filename (length (car cyg:win))))
-    filename))
-
-(defun magit-convert-filename-for-git (filename)
-  "Convert FILENAME so that it can be passed to git.
-1. If it is a absolute filename, then pass it through
-   `expand-file-name' to replace things such as \"~/\" that
-   Git does not understand.
-2. If it is a remote filename, then remove the remote part.
-3. Deal with an `windows-nt' Emacs vs. Cygwin Git incompatibility."
-  (if (file-name-absolute-p filename)
-      (if-let ((cyg:win (cl-rassoc filename magit-cygwin-mount-points
-                                   :test (lambda (f win) (string-prefix-p win f)))))
-          (concat (car cyg:win)
-                  (substring filename (length (cdr cyg:win))))
-        (let ((expanded (expand-file-name filename)))
-          (or (file-remote-p expanded 'localname)
-              expanded)))
-    filename))
-
-(defun magit-decode-git-path (path)
-  (if (eq (aref path 0) ?\")
-      (decode-coding-string (read path)
-                            (or magit-git-output-coding-system
-                                (car default-process-coding-system))
-                            t)
-    path))
-
-(defun magit-file-at-point (&optional expand assert)
-  (if-let ((file (magit-section-case
-                   (file (oref it value))
-                   (hunk (magit-section-parent-value it)))))
-      (if expand
-          (expand-file-name file (magit-toplevel))
-        file)
-    (when assert
-      (user-error "No file at point"))))
-
-(defun magit-current-file ()
-  (or (magit-file-relative-name)
-      (magit-file-at-point)
-      (and (derived-mode-p 'magit-log-mode)
-           (car magit-buffer-log-files))))
-
-;;; Predicates
-
-(defun magit-no-commit-p ()
-  "Return t if there is no commit in the current Git repository."
-  (not (magit-rev-verify "HEAD")))
-
-(defun magit-merge-commit-p (commit)
-  "Return t if COMMIT is a merge commit."
-  (length> (magit-commit-parents commit) 1))
-
-(defun magit-anything-staged-p (&optional ignore-submodules &rest files)
-  "Return t if there are any staged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
-  ;; The "--submodule=short" is needed to work around a bug in Git v2.46.0
-  ;; and v2.46.1.  See #5212 and #5221.  There are actually two related
-  ;; bugs, both of which are fixed in v2.46.2, with the following commits,
-  ;; but there is no workaround for the second bug.
-  ;; 11591850dd diff: report dirty submodules as changes in builtin_diff()
-  ;; 87cf96094a diff: report copies and renames as changes in run_diff_cmd()
-  (magit-git-failure "diff" "--quiet" "--cached"
-                     (if ignore-submodules
-                         "--ignore-submodules"
-                       "--submodule=short")
-                     "--" files))
-
-(defun magit-anything-unstaged-p (&optional ignore-submodules &rest files)
-  "Return t if there are any unstaged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
-  (magit-git-failure "diff" "--quiet"
-                     (if ignore-submodules
-                         "--ignore-submodules"
-                       ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
-                       "--submodule=short")
-                     "--" files))
-
-(defun magit-anything-modified-p (&optional ignore-submodules &rest files)
-  "Return t if there are any staged or unstaged changes.
-If optional FILES is non-nil, then only changes to those files
-are considered."
-  (or (apply #'magit-anything-staged-p   ignore-submodules files)
-      (apply #'magit-anything-unstaged-p ignore-submodules files)))
-
-(defun magit-anything-unmerged-p (&rest files)
-  "Return t if there are any merge conflicts.
-If optional FILES is non-nil, then only conflicts in those files
-are considered."
-  (and (magit-git-string "ls-files" "--unmerged" files) t))
-
-(defun magit-module-worktree-p (module)
-  (magit-with-toplevel
-    (file-exists-p (expand-file-name ".git" module))))
-
-(defun magit-module-no-worktree-p (module)
-  (not (magit-module-worktree-p module)))
-
-(defun magit-ignore-submodules-p (&optional return-argument)
-  (or (cl-find-if (lambda (arg)
-                    (string-prefix-p "--ignore-submodules" arg))
-                  magit-buffer-diff-args)
-      (and-let* ((value (magit-get "diff.ignoreSubmodules")))
-        (if return-argument
-            (concat "--ignore-submodules=" value)
-          (concat "diff.ignoreSubmodules=" value)))))
-
-;;; Revisions and References
-
-(defun magit-rev-parse (&rest args)
-  "Execute `git rev-parse ARGS', returning first line of output.
-If there is no output, return nil."
-  (apply #'magit-git-string "rev-parse" args))
-
-(defun magit-rev-parse-safe (&rest args)
-  "Execute `git rev-parse ARGS', returning first line of output.
-If there is no output, return nil.  Like `magit-rev-parse' but
-ignore `magit-git-debug'."
-  (apply #'magit-git-str "rev-parse" args))
-
-(defun magit-rev-parse-true (&rest args)
-  "Execute `git rev-parse ARGS', returning t if it prints \"true\".
-If it prints \"false\", then return nil.  For any other output
-signal an error."
-  (magit-git-true "rev-parse" args))
-
-(defun magit-rev-parse-false (&rest args)
-  "Execute `git rev-parse ARGS', returning t if it prints \"false\".
-If it prints \"true\", then return nil.  For any other output
-signal an error."
-  (magit-git-false "rev-parse" args))
-
-(defun magit-rev-parse-p (&rest args)
-  "Execute `git rev-parse ARGS', returning t if it prints \"true\".
-Return t if the first (and usually only) output line is the
-string \"true\", otherwise return nil."
-  (equal (magit-git-str "rev-parse" args) "true"))
-
-(defun magit-rev-verify (rev)
-  (magit-git-string-p "rev-parse" "--verify" rev))
-
-(defun magit-commit-p (rev)
-  "Return full hash for REV if it names an existing commit."
-  (magit-rev-verify (magit--rev-dereference rev)))
-
-(defalias 'magit-rev-verify-commit #'magit-commit-p)
-
-(defalias 'magit-rev-hash #'magit-commit-p)
-
-(defun magit--rev-dereference (rev)
-  "Return a rev that forces Git to interpret REV as a commit.
-If REV is nil or has the form \":/TEXT\", return REV itself."
-  (cond ((not rev) nil)
-        ((string-match-p "^:/" rev) rev)
-        ((concat rev "^{commit}"))))
-
-(defun magit-rev-equal (a b)
-  "Return t if there are no differences between the commits A and B."
-  (magit-git-success "diff" "--quiet" a b))
-
-(defun magit-rev-eq (a b)
-  "Return t if A and B refer to the same commit."
-  (let ((a (magit-commit-p a))
-        (b (magit-commit-p b)))
-    (and a b (equal a b))))
-
-(defun magit-rev-ancestor-p (a b)
-  "Return non-nil if commit A is an ancestor of commit B."
-  (magit-git-success "merge-base" "--is-ancestor" a b))
-
-(defun magit-rev-head-p (rev)
-  (or (equal rev "HEAD")
-      (and rev
-           (not (string-search ".." rev))
-           (equal (magit-rev-parse rev)
-                  (magit-rev-parse "HEAD")))))
-
-(defun magit-rev-author-p (rev)
-  "Return t if the user is the author of REV.
-More precisely return t if `user.name' is equal to the author
-name of REV and/or `user.email' is equal to the author email
-of REV."
-  (or (equal (magit-get "user.name")  (magit-rev-format "%an" rev))
-      (equal (magit-get "user.email") (magit-rev-format "%ae" rev))))
-
-(defun magit-rev-name (rev &optional pattern not-anchored)
-  "Return a symbolic name for REV using `git-name-rev'.
-
-PATTERN can be used to limit the result to a matching ref.
-Unless NOT-ANCHORED is non-nil, the beginning of the ref must
-match PATTERN.
-
-An anchored lookup is done using the arguments
-\"--exclude=*/<PATTERN> --exclude=*/HEAD\" in addition to
-\"--refs=<PATTERN>\", provided at least version v2.13 of Git is
-used.  Older versions did not support the \"--exclude\" argument.
-When \"--exclude\" cannot be used and `git-name-rev' returns a
-ref that should have been excluded, then that is discarded and
-this function returns nil instead.  This is unfortunate because
-there might be other refs that do match.  To fix that, update
-Git."
-  (if (magit-git-version< "2.13")
-      (and-let*
-          ((ref (magit-git-string "name-rev" "--name-only" "--no-undefined"
-                                  (and pattern (concat "--refs=" pattern))
-                                  rev)))
-        (if (and pattern
-                 (string-match-p "\\`refs/[^/]+/\\*\\'" pattern))
-            (let ((namespace (substring pattern 0 -1)))
-              (and (not (or (string-suffix-p "HEAD" ref)
-                            (and (string-match-p namespace ref)
-                                 (not (magit-rev-verify
-                                       (concat namespace ref))))))
-                   ref))
-          ref))
-    (magit-git-string "name-rev" "--name-only" "--no-undefined"
-                      (and pattern (concat "--refs=" pattern))
-                      (and pattern
-                           (not not-anchored)
-                           (list "--exclude=*/HEAD"
-                                 (concat "--exclude=*/" pattern)))
-                      rev)))
-
-(defun magit-rev-branch (rev)
-  (and-let* ((name (magit-rev-name rev "refs/heads/*")))
-    (and (not (string-match-p "[~^]" name)) name)))
-
-(defun magit-rev-fixup-target (rev)
-  (let ((msg (magit-rev-format "%s" rev)))
-    (save-match-data
-      (and (string-match "\\`\\(fixup\\|squash\\)! \\(.+\\)" msg)
-           (magit-rev-format
-            "%h" (format "%s^{/^%s}" rev
-                         (magit--ext-regexp-quote (match-string 2 msg))))))))
-
-(defun magit-get-shortname (rev)
-  (let* ((fn (apply-partially #'magit-rev-name rev))
-         (name (or (funcall fn "refs/tags/*")
-                   (funcall fn "refs/heads/*")
-                   (funcall fn "refs/remotes/*"))))
-    (cond ((not name)
-           (magit-rev-parse "--short" rev))
-          ((string-match "^\\(?:tags\\|remotes\\)/\\(.+\\)" name)
-           (if (magit-ref-ambiguous-p (match-string 1 name))
-               name
-             (match-string 1 name)))
-          ((magit-ref-maybe-qualify name)))))
-
-(defun magit-name-branch (rev &optional lax)
-  (or (magit-name-local-branch rev)
-      (magit-name-remote-branch rev)
-      (and lax (or (magit-name-local-branch rev t)
-                   (magit-name-remote-branch rev t)))))
-
-(defun magit-name-local-branch (rev &optional lax)
-  (and-let* ((name (magit-rev-name rev "refs/heads/*")))
-    (and (or lax (not (string-match-p "[~^]" name))) name)))
-
-(defun magit-name-remote-branch (rev &optional lax)
-  (and-let* ((name (magit-rev-name rev "refs/remotes/*")))
-    (and (or lax (not (string-match-p "[~^]" name)))
-         (substring name 8))))
-
-(defun magit-name-tag (rev &optional lax)
-  (and-let* ((name (magit-rev-name rev "refs/tags/*")))
-    ;; The progn is necessary to work around debbugs#31840.  This, and all
-    ;; the other instances, can be removed once we require at least Emacs 27.
-    (progn
-      (when (string-suffix-p "^0" name)
-        (setq name (substring name 0 -2)))
-      (and (or lax (not (string-match-p "[~^]" name)))
-           (substring name 5)))))
-
-(defun magit-ref-abbrev (refname)
-  "Return an unambiguous abbreviation of REFNAME."
-  (magit-rev-parse "--verify" "--abbrev-ref" refname))
-
-(defun magit-ref-fullname (refname)
-  "Return fully qualified refname for REFNAME.
-If REFNAME is ambiguous, return nil."
-  (magit-rev-parse "--verify" "--symbolic-full-name" refname))
-
-(defun magit-ref-ambiguous-p (refname)
-  (save-match-data
-    (if (string-match "\\`\\([^^~]+\\)\\(.*\\)" refname)
-        (not (magit-ref-fullname (match-string 1 refname)))
-      (error "%S has an unrecognized format" refname))))
-
-(defun magit-ref-maybe-qualify (refname &optional prefix)
-  "If REFNAME is ambiguous, try to disambiguate it by prepend PREFIX to it.
-Return an unambiguous refname, either REFNAME or that prefixed
-with PREFIX, nil otherwise.  If REFNAME has an offset suffix
-such as \"~1\", then that is preserved.  If optional PREFIX is
-nil, then use \"heads/\".  "
-  (if (magit-ref-ambiguous-p refname)
-      (let ((refname (concat (or prefix "heads/") refname)))
-        (and (not (magit-ref-ambiguous-p refname)) refname))
-    refname))
-
-(defun magit-ref-exists-p (ref)
-  (magit-git-success "show-ref" "--verify" ref))
-
-(defun magit-ref-equal (a b)
-  "Return t if the refnames A and B are `equal'.
-A symbolic-ref pointing to some ref, is `equal' to that ref,
-as are two symbolic-refs pointing to the same ref.  Refnames
-may be abbreviated."
-  (let ((a (magit-ref-fullname a))
-        (b (magit-ref-fullname b)))
-    (and a b (equal a b))))
-
-(defun magit-ref-eq (a b)
-  "Return t if the refnames A and B are `eq'.
-A symbolic-ref is `eq' to itself, but not to the ref it points
-to, or to some other symbolic-ref that points to the same ref."
-  (let ((symbolic-a (magit-symbolic-ref-p a))
-        (symbolic-b (magit-symbolic-ref-p b)))
-    (or (and symbolic-a
-             symbolic-b
-             (equal a b))
-        (and (not symbolic-a)
-             (not symbolic-b)
-             (magit-ref-equal a b)))))
-
-(defun magit-headish ()
-  "Return the `HEAD' or if that doesn't exist the hash of the empty tree."
-  (if (magit-no-commit-p)
-      (magit-git-string "mktree")
-    "HEAD"))
-
-(defun magit-branch-at-point ()
-  (magit-section-case
-    (branch (oref it value))
-    (commit (or (magit--painted-branch-at-point)
-                (magit-name-branch (oref it value))))))
-
-(defun magit--painted-branch-at-point (&optional type)
-  (or (and (not (eq type 'remote))
-           (memq (get-text-property (magit-point) 'font-lock-face)
-                 (list 'magit-branch-local
-                       'magit-branch-current))
-           (and-let* ((branch (magit-thing-at-point 'git-revision t)))
-             (cdr (magit-split-branch-name branch))))
-      (and (not (eq type 'local))
-           (memq (get-text-property (magit-point) 'font-lock-face)
-                 (list 'magit-branch-remote
-                       'magit-branch-remote-head))
-           (thing-at-point 'git-revision t))))
-
-(defun magit-local-branch-at-point ()
-  (magit-section-case
-    (branch (let ((branch (magit-ref-maybe-qualify (oref it value))))
-              (when (member branch (magit-list-local-branch-names))
-                branch)))
-    (commit (or (magit--painted-branch-at-point 'local)
-                (magit-name-local-branch (oref it value))))))
-
-(defun magit-remote-branch-at-point ()
-  (magit-section-case
-    (branch (let ((branch (oref it value)))
-              (when (member branch (magit-list-remote-branch-names))
-                branch)))
-    (commit (or (magit--painted-branch-at-point 'remote)
-                (magit-name-remote-branch (oref it value))))))
-
-(defun magit-commit-at-point ()
-  (or (magit-section-value-if 'commit)
-      (magit-thing-at-point 'git-revision t)
-      (and-let* ((chunk (and (bound-and-true-p magit-blame-mode)
-                             (fboundp 'magit-current-blame-chunk)
-                             (magit-current-blame-chunk))))
-        (oref chunk orig-rev))
-      (and (derived-mode-p 'magit-stash-mode
-                           'magit-merge-preview-mode
-                           'magit-revision-mode)
-           magit-buffer-revision)))
-
-(defun magit-branch-or-commit-at-point ()
-  (or (magit-section-case
-        (branch (magit-ref-maybe-qualify (oref it value)))
-        (commit (or (magit--painted-branch-at-point)
-                    (let ((rev (oref it value)))
-                      (or (magit-name-branch rev) rev))))
-        (tag (magit-ref-maybe-qualify (oref it value) "tags/"))
-        (pullreq (or (and (fboundp 'forge--pullreq-branch)
-                          (magit-branch-p
-                           (forge--pullreq-branch (oref it value))))
-                     (magit-ref-p (format "refs/pullreqs/%s"
-                                          (oref (oref it value) number)))))
-        ((unpulled unpushed)
-         (magit-ref-abbrev
-          (replace-regexp-in-string "\\.\\.\\.?" "" (oref it value)))))
-      (magit-thing-at-point 'git-revision t)
-      (and-let* ((chunk (and (bound-and-true-p magit-blame-mode)
-                             (fboundp 'magit-current-blame-chunk)
-                             (magit-current-blame-chunk))))
-        (oref chunk orig-rev))
-      (and magit-buffer-file-name
-           magit-buffer-refname)
-      (and (derived-mode-p 'magit-stash-mode
-                           'magit-merge-preview-mode
-                           'magit-revision-mode)
-           magit-buffer-revision)))
-
-(defun magit-tag-at-point ()
-  (magit-section-case
-    (tag    (oref it value))
-    (commit (magit-name-tag (oref it value)))))
-
-(defun magit-stash-at-point ()
-  (magit-section-value-if 'stash))
-
-(defun magit-remote-at-point ()
-  (magit-section-case
-    (remote (oref it value))
-    ([branch remote] (magit-section-parent-value it))))
-
-(defun magit-module-at-point (&optional predicate)
-  (when (magit-section-match 'module)
-    (let ((module (oref (magit-current-section) value)))
-      (and (or (not predicate)
-               (funcall predicate module))
-           module))))
-
-(defun magit-get-current-branch ()
-  "Return the refname of the currently checked out branch.
-Return nil if no branch is currently checked out."
-  (magit-git-string "symbolic-ref" "--short" "HEAD"))
-
-(defvar magit-get-previous-branch-timeout 0.5
-  "Maximum time to spend in `magit-get-previous-branch'.
-Given as a number of seconds.")
-
-(defun magit-get-previous-branch ()
-  "Return the refname of the previously checked out branch.
-Return nil if no branch can be found in the `HEAD' reflog
-which is different from the current branch and still exists.
-The amount of time spent searching is limited by
-`magit-get-previous-branch-timeout'."
-  (let ((t0 (float-time))
-        (current (magit-get-current-branch))
-        (i 1) prev)
-    (while (if (> (- (float-time) t0) magit-get-previous-branch-timeout)
-               (setq prev nil) ;; Timed out.
-             (and (setq prev (magit-rev-verify (format "@{-%d}" i)))
-                  (or (not (setq prev (magit-rev-branch prev)))
-                      (equal prev current))))
-      (cl-incf i))
-    prev))
-
-(defun magit--set-default-branch (newname oldname)
-  (let ((remote (or (magit-primary-remote)
-                    (user-error "Cannot determine primary remote")))
-        (branches (mapcar (lambda (line) (split-string line "\t"))
-                          (magit-git-lines
-                           "for-each-ref" "refs/heads"
-                           "--format=%(refname:short)\t%(upstream:short)"))))
-    (when-let ((old (assoc oldname branches))
-               ((not (assoc newname branches))))
-      (magit-call-git "branch" "-m" oldname newname)
-      (setcar old newname))
-    (let ((new (if (magit-branch-p newname)
-                   newname
-                 (concat remote "/" newname))))
-      (pcase-dolist (`(,branch ,upstream) branches)
-        (cond
-         ((equal upstream oldname)
-          (magit-set-upstream-branch branch new))
-         ((equal upstream (concat remote "/" oldname))
-          (magit-set-upstream-branch branch (concat remote "/" newname))))))))
-
-(defun magit--get-default-branch (&optional update)
-  (let ((remote (magit-primary-remote)))
-    (when update
-      (if (not remote)
-          (user-error "Cannot determine primary remote")
-        (message "Determining default branch...")
-        (magit-git "fetch" "--prune")
-        (magit-git "remote" "set-head" "--auto" remote)
-        (message "Determining default branch...done")))
-    (let ((branch (magit-git-string "symbolic-ref" "--short"
-                                    (format "refs/remotes/%s/HEAD" remote))))
-      (when (and update (not branch))
-        (error "Cannot determine new default branch"))
-      (list remote (and branch (cdr (magit-split-branch-name branch)))))))
-
-(defun magit-set-upstream-branch (branch upstream)
-  "Set UPSTREAM as the upstream of BRANCH.
-If UPSTREAM is nil, then unset BRANCH's upstream.
-Otherwise UPSTREAM has to be an existing branch."
-  (if upstream
-      (magit-call-git "branch" "--set-upstream-to" upstream branch)
-    (magit-call-git "branch" "--unset-upstream" branch)))
-
-(defun magit-get-upstream-ref (&optional branch)
-  "Return the upstream branch of BRANCH as a fully qualified ref.
-It BRANCH is nil, then return the upstream of the current branch,
-if any, nil otherwise.  If the upstream is not configured, the
-configured remote is an url, or the named branch does not exist,
-then return nil.  I.e.,  return an existing local or
-remote-tracking branch ref."
-  (and-let* ((branch (or branch (magit-get-current-branch))))
-    (magit-ref-fullname (concat branch "@{upstream}"))))
-
-(defun magit-get-upstream-branch (&optional branch)
-  "Return the name of the upstream branch of BRANCH.
-It BRANCH is nil, then return the upstream of the current branch
-if any, nil otherwise.  If the upstream is not configured, the
-configured remote is an url, or the named branch does not exist,
-then return nil.  I.e., return the name of an existing local or
-remote-tracking branch.  The returned string is colorized
-according to the branch type."
-  (magit--with-refresh-cache
-      (list default-directory 'magit-get-upstream-branch branch)
-    (and-let* ((branch (or branch (magit-get-current-branch)))
-               (upstream (magit-ref-abbrev (concat branch "@{upstream}"))))
-      (magit--propertize-face
-       upstream (if (equal (magit-get "branch" branch "remote") ".")
-                    'magit-branch-local
-                  'magit-branch-remote)))))
-
-(defun magit-get-indirect-upstream-branch (branch &optional force)
-  (let ((remote (magit-get "branch" branch "remote")))
-    (and remote (not (equal remote "."))
-         ;; The user has opted in...
-         (or force
-             (--some (if (magit-git-success "check-ref-format" "--branch" it)
-                         (equal it branch)
-                       (string-match-p it branch))
-                     magit-branch-prefer-remote-upstream))
-         ;; and local BRANCH tracks a remote branch...
-         (let ((upstream (magit-get-upstream-branch branch)))
-           ;; whose upstream...
-           (and upstream
-                ;; has the same name as BRANCH...
-                (equal (substring upstream (1+ (length remote))) branch)
-                ;; and can be fast-forwarded to BRANCH.
-                (magit-rev-ancestor-p upstream branch)
-                upstream)))))
-
-(defun magit-get-upstream-remote (&optional branch allow-unnamed)
-  (and-let* ((branch (or branch (magit-get-current-branch)))
-             (remote (magit-get "branch" branch "remote")))
-    (and (not (equal remote "."))
-         (cond ((member remote (magit-list-remotes))
-                (magit--propertize-face remote 'magit-branch-remote))
-               ((and allow-unnamed
-                     (string-match-p "\\(\\`.\\{0,2\\}/\\|[:@]\\)" remote))
-                (magit--propertize-face remote 'bold))))))
-
-(defun magit-get-unnamed-upstream (&optional branch)
-  (and-let* ((branch (or branch (magit-get-current-branch)))
-             (remote (magit-get "branch" branch "remote"))
-             (merge  (magit-get "branch" branch "merge")))
-    (and (magit--unnamed-upstream-p remote merge)
-         (list (magit--propertize-face remote 'bold)
-               (magit--propertize-face merge 'magit-branch-remote)))))
-
-(defun magit--unnamed-upstream-p (remote merge)
-  (and remote (string-match-p "\\(\\`\\.\\{0,2\\}/\\|[:@]\\)" remote)
-       merge  (string-prefix-p "refs/" merge)))
-
-(defun magit--valid-upstream-p (remote merge)
-  (and (or (equal remote ".")
-           (member remote (magit-list-remotes)))
-       (string-prefix-p "refs/" merge)))
-
-(defun magit-get-current-remote (&optional allow-unnamed)
-  (or (magit-get-upstream-remote nil allow-unnamed)
-      (and-let* ((remotes (magit-list-remotes))
-                 (remote (if (length= remotes 1)
-                             (car remotes)
-                           (magit-primary-remote))))
-        (magit--propertize-face remote 'magit-branch-remote))))
-
-(defun magit-get-push-remote (&optional branch)
-  (and-let* ((remote
-              (or (and (or branch (setq branch (magit-get-current-branch)))
-                       (magit-get "branch" branch "pushRemote"))
-                  (magit-get "remote.pushDefault"))))
-    (magit--propertize-face remote 'magit-branch-remote)))
-
-(defun magit-get-push-branch (&optional branch verify)
-  (magit--with-refresh-cache
-      (list default-directory 'magit-get-push-branch branch verify)
-    (and-let* ((branch (or branch (setq branch (magit-get-current-branch))))
-               (remote (magit-get-push-remote branch))
-               (target (concat remote "/" branch)))
-      (and (or (not verify)
-               (magit-rev-verify target))
-           (magit--propertize-face target 'magit-branch-remote)))))
-
-(defun magit-get-@{push}-branch (&optional branch)
-  (let ((ref (magit-rev-parse "--symbolic-full-name"
-                              (concat branch "@{push}"))))
-    (and ref
-         (string-prefix-p "refs/remotes/" ref)
-         (substring ref 13))))
-
-(defun magit-get-remote (&optional branch)
-  (and (or branch (setq branch (magit-get-current-branch)))
-       (let ((remote (magit-get "branch" branch "remote")))
-         (and (not (equal remote "."))
-              remote))))
-
-(defun magit-get-some-remote (&optional branch)
-  (or (magit-get-remote branch)
-      (and-let* ((main (magit-main-branch)))
-        (magit-get-remote main))
-      (magit-primary-remote)
-      (car (magit-list-remotes))))
-
-(defvar magit-primary-remote-names
-  '("upstream" "origin"))
-
-(defun magit-primary-remote ()
-  "Return the primary remote.
-
-The primary remote is the remote that tracks the repository that
-other repositories are forked from.  It often is called \"origin\"
-but because many people name their own fork \"origin\", using that
-term would be ambiguous.  Likewise we avoid the term \"upstream\"
-because a branch's @{upstream} branch may be a local branch or a
-branch from a remote other than the primary remote.
-
-If a remote exists whose name matches `magit.primaryRemote', then
-that is considered the primary remote.  If no remote by that name
-exists, then remotes in `magit-primary-remote-names' are tried in
-order and the first remote from that list that actually exists in
-the current repository is considered its primary remote."
-  (let ((remotes (magit-list-remotes)))
-    (seq-find (lambda (name)
-                (member name remotes))
-              (delete-dups
-               (delq nil
-                     (cons (magit-get "magit.primaryRemote")
-                           magit-primary-remote-names))))))
-
-(defun magit-branch-merged-p (branch &optional target)
-  "Return non-nil if BRANCH is merged into its upstream and TARGET.
-
-TARGET defaults to the current branch.  If `HEAD' is detached and
-TARGET is nil, then always return nil.  As a special case, if
-TARGET is t, then return non-nil if BRANCH is merged into any one
-of the other local branches.
-
-If, and only if, BRANCH has an upstream, then only return non-nil
-if BRANCH is merged into both TARGET (as described above) as well
-as into its upstream."
-  (and (if-let ((upstream (and (magit-branch-p branch)
-                               (magit-get-upstream-branch branch))))
-           (magit-rev-ancestor-p branch upstream)
-         t)
-       (if (eq target t)
-           (delete (magit-name-local-branch branch)
-                   (magit-list-containing-branches branch))
-         (and-let* ((target (or target (magit-get-current-branch))))
-           (magit-rev-ancestor-p branch target)))))
-
-(defun magit-get-tracked (refname)
-  "Return the remote branch tracked by the remote-tracking branch REFNAME.
-The returned value has the form (REMOTE . REF), where REMOTE is
-the name of a remote and REF is the ref local to the remote."
-  (and-let* ((ref (magit-ref-fullname refname)))
-    (save-match-data
-      (seq-some (lambda (line)
-                  (and (string-match "\
-\\`remote\\.\\([^.]+\\)\\.fetch=\\+?\\([^:]+\\):\\(.+\\)" line)
-                       (let ((rmt (match-string 1 line))
-                             (src (match-string 2 line))
-                             (dst (match-string 3 line)))
-                         (and (string-match (format "\\`%s\\'"
-                                                    (string-replace
-                                                     "*" "\\(.+\\)" dst))
-                                            ref)
-                              (cons rmt (string-replace
-                                         "*" (match-string 1 ref) src))))))
-                (magit-git-lines "config" "--local" "--list")))))
-
-(defun magit-split-branch-name (branch)
-  (cond ((member branch (magit-list-local-branch-names))
-         (cons "." branch))
-        ((string-match "/" branch)
-         (or (seq-some (lambda (remote)
-                         (and (string-match
-                               (format "\\`\\(%s\\)/\\(.+\\)\\'" remote)
-                               branch)
-                              (cons (match-string 1 branch)
-                                    (match-string 2 branch))))
-                       (magit-list-remotes))
-             (error "Invalid branch name %s" branch)))))
-
-(defun magit-get-current-tag (&optional rev with-distance)
-  "Return the closest tag reachable from REV.
-
-If optional REV is nil, then default to `HEAD'.
-If optional WITH-DISTANCE is non-nil then return (TAG COMMITS),
-if it is `dirty' return (TAG COMMIT DIRTY). COMMITS is the number
-of commits in `HEAD' but not in TAG and DIRTY is t if there are
-uncommitted changes, nil otherwise."
-  (and-let* ((str (magit-git-str "describe" "--long" "--tags"
-                                 (and (eq with-distance 'dirty) "--dirty")
-                                 rev)))
-    (save-match-data
-      (string-match
-       "\\(.+\\)-\\(?:0[0-9]*\\|\\([0-9]+\\)\\)-g[0-9a-z]+\\(-dirty\\)?$" str)
-      (if with-distance
-          `(,(match-string 1 str)
-            ,(string-to-number (or (match-string 2 str) "0"))
-            ,@(and (match-string 3 str) (list t)))
-        (match-string 1 str)))))
-
-(defun magit-get-next-tag (&optional rev with-distance)
-  "Return the closest tag from which REV is reachable.
-
-If optional REV is nil, then default to `HEAD'.
-If no such tag can be found or if the distance is 0 (in which
-case it is the current tag, not the next), return nil instead.
-If optional WITH-DISTANCE is non-nil, then return (TAG COMMITS)
-where COMMITS is the number of commits in TAG but not in REV."
-  (and-let* ((str (magit-git-str "describe" "--contains" (or rev "HEAD"))))
-    (save-match-data
-      (when (string-match "^[^^~]+" str)
-        (setq str (match-string 0 str))
-        (unless (equal str (magit-get-current-tag rev))
-          (if with-distance
-              (list str (car (magit-rev-diff-count str rev)))
-            str))))))
-
-(defun magit-list-refs (&optional namespaces format sortby)
-  "Return list of references, excluding symbolic references.
-
-When NAMESPACES is non-nil, list refs from these namespaces
-rather than those from `magit-list-refs-namespaces'.
-
-FORMAT is passed to the `--format' flag of `git for-each-ref'
-and defaults to \"%(refname)\".
-
-SORTBY is a key or list of keys to pass to the `--sort' flag of
-`git for-each-ref'.  When nil, use `magit-list-refs-sortby'"
-  (unless format
-    (setq format "%(refname)"))
-  (seq-keep (lambda (line)
-              (pcase-let* ((`(,symrefp ,value)
-                            (split-string line ""))
-                           (symrefp (not (equal symrefp ""))))
-                (and (not symrefp) value)))
-            (magit-git-lines "for-each-ref"
-                             (concat "--format=%(symref)" format)
-                             (--map (concat "--sort=" it)
-                                    (pcase (or sortby magit-list-refs-sortby)
-                                      ((and val (pred stringp)) (list val))
-                                      ((and val (pred listp)) val)))
-                             (or namespaces magit-list-refs-namespaces))))
-
-(defun magit-list-branches ()
-  (magit-list-refs (list "refs/heads" "refs/remotes")))
-
-(defun magit-list-local-branches ()
-  (magit-list-refs "refs/heads"))
-
-(defun magit-list-remote-branches (&optional remote)
-  (magit-list-refs (concat "refs/remotes/" remote)))
-
-(defun magit-list-related-branches (relation &optional commit &rest args)
-  (--remove (string-match-p "\\(\\`(HEAD\\|HEAD -> \\)" it)
-            (--map (substring it 2)
-                   (magit-git-lines "branch" args relation commit))))
-
-(defun magit-list-containing-branches (&optional commit &rest args)
-  (magit-list-related-branches "--contains" commit args))
-
-(defun magit-list-publishing-branches (&optional commit)
-  (--filter (magit-rev-ancestor-p (or commit "HEAD") it)
-            magit-published-branches))
-
-(defun magit-list-merged-branches (&optional commit &rest args)
-  (magit-list-related-branches "--merged" commit args))
-
-(defun magit-list-unmerged-branches (&optional commit &rest args)
-  (magit-list-related-branches "--no-merged" commit args))
-
-(defun magit-list-unmerged-to-upstream-branches ()
-  (--filter (and-let* ((upstream (magit-get-upstream-branch it)))
-              (member it (magit-list-unmerged-branches upstream)))
-            (magit-list-local-branch-names)))
-
-(defun magit-list-branches-pointing-at (commit)
-  (let ((re (format "\\`%s refs/\\(heads\\|remotes\\)/\\(.*\\)\\'"
-                    (magit-rev-verify commit))))
-    (--keep (and (string-match re it)
-                 (let ((name (match-string 2 it)))
-                   (and (not (string-suffix-p "HEAD" name))
-                        name)))
-            (magit-git-lines "show-ref"))))
-
-(defun magit-list-refnames (&optional namespaces include-special)
-  (nconc (magit-list-refs namespaces "%(refname:short)")
-         (and include-special
-              (magit-list-special-refnames))))
-
-(defvar magit-special-refnames
-  '("HEAD" "ORIG_HEAD" "FETCH_HEAD" "MERGE_HEAD" "CHERRY_PICK_HEAD"))
-
-(defun magit-list-special-refnames ()
-  (let ((gitdir (magit-gitdir)))
-    (cl-mapcan (lambda (name)
-                 (and (file-exists-p (expand-file-name name gitdir))
-                      (list name)))
-               magit-special-refnames)))
-
-(defun magit-list-branch-names ()
-  (magit-list-refnames (list "refs/heads" "refs/remotes")))
-
-(defun magit-list-local-branch-names ()
-  (magit-list-refnames "refs/heads"))
-
-(defun magit-list-remote-branch-names (&optional remote relative)
-  (if (and remote relative)
-      (let ((regexp (format "^refs/remotes/%s/\\(.+\\)" remote)))
-        (--mapcat (when (string-match regexp it)
-                    (list (match-string 1 it)))
-                  (magit-list-remote-branches remote)))
-    (magit-list-refnames (concat "refs/remotes/" remote))))
-
-(defun magit-format-refs (format &rest args)
-  (let ((lines (magit-git-lines
-                "for-each-ref" (concat "--format=" format)
-                (or args (list "refs/heads" "refs/remotes" "refs/tags")))))
-    (if (string-search "\f" format)
-        (--map (split-string it "\f") lines)
-      lines)))
-
-(defun magit-list-remotes ()
-  (magit-git-lines "remote"))
-
-(defun magit-list-tags ()
-  (magit-git-lines "tag"))
-
-(defun magit-list-stashes (&optional format)
-  (magit-git-lines "stash" "list" (concat "--format=" (or format "%gd"))))
-
-(defun magit-list-active-notes-refs ()
-  "Return notes refs according to `core.notesRef' and `notes.displayRef'."
-  (magit-git-lines "for-each-ref" "--format=%(refname)"
-                   (or (magit-get "core.notesRef") "refs/notes/commits")
-                   (magit-get-all "notes.displayRef")))
-
-(defun magit-list-notes-refnames ()
-  (--map (substring it 6) (magit-list-refnames "refs/notes")))
-
-(defun magit-remote-list-tags (remote)
-  (--keep (and (not (string-suffix-p "^{}" it))
-               (substring it 51))
-          (magit-git-lines "ls-remote" "--tags" remote)))
-
-(defun magit-remote-list-branches (remote)
-  (--keep (and (not (string-suffix-p "^{}" it))
-               (substring it 52))
-          (magit-git-lines "ls-remote" "--heads" remote)))
-
-(defun magit-remote-list-refs (remote)
-  (--keep (and (not (string-suffix-p "^{}" it))
-               (substring it 41))
-          (magit-git-lines "ls-remote" remote)))
-
-(defun magit-remote-head (remote)
-  (and-let* ((line (cl-find-if
-                    (lambda (line)
-                      (string-match
-                       "\\`ref: refs/heads/\\([^\s\t]+\\)[\s\t]HEAD\\'" line))
-                    (magit-git-lines "ls-remote" "--symref" remote "HEAD"))))
-    (match-string 1 line)))
-
-(defun magit-list-modified-modules ()
-  (--keep (and (string-match "\\`\\+\\([^ ]+\\) \\(.+\\) (.+)\\'" it)
-               (match-string 2 it))
-          (magit-git-lines "submodule" "status")))
-
-(defun magit-list-module-paths ()
-  (magit-with-toplevel
-    (--mapcat (and (string-match "^160000 [0-9a-z]\\{40,\\} 0\t\\(.+\\)$" it)
-                   (list (match-string 1 it)))
-              (magit-git-items "ls-files" "-z" "--stage"))))
-
-(defun magit-list-module-names ()
-  (mapcar #'magit-get-submodule-name (magit-list-module-paths)))
-
-(defun magit-get-submodule-name (path)
-  "Return the name of the submodule at PATH.
-PATH has to be relative to the super-repository."
-  (if (magit-git-version>= "2.38.0")
-      ;; "git submodule--helper name" was removed,
-      ;; but might still come back in another form.
-      (substring
-       (car (split-string
-             (car (or (magit-git-items
-                       "config" "-z"
-                       "-f" (expand-file-name ".gitmodules" (magit-toplevel))
-                       "--get-regexp" "^submodule\\..*\\.path$"
-                       (concat "^" (regexp-quote (directory-file-name path)) "$"))
-                      (error "No such submodule `%s'" path)))
-             "\n"))
-       10 -5)
-    (magit-git-string "submodule--helper" "name" path)))
-
-(defun magit-list-worktrees ()
-  "Return list of the worktrees of this repository.
-
-The returned list has the form (PATH COMMIT BRANCH BARE DETACHED
-LOCKED PRUNABLE).  The last four elements are booleans, with the
-exception of LOCKED and PRUNABLE, which may also be strings.
-See git-worktree(1) manpage for the meaning of the various parts.
-
-This function corrects a situation where \"git worktree list\"
-would claim a worktree is bare, even though the working tree is
-specified using `core.worktree'."
-  (let ((remote (file-remote-p default-directory))
-        worktrees worktree)
-    (dolist (line (let ((magit-git-global-arguments
-                         ;; KLUDGE At least in Git v2.8.3 this argument
-                         ;; would trigger a segfault.
-                         (remove "--no-pager" magit-git-global-arguments)))
-                    (if (magit-git-version>= "2.36")
-                        (magit-git-items "worktree" "list" "--porcelain" "-z")
-                      (magit-git-lines "worktree" "list" "--porcelain"))))
-      (cond ((string-prefix-p "worktree" line)
-             (let ((path (substring line 9)))
-               (when remote
-                 (setq path (concat remote path)))
-               ;; If the git directory is separate from the main
-               ;; worktree, then "git worktree" returns the git
-               ;; directory instead of the worktree, which isn't
-               ;; what it is supposed to do and not what we want.
-               ;; However, if the worktree has been removed, then
-               ;; we want to return it anyway; instead of nil.
-               (setq path (or (magit-toplevel path) path))
-               (setq worktree (list path nil nil nil nil nil nil))
-               (push worktree worktrees)))
-            ((string-prefix-p "HEAD" line)
-             (setf (nth 1 worktree) (substring line 5)))
-            ((string-prefix-p "branch" line)
-             (setf (nth 2 worktree) (substring line 18)))
-            ((string-equal line "bare")
-             (let* ((default-directory (car worktree))
-                    (wt (and (not (magit-get-boolean "core.bare"))
-                             (magit-get "core.worktree"))))
-               (if (and wt (file-exists-p (expand-file-name wt)))
-                   (progn (setf (nth 0 worktree) (expand-file-name wt))
-                          (setf (nth 2 worktree) (magit-rev-parse "HEAD"))
-                          (setf (nth 3 worktree) (magit-get-current-branch)))
-                 (setf (nth 3 worktree) t))))
-            ((string-equal line "detached")
-             (setf (nth 4 worktree) t))
-            ((string-prefix-p line "locked")
-             (setf (nth 5 worktree)
-                   (if (> (length line) 6) (substring line 7) t)))
-            ((string-prefix-p line "prunable")
-             (setf (nth 6 worktree)
-                   (if (> (length line) 8) (substring line 9) t)))))
-    (nreverse worktrees)))
-
-(defun magit-symbolic-ref-p (name)
-  (magit-git-success "symbolic-ref" "--quiet" name))
-
-(defun magit-ref-p (rev)
-  (or (car (member rev (magit-list-refs "refs/")))
-      (car (member rev (magit-list-refnames "refs/")))))
-
-(defun magit-branch-p (rev)
-  (or (car (member rev (magit-list-branches)))
-      (car (member rev (magit-list-branch-names)))))
-
-(defun magit-local-branch-p (rev)
-  (or (car (member rev (magit-list-local-branches)))
-      (car (member rev (magit-list-local-branch-names)))))
-
-(defun magit-remote-branch-p (rev)
-  (or (car (member rev (magit-list-remote-branches)))
-      (car (member rev (magit-list-remote-branch-names)))))
-
-(defun magit-branch-set-face (branch)
-  (magit--propertize-face branch (if (magit-local-branch-p branch)
-                                     'magit-branch-local
-                                   'magit-branch-remote)))
-
-(defun magit-tag-p (rev)
-  (car (member rev (magit-list-tags))))
-
-(defun magit-remote-p (string)
-  (car (member string (magit-list-remotes))))
-
-(defvar magit-main-branch-names
-  '("main" "master" "trunk" "development")
-  "Branch names reserved for use by the primary branch.
-Use function `magit-main-branch' to get the name actually used in
-the current repository.")
-
-(defvar magit-long-lived-branches
-  (append magit-main-branch-names (list "maint" "next"))
-  "Branch names reserved for use by long lived branches.")
-
-(defun magit-main-branch ()
-  "Return the main branch.
-
-If a branch exists whose name matches `init.defaultBranch', then
-that is considered the main branch.  If no branch by that name
-exists, then the branch names in `magit-main-branch-names' are
-tried in order.  The first branch from that list that actually
-exists in the current repository is considered its main branch."
-  (let ((branches (magit-list-local-branch-names)))
-    (seq-find (lambda (name)
-                (member name branches))
-              (delete-dups
-               (delq nil
-                     (cons (magit-get "init.defaultBranch")
-                           magit-main-branch-names))))))
-
-(defun magit-rev-diff-count (a b &optional first-parent)
-  "Return the commits in A but not B and vice versa.
-Return a list of two integers: (A>B B>A).
-
-If `first-parent' is set, traverse only first parents."
-  (mapcar #'string-to-number
-          (split-string (magit-git-string "rev-list"
-                                          "--count" "--left-right"
-                                          (and first-parent "--first-parent")
-                                          (concat a "..." b))
-                        "\t")))
-
-(defun magit-abbrev-length ()
-  (let ((abbrev (magit-get "core.abbrev")))
-    (if (and abbrev (not (equal abbrev "auto")))
-        (string-to-number abbrev)
-      ;; Guess the length git will be using based on an example
-      ;; abbreviation.  Actually HEAD's abbreviation might be an
-      ;; outlier, so use the shorter of the abbreviations for two
-      ;; commits.  See #3034.
-      (if-let ((head (magit-rev-parse "--short" "HEAD"))
-               (head-len (length head)))
-          (min head-len
-               (if-let ((rev (magit-rev-parse "--short" "HEAD~")))
-                   (length rev)
-                 head-len))
-        ;; We're on an unborn branch, but perhaps the repository has
-        ;; other commits.  See #4123.
-        (if-let ((commits (magit-git-lines "rev-list" "-n2" "--all"
-                                           "--abbrev-commit")))
-            (apply #'min (mapcar #'length commits))
-          ;; A commit does not exist.  Fall back to the default of 7.
-          7)))))
-
-(defun magit-abbrev-arg (&optional arg)
-  (format "--%s=%d" (or arg "abbrev") (magit-abbrev-length)))
-
-(defun magit-rev-abbrev (rev)
-  (magit-rev-parse (magit-abbrev-arg "short") rev))
-
-(defun magit-commit-children (commit &optional args)
-  (mapcar #'car
-          (--filter (member commit (cdr it))
-                    (--map (split-string it " ")
-                           (magit-git-lines
-                            "log" "--format=%H %P"
-                            (or args (list "--branches" "--tags" "--remotes"))
-                            "--not" commit)))))
-
-(defun magit-commit-parents (commit)
-  (and-let* ((str (magit-git-string "rev-list" "-1" "--parents" commit)))
-    (cdr (split-string str))))
-
-(defun magit-patch-id (rev)
-  (magit--with-connection-local-variables
-    (magit--with-temp-process-buffer
-      (magit-process-file
-       shell-file-name nil '(t nil) nil shell-command-switch
-       (let ((exec (shell-quote-argument (magit-git-executable))))
-         (format "%s diff-tree -u %s | %s patch-id" exec rev exec)))
-      (car (split-string (buffer-string))))))
-
-(defun magit-rev-format (format &optional rev args)
-  ;; Prefer `git log --no-walk' to `git show --no-patch' because it
-  ;; performs better in some scenarios.
-  (let ((str (magit-git-string "log" "--no-walk"
-                               (concat "--format=" format) args
-                               (if rev (magit--rev-dereference rev) "HEAD")
-                               "--")))
-    (and (not (string-equal str ""))
-         str)))
-
-(defun magit-rev-insert-format (format &optional rev args)
-  ;; Prefer `git log --no-walk' to `git show --no-patch' because it
-  ;; performs better in some scenarios.
-  (magit-git-insert "log" "--no-walk"
-                    (concat "--format=" format) args
-                    (if rev (magit--rev-dereference rev) "HEAD")
-                    "--"))
-
-(defun magit-format-rev-summary (rev)
-  (and-let* ((str (magit-rev-format "%h %s" rev)))
-    (progn
-      (magit--put-face 0 (string-match " " str) 'magit-hash str)
-      str)))
-
-(defvar magit-ref-namespaces
-  '(("\\`HEAD\\'"                  . magit-head)
-    ("\\`refs/tags/\\(.+\\)"       . magit-tag)
-    ("\\`refs/heads/\\(.+\\)"      . magit-branch-local)
-    ("\\`refs/remotes/\\(.+\\)"    . magit-branch-remote)
-    ("\\`refs/bisect/\\(bad\\)"    . magit-bisect-bad)
-    ("\\`refs/bisect/\\(skip.*\\)" . magit-bisect-skip)
-    ("\\`refs/bisect/\\(good.*\\)" . magit-bisect-good)
-    ("\\`refs/stash$"              . magit-refname-stash)
-    ("\\`refs/wip/\\(.+\\)"        . magit-refname-wip)
-    ("\\`refs/pullreqs/\\(.+\\)"   . magit-refname-pullreq)
-    ("\\`\\(bad\\):"               . magit-bisect-bad)
-    ("\\`\\(skip\\):"              . magit-bisect-skip)
-    ("\\`\\(good\\):"              . magit-bisect-good)
-    ("\\`\\(.+\\)"                 . magit-refname))
-  "How refs are formatted for display.
-
-Each entry controls how a certain type of ref is displayed, and
-has the form (REGEXP . FACE).  REGEXP is a regular expression
-used to match full refs.  The first entry whose REGEXP matches
-the reference is used.
-
-In log and revision buffers the first regexp submatch becomes the
-\"label\" that represents the ref and is propertized with FONT.
-In refs buffers the displayed text is controlled by other means
-and this option only controls what face is used.")
-
-(defun magit-format-ref-labels (string)
-  (save-match-data
-    (let ((regexp "\\(, \\|tag: \\|HEAD -> \\)")
-          names)
-      (if (and (derived-mode-p 'magit-log-mode)
-               (member "--simplify-by-decoration" magit-buffer-log-args))
-          (let ((branches (magit-list-local-branch-names))
-                (re (format "^%s/.+" (regexp-opt (magit-list-remotes)))))
-            (setq names
-                  (--map (cond ((string-equal it "HEAD")     it)
-                               ((string-prefix-p "refs/" it) it)
-                               ((member it branches) (concat "refs/heads/" it))
-                               ((string-match re it) (concat "refs/remotes/" it))
-                               (t                    (concat "refs/" it)))
-                         (split-string
-                          (string-replace "tag: " "refs/tags/" string)
-                          regexp t))))
-        (setq names (split-string string regexp t)))
-      (let (state head upstream tags branches remotes other combined)
-        (dolist (ref names)
-          (let* ((face (cdr (--first (string-match (car it) ref)
-                                     magit-ref-namespaces)))
-                 (name (magit--propertize-face
-                        (or (match-string 1 ref) ref) face)))
-            (cl-case face
-              ((magit-bisect-bad magit-bisect-skip magit-bisect-good)
-               (setq state name))
-              (magit-head
-               (setq head (magit--propertize-face "@" 'magit-head)))
-              (magit-tag            (push name tags))
-              (magit-branch-local   (push name branches))
-              (magit-branch-remote  (push name remotes))
-              (t                    (push name other)))))
-        (setq remotes
-              (seq-keep
-               (lambda (name)
-                 (if (string-match "\\`\\([^/]*\\)/\\(.*\\)\\'" name)
-                     (let ((r (match-string 1 name))
-                           (b (match-string 2 name)))
-                       (and (not (equal b "HEAD"))
-                            (if (equal (concat "refs/remotes/" name)
-                                       (magit-git-string
-                                        "symbolic-ref"
-                                        (format "refs/remotes/%s/HEAD" r)))
-                                (magit--propertize-face
-                                 name 'magit-branch-remote-head)
-                              name)))
-                   name))
-               remotes))
-        (let* ((current (magit-get-current-branch))
-               (target  (magit-get-upstream-branch current)))
-          (dolist (name branches)
-            (let ((push (car (member (magit-get-push-branch name) remotes))))
-              (when push
-                (setq remotes (delete push remotes))
-                (string-match "^[^/]*/" push)
-                (setq push (substring push 0 (match-end 0))))
-              (cond
-               ((equal name current)
-                (setq head
-                      (concat push
-                              (magit--propertize-face
-                               name 'magit-branch-current))))
-               ((equal name target)
-                (setq upstream
-                      (concat push
-                              (magit--propertize-face
-                               name '(magit-branch-upstream
-                                      magit-branch-local)))))
-               (t
-                (push (concat push name) combined)))))
-          (when (and target (not upstream))
-            (if (member target remotes)
-                (progn
-                  (magit--add-face-text-property
-                   0 (length target) 'magit-branch-upstream nil target)
-                  (setq upstream target)
-                  (setq remotes  (delete target remotes)))
-              (when-let ((target (car (member target combined))))
-                (magit--add-face-text-property
-                 0 (length target) 'magit-branch-upstream nil target)
-                (setq upstream target)
-                (setq combined (delete target combined))))))
-        (string-join (flatten-tree `(,state
-                                     ,head
-                                     ,upstream
-                                     ,@(nreverse tags)
-                                     ,@(nreverse combined)
-                                     ,@(nreverse remotes)
-                                     ,@other))
-                     " ")))))
-
-(defun magit-object-type (object)
-  (magit-git-string "cat-file" "-t" object))
-
-(defmacro magit-with-blob (commit file &rest body)
-  (declare (indent 2)
-           (debug (form form body)))
-  `(magit--with-temp-process-buffer
-     (let ((buffer-file-name ,file))
-       (save-excursion
-         (magit-git-insert "cat-file" "-p"
-                           (concat ,commit ":" buffer-file-name)))
-       (decode-coding-inserted-region
-        (point-min) (point-max) buffer-file-name t nil nil t)
-       ,@body)))
-
-(defmacro magit-with-temp-index (tree arg &rest body)
-  (declare (indent 2) (debug (form form body)))
-  (let ((file (cl-gensym "file")))
-    `(let ((magit--refresh-cache nil)
-           (,file (magit-convert-filename-for-git
-                   (make-temp-name
-                    (expand-file-name "index.magit." (magit-gitdir))))))
-       (unwind-protect
-           (magit-with-toplevel
-             (when-let* ((tree ,tree)
-                         ((not (magit-git-success
-                                "read-tree" ,arg tree
-                                (concat "--index-output=" ,file)))))
-               (error "Cannot read tree %s" tree))
-             (with-environment-variables (("GIT_INDEX_FILE" ,file))
-               ,@body))
-         (ignore-errors
-           (delete-file (concat (file-remote-p default-directory) ,file)))))))
-
-(defun magit-commit-tree (message &optional tree &rest parents)
-  (magit-git-string "commit-tree" "--no-gpg-sign" "-m" message
-                    (--mapcat (list "-p" it) (delq nil parents))
-                    (or tree
-                        (magit-git-string "write-tree")
-                        (error "Cannot write tree"))))
-
-(defun magit-commit-worktree (message &optional arg &rest other-parents)
-  (magit-with-temp-index "HEAD" arg
-    (and (magit-update-files (magit-unstaged-files))
-         (apply #'magit-commit-tree message nil "HEAD" other-parents))))
-
-(defun magit-update-files (files)
-  (magit-git-success "update-index" "--add" "--remove" "--" files))
-
-(defun magit-update-ref (ref message rev &optional stashish)
-  (let ((magit--refresh-cache nil))
-    (or (if (magit-git-version>= "2.6.0")
-            (zerop (magit-call-git "update-ref" "--create-reflog"
-                                   "-m" message ref rev
-                                   (or (magit-rev-verify ref) "")))
-          ;; `--create-reflog' didn't exist before v2.6.0
-          (let ((oldrev  (magit-rev-verify ref))
-                (logfile (expand-file-name (concat "logs/" ref)
-                                           (magit-gitdir))))
-            (unless (file-exists-p logfile)
-              (when oldrev
-                (magit-git-success "update-ref" "-d" ref oldrev))
-              (make-directory (file-name-directory logfile) t)
-              (with-temp-file logfile)
-              (when (and oldrev (not stashish))
-                (magit-git-success "update-ref" "-m" "enable reflog"
-                                   ref oldrev ""))))
-          (magit-git-success "update-ref" "-m" message ref rev
-                             (or (magit-rev-verify ref) "")))
-        (error "Cannot update %s with %s" ref rev))))
-
-(defconst magit-range-re
-  (concat "\\`\\([^ \t]*[^.]\\)?"       ; revA
-          "\\(\\.\\.\\.?\\)"            ; range marker
-          "\\([^.][^ \t]*\\)?\\'"))     ; revB
-
-(defun magit-split-range (range)
-  (pcase-let ((`(,beg ,end ,sep) (magit--split-range-raw range)))
-    (and sep
-         (let ((beg (or beg "HEAD"))
-               (end (or end "HEAD")))
-           (if (string-equal (match-string 2 range) "...")
-               (and-let* ((base (magit-git-string "merge-base" beg end)))
-                 (cons base end))
-             (cons beg end))))))
-
-(defun magit--split-range-raw (range)
-  (and (string-match magit-range-re range)
-       (let ((beg (match-string 1 range))
-             (end (match-string 3 range)))
-         (and (or beg end)
-              (list beg end (match-string 2 range))))))
-
-(defun magit-hash-range (range)
-  (if (string-match magit-range-re range)
-      (let ((beg (match-string 1 range))
-            (end (match-string 3 range)))
-        (and (or beg end)
-             (let ((beg-hash (and beg (magit-rev-hash (match-string 1 range))))
-                   (end-hash (and end (magit-rev-hash (match-string 3 range)))))
-               (and (or (not beg) beg-hash)
-                    (or (not end) end-hash)
-                    (concat beg-hash (match-string 2 range) end-hash)))))
-    (magit-rev-hash range)))
-
-(defvar magit-revision-faces
-  '(magit-hash
-    magit-tag
-    magit-branch-remote
-    magit-branch-remote-head
-    magit-branch-local
-    magit-branch-current
-    magit-branch-upstream
-    magit-branch-warning
-    magit-head
-    magit-refname
-    magit-refname-stash
-    magit-refname-wip
-    magit-refname-pullreq))
-
-(put 'git-revision 'thing-at-point #'magit-thingatpt--git-revision)
-(defun magit-thingatpt--git-revision (&optional disallow)
-  ;; Support hashes and references.
-  (and-let* ((bounds
-              (let ((c (concat "\s\n\t~^:?*[\\" disallow)))
-                (cl-letf
-                    (((get 'git-revision 'beginning-op)
-                      (lambda ()
-                        (if (re-search-backward (format "[%s]" c) nil t)
-                            (forward-char)
-                          (goto-char (point-min)))))
-                     ((get 'git-revision 'end-op)
-                      (lambda ()
-                        (re-search-forward (format "\\=[^%s]*" c) nil t))))
-                  (bounds-of-thing-at-point 'git-revision))))
-             (string (buffer-substring-no-properties (car bounds) (cdr bounds)))
-             ;; References are allowed to contain most parentheses and
-             ;; most punctuation, but if those characters appear at the
-             ;; edges of a possible reference in arbitrary text, then
-             ;; they are much more likely to be intended as just that:
-             ;; punctuation and delimiters.
-             (string (thread-first string
-                       (string-trim-left  "[(</]")
-                       (string-trim-right "[])>/.,;!]"))))
-    (let (disallow)
-      (when (or (string-match-p "\\.\\." string)
-                (string-match-p "/\\." string))
-        (setq disallow (concat disallow ".")))
-      (when (string-match-p "@{" string)
-        (setq disallow (concat disallow "@{")))
-      (if disallow
-          ;; These additional restrictions overcompensate,
-          ;; but that only matters in rare cases.
-          (magit-thingatpt--git-revision disallow)
-        (and (not (equal string "@"))
-             (or (and (>= (length string) 7)
-                      (string-match-p "[a-z]" string)
-                      (magit-commit-p string))
-                 (and (magit-ref-p string)
-                      (let ((face (get-text-property (point) 'face)))
-                        (or (not face)
-                            (member face magit-revision-faces)))))
-             string)))))
-
-(put 'git-revision-range 'thing-at-point #'magit-thingatpt--git-revision-range)
-(defun magit-thingatpt--git-revision-range ()
-  ;; Support hashes but no references.
-  (and-let* ((bounds
-              (cl-letf (((get 'git-revision 'beginning-op)
-                         (lambda ()
-                           (if (re-search-backward "[^a-z0-9.]" nil t)
-                               (forward-char)
-                             (goto-char (point-min)))))
-                        ((get 'git-revision 'end-op)
-                         (lambda ()
-                           (and (re-search-forward "[^a-z0-9.]" nil t)
-                                (backward-char)))))
-                (bounds-of-thing-at-point 'git-revision)))
-             (range (buffer-substring-no-properties (car bounds) (cdr bounds))))
-    ;; Validate but return as-is.
-    (and (magit-hash-range range) range)))
-
-;;; Completion
-
-(defvar magit-revision-history nil)
-
-(defun magit--minibuf-default-add-commit ()
-  (let ((fn minibuffer-default-add-function))
-    (setq-local
-     minibuffer-default-add-function
-     (lambda ()
-       (let ((rest (and (functionp fn) (funcall fn))))
-         (if-let ((commit (with-selected-window (minibuffer-selected-window)
-                            (or (magit-thing-at-point 'git-revision-range t)
-                                (magit-commit-at-point)))))
-             (let ((rest (cons commit (delete commit rest)))
-                   (def minibuffer-default))
-               (if (listp def)
-                   (append def rest)
-                 (cons def (delete def rest))))
-           rest))))))
-
-(defun magit-read-branch (prompt &optional secondary-default)
-  (magit-completing-read prompt (magit-list-branch-names)
-                         nil t nil 'magit-revision-history
-                         (or (magit-branch-at-point)
-                             secondary-default
-                             (magit-get-current-branch))))
-
-(defun magit-read-branch-or-commit (prompt &optional secondary-default exclude)
-  (let ((current (magit-get-current-branch))
-        (branch-at-point (magit-branch-at-point))
-        (commit-at-point (magit-commit-at-point))
-        (choices (delete exclude (magit-list-refnames nil t))))
-    (when (equal current exclude)
-      (setq current nil))
-    (when (equal branch-at-point exclude)
-      (setq branch-at-point nil))
-    (when (and commit-at-point (not branch-at-point))
-      (setq choices (cons commit-at-point choices)))
-    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
-      (or (magit-completing-read
-           prompt choices nil nil nil 'magit-revision-history
-           (or branch-at-point commit-at-point secondary-default current))
-          (user-error "Nothing selected")))))
-
-(defun magit-read-range-or-commit (prompt &optional secondary-default)
-  (magit-read-range
-   prompt
-   (or (and-let* ((revs (magit-region-values '(commit branch) t)))
-         (progn
-           (deactivate-mark)
-           (concat (car (last revs)) ".." (car revs))))
-       (magit-branch-or-commit-at-point)
-       secondary-default
-       (magit-get-current-branch))))
-
-(defun magit-read-range (prompt &optional default)
-  (minibuffer-with-setup-hook
-      (lambda ()
-        (magit--minibuf-default-add-commit)
-        (setq-local crm-separator "\\.\\.\\.?"))
-    (magit-completing-read-multiple
-     (concat prompt ": ")
-     (magit-list-refnames)
-     nil nil nil 'magit-revision-history default nil t)))
-
-(defun magit-read-remote-branch
-    (prompt &optional remote default local-branch require-match)
-  (let ((choice (magit-completing-read
-                 prompt
-                 (cl-union (and local-branch
-                                (if remote
-                                    (list local-branch)
-                                  (--map (concat it "/" local-branch)
-                                         (magit-list-remotes))))
-                           (magit-list-remote-branch-names remote t)
-                           :test #'equal)
-                 nil require-match nil 'magit-revision-history default)))
-    (if (or remote (string-match "\\`\\([^/]+\\)/\\(.+\\)" choice))
-        choice
-      (user-error "`%s' doesn't have the form REMOTE/BRANCH" choice))))
-
-(defun magit-read-refspec (prompt remote)
-  (magit-completing-read prompt
-                         (prog2 (message "Determining available refs...")
-                             (magit-remote-list-refs remote)
-                           (message "Determining available refs...done"))))
-
-(defun magit-read-local-branch (prompt &optional secondary-default)
-  (magit-completing-read prompt (magit-list-local-branch-names)
-                         nil t nil 'magit-revision-history
-                         (or (magit-local-branch-at-point)
-                             secondary-default
-                             (magit-get-current-branch))))
-
-(defun magit-read-local-branch-or-commit (prompt)
-  (let ((choices (nconc (magit-list-local-branch-names)
-                        (magit-list-special-refnames)))
-        (commit (magit-commit-at-point)))
-    (when commit
-      (push commit choices))
-    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
-      (or (magit-completing-read prompt choices
-                                 nil nil nil 'magit-revision-history
-                                 (or (magit-local-branch-at-point) commit))
-          (user-error "Nothing selected")))))
-
-(defun magit-read-local-branch-or-ref (prompt &optional secondary-default)
-  (magit-completing-read prompt (nconc (magit-list-local-branch-names)
-                                       (magit-list-refs "refs/"))
-                         nil t nil 'magit-revision-history
-                         (or (magit-local-branch-at-point)
-                             secondary-default
-                             (magit-get-current-branch))))
-
-(defun magit-read-other-branch
-    (prompt &optional exclude secondary-default no-require-match)
-  (let* ((current (magit-get-current-branch))
-         (atpoint (magit-branch-at-point))
-         (exclude (or exclude current))
-         (default (or (and (not (equal atpoint exclude)) atpoint)
-                      (and (not (equal current exclude)) current)
-                      secondary-default
-                      (magit-get-previous-branch))))
-    (magit-completing-read prompt (delete exclude (magit-list-branch-names))
-                           nil (not no-require-match)
-                           nil 'magit-revision-history default)))
-
-(defun magit-read-other-branch-or-commit
-    (prompt &optional exclude secondary-default)
-  (let* ((current (magit-get-current-branch))
-         (atpoint (magit-branch-or-commit-at-point))
-         (exclude (or exclude current))
-         (default (or (and (not (equal atpoint exclude))
-                           (not (and (not current)
-                                     (magit-rev-equal atpoint "HEAD")))
-                           atpoint)
-                      (and (not (equal current exclude)) current)
-                      secondary-default
-                      (magit-get-previous-branch))))
-    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
-      (or (magit-completing-read prompt (delete exclude (magit-list-refnames))
-                                 nil nil nil 'magit-revision-history default)
-          (user-error "Nothing selected")))))
-
-(defun magit-read-other-local-branch
-    (prompt &optional exclude secondary-default no-require-match)
-  (let* ((current (magit-get-current-branch))
-         (atpoint (magit-local-branch-at-point))
-         (exclude (or exclude current))
-         (default (or (and (not (equal atpoint exclude)) atpoint)
-                      (and (not (equal current exclude)) current)
-                      secondary-default
-                      (magit-get-previous-branch))))
-    (magit-completing-read prompt
-                           (delete exclude (magit-list-local-branch-names))
-                           nil (not no-require-match)
-                           nil 'magit-revision-history default)))
-
-(defun magit-read-branch-prefer-other (prompt)
-  (let* ((current (magit-get-current-branch))
-         (commit  (magit-commit-at-point))
-         (atrev   (and commit (magit-list-branches-pointing-at commit)))
-         (atpoint (magit--painted-branch-at-point)))
-    (magit-completing-read prompt (magit-list-branch-names)
-                           nil t nil 'magit-revision-history
-                           (or (magit-section-value-if 'branch)
-                               atpoint
-                               (and (not (cdr atrev)) (car atrev))
-                               (--first (not (equal it current)) atrev)
-                               (magit-get-previous-branch)
-                               (car atrev)))))
-
-(defun magit-read-upstream-branch (&optional branch prompt)
-  "Read the upstream for BRANCH using PROMPT.
-If optional BRANCH is nil, then read the upstream for the
-current branch, or raise an error if no branch is checked
-out.  Only existing branches can be selected."
-  (unless branch
-    (setq branch (or (magit-get-current-branch)
-                     (error "Need a branch to set its upstream"))))
-  (let ((branches (delete branch (magit-list-branch-names))))
-    (magit-completing-read
-     (or prompt (format "Change upstream of %s to" branch))
-     branches nil t nil 'magit-revision-history
-     (or (let ((r (car (member (magit-remote-branch-at-point) branches)))
-               (l (car (member (magit-local-branch-at-point) branches))))
-           (if magit-prefer-remote-upstream (or r l) (or l r)))
-         (and-let* ((main (magit-main-branch)))
-           (let ((r (car (member (concat "origin/" main) branches)))
-                 (l (car (member main branches))))
-             (if magit-prefer-remote-upstream (or r l) (or l r))))
-         (car (member (magit-get-previous-branch) branches))))))
-
-(defun magit-read-starting-point (prompt &optional branch default)
-  (or (magit-completing-read
-       (concat prompt
-               (and branch
-                    (if (bound-and-true-p ivy-mode)
-                        ;; Ivy-mode strips faces from prompt.
-                        (format  " `%s'" branch)
-                      (concat " " (magit--propertize-face
-                                   branch 'magit-branch-local))))
-               " starting at")
-       (nconc (list "HEAD")
-              (magit-list-refnames)
-              (directory-files (magit-gitdir) nil "_HEAD\\'"))
-       nil nil nil 'magit-revision-history
-       (or default (magit--default-starting-point)))
-      (user-error "Nothing selected")))
-
-(defun magit--default-starting-point ()
-  (or (let ((r (magit-remote-branch-at-point))
-            (l (magit-local-branch-at-point)))
-        (if magit-prefer-remote-upstream (or r l) (or l r)))
-      (magit-commit-at-point)
-      (magit-stash-at-point)
-      (magit-get-current-branch)))
-
-(defun magit-read-tag (prompt &optional require-match)
-  (magit-completing-read prompt (magit-list-tags) nil
-                         require-match nil 'magit-revision-history
-                         (magit-tag-at-point)))
-
-(defun magit-read-stash (prompt)
-  (let* ((atpoint (magit-stash-at-point))
-         (default (and atpoint
-                       (concat atpoint (magit-rev-format " %s" atpoint))))
-         (choices (mapcar (lambda (c)
-                            (pcase-let ((`(,rev ,msg) (split-string c "\0")))
-                              (concat (propertize rev 'face 'magit-hash)
-                                      " " msg)))
-                          (magit-list-stashes "%gd%x00%s")))
-         (choice  (magit-completing-read prompt choices
-                                         nil t nil nil
-                                         default
-                                         (car choices))))
-    (and choice
-         (string-match "^\\([^ ]+\\) \\(.+\\)" choice)
-         (substring-no-properties (match-string 1 choice)))))
-
-(defun magit-read-remote (prompt &optional default use-only)
-  (let ((remotes (magit-list-remotes)))
-    (if (and use-only (length= remotes 1))
-        (car remotes)
-      (magit-completing-read prompt remotes
-                             nil t nil nil
-                             (or default
-                                 (magit-remote-at-point)
-                                 (magit-get-remote))))))
-
-(defun magit-read-remote-or-url (prompt &optional default)
-  (magit-completing-read prompt
-                         (nconc (magit-list-remotes)
-                                (list "https://" "git://" "git@"))
-                         nil nil nil nil
-                         (or default
-                             (magit-remote-at-point)
-                             (magit-get-remote))))
-
-(defun magit-read-module-path (prompt &optional predicate)
-  (magit-completing-read prompt (magit-list-module-paths)
-                         predicate t nil nil
-                         (magit-module-at-point predicate)))
-
-(defun magit-module-confirm (verb &optional predicate)
-  ;; Some predicates use the inefficient `magit-toplevel'
-  ;; and some repositories have thousands of submodules.
-  (let ((magit--refresh-cache (list (cons 0 0)))
-        (modules nil))
-    (if current-prefix-arg
-        (progn
-          (setq modules (magit-list-module-paths))
-          (when predicate
-            (setq modules (seq-filter predicate modules)))
-          (unless modules
-            (if predicate
-                (user-error "No modules satisfying %s available" predicate)
-              (user-error "No modules available"))))
-      (setq modules (magit-region-values 'module))
-      (when modules
-        (when predicate
-          (setq modules (seq-filter predicate modules)))
-        (unless modules
-          (user-error "No modules satisfying %s selected" predicate))))
-    (if (or (length> modules 1) current-prefix-arg)
-        (magit-confirm t nil (format "%s %%d modules" verb) nil modules)
-      (list (magit-read-module-path (format "%s module" verb) predicate)))))
-
-;;; _
-(provide 'magit-git)
-;;; magit-git.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-git.elc b/emacs/elpa/magit-20241116.1557/magit-git.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-log.elc b/emacs/elpa/magit-20241116.1557/magit-log.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-mode.el b/emacs/elpa/magit-20241116.1557/magit-mode.el
@@ -1,1479 +0,0 @@
-;;; magit-mode.el --- Create and refresh Magit buffers  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements the abstract major-mode `magit-mode' from
-;; which almost all other Magit major-modes derive.  The code in here
-;; is mostly concerned with creating and refreshing Magit buffers.
-
-;;; Code:
-
-(require 'magit-base)
-(require 'magit-git)
-
-(require 'benchmark)
-(require 'browse-url)
-(require 'format-spec)
-(require 'help-mode)
-
-(require 'transient)
-
-(defvar bookmark-make-record-function)
-(defvar magit--wip-inhibit-autosave)
-(defvar magit-wip-after-save-local-mode)
-(declare-function magit-wip-get-ref "magit-wip" ())
-(declare-function magit-wip-commit-worktree "magit-wip" (ref files msg))
-
-;;; Options
-
-(defcustom magit-mode-hook
-  '(magit-load-config-extensions)
-  "Hook run when entering a mode derived from Magit mode."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-modes
-  :type 'hook
-  :options '(magit-load-config-extensions
-             bug-reference-mode))
-
-(defcustom magit-setup-buffer-hook
-  '(magit-maybe-save-repository-buffers
-    magit-set-buffer-margin)
-  "Hook run by `magit-setup-buffer'.
-
-This is run right after displaying the buffer and right before
-generating or updating its content.  `magit-mode-hook' and other,
-more specific, `magit-mode-*-hook's on the other hand are run
-right before displaying the buffer.  Usually one of these hooks
-should be used instead of this one."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-modes
-  :type 'hook
-  :options '(magit-maybe-save-repository-buffers
-             magit-set-buffer-margin))
-
-(defcustom magit-pre-refresh-hook '(magit-maybe-save-repository-buffers)
-  "Hook run before refreshing in `magit-refresh'.
-
-This hook, or `magit-post-refresh-hook', should be used
-for functions that are not tied to a particular buffer.
-
-To run a function with a particular buffer current, use
-`magit-refresh-buffer-hook' and use `derived-mode-p'
-inside your function."
-  :package-version '(magit . "2.4.0")
-  :group 'magit-refresh
-  :type 'hook
-  :options '(magit-maybe-save-repository-buffers))
-
-(defcustom magit-post-refresh-hook
-  '(magit-auto-revert-buffers
-    magit-run-post-commit-hook
-    magit-run-post-stage-hook
-    magit-run-post-unstage-hook)
-  "Hook run after refreshing in `magit-refresh'.
-
-This hook, or `magit-pre-refresh-hook', should be used
-for functions that are not tied to a particular buffer.
-
-To run a function with a particular buffer current, use
-`magit-refresh-buffer-hook' and use `derived-mode-p'
-inside your function."
-  :package-version '(magit . "2.4.0")
-  :group 'magit-refresh
-  :type 'hook
-  :options '(magit-auto-revert-buffers
-             magit-run-post-commit-hook
-             magit-run-post-stage-hook
-             magit-run-post-unstage-hook))
-
-(defcustom magit-display-buffer-function #'magit-display-buffer-traditional
-  "The function used to display a Magit buffer.
-
-All Magit buffers (buffers whose major-modes derive from
-`magit-mode') are displayed using `magit-display-buffer',
-which in turn uses the function specified here."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-buffers
-  :type '(radio (function-item magit-display-buffer-traditional)
-                (function-item magit-display-buffer-same-window-except-diff-v1)
-                (function-item magit-display-buffer-fullframe-status-v1)
-                (function-item magit-display-buffer-fullframe-status-topleft-v1)
-                (function-item magit-display-buffer-fullcolumn-most-v1)
-                (function-item display-buffer)
-                (function :tag "Function")))
-
-(defcustom magit-pre-display-buffer-hook '(magit-save-window-configuration)
-  "Hook run by `magit-display-buffer' before displaying the buffer."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-buffers
-  :type 'hook
-  :get #'magit-hook-custom-get
-  :options '(magit-save-window-configuration))
-
-(defcustom magit-post-display-buffer-hook '(magit-maybe-set-dedicated)
-  "Hook run by `magit-display-buffer' after displaying the buffer."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-buffers
-  :type 'hook
-  :get #'magit-hook-custom-get
-  :options '(magit-maybe-set-dedicated))
-
-(defcustom magit-generate-buffer-name-function
-  #'magit-generate-buffer-name-default-function
-  "The function used to generate the name for a Magit buffer."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-buffers
-  :type '(radio (function-item magit-generate-buffer-name-default-function)
-                (function :tag "Function")))
-
-(defcustom magit-buffer-name-format "%x%M%v: %t%x"
-  "The format string used to name Magit buffers.
-
-The following %-sequences are supported:
-
-`%m' The name of the major-mode, but with the `-mode' suffix
-     removed.
-
-`%M' Like \"%m\" but abbreviate `magit-status-mode' as `magit'.
-
-`%v' The value the buffer is locked to, in parentheses, or an
-     empty string if the buffer is not locked to a value.
-
-`%V' Like \"%v\", but the string is prefixed with a space, unless
-     it is an empty string.
-
-`%t' The top-level directory of the working tree of the
-     repository, or if `magit-uniquify-buffer-names' is non-nil
-     an abbreviation of that.
-
-`%x' If `magit-uniquify-buffer-names' is nil \"*\", otherwise the
-     empty string.  Due to limitations of the `uniquify' package,
-     buffer names must end with the path.
-
-The value should always contain \"%m\" or \"%M\", \"%v\" or \"%V\", and
-\"%t\".  If `magit-uniquify-buffer-names' is non-nil, then the
-value must end with \"%t\" or \"%t%x\".  See issue #2841.
-
-This is used by `magit-generate-buffer-name-default-function'.
-If another `magit-generate-buffer-name-function' is used, then
-it may not respect this option, or on the contrary it may
-support additional %-sequences."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-buffers
-  :type 'string)
-
-(defcustom magit-uniquify-buffer-names t
-  "Whether to uniquify the names of Magit buffers."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-buffers
-  :type 'boolean)
-
-(defcustom magit-bury-buffer-function #'magit-mode-quit-window
-  "The function used to bury or kill the current Magit buffer."
-  :package-version '(magit . "3.2.0")
-  :group 'magit-buffers
-  :type '(radio (function-item quit-window)
-                (function-item magit-mode-quit-window)
-                (function-item magit-restore-window-configuration)
-                (function :tag "Function")))
-
-(defcustom magit-prefix-use-buffer-arguments 'selected
-  "Whether certain prefix commands reuse arguments active in relevant buffer.
-
-This affects the transient prefix commands `magit-diff',
-`magit-log' and `magit-show-refs'.
-
-Valid values are:
-
-`always': Always use the set of arguments that is currently
-  active in the respective buffer, provided that buffer exists
-  of course.
-`selected': Use the set of arguments from the respective
-  buffer, but only if it is displayed in a window of the current
-  frame.  This is the default.
-`current': Use the set of arguments from the respective buffer,
-  but only if it is the current buffer.
-`never': Never use the set of arguments from the respective
-  buffer.
-
-For more information see info node `(magit)Transient Arguments
-and Buffer Variables'."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-buffers
-  :group 'magit-commands
-  :group 'magit-diff
-  :group 'magit-log
-  :type '(choice
-          (const :tag "always use args from buffer" always)
-          (const :tag "use args from buffer if displayed in frame" selected)
-          (const :tag "use args from buffer if it is current" current)
-          (const :tag "never use args from buffer" never)))
-
-(defcustom magit-direct-use-buffer-arguments 'selected
-  "Whether certain commands reuse arguments active in relevant buffer.
-
-This affects certain commands such as `magit-show-commit' that
-are suffixes of the diff or log transient prefix commands, but
-only if they are invoked directly, i.e., *not* as a suffix.
-
-Valid values are:
-
-`always': Always use the set of arguments that is currently
-  active in the respective buffer, provided that buffer exists
-  of course.
-`selected': Use the set of arguments from the respective
-  buffer, but only if it is displayed in a window of the current
-  frame.  This is the default.
-`current': Use the set of arguments from the respective buffer,
-  but only if it is the current buffer.
-`never': Never use the set of arguments from the respective
-  buffer.
-
-For more information see info node `(magit)Transient Arguments
-and Buffer Variables'."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-buffers
-  :group 'magit-commands
-  :group 'magit-diff
-  :group 'magit-log
-  :type '(choice
-          (const :tag "always use args from buffer" always)
-          (const :tag "use args from buffer if displayed in frame" selected)
-          (const :tag "use args from buffer if it is current" current)
-          (const :tag "never use args from buffer" never)))
-
-(defcustom magit-region-highlight-hook '(magit-diff-update-hunk-region)
-  "Functions used to highlight the region.
-
-Each function is run with the current section as only argument
-until one of them returns non-nil.  If all functions return nil,
-then fall back to regular region highlighting."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-refresh
-  :type 'hook
-  :options '(magit-diff-update-hunk-region))
-
-(defcustom magit-create-buffer-hook nil
-  "Normal hook run while creating a new `magit-mode' buffer.
-Runs before the buffer is populated with sections.  Also see
-`magit-post-create-buffer-hook'."
-  :package-version '(magit . "2.90.0")
-  :group 'magit-refresh
-  :type 'hook)
-
-(defcustom magit-post-create-buffer-hook nil
-  "Normal hook run after creating a new `magit-mode' buffer.
-Runs after the buffer is populated with sections for the first
-time.  Also see `magit-create-buffer-hook' (which runs earlier)
-and `magit-refresh-buffer-hook' (which runs on every refresh)."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-refresh
-  :type 'hook)
-
-(defcustom magit-refresh-buffer-hook nil
-  "Normal hook for `magit-refresh-buffer' to run after refreshing."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-refresh
-  :type 'hook)
-
-(defcustom magit-refresh-status-buffer t
-  "Whether the status buffer is refreshed after running git.
-
-When this is non-nil, then the status buffer is automatically
-refreshed after running git for side-effects, in addition to the
-current Magit buffer, which is always refreshed automatically.
-
-Only set this to nil after exhausting all other options to
-improve performance."
-  :package-version '(magit . "2.4.0")
-  :group 'magit-refresh
-  :group 'magit-status
-  :type 'boolean)
-
-(defcustom magit-refresh-verbose nil
-  "Whether to revert Magit buffers verbosely."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-refresh
-  :type 'boolean)
-
-(defcustom magit-save-repository-buffers t
-  "Whether to save file-visiting buffers when appropriate.
-
-If non-nil, then all modified file-visiting buffers belonging
-to the current repository may be saved before running Magit
-commands and before creating or refreshing Magit buffers.
-If `dontask', then this is done without user intervention, for
-any other non-nil value the user has to confirm each save.
-
-The default is t to avoid surprises, but `dontask' is the
-recommended value."
-  :group 'magit-essentials
-  :group 'magit-buffers
-  :type '(choice (const :tag "Never" nil)
-                 (const :tag "Ask" t)
-                 (const :tag "Save without asking" dontask)))
-
-;;; Key Bindings
-
-(defvar-keymap magit-mode-map
-  :doc "Parent keymap for all keymaps of modes derived from `magit-mode'."
-  :parent magit-section-mode-map
-  ;; Don't function-quote but make sure all commands are autoloaded.
-  "C-<return>"  'magit-visit-thing
-  "RET"         'magit-visit-thing
-  "M-TAB"       'magit-dired-jump
-  "M-<tab>"     'magit-section-cycle-diffs
-  "SPC"         'magit-diff-show-or-scroll-up
-  "S-SPC"       'magit-diff-show-or-scroll-down
-  "DEL"         'magit-diff-show-or-scroll-down
-  "+"           'magit-diff-more-context
-  "-"           'magit-diff-less-context
-  "0"           'magit-diff-default-context
-  "a" 'magit-cherry-apply
-  "A" 'magit-cherry-pick
-  "b" 'magit-branch
-  "B" 'magit-bisect
-  "c" 'magit-commit
-  "C" 'magit-clone
-  "d" 'magit-diff
-  "D" 'magit-diff-refresh
-  "e" 'magit-ediff-dwim
-  "E" 'magit-ediff
-  "f" 'magit-fetch
-  "F" 'magit-pull
-  "g" 'magit-refresh
-  "G" 'magit-refresh-all
-  "h" 'magit-dispatch
-  "?" 'magit-dispatch
-  "H" 'magit-describe-section
-  "i" 'magit-gitignore
-  "I" 'magit-init
-  "j" 'magit-status-quick
-  "J" 'magit-display-repository-buffer
-  "k" 'magit-delete-thing
-  "K" 'magit-file-untrack
-  "l" 'magit-log
-  "L" 'magit-log-refresh
-  "m" 'magit-merge
-  "M" 'magit-remote
-  ;; "n" magit-section-forward in magit-section-mode-map
-  ;; "N" forge-dispatch, added by forge package
-  "o" 'magit-submodule
-  "O" 'magit-subtree
-  ;; "p" magit-section-backward in magit-section-mode-map
-  "P" 'magit-push
-  "q" 'magit-mode-bury-buffer
-  "Q" 'magit-git-command
-  ":" 'magit-git-command
-  "r" 'magit-rebase
-  "R" 'magit-file-rename
-  "s" 'magit-stage-file
-  "S" 'magit-stage-modified
-  "t" 'magit-tag
-  "T" 'magit-notes
-  "u" 'magit-unstage-file
-  "U" 'magit-unstage-all
-  "v" 'magit-revert-no-commit
-  "V" 'magit-revert
-  "w" 'magit-am
-  "W" 'magit-patch
-  "x" 'magit-reset-quickly
-  "X" 'magit-reset
-  "y" 'magit-show-refs
-  "Y" 'magit-cherry
-  "z" 'magit-stash
-  "Z" 'magit-worktree
-  "%" 'magit-worktree
-  "$" 'magit-process-buffer
-  "!" 'magit-run
-  ">" 'magit-sparse-checkout
-  "C-c C-c" 'magit-dispatch
-  "C-c C-e" 'magit-edit-thing
-  "C-c C-o" 'magit-browse-thing
-  "C-c C-w" 'magit-copy-thing
-  "C-w"     'magit-copy-section-value
-  "M-w"     'magit-copy-buffer-revision
-  "<remap> <back-to-indentation>" 'magit-back-to-indentation
-  "<remap> <previous-line>"       'magit-previous-line
-  "<remap> <next-line>"           'magit-next-line
-  "<remap> <evil-previous-line>"  'evil-previous-visual-line
-  "<remap> <evil-next-line>"      'evil-next-visual-line)
-
-(defun magit-delete-thing ()
-  "This is a placeholder command, which signals an error if called.
-Where applicable, other keymaps remap this command to another,
-which actually deletes the thing at point."
-  (interactive)
-  (user-error "There is no thing at point that could be deleted"))
-;; Starting with Emacs 28.1 we could use (declare (completion ignore)).
-(put 'magit-delete-thing 'completion-predicate #'ignore)
-
-(defun magit-visit-thing ()
-  "This is a placeholder command, which may signal an error if called.
-Where applicable, other keymaps remap this command to another,
-which actually visits the thing at point."
-  (interactive)
-  (if (eq transient-current-command 'magit-dispatch)
-      (call-interactively (key-binding (this-command-keys)))
-    (if-let ((url (thing-at-point 'url t)))
-        (browse-url url)
-      (user-error "There is no thing at point that could be visited"))))
-(put 'magit-visit-thing 'completion-predicate #'ignore)
-
-(defun magit-edit-thing ()
-  "This is a placeholder command, which may signal an error if called.
-Where applicable, other keymaps remap this command to another,
-which actually lets you edit the thing at point, likely in another
-buffer."
-  (interactive)
-  (if (eq transient-current-command 'magit-dispatch)
-      (call-interactively (key-binding (this-command-keys)))
-    (user-error "There is no thing at point that could be edited")))
-(put 'magit-edit-thing 'completion-predicate #'ignore)
-
-(defun magit-browse-thing ()
-  "This is a placeholder command, which may signal an error if called.
-Where applicable, other keymaps remap this command to another,
-which actually visits thing at point using `browse-url'."
-  (interactive)
-  (if-let ((url (thing-at-point 'url t)))
-      (browse-url url)
-    (user-error "There is no thing at point that could be browsed")))
-(put 'magit-browse-thing 'completion-predicate #'ignore)
-
-(defun magit-copy-thing ()
-  "This is a placeholder command, which signals an error if called.
-Where applicable, other keymaps remap this command to another,
-which actually copies some representation of the thing at point
-to the kill ring."
-  (interactive)
-  (user-error "There is no thing at point that we know how to copy"))
-(put 'magit-copy-thing 'completion-predicate #'ignore)
-
-;;;###autoload
-(defun magit-info ()
-  "Visit the Magit manual."
-  (interactive)
-  (info "magit"))
-
-(defvar bug-reference-map)
-(with-eval-after-load 'bug-reference
-  (keymap-set bug-reference-map "<remap> <magit-visit-thing>"
-              'bug-reference-push-button))
-
-(easy-menu-define magit-mode-menu magit-mode-map
-  "Magit menu"
-  ;; Similar to `magit-dispatch' but exclude:
-  ;; - commands that are available from context menus:
-  ;;   apply, reverse, discard, stage, unstage,
-  ;;   cherry-pick, revert, reset,
-  ;;   describe-section
-  ;; - commands that are available from submenus:
-  ;;   git-command, ediff-dwim
-  ;; - and: refresh-all, status-jump, status-quick.
-  '("Magit"
-    "---" "Inspect"
-    ["     Bisect..."             magit-bisect t]
-    ["     Cherries..."           magit-cherry t]
-    ["     Diff..."               magit-diff t]
-    ["     Ediff..."              magit-ediff t]
-    ["     Log..."                magit-log t]
-    ["     References..."         magit-show-refs t]
-    "---" "Manipulate"
-    ["     Commit..."             magit-commit t]
-    ["     Stash..."              magit-stash t]
-    ["     Tag..."                magit-tag t]
-    "---"
-    ["     Branch..."             magit-branch t]
-    ["     Remote..."             magit-remote t]
-    "---"
-    ["     Merge..."              magit-merge t]
-    ["     Rebase..."             magit-rebase t]
-    "---" "Transfer"
-    ["     Fetch..."              magit-fetch t]
-    ["     Pull..."               magit-pull t]
-    ["     Push..."               magit-push t]
-    "---" "Setup"
-    ["     Clone..."              magit-clone t]
-    ["     Ignore..."             magit-gitignore t]
-    ["     Init..."               magit-init t]
-    "---"
-    ("Advanced"
-     ["Run..."                    magit-run t]
-     "---"
-     ["Apply patches..."          magit-am t]
-     ["Format patches..."         magit-patch t]
-     "---"
-     ["Note..."                   magit-notes t]
-     "---"
-     ["Submodule..."              magit-submodule t]
-     ["Subtree..."                magit-subtree t]
-     ["Worktree..."               magit-worktree t])
-    "---"
-    ["Show command dispatcher..." magit-dispatch t]
-    ["Show manual"                magit-info t]
-    ["Show another buffer"        magit-display-repository-buffer t]
-    "---"
-    ("Change buffer arguments"
-     ["Diff arguments"            magit-diff-refresh t]
-     ["Log arguments"             magit-log-refresh t])
-    ["Refresh buffer"             magit-refresh t]
-    ["Bury buffer"                magit-mode-bury-buffer t]))
-
-;;; Mode
-
-(defun magit-load-config-extensions ()
-  "Load Magit extensions that are defined at the Git config layer."
-  (dolist (ext (magit-get-all "magit.extension"))
-    (let ((sym (intern (format "magit-%s-mode" ext))))
-      (when (fboundp sym)
-        (funcall sym 1)))))
-
-(define-derived-mode magit-mode magit-section-mode "Magit"
-  "Parent major mode from which Magit major modes inherit.
-
-Magit is documented in info node `(magit)'."
-  :interactive nil
-  :group 'magit
-  (magit-hack-dir-local-variables)
-  (face-remap-add-relative 'header-line 'magit-header-line)
-  (setq mode-line-process (magit-repository-local-get 'mode-line-process))
-  (setq-local revert-buffer-function #'magit-refresh-buffer)
-  (setq-local bookmark-make-record-function #'magit--make-bookmark)
-  (setq-local imenu-create-index-function #'magit--imenu-create-index)
-  (setq-local imenu-default-goto-function #'magit--imenu-goto-function)
-  (setq-local isearch-filter-predicate #'magit-section--open-temporarily))
-
-(defun magit-hack-dir-local-variables ()
-  "Like `hack-dir-local-variables-non-file-buffer' but ignore some variables."
-  (let ((ignored-local-variables
-         `(show-trailing-whitespace
-           ,@ignored-local-variables)))
-    (hack-dir-local-variables-non-file-buffer)))
-
-;;; Local Variables
-
-(defvar-local magit-buffer-arguments nil)
-(defvar-local magit-buffer-diff-type nil)
-(defvar-local magit-buffer-diff-args nil)
-(defvar-local magit-buffer-diff-files nil)
-(defvar-local magit-buffer-diff-files-suspended nil)
-(defvar-local magit-buffer-file-name nil)
-(defvar-local magit-buffer-files nil)
-(defvar-local magit-buffer-log-args nil)
-(defvar-local magit-buffer-log-files nil)
-(defvar-local magit-buffer-range nil)
-(defvar-local magit-buffer-range-hashed nil)
-(defvar-local magit-buffer-refname nil)
-(defvar-local magit-buffer-revision nil)
-(defvar-local magit-buffer-revision-hash nil)
-(defvar-local magit-buffer-revisions nil)
-(defvar-local magit-buffer-typearg nil)
-(defvar-local magit-buffer-upstream nil)
-
-;; These variables are also used in file-visiting buffers.
-;; Because the user may change the major-mode, they have
-;; to be permanent buffer-local.
-(put 'magit-buffer-file-name 'permanent-local t)
-(put 'magit-buffer-refname 'permanent-local t)
-(put 'magit-buffer-revision 'permanent-local t)
-(put 'magit-buffer-revision-hash 'permanent-local t)
-
-;; `magit-status' re-enables mode function but its refresher
-;; function does not reinstate this.
-(put 'magit-buffer-diff-files-suspended 'permanent-local t)
-
-(cl-defgeneric magit-buffer-value ()
-  "Return the value of the current buffer.
-The \"value\" identifies what is being displayed in the buffer.
-The buffer's major-mode should derive from `magit-section-mode'."
-  nil)
-
-(defvar-local magit-previous-section nil)
-(put 'magit-previous-section 'permanent-local t)
-
-;;; Setup Buffer
-
-(defmacro magit-setup-buffer (mode &optional locked &rest bindings)
-  (declare (indent 2))
-  `(magit-setup-buffer-internal
-    ,mode ,locked
-    ,(cons 'list (mapcar (pcase-lambda (`(,var ,form))
-                           `(list ',var ,form))
-                         bindings))))
-
-(defun magit-setup-buffer-internal ( mode locked bindings
-                                     &optional buffer-or-name directory)
-  (let* ((value   (and locked
-                       (with-temp-buffer
-                         (pcase-dolist (`(,var ,val) bindings)
-                           (set (make-local-variable var) val))
-                         (let ((major-mode mode))
-                           (magit-buffer-value)))))
-         (buffer  (if buffer-or-name
-                      (get-buffer-create buffer-or-name)
-                    (magit-get-mode-buffer mode value)))
-         (section (and buffer (magit-current-section)))
-         (created (not buffer)))
-    (unless buffer
-      (setq buffer (magit-generate-new-buffer mode value)))
-    (with-current-buffer buffer
-      (setq magit-previous-section section)
-      (when directory
-        (setq default-directory directory))
-      (funcall mode)
-      (magit-xref-setup #'magit-setup-buffer-internal bindings)
-      (pcase-dolist (`(,var ,val) bindings)
-        (set (make-local-variable var) val))
-      (when created
-        (run-hooks 'magit-create-buffer-hook)))
-    (magit-display-buffer buffer)
-    (with-current-buffer buffer
-      (run-hooks 'magit-setup-buffer-hook)
-      (magit-refresh-buffer)
-      (when created
-        (run-hooks 'magit-post-create-buffer-hook)))
-    buffer))
-
-;;; Display Buffer
-
-(defvar magit-display-buffer-noselect nil
-  "If non-nil, then `magit-display-buffer' doesn't call `select-window'.")
-
-(defun magit-display-buffer (buffer &optional display-function)
-  "Display BUFFER in some window and maybe select it.
-
-If optional DISPLAY-FUNCTION is non-nil, then use that to display
-the buffer.  Otherwise use `magit-display-buffer-function', which
-is the normal case.
-
-Then, unless `magit-display-buffer-noselect' is non-nil, select
-the window which was used to display the buffer.
-
-Also run the hooks `magit-pre-display-buffer-hook'
-and `magit-post-display-buffer-hook'."
-  (with-current-buffer buffer
-    (run-hooks 'magit-pre-display-buffer-hook))
-  (let ((window (funcall (or display-function magit-display-buffer-function)
-                         buffer)))
-    (unless magit-display-buffer-noselect
-      (let* ((old-frame (selected-frame))
-             (new-frame (window-frame window)))
-        (select-window window)
-        (unless (eq old-frame new-frame)
-          (select-frame-set-input-focus new-frame)))))
-  (with-current-buffer buffer
-    (run-hooks 'magit-post-display-buffer-hook)))
-
-(defun magit-display-buffer-traditional (buffer)
-  "Display BUFFER the way this has traditionally been done."
-  (display-buffer
-   buffer (if (and (derived-mode-p 'magit-mode)
-                   (not (memq (with-current-buffer buffer major-mode)
-                              '(magit-process-mode
-                                magit-revision-mode
-                                magit-diff-mode
-                                magit-stash-mode
-                                magit-status-mode))))
-              '(display-buffer-same-window)
-            nil))) ; display in another window
-
-(defun magit-display-buffer-same-window-except-diff-v1 (buffer)
-  "Display BUFFER in the selected window except for some modes.
-If a buffer's `major-mode' derives from `magit-diff-mode' or
-`magit-process-mode', display it in another window.  Display all
-other buffers in the selected window."
-  (display-buffer
-   buffer (if (with-current-buffer buffer
-                (derived-mode-p 'magit-diff-mode 'magit-process-mode))
-              '(nil (inhibit-same-window . t))
-            '(display-buffer-same-window))))
-
-(defun magit--display-buffer-fullframe (buffer alist)
-  (when-let ((window (or (display-buffer-reuse-window buffer alist)
-                         (display-buffer-same-window buffer alist)
-                         (display-buffer-pop-up-window buffer alist)
-                         (display-buffer-use-some-window buffer alist))))
-    (delete-other-windows window)
-    window))
-
-(defun magit-display-buffer-fullframe-status-v1 (buffer)
-  "Display BUFFER, filling entire frame if BUFFER is a status buffer.
-Otherwise, behave like `magit-display-buffer-traditional'."
-  (if (eq (with-current-buffer buffer major-mode)
-          'magit-status-mode)
-      (display-buffer buffer '(magit--display-buffer-fullframe))
-    (magit-display-buffer-traditional buffer)))
-
-(defun magit--display-buffer-topleft (buffer alist)
-  (or (display-buffer-reuse-window buffer alist)
-      (when-let ((window2 (display-buffer-pop-up-window buffer alist)))
-        (let ((window1 (get-buffer-window))
-              (buffer1 (current-buffer))
-              (buffer2 (window-buffer window2))
-              (w2-quit-restore (window-parameter window2 'quit-restore)))
-          (set-window-buffer window1 buffer2)
-          (set-window-buffer window2 buffer1)
-          (select-window window2)
-          ;; Swap some window state that `magit-mode-quit-window' and
-          ;; `quit-restore-window' inspect.
-          (set-window-prev-buffers window2 (cdr (window-prev-buffers window1)))
-          (set-window-prev-buffers window1 nil)
-          (set-window-parameter window2 'magit-dedicated
-                                (window-parameter window1 'magit-dedicated))
-          (set-window-parameter window1 'magit-dedicated t)
-          (set-window-parameter window1 'quit-restore
-                                (list 'window 'window
-                                      (nth 2 w2-quit-restore)
-                                      (nth 3 w2-quit-restore)))
-          (set-window-parameter window2 'quit-restore nil)
-          window1))))
-
-(defun magit-display-buffer-fullframe-status-topleft-v1 (buffer)
-  "Display BUFFER, filling entire frame if BUFFER is a status buffer.
-When BUFFER derives from `magit-diff-mode' or
-`magit-process-mode', try to display BUFFER to the top or left of
-the current buffer rather than to the bottom or right, as
-`magit-display-buffer-fullframe-status-v1' would.  Whether the
-split is made vertically or horizontally is determined by
-`split-window-preferred-function'."
-  (display-buffer
-   buffer
-   (cond ((eq (with-current-buffer buffer major-mode)
-              'magit-status-mode)
-          '(magit--display-buffer-fullframe))
-         ((with-current-buffer buffer
-            (derived-mode-p 'magit-diff-mode 'magit-process-mode))
-          '(magit--display-buffer-topleft))
-         (t
-          '(display-buffer-same-window)))))
-
-(defun magit--display-buffer-fullcolumn (buffer alist)
-  (when-let ((window (or (display-buffer-reuse-window buffer alist)
-                         (display-buffer-same-window buffer alist)
-                         (display-buffer-below-selected buffer alist))))
-    (delete-other-windows-vertically window)
-    window))
-
-(defun magit-display-buffer-fullcolumn-most-v1 (buffer)
-  "Display BUFFER using the full column except in some cases.
-For most cases where BUFFER's `major-mode' derives from
-`magit-mode', display it in the selected window and grow that
-window to the full height of the frame, deleting other windows in
-that column as necessary.  However, display BUFFER in another
-window if 1) BUFFER's mode derives from `magit-process-mode', or
-2) BUFFER's mode derives from `magit-diff-mode', provided that
-the mode of the current buffer derives from `magit-log-mode' or
-`magit-cherry-mode'."
-  (display-buffer
-   buffer
-   (cond ((and (or (bound-and-true-p git-commit-mode)
-                   (derived-mode-p 'magit-log-mode
-                                   'magit-cherry-mode
-                                   'magit-reflog-mode))
-               (with-current-buffer buffer
-                 (derived-mode-p 'magit-diff-mode)))
-          nil)
-         ((with-current-buffer buffer
-            (derived-mode-p 'magit-process-mode))
-          nil)
-         (t
-          '(magit--display-buffer-fullcolumn)))))
-
-(defun magit-maybe-set-dedicated ()
-  "Mark the selected window as dedicated if appropriate.
-
-If a new window was created to display the buffer, then remember
-that fact.  That information is used by `magit-mode-quit-window',
-to determine whether the window should be deleted when its last
-Magit buffer is buried."
-  (let ((window (get-buffer-window (current-buffer))))
-    (when (and (window-live-p window)
-               (not (window-prev-buffers window)))
-      (set-window-parameter window 'magit-dedicated t))))
-
-;;; Get Buffer
-
-(defvar-local magit--default-directory nil
-  "Value of `default-directory' when buffer is generated.
-This exists to prevent a let-bound `default-directory' from
-tricking `magit-get-mode-buffer' or `magit-mode-get-buffers'
-into thinking a buffer belongs to a repo that it doesn't.")
-(put 'magit--default-directory 'permanent-local t)
-
-(defun magit-mode-get-buffers ()
-  (let ((topdir (magit-toplevel)))
-    (--filter (with-current-buffer it
-                (and (derived-mode-p 'magit-mode)
-                     (equal magit--default-directory topdir)))
-              (buffer-list))))
-
-(defvar-local magit-buffer-locked-p nil)
-(put 'magit-buffer-locked-p 'permanent-local t)
-
-(defun magit-get-mode-buffer (mode &optional value frame)
-  "Return buffer belonging to the current repository whose major-mode is MODE.
-
-If no such buffer exists then return nil.  Multiple buffers with
-the same major-mode may exist for a repository but only one can
-exist that hasn't been locked to its value.  Return that buffer
-\(or nil if there is no such buffer) unless VALUE is non-nil, in
-which case return the buffer that has been locked to that value.
-
-If FRAME is nil or omitted, then consider all buffers.  Otherwise
-  only consider buffers that are displayed in some live window
-  on some frame.
-If `all', then consider all buffers on all frames.
-If `visible', then only consider buffers on all visible frames.
-If `selected' or t, then only consider buffers on the selected
-  frame.
-If a frame, then only consider buffers on that frame."
-  (let ((topdir (magit--toplevel-safe)))
-    (cl-flet* ((b (buffer)
-                 (with-current-buffer buffer
-                   (and (eq major-mode mode)
-                        (equal magit--default-directory topdir)
-                        (if value
-                            (and magit-buffer-locked-p
-                                 (equal (magit-buffer-value) value))
-                          (not magit-buffer-locked-p))
-                        buffer)))
-               (w (window)
-                 (b (window-buffer window)))
-               (f (frame)
-                 (seq-some #'w (window-list frame 'no-minibuf))))
-      (pcase-exhaustive frame
-        ('nil                   (seq-some #'b (buffer-list)))
-        ('all                   (seq-some #'f (frame-list)))
-        ('visible               (seq-some #'f (visible-frame-list)))
-        ((or 'selected 't)      (seq-some #'w (window-list (selected-frame))))
-        ((guard (framep frame)) (seq-some #'w (window-list frame)))))))
-
-(defun magit-generate-new-buffer (mode &optional value directory)
-  (let* ((default-directory (or directory (magit--toplevel-safe)))
-         (name (funcall magit-generate-buffer-name-function mode value))
-         (buffer (generate-new-buffer name)))
-    (with-current-buffer buffer
-      (setq magit--default-directory default-directory)
-      (setq magit-buffer-locked-p (and value t))
-      (magit-restore-section-visibility-cache mode))
-    (when magit-uniquify-buffer-names
-      (add-to-list 'uniquify-list-buffers-directory-modes mode)
-      (with-current-buffer buffer
-        (setq list-buffers-directory (abbreviate-file-name default-directory)))
-      (let ((uniquify-buffer-name-style
-             (if (memq uniquify-buffer-name-style '(nil forward))
-                 'post-forward-angle-brackets
-               uniquify-buffer-name-style)))
-        (uniquify-rationalize-file-buffer-names
-         name (file-name-directory (directory-file-name default-directory))
-         buffer)))
-    buffer))
-
-(defun magit-generate-buffer-name-default-function (mode &optional value)
-  "Generate buffer name for a MODE buffer in the current repository.
-The returned name is based on `magit-buffer-name-format' and
-takes `magit-uniquify-buffer-names' and VALUE, if non-nil, into
-account."
-  (let ((m (substring (symbol-name mode) 0 -5))
-        (v (and value (format "%s" (ensure-list value))))
-        (n (if magit-uniquify-buffer-names
-               (file-name-nondirectory
-                (directory-file-name default-directory))
-             (abbreviate-file-name default-directory))))
-    (format-spec
-     magit-buffer-name-format
-     `((?m . ,m)
-       (?M . ,(if (eq mode 'magit-status-mode) "magit" m))
-       (?v . ,(or v ""))
-       (?V . ,(if v (concat " " v) ""))
-       (?t . ,n)
-       (?x . ,(if magit-uniquify-buffer-names "" "*"))))))
-
-;;; Buffer Lock
-
-(defun magit-toggle-buffer-lock ()
-  "Lock the current buffer to its value or unlock it.
-
-Locking a buffer to its value prevents it from being reused to
-display another value.  The name of a locked buffer contains its
-value, which allows telling it apart from other locked buffers
-and the unlocked buffer.
-
-Not all Magit buffers can be locked to their values, for example
-it wouldn't make sense to lock a status buffer.
-
-There can only be a single unlocked buffer using a certain
-major-mode per repository.  So when a buffer is being unlocked
-and another unlocked buffer already exists for that mode and
-repository, then the former buffer is instead deleted and the
-latter is displayed in its place."
-  (interactive)
-  (if magit-buffer-locked-p
-      (if-let ((unlocked (magit-get-mode-buffer major-mode)))
-          (let ((locked (current-buffer)))
-            (switch-to-buffer unlocked nil t)
-            (kill-buffer locked))
-        (setq magit-buffer-locked-p nil)
-        (rename-buffer (funcall magit-generate-buffer-name-function
-                                major-mode)))
-    (if-let ((value (magit-buffer-value)))
-        (if-let ((locked (magit-get-mode-buffer major-mode value)))
-            (let ((unlocked (current-buffer)))
-              (switch-to-buffer locked nil t)
-              (kill-buffer unlocked))
-          (setq magit-buffer-locked-p t)
-          (rename-buffer (funcall magit-generate-buffer-name-function
-                                  major-mode value)))
-      (user-error "Buffer has no value it could be locked to"))))
-
-;;; Bury Buffer
-
-(defun magit-mode-bury-buffer (&optional kill-buffer)
-  "Bury or kill the current buffer.
-
-Use `magit-bury-buffer-function' to bury the buffer when called
-without a prefix argument or to kill it when called with a single
-prefix argument.
-
-With two prefix arguments, always kill the current and all other
-Magit buffers, associated with this repository."
-  (interactive "P")
-  (if (>= (prefix-numeric-value kill-buffer) 16)
-      (mapc #'kill-buffer (magit-mode-get-buffers))
-    (funcall magit-bury-buffer-function kill-buffer)))
-
-(defun magit-mode-quit-window (kill-buffer)
-  "Quit the selected window and bury its buffer.
-
-This behaves similar to `quit-window', but when the window
-was originally created to display a Magit buffer and the
-current buffer is the last remaining Magit buffer that was
-ever displayed in the selected window, then delete that
-window."
-  (if (or (one-window-p)
-          (--first (let ((buffer (car it)))
-                     (and (not (eq buffer (current-buffer)))
-                          (buffer-live-p buffer)
-                          (or (not (window-parameter nil 'magit-dedicated))
-                              (with-current-buffer buffer
-                                (derived-mode-p 'magit-mode
-                                                'magit-process-mode)))))
-                   (window-prev-buffers)))
-      (quit-window kill-buffer)
-    (let ((window (selected-window)))
-      (quit-window kill-buffer)
-      (when (window-live-p window)
-        (delete-window window)))))
-
-;;; Refresh Buffers
-
-(defvar magit-inhibit-refresh nil)
-
-(defun magit-refresh ()
-  "Refresh some buffers belonging to the current repository.
-
-Refresh the current buffer if its major mode derives from
-`magit-mode', and refresh the corresponding status buffer.
-
-Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
-  (interactive)
-  (unless magit-inhibit-refresh
-    (unwind-protect
-        (let ((start (current-time))
-              (magit--refresh-cache (or magit--refresh-cache
-                                        (list (cons 0 0)))))
-          (when magit-refresh-verbose
-            (message "Refreshing magit..."))
-          (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
-          (cond ((derived-mode-p 'magit-mode)
-                 (magit-refresh-buffer))
-                ((derived-mode-p 'tabulated-list-mode)
-                 (revert-buffer)))
-          (when-let ((buffer (and magit-refresh-status-buffer
-                                  (not (derived-mode-p 'magit-status-mode))
-                                  (magit-get-mode-buffer 'magit-status-mode))))
-            (with-current-buffer buffer
-              (magit-refresh-buffer)))
-          (magit-run-hook-with-benchmark 'magit-post-refresh-hook)
-          (when magit-refresh-verbose
-            (let* ((c (caar magit--refresh-cache))
-                   (a (+ c (cdar magit--refresh-cache))))
-              (message "Refreshing magit...done (%.3fs, cached %s/%s (%.0f%%))"
-                       (float-time (time-since start))
-                       c a (* (/ c (* a 1.0)) 100)))))
-      (run-hooks 'magit-unwind-refresh-hook))))
-
-(defun magit-refresh-all ()
-  "Refresh all buffers belonging to the current repository.
-
-Refresh all Magit buffers belonging to the current repository,
-and revert buffers that visit files located inside the current
-repository.
-
-Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
-  (interactive)
-  (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
-  (dolist (buffer (magit-mode-get-buffers))
-    (with-current-buffer buffer (magit-refresh-buffer)))
-  (magit-run-hook-with-benchmark 'magit-post-refresh-hook))
-
-(defvar-local magit-refresh-start-time nil)
-
-(defun magit-refresh-buffer (&rest _ignore)
-  "Refresh the current Magit buffer."
-  (interactive)
-  (setq magit-refresh-start-time (current-time))
-  (let ((refresh (intern (format "%s-refresh-buffer"
-                                 (substring (symbol-name major-mode) 0 -5))))
-        (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0)))))
-    (when (functionp refresh)
-      (when magit-refresh-verbose
-        (message "Refreshing buffer `%s'..." (buffer-name)))
-      (let* ((buffer (current-buffer))
-             (windows (cl-mapcan
-                       (lambda (window)
-                         (with-selected-window window
-                           (with-current-buffer buffer
-                             (and-let* ((section (magit-section-at)))
-                               `(( ,window
-                                   ,section
-                                   ,@(magit-section-get-relative-position
-                                      section)))))))
-                       ;; If it qualifies, then the selected window
-                       ;; comes first, but we want to handle it last
-                       ;; so that its `magit-section-movement-hook'
-                       ;; run can override the effects of other runs.
-                       (or (nreverse (get-buffer-window-list buffer nil t))
-                           (list (selected-window))))))
-        (deactivate-mark)
-        (setq magit-section-pre-command-section nil)
-        (setq magit-section-highlight-overlays nil)
-        (setq magit-section-highlighted-sections nil)
-        (setq magit-section-unhighlight-sections nil)
-        (let ((inhibit-read-only t))
-          (erase-buffer)
-          (save-excursion
-            (funcall refresh)))
-        (pcase-dolist (`(,window . ,args) windows)
-          (if (eq buffer (window-buffer window))
-              (with-selected-window window
-                (apply #'magit-section-goto-successor args))
-            (with-current-buffer buffer
-              (let ((magit-section-movement-hook nil))
-                (apply #'magit-section-goto-successor args)))))
-        (run-hooks 'magit-refresh-buffer-hook)
-        (magit-section-update-highlight)
-        (set-buffer-modified-p nil))
-      (when magit-refresh-verbose
-        (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name)
-                 (float-time (time-since magit-refresh-start-time)))))))
-
-(defun magit-profile-refresh-buffer ()
-  "Profile refreshing the current Magit buffer."
-  (interactive)
-  (require (quote elp))
-  (when (fboundp 'elp-reset-all)
-    (elp-reset-all)
-    (elp-instrument-package "magit-")
-    (elp-instrument-package "forge-")
-    (magit-refresh-buffer)
-    (elp-results)
-    (elp-reset-all)))
-
-;;; Save File-Visiting Buffers
-
-(defvar magit--disable-save-buffers nil)
-
-(defun magit-pre-command-hook ()
-  (setq magit--disable-save-buffers nil))
-(add-hook 'pre-command-hook #'magit-pre-command-hook)
-
-(defvar magit-after-save-refresh-buffers nil)
-
-(defun magit-after-save-refresh-buffers ()
-  (dolist (buffer magit-after-save-refresh-buffers)
-    (when (buffer-live-p buffer)
-      (with-current-buffer buffer
-        (magit-refresh-buffer))))
-  (setq magit-after-save-refresh-buffers nil)
-  (remove-hook 'post-command-hook #'magit-after-save-refresh-buffers))
-
-(defun magit-after-save-refresh-status ()
-  "Refresh the status buffer of the current repository.
-
-This function is intended to be added to `after-save-hook'.
-
-If the status buffer does not exist or the file being visited in
-the current buffer isn't inside the working tree of a repository,
-then do nothing.
-
-Note that refreshing a Magit buffer is done by re-creating its
-contents from scratch, which can be slow in large repositories.
-If you are not satisfied with Magit's performance, then you
-should obviously not add this function to that hook."
-  (when-let (((and (not magit--disable-save-buffers)
-                   (magit-inside-worktree-p t)))
-             (buf (ignore-errors (magit-get-mode-buffer 'magit-status-mode))))
-    (add-to-list 'magit-after-save-refresh-buffers buf)
-    (add-hook 'post-command-hook #'magit-after-save-refresh-buffers)))
-
-(defun magit-maybe-save-repository-buffers ()
-  "Maybe save file-visiting buffers belonging to the current repository.
-Do so if `magit-save-repository-buffers' is non-nil.  You should
-not remove this from any hooks, instead set that variable to nil
-if you so desire."
-  (when (and magit-save-repository-buffers
-             (not magit--disable-save-buffers))
-    (setq magit--disable-save-buffers t)
-    (let ((msg (current-message)))
-      (magit-save-repository-buffers
-       (eq magit-save-repository-buffers 'dontask))
-      (when (and msg
-                 (current-message)
-                 (not (equal msg (current-message))))
-        (message "%s" msg)))))
-
-(add-hook 'magit-pre-refresh-hook #'magit-maybe-save-repository-buffers)
-(add-hook 'magit-pre-call-git-hook #'magit-maybe-save-repository-buffers)
-(add-hook 'magit-pre-start-git-hook #'magit-maybe-save-repository-buffers)
-
-(defvar-local magit-inhibit-refresh-save nil)
-
-(defun magit-save-repository-buffers (&optional arg)
-  "Save file-visiting buffers belonging to the current repository.
-After any buffer where `buffer-save-without-query' is non-nil
-is saved without asking, the user is asked about each modified
-buffer which visits a file in the current repository.  Optional
-argument (the prefix) non-nil means save all with no questions."
-  (interactive "P")
-  (when-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
-    (let ((remote (file-remote-p default-directory))
-          (save-some-buffers-action-alist
-           `((?Y (lambda (buffer)
-                   (with-current-buffer buffer
-                     (setq buffer-save-without-query t)
-                     (save-buffer)))
-                 "to save the current buffer and remember choice")
-             (?N (lambda (buffer)
-                   (with-current-buffer buffer
-                     (setq magit-inhibit-refresh-save t)))
-                 "to skip the current buffer and remember choice")
-             ,@save-some-buffers-action-alist))
-          (topdirs nil)
-          (unwiped nil)
-          (magit--wip-inhibit-autosave t))
-      (unwind-protect
-          (save-some-buffers
-           arg
-           (lambda ()
-             ;; If the current file is modified and resides inside
-             ;; a repository, and a let-binding is in effect, which
-             ;; places us in another repository, then this binding
-             ;; is needed to prevent that file from being saved.
-             (and-let* ((default-directory
-                         (and buffer-file-name
-                              (file-name-directory buffer-file-name))))
-               (and
-                ;; Check whether the repository still exists.
-                (file-exists-p default-directory)
-                ;; Check whether refreshing is disabled.
-                (not magit-inhibit-refresh-save)
-                ;; Check whether the visited file is either on the
-                ;; same remote as the repository, or both are on
-                ;; the local system.
-                (equal (file-remote-p buffer-file-name) remote)
-                ;; Delayed checks that are more expensive for remote
-                ;; repositories, due to the required network access.
-                ;;
-                ;; Check whether the file is inside the repository.
-                (equal (or (cdr (assoc default-directory topdirs))
-                           (let ((top (magit-rev-parse-safe "--show-toplevel")))
-                             (push (cons default-directory top) topdirs)
-                             top))
-                       topdir)
-                ;; Check whether the file is actually writable.
-                (file-writable-p buffer-file-name)
-                (prog1 t
-                  ;; Schedule for wip commit, if appropriate.
-                  (when magit-wip-after-save-local-mode
-                    (push (expand-file-name buffer-file-name) unwiped)))))))
-        (when unwiped
-          (let ((default-directory topdir))
-            (magit-wip-commit-worktree
-             (magit-wip-get-ref)
-             unwiped
-             (if (cdr unwiped)
-                 (format "autosave %s files after save" (length unwiped))
-               (format "autosave %s after save"
-                       (file-relative-name (car unwiped)))))))))))
-
-;;; Restore Window Configuration
-
-(defvar magit-inhibit-save-previous-winconf nil)
-
-(defvar-local magit-previous-window-configuration nil)
-(put 'magit-previous-window-configuration 'permanent-local t)
-
-(defun magit-save-window-configuration ()
-  "Save the current window configuration.
-
-Later, when the buffer is buried, it may be restored by
-`magit-restore-window-configuration'."
-  (if magit-inhibit-save-previous-winconf
-      (when (eq magit-inhibit-save-previous-winconf 'unset)
-        (setq magit-previous-window-configuration nil))
-    (unless (get-buffer-window (current-buffer) (selected-frame))
-      (setq magit-previous-window-configuration
-            (current-window-configuration)))))
-
-(defun magit-restore-window-configuration (&optional kill-buffer)
-  "Bury or kill the current buffer and restore previous window configuration."
-  (let ((winconf magit-previous-window-configuration)
-        (buffer (current-buffer))
-        (frame (selected-frame)))
-    (quit-window kill-buffer (selected-window))
-    (when (and winconf (equal frame (window-configuration-frame winconf)))
-      (set-window-configuration winconf)
-      (when (buffer-live-p buffer)
-        (with-current-buffer buffer
-          (setq magit-previous-window-configuration nil)))
-      (set-buffer (with-selected-window (selected-window)
-                    (current-buffer))))))
-
-;;; Buffer History
-
-(defun magit-go-backward ()
-  "Move backward in current buffer's history."
-  (interactive)
-  (if help-xref-stack
-      (help-xref-go-back (current-buffer))
-    (user-error "No previous entry in buffer's history")))
-
-(defun magit-go-forward ()
-  "Move forward in current buffer's history."
-  (interactive)
-  (if help-xref-forward-stack
-      (help-xref-go-forward (current-buffer))
-    (user-error "No next entry in buffer's history")))
-
-(defun magit-insert-xref-buttons ()
-  "Insert xref buttons."
-  (when (and (not magit-buffer-locked-p)
-             (or help-xref-stack help-xref-forward-stack))
-    (when help-xref-stack
-      (magit-xref-insert-button help-back-label 'magit-xref-backward))
-    (when help-xref-forward-stack
-      (when help-xref-stack
-        (insert " "))
-      (magit-xref-insert-button help-forward-label 'magit-xref-forward))))
-
-(defun magit-xref-insert-button (label type)
-  (magit-insert-section (button label)
-    (insert-text-button label 'type type
-                        'help-args (list (current-buffer)))))
-
-(define-button-type 'magit-xref-backward
-  :supertype 'help-back
-  'mouse-face 'magit-section-highlight
-  'help-echo (purecopy "mouse-2, RET: go back to previous history entry"))
-
-(define-button-type 'magit-xref-forward
-  :supertype 'help-forward
-  'mouse-face 'magit-section-highlight
-  'help-echo (purecopy "mouse-2, RET: go back to next history entry"))
-
-(defvar magit-xref-modes
-  '(magit-log-mode
-    magit-reflog-mode
-    magit-diff-mode
-    magit-revision-mode)
-  "List of modes for which to insert navigation buttons.")
-
-(defun magit-xref-setup (fn args)
-  (when (memq major-mode magit-xref-modes)
-    (when help-xref-stack-item
-      (push (cons (point) help-xref-stack-item) help-xref-stack)
-      (setq help-xref-forward-stack nil))
-    (when-let ((tail (nthcdr 30 help-xref-stack)))
-      (setcdr tail nil))
-    (setq help-xref-stack-item
-          (list 'magit-xref-restore fn default-directory args))))
-
-(defun magit-xref-restore (fn dir args)
-  (setq default-directory dir)
-  (funcall fn major-mode nil args)
-  (magit-refresh-buffer))
-
-;;; Repository-Local Cache
-
-(defvar magit-repository-local-cache nil
-  "Alist mapping `magit-toplevel' paths to alists of key/value pairs.")
-
-(defun magit-repository-local-repository ()
-  "Return the key for the current repository."
-  (or (bound-and-true-p magit--default-directory)
-      (magit-toplevel)))
-
-(defun magit-repository-local-set (key value &optional repository)
-  "Set the repository-local VALUE for KEY.
-
-Unless specified, REPOSITORY is the current buffer's repository.
-
-If REPOSITORY is nil (meaning there is no current repository),
-then the value is not cached, and we return nil."
-  (let* ((repokey (or repository (magit-repository-local-repository)))
-         (cache (assoc repokey magit-repository-local-cache)))
-    ;; Don't cache values for a nil REPOSITORY, as the 'set' and 'get'
-    ;; calls for some KEY may happen in unrelated contexts.
-    (when repokey
-      (if cache
-          (let ((keyvalue (assoc key (cdr cache))))
-            (if keyvalue
-                ;; Update pre-existing value for key.
-                (setcdr keyvalue value)
-              ;; No such key in repository-local cache.
-              (push (cons key value) (cdr cache))))
-        ;; No cache for this repository.
-        (push (cons repokey (list (cons key value)))
-              magit-repository-local-cache)))))
-
-(defun magit-repository-local-exists-p (key &optional repository)
-  "Non-nil when a repository-local value exists for KEY.
-
-Return a (KEY . VALUE) cons cell.
-
-The KEY is matched using `equal'.
-
-Unless specified, REPOSITORY is the current buffer's repository."
-  (and-let* ((cache (assoc (or repository
-                               (magit-repository-local-repository))
-                           magit-repository-local-cache)))
-    (assoc key (cdr cache))))
-
-(defun magit-repository-local-get (key &optional default repository)
-  "Return the repository-local value for KEY.
-
-Return DEFAULT if no value for KEY exists.
-
-The KEY is matched using `equal'.
-
-Unless specified, REPOSITORY is the current buffer's repository."
-  (if-let ((keyvalue (magit-repository-local-exists-p key repository)))
-      (cdr keyvalue)
-    default))
-
-(defun magit-repository-local-delete (key &optional repository)
-  "Delete the repository-local value for KEY.
-
-Unless specified, REPOSITORY is the current buffer's repository.
-If REPOSITORY is `all', then delete the value for KEY for all
-repositories."
-  (if (eq repository 'all)
-      (dolist (cache magit-repository-local-cache)
-        (setf cache (compat-call assoc-delete-all key cache)))
-    (when-let ((cache (assoc (or repository
-                                 (magit-repository-local-repository))
-                             magit-repository-local-cache)))
-      (setf cache (compat-call assoc-delete-all key cache)))))
-
-(defmacro magit--with-repository-local-cache (key &rest body)
-  (declare (indent 1) (debug (form body)))
-  (let ((k (cl-gensym)))
-    `(let ((,k ,key))
-       (if-let ((kv (magit-repository-local-exists-p ,k)))
-           (cdr kv)
-         (let ((v ,(macroexp-progn body)))
-           (magit-repository-local-set ,k v)
-           v)))))
-
-(defun magit-preserve-section-visibility-cache ()
-  (when (derived-mode-p 'magit-status-mode 'magit-refs-mode)
-    (magit-repository-local-set
-     (cons major-mode 'magit-section-visibility-cache)
-     magit-section-visibility-cache)))
-
-(defun magit-restore-section-visibility-cache (mode)
-  (setq magit-section-visibility-cache
-        (magit-repository-local-get
-         (cons mode 'magit-section-visibility-cache))))
-
-(defun magit-zap-caches (&optional all)
-  "Zap caches for the current repository.
-
-Remove the repository's entry from `magit-repository-local-cache',
-remove the host's entry from `magit--host-git-version-cache', and
-set `magit-section-visibility-cache' to nil for all Magit buffers
-of the repository.
-
-With a prefix argument or if optional ALL is non-nil, discard the
-mentioned caches completely."
-  (interactive)
-  (cond (all
-         (setq magit-repository-local-cache nil)
-         (setq magit--host-git-version-cache nil)
-         (dolist (buffer (buffer-list))
-           (with-current-buffer buffer
-             (when (derived-mode-p 'magit-mode)
-               (setq magit-section-visibility-cache nil)))))
-        (t
-         (magit-with-toplevel
-           (setq magit-repository-local-cache
-                 (cl-delete default-directory
-                            magit-repository-local-cache
-                            :key #'car :test #'equal))
-           (setq magit--host-git-version-cache
-                 (cl-delete (file-remote-p default-directory)
-                            magit--host-git-version-cache
-                            :key #'car :test #'equal)))
-         (dolist (buffer (magit-mode-get-buffers))
-           (with-current-buffer buffer
-             (setq magit-section-visibility-cache nil))))))
-
-;;; Utilities
-
-(defun magit-toggle-verbose-refresh ()
-  "Toggle whether Magit refreshes buffers verbosely.
-Enabling this helps figuring out which sections are bottlenecks.
-The additional output can be found in the *Messages* buffer."
-  (interactive)
-  (setq magit-refresh-verbose (not magit-refresh-verbose))
-  (message "%s verbose refreshing"
-           (if magit-refresh-verbose "Enabled" "Disabled")))
-
-(defun magit-run-hook-with-benchmark (hook)
-  (cond
-   ((not hook))
-   (magit-refresh-verbose
-    (message "Running %s..." hook)
-    (message "Running %s...done (%.3fs)" hook
-             (benchmark-elapse
-               (run-hook-wrapped
-                hook
-                (lambda (fn)
-                  (message "  %-50s %f" fn (benchmark-elapse (funcall fn))))))))
-   ((run-hooks hook))))
-
-;;; _
-(provide 'magit-mode)
-;;; magit-mode.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-mode.elc b/emacs/elpa/magit-20241116.1557/magit-mode.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-pkg.el b/emacs/elpa/magit-20241116.1557/magit-pkg.el
@@ -1,18 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "magit" "20241116.1557"
-  "A Git porcelain inside Emacs."
-  '((emacs         "26.1")
-    (compat        "30.0.0.0")
-    (dash          "2.19.1")
-    (magit-section "4.1.2")
-    (seq           "2.24")
-    (transient     "0.7.8")
-    (with-editor   "3.4.2"))
-  :url "https://github.com/magit/magit"
-  :commit "8cee789f7a61a491d23a78360cbd2d626eda0f06"
-  :revdesc "8cee789f7a61"
-  :keywords '("git" "tools" "vc")
-  :authors '(("Marius Vollmer" . "marius.vollmer@gmail.com")
-             ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))
-  :maintainers '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")
-                 ("Kyle Meyer" . "kyle@kyleam.com")))
diff --git a/emacs/elpa/magit-20241116.1557/magit-process.el b/emacs/elpa/magit-20241116.1557/magit-process.el
@@ -1,1292 +0,0 @@
-;;; magit-process.el --- Process functionality  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements the tools used to run Git for side-effects.
-
-;; Note that the functions used to run Git and then consume its
-;; output, are defined in `magit-git.el'.  There's a bit of overlap
-;; though.
-
-;;; Code:
-
-(require 'magit-base)
-(require 'magit-git)
-(require 'magit-mode)
-
-(require 'ansi-color)
-(require 'auth-source)
-(require 'with-editor)
-
-(defvar y-or-n-p-map)
-
-;;; Options
-
-(defcustom magit-process-connection-type (not (eq system-type 'cygwin))
-  "Connection type used for the Git process.
-
-If nil, use pipes: this is usually more efficient, and works on Cygwin.
-If t, use ptys: this enables Magit to prompt for passphrases when needed."
-  :group 'magit-process
-  :type '(choice (const :tag "pipe" nil)
-                 (const :tag "pty" t)))
-
-(defcustom magit-need-cygwin-noglob
-  (and (eq system-type 'windows-nt)
-       (with-temp-buffer
-         (let ((process-environment
-                (append magit-git-environment process-environment)))
-           (condition-case e
-               (process-file magit-git-executable
-                             nil (current-buffer) nil
-                             "-c" "alias.echo=!echo" "echo" "x{0}")
-             (file-error
-              (lwarn 'magit-process :warning
-                     "Could not run Git: %S" e))))
-         (equal "x0\n" (buffer-string))))
-  "Whether to use a workaround for Cygwin's globbing behavior.
-
-If non-nil, add environment variables to `process-environment' to
-prevent the git.exe distributed by Cygwin and MSYS2 from
-attempting to perform glob expansion when called from a native
-Windows build of Emacs.  See #2246."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-process
-  :type '(choice (const :tag "Yes" t)
-                 (const :tag "No" nil)))
-
-(defcustom magit-process-popup-time -1
-  "Popup the process buffer if a command takes longer than this many seconds."
-  :group 'magit-process
-  :type '(choice (const :tag "Never" -1)
-                 (const :tag "Immediately" 0)
-                 (integer :tag "After this many seconds")))
-
-(defcustom magit-process-log-max 32
-  "Maximum number of sections to keep in a process log buffer.
-When adding a new section would go beyond the limit set here,
-then the older half of the sections are remove.  Sections that
-belong to processes that are still running are never removed.
-When this is nil, no sections are ever removed."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-process
-  :type '(choice (const :tag "Never remove old sections" nil) integer))
-
-(defvar magit-process-extreme-logging nil
-  "Whether `magit-process-file' logs to the *Messages* buffer.
-
-Only intended for temporary use when you try to figure out how
-Magit uses Git behind the scene.  Output that normally goes to
-the magit-process buffer continues to go there.  Not all output
-goes to either of these two buffers.
-
-Also see `magit-git-debug'.")
-
-(defcustom magit-process-error-tooltip-max-lines 20
-  "The number of lines for `magit-process-error-lines' to return.
-
-These are displayed in a tooltip for `mode-line-process' errors.
-
-If `magit-process-error-tooltip-max-lines' is nil, the tooltip
-displays the text of `magit-process-error-summary' instead."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-process
-  :type '(choice (const :tag "Use summary line" nil)
-                 integer))
-
-(defcustom magit-credential-cache-daemon-socket
-  (--some (pcase-let ((`(,prog . ,args) (split-string it)))
-            (if (and prog
-                     (string-match-p
-                      "\\`\\(?:\\(?:/.*/\\)?git-credential-\\)?cache\\'" prog))
-                (or (cl-loop for (opt val) on args
-                             if (string= opt "--socket")
-                             return val)
-                    (expand-file-name "~/.git-credential-cache/socket"))))
-          ;; Note: `magit-process-file' is not yet defined when
-          ;; evaluating this form, so we use `process-lines'.
-          (ignore-errors
-            (let ((process-environment
-                   (append magit-git-environment process-environment)))
-              (process-lines magit-git-executable
-                             "config" "--get-all" "credential.helper"))))
-  "If non-nil, start a credential cache daemon using this socket.
-
-When using Git's cache credential helper in the normal way, Emacs
-sends a SIGHUP to the credential daemon after the git subprocess
-has exited, causing the daemon to also quit.  This can be avoided
-by starting the `git-credential-cache--daemon' process directly
-from Emacs.
-
-The function `magit-maybe-start-credential-cache-daemon' takes
-care of starting the daemon if necessary, using the value of this
-option as the socket.  If this option is nil, then it does not
-start any daemon.  Likewise if another daemon is already running,
-then it starts no new daemon.  This function has to be a member
-of the hook variable `magit-credential-hook' for this to work.
-If an error occurs while starting the daemon, most likely because
-the necessary executable is missing, then the function removes
-itself from the hook, to avoid further futile attempts."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-process
-  :type '(choice (file  :tag "Socket")
-                 (const :tag "Don't start a cache daemon" nil)))
-
-(defcustom magit-process-yes-or-no-prompt-regexp
-  (concat " [([]"
-          "\\([Yy]\\(?:es\\)?\\)"
-          "[/|]"
-          "\\([Nn]o?\\)"
-          ;; OpenSSH v8 prints this.  See #3969.
-          "\\(?:/\\[fingerprint\\]\\)?"
-          "[])] ?[?:]? ?$")
-  "Regexp matching Yes-or-No prompts of Git and its subprocesses."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-process
-  :type 'regexp)
-
-(defcustom magit-process-password-prompt-regexps
-  '("^\\(Enter \\)?[Pp]assphrase\\( for \\(RSA \\)?key '.*'\\)?: ?$"
-    ;; Match-group 99 is used to identify the "user@host" part.
-    "^\\(Enter \\|([^) ]+) \\)?\
-[Pp]assword\\( for '?\\(https?://\\)?\\(?99:[^']*\\)'?\\)?: ?$"
-    "Please enter the passphrase for the ssh key"
-    "Please enter the passphrase to unlock the OpenPGP secret key"
-    "^.*'s password: ?$"
-    "^Token: $" ; For git-credential-manager-core (#4318).
-    "^Yubikey for .*: ?$"
-    "^Enter PIN for .*: ?$")
-  "List of regexps matching password prompts of Git and its subprocesses.
-Also see `magit-process-find-password-functions'."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-process
-  :type '(repeat (regexp)))
-
-(defcustom magit-process-find-password-functions nil
-  "List of functions to try in sequence to get a password.
-
-These functions may be called when git asks for a password, which
-is detected using `magit-process-password-prompt-regexps'.  They
-are called if and only if matching the prompt resulted in the
-value of the 99th submatch to be non-nil.  Therefore users can
-control for which prompts these functions should be called by
-putting the host name in the 99th submatch, or not.
-
-If the functions are called, then they are called in the order
-given, with the host name as only argument, until one of them
-returns non-nil.  If they are not called or none of them returns
-non-nil, then the password is read from the user instead."
-  :package-version '(magit . "2.3.0")
-  :group 'magit-process
-  :type 'hook
-  :options '(magit-process-password-auth-source))
-
-(defcustom magit-process-username-prompt-regexps
-  '("^Username for '.*': ?$")
-  "List of regexps matching username prompts of Git and its subprocesses."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-process
-  :type '(repeat (regexp)))
-
-(defcustom magit-process-prompt-functions nil
-  "List of functions used to forward arbitrary questions to the user.
-
-Magit has dedicated support for forwarding username and password
-prompts and Yes-or-No questions asked by Git and its subprocesses
-to the user.  This can be customized using other options in the
-`magit-process' customization group.
-
-If you encounter a new question that isn't handled by default,
-then those options should be used instead of this hook.
-
-However subprocesses may also ask questions that differ too much
-from what the code related to the above options assume, and this
-hook allows users to deal with such questions explicitly.
-
-Each function is called with the process and the output string
-as arguments until one of the functions returns non-nil.  The
-function is responsible for asking the user the appropriate
-question using, e.g., `read-char-choice' and then forwarding the
-answer to the process using `process-send-string'.
-
-While functions such as `magit-process-yes-or-no-prompt' may not
-be sufficient to handle some prompt, it may still be of benefit
-to look at the implementations to gain some insights on how to
-implement such functions."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-process
-  :type 'hook)
-
-(defcustom magit-process-ensure-unix-line-ending t
-  "Whether Magit should ensure a unix coding system when talking to Git."
-  :package-version '(magit . "2.6.0")
-  :group 'magit-process
-  :type 'boolean)
-
-(defcustom magit-process-display-mode-line-error t
-  "Whether Magit should retain and highlight process errors in the mode line."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-process
-  :type 'boolean)
-
-(defcustom magit-process-timestamp-format nil
-  "Format of timestamp for each process in the process buffer.
-If non-nil, pass this to `format-time-string' when creating a
-process section in the process buffer, and insert the returned
-string in the heading of its section."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-process
-  :type '(choice (const :tag "none" nil) string))
-
-(defvar tramp-pipe-stty-settings)
-(defvar magit-tramp-pipe-stty-settings ""
-  "Override `tramp-pipe-stty-settings' in `magit-start-process'.
-
-The default for that Tramp variable is \"-icanon min 1 time 0\",
-which causes staging of individual hunks to hang.  Using \"\"
-prevents that, but apparently has other issues, which is why it
-isn't the default.
-
-This variable defaults to \"\" and is used to override the Tramp
-variable in `magit-start-process'.  This only has an effect when
-using Tramp 2.6.2 or greater.  This can also be set to `pty', in
-which case a pty is used instead of a pipe.  That also prevents
-the hanging, but doesn't work for files with DOS line endings
-\(see #20).
-
-For connections that have `tramp-direct-async-process' enabled,
-staging hunks hangs, unless this variable is set to `pty' (see
-#5220).
-
-To fall back to the value of `tramp-pipe-stty-settings', set this
-variable to nil.
-
-Also see https://github.com/magit/magit/issues/4720
-and https://debbugs.gnu.org/cgi/bugreport.cgi?bug=62093.")
-
-(defface magit-process-ok
-  '((t :inherit magit-section-heading :foreground "green"))
-  "Face for zero exit-status."
-  :group 'magit-faces)
-
-(defface magit-process-ng
-  '((t :inherit magit-section-heading :foreground "red"))
-  "Face for non-zero exit-status."
-  :group 'magit-faces)
-
-(defface magit-mode-line-process
-  '((t :inherit mode-line-emphasis))
-  "Face for `mode-line-process' status when Git is running for side-effects."
-  :group 'magit-faces)
-
-(defface magit-mode-line-process-error
-  '((t :inherit error))
-  "Face for `mode-line-process' error status.
-
-Used when `magit-process-display-mode-line-error' is non-nil."
-  :group 'magit-faces)
-
-;;; Process Mode
-
-(defvar-keymap magit-process-mode-map
-  :doc "Keymap for `magit-process-mode'."
-  :parent magit-mode-map
-  "<remap> <magit-refresh>"      #'undefined
-  "<remap> <magit-delete-thing>" #'magit-process-kill)
-
-(define-derived-mode magit-process-mode magit-mode "Magit Process"
-  "Mode for looking at Git process output."
-  :interactive nil
-  :group 'magit-process
-  (magit-hack-dir-local-variables)
-  (setq magit--imenu-item-types 'process))
-
-(defun magit-process-buffer (&optional nodisplay)
-  "Display the current repository's process buffer.
-
-If that buffer doesn't exist yet, then create it.
-Non-interactively return the buffer and unless
-optional NODISPLAY is non-nil also display it."
-  (interactive)
-  (let ((topdir (magit-toplevel)))
-    (unless topdir
-      (magit--with-safe-default-directory nil
-        (setq topdir default-directory)
-        (let (prev)
-          (while (not (equal topdir prev))
-            (setq prev topdir)
-            (setq topdir (file-name-directory (directory-file-name topdir)))))))
-    (let ((buffer (or (--first (with-current-buffer it
-                                 (and (eq major-mode 'magit-process-mode)
-                                      (equal default-directory topdir)))
-                               (buffer-list))
-                      (magit-generate-new-buffer 'magit-process-mode
-                                                 nil topdir))))
-      (with-current-buffer buffer
-        (if magit-root-section
-            (when magit-process-log-max
-              (magit-process-truncate-log))
-          (magit-process-mode)
-          (let ((inhibit-read-only t)
-                (magit-insert-section--parent  nil)
-                (magit-insert-section--oldroot nil))
-            (make-local-variable 'text-property-default-nonsticky)
-            (magit-insert-section (processbuf)
-              (insert "\n")))))
-      (unless nodisplay
-        (magit-display-buffer buffer))
-      buffer)))
-
-(defun magit-process-kill ()
-  "Kill the process at point."
-  (interactive)
-  (when-let ((process (magit-section-value-if 'process)))
-    (unless (eq (process-status process) 'run)
-      (user-error "Process isn't running"))
-    (magit-confirm 'kill-process)
-    (kill-process process)))
-
-;;; Synchronous Processes
-
-(defvar magit-process-raise-error nil)
-
-(defun magit-git (&rest args)
-  "Call Git synchronously in a separate process, for side-effects.
-
-Option `magit-git-executable' specifies the Git executable.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'.  If Git exits with a non-zero status,
-then raise an error."
-  (let ((magit-process-raise-error t))
-    (magit-call-git args)))
-
-(defun magit-run-git (&rest args)
-  "Call Git synchronously in a separate process, and refresh.
-
-Function `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-After Git returns, the current buffer (if it is a Magit buffer)
-as well as the current repository's status buffer are refreshed.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
-  (let ((magit--refresh-cache (list (cons 0 0))))
-    (prog1 (magit-call-git args)
-      (when (member (car args) '("init" "clone"))
-        ;; Creating a new repository invalidates the cache.
-        (setq magit--refresh-cache nil))
-      (magit-refresh))))
-
-(defvar magit-pre-call-git-hook nil)
-
-(defun magit-call-git (&rest args)
-  "Call Git synchronously in a separate process.
-
-Function `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The arguments ARGS specify arguments to Git, they are flattened
-before use.
-
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
-  (run-hooks 'magit-pre-call-git-hook)
-  (let ((default-process-coding-system (magit--process-coding-system)))
-    (apply #'magit-call-process
-           (magit-git-executable)
-           (magit-process-git-arguments args))))
-
-(defun magit-call-process (program &rest args)
-  "Call PROGRAM synchronously in a separate process.
-Process output goes into a new section in the buffer returned by
-`magit-process-buffer'."
-  (pcase-let ((`(,process-buf . ,section)
-               (magit-process-setup program args)))
-    (magit-process-finish
-     (let ((inhibit-read-only t))
-       (apply #'magit-process-file program nil process-buf nil args))
-     process-buf (current-buffer) default-directory section)))
-
-(defun magit-process-git (destination &rest args)
-  "Call Git synchronously in a separate process, returning its exit code.
-DESTINATION specifies how to handle the output, like for
-`call-process', except that file handlers are supported.
-Enable Cygwin's \"noglob\" option during the call and
-ensure unix eol conversion."
-  (apply #'magit-process-file
-         (magit-git-executable)
-         nil destination nil
-         (magit-process-git-arguments args)))
-
-(defun magit-process-file (process &optional infile buffer display &rest args)
-  "Process files synchronously in a separate process.
-Identical to `process-file' but temporarily enable Cygwin's
-\"noglob\" option during the call and ensure unix eol
-conversion."
-  (when magit-process-extreme-logging
-    (let ((inhibit-message t))
-      (message "$ %s" (magit-process--format-arguments process args))))
-  (let ((process-environment (magit-process-environment))
-        (default-process-coding-system (magit--process-coding-system)))
-    (apply #'process-file process infile buffer display args)))
-
-(defun magit-process-environment ()
-  ;; The various w32 hacks are only applicable when running on the local
-  ;; machine.  A local binding of process-environment different from the
-  ;; top-level value affects the environment used by Tramp.
-  (let ((local (not (file-remote-p default-directory))))
-    (append magit-git-environment
-            (and local
-                 (cdr (assoc magit-git-executable magit-git-w32-path-hack)))
-            (and local magit-need-cygwin-noglob
-                 (mapcar (lambda (var)
-                           (concat var "=" (if-let ((val (getenv var)))
-                                               (concat val " noglob")
-                                             "noglob")))
-                         '("CYGWIN" "MSYS")))
-            process-environment)))
-
-(defvar magit-this-process nil)
-
-(defun magit-run-git-with-input (&rest args)
-  "Call Git in a separate process.
-ARGS is flattened and then used as arguments to Git.
-
-The current buffer's content is used as the process's standard
-input.  The buffer is assumed to be temporary and thus OK to
-modify.
-
-Function `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The remaining arguments ARGS specify arguments to Git, they are
-flattened before use."
-  (when (eq system-type 'windows-nt)
-    ;; On w32, git expects UTF-8 encoded input, ignore any user
-    ;; configuration telling us otherwise (see #3250).
-    (encode-coding-region (point-min) (point-max) 'utf-8-unix))
-  (if (file-remote-p default-directory)
-      ;; We lack `process-file-region', so fall back to asynch +
-      ;; waiting in remote case.
-      (progn
-        (magit-start-git (current-buffer) args)
-        (while (and magit-this-process
-                    (eq (process-status magit-this-process) 'run))
-          (sleep-for 0.005)))
-    (run-hooks 'magit-pre-call-git-hook)
-    (pcase-let* ((process-environment (magit-process-environment))
-                 (default-process-coding-system (magit--process-coding-system))
-                 (flat-args (magit-process-git-arguments args))
-                 (`(,process-buf . ,section)
-                  (magit-process-setup (magit-git-executable) flat-args))
-                 (inhibit-read-only t))
-      (magit-process-finish
-       (apply #'call-process-region (point-min) (point-max)
-              (magit-git-executable) nil process-buf nil flat-args)
-       process-buf nil default-directory section))))
-
-;;; Asynchronous Processes
-
-(defun magit-run-git-async (&rest args)
-  "Start Git, prepare for refresh, and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' for more information."
-  (let ((message-log-max nil))
-    (message "Running %s %s" (magit-git-executable)
-             (let ((m (string-join (flatten-tree args) " ")))
-               (remove-list-of-text-properties 0 (length m) '(face) m)
-               m)))
-  (magit-start-git nil args))
-
-(defun magit-run-git-with-editor (&rest args)
-  "Export GIT_EDITOR and start Git.
-Also prepare for refresh and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' and `with-editor' for more information."
-  (magit--record-separated-gitdir)
-  (magit-with-editor (magit-run-git-async args)))
-
-(defun magit-run-git-sequencer (&rest args)
-  "Export GIT_EDITOR and start Git.
-Also prepare for refresh and return the process object.
-ARGS is flattened and then used as arguments to Git.
-
-Display the command line arguments in the echo area.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-If the sequence stops at a commit, make the section representing
-that commit the current section by moving `point' there.
-
-See `magit-start-process' and `with-editor' for more information."
-  (apply #'magit-run-git-with-editor args)
-  (set-process-sentinel magit-this-process #'magit-sequencer-process-sentinel)
-  magit-this-process)
-
-(defvar magit-pre-start-git-hook nil)
-
-(defun magit-start-git (input &rest args)
-  "Start Git, prepare for refresh, and return the process object.
-
-If INPUT is non-nil, it has to be a buffer or the name of an
-existing buffer.  The buffer content becomes the processes
-standard input.
-
-Function `magit-git-executable' specifies the Git executable and
-option `magit-git-global-arguments' specifies constant arguments.
-The remaining arguments ARGS specify arguments to Git, they are
-flattened before use.
-
-After Git returns some buffers are refreshed: the buffer that was
-current when this function was called (if it is a Magit buffer
-and still alive), as well as the respective Magit status buffer.
-
-See `magit-start-process' for more information."
-  (run-hooks 'magit-pre-start-git-hook)
-  (let ((default-process-coding-system (magit--process-coding-system)))
-    (apply #'magit-start-process (magit-git-executable) input
-           (magit-process-git-arguments args))))
-
-(defun magit-start-process (program &optional input &rest args)
-  "Start PROGRAM, prepare for refresh, and return the process object.
-
-If optional argument INPUT is non-nil, it has to be a buffer or
-the name of an existing buffer.  The buffer content becomes the
-processes standard input.
-
-The process is started using `start-file-process' and then setup
-to use the sentinel `magit-process-sentinel' and the filter
-`magit-process-filter'.  Information required by these functions
-is stored in the process object.  When this function returns the
-process has not started to run yet so it is possible to override
-the sentinel and filter.
-
-After the process returns, `magit-process-sentinel' refreshes the
-buffer that was current when `magit-start-process' was called (if
-it is a Magit buffer and still alive), as well as the respective
-Magit status buffer."
-  (pcase-let*
-      ((`(,process-buf . ,section)
-        (magit-process-setup program args))
-       (process
-        (let ((process-connection-type ;t=pty nil=pipe
-               (or
-                ;; With Tramp, maybe force use a pty.  #4720
-                (and (file-remote-p default-directory)
-                     (eq magit-tramp-pipe-stty-settings 'pty))
-                ;; Without input, don't use a pty, because it would
-                ;; set icrnl, which would modify the input.  #20
-                (and (not input) magit-process-connection-type)))
-              (tramp-pipe-stty-settings
-               (or (and (not (eq magit-tramp-pipe-stty-settings 'pty))
-                        ;; Defaults to "", to allow staging hunks over
-                        ;; Tramp again.  #4720
-                        magit-tramp-pipe-stty-settings)
-                   (bound-and-true-p tramp-pipe-stty-settings)))
-              (process-environment (magit-process-environment))
-              (default-process-coding-system (magit--process-coding-system)))
-          (apply #'start-file-process
-                 (file-name-nondirectory program)
-                 process-buf program args))))
-    (with-editor-set-process-filter process #'magit-process-filter)
-    (set-process-sentinel process #'magit-process-sentinel)
-    (set-process-buffer   process process-buf)
-    (when (eq system-type 'windows-nt)
-      ;; On w32, git expects UTF-8 encoded input, ignore any user
-      ;; configuration telling us otherwise.
-      (set-process-coding-system process nil 'utf-8-unix))
-    (process-put process 'section section)
-    (process-put process 'command-buf (current-buffer))
-    (process-put process 'default-dir default-directory)
-    (when magit-inhibit-refresh
-      (process-put process 'inhibit-refresh t))
-    (oset section process process)
-    (with-current-buffer process-buf
-      (set-marker (process-mark process) (point)))
-    (when input
-      (with-current-buffer input
-        (process-send-region process (point-min) (point-max))
-        ;; `process-send-eof' appears to be broken over
-        ;;  Tramp from Windows. See #3624 and bug#43226.
-        (if (and (eq system-type 'windows-nt)
-                 (file-remote-p (process-get process 'default-dir) nil t))
-            (process-send-string process "")
-          (process-send-eof process))))
-    (setq magit-this-process process)
-    (oset section value process)
-    (magit-process-display-buffer process)
-    process))
-
-(defun magit-parse-git-async (&rest args)
-  (setq args (magit-process-git-arguments args))
-  (let ((command-buf (current-buffer))
-        (stdout-buf (generate-new-buffer " *git-stdout*"))
-        (stderr-buf (generate-new-buffer " *git-stderr*"))
-        (toplevel (magit-toplevel)))
-    (with-current-buffer stdout-buf
-      (setq default-directory toplevel)
-      (let ((process
-             (let ((process-environment (magit-process-environment)))
-               (make-process :name "git"
-                             :buffer stdout-buf
-                             :stderr stderr-buf
-                             :command (cons (magit-git-executable) args)
-                             :coding (magit--process-coding-system)
-                             :file-handler t))))
-        (process-put process 'command-buf command-buf)
-        (process-put process 'stderr-buf stderr-buf)
-        (process-put process 'parsed (point))
-        (setq magit-this-process process)
-        process))))
-
-;;; Process Internals
-
-(defclass magit-process-section (magit-section)
-  ((process :initform nil)))
-
-(setf (alist-get 'process magit--section-type-alist) 'magit-process-section)
-
-(defun magit-process-setup (program args)
-  (magit-process-set-mode-line program args)
-  (let ((pwd default-directory)
-        (buf (magit-process-buffer t)))
-    (cons buf (with-current-buffer buf
-                (prog1 (magit-process-insert-section pwd program args nil nil)
-                  (backward-char 1))))))
-
-(defun magit-process-insert-section
-    (pwd program args &optional errcode errlog face)
-  (let ((inhibit-read-only t)
-        (magit-insert-section--current nil)
-        (magit-insert-section--parent magit-root-section)
-        (magit-insert-section--oldroot nil))
-    (goto-char (1- (point-max)))
-    (magit-insert-section (process)
-      (insert (if errcode
-                  (format "%3s " (propertize (number-to-string errcode)
-                                             'font-lock-face 'magit-process-ng))
-                "run "))
-      (when magit-process-timestamp-format
-        (insert (format-time-string magit-process-timestamp-format) " "))
-      (let ((cmd (concat
-                  (and (not (equal
-                             (file-name-as-directory (expand-file-name pwd))
-                             (file-name-as-directory (expand-file-name
-                                                      default-directory))))
-                       (concat (file-relative-name pwd default-directory) " "))
-                  (magit-process--format-arguments program args))))
-        (magit-insert-heading (if face (propertize cmd 'face face) cmd)))
-      (when errlog
-        (if (bufferp errlog)
-            (insert (with-current-buffer errlog
-                      (buffer-substring-no-properties (point-min) (point-max))))
-          (insert-file-contents errlog)
-          (goto-char (1- (point-max)))))
-      (insert "\n"))))
-
-(defun magit-process--format-arguments (program args)
-  (cond
-   ((and args (equal program (magit-git-executable)))
-    (let ((global (length magit-git-global-arguments)))
-      (concat
-       (propertize (file-name-nondirectory program)
-                   'font-lock-face 'magit-section-heading)
-       " "
-       (propertize (magit--ellipsis)
-                   'font-lock-face 'magit-section-heading
-                   'help-echo (string-join (seq-take args global) " "))
-       " "
-       (propertize (mapconcat #'shell-quote-argument (seq-drop args global) " ")
-                   'font-lock-face 'magit-section-heading))))
-   ((and args (equal program shell-file-name))
-    (propertize (cadr args)
-                'font-lock-face 'magit-section-heading))
-   (t
-    (concat (propertize (file-name-nondirectory program)
-                        'font-lock-face 'magit-section-heading)
-            " "
-            (propertize (mapconcat #'shell-quote-argument args " ")
-                        'font-lock-face 'magit-section-heading)))))
-
-(defun magit-process-truncate-log ()
-  (let* ((head nil)
-         (tail (oref magit-root-section children))
-         (count (length tail)))
-    (when (> (1+ count) magit-process-log-max)
-      (while (and (cdr tail)
-                  (> count (/ magit-process-log-max 2)))
-        (let* ((inhibit-read-only t)
-               (section (car tail))
-               (process (oref section process)))
-          (cond ((not process))
-                ((memq (process-status process) '(exit signal))
-                 (delete-region (oref section start)
-                                (1+ (oref section end)))
-                 (cl-decf count))
-                (t
-                 (push section head))))
-        (pop tail))
-      (oset magit-root-section children
-            (nconc (reverse head) tail)))))
-
-(defun magit-process-sentinel (process event)
-  "Default sentinel used by `magit-start-process'."
-  (when (memq (process-status process) '(exit signal))
-    (setq event (substring event 0 -1))
-    (when (string-match "^finished" event)
-      (message (concat (capitalize (process-name process)) " finished")))
-    (magit-process-finish process)
-    (when (eq process magit-this-process)
-      (setq magit-this-process nil))
-    (unless (process-get process 'inhibit-refresh)
-      (let ((command-buf (process-get process 'command-buf)))
-        (if (buffer-live-p command-buf)
-            (with-current-buffer command-buf
-              (magit-refresh))
-          (with-temp-buffer
-            (setq default-directory (process-get process 'default-dir))
-            (magit-refresh)))))))
-
-(defun magit-sequencer-process-sentinel (process event)
-  "Special sentinel used by `magit-run-git-sequencer'."
-  (when (memq (process-status process) '(exit signal))
-    (magit-process-sentinel process event)
-    (when-let* ((process-buf (process-buffer process))
-                ((buffer-live-p process-buf))
-                (status-buf (with-current-buffer process-buf
-                              (magit-get-mode-buffer 'magit-status-mode))))
-      (with-current-buffer status-buf
-        (when-let ((section
-                    (magit-get-section
-                     `((commit . ,(magit-rev-parse "HEAD"))
-                       (,(pcase (car (seq-drop
-                                      (process-command process)
-                                      (1+ (length magit-git-global-arguments))))
-                           ((or "rebase" "am") 'rebase-sequence)
-                           ((or "cherry-pick" "revert") 'sequence)))
-                       (status)))))
-          (goto-char (oref section start))
-          (magit-section-update-highlight))))))
-
-(defun magit-process-filter (proc string)
-  "Default filter used by `magit-start-process'."
-  (with-current-buffer (process-buffer proc)
-    (let ((inhibit-read-only t))
-      (goto-char (process-mark proc))
-      ;; Find last ^M in string.  If one was found, ignore
-      ;; everything before it and delete the current line.
-      (when-let ((ret-pos (cl-position ?\r string :from-end t)))
-        (setq string (substring string (1+ ret-pos)))
-        (delete-region (line-beginning-position) (point)))
-      (setq string (magit-process-remove-bogus-errors string))
-      (insert (propertize string 'magit-section
-                          (process-get proc 'section)))
-      (set-marker (process-mark proc) (point))
-      ;; Make sure prompts are matched after removing ^M.
-      (magit-process-yes-or-no-prompt proc string)
-      (magit-process-username-prompt  proc string)
-      (magit-process-password-prompt  proc string)
-      (run-hook-with-args-until-success 'magit-process-prompt-functions
-                                        proc string))))
-
-(defun magit-process-make-keymap (process parent)
-  "Remap `abort-minibuffers' to a command that also kills PROCESS.
-PARENT is used as the parent of the returned keymap."
-  (let ((cmd (lambda ()
-               (interactive)
-               (ignore-errors (kill-process process))
-               (if (fboundp 'abort-minibuffers)
-                   (abort-minibuffers)
-                 (abort-recursive-edit)))))
-    (define-keymap :parent parent
-      "C-g" cmd
-      "<remap> <abort-minibuffers>" cmd
-      "<remap> <abort-recursive-edit>" cmd)))
-
-(defmacro magit-process-kill-on-abort (process &rest body)
-  (declare (indent 1)
-           (debug (form body))
-           (obsolete magit-process-make-keymap "Magit 4.0.0"))
-  `(let ((minibuffer-local-map
-          (magit-process-make-keymap ,process minibuffer-local-map)))
-     ,@body))
-
-(defun magit-process-remove-bogus-errors (str)
-  (save-match-data
-    (when (string-match "^\\(\\*ERROR\\*: \\)Canceled by user" str)
-      (setq str (replace-match "" nil nil str 1)))
-    (when (string-match "^error: There was a problem with the editor.*\n" str)
-      (setq str (replace-match "" nil nil str)))
-    (when (string-match
-           "^Please supply the message using either -m or -F option\\.\n" str)
-      (setq str (replace-match "" nil nil str))))
-  str)
-
-(defun magit-process-yes-or-no-prompt (process string)
-  "Forward Yes-or-No prompts to the user."
-  (when-let ((beg (string-match magit-process-yes-or-no-prompt-regexp string)))
-    (process-send-string
-     process
-     (if (save-match-data
-           (let ((max-mini-window-height 30)
-                 (minibuffer-local-map
-                  (magit-process-make-keymap process minibuffer-local-map))
-                 ;; In case yes-or-no-p is fset to that, but does
-                 ;; not cover use-dialog-box-p and y-or-n-p-read-key.
-                 (y-or-n-p-map
-                  (magit-process-make-keymap process y-or-n-p-map)))
-             (yes-or-no-p (substring string 0 beg))))
-         (concat (downcase (match-string 1 string)) "\n")
-       (concat (downcase (match-string 2 string)) "\n")))))
-
-(defun magit-process-password-auth-source (key)
-  "Use `auth-source-search' to get a password.
-If found, return the password.  Otherwise, return nil.
-
-To use this function add it to the appropriate hook
-  (add-hook \\='magit-process-find-password-functions
-            \\='magit-process-password-auth-source)
-
-KEY typically derives from a prompt such as:
-  Password for \\='https://yourname@github.com\\='
-in which case it would be the string
-  yourname@github.com
-which matches the ~/.authinfo.gpg entry
-  machine github.com login yourname password 12345
-or iff that is undefined, for backward compatibility
-  machine yourname@github.com password 12345
-
-On github.com you should not use your password but a
-personal access token, see [1].  For information about
-the peculiarities of other forges, please consult the
-respective documentation.
-
-After manually editing ~/.authinfo.gpg you must reset
-the cache using
-  M-x auth-source-forget-all-cached RET
-
-The above will save you from having to repeatedly type
-your token or password, but you might still repeatedly
-be asked for your username.  To prevent that, change an
-URL like
-  https://github.com/foo/bar.git
-to
-  https://yourname@github.com/foo/bar.git
-
-Instead of changing all such URLs manually, they can
-be translated on the fly by doing this once
-  git config --global \
-    url.https://yourname@github.com.insteadOf \
-    https://github.com
-
-[1]: https://docs.github.com/en/github/authenticating-to-github/creating-a-personal-access-token."
-  (require 'auth-source)
-  (and (fboundp 'auth-source-search)
-       (string-match "\\`\\(.+\\)@\\([^@]+\\)\\'" key)
-       (let* ((user (match-string 1 key))
-              (host (match-string 2 key))
-              (secret
-               (plist-get
-                (car (or (auth-source-search :max 1 :host host :user user)
-                         (auth-source-search :max 1 :host key)))
-                :secret)))
-         (if (functionp secret)
-             (funcall secret)
-           secret))))
-
-(defun magit-process-git-credential-manager-core (process string)
-  "Authenticate using `git-credential-manager-core'.
-
-To use this function add it to the appropriate hook
-  (add-hook \\='magit-process-prompt-functions
-            \\='magit-process-git-credential-manager-core)"
-  (and (string-match "^option (enter for default): $" string)
-       (progn
-         (magit-process-buffer)
-         (let ((option (format "%c\n"
-                               (read-char-choice "Option: " '(?\r ?\j ?1 ?2)))))
-           (insert-before-markers-and-inherit option)
-           (process-send-string process option)))))
-
-(defun magit-process-password-prompt (process string)
-  "Find a password based on prompt STRING and send it to git.
-Use `magit-process-password-prompt-regexps' to find a known
-prompt.  If and only if one is found, then call functions in
-`magit-process-find-password-functions' until one of them returns
-the password.  If all functions return nil, then read the password
-from the user."
-  (when-let ((prompt (magit-process-match-prompt
-                      magit-process-password-prompt-regexps string)))
-    (process-send-string
-     process
-     (concat (or (and-let* ((key (match-string 99 string)))
-                   (run-hook-with-args-until-success
-                    'magit-process-find-password-functions key))
-                 (let ((read-passwd-map
-                        (magit-process-make-keymap process read-passwd-map)))
-                   (read-passwd prompt)))
-             "\n"))))
-
-(defun magit-process-username-prompt (process string)
-  "Forward username prompts to the user."
-  (when-let ((prompt (magit-process-match-prompt
-                      magit-process-username-prompt-regexps string)))
-    (process-send-string
-     process
-     (let ((minibuffer-local-map
-            (magit-process-make-keymap process minibuffer-local-map)))
-       (concat (read-string prompt nil nil (user-login-name)) "\n")))))
-
-(defun magit-process-match-prompt (prompts string)
-  "Match STRING against PROMPTS and set match data.
-Return the matched string suffixed with \": \", if needed."
-  (when (--any-p (string-match it string) prompts)
-    (let ((prompt (match-string 0 string)))
-      (cond ((string-suffix-p ": " prompt) prompt)
-            ((string-suffix-p ":"  prompt) (concat prompt " "))
-            (t                             (concat prompt ": "))))))
-
-(defun magit--process-coding-system ()
-  (let ((fro (or magit-git-output-coding-system
-                 (car default-process-coding-system)))
-        (to (cdr default-process-coding-system)))
-    (if magit-process-ensure-unix-line-ending
-        (cons (coding-system-change-eol-conversion fro 'unix)
-              (coding-system-change-eol-conversion to 'unix))
-      (cons fro to))))
-
-(defvar magit-credential-hook nil
-  "Hook run before Git needs credentials.")
-
-(defvar magit-credential-cache-daemon-process nil)
-
-(defun magit-maybe-start-credential-cache-daemon ()
-  "Maybe start a `git-credential-cache--daemon' process.
-
-If such a process is already running or if the value of option
-`magit-credential-cache-daemon-socket' is nil, then do nothing.
-Otherwise start the process passing the value of that options
-as argument."
-  (unless (or (not magit-credential-cache-daemon-socket)
-              (process-live-p magit-credential-cache-daemon-process)
-              (memq magit-credential-cache-daemon-process
-                    (list-system-processes)))
-    (setq magit-credential-cache-daemon-process
-          (or (--first (let* ((attr (process-attributes it))
-                              (comm (cdr (assq 'comm attr)))
-                              (user (cdr (assq 'user attr))))
-                         (and (string= comm "git-credential-cache--daemon")
-                              (string= user user-login-name)))
-                       (list-system-processes))
-              (condition-case nil
-                  (start-process "git-credential-cache--daemon"
-                                 " *git-credential-cache--daemon*"
-                                 (magit-git-executable)
-                                 "credential-cache--daemon"
-                                 magit-credential-cache-daemon-socket)
-                ;; Some Git implementations (e.g., Windows) won't have
-                ;; this program; if we fail the first time, stop trying.
-                ((debug error)
-                 (remove-hook 'magit-credential-hook
-                              #'magit-maybe-start-credential-cache-daemon)))))))
-
-(add-hook 'magit-credential-hook #'magit-maybe-start-credential-cache-daemon)
-
-(defvar-keymap magit-mode-line-process-map
-  :doc "Keymap for `mode-line-process'."
-  "<mode-line> <mouse-1>" 'magit-process-buffer)
-
-(defun magit-process-set-mode-line (program args)
-  "Display the git command (sans arguments) in the mode line."
-  (when (equal program (magit-git-executable))
-    (setq args (nthcdr (length magit-git-global-arguments) args)))
-  (let ((str (concat " " (propertize
-                          (concat (file-name-nondirectory program)
-                                  (and args (concat " " (car args))))
-                          'mouse-face 'highlight
-                          'keymap magit-mode-line-process-map
-                          'help-echo "mouse-1: Show process buffer"
-                          'font-lock-face 'magit-mode-line-process))))
-    (magit-repository-local-set 'mode-line-process str)
-    (dolist (buf (magit-mode-get-buffers))
-      (with-current-buffer buf
-        (setq mode-line-process str)))
-    (force-mode-line-update t)))
-
-(defun magit-process-set-mode-line-error-status (&optional error str)
-  "Apply an error face to the string set by `magit-process-set-mode-line'.
-
-If ERROR is supplied, include it in the `mode-line-process' tooltip.
-
-If STR is supplied, it replaces the `mode-line-process' text."
-  (setq str (or str (magit-repository-local-get 'mode-line-process)))
-  (when str
-    (setq error (format "%smouse-1: Show process buffer"
-                        (if (stringp error)
-                            (concat error "\n\n")
-                          "")))
-    (setq str (concat " " (propertize
-                           (substring-no-properties str 1)
-                           'mouse-face 'highlight
-                           'keymap magit-mode-line-process-map
-                           'help-echo error
-                           'font-lock-face 'magit-mode-line-process-error)))
-    (magit-repository-local-set 'mode-line-process str)
-    (dolist (buf (magit-mode-get-buffers))
-      (with-current-buffer buf
-        (setq mode-line-process str)))
-    (force-mode-line-update t)
-    ;; We remove any error status from the mode line when a magit
-    ;; buffer is refreshed (see `magit-refresh-buffer'), but we must
-    ;; ensure that we ignore any refreshes during the remainder of the
-    ;; current command -- otherwise a newly-set error status would be
-    ;; removed before it was seen.  We set a flag which prevents the
-    ;; status from being removed prior to the next command, so that
-    ;; the error status is guaranteed to remain visible until then.
-    (let ((repokey (magit-repository-local-repository)))
-      ;; The following closure captures the repokey value, and is
-      ;; added to `pre-command-hook'.
-      (cl-labels ((enable-magit-process-unset-mode-line ()
-                    ;; Remove ourself from the hook variable, so
-                    ;; that we only run once.
-                    (remove-hook 'pre-command-hook
-                                 #'enable-magit-process-unset-mode-line)
-                    ;; Clear the inhibit flag for the repository in
-                    ;; which we set it.
-                    (magit-repository-local-set
-                     'inhibit-magit-process-unset-mode-line nil repokey)))
-        ;; Set the inhibit flag until the next command is invoked.
-        (magit-repository-local-set
-         'inhibit-magit-process-unset-mode-line t repokey)
-        (add-hook 'pre-command-hook
-                  #'enable-magit-process-unset-mode-line)))))
-
-(defun magit-process-unset-mode-line-error-status ()
-  "Remove any current error status from the mode line."
-  (let ((status (or mode-line-process
-                    (magit-repository-local-get 'mode-line-process))))
-    (when (and status
-               (eq (get-text-property 1 'font-lock-face status)
-                   'magit-mode-line-process-error))
-      (magit-process-unset-mode-line))))
-
-(add-hook 'magit-refresh-buffer-hook
-          #'magit-process-unset-mode-line-error-status)
-
-(defun magit-process-unset-mode-line (&optional directory)
-  "Remove the git command from the mode line."
-  (let ((default-directory (or directory default-directory)))
-    (unless (magit-repository-local-get 'inhibit-magit-process-unset-mode-line)
-      (magit-repository-local-set 'mode-line-process nil)
-      (dolist (buf (magit-mode-get-buffers))
-        (with-current-buffer buf (setq mode-line-process nil)))
-      (force-mode-line-update t))))
-
-(defvar magit-process-error-message-regexps
-  (list "^\\*ERROR\\*: Canceled by user$"
-        "^\\(?:error\\|fatal\\|git\\): \\(.*\\)$"
-        "^\\(Cannot rebase:.*\\)$"))
-
-(define-error 'magit-git-error "Git error")
-
-(defun magit-process-error-summary (process-buf section)
-  "A one-line error summary from the given SECTION."
-  (or (and (buffer-live-p process-buf)
-           (with-current-buffer process-buf
-             (and (oref section content)
-                  (save-excursion
-                    (goto-char (oref section end))
-                    (run-hook-wrapped
-                     'magit-process-error-message-regexps
-                     (lambda (re)
-                       (save-excursion
-                         (and (re-search-backward
-                               re (oref section start) t)
-                              (or (match-string-no-properties 1)
-                                  (and (not magit-process-raise-error)
-                                       'suppressed))))))))))
-      "Git failed"))
-
-(defun magit-process-error-tooltip (process-buf section)
-  "Returns the text from SECTION of the PROCESS-BUF buffer.
-
-Limited by `magit-process-error-tooltip-max-lines'."
-  (and (integerp magit-process-error-tooltip-max-lines)
-       (> magit-process-error-tooltip-max-lines 0)
-       (buffer-live-p process-buf)
-       (with-current-buffer process-buf
-         (save-excursion
-           (goto-char (or (oref section content)
-                          (oref section start)))
-           (buffer-substring-no-properties
-            (point)
-            (save-excursion
-              (forward-line magit-process-error-tooltip-max-lines)
-              (goto-char
-               (if (> (point) (oref section end))
-                   (oref section end)
-                 (point)))
-              ;; Remove any trailing whitespace.
-              (when (re-search-backward "[^[:space:]\n]"
-                                        (oref section start) t)
-                (forward-char 1))
-              (point)))))))
-
-(defvar-local magit-this-error nil)
-
-(defvar magit-process-finish-apply-ansi-colors nil)
-
-(defun magit-process-finish (arg &optional process-buf command-buf
-                                 default-dir section)
-  (unless (integerp arg)
-    (setq process-buf (process-buffer arg))
-    (setq command-buf (process-get arg 'command-buf))
-    (setq default-dir (process-get arg 'default-dir))
-    (setq section     (process-get arg 'section))
-    (setq arg         (process-exit-status arg)))
-  (when (fboundp 'dired-uncache)
-    (dired-uncache default-dir))
-  (when (buffer-live-p process-buf)
-    (with-current-buffer process-buf
-      (magit-process-finish-section section arg)))
-  (if (= arg 0)
-      ;; Unset the `mode-line-process' value upon success.
-      (magit-process-unset-mode-line default-dir)
-    ;; Otherwise process the error.
-    (let ((msg (magit-process-error-summary process-buf section)))
-      ;; Change `mode-line-process' to an error face upon failure.
-      (if magit-process-display-mode-line-error
-          (magit-process-set-mode-line-error-status
-           (or (magit-process-error-tooltip process-buf section)
-               msg))
-        (magit-process-unset-mode-line default-dir))
-      ;; Either signal the error, or else display the error summary in
-      ;; the status buffer and with a message in the echo area.
-      (cond
-       (magit-process-raise-error
-        (signal 'magit-git-error (list (format "%s (in %s)" msg default-dir))))
-       ((not (eq msg 'suppressed))
-        (when (buffer-live-p process-buf)
-          (with-current-buffer process-buf
-            (when-let ((status-buf (magit-get-mode-buffer 'magit-status-mode)))
-              (with-current-buffer status-buf
-                (setq magit-this-error msg)))))
-        (message "%s ... [%s buffer %s for details]" msg
-                 (if-let ((key (and (buffer-live-p command-buf)
-                                    (with-current-buffer command-buf
-                                      (car (where-is-internal
-                                            'magit-process-buffer))))))
-                     (format "Hit %s to see" (key-description key))
-                   "See")
-                 (buffer-name process-buf))))))
-  arg)
-
-(defun magit-process-finish-section (section exit-code)
-  (let ((inhibit-read-only t)
-        (buffer (current-buffer))
-        (marker (oref section start)))
-    (goto-char marker)
-    (save-excursion
-      (delete-char 3)
-      (set-marker-insertion-type marker nil)
-      (insert (propertize (format "%3s" exit-code)
-                          'magit-section section
-                          'font-lock-face (if (= exit-code 0)
-                                              'magit-process-ok
-                                            'magit-process-ng)))
-      (set-marker-insertion-type marker t))
-    (when magit-process-finish-apply-ansi-colors
-      (ansi-color-apply-on-region (oref section content)
-                                  (oref section end)))
-    (if (= (oref section end)
-           (+ (line-end-position) 2))
-        (save-excursion
-          (goto-char (1+ (line-end-position)))
-          (delete-char -1)
-          (oset section content nil))
-      (when (and (= exit-code 0)
-                 (not (--any-p (eq (window-buffer it) buffer)
-                               (window-list))))
-        (magit-section-hide section)))))
-
-(defun magit-process-display-buffer (process)
-  (when (process-live-p process)
-    (let ((buf (process-buffer process)))
-      (cond ((not (buffer-live-p buf)))
-            ((= magit-process-popup-time 0)
-             (if (minibufferp)
-                 (switch-to-buffer-other-window buf)
-               (pop-to-buffer buf)))
-            ((> magit-process-popup-time 0)
-             (run-with-timer magit-process-popup-time nil
-                             (lambda (p)
-                               (when (eq (process-status p) 'run)
-                                 (let ((buf (process-buffer p)))
-                                   (when (buffer-live-p buf)
-                                     (if (minibufferp)
-                                         (switch-to-buffer-other-window buf)
-                                       (pop-to-buffer buf))))))
-                             process))))))
-
-(defun magit--log-action (summary line list)
-  (let (heading lines)
-    (if (cdr list)
-        (progn (setq heading (funcall summary list))
-               (setq lines (mapcar line list)))
-      (setq heading (funcall line (car list))))
-    (with-current-buffer (magit-process-buffer t)
-      (goto-char (1- (point-max)))
-      (let ((inhibit-read-only t))
-        (magit-insert-section (message)
-          (magit-insert-heading (concat "  * " heading))
-          (when lines
-            (dolist (line lines)
-              (insert line "\n"))
-            (insert "\n"))))
-      (let ((inhibit-message t))
-        (when heading
-          (setq lines (cons heading lines)))
-        (message (string-join lines "\n"))))))
-
-;;; _
-(provide 'magit-process)
-;;; magit-process.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-process.elc b/emacs/elpa/magit-20241116.1557/magit-process.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-remote.el b/emacs/elpa/magit-20241116.1557/magit-remote.el
@@ -1,398 +0,0 @@
-;;; magit-remote.el --- Transfer Git commits  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements remote commands.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defcustom magit-remote-add-set-remote.pushDefault 'ask-if-unset
-  "Whether to set the value of `remote.pushDefault' after adding a remote.
-
-If `ask', then always ask.  If `ask-if-unset', then ask, but only
-if the variable isn't set already.  If nil, then don't ever set.
-If the value is a string, then set without asking, provided that
-the name of the added remote is equal to that string and the
-variable isn't already set."
-  :package-version '(magit . "2.4.0")
-  :group 'magit-commands
-  :type '(choice (const  :tag "ask if unset" ask-if-unset)
-                 (const  :tag "always ask" ask)
-                 (string :tag "set if named")
-                 (const  :tag "don't set")))
-
-(defcustom magit-remote-direct-configure t
-  "Whether the command `magit-remote' shows Git variables.
-When set to nil, no variables are displayed by this transient
-command, instead the sub-transient `magit-remote-configure'
-has to be used to view and change remote related variables."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-commands
-  :type 'boolean)
-
-(defcustom magit-prefer-push-default nil
-  "Whether to prefer `remote.pushDefault' over per-branch variables."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-commands
-  :type 'boolean)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-remote "magit-remote" nil t)
-(transient-define-prefix magit-remote (remote)
-  "Add, configure or remove a remote."
-  :man-page "git-remote"
-  :value '("-f")
-  ["Variables"
-   :if (lambda () (and magit-remote-direct-configure (transient-scope)))
-   ("u" magit-remote.<remote>.url)
-   ("U" magit-remote.<remote>.fetch)
-   ("s" magit-remote.<remote>.pushurl)
-   ("S" magit-remote.<remote>.push)
-   ("O" magit-remote.<remote>.tagopt)]
-  ["Arguments for add"
-   ("-f" "Fetch after add" "-f")]
-  ["Actions"
-   [("a" "Add"                  magit-remote-add)
-    ("r" "Rename"               magit-remote-rename)
-    ("k" "Remove"               magit-remote-remove)]
-   [("C" "Configure..."         magit-remote-configure)
-    ("p" "Prune stale branches" magit-remote-prune)
-    ("P" "Prune stale refspecs" magit-remote-prune-refspecs)
-    ("b" magit-update-default-branch)
-    (7 "z" "Unshallow remote"   magit-remote-unshallow)]]
-  (interactive (list (magit-get-current-remote)))
-  (transient-setup 'magit-remote nil nil :scope remote))
-
-(defun magit-read-url (prompt &optional initial-input)
-  (let ((url (magit-read-string-ns prompt initial-input)))
-    (if (string-prefix-p "~" url)
-        (expand-file-name url)
-      url)))
-
-;;;###autoload
-(defun magit-remote-add (remote url &optional args)
-  "Add a remote named REMOTE and fetch it."
-  (interactive
-   (let ((origin (magit-get "remote.origin.url"))
-         (remote (magit-read-string-ns "Remote name")))
-     (list remote
-           (magit-read-url
-            "Remote url"
-            (and origin
-                 (string-match "\\([^:/]+\\)/[^/]+\\(\\.git\\)?\\'" origin)
-                 (replace-match remote t t origin 1)))
-           (transient-args 'magit-remote))))
-  (if (pcase (list magit-remote-add-set-remote.pushDefault
-                   (magit-get "remote.pushDefault"))
-        (`(,(pred stringp) ,_) t)
-        ((or `(ask ,_) '(ask-if-unset nil))
-         (y-or-n-p (format "Set `remote.pushDefault' to \"%s\"? " remote))))
-      (progn (magit-call-git "remote" "add" args remote url)
-             (setf (magit-get "remote.pushDefault") remote)
-             (magit-refresh))
-    (magit-run-git-async "remote" "add" args remote url)))
-
-;;;###autoload
-(defun magit-remote-rename (old new)
-  "Rename the remote named OLD to NEW."
-  (interactive
-   (let  ((remote (magit-read-remote "Rename remote")))
-     (list remote (magit-read-string-ns (format "Rename %s to" remote)))))
-  (unless (string= old new)
-    (magit-call-git "remote" "rename" old new)
-    (magit-remote--cleanup-push-variables old new)
-    (magit-refresh)))
-
-;;;###autoload
-(defun magit-remote-remove (remote)
-  "Delete the remote named REMOTE."
-  (interactive (list (magit-read-remote "Delete remote")))
-  (magit-call-git "remote" "rm" remote)
-  (magit-remote--cleanup-push-variables remote)
-  (magit-refresh))
-
-(defun magit-remote--cleanup-push-variables (remote &optional new-name)
-  (magit-with-toplevel
-    (when (equal (magit-get "remote.pushDefault") remote)
-      (magit-set new-name "remote.pushDefault"))
-    (dolist (var (magit-git-lines "config" "--name-only"
-                                  "--get-regexp" "^branch\\.[^.]*\\.pushRemote"
-                                  (format "^%s$" remote)))
-      (magit-call-git "config" (and (not new-name) "--unset") var new-name))))
-
-(defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'")
-
-;;;###autoload
-(defun magit-remote-prune (remote)
-  "Remove stale remote-tracking branches for REMOTE."
-  (interactive (list (magit-read-remote "Prune stale branches of remote")))
-  (magit-run-git-async "remote" "prune" remote))
-
-;;;###autoload
-(defun magit-remote-prune-refspecs (remote)
-  "Remove stale refspecs for REMOTE.
-
-A refspec is stale if there no longer exists at least one branch
-on the remote that would be fetched due to that refspec.  A stale
-refspec is problematic because its existence causes Git to refuse
-to fetch according to the remaining non-stale refspecs.
-
-If only stale refspecs remain, then offer to either delete the
-remote or to replace the stale refspecs with the default refspec.
-
-Also remove the remote-tracking branches that were created due to
-the now stale refspecs.  Other stale branches are not removed."
-  (interactive (list (magit-read-remote "Prune refspecs of remote")))
-  (let* ((tracking-refs (magit-list-remote-branches remote))
-         (remote-refs (magit-remote-list-refs remote))
-         (variable (format "remote.%s.fetch" remote))
-         (refspecs (magit-get-all variable))
-         stale)
-    (dolist (refspec refspecs)
-      (when (string-match magit--refspec-re refspec)
-        (let ((theirs (match-string 2 refspec))
-              (ours   (match-string 3 refspec)))
-          (unless (if (string-match "\\*" theirs)
-                      (let ((re (replace-match ".*" t t theirs)))
-                        (--some (string-match-p re it) remote-refs))
-                    (member theirs remote-refs))
-            (push (cons refspec
-                        (if (string-match "\\*" ours)
-                            (let ((re (replace-match ".*" t t ours)))
-                              (--filter (string-match-p re it) tracking-refs))
-                          (list (car (member ours tracking-refs)))))
-                  stale)))))
-    (if (not stale)
-        (message "No stale refspecs for remote %S" remote)
-      (if (= (length stale)
-             (length refspecs))
-          (magit-read-char-case
-              (format "All of %s's refspecs are stale.  " remote) nil
-            (?s "replace with [d]efault refspec"
-                (magit-set-all
-                 (list (format "+refs/heads/*:refs/remotes/%s/*" remote))
-                 variable))
-            (?r "[r]emove remote"
-                (magit-call-git "remote" "rm" remote))
-            (?a "or [a]abort"
-                (user-error "Abort")))
-        (if (if (length= stale 1)
-                (pcase-let ((`(,refspec . ,refs) (car stale)))
-                  (magit-confirm 'prune-stale-refspecs
-                    (list "Prune stale refspec %s and branch %%s" refspec)
-                    (list "Prune stale refspec %s and %%d branches" refspec)
-                    nil refs))
-              (magit-confirm 'prune-stale-refspecs nil
-                (format "Prune %%d stale refspecs and %d branches"
-                        (length (cl-mapcan (lambda (s) (copy-sequence (cdr s)))
-                                           stale)))
-                nil
-                (mapcar (pcase-lambda (`(,refspec . ,refs))
-                          (concat refspec "\n"
-                                  (mapconcat (lambda (b) (concat "  " b))
-                                             refs "\n")))
-                        stale)))
-            (pcase-dolist (`(,refspec . ,refs) stale)
-              (magit-call-git "config" "--unset" variable
-                              (regexp-quote refspec))
-              (magit--log-action
-               (lambda (refs)
-                 (format "Deleting %d branches" (length refs)))
-               (lambda (ref)
-                 (format "Deleting branch %s (was %s)" ref
-                         (magit-rev-parse "--short" ref)))
-               refs)
-              (dolist (ref refs)
-                (magit-call-git "update-ref" "-d" ref)))
-          (user-error "Abort")))
-      (magit-refresh))))
-
-;;;###autoload
-(defun magit-remote-set-head (remote &optional branch)
-  "Set the local representation of REMOTE's default branch.
-Query REMOTE and set the symbolic-ref refs/remotes/<remote>/HEAD
-accordingly.  With a prefix argument query for the branch to be
-used, which allows you to select an incorrect value if you fancy
-doing that."
-  (interactive
-   (let  ((remote (magit-read-remote "Set HEAD for remote")))
-     (list remote
-           (and current-prefix-arg
-                (magit-read-remote-branch (format "Set %s/HEAD to" remote)
-                                          remote nil nil t)))))
-  (magit-run-git "remote" "set-head" remote (or branch "--auto")))
-
-;;;###autoload
-(defun magit-remote-unset-head (remote)
-  "Unset the local representation of REMOTE's default branch.
-Delete the symbolic-ref \"refs/remotes/<remote>/HEAD\"."
-  (interactive (list (magit-read-remote "Unset HEAD for remote")))
-  (magit-run-git "remote" "set-head" remote "--delete"))
-
-;;;###autoload (autoload 'magit-update-default-branch "magit-remote" nil t)
-(transient-define-suffix magit-update-default-branch ()
-  "Update name of the default branch after upstream changed it."
-  :description "Update default branch"
-  :inapt-if-not #'magit-get-some-remote
-  (interactive)
-  (pcase-let ((`(,_remote ,oldname) (magit--get-default-branch))
-              (`( ,remote ,newname) (magit--get-default-branch t)))
-    (cond
-     ((equal oldname newname)
-      (setq oldname
-            (read-string
-             (format
-              "Name of default branch is still `%s', %s\n%s `%s': " oldname
-              "but the upstreams of some local branches might need updating."
-              "Name of upstream branches to replace with" newname)))
-      (magit--set-default-branch newname oldname)
-      (magit-refresh))
-     (t
-      (unless oldname
-        (setq oldname
-              (magit-read-other-local-branch
-               (format "Name of old default branch to be renamed to `%s'"
-                       newname)
-               newname "master")))
-      (cond
-       ((y-or-n-p (format "Default branch changed from `%s' to `%s' on %s.%s"
-                          oldname newname remote "  Do the same locally? "))
-        (magit--set-default-branch newname oldname)
-        (magit-refresh))
-       ((user-error "Abort")))))))
-
-;;;###autoload
-(defun magit-remote-unshallow (remote)
-  "Convert a shallow remote into a full one.
-If only a single refspec is set and it does not contain a
-wildcard, then also offer to replace it with the standard
-refspec."
-  (interactive (list (or (magit-get-current-remote)
-                         (magit-read-remote "Delete remote"))))
-  (let ((refspecs (magit-get-all "remote" remote "fetch"))
-        (standard (format "+refs/heads/*:refs/remotes/%s/*" remote)))
-    (when (and (length= refspecs 1)
-               (not (string-search "*" (car refspecs)))
-               (yes-or-no-p (format "Also replace refspec %s with %s? "
-                                    (car refspecs)
-                                    standard)))
-      (magit-set standard "remote" remote "fetch"))
-    (magit-git-fetch "--unshallow" remote)))
-
-;;; Configure
-
-;;;###autoload (autoload 'magit-remote-configure "magit-remote" nil t)
-(transient-define-prefix magit-remote-configure (remote)
-  "Configure a remote."
-  :man-page "git-remote"
-  [:description
-   (lambda ()
-     (concat (propertize "Configure " 'face 'transient-heading)
-             (propertize (transient-scope) 'face 'magit-branch-remote)))
-   ("u" magit-remote.<remote>.url)
-   ("U" magit-remote.<remote>.fetch)
-   ("s" magit-remote.<remote>.pushurl)
-   ("S" magit-remote.<remote>.push)
-   ("O" magit-remote.<remote>.tagopt)]
-  (interactive
-   (list (or (and (not current-prefix-arg)
-                  (not (and magit-remote-direct-configure
-                            (eq transient-current-command 'magit-remote)))
-                  (magit-get-current-remote))
-             (magit--read-remote-scope))))
-  (transient-setup 'magit-remote-configure nil nil :scope remote))
-
-(defun magit--read-remote-scope (&optional obj)
-  (magit-read-remote
-   (if obj
-       (format "Set %s for remote"
-               (format (oref obj variable) "<name>"))
-     "Configure remote")))
-
-(transient-define-infix magit-remote.<remote>.url ()
-  :class 'magit--git-variable:urls
-  :scope #'magit--read-remote-scope
-  :variable "remote.%s.url"
-  :multi-value t
-  :history-key 'magit-remote.<remote>.*url)
-
-(transient-define-infix magit-remote.<remote>.fetch ()
-  :class 'magit--git-variable
-  :scope #'magit--read-remote-scope
-  :variable "remote.%s.fetch"
-  :multi-value t)
-
-(transient-define-infix magit-remote.<remote>.pushurl ()
-  :class 'magit--git-variable:urls
-  :scope #'magit--read-remote-scope
-  :variable "remote.%s.pushurl"
-  :multi-value t
-  :history-key 'magit-remote.<remote>.*url
-  :seturl-arg "--push")
-
-(transient-define-infix magit-remote.<remote>.push ()
-  :class 'magit--git-variable
-  :scope #'magit--read-remote-scope
-  :variable "remote.%s.push")
-
-(transient-define-infix magit-remote.<remote>.tagopt ()
-  :class 'magit--git-variable:choices
-  :scope #'magit--read-remote-scope
-  :variable "remote.%s.tagOpt"
-  :choices '("--no-tags" "--tags"))
-
-;;; Transfer Utilities
-
-(defun magit--push-remote-variable (&optional branch short)
-  (unless branch
-    (setq branch (magit-get-current-branch)))
-  (magit--propertize-face
-   (if (or (not branch) magit-prefer-push-default)
-       (if short "pushDefault" "remote.pushDefault")
-     (if short "pushRemote" (format "branch.%s.pushRemote" branch)))
-   'bold))
-
-(defun magit--select-push-remote (prompt-suffix)
-  (let* ((branch (or (magit-get-current-branch)
-                     (user-error "No branch is checked out")))
-         (remote (magit-get-push-remote branch))
-         (changed nil))
-    (when (or current-prefix-arg
-              (not remote)
-              (not (member remote (magit-list-remotes))))
-      (setq changed t)
-      (setq remote
-            (magit-read-remote (format "Set %s and %s"
-                                       (magit--push-remote-variable)
-                                       prompt-suffix)))
-      (setf (magit-get (magit--push-remote-variable branch)) remote))
-    (list branch remote changed)))
-
-;;; _
-(provide 'magit-remote)
-;;; magit-remote.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-remote.elc b/emacs/elpa/magit-20241116.1557/magit-remote.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-repos.el b/emacs/elpa/magit-20241116.1557/magit-repos.el
@@ -1,546 +0,0 @@
-;;; magit-repos.el --- Listing repositories  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements support for listing repositories.  This
-;; includes getting a Lisp list of known repositories as well as a
-;; mode for listing repositories in a buffer.
-
-;;; Code:
-
-(require 'magit-core)
-
-(declare-function magit-status-setup-buffer "magit-status" (&optional directory))
-
-(defvar x-stretch-cursor)
-
-;;; Options
-
-(defcustom magit-repository-directories nil
-  "List of directories that are or contain Git repositories.
-
-Each element has the form (DIRECTORY . DEPTH).  DIRECTORY has
-to be a directory or a directory file-name, a string.  DEPTH,
-an integer, specifies the maximum depth to look for Git
-repositories.  If it is 0, then only add DIRECTORY itself.
-
-This option controls which repositories are being listed by
-`magit-list-repositories'.  It also affects `magit-status'
-\(which see) in potentially surprising ways."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-essentials
-  :type '(repeat (cons directory (integer :tag "Depth"))))
-
-(defgroup magit-repolist nil
-  "List repositories in a buffer."
-  :link '(info-link "(magit)Repository List")
-  :group 'magit-modes)
-
-(defcustom magit-repolist-mode-hook '(hl-line-mode)
-  "Hook run after entering Magit-Repolist mode."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-repolist
-  :type 'hook
-  :get #'magit-hook-custom-get
-  :options '(hl-line-mode))
-
-(defcustom magit-repolist-columns
-  '(("Name"    25 magit-repolist-column-ident
-     ())
-    ("Version" 25 magit-repolist-column-version
-     ((:sort magit-repolist-version<)))
-    ("B<U"      3 magit-repolist-column-unpulled-from-upstream
-     (;; (:help-echo "Upstream changes not in branch")
-      (:right-align t)
-      (:sort <)))
-    ("B>U"      3 magit-repolist-column-unpushed-to-upstream
-     (;; (:help-echo "Local changes not in upstream")
-      (:right-align t)
-      (:sort <)))
-    ("Path"    99 magit-repolist-column-path
-     ()))
-  "List of columns displayed by `magit-list-repositories'.
-
-Each element has the form (HEADER WIDTH FORMAT PROPS).
-
-HEADER is the string displayed in the header.  WIDTH is the width
-of the column.  FORMAT is a function that is called with one
-argument, the repository identification (usually its basename),
-and with `default-directory' bound to the toplevel of its working
-tree.  It has to return a string to be inserted or nil.  PROPS is
-an alist that supports the keys `:right-align', `:pad-right' and
-`:sort'.
-
-The `:sort' function has a weird interface described in the
-docstring of `tabulated-list--get-sort'.  Alternatively `<' and
-`magit-repolist-version<' can be used as those functions are
-automatically replaced with functions that satisfy the interface.
-Set `:sort' to nil to inhibit sorting; if unspecified, then the
-column is sortable using the default sorter.
-
-You may wish to display a range of numeric columns using just one
-character per column and without any padding between columns, in
-which case you should use an appropriate HEADER, set WIDTH to 1,
-and set `:pad-right' to 0.  \"+\" is substituted for numbers higher
-than 9."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-repolist
-  :type '(repeat (list :tag "Column"
-                       (string   :tag "Header Label")
-                       (integer  :tag "Column Width")
-                       (function :tag "Inserter Function")
-                       (repeat   :tag "Properties"
-                                 (list (choice :tag "Property"
-                                               (const :right-align)
-                                               (const :pad-right)
-                                               (const :sort)
-                                               (symbol))
-                                       (sexp   :tag "Value"))))))
-
-(defcustom magit-repolist-column-flag-alist
-  '((magit-untracked-files . "N")
-    (magit-unstaged-files . "U")
-    (magit-staged-files . "S"))
-  "Association list of predicates and flags for `magit-repolist-column-flag'.
-
-Each element is of the form (FUNCTION . FLAG).  Each FUNCTION is
-called with no arguments, with `default-directory' bound to the
-top level of a repository working tree, until one of them returns
-a non-nil value.  FLAG corresponding to that function is returned
-as the value of `magit-repolist-column-flag'."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-repolist
-  :type '(alist :key-type (function :tag "Predicate Function")
-                :value-type (string :tag "Flag")))
-
-(defcustom magit-repolist-sort-key '("Path" . nil)
-  "Initial sort key for buffer created by `magit-list-repositories'.
-If nil, no additional sorting is performed.  Otherwise, this
-should be a cons cell (NAME . FLIP).  NAME is a string matching
-one of the column names in `magit-repolist-columns'.  FLIP, if
-non-nil, means to invert the resulting sort."
-  :package-version '(magit . "3.2.0")
-  :group 'magit-repolist
-  :type '(choice (const nil)
-                 (cons (string :tag "Column name")
-                       (boolean :tag "Flip order"))))
-
-;;; List Repositories
-;;;; List Commands
-;;;###autoload
-(defun magit-list-repositories ()
-  "Display a list of repositories.
-
-Use the option `magit-repository-directories' to control which
-repositories are displayed."
-  (interactive)
-  (magit-repolist-setup (default-value 'magit-repolist-columns)))
-
-;;;; Mode Commands
-
-(defun magit-repolist-status (&optional _button)
-  "Show the status for the repository at point."
-  (interactive)
-  (if-let ((id (tabulated-list-get-id)))
-      (magit-status-setup-buffer (expand-file-name id))
-    (user-error "There is no repository at point")))
-
-(defun magit-repolist-mark ()
-  "Mark a repository and move to the next line."
-  (interactive)
-  (magit-repolist--ensure-padding)
-  (tabulated-list-put-tag "*" t))
-
-(defun magit-repolist-unmark ()
-  "Unmark a repository and move to the next line."
-  (interactive)
-  (tabulated-list-put-tag " " t))
-
-(defun magit-repolist-fetch (repos)
-  "Fetch all marked or listed repositories."
-  (interactive (list (magit-repolist--get-repos ?*)))
-  (run-hooks 'magit-credential-hook)
-  (magit-repolist--mapc (apply-partially #'magit-run-git "remote" "update")
-                        repos "Fetching in %s..."))
-
-(defun magit-repolist-find-file-other-frame (repos file)
-  "Find a file in all marked or listed repositories."
-  (interactive (list (magit-repolist--get-repos ?*)
-                     (read-string "Find file in repositories: ")))
-  (magit-repolist--mapc (apply-partially #'find-file-other-frame file) repos))
-
-(defun magit-repolist--ensure-padding ()
-  "Set `tabulated-list-padding' to 2, unless that is already non-zero."
-  (when (zerop tabulated-list-padding)
-    (setq tabulated-list-padding 2)
-    (tabulated-list-init-header)
-    (tabulated-list-print t)))
-
-(defun magit-repolist--get-repos (&optional char)
-  "Return marked repositories or `all' if none are marked.
-If optional CHAR is non-nil, then only return repositories
-marked with that character.  If no repositories are marked
-then ask whether to act on all repositories instead."
-  (or (magit-repolist--marked-repos char)
-      (if (magit-confirm 'repolist-all
-            "Nothing selected.  Act on ALL displayed repositories")
-          'all
-        (user-error "Abort"))))
-
-(defun magit-repolist--marked-repos (&optional char)
-  "Return marked repositories.
-If optional CHAR is non-nil, then only return repositories
-marked with that character."
-  (let (c list)
-    (save-excursion
-      (goto-char (point-min))
-      (while (not (eobp))
-        (setq c (char-after))
-        (unless (eq c ?\s)
-          (if char
-              (when (eq c char)
-                (push (tabulated-list-get-id) list))
-            (push (cons c (tabulated-list-get-id)) list)))
-        (forward-line)))
-    list))
-
-(defun magit-repolist--mapc (fn repos &optional msg)
-  "Apply FN to each directory in REPOS for side effects only.
-If REPOS is the symbol `all', then call FN for all displayed
-repositories.  When FN is called, `default-directory' is bound to
-the top-level directory of the current repository.  If optional
-MSG is non-nil then that is displayed around each call to FN.
-If it contains \"%s\" then the directory is substituted for that."
-  (when (eq repos 'all)
-    (setq repos nil)
-    (save-excursion
-      (goto-char (point-min))
-      (while (not (eobp))
-        (push (tabulated-list-get-id) repos)
-        (forward-line)))
-    (setq repos (nreverse repos)))
-  (let ((base default-directory)
-        (len (length repos))
-        (i 0))
-    (mapc (lambda (repo)
-            (let ((default-directory
-                   (file-name-as-directory (expand-file-name repo base))))
-              (if msg
-                  (let ((msg (concat (format "(%s/%s) " (cl-incf i) len)
-                                     (format msg default-directory))))
-                    (message msg)
-                    (funcall fn)
-                    (message (concat msg "done")))
-                (funcall fn))))
-          repos)))
-
-;;;; Mode
-
-(defvar-keymap magit-repolist-mode-map
-  :doc "Local keymap for Magit-Repolist mode buffers."
-  :parent tabulated-list-mode-map
-  "C-m" #'magit-repolist-status
-  "m"   #'magit-repolist-mark
-  "u"   #'magit-repolist-unmark
-  "f"   #'magit-repolist-fetch
-  "5"   #'magit-repolist-find-file-other-frame)
-
-(define-derived-mode magit-repolist-mode tabulated-list-mode "Repos"
-  "Major mode for browsing a list of Git repositories."
-  :interactive nil
-  :group 'magit-repolist
-  (setq-local x-stretch-cursor nil)
-  (setq tabulated-list-padding 0)
-  (add-hook 'tabulated-list-revert-hook #'magit-repolist-refresh nil t)
-  (setq imenu-prev-index-position-function
-        #'magit-repolist--imenu-prev-index-position)
-  (setq imenu-extract-index-name-function #'tabulated-list-get-id))
-
-(defun magit-repolist-setup (columns)
-  (unless magit-repository-directories
-    (user-error "You need to customize `magit-repository-directories' %s"
-                "before you can list repositories"))
-  (with-current-buffer (get-buffer-create "*Magit Repositories*")
-    (magit-repolist-mode)
-    (setq-local magit-repolist-columns columns)
-    (magit-repolist-setup-1)
-    (magit-repolist-refresh)
-    (switch-to-buffer (current-buffer))))
-
-(defun magit-repolist-setup-1 ()
-  (unless tabulated-list-sort-key
-    (setq tabulated-list-sort-key
-          (pcase-let ((`(,column . ,flip) magit-repolist-sort-key))
-            (cons (or (car (assoc column magit-repolist-columns))
-                      (caar magit-repolist-columns))
-                  flip))))
-  (setq tabulated-list-format
-        (vconcat (seq-map-indexed
-                  (lambda (column idx)
-                    (pcase-let* ((`(,title ,width ,_fn ,props) column)
-                                 (sort-set (assoc :sort props))
-                                 (sort-fn (cadr sort-set)))
-                      (nconc (list title width
-                                   (cond ((eq sort-fn '<)
-                                          (magit-repolist-make-sorter
-                                           sort-fn #'string-to-number idx))
-                                         ((eq sort-fn 'magit-repolist-version<)
-                                          (magit-repolist-make-sorter
-                                           sort-fn #'identity idx))
-                                         (sort-fn sort-fn)
-                                         (sort-set nil)
-                                         (t t)))
-                             (flatten-tree props))))
-                  magit-repolist-columns))))
-
-(defun magit-repolist-refresh ()
-  (setq tabulated-list-entries
-        (mapcar (pcase-lambda (`(,id . ,path))
-                  (let ((default-directory path))
-                    (list path
-                          (vconcat
-                           (mapcar (pcase-lambda (`(,title ,width ,fn ,props))
-                                     (or (funcall fn `((:id ,id)
-                                                       (:title ,title)
-                                                       (:width ,width)
-                                                       ,@props))
-                                         ""))
-                                   magit-repolist-columns)))))
-                (magit-list-repos-uniquify
-                 (--map (cons (file-name-nondirectory (directory-file-name it))
-                              it)
-                        (magit-list-repos)))))
-  (message "Listing repositories...")
-  (tabulated-list-init-header)
-  (tabulated-list-print t)
-  (message "Listing repositories...done"))
-
-(defun magit-repolist--imenu-prev-index-position ()
-  (and (not (bobp))
-       (forward-line -1)))
-
-;;;; Columns
-
-(defun magit-repolist-make-sorter (sort-predicate convert-cell column-idx)
-  "Return a function suitable as a sorter for tabulated lists.
-See `tabulated-list--get-sorter'.  Given a more reasonable API
-this would not be necessary and one could just use SORT-PREDICATE
-directly.  CONVERT-CELL can be used to turn the cell value, which
-is always a string back into, e.g., a number.  COLUMN-IDX has to
-be the index of the column that uses the returned sorter function."
-  (lambda (a b)
-    (funcall sort-predicate
-             (funcall convert-cell (aref (cadr a) column-idx))
-             (funcall convert-cell (aref (cadr b) column-idx)))))
-
-(defun magit-repolist-column-ident (spec)
-  "Insert the identification of the repository.
-Usually this is just its basename."
-  (cadr (assq :id spec)))
-
-(defun magit-repolist-column-path (_)
-  "Insert the absolute path of the repository."
-  (abbreviate-file-name default-directory))
-
-(defvar magit-repolist-column-version-regexp "\
-\\(?1:-\\(?2:[0-9]*\\)\
-\\(?3:-g[a-z0-9]*\\)\\)?\
-\\(?:-\\(?4:dirty\\)\\)\
-?\\'")
-
-(defvar magit-repolist-column-version-resume-regexp
-  "\\`Resume development\\'")
-
-(defun magit-repolist-column-version (_)
-  "Insert a description of the repository's `HEAD' revision."
-  (and-let* ((v (or (magit-git-string "describe" "--tags" "--dirty")
-                    ;; If there are no tags, use the date in MELPA format.
-                    (magit-rev-format "%cd-g%h" nil
-                                      "--date=format:%Y%m%d.%H%M"))))
-    (save-match-data
-      (when (string-match magit-repolist-column-version-regexp v)
-        (magit--put-face (match-beginning 0) (match-end 0) 'shadow v)
-        (when (match-end 2)
-          (magit--put-face (match-beginning 2) (match-end 2) 'bold v))
-        (when (match-end 4)
-          (magit--put-face (or (match-beginning 3) (match-beginning 4))
-                           (match-end 4) 'error v))
-        (when (and (equal (match-string 2 v) "1")
-                   (string-match-p magit-repolist-column-version-resume-regexp
-                                   (magit-rev-format "%s")))
-          (setq v (replace-match (propertize "+" 'face 'shadow) t t v 1))))
-      (if (and v (string-match "\\`[0-9]" v))
-          (concat " " v)
-        (when (and v (string-match "\\`[^0-9]+" v))
-          (magit--put-face 0 (match-end 0) 'shadow v))
-        v))))
-
-(defun magit-repolist-version< (a b)
-  (save-match-data
-    (let ((re "[0-9]+\\(\\.[0-9]*\\)*"))
-      (setq a (and (string-match re a) (match-string 0 a)))
-      (setq b (and (string-match re b) (match-string 0 b)))
-      (cond ((and a b) (version< a b))
-            (b nil)
-            (t t)))))
-
-(defun magit-repolist-column-branch (_)
-  "Insert the current branch."
-  (let ((branch (magit-get-current-branch)))
-    (if (member branch magit-main-branch-names)
-        (magit--propertize-face branch 'shadow)
-      branch)))
-
-(defun magit-repolist-column-upstream (_)
-  "Insert the upstream branch of the current branch."
-  (magit-get-upstream-branch))
-
-(defun magit-repolist-column-flag (_)
-  "Insert a flag as specified by `magit-repolist-column-flag-alist'.
-
-By default this indicates whether there are uncommitted changes.
-- N if there is at least one untracked file.
-- U if there is at least one unstaged file.
-- S if there is at least one staged file.
-Only one letter is shown, the first that applies."
-  (seq-some (pcase-lambda (`(,fun . ,flag))
-              (and (funcall fun) flag))
-            magit-repolist-column-flag-alist))
-
-(defun magit-repolist-column-flags (_)
-  "Insert all flags as specified by `magit-repolist-column-flag-alist'.
-This is an alternative to function `magit-repolist-column-flag',
-which only lists the first one found."
-  (mapconcat (pcase-lambda (`(,fun . ,flag))
-               (if (funcall fun) flag " "))
-             magit-repolist-column-flag-alist
-             ""))
-
-(defun magit-repolist-column-unpulled-from-upstream (spec)
-  "Insert number of upstream commits not in the current branch."
-  (and-let* ((br (magit-get-upstream-branch)))
-    (magit-repolist-insert-count (cadr (magit-rev-diff-count "HEAD" br)) spec)))
-
-(defun magit-repolist-column-unpulled-from-pushremote (spec)
-  "Insert number of commits in the push branch but not the current branch."
-  (and-let* ((br (magit-get-push-branch nil t)))
-    (magit-repolist-insert-count (cadr (magit-rev-diff-count "HEAD" br)) spec)))
-
-(defun magit-repolist-column-unpushed-to-upstream (spec)
-  "Insert number of commits in the current branch but not its upstream."
-  (and-let* ((br (magit-get-upstream-branch)))
-    (magit-repolist-insert-count (car (magit-rev-diff-count "HEAD" br)) spec)))
-
-(defun magit-repolist-column-unpushed-to-pushremote (spec)
-  "Insert number of commits in the current branch but not its push branch."
-  (and-let* ((br (magit-get-push-branch nil t)))
-    (magit-repolist-insert-count (car (magit-rev-diff-count "HEAD" br)) spec)))
-
-(defun magit-repolist-column-branches (spec)
-  "Insert number of branches."
-  (magit-repolist-insert-count (length (magit-list-local-branches))
-                               `((:normal-count 1) ,@spec)))
-
-(defun magit-repolist-column-stashes (spec)
-  "Insert number of stashes."
-  (magit-repolist-insert-count (length (magit-list-stashes)) spec))
-
-(defun magit-repolist-insert-count (n spec)
-  (magit--propertize-face
-   (if (and  (> n 9) (= (cadr (assq :width spec)) 1))
-       "+"
-     (number-to-string n))
-   (if (> n (or (cadr (assq :normal-count spec)) 0)) 'bold 'shadow)))
-
-;;; Read Repository
-
-(defun magit-read-repository (&optional read-directory-name)
-  "Read a Git repository in the minibuffer, with completion.
-
-The completion choices are the basenames of top-levels of
-repositories found in the directories specified by option
-`magit-repository-directories'.  In case of name conflicts
-the basenames are prefixed with the name of the respective
-parent directories.  The returned value is the actual path
-to the selected repository.
-
-If READ-DIRECTORY-NAME is non-nil or no repositories can be
-found based on the value of `magit-repository-directories',
-then read an arbitrary directory using `read-directory-name'
-instead."
-  (if-let ((repos (and (not read-directory-name)
-                       magit-repository-directories
-                       (magit-repos-alist))))
-      (let ((reply (magit-completing-read "Git repository" repos)))
-        (file-name-as-directory
-         (or (cdr (assoc reply repos))
-             (if (file-directory-p reply)
-                 (expand-file-name reply)
-               (user-error "Not a repository or a directory: %s" reply)))))
-    (file-name-as-directory
-     (read-directory-name "Git repository: "
-                          (or (magit-toplevel) default-directory)))))
-
-(defun magit-list-repos ()
-  (cl-mapcan (pcase-lambda (`(,dir . ,depth))
-               (magit-list-repos-1 dir depth))
-             magit-repository-directories))
-
-(defun magit-list-repos-1 (directory depth)
-  (cond ((file-readable-p (expand-file-name ".git" directory))
-         (list (file-name-as-directory directory)))
-        ((and (> depth 0) (file-accessible-directory-p directory))
-         (--mapcat (and (file-directory-p it)
-                        (magit-list-repos-1 it (1- depth)))
-                   (directory-files directory t
-                                    directory-files-no-dot-files-regexp t)))))
-
-(defun magit-list-repos-uniquify (alist)
-  (let (result (dict (make-hash-table :test #'equal)))
-    (dolist (a (delete-dups alist))
-      (puthash (car a) (cons (cdr a) (gethash (car a) dict)) dict))
-    (maphash
-     (lambda (key value)
-       (if (length= value 1)
-           (push (cons key (car value)) result)
-         (setq result
-               (append result
-                       (magit-list-repos-uniquify
-                        (--map (cons (concat
-                                      key "\\"
-                                      (file-name-nondirectory
-                                       (directory-file-name
-                                        (substring it 0 (- (1+ (length key)))))))
-                                     it)
-                               value))))))
-     dict)
-    result))
-
-(defun magit-repos-alist ()
-  (magit-list-repos-uniquify
-   (--map (cons (file-name-nondirectory (directory-file-name it)) it)
-          (magit-list-repos))))
-
-;;; _
-(provide 'magit-repos)
-;;; magit-repos.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-repos.elc b/emacs/elpa/magit-20241116.1557/magit-repos.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-status.el b/emacs/elpa/magit-20241116.1557/magit-status.el
@@ -1,802 +0,0 @@
-;;; magit-status.el --- The grand overview  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements the status buffer.
-
-;;; Code:
-
-(require 'magit)
-
-;;; Options
-
-(defgroup magit-status nil
-  "Inspect and manipulate Git repositories."
-  :link '(info-link "(magit)Status Buffer")
-  :group 'magit-modes)
-
-(defcustom magit-status-mode-hook nil
-  "Hook run after entering Magit-Status mode."
-  :group 'magit-status
-  :type 'hook)
-
-(defcustom magit-status-headers-hook
-  '(magit-insert-error-header
-    magit-insert-diff-filter-header
-    magit-insert-head-branch-header
-    magit-insert-upstream-branch-header
-    magit-insert-push-branch-header
-    magit-insert-tags-header)
-  "Hook run to insert headers into the status buffer.
-
-This hook is run by `magit-insert-status-headers', which in turn
-has to be a member of `magit-status-sections-hook' to be used at
-all."
-  :package-version '(magit . "2.1.0")
-  :group 'magit-status
-  :type 'hook
-  :options '(magit-insert-error-header
-             magit-insert-diff-filter-header
-             magit-insert-repo-header
-             magit-insert-remote-header
-             magit-insert-head-branch-header
-             magit-insert-upstream-branch-header
-             magit-insert-push-branch-header
-             magit-insert-tags-header))
-
-(defcustom magit-status-sections-hook
-  '(magit-insert-status-headers
-    magit-insert-merge-log
-    magit-insert-rebase-sequence
-    magit-insert-am-sequence
-    magit-insert-sequencer-sequence
-    magit-insert-bisect-output
-    magit-insert-bisect-rest
-    magit-insert-bisect-log
-    magit-insert-untracked-files
-    magit-insert-unstaged-changes
-    magit-insert-staged-changes
-    magit-insert-stashes
-    magit-insert-unpushed-to-pushremote
-    magit-insert-unpushed-to-upstream-or-recent
-    magit-insert-unpulled-from-pushremote
-    magit-insert-unpulled-from-upstream)
-  "Hook run to insert sections into a status buffer."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-status
-  :type 'hook)
-
-(defcustom magit-status-initial-section '(1)
-  "The section point is placed on when a status buffer is created.
-
-When such a buffer is merely being refreshed or being shown again
-after it was merely buried, then this option has no effect.
-
-If this is nil, then point remains on the very first section as
-usual.  Otherwise it has to be a list of integers and section
-identity lists.  The members of that list are tried in order
-until a matching section is found.
-
-An integer means to jump to the nth section, 1 for example
-jumps over the headings.  To get a section's \"identity list\"
-use \\[universal-argument] \\[magit-describe-section-briefly].
-
-If, for example, you want to jump to the commits that haven't
-been pulled from the upstream, or else the second section, then
-use: (((unpulled . \"..@{upstream}\") (status)) 1).
-
-See option `magit-section-initial-visibility-alist' for how to
-control the initial visibility of the jumped to section."
-  :package-version '(magit . "2.90.0")
-  :group 'magit-status
-  :type '(choice (const :tag "as usual" nil)
-                 (repeat (choice (number :tag "nth top-level section")
-                                 (sexp   :tag "section identity")))))
-
-(defcustom magit-status-goto-file-position nil
-  "Whether to go to position corresponding to file position.
-
-If this is non-nil and the current buffer is visiting a file,
-then `magit-status' tries to go to the position in the status
-buffer that corresponds to the position in the file-visiting
-buffer.  This jumps into either the diff of unstaged changes
-or the diff of staged changes.
-
-If the previously current buffer does not visit a file, or if
-the file has neither unstaged nor staged changes then this has
-no effect.
-
-The command `magit-status-here' tries to go to that position,
-regardless of the value of this option."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-status
-  :type 'boolean)
-
-(defcustom magit-status-show-hashes-in-headers nil
-  "Whether headers in the status buffer show hashes.
-The functions which respect this option are
-`magit-insert-head-branch-header',
-`magit-insert-upstream-branch-header', and
-`magit-insert-push-branch-header'."
-  :package-version '(magit . "2.4.0")
-  :group 'magit-status
-  :type 'boolean)
-
-(defcustom magit-status-margin
-  (list nil
-        (nth 1 magit-log-margin)
-        'magit-log-margin-width nil
-        (nth 4 magit-log-margin))
-  "Format of the margin in `magit-status-mode' buffers.
-
-The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
-
-If INIT is non-nil, then the margin is shown initially.
-STYLE controls how to format the author or committer date.
-  It can be one of `age' (to show the age of the commit),
-  `age-abbreviated' (to abbreviate the time unit to a character),
-  or a string (suitable for `format-time-string') to show the
-  actual date.  Option `magit-log-margin-show-committer-date'
-  controls which date is being displayed.
-WIDTH controls the width of the margin.  This exists for forward
-  compatibility and currently the value should not be changed.
-AUTHOR controls whether the name of the author is also shown by
-  default.
-AUTHOR-WIDTH has to be an integer.  When the name of the author
-  is shown, then this specifies how much space is used to do so."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-status
-  :group 'magit-margin
-  :type magit-log-margin--custom-type
-  :initialize #'magit-custom-initialize-reset
-  :set-after '(magit-log-margin)
-  :set (apply-partially #'magit-margin-set-variable 'magit-status-mode))
-
-(defcustom magit-status-use-buffer-arguments 'selected
-  "Whether `magit-status' reuses arguments when the buffer already exists.
-
-This option has no effect when merely refreshing the status
-buffer using `magit-refresh'.
-
-Valid values are:
-
-`always': Always use the set of arguments that is currently
-  active in the status buffer, provided that buffer exists
-  of course.
-`selected': Use the set of arguments from the status
-  buffer, but only if it is displayed in a window of the
-  current frame.  This is the default.
-`current': Use the set of arguments from the status buffer,
-  but only if it is the current buffer.
-`never': Never use the set of arguments from the status
-  buffer."
-  :package-version '(magit . "3.0.0")
-  :group 'magit-buffers
-  :group 'magit-commands
-  :type '(choice
-          (const :tag "always use args from buffer" always)
-          (const :tag "use args from buffer if displayed in frame" selected)
-          (const :tag "use args from buffer if it is current" current)
-          (const :tag "never use args from buffer" never)))
-
-;;; Commands
-
-;;;###autoload
-(defun magit-init (directory)
-  "Initialize a Git repository, then show its status.
-
-If the directory is below an existing repository, then the user
-has to confirm that a new one should be created inside.  If the
-directory is the root of the existing repository, then the user
-has to confirm that it should be reinitialized.
-
-Non-interactively DIRECTORY is (re-)initialized unconditionally."
-  (interactive
-   (let ((directory (file-name-as-directory
-                     (expand-file-name
-                      (read-directory-name "Create repository in: ")))))
-     (when-let ((toplevel (magit-toplevel directory)))
-       (setq toplevel (expand-file-name toplevel))
-       (unless (y-or-n-p (if (file-equal-p toplevel directory)
-                             (format "Reinitialize existing repository %s? "
-                                     directory)
-                           (format "%s is a repository.  Create another in %s? "
-                                   toplevel directory)))
-         (user-error "Abort")))
-     (list directory)))
-  ;; `git init' does not understand the meaning of "~"!
-  (magit-call-git "init" (magit-convert-filename-for-git
-                          (expand-file-name directory)))
-  (magit-status-setup-buffer directory))
-
-;;;###autoload
-(defun magit-status (&optional directory cache)
-  "Show the status of the current Git repository in a buffer.
-
-If the current directory isn't located within a Git repository,
-then prompt for an existing repository or an arbitrary directory,
-depending on option `magit-repository-directories', and show the
-status of the selected repository instead.
-
-* If that option specifies any existing repositories, then offer
-  those for completion and show the status buffer for the
-  selected one.
-
-* Otherwise read an arbitrary directory using regular file-name
-  completion.  If the selected directory is the top-level of an
-  existing working tree, then show the status buffer for that.
-
-* Otherwise offer to initialize the selected directory as a new
-  repository.  After creating the repository show its status
-  buffer.
-
-These fallback behaviors can also be forced using one or more
-prefix arguments:
-
-* With two prefix arguments (or more precisely a numeric prefix
-  value of 16 or greater) read an arbitrary directory and act on
-  it as described above.  The same could be accomplished using
-  the command `magit-init'.
-
-* With a single prefix argument read an existing repository, or
-  if none can be found based on `magit-repository-directories',
-  then fall back to the same behavior as with two prefix
-  arguments."
-  (interactive
-   (let ((magit--refresh-cache (list (cons 0 0))))
-     (list (and (or current-prefix-arg (not (magit-toplevel)))
-                (progn (magit--assert-usable-git)
-                       (magit-read-repository
-                        (>= (prefix-numeric-value current-prefix-arg) 16))))
-           magit--refresh-cache)))
-  (let ((magit--refresh-cache (or cache (list (cons 0 0)))))
-    (if directory
-        (let ((toplevel (magit-toplevel directory)))
-          (setq directory (file-name-as-directory
-                           (expand-file-name directory)))
-          (if (and toplevel (file-equal-p directory toplevel))
-              (magit-status-setup-buffer directory)
-            (when (y-or-n-p
-                   (if toplevel
-                       (format "%s is a repository.  Create another in %s? "
-                               toplevel directory)
-                     (format "Create repository in %s? " directory)))
-              ;; Creating a new repository invalidates cached values.
-              (setq magit--refresh-cache nil)
-              (magit-init directory))))
-      (magit-status-setup-buffer default-directory))))
-
-(put 'magit-status 'interactive-only 'magit-status-setup-buffer)
-
-;;;###autoload
-(defalias 'magit #'magit-status
-  "Begin using Magit.
-
-This alias for `magit-status' exists for better discoverability.
-
-Instead of invoking this alias for `magit-status' using
-\"M-x magit RET\", you should bind a key to `magit-status'
-and read the info node `(magit)Getting Started', which
-also contains other useful hints.")
-
-;;;###autoload
-(defun magit-status-here ()
-  "Like `magit-status' but with non-nil `magit-status-goto-file-position'."
-  (interactive)
-  (let ((magit-status-goto-file-position t))
-    (call-interactively #'magit-status)))
-
-(put 'magit-status-here 'interactive-only 'magit-status-setup-buffer)
-
-;;;###autoload
-(defun magit-status-quick ()
-  "Show the status of the current Git repository, maybe without refreshing.
-
-If the status buffer of the current Git repository exists but
-isn't being displayed in the selected frame, then display it
-without refreshing it.
-
-If the status buffer is being displayed in the selected frame,
-then also refresh it.
-
-Prefix arguments have the same meaning as for `magit-status',
-and additionally cause the buffer to be refresh.
-
-To use this function instead of `magit-status', add this to your
-init file: (global-set-key (kbd \"C-x g\") \\='magit-status-quick)."
-  (interactive)
-  (if-let ((buffer
-            (and (not current-prefix-arg)
-                 (not (magit-get-mode-buffer 'magit-status-mode nil 'selected))
-                 (magit-get-mode-buffer 'magit-status-mode))))
-      (magit-display-buffer buffer)
-    (call-interactively #'magit-status)))
-
-;;; Mode
-
-(defvar-keymap magit-status-mode-map
-  :doc "Keymap for `magit-status-mode'."
-  :parent magit-mode-map
-  "j" #'magit-status-jump
-  "<remap> <dired-jump>" #'magit-dired-jump)
-
-(transient-define-prefix magit-status-jump ()
-  "In a Magit-Status buffer, jump to a section."
-  [["Jump to"
-    ("z " magit-jump-to-stashes)
-    ("t " magit-jump-to-tracked)
-    ("n " magit-jump-to-untracked)
-    ("i " magit-jump-to-ignored)
-    ("u " magit-jump-to-unstaged)
-    ("s " magit-jump-to-staged)]
-   [""
-    ("fu" magit-jump-to-unpulled-from-upstream)
-    ("fp" magit-jump-to-unpulled-from-pushremote)
-    ("pu" magit-jump-to-unpushed-to-upstream)
-    ("pp" magit-jump-to-unpushed-to-pushremote)
-    ("a " magit-jump-to-assume-unchanged)
-    ("w " magit-jump-to-skip-worktree)]
-   ["Jump using"
-    ("j"  "Imenu" imenu)]])
-
-(define-derived-mode magit-status-mode magit-mode "Magit"
-  "Mode for looking at Git status.
-
-This mode is documented in info node `(magit)Status Buffer'.
-
-\\<magit-mode-map>\
-Type \\[magit-refresh] to refresh the current buffer.
-Type \\[magit-section-toggle] to expand or hide the section at point.
-Type \\[magit-visit-thing] to visit the change or commit at point.
-
-Type \\[magit-dispatch] to invoke major commands.
-
-Staging and applying changes is documented in info node
-`(magit)Staging and Unstaging' and info node `(magit)Applying'.
-
-\\<magit-hunk-section-map>Type \
-\\[magit-apply] to apply the change at point, \
-\\[magit-stage] to stage,
-\\[magit-unstage] to unstage, \
-\\[magit-discard] to discard, or \
-\\[magit-reverse] to reverse it.
-
-\\<magit-status-mode-map>\
-Type \\[magit-commit] to create a commit.
-
-\\{magit-status-mode-map}"
-  :interactive nil
-  :group 'magit-status
-  (magit-hack-dir-local-variables)
-  (when magit-status-initial-section
-    (add-hook 'magit-post-create-buffer-hook
-              #'magit-status-goto-initial-section nil t))
-  (setq magit--imenu-group-types '(not branch commit)))
-
-(put 'magit-status-mode 'magit-diff-default-arguments
-     '("--no-ext-diff"))
-(put 'magit-status-mode 'magit-log-default-arguments
-     '("-n256" "--decorate"))
-
-;;;###autoload
-(defun magit-status-setup-buffer (&optional directory)
-  (unless directory
-    (setq directory default-directory))
-  (when (file-remote-p directory)
-    (magit-git-version-assert))
-  (let* ((default-directory directory)
-         (d (magit-diff--get-value 'magit-status-mode
-                                   magit-status-use-buffer-arguments))
-         (l (magit-log--get-value 'magit-status-mode
-                                  magit-status-use-buffer-arguments))
-         (file (and magit-status-goto-file-position
-                    (magit-file-relative-name)))
-         (line (and file (save-restriction (widen) (line-number-at-pos))))
-         (col  (and file (save-restriction (widen) (current-column))))
-         (buf  (magit-setup-buffer #'magit-status-mode nil
-                 (magit-buffer-diff-args  (nth 0 d))
-                 (magit-buffer-diff-files (nth 1 d))
-                 (magit-buffer-log-args   (nth 0 l))
-                 (magit-buffer-log-files  (nth 1 l)))))
-    (when file
-      (with-current-buffer buf
-        (let ((staged (magit-get-section '((staged) (status)))))
-          (if (and staged
-                   (cadr (magit-diff--locate-hunk file line staged)))
-              (magit-diff--goto-position file line col staged)
-            (let ((unstaged (magit-get-section '((unstaged) (status)))))
-              (unless (and unstaged
-                           (magit-diff--goto-position file line col unstaged))
-                (when staged
-                  (magit-diff--goto-position file line col staged))))))))
-    buf))
-
-(defun magit-status-refresh-buffer ()
-  (magit-git-exit-code "update-index" "--refresh")
-  (magit-insert-section (status)
-    (magit-run-section-hook 'magit-status-sections-hook)))
-
-(defun magit-status-goto-initial-section ()
-  "Jump to the section specified by `magit-status-initial-section'."
-  (when-let ((section
-              (--some (if (integerp it)
-                          (nth (1- it)
-                               (magit-section-siblings (magit-current-section)
-                                                       'next))
-                        (magit-get-section it))
-                      magit-status-initial-section)))
-    (goto-char (oref section start))
-    (when-let ((vis (cdr (assq 'magit-status-initial-section
-                               magit-section-initial-visibility-alist))))
-      (if (eq vis 'hide)
-          (magit-section-hide section)
-        (magit-section-show section)))))
-
-(defun magit-status-maybe-update-revision-buffer (&optional _)
-  "When moving in the status buffer, update the revision buffer.
-If there is no revision buffer in the same frame, then do nothing."
-  (when (derived-mode-p 'magit-status-mode)
-    (magit--maybe-update-revision-buffer)))
-
-(defun magit-status-maybe-update-stash-buffer (&optional _)
-  "When moving in the status buffer, update the stash buffer.
-If there is no stash buffer in the same frame, then do nothing."
-  (when (derived-mode-p 'magit-status-mode)
-    (magit--maybe-update-stash-buffer)))
-
-(defun magit-status-maybe-update-blob-buffer (&optional _)
-  "When moving in the status buffer, update the blob buffer.
-If there is no blob buffer in the same frame, then do nothing."
-  (when (derived-mode-p 'magit-status-mode)
-    (magit--maybe-update-blob-buffer)))
-
-;;; Sections
-;;;; Special Headers
-
-(defun magit-insert-status-headers ()
-  "Insert header sections appropriate for `magit-status-mode' buffers.
-The sections are inserted by running the functions on the hook
-`magit-status-headers-hook'."
-  (if (magit-rev-verify "HEAD")
-      (magit-insert-headers 'magit-status-headers-hook)
-    (insert "In the beginning there was darkness\n\n")))
-
-(defvar-keymap magit-error-section-map
-  :doc "Keymap for `error' sections."
-  "<remap> <magit-visit-thing>" #'magit-process-buffer
-  "<1>" (magit-menu-item "Visit process output" #'magit-process-buffer))
-
-(defun magit-insert-error-header ()
-  "Insert the message about the Git error that just occurred.
-
-This function is only aware of the last error that occur when Git
-was run for side-effects.  If, for example, an error occurs while
-generating a diff, then that error won't be inserted.  Refreshing
-the status buffer causes this section to disappear again."
-  (when magit-this-error
-    (magit-insert-section (error 'git)
-      (insert (propertize (format "%-10s" "GitError! ")
-                          'font-lock-face 'magit-section-heading))
-      (insert (propertize magit-this-error 'font-lock-face 'error))
-      (when-let ((key (car (where-is-internal 'magit-process-buffer))))
-        (insert (format "  [Type `%s' for details]" (key-description key))))
-      (insert ?\n))
-    (setq magit-this-error nil)))
-
-(defun magit-insert-diff-filter-header ()
-  "Insert a header line showing the effective diff filters."
-  (let ((ignore-modules (magit-ignore-submodules-p)))
-    (when (or ignore-modules
-              magit-buffer-diff-files)
-      (insert (propertize (format "%-10s" "Filter! ")
-                          'font-lock-face 'magit-section-heading))
-      (when ignore-modules
-        (insert ignore-modules)
-        (when magit-buffer-diff-files
-          (insert " -- ")))
-      (when magit-buffer-diff-files
-        (insert (string-join magit-buffer-diff-files " ")))
-      (insert ?\n))))
-
-;;;; Reference Headers
-
-(defun magit-insert-head-branch-header (&optional branch)
-  "Insert a header line about the current branch.
-If `HEAD' is detached, then insert information about that commit
-instead.  The optional BRANCH argument is for internal use only."
-  (let ((branch (or branch (magit-get-current-branch)))
-        (output (magit-rev-format "%h %s" (or branch "HEAD"))))
-    (string-match "^\\([^ ]+\\) \\(.*\\)" output)
-    (magit-bind-match-strings (commit summary) output
-      (when (equal summary "")
-        (setq summary "(no commit message)"))
-      (if branch
-          (magit-insert-section (branch branch)
-            (insert (format "%-10s" "Head: "))
-            (when magit-status-show-hashes-in-headers
-              (insert (propertize commit 'font-lock-face 'magit-hash) ?\s))
-            (insert (propertize branch 'font-lock-face 'magit-branch-local))
-            (insert ?\s)
-            (insert (funcall magit-log-format-message-function branch summary))
-            (insert ?\n))
-        (magit-insert-section (commit commit)
-          (insert (format "%-10s" "Head: "))
-          (insert (propertize commit 'font-lock-face 'magit-hash))
-          (insert ?\s)
-          (insert (funcall magit-log-format-message-function nil summary))
-          (insert ?\n))))))
-
-(defun magit-insert-upstream-branch-header (&optional branch upstream keyword)
-  "Insert a header line about the upstream of the current branch.
-If no branch is checked out, then insert nothing.  The optional
-arguments are for internal use only."
-  (when-let ((branch (or branch (magit-get-current-branch))))
-    (let ((remote (magit-get "branch" branch "remote"))
-          (merge  (magit-get "branch" branch "merge"))
-          (rebase (magit-get "branch" branch "rebase")))
-      (when (or remote merge)
-        (unless upstream
-          (setq upstream (magit-get-upstream-branch branch)))
-        (magit-insert-section (branch upstream)
-          (pcase rebase
-            ("true")
-            ("false" (setq rebase nil))
-            (_       (setq rebase (magit-get-boolean "pull.rebase"))))
-          (insert (format "%-10s" (or keyword (if rebase "Rebase: " "Merge: "))))
-          (insert
-           (if upstream
-               (concat (and magit-status-show-hashes-in-headers
-                            (concat (propertize (magit-rev-format "%h" upstream)
-                                                'font-lock-face 'magit-hash)
-                                    " "))
-                       upstream " "
-                       (funcall magit-log-format-message-function upstream
-                                (funcall magit-log-format-message-function nil
-                                         (or (magit-rev-format "%s" upstream)
-                                             "(no commit message)"))))
-             (cond
-              ((magit--unnamed-upstream-p remote merge)
-               (concat (propertize merge  'font-lock-face 'magit-branch-remote)
-                       " from "
-                       (propertize remote 'font-lock-face 'bold)))
-              ((magit--valid-upstream-p remote merge)
-               (if (equal remote ".")
-                   (concat
-                    (propertize merge 'font-lock-face 'magit-branch-local) " "
-                    (propertize "does not exist"
-                                'font-lock-face 'magit-branch-warning))
-                 (format
-                  "%s %s %s"
-                  (propertize merge 'font-lock-face 'magit-branch-remote)
-                  (propertize "does not exist on"
-                              'font-lock-face 'magit-branch-warning)
-                  (propertize remote 'font-lock-face 'magit-branch-remote))))
-              (t
-               (propertize "invalid upstream configuration"
-                           'font-lock-face 'magit-branch-warning)))))
-          (insert ?\n))))))
-
-(defun magit-insert-push-branch-header ()
-  "Insert a header line about the branch the current branch is pushed to."
-  (when-let* ((branch (magit-get-current-branch))
-              (target (magit-get-push-branch branch)))
-    (magit-insert-section (branch target)
-      (insert (format "%-10s" "Push: "))
-      (insert
-       (if (magit-rev-verify target)
-           (concat (and magit-status-show-hashes-in-headers
-                        (concat (propertize (magit-rev-format "%h" target)
-                                            'font-lock-face 'magit-hash)
-                                " "))
-                   target " "
-                   (funcall magit-log-format-message-function target
-                            (funcall magit-log-format-message-function nil
-                                     (or (magit-rev-format "%s" target)
-                                         "(no commit message)"))))
-         (let ((remote (magit-get-push-remote branch)))
-           (if (magit-remote-p remote)
-               (concat target " "
-                       (propertize "does not exist"
-                                   'font-lock-face 'magit-branch-warning))
-             (concat remote " "
-                     (propertize "remote does not exist"
-                                 'font-lock-face 'magit-branch-warning))))))
-      (insert ?\n))))
-
-(defun magit-insert-tags-header ()
-  "Insert a header line about the current and/or next tag."
-  (let* ((this-tag (magit-get-current-tag nil t))
-         (next-tag (magit-get-next-tag nil t))
-         (this-cnt (cadr this-tag))
-         (next-cnt (cadr next-tag))
-         (this-tag (car this-tag))
-         (next-tag (car next-tag))
-         (both-tags (and this-tag next-tag t)))
-    (when (or this-tag next-tag)
-      (magit-insert-section (tag (or this-tag next-tag))
-        (insert (format "%-10s" (if both-tags "Tags: " "Tag: ")))
-        (cl-flet ((insert-count (tag count face)
-                    (insert (concat (propertize tag 'font-lock-face 'magit-tag)
-                                    (and (> count 0)
-                                         (format " (%s)"
-                                                 (propertize
-                                                  (format "%s" count)
-                                                  'font-lock-face face)))))))
-          (when this-tag  (insert-count this-tag this-cnt 'magit-branch-local))
-          (when both-tags (insert ", "))
-          (when next-tag  (insert-count next-tag next-cnt 'magit-tag)))
-        (insert ?\n)))))
-
-;;;; Auxiliary Headers
-
-(defun magit-insert-user-header ()
-  "Insert a header line about the current user."
-  (let ((name  (magit-get "user.name"))
-        (email (magit-get "user.email")))
-    (when (and name email)
-      (magit-insert-section (user name)
-        (insert (format "%-10s" "User: "))
-        (insert (propertize name 'font-lock-face 'magit-log-author))
-        (insert " <" email ">\n")))))
-
-(defun magit-insert-repo-header ()
-  "Insert a header line showing the path to the repository top-level."
-  (let ((topdir (magit-toplevel)))
-    (magit-insert-section (repo topdir)
-      (insert (format "%-10s%s\n" "Repo: " (abbreviate-file-name topdir))))))
-
-(defun magit-insert-remote-header ()
-  "Insert a header line about the remote of the current branch.
-
-If no remote is configured for the current branch, then fall back
-showing the \"origin\" remote, or if that does not exist the first
-remote in alphabetic order."
-  (when-let* ((name (magit-get-some-remote))
-              ;; Under certain configurations it's possible for
-              ;; url to be nil, when name is not, see #2858.
-              (url (magit-get "remote" name "url")))
-    (magit-insert-section (remote name)
-      (insert (format "%-10s" "Remote: "))
-      (insert (propertize name 'font-lock-face 'magit-branch-remote) ?\s)
-      (insert url ?\n))))
-
-;;;; File Sections
-
-(defvar-keymap magit-untracked-section-map
-  :doc "Keymap for the `untracked' section."
-  "<remap> <magit-delete-thing>" #'magit-discard
-  "<remap> <magit-stage-file>"   #'magit-stage
-  "<2>" (magit-menu-item "Discard files" #'magit-discard)
-  "<1>" (magit-menu-item "Stage files"   #'magit-stage))
-
-(magit-define-section-jumper magit-jump-to-untracked
-  "Untracked files" untracked nil magit-insert-untracked-files)
-
-(magit-define-section-jumper magit-jump-to-tracked
-  "Tracked files" tracked nil magit-insert-tracked-files)
-
-(magit-define-section-jumper magit-jump-to-ignored
-  "Ignored files" ignored nil magit-insert-ignored-files)
-
-(magit-define-section-jumper magit-jump-to-skip-worktree
-  "Skip-worktree files" skip-worktree nil magit-insert-skip-worktree-files)
-
-(magit-define-section-jumper magit-jump-to-assume-unchanged
-  "Assume-unchanged files" assume-unchanged nil
-  magit-insert-assume-unchanged-files)
-
-(defun magit-insert-untracked-files ()
-  "Maybe insert a list or tree of untracked files.
-
-Do so depending on the value of `status.showUntrackedFiles'.
-Note that even if the value is `all', Magit still initially
-only shows directories.  But the directory sections can then
-be expanded using \"TAB\".
-
-If the first element of `magit-buffer-diff-files' is a
-directory, then limit the list to files below that.  The value
-value of that variable can be set using \"D -- DIRECTORY RET g\"."
-  (let ((show (or (magit-get "status.showUntrackedFiles") "normal")))
-    (unless (equal show "no")
-      (let* ((all (equal show "all"))
-             (base (car magit-buffer-diff-files))
-             (base (and base (file-directory-p base) base)))
-        (magit-insert-files 'untracked
-                            (lambda () (magit-untracked-files nil base (not all)))
-                            (not all))))))
-
-(defun magit-insert-tracked-files ()
-  "Insert a tree of tracked files.
-
-If the first element of `magit-buffer-diff-files' is a
-directory, then limit the list to files below that.  The value
-value of that variable can be set using \"D -- DIRECTORY RET g\"."
-  (magit-insert-files 'tracked #'magit-list-files))
-
-(defun magit-insert-ignored-files ()
-  "Insert a tree of ignored files.
-
-If the first element of `magit-buffer-diff-files' is a
-directory, then limit the list to files below that.  The value
-of that variable can be set using \"D -- DIRECTORY RET g\"."
-  (magit-insert-files 'ignored #'magit-ignored-files))
-
-(defun magit-insert-skip-worktree-files ()
-  "Insert a tree of skip-worktree files.
-
-If the first element of `magit-buffer-diff-files' is a
-directory, then limit the list to files below that.  The value
-of that variable can be set using \"D -- DIRECTORY RET g\"."
-  (magit-insert-files 'skip-worktree #'magit-skip-worktree-files))
-
-(defun magit-insert-assume-unchanged-files ()
-  "Insert a tree of files that are assumed to be unchanged.
-
-If the first element of `magit-buffer-diff-files' is a
-directory, then limit the list to files below that.  The value
-of that variable can be set using \"D -- DIRECTORY RET g\"."
-  (magit-insert-files 'assume-unchanged #'magit-assume-unchanged-files))
-
-(defvar magit-file-section-indent nil
-  "Indentation used for simple `file' sections.
-If non-nil, this must be a string or character, and is used as
-indentation of `file' sections inserted by `magit-insert-*-files'.
-`file' sections that are part of diffs are not affected.  This is mainly
-intended as a workaround for https://github.com/magit/magit/issues/5176,
-in which case ?\N{ZERO WIDTH SPACE} is a good value.")
-
-(defun magit-insert-files (type fn &optional nogroup)
-  (when-let ((files (funcall fn)))
-    (let* ((base (car magit-buffer-diff-files))
-           (base (and base (file-directory-p base) base))
-           (title (symbol-name type)))
-      (magit-insert-section ((eval type) nil t)
-        (magit-insert-heading (length files)
-          (format "%c%s files"
-                  (capitalize (aref title 0))
-                  (substring title 1)))
-        (magit-insert-files-1 files base nogroup)
-        (insert ?\n)))))
-
-(defun magit-insert-files-1 (files directory &optional nogroup)
-  (while (and files (or nogroup
-                        (not directory)
-                        (string-prefix-p directory (car files))))
-    (let ((dir (file-name-directory (car files))))
-      (if (or nogroup (equal dir directory))
-          (let ((file (pop files)))
-            (magit-insert-section (file file)
-              (when magit-file-section-indent
-                (insert magit-file-section-indent))
-              (insert (propertize file 'font-lock-face 'magit-filename) ?\n)))
-        (magit-insert-section (file dir t)
-          (when magit-file-section-indent
-            (insert magit-file-section-indent))
-          (insert (propertize dir 'file 'magit-filename) ?\n)
-          (magit-insert-heading)
-          (setq files (magit-insert-files-1 files dir))))))
-  files)
-
-;;; _
-(provide 'magit-status)
-;;; magit-status.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-status.elc b/emacs/elpa/magit-20241116.1557/magit-status.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-submodule.el b/emacs/elpa/magit-20241116.1557/magit-submodule.el
@@ -1,724 +0,0 @@
-;;; magit-submodule.el --- Submodule support for Magit  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Code:
-
-(require 'magit)
-
-(defvar x-stretch-cursor)
-
-;;; Options
-
-(defcustom magit-module-sections-hook
-  '(magit-insert-modules-overview
-    magit-insert-modules-unpulled-from-upstream
-    magit-insert-modules-unpulled-from-pushremote
-    magit-insert-modules-unpushed-to-upstream
-    magit-insert-modules-unpushed-to-pushremote)
-  "Hook run by `magit-insert-modules'.
-
-That function isn't part of `magit-status-sections-hook's default
-value, so you have to add it yourself for this hook to have any
-effect."
-  :package-version '(magit . "2.11.0")
-  :group 'magit-status
-  :type 'hook)
-
-(defcustom magit-module-sections-nested t
-  "Whether `magit-insert-modules' wraps inserted sections.
-
-If this is non-nil, then only a single top-level section
-is inserted.  If it is nil, then all sections listed in
-`magit-module-sections-hook' become top-level sections."
-  :package-version '(magit . "2.11.0")
-  :group 'magit-status
-  :type 'boolean)
-
-(defcustom magit-submodule-list-mode-hook '(hl-line-mode)
-  "Hook run after entering Magit-Submodule-List mode."
-  :package-version '(magit . "2.9.0")
-  :group 'magit-repolist
-  :type 'hook
-  :get 'magit-hook-custom-get
-  :options '(hl-line-mode))
-
-(defcustom magit-submodule-list-columns
-  '(("Path"     25 magit-modulelist-column-path
-     ())
-    ("Version"  25 magit-repolist-column-version
-     ((:sort magit-repolist-version<)))
-    ("Branch"   20 magit-repolist-column-branch
-     ())
-    ("B<P" 3 magit-repolist-column-unpulled-from-pushremote
-     ((:right-align t)
-      (:sort <)))
-    ("B<U" 3 magit-repolist-column-unpulled-from-upstream
-     ((:right-align t)
-      (:sort <)))
-    ("B>P" 3 magit-repolist-column-unpushed-to-pushremote
-     ((:right-align t)
-      (:sort <)))
-    ("B>U" 3 magit-repolist-column-unpushed-to-upstream
-     ((:right-align t)
-      (:sort <)))
-    ("S"   3 magit-repolist-column-stashes
-     ((:right-align t)
-      (:sort <)))
-    ("B"   3 magit-repolist-column-branches
-     ((:right-align t)
-      (:sort <))))
-  "List of columns displayed by `magit-list-submodules'.
-
-Each element has the form (HEADER WIDTH FORMAT PROPS).
-
-HEADER is the string displayed in the header.  WIDTH is the width
-of the column.  FORMAT is a function that is called with one
-argument, the repository identification (usually its basename),
-and with `default-directory' bound to the toplevel of its working
-tree.  It has to return a string to be inserted or nil.  PROPS is
-an alist that supports the keys `:right-align', `:pad-right' and
-`:sort'.
-
-The `:sort' function has a weird interface described in the
-docstring of `tabulated-list--get-sort'.  Alternatively `<' and
-`magit-repolist-version<' can be used as those functions are
-automatically replaced with functions that satisfy the interface.
-Set `:sort' to nil to inhibit sorting; if unspecified, then the
-column is sortable using the default sorter.
-
-You may wish to display a range of numeric columns using just one
-character per column and without any padding between columns, in
-which case you should use an appropriate HEADER, set WIDTH to 1,
-and set `:pad-right' to 0.  \"+\" is substituted for numbers higher
-than 9."
-  :package-version '(magit . "2.8.0")
-  :group 'magit-repolist
-  :type `(repeat (list :tag "Column"
-                       (string   :tag "Header Label")
-                       (integer  :tag "Column Width")
-                       (function :tag "Inserter Function")
-                       (repeat   :tag "Properties"
-                                 (list (choice :tag "Property"
-                                               (const :right-align)
-                                               (const :pad-right)
-                                               (const :sort)
-                                               (symbol))
-                                       (sexp   :tag "Value"))))))
-
-(defcustom magit-submodule-list-sort-key '("Path" . nil)
-  "Initial sort key for buffer created by `magit-list-submodules'.
-If nil, no additional sorting is performed.  Otherwise, this
-should be a cons cell (NAME . FLIP).  NAME is a string matching
-one of the column names in `magit-submodule-list-columns'.  FLIP,
-if non-nil, means to invert the resulting sort."
-  :package-version '(magit . "3.2.0")
-  :group 'magit-repolist
-  :type '(choice (const nil)
-                 (cons (string :tag "Column name")
-                       (boolean :tag "Flip order"))))
-
-(defvar magit-submodule-list-format-path-functions nil)
-
-(defcustom magit-submodule-remove-trash-gitdirs nil
-  "Whether `magit-submodule-remove' offers to trash module gitdirs.
-
-If this is nil, then that command does not offer to do so unless
-a prefix argument is used.  When this is t, then it does offer to
-do so even without a prefix argument.
-
-In both cases the action still has to be confirmed unless that is
-disabled using the option `magit-no-confirm'.  Doing the latter
-and also setting this variable to t will lead to tears."
-  :package-version '(magit . "2.90.0")
-  :group 'magit-commands
-  :type 'boolean)
-
-;;; Popup
-
-;;;###autoload (autoload 'magit-submodule "magit-submodule" nil t)
-(transient-define-prefix magit-submodule ()
-  "Act on a submodule."
-  :man-page "git-submodule"
-  ["Arguments"
-   ("-f" "Force"            ("-f" "--force"))
-   ("-r" "Recursive"        "--recursive")
-   ("-N" "Do not fetch"     ("-N" "--no-fetch"))
-   ("-C" "Checkout tip"     "--checkout")
-   ("-R" "Rebase onto tip"  "--rebase")
-   ("-M" "Merge tip"        "--merge")
-   ("-U" "Use upstream tip" "--remote")]
-  ["One module actions"
-   ("a" magit-submodule-add)
-   ("r" magit-submodule-register)
-   ("p" magit-submodule-populate)
-   ("u" magit-submodule-update)
-   ("s" magit-submodule-synchronize)
-   ("d" magit-submodule-unpopulate)
-   ("k" "Remove" magit-submodule-remove)]
-  ["Populated modules actions"
-   ("l" "List modules"  magit-list-submodules)
-   ("f" "Fetch modules" magit-fetch-modules)])
-
-(defun magit-submodule-arguments (&rest filters)
-  (--filter (and (member it filters) it)
-            (transient-args 'magit-submodule)))
-
-(defclass magit--git-submodule-suffix (transient-suffix)
-  ())
-
-(cl-defmethod transient-format-description ((obj magit--git-submodule-suffix))
-  (let ((value (delq nil (mapcar #'transient-infix-value transient--suffixes))))
-    (replace-regexp-in-string
-     "\\[--[^]]+\\]"
-     (lambda (match)
-       (format (propertize "[%s]" 'face 'transient-inactive-argument)
-               (mapconcat (lambda (arg)
-                            (propertize arg 'face
-                                        (if (member arg value)
-                                            'transient-argument
-                                          'transient-inactive-argument)))
-                          (save-match-data
-                            (split-string (substring match 1 -1) "|"))
-                          (propertize "|" 'face 'transient-inactive-argument))))
-     (cl-call-next-method obj))))
-
-;;;###autoload (autoload 'magit-submodule-add "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-add (url &optional path name args)
-  "Add the repository at URL as a module.
-
-Optional PATH is the path to the module relative to the root of
-the superproject.  If it is nil, then the path is determined
-based on the URL.  Optional NAME is the name of the module.  If
-it is nil, then PATH also becomes the name."
-  :class 'magit--git-submodule-suffix
-  :description "Add            git submodule add [--force]"
-  (interactive
-   (magit-with-toplevel
-     (let* ((url (magit-read-string-ns "Add submodule (remote url)"))
-            (path (let ((read-file-name-function
-                         (if (or (eq read-file-name-function 'ido-read-file-name)
-                                 (advice-function-member-p
-                                  'ido-read-file-name
-                                  read-file-name-function))
-                             ;; The Ido variant doesn't work properly here.
-                             #'read-file-name-default
-                           read-file-name-function)))
-                    (directory-file-name
-                     (file-relative-name
-                      (read-directory-name
-                       "Add submodules at path: " nil nil nil
-                       (and (string-match "\\([^./]+\\)\\(\\.git\\)?$" url)
-                            (match-string 1 url))))))))
-       (list url
-             (directory-file-name path)
-             (magit-submodule-read-name-for-path path)
-             (magit-submodule-arguments "--force")))))
-  (magit-submodule-add-1 url path name args))
-
-(defun magit-submodule-add-1 (url &optional path name args)
-  (magit-with-toplevel
-    (magit-submodule--maybe-reuse-gitdir name path)
-    (magit-run-git-async "submodule" "add"
-                         (and name (list "--name" name))
-                         args "--" url path)
-    (set-process-sentinel
-     magit-this-process
-     (lambda (process event)
-       (when (memq (process-status process) '(exit signal))
-         (if (> (process-exit-status process) 0)
-             (magit-process-sentinel process event)
-           (process-put process 'inhibit-refresh t)
-           (magit-process-sentinel process event)
-           (when (magit-git-version>= "2.12.0")
-             (magit-call-git "submodule" "absorbgitdirs" path))
-           (magit-refresh)))))))
-
-;;;###autoload
-(defun magit-submodule-read-name-for-path (path &optional prefer-short)
-  (let* ((path (directory-file-name (file-relative-name path)))
-         (name (file-name-nondirectory path)))
-    (push (if prefer-short path name) minibuffer-history)
-    (magit-read-string-ns
-     "Submodule name" nil (cons 'minibuffer-history 2)
-     (or (--keep (pcase-let ((`(,var ,val) (split-string it "=")))
-                   (and (equal val path)
-                        (cadr (split-string var "\\."))))
-                 (magit-git-lines "config" "--list" "-f" ".gitmodules"))
-         (if prefer-short name path)))))
-
-;;;###autoload (autoload 'magit-submodule-register "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-register (modules)
-  "Register MODULES.
-
-With a prefix argument act on all suitable modules.  Otherwise,
-if the region selects modules, then act on those.  Otherwise, if
-there is a module at point, then act on that.  Otherwise read a
-single module from the user."
-  ;; This command and the underlying "git submodule init" do NOT
-  ;; "initialize" modules.  They merely "register" modules in the
-  ;; super-projects $GIT_DIR/config file, the purpose of which is to
-  ;; allow users to change such values before actually initializing
-  ;; the modules.
-  :description "Register       git submodule init"
-  (interactive
-   (list (magit-module-confirm "Register" 'magit-module-no-worktree-p)))
-  (magit-with-toplevel
-    (magit-run-git-async "submodule" "init" "--" modules)))
-
-;;;###autoload (autoload 'magit-submodule-populate "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-populate (modules)
-  "Create MODULES working directories, checking out the recorded commits.
-
-With a prefix argument act on all suitable modules.  Otherwise,
-if the region selects modules, then act on those.  Otherwise, if
-there is a module at point, then act on that.  Otherwise read a
-single module from the user."
-  ;; This is the command that actually "initializes" modules.
-  ;; A module is initialized when it has a working directory,
-  ;; a gitlink, and a .gitmodules entry.
-  :description "Populate       git submodule update --init"
-  (interactive
-   (list (magit-module-confirm "Populate" 'magit-module-no-worktree-p)))
-  (magit-with-toplevel
-    (magit-run-git-async "submodule" "update" "--init" "--" modules)))
-
-;;;###autoload (autoload 'magit-submodule-update "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-update (modules args)
-  "Update MODULES by checking out the recorded commits.
-
-With a prefix argument act on all suitable modules.  Otherwise,
-if the region selects modules, then act on those.  Otherwise, if
-there is a module at point, then act on that.  Otherwise read a
-single module from the user."
-  ;; Unlike `git-submodule's `update' command ours can only update
-  ;; "initialized" modules by checking out other commits but not
-  ;; "initialize" modules by creating the working directories.
-  ;; To do the latter we provide the "setup" command.
-  :class 'magit--git-submodule-suffix
-  :description "Update         git submodule update [--force] [--no-fetch]
-                     [--remote] [--recursive] [--checkout|--rebase|--merge]"
-  (interactive
-   (list (magit-module-confirm "Update" 'magit-module-worktree-p)
-         (magit-submodule-arguments
-          "--force" "--remote" "--recursive" "--checkout" "--rebase" "--merge"
-          "--no-fetch")))
-  (magit-with-toplevel
-    (magit-run-git-async "submodule" "update" args "--" modules)))
-
-;;;###autoload (autoload 'magit-submodule-synchronize "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-synchronize (modules args)
-  "Synchronize url configuration of MODULES.
-
-With a prefix argument act on all suitable modules.  Otherwise,
-if the region selects modules, then act on those.  Otherwise, if
-there is a module at point, then act on that.  Otherwise read a
-single module from the user."
-  :class 'magit--git-submodule-suffix
-  :description "Synchronize    git submodule sync [--recursive]"
-  (interactive
-   (list (magit-module-confirm "Synchronize" 'magit-module-worktree-p)
-         (magit-submodule-arguments "--recursive")))
-  (magit-with-toplevel
-    (magit-run-git-async "submodule" "sync" args "--" modules)))
-
-;;;###autoload (autoload 'magit-submodule-unpopulate "magit-submodule" nil t)
-(transient-define-suffix magit-submodule-unpopulate (modules args)
-  "Remove working directories of MODULES.
-
-With a prefix argument act on all suitable modules.  Otherwise,
-if the region selects modules, then act on those.  Otherwise, if
-there is a module at point, then act on that.  Otherwise read a
-single module from the user."
-  ;; Even when a submodule is "uninitialized" (it has no worktree)
-  ;; the super-project's $GIT_DIR/config may never-the-less set the
-  ;; module's url.  This may happen if you `deinit' and then `init'
-  ;; to register (NOT initialize).  Because the purpose of `deinit'
-  ;; is to remove the working directory AND to remove the url, this
-  ;; command does not limit itself to modules that have no working
-  ;; directory.
-  :class 'magit--git-submodule-suffix
-  :description "Unpopulate     git submodule deinit [--force]"
-  (interactive
-   (list (magit-module-confirm "Unpopulate")
-         (magit-submodule-arguments "--force")))
-  (magit-with-toplevel
-    (magit-run-git-async "submodule" "deinit" args "--" modules)))
-
-;;;###autoload
-(defun magit-submodule-remove (modules args trash-gitdirs)
-  "Unregister MODULES and remove their working directories.
-
-For safety reasons, do not remove the gitdirs and if a module has
-uncommitted changes, then do not remove it at all.  If a module's
-gitdir is located inside the working directory, then move it into
-the gitdir of the superproject first.
-
-With the \"--force\" argument offer to remove dirty working
-directories and with a prefix argument offer to delete gitdirs.
-Both actions are very dangerous and have to be confirmed.  There
-are additional safety precautions in place, so you might be able
-to recover from making a mistake here, but don't count on it."
-  (interactive
-   (list (if-let ((modules (magit-region-values 'magit-module-section t)))
-             (magit-confirm 'remove-modules nil "Remove %d modules" nil modules)
-           (list (magit-read-module-path "Remove module")))
-         (magit-submodule-arguments "--force")
-         current-prefix-arg))
-  (when (magit-git-version< "2.12.0")
-    (error "This command requires Git v2.12.0"))
-  (when magit-submodule-remove-trash-gitdirs
-    (setq trash-gitdirs t))
-  (magit-with-toplevel
-    (when-let
-        ((modified
-          (seq-filter (lambda (module)
-                        (let ((default-directory (file-name-as-directory
-                                                  (expand-file-name module))))
-                          (and (cddr (directory-files default-directory))
-                               (magit-anything-modified-p))))
-                      modules)))
-      (if (member "--force" args)
-          (if (magit-confirm 'remove-dirty-modules
-                "Remove dirty module %s"
-                "Remove %d dirty modules"
-                t modified)
-              (dolist (module modified)
-                (let ((default-directory (file-name-as-directory
-                                          (expand-file-name module))))
-                  (magit-git "stash" "push"
-                             "-m" "backup before removal of this module")))
-            (setq modules (cl-set-difference modules modified :test #'equal)))
-        (if (cdr modified)
-            (message "Omitting %s modules with uncommitted changes: %s"
-                     (length modified)
-                     (string-join modified ", "))
-          (message "Omitting module %s, it has uncommitted changes"
-                   (car modified)))
-        (setq modules (cl-set-difference modules modified :test #'equal))))
-    (when modules
-      (let ((alist
-             (and trash-gitdirs
-                  (--map (split-string it "\0")
-                         (magit-git-lines "submodule" "foreach" "-q"
-                                          "printf \"$sm_path\\0$name\n\"")))))
-        (magit-git "submodule" "absorbgitdirs" "--" modules)
-        (magit-git "submodule" "deinit" args "--" modules)
-        (magit-git "rm" args "--" modules)
-        (when (and trash-gitdirs
-                   (magit-confirm 'trash-module-gitdirs
-                     "Trash gitdir of module %s"
-                     "Trash gitdirs of %d modules"
-                     t modules))
-          (dolist (module modules)
-            (if-let ((name (cadr (assoc module alist))))
-                ;; Disregard if `magit-delete-by-moving-to-trash'
-                ;; is nil.  Not doing so would be too dangerous.
-                (delete-directory (convert-standard-filename
-                                   (expand-file-name
-                                    (concat "modules/" name)
-                                    (magit-gitdir)))
-                                  t t)
-              (error "BUG: Weird module name and/or path for %s" module)))))
-      (magit-refresh))))
-
-;;; Sections
-
-;;;###autoload
-(defun magit-insert-modules ()
-  "Insert submodule sections.
-Hook `magit-module-sections-hook' controls which module sections
-are inserted, and option `magit-module-sections-nested' controls
-whether they are wrapped in an additional section."
-  (when-let ((modules (magit-list-module-paths)))
-    (if magit-module-sections-nested
-        (magit-insert-section (modules nil t)
-          (magit-insert-heading
-            (format "%s (%s)"
-                    (propertize "Modules"
-                                'font-lock-face 'magit-section-heading)
-                    (length modules)))
-          (magit-insert-section-body
-            (magit--insert-modules)))
-      (magit--insert-modules))))
-
-(defun magit--insert-modules (&optional _section)
-  (magit-run-section-hook 'magit-module-sections-hook))
-
-;;;###autoload
-(defun magit-insert-modules-overview ()
-  "Insert sections for all modules.
-For each section insert the path and the output of `git describe --tags',
-or, failing that, the abbreviated HEAD commit hash."
-  (when-let ((modules (magit-list-module-paths)))
-    (magit-insert-section (modules nil t)
-      (magit-insert-heading
-        (format "%s (%s)"
-                (propertize "Modules overview"
-                            'font-lock-face 'magit-section-heading)
-                (length modules)))
-      (magit-insert-section-body
-        (magit--insert-modules-overview)))))
-
-(defvar magit-modules-overview-align-numbers t)
-
-(defun magit--insert-modules-overview (&optional _section)
-  (magit-with-toplevel
-    (let* ((modules (magit-list-module-paths))
-           (path-format (format "%%-%ds "
-                                (min (apply #'max (mapcar #'length modules))
-                                     (/ (window-width) 2))))
-           (branch-format (format "%%-%ds " (min 25 (/ (window-width) 3)))))
-      (dolist (module modules)
-        (let ((default-directory
-               (expand-file-name (file-name-as-directory module))))
-          (magit-insert-section (module module t)
-            (insert (propertize (format path-format module)
-                                'font-lock-face 'magit-diff-file-heading))
-            (if (not (file-exists-p ".git"))
-                (insert "(unpopulated)")
-              (insert
-               (format
-                branch-format
-                (if-let ((branch (magit-get-current-branch)))
-                    (propertize branch 'font-lock-face 'magit-branch-local)
-                  (propertize "(detached)" 'font-lock-face 'warning))))
-              (if-let ((desc (magit-git-string "describe" "--tags")))
-                  (progn (when (and magit-modules-overview-align-numbers
-                                    (string-match-p "\\`[0-9]" desc))
-                           (insert ?\s))
-                         (insert (propertize desc 'font-lock-face 'magit-tag)))
-                (when-let ((abbrev (magit-rev-format "%h")))
-                  (insert (propertize abbrev 'font-lock-face 'magit-hash)))))
-            (insert ?\n))))))
-  (insert ?\n))
-
-(defvar-keymap magit-modules-section-map
-  :doc "Keymap for `modules' sections."
-  "<remap> <magit-visit-thing>" #'magit-list-submodules
-  "<1>" (magit-menu-item "List %t" #'magit-list-submodules))
-
-(defvar-keymap magit-module-section-map
-  :doc "Keymap for `module' sections."
-  "C-j"        #'magit-submodule-visit
-  "C-<return>" #'magit-submodule-visit
-  "<remap> <magit-unstage-file>" #'magit-unstage
-  "<remap> <magit-stage-file>"   #'magit-stage
-  "<remap> <magit-visit-thing>"  #'magit-submodule-visit
-  "<5>" (magit-menu-item "Module commands..." #'magit-submodule)
-  "<4>" '(menu-item "--")
-  "<3>" (magit-menu-item "Unstage %T" #'magit-unstage
-                         '(:visible (eq (magit-diff-type) 'staged)))
-  "<2>" (magit-menu-item "Stage %T" #'magit-stage
-                         '(:visible (eq (magit-diff-type) 'unstaged)))
-  "<1>" (magit-menu-item "Visit %s" #'magit-submodule-visit))
-
-(defun magit-submodule-visit (module &optional other-window)
-  "Visit MODULE by calling `magit-status' on it.
-Offer to initialize MODULE if it's not checked out yet.
-With a prefix argument, visit in another window."
-  (interactive (list (or (magit-section-value-if 'module)
-                         (magit-read-module-path "Visit module"))
-                     current-prefix-arg))
-  (magit-with-toplevel
-    (let ((path (expand-file-name module)))
-      (cond
-       ((file-exists-p (expand-file-name ".git" module))
-        (magit-diff-visit-directory path other-window))
-       ((y-or-n-p (format "Initialize submodule '%s' first?" module))
-        (magit-run-git-async "submodule" "update" "--init" "--" module)
-        (set-process-sentinel
-         magit-this-process
-         (lambda (process event)
-           (let ((magit-process-raise-error t))
-             (magit-process-sentinel process event))
-           (when (and (eq (process-status      process) 'exit)
-                      (=  (process-exit-status process) 0))
-             (magit-diff-visit-directory path other-window)))))
-       ((file-exists-p path)
-        (dired-jump other-window (concat path "/.")))))))
-
-;;;###autoload
-(defun magit-insert-modules-unpulled-from-upstream ()
-  "Insert sections for modules that haven't been pulled from the upstream.
-These sections can be expanded to show the respective commits."
-  (magit--insert-modules-logs "Modules unpulled from @{upstream}"
-                              'modules-unpulled-from-upstream
-                              "HEAD..@{upstream}"))
-
-;;;###autoload
-(defun magit-insert-modules-unpulled-from-pushremote ()
-  "Insert sections for modules that haven't been pulled from the push-remote.
-These sections can be expanded to show the respective commits."
-  (magit--insert-modules-logs "Modules unpulled from @{push}"
-                              'modules-unpulled-from-pushremote
-                              "HEAD..@{push}"))
-
-;;;###autoload
-(defun magit-insert-modules-unpushed-to-upstream ()
-  "Insert sections for modules that haven't been pushed to the upstream.
-These sections can be expanded to show the respective commits."
-  (magit--insert-modules-logs "Modules unmerged into @{upstream}"
-                              'modules-unpushed-to-upstream
-                              "@{upstream}..HEAD"))
-
-;;;###autoload
-(defun magit-insert-modules-unpushed-to-pushremote ()
-  "Insert sections for modules that haven't been pushed to the push-remote.
-These sections can be expanded to show the respective commits."
-  (magit--insert-modules-logs "Modules unpushed to @{push}"
-                              'modules-unpushed-to-pushremote
-                              "@{push}..HEAD"))
-
-(defun magit--insert-modules-logs (heading type range)
-  "For internal use, don't add to a hook."
-  (when-let (((not (magit-ignore-submodules-p)))
-             (modules (magit-list-module-paths)))
-    (magit-insert-section ((eval type) nil t)
-      (string-match "\\`\\(.+\\) \\([^ ]+\\)\\'" heading)
-      (magit-insert-heading
-        (propertize (match-string 1 heading)
-                    'font-lock-face 'magit-section-heading)
-        " "
-        (propertize (match-string 2 heading)
-                    'font-lock-face 'magit-branch-remote)
-        ":")
-      (dolist (module modules)
-        (when-let* ((default-directory (expand-file-name module))
-                    ((file-exists-p (expand-file-name ".git")))
-                    (lines (magit-git-lines "-c" "push.default=current"
-                                            "log" "--oneline" range))
-                    (count (length lines))
-                    ((> count 0)))
-          (magit-insert-section
-              ( module module t
-                :range range)
-            (magit-insert-heading count
-              (propertize module 'font-lock-face 'magit-diff-file-heading))
-            (dolist (line lines)
-              (string-match magit-log-module-re line)
-              (let ((rev (match-string 1 line))
-                    (msg (match-string 2 line)))
-                (magit-insert-section (module-commit rev t)
-                  (insert (propertize rev 'font-lock-face 'magit-hash) " "
-                          (funcall magit-log-format-message-function rev msg)
-                          "\n")))))))
-      (magit-cancel-section 'if-empty)
-      (insert ?\n))))
-
-;;; List
-
-;;;###autoload
-(defun magit-list-submodules ()
-  "Display a list of the current repository's populated submodules."
-  (interactive)
-  (magit-submodule-list-setup magit-submodule-list-columns))
-
-(defvar-keymap magit-submodule-list-mode-map
-  :doc "Local keymap for Magit-Submodule-List mode buffers."
-  :parent magit-repolist-mode-map)
-
-(define-derived-mode magit-submodule-list-mode tabulated-list-mode "Modules"
-  "Major mode for browsing a list of Git submodules."
-  :interactive nil
-  :group 'magit-repolist
-  (setq-local x-stretch-cursor nil)
-  (setq tabulated-list-padding 0)
-  (add-hook 'tabulated-list-revert-hook #'magit-submodule-list-refresh nil t)
-  (setq imenu-prev-index-position-function
-        #'magit-repolist--imenu-prev-index-position)
-  (setq imenu-extract-index-name-function #'tabulated-list-get-id))
-
-(defvar-local magit-submodule-list-predicate nil)
-
-(defun magit-submodule-list-setup (columns &optional predicate)
-  (magit-display-buffer
-   (or (magit-get-mode-buffer 'magit-submodule-list-mode)
-       (magit-generate-new-buffer 'magit-submodule-list-mode)))
-  (magit-submodule-list-mode)
-  (setq-local magit-repolist-columns columns)
-  (setq-local magit-repolist-sort-key magit-submodule-list-sort-key)
-  (setq-local magit-submodule-list-predicate predicate)
-  (magit-repolist-setup-1)
-  (magit-submodule-list-refresh))
-
-(defun magit-submodule-list-refresh ()
-  (setq tabulated-list-entries
-        (seq-keep
-         (lambda (module)
-           (let ((default-directory
-                  (expand-file-name (file-name-as-directory module))))
-             (and (file-exists-p ".git")
-                  (or (not magit-submodule-list-predicate)
-                      (funcall magit-submodule-list-predicate module))
-                  (list module
-                        (vconcat
-                         (mapcar (pcase-lambda (`(,title ,width ,fn ,props))
-                                   (or (funcall fn `((:path  ,module)
-                                                     (:title ,title)
-                                                     (:width ,width)
-                                                     ,@props))
-                                       ""))
-                                 magit-repolist-columns))))))
-         (magit-list-module-paths)))
-  (message "Listing submodules...")
-  (tabulated-list-init-header)
-  (tabulated-list-print t)
-  (message "Listing submodules...done"))
-
-(defun magit-modulelist-column-path (spec)
-  "Insert the relative path of the submodule."
-  (let ((path (cadr (assq :path spec))))
-    (or (run-hook-with-args-until-success
-         'magit-submodule-list-format-path-functions path)
-        path)))
-
-;;; Utilities
-
-(defun magit-submodule--maybe-reuse-gitdir (name path)
-  (let ((gitdir (convert-standard-filename
-                 (expand-file-name (concat "modules/" name)
-                                   (magit-gitdir)))))
-    (when (and (file-exists-p gitdir)
-               (not (file-exists-p path)))
-      (pcase (read-char-choice
-              (concat
-               gitdir " already exists.\n"
-               "Type [u] to use the existing gitdir and create the working tree\n"
-               "     [r] to rename the existing gitdir and clone again\n"
-               "     [t] to trash the existing gitdir and clone again\n"
-               "   [C-g] to abort ")
-              '(?u ?r ?t))
-        (?u (magit-submodule--restore-worktree (expand-file-name path) gitdir))
-        (?r (rename-file gitdir (concat gitdir "-"
-                                        (format-time-string "%F-%T"))))
-        (?t (delete-directory gitdir t t))))))
-
-(defun magit-submodule--restore-worktree (worktree gitdir)
-  (make-directory worktree t)
-  (with-temp-file (expand-file-name ".git" worktree)
-    (insert "gitdir: " (file-relative-name gitdir worktree) "\n"))
-  (let ((default-directory worktree))
-    (magit-call-git "reset" "--hard" "HEAD" "--")))
-
-;;; _
-(provide 'magit-submodule)
-;;; magit-submodule.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-submodule.elc b/emacs/elpa/magit-20241116.1557/magit-submodule.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-tag.el b/emacs/elpa/magit-20241116.1557/magit-tag.el
@@ -1,248 +0,0 @@
-;;; magit-tag.el --- Tag functionality  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library implements tag commands.
-
-;;; Code:
-
-(require 'magit)
-
-;; For `magit-tag-delete'.
-(defvar helm-comp-read-use-marked)
-
-;;; Commands
-
-;;;###autoload (autoload 'magit-tag "magit" nil t)
-(transient-define-prefix magit-tag ()
-  "Create or delete a tag."
-  :man-page "git-tag"
-  ["Arguments"
-   ("-f" "Force"        ("-f" "--force"))
-   ("-e" "Edit message" ("-e" "--edit"))
-   ("-a" "Annotate"     ("-a" "--annotate"))
-   ("-s" "Sign"         ("-s" "--sign"))
-   (magit-tag:--local-user)]
-  [["Create"
-    ("t"  "tag"     magit-tag-create)
-    ("r"  "release" magit-tag-release)]
-   ["Do"
-    ("k"  "delete"  magit-tag-delete)
-    ("p"  "prune"   magit-tag-prune)]])
-
-(defun magit-tag-arguments ()
-  (transient-args 'magit-tag))
-
-(transient-define-argument magit-tag:--local-user ()
-  :description "Sign as"
-  :class 'transient-option
-  :shortarg "-u"
-  :argument "--local-user="
-  :reader #'magit-read-gpg-signing-key
-  :history-key 'magit:--gpg-sign)
-
-;;;###autoload
-(defun magit-tag-create (name rev &optional args)
-  "Create a new tag with the given NAME at REV.
-With a prefix argument annotate the tag.
-\n(git tag [--annotate] NAME REV)"
-  (interactive (list (magit-read-tag "Tag name")
-                     (magit-read-branch-or-commit "Place tag on")
-                     (let ((args (magit-tag-arguments)))
-                       (when current-prefix-arg
-                         (cl-pushnew "--annotate" args :test #'equal))
-                       args)))
-  (magit-run-git-with-editor "tag" args name rev))
-
-;;;###autoload
-(defun magit-tag-delete (tags)
-  "Delete one or more tags.
-If the region marks multiple tags (and nothing else), then offer
-to delete those, otherwise prompt for a single tag to be deleted,
-defaulting to the tag at point.
-\n(git tag -d TAGS)"
-  (interactive (list (if-let ((tags (magit-region-values 'tag)))
-                         (magit-confirm t nil "Delete %d tags" nil tags)
-                       (let ((helm-comp-read-use-marked t))
-                         (magit-read-tag "Delete tag" t)))))
-  (magit-run-git "tag" "-d" tags))
-
-;;;###autoload
-(defun magit-tag-prune (tags remote-tags remote)
-  "Offer to delete tags missing locally from REMOTE, and vice versa."
-  (interactive
-   (let* ((remote (magit-read-remote "Prune tags using remote"))
-          (tags   (magit-list-tags))
-          (rtags  (prog2 (message "Determining remote tags...")
-                      (magit-remote-list-tags remote)
-                    (message "Determining remote tags...done")))
-          (ltags  (cl-set-difference tags rtags :test #'equal))
-          (rtags  (cl-set-difference rtags tags :test #'equal)))
-     (unless (or ltags rtags)
-       (message "Same tags exist locally and remotely"))
-     (unless (magit-confirm t
-               "Delete %s locally"
-               "Delete %d tags locally"
-               'noabort ltags)
-       (setq ltags nil))
-     (unless (magit-confirm t
-               "Delete %s from remote"
-               "Delete %d tags from remote"
-               'noabort rtags)
-       (setq rtags nil))
-     (list ltags rtags remote)))
-  (when tags
-    (magit-call-git "tag" "-d" tags))
-  (when remote-tags
-    (magit-run-git-async "push" remote (--map (concat ":" it) remote-tags))))
-
-(defvar magit-tag-version-regexp-alist
-  '(("^[-._+ ]?snapshot\\.?$" . -4)
-    ("^[-._+]$" . -4)
-    ("^[-._+ ]?\\(cvs\\|git\\|bzr\\|svn\\|hg\\|darcs\\)\\.?$" . -4)
-    ("^[-._+ ]?unknown\\.?$" . -4)
-    ("^[-._+ ]?alpha\\.?$" . -3)
-    ("^[-._+ ]?beta\\.?$" . -2)
-    ("^[-._+ ]?\\(pre\\|rc\\)\\.?$" . -1))
-  "Overrides `version-regexp-alist' for `magit-tag-release'.
-See also `magit-release-tag-regexp'.")
-
-(defvar magit-release-tag-regexp "\\`\
-\\(?1:\\(?:v\\(?:ersion\\)?\\|r\\(?:elease\\)?\\)[-_]?\\)?\
-\\(?2:[0-9]+\\(?:\\.[0-9]+\\)*\
-\\(?:-[a-zA-Z0-9-]+\\(?:\\.[a-zA-Z0-9-]+\\)*\\)?\\)\\'"
-  "Regexp used by `magit-tag-release' to parse release tags.
-
-The first submatch must match the prefix, if any.  The second
-submatch must match the version string.
-
-If this matches versions that are not dot separated numbers,
-then `magit-tag-version-regexp-alist' has to contain entries
-for the separators allowed here.")
-
-(defvar magit-release-commit-regexp "\\`Release version \\(.+\\)\\'"
-  "Regexp used by `magit-tag-release' to parse release commit messages.
-The first submatch must match the version string.")
-
-;;;###autoload
-(defun magit-tag-release (tag msg &optional args)
-  "Create a release tag for `HEAD'.
-
-Assume that release tags match `magit-release-tag-regexp'.
-
-If `HEAD's message matches `magit-release-commit-regexp', then
-base the tag on the version string specified by that.  Otherwise
-prompt for the name of the new tag using the highest existing
-tag as initial input and leaving it to the user to increment the
-desired part of the version string.
-
-When creating an annotated tag, prepare a message based on the message
-of the highest existing tag, provided that contains the corresponding
-version string, and substituting the new version string for that.  If
-that is not the case, propose a message using a reasonable format."
-  (interactive
-   (save-match-data
-     (pcase-let*
-         ((args (magit-tag-arguments))
-          (`(,pver ,ptag ,pmsg) (car (magit--list-releases)))
-          (msg (magit-rev-format "%s"))
-          (ver (and (string-match magit-release-commit-regexp msg)
-                    (match-string 1 msg)))
-          (_   (and (not ver)
-                    (require (quote sisyphus) nil t)
-                    (string-match magit-release-commit-regexp
-                                  (magit-rev-format "%s" ptag))
-                    (user-error "Use `sisyphus-create-release' first")))
-          (tag (cond
-                ((not ptag)
-                 ;; Force the user to review the message used for the
-                 ;; initial release tag, in case they do not like the
-                 ;; default format.
-                 (cl-pushnew "--edit" args :test #'equal)
-                 (read-string "Create first release tag: "
-                              (if (and ver (string-match-p "\\`[0-9]" ver))
-                                  (concat "v" ver)
-                                ver)))
-                (ver
-                 (concat (and (string-match magit-release-tag-regexp ptag)
-                              (match-string 1 ptag))
-                         ver))
-                (t
-                 (read-string
-                  (format "Create release tag (previous was %s): " ptag)
-                  ptag))))
-          (ver (and (string-match magit-release-tag-regexp tag)
-                    (match-string 2 tag))))
-       (list tag
-             (and (seq-some (apply-partially
-                             #'string-match-p
-                             "\\`--\\(annotate\\|local-user\\|sign\\)")
-                            args)
-                  (cond ((and pver (string-match (regexp-quote pver) pmsg))
-                         (replace-match ver t t pmsg))
-                        ((and ptag (string-match (regexp-quote ptag) pmsg))
-                         (replace-match tag t t pmsg))
-                        ((format "%s %s"
-                                 (capitalize
-                                  (file-name-nondirectory
-                                   (directory-file-name (magit-toplevel))))
-                                 ver))))
-             args))))
-  (magit-run-git-with-editor "tag" args (and msg (list "-m" msg)) tag)
-  (set-process-sentinel
-   magit-this-process
-   (lambda (process event)
-     (when (memq (process-status process) '(exit signal))
-       (magit-process-sentinel process event)
-       (magit-refs-setup-buffer "HEAD" (magit-show-refs-arguments))))))
-
-(defun magit--list-releases ()
-  "Return a list of releases.
-The list is ordered, beginning with the highest release.
-Each release element has the form (VERSION TAG MESSAGE).
-`magit-release-tag-regexp' is used to determine whether
-a tag qualifies as a release tag."
-  (save-match-data
-    (mapcar
-     #'cdr
-     (nreverse
-      (cl-sort (cl-mapcan
-                (lambda (line)
-                  (and (string-match " +" line)
-                       (let ((tag (substring line 0 (match-beginning 0)))
-                             (msg (substring line (match-end 0))))
-                         (and (string-match magit-release-tag-regexp tag)
-                              (let ((ver (match-string 2 tag))
-                                    (version-regexp-alist
-                                     magit-tag-version-regexp-alist))
-                                (list (list (version-to-list ver)
-                                            ver tag msg)))))))
-                ;; Cannot rely on "--sort=-version:refname" because
-                ;; that gets confused if the version prefix has changed.
-                (magit-git-lines "tag" "-n"))
-               ;; The inverse of this function does not exist.
-               #'version-list-< :key #'car)))))
-
-;;; _
-(provide 'magit-tag)
-;;; magit-tag.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit-tag.elc b/emacs/elpa/magit-20241116.1557/magit-tag.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit.el b/emacs/elpa/magit-20241116.1557/magit.el
@@ -1,789 +0,0 @@
-;;; magit.el --- A Git porcelain inside Emacs  -*- lexical-binding:t; coding:utf-8 -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Marius Vollmer <marius.vollmer@gmail.com>
-;;     Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;;     Kyle Meyer <kyle@kyleam.com>
-;; Former-Maintainers:
-;;     Nicolas Dudebout <nicolas.dudebout@gatech.edu>
-;;     Noam Postavsky <npostavs@users.sourceforge.net>
-;;     Peter J. Weisberg <pj@irregularexpressions.net>
-;;     Phil Jackson <phil@shellarchive.co.uk>
-;;     Rémi Vanicat <vanicat@debian.org>
-;;     Yann Hodique <yann.hodique@gmail.com>
-
-;; Homepage: https://github.com/magit/magit
-;; Keywords: git tools vc
-
-;; Package-Version: 20241116.1557
-;; Package-Revision: 8cee789f7a61
-;; Package-Requires: (
-;;     (emacs "26.1")
-;;     (compat "30.0.0.0")
-;;     (dash "2.19.1")
-;;     (magit-section "4.1.2")
-;;     (seq "2.24")
-;;     (transient "0.7.8")
-;;     (with-editor "3.4.2"))
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published
-;; by the Free Software Foundation, either version 3 of the License,
-;; or (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;; You should have received a copy of the AUTHORS.md file, which
-;; lists all contributors.  If not, see https://magit.vc/authors.
-
-;;; Commentary:
-
-;; Magit is a text-based Git user interface that puts an unmatched focus
-;; on streamlining workflows.  Commands are invoked using short mnemonic
-;; key sequences that take the cursor’s position in the highly actionable
-;; interface into account to provide context-sensitive behavior.
-
-;; With Magit you can do nearly everything that you can do when using Git
-;; on the command-line, but at greater speed and while taking advantage
-;; of advanced features that previously seemed too daunting to use on a
-;; daily basis.  Many users will find that by using Magit they can become
-;; more effective Git user.
-
-;;; Code:
-
-(require 'magit-core)
-(require 'magit-diff)
-(require 'magit-log)
-(require 'magit-wip)
-(require 'magit-apply)
-(require 'magit-repos)
-(require 'git-commit)
-
-(require 'format-spec)
-(require 'package nil t) ; used in `magit-version'
-(require 'with-editor)
-
-;; For `magit:--gpg-sign'
-(declare-function epg-list-keys "epg" (context &optional name mode))
-(declare-function epg-decode-dn "epg" (alist))
-(defvar epa-protocol)
-
-;;; Options
-
-(defcustom magit-openpgp-default-signing-key nil
-  "Fingerprint of your default Openpgp key used for signing.
-If the specified primary key has signing capacity then it is used
-as the value of the `--gpg-sign' argument without prompting, even
-when other such keys exist.  To be able to select another key you
-must then use a prefix argument."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-commands
-  :type 'string)
-
-;;; Faces
-
-(defface magit-header-line
-  '((t :inherit magit-section-heading))
-  "Face for the `header-line' in some Magit modes.
-Note that some modes, such as `magit-log-select-mode', have their
-own faces for the `header-line', or for parts of the
-`header-line'."
-  :group 'magit-faces)
-
-(defface magit-header-line-key
-  '((t :inherit font-lock-builtin-face))
-  "Face for keys in the `header-line'."
-  :group 'magit-faces)
-
-(defface magit-dimmed
-  '((((class color) (background light)) :foreground "grey50")
-    (((class color) (background  dark)) :foreground "grey50"))
-  "Face for text that shouldn't stand out."
-  :group 'magit-faces)
-
-(defface magit-hash
-  '((((class color) (background light)) :foreground "grey60")
-    (((class color) (background  dark)) :foreground "grey40"))
-  "Face for the commit object name in the log output."
-  :group 'magit-faces)
-
-(defface magit-tag
-  '((((class color) (background light)) :foreground "Goldenrod4")
-    (((class color) (background  dark)) :foreground "LightGoldenrod2"))
-  "Face for tag labels shown in log buffer."
-  :group 'magit-faces)
-
-(defface magit-branch-remote
-  '((((class color) (background light)) :foreground "DarkOliveGreen4")
-    (((class color) (background  dark)) :foreground "DarkSeaGreen2"))
-  "Face for remote branch head labels shown in log buffer."
-  :group 'magit-faces)
-
-(defface magit-branch-remote-head
-  '((((supports (:box t))) :inherit magit-branch-remote :box t)
-    (t                     :inherit magit-branch-remote :inverse-video t))
-  "Face for current branch."
-  :group 'magit-faces)
-
-(defface magit-branch-local
-  '((((class color) (background light)) :foreground "SkyBlue4")
-    (((class color) (background  dark)) :foreground "LightSkyBlue1"))
-  "Face for local branches."
-  :group 'magit-faces)
-
-(defface magit-branch-current
-  '((((supports (:box t))) :inherit magit-branch-local :box t)
-    (t                     :inherit magit-branch-local :inverse-video t))
-  "Face for current branch."
-  :group 'magit-faces)
-
-(defface magit-branch-upstream
-  '((t :slant italic))
-  "Face for upstream branch.
-This face is only used in logs and it gets combined
- with `magit-branch-local', `magit-branch-remote'
-and/or `magit-branch-remote-head'."
-  :group 'magit-faces)
-
-(defface magit-branch-warning
-  '((t :inherit warning))
-  "Face for warning about (missing) branch."
-  :group 'magit-faces)
-
-(defface magit-head
-  '((((class color) (background light)) :inherit magit-branch-local)
-    (((class color) (background  dark)) :inherit magit-branch-local))
-  "Face for the symbolic ref `HEAD'."
-  :group 'magit-faces)
-
-(defface magit-refname
-  '((((class color) (background light)) :foreground "grey30")
-    (((class color) (background  dark)) :foreground "grey80"))
-  "Face for refnames without a dedicated face."
-  :group 'magit-faces)
-
-(defface magit-refname-stash
-  '((t :inherit magit-refname))
-  "Face for stash refnames."
-  :group 'magit-faces)
-
-(defface magit-refname-wip
-  '((t :inherit magit-refname))
-  "Face for wip refnames."
-  :group 'magit-faces)
-
-(defface magit-refname-pullreq
-  '((t :inherit magit-refname))
-  "Face for pullreq refnames."
-  :group 'magit-faces)
-
-(defface magit-keyword
-  '((t :inherit font-lock-string-face))
-  "Face for parts of commit messages inside brackets."
-  :group 'magit-faces)
-
-(defface magit-keyword-squash
-  '((t :inherit font-lock-warning-face))
-  "Face for squash! and fixup! keywords in commit messages."
-  :group 'magit-faces)
-
-(defface magit-signature-good
-  '((t :foreground "green"))
-  "Face for good signatures."
-  :group 'magit-faces)
-
-(defface magit-signature-bad
-  '((t :foreground "red" :weight bold))
-  "Face for bad signatures."
-  :group 'magit-faces)
-
-(defface magit-signature-untrusted
-  '((t :foreground "medium aquamarine"))
-  "Face for good untrusted signatures."
-  :group 'magit-faces)
-
-(defface magit-signature-expired
-  '((t :foreground "orange"))
-  "Face for signatures that have expired."
-  :group 'magit-faces)
-
-(defface magit-signature-expired-key
-  '((t :inherit magit-signature-expired))
-  "Face for signatures made by an expired key."
-  :group 'magit-faces)
-
-(defface magit-signature-revoked
-  '((t :foreground "violet red"))
-  "Face for signatures made by a revoked key."
-  :group 'magit-faces)
-
-(defface magit-signature-error
-  '((t :foreground "light blue"))
-  "Face for signatures that cannot be checked (e.g., missing key)."
-  :group 'magit-faces)
-
-(defface magit-cherry-unmatched
-  '((t :foreground "cyan"))
-  "Face for unmatched cherry commits."
-  :group 'magit-faces)
-
-(defface magit-cherry-equivalent
-  '((t :foreground "magenta"))
-  "Face for equivalent cherry commits."
-  :group 'magit-faces)
-
-(defface magit-filename
-  '((t :weight normal))
-  "Face for filenames."
-  :group 'magit-faces)
-
-;;; Global Bindings
-
-;;;###autoload
-(defcustom magit-define-global-key-bindings 'default
-  "Which set of key bindings to add to the global keymap, if any.
-
-This option controls which set of Magit key bindings, if any, may
-be added to the global keymap, even before Magit is first used in
-the current Emacs session.
-
-If the value is nil, no bindings are added.
-
-If `default', maybe add:
-
-    C-x g     `magit-status'
-    C-x M-g   `magit-dispatch'
-    C-c M-g   `magit-file-dispatch'
-
-If `recommended', maybe add:
-
-    C-x g     `magit-status'
-    C-c g     `magit-dispatch'
-    C-c f     `magit-file-dispatch'
-
-    These bindings are strongly recommended, but we cannot use
-    them by default, because the \"C-c <LETTER>\" namespace is
-    strictly reserved for bindings added by the user.
-
-The bindings in the chosen set may be added when
-`after-init-hook' is run.  Each binding is added if, and only
-if, at that time no other key is bound to the same command,
-and no other command is bound to the same key.  In other words
-we try to avoid adding bindings that are unnecessary, as well
-as bindings that conflict with other bindings.
-
-Adding these bindings is delayed until `after-init-hook' is
-run to allow users to set the variable anywhere in their init
-file (without having to make sure to do so before `magit' is
-loaded or autoloaded) and to increase the likelihood that all
-the potentially conflicting user bindings have already been
-added.
-
-To set this variable use either `setq' or the Custom interface.
-Do not use the function `customize-set-variable' because doing
-that would cause Magit to be loaded immediately, when that form
-is evaluated (this differs from `custom-set-variables', which
-doesn't load the libraries that define the customized variables).
-
-Setting this variable has no effect if `after-init-hook' has
-already been run."
-  :package-version '(magit . "4.0.0")
-  :group 'magit-essentials
-  :type '(choice (const :tag "Add no binding" nil)
-                 (const :tag "Use default bindings" default)
-                 (const :tag "Use recommended bindings" recommended)))
-
-;;;###autoload
-(progn
-  (defun magit-maybe-define-global-key-bindings (&optional force)
-    "See variable `magit-define-global-key-bindings'."
-    (when magit-define-global-key-bindings
-      (let ((map (current-global-map)))
-        (pcase-dolist (`(,key . ,def)
-                       (cond ((eq magit-define-global-key-bindings 'recommended)
-                              '(("C-x g"   . magit-status)
-                                ("C-c g"   . magit-dispatch)
-                                ("C-c f"   . magit-file-dispatch)))
-                             ('(("C-x g"   . magit-status)
-                                ("C-x M-g" . magit-dispatch)
-                                ("C-c M-g" . magit-file-dispatch)))))
-          ;; This is autoloaded and thus is used before `compat' is
-          ;; loaded, so we cannot use `keymap-lookup' and `keymap-set'.
-          (when (or force
-                    (not (or (lookup-key map (kbd key))
-                             (where-is-internal def (make-sparse-keymap) t))))
-            (define-key map (kbd key) def))))))
-  (if after-init-time
-      (magit-maybe-define-global-key-bindings)
-    (add-hook 'after-init-hook #'magit-maybe-define-global-key-bindings t)))
-
-;;; Dispatch Popup
-
-;;;###autoload (autoload 'magit-dispatch "magit" nil t)
-(transient-define-prefix magit-dispatch ()
-  "Invoke a Magit command from a list of available commands."
-  :info-manual "(magit)Top"
-  ["Transient and dwim commands"
-   ;; → bound in magit-mode-map or magit-section-mode-map
-   ;; ↓ bound below
-   [("A" "Apply"          magit-cherry-pick)
-    ;; a                  ↓
-    ("b" "Branch"         magit-branch)
-    ("B" "Bisect"         magit-bisect)
-    ("c" "Commit"         magit-commit)
-    ("C" "Clone"          magit-clone)
-    ("d" "Diff"           magit-diff)
-    ("D" "Diff (change)"  magit-diff-refresh)
-    ("e" "Ediff (dwim)"   magit-ediff-dwim)
-    ("E" "Ediff"          magit-ediff)
-    ("f" "Fetch"          magit-fetch)
-    ("F" "Pull"           magit-pull)
-    ;; g                  ↓
-    ;; G                → magit-refresh-all
-    ("h" "Help"           magit-info)
-    ("H" "Section info"   magit-describe-section :if-derived magit-mode)]
-   [("i" "Ignore"         magit-gitignore)
-    ("I" "Init"           magit-init)
-    ("j" "Jump to section"magit-status-jump  :if-mode     magit-status-mode)
-    ("j" "Display status" magit-status-quick :if-not-mode magit-status-mode)
-    ("J" "Display buffer" magit-display-repository-buffer)
-    ;; k                  ↓
-    ;; K                → magit-file-untrack
-    ("l" "Log"            magit-log)
-    ("L" "Log (change)"   magit-log-refresh)
-    ("m" "Merge"          magit-merge)
-    ("M" "Remote"         magit-remote)
-    ;; n                → magit-section-forward
-    ;; N       reserved → forge-dispatch
-    ("o" "Submodule"      magit-submodule)
-    ("O" "Subtree"        magit-subtree)
-    ;; p                → magit-section-backward
-    ("P" "Push"           magit-push)
-    ;; q                → magit-mode-bury-buffer
-    ("Q" "Command"        magit-git-command)]
-   [("r" "Rebase"         magit-rebase)
-    ;; R                → magit-file-rename
-    ;; s                  ↓
-    ;; S                  ↓
-    ("t" "Tag"            magit-tag)
-    ("T" "Note"           magit-notes)
-    ;; u                  ↓
-    ;; U                  ↓
-    ;; v                  ↓
-    ("V" "Revert"         magit-revert)
-    ("w" "Apply patches"  magit-am)
-    ("W" "Format patches" magit-patch)
-    ;; x                → magit-reset-quickly
-    ("X" "Reset"          magit-reset)
-    ("y" "Show Refs"      magit-show-refs)
-    ("Y" "Cherries"       magit-cherry)
-    ("z" "Stash"          magit-stash)
-    ("Z" "Worktree"       magit-worktree)
-    ("!" "Run"            magit-run)]]
-  ["Applying changes"
-   :if-derived magit-mode
-   [("a" "Apply"          magit-apply)
-    ("v" "Reverse"        magit-reverse)
-    ("k" "Discard"        magit-discard)]
-   [("s" "Stage"          magit-stage)
-    ("u" "Unstage"        magit-unstage)]
-   [("S" "Stage all"      magit-stage-modified)
-    ("U" "Unstage all"    magit-unstage-all)]]
-  ["Essential commands"
-   :if-derived magit-mode
-   [("g" "       Refresh current buffer"   magit-refresh)
-    ("q" "       Bury current buffer"      magit-mode-bury-buffer)
-    ("<tab>" "   Toggle section at point"  magit-section-toggle)
-    ("<return>" "Visit thing at point"     magit-visit-thing)]
-   [("C-x m"    "Show all key bindings"    describe-mode)
-    ("C-x i"    "Show Info manual"         magit-info)]])
-
-;;; Git Popup
-
-(defcustom magit-shell-command-verbose-prompt t
-  "Whether to show the working directory when reading a command.
-This affects `magit-git-command', `magit-git-command-topdir',
-`magit-shell-command', and `magit-shell-command-topdir'."
-  :package-version '(magit . "2.11.0")
-  :group 'magit-commands
-  :type 'boolean)
-
-(defvar magit-git-command-history nil)
-
-;;;###autoload (autoload 'magit-run "magit" nil t)
-(transient-define-prefix magit-run ()
-  "Run git or another command, or launch a graphical utility."
-  [["Run git subcommand"
-    ("!" "in repository root"   magit-git-command-topdir)
-    ("p" "in working directory" magit-git-command)]
-   ["Run shell command"
-    ("s" "in repository root"   magit-shell-command-topdir)
-    ("S" "in working directory" magit-shell-command)]
-   ["Launch"
-    ("k" "gitk"                 magit-run-gitk)
-    ("a" "gitk --all"           magit-run-gitk-all)
-    ("b" "gitk --branches"      magit-run-gitk-branches)
-    ("g" "git gui"              magit-run-git-gui)
-    ("m" "git mergetool --gui"  magit-git-mergetool)]])
-
-;;;###autoload
-(defun magit-git-command (command)
-  "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-With a prefix argument COMMAND is run in the top-level directory
-of the current working tree, otherwise in `default-directory'."
-  (interactive (list (magit-read-shell-command nil "git ")))
-  (magit--shell-command command))
-
-;;;###autoload
-(defun magit-git-command-topdir (command)
-  "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer. \"git \" is
-used as initial input, but can be deleted to run another command.
-
-COMMAND is run in the top-level directory of the current
-working tree."
-  (interactive (list (magit-read-shell-command t "git ")))
-  (magit--shell-command command (magit-toplevel)))
-
-;;;###autoload
-(defun magit-shell-command (command)
-  "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer.  With a
-prefix argument COMMAND is run in the top-level directory of
-the current working tree, otherwise in `default-directory'."
-  (interactive (list (magit-read-shell-command)))
-  (magit--shell-command command))
-
-;;;###autoload
-(defun magit-shell-command-topdir (command)
-  "Execute COMMAND asynchronously; display output.
-
-Interactively, prompt for COMMAND in the minibuffer.  COMMAND
-is run in the top-level directory of the current working tree."
-  (interactive (list (magit-read-shell-command t)))
-  (magit--shell-command command (magit-toplevel)))
-
-(defun magit--shell-command (command &optional directory)
-  (let ((default-directory (or directory default-directory)))
-    (with-environment-variables (("GIT_PAGER" "cat"))
-      (magit--with-connection-local-variables
-        (magit-with-editor
-          (magit-start-process shell-file-name nil
-                               shell-command-switch command)))))
-  (magit-process-buffer))
-
-(defun magit-read-shell-command (&optional toplevel initial-input)
-  (let ((default-directory
-         (if (or toplevel current-prefix-arg)
-             (or (magit-toplevel)
-                 (magit--not-inside-repository-error))
-           default-directory)))
-    (read-shell-command (if magit-shell-command-verbose-prompt
-                            (format "Async shell command in %s: "
-                                    (abbreviate-file-name default-directory))
-                          "Async shell command: ")
-                        initial-input 'magit-git-command-history)))
-
-;;; Shared Infix Arguments
-
-(transient-define-argument magit:--gpg-sign ()
-  :description "Sign using gpg"
-  :class 'transient-option
-  :shortarg "-S"
-  :argument "--gpg-sign="
-  :allow-empty t
-  :reader #'magit-read-gpg-signing-key)
-
-(defvar magit-gpg-secret-key-hist nil)
-
-(defun magit-read-gpg-secret-key
-    (prompt &optional initial-input history predicate default)
-  (require 'epa)
-  (let* ((keys (cl-mapcan
-                (lambda (cert)
-                  (and (or (not predicate)
-                           (funcall predicate cert))
-                       (let* ((key (car (epg-key-sub-key-list cert)))
-                              (fpr (epg-sub-key-fingerprint key))
-                              (id  (epg-sub-key-id key))
-                              (author
-                               (and-let* ((id-obj
-                                           (car (epg-key-user-id-list cert))))
-                                 (let ((id-str (epg-user-id-string id-obj)))
-                                   (if (stringp id-str)
-                                       id-str
-                                     (epg-decode-dn id-obj))))))
-                         (list
-                          (propertize fpr 'display
-                                      (concat (substring fpr 0 (- (length id)))
-                                              (propertize id 'face 'highlight)
-                                              " " author))))))
-                (epg-list-keys (epg-make-context epa-protocol) nil t)))
-         (choice (or (and (not current-prefix-arg)
-                          (or (and (length= keys 1) (car keys))
-                              (and default (car (member default keys)))))
-                     (completing-read prompt keys nil nil nil
-                                      history nil initial-input))))
-    (set-text-properties 0 (length choice) nil choice)
-    choice))
-
-(defun magit-read-gpg-signing-key (prompt &optional initial-input history)
-  (magit-read-gpg-secret-key
-   prompt initial-input history
-   (lambda (cert)
-     (cl-some (lambda (key)
-                (memq 'sign (epg-sub-key-capability key)))
-              (epg-key-sub-key-list cert)))
-   magit-openpgp-default-signing-key))
-
-;;; Font-Lock Keywords
-
-(defconst magit-font-lock-keywords
-  (eval-when-compile
-    `((,(concat "(\\(magit-define-section-jumper\\)\\_>"
-                "[ \t'(]*"
-                "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
-       (1 'font-lock-keyword-face)
-       (2 'font-lock-function-name-face nil t))
-      (,(concat "(" (regexp-opt '("magit-insert-section"
-                                  "magit-section-case"
-                                  "magit-bind-match-strings"
-                                  "magit-with-temp-index"
-                                  "magit-with-blob"
-                                  "magit-with-toplevel")
-                                t)
-                "\\_>")
-       . 1))))
-
-(font-lock-add-keywords 'emacs-lisp-mode magit-font-lock-keywords)
-
-;;; Version
-
-(defvar magit-version #'undefined
-  "The version of Magit that you're using.
-Use the function by the same name instead of this variable.")
-
-;;;###autoload
-(defun magit-version (&optional print-dest interactive nowarn)
-  "Return the version of Magit currently in use.
-
-If optional argument PRINT-DEST is non-nil, also print the used
-versions of Magit, Transient, Git and Emacs to the output stream
-selected by that argument.  Interactively use the echo area, or
-with a prefix argument use the current buffer.  Additionally put
-the output in the kill ring.
-\n(fn &optional PRINT-DEST)"
-  (interactive (list (if current-prefix-arg (current-buffer) t) t))
-  (let ((magit-git-global-arguments nil)
-        (toplib (or load-file-name buffer-file-name))
-        debug)
-    (unless (and toplib
-                 (member (file-name-nondirectory toplib)
-                         '("magit.el" "magit.el.gz")))
-      (let ((load-suffixes (reverse load-suffixes))) ; prefer .el than .elc
-        (setq toplib (locate-library "magit"))))
-    (setq toplib (and toplib (magit--chase-links toplib)))
-    (push toplib debug)
-    (when toplib
-      (let* ((topdir (file-name-directory toplib))
-             (gitdir (expand-file-name
-                      ".git" (file-name-directory
-                              (directory-file-name topdir))))
-             (static (locate-library "magit-version.el" nil (list topdir)))
-             (static (and static (magit--chase-links static))))
-        (or (progn
-              (push 'repo debug)
-              (when (and (file-exists-p gitdir)
-                         ;; It is a repo, but is it the Magit repo?
-                         (file-exists-p
-                          (expand-file-name "../lisp/magit.el" gitdir)))
-                (push t debug)
-                ;; Inside the repo the version file should only exist
-                ;; while running make.
-                (when (and static (not noninteractive))
-                  (ignore-errors (delete-file static)))
-                (setq magit-version
-                      (let ((default-directory topdir))
-                        (magit-git-string "describe"
-                                          "--tags" "--dirty" "--always")))))
-            (progn
-              (push 'static debug)
-              (when (and static (file-exists-p static))
-                (push t debug)
-                (load-file static)
-                magit-version))
-            (when (featurep 'package)
-              (push 'elpa debug)
-              (ignore-errors
-                (when-let ((version (cadr (assq 'magit package-alist))))
-                  (push t debug)
-                  (setq magit-version
-                        (and (fboundp 'package-desc-version)
-                             (package-version-join
-                              (package-desc-version version)))))))
-            (progn
-              (push 'dirname debug)
-              (let ((dirname (file-name-nondirectory
-                              (directory-file-name topdir))))
-                (when (string-match "\\`magit-\\([0-9].*\\)" dirname)
-                  (setq magit-version (match-string 1 dirname)))))
-            ;; If all else fails, just report the commit hash. It's
-            ;; better than nothing and we cannot do better in the case
-            ;; of e.g., a shallow clone.
-            (progn
-              (push 'hash debug)
-              ;; Same check as above to see if it's really the Magit repo.
-              (when (and (file-exists-p gitdir)
-                         (file-exists-p
-                          (expand-file-name "../lisp/magit.el" gitdir)))
-                (setq magit-version
-                      (let ((default-directory topdir))
-                        (magit-git-string "rev-parse" "HEAD"))))))))
-    (if (stringp magit-version)
-        (when print-dest
-          (let ((str (format
-                      "Magit %s%s, Transient %s,%s Git %s, Emacs %s, %s"
-                      (or magit-version "(unknown)")
-                      (or (and (ignore-errors
-                                 (magit--version>= magit-version "2008"))
-                               (ignore-errors
-                                 (require 'lisp-mnt)
-                                 (and (fboundp 'lm-header)
-                                      (format
-                                       " [>= %s]"
-                                       (with-temp-buffer
-                                         (insert-file-contents
-                                          (locate-library "magit.el" t))
-                                         (lm-header "Package-Version"))))))
-                          "")
-                      (or (ignore-errors
-                            (require 'lisp-mnt)
-                            (and (fboundp 'lm-header)
-                                 (with-temp-buffer
-                                   (insert-file-contents
-                                    (locate-library "transient.el" t))
-                                   (lm-header "Package-Version"))))
-                          "(unknown)")
-                      (let ((lib (locate-library "forge.el" t)))
-                        (or (and lib
-                                 (format
-                                  " Forge %s,"
-                                  (or (ignore-errors
-                                        (require 'lisp-mnt)
-                                        (with-temp-buffer
-                                          (insert-file-contents lib)
-                                          (and (fboundp 'lm-header)
-                                               (lm-header "Package-Version"))))
-                                      "(unknown)")))
-                            ""))
-                      (magit--safe-git-version)
-                      emacs-version
-                      system-type)))
-            (when interactive
-              (kill-new str))
-            (princ str print-dest)))
-      (setq debug (reverse debug))
-      (setq magit-version 'error)
-      (when magit-version
-        (push magit-version debug))
-      (unless (or nowarn (equal (getenv "CI") "true"))
-        (message "Cannot determine Magit's version %S" debug)))
-    magit-version))
-
-;;; Startup Asserts
-
-(defun magit-startup-asserts ()
-  (when-let ((val (getenv "GIT_DIR")))
-    (setenv "GIT_DIR")
-    (message
-     "Magit unset $GIT_DIR (was %S).  See %s" val
-     ;; Note: Pass URL as argument rather than embedding in the format
-     ;; string to prevent the single quote from being rendered
-     ;; according to `text-quoting-style'.
-     "https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike"))
-  (when-let ((val (getenv "GIT_WORK_TREE")))
-    (setenv "GIT_WORK_TREE")
-    (message
-     "Magit unset $GIT_WORK_TREE (was %S).  See %s" val
-     ;; See comment above.
-     "https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike"))
-  ;; Git isn't required while building Magit.
-  (unless (bound-and-true-p byte-compile-current-file)
-    (magit-git-version-assert))
-  (when (version< emacs-version magit--minimal-emacs)
-    (display-warning 'magit (format "\
-Magit requires Emacs >= %s, you are using %s.
-
-If this comes as a surprise to you, because you do actually have
-a newer version installed, then that probably means that the
-older version happens to appear earlier on the `$PATH'.  If you
-always start Emacs from a shell, then that can be fixed in the
-shell's init file.  If you start Emacs by clicking on an icon,
-or using some sort of application launcher, then you probably
-have to adjust the environment as seen by graphical interface.
-For X11 something like ~/.xinitrc should work.\n"
-                                    magit--minimal-emacs emacs-version)
-                     :error)))
-
-;;; Loading Libraries
-
-(provide 'magit)
-
-(cl-eval-when (load eval)
-  (require 'magit-status)
-  (require 'magit-refs)
-  (require 'magit-files)
-  (require 'magit-reset)
-  (require 'magit-branch)
-  (require 'magit-merge)
-  (require 'magit-tag)
-  (require 'magit-worktree)
-  (require 'magit-notes)
-  (require 'magit-sequence)
-  (require 'magit-commit)
-  (require 'magit-remote)
-  (require 'magit-clone)
-  (require 'magit-fetch)
-  (require 'magit-pull)
-  (require 'magit-push)
-  (require 'magit-bisect)
-  (require 'magit-stash)
-  (require 'magit-blame)
-  (require 'magit-submodule)
-  (unless (load "magit-autoloads" t t)
-    (require 'magit-patch)
-    (require 'magit-subtree)
-    (require 'magit-ediff)
-    (require 'magit-gitignore)
-    (require 'magit-sparse-checkout)
-    (require 'magit-extras)
-    (require 'git-rebase)
-    (require 'magit-bookmark)))
-
-(with-eval-after-load 'bookmark
-  (require 'magit-bookmark))
-
-(unless (bound-and-true-p byte-compile-current-file)
-  (if after-init-time
-      (progn (magit-startup-asserts)
-             (magit-version nil nil t))
-    (add-hook 'after-init-hook #'magit-startup-asserts t)
-    (add-hook 'after-init-hook #'magit-version t)))
-
-;;; magit.el ends here
diff --git a/emacs/elpa/magit-20241116.1557/magit.elc b/emacs/elpa/magit-20241116.1557/magit.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit.info b/emacs/elpa/magit-20241116.1557/magit.info
@@ -1,11592 +0,0 @@
-This is magit.info, produced by makeinfo version 6.8 from magit.texi.
-
-     Copyright (C) 2015-2024 Jonas Bernoulli
-     <emacs.magit@jonas.bernoulli.dev>
-
-     You can redistribute this document and/or modify it under the terms
-     of the GNU General Public License as published by the Free Software
-     Foundation, either version 3 of the License, or (at your option)
-     any later version.
-
-     This document is distributed in the hope that it will be useful,
-     but WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-     General Public License for more details.
-
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit: (magit).       Using Git from Emacs with Magit.
-END-INFO-DIR-ENTRY
-
-
-File: magit.info,  Node: Top,  Next: Introduction,  Up: (dir)
-
-Magit User Manual
-*****************
-
-Magit is an interface to the version control system Git, implemented as
-an Emacs package.  Magit aspires to be a complete Git porcelain.  While
-we cannot (yet) claim that Magit wraps and improves upon each and every
-Git command, it is complete enough to allow even experienced Git users
-to perform almost all of their daily version control tasks directly from
-within Emacs.  While many fine Git clients exist, only Magit and Git
-itself deserve to be called porcelains.
-
-This manual is for Magit version 4.1.2.
-
-     Copyright (C) 2015-2024 Jonas Bernoulli
-     <emacs.magit@jonas.bernoulli.dev>
-
-     You can redistribute this document and/or modify it under the terms
-     of the GNU General Public License as published by the Free Software
-     Foundation, either version 3 of the License, or (at your option)
-     any later version.
-
-     This document is distributed in the hope that it will be useful,
-     but WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-     General Public License for more details.
-
-* Menu:
-
-* Introduction::
-* Installation::
-* Getting Started::
-* Interface Concepts::
-* Inspecting::
-* Manipulating::
-* Transferring::
-* Miscellaneous::
-* Customizing::
-* Plumbing::
-* FAQ::
-* Debugging Tools::
-* Keystroke Index::
-* Function and Command Index::
-* Variable Index::
-
-— The Detailed Node Listing —
-
-Installation
-
-* Installing from Melpa::
-* Installing from the Git Repository::
-* Post-Installation Tasks::
-
-Interface Concepts
-
-* Modes and Buffers::
-* Sections::
-* Transient Commands::
-* Transient Arguments and Buffer Variables::
-* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
-* Mouse Support::
-* Running Git::
-
-Modes and Buffers
-
-* Switching Buffers::
-* Naming Buffers::
-* Quitting Windows::
-* Automatic Refreshing of Magit Buffers::
-* Automatic Saving of File-Visiting Buffers::
-* Automatic Reverting of File-Visiting Buffers::
-
-
-Sections
-
-* Section Movement::
-* Section Visibility::
-* Section Hooks::
-* Section Types and Values::
-* Section Options::
-
-
-Completion, Confirmation and the Selection
-
-* Action Confirmation::
-* Completion and Confirmation::
-* The Selection::
-* The hunk-internal region::
-* Support for Completion Frameworks::
-* Additional Completion Options::
-
-
-Running Git
-
-* Viewing Git Output::
-* Git Process Status::
-* Running Git Manually::
-* Git Executable::
-* Global Git Arguments::
-
-
-Inspecting
-
-* Status Buffer::
-* Repository List::
-* Logging::
-* Diffing::
-* Ediffing::
-* References Buffer::
-* Bisecting::
-* Visiting Files and Blobs::
-* Blaming::
-
-Status Buffer
-
-* Status Sections::
-* Status Header Sections::
-* Status Module Sections::
-* Status Options::
-
-
-Logging
-
-* Refreshing Logs::
-* Log Buffer::
-* Log Margin::
-* Select from Log::
-* Reflog::
-* Cherries::
-
-
-Diffing
-
-* Refreshing Diffs::
-* Commands Available in Diffs::
-* Diff Options::
-* Revision Buffer::
-
-
-References Buffer
-
-* References Sections::
-
-
-Visiting Files and Blobs
-
-* General-Purpose Visit Commands::
-* Visiting Files and Blobs from a Diff::
-
-
-Manipulating
-
-* Creating Repository::
-* Cloning Repository::
-* Staging and Unstaging::
-* Applying::
-* Committing::
-* Branching::
-* Merging::
-* Resolving Conflicts::
-* Rebasing::
-* Cherry Picking::
-* Resetting::
-* Stashing::
-
-Staging and Unstaging
-
-* Staging from File-Visiting Buffers::
-
-
-Committing
-
-* Initiating a Commit::
-* Editing Commit Messages::
-
-
-Branching
-
-* The Two Remotes::
-* Branch Commands::
-* Branch Git Variables::
-* Auxiliary Branch Commands::
-
-
-Rebasing
-
-* Editing Rebase Sequences::
-* Information About In-Progress Rebase::
-
-
-Cherry Picking
-
-* Reverting::
-
-
-Transferring
-
-* Remotes::
-* Fetching::
-* Pulling::
-* Pushing::
-* Plain Patches::
-* Maildir Patches::
-
-Remotes
-
-* Remote Commands::
-* Remote Git Variables::
-
-
-Miscellaneous
-
-* Tagging::
-* Notes::
-* Submodules::
-* Subtree::
-* Worktree::
-* Sparse checkouts::
-* Bundle::
-* Common Commands::
-* Wip Modes::
-* Commands for Buffers Visiting Files::
-* Minor Mode for Buffers Visiting Blobs::
-
-Submodules
-
-* Listing Submodules::
-* Submodule Transient::
-
-
-Wip Modes
-
-* Wip Graph::
-* Legacy Wip Modes::
-
-
-Customizing
-
-* Per-Repository Configuration::
-* Essential Settings::
-
-Essential Settings
-
-* Safety::
-* Performance::
-* Global Bindings::
-
-
-Plumbing
-
-* Calling Git::
-* Section Plumbing::
-* Refreshing Buffers::
-* Conventions::
-
-Calling Git
-
-* Getting a Value from Git::
-* Calling Git for Effect::
-
-
-Section Plumbing
-
-* Creating Sections::
-* Section Selection::
-* Matching Sections::
-
-
-Conventions
-
-* Theming Faces::
-
-
-FAQ
-
-* FAQ - How to ...?::
-* FAQ - Issues and Errors::
-
-FAQ - How to ...?
-
-* How to pronounce Magit?::
-* How to show git's output?::
-* How to install the gitman info manual?::
-* How to show diffs for gpg-encrypted files?::
-* How does branching and pushing work?::
-* Should I disable VC?::
-
-
-FAQ - Issues and Errors
-
-* Magit is slow::
-* I changed several thousand files at once and now Magit is unusable::
-* I am having problems committing::
-* I am using MS Windows and cannot push with Magit::
-* I am using macOS and SOMETHING works in shell, but not in Magit: I am using macOS and SOMETHING works in shell but not in Magit.
-* Expanding a file to show the diff causes it to disappear::
-* Point is wrong in the COMMIT_EDITMSG buffer::
-* The mode-line information isn't always up-to-date::
-* A branch and tag sharing the same name breaks SOMETHING::
-* My Git hooks work on the command-line but not inside Magit::
-* git-commit-mode isn't used when committing from the command-line::
-* Point ends up inside invisible text when jumping to a file-visiting buffer::
-* I am no longer able to save popup defaults::
-
-
-
-
-File: magit.info,  Node: Introduction,  Next: Installation,  Prev: Top,  Up: Top
-
-1 Introduction
-**************
-
-Magit is an interface to the version control system Git, implemented as
-an Emacs package.  Magit aspires to be a complete Git porcelain.  While
-we cannot (yet) claim that Magit wraps and improves upon each and every
-Git command, it is complete enough to allow even experienced Git users
-to perform almost all of their daily version control tasks directly from
-within Emacs.  While many fine Git clients exist, only Magit and Git
-itself deserve to be called porcelains.
-
-   Staging and otherwise applying changes is one of the most important
-features in a Git porcelain and here Magit outshines anything else,
-including Git itself.  Git’s own staging interface (‘git add --patch’)
-is so cumbersome that many users only use it in exceptional cases.  In
-Magit staging a hunk or even just part of a hunk is as trivial as
-staging all changes made to a file.
-
-   The most visible part of Magit’s interface is the status buffer,
-which displays information about the current repository.  Its content is
-created by running several Git commands and making their output
-actionable.  Among other things, it displays information about the
-current branch, lists unpulled and unpushed changes and contains
-sections displaying the staged and unstaged changes.  That might sound
-noisy, but, since sections are collapsible, it’s not.
-
-   To stage or unstage a change one places the cursor on the change and
-then types ‘s’ or ‘u’.  The change can be a file or a hunk, or when the
-region is active (i.e., when there is a selection) several files or
-hunks, or even just part of a hunk.  The change or changes that these
-commands - and many others - would act on are highlighted.
-
-   Magit also implements several other "apply variants" in addition to
-staging and unstaging.  One can discard or reverse a change, or apply it
-to the working tree.  Git’s own porcelain only supports this for staging
-and unstaging and you would have to do something like ‘git diff ... |
-??? | git apply ...’ to discard, revert, or apply a single hunk on the
-command line.  In fact that’s exactly what Magit does internally (which
-is what lead to the term "apply variants").
-
-   Magit isn’t just for Git experts, but it does assume some prior
-experience with Git as well as Emacs.  That being said, many users have
-reported that using Magit was what finally taught them what Git is
-capable of and how to use it to its fullest.  Other users wished they
-had switched to Emacs sooner so that they would have gotten their hands
-on Magit earlier.
-
-   While one has to know the basic features of Emacs to be able to make
-full use of Magit, acquiring just enough Emacs skills doesn’t take long
-and is worth it, even for users who prefer other editors.  Vim users are
-advised to give Evil (https://github.com/emacs-evil/evil), the
-"Extensible VI Layer for Emacs", and Spacemacs
-(https://github.com/syl20bnr/spacemacs), an "Emacs starter-kit focused
-on Evil" a try.
-
-   Magit provides a consistent and efficient Git porcelain.  After a
-short learning period, you will be able to perform most of your daily
-version control tasks faster than you would on the command line.  You
-will likely also start using features that seemed too daunting in the
-past.
-
-   Magit fully embraces Git.  It exposes many advanced features using a
-simple but flexible interface instead of only wrapping the trivial ones
-like many GUI clients do.  Of course Magit supports logging, cloning,
-pushing, and other commands that usually don’t fail in spectacular ways;
-but it also supports tasks that often cannot be completed in a single
-step.  Magit fully supports tasks such as merging, rebasing,
-cherry-picking, reverting, and blaming by not only providing a command
-to initiate these tasks but also by displaying context sensitive
-information along the way and providing commands that are useful for
-resolving conflicts and resuming the sequence after doing so.
-
-   Magit wraps and in many cases improves upon at least the following
-Git porcelain commands: ‘add’, ‘am’, ‘bisect’, ‘blame’, ‘branch’,
-‘checkout’, ‘cherry’, ‘cherry-pick’, ‘clean’, ‘clone’, ‘commit’,
-‘config’, ‘describe’, ‘diff’, ‘fetch’, ‘format-patch’, ‘init’, ‘log’,
-‘merge’, ‘merge-tree’, ‘mv’, ‘notes’, ‘pull’, ‘rebase’, ‘reflog’,
-‘remote’, ‘request-pull’, ‘reset’, ‘revert’, ‘rm’, ‘show’, ‘stash’,
-‘submodule’, ‘subtree’, ‘tag’, and ‘worktree.’ Many more Magit porcelain
-commands are implemented on top of Git plumbing commands.
-
-
-File: magit.info,  Node: Installation,  Next: Getting Started,  Prev: Introduction,  Up: Top
-
-2 Installation
-**************
-
-Magit can be installed using Emacs’ package manager or manually from its
-development repository.
-
-* Menu:
-
-* Installing from Melpa::
-* Installing from the Git Repository::
-* Post-Installation Tasks::
-
-
-File: magit.info,  Node: Installing from Melpa,  Next: Installing from the Git Repository,  Up: Installation
-
-2.1 Installing from Melpa
-=========================
-
-Magit is available from Melpa and Melpa-Stable.  If you haven’t used
-Emacs’ package manager before, then it is high time you familiarize
-yourself with it by reading the documentation in the Emacs manual, see
-*note (emacs)Packages::.  Then add one of the archives to
-‘package-archives’:
-
-   • To use Melpa:
-
-     (require 'package)
-     (add-to-list 'package-archives
-                  '("melpa" . "https://melpa.org/packages/") t)
-
-   • To use Melpa-Stable:
-
-     (require 'package)
-     (add-to-list 'package-archives
-                  '("melpa-stable" . "https://stable.melpa.org/packages/") t)
-
-   Once you have added your preferred archive, you need to update the
-local package list using:
-
-     M-x package-refresh-contents RET
-
-   Once you have done that, you can install Magit and its dependencies
-using:
-
-     M-x package-install RET magit RET
-
-   Now see *note Post-Installation Tasks::.
-
-
-File: magit.info,  Node: Installing from the Git Repository,  Next: Post-Installation Tasks,  Prev: Installing from Melpa,  Up: Installation
-
-2.2 Installing from the Git Repository
-======================================
-
-Magit depends on the ‘compat’, ‘dash’, ‘transient’ and ‘with-editor’
-libraries which are available from Melpa and Melpa-Stable.  Install them
-using ‘M-x package-install RET <package> RET’.  Of course you may also
-install them manually from their repository.
-
-   Then clone the Magit repository:
-
-     $ git clone https://github.com/magit/magit.git ~/.emacs.d/site-lisp/magit
-     $ cd ~/.emacs.d/site-lisp/magit
-
-   Then compile the libraries and generate the info manuals:
-
-     $ make
-
-   If you haven’t installed ‘compat’, ‘dash’, ‘transient’ and
-‘with-editor’ from Melpa or at ‘/path/to/magit/../<package>’, then you
-have to tell ‘make’ where to find them.  To do so create the file
-‘/path/to/magit/config.mk’ with the following content before running
-‘make’:
-
-     LOAD_PATH  = -L ~/.emacs.d/site-lisp/magit/lisp
-     LOAD_PATH += -L ~/.emacs.d/site-lisp/dash
-     LOAD_PATH += -L ~/.emacs.d/site-lisp/transient/lisp
-     LOAD_PATH += -L ~/.emacs.d/site-lisp/with-editor/lisp
-     LOAD_PATH += -L ~/.emacs.d/site-lisp/compat
-
-   Finally add this to your init file:
-
-     (add-to-list 'load-path "~/.emacs.d/site-lisp/magit/lisp")
-     (require 'magit)
-
-     (with-eval-after-load 'info
-       (info-initialize)
-       (add-to-list 'Info-directory-list
-                    "~/.emacs.d/site-lisp/magit/Documentation/"))
-
-   Of course if you installed the dependencies manually as well, then
-you have to tell Emacs about them too, by prefixing the above with:
-
-     (add-to-list 'load-path "~/.emacs.d/site-lisp/dash")
-     (add-to-list 'load-path "~/.emacs.d/site-lisp/transient/lisp")
-     (add-to-list 'load-path "~/.emacs.d/site-lisp/with-editor")
-
-   Note that you have to add the ‘lisp’ subdirectory to the ‘load-path’,
-not the top-level of the repository, and that elements of ‘load-path’
-should not end with a slash, while those of ‘Info-directory-list’
-should.
-
-   Instead of requiring the feature ‘magit’, you could load just the
-autoload definitions, by loading the file ‘magit-autoloads.el’.
-
-     (load "/path/to/magit/lisp/magit-autoloads")
-
-   Instead of running Magit directly from the repository by adding that
-to the ‘load-path’, you might want to instead install it in some other
-directory using ‘sudo make install’ and setting ‘load-path’ accordingly.
-
-   To update Magit use:
-
-     $ git pull
-     $ make
-
-   At times it might be necessary to run ‘make clean all’ instead.
-
-   To view all available targets use ‘make help’.
-
-   Now see *note Post-Installation Tasks::.
-
-
-File: magit.info,  Node: Post-Installation Tasks,  Prev: Installing from the Git Repository,  Up: Installation
-
-2.3 Post-Installation Tasks
-===========================
-
-After installing Magit you should verify that you are indeed using the
-Magit, Git, and Emacs releases you think you are using.  It’s best to
-restart Emacs before doing so, to make sure you are not using an
-outdated value for ‘load-path’.
-
-     M-x magit-version RET
-
-   should display something like
-
-     Magit 2.8.0, Git 2.10.2, Emacs 25.1.1, gnu/linux
-
-   Then you might also want to read about options that many users likely
-want to customize.  See *note Essential Settings::.
-
-   To be able to follow cross references to Git manpages found in this
-manual, you might also have to manually install the ‘gitman’ info
-manual, or advice ‘Info-follow-nearest-node’ to instead open the actual
-manpage.  See *note How to install the gitman info manual?::.
-
-   If you are completely new to Magit then see *note Getting Started::.
-
-   If you run into problems, then please see the *note FAQ::.  Also see
-the *note Debugging Tools::.
-
-   And last but not least please consider making a donation, to ensure
-that I can keep working on Magit.  See <https://magit.vc/donations>.
-for various donation options.
-
-
-File: magit.info,  Node: Getting Started,  Next: Interface Concepts,  Prev: Installation,  Up: Top
-
-3 Getting Started
-*****************
-
-This short tutorial describes the most essential features that many
-Magitians use on a daily basis.  It only scratches the surface but
-should be enough to get you started.
-
-   IMPORTANT: It is safest if you clone some repository just for this
-tutorial.  Alternatively you can use an existing local repository, but
-if you do that, then you should commit all uncommitted changes before
-proceeding.
-
-   Type ‘C-x g’ to display information about the current Git repository
-in a dedicated buffer, called the status buffer.
-
-   Most Magit commands are commonly invoked from the status buffer.  It
-can be considered the primary interface for interacting with Git using
-Magit.  Many other Magit buffers may exist at a given time, but they are
-often created from this buffer.
-
-   Depending on what state your repository is in, this buffer may
-contain sections titled "Staged changes", "Unstaged changes", "Unmerged
-into origin/master", "Unpushed to origin/master", and many others.
-
-   Since we are starting from a safe state, which you can easily return
-to (by doing a ‘git reset --hard PRE-MAGIT-STATE’), there currently are
-no staged or unstaged changes.  Edit some files and save the changes.
-Then go back to the status buffer, while at the same time refreshing it,
-by typing ‘C-x g’.  (When the status buffer, or any Magit buffer for
-that matter, is the current buffer, then you can also use just ‘g’ to
-refresh it).
-
-   Move between sections using ‘p’ and ‘n’.  Note that the bodies of
-some sections are hidden.  Type ‘TAB’ to expand or collapse the section
-at point.  You can also use ‘C-tab’ to cycle the visibility of the
-current section and its children.  Move to a file section inside the
-section named "Unstaged changes" and type ‘s’ to stage the changes you
-have made to that file.  That file now appears under "Staged changes".
-
-   Magit can stage and unstage individual hunks, not just complete
-files.  Move to the file you have just staged, expand it using ‘TAB’,
-move to one of the hunks using ‘n’, and unstage just that by typing ‘u’.
-Note how the staging (‘s’) and unstaging (‘u’) commands operate on the
-change at point.  Many other commands behave the same way.
-
-   You can also un-/stage just part of a hunk.  Inside the body of a
-hunk section (move there using ‘C-n’), set the mark using ‘C-SPC’ and
-move down until some added and/or removed lines fall inside the region
-but not all of them.  Again type ‘s’ to stage.
-
-   It is also possible to un-/stage multiple files at once.  Move to a
-file section, type ‘C-SPC’, move to the next file using ‘n’, and then
-‘s’ to stage both files.  Note that both the mark and point have to be
-on the headings of sibling sections for this to work.  If the region
-looks like it does in other buffers, then it doesn’t select Magit
-sections that can be acted on as a unit.
-
-   And then of course you want to commit your changes.  Type ‘c’.  This
-shows the available commit commands and arguments in a buffer at the
-bottom of the frame.  Each command and argument is prefixed with the key
-that invokes/sets it.  Do not worry about this for now.  We want to
-create a "normal" commit, which is done by typing ‘c’ again.
-
-   Now two new buffers appear.  One is for writing the commit message,
-the other shows a diff with the changes that you are about to commit.
-Write a message and then type ‘C-c C-c’ to actually create the commit.
-
-   You probably don’t want to push the commit you just created because
-you just committed some random changes, but if that is not the case you
-could push it by typing ‘P’ to show all the available push commands and
-arguments and then ‘p’ to push to a branch with the same name as the
-local branch onto the remote configured as the push-remote.  (If the
-push-remote is not configured yet, then you would first be prompted for
-the remote to push to.)
-
-   So far we have mentioned the commit and push menu commands.  These
-are probably among the menus you will be using the most, but many others
-exist.  To show a menu that lists all other menus (as well as the
-various apply commands and some other essential commands), type ‘h’.
-Try a few.  (Such menus are also called "transient prefix commands" or
-just "transients".)
-
-   The key bindings in that menu correspond to the bindings in Magit
-buffers, including but not limited to the status buffer.  So you could
-type ‘h d’ to bring up the diff menu, but once you remember that "d"
-stands for "diff", you would usually do so by just typing ‘d’.
-
-   This "prefix of prefixes" is useful even once you have memorized all
-the bindings, as it can provide easy access to Magit commands from
-non-Magit buffers.  So, by default, it is globally bound to ‘C-x M-g’.
-
-   A similar menu featuring (for the most part) commands that act on
-just the file being visited in the current buffer, is globally bound to
-‘C-c M-g’.  That binding can also be used in buffers, which do not visit
-a file, but then only a subset of the commands is available.
-
-   The global key bindings mentioned in the previous two paragraphs are
-quite inconvenient.  We recommend using ‘C-c g’ and ‘C-c f’ instead, but
-cannot use those key sequences by default because they are strictly
-reserved for bindings added by the user.  See *note Global Bindings::,
-if you want to explicitly opt-in to the recommended key bindings.
-
-   Magit also provides context menus and other mouse commands, see *note
-Mouse Support::.
-
-   It is not necessary that you do so now, but if you stick with Magit,
-then it is highly recommended that you read the next section too.
-
-
-File: magit.info,  Node: Interface Concepts,  Next: Inspecting,  Prev: Getting Started,  Up: Top
-
-4 Interface Concepts
-********************
-
-* Menu:
-
-* Modes and Buffers::
-* Sections::
-* Transient Commands::
-* Transient Arguments and Buffer Variables::
-* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
-* Mouse Support::
-* Running Git::
-
-
-File: magit.info,  Node: Modes and Buffers,  Next: Sections,  Up: Interface Concepts
-
-4.1 Modes and Buffers
-=====================
-
-Magit provides several major-modes.  For each of these modes there
-usually exists only one buffer per repository.  Separate modes and thus
-buffers exist for commits, diffs, logs, and some other things.
-
-   Besides these special purpose buffers, there also exists an overview
-buffer, called the *status buffer*.  It’s usually from this buffer that
-the user invokes Git commands, or creates or visits other buffers.
-
-   In this manual we often speak about "Magit buffers".  By that we mean
-buffers whose major-modes derive from ‘magit-mode’.
-
-‘M-x magit-toggle-buffer-lock’
-     This command locks the current buffer to its value or if the buffer
-     is already locked, then it unlocks it.
-
-     Locking a buffer to its value prevents it from being reused to
-     display another value.  The name of a locked buffer contains its
-     value, which allows telling it apart from other locked buffers and
-     the unlocked buffer.
-
-     Not all Magit buffers can be locked to their values; for example,
-     it wouldn’t make sense to lock a status buffer.
-
-     There can only be a single unlocked buffer using a certain
-     major-mode per repository.  So when a buffer is being unlocked and
-     another unlocked buffer already exists for that mode and
-     repository, then the former buffer is instead deleted and the
-     latter is displayed in its place.
-
-* Menu:
-
-* Switching Buffers::
-* Naming Buffers::
-* Quitting Windows::
-* Automatic Refreshing of Magit Buffers::
-* Automatic Saving of File-Visiting Buffers::
-* Automatic Reverting of File-Visiting Buffers::
-
-
-File: magit.info,  Node: Switching Buffers,  Next: Naming Buffers,  Up: Modes and Buffers
-
-4.1.1 Switching Buffers
------------------------
-
- -- Function: magit-display-buffer buffer &optional display-function
-     This function is a wrapper around ‘display-buffer’ and is used to
-     display any Magit buffer.  It displays BUFFER in some window and,
-     unlike ‘display-buffer’, also selects that window, provided
-     ‘magit-display-buffer-noselect’ is ‘nil’.  It also runs the hooks
-     mentioned below.
-
-     If optional DISPLAY-FUNCTION is non-nil, then that is used to
-     display the buffer.  Usually that is ‘nil’ and the function
-     specified by ‘magit-display-buffer-function’ is used.
-
- -- Variable: magit-display-buffer-noselect
-     When this is non-nil, then ‘magit-display-buffer’ only displays the
-     buffer but forgoes also selecting the window.  This variable should
-     not be set globally, it is only intended to be let-bound, by code
-     that automatically updates "the other window".  This is used for
-     example when the revision buffer is updated when you move inside
-     the log buffer.
-
- -- User Option: magit-display-buffer-function
-     The function specified here is called by ‘magit-display-buffer’
-     with one argument, a buffer, to actually display that buffer.  This
-     function should call ‘display-buffer’ with that buffer as first and
-     a list of display actions as second argument.
-
-     Magit provides several functions, listed below, that are suitable
-     values for this option.  If you want to use different rules, then a
-     good way of doing that is to start with a copy of one of these
-     functions and then adjust it to your needs.
-
-     Instead of using a wrapper around ‘display-buffer’, that function
-     itself can be used here, in which case the display actions have to
-     be specified by adding them to ‘display-buffer-alist’ instead.
-
-     To learn about display actions, see *note (elisp)Choosing Window::.
-
- -- Function: magit-display-buffer-traditional buffer
-     This function is the current default value of the option
-     ‘magit-display-buffer-function’.  Before that option and this
-     function were added, the behavior was hard-coded in many places all
-     over the code base but now all the rules are contained in this one
-     function (except for the "noselect" special case mentioned above).
-
- -- Function: magit-display-buffer-same-window-except-diff-v1
-     This function displays most buffers in the currently selected
-     window.  If a buffer’s mode derives from ‘magit-diff-mode’ or
-     ‘magit-process-mode’, it is displayed in another window.
-
- -- Function: magit-display-buffer-fullframe-status-v1
-     This function fills the entire frame when displaying a status
-     buffer.  Otherwise, it behaves like
-     ‘magit-display-buffer-traditional’.
-
- -- Function: magit-display-buffer-fullframe-status-topleft-v1
-     This function fills the entire frame when displaying a status
-     buffer.  It behaves like ‘magit-display-buffer-fullframe-status-v1’
-     except that it displays buffers that derive from ‘magit-diff-mode’
-     or ‘magit-process-mode’ to the top or left of the current buffer
-     rather than to the bottom or right.  As a result, Magit buffers
-     tend to pop up on the same side as they would if
-     ‘magit-display-buffer-traditional’ were in use.
-
- -- Function: magit-display-buffer-fullcolumn-most-v1
-     This function displays most buffers so that they fill the entire
-     height of the frame.  However, the buffer is displayed in another
-     window if (1) the buffer’s mode derives from ‘magit-process-mode’,
-     or (2) the buffer’s mode derives from ‘magit-diff-mode’, provided
-     that the mode of the current buffer derives from ‘magit-log-mode’
-     or ‘magit-cherry-mode’.
-
- -- User Option: magit-pre-display-buffer-hook
-     This hook is run by ‘magit-display-buffer’ before displaying the
-     buffer.
-
- -- Function: magit-save-window-configuration
-     This function saves the current window configuration.  Later when
-     the buffer is buried, it may be restored by
-     ‘magit-restore-window-configuration’.
-
- -- User Option: magit-post-display-buffer-hook
-     This hook is run by ‘magit-display-buffer’ after displaying the
-     buffer.
-
- -- Function: magit-maybe-set-dedicated
-     This function remembers if a new window had to be created to
-     display the buffer, or whether an existing window was reused.  This
-     information is later used by ‘magit-mode-quit-window’, to determine
-     whether the window should be deleted when its last Magit buffer is
-     buried.
-
-
-File: magit.info,  Node: Naming Buffers,  Next: Quitting Windows,  Prev: Switching Buffers,  Up: Modes and Buffers
-
-4.1.2 Naming Buffers
---------------------
-
- -- User Option: magit-generate-buffer-name-function
-     The function used to generate the names of Magit buffers.
-
-     Such a function should take the options
-     ‘magit-uniquify-buffer-names’ as well as ‘magit-buffer-name-format’
-     into account.  If it doesn’t, then should be clearly stated in the
-     doc-string.  And if it supports %-sequences beyond those mentioned
-     in the doc-string of the option ‘magit-buffer-name-format’, then
-     its own doc-string should describe the additions.
-
- -- Function: magit-generate-buffer-name-default-function mode
-     This function returns a buffer name suitable for a buffer whose
-     major-mode is MODE and which shows information about the repository
-     in which ‘default-directory’ is located.
-
-     This function uses ‘magit-buffer-name-format’ and supporting all of
-     the %-sequences mentioned the documentation of that option.  It
-     also respects the option ‘magit-uniquify-buffer-names’.
-
- -- User Option: magit-buffer-name-format
-     The format string used to name Magit buffers.
-
-     At least the following %-sequences are supported:
-
-        • ‘%m’
-
-          The name of the major-mode, but with the ‘-mode’ suffix
-          removed.
-
-        • ‘%M’
-
-          Like ‘%m’ but abbreviate ‘magit-status-mode’ as ‘magit’.
-
-        • ‘%v’
-
-          The value the buffer is locked to, in parentheses, or an empty
-          string if the buffer is not locked to a value.
-
-        • ‘%V’
-
-          Like ‘%v’, but the string is prefixed with a space, unless it
-          is an empty string.
-
-        • ‘%t’
-
-          The top-level directory of the working tree of the repository,
-          or if ‘magit-uniquify-buffer-names’ is non-nil an abbreviation
-          of that.
-
-        • ‘%x’
-
-          If ‘magit-uniquify-buffer-names’ is nil "*", otherwise the
-          empty string.  Due to limitations of the ‘uniquify’ package,
-          buffer names must end with the path.
-
-     The value should always contain ‘%m’ or ‘%M’, ‘%v’ or ‘%V’, and
-     ‘%t’.  If ‘magit-uniquify-buffer-names’ is non-nil, then the value
-     must end with ‘%t’ or ‘%t%x’.  See issue #2841.
-
- -- User Option: magit-uniquify-buffer-names
-     This option controls whether the names of Magit buffers are
-     uniquified.  If the names are not being uniquified, then they
-     contain the full path of the top-level of the working tree of the
-     corresponding repository.  If they are being uniquified, then they
-     end with the basename of the top-level, or if that would conflict
-     with the name used for other buffers, then the names of all these
-     buffers are adjusted until they no longer conflict.
-
-     This is done using the ‘uniquify’ package; customize its options to
-     control how buffer names are uniquified.
-
-
-File: magit.info,  Node: Quitting Windows,  Next: Automatic Refreshing of Magit Buffers,  Prev: Naming Buffers,  Up: Modes and Buffers
-
-4.1.3 Quitting Windows
-----------------------
-
-‘q’ (‘magit-mode-bury-buffer’)
-     This command buries or kills the current Magit buffer.  The
-     function specified by option ‘magit-bury-buffer-function’ is used
-     to bury the buffer when called without a prefix argument or to kill
-     it when called with a single prefix argument.
-
-     When called with two or more prefix arguments then it always kills
-     all Magit buffers, associated with the current project, including
-     the current buffer.
-
- -- User Option: magit-bury-buffer-function
-     The function used to actually bury or kill the current buffer.
-
-     ‘magit-mode-bury-buffer’ calls this function with one argument.  If
-     the argument is non-nil, then the function has to kill the current
-     buffer.  Otherwise it has to bury it alive.  The default value
-     currently is ‘magit-mode-quit-window’.
-
- -- Function: magit-restore-window-configuration kill-buffer
-     Bury or kill the current buffer using ‘quit-window’, which is
-     called with KILL-BUFFER as first and the selected window as second
-     argument.
-
-     Then restore the window configuration that existed right before the
-     current buffer was displayed in the selected frame.  Unfortunately
-     that also means that point gets adjusted in all the buffers, which
-     are being displayed in the selected frame.
-
- -- Function: magit-mode-quit-window kill-buffer
-     Bury or kill the current buffer using ‘quit-window’, which is
-     called with KILL-BUFFER as first and the selected window as second
-     argument.
-
-     Then, if the window was originally created to display a Magit
-     buffer and the buried buffer was the last remaining Magit buffer
-     that was ever displayed in the window, then that is deleted.
-
-
-File: magit.info,  Node: Automatic Refreshing of Magit Buffers,  Next: Automatic Saving of File-Visiting Buffers,  Prev: Quitting Windows,  Up: Modes and Buffers
-
-4.1.4 Automatic Refreshing of Magit Buffers
--------------------------------------------
-
-After running a command which may change the state of the current
-repository, the current Magit buffer and the corresponding status buffer
-are refreshed.  The status buffer can be automatically refreshed
-whenever a buffer is saved to a file inside the respective repository by
-adding a hook, like so:
-
-     (with-eval-after-load 'magit-mode
-       (add-hook 'after-save-hook 'magit-after-save-refresh-status t))
-
-   Automatically refreshing Magit buffers ensures that the displayed
-information is up-to-date most of the time but can lead to a noticeable
-delay in big repositories.  Other Magit buffers are not refreshed to
-keep the delay to a minimum and also because doing so can sometimes be
-undesirable.
-
-   Buffers can also be refreshed explicitly, which is useful in buffers
-that weren’t current during the last refresh and after changes were made
-to the repository outside of Magit.
-
-‘g’ (‘magit-refresh’)
-     This command refreshes the current buffer if its major mode derives
-     from ‘magit-mode’ as well as the corresponding status buffer.
-
-     If the option ‘magit-revert-buffers’ calls for it, then it also
-     reverts all unmodified buffers that visit files being tracked in
-     the current repository.
-
-‘G’ (‘magit-refresh-all’)
-     This command refreshes all Magit buffers belonging to the current
-     repository and also reverts all unmodified buffers that visit files
-     being tracked in the current repository.
-
-     The file-visiting buffers are always reverted, even if
-     ‘magit-revert-buffers’ is nil.
-
- -- User Option: magit-refresh-buffer-hook
-     This hook is run in each Magit buffer that was refreshed during the
-     current refresh - normally the current buffer and the status
-     buffer.
-
- -- User Option: magit-refresh-status-buffer
-     When this option is non-nil, then the status buffer is
-     automatically refreshed after running git for side-effects, in
-     addition to the current Magit buffer, which is always refreshed
-     automatically.
-
-     Only set this to nil after exhausting all other options to improve
-     performance.
-
- -- Function: magit-after-save-refresh-status
-     This function is intended to be added to ‘after-save-hook’.  After
-     doing that the corresponding status buffer is refreshed whenever a
-     buffer is saved to a file inside a repository.
-
-     Note that refreshing a Magit buffer is done by re-creating its
-     contents from scratch, which can be slow in large repositories.  If
-     you are not satisfied with Magit’s performance, then you should
-     obviously not add this function to that hook.
-
-
-File: magit.info,  Node: Automatic Saving of File-Visiting Buffers,  Next: Automatic Reverting of File-Visiting Buffers,  Prev: Automatic Refreshing of Magit Buffers,  Up: Modes and Buffers
-
-4.1.5 Automatic Saving of File-Visiting Buffers
------------------------------------------------
-
-File-visiting buffers are by default saved at certain points in time.
-This doesn’t guarantee that Magit buffers are always up-to-date, but,
-provided one only edits files by editing them in Emacs and uses only
-Magit to interact with Git, one can be fairly confident.  When in doubt
-or after outside changes, type ‘g’ (‘magit-refresh’) to save and refresh
-explicitly.
-
- -- User Option: magit-save-repository-buffers
-     This option controls whether file-visiting buffers are saved before
-     certain events.
-
-     If this is non-nil then all modified file-visiting buffers
-     belonging to the current repository may be saved before running
-     commands, before creating new Magit buffers, and before explicitly
-     refreshing such buffers.  If this is ‘dontask’ then this is done
-     without user intervention.  If it is ‘t’ then the user has to
-     confirm each save.
-
-
-File: magit.info,  Node: Automatic Reverting of File-Visiting Buffers,  Prev: Automatic Saving of File-Visiting Buffers,  Up: Modes and Buffers
-
-4.1.6 Automatic Reverting of File-Visiting Buffers
---------------------------------------------------
-
-By default Magit automatically reverts buffers that are visiting files
-that are being tracked in a Git repository, after they have changed on
-disk.  When using Magit one often changes files on disk by running Git,
-i.e., "outside Emacs", making this a rather important feature.
-
-   For example, if you discard a change in the status buffer, then that
-is done by running ‘git apply --reverse ...’, and Emacs considers the
-file to have "changed on disk".  If Magit did not automatically revert
-the buffer, then you would have to type ‘M-x revert-buffer RET RET’ in
-the visiting buffer before you could continue making changes.
-
- -- User Option: magit-auto-revert-mode
-     When this mode is enabled, then buffers that visit tracked files
-     are automatically reverted after the visited files change on disk.
-
- -- User Option: global-auto-revert-mode
-     When this mode is enabled, then any file-visiting buffer is
-     automatically reverted after the visited file changes on disk.
-
-     If you like buffers that visit tracked files to be automatically
-     reverted, then you might also like any buffer to be reverted, not
-     just those visiting tracked files.  If that is the case, then
-     enable this mode _instead of_ ‘magit-auto-revert-mode’.
-
- -- User Option: magit-auto-revert-immediately
-     This option controls whether Magit reverts buffers immediately.
-
-     If this is non-nil and either ‘global-auto-revert-mode’ or
-     ‘magit-auto-revert-mode’ is enabled, then Magit immediately reverts
-     buffers by explicitly calling ‘auto-revert-buffers’ after running
-     Git for side-effects.
-
-     If ‘auto-revert-use-notify’ is non-nil (and file notifications are
-     actually supported), then ‘magit-auto-revert-immediately’ does not
-     have to be non-nil, because the reverts happen immediately anyway.
-
-     If ‘magit-auto-revert-immediately’ and ‘auto-revert-use-notify’ are
-     both ‘nil’, then reverts happen after ‘auto-revert-interval’
-     seconds of user inactivity.  That is not desirable.
-
- -- User Option: auto-revert-use-notify
-     This option controls whether file notification functions should be
-     used.  Note that this variable unfortunately defaults to ‘t’ even
-     on systems on which file notifications cannot be used.
-
- -- User Option: magit-auto-revert-tracked-only
-     This option controls whether ‘magit-auto-revert-mode’ only reverts
-     tracked files or all files that are located inside Git
-     repositories, including untracked files and files located inside
-     Git’s control directory.
-
- -- User Option: auto-revert-mode
-     The global mode ‘magit-auto-revert-mode’ works by turning on this
-     local mode in the appropriate buffers (but
-     ‘global-auto-revert-mode’ is implemented differently).  You can
-     also turn it on or off manually, which might be necessary if Magit
-     does not notice that a previously untracked file now is being
-     tracked or vice-versa.
-
- -- User Option: auto-revert-stop-on-user-input
-     This option controls whether the arrival of user input suspends the
-     automatic reverts for ‘auto-revert-interval’ seconds.
-
- -- User Option: auto-revert-interval
-     This option controls how many seconds Emacs waits for before
-     resuming suspended reverts.
-
- -- User Option: auto-revert-buffer-list-filter
-     This option specifies an additional filter used by
-     ‘auto-revert-buffers’ to determine whether a buffer should be
-     reverted or not.
-
-     This option is provided by Magit, which also advises
-     ‘auto-revert-buffers’ to respect it.  Magit users who do not turn
-     on the local mode ‘auto-revert-mode’ themselves, are best served by
-     setting the value to ‘magit-auto-revert-repository-buffer-p’.
-
-     However the default is nil, so as not to disturb users who do use
-     the local mode directly.  If you experience delays when running
-     Magit commands, then you should consider using one of the
-     predicates provided by Magit - especially if you also use Tramp.
-
-     Users who do turn on ‘auto-revert-mode’ in buffers in which Magit
-     doesn’t do that for them, should likely not use any filter.  Users
-     who turn on ‘global-auto-revert-mode’, do not have to worry about
-     this option, because it is disregarded if the global mode is
-     enabled.
-
- -- User Option: auto-revert-verbose
-     This option controls whether Emacs reports when a buffer has been
-     reverted.
-
-   The options with the ‘auto-revert-’ prefix are located in the Custom
-group named ‘auto-revert’.  The other, Magit-specific, options are
-located in the ‘magit’ group.
-
-* Menu:
-
-* Risk of Reverting Automatically::
-
-
-File: magit.info,  Node: Risk of Reverting Automatically,  Up: Automatic Reverting of File-Visiting Buffers
-
-Risk of Reverting Automatically
-...............................
-
-For the vast majority of users, automatically reverting file-visiting
-buffers after they have changed on disk is harmless.
-
-   If a buffer is modified (i.e., it contains changes that haven’t been
-saved yet), then Emacs will refuse to automatically revert it.  If you
-save a previously modified buffer, then that results in what is seen by
-Git as an uncommitted change.  Git will then refuse to carry out any
-commands that would cause these changes to be lost.  In other words, if
-there is anything that could be lost, then either Git or Emacs will
-refuse to discard the changes.
-
-   However, if you use file-visiting buffers as a sort of ad hoc
-"staging area", then the automatic reverts could potentially cause data
-loss.  So far I have heard from only one user who uses such a workflow.
-
-   An example: You visit some file in a buffer, edit it, and save the
-changes.  Then, outside of Emacs (or at least not using Magit or by
-saving the buffer) you change the file on disk again.  At this point the
-buffer is the only place where the intermediate version still exists.
-You have saved the changes to disk, but that has since been overwritten.
-Meanwhile Emacs considers the buffer to be unmodified (because you have
-not made any changes to it since you last saved it to the visited file)
-and therefore would not object to it being automatically reverted.  At
-this point an Auto-Revert mode would kick in.  It would check whether
-the buffer is modified and since that is not the case it would revert
-it.  The intermediate version would be lost.  (Actually you could still
-get it back using the ‘undo’ command.)
-
-   If your workflow depends on Emacs preserving the intermediate version
-in the buffer, then you have to disable all Auto-Revert modes.  But
-please consider that such a workflow would be dangerous even without
-using an Auto-Revert mode, and should therefore be avoided.  If Emacs
-crashes or if you quit Emacs by mistake, then you would also lose the
-buffer content.  There would be no autosave file still containing the
-intermediate version (because that was deleted when you saved the
-buffer) and you would not be asked whether you want to save the buffer
-(because it isn’t modified).
-
-
-File: magit.info,  Node: Sections,  Next: Transient Commands,  Prev: Modes and Buffers,  Up: Interface Concepts
-
-4.2 Sections
-============
-
-Magit buffers are organized into nested sections, which can be collapsed
-and expanded, similar to how sections are handled in Org mode.  Each
-section also has a type, and some sections also have a value.  For each
-section type there can also be a local keymap, shared by all sections of
-that type.
-
-   Taking advantage of the section value and type, many commands operate
-on the current section, or when the region is active and selects
-sections of the same type, all of the selected sections.  Commands that
-only make sense for a particular section type (as opposed to just
-behaving differently depending on the type) are usually bound in section
-type keymaps.
-
-* Menu:
-
-* Section Movement::
-* Section Visibility::
-* Section Hooks::
-* Section Types and Values::
-* Section Options::
-
-
-File: magit.info,  Node: Section Movement,  Next: Section Visibility,  Up: Sections
-
-4.2.1 Section Movement
-----------------------
-
-To move within a section use the usual keys (‘C-p’, ‘C-n’, ‘C-b’, ‘C-f’
-etc), whose global bindings are not shadowed.  To move to another
-section use the following commands.
-
-‘p’ (‘magit-section-backward’)
-     When not at the beginning of a section, then move to the beginning
-     of the current section.  At the beginning of a section, instead
-     move to the beginning of the previous visible section.
-
-‘n’ (‘magit-section-forward’)
-     Move to the beginning of the next visible section.
-
-‘M-p’ (‘magit-section-backward-siblings’)
-     Move to the beginning of the previous sibling section.  If there is
-     no previous sibling section, then move to the parent section
-     instead.
-
-‘M-n’ (‘magit-section-forward-siblings’)
-     Move to the beginning of the next sibling section.  If there is no
-     next sibling section, then move to the parent section instead.
-
-‘^’ (‘magit-section-up’)
-     Move to the beginning of the parent of the current section.
-
-   The above commands all call the hook ‘magit-section-movement-hook’.
-Any of the functions listed below can be used as members of this hook.
-
-   You might want to remove some of the functions that Magit adds using
-‘add-hook’.  In doing so you have to make sure you do not attempt to
-remove function that haven’t even been added yet, for example:
-
-     (with-eval-after-load 'magit-diff
-       (remove-hook 'magit-section-movement-hook
-                    'magit-hunk-set-window-start))
-
- -- Variable: magit-section-movement-hook
-     This hook is run by all of the above movement commands, after
-     arriving at the destination.
-
- -- Function: magit-hunk-set-window-start
-     This hook function ensures that the beginning of the current
-     section is visible, provided it is a ‘hunk’ section.  Otherwise, it
-     does nothing.
-
-     Loading ‘magit-diff’ adds this function to the hook.
-
- -- Function: magit-section-set-window-start
-     This hook function ensures that the beginning of the current
-     section is visible, regardless of the section’s type.  If you add
-     this to ‘magit-section-movement-hook’, then you must remove the
-     hunk-only variant in turn.
-
- -- Function: magit-log-maybe-show-more-commits
-     This hook function only has an effect in log buffers, and ‘point’
-     is on the "show more" section.  If that is the case, then it
-     doubles the number of commits that are being shown.
-
-     Loading ‘magit-log’ adds this function to the hook.
-
- -- Function: magit-log-maybe-update-revision-buffer
-     When moving inside a log buffer, then this function updates the
-     revision buffer, provided it is already being displayed in another
-     window of the same frame.
-
-     Loading ‘magit-log’ adds this function to the hook.
-
- -- Function: magit-log-maybe-update-blob-buffer
-     When moving inside a log buffer and another window of the same
-     frame displays a blob buffer, then this function instead displays
-     the blob buffer for the commit at point in that window.
-
- -- Function: magit-status-maybe-update-revision-buffer
-     When moving inside a status buffer, then this function updates the
-     revision buffer, provided it is already being displayed in another
-     window of the same frame.
-
- -- Function: magit-status-maybe-update-stash-buffer
-     When moving inside a status buffer, then this function updates the
-     stash buffer, provided it is already being displayed in another
-     window of the same frame.
-
- -- Function: magit-status-maybe-update-blob-buffer
-     When moving inside a status buffer and another window of the same
-     frame displays a blob buffer, then this function instead displays
-     the blob buffer for the commit at point in that window.
-
- -- Function: magit-stashes-maybe-update-stash-buffer
-     When moving inside a buffer listing stashes, then this function
-     updates the stash buffer, provided it is already being displayed in
-     another window of the same frame.
-
- -- User Option: magit-update-other-window-delay
-     Delay before automatically updating the other window.
-
-     When moving around in certain buffers, then certain other buffers,
-     which are being displayed in another window, may optionally be
-     updated to display information about the section at point.
-
-     When holding down a key to move by more than just one section, then
-     that would update that buffer for each section on the way.  To
-     prevent that, updating the revision buffer is delayed, and this
-     option controls for how long.  For optimal experience you might
-     have to adjust this delay and/or the keyboard repeat rate and delay
-     of your graphical environment or operating system.
-
-
-File: magit.info,  Node: Section Visibility,  Next: Section Hooks,  Prev: Section Movement,  Up: Sections
-
-4.2.2 Section Visibility
-------------------------
-
-Magit provides many commands for changing the visibility of sections,
-but all you need to get started are the next two.
-
-‘<TAB>’ (‘magit-section-toggle’)
-     Toggle the visibility of the body of the current section.
-
-‘C-c <TAB>’ (‘magit-section-cycle’)
-‘C-<tab>’ (‘magit-section-cycle’)
-     Cycle the visibility of current section and its children.
-
-     If this command is invoked using ‘C-<tab>’ and that is globally
-     bound to ‘tab-next’, then this command pivots to behave like that
-     command, and you must instead use ‘C-c TAB’ to cycle section
-     visibility.
-
-     If you would like to keep using ‘C-<tab>’ to cycle section
-     visibility but also want to use ‘tab-bar-mode’, then you have to
-     prevent that mode from using this key and instead bind another key
-     to ‘tab-next’.  Because ‘tab-bar-mode’ does not use a mode map but
-     instead manipulates the global map, this involves advising
-     ‘tab-bar--define-keys’.
-
-‘M-<tab>’ (‘magit-section-cycle-diffs’)
-     Cycle the visibility of diff-related sections in the current
-     buffer.
-
-‘S-<tab>’ (‘magit-section-cycle-global’)
-     Cycle the visibility of all sections in the current buffer.
-
-‘1’ (‘magit-section-show-level-1’)
-‘2’ (‘magit-section-show-level-2’)
-‘3’ (‘magit-section-show-level-3’)
-‘4’ (‘magit-section-show-level-4’)
-     Show sections surrounding the current section up to level N.
-
-‘M-1’ (‘magit-section-show-level-1-all’)
-‘M-2’ (‘magit-section-show-level-2-all’)
-‘M-3’ (‘magit-section-show-level-3-all’)
-‘M-4’ (‘magit-section-show-level-4-all’)
-     Show all sections up to level N.
-
-   Some functions, which are used to implement the above commands, are
-also exposed as commands themselves.  By default no keys are bound to
-these commands, as they are generally perceived to be much less useful.
-But your mileage may vary.
-
- -- Command: magit-section-show
-     Show the body of the current section.
-
- -- Command: magit-section-hide
-     Hide the body of the current section.
-
- -- Command: magit-section-show-headings
-     Recursively show headings of children of the current section.  Only
-     show the headings.  Previously shown text-only bodies are hidden.
-
- -- Command: magit-section-show-children
-     Recursively show the bodies of children of the current section.
-     With a prefix argument show children down to the level of the
-     current section, and hide deeper children.
-
- -- Command: magit-section-hide-children
-     Recursively hide the bodies of children of the current section.
-
- -- Command: magit-section-toggle-children
-     Toggle visibility of bodies of children of the current section.
-
-   When a buffer is first created then some sections are shown expanded
-while others are not.  This is hard coded.  When a buffer is refreshed
-then the previous visibility is preserved.  The initial visibility of
-certain sections can also be overwritten using the hook
-‘magit-section-set-visibility-hook’.
-
- -- User Option: magit-section-initial-visibility-alist
-     This options can be used to override the initial visibility of
-     sections.  In the future it will also be used to define the
-     defaults, but currently a section’s default is still hardcoded.
-
-     The value is an alist.  Each element maps a section type or lineage
-     to the initial visibility state for such sections.  The state has
-     to be one of ‘show’ or ‘hide’, or a function that returns one of
-     these symbols.  A function is called with the section as the only
-     argument.
-
-     Use the command ‘magit-describe-section-briefly’ to determine a
-     section’s lineage or type.  The vector in the output is the section
-     lineage and the type is the first element of that vector.
-     Wildcards can be used, see ‘magit-section-match’.
-
- -- User Option: magit-section-cache-visibility
-     This option controls for which sections the previous visibility
-     state should be restored if a section disappears and later appears
-     again.  The value is a boolean or a list of section types.  If t,
-     then the visibility of all sections is cached.  Otherwise this is
-     only done for sections whose type matches one of the listed types.
-
-     This requires that the function ‘magit-section-cached-visibility’
-     is a member of ‘magit-section-set-visibility-hook’.
-
- -- Variable: magit-section-set-visibility-hook
-     This hook is run when first creating a buffer and also when
-     refreshing an existing buffer, and is used to determine the
-     visibility of the section currently being inserted.
-
-     Each function is called with one argument, the section being
-     inserted.  It should return ‘hide’ or ‘show’, or to leave the
-     visibility undefined ‘nil’.  If no function decides on the
-     visibility and the buffer is being refreshed, then the visibility
-     is preserved; or if the buffer is being created, then the hard
-     coded default is used.
-
-     Usually this should only be used to set the initial visibility but
-     not during refreshes.  If ‘magit-insert-section--oldroot’ is
-     non-nil, then the buffer is being refreshed and these functions
-     should immediately return ‘nil’.
-
- -- User Option: magit-section-visibility-indicator
-     This option controls whether and how to indicate that a section can
-     be expanded/collapsed.
-
-     If nil, then no visibility indicators are shown.  Otherwise the
-     value has to have one of these two forms:
-
-        • ‘(EXPANDABLE-BITMAP . COLLAPSIBLE-BITMAP)’
-
-          Both values have to be variables whose values are fringe
-          bitmaps.  In this case every section that can be expanded or
-          collapsed gets an indicator in the left fringe.
-
-          To provide extra padding around the indicator, set
-          ‘left-fringe-width’ in ‘magit-mode-hook’, e.g.:
-
-               (add-hook 'magit-mode-hook (lambda ()
-                                            (setq left-fringe-width 20)))
-
-        • ‘(STRING . BOOLEAN)’
-
-          In this case STRING (usually an ellipsis) is shown at the end
-          of the heading of every collapsed section.  Expanded sections
-          get no indicator.  The cdr controls whether the appearance of
-          these ellipsis take section highlighting into account.  Doing
-          so might potentially have an impact on performance, while not
-          doing so is kinda ugly.
-
-
-File: magit.info,  Node: Section Hooks,  Next: Section Types and Values,  Prev: Section Visibility,  Up: Sections
-
-4.2.3 Section Hooks
--------------------
-
-Which sections are inserted into certain buffers is controlled with
-hooks.  This includes the status and the refs buffers.  For other
-buffers, e.g., log and diff buffers, this is not possible.  The command
-‘magit-describe-section’ can be used to see which hook (if any) was
-responsible for inserting the section at point.
-
-   For buffers whose sections can be customized by the user, a hook
-variable called ‘magit-TYPE-sections-hook’ exists.  This hook should be
-changed using ‘magit-add-section-hook’.  Avoid using ‘add-hooks’ or the
-Custom interface.
-
-   The various available section hook variables are described later in
-this manual along with the appropriate "section inserter functions".
-
- -- Function: magit-add-section-hook hook function &optional at append
-          local
-     Add the function FUNCTION to the value of section hook HOOK.
-
-     Add FUNCTION at the beginning of the hook list unless optional
-     APPEND is non-nil, in which case FUNCTION is added at the end.  If
-     FUNCTION already is a member then move it to the new location.
-
-     If optional AT is non-nil and a member of the hook list, then add
-     FUNCTION next to that instead.  Add before or after AT, or replace
-     AT with FUNCTION depending on APPEND.  If APPEND is the symbol
-     ‘replace’, then replace AT with FUNCTION.  For any other non-nil
-     value place FUNCTION right after AT.  If nil, then place FUNCTION
-     right before AT.  If FUNCTION already is a member of the list but
-     AT is not, then leave FUNCTION where ever it already is.
-
-     If optional LOCAL is non-nil, then modify the hook’s buffer-local
-     value rather than its global value.  This makes the hook local by
-     copying the default value.  That copy is then modified.
-
-     HOOK should be a symbol.  If HOOK is void, it is first set to nil.
-     HOOK’s value must not be a single hook function.  FUNCTION should
-     be a function that takes no arguments and inserts one or multiple
-     sections at point, moving point forward.  FUNCTION may choose not
-     to insert its section(s), when doing so would not make sense.  It
-     should not be abused for other side-effects.
-
-   To remove a function from a section hook, use ‘remove-hook’.
-
-
-File: magit.info,  Node: Section Types and Values,  Next: Section Options,  Prev: Section Hooks,  Up: Sections
-
-4.2.4 Section Types and Values
-------------------------------
-
-Each section has a type, for example ‘hunk’, ‘file’, and ‘commit’.
-Instances of certain section types also have a value.  The value of a
-section of type ‘file’, for example, is a file name.
-
-   Users usually do not have to worry about a section’s type and value,
-but knowing them can be handy at times.
-
-‘H’ (‘magit-describe-section’)
-     This command shows information about the section at point in a
-     separate buffer.
-
- -- Command: magit-describe-section-briefly
-     This command shows information about the section at point in the
-     echo area, as ‘#<magit-section VALUE [TYPE PARENT-TYPE...]
-     BEGINNING-END>’.
-
-   Many commands behave differently depending on the type of the section
-at point and/or somehow consume the value of that section.  But that is
-only one of the reasons why the same key may do something different,
-depending on what section is current.
-
-   Additionally for each section type a keymap *might* be defined, named
-‘magit-TYPE-section-map’.  That keymap is used as text property keymap
-of all text belonging to any section of the respective type.  If such a
-map does not exist for a certain type, then you can define it yourself,
-and it will automatically be used.
-
-
-File: magit.info,  Node: Section Options,  Prev: Section Types and Values,  Up: Sections
-
-4.2.5 Section Options
----------------------
-
-This section describes options that have an effect on more than just a
-certain type of sections.  As you can see there are not many of those.
-
- -- User Option: magit-section-show-child-count
-     Whether to append the number of children to section headings.  This
-     only affects sections that could benefit from this information.
-
-
-File: magit.info,  Node: Transient Commands,  Next: Transient Arguments and Buffer Variables,  Prev: Sections,  Up: Interface Concepts
-
-4.3 Transient Commands
-======================
-
-Many Magit commands are implemented as *transient* commands.  First the
-user invokes a *prefix* command, which causes its *infix* arguments and
-*suffix* commands to be displayed in the echo area.  The user then
-optionally sets some infix arguments and finally invokes one of the
-suffix commands.
-
-   This is implemented in the library ‘transient’.  Earlier Magit
-releases used the package ‘magit-popup’ and even earlier versions
-library ‘magit-key-mode’.
-
-   Transient is documented in *note (transient)Top::.
-
-‘C-x M-g’ (‘magit-dispatch’)
-‘C-c g’ (‘magit-dispatch’)
-     This transient prefix command binds most of Magit’s other prefix
-     commands as suffix commands and displays them in a temporary buffer
-     until one of them is invoked.  Invoking such a sub-prefix causes
-     the suffixes of that command to be bound and displayed instead of
-     those of ‘magit-dispatch’.
-
-     This command is also, or especially, useful outside Magit buffers,
-     so Magit by default binds it to ‘C-c M-g’ in the global keymap.
-     ‘C-c g’ would be a better binding, but we cannot use that by
-     default, because that key sequence is reserved for the user.  See
-     *note Global Bindings:: to learn more default and recommended key
-     bindings.
-
-
-File: magit.info,  Node: Transient Arguments and Buffer Variables,  Next: Completion Confirmation and the Selection,  Prev: Transient Commands,  Up: Interface Concepts
-
-4.4 Transient Arguments and Buffer Variables
-============================================
-
-The infix arguments of many of Magit’s transient prefix commands cease
-to have an effect once the ‘git’ command that is called with those
-arguments has returned.  Commands that create a commit are a good
-example for this.  If the user changes the arguments, then that only
-affects the next invocation of a suffix command.  If the same transient
-prefix command is later invoked again, then the arguments are initially
-reset to the default value.  This default value can be set for the
-current Emacs session or saved permanently, see *note (transient)Saving
-Values::.  It is also possible to cycle through previously used sets of
-arguments using ‘C-M-p’ and ‘C-M-n’, see *note (transient)Using
-History::.
-
-   However the infix arguments of many other transient commands continue
-to have an effect even after the ‘git’ command that was called with
-those arguments has returned.  The most important commands like this are
-those that display a diff or log in a dedicated buffer.  Their arguments
-obviously continue to have an effect for as long as the respective diff
-or log is being displayed.  Furthermore the used arguments are stored in
-buffer-local variables for future reference.
-
-   For commands in the second group it isn’t always desirable to reset
-their arguments to the global value when the transient prefix command is
-invoked again.
-
-   As mentioned above, it is possible to cycle through previously used
-sets of arguments while a transient popup is visible.  That means that
-we could always reset the infix arguments to the default because the set
-of arguments that is active in the existing buffer is only a few ‘C-M-p’
-away.  Magit can be configured to behave like that, but because I expect
-that most users would not find that very convenient, it is not the
-default.
-
-   Also note that it is possible to change the diff and log arguments
-used in the current buffer (including the status buffer, which contains
-both diff and log sections) using the respective "refresh" transient
-prefix commands on ‘D’ and ‘L’.  (‘d’ and ‘l’ on the other hand are
-intended to change *what* diff or log is being displayed.  It is
-possible to also change *how* the diff or log is being displayed at the
-same time, but if you only want to do the latter, then you should use
-the refresh variants.)  Because these secondary diff and log transient
-prefixes are about *changing* the arguments used in the current buffer,
-they *always* start out with the set of arguments that are currently in
-effect in that buffer.
-
-   Some commands are usually invoked directly even though they can also
-be invoked as the suffix of a transient prefix command.  Most
-prominently ‘magit-show-commit’ is usually invoked by typing ‘RET’ while
-point is on a commit in a log, but it can also be invoked from the
-‘magit-diff’ transient prefix.
-
-   When such a command is invoked directly, then it is important to
-reuse the arguments as specified by the respective buffer-local values,
-instead of using the default arguments.  Imagine you press ‘RET’ in a
-log to display the commit at point in a different buffer and then use
-‘D’ to change how the diff is displayed in that buffer.  And then you
-press ‘RET’ on another commit to show that instead and the diff
-arguments are reset to the default.  Not cool; so Magit does not do that
-by default.
-
- -- User Option: magit-prefix-use-buffer-arguments
-     This option controls whether the infix arguments initially shown in
-     certain transient prefix commands are based on the arguments that
-     are currently in effect in the buffer that their suffixes update.
-
-     The ‘magit-diff’ and ‘magit-log’ transient prefix commands are
-     affected by this option.
-
- -- User Option: magit-direct-use-buffer-arguments
-     This option controls whether certain commands, when invoked
-     directly (i.e., not as the suffix of a transient prefix command),
-     use the arguments that are currently active in the buffer that they
-     are about to update.  The alternative is to use the default value
-     for these arguments, which might change the arguments that are used
-     in the buffer.
-
-Valid values for both of the above options are:
-
-   • ‘always’: Always use the set of arguments that is currently active
-     in the respective buffer, provided that buffer exists of course.
-   • ‘selected’ or ‘t’: Use the set of arguments from the respective
-     buffer, but only if it is displayed in a window of the current
-     frame.  This is the default for both variables.
-   • ‘current’: Use the set of arguments from the respective buffer, but
-     only if it is the current buffer.
-   • ‘never’: Never use the set of arguments from the respective buffer.
-
-I am afraid it gets more complicated still:
-
-   • The global diff and log arguments are set for each supported mode
-     individually.  The diff arguments for example have different values
-     in ‘magit-diff-mode’, ‘magit-revision-mode’,
-     ‘magit-merge-preview-mode’ and ‘magit-status-mode’ buffers.
-     Setting or saving the value for one mode does not change the value
-     for other modes.  The history however is shared.
-
-   • When ‘magit-show-commit’ is invoked directly from a log buffer,
-     then the file filter is picked up from that buffer, not from the
-     revision buffer or the mode’s global diff arguments.
-
-   • Even though they are suffixes of the diff prefix
-     ‘magit-show-commit’ and ‘magit-stash-show’ do not use the diff
-     buffer used by the diff commands, instead they use the dedicated
-     revision and stash buffers.
-
-     At the time you invoke the diff prefix it is unknown to Magit which
-     of the suffix commands you are going to invoke.  While not certain,
-     more often than not users invoke one of the commands that use the
-     diff buffer, so the initial infix arguments are those used in that
-     buffer.  However if you invoke one of these commands directly, then
-     Magit knows that it should use the arguments from the revision
-     resp.  stash buffer.
-
-   • The log prefix also features reflog commands, but these commands do
-     not use the log arguments.
-
-   • If ‘magit-show-refs’ is invoked from a ‘magit-refs-mode’ buffer,
-     then it acts as a refresh prefix and therefore unconditionally uses
-     the buffer’s arguments as initial arguments.  If it is invoked
-     elsewhere with a prefix argument, then it acts as regular prefix
-     and therefore respects ‘magit-prefix-use-buffer-arguments’.  If it
-     is invoked elsewhere without a prefix argument, then it acts as a
-     direct command and therefore respects
-     ‘magit-direct-use-buffer-arguments’.
-
-
-File: magit.info,  Node: Completion Confirmation and the Selection,  Next: Mouse Support,  Prev: Transient Arguments and Buffer Variables,  Up: Interface Concepts
-
-4.5 Completion, Confirmation and the Selection
-==============================================
-
-* Menu:
-
-* Action Confirmation::
-* Completion and Confirmation::
-* The Selection::
-* The hunk-internal region::
-* Support for Completion Frameworks::
-* Additional Completion Options::
-
-
-File: magit.info,  Node: Action Confirmation,  Next: Completion and Confirmation,  Up: Completion Confirmation and the Selection
-
-4.5.1 Action Confirmation
--------------------------
-
-By default many actions that could potentially lead to data loss have to
-be confirmed.  This includes many very common actions, so this can
-quickly become annoying.  Many of these actions can be undone and if you
-have thought about how to undo certain mistakes, then it should be safe
-to disable confirmation for the respective actions.
-
-   The option ‘magit-no-confirm’ can be used to tell Magit to perform
-certain actions without the user having to confirm them.  Note that
-while this option can only be used to disable confirmation for a
-specific set of actions, the next section explains another way of
-telling Magit to ask fewer questions.
-
- -- User Option: magit-no-confirm
-     The value of this option is a list of symbols, representing actions
-     that do not have to be confirmed by the user before being carried
-     out.
-
-     By default many potentially dangerous commands ask the user for
-     confirmation.  Each of the below symbols stands for an action
-     which, when invoked unintentionally or without being fully aware of
-     the consequences, could lead to tears.  In many cases there are
-     several commands that perform variations of a certain action, so we
-     don’t use the command names but more generic symbols.
-
-        • Applying changes:
-
-             • ‘discard’ Discarding one or more changes (i.e., hunks or
-               the complete diff for a file) loses that change,
-               obviously.
-
-             • ‘reverse’ Reverting one or more changes can usually be
-               undone by reverting the reversion.
-
-             • ‘stage-all-changes’, ‘unstage-all-changes’ When there are
-               both staged and unstaged changes, then un-/staging
-               everything would destroy that distinction.  Of course
-               that also applies when un-/staging a single change, but
-               then less is lost and one does that so often that having
-               to confirm every time would be unacceptable.
-
-        • Files:
-
-             • ‘delete’ When a file that isn’t yet tracked by Git is
-               deleted, then it is completely lost, not just the last
-               changes.  Very dangerous.
-
-             • ‘trash’ Instead of deleting a file it can also be move to
-               the system trash.  Obviously much less dangerous than
-               deleting it.
-
-               Also see option ‘magit-delete-by-moving-to-trash’.
-
-             • ‘resurrect’ A deleted file can easily be resurrected by
-               "deleting" the deletion, which is done using the same
-               command that was used to delete the same file in the
-               first place.
-
-             • ‘untrack’ Untracking a file can be undone by tracking it
-               again.
-
-             • ‘rename’ Renaming a file can easily be undone.
-
-        • Sequences:
-
-             • ‘reset-bisect’ Aborting (known to Git as "resetting") a
-               bisect operation loses all information collected so far.
-
-             • ‘abort-cherry-pick’ Aborting a cherry-pick throws away
-               all conflict resolutions which have already been carried
-               out by the user.
-
-             • ‘abort-revert’ Aborting a revert throws away all conflict
-               resolutions which have already been carried out by the
-               user.
-
-             • ‘abort-rebase’ Aborting a rebase throws away all already
-               modified commits, but it’s possible to restore those from
-               the reflog.
-
-             • ‘abort-merge’ Aborting a merge throws away all conflict
-               resolutions which have already been carried out by the
-               user.
-
-             • ‘merge-dirty’ Merging with a dirty worktree can make it
-               hard to go back to the state before the merge was
-               initiated.
-
-        • References:
-
-             • ‘delete-unmerged-branch’ Once a branch has been deleted,
-               it can only be restored using low-level recovery tools
-               provided by Git.  And even then the reflog is gone.  The
-               user always has to confirm the deletion of a branch by
-               accepting the default choice (or selecting another
-               branch), but when a branch has not been merged yet, also
-               make sure the user is aware of that.
-
-             • ‘delete-pr-remote’ When deleting a branch that was
-               created from a pull-request and if no other branches
-               still exist on that remote, then ‘magit-branch-delete’
-               offers to delete the remote as well.  This should be safe
-               because it only happens if no other refs exist in the
-               remotes namespace, and you can recreate the remote if
-               necessary.
-
-             • ‘drop-stashes’ Dropping a stash is dangerous because Git
-               stores stashes in the reflog.  Once a stash is removed,
-               there is no going back without using low-level recovery
-               tools provided by Git.  When a single stash is dropped,
-               then the user always has to confirm by accepting the
-               default (or selecting another).  This action only
-               concerns the deletion of multiple stashes at once.
-
-        • Publishing:
-
-             • ‘set-and-push’ When pushing to the upstream or the
-               push-remote and that isn’t actually configured yet, then
-               the user can first set the target.  If s/he confirms the
-               default too quickly, then s/he might end up pushing to
-               the wrong branch and if the remote repository is
-               configured to disallow fixing such mistakes, then that
-               can be quite embarrassing and annoying.
-
-        • Edit published history:
-
-          Without adding these symbols here, you will be warned before
-          editing commits that have already been pushed to one of the
-          branches listed in ‘magit-published-branches’.
-
-             • ‘amend-published’ Affects most commands that amend to
-               "HEAD".
-
-             • ‘rebase-published’ Affects commands that perform
-               interactive rebases.  This includes commands from the
-               commit transient that modify a commit other than "HEAD",
-               namely the various fixup and squash variants.
-
-             • ‘edit-published’ Affects the commands
-               ‘magit-edit-line-commit’ and
-               ‘magit-diff-edit-hunk-commit’.  These two commands make
-               it quite easy to accidentally edit a published commit, so
-               you should think twice before configuring them not to ask
-               for confirmation.
-
-          To disable confirmation completely, add all three symbols here
-          or set ‘magit-published-branches’ to ‘nil’.
-
-        • Various:
-
-             • ‘stash-apply-3way’ When a stash cannot be applied using
-               ‘git stash apply’, then Magit uses ‘git apply’ instead,
-               possibly using the ‘--3way’ argument, which isn’t always
-               perfectly safe.  See also ‘magit-stash-apply’.
-
-             • ‘kill-process’ There seldom is a reason to kill a
-               process.
-
-        • Global settings:
-
-          Instead of adding all of the above symbols to the value of
-          this option, you can also set it to the atom ‘t’, which has
-          the same effect as adding all of the above symbols.  Doing
-          that most certainly is a bad idea, especially because other
-          symbols might be added in the future.  So even if you don’t
-          want to be asked for confirmation for any of these actions,
-          you are still better of adding all of the respective symbols
-          individually.
-
-          When ‘magit-wip-before-change-mode’ is enabled, then the
-          following actions can be undone fairly easily: ‘discard’,
-          ‘reverse’, ‘stage-all-changes’, and ‘unstage-all-changes’.  If
-          and only if this mode is enabled, then ‘safe-with-wip’ has the
-          same effect as adding all of these symbols individually.
-
-
-File: magit.info,  Node: Completion and Confirmation,  Next: The Selection,  Prev: Action Confirmation,  Up: Completion Confirmation and the Selection
-
-4.5.2 Completion and Confirmation
----------------------------------
-
-Many Magit commands ask the user to select from a list of possible
-things to act on, while offering the most likely choice as the default.
-For many of these commands the default is the thing at point, provided
-that it actually is a valid thing to act on.  For many commands that act
-on a branch, the current branch serves as the default if there is no
-branch at point.
-
-   These commands combine asking for confirmation and asking for a
-target to act on into a single action.  The user can confirm the default
-target using ‘RET’ or abort using ‘C-g’.  This is similar to a
-‘y-or-n-p’ prompt, but the keys to confirm or abort differ.
-
-   At the same time the user is also given the opportunity to select
-another target, which is useful because for some commands and/or in some
-situations you might want to select the action before selecting the
-target by moving to it.
-
-   However you might find that for some commands you always want to use
-the default target, if any, or even that you want the command to act on
-the default without requiring any confirmation at all.  The option
-‘magit-dwim-selection’ can be used to configure certain commands to that
-effect.
-
-   Note that when the region is active then many commands act on the
-things that are selected using a mechanism based on the region, in many
-cases after asking for confirmation.  This region-based mechanism is
-called the "selection" and is described in detail in the next section.
-When a selection exists that is valid for the invoked command, then that
-command never offers to act on something else, and whether it asks for
-confirmation is not controlled by this option.
-
-   Also note that Magit asks for confirmation of certain actions that
-are not coupled with completion (or the selection).  Such dialogs are
-also not affected by this option and are described in the previous
-section.
-
- -- User Option: magit-dwim-selection
-   This option can be used to tell certain commands to use the thing at
-point instead of asking the user to select a candidate to act on, with
-or without confirmation.
-
-   The value has the form ‘((COMMAND nil|PROMPT DEFAULT)...)’.
-
-   • COMMAND is the command that should not prompt for a choice.  To
-     have an effect, the command has to use the function
-     ‘magit-completing-read’ or a utility function which in turn uses
-     that function.
-
-   • If the command uses ‘magit-completing-read’ multiple times, then
-     PROMPT can be used to only affect one of these uses.  PROMPT, if
-     non-nil, is a regular expression that is used to match against the
-     PROMPT argument passed to ‘magit-completing-read’.
-
-   • DEFAULT specifies how to use the default.  If it is ‘t’, then the
-     DEFAULT argument passed to ‘magit-completing-read’ is used without
-     confirmation.  If it is ‘ask’, then the user is given a chance to
-     abort.  DEFAULT can also be ‘nil’, in which case the entry has no
-     effect.
-
-
-File: magit.info,  Node: The Selection,  Next: The hunk-internal region,  Prev: Completion and Confirmation,  Up: Completion Confirmation and the Selection
-
-4.5.3 The Selection
--------------------
-
-If the region is active, then many Magit commands act on the things that
-are selected using a mechanism based on the region instead of one single
-thing.  When the region is not active, then these commands act on the
-thing at point or read a single thing to act on.  This is described in
-the previous section — this section only covers how multiple things are
-selected, how that is visualized, and how certain commands behave when
-that is the case.
-
-   Magit’s mechanism for selecting multiple things, or rather sections
-that represent these things, is based on the Emacs region, but the area
-that Magit considers to be selected is typically larger than the region
-and additional restrictions apply.
-
-   Magit makes a distinction between a region that qualifies as forming
-a valid Magit selection and a region that does not.  If the region does
-not qualify, then it is displayed as it is in other Emacs buffers.  If
-the region does qualify as a Magit selection, then the selection is
-always visualized, while the region itself is only visualized if it
-begins and ends on the same line.
-
-   For a region to qualify as a Magit selection, it must begin in the
-heading of one section and end in the heading of a sibling section.
-Note that if the end of the region is at the very beginning of section
-heading (i.e., at the very beginning of a line) then that section is
-considered to be *inside* the selection.
-
-   This is not consistent with how the region is normally treated in
-Emacs — if the region ends at the beginning of a line, then that line is
-outside the region.  Due to how Magit visualizes the selection, it
-should be obvious that this difference exists.
-
-   Not every command acts on every valid selection.  Some commands do
-not even consider the location of point, others may act on the section
-at point but not support acting on the selection, and even commands that
-do support the selection of course only do so if it selects things that
-they can act on.
-
-   This is the main reason why the selection must include the section at
-point.  Even if a selection exists, the invoked command may disregard
-it, in which case it may act on the current section only.  It is much
-safer to only act on the current section but not the other selected
-sections than it is to act on the current section *instead* of the
-selected sections.  The latter would be much more surprising and if the
-current section always is part of the selection, then that cannot
-happen.
-
- -- Variable: magit-keep-region-overlay
-     This variable controls whether the region is visualized as usual
-     even when a valid Magit selection or a hunk-internal region exists.
-     See the doc-string for more information.
-
-
-File: magit.info,  Node: The hunk-internal region,  Next: Support for Completion Frameworks,  Prev: The Selection,  Up: Completion Confirmation and the Selection
-
-4.5.4 The hunk-internal region
-------------------------------
-
-Somewhat related to the Magit selection described in the previous
-section is the hunk-internal region.
-
-   Like the selection, the hunk-internal region is based on the Emacs
-region but causes that region to not be visualized as it would in other
-Emacs buffers, and includes the line on which the region ends even if it
-ends at the very beginning of that line.
-
-   Unlike the selection, which is based on a region that must begin in
-the heading of one section and ends in the section of a sibling section,
-the hunk-internal region must begin inside the *body* of a hunk section
-and end in the body of the *same* section.
-
-   The hunk-internal region is honored by "apply" commands, which can,
-among other targets, act on a hunk.  If the hunk-internal region is
-active, then such commands act only on the marked part of the hunk
-instead of on the complete hunk.
-
-
-File: magit.info,  Node: Support for Completion Frameworks,  Next: Additional Completion Options,  Prev: The hunk-internal region,  Up: Completion Confirmation and the Selection
-
-4.5.5 Support for Completion Frameworks
----------------------------------------
-
-The built-in option ‘completing-read-function’ specifies the low-level
-function used by ‘completing-read’ to ask a user to select from a list
-of choices.  Its default value is ‘completing-read-default’.
-Alternative completion frameworks typically activate themselves by
-substituting their own implementation.
-
-   Mostly for historic reasons Magit provides a similar option named
-‘magit-completing-read-function’, which only controls the low-level
-function used by ‘magit-completing-read’.  This option also makes it
-possible to use a different completing mechanism for Magit than for the
-rest of Emacs, but doing that is not recommend.
-
-   You most likely don’t have to customize the magit-specific option to
-use an alternative completion framework.  For example, if you enable
-‘ivy-mode’, then Magit will respect that, and if you enable ‘helm-mode’,
-then you are done too.
-
-   However if you want to use Ido, then ‘ido-mode’ won’t do the trick.
-You will also have to install the ‘ido-completing-read+’ package and use
-‘magit-ido-completing-read’ as ‘magit-completing-read-function’.
-
- -- User Option: magit-completing-read-function
-     The value of this variable is the low-level function used to
-     perform completion by code that uses ‘magit-completing-read’ (as
-     opposed to the built-in ‘completing-read’).
-
-     The default value, ‘magit-builtin-completing-read’, is suitable for
-     the standard completion mechanism, ‘ivy-mode’, and ‘helm-mode’ at
-     least.
-
-     The built-in ‘completing-read’ and ‘completing-read-default’ are
-     *not* suitable to be used here.  ‘magit-builtin-completing-read’
-     performs some additional work, and any function used in its place
-     has to do the same.
-
- -- Function: magit-builtin-completing-read prompt choices &optional
-          predicate require-match initial-input hist def
-     This function performs completion using the built-in
-     ‘completing-read’ and does some additional magit-specific work.
-
- -- Function: magit-ido-completing-read prompt choices &optional
-          predicate require-match initial-input hist def
-     This function performs completion using ‘ido-completing-read+’ from
-     the package by the same name (which you have to explicitly install)
-     and does some additional magit-specific work.
-
-     We have to use ‘ido-completing-read+’ instead of the
-     ‘ido-completing-read’ that comes with Ido itself, because the
-     latter, while intended as a drop-in replacement, cannot serve that
-     purpose because it violates too many of the implicit conventions.
-
- -- Function: magit-completing-read prompt choices &optional predicate
-          require-match initial-input hist def fallback
-     This is the function that Magit commands use when they need the
-     user to select a single thing to act on.  The arguments have the
-     same meaning as for ‘completing-read’, except for FALLBACK, which
-     is unique to this function and is described below.
-
-     Instead of asking the user to choose from a list of possible
-     candidates, this function may just return the default specified by
-     DEF, with or without requiring user confirmation.  Whether that is
-     the case depends on PROMPT, ‘this-command’ and
-     ‘magit-dwim-selection’.  See the documentation of the latter for
-     more information.
-
-     If it does read a value in the minibuffer, then this function acts
-     similar to ‘completing-read’, except for the following:
-
-        • COLLECTION must be a list of choices.  A function is not
-          supported.
-
-        • If REQUIRE-MATCH is ‘nil’ and the user exits without a choice,
-          then ‘nil’ is returned instead of an empty string.
-
-        • If REQUIRE-MATCH is non-nil and the users exits without a
-          choice, an user-error is raised.
-
-        • FALLBACK specifies a secondary default that is only used if
-          the primary default DEF is ‘nil’.  The secondary default is
-          not subject to ‘magit-dwim-selection’ — if DEF is ‘nil’ but
-          FALLBACK is not, then this function always asks the user to
-          choose a candidate, just as if both defaults were ‘nil’.
-
-        • ‘format-prompt’ is called on PROMPT and DEF (or FALLBACK if
-          DEF is ‘nil’).  This appends ": " to the prompt and may also
-          add the default to the prompt, using the format specified by
-          ‘minibuffer-default-prompt-format’ and depending on
-          ‘magit-completing-read-default-prompt-predicate’.
-
-
-File: magit.info,  Node: Additional Completion Options,  Prev: Support for Completion Frameworks,  Up: Completion Confirmation and the Selection
-
-4.5.6 Additional Completion Options
------------------------------------
-
- -- User Option: magit-list-refs-sortby
-     For many commands that read a ref or refs from the user, the value
-     of this option can be used to control the order of the refs.  Valid
-     values include any key accepted by the ‘--sort’ flag of ‘git
-     for-each-ref’.  By default, refs are sorted alphabetically by their
-     full name (e.g., "refs/heads/master").
-
-
-File: magit.info,  Node: Mouse Support,  Next: Running Git,  Prev: Completion Confirmation and the Selection,  Up: Interface Concepts
-
-4.6 Mouse Support
-=================
-
-Double clicking on a section heading toggles the visibility of its body,
-if any.  Likewise clicking in the left fringe toggles the visibility of
-the appropriate section.
-
-   A context menu is provided but has to be enabled explicitly.  In
-Emacs 28 and greater, enable the global mode ‘context-menu-mode’.  If
-you use an older Emacs release, set
-‘magit-section-show-context-menu-for-emacs<28’.
-
-
-File: magit.info,  Node: Running Git,  Prev: Mouse Support,  Up: Interface Concepts
-
-4.7 Running Git
-===============
-
-* Menu:
-
-* Viewing Git Output::
-* Git Process Status::
-* Running Git Manually::
-* Git Executable::
-* Global Git Arguments::
-
-
-File: magit.info,  Node: Viewing Git Output,  Next: Git Process Status,  Up: Running Git
-
-4.7.1 Viewing Git Output
-------------------------
-
-Magit runs Git either for side-effects (e.g., when pushing) or to get
-some value (e.g., the name of the current branch).
-
-   When Git is run for side-effects, the process output is logged in a
-per-repository log buffer, which can be consulted using the
-‘magit-process’ command when things don’t go as expected.
-
-   The output/errors for up to ‘magit-process-log-max’ Git commands are
-retained.
-
-‘$’ (‘magit-process’)
-     This commands displays the process buffer for the current
-     repository.
-
-   Inside that buffer, the usual key bindings for navigating and showing
-sections are available.  There is one additional command.
-
-‘k’ (‘magit-process-kill’)
-     This command kills the process represented by the section at point.
-
- -- Variable: magit-git-debug
-     This option controls whether additional reporting of git errors is
-     enabled.
-
-     Magit basically calls git for one of these two reasons: for
-     side-effects or to do something with its standard output.
-
-     When git is run for side-effects then its output, including error
-     messages, go into the process buffer which is shown when using ‘$’.
-
-     When git’s output is consumed in some way, then it would be too
-     expensive to also insert it into this buffer, but when this option
-     is non-nil and git returns with a non-zero exit status, then at
-     least its standard error is inserted into this buffer.
-
-     This is only intended for debugging purposes.  Do not enable this
-     permanently, that would negatively affect performance.
-
-     This is only intended for debugging purposes.  Do not enable this
-     permanently, that would negatively affect performance.  Also note
-     that just because git exits with a non-zero exit status and prints
-     an error message that usually doesn’t mean that it is an error as
-     far as Magit is concerned, which is another reason we usually hide
-     these error messages.  Whether some error message is relevant in
-     the context of some unexpected behavior has to be judged on a case
-     by case basis.
-
-     The command ‘magit-toggle-git-debug’ changes the value of this
-     variable.
-
- -- Variable: magit-process-extreme-logging
-     This option controls whether ‘magit-process-file’ logs to the
-     ‘*Messages*’ buffer.
-
-     Only intended for temporary use when you try to figure out how
-     Magit uses Git behind the scene.  Output that normally goes to the
-     magit-process buffer continues to go there.  Not all output goes to
-     either of these two buffers.
-
-
-File: magit.info,  Node: Git Process Status,  Next: Running Git Manually,  Prev: Viewing Git Output,  Up: Running Git
-
-4.7.2 Git Process Status
-------------------------
-
-When a Git process is running for side-effects, Magit displays an
-indicator in the mode line, using the ‘magit-mode-line-process’ face.
-
-   If the Git process exits successfully, the process indicator is
-removed from the mode line immediately.
-
-   In the case of a Git error, the process indicator is not removed, but
-is instead highlighted with the ‘magit-mode-line-process-error’ face,
-and the error details from the process buffer are provided as a tooltip
-for mouse users.  This error indicator persists in the mode line until
-the next magit buffer refresh.
-
-   If you do not wish process errors to be indicated in the mode line,
-customize the ‘magit-process-display-mode-line-error’ user option.
-
-   Process errors are additionally indicated at the top of the status
-buffer.
-
-
-File: magit.info,  Node: Running Git Manually,  Next: Git Executable,  Prev: Git Process Status,  Up: Running Git
-
-4.7.3 Running Git Manually
---------------------------
-
-While Magit provides many Emacs commands to interact with Git, it does
-not cover everything.  In those cases your existing Git knowledge will
-come in handy.  Magit provides some commands for running arbitrary Git
-commands by typing them into the minibuffer, instead of having to switch
-to a shell.
-
-‘!’ (‘magit-run’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘! !’ (‘magit-git-command-topdir’)
-     This command reads a command from the user and executes it in the
-     top-level directory of the current working tree.
-
-     The string "git " is used as initial input when prompting the user
-     for the command.  It can be removed to run another command.
-
-‘:’ (‘magit-git-command’)
-‘! p’
-     This command reads a command from the user and executes it in
-     ‘default-directory’.  With a prefix argument the command is
-     executed in the top-level directory of the current working tree
-     instead.
-
-     The string "git " is used as initial input when prompting the user
-     for the command.  It can be removed to run another command.
-
-‘! s’ (‘magit-shell-command-topdir’)
-     This command reads a command from the user and executes it in the
-     top-level directory of the current working tree.
-
-‘! S’ (‘magit-shell-command’)
-     This command reads a command from the user and executes it in
-     ‘default-directory’.  With a prefix argument the command is
-     executed in the top-level directory of the current working tree
-     instead.
-
- -- User Option: magit-shell-command-verbose-prompt
-     Whether the prompt, used by the above commands when reading a shell
-     command, shows the directory in which it will be run.
-
-   These suffix commands start external gui tools.
-
-‘! k’ (‘magit-run-gitk’)
-     This command runs ‘gitk’ in the current repository.
-
-‘! a’ (‘magit-run-gitk-all’)
-     This command runs ‘gitk --all’ in the current repository.
-
-‘! b’ (‘magit-run-gitk-branches’)
-     This command runs ‘gitk --branches’ in the current repository.
-
-‘! g’ (‘magit-run-git-gui’)
-     This command runs ‘git gui’ in the current repository.
-
-‘! m’ (‘magit-git-mergetool’)
-     This command runs ‘git mergetool --gui’ in the current repository.
-
-     With a prefix argument this acts as a transient prefix command,
-     allowing the user to select the mergetool and change some settings.
-
-
-File: magit.info,  Node: Git Executable,  Next: Global Git Arguments,  Prev: Running Git Manually,  Up: Running Git
-
-4.7.4 Git Executable
---------------------
-
-When Magit calls Git, then it may do so using the absolute path to the
-‘git’ executable, or using just its name.
-
-   When running ‘git’ locally and the ‘system-type’ is ‘windows-nt’ (any
-Windows version) or ‘darwin’ (macOS) then ‘magit-git-executable’ is set
-to an absolute path when Magit is loaded.
-
-   On Windows it is necessary to use an absolute path because Git comes
-with several wrapper scripts for the actual ‘git’ binary, which are also
-placed on ‘$PATH’, and using one of these wrappers instead of the binary
-would degrade performance horribly.  For some macOS users using just the
-name of the executable also performs horribly, so we avoid doing that on
-that platform as well.  On other platforms, using just the name seems to
-work just fine.
-
-   Using an absolute path when running ‘git’ on a remote machine over
-Tramp, would be problematic to use an absolute path that is suitable on
-the local machine, so a separate option is used to control the name or
-path that is used on remote machines.
-
- -- User Option: magit-git-executable
-     The ‘git’ executable used by Magit on the local host.  This should
-     be either the absolute path to the executable, or the string "git"
-     to let Emacs find the executable itself, using the standard
-     mechanism for doing such things.
-
- -- User Option: magit-remote-git-executable
-     The ‘git’ executable used by Magit on remote machines over Tramp.
-     Normally this should be just the string "git".  Consider
-     customizing ‘tramp-remote-path’ instead of this option.
-
-   If Emacs is unable to find the correct executable, then you can work
-around that by explicitly setting the value of one of these two options.
-Doing that should be considered a kludge; it is better to make sure that
-the order in ‘exec-path’ or ‘tramp-remote-path’ is correct.
-
-   Note that ‘exec-path’ is set based on the value of the ‘PATH’
-environment variable that is in effect when Emacs is started.  If you
-set ‘PATH’ in your shell’s init files, then that only has an effect on
-Emacs if you start it from that shell (because the environment of a
-process is only passed to its child processes, not to arbitrary other
-processes).  If that is not how you start Emacs, then the
-‘exec-path-from-shell’ package can help; though honestly I consider that
-a kludge too.
-
-   The command ‘magit-debug-git-executable’ can be useful to find out
-where Emacs is searching for ‘git’.
-
-‘M-x magit-debug-git-executable’
-     This command displays a buffer with information about
-     ‘magit-git-executable’ and ‘magit-remote-git-executable’.
-
-‘M-x magit-version’
-     This command shows the currently used versions of Magit, Git, and
-     Emacs in the echo area.  Non-interactively this just returns the
-     Magit version.
-
-
-File: magit.info,  Node: Global Git Arguments,  Prev: Git Executable,  Up: Running Git
-
-4.7.5 Global Git Arguments
---------------------------
-
- -- User Option: magit-git-global-arguments
-     The arguments set here are used every time the git executable is
-     run as a subprocess.  They are placed right after the executable
-     itself and before the git command - as in ‘git HERE... COMMAND
-     REST’.  For valid arguments see *note (gitman)git::.
-
-     Be careful what you add here, especially if you are using Tramp to
-     connect to servers with ancient Git versions.  Never remove
-     anything that is part of the default value, unless you really know
-     what you are doing.  And think very hard before adding something;
-     it will be used every time Magit runs Git for any purpose.
-
-
-File: magit.info,  Node: Inspecting,  Next: Manipulating,  Prev: Interface Concepts,  Up: Top
-
-5 Inspecting
-************
-
-The functionality provided by Magit can be roughly divided into three
-groups: inspecting existing data, manipulating existing data or adding
-new data, and transferring data.  Of course that is a rather crude
-distinction that often falls short, but it’s more useful than no
-distinction at all.  This section is concerned with inspecting data, the
-next two with manipulating and transferring it.  Then follows a section
-about miscellaneous functionality, which cannot easily be fit into this
-distinction.
-
-   Of course other distinctions make sense too, e.g., Git’s distinction
-between porcelain and plumbing commands, which for the most part is
-equivalent to Emacs’ distinction between interactive commands and
-non-interactive functions.  All of the sections mentioned before are
-mainly concerned with the porcelain – Magit’s plumbing layer is
-described later.
-
-* Menu:
-
-* Status Buffer::
-* Repository List::
-* Logging::
-* Diffing::
-* Ediffing::
-* References Buffer::
-* Bisecting::
-* Visiting Files and Blobs::
-* Blaming::
-
-
-File: magit.info,  Node: Status Buffer,  Next: Repository List,  Up: Inspecting
-
-5.1 Status Buffer
-=================
-
-While other Magit buffers contain, e.g., one particular diff or one
-particular log, the status buffer contains the diffs for staged and
-unstaged changes, logs for unpushed and unpulled commits, lists of
-stashes and untracked files, and information related to the current
-branch.
-
-   During certain incomplete operations – for example when a merge
-resulted in a conflict – additional information is displayed that helps
-proceeding with or aborting the operation.
-
-   The command ‘magit-status’ displays the status buffer belonging to
-the current repository in another window.  This command is used so often
-that it should be bound globally.  We recommend using ‘C-x g’:
-
-     (global-set-key (kbd "C-x g") 'magit-status)
-
-‘C-x g’ (‘magit-status’)
-     When invoked from within an existing Git repository, then this
-     command shows the status of that repository in a buffer.
-
-     If the current directory isn’t located within a Git repository,
-     then this command prompts for an existing repository or an
-     arbitrary directory, depending on the option
-     ‘magit-repository-directories’, and the status for the selected
-     repository is shown instead.
-
-        • If that option specifies any existing repositories, then the
-          user is asked to select one of them.
-
-        • Otherwise the user is asked to select an arbitrary directory
-          using regular file-name completion.  If the selected directory
-          is the top-level directory of an existing working tree, then
-          the status buffer for that is shown.
-
-        • Otherwise the user is offered to initialize the selected
-          directory as a new repository.  After creating the repository
-          its status buffer is shown.
-
-     These fallback behaviors can also be forced using one or more
-     prefix arguments:
-
-        • With two prefix arguments (or more precisely a numeric prefix
-          value of 16 or greater) an arbitrary directory is read, which
-          is then acted on as described above.  The same could be
-          accomplished using the command ‘magit-init’.
-
-        • With a single prefix argument an existing repository is read
-          from the user, or if no repository can be found based on the
-          value of ‘magit-repository-directories’, then the behavior is
-          the same as with two prefix arguments.
-
- -- User Option: magit-repository-directories
-     List of directories that are Git repositories or contain Git
-     repositories.
-
-     Each element has the form ‘(DIRECTORY . DEPTH)’.  DIRECTORY has to
-     be a directory or a directory file-name, a string.  DEPTH, an
-     integer, specifies the maximum depth to look for Git repositories.
-     If it is 0, then only add DIRECTORY itself.
-
-     This option controls which repositories are being listed by
-     ‘magit-list-repositories’.  It also affects ‘magit-status’ (which
-     see) in potentially surprising ways (see above).
-
- -- Command: magit-status-quick
-     This command is an alternative to ‘magit-status’ that usually
-     avoids refreshing the status buffer.
-
-     If the status buffer of the current Git repository exists but isn’t
-     being displayed in the selected frame, then it is displayed without
-     being refreshed.
-
-     If the status buffer is being displayed in the selected frame, then
-     this command refreshes it.
-
-     Prefix arguments have the same meaning as for ‘magit-status’, and
-     additionally cause the buffer to be refresh.
-
-     To use this command add this to your init file:
-
-          (global-set-key (kbd "C-x g") 'magit-status-quick).
-
-     If you do that and then for once want to redisplay the buffer and
-     also immediately refresh it, then type ‘C-x g’ followed by ‘g’.
-
-     A possible alternative command is
-     ‘magit-display-repository-buffer’.  It supports displaying any
-     existing Magit buffer that belongs to the current repository; not
-     just the status buffer.
-
- -- Command: ido-enter-magit-status
-     From an Ido prompt used to open a file, instead drop into
-     ‘magit-status’.  This is similar to ‘ido-magic-delete-char’, which,
-     despite its name, usually causes a Dired buffer to be created.
-
-     To make this command available, use something like:
-
-          (add-hook 'ido-setup-hook
-                    (lambda ()
-                      (define-key ido-completion-map
-                        (kbd \"C-x g\") 'ido-enter-magit-status)))
-
-     Starting with Emacs 25.1 the Ido keymaps are defined just once
-     instead of every time Ido is invoked, so now you can modify it like
-     pretty much every other keymap:
-
-          (define-key ido-common-completion-map
-            (kbd \"C-x g\") 'ido-enter-magit-status)
-
-* Menu:
-
-* Status Sections::
-* Status Header Sections::
-* Status Module Sections::
-* Status Options::
-
-
-File: magit.info,  Node: Status Sections,  Next: Status Header Sections,  Up: Status Buffer
-
-5.1.1 Status Sections
----------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’.  See *note Section Hooks:: to learn about
-such hooks and how to customize them.
-
- -- User Option: magit-status-sections-hook
-     Hook run to insert sections into a status buffer.
-
-   The first function on that hook by default is
-‘magit-insert-status-headers’; it is described in the next section.  By
-default the following functions are also members of that hook:
-
- -- Function: magit-insert-merge-log
-     Insert section for the on-going merge.  Display the heads that are
-     being merged.  If no merge is in progress, do nothing.
-
- -- Function: magit-insert-rebase-sequence
-     Insert section for the on-going rebase sequence.  If no such
-     sequence is in progress, do nothing.
-
- -- Function: magit-insert-am-sequence
-     Insert section for the on-going patch applying sequence.  If no
-     such sequence is in progress, do nothing.
-
- -- Function: magit-insert-sequencer-sequence
-     Insert section for the on-going cherry-pick or revert sequence.  If
-     no such sequence is in progress, do nothing.
-
- -- Function: magit-insert-bisect-output
-     While bisecting, insert section with output from ‘git bisect’.
-
- -- Function: magit-insert-bisect-rest
-     While bisecting, insert section visualizing the bisect state.
-
- -- Function: magit-insert-bisect-log
-     While bisecting, insert section logging bisect progress.
-
- -- Function: magit-insert-untracked-files
-     Maybe insert a list or tree of untracked files.
-
-     Do so depending on the value of ‘status.showUntrackedFiles’.  Note
-     that even if the value is ‘all’, Magit still initially only shows
-     directories.  But the directory sections can then be expanded using
-     ‘TAB’.
-
- -- Function: magit-insert-unstaged-changes
-     Insert section showing unstaged changes.
-
- -- Function: magit-insert-staged-changes
-     Insert section showing staged changes.
-
- -- Function: magit-insert-stashes &optional ref heading
-     Insert the ‘stashes’ section showing reflog for "refs/stash".  If
-     optional REF is non-nil show reflog for that instead.  If optional
-     HEADING is non-nil use that as section heading instead of
-     "Stashes:".
-
- -- Function: magit-insert-unpulled-from-upstream
-     Insert section showing commits that haven’t been pulled from the
-     upstream branch yet.
-
- -- Function: magit-insert-unpulled-from-pushremote
-     Insert section showing commits that haven’t been pulled from the
-     push-remote branch yet.
-
- -- Function: magit-insert-unpushed-to-upstream
-     Insert section showing commits that haven’t been pushed to the
-     upstream yet.
-
- -- Function: magit-insert-unpushed-to-pushremote
-     Insert section showing commits that haven’t been pushed to the
-     push-remote yet.
-
-   The following functions can also be added to the above hook:
-
- -- Function: magit-insert-tracked-files
-     Insert a tree of tracked files.
-
- -- Function: magit-insert-ignored-files
-     Insert a tree of ignored files.  Its possible to limit the logs in
-     the current buffer to a certain directory using ‘D = f <DIRECTORY>
-     RET g’.  If you do that, then that that also affects this command.
-
-     The log filter can be used to limit to multiple files.  In that
-     case this function only respects the first of the files and only if
-     it is a directory.
-
- -- Function: magit-insert-skip-worktree-files
-     Insert a tree of skip-worktree files.  If the first element of
-     ‘magit-buffer-diff-files’ is a directory, then limit the list to
-     files below that.  The value of that variable can be set using ‘D
-     -- DIRECTORY RET g’.
-
- -- Function: magit-insert-assumed-unchanged-files
-     Insert a tree of files that are assumed to be unchanged.  If the
-     first element of ‘magit-buffer-diff-files’ is a directory, then
-     limit the list to files below that.  The value of that variable can
-     be set using ‘D -- DIRECTORY RET g’.
-
- -- Function: magit-insert-unpulled-or-recent-commits
-     Insert section showing unpulled or recent commits.  If an upstream
-     is configured for the current branch and it is ahead of the current
-     branch, then show the missing commits.  Otherwise, show the last
-     ‘magit-log-section-commit-count’ commits.
-
- -- Function: magit-insert-recent-commits
-     Insert section showing the last ‘magit-log-section-commit-count’
-     commits.
-
- -- User Option: magit-log-section-commit-count
-     How many recent commits ‘magit-insert-recent-commits’ and
-     ‘magit-insert-unpulled-or-recent-commits’ (provided there are no
-     unpulled commits) show.
-
- -- Function: magit-insert-unpulled-cherries
-     Insert section showing unpulled commits.  Like
-     ‘magit-insert-unpulled-commits’ but prefix each commit that has not
-     been applied yet (i.e., a commit with a patch-id not shared with
-     any local commit) with "+", and all others with "-".
-
- -- Function: magit-insert-unpushed-cherries
-     Insert section showing unpushed commits.  Like
-     ‘magit-insert-unpushed-commits’ but prefix each commit which has
-     not been applied to upstream yet (i.e., a commit with a patch-id
-     not shared with any upstream commit) with "+" and all others with
-     "-".
-
-   See *note References Buffer:: for some more section inserters, which
-could be used here.
-
-
-File: magit.info,  Node: Status Header Sections,  Next: Status Module Sections,  Prev: Status Sections,  Up: Status Buffer
-
-5.1.2 Status Header Sections
-----------------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’ (see *note Status Sections::).
-
-   By default ‘magit-insert-status-headers’ is the first member of that
-hook variable.
-
- -- Function: magit-insert-status-headers
-     Insert headers sections appropriate for ‘magit-status-mode’
-     buffers.  The sections are inserted by running the functions on the
-     hook ‘magit-status-headers-hook’.
-
- -- User Option: magit-status-headers-hook
-     Hook run to insert headers sections into the status buffer.
-
-     This hook is run by ‘magit-insert-status-headers’, which in turn
-     has to be a member of ‘magit-status-sections-hook’ to be used at
-     all.
-
-   By default the following functions are members of the above hook:
-
- -- Function: magit-insert-error-header
-     Insert a header line showing the message about the Git error that
-     just occurred.
-
-     This function is only aware of the last error that occur when Git
-     was run for side-effects.  If, for example, an error occurs while
-     generating a diff, then that error won’t be inserted.  Refreshing
-     the status buffer causes this section to disappear again.
-
- -- Function: magit-insert-diff-filter-header
-     Insert a header line showing the effective diff filters.
-
- -- Function: magit-insert-head-branch-header
-     Insert a header line about the current branch or detached ‘HEAD’.
-
- -- Function: magit-insert-upstream-branch-header
-     Insert a header line about the branch that is usually pulled into
-     the current branch.
-
- -- Function: magit-insert-push-branch-header
-     Insert a header line about the branch that the current branch is
-     usually pushed to.
-
- -- Function: magit-insert-tags-header
-     Insert a header line about the current and/or next tag, along with
-     the number of commits between the tag and ‘HEAD’.
-
-   The following functions can also be added to the above hook:
-
- -- Function: magit-insert-repo-header
-     Insert a header line showing the path to the repository top-level.
-
- -- Function: magit-insert-remote-header
-     Insert a header line about the remote of the current branch.
-
-     If no remote is configured for the current branch, then fall back
-     showing the "origin" remote, or if that does not exist the first
-     remote in alphabetic order.
-
- -- Function: magit-insert-user-header
-     Insert a header line about the current user.
-
-
-File: magit.info,  Node: Status Module Sections,  Next: Status Options,  Prev: Status Header Sections,  Up: Status Buffer
-
-5.1.3 Status Module Sections
-----------------------------
-
-The contents of status buffers is controlled using the hook
-‘magit-status-sections-hook’ (see *note Status Sections::).
-
-   By default ‘magit-insert-modules’ is _not_ a member of that hook
-variable.
-
- -- Function: magit-insert-modules
-     Insert submodule sections.
-
-     Hook ‘magit-module-sections-hook’ controls which module sections
-     are inserted, and option ‘magit-module-sections-nested’ controls
-     whether they are wrapped in an additional section.
-
- -- User Option: magit-module-sections-hook
-     Hook run by ‘magit-insert-modules’.
-
- -- User Option: magit-module-sections-nested
-     This option controls whether ‘magit-insert-modules’ wraps inserted
-     sections in an additional section.
-
-     If this is non-nil, then only a single top-level section is
-     inserted.  If it is nil, then all sections listed in
-     ‘magit-module-sections-hook’ become top-level sections.
-
- -- Function: magit-insert-modules-overview
-     Insert sections for all submodules.  For each section insert the
-     path, the branch, and the output of ‘git describe --tags’, or,
-     failing that, the abbreviated HEAD commit hash.
-
-     Press ‘RET’ on such a submodule section to show its own status
-     buffer.  Press ‘RET’ on the "Modules" section to display a list of
-     submodules in a separate buffer.  This shows additional information
-     not displayed in the super-repository’s status buffer.
-
- -- Function: magit-insert-modules-unpulled-from-upstream
-     Insert sections for modules that haven’t been pulled from the
-     upstream yet.  These sections can be expanded to show the
-     respective commits.
-
- -- Function: magit-insert-modules-unpulled-from-pushremote
-     Insert sections for modules that haven’t been pulled from the
-     push-remote yet.  These sections can be expanded to show the
-     respective commits.
-
- -- Function: magit-insert-modules-unpushed-to-upstream
-     Insert sections for modules that haven’t been pushed to the
-     upstream yet.  These sections can be expanded to show the
-     respective commits.
-
- -- Function: magit-insert-modules-unpushed-to-pushremote
-     Insert sections for modules that haven’t been pushed to the
-     push-remote yet.  These sections can be expanded to show the
-     respective commits.
-
-
-File: magit.info,  Node: Status Options,  Prev: Status Module Sections,  Up: Status Buffer
-
-5.1.4 Status Options
---------------------
-
- -- User Option: magit-status-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Status mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-   Also see the proceeding section for more options concerning status
-buffers.
-
-
-File: magit.info,  Node: Repository List,  Next: Logging,  Prev: Status Buffer,  Up: Inspecting
-
-5.2 Repository List
-===================
-
- -- Command: magit-list-repositories
-     This command displays a list of repositories in a separate buffer.
-
-     The option ‘magit-repository-directories’ controls which
-     repositories are displayed.
-
- -- User Option: magit-repolist-columns
-     This option controls what columns are displayed by the command
-     ‘magit-list-repositories’ and how they are displayed.
-
-     Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
-
-     HEADER is the string displayed in the header.  WIDTH is the width
-     of the column.  FORMAT is a function that is called with one
-     argument, the repository identification (usually its basename), and
-     with ‘default-directory’ bound to the toplevel of its working tree.
-     It has to return a string to be inserted or nil.  PROPS is an alist
-     that supports the keys ‘:right-align’, ‘:pad-right’ and ‘:sort’.
-
-     The ‘:sort’ function has a weird interface described in the
-     docstring of ‘tabulated-list--get-sort’.  Alternatively ‘<’ and
-     ‘magit-repolist-version<’ can be used as those functions are
-     automatically replaced with functions that satisfy the interface.
-     Set ‘:sort’ to ‘nil’ to inhibit sorting; if unspecified, then the
-     column is sortable using the default sorter.
-
-     You may wish to display a range of numeric columns using just one
-     character per column and without any padding between columns, in
-     which case you should use an appropriate HEADER, set WIDTH to 1,
-     and set ‘:pad-right’ to 9.  ‘+’ is substituted for numbers higher
-     than 9.
-
-The following functions can be added to the above option:
-
- -- Function: magit-repolist-column-ident
-     This function inserts the identification of the repository.
-     Usually this is just its basename.
-
- -- Function: magit-repolist-column-path
-     This function inserts the absolute path of the repository.
-
- -- Function: magit-repolist-column-version
-     This function inserts a description of the repository’s ‘HEAD’
-     revision.
-
- -- Function: magit-repolist-column-branch
-     This function inserts the name of the current branch.
-
- -- Function: magit-repolist-column-upstream
-     This function inserts the name of the upstream branch of the
-     current branch.
-
- -- Function: magit-repolist-column-branches
-     This function inserts the number of branches.
-
- -- Function: magit-repolist-column-stashes
-     This function inserts the number of stashes.
-
- -- Function: magit-repolist-column-flag
-     This function inserts a flag as specified by
-     ‘magit-repolist-column-flag-alist’.
-
-     By default this indicates whether there are uncommitted changes.
-
-        • ‘N’ if there is at least one untracked file.
-        • ‘U’ if there is at least one unstaged file.
-        • ‘S’ if there is at least one staged file.
-
-     Only the first one of these that applies is shown.
-
- -- Function: magit-repolist-column-flags
-     This functions insert all flags as specified by
-     ‘magit-repolist-column-flag-alist’.
-
-     This is an alternative to function ‘magit-repolist-column-flag’,
-     which only lists the first one found.
-
- -- Function: magit-repolist-column-unpulled-from-upstream
-     This function inserts the number of upstream commits not in the
-     current branch.
-
- -- Function: magit-repolist-column-unpulled-from-pushremote
-     This function inserts the number of commits in the push branch but
-     not the current branch.
-
- -- Function: magit-repolist-column-unpushed-to-upstream
-     This function inserts the number of commits in the current branch
-     but not its upstream.
-
- -- Function: magit-repolist-column-unpushed-to-pushremote
-     This function inserts the number of commits in the current branch
-     but not its push branch.
-
-The following commands are available in repolist buffers:
-
-‘<RET>’ (‘magit-repolist-status’)
-     This command shows the status for the repository at point.
-
-‘m’ (‘magit-repolist-mark’)
-     This command marks the repository at point.
-
-‘u’ (‘magit-repolist-unmark’)
-     This command unmarks the repository at point.
-
-‘f’ (‘magit-repolist-fetch’)
-     This command fetches all marked repositories.  If no repositories
-     are marked, then it offers to fetch all displayed repositories.
-
-‘5’ (‘magit-repolist-find-file-other-frame’)
-     This command reads a relative file-name (without completion) and
-     opens the respective file in each marked repository in a new frame.
-     If no repositories are marked, then it offers to do this for all
-     displayed repositories.
-
-
-File: magit.info,  Node: Logging,  Next: Diffing,  Prev: Repository List,  Up: Inspecting
-
-5.3 Logging
-===========
-
-The status buffer contains logs for the unpushed and unpulled commits,
-but that obviously isn’t enough.  The transient prefix command
-‘magit-log’, on ‘l’, features several suffix commands, which show a
-specific log in a separate log buffer.
-
-   Like other transient prefix commands, ‘magit-log’ also features
-several infix arguments that can be changed before invoking one of the
-suffix commands.  However, in the case of the log transient, these
-arguments may be taken from those currently in use in the current
-repository’s log buffer, depending on the value of
-‘magit-prefix-use-buffer-arguments’ (see *note Transient Arguments and
-Buffer Variables::).
-
-   For information about the various arguments, see *note
-(gitman)git-log::.  The switch ‘++order=VALUE’ is converted to one of
-‘--author-date-order’, ‘--date-order’, or ‘--topo-order’ before being
-passed to ‘git log’.
-
-   The log transient also features several reflog commands.  See *note
-Reflog::.
-
-‘l’ (‘magit-log’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘l l’ (‘magit-log-current’)
-     Show log for the current branch.  When ‘HEAD’ is detached or with a
-     prefix argument, show log for one or more revs read from the
-     minibuffer.
-
-‘l h’ (‘magit-log-head’)
-     Show log for ‘HEAD’.
-
-‘l u’ (‘magit-log-related’)
-     Show log for the current branch, its upstream and its push target.
-     When the upstream is a local branch, then also show its own
-     upstream.  When ‘HEAD’ is detached, then show log for that, the
-     previously checked out branch and its upstream and push-target.
-
-‘l o’ (‘magit-log-other’)
-     Show log for one or more revs read from the minibuffer.  The user
-     can input any revision or revisions separated by a space, or even
-     ranges, but only branches, tags, and a representation of the commit
-     at point are available as completion candidates.
-
-‘l L’ (‘magit-log-branches’)
-     Show log for all local branches and ‘HEAD’.
-
-‘l b’ (‘magit-log-all-branches’)
-     Show log for all local and remote branches and ‘HEAD’.
-
-‘l a’ (‘magit-log-all’)
-     Show log for all references and ‘HEAD’.
-
-   Two additional commands that show the log for the file or blob that
-is being visited in the current buffer exists, see *note Commands for
-Buffers Visiting Files::.  The command ‘magit-cherry’ also shows a log,
-see *note Cherries::.
-
-* Menu:
-
-* Refreshing Logs::
-* Log Buffer::
-* Log Margin::
-* Select from Log::
-* Reflog::
-* Cherries::
-
-
-File: magit.info,  Node: Refreshing Logs,  Next: Log Buffer,  Up: Logging
-
-5.3.1 Refreshing Logs
----------------------
-
-The transient prefix command ‘magit-log-refresh’, on ‘L’, can be used to
-change the log arguments used in the current buffer, without changing
-which log is shown.  This works in dedicated log buffers, but also in
-the status buffer.
-
-‘L’ (‘magit-log-refresh’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘L g’ (‘magit-log-refresh’)
-     This suffix command sets the local log arguments for the current
-     buffer.
-
-‘L s’ (‘magit-log-set-default-arguments’)
-     This suffix command sets the default log arguments for buffers of
-     the same type as that of the current buffer.  Other existing
-     buffers of the same type are not affected because their local
-     values have already been initialized.
-
-‘L w’ (‘magit-log-save-default-arguments’)
-     This suffix command sets the default log arguments for buffers of
-     the same type as that of the current buffer, and saves the value
-     for future sessions.  Other existing buffers of the same type are
-     not affected because their local values have already been
-     initialized.
-
-‘L L’ (‘magit-toggle-margin’)
-     Show or hide the margin.
-
-
-File: magit.info,  Node: Log Buffer,  Next: Log Margin,  Prev: Refreshing Logs,  Up: Logging
-
-5.3.2 Log Buffer
-----------------
-
-‘L’ (‘magit-log-refresh’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-     See *note Refreshing Logs::.
-
-‘q’ (‘magit-log-bury-buffer’)
-     Bury the current buffer or the revision buffer in the same frame.
-     Like ‘magit-mode-bury-buffer’ (which see) but with a negative
-     prefix argument instead bury the revision buffer, provided it is
-     displayed in the current frame.
-
-‘C-c C-b’ (‘magit-go-backward’)
-     Move backward in current buffer’s history.
-
-‘C-c C-f’ (‘magit-go-forward’)
-     Move forward in current buffer’s history.
-
-‘C-c C-n’ (‘magit-log-move-to-parent’)
-     Move to a parent of the current commit.  By default, this is the
-     first parent, but a numeric prefix can be used to specify another
-     parent.
-
-‘j’ (‘magit-log-move-to-revision’)
-     Read a revision and move to it in current log buffer.
-
-     If the chosen reference or revision isn’t being displayed in the
-     current log buffer, then inform the user about that and do nothing
-     else.
-
-     If invoked outside any log buffer, then display the log buffer of
-     the current repository first; creating it if necessary.
-
-‘<SPC>’ (‘magit-diff-show-or-scroll-up’)
-     Update the commit or diff buffer for the thing at point.
-
-     Either show the commit or stash at point in the appropriate buffer,
-     or if that buffer is already being displayed in the current frame
-     and contains information about that commit or stash, then instead
-     scroll the buffer up.  If there is no commit or stash at point,
-     then prompt for a commit.
-
-‘<DEL>’ (‘magit-diff-show-or-scroll-down’)
-     Update the commit or diff buffer for the thing at point.
-
-     Either show the commit or stash at point in the appropriate buffer,
-     or if that buffer is already being displayed in the current frame
-     and contains information about that commit or stash, then instead
-     scroll the buffer down.  If there is no commit or stash at point,
-     then prompt for a commit.
-
-‘=’ (‘magit-log-toggle-commit-limit’)
-     Toggle the number of commits the current log buffer is limited to.
-     If the number of commits is currently limited, then remove that
-     limit.  Otherwise set it to 256.
-
-‘+’ (‘magit-log-double-commit-limit’)
-     Double the number of commits the current log buffer is limited to.
-
-‘-’ (‘magit-log-half-commit-limit’)
-     Half the number of commits the current log buffer is limited to.
-
- -- User Option: magit-log-auto-more
-     Insert more log entries automatically when moving past the last
-     entry.  Only considered when moving past the last entry with
-     ‘magit-goto-*-section’ commands.
-
- -- User Option: magit-log-show-refname-after-summary
-     Whether to show the refnames after the commit summaries.  This is
-     useful if you use really long branch names.
-
- -- User Option: magit-log-show-color-graph-limit
-     When showing more commits than specified by this option, then the
-     ‘--color’ argument, if specified, is silently dropped.  This is
-     necessary because the ‘ansi-color’ library, which is used to turn
-     control sequences into faces, is just too slow.
-
- -- User Option: magit-log-show-signatures-limit
-     When showing more commits than specified by this option, then the
-     ‘--show-signature’ argument, if specified, is silently dropped.
-     This is necessary because checking the signature of a large number
-     of commits is just too slow.
-
-   Magit displays references in logs a bit differently from how Git does
-it.
-
-   Local branches are blue and remote branches are green.  Of course
-that depends on the used theme, as do the colors used for other types of
-references.  The current branch has a box around it, as do remote
-branches that are their respective remote’s ‘HEAD’ branch.
-
-   If a local branch and its push-target point at the same commit, then
-their names are combined to preserve space and to make that relationship
-visible.  For example:
-
-     origin/feature
-     [green][blue-]
-
-     instead of
-
-     feature origin/feature
-     [blue-] [green-------]
-
-   Also note that while the transient features the ‘--show-signature’
-argument, that won’t actually be used when enabled, because Magit
-defaults to use just one line per commit.  Instead the commit colorized
-to indicate the validity of the signed commit object, using the faces
-named ‘magit-signature-*’ (which see).
-
-   For a description of ‘magit-log-margin’ see *note Log Margin::.
-
-
-File: magit.info,  Node: Log Margin,  Next: Select from Log,  Prev: Log Buffer,  Up: Logging
-
-5.3.3 Log Margin
-----------------
-
-In buffers which show one or more logs, it is possible to show
-additional information about each commit in the margin.  The options
-used to configure the margin are named ‘magit-INFIX-margin’, where INFIX
-is the same as in the respective major-mode ‘magit-INFIX-mode’.  In
-regular log buffers that would be ‘magit-log-margin’.
-
- -- User Option: magit-log-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Log mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-   You can change the STYLE and AUTHOR-WIDTH of all ‘magit-INFIX-margin’
-options to the same values by customizing ‘magit-log-margin’ *before*
-‘magit’ is loaded.  If you do that, then the respective values for the
-other options will default to what you have set for that variable.
-Likewise if you set INIT in ‘magit-log-margin’ to ‘nil’, then that is
-used in the default of all other options.  But setting it to ‘t’, i.e.
-re-enforcing the default for that option, does not carry to other
-options.
-
- -- User Option: magit-log-margin-show-committer-date
-     This option specifies whether to show the committer date in the
-     margin.  This option only controls whether the committer date is
-     displayed instead of the author date.  Whether some date is
-     displayed in the margin and whether the margin is displayed at all
-     is controlled by other options.
-
-‘L’ (‘magit-margin-settings’)
-     This transient prefix command binds the following suffix commands,
-     each of which changes the appearance of the margin in some way.
-
-   In some buffers that support the margin, ‘L’ is instead bound to
-‘magit-log-refresh’, but that transient features the same commands, and
-then some other unrelated commands.
-
-‘L L’ (‘magit-toggle-margin’)
-     This command shows or hides the margin.
-
-‘L l’ (‘magit-cycle-margin-style’)
-     This command cycles the style used for the margin.
-
-‘L d’ (‘magit-toggle-margin-details’)
-     This command shows or hides details in the margin.
-
-
-File: magit.info,  Node: Select from Log,  Next: Reflog,  Prev: Log Margin,  Up: Logging
-
-5.3.4 Select from Log
----------------------
-
-When the user has to select a recent commit that is reachable from
-‘HEAD’, using regular completion would be inconvenient (because most
-humans cannot remember hashes or "HEAD~5", at least not without double
-checking).  Instead a log buffer is used to select the commit, which has
-the advantage that commits are presented in order and with the commit
-message.
-
-   Such selection logs are used when selecting the beginning of a rebase
-and when selecting the commit to be squashed into.
-
-   In addition to the key bindings available in all log buffers, the
-following additional key bindings are available in selection log
-buffers:
-
-‘C-c C-c’ (‘magit-log-select-pick’)
-     Select the commit at point and act on it.  Call
-     ‘magit-log-select-pick-function’ with the selected commit as
-     argument.
-
-‘C-c C-k’ (‘magit-log-select-quit’)
-     Abort selecting a commit, don’t act on any commit.
-
- -- User Option: magit-log-select-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Log-Select mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-
-File: magit.info,  Node: Reflog,  Next: Cherries,  Prev: Select from Log,  Up: Logging
-
-5.3.5 Reflog
-------------
-
-Also see *note (gitman)git-reflog::.
-
-   These reflog commands are available from the log transient.  See
-*note Logging::.
-
-‘l r’ (‘magit-reflog-current’)
-     Display the reflog of the current branch.
-
-‘l O’ (‘magit-reflog-other’)
-     Display the reflog of a branch or another ref.
-
-‘l H’ (‘magit-reflog-head’)
-     Display the ‘HEAD’ reflog.
-
- -- User Option: magit-reflog-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Reflog mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-
-File: magit.info,  Node: Cherries,  Prev: Reflog,  Up: Logging
-
-5.3.6 Cherries
---------------
-
-Cherries are commits that haven’t been applied upstream (yet), and are
-usually visualized using a log.  Each commit is prefixed with ‘-’ if it
-has an equivalent in the upstream and ‘+’ if it does not, i.e., if it is
-a cherry.
-
-   The command ‘magit-cherry’ shows cherries for a single branch, but
-the references buffer (see *note References Buffer::) can show cherries
-for multiple "upstreams" at once.
-
-   Also see *note (gitman)git-reflog::.
-
-‘Y’ (‘magit-cherry’)
-     Show commits that are in a certain branch but that have not been
-     merged in the upstream branch.
-
- -- User Option: magit-cherry-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Cherry mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-
-File: magit.info,  Node: Diffing,  Next: Ediffing,  Prev: Logging,  Up: Inspecting
-
-5.4 Diffing
-===========
-
-The status buffer contains diffs for the staged and unstaged commits,
-but that obviously isn’t enough.  The transient prefix command
-‘magit-diff’, on ‘d’, features several suffix commands, which show a
-specific diff in a separate diff buffer.
-
-   Like other transient prefix commands, ‘magit-diff’ also features
-several infix arguments that can be changed before invoking one of the
-suffix commands.  However, in the case of the diff transient, these
-arguments may be taken from those currently in use in the current
-repository’s diff buffer, depending on the value of
-‘magit-prefix-use-buffer-arguments’ (see *note Transient Arguments and
-Buffer Variables::).
-
-   Also see *note (gitman)git-diff::.
-
-‘d’ (‘magit-diff’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘d d’ (‘magit-diff-dwim’)
-     Show changes for the thing at point.
-
-‘d r’ (‘magit-diff-range’)
-     Show differences between two commits.
-
-     RANGE should be a range (A..B or A...B) but can also be a single
-     commit.  If one side of the range is omitted, then it defaults to
-     ‘HEAD’.  If just a commit is given, then changes in the working
-     tree relative to that commit are shown.
-
-     If the region is active, use the revisions on the first and last
-     line of the region.  With a prefix argument, instead of diffing the
-     revisions, choose a revision to view changes along, starting at the
-     common ancestor of both revisions (i.e., use a "..." range).
-
-‘d w’ (‘magit-diff-working-tree’)
-     Show changes between the current working tree and the ‘HEAD’
-     commit.  With a prefix argument show changes between the working
-     tree and a commit read from the minibuffer.
-
-‘d s’ (‘magit-diff-staged’)
-     Show changes between the index and the ‘HEAD’ commit.  With a
-     prefix argument show changes between the index and a commit read
-     from the minibuffer.
-
-‘d u’ (‘magit-diff-unstaged’)
-     Show changes between the working tree and the index.
-
-‘d p’ (‘magit-diff-paths’)
-     Show changes between any two files on disk.
-
-   All of the above suffix commands update the repository’s diff buffer.
-The diff transient also features two commands which show differences in
-another buffer:
-
-‘d c’ (‘magit-show-commit’)
-     Show the commit at point.  If there is no commit at point or with a
-     prefix argument, prompt for a commit.
-
-‘d t’ (‘magit-stash-show’)
-     Show all diffs of a stash in a buffer.
-
-   Two additional commands that show the diff for the file or blob that
-is being visited in the current buffer exists, see *note Commands for
-Buffers Visiting Files::.
-
-* Menu:
-
-* Refreshing Diffs::
-* Commands Available in Diffs::
-* Diff Options::
-* Revision Buffer::
-
-
-File: magit.info,  Node: Refreshing Diffs,  Next: Commands Available in Diffs,  Up: Diffing
-
-5.4.1 Refreshing Diffs
-----------------------
-
-The transient prefix command ‘magit-diff-refresh’, on ‘D’, can be used
-to change the diff arguments used in the current buffer, without
-changing which diff is shown.  This works in dedicated diff buffers, but
-also in the status buffer.
-
-   (There is one exception; diff arguments cannot be changed in buffers
-created by ‘magit-merge-preview’ because the underlying Git command does
-not support these arguments.)
-
-‘D’ (‘magit-diff-refresh’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘D g’ (‘magit-diff-refresh’)
-     This suffix command sets the local diff arguments for the current
-     buffer.
-
-‘D s’ (‘magit-diff-set-default-arguments’)
-     This suffix command sets the default diff arguments for buffers of
-     the same type as that of the current buffer.  Other existing
-     buffers of the same type are not affected because their local
-     values have already been initialized.
-
-‘D w’ (‘magit-diff-save-default-arguments’)
-     This suffix command sets the default diff arguments for buffers of
-     the same type as that of the current buffer, and saves the value
-     for future sessions.  Other existing buffers of the same type are
-     not affected because their local values have already been
-     initialized.
-
-‘D t’ (‘magit-diff-toggle-refine-hunk’)
-     This command toggles hunk refinement on or off.
-
-‘D r’ (‘magit-diff-switch-range-type’)
-     This command converts the diff range type from "revA..revB" to
-     "revB...revA", or vice versa.
-
-‘D f’ (‘magit-diff-flip-revs’)
-     This command swaps revisions in the diff range from "revA..revB" to
-     "revB..revA", or vice versa.
-
-‘D F’ (‘magit-diff-toggle-file-filter’)
-     This command toggles the file restriction of the diffs in the
-     current buffer, allowing you to quickly switch between viewing all
-     the changes in the commit and the restricted subset.  As a special
-     case, when this command is called from a log buffer, it toggles the
-     file restriction in the repository’s revision buffer, which is
-     useful when you display a revision from a log buffer that is
-     restricted to a file or files.
-
-   In addition to the above transient, which allows changing any of the
-supported arguments, there also exist some commands that change only a
-particular argument.
-
-‘-’ (‘magit-diff-less-context’)
-     This command decreases the context for diff hunks by COUNT lines.
-
-‘+’ (‘magit-diff-more-context’)
-     This command increases the context for diff hunks by COUNT lines.
-
-‘0’ (‘magit-diff-default-context’)
-     This command resets the context for diff hunks to the default
-     height.
-
-   The following commands quickly change what diff is being displayed
-without having to using one of the diff transient.
-
-‘C-c C-d’ (‘magit-diff-while-committing’)
-     While committing, this command shows the changes that are about to
-     be committed.  While amending, invoking the command again toggles
-     between showing just the new changes or all the changes that will
-     be committed.
-
-     This binding is available in the diff buffer as well as the commit
-     message buffer.
-
-‘C-c C-b’ (‘magit-go-backward’)
-     This command moves backward in current buffer’s history.
-
-‘C-c C-f’ (‘magit-go-forward’)
-     This command moves forward in current buffer’s history.
-
-
-File: magit.info,  Node: Commands Available in Diffs,  Next: Diff Options,  Prev: Refreshing Diffs,  Up: Diffing
-
-5.4.2 Commands Available in Diffs
----------------------------------
-
-Some commands are only available if point is inside a diff.
-
-   ‘magit-diff-visit-file’ and related commands visit the appropriate
-version of the file that the diff at point is about.  Likewise
-‘magit-diff-visit-worktree-file’ and related commands visit the worktree
-version of the file that the diff at point is about.  See *note Visiting
-Files and Blobs from a Diff:: for more information and the key bindings.
-
-‘C-c C-t’ (‘magit-diff-trace-definition’)
-     This command shows a log for the definition at point.
-
- -- User Option: magit-log-trace-definition-function
-     The function specified by this option is used by
-     ‘magit-log-trace-definition’ to determine the function at point.
-     For major-modes that have special needs, you could set the local
-     value using the mode’s hook.
-
-‘C-c C-e’ (‘magit-diff-edit-hunk-commit’)
-     From a hunk, this command edits the respective commit and visits
-     the file.
-
-     First it visits the file being modified by the hunk at the correct
-     location using ‘magit-diff-visit-file’.  This actually visits a
-     blob.  When point is on a diff header, not within an individual
-     hunk, then this visits the blob the first hunk is about.
-
-     Then it invokes ‘magit-edit-line-commit’, which uses an interactive
-     rebase to make the commit editable, or if that is not possible
-     because the commit is not reachable from ‘HEAD’ by checking out
-     that commit directly.  This also causes the actual worktree file to
-     be visited.
-
-     Neither the blob nor the file buffer are killed when finishing the
-     rebase.  If that is undesirable, then it might be better to use
-     ‘magit-rebase-edit-commit’ instead of this command.
-
-‘j’ (‘magit-jump-to-diffstat-or-diff’)
-     This command jumps to the diffstat or diff.  When point is on a
-     file inside the diffstat section, then jump to the respective diff
-     section.  Otherwise, jump to the diffstat section or a child
-     thereof.
-
-   The next two commands are not specific to Magit-Diff mode (or and
-Magit buffer for that matter), but it might be worth pointing out that
-they are available here too.
-
-‘<SPC>’ (‘scroll-up’)
-     This command scrolls text upward.
-
-‘<DEL>’ (‘scroll-down’)
-     This command scrolls text downward.
-
-
-File: magit.info,  Node: Diff Options,  Next: Revision Buffer,  Prev: Commands Available in Diffs,  Up: Diffing
-
-5.4.3 Diff Options
-------------------
-
- -- User Option: magit-diff-refine-hunk
-     Whether to show word-granularity differences within diff hunks.
-
-        • ‘nil’ Never show fine differences.
-        • ‘t’ Show fine differences for the current diff hunk only.
-        • ‘all’ Show fine differences for all displayed diff hunks.
-
- -- User Option: magit-diff-refine-ignore-whitespace
-     Whether to ignore whitespace changes in word-granularity
-     differences.
-
- -- User Option: magit-diff-adjust-tab-width
-     Whether to adjust the width of tabs in diffs.
-
-     Determining the correct width can be expensive if it requires
-     opening large and/or many files, so the widths are cached in the
-     variable ‘magit-diff--tab-width-cache’.  Set that to nil to
-     invalidate the cache.
-
-        • ‘nil’ Never adjust tab width.  Use ‘tab-width’s value from the
-          Magit buffer itself instead.
-
-        • ‘t’ If the corresponding file-visiting buffer exits, then use
-          ‘tab-width’’s value from that buffer.  Doing this is cheap, so
-          this value is used even if a corresponding cache entry exists.
-
-        • ‘always’ If there is no such buffer, then temporarily visit
-          the file to determine the value.
-
-        • NUMBER Like ‘always’, but don’t visit files larger than NUMBER
-          bytes.
-
- -- User Option: magit-diff-paint-whitespace
-     Specify where to highlight whitespace errors.
-
-     See ‘magit-diff-highlight-trailing’,
-     ‘magit-diff-highlight-indentation’.  The symbol ‘t’ means in all
-     diffs, ‘status’ means only in the status buffer, and nil means
-     nowhere.
-
-        • ‘nil’ Never highlight whitespace errors.
-        • ‘t’ Highlight whitespace errors everywhere.
-        • ‘uncommitted’ Only highlight whitespace errors in diffs
-          showing uncommitted changes.  For backward compatibility
-          ‘status’ is treated as a synonym.
-
- -- User Option: magit-diff-paint-whitespace-lines
-     Specify in what kind of lines to highlight whitespace errors.
-
-        • ‘t’ Highlight only in added lines.
-        • ‘both’ Highlight in added and removed lines.
-        • ‘all’ Highlight in added, removed and context lines.
-
- -- User Option: magit-diff-highlight-trailing
-     Whether to highlight whitespace at the end of a line in diffs.
-     Used only when ‘magit-diff-paint-whitespace’ is non-nil.
-
- -- User Option: magit-diff-highlight-indentation
-     This option controls whether to highlight the indentation in case
-     it used the "wrong" indentation style.  Indentation is only
-     highlighted if ‘magit-diff-paint-whitespace’ is also non-nil.
-
-     The value is an alist of the form ‘((REGEXP . INDENT)...)’.  The
-     path to the current repository is matched against each element in
-     reverse order.  Therefore if a REGEXP matches, then earlier
-     elements are not tried.
-
-     If the used INDENT is ‘tabs’, highlight indentation with tabs.  If
-     INDENT is an integer, highlight indentation with at least that many
-     spaces.  Otherwise, highlight neither.
-
- -- User Option: magit-diff-hide-trailing-cr-characters
-     Whether to hide ^M characters at the end of a line in diffs.
-
- -- User Option: magit-diff-highlight-hunk-region-functions
-     This option specifies the functions used to highlight the
-     hunk-internal region.
-
-     ‘magit-diff-highlight-hunk-region-dim-outside’ overlays the outside
-     of the hunk internal selection with a face that causes the added
-     and removed lines to have the same background color as context
-     lines.  This function should not be removed from the value of this
-     option.
-
-     ‘magit-diff-highlight-hunk-region-using-overlays’ and
-     ‘magit-diff-highlight-hunk-region-using-underline’ emphasize the
-     region by placing delimiting horizontal lines before and after it.
-     Both of these functions have glitches which cannot be fixed due to
-     limitations of Emacs’ display engine.  For more information see
-     <https://github.com/magit/magit/issues/2758> ff.
-
-     Instead of, or in addition to, using delimiting horizontal lines,
-     to emphasize the boundaries, you may wish to emphasize the text
-     itself, using ‘magit-diff-highlight-hunk-region-using-face’.
-
-     In terminal frames it’s not possible to draw lines as the overlay
-     and underline variants normally do, so there they fall back to
-     calling the face function instead.
-
- -- User Option: magit-diff-unmarked-lines-keep-foreground
-     This option controls whether added and removed lines outside the
-     hunk-internal region only lose their distinct background color or
-     also the foreground color.  Whether the outside of the region is
-     dimmed at all depends on
-     ‘magit-diff-highlight-hunk-region-functions’.
-
- -- User Option: magit-diff-extra-stat-arguments
-     This option specifies additional arguments to be used alongside
-     ‘--stat’.
-
-     The value is a list of zero or more arguments or a function that
-     takes no argument and returns such a list.  These arguments are
-     allowed here: ‘--stat-width’, ‘--stat-name-width’,
-     ‘--stat-graph-width’ and ‘--compact-summary’.  Also see *note
-     (gitman)git-diff::.
-
-
-File: magit.info,  Node: Revision Buffer,  Prev: Diff Options,  Up: Diffing
-
-5.4.4 Revision Buffer
----------------------
-
- -- User Option: magit-revision-insert-related-refs
-     Whether to show related branches in revision buffers.
-
-        • ‘nil’ Don’t show any related branches.
-        • ‘t’ Show related local branches.
-        • ‘all’ Show related local and remote branches.
-        • ‘mixed’ Show all containing branches and local merged
-          branches.
-
- -- User Option: magit-revision-show-gravatars
-     Whether to show gravatar images in revision buffers.
-
-     If ‘nil’, then don’t insert any gravatar images.  If ‘t’, then
-     insert both images.  If ‘author’ or ‘committer’, then insert only
-     the respective image.
-
-     If you have customized the option ‘magit-revision-headers-format’
-     and want to insert the images then you might also have to specify
-     where to do so.  In that case the value has to be a cons-cell of
-     two regular expressions.  The car specifies where to insert the
-     author’s image.  The top half of the image is inserted right after
-     the matched text, the bottom half on the next line in the same
-     column.  The cdr specifies where to insert the committer’s image,
-     accordingly.  Either the car or the cdr may be nil."
-
- -- User Option: magit-revision-use-hash-sections
-     Whether to turn hashes inside the commit message into sections.
-
-     If non-nil, then hashes inside the commit message are turned into
-     ‘commit’ sections.  There is a trade off to be made between
-     performance and reliability:
-
-        • ‘slow’ calls git for every word to be absolutely sure.
-        • ‘quick’ skips words less than seven characters long.
-        • ‘quicker’ additionally skips words that don’t contain a
-          number.
-        • ‘quickest’ uses all words that are at least seven characters
-          long and which contain at least one number as well as at least
-          one letter.
-
-     If nil, then no hashes are turned into sections, but you can still
-     visit the commit at point using "RET".
-
-   The diffs shown in the revision buffer may be automatically
-restricted to a subset of the changed files.  If the revision buffer is
-displayed from a log buffer, the revision buffer will share the same
-file restriction as that log buffer (also see the command
-‘magit-diff-toggle-file-filter’).
-
- -- User Option: magit-revision-filter-files-on-follow
-     Whether showing a commit from a log buffer honors the log’s file
-     filter when the log arguments include ‘--follow’.
-
-     When this option is nil, displaying a commit from a log ignores the
-     log’s file filter if the log arguments include ‘--follow’.  Doing
-     so avoids showing an empty diff in revision buffers for commits
-     before a rename event.  In such cases, the ‘--patch’ argument of
-     the log transient can be used to show the file-restricted diffs
-     inline.
-
-     Set this option to non-nil to keep the log’s file restriction even
-     if ‘--follow’ is present in the log arguments.
-
-   If the revision buffer is not displayed from a log buffer, the file
-restriction is determined as usual (see *note Transient Arguments and
-Buffer Variables::).
-
-
-File: magit.info,  Node: Ediffing,  Next: References Buffer,  Prev: Diffing,  Up: Inspecting
-
-5.5 Ediffing
-============
-
-This section describes how to enter Ediff from Magit buffers.  For
-information on how to use Ediff itself, see *note (ediff)Top::.
-
-‘e’ (‘magit-ediff-dwim’)
-     Compare, stage, or resolve using Ediff.
-
-     This command tries to guess what file, and what commit or range the
-     user wants to compare, stage, or resolve using Ediff.  It might
-     only be able to guess either the file, or range/commit, in which
-     case the user is asked about the other.  It might not always guess
-     right, in which case the appropriate ‘magit-ediff-*’ command has to
-     be used explicitly.  If it cannot read the user’s mind at all, then
-     it asks the user for a command to run.
-
-‘E’ (‘magit-ediff’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘E r’ (‘magit-ediff-compare’)
-     Compare two revisions of a file using Ediff.
-
-     If the region is active, use the revisions on the first and last
-     line of the region.  With a prefix argument, instead of diffing the
-     revisions, choose a revision to view changes along, starting at the
-     common ancestor of both revisions (i.e., use a "..." range).
-
-‘E m’ (‘magit-ediff-resolve-rest’)
-     This command allows you to resolve outstanding conflicts in the
-     file at point using Ediff.  If there is no file at point or if it
-     doesn’t have any unmerged changes, then this command prompts for a
-     file.
-
-     Provided that the value of ‘merge.conflictstyle’ is ‘diff3’, you
-     can view the file’s merge-base revision using ‘/’ in the Ediff
-     control buffer.
-
-     The A, B and Ancestor buffers are constructed from the conflict
-     markers in the worktree file.  Because you and/or Git may have
-     already resolved some conflicts, that means that these buffers may
-     not contain the actual versions from the respective blobs.
-
-‘E M’ (‘magit-ediff-resolve-all’)
-     This command allows you to resolve all conflicts in the file at
-     point using Ediff.  If there is no file at point or if it doesn’t
-     have any unmerged changes, then this command prompts for a file.
-
-     Provided that the value of ‘merge.conflictstyle’ is ‘diff3’, you
-     can view the file’s merge-base revision using ‘/’ in the Ediff
-     control buffer.
-
-     First the file in the worktree is moved aside, appending the suffix
-     ‘.ORIG’, so that you could later go back to that version.  Then it
-     is reconstructed from the two sides of the conflict and the
-     merge-base, if available.
-
-     It would be nice if the worktree file were just used as-is, but
-     Ediff does not support that.  This means that all conflicts, that
-     Git has already resolved, are restored.  On the other hand Ediff
-     also tries to resolve conflicts, and in many cases Ediff and Git
-     should produce similar results.
-
-     However if you have already resolved some conflicts manually, then
-     those changes are discarded (though you can recover them from the
-     backup file).  In such cases ‘magit-ediff-resolve-rest’ might be
-     more suitable.
-
-     The advantage that this command has over ‘magit-ediff-resolve-rest’
-     is that the A, B and Ancestor buffers correspond to blobs from the
-     respective commits, allowing you to inspect a side in context and
-     to use Magit commands in these buffers to do so.  Blame and log
-     commands are particularly useful here.
-
-‘E t’ (‘magit-git-mergetool’)
-     This command does not actually use Ediff.  While it serves the same
-     purpose as ‘magit-ediff-resolve-rest’, it uses ‘git mergetool
-     --gui’ to resolve conflicts.
-
-     With a prefix argument this acts as a transient prefix command,
-     allowing the user to select the mergetool and change some settings.
-
-‘E s’ (‘magit-ediff-stage’)
-     Stage and unstage changes to a file using Ediff, defaulting to the
-     file at point.
-
-‘E u’ (‘magit-ediff-show-unstaged’)
-     Show unstaged changes to a file using Ediff.
-
-‘E i’ (‘magit-ediff-show-staged’)
-     Show staged changes to a file using Ediff.
-
-‘E w’ (‘magit-ediff-show-working-tree’)
-     Show changes in a file between ‘HEAD’ and working tree using Ediff.
-
-‘E c’ (‘magit-ediff-show-commit’)
-     Show changes to a file introduced by a commit using Ediff.
-
-‘E z’ (‘magit-ediff-show-stash’)
-     Show changes to a file introduced by a stash using Ediff.
-
- -- User Option: magit-ediff-dwim-resolve-function
-     This option controls which function ‘magit-ediff-dwim’ uses to
-     resolve conflicts.  One of ‘magit-ediff-resolve-rest’,
-     ‘magit-ediff-resolve-all’ or ‘magit-git-mergetool’; which are all
-     discussed above.
-
- -- User Option: magit-ediff-dwim-show-on-hunks
-     This option controls what command ‘magit-ediff-dwim’ calls when
-     point is on uncommitted hunks.  When nil, always run
-     ‘magit-ediff-stage’.  Otherwise, use ‘magit-ediff-show-staged’ and
-     ‘magit-ediff-show-unstaged’ to show staged and unstaged changes,
-     respectively.
-
- -- User Option: magit-ediff-show-stash-with-index
-     This option controls whether ‘magit-ediff-show-stash’ includes a
-     buffer containing the file’s state in the index at the time the
-     stash was created.  This makes it possible to tell which changes in
-     the stash were staged.
-
- -- User Option: magit-ediff-quit-hook
-     This hook is run after quitting an Ediff session that was created
-     using a Magit command.  The hook functions are run inside the Ediff
-     control buffer, and should not change the current buffer.
-
-     This is similar to ‘ediff-quit-hook’ but takes the needs of Magit
-     into account.  The regular ‘ediff-quit-hook’ is ignored by Ediff
-     sessions that were created using a Magit command.
-
-
-File: magit.info,  Node: References Buffer,  Next: Bisecting,  Prev: Ediffing,  Up: Inspecting
-
-5.6 References Buffer
-=====================
-
-‘y’ (‘magit-show-refs’)
-     This command lists branches and tags in a dedicated buffer.
-
-     However if this command is invoked again from this buffer or if it
-     is invoked with a prefix argument, then it acts as a transient
-     prefix command, which binds the following suffix commands and some
-     infix arguments.
-
-   All of the following suffix commands list exactly the same branches
-and tags.  The only difference the optional feature that can be enabled
-by changing the value of ‘magit-refs-show-commit-count’ (see below).
-These commands specify a different branch or commit against which all
-the other references are compared.
-
-‘y y’ (‘magit-show-refs-head’)
-     This command lists branches and tags in a dedicated buffer.  Each
-     reference is being compared with ‘HEAD’.
-
-‘y c’ (‘magit-show-refs-current’)
-     This command lists branches and tags in a dedicated buffer.  Each
-     reference is being compared with the current branch or ‘HEAD’ if it
-     is detached.
-
-‘y o’ (‘magit-show-refs-other’)
-     This command lists branches and tags in a dedicated buffer.  Each
-     reference is being compared with a branch read from the user.
-
-‘y r’ (‘magit-refs-set-show-commit-count’)
-     This command changes for which refs the commit count is shown.
-
- -- User Option: magit-refs-show-commit-count
-     Whether to show commit counts in Magit-Refs mode buffers.
-
-        • ‘all’ Show counts for branches and tags.
-        • ‘branch’ Show counts for branches only.
-        • ‘nil’ Never show counts.
-
-     The default is ‘nil’ because anything else can be very expensive.
-
- -- User Option: magit-refs-pad-commit-counts
-     Whether to pad all commit counts on all sides in Magit-Refs mode
-     buffers.
-
-     If this is nil, then some commit counts are displayed right next to
-     one of the branches that appear next to the count, without any
-     space in between.  This might look bad if the branch name faces
-     look too similar to ‘magit-dimmed’.
-
-     If this is non-nil, then spaces are placed on both sides of all
-     commit counts.
-
- -- User Option: magit-refs-show-remote-prefix
-     Whether to show the remote prefix in lists of remote branches.
-
-     Showing the prefix is redundant because the name of the remote is
-     already shown in the heading preceding the list of its branches.
-
- -- User Option: magit-refs-primary-column-width
-     Width of the primary column in ‘magit-refs-mode’ buffers.  The
-     primary column is the column that contains the name of the branch
-     that the current row is about.
-
-     If this is an integer, then the column is that many columns wide.
-     Otherwise it has to be a cons-cell of two integers.  The first
-     specifies the minimal width, the second the maximal width.  In that
-     case the actual width is determined using the length of the names
-     of the shown local branches.  (Remote branches and tags are not
-     taken into account when calculating to optimal width.)
-
- -- User Option: magit-refs-focus-column-width
-     Width of the focus column in ‘magit-refs-mode’ buffers.
-
-     The focus column is the first column, which marks one branch
-     (usually the current branch) as the focused branch using ‘*’ or
-     ‘@’.  For each other reference, this column optionally shows how
-     many commits it is ahead of the focused branch and ‘<’, or if it
-     isn’t ahead then the commits it is behind and ‘>’, or if it isn’t
-     behind either, then a ‘=’.
-
-     This column may also display only ‘*’ or ‘@’ for the focused
-     branch, in which case this option is ignored.  Use ‘L v’ to change
-     the verbosity of this column.
-
- -- User Option: magit-refs-margin
-     This option specifies whether the margin is initially shown in
-     Magit-Refs mode buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
- -- User Option: magit-refs-margin-for-tags
-     This option specifies whether to show information about tags in the
-     margin.  This is disabled by default because it is slow if there
-     are many tags.
-
-   The following variables control how individual refs are displayed.
-If you change one of these variables (especially the "%c" part), then
-you should also change the others to keep things aligned.  The following
-%-sequences are supported:
-
-   • ‘%a’ Number of commits this ref has over the one we compare to.
-   • ‘%b’ Number of commits the ref we compare to has over this one.
-   • ‘%c’ Number of commits this ref has over the one we compare to.
-     For the ref which all other refs are compared this is instead "@",
-     if it is the current branch, or "#" otherwise.
-   • ‘%C’ For the ref which all other refs are compared this is "@", if
-     it is the current branch, or "#" otherwise.  For all other refs "
-     ".
-   • ‘%h’ Hash of this ref’s tip.
-   • ‘%m’ Commit summary of the tip of this ref.
-   • ‘%n’ Name of this ref.
-   • ‘%u’ Upstream of this local branch.
-   • ‘%U’ Upstream of this local branch and additional local vs.
-     upstream information.
-
- -- User Option: magit-refs-filter-alist
-     The purpose of this option is to forgo displaying certain refs
-     based on their name.  If you want to not display any refs of a
-     certain type, then you should remove the appropriate function from
-     ‘magit-refs-sections-hook’ instead.
-
-     This alist controls which tags and branches are omitted from being
-     displayed in ‘magit-refs-mode’ buffers.  If it is ‘nil’, then all
-     refs are displayed (subject to ‘magit-refs-sections-hook’).
-
-     All keys are tried in order until one matches.  Then its value is
-     used and subsequent elements are ignored.  If the value is non-nil,
-     then the reference is displayed, otherwise it is not.  If no
-     element matches, then the reference is displayed.
-
-     A key can either be a regular expression that the refname has to
-     match, or a function that takes the refname as only argument and
-     returns a boolean.  A remote branch such as "origin/master" is
-     displayed as just "master", however for this comparison the former
-     is used.
-
-‘<RET>’ (‘magit-visit-ref’)
-     This command visits the reference or revision at point in another
-     buffer.  If there is no revision at point or with a prefix argument
-     then it prompts for a revision.
-
-     This command behaves just like ‘magit-show-commit’ as described
-     above, except if point is on a reference in a ‘magit-refs-mode’
-     buffer, in which case the behavior may be different, but only if
-     you have customized the option ‘magit-visit-ref-behavior’.
-
- -- User Option: magit-visit-ref-behavior
-     This option controls how ‘magit-visit-ref’ behaves in
-     ‘magit-refs-mode’ buffers.
-
-     By default ‘magit-visit-ref’ behaves like ‘magit-show-commit’, in
-     all buffers, including ‘magit-refs-mode’ buffers.  When the type of
-     the section at point is ‘commit’ then "RET" is bound to
-     ‘magit-show-commit’, and when the type is either ‘branch’ or ‘tag’
-     then it is bound to ‘magit-visit-ref’.
-
-     "RET" is one of Magit’s most essential keys and at least by default
-     it should behave consistently across all of Magit, especially
-     because users quickly learn that it does something very harmless;
-     it shows more information about the thing at point in another
-     buffer.
-
-     However "RET" used to behave differently in ‘magit-refs-mode’
-     buffers, doing surprising things, some of which cannot really be
-     described as "visit this thing".  If you’ve grown accustomed this
-     behavior, you can restore it by adding one or more of the below
-     symbols to the value of this option.  But keep in mind that by
-     doing so you don’t only introduce inconsistencies, you also lose
-     some functionality and might have to resort to ‘M-x
-     magit-show-commit’ to get it back.
-
-     ‘magit-visit-ref’ looks for these symbols in the order in which
-     they are described here.  If the presence of a symbol applies to
-     the current situation, then the symbols that follow do not affect
-     the outcome.
-
-        • ‘focus-on-ref’
-
-          With a prefix argument update the buffer to show commit counts
-          and lists of cherry commits relative to the reference at point
-          instead of relative to the current buffer or ‘HEAD’.
-
-          Instead of adding this symbol, consider pressing "C-u y o
-          RET".
-
-        • ‘create-branch’
-
-          If point is on a remote branch, then create a new local branch
-          with the same name, use the remote branch as its upstream, and
-          then check out the local branch.
-
-          Instead of adding this symbol, consider pressing "b c RET
-          RET", like you would do in other buffers.
-
-        • ‘checkout-any’
-
-          Check out the reference at point.  If that reference is a tag
-          or a remote branch, then this results in a detached ‘HEAD’.
-
-          Instead of adding this symbol, consider pressing "b b RET",
-          like you would do in other buffers.
-
-        • ‘checkout-branch’
-
-          Check out the local branch at point.
-
-          Instead of adding this symbol, consider pressing "b b RET",
-          like you would do in other buffers.
-
-* Menu:
-
-* References Sections::
-
-
-File: magit.info,  Node: References Sections,  Up: References Buffer
-
-5.6.1 References Sections
--------------------------
-
-The contents of references buffers is controlled using the hook
-‘magit-refs-sections-hook’.  See *note Section Hooks:: to learn about
-such hooks and how to customize them.  All of the below functions are
-members of the default value.  Note that it makes much less sense to
-customize this hook than it does for the respective hook used for the
-status buffer.
-
- -- User Option: magit-refs-sections-hook
-     Hook run to insert sections into a references buffer.
-
- -- Function: magit-insert-local-branches
-     Insert sections showing all local branches.
-
- -- Function: magit-insert-remote-branches
-     Insert sections showing all remote-tracking branches.
-
- -- Function: magit-insert-tags
-     Insert sections showing all tags.
-
-
-File: magit.info,  Node: Bisecting,  Next: Visiting Files and Blobs,  Prev: References Buffer,  Up: Inspecting
-
-5.7 Bisecting
-=============
-
-Also see *note (gitman)git-bisect::.
-
-‘B’ (‘magit-bisect’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-   When bisecting is not in progress, then the transient features the
-following suffix commands.
-
-‘B B’ (‘magit-bisect-start’)
-     Start a bisect session.
-
-     Bisecting a bug means to find the commit that introduced it.  This
-     command starts such a bisect session by asking for a known good
-     commit and a known bad commit.  If you’re bisecting a change that
-     isn’t a regression, you can select alternate terms that are
-     conceptually more fitting than "bad" and "good", but the infix
-     arguments to do so are disabled by default.
-
-‘B s’ (‘magit-bisect-run’)
-     Bisect automatically by running commands after each step.
-
-   When bisecting in progress, then the transient instead features the
-following suffix commands.
-
-‘B b’ (‘magit-bisect-bad’)
-     Mark the current commit as bad.  Use this after you have asserted
-     that the commit does contain the bug in question.
-
-‘B g’ (‘magit-bisect-good’)
-     Mark the current commit as good.  Use this after you have asserted
-     that the commit does not contain the bug in question.
-
-‘B m’ (‘magit-bisect-mark’)
-     Mark the current commit with one of the bisect terms.  This command
-     provides an alternative to ‘magit-bisect-bad’ and
-     ‘magit-bisect-good’ and is useful when using terms other than "bad"
-     and "good".  This suffix is disabled by default.
-
-‘B k’ (‘magit-bisect-skip’)
-     Skip the current commit.  Use this if for some reason the current
-     commit is not a good one to test.  This command lets Git choose a
-     different one.
-
-‘B r’ (‘magit-bisect-reset’)
-     After bisecting, cleanup bisection state and return to original
-     ‘HEAD’.
-
-   By default the status buffer shows information about the ongoing
-bisect session.
-
- -- User Option: magit-bisect-show-graph
-     This option controls whether a graph is displayed for the log of
-     commits that still have to be bisected.
-
-
-File: magit.info,  Node: Visiting Files and Blobs,  Next: Blaming,  Prev: Bisecting,  Up: Inspecting
-
-5.8 Visiting Files and Blobs
-============================
-
-Magit provides several commands that visit a file or blob (the version
-of a file that is stored in a certain commit).  Actually it provides
-several *groups* of such commands and the several *variants* within each
-group.
-
-   Also see *note Commands for Buffers Visiting Files::.
-
-* Menu:
-
-* General-Purpose Visit Commands::
-* Visiting Files and Blobs from a Diff::
-
-
-File: magit.info,  Node: General-Purpose Visit Commands,  Next: Visiting Files and Blobs from a Diff,  Up: Visiting Files and Blobs
-
-5.8.1 General-Purpose Visit Commands
-------------------------------------
-
-These commands can be used anywhere to open any blob.  Currently no keys
-are bound to these commands by default, but that is likely to change.
-
- -- Command: magit-find-file
-     This command reads a filename and revision from the user and visits
-     the respective blob in a buffer.  The buffer is displayed in the
-     selected window.
-
- -- Command: magit-find-file-other-window
-     This command reads a filename and revision from the user and visits
-     the respective blob in a buffer.  The buffer is displayed in
-     another window.
-
- -- Command: magit-find-file-other-frame
-     This command reads a filename and revision from the user and visits
-     the respective blob in a buffer.  The buffer is displayed in
-     another frame.
-
-
-File: magit.info,  Node: Visiting Files and Blobs from a Diff,  Prev: General-Purpose Visit Commands,  Up: Visiting Files and Blobs
-
-5.8.2 Visiting Files and Blobs from a Diff
-------------------------------------------
-
-These commands can only be used when point is inside a diff.
-
-‘<RET>’ (‘magit-diff-visit-file’)
-     This command visits the appropriate version of the file that the
-     diff at point is about.
-
-     This commands visits the worktree version of the appropriate file.
-     The location of point inside the diff determines which file is
-     being visited.  The visited version depends on what changes the
-     diff is about.
-
-       1. If the diff shows uncommitted changes (i.e., staged or
-          unstaged changes), then visit the file in the working tree
-          (i.e., the same "real" file that ‘find-file’ would visit.  In
-          all other cases visit a "blob" (i.e., the version of a file as
-          stored in some commit).
-
-       2. If point is on a removed line, then visit the blob for the
-          first parent of the commit that removed that line, i.e., the
-          last commit where that line still exists.
-
-       3. If point is on an added or context line, then visit the blob
-          that adds that line, or if the diff shows from more than a
-          single commit, then visit the blob from the last of these
-          commits.
-
-     In the file-visiting buffer this command goes to the line that
-     corresponds to the line that point is on in the diff.
-
-     The buffer is displayed in the selected window.  With a prefix
-     argument the buffer is displayed in another window instead.
-
- -- User Option: magit-diff-visit-previous-blob
-     This option controls whether ‘magit-diff-visit-file’ may visit the
-     previous blob.  When this is ‘t’ (the default) and point is on a
-     removed line in a diff for a committed change, then
-     ‘magit-diff-visit-file’ visits the blob from the last revision
-     which still had that line.
-
-     Currently this is only supported for committed changes, for staged
-     and unstaged changes ‘magit-diff-visit-file’ always visits the file
-     in the working tree.
-
-‘C-<return>’ (‘magit-diff-visit-file-worktree’)
-     This command visits the worktree version of the appropriate file.
-     The location of point inside the diff determines which file is
-     being visited.  Unlike ‘magit-diff-visit-file’ it always visits the
-     "real" file in the working tree, i.e the "current version" of the
-     file.
-
-     In the file-visiting buffer this command goes to the line that
-     corresponds to the line that point is on in the diff.  Lines that
-     were added or removed in the working tree, the index and other
-     commits in between are automatically accounted for.
-
-     The buffer is displayed in the selected window.  With a prefix
-     argument the buffer is displayed in another window instead.
-
-   Variants of the above two commands exist that instead visit the file
-in another window or in another frame.  If you prefer such behavior,
-then you may want to change the above key bindings, but note that the
-above commands also use another window when invoked with a prefix
-argument.
-
- -- Command: magit-diff-visit-file-other-window
- -- Command: magit-diff-visit-file-other-frame
- -- Command: magit-diff-visit-worktree-file-other-window
- -- Command: magit-diff-visit-worktree-file-other-frame
-
-
-File: magit.info,  Node: Blaming,  Prev: Visiting Files and Blobs,  Up: Inspecting
-
-5.9 Blaming
-===========
-
-Also see *note (gitman)git-blame::.
-
-   To start blaming, invoke the ‘magit-file-dispatch’ transient prefix
-command.  When using the default key bindings, that can be done by
-pressing ‘C-c M-g’.  When using the recommended bindings, this command
-is instead bound to ‘C-c f’.  Also see *note Global Bindings::.
-
-   The blaming suffix commands can be invoked directly from the file
-dispatch transient.  However if you want to set an infix argument, then
-you have to enter the blaming sub-prefix first.
-
-‘C-c f B’ (‘magit-blame’)
-‘C-c f b’ (‘magit-blame-addition’)
-‘C-c f B b’
-‘C-c f r’ (‘magit-blame-removal’)
-‘C-c f B r’
-‘C-c f f’ (‘magit-blame-reverse’)
-‘C-c f B f’
-‘C-c f e’ (‘magit-blame-echo’)
-‘C-c f B e’
-‘C-c f q’ (‘magit-blame-quit’)
-‘C-c f B q’
-     Each of these commands is documented individually right below,
-     alongside their default key bindings.  The bindings shown above are
-     the recommended bindings, which you can enable by following the
-     instructions in *note Global Bindings::.
-
-‘C-c M-g B’ (‘magit-blame’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   Note that not all of the following suffixes are available at all
-times.  For example if ‘magit-blame-mode’ is not enabled, then the
-command whose purpose is to turn off that mode would not be of any use
-and therefore isn’t available.
-
-‘C-c M-g b’ (‘magit-blame-addition’)
-‘C-c M-g B b’
-     This command augments each line or chunk of lines in the current
-     file-visiting or blob-visiting buffer with information about what
-     commits last touched these lines.
-
-     If the buffer visits a revision of that file, then history up to
-     that revision is considered.  Otherwise, the file’s full history is
-     considered, including uncommitted changes.
-
-     If Magit-Blame mode is already turned on in the current buffer then
-     blaming is done recursively, by visiting REVISION:FILE (using
-     ‘magit-find-file’), where REVISION is a parent of the revision that
-     added the current line or chunk of lines.
-
-‘C-c M-g r’ (‘magit-blame-removal’)
-‘C-c M-g B r’
-     This command augments each line or chunk of lines in the current
-     blob-visiting buffer with information about the revision that
-     removes it.  It cannot be used in file-visiting buffers.
-
-     Like ‘magit-blame-addition’, this command can be used recursively.
-
-‘C-c M-g f’ (‘magit-blame-reverse’)
-‘C-c M-g B f’
-     This command augments each line or chunk of lines in the current
-     file-visiting or blob-visiting buffer with information about the
-     last revision in which a line still existed.
-
-     Like ‘magit-blame-addition’, this command can be used recursively.
-
-‘C-c M-g e’ (‘magit-blame-echo’)
-‘C-c M-g B e’
-     This command is like ‘magit-blame-addition’ except that it doesn’t
-     turn on ‘read-only-mode’ and that it initially uses the
-     visualization style specified by option ‘magit-blame-echo-style’.
-
-   The following key bindings are available when Magit-Blame mode is
-enabled and Read-Only mode is not enabled.  These commands are also
-available in other buffers; here only the behavior is described that is
-relevant in file-visiting buffers that are being blamed.
-
-‘C-c M-g q’ (‘magit-blame-quit’)
-‘C-c M-g B q’
-     This command turns off Magit-Blame mode.  If the buffer was created
-     during a recursive blame, then it also kills the buffer.
-
-‘<RET>’ (‘magit-show-commit’)
-     This command shows the commit that last touched the line at point.
-
-‘<SPC>’ (‘magit-diff-show-or-scroll-up’)
-     This command updates the commit buffer.
-
-     This either shows the commit that last touched the line at point in
-     the appropriate buffer, or if that buffer is already being
-     displayed in the current frame and if that buffer contains
-     information about that commit, then the buffer is scrolled up
-     instead.
-
-‘<DEL>’ (‘magit-diff-show-or-scroll-down’)
-     This command updates the commit buffer.
-
-     This either shows the commit that last touched the line at point in
-     the appropriate buffer, or if that buffer is already being
-     displayed in the current frame and if that buffer contains
-     information about that commit, then the buffer is scrolled down
-     instead.
-
-   The following key bindings are available when both Magit-Blame mode
-and Read-Only mode are enabled.
-
-‘b’ (‘magit-blame’)
-     See above.
-
-‘n’ (‘magit-blame-next-chunk’)
-     This command moves to the next chunk.
-
-‘N’ (‘magit-blame-next-chunk-same-commit’)
-     This command moves to the next chunk from the same commit.
-
-‘p’ (‘magit-blame-previous-chunk’)
-     This command moves to the previous chunk.
-
-‘P’ (‘magit-blame-previous-chunk-same-commit’)
-     This command moves to the previous chunk from the same commit.
-
-‘q’ (‘magit-blame-quit’)
-     This command turns off Magit-Blame mode.  If the buffer was created
-     during a recursive blame, then it also kills the buffer.
-
-‘M-w’ (‘magit-blame-copy-hash’)
-     This command saves the hash of the current chunk’s commit to the
-     kill ring.
-
-     When the region is active, the command saves the region’s content
-     instead of the hash, like ‘kill-ring-save’ would.
-
-‘c’ (‘magit-blame-cycle-style’)
-     This command changes how blame information is visualized in the
-     current buffer by cycling through the styles specified using the
-     option ‘magit-blame-styles’.
-
-   Blaming is also controlled using the following options.
-
- -- User Option: magit-blame-styles
-     This option defines a list of styles used to visualize blame
-     information.  For now see its doc-string to learn more.
-
- -- User Option: magit-blame-echo-style
-     This option specifies the blame visualization style used by the
-     command ‘magit-blame-echo’.  This must be a symbol that is used as
-     the identifier for one of the styles defined in
-     ‘magit-blame-styles’.
-
- -- User Option: magit-blame-time-format
-     This option specifies the format string used to display times when
-     showing blame information.
-
- -- User Option: magit-blame-read-only
-     This option controls whether blaming a buffer also makes
-     temporarily read-only.
-
- -- User Option: magit-blame-disable-modes
-     This option lists incompatible minor-modes that should be disabled
-     temporarily when a buffer contains blame information.  They are
-     enabled again when the buffer no longer shows blame information.
-
- -- User Option: magit-blame-goto-chunk-hook
-     This hook is run when moving between chunks.
-
-
-File: magit.info,  Node: Manipulating,  Next: Transferring,  Prev: Inspecting,  Up: Top
-
-6 Manipulating
-**************
-
-* Menu:
-
-* Creating Repository::
-* Cloning Repository::
-* Staging and Unstaging::
-* Applying::
-* Committing::
-* Branching::
-* Merging::
-* Resolving Conflicts::
-* Rebasing::
-* Cherry Picking::
-* Resetting::
-* Stashing::
-
-
-File: magit.info,  Node: Creating Repository,  Next: Cloning Repository,  Up: Manipulating
-
-6.1 Creating Repository
-=======================
-
-‘I’ (‘magit-init’)
-     This command initializes a repository and then shows the status
-     buffer for the new repository.
-
-     If the directory is below an existing repository, then the user has
-     to confirm that a new one should be created inside.  If the
-     directory is the root of the existing repository, then the user has
-     to confirm that it should be reinitialized.
-
-
-File: magit.info,  Node: Cloning Repository,  Next: Staging and Unstaging,  Prev: Creating Repository,  Up: Manipulating
-
-6.2 Cloning Repository
-======================
-
-To clone a remote or local repository use ‘C’, which is bound to the
-command ‘magit-clone’.  This command either act as a transient prefix
-command, which binds several infix arguments and suffix commands, or it
-can invoke ‘git clone’ directly, depending on whether a prefix argument
-is used and on the value of ‘magit-clone-always-transient’.
-
- -- User Option: magit-clone-always-transient
-     This option controls whether the command ‘magit-clone’ always acts
-     as a transient prefix command, regardless of whether a prefix
-     argument is used or not.  If ‘t’, then that command always acts as
-     a transient prefix.  If ‘nil’, then a prefix argument has to be
-     used for it to act as a transient.
-
-‘C’ (‘magit-clone’)
-     This command either acts as a transient prefix command as described
-     above or does the same thing as ‘transient-clone-regular’ as
-     described below.
-
-     If it acts as a transient prefix, then it binds the following
-     suffix commands and several infix arguments.
-
-‘C C’ (‘magit-clone-regular’)
-     This command creates a regular clone of an existing repository.
-     The repository and the target directory are read from the user.
-
-‘C s’ (‘magit-clone-shallow’)
-     This command creates a shallow clone of an existing repository.
-     The repository and the target directory are read from the user.  By
-     default the depth of the cloned history is a single commit, but
-     with a prefix argument the depth is read from the user.
-
-‘C >’ (‘magit-clone-sparse’)
-     This command creates a clone of an existing repository and
-     initializes a sparse checkout, avoiding a checkout of the full
-     working tree.  To add more directories, use the
-     ‘magit-sparse-checkout’ transient (see *note Sparse checkouts::).
-
-‘C b’ (‘magit-clone-bare’)
-     This command creates a bare clone of an existing repository.  The
-     repository and the target directory are read from the user.
-
-‘C m’ (‘magit-clone-mirror’)
-     This command creates a mirror of an existing repository.  The
-     repository and the target directory are read from the user.
-
-   The following suffixes are disabled by default.  See *note
-(transient)Enabling and Disabling Suffixes:: for how to enable them.
-
-‘C d’ (‘magit-clone-shallow-since’)
-     This command creates a shallow clone of an existing repository.
-     Only commits that were committed after a date are cloned, which is
-     read from the user.  The repository and the target directory are
-     also read from the user.
-
-‘C e’ (‘magit-clone-shallow-exclude’)
-     This command creates a shallow clone of an existing repository.
-     This reads a branch or tag from the user.  Commits that are
-     reachable from that are not cloned.  The repository and the target
-     directory are also read from the user.
-
- -- User Option: magit-clone-set-remote-head
-     This option controls whether cloning causes the reference
-     ‘refs/remotes/<remote>/HEAD’ to be created in the clone.  The
-     default is to delete the reference after running ‘git clone’, which
-     insists on creating it.  This is because the reference has not been
-     found to be particularly useful as it is not automatically updated
-     when the ‘HEAD’ of the remote changes.  Setting this option to ‘t’
-     preserves Git’s default behavior of creating the reference.
-
- -- User Option: magit-clone-set-remote.pushDefault
-     This option controls whether the value of the Git variable
-     ‘remote.pushDefault’ is set after cloning.
-
-        • If ‘t’, then it is always set without asking.
-        • If ‘ask’, then the users are asked every time they clone a
-          repository.
-        • If ‘nil’, then it is never set.
-
- -- User Option: magit-clone-default-directory
-     This option control the default directory name used when reading
-     the destination for a cloning operation.
-
-        • If ‘nil’ (the default), then the value of ‘default-directory’
-          is used.
-        • If a directory, then that is used.
-        • If a function, then that is called with the remote url as the
-          only argument and the returned value is used.
-
- -- User Option: magit-clone-name-alist
-     This option maps regular expressions, which match repository names,
-     to repository urls, making it possible for users to enter short
-     names instead of urls when cloning repositories.
-
-     Each element has the form ‘(REGEXP HOSTNAME USER)’.  When the user
-     enters a name when a cloning command asks for a name or url, then
-     that is looked up in this list.  The first element whose REGEXP
-     matches is used.
-
-     The format specified by option ‘magit-clone-url-format’ is used to
-     turn the name into an url, using HOSTNAME and the repository name.
-     If the provided name contains a slash, then that is used.
-     Otherwise if the name omits the owner of the repository, then the
-     default user specified in the matched entry is used.
-
-     If USER contains a dot, then it is treated as a Git variable and
-     the value of that is used as the username.  Otherwise it is used as
-     the username itself.
-
- -- User Option: magit-clone-url-format
-     The format specified by this option is used when turning repository
-     names into urls.  ‘%h’ is the hostname and ‘%n’ is the repository
-     name, including the name of the owner.  The value can be a string
-     (representing a single static format) or an alist with elements
-     ‘(HOSTNAME . FORMAT)’ mapping hostnames to formats.  When an alist
-     is used, the ‘t’ key represents the default format.
-
-     Example of a single format string:
-
-          (setq magit-clone-url-format
-                "git@%h:%n.git")
-
-     Example of by-hostname format strings:
-
-          (setq magit-clone-url-format
-                '(("git.example.com" . "git@%h:~%n")
-                  (nil . "git@%h:%n.git")))
-
- -- User Option: magit-post-clone-hook
-     Hook run after the Git process has successfully finished cloning
-     the repository.  When the hook is called, ‘default-directory’ is
-     let-bound to the directory where the repository has been cloned.
-
-
-File: magit.info,  Node: Staging and Unstaging,  Next: Applying,  Prev: Cloning Repository,  Up: Manipulating
-
-6.3 Staging and Unstaging
-=========================
-
-Like Git, Magit can of course stage and unstage complete files.  Unlike
-Git, it also allows users to gracefully un-/stage individual hunks and
-even just part of a hunk.  To stage individual hunks and parts of hunks
-using Git directly, one has to use the very modal and rather clumsy
-interface of a ‘git add --interactive’ session.
-
-   With Magit, on the other hand, one can un-/stage individual hunks by
-just moving point into the respective section inside a diff displayed in
-the status buffer or a separate diff buffer and typing ‘s’ or ‘u’.  To
-operate on just parts of a hunk, mark the changes that should be
-un-/staged using the region and then press the same key that would be
-used to un-/stage.  To stage multiple files or hunks at once use a
-region that starts inside the heading of such a section and ends inside
-the heading of a sibling section of the same type.
-
-   Besides staging and unstaging, Magit also provides several other
-"apply variants" that can also operate on a file, multiple files at
-once, a hunk, multiple hunks at once, and on parts of a hunk.  These
-apply variants are described in the next section.
-
-   You can also use Ediff to stage and unstage.  See *note Ediffing::.
-
-‘s’ (‘magit-stage’)
-     Add the change at point to the staging area.
-
-     With a prefix argument and an untracked file (or files) at point,
-     stage the file but not its content.  This makes it possible to
-     stage only a subset of the new file’s changes.
-
-‘S’ (‘magit-stage-modified’)
-     Stage all changes to files modified in the worktree.  Stage all new
-     content of tracked files and remove tracked files that no longer
-     exist in the working tree from the index also.  With a prefix
-     argument also stage previously untracked (but not ignored) files.
-
-‘u’ (‘magit-unstage’)
-     Remove the change at point from the staging area.
-
-     Only staged changes can be unstaged.  But by default this command
-     performs an action that is somewhat similar to unstaging, when it
-     is called on a committed change: it reverses the change in the
-     index but not in the working tree.
-
-‘U’ (‘magit-unstage-all’)
-     Remove all changes from the staging area.
-
- -- User Option: magit-unstage-committed
-     This option controls whether ‘magit-unstage’ "unstages" committed
-     changes by reversing them in the index but not the working tree.
-     The alternative is to raise an error.
-
-‘M-x magit-reverse-in-index’
-     This command reverses the committed change at point in the index
-     but not the working tree.  By default no key is bound directly to
-     this command, but it is indirectly called when ‘u’
-     (‘magit-unstage’) is pressed on a committed change.
-
-     This allows extracting a change from ‘HEAD’, while leaving it in
-     the working tree, so that it can later be committed using a
-     separate commit.  A typical workflow would be:
-
-       1. Optionally make sure that there are no uncommitted changes.
-       2. Visit the ‘HEAD’ commit and navigate to the change that should
-          not have been included in that commit.
-       3. Type ‘u’ (‘magit-unstage’) to reverse it in the index.  This
-          assumes that ‘magit-unstage-committed’ is non-nil.
-       4. Type ‘c e’ to extend ‘HEAD’ with the staged changes, including
-          those that were already staged before.
-       5. Optionally stage the remaining changes using ‘s’ or ‘S’ and
-          then type ‘c c’ to create a new commit.
-
-‘M-x magit-reset-index’
-     Reset the index to some commit.  The commit is read from the user
-     and defaults to the commit at point.  If there is no commit at
-     point, then it defaults to ‘HEAD’.
-
-* Menu:
-
-* Staging from File-Visiting Buffers::
-
-
-File: magit.info,  Node: Staging from File-Visiting Buffers,  Up: Staging and Unstaging
-
-6.3.1 Staging from File-Visiting Buffers
-----------------------------------------
-
-Fine-grained un-/staging has to be done from the status or a diff
-buffer, but it’s also possible to un-/stage all changes made to the file
-visited in the current buffer right from inside that buffer.
-
-‘M-x magit-stage-file’
-     When invoked inside a file-visiting buffer, then stage all changes
-     to that file.  In a Magit buffer, stage the file at point if any.
-     Otherwise prompt for a file to be staged.  With a prefix argument
-     always prompt the user for a file, even in a file-visiting buffer
-     or when there is a file section at point.
-
-‘M-x magit-unstage-file’
-     When invoked inside a file-visiting buffer, then unstage all
-     changes to that file.  In a Magit buffer, unstage the file at point
-     if any.  Otherwise prompt for a file to be unstaged.  With a prefix
-     argument always prompt the user for a file, even in a file-visiting
-     buffer or when there is a file section at point.
-
-
-File: magit.info,  Node: Applying,  Next: Committing,  Prev: Staging and Unstaging,  Up: Manipulating
-
-6.4 Applying
-============
-
-Magit provides several "apply variants": stage, unstage, discard,
-reverse, and "regular apply".  At least when operating on a hunk they
-are all implemented using ‘git apply’, which is why they are called
-"apply variants".
-
-   • Stage.  Apply a change from the working tree to the index.  The
-     change also remains in the working tree.
-
-   • Unstage.  Remove a change from the index.  The change remains in
-     the working tree.
-
-   • Discard.  On a staged change, remove it from the working tree and
-     the index.  On an unstaged change, remove it from the working tree
-     only.
-
-   • Reverse.  Reverse a change in the working tree.  Both committed and
-     staged changes can be reversed.  Unstaged changes cannot be
-     reversed.  Discard them instead.
-
-   • Apply.  Apply a change to the working tree.  Both committed and
-     staged changes can be applied.  Unstaged changes cannot be applied
-     - as they already have been applied.
-
-   The previous section described the staging and unstaging commands.
-What follows are the commands which implement the remaining apply
-variants.
-
-‘a’ (‘magit-apply’)
-     Apply the change at point to the working tree.
-
-     With a prefix argument fallback to a 3-way merge.  Doing so causes
-     the change to be applied to the index as well.
-
-‘k’ (‘magit-discard’)
-     Remove the change at point from the working tree.
-
-     On a hunk or file with unresolved conflicts prompt which side to
-     keep (while discarding the other).  If point is within the text of
-     a side, then keep that side without prompting.
-
-‘v’ (‘magit-reverse’)
-     Reverse the change at point in the working tree.
-
-     With a prefix argument fallback to a 3-way merge.  Doing so causes
-     the change to be applied to the index as well.
-
-   With a prefix argument all apply variants attempt a 3-way merge when
-appropriate (i.e., when ‘git apply’ is used internally).
-
-
-File: magit.info,  Node: Committing,  Next: Branching,  Prev: Applying,  Up: Manipulating
-
-6.5 Committing
-==============
-
-When the user initiates a commit, Magit calls ‘git commit’ without any
-arguments, so Git has to get it from the user.  It creates the file
-‘.git/COMMIT_EDITMSG’ and then opens that file in an editor.  Magit
-arranges for that editor to be the Emacsclient.  Once the user finishes
-the editing session, the Emacsclient exits and Git creates the commit
-using the file’s content as message.
-
-* Menu:
-
-* Initiating a Commit::
-* Editing Commit Messages::
-
-
-File: magit.info,  Node: Initiating a Commit,  Next: Editing Commit Messages,  Up: Committing
-
-6.5.1 Initiating a Commit
--------------------------
-
-Also see *note (gitman)git-commit::.
-
-‘c’ (‘magit-commit’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘c c’ (‘magit-commit-create’)
-     Create a new commit on ‘HEAD’.  With a prefix argument amend to the
-     commit at ‘HEAD’ instead.
-
-‘c a’ (‘magit-commit-amend’)
-     Amend the last commit.
-
-‘c e’ (‘magit-commit-extend’)
-     Amend the last commit, without editing the message.  With a prefix
-     argument keep the committer date, otherwise change it.  The option
-     ‘magit-commit-extend-override-date’ can be used to inverse the
-     meaning of the prefix argument.
-
-     Non-interactively respect the optional OVERRIDE-DATE argument and
-     ignore the option.
-
-‘c w’ (‘magit-commit-reword’)
-     Reword the last commit, ignoring staged changes.  With a prefix
-     argument keep the committer date, otherwise change it.  The option
-     ‘magit-commit-reword-override-date’ can be used to inverse the
-     meaning of the prefix argument.
-
-     Non-interactively respect the optional OVERRIDE-DATE argument and
-     ignore the option.
-
-‘c f’ (‘magit-commit-fixup’)
-     Create a fixup commit.
-
-     With a prefix argument the target commit has to be confirmed.
-     Otherwise the commit at point may be used without confirmation
-     depending on the value of option ‘magit-commit-squash-confirm’.
-
-‘c F’ (‘magit-commit-instant-fixup’)
-     Create a fixup commit and instantly rebase.
-
-‘c s’ (‘magit-commit-squash’)
-     Create a squash commit, without editing the squash message.
-
-     With a prefix argument the target commit has to be confirmed.
-     Otherwise the commit at point may be used without confirmation
-     depending on the value of option ‘magit-commit-squash-confirm’.
-
-‘c S’ (‘magit-commit-instant-squash’)
-     Create a squash commit and instantly rebase.
-
-‘c A’ (‘magit-commit-augment’)
-     Create a squash commit, editing the squash message.
-
-     With a prefix argument the target commit has to be confirmed.
-     Otherwise the commit at point may be used without confirmation
-     depending on the value of option ‘magit-commit-squash-confirm’.
-
- -- User Option: magit-commit-ask-to-stage
-     Whether to ask to stage all unstaged changes when committing and
-     nothing is staged.
-
- -- User Option: magit-commit-show-diff
-     Whether the relevant diff is automatically shown when committing.
-
- -- User Option: magit-commit-extend-override-date
-     Whether using ‘magit-commit-extend’ changes the committer date.
-
- -- User Option: magit-commit-reword-override-date
-     Whether using ‘magit-commit-reword’ changes the committer date.
-
- -- User Option: magit-commit-squash-confirm
-     Whether the commit targeted by squash and fixup has to be
-     confirmed.  When non-nil then the commit at point (if any) is used
-     as default choice.  Otherwise it has to be confirmed.  This option
-     only affects ‘magit-commit-squash’ and ‘magit-commit-fixup’.  The
-     "instant" variants always require confirmation because making an
-     error while using those is harder to recover from.
-
- -- User Option: magit-post-commit-hook
-     Hook run after creating a commit without the user editing a
-     message.
-
-     This hook is run by ‘magit-refresh’ if ‘this-command’ is a member
-     of ‘magit-post-commit-hook-commands’.  This only includes commands
-     named ‘magit-commit-*’ that do *not* require that the user edits
-     the commit message in a buffer.
-
-     Also see ‘git-commit-post-finish-hook’.
-
- -- User Option: magit-commit-diff-inhibit-same-window
-     Whether to inhibit use of same window when showing diff while
-     committing.
-
-     When writing a commit, then a diff of the changes to be committed
-     is automatically shown.  The idea is that the diff is shown in a
-     different window of the same frame and for most users that just
-     works.  In other words most users can completely ignore this option
-     because its value doesn’t make a difference for them.
-
-     However for users who configured Emacs to never create a new window
-     even when the package explicitly tries to do so, then displaying
-     two new buffers necessarily means that the first is immediately
-     replaced by the second.  In our case the message buffer is
-     immediately replaced by the diff buffer, which is of course highly
-     undesirable.
-
-     A workaround is to suppress this user configuration in this
-     particular case.  Users have to explicitly opt-in by toggling this
-     option.  We cannot enable the workaround unconditionally because
-     that again causes issues for other users: if the frame is too tiny
-     or the relevant settings too aggressive, then the diff buffer would
-     end up being displayed in a new frame.
-
-     Also see <https://github.com/magit/magit/issues/4132>.
-
-
-File: magit.info,  Node: Editing Commit Messages,  Prev: Initiating a Commit,  Up: Committing
-
-6.5.2 Editing Commit Messages
------------------------------
-
-After initiating a commit as described in the previous section, two new
-buffers appear.  One shows the changes that are about to be committed,
-while the other is used to write the message.
-
-   Commit messages are edited in an edit session - in the background
-‘git’ is waiting for the editor, in our case ‘emacsclient’, to save the
-commit message in a file (in most cases ‘.git/COMMIT_EDITMSG’) and then
-return.  If the editor returns with a non-zero exit status then ‘git’
-does not create the commit.  So the most important commands are those
-for finishing and aborting the commit.
-
-‘C-c C-c’ (‘with-editor-finish’)
-     Finish the current editing session by returning with exit code 0.
-     Git then creates the commit using the message it finds in the file.
-
-‘C-c C-k’ (‘with-editor-cancel’)
-     Cancel the current editing session by returning with exit code 1.
-     Git then cancels the commit, but leaves the file untouched.
-
-   In addition to being used by ‘git commit’, messages may also be
-stored in a ring that persists until Emacs is closed.  By default the
-message is stored at the beginning and the end of an edit session
-(regardless of whether the session is finished successfully or was
-canceled).  It is sometimes useful to bring back messages from that
-ring.
-
-‘C-c M-s’ (‘git-commit-save-message’)
-     Save the current buffer content to the commit message ring.
-
-‘M-p’ (‘git-commit-prev-message’)
-     Cycle backward through the commit message ring, after saving the
-     current message to the ring.  With a numeric prefix ARG, go back
-     ARG comments.
-
-‘M-n’ (‘git-commit-next-message’)
-     Cycle forward through the commit message ring, after saving the
-     current message to the ring.  With a numeric prefix ARG, go back
-     ARG comments.
-
-   By default the diff for the changes that are about to be committed
-are automatically shown when invoking the commit.  To prevent that,
-remove ‘magit-commit-diff’ from ‘server-switch-hook’.
-
-   When amending to an existing commit it may be useful to show either
-the changes that are about to be added to that commit or to show those
-changes alongside those that have already been committed.
-
-‘C-c C-d’ (‘magit-diff-while-committing’)
-     While committing, show the changes that are about to be committed.
-     While amending, invoking the command again toggles between showing
-     just the new changes or all the changes that will be committed.
-
-* Menu:
-
-* Using the Revision Stack::
-* Commit Pseudo Headers::
-* Commit Mode and Hooks::
-* Commit Message Conventions::
-
-
-File: magit.info,  Node: Using the Revision Stack,  Next: Commit Pseudo Headers,  Up: Editing Commit Messages
-
-Using the Revision Stack
-........................
-
-‘C-c C-w’ (‘magit-pop-revision-stack’)
-     This command inserts a representation of a revision into the
-     current buffer.  It can be used inside buffers used to write commit
-     messages but also in other buffers such as buffers used to edit
-     emails or ChangeLog files.
-
-     By default this command pops the revision which was last added to
-     the ‘magit-revision-stack’ and inserts it into the current buffer
-     according to ‘magit-pop-revision-stack-format’.  Revisions can be
-     put on the stack using ‘magit-copy-section-value’ and
-     ‘magit-copy-buffer-revision’.
-
-     If the stack is empty or with a prefix argument it instead reads a
-     revision in the minibuffer.  By using the minibuffer history this
-     allows selecting an item which was popped earlier or to insert an
-     arbitrary reference or revision without first pushing it onto the
-     stack.
-
-     When reading the revision from the minibuffer, then it might not be
-     possible to guess the correct repository.  When this command is
-     called inside a repository (e.g., while composing a commit
-     message), then that repository is used.  Otherwise (e.g., while
-     composing an email) then the repository recorded for the top
-     element of the stack is used (even though we insert another
-     revision).  If not called inside a repository and with an empty
-     stack, or with two prefix arguments, then read the repository in
-     the minibuffer too.
-
- -- User Option: magit-pop-revision-stack-format
-     This option controls how the command ‘magit-pop-revision-stack’
-     inserts a revision into the current buffer.
-
-     The entries on the stack have the format ‘(HASH TOPLEVEL)’ and this
-     option has the format ‘(POINT-FORMAT EOB-FORMAT INDEX-REGEXP)’, all
-     of which may be nil or a string (though either one of EOB-FORMAT or
-     POINT-FORMAT should be a string, and if INDEX-REGEXP is non-nil,
-     then the two formats should be too).
-
-     First INDEX-REGEXP is used to find the previously inserted entry,
-     by searching backward from point.  The first submatch must match
-     the index number.  That number is incremented by one, and becomes
-     the index number of the entry to be inserted.  If you don’t want to
-     number the inserted revisions, then use nil for INDEX-REGEXP.
-
-     If INDEX-REGEXP is non-nil then both POINT-FORMAT and EOB-FORMAT
-     should contain \"%N\", which is replaced with the number that was
-     determined in the previous step.
-
-     Both formats, if non-nil and after removing %N, are then expanded
-     using ‘git show --format=FORMAT ...’ inside TOPLEVEL.
-
-     The expansion of POINT-FORMAT is inserted at point, and the
-     expansion of EOB-FORMAT is inserted at the end of the buffer (if
-     the buffer ends with a comment, then it is inserted right before
-     that).
-
-
-File: magit.info,  Node: Commit Pseudo Headers,  Next: Commit Mode and Hooks,  Prev: Using the Revision Stack,  Up: Editing Commit Messages
-
-Commit Pseudo Headers
-.....................
-
-Some projects use pseudo headers in commit messages.  Magit colorizes
-such headers and provides some commands to insert such headers.
-
- -- User Option: git-commit-known-pseudo-headers
-     A list of Git pseudo headers to be highlighted.
-
-‘C-c C-i’ (‘git-commit-insert-pseudo-header’)
-     Insert a commit message pseudo header.
-
-‘C-c C-a’ (‘git-commit-ack’)
-     Insert a header acknowledging that you have looked at the commit.
-
-‘C-c C-r’ (‘git-commit-review’)
-     Insert a header acknowledging that you have reviewed the commit.
-
-‘C-c C-s’ (‘git-commit-signoff’)
-     Insert a header to sign off the commit.
-
-‘C-c C-t’ (‘git-commit-test’)
-     Insert a header acknowledging that you have tested the commit.
-
-‘C-c C-o’ (‘git-commit-cc’)
-     Insert a header mentioning someone who might be interested.
-
-‘C-c C-p’ (‘git-commit-reported’)
-     Insert a header mentioning the person who reported the issue being
-     fixed by the commit.
-
-‘C-c M-i’ (‘git-commit-suggested’)
-     Insert a header mentioning the person who suggested the change.
-
-
-File: magit.info,  Node: Commit Mode and Hooks,  Next: Commit Message Conventions,  Prev: Commit Pseudo Headers,  Up: Editing Commit Messages
-
-Commit Mode and Hooks
-.....................
-
-‘git-commit-mode’ is a minor mode that is only used to establish certain
-key bindings.  This makes it possible to use an arbitrary major mode in
-buffers used to edit commit messages.  It is even possible to use
-different major modes in different repositories, which is useful when
-different projects impose different commit message conventions.
-
- -- User Option: git-commit-major-mode
-     The value of this option is the major mode used to edit Git commit
-     messages.
-
-   Because ‘git-commit-mode’ is a minor mode, we don’t use its mode hook
-to setup the buffer, except for the key bindings.  All other setup
-happens in the function ‘git-commit-setup’, which among other things
-runs the hook ‘git-commit-setup-hook’.
-
- -- User Option: git-commit-setup-hook
-     Hook run at the end of ‘git-commit-setup’.
-
-The following functions are suitable for this hook:
-
- -- Function: git-commit-save-message
-     Save the current buffer content to the commit message ring.
-
- -- Function: git-commit-setup-changelog-support
-     After this function is called, ChangeLog entries are treated as
-     paragraphs.
-
- -- Function: git-commit-turn-on-auto-fill
-     Turn on ‘auto-fill-mode’.
-
- -- Function: git-commit-turn-on-flyspell
-     Turn on Flyspell mode.  Also prevent comments from being checked
-     and finally check current non-comment text.
-
- -- Function: git-commit-propertize-diff
-     Propertize the diff shown inside the commit message buffer.  Git
-     inserts such diffs into the commit message template when the
-     ‘--verbose’ argument is used.  ‘magit-commit’ by default does not
-     offer that argument because the diff that is shown in a separate
-     buffer is more useful.  But some users disagree, which is why this
-     function exists.
-
- -- Function: bug-reference-mode
-     Hyperlink bug references in the buffer.
-
- -- Function: with-editor-usage-message
-     Show usage information in the echo area.
-
- -- User Option: git-commit-post-finish-hook
-     Hook run after the user finished writing a commit message.
-
-     This hook is only run after pressing ‘C-c C-c’ in a buffer used to
-     edit a commit message.  If a commit is created without the user
-     typing a message into a buffer, then this hook is not run.
-
-     This hook is not run until the new commit has been created.  If
-     doing so takes Git longer than one second, then this hook isn’t run
-     at all.  For certain commands such as ‘magit-rebase-continue’ this
-     hook is never run because doing so would lead to a race condition.
-
-     This hook is only run if ‘magit’ is available.
-
-     Also see ‘magit-post-commit-hook’.
-
-
-File: magit.info,  Node: Commit Message Conventions,  Prev: Commit Mode and Hooks,  Up: Editing Commit Messages
-
-Commit Message Conventions
-..........................
-
-Git-Commit highlights certain violations of commonly accepted commit
-message conventions.  Certain violations even cause Git-Commit to ask
-you to confirm that you really want to do that.  This nagging can of
-course be turned off, but the result of doing that usually is that
-instead of some code it’s now the human who is reviewing your commits
-who has to waste some time telling you to fix your commits.
-
- -- User Option: git-commit-summary-max-length
-     The intended maximal length of the summary line of commit messages.
-     Characters beyond this column are colorized to indicate that this
-     preference has been violated.
-
- -- User Option: git-commit-finish-query-functions
-     List of functions called to query before performing commit.
-
-     The commit message buffer is current while the functions are
-     called.  If any of them returns nil, then the commit is not
-     performed and the buffer is not killed.  The user should then fix
-     the issue and try again.
-
-     The functions are called with one argument.  If it is non-nil then
-     that indicates that the user used a prefix argument to force
-     finishing the session despite issues.  Functions should usually
-     honor this wish and return non-nil.
-
-     By default the only member is ‘git-commit-check-style-conventions’.
-
- -- Function: git-commit-check-style-conventions
-     This function checks for violations of certain basic style
-     conventions.  For each violation it asks users if they want to
-     proceed anyway.
-
- -- User Option: git-commit-style-convention-checks
-     This option controls what conventions the function by the same name
-     tries to enforce.  The value is a list of self-explanatory symbols
-     identifying certain conventions; ‘non-empty-second-line’ and
-     ‘overlong-summary-line’.
-
-
-File: magit.info,  Node: Branching,  Next: Merging,  Prev: Committing,  Up: Manipulating
-
-6.6 Branching
-=============
-
-* Menu:
-
-* The Two Remotes::
-* Branch Commands::
-* Branch Git Variables::
-* Auxiliary Branch Commands::
-
-
-File: magit.info,  Node: The Two Remotes,  Next: Branch Commands,  Up: Branching
-
-6.6.1 The Two Remotes
----------------------
-
-The upstream branch of some local branch is the branch into which the
-commits on that local branch should eventually be merged, usually
-something like ‘origin/master’.  For the ‘master’ branch itself the
-upstream branch and the branch it is being pushed to, are usually the
-same remote branch.  But for a feature branch the upstream branch and
-the branch it is being pushed to should differ.
-
-   The commits on feature branches too should _eventually_ end up in a
-remote branch such as ‘origin/master’ or ‘origin/maint’.  Such a branch
-should therefore be used as the upstream.  But feature branches
-shouldn’t be pushed directly to such branches.  Instead a feature branch
-‘my-feature’ is usually pushed to ‘my-fork/my-feature’ or if you are a
-contributor ‘origin/my-feature’.  After the new feature has been
-reviewed, the maintainer merges the feature into ‘master’.  And finally
-‘master’ (not ‘my-feature’ itself) is pushed to ‘origin/master’.
-
-   But new features seldom are perfect on the first try, and so feature
-branches usually have to be reviewed, improved, and re-pushed several
-times.  Pushing should therefore be easy to do, and for that reason many
-Git users have concluded that it is best to use the remote branch to
-which the local feature branch is being pushed as its upstream.
-
-   But luckily Git has long ago gained support for a push-remote which
-can be configured separately from the upstream branch, using the
-variables ‘branch.<name>.pushRemote’ and ‘remote.pushDefault’.  So we no
-longer have to choose which of the two remotes should be used as "the
-remote".
-
-   Each of the fetching, pulling, and pushing transient commands
-features three suffix commands that act on the current branch and some
-other branch.  Of these, ‘p’ is bound to a command which acts on the
-push-remote, ‘u’ is bound to a command which acts on the upstream, and
-‘e’ is bound to a command which acts on any other branch.  The status
-buffer shows unpushed and unpulled commits for both the push-remote and
-the upstream.
-
-   It’s fairly simple to configure these two remotes.  The values of all
-the variables that are related to fetching, pulling, and pushing (as
-well as some other branch-related variables) can be inspected and
-changed using the command ‘magit-branch-configure’, which is available
-from many transient prefix commands that deal with branches.  It is also
-possible to set the push-remote or upstream while pushing (see *note
-Pushing::).
-
-
-File: magit.info,  Node: Branch Commands,  Next: Branch Git Variables,  Prev: The Two Remotes,  Up: Branching
-
-6.6.2 Branch Commands
----------------------
-
-The transient prefix command ‘magit-branch’ is used to create and
-checkout branches, and to make changes to existing branches.  It is not
-used to fetch, pull, merge, rebase, or push branches, i.e., this command
-deals with branches themselves, not with the commits reachable from
-them.  Those features are available from separate transient command.
-
-‘b’ (‘magit-branch’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-     By default it also binds and displays the values of some
-     branch-related Git variables and allows changing their values.
-
- -- User Option: magit-branch-direct-configure
-     This option controls whether the transient command ‘magit-branch’
-     can be used to directly change the values of Git variables.  This
-     defaults to ‘t’ (to avoid changing key bindings).  When set to
-     ‘nil’, then no variables are displayed by that transient command,
-     and its suffix command ‘magit-branch-configure’ has to be used
-     instead to view and change branch related variables.
-
-‘b C’ (‘magit-branch-configure’)
-‘f C’
-‘F C’
-‘P C’
-     This transient prefix command binds commands that set the value of
-     branch-related variables and displays them in a temporary buffer
-     until the transient is exited.
-
-     With a prefix argument, this command always prompts for a branch.
-
-     Without a prefix argument this depends on whether it was invoked as
-     a suffix of ‘magit-branch’ and on the
-     ‘magit-branch-direct-configure’ option.  If ‘magit-branch’ already
-     displays the variables for the current branch, then it isn’t useful
-     to invoke another transient that displays them for the same branch.
-     In that case this command prompts for a branch.
-
-   The variables are described in *note Branch Git Variables::.
-
-‘b b’ (‘magit-checkout’)
-     Checkout a revision read in the minibuffer and defaulting to the
-     branch or arbitrary revision at point.  If the revision is a local
-     branch then that becomes the current branch.  If it is something
-     else then ‘HEAD’ becomes detached.  Checkout fails if the working
-     tree or the staging area contain changes.
-
-‘b n’ (‘magit-branch-create’)
-     Create a new branch.  The user is asked for a branch or arbitrary
-     revision to use as the starting point of the new branch.  When a
-     branch name is provided, then that becomes the upstream branch of
-     the new branch.  The name of the new branch is also read in the
-     minibuffer.
-
-     Also see option ‘magit-branch-prefer-remote-upstream’.
-
-‘b c’ (‘magit-branch-and-checkout’)
-     This command creates a new branch like ‘magit-branch-create’, but
-     then also checks it out.
-
-     Also see option ‘magit-branch-prefer-remote-upstream’.
-
-‘b l’ (‘magit-branch-checkout’)
-     This command checks out an existing or new local branch.  It reads
-     a branch name from the user offering all local branches and a
-     subset of remote branches as candidates.  Remote branches for which
-     a local branch by the same name exists are omitted from the list of
-     candidates.  The user can also enter a completely new branch name.
-
-        • If the user selects an existing local branch, then that is
-          checked out.
-
-        • If the user selects a remote branch, then it creates and
-          checks out a new local branch with the same name, and
-          configures the selected remote branch as the push target.
-
-        • If the user enters a new branch name, then it creates and
-          checks that out, after also reading the starting-point from
-          the user.
-
-     In the latter two cases the upstream is also set.  Whether it is
-     set to the chosen starting point or something else depends on the
-     value of ‘magit-branch-adjust-remote-upstream-alist’.
-
-‘b s’ (‘magit-branch-spinoff’)
-     This command creates and checks out a new branch starting at and
-     tracking the current branch.  That branch in turn is reset to the
-     last commit it shares with its upstream.  If the current branch has
-     no upstream or no unpushed commits, then the new branch is created
-     anyway and the previously current branch is not touched.
-
-     This is useful to create a feature branch after work has already
-     begun on the old branch (likely but not necessarily "master").
-
-     If the current branch is a member of the value of option
-     ‘magit-branch-prefer-remote-upstream’ (which see), then the current
-     branch will be used as the starting point as usual, but the
-     upstream of the starting-point may be used as the upstream of the
-     new branch, instead of the starting-point itself.
-
-     If optional FROM is non-nil, then the source branch is reset to
-     ‘FROM~’, instead of to the last commit it shares with its upstream.
-     Interactively, FROM is only ever non-nil, if the region selects
-     some commits, and among those commits, FROM is the commit that is
-     the fewest commits ahead of the source branch.
-
-     The commit at the other end of the selection actually does not
-     matter, all commits between FROM and ‘HEAD’ are moved to the new
-     branch.  If FROM is not reachable from ‘HEAD’ or is reachable from
-     the source branch’s upstream, then an error is raised.
-
-‘b S’ (‘magit-branch-spinout’)
-     This command behaves like ‘magit-branch-spinoff’, except that it
-     does not change the current branch.  If there are any uncommitted
-     changes, then it behaves exactly like ‘magit-branch-spinoff’.
-
-‘b x’ (‘magit-branch-reset’)
-     This command resets a branch, defaulting to the branch at point, to
-     the tip of another branch or any other commit.
-
-     When the branch being reset is the current branch, then a hard
-     reset is performed.  If there are any uncommitted changes, then the
-     user has to confirm the reset because those changes would be lost.
-
-     This is useful when you have started work on a feature branch but
-     realize it’s all crap and want to start over.
-
-     When resetting to another branch and a prefix argument is used,
-     then the target branch is set as the upstream of the branch that is
-     being reset.
-
-‘b k’ (‘magit-branch-delete’)
-     Delete one or multiple branches.  If the region marks multiple
-     branches, then offer to delete those.  Otherwise, prompt for a
-     single branch to be deleted, defaulting to the branch at point.
-
-     Require confirmation when deleting branches is dangerous in some
-     way.  Option ‘magit-no-confirm’ can be customized to not require
-     confirmation in certain cases.  See its docstring to learn why
-     confirmation is required by default in certain cases or if a prompt
-     is confusing.
-
-‘b m’ (‘magit-branch-rename’)
-     Rename a branch.  The branch and the new name are read in the
-     minibuffer.  With prefix argument the branch is renamed even if
-     that name conflicts with an existing branch.
-
- -- User Option: magit-branch-read-upstream-first
-     When creating a branch, whether to read the upstream branch before
-     the name of the branch that is to be created.  The default is ‘t’,
-     and I recommend you leave it at that.
-
- -- User Option: magit-branch-prefer-remote-upstream
-     This option specifies whether remote upstreams are favored over
-     local upstreams when creating new branches.
-
-     When a new branch is created, then the branch, commit, or stash at
-     point is suggested as the starting point of the new branch, or if
-     there is no such revision at point the current branch.  In either
-     case the user may choose another starting point.
-
-     If the chosen starting point is a branch, then it may also be set
-     as the upstream of the new branch, depending on the value of the
-     Git variable ‘branch.autoSetupMerge’.  By default this is done for
-     remote branches, but not for local branches.
-
-     You might prefer to always use some remote branch as upstream.  If
-     the chosen starting point is (1) a local branch, (2) whose name
-     matches a member of the value of this option, (3) the upstream of
-     that local branch is a remote branch with the same name, and (4)
-     that remote branch can be fast-forwarded to the local branch, then
-     the chosen branch is used as starting point, but its own upstream
-     is used as the upstream of the new branch.
-
-     Members of this option’s value are treated as branch names that
-     have to match exactly unless they contain a character that makes
-     them invalid as a branch name.  Recommended characters to use to
-     trigger interpretation as a regexp are "*" and "^".  Some other
-     characters which you might expect to be invalid, actually are not,
-     e.g., ".+$" are all perfectly valid.  More precisely, if ‘git
-     check-ref-format --branch STRING’ exits with a non-zero status,
-     then treat STRING as a regexp.
-
-     Assuming the chosen branch matches these conditions you would end
-     up with with e.g.:
-
-          feature --upstream--> origin/master
-
-     instead of
-
-          feature --upstream--> master --upstream--> origin/master
-
-     Which you prefer is a matter of personal preference.  If you do
-     prefer the former, then you should add branches such as ‘master’,
-     ‘next’, and ‘maint’ to the value of this options.
-
- -- User Option: magit-branch-adjust-remote-upstream-alist
-     The value of this option is an alist of branches to be used as the
-     upstream when branching a remote branch.
-
-     When creating a local branch from an ephemeral branch located on a
-     remote, e.g., a feature or hotfix branch, then that remote branch
-     should usually not be used as the upstream branch, since the
-     push-remote already allows accessing it and having both the
-     upstream and the push-remote reference the same related branch
-     would be wasteful.  Instead a branch like "maint" or "master"
-     should be used as the upstream.
-
-     This option allows specifying the branch that should be used as the
-     upstream when branching certain remote branches.  The value is an
-     alist of the form ‘((UPSTREAM . RULE)...)’.  The first matching
-     element is used, the following elements are ignored.
-
-     UPSTREAM is the branch to be used as the upstream for branches
-     specified by RULE.  It can be a local or a remote branch.
-
-     RULE can either be a regular expression, matching branches whose
-     upstream should be the one specified by UPSTREAM.  Or it can be a
-     list of the only branches that should *not* use UPSTREAM; all other
-     branches will.  Matching is done after stripping the remote part of
-     the name of the branch that is being branched from.
-
-     If you use a finite set of non-ephemeral branches across all your
-     repositories, then you might use something like:
-
-          (("origin/master" . ("master" "next" "maint")))
-
-     Or if the names of all your ephemeral branches contain a slash, at
-     least in some repositories, then a good value could be:
-
-          (("origin/master" . "/"))
-
-     Of course you can also fine-tune:
-
-          (("origin/maint" . "\\`hotfix/")
-           ("origin/master" . "\\`feature/"))
-
-     UPSTREAM can be a local branch:
-
-          (("master" . ("master" "next" "maint")))
-
-   Because the main branch is no longer almost always named "master" you
-should also account for other common names:
-
-     (("main"  . ("main" "master" "next" "maint"))
-      ("master" . ("main" "master" "next" "maint")))
-
- -- Command: magit-branch-orphan
-     This command creates and checks out a new orphan branch with
-     contents from a given revision.
-
- -- Command: magit-branch-or-checkout
-     This command is a hybrid between ‘magit-checkout’ and
-     ‘magit-branch-and-checkout’ and is intended as a replacement for
-     the former in ‘magit-branch’.
-
-     It first asks the user for an existing branch or revision.  If the
-     user input actually can be resolved as a branch or revision, then
-     it checks that out, just like ‘magit-checkout’ would.
-
-     Otherwise it creates and checks out a new branch using the input as
-     its name.  Before doing so it reads the starting-point for the new
-     branch.  This is similar to what ‘magit-branch-and-checkout’ does.
-
-     To use this command instead of ‘magit-checkout’ add this to your
-     init file:
-
-          (transient-replace-suffix 'magit-branch 'magit-checkout
-            '("b" "dwim" magit-branch-or-checkout))
-
-
-File: magit.info,  Node: Branch Git Variables,  Next: Auxiliary Branch Commands,  Prev: Branch Commands,  Up: Branching
-
-6.6.3 Branch Git Variables
---------------------------
-
-These variables can be set from the transient prefix command
-‘magit-branch-configure’.  By default they can also be set from
-‘magit-branch’.  See *note Branch Commands::.
-
- -- Variable: branch.NAME.merge
-     Together with ‘branch.NAME.remote’ this variable defines the
-     upstream branch of the local branch named NAME.  The value of this
-     variable is the full reference of the upstream _branch_.
-
- -- Variable: branch.NAME.remote
-     Together with ‘branch.NAME.merge’ this variable defines the
-     upstream branch of the local branch named NAME.  The value of this
-     variable is the name of the upstream _remote_.
-
- -- Variable: branch.NAME.rebase
-     This variable controls whether pulling into the branch named NAME
-     is done by rebasing or by merging the fetched branch.
-
-        • When ‘true’ then pulling is done by rebasing.
-        • When ‘false’ then pulling is done by merging.
-        • When undefined then the value of ‘pull.rebase’ is used.  The
-          default of that variable is ‘false’.
-
- -- Variable: branch.NAME.pushRemote
-     This variable specifies the remote that the branch named NAME is
-     usually pushed to.  The value has to be the name of an existing
-     remote.
-
-     It is not possible to specify the name of _branch_ to push the
-     local branch to.  The name of the remote branch is always the same
-     as the name of the local branch.
-
-     If this variable is undefined but ‘remote.pushDefault’ is defined,
-     then the value of the latter is used.  By default
-     ‘remote.pushDefault’ is undefined.
-
- -- Variable: branch.NAME.description
-     This variable can be used to describe the branch named NAME.  That
-     description is used, e.g., when turning the branch into a series of
-     patches.
-
-   The following variables specify defaults which are used if the above
-branch-specific variables are not set.
-
- -- Variable: pull.rebase
-     This variable specifies whether pulling is done by rebasing or by
-     merging.  It can be overwritten using ‘branch.NAME.rebase’.
-
-        • When ‘true’ then pulling is done by rebasing.
-        • When ‘false’ (the default) then pulling is done by merging.
-
-     Since it is never a good idea to merge the upstream branch into a
-     feature or hotfix branch and most branches are such branches, you
-     should consider setting this to ‘true’, and ‘branch.master.rebase’
-     to ‘false’.
-
- -- Variable: remote.pushDefault
-     This variable specifies what remote the local branches are usually
-     pushed to.  This can be overwritten per branch using
-     ‘branch.NAME.pushRemote’.
-
-   The following variables are used during the creation of a branch and
-control whether the various branch-specific variables are automatically
-set at this time.
-
- -- Variable: branch.autoSetupMerge
-     This variable specifies under what circumstances creating a branch
-     NAME should result in the variables ‘branch.NAME.merge’ and
-     ‘branch.NAME.remote’ being set according to the starting point used
-     to create the branch.  If the starting point isn’t a branch, then
-     these variables are never set.
-
-        • When ‘always’ then the variables are set regardless of whether
-          the starting point is a local or a remote branch.
-        • When ‘true’ (the default) then the variables are set when the
-          starting point is a remote branch, but not when it is a local
-          branch.
-        • When ‘false’ then the variables are never set.
-
- -- Variable: branch.autoSetupRebase
-     This variable specifies whether creating a branch NAME should
-     result in the variable ‘branch.NAME.rebase’ being set to ‘true’.
-
-        • When ‘always’ then the variable is set regardless of whether
-          the starting point is a local or a remote branch.
-        • When ‘local’ then the variable are set when the starting point
-          is a local branch, but not when it is a remote branch.
-        • When ‘remote’ then the variable are set when the starting
-          point is a remote branch, but not when it is a local branch.
-        • When ‘never’ (the default) then the variable is never set.
-
-   Note that the respective commands always change the repository-local
-values.  If you want to change the global value, which is used when the
-local value is undefined, then you have to do so on the command line,
-e.g.:
-
-     git config --global remote.autoSetupMerge always
-
-   For more information about these variables you should also see *note
-(gitman)git-config::.  Also see *note (gitman)git-branch::.  , *note
-(gitman)git-checkout::.  and *note Pushing::.
-
- -- User Option: magit-prefer-remote-upstream
-     This option controls whether commands that read a branch from the
-     user and then set it as the upstream branch, offer a local or a
-     remote branch as default completion candidate, when they have the
-     choice.
-
-     This affects all commands that use ‘magit-read-upstream-branch’ or
-     ‘magit-read-starting-point’, which includes all commands that
-     change the upstream and many which create new branches.
-
-
-File: magit.info,  Node: Auxiliary Branch Commands,  Prev: Branch Git Variables,  Up: Branching
-
-6.6.4 Auxiliary Branch Commands
--------------------------------
-
-These commands are not available from the transient ‘magit-branch’ by
-default.
-
- -- Command: magit-branch-shelve
-     This command shelves a branch.  This is done by deleting the
-     branch, and creating a new reference "refs/shelved/BRANCH-NAME"
-     pointing at the same commit as the branch pointed at.  If the
-     deleted branch had a reflog, then that is preserved as the reflog
-     of the new reference.
-
-     This is useful if you want to move a branch out of sight, but are
-     not ready to completely discard it yet.
-
- -- Command: magit-branch-unshelve
-     This command unshelves a branch that was previously shelved using
-     ‘magit-branch-shelve’.  This is done by deleting the reference
-     "refs/shelved/BRANCH-NAME" and creating a branch "BRANCH-NAME"
-     pointing at the same commit as the deleted reference pointed at.
-     If the deleted reference had a reflog, then that is restored as the
-     reflog of the branch.
-
-
-File: magit.info,  Node: Merging,  Next: Resolving Conflicts,  Prev: Branching,  Up: Manipulating
-
-6.7 Merging
-===========
-
-Also see *note (gitman)git-merge::.  For information on how to resolve
-merge conflicts see the next section.
-
-‘m’ (‘magit-merge’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   When no merge is in progress, then the transient features the
-following suffix commands.
-
-‘m m’ (‘magit-merge-plain’)
-     This command merges another branch or an arbitrary revision into
-     the current branch.  The branch or revision to be merged is read in
-     the minibuffer and defaults to the branch at point.
-
-     Unless there are conflicts or a prefix argument is used, then the
-     resulting merge commit uses a generic commit message, and the user
-     does not get a chance to inspect or change it before the commit is
-     created.  With a prefix argument this does not actually create the
-     merge commit, which makes it possible to inspect how conflicts were
-     resolved and to adjust the commit message.
-
-‘m e’ (‘magit-merge-editmsg’)
-     This command merges another branch or an arbitrary revision into
-     the current branch and opens a commit message buffer, so that the
-     user can make adjustments.  The commit is not actually created
-     until the user finishes with ‘C-c C-c’.
-
-‘m n’ (‘magit-merge-nocommit’)
-     This command merges another branch or an arbitrary revision into
-     the current branch, but does not actually create the merge commit.
-     The user can then further adjust the merge, even when automatic
-     conflict resolution succeeded and/or adjust the commit message.
-
-‘m a’ (‘magit-merge-absorb’)
-     This command merges another local branch into the current branch
-     and then removes the former.
-
-     Before the source branch is merged, it is first force pushed to its
-     push-remote, provided the respective remote branch already exists.
-     This ensures that the respective pull-request (if any) won’t get
-     stuck on some obsolete version of the commits that are being
-     merged.  Finally, if ‘magit-branch-pull-request’ was used to create
-     the merged branch, then the respective remote branch is also
-     removed.
-
-‘m i’ (‘magit-merge-into’)
-     This command merges the current branch into another local branch
-     and then removes the former.  The latter becomes the new current
-     branch.
-
-     Before the source branch is merged, it is first force pushed to its
-     push-remote, provided the respective remote branch already exists.
-     This ensures that the respective pull-request (if any) won’t get
-     stuck on some obsolete version of the commits that are being
-     merged.  Finally, if ‘magit-branch-pull-request’ was used to create
-     the merged branch, then the respective remote branch is also
-     removed.
-
-‘m s’ (‘magit-merge-squash’)
-     This command squashes the changes introduced by another branch or
-     an arbitrary revision into the current branch.  This only applies
-     the changes made by the squashed commits.  No information is
-     preserved that would allow creating an actual merge commit.
-     Instead of this command you should probably use a command from the
-     apply transient.
-
-‘m p’ (‘magit-merge-preview’)
-     This command shows a preview of merging another branch or an
-     arbitrary revision into the current branch.
-
-     Note that commands, that normally change how a diff is displayed,
-     do not work in buffers created by this command, because the
-     underlying Git command does not support diff arguments.
-
-   When a merge is in progress, then the transient instead features the
-following suffix commands.
-
-‘m m’ (‘magit-merge’)
-     After the user resolved conflicts, this command proceeds with the
-     merge.  If some conflicts weren’t resolved, then this command
-     fails.
-
-‘m a’ (‘magit-merge-abort’)
-     This command aborts the current merge operation.
-
-
-File: magit.info,  Node: Resolving Conflicts,  Next: Rebasing,  Prev: Merging,  Up: Manipulating
-
-6.8 Resolving Conflicts
-=======================
-
-When merging branches (or otherwise combining or changing history)
-conflicts can occur.  If you edited two completely different parts of
-the same file in two branches and then merge one of these branches into
-the other, then Git can resolve that on its own, but if you edit the
-same area of a file, then a human is required to decide how the two
-versions, or "sides of the conflict", are to be combined into one.
-
-   Here we can only provide a brief introduction to the subject and
-point you toward some tools that can help.  If you are new to this, then
-please also consult Git’s own documentation as well as other resources.
-
-   If a file has conflicts and Git cannot resolve them by itself, then
-it puts both versions into the affected file along with special markers
-whose purpose is to denote the boundaries of the unresolved part of the
-file and between the different versions.  These boundary lines begin
-with the strings consisting of seven times the same character, one of
-‘<’, ‘|’, ‘=’ and ‘>’, and are followed by information about the source
-of the respective versions, e.g.:
-
-     <<<<<<< HEAD
-     Take the blue pill.
-     =======
-     Take the red pill.
-     >>>>>>> feature
-
-   In this case you have chosen to take the red pill on one branch and
-on another you picked the blue pill.  Now that you are merging these two
-diverging branches, Git cannot possibly know which pill you want to
-take.
-
-   To resolve that conflict you have to create a version of the affected
-area of the file by keeping only one of the sides, possibly by editing
-it in order to bring in the changes from the other side, remove the
-other versions as well as the markers, and then stage the result.  A
-possible resolution might be:
-
-     Take both pills.
-
-   Often it is useful to see not only the two sides of the conflict but
-also the "original" version from before the same area of the file was
-modified twice on different branches.  Instruct Git to insert that
-version as well by running this command once:
-
-     git config --global merge.conflictStyle diff3
-
-   The above conflict might then have looked like this:
-
-     <<<<<<< HEAD
-     Take the blue pill.
-     ||||||| merged common ancestors
-     Take either the blue or the red pill, but not both.
-     =======
-     Take the red pill.
-     >>>>>>> feature
-
-   If that were the case, then the above conflict resolution would not
-have been correct, which demonstrates why seeing the original version
-alongside the conflicting versions can be useful.
-
-   You can perform the conflict resolution completely by hand, but Emacs
-also provides some packages that help in the process: Smerge, Ediff
-(*note (ediff)Top::), and Emerge (*note (emacs)Emerge::).  Magit does
-not provide its own tools for conflict resolution, but it does make
-using Smerge and Ediff more convenient.  (Ediff supersedes Emerge, so
-you probably don’t want to use the latter anyway.)
-
-   In the Magit status buffer, files with unresolved conflicts are
-listed in the "Unstaged changes" and/or "Staged changes" sections.  They
-are prefixed with the word "unmerged", which in this context essentially
-is a synonym for "unresolved".
-
-   Pressing ‘RET’ while point is on such a file section shows a buffer
-visiting that file, turns on ‘smerge-mode’ in that buffer, and places
-point inside the first area with conflicts.  You should then resolve
-that conflict using regular edit commands and/or Smerge commands.
-
-   Unfortunately Smerge does not have a manual, but you can get a list
-of commands and binding ‘C-c ^ C-h’ and press ‘RET’ while point is on a
-command name to read its documentation.
-
-   Normally you would edit one version and then tell Smerge to keep only
-that version.  Use ‘C-c ^ m’ (‘smerge-keep-mine’) to keep the ‘HEAD’
-version or ‘C-c ^ o’ (‘smerge-keep-other’) to keep the version that
-follows "|||||||".  Then use ‘C-c ^ n’ to move to the next conflicting
-area in the same file.  Once you are done resolving conflicts, return to
-the Magit status buffer.  The file should now be shown as "modified", no
-longer as "unmerged", because Smerge automatically stages the file when
-you save the buffer after resolving the last conflict.
-
-   Magit now wraps the mentioned Smerge commands, allowing you to use
-these key bindings without having to go to the file-visiting buffer.
-Additionally ‘k’ (‘magit-discard’) on a hunk with unresolved conflicts
-asks which side to keep or, if point is on a side, then it keeps it
-without prompting.  Similarly ‘k’ on a unresolved file ask which side to
-keep.
-
-   Alternatively you could use Ediff, which uses separate buffers for
-the different versions of the file.  To resolve conflicts in a file
-using Ediff press ‘e’ while point is on such a file in the status
-buffer.
-
-   Ediff can be used for other purposes as well.  For more information
-on how to enter Ediff from Magit, see *note Ediffing::.  Explaining how
-to use Ediff is beyond the scope of this manual, instead see *note
-(ediff)Top::.
-
-   If you are unsure whether you should Smerge or Ediff, then use the
-former.  It is much easier to understand and use, and except for truly
-complex conflicts, the latter is usually overkill.
-
-
-File: magit.info,  Node: Rebasing,  Next: Cherry Picking,  Prev: Resolving Conflicts,  Up: Manipulating
-
-6.9 Rebasing
-============
-
-Also see *note (gitman)git-rebase::.  For information on how to resolve
-conflicts that occur during rebases see the preceding section.
-
-‘r’ (‘magit-rebase’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   When no rebase is in progress, then the transient features the
-following suffix commands.
-
-   Using one of these commands _starts_ a rebase sequence.  Git might
-then stop somewhere along the way, either because you told it to do so,
-or because applying a commit failed due to a conflict.  When that
-happens, then the status buffer shows information about the rebase
-sequence which is in progress in a section similar to a log section.
-See *note Information About In-Progress Rebase::.
-
-   For information about the upstream and the push-remote, see *note The
-Two Remotes::.
-
-‘r p’ (‘magit-rebase-onto-pushremote’)
-     This command rebases the current branch onto its push-remote.
-
-     With a prefix argument or when the push-remote is either not
-     configured or unusable, then let the user first configure the
-     push-remote.
-
-‘r u’ (‘magit-rebase-onto-upstream’)
-     This command rebases the current branch onto its upstream branch.
-
-     With a prefix argument or when the upstream is either not
-     configured or unusable, then let the user first configure the
-     upstream.
-
-‘r e’ (‘magit-rebase-branch’)
-     This command rebases the current branch onto a branch read in the
-     minibuffer.  All commits that are reachable from head but not from
-     the selected branch TARGET are being rebased.
-
-‘r s’ (‘magit-rebase-subset’)
-     This command starts a non-interactive rebase sequence to transfer
-     commits from START to ‘HEAD’ onto NEWBASE.  START has to be
-     selected from a list of recent commits.
-
-   By default Magit uses the ‘--autostash’ argument, which causes
-uncommitted changes to be stored in a stash before the rebase begins.
-These changes are restored after the rebase completes and if possible
-the stash is removed.  If the stash does not apply cleanly, then the
-stash is not removed.  In case something goes wrong when resolving the
-conflicts, this allows you to start over.
-
-   Even though one of the actions is dedicated to interactive rebases,
-the transient also features the infix argument ‘--interactive’.  This
-can be used to turn one of the other, non-interactive rebase variants
-into an interactive rebase.
-
-   For example if you want to clean up a feature branch and at the same
-time rebase it onto ‘master’, then you could use ‘r-iu’.  But we
-recommend that you instead do that in two steps.  First use ‘ri’ to
-cleanup the feature branch, and then in a second step ‘ru’ to rebase it
-onto ‘master’.  That way if things turn out to be more complicated than
-you thought and/or you make a mistake and have to start over, then you
-only have to redo half the work.
-
-   Explicitly enabling ‘--interactive’ won’t have an effect on the
-following commands as they always use that argument anyway, even if it
-is not enabled in the transient.
-
-‘r i’ (‘magit-rebase-interactive’)
-     This command starts an interactive rebase sequence.
-
-‘r f’ (‘magit-rebase-autosquash’)
-     This command combines squash and fixup commits with their intended
-     targets.
-
-‘r m’ (‘magit-rebase-edit-commit’)
-     This command starts an interactive rebase sequence that lets the
-     user edit a single older commit.
-
-‘r w’ (‘magit-rebase-reword-commit’)
-     This command starts an interactive rebase sequence that lets the
-     user reword a single older commit.
-
-‘r k’ (‘magit-rebase-remove-commit’)
-     This command removes a single older commit using rebase.
-
-   When a rebase is in progress, then the transient instead features the
-following suffix commands.
-
-‘r r’ (‘magit-rebase-continue’)
-     This command restart the current rebasing operation.
-
-     In some cases this pops up a commit message buffer for you do edit.
-     With a prefix argument the old message is reused as-is.
-
-‘r s’ (‘magit-rebase-skip’)
-     This command skips the current commit and restarts the current
-     rebase operation.
-
-‘r e’ (‘magit-rebase-edit’)
-     This command lets the user edit the todo list of the current rebase
-     operation.
-
-‘r a’ (‘magit-rebase-abort’)
-     This command aborts the current rebase operation, restoring the
-     original branch.
-
-* Menu:
-
-* Editing Rebase Sequences::
-* Information About In-Progress Rebase::
-
-
-File: magit.info,  Node: Editing Rebase Sequences,  Next: Information About In-Progress Rebase,  Up: Rebasing
-
-6.9.1 Editing Rebase Sequences
-------------------------------
-
-‘C-c C-c’ (‘with-editor-finish’)
-     Finish the current editing session by returning with exit code 0.
-     Git then uses the rebase instructions it finds in the file.
-
-‘C-c C-k’ (‘with-editor-cancel’)
-     Cancel the current editing session by returning with exit code 1.
-     Git then forgoes starting the rebase sequence.
-
-‘<RET>’ (‘git-rebase-show-commit’)
-     Show the commit on the current line in another buffer and select
-     that buffer.
-
-‘<SPC>’ (‘git-rebase-show-or-scroll-up’)
-     Show the commit on the current line in another buffer without
-     selecting that buffer.  If the revision buffer is already visible
-     in another window of the current frame, then instead scroll that
-     window up.
-
-‘<DEL>’ (‘git-rebase-show-or-scroll-down’)
-     Show the commit on the current line in another buffer without
-     selecting that buffer.  If the revision buffer is already visible
-     in another window of the current frame, then instead scroll that
-     window down.
-
-‘p’ (‘git-rebase-backward-line’)
-     Move to previous line.
-
-‘n’ (‘forward-line’)
-     Move to next line.
-
-‘M-p’ (‘git-rebase-move-line-up’)
-     Move the current commit (or command) up.
-
-‘M-n’ (‘git-rebase-move-line-down’)
-     Move the current commit (or command) down.
-
-‘r’ (‘git-rebase-reword’)
-     Edit message of commit on current line.
-
-‘e’ (‘git-rebase-edit’)
-     Stop at the commit on the current line.
-
-‘s’ (‘git-rebase-squash’)
-     Meld commit on current line into previous commit, and edit message.
-
-‘f’ (‘git-rebase-fixup’)
-     Meld commit on current line into previous commit, discarding the
-     current commit’s message.
-
-‘k’ (‘git-rebase-kill-line’)
-     Kill the current action line.
-
-‘c’ (‘git-rebase-pick’)
-     Use commit on current line.
-
-‘x’ (‘git-rebase-exec’)
-     Insert a shell command to be run after the proceeding commit.
-
-     If there already is such a command on the current line, then edit
-     that instead.  With a prefix argument insert a new command even
-     when there already is one on the current line.  With empty input
-     remove the command on the current line, if any.
-
-‘b’ (‘git-rebase-break’)
-     Insert a break action before the current line, instructing Git to
-     return control to the user.
-
-‘y’ (‘git-rebase-insert’)
-     Read an arbitrary commit and insert it below current line.
-
-‘C-x u’ (‘git-rebase-undo’)
-     Undo some previous changes.  Like ‘undo’ but works in read-only
-     buffers.
-
- -- User Option: git-rebase-auto-advance
-     Whether to move to next line after changing a line.
-
- -- User Option: git-rebase-show-instructions
-     Whether to show usage instructions inside the rebase buffer.
-
- -- User Option: git-rebase-confirm-cancel
-     Whether confirmation is required to cancel.
-
-   When a rebase is performed with the ‘--rebase-merges’ option, the
-sequence will include a few other types of actions and the following
-commands become relevant.
-
-‘l’ (‘git-rebase-label’)
-     This commands inserts a label action or edits the one at point.
-
-‘t’ (‘git-rebase-reset’)
-     This command inserts a reset action or edits the one at point.  The
-     prompt will offer the labels that are currently present in the
-     buffer.
-
-‘MM’ (‘git-rebase-merge’)
-     The command inserts a merge action or edits the one at point.  The
-     prompt will offer the labels that are currently present in the
-     buffer.  Specifying a message to reuse via ‘-c’ or ‘-C’ is not
-     supported; an editor will always be invoked for the merge.
-
-‘Mt’ (‘git-rebase-merge-toggle-editmsg’)
-     This command toggles between the ‘-C’ and ‘-c’ options of the merge
-     action at point.  These options both specify a commit whose message
-     should be reused.  The lower-case variant instructs Git to invoke
-     the editor when creating the merge, allowing the user to edit the
-     message.
-
-
-File: magit.info,  Node: Information About In-Progress Rebase,  Prev: Editing Rebase Sequences,  Up: Rebasing
-
-6.9.2 Information About In-Progress Rebase
-------------------------------------------
-
-While a rebase sequence is in progress, the status buffer features a
-section that lists the commits that have already been applied as well as
-the commits that still have to be applied.
-
-   The commits are split in two halves.  When rebase stops at a commit,
-either because the user has to deal with a conflict or because s/he
-explicitly requested that rebase stops at that commit, then point is
-placed on the commit that separates the two groups, i.e., on ‘HEAD’.
-The commits above it have not been applied yet, while the ‘HEAD’ and the
-commits below it have already been applied.  In between these two groups
-of applied and yet-to-be applied commits, there sometimes is a commit
-which has been dropped.
-
-   Each commit is prefixed with a word and these words are additionally
-shown in different colors to indicate the status of the commits.
-
-   The following colors are used:
-
-   • Commits that use the same foreground color as the ‘default’ face
-     have not been applied yet.
-
-   • Yellow commits have some special relationship to the commit rebase
-     stopped at.  This is used for the words "join", "goal", "same" and
-     "work" (see below).
-
-   • Gray commits have already been applied.
-
-   • The blue commit is the ‘HEAD’ commit.
-
-   • The green commit is the commit the rebase sequence stopped at.  If
-     this is the same commit as ‘HEAD’ (e.g., because you haven’t done
-     anything yet after rebase stopped at the commit, then this commit
-     is shown in blue, not green).  There can only be a green *and* a
-     blue commit at the same time, if you create one or more new commits
-     after rebase stops at a commit.
-
-   • Red commits have been dropped.  They are shown for reference only,
-     e.g., to make it easier to diff.
-
-   Of course these colors are subject to the color-theme in use.
-
-   The following words are used:
-
-   • Commits prefixed with ‘pick’, ‘reword’, ‘edit’, ‘squash’, and
-     ‘fixup’ have not been applied yet.  These words have the same
-     meaning here as they do in the buffer used to edit the rebase
-     sequence.  See *note Editing Rebase Sequences::.  When the
-     ‘--rebase-merges’ option was specified, ‘reset’, ‘label’, and
-     ‘merge’ lines may also be present.
-
-   • Commits prefixed with ‘done’ and ‘onto’ have already been applied.
-     It is possible for such a commit to be the ‘HEAD’, in which case it
-     is blue.  Otherwise it is grey.
-
-        • The commit prefixed with ‘onto’ is the commit on top of which
-          all the other commits are being re-applied.  This commit
-          itself did not have to be re-applied, it is the commit rebase
-          did rewind to before starting to re-apply other commits.
-
-        • Commits prefixed with ‘done’ have already been re-applied.
-          This includes commits that have been re-applied but also new
-          commits that you have created during the rebase.
-
-   • All other commits, those not prefixed with any of the above words,
-     are in some way related to the commit at which rebase stopped.
-
-     To determine whether a commit is related to the stopped-at commit
-     their hashes, trees and patch-ids (1) are being compared.  The
-     commit message is not used for this purpose.
-
-     Generally speaking commits that are related to the stopped-at
-     commit can have any of the used colors, though not all color/word
-     combinations are possible.
-
-     Words used for stopped-at commits are:
-
-        • When a commit is prefixed with ‘void’, then that indicates
-          that Magit knows for sure that all the changes in that commit
-          have been applied using several new commits.  This commit is
-          no longer reachable from ‘HEAD’, and it also isn’t one of the
-          commits that will be applied when resuming the session.
-
-        • When a commit is prefixed with ‘join’, then that indicates
-          that the rebase sequence stopped at that commit due to a
-          conflict - you now have to join (merge) the changes with what
-          has already been applied.  In a sense this is the commit
-          rebase stopped at, but while its effect is already in the
-          index and in the worktree (with conflict markers), the commit
-          itself has not actually been applied yet (it isn’t the
-          ‘HEAD’).  So it is shown in yellow, like the other commits
-          that still have to be applied.
-
-        • When a commit is prefixed with ‘stop’ or a _blue_ or _green_
-          ‘same’, then that indicates that rebase stopped at this
-          commit, that it is still applied or has been applied again,
-          and that at least its patch-id is unchanged.
-
-             • When a commit is prefixed with ‘stop’, then that
-               indicates that rebase stopped at that commit because you
-               requested that earlier, and its patch-id is unchanged.
-               It might even still be the exact same commit.
-
-             • When a commit is prefixed with a _blue_ or _green_
-               ‘same’, then that indicates that while its tree or hash
-               changed, its patch-id did not.  If it is blue, then it is
-               the ‘HEAD’ commit (as always for blue).  When it is
-               green, then it no longer is ‘HEAD’ because other commit
-               have been created since (but before continuing the
-               rebase).
-
-        • When a commit is prefixed with ‘goal’, a _yellow_ ‘same,’ or
-          ‘work’, then that indicates that rebase applied that commit
-          but that you then reset ‘HEAD’ to an earlier commit (likely to
-          split it up into multiple commits), and that there are some
-          uncommitted changes remaining which likely (but not
-          necessarily) originate from that commit.
-
-             • When a commit is prefixed with ‘goal’, then that
-               indicates that it is still possible to create a new
-               commit with the exact same tree (the "goal") without
-               manually editing any files, by committing the index, or
-               by staging all changes and then committing that.  This is
-               the case when the original tree still exists in the index
-               or worktree in untainted form.
-
-             • When a commit is prefixed with a yellow ‘same’, then that
-               indicates that it is no longer possible to create a
-               commit with the exact same tree, but that it is still
-               possible to create a commit with the same patch-id.  This
-               would be the case if you created a new commit with other
-               changes, but the changes from the original commit still
-               exist in the index or working tree in untainted form.
-
-             • When a commit is prefixed with ‘work’, then that
-               indicates that you reset ‘HEAD’ to an earlier commit, and
-               that there are some staged and/or unstaged changes
-               (likely, but not necessarily) originating from that
-               commit.  However it is no longer possible to create a new
-               commit with the same tree or at least the same patch-id
-               because you have already made other changes.
-
-        • When a commit is prefixed with ‘poof’ or ‘gone’, then that
-          indicates that rebase applied that commit but that you then
-          reset ‘HEAD’ to an earlier commit (likely to split it up into
-          multiple commits), and that there are no uncommitted changes.
-
-             • When a commit is prefixed with ‘poof’, then that
-               indicates that it is no longer reachable from ‘HEAD’, but
-               that it has been replaced with one or more commits, which
-               together have the exact same effect.
-
-             • When a commit is prefixed with ‘gone’, then that
-               indicates that it is no longer reachable from ‘HEAD’ and
-               that we also cannot determine whether its changes are
-               still in effect in one or more new commits.  They might
-               be, but if so, then there must also be other changes
-               which makes it impossible to know for sure.
-
-   Do not worry if you do not fully understand the above.  That’s okay,
-you will acquire a good enough understanding through practice.
-
-   For other sequence operations such as cherry-picking, a similar
-section is displayed, but they lack some of the features described
-above, due to limitations in the git commands used to implement them.
-Most importantly these sequences only support "picking" a commit but not
-other actions such as "rewording", and they do not keep track of the
-commits which have already been applied.
-
-   ---------- Footnotes ----------
-
-   (1) The patch-id is a hash of the _changes_ introduced by a commit.
-It differs from the hash of the commit itself, which is a hash of the
-result of applying that change (i.e., the resulting trees and blobs) as
-well as author and committer information, the commit message, and the
-hashes of the parents of the commit.  The patch-id hash on the other
-hand is created only from the added and removed lines, even line numbers
-and whitespace changes are ignored when calculating this hash.  The
-patch-ids of two commits can be used to answer the question "Do these
-commits make the same change?".
-
-
-File: magit.info,  Node: Cherry Picking,  Next: Resetting,  Prev: Rebasing,  Up: Manipulating
-
-6.10 Cherry Picking
-===================
-
-Also see *note (gitman)git-cherry-pick::.
-
-‘A’ (‘magit-cherry-pick’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   When no cherry-pick or revert is in progress, then the transient
-features the following suffix commands.
-
-‘A A’ (‘magit-cherry-copy’)
-     This command copies COMMITS from another branch onto the current
-     branch.  If the region selects multiple commits, then those are
-     copied, without prompting.  Otherwise the user is prompted for a
-     commit or range, defaulting to the commit at point.
-
-‘A a’ (‘magit-cherry-apply’)
-     This command applies the changes in COMMITS from another branch
-     onto the current branch.  If the region selects multiple commits,
-     then those are used, without prompting.  Otherwise the user is
-     prompted for a commit or range, defaulting to the commit at point.
-
-     This command also has a top-level binding, which can be invoked
-     without using the transient by typing ‘a’ at the top-level.
-
-   The following commands not only apply some commits to some branch,
-but also remove them from some other branch.  The removal is performed
-using either ‘git-update-ref’ or if necessary ‘git-rebase’.  Both
-applying commits as well as removing them using ‘git-rebase’ can lead to
-conflicts.  If that happens, then these commands abort and you not only
-have to resolve the conflicts but also finish the process the same way
-you would have to if these commands didn’t exist at all.
-
-‘A h’ (‘magit-cherry-harvest’)
-     This command moves the selected COMMITS that must be located on
-     another BRANCH onto the current branch instead, removing them from
-     the former.  When this command succeeds, then the same branch is
-     current as before.
-
-     Applying the commits on the current branch or removing them from
-     the other branch can lead to conflicts.  When that happens, then
-     this command stops and you have to resolve the conflicts and then
-     finish the process manually.
-
-‘A d’ (‘magit-cherry-donate’)
-     This command moves the selected COMMITS from the current branch
-     onto another existing BRANCH, removing them from the former.  When
-     this command succeeds, then the same branch is current as before.
-     ‘HEAD’ is allowed to be detached initially.
-
-     Applying the commits on the other branch or removing them from the
-     current branch can lead to conflicts.  When that happens, then this
-     command stops and you have to resolve the conflicts and then finish
-     the process manually.
-
-‘A n’ (‘magit-cherry-spinout’)
-     This command moves the selected COMMITS from the current branch
-     onto a new branch BRANCH, removing them from the former.  When this
-     command succeeds, then the same branch is current as before.
-
-     Applying the commits on the other branch or removing them from the
-     current branch can lead to conflicts.  When that happens, then this
-     command stops and you have to resolve the conflicts and then finish
-     the process manually.
-
-‘A s’ (‘magit-cherry-spinoff’)
-     This command moves the selected COMMITS from the current branch
-     onto a new branch BRANCH, removing them from the former.  When this
-     command succeeds, then the new branch is checked out.
-
-     Applying the commits on the other branch or removing them from the
-     current branch can lead to conflicts.  When that happens, then this
-     command stops and you have to resolve the conflicts and then finish
-     the process manually.
-
-   When a cherry-pick or revert is in progress, then the transient
-instead features the following suffix commands.
-
-‘A A’ (‘magit-sequence-continue’)
-     Resume the current cherry-pick or revert sequence.
-
-‘A s’ (‘magit-sequence-skip’)
-     Skip the stopped at commit during a cherry-pick or revert sequence.
-
-‘A a’ (‘magit-sequence-abort’)
-     Abort the current cherry-pick or revert sequence.  This discards
-     all changes made since the sequence started.
-
-* Menu:
-
-* Reverting::
-
-
-File: magit.info,  Node: Reverting,  Up: Cherry Picking
-
-6.10.1 Reverting
-----------------
-
-‘V’ (‘magit-revert’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   When no cherry-pick or revert is in progress, then the transient
-features the following suffix commands.
-
-‘V V’ (‘magit-revert-and-commit’)
-     Revert a commit by creating a new commit.  Prompt for a commit,
-     defaulting to the commit at point.  If the region selects multiple
-     commits, then revert all of them, without prompting.
-
-‘V v’ (‘magit-revert-no-commit’)
-     Revert a commit by applying it in reverse to the working tree.
-     Prompt for a commit, defaulting to the commit at point.  If the
-     region selects multiple commits, then revert all of them, without
-     prompting.
-
-   When a cherry-pick or revert is in progress, then the transient
-instead features the following suffix commands.
-
-‘V V’ (‘magit-sequence-continue’)
-     Resume the current cherry-pick or revert sequence.
-
-‘V s’ (‘magit-sequence-skip’)
-     Skip the stopped at commit during a cherry-pick or revert sequence.
-
-‘V a’ (‘magit-sequence-abort’)
-     Abort the current cherry-pick or revert sequence.  This discards
-     all changes made since the sequence started.
-
-
-File: magit.info,  Node: Resetting,  Next: Stashing,  Prev: Cherry Picking,  Up: Manipulating
-
-6.11 Resetting
-==============
-
-Also see *note (gitman)git-reset::.
-
-‘x’ (‘magit-reset-quickly’)
-     Reset the ‘HEAD’ and index to some commit read from the user and
-     defaulting to the commit at point, and possibly also reset the
-     working tree.  With a prefix argument reset the working tree
-     otherwise don’t.
-
-‘X m’ (‘magit-reset-mixed’)
-     Reset the ‘HEAD’ and index to some commit read from the user and
-     defaulting to the commit at point.  The working tree is kept as-is.
-
-‘X s’ (‘magit-reset-soft’)
-     Reset the ‘HEAD’ to some commit read from the user and defaulting
-     to the commit at point.  The index and the working tree are kept
-     as-is.
-
-‘X h’ (‘magit-reset-hard’)
-     Reset the ‘HEAD’, index, and working tree to some commit read from
-     the user and defaulting to the commit at point.
-
-‘X k’ (‘magit-reset-keep’)
-     Reset the ‘HEAD’, index, and working tree to some commit read from
-     the user and defaulting to the commit at point.  Uncommitted
-     changes are kept as-is.
-
-‘X i’ (‘magit-reset-index’)
-     Reset the index to some commit read from the user and defaulting to
-     the commit at point.  Keep the ‘HEAD’ and working tree as-is, so if
-     the commit refers to the ‘HEAD’, then this effectively unstages all
-     changes.
-
-‘X w’ (‘magit-reset-worktree’)
-     Reset the working tree to some commit read from the user and
-     defaulting to the commit at point.  Keep the ‘HEAD’ and index
-     as-is.
-
-‘X f’ (‘magit-file-checkout’)
-     Update file in the working tree and index to the contents from a
-     revision.  Both the revision and file are read from the user.
-
-
-File: magit.info,  Node: Stashing,  Prev: Resetting,  Up: Manipulating
-
-6.12 Stashing
-=============
-
-Also see *note (gitman)git-stash::.
-
-‘z’ (‘magit-stash’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘z z’ (‘magit-stash-both’)
-     Create a stash of the index and working tree.  Untracked files are
-     included according to infix arguments.  One prefix argument is
-     equivalent to ‘--include-untracked’ while two prefix arguments are
-     equivalent to ‘--all’.
-
-‘z i’ (‘magit-stash-index’)
-     Create a stash of the index only.  Unstaged and untracked changes
-     are not stashed.
-
-‘z w’ (‘magit-stash-worktree’)
-     Create a stash of unstaged changes in the working tree.  Untracked
-     files are included according to infix arguments.  One prefix
-     argument is equivalent to ‘--include-untracked’ while two prefix
-     arguments are equivalent to ‘--all’.
-
-‘z x’ (‘magit-stash-keep-index’)
-     Create a stash of the index and working tree, keeping index intact.
-     Untracked files are included according to infix arguments.  One
-     prefix argument is equivalent to ‘--include-untracked’ while two
-     prefix arguments are equivalent to ‘--all’.
-
-‘z Z’ (‘magit-snapshot-both’)
-     Create a snapshot of the index and working tree.  Untracked files
-     are included according to infix arguments.  One prefix argument is
-     equivalent to ‘--include-untracked’ while two prefix arguments are
-     equivalent to ‘--all’.
-
-‘z I’ (‘magit-snapshot-index’)
-     Create a snapshot of the index only.  Unstaged and untracked
-     changes are not stashed.
-
-‘z W’ (‘magit-snapshot-worktree’)
-     Create a snapshot of unstaged changes in the working tree.
-     Untracked files are included according to infix arguments.  One
-     prefix argument is equivalent to ‘--include-untracked’ while two
-     prefix arguments are equivalent to ‘--all’-.
-
-‘z a’ (‘magit-stash-apply’)
-     Apply a stash to the working tree.
-
-     First try ‘git stash apply --index’, which tries to preserve the
-     index stored in the stash, if any.  This may fail because applying
-     the stash could result in conflicts and those have to be stored in
-     the index, making it impossible to also store the stash’s index
-     there as well.
-
-     If the above failed, then try ‘git stash apply’.  This fails (with
-     or without ‘--index’) if there are any uncommitted changes to files
-     that are also modified in the stash.
-
-     If both of the above failed, then apply using ‘git apply’.  If
-     there are no conflicting files, use ‘--3way’.  If there are
-     conflicting files, then using ‘--3way’ requires that those files
-     are staged first, which may be undesirable, so prompt the user
-     whether to use ‘--3way’ or ‘--reject’.
-
-     Customize ‘magit-no-confirm’ if you want to always use ‘--3way’,
-     without being prompted.
-
-‘z p’ (‘magit-stash-pop’)
-     Apply a stash to the working tree.  On complete success (if the
-     stash can be applied without any conflicts, and while preserving
-     the stash’s index) then remove the stash from stash list.
-
-     First try ‘git stash pop --index’, which tries to preserve the
-     index stored in the stash, if any.  This may fail because applying
-     the stash could result in conflicts and those have to be stored in
-     the index, making it impossible to also store the stash’s index
-     there as well.
-
-     If the above failed, then try ‘git stash apply’.  This fails (with
-     or without ‘--index’) if there are any uncommitted changes to files
-     that are also modified in the stash.
-
-     If both of the above failed, then apply using ‘git apply’.  If
-     there are no conflicting files, use ‘--3way’.  If there are
-     conflicting files, then using ‘--3way’ requires that those files
-     are staged first, which may be undesirable, so prompt the user
-     whether to use ‘--3way’ or ‘--reject’.
-
-     Customize ‘magit-no-confirm’ if you want to always use ‘--3way’,
-     without being prompted.
-
-‘z k’ (‘magit-stash-drop’)
-     Remove a stash from the stash list.  When the region is active,
-     offer to drop all contained stashes.
-
-‘z v’ (‘magit-stash-show’)
-     Show all diffs of a stash in a buffer.
-
-‘z b’ (‘magit-stash-branch’)
-     Create and checkout a new branch from an existing stash.  The new
-     branch starts at the commit that was current when the stash was
-     created.
-
-‘z B’ (‘magit-stash-branch-here’)
-     Create and checkout a new branch from an existing stash.  Use the
-     current branch or ‘HEAD’ as the starting-point of the new branch.
-     Then apply the stash, dropping it if it applies cleanly.
-
-‘z f’ (‘magit-stash-format-patch’)
-     Create a patch from STASH.
-
-‘k’ (‘magit-stash-clear’)
-     Remove all stashes saved in REF’s reflog by deleting REF.
-
-‘z l’ (‘magit-stash-list’)
-     List all stashes in a buffer.
-
- -- User Option: magit-stashes-margin
-     This option specifies whether the margin is initially shown in
-     stashes buffers and how it is formatted.
-
-     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
-
-        • If INIT is non-nil, then the margin is shown initially.
-        • STYLE controls how to format the author or committer date.  It
-          can be one of ‘age’ (to show the age of the commit),
-          ‘age-abbreviated’ (to abbreviate the time unit to a
-          character), or a string (suitable for ‘format-time-string’) to
-          show the actual date.  Option
-          ‘magit-log-margin-show-committer-date’ controls which date is
-          being displayed.
-        • WIDTH controls the width of the margin.  This exists for
-          forward compatibility and currently the value should not be
-          changed.
-        • AUTHOR controls whether the name of the author is also shown
-          by default.
-        • AUTHOR-WIDTH has to be an integer.  When the name of the
-          author is shown, then this specifies how much space is used to
-          do so.
-
-
-File: magit.info,  Node: Transferring,  Next: Miscellaneous,  Prev: Manipulating,  Up: Top
-
-7 Transferring
-**************
-
-* Menu:
-
-* Remotes::
-* Fetching::
-* Pulling::
-* Pushing::
-* Plain Patches::
-* Maildir Patches::
-
-
-File: magit.info,  Node: Remotes,  Next: Fetching,  Up: Transferring
-
-7.1 Remotes
-===========
-
-* Menu:
-
-* Remote Commands::
-* Remote Git Variables::
-
-
-File: magit.info,  Node: Remote Commands,  Next: Remote Git Variables,  Up: Remotes
-
-7.1.1 Remote Commands
----------------------
-
-The transient prefix command ‘magit-remote’ is used to add remotes and
-to make changes to existing remotes.  This command only deals with
-remotes themselves, not with branches or the transfer of commits.  Those
-features are available from separate transient commands.
-
-   Also see *note (gitman)git-remote::.
-
-‘M’ (‘magit-remote’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-     By default it also binds and displays the values of some
-     remote-related Git variables and allows changing their values.
-
- -- User Option: magit-remote-direct-configure
-     This option controls whether remote-related Git variables are
-     accessible directly from the transient ‘magit-remote’.
-
-     If ‘t’ (the default) and a local branch is checked out, then
-     ‘magit-remote’ features the variables for the upstream remote of
-     that branch, or if ‘HEAD’ is detached, for ‘origin’, provided that
-     exists.
-
-     If ‘nil’, then ‘magit-remote-configure’ has to be used to do so.
-
-‘M C’ (‘magit-remote-configure’)
-     This transient prefix command binds commands that set the value of
-     remote-related variables and displays them in a temporary buffer
-     until the transient is exited.
-
-     With a prefix argument, this command always prompts for a remote.
-
-     Without a prefix argument this depends on whether it was invoked as
-     a suffix of ‘magit-remote’ and on the
-     ‘magit-remote-direct-configure’ option.  If ‘magit-remote’ already
-     displays the variables for the upstream, then it does not make
-     sense to invoke another transient that displays them for the same
-     remote.  In that case this command prompts for a remote.
-
-   The variables are described in *note Remote Git Variables::.
-
-‘M a’ (‘magit-remote-add’)
-     This command add a remote and fetches it.  The remote name and url
-     are read in the minibuffer.
-
-‘M r’ (‘magit-remote-rename’)
-     This command renames a remote.  Both the old and the new names are
-     read in the minibuffer.
-
-‘M u’ (‘magit-remote-set-url’)
-     This command changes the url of a remote.  Both the remote and the
-     new url are read in the minibuffer.
-
-‘M k’ (‘magit-remote-remove’)
-     This command deletes a remote, read in the minibuffer.
-
-‘M p’ (‘magit-remote-prune’)
-     This command removes stale remote-tracking branches for a remote
-     read in the minibuffer.
-
-‘M P’ (‘magit-remote-prune-refspecs’)
-     This command removes stale refspecs for a remote read in the
-     minibuffer.
-
-     A refspec is stale if there no longer exists at least one branch on
-     the remote that would be fetched due to that refspec.  A stale
-     refspec is problematic because its existence causes Git to refuse
-     to fetch according to the remaining non-stale refspecs.
-
-     If only stale refspecs remain, then this command offers to either
-     delete the remote or to replace the stale refspecs with the default
-     refspec ("+refs/heads/*:refs/remotes/REMOTE/*").
-
-     This command also removes the remote-tracking branches that were
-     created due to the now stale refspecs.  Other stale branches are
-     not removed.
-
- -- User Option: magit-remote-add-set-remote.pushDefault
-     This option controls whether the user is asked whether they want to
-     set ‘remote.pushDefault’ after adding a remote.
-
-     If ‘ask’, then users is always ask.  If ‘ask-if-unset’, then the
-     user is only if the variable isn’t set already.  If ‘nil’, then the
-     user isn’t asked and the variable isn’t set.  If the value is a
-     string, then the variable is set without the user being asked,
-     provided that the name of the added remote is equal to that string
-     and the variable isn’t already set.
-
-
-File: magit.info,  Node: Remote Git Variables,  Prev: Remote Commands,  Up: Remotes
-
-7.1.2 Remote Git Variables
---------------------------
-
-These variables can be set from the transient prefix command
-‘magit-remote-configure’.  By default they can also be set from
-‘magit-remote’.  See *note Remote Commands::.
-
- -- Variable: remote.NAME.url
-     This variable specifies the url of the remote named NAME.  It can
-     have multiple values.
-
- -- Variable: remote.NAME.fetch
-     The refspec used when fetching from the remote named NAME.  It can
-     have multiple values.
-
- -- Variable: remote.NAME.pushurl
-     This variable specifies the url used for pushing to the remote
-     named NAME.  If it is not specified, then ‘remote.NAME.url’ is used
-     instead.  It can have multiple values.
-
- -- Variable: remote.NAME.push
-     The refspec used when pushing to the remote named NAME.  It can
-     have multiple values.
-
- -- Variable: remote.NAME.tagOpts
-     This variable specifies what tags are fetched by default.  If the
-     value is ‘--no-tags’ then no tags are fetched.  If the value is
-     ‘--tags’, then all tags are fetched.  If this variable has no
-     value, then only tags are fetched that are reachable from fetched
-     branches.
-
-
-File: magit.info,  Node: Fetching,  Next: Pulling,  Prev: Remotes,  Up: Transferring
-
-7.2 Fetching
-============
-
-Also see *note (gitman)git-fetch::.  For information about the upstream
-and the push-remote, see *note The Two Remotes::.
-
-‘f’ (‘magit-fetch’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘f p’ (‘magit-fetch-from-pushremote’)
-     This command fetches from the current push-remote.
-
-     With a prefix argument or when the push-remote is either not
-     configured or unusable, then let the user first configure the
-     push-remote.
-
-‘f u’ (‘magit-fetch-from-upstream’)
-     This command fetch from the upstream of the current branch.
-
-     If the upstream is configured for the current branch and names an
-     existing remote, then use that.  Otherwise try to use another
-     remote: If only a single remote is configured, then use that.
-     Otherwise if a remote named "origin" exists, then use that.
-
-     If no remote can be determined, then this command is not available
-     from the ‘magit-fetch’ transient prefix and invoking it directly
-     results in an error.
-
-‘f e’ (‘magit-fetch-other’)
-     This command fetch from a repository read from the minibuffer.
-
-‘f o’ (‘magit-fetch-branch’)
-     This command fetches a branch from a remote, both of which are read
-     from the minibuffer.
-
-‘f r’ (‘magit-fetch-refspec’)
-     This command fetches from a remote using an explicit refspec, both
-     of which are read from the minibuffer.
-
-‘f a’ (‘magit-fetch-all’)
-     This command fetches from all remotes.
-
-‘f m’ (‘magit-fetch-modules’)
-     This command fetches all submodules.  With a prefix argument, it
-     acts as a transient prefix command, allowing the caller to set
-     options.
-
- -- User Option: magit-pull-or-fetch
-     By default fetch and pull commands are available from separate
-     transient prefix command.  Setting this to ‘t’ adds some (but not
-     all) of the above suffix commands to the ‘magit-pull’ transient.
-
-     If you do that, then you might also want to change the key binding
-     for these prefix commands, e.g.:
-
-          (setq magit-pull-or-fetch t)
-          (define-key magit-mode-map "f" 'magit-pull) ; was magit-fetch
-          (define-key magit-mode-map "F" nil)         ; was magit-pull
-
-
-File: magit.info,  Node: Pulling,  Next: Pushing,  Prev: Fetching,  Up: Transferring
-
-7.3 Pulling
-===========
-
-Also see *note (gitman)git-pull::.  For information about the upstream
-and the push-remote, see *note The Two Remotes::.
-
-‘F’ (‘magit-pull’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘F p’ (‘magit-pull-from-pushremote’)
-     This command pulls from the push-remote of the current branch.
-
-     With a prefix argument or when the push-remote is either not
-     configured or unusable, then let the user first configure the
-     push-remote.
-
-‘F u’ (‘magit-pull-from-upstream’)
-     This command pulls from the upstream of the current branch.
-
-     With a prefix argument or when the upstream is either not
-     configured or unusable, then let the user first configure the
-     upstream.
-
-‘F e’ (‘magit-pull-branch’)
-     This command pulls from a branch read in the minibuffer.
-
-
-File: magit.info,  Node: Pushing,  Next: Plain Patches,  Prev: Pulling,  Up: Transferring
-
-7.4 Pushing
-===========
-
-Also see *note (gitman)git-push::.  For information about the upstream
-and the push-remote, see *note The Two Remotes::.
-
-‘P’ (‘magit-push’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘P p’ (‘magit-push-current-to-pushremote’)
-     This command pushes the current branch to its push-remote.
-
-     With a prefix argument or when the push-remote is either not
-     configured or unusable, then let the user first configure the
-     push-remote.
-
-‘P u’ (‘magit-push-current-to-upstream’)
-     This command pushes the current branch to its upstream branch.
-
-     With a prefix argument or when the upstream is either not
-     configured or unusable, then let the user first configure the
-     upstream.
-
-‘P e’ (‘magit-push-current’)
-     This command pushes the current branch to a branch read in the
-     minibuffer.
-
-‘P o’ (‘magit-push-other’)
-     This command pushes an arbitrary branch or commit somewhere.  Both
-     the source and the target are read in the minibuffer.
-
-‘P r’ (‘magit-push-refspecs’)
-     This command pushes one or multiple refspecs to a remote, both of
-     which are read in the minibuffer.
-
-     To use multiple refspecs, separate them with commas.  Completion is
-     only available for the part before the colon, or when no colon is
-     used.
-
-‘P m’ (‘magit-push-matching’)
-     This command pushes all matching branches to another repository.
-
-     If only one remote exists, then push to that.  Otherwise prompt for
-     a remote, offering the remote configured for the current branch as
-     default.
-
-‘P t’ (‘magit-push-tags’)
-     This command pushes all tags to another repository.
-
-     If only one remote exists, then push to that.  Otherwise prompt for
-     a remote, offering the remote configured for the current branch as
-     default.
-
-‘P T’ (‘magit-push-tag’)
-     This command pushes a tag to another repository.
-
-   One of the infix arguments, ‘--force-with-lease’, deserves a word of
-caution.  It is passed without a value, which means "permit a force push
-as long as the remote-tracking branches match their counterparts on the
-remote end".  If you’ve set up a tool to do automatic fetches (Magit
-itself does not provide such functionality), using ‘--force-with-lease’
-can be dangerous because you don’t actually control or know the state of
-the remote-tracking refs.  In that case, you should consider setting
-‘push.useForceIfIncludes’ to ‘true’ (available since Git 2.30).
-
-   Two more push commands exist, which by default are not available from
-the push transient.  See their doc-strings for instructions on how to
-add them to the transient.
-
- -- Command: magit-push-implicitly args
-     This command pushes somewhere without using an explicit refspec.
-
-     This command simply runs ‘git push -v [ARGS]’.  ARGS are the infix
-     arguments.  No explicit refspec arguments are used.  Instead the
-     behavior depends on at least these Git variables: ‘push.default’,
-     ‘remote.pushDefault’, ‘branch.<branch>.pushRemote’,
-     ‘branch.<branch>.remote’, ‘branch.<branch>.merge’, and
-     ‘remote.<remote>.push’.
-
-     If you add this suffix to a transient prefix without explicitly
-     specifying the description, then an attempt is made to predict what
-     this command will do.  For example:
-
-          (transient-insert-suffix 'magit-push \"p\"
-            '(\"i\" magit-push-implicitly))"
-
- -- Command: magit-push-to-remote remote args
-     This command pushes to the remote REMOTE without using an explicit
-     refspec.  The remote is read in the minibuffer.
-
-     This command simply runs ‘git push -v [ARGS] REMOTE’.  ARGS are the
-     infix arguments.  No refspec arguments are used.  Instead the
-     behavior depends on at least these Git variables: ‘push.default’,
-     ‘remote.pushDefault’, ‘branch.<branch>.pushRemote’,
-     ‘branch.<branch>.remote’, ‘branch.<branch>.merge’, and
-     ‘remote.<remote>.push’.
-
-
-File: magit.info,  Node: Plain Patches,  Next: Maildir Patches,  Prev: Pushing,  Up: Transferring
-
-7.5 Plain Patches
-=================
-
-‘W’ (‘magit-patch’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘W c’ (‘magit-patch-create’)
-     This command creates patches for a set commits.  If the region
-     marks several commits, then it creates patches for all of them.
-     Otherwise it functions as a transient prefix command, which
-     features several infix arguments and binds itself as a suffix
-     command.  When this command is invoked as a suffix of itself, then
-     it creates a patch using the specified infix arguments.
-
-‘w a’ (‘magit-patch-apply’)
-     This command applies a patch.  This is a transient prefix command,
-     which features several infix arguments and binds itself as a suffix
-     command.  When this command is invoked as a suffix of itself, then
-     it applies a patch using the specified infix arguments.
-
-‘W s’ (‘magit-patch-save’)
-     This command creates a patch from the current diff.
-
-     Inside ‘magit-diff-mode’ or ‘magit-revision-mode’ buffers, ‘C-x
-     C-w’ is also bound to this command.
-
-   It is also possible to save a plain patch file by using ‘C-x C-w’
-inside a ‘magit-diff-mode’ or ‘magit-revision-mode’ buffer.
-
-
-File: magit.info,  Node: Maildir Patches,  Prev: Plain Patches,  Up: Transferring
-
-7.6 Maildir Patches
-===================
-
-Also see *note (gitman)git-am::.  and *note (gitman)git-apply::.
-
-‘w’ (‘magit-am’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘w w’ (‘magit-am-apply-patches’)
-     This command applies one or more patches.  If the region marks
-     files, then those are applied as patches.  Otherwise this command
-     reads a file-name in the minibuffer, defaulting to the file at
-     point.
-
-‘w m’ (‘magit-am-apply-maildir’)
-     This command applies patches from a maildir.
-
-‘w a’ (‘magit-patch-apply’)
-     This command applies a plain patch.  For a longer description see
-     *note Plain Patches::.  This command is only available from the
-     ‘magit-am’ transient for historic reasons.
-
-   When an "am" operation is in progress, then the transient instead
-features the following suffix commands.
-
-‘w w’ (‘magit-am-continue’)
-     This command resumes the current patch applying sequence.
-
-‘w s’ (‘magit-am-skip’)
-     This command skips the stopped at patch during a patch applying
-     sequence.
-
-‘w a’ (‘magit-am-abort’)
-     This command aborts the current patch applying sequence.  This
-     discards all changes made since the sequence started.
-
-
-File: magit.info,  Node: Miscellaneous,  Next: Customizing,  Prev: Transferring,  Up: Top
-
-8 Miscellaneous
-***************
-
-* Menu:
-
-* Tagging::
-* Notes::
-* Submodules::
-* Subtree::
-* Worktree::
-* Sparse checkouts::
-* Bundle::
-* Common Commands::
-* Wip Modes::
-* Commands for Buffers Visiting Files::
-* Minor Mode for Buffers Visiting Blobs::
-
-
-File: magit.info,  Node: Tagging,  Next: Notes,  Up: Miscellaneous
-
-8.1 Tagging
-===========
-
-Also see *note (gitman)git-tag::.
-
-‘t’ (‘magit-tag’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘t t’ (‘magit-tag-create’)
-     This command creates a new tag with the given NAME at REV.  With a
-     prefix argument it creates an annotated tag.
-
-‘t r’ (‘magit-tag-release’)
-     This commands creates a release tag.  It assumes that release tags
-     match ‘magit-release-tag-regexp’.
-
-     First it prompts for the name of the new tag using the highest
-     existing tag as initial input and leaving it to the user to
-     increment the desired part of the version string.  If you use
-     unconventional release tags or version numbers (e.g.,
-     ‘v1.2.3-custom.1’), you can set the ‘magit-release-tag-regexp’ and
-     ‘magit-tag-version-regexp-alist’ variables.
-
-     If ‘--annotate’ is enabled then it prompts for the message of the
-     new tag.  The proposed tag message is based on the message of the
-     highest tag, provided that that contains the corresponding version
-     string and substituting the new version string for that.  Otherwise
-     it proposes something like "Foo-Bar 1.2.3", given, for example, a
-     TAG "v1.2.3" and a repository located at something like
-     "/path/to/foo-bar".
-
-‘t k’ (‘magit-tag-delete’)
-     This command deletes one or more tags.  If the region marks
-     multiple tags (and nothing else), then it offers to delete those.
-     Otherwise, it prompts for a single tag to be deleted, defaulting to
-     the tag at point.
-
-‘t p’ (‘magit-tag-prune’)
-     This command offers to delete tags missing locally from REMOTE, and
-     vice versa.
-
-
-File: magit.info,  Node: Notes,  Next: Submodules,  Prev: Tagging,  Up: Miscellaneous
-
-8.2 Notes
-=========
-
-Also see *note (gitman)git-notes::.
-
-‘T’ (‘magit-notes’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-‘T T’ (‘magit-notes-edit’)
-     Edit the note attached to a commit, defaulting to the commit at
-     point.
-
-     By default use the value of Git variable ‘core.notesRef’ or
-     "refs/notes/commits" if that is undefined.
-
-‘T r’ (‘magit-notes-remove’)
-     Remove the note attached to a commit, defaulting to the commit at
-     point.
-
-     By default use the value of Git variable ‘core.notesRef’ or
-     "refs/notes/commits" if that is undefined.
-
-‘T p’ (‘magit-notes-prune’)
-     Remove notes about unreachable commits.
-
-   It is possible to merge one note ref into another.  That may result
-in conflicts which have to resolved in the temporary worktree
-".git/NOTES_MERGE_WORKTREE".
-
-‘T m’ (‘magit-notes-merge’)
-     Merge the notes of a ref read from the user into the current notes
-     ref.  The current notes ref is the value of Git variable
-     ‘core.notesRef’ or "refs/notes/commits" if that is undefined.
-
-   When a notes merge is in progress then the transient features the
-following suffix commands, instead of those listed above.
-
-‘T c’ (‘magit-notes-merge-commit’)
-     Commit the current notes ref merge, after manually resolving
-     conflicts.
-
-‘T a’ (‘magit-notes-merge-abort’)
-     Abort the current notes ref merge.
-
-   The following variables control what notes reference ‘magit-notes-*’,
-‘git notes’ and ‘git show’ act on and display.  Both the local and
-global values are displayed and can be modified.
-
- -- Variable: core.notesRef
-     This variable specifies the notes ref that is displayed by default
-     and which commands act on by default.
-
- -- Variable: notes.displayRef
-     This variable specifies additional notes ref to be displayed in
-     addition to the ref specified by ‘core.notesRef’.  It can have
-     multiple values and may end with ‘*’ to display all refs in the
-     ‘refs/notes/’ namespace (or ‘**’ if some names contain slashes).
-
-
-File: magit.info,  Node: Submodules,  Next: Subtree,  Prev: Notes,  Up: Miscellaneous
-
-8.3 Submodules
-==============
-
-Also see *note (gitman)git-submodule::.
-
-* Menu:
-
-* Listing Submodules::
-* Submodule Transient::
-
-
-File: magit.info,  Node: Listing Submodules,  Next: Submodule Transient,  Up: Submodules
-
-8.3.1 Listing Submodules
-------------------------
-
-The command ‘magit-list-submodules’ displays a list of the current
-repository’s submodules in a separate buffer.  It’s also possible to
-display information about submodules directly in the status buffer of
-the super-repository by adding ‘magit-insert-modules’ to the hook
-‘magit-status-sections-hook’ as described in *note Status Module
-Sections::.
-
- -- Command: magit-list-submodules
-     This command displays a list of the current repository’s populated
-     submodules in a separate buffer.
-
-     It can be invoked by pressing ‘RET’ on the section titled
-     "Modules".
-
- -- User Option: magit-submodule-list-columns
-     This option controls what columns are displayed by the command
-     ‘magit-list-submodules’ and how they are displayed.
-
-     Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
-
-     HEADER is the string displayed in the header.  WIDTH is the width
-     of the column.  FORMAT is a function that is called with one
-     argument, the repository identification (usually its basename), and
-     with ‘default-directory’ bound to the toplevel of its working tree.
-     It has to return a string to be inserted or nil.  PROPS is an alist
-     that supports the keys ‘:right-align’, ‘:pad-right’ and ‘:sort’.
-
-     The ‘:sort’ function has a weird interface described in the
-     docstring of ‘tabulated-list--get-sort’.  Alternatively ‘<’ and
-     ‘magit-repolist-version<’ can be used as those functions are
-     automatically replaced with functions that satisfy the interface.
-     Set ‘:sort’ to ‘nil’ to inhibit sorting; if unspecified, then the
-     column is sortable using the default sorter.
-
-     You may wish to display a range of numeric columns using just one
-     character per column and without any padding between columns, in
-     which case you should use an appropriate HEADER, set WIDTH to 1,
-     and set ‘:pad-right’ to 9.  ‘+’ is substituted for numbers higher
-     than 9.
-
-
-File: magit.info,  Node: Submodule Transient,  Prev: Listing Submodules,  Up: Submodules
-
-8.3.2 Submodule Transient
--------------------------
-
-‘o’ (‘magit-submodule’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-   Some of the below commands default to act on the modules that are
-selected using the region.  For brevity their description talk about
-"the selected modules", but if no modules are selected, then they act on
-the current module instead, or if point isn’t on a module, then the read
-a single module to act on.  With a prefix argument these commands ignore
-the selection and the current module and instead act on all suitable
-modules.
-
-‘o a’ (‘magit-submodule-add’)
-     This commands adds the repository at URL as a module.  Optional
-     PATH is the path to the module relative to the root of the
-     super-project.  If it is nil then the path is determined based on
-     URL.
-
-‘o r’ (‘magit-submodule-register’)
-     This command registers the selected modules by copying their urls
-     from ".gitmodules" to "$GIT_DIR/config".  These values can then be
-     edited before running ‘magit-submodule-populate’.  If you don’t
-     need to edit any urls, then use the latter directly.
-
-‘o p’ (‘magit-submodule-populate’)
-     This command creates the working directory or directories of the
-     selected modules, checking out the recorded commits.
-
-‘o u’ (‘magit-submodule-update’)
-     This command updates the selected modules checking out the recorded
-     commits.
-
-‘o s’ (‘magit-submodule-synchronize’)
-     This command synchronizes the urls of the selected modules, copying
-     the values from ".gitmodules" to the ".git/config" of the
-     super-project as well those of the modules.
-
-‘o d’ (‘magit-submodule-unpopulate’)
-     This command removes the working directory of the selected modules.
-
-‘o l’ (‘magit-list-submodules’)
-     This command displays a list of the current repository’s modules.
-
-‘o f’ (‘magit-fetch-modules’)
-     This command fetches all populated modules.  With a prefix
-     argument, it acts as a transient prefix command, allowing the
-     caller to set options.
-
-     Also fetch the super-repository, because ‘git fetch’ does not
-     support not doing that.
-
-
-File: magit.info,  Node: Subtree,  Next: Worktree,  Prev: Submodules,  Up: Miscellaneous
-
-8.4 Subtree
-===========
-
-Also see *note (gitman)git-subtree::.
-
-‘O’ (‘magit-subtree’)
-     This transient prefix command binds the two sub-transients; one for
-     importing a subtree and one for exporting a subtree.
-
-‘O i’ (‘magit-subtree-import’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-     The suffixes of this command import subtrees.
-
-     If the ‘--prefix’ argument is set, then the suffix commands use
-     that prefix without prompting the user.  If it is unset, then they
-     read the prefix in the minibuffer.
-
-‘O i a’ (‘magit-subtree-add’)
-     This command adds COMMIT from REPOSITORY as a new subtree at
-     PREFIX.
-
-‘O i c’ (‘magit-subtree-add-commit’)
-     This command add COMMIT as a new subtree at PREFIX.
-
-‘O i m’ (‘magit-subtree-merge’)
-     This command merges COMMIT into the PREFIX subtree.
-
-‘O i f’ (‘magit-subtree-pull’)
-     This command pulls COMMIT from REPOSITORY into the PREFIX subtree.
-
-‘O e’ (‘magit-subtree-export’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-     The suffixes of this command export subtrees.
-
-     If the ‘--prefix’ argument is set, then the suffix commands use
-     that prefix without prompting the user.  If it is unset, then they
-     read the prefix in the minibuffer.
-
-‘O e p’ (‘magit-subtree-push’)
-     This command extract the history of the subtree PREFIX and pushes
-     it to REF on REPOSITORY.
-
-‘O e s’ (‘magit-subtree-split’)
-     This command extracts the history of the subtree PREFIX.
-
-
-File: magit.info,  Node: Worktree,  Next: Sparse checkouts,  Prev: Subtree,  Up: Miscellaneous
-
-8.5 Worktree
-============
-
-Also see *note (gitman)git-worktree::.
-
-‘Z’ (‘magit-worktree’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘Z b’ (‘magit-worktree-checkout’)
-     Checkout BRANCH in a new worktree at PATH.
-
-‘Z c’ (‘magit-worktree-branch’)
-     Create a new BRANCH and check it out in a new worktree at PATH.
-
-‘Z m’ (‘magit-worktree-move’)
-     Move an existing worktree to a new PATH.
-
-‘Z k’ (‘magit-worktree-delete’)
-     Delete a worktree, defaulting to the worktree at point.  The
-     primary worktree cannot be deleted.
-
-‘Z g’ (‘magit-worktree-status’)
-     Show the status for the worktree at point.
-
-     If there is no worktree at point, then read one in the minibuffer.
-     If the worktree at point is the one whose status is already being
-     displayed in the current buffer, then show it in Dired instead.
-
-
-File: magit.info,  Node: Sparse checkouts,  Next: Bundle,  Prev: Worktree,  Up: Miscellaneous
-
-8.6 Sparse checkouts
-====================
-
-Sparse checkouts provide a way to restrict the working tree to a subset
-of directories.  See *note (gitman)git-sparse-checkout::.
-
-   *Warning*: Git introduced the ‘git sparse-checkout’ command in
-version 2.25 and still advertises it as experimental and subject to
-change.  Magit’s interface should be considered the same.  In
-particular, if Git introduces a backward incompatible change, Magit’s
-sparse checkout functionality may be updated in a way that requires a
-more recent Git version.
-
-‘>’ (‘magit-sparse-checkout’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘> e’ (‘magit-sparse-checkout-enable’)
-     This command initializes a sparse checkout that includes only the
-     files in the top-level directory.
-
-     Note that ‘magit-sparse-checkout-set’ and
-     ‘magit-sparse-checkout-add’ automatically initialize a sparse
-     checkout if necessary.  However, you may want to call
-     ‘magit-sparse-checkout-enable’ explicitly to re-initialize a sparse
-     checkout after calling ‘magit-sparse-checkout-disable’, to pass
-     additional arguments to ‘git sparse-checkout init’, or to execute
-     the initialization asynchronously.
-
-‘> s’ (‘magit-sparse-checkout-set’)
-     This command takes a list of directories and configures the sparse
-     checkout to include only files in those subdirectories.  Any
-     previously included directories are excluded unless they are in the
-     provided list of directories.
-
-‘> a’ (‘magit-sparse-checkout-add’)
-     This command is like ‘magit-sparse-checkout-set’, but instead adds
-     the specified list of directories to the set of directories that is
-     already included in the sparse checkout.
-
-‘> r’ (‘magit-sparse-checkout-reapply’)
-     This command applies the currently configured sparse checkout
-     patterns to the working tree.  This is useful to call if excluded
-     files have been checked out after operations such as merging or
-     rebasing.
-
-‘> d’ (‘magit-sparse-checkout-disable’)
-     This command restores the full checkout.  To return to the previous
-     sparse checkout, call ‘magit-sparse-checkout-enable’.
-
-   A sparse checkout can also be initiated when cloning a repository by
-using the ‘magit-clone-sparse’ command in the ‘magit-clone’ transient
-(see *note Cloning Repository::).
-
-   If you want the status buffer to indicate when a sparse checkout is
-enabled, add the function ‘magit-sparse-checkout-insert-header’ to
-‘magit-status-headers-hook’.
-
-
-File: magit.info,  Node: Bundle,  Next: Common Commands,  Prev: Sparse checkouts,  Up: Miscellaneous
-
-8.7 Bundle
-==========
-
-Also see *note (gitman)git-bundle::.
-
- -- Command: magit-bundle
-     This transient prefix command binds several suffix commands for
-     running ‘git bundle’ subcommands and displays them in a temporary
-     buffer until a suffix is invoked.
-
-
-File: magit.info,  Node: Common Commands,  Next: Wip Modes,  Prev: Bundle,  Up: Miscellaneous
-
-8.8 Common Commands
-===================
-
- -- Command: magit-switch-to-repository-buffer
- -- Command: magit-switch-to-repository-buffer-other-window
- -- Command: magit-switch-to-repository-buffer-other-frame
- -- Command: magit-display-repository-buffer
-     These commands read any existing Magit buffer that belongs to the
-     current repository from the user and then switch to the selected
-     buffer (without refreshing it).
-
-     The last variant uses ‘magit-display-buffer’ to do so and thus
-     respects ‘magit-display-buffer-function’.
-
-   These are some of the commands that can be used in all buffers whose
-major-modes derive from ‘magit-mode’.  There are other common commands
-beside the ones below, but these didn’t fit well anywhere else.
-
-‘C-w’ (‘magit-copy-section-value’)
-     This command saves the value of the current section to the
-     ‘kill-ring’, and, provided that the current section is a commit,
-     branch, or tag section, it also pushes the (referenced) revision to
-     the ‘magit-revision-stack’.
-
-     When the current section is a branch or a tag, and a prefix
-     argument is used, then it saves the revision at its tip to the
-     ‘kill-ring’ instead of the reference name.
-
-     When the region is active, this command saves that to the
-     ‘kill-ring’, like ‘kill-ring-save’ would, instead of behaving as
-     described above.  If a prefix argument is used and the region is
-     within a hunk, then it strips the diff marker column and keeps only
-     either the added or removed lines, depending on the sign of the
-     prefix argument.
-
-‘M-w’ (‘magit-copy-buffer-revision’)
-     This command saves the revision being displayed in the current
-     buffer to the ‘kill-ring’ and also pushes it to the
-     ‘magit-revision-stack’.  It is mainly intended for use in
-     ‘magit-revision-mode’ buffers, the only buffers where it is always
-     unambiguous exactly which revision should be saved.
-
-     Most other Magit buffers usually show more than one revision, in
-     some way or another, so this command has to select one of them, and
-     that choice might not always be the one you think would have been
-     the best pick.
-
-   Outside of Magit ‘M-w’ and ‘C-w’ are usually bound to
-‘kill-ring-save’ and ‘kill-region’, and these commands would also be
-useful in Magit buffers.  Therefore when the region is active, then both
-of these commands behave like ‘kill-ring-save’ instead of as described
-above.
-
-
-File: magit.info,  Node: Wip Modes,  Next: Commands for Buffers Visiting Files,  Prev: Common Commands,  Up: Miscellaneous
-
-8.9 Wip Modes
-=============
-
-Git keeps *committed* changes around long enough for users to recover
-changes they have accidentally deleted.  It does so by not garbage
-collecting any committed but no longer referenced objects for a certain
-period of time, by default 30 days.
-
-   But Git does *not* keep track of *uncommitted* changes in the working
-tree and not even the index (the staging area).  Because Magit makes it
-so convenient to modify uncommitted changes, it also makes it easy to
-shoot yourself in the foot in the process.
-
-   For that reason Magit provides a global mode that saves *tracked*
-files to work-in-progress references after or before certain actions.
-(At present untracked files are never saved and for technical reasons
-nothing is saved before the first commit has been created).
-
-   Two separate work-in-progress references are used to track the state
-of the index and of the working tree: ‘refs/wip/index/<branchref>’ and
-‘refs/wip/wtree/<branchref>’, where ‘<branchref>’ is the full ref of the
-current branch, e.g., ‘refs/heads/master’.  When the ‘HEAD’ is detached
-then ‘HEAD’ is used in place of ‘<branchref>’.
-
-   Checking out another branch (or detaching ‘HEAD’) causes the use of
-different wip refs for subsequent changes.
-
- -- User Option: magit-wip-mode
-     When this mode is enabled, then uncommitted changes are committed
-     to dedicated work-in-progress refs whenever appropriate (i.e., when
-     dataloss would be a possibility otherwise).
-
-     Setting this variable directly does not take effect; either use the
-     Custom interface to do so or call the respective mode function.
-
-     For historic reasons this mode is implemented on top of four other
-     ‘magit-wip-*’ modes, which can also be used individually, if you
-     want finer control over when the wip refs are updated; but that is
-     discouraged.  See *note Legacy Wip Modes::.
-
-   To view the log for a branch and its wip refs use the commands
-‘magit-wip-log’ and ‘magit-wip-log-current’.  You should use ‘--graph’
-when using these commands.
-
- -- Command: magit-wip-log
-     This command shows the log for a branch and its wip refs.  With a
-     negative prefix argument only the worktree wip ref is shown.
-
-     The absolute numeric value of the prefix argument controls how many
-     "branches" of each wip ref are shown.  This is only relevant if the
-     value of ‘magit-wip-merge-branch’ is ‘nil’.
-
- -- Command: magit-wip-log-current
-     This command shows the log for the current branch and its wip refs.
-     With a negative prefix argument only the worktree wip ref is shown.
-
-     The absolute numeric value of the prefix argument controls how many
-     "branches" of each wip ref are shown.  This is only relevant if the
-     value of ‘magit-wip-merge-branch’ is ‘nil’.
-
-‘X w’ (‘magit-reset-worktree’)
-     This command resets the working tree to some commit read from the
-     user and defaulting to the commit at point, while keeping the
-     ‘HEAD’ and index as-is.
-
-     This can be used to restore files to the state committed to a wip
-     ref.  Note that this will discard any unstaged changes that might
-     have existed before invoking this command (but of course only after
-     committing that to the working tree wip ref).
-
-   Note that even if you enable ‘magit-wip-mode’ this won’t give you
-perfect protection.  The most likely scenario for losing changes despite
-the use of ‘magit-wip-mode’ is making a change outside Emacs and then
-destroying it also outside Emacs.  In some such a scenario, Magit, being
-an Emacs package, didn’t get the opportunity to keep you from shooting
-yourself in the foot.
-
-   When you are unsure whether Magit did commit a change to the wip
-refs, then you can explicitly request that all changes to all tracked
-files are being committed.
-
-‘M-x magit-wip-commit’
-     This command commits all changes to all tracked files to the index
-     and working tree work-in-progress refs.  Like the modes described
-     above, it does not commit untracked files, but it does check all
-     tracked files for changes.  Use this command when you suspect that
-     the modes might have overlooked a change made outside Emacs/Magit.
-
- -- User Option: magit-wip-namespace
-     The namespace used for work-in-progress refs.  It has to end with a
-     slash.  The wip refs are named ‘<namespace>index/<branchref>’ and
-     ‘<namespace>wtree/<branchref>’.  When snapshots are created while
-     the ‘HEAD’ is detached then ‘HEAD’ is used in place of
-     ‘<branchref>’.
-
- -- User Option: magit-wip-mode-lighter
-     Mode-line lighter for ‘magit-wip--mode’.
-
-* Menu:
-
-* Wip Graph::
-* Legacy Wip Modes::
-
-
-File: magit.info,  Node: Wip Graph,  Next: Legacy Wip Modes,  Up: Wip Modes
-
-8.9.1 Wip Graph
----------------
-
- -- User Option: magit-wip-merge-branch
-     This option controls whether the current branch is merged into the
-     wip refs after a new commit was created on the branch.
-
-     If non-nil and the current branch has new commits, then it is
-     merged into the wip ref before creating a new wip commit.  This
-     makes it easier to inspect wip history and the wip commits are
-     never garbage collected.
-
-     If nil and the current branch has new commits, then the wip ref is
-     reset to the tip of the branch before creating a new wip commit.
-     With this setting wip commits are eventually garbage collected.
-
-   When ‘magit-wip-merge-branch’ is ‘t’, then the history looks like
-this:
-
-       *--*--*--*--*--*       refs/wip/index/refs/heads/master
-      /     /     /
-     A-----B-----C            refs/heads/master
-
-   When ‘magit-wip-merge-branch’ is ‘nil’, then creating a commit on the
-real branch and then making a change causes the wip refs to be recreated
-to fork from the new commit.  But the old commits on the wip refs are
-not lost.  They are still available from the reflog.  To make it easier
-to see when the fork point of a wip ref was changed, an additional
-commit with the message "restart autosaving" is created on it (‘xxO’
-commits below are such boundary commits).
-
-   Starting with
-
-           BI0---BI1    refs/wip/index/refs/heads/master
-          /
-     A---B              refs/heads/master
-          \
-           BW0---BW1    refs/wip/wtree/refs/heads/master
-
-   and committing the staged changes and editing and saving a file would
-result in
-
-           BI0---BI1        refs/wip/index/refs/heads/master
-          /
-     A---B---C              refs/heads/master
-          \   \
-           \   CW0---CW1    refs/wip/wtree/refs/heads/master
-            \
-             BW0---BW1      refs/wip/wtree/refs/heads/master@{2}
-
-   The fork-point of the index wip ref is not changed until some change
-is being staged.  Likewise just checking out a branch or creating a
-commit does not change the fork-point of the working tree wip ref.  The
-fork-points are not adjusted until there actually is a change that
-should be committed to the respective wip ref.
-
-
-File: magit.info,  Node: Legacy Wip Modes,  Prev: Wip Graph,  Up: Wip Modes
-
-8.9.2 Legacy Wip Modes
-----------------------
-
-It is recommended that you use the mode ‘magit-wip-mode’ (which see) and
-ignore the existence of the following modes, which are preserved for
-historic reasons.
-
-   Setting the following variables directly does not take effect; either
-use the Custom interface to do so or call the respective mode functions.
-
- -- User Option: magit-wip-after-save-mode
-     When this mode is enabled, then saving a buffer that visits a file
-     tracked in a Git repository causes its current state to be
-     committed to the working tree wip ref for the current branch.
-
- -- User Option: magit-wip-after-apply-mode
-     When this mode is enabled, then applying (i.e., staging, unstaging,
-     discarding, reversing, and regularly applying) a change to a file
-     tracked in a Git repository causes its current state to be
-     committed to the index and/or working tree wip refs for the current
-     branch.
-
-   If you only ever edit files using Emacs and only ever interact with
-Git using Magit, then the above two modes should be enough to protect
-each and every change from accidental loss.  In practice nobody does
-that.  Two additional modes exists that do commit to the wip refs before
-making changes that could cause the loss of earlier changes.
-
- -- User Option: magit-wip-before-change-mode
-     When this mode is enabled, then certain commands commit the
-     existing changes to the files they are about to make changes to.
-
- -- User Option: magit-wip-initial-backup-mode
-     When this mode is enabled, then the current version of a file is
-     committed to the worktree wip ref before the buffer visiting that
-     file is saved for the first time since the buffer was created.
-
-     This backs up the same version of the file that ‘backup-buffer’
-     would save.  While ‘backup-buffer’ uses a backup file, this mode
-     uses the same worktree wip ref as used by the other Magit Wip
-     modes.  Like ‘backup-buffer’, it only does this once; unless you
-     kill the buffer and visit the file again only one backup will be
-     created per Emacs session.
-
-     This mode ignores the variables that affect ‘backup-buffer’ and can
-     be used along-side that function, which is recommended because it
-     only backs up files that are tracked in a Git repository.
-
- -- User Option: magit-wip-after-save-local-mode-lighter
-     Mode-line lighter for ‘magit-wip-after-save-local-mode’.
-
- -- User Option: magit-wip-after-apply-mode-lighter
-     Mode-line lighter for ‘magit-wip-after-apply-mode’.
-
- -- User Option: magit-wip-before-change-mode-lighter
-     Mode-line lighter for ‘magit-wip-before-change-mode’.
-
- -- User Option: magit-wip-initial-backup-mode-lighter
-     Mode-line lighter for ‘magit-wip-initial-backup-mode’.
-
-
-File: magit.info,  Node: Commands for Buffers Visiting Files,  Next: Minor Mode for Buffers Visiting Blobs,  Prev: Wip Modes,  Up: Miscellaneous
-
-8.10 Commands for Buffers Visiting Files
-========================================
-
-By default Magit defines a few global key bindings.  These bindings are
-a compromise between providing no bindings at all and providing the
-better bindings I would have liked to use instead.  Magit cannot provide
-the set of recommended bindings by default because those key sequences
-are strictly reserved for bindings added by the user.  Also see *note
-Global Bindings:: and *note (elisp)Key Binding Conventions::.
-
-   To use the recommended bindings, add this to your init file and
-restart Emacs.
-
-     (setq magit-define-global-key-bindings 'recommended)
-
-   If you don’t want Magit to add any bindings to the global keymap at
-all, add this to your init file and restart Emacs.
-
-     (setq magit-define-global-key-bindings nil)
-
-‘C-c f’ (‘magit-file-dispatch’)
-‘C-c f s’ (‘magit-stage-file’)
-‘C-c f s’ (‘magit-stage-buffer-file’)
-‘C-c f u’ (‘magit-unstage-file’)
-‘C-c f u’ (‘magit-unstage-buffer-file’)
-‘C-c f , x’ (‘magit-file-untrack’)
-‘C-c f , r’ (‘magit-file-rename’)
-‘C-c f , k’ (‘magit-file-delete’)
-‘C-c f , c’ (‘magit-file-checkout’)
-‘C-c f D’ (‘magit-diff’)
-‘C-c f d’ (‘magit-diff-buffer-file’)
-‘C-c f L’ (‘magit-log’)
-‘C-c f l’ (‘magit-log-buffer-file’)
-‘C-c f t’ (‘magit-log-trace-definition’)
-‘C-c f M’ (‘magit-log-merged’)
-‘C-c f B’ (‘magit-blame’)
-‘C-c f b’ (‘magit-blame-additions’)
-‘C-c f r’ (‘magit-blame-removal’)
-‘C-c f f’ (‘magit-blame-reverse’)
-‘C-c f m’ (‘magit-blame-echo’)
-‘C-c f q’ (‘magit-blame-quit’)
-‘C-c f p’ (‘magit-blob-previous’)
-‘C-c f n’ (‘magit-blob-next’)
-‘C-c f v’ (‘magit-find-file’)
-‘C-c f V’ (‘magit-blob-visit-file’)
-‘C-c f g’ (‘magit-status-here’)
-‘C-c f G’ (‘magit-display-repository-buffer’)
-‘C-c f c’ (‘magit-commit’)
-‘C-c f e’ (‘magit-edit-line-commit’)
-     Each of these commands is documented individually right below,
-     alongside their default key bindings.  The bindings shown above are
-     the recommended bindings, which you can enable by following the
-     instructions further up.
-
-‘C-c M-g’ (‘magit-file-dispatch’)
-     This transient prefix command binds the following suffix commands
-     and displays them in a temporary buffer until a suffix is invoked.
-
-‘C-c M-g s’ (‘magit-stage-file’)
-‘C-c M-g s’ (‘magit-stage-buffer-file’)
-     Stage all changes to the file being visited in the current buffer.
-     When not visiting a file, then the first command is used, which
-     prompts for a file.
-
-‘C-c M-g u’ (‘magit-unstage-file’)
-‘C-c M-g u’ (‘magit-unstage-buffer-file’)
-     Unstage all changes to the file being visited in the current
-     buffer.  When not visiting a file, then the first command is used,
-     which prompts for a file.
-
-‘C-c M-g , x’ (‘magit-file-untrack’)
-     This command untracks a file read from the user, defaulting to the
-     visited file.
-
-‘C-c M-g , r’ (‘magit-file-rename’)
-     This command renames a file read from the user, defaulting to the
-     visited file.
-
-‘C-c M-g , k’ (‘magit-file-delete’)
-     This command deletes a file read from the user, defaulting to the
-     visited file.
-
-‘C-c M-g , c’ (‘magit-file-checkout’)
-     This command updates a file in the working tree and index to the
-     contents from a revision.  Both the revision and file are read from
-     the user.
-
-‘C-c M-g D’ (‘magit-diff’)
-     This transient prefix command binds several diff suffix commands
-     and infix arguments and displays them in a temporary buffer until a
-     suffix is invoked.  See *note Diffing::.
-
-     This is the same command that ‘d’ is bound to in Magit buffers.  If
-     this command is invoked from a file-visiting buffer, then the
-     initial value of the option (‘--’) that limits the diff to certain
-     file(s) is set to the visited file.
-
-‘C-c M-g d’ (‘magit-diff-buffer-file’)
-     This command shows the diff for the file of blob that the current
-     buffer visits.
-
- -- User Option: magit-diff-buffer-file-locked
-     This option controls whether ‘magit-diff-buffer-file’ uses a
-     dedicated buffer.  See *note Modes and Buffers::.
-
-‘C-c M-g L’ (‘magit-log’)
-     This transient prefix command binds several log suffix commands and
-     infix arguments and displays them in a temporary buffer until a
-     suffix is invoked.  See *note Logging::.
-
-     This is the same command that ‘l’ is bound to in Magit buffers.  If
-     this command is invoked from a file-visiting buffer, then the
-     initial value of the option (‘--’) that limits the log to certain
-     file(s) is set to the visited file.
-
-‘C-c M-g l’ (‘magit-log-buffer-file’)
-     This command shows the log for the file of blob that the current
-     buffer visits.  Renames are followed when a prefix argument is used
-     or when ‘--follow’ is an active log argument.  When the region is
-     active, the log is restricted to the selected line range.
-
- -- User Option: magit-log-buffer-file-locked
-     This option controls whether ‘magit-log-buffer-file’ uses a
-     dedicated buffer.  See *note Modes and Buffers::.
-
-‘C-c M-g t’ (‘magit-log-trace-definition’)
-     This command shows the log for the definition at point.
-
-‘C-c M-g M’ (‘magit-log-merged’)
-     This command reads a commit and a branch in shows a log concerning
-     the merge of the former into the latter.  This shows multiple
-     commits even in case of a fast-forward merge.
-
-‘C-c M-g B’ (‘magit-blame’)
-     This transient prefix command binds all blaming suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.
-
-     For more information about this and the following commands also see
-     *note Blaming::.
-
-     In addition to the ‘magit-blame’ sub-transient, the dispatch
-     transient also binds several blaming suffix commands directly.  See
-     *note Blaming:: for information about those commands and bindings.
-
-‘C-c M-g p’ (‘magit-blob-previous’)
-     This command visits the previous blob which modified the current
-     file.
-
-‘C-c M-g n’ (‘magit-blob-next’)
-     This command visits the next blob which modified the current file.
-
-‘C-c M-g v’ (‘magit-find-file’)
-     This command reads a revision and file and visits the respective
-     blob.
-
-‘C-c M-g V’ (‘magit-blob-visit-file’)
-     This command visits the file from the working tree, corresponding
-     to the current blob.  When visiting a blob or the version from the
-     index, then it goes to the same location in the respective file in
-     the working tree.
-
-‘C-c M-g g’ (‘magit-status-here’)
-     This command displays the status of the current repository in a
-     buffer, like ‘magit-status’ does.  Additionally it tries to go to
-     the position in that buffer, which corresponds to the position in
-     the current file-visiting buffer (if any).
-
-‘C-c M-g G’ (‘magit-display-repository-buffer’)
-     This command reads and displays a Magit buffer belonging to the
-     current repository, without refreshing it.
-
-‘C-c M-g c’ (‘magit-commit’)
-     This transient prefix command binds the following suffix commands
-     along with the appropriate infix arguments and displays them in a
-     temporary buffer until a suffix is invoked.  See *note Initiating a
-     Commit::.
-
-‘C-c M-g e’ (‘magit-edit-line-commit’)
-     This command makes the commit editable that added the current line.
-
-     With a prefix argument it makes the commit editable that removes
-     the line, if any.  The commit is determined using ‘git blame’ and
-     made editable using ‘git rebase --interactive’ if it is reachable
-     from ‘HEAD’, or by checking out the commit (or a branch that points
-     at it) otherwise.
-
-
-File: magit.info,  Node: Minor Mode for Buffers Visiting Blobs,  Prev: Commands for Buffers Visiting Files,  Up: Miscellaneous
-
-8.11 Minor Mode for Buffers Visiting Blobs
-==========================================
-
-The ‘magit-blob-mode’ enables certain Magit features in blob-visiting
-buffers.  Such buffers can be created using ‘magit-find-file’ and some
-of the commands mentioned below, which also take care of turning on this
-minor mode.  Currently this mode only establishes a few key bindings,
-but this might be extended.
-
-‘p’ (‘magit-blob-previous’)
-     Visit the previous blob which modified the current file.
-
-‘n’ (‘magit-blob-next’)
-     Visit the next blob which modified the current file.
-
-‘q’ (‘magit-kill-this-buffer’)
-     Kill the current buffer.
-
-
-File: magit.info,  Node: Customizing,  Next: Plumbing,  Prev: Miscellaneous,  Up: Top
-
-9 Customizing
-*************
-
-Both Git and Emacs are highly customizable.  Magit is both a Git
-porcelain as well as an Emacs package, so it makes sense to customize it
-using both Git variables as well as Emacs options.  However this
-flexibility doesn’t come without problems, including but not limited to
-the following.
-
-   • Some Git variables automatically have an effect in Magit without
-     requiring any explicit support.  Sometimes that is desirable - in
-     other cases, it breaks Magit.
-
-     When a certain Git setting breaks Magit but you want to keep using
-     that setting on the command line, then that can be accomplished by
-     overriding the value for Magit only by appending something like
-     ‘("-c" "some.variable=compatible-value")’ to
-     ‘magit-git-global-arguments’.
-
-   • Certain settings like ‘fetch.prune=true’ are respected by Magit
-     commands (because they simply call the respective Git command) but
-     their value is not reflected in the respective transient buffers.
-     In this case the ‘--prune’ argument in ‘magit-fetch’ might be
-     active or inactive, but that doesn’t keep the Git variable from
-     being honored by the suffix commands anyway.  So pruning might
-     happen despite the ‘--prune’ arguments being displayed in a way
-     that seems to indicate that no pruning will happen.
-
-   I intend to address these and similar issues in a future release.
-
-* Menu:
-
-* Per-Repository Configuration::
-* Essential Settings::
-
-
-File: magit.info,  Node: Per-Repository Configuration,  Next: Essential Settings,  Up: Customizing
-
-9.1 Per-Repository Configuration
-================================
-
-Magit can be configured on a per-repository level using both Git
-variables as well as Emacs options.
-
-   To set a Git variable for one repository only, simply set it in
-‘/path/to/repo/.git/config’ instead of ‘$HOME/.gitconfig’ or
-‘/etc/gitconfig’.  See *note (gitman)git-config::.
-
-   Similarly, Emacs options can be set for one repository only by
-editing ‘/path/to/repo/.dir-locals.el’.  See *note (emacs)Directory
-Variables::.  For example to disable automatic refreshes of
-file-visiting buffers in just one huge repository use this:
-
-   • ‘/path/to/huge/repo/.dir-locals.el’
-
-          ((nil . ((magit-refresh-buffers . nil))))
-
-   It might only be costly to insert certain information into Magit
-buffers for repositories that are exceptionally large, in which case you
-can disable the respective section inserters just for that repository:
-
-   • ‘/path/to/tag/invested/repo/.dir-locals.el’
-
-          ((magit-status-mode
-            . ((eval . (magit-disable-section-inserter 'magit-insert-tags-header)))))
-
- -- Function: magit-disable-section-inserter fn
-     This function disables the section inserter FN in the current
-     repository.  It is only intended for use in ‘.dir-locals.el’ and
-     ‘.dir-locals-2.el’.
-
-   If you want to apply the same settings to several, but not all,
-repositories then keeping the repository-local config files in sync
-would quickly become annoying.  To avoid that you can create config
-files for certain classes of repositories (e.g., "huge repositories")
-and then include those files in the per-repository config files.  For
-example:
-
-   • ‘/path/to/huge/repo/.git/config’
-
-          [include]
-                  path = /path/to/huge-gitconfig
-
-   • ‘/path/to/huge-gitconfig’
-
-          [status]
-                  showUntrackedFiles = no
-
-   • ‘$HOME/.emacs.d/init.el’
-
-          (dir-locals-set-class-variables 'huge-git-repository
-             '((nil . ((magit-refresh-buffers . nil)))))
-
-          (dir-locals-set-directory-class
-             "/path/to/huge/repo/" 'huge-git-repository)
-
-
-File: magit.info,  Node: Essential Settings,  Prev: Per-Repository Configuration,  Up: Customizing
-
-9.2 Essential Settings
-======================
-
-The next three sections list and discuss several variables that many
-users might want to customize, for safety and/or performance reasons.
-
-* Menu:
-
-* Safety::
-* Performance::
-* Global Bindings::
-
-
-File: magit.info,  Node: Safety,  Next: Performance,  Up: Essential Settings
-
-9.2.1 Safety
-------------
-
-This section discusses various variables that you might want to change
-(or *not* change) for safety reasons.
-
-   Git keeps *committed* changes around long enough for users to recover
-changes they have accidentally been deleted.  It does not do the same
-for *uncommitted* changes in the working tree and not even the index
-(the staging area).  Because Magit makes it so easy to modify
-uncommitted changes, it also makes it easy to shoot yourself in the foot
-in the process.  For that reason Magit provides three global modes that
-save *tracked* files to work-in-progress references after or before
-certain actions.  See *note Wip Modes::.
-
-   These modes are not enabled by default because of performance
-concerns.  Instead a lot of potentially destructive commands require
-confirmation every time they are used.  In many cases this can be
-disabled by adding a symbol to ‘magit-no-confirm’ (see *note Completion
-and Confirmation::).  If you enable the various wip modes then you
-should add ‘safe-with-wip’ to this list.
-
-   Similarly it isn’t necessary to require confirmation before moving a
-file to the system trash - if you trashed a file by mistake then you can
-recover it from there.  Option ‘magit-delete-by-moving-to-trash’
-controls whether the system trash is used, which is the case by default.
-Nevertheless, ‘trash’ isn’t a member of ‘magit-no-confirm’ - you might
-want to change that.
-
-   By default buffers visiting files are automatically reverted when the
-visited file changes on disk.  This isn’t as risky as it might seem, but
-to make an informed decision you should see *note Risk of Reverting
-Automatically::.
-
-
-File: magit.info,  Node: Performance,  Next: Global Bindings,  Prev: Safety,  Up: Essential Settings
-
-9.2.2 Performance
------------------
-
-After Magit has run ‘git’ for side-effects, it also refreshes the
-current Magit buffer and the respective status buffer.  This is
-necessary because otherwise outdated information might be displayed
-without the user noticing.  Magit buffers are updated by recreating
-their content from scratch, which makes updating simpler and less
-error-prone, but also more costly.  Keeping it simple and just
-re-creating everything from scratch is an old design decision and
-departing from that will require major refactoring.
-
-   Meanwhile you can tell Magit to only automatically refresh the
-current Magit buffer, but not the status buffer.  If you do that, then
-the status buffer is only refreshed automatically if it is the current
-buffer.
-
-     (setq magit-refresh-status-buffer nil)
-
-   You should also check whether any third-party packages have added
-anything to ‘magit-refresh-buffer-hook’, ‘magit-pre-refresh-hook’, and
-‘magit-post-refresh-hook’.  If so, then check whether those additions
-impact performance significantly.
-
-   Magit can be told to refresh buffers verbosely using ‘M-x
-magit-toggle-verbose-refresh’.  Enabling this helps figuring out which
-sections are bottlenecks.  Each line printed to the ‘*Messages*’ buffer
-contains a section name, the number of seconds it took to show this
-section, and from 0 to 2 exclamation marks: the more exclamation marks
-the slower the section is.
-
-   Magit also reverts buffers for visited files located inside the
-current repository when the visited file changes on disk.  That is
-implemented on top of ‘auto-revert-mode’ from the built-in library
-‘autorevert’.  To figure out whether that impacts performance, check
-whether performance is significantly worse, when many buffers exist
-and/or when some buffers visit files using TRAMP.  If so, then this
-should help.
-
-     (setq auto-revert-buffer-list-filter
-           'magit-auto-revert-repository-buffer-p)
-
-   For alternative approaches see *note Automatic Reverting of
-File-Visiting Buffers::.
-
-   If you have enabled any features that are disabled by default, then
-you should check whether they impact performance significantly.  It’s
-likely that they were not enabled by default because it is known that
-they reduce performance at least in large repositories.
-
-   If performance is only slow inside certain unusually large
-repositories, then you might want to disable certain features on a
-per-repository or per-repository-class basis only.  See *note
-Per-Repository Configuration::.  For example it takes a long time to
-determine the next and current tag in repository with exceptional
-numbers of tags.  It would therefore be a good idea to disable
-‘magit-insert-tags-headers’, as explained at the mentioned node.
-
-* Menu:
-
-* Microsoft Windows Performance::
-* MacOS Performance::
-
-Log Performance
-...............
-
-When showing logs, Magit limits the number of commits initially shown in
-the hope that this avoids unnecessary work.  When ‘--graph’ is used,
-then this unfortunately does not have the desired effect for large
-histories.  Junio, Git’s maintainer, said on the Git mailing list
-(<https://www.spinics.net/lists/git/msg232230.html>): "‘--graph’ wants
-to compute the whole history and the max-count only affects the output
-phase after ‘--graph’ does its computation".
-
-   In other words, it’s not that Git is slow at outputting the
-differences, or that Magit is slow at parsing the output - the problem
-is that Git first goes outside and has a smoke.
-
-   We actually work around this issue by limiting the number of commits
-not only by using ‘-<N>’ but by also using a range.  But unfortunately
-that’s not always possible.
-
-   When more than a few thousand commits are shown, then the use of
-‘--graph’ can slow things down.
-
-   Using ‘--color --graph’ is even slower.  Magit uses code that is part
-of Emacs to turn control characters into faces.  That code is pretty
-slow and this is quite noticeable when showing a log with many branches
-and merges.  For that reason ‘--color’ is not enabled by default
-anymore.  Consider leaving it at that.
-
-Diff Performance
-................
-
-If diffs are slow, then consider turning off some optional diff features
-by setting all or some of the following variables to ‘nil’:
-‘magit-diff-highlight-indentation’, ‘magit-diff-highlight-trailing’,
-‘magit-diff-paint-whitespace’, ‘magit-diff-highlight-hunk-body’, and
-‘magit-diff-refine-hunk’.
-
-   When showing a commit instead of some arbitrary diff, then some
-additional information is displayed.  Calculating this information can
-be quite expensive given certain circumstances.  If looking at a commit
-using ‘magit-revision-mode’ takes considerably more time than looking at
-the same commit in ‘magit-diff-mode’, then consider setting
-‘magit-revision-insert-related-refs’ to ‘nil’.
-
-   When you are often confronted with diffs that contain deleted files,
-then you might want to enable the ‘--irreversible-delete’ argument.  If
-you do that then diffs still show that a file was deleted but without
-also showing the complete deleted content of the file.  This argument is
-not available by default, see *note (transient)Enabling and Disabling
-Suffixes::.  Once you have done that you should enable it and save that
-setting, see *note (transient)Saving Values::.  You should do this in
-both the diff (‘d’) and the diff refresh (‘D’) transient popups.
-
-Refs Buffer Performance
-.......................
-
-When refreshing the "references buffer" is slow, then that’s usually
-because several hundred refs are being displayed.  The best way to
-address that is to display fewer refs, obviously.
-
-   If you are not, or only mildly, interested in seeing the list of
-tags, then start by not displaying them:
-
-     (remove-hook 'magit-refs-sections-hook 'magit-insert-tags)
-
-   Then you should also make sure that the listed remote branches
-actually all exist.  You can do so by pruning branches which no longer
-exist using ‘f-pa’.
-
-Committing Performance
-......................
-
-When you initiate a commit, then Magit by default automatically shows a
-diff of the changes you are about to commit.  For large commits this can
-take a long time, which is especially distracting when you are
-committing large amounts of generated data which you don’t actually
-intend to inspect before committing.  This behavior can be turned off
-using:
-
-     (remove-hook 'server-switch-hook 'magit-commit-diff)
-     (remove-hook 'with-editor-filter-visit-hook 'magit-commit-diff)
-
-   Then you can type ‘C-c C-d’ to show the diff when you actually want
-to see it, but only then.  Alternatively you can leave the hook alone
-and just type ‘C-g’ in those cases when it takes too long to generate
-the diff.  If you do that, then you will end up with a broken diff
-buffer, but doing it this way has the advantage that you usually get to
-see the diff, which is useful because it increases the odds that you
-spot potential issues.
-
-
-File: magit.info,  Node: Microsoft Windows Performance,  Next: MacOS Performance,  Up: Performance
-
-Microsoft Windows Performance
-.............................
-
-In order to update the status buffer, ‘git’ has to be run a few dozen
-times.  That is problematic on Microsoft Windows, because that operating
-system is exceptionally slow at starting processes.  Sadly this is an
-issue that can only be fixed by Microsoft itself, and they don’t appear
-to be particularly interested in doing so.
-
-   Beside the subprocess issue, there are also other Windows-specific
-performance issues.  Some of these have workarounds.  The maintainers of
-"Git for Windows" try to improve performance on Windows.  Always use the
-latest release in order to benefit from the latest performance tweaks.
-Magit too tries to work around some Windows-specific issues.
-
-   According to some sources, setting the following Git variables can
-also help.
-
-     git config --global core.preloadindex true   # default since v2.1
-     git config --global core.fscache true        # default since v2.8
-     git config --global gc.auto 256
-
-   You should also check whether an anti-virus program is affecting
-performance.
-
-
-File: magit.info,  Node: MacOS Performance,  Prev: Microsoft Windows Performance,  Up: Performance
-
-MacOS Performance
-.................
-
-Before Emacs 26.1 child processes were created using ‘fork’ on macOS.
-That needlessly copied GUI resources, which is expensive.  The result
-was that forking took about 30 times as long on Darwin than on Linux,
-and because Magit starts many ‘git’ processes that made quite a
-difference.
-
-   So make sure that you are using at least Emacs 26.1, in which case
-the faster ‘vfork’ will be used.  (The creation of child processes still
-takes about twice as long on Darwin compared to Linux.)  See (1) for
-more information.
-
-   Additionally, ‘git’ installed from a package manager like ‘brew’ or
-‘nix’ seems to be slower than the native executable.  Profile the ‘git’
-executable you’re running against the one at ‘/usr/bin/git’, and if you
-notice a notable difference try using the latter as
-‘magit-git-executable’.
-
-   ---------- Footnotes ----------
-
-   (1) 
-<https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-04/msg00201.html>
-
-
-File: magit.info,  Node: Global Bindings,  Prev: Performance,  Up: Essential Settings
-
-9.2.3 Global Bindings
----------------------
-
- -- User Option: magit-define-global-key-bindings
-     This option controls which set of Magit key bindings, if any, may
-     be added to the global keymap, even before Magit is first used in
-     the current Emacs session.
-
-        • If the value is ‘nil’, no bindings are added.
-
-        • If ‘default’, maybe add:
-
-          ‘C-x g’     ‘magit-status’
-          ‘C-x M-g’   ‘magit-dispatch’
-          ‘C-c M-g’   ‘magit-file-dispatch’
-
-        • If ‘recommended’, maybe add:
-
-          ‘C-x g’   ‘magit-status’
-          ‘C-c g’   ‘magit-dispatch’
-          ‘C-c f’   ‘magit-file-dispatch’
-
-          These bindings are strongly recommended, but we cannot use
-          them by default, because the ‘C-c <LETTER>’ namespace is
-          strictly reserved for bindings added by the user (see *note
-          (elisp)Key Binding Conventions::).
-
-     The bindings in the chosen set may be added when ‘after-init-hook’
-     is run.  Each binding is added if, and only if, at that time no
-     other key is bound to the same command, and no other command is
-     bound to the same key.  In other words we try to avoid adding
-     bindings that are unnecessary, as well as bindings that conflict
-     with other bindings.
-
-     Adding these bindings is delayed until ‘after-init-hook’ is run to
-     allow users to set the variable anywhere in their init file
-     (without having to make sure to do so before ‘magit’ is loaded or
-     autoloaded) and to increase the likelihood that all the potentially
-     conflicting user bindings have already been added.
-
-     To set this variable use either ‘setq’ or the Custom interface.  Do
-     not use the function ‘customize-set-variable’ because doing that
-     would cause Magit to be loaded immediately, when that form is
-     evaluated (this differs from ‘custom-set-variables’, which doesn’t
-     load the libraries that define the customized variables).
-
-     Setting this variable has no effect if ‘after-init-hook’ has
-     already been run.
-
-
-File: magit.info,  Node: Plumbing,  Next: FAQ,  Prev: Customizing,  Up: Top
-
-10 Plumbing
-***********
-
-The following sections describe how to use several of Magit’s core
-abstractions to extend Magit itself or implement a separate extension.
-
-   A few of the low-level features used by Magit have been factored out
-into separate libraries/packages, so that they can be used by other
-packages, without having to depend on Magit.  See *note
-(with-editor)Top:: for information about ‘with-editor’.  ‘transient’
-doesn’t have a manual yet.
-
-   If you are trying to find an unused key that you can bind to a
-command provided by your own Magit extension, then checkout
-<https://github.com/magit/magit/wiki/Plugin-Dispatch-Key-Registry>.
-
-* Menu:
-
-* Calling Git::
-* Section Plumbing::
-* Refreshing Buffers::
-* Conventions::
-
-
-File: magit.info,  Node: Calling Git,  Next: Section Plumbing,  Up: Plumbing
-
-10.1 Calling Git
-================
-
-Magit provides many specialized functions for calling Git.  All of these
-functions are defined in either ‘magit-git.el’ or ‘magit-process.el’ and
-have one of the prefixes ‘magit-run-’, ‘magit-call-’, ‘magit-start-’, or
-‘magit-git-’ (which is also used for other things).
-
-   All of these functions accept an indefinite number of arguments,
-which are strings that specify command line arguments for Git (or in
-some cases an arbitrary executable).  These arguments are flattened
-before being passed on to the executable; so instead of strings they can
-also be lists of strings and arguments that are ‘nil’ are silently
-dropped.  Some of these functions also require a single mandatory
-argument before these command line arguments.
-
-   Roughly speaking, these functions run Git either to get some value or
-for side-effects.  The functions that return a value are useful to
-collect the information necessary to populate a Magit buffer, while the
-others are used to implement Magit commands.
-
-   The functions in the value-only group always run synchronously, and
-they never trigger a refresh.  The function in the side-effect group can
-be further divided into subgroups depending on whether they run Git
-synchronously or asynchronously, and depending on whether they trigger a
-refresh when the executable has finished.
-
-* Menu:
-
-* Getting a Value from Git::
-* Calling Git for Effect::
-
-
-File: magit.info,  Node: Getting a Value from Git,  Next: Calling Git for Effect,  Up: Calling Git
-
-10.1.1 Getting a Value from Git
--------------------------------
-
-These functions run Git in order to get a value, an exit status, or
-output.  Of course you could also use them to run Git commands that have
-side-effects, but that should be avoided.
-
- -- Function: magit-git-exit-code &rest args
-     Executes git with ARGS and returns its exit code.
-
- -- Function: magit-git-success &rest args
-     Executes git with ARGS and returns ‘t’ if the exit code is ‘0’,
-     ‘nil’ otherwise.
-
- -- Function: magit-git-failure &rest args
-     Executes git with ARGS and returns ‘t’ if the exit code is ‘1’,
-     ‘nil’ otherwise.
-
- -- Function: magit-git-true &rest args
-     Executes git with ARGS and returns ‘t’ if the first line printed by
-     git is the string "true", ‘nil’ otherwise.
-
- -- Function: magit-git-false &rest args
-     Executes git with ARGS and returns ‘t’ if the first line printed by
-     git is the string "false", ‘nil’ otherwise.
-
- -- Function: magit-git-insert &rest args
-     Executes git with ARGS and inserts its output at point.
-
- -- Function: magit-git-string &rest args
-     Executes git with ARGS and returns the first line of its output.
-     If there is no output or if it begins with a newline character,
-     then this returns ‘nil’.
-
- -- Function: magit-git-lines &rest args
-     Executes git with ARGS and returns its output as a list of lines.
-     Empty lines anywhere in the output are omitted.
-
- -- Function: magit-git-items &rest args
-     Executes git with ARGS and returns its null-separated output as a
-     list.  Empty items anywhere in the output are omitted.
-
-     If the value of option ‘magit-git-debug’ is non-nil and git exits
-     with a non-zero exit status, then warn about that in the echo area
-     and add a section containing git’s standard error in the current
-     repository’s process buffer.
-
- -- Function: magit-process-git destination &rest args
-     Calls Git synchronously in a separate process, returning its exit
-     code.  DESTINATION specifies how to handle the output, like for
-     ‘call-process’, except that file handlers are supported.  Enables
-     Cygwin’s "noglob" option during the call and ensures unix eol
-     conversion.
-
- -- Function: magit-process-file process &optional infile buffer display
-          &rest args
-     Processes files synchronously in a separate process.  Identical to
-     ‘process-file’ but temporarily enables Cygwin’s "noglob" option
-     during the call and ensures unix eol conversion.
-
-   If an error occurs when using one of the above functions, then that
-is usually due to a bug, i.e., using an argument which is not actually
-supported.  Such errors are usually not reported, but when they occur we
-need to be able to debug them.
-
- -- User Option: magit-git-debug
-     Whether to report errors that occur when using ‘magit-git-insert’,
-     ‘magit-git-string’, ‘magit-git-lines’, or ‘magit-git-items’.  This
-     does not actually raise an error.  Instead a message is shown in
-     the echo area, and git’s standard error is insert into a new
-     section in the current repository’s process buffer.
-
- -- Function: magit-git-str &rest args
-     This is a variant of ‘magit-git-string’ that ignores the option
-     ‘magit-git-debug’.  It is mainly intended to be used while handling
-     errors in functions that do respect that option.  Using such a
-     function while handing an error could cause yet another error and
-     therefore lead to an infinite recursion.  You probably won’t ever
-     need to use this function.
-
-
-File: magit.info,  Node: Calling Git for Effect,  Prev: Getting a Value from Git,  Up: Calling Git
-
-10.1.2 Calling Git for Effect
------------------------------
-
-These functions are used to run git to produce some effect.  Most Magit
-commands that actually run git do so by using such a function.
-
-   Because we do not need to consume git’s output when using these
-functions, their output is instead logged into a per-repository buffer,
-which can be shown using ‘$’ from a Magit buffer or ‘M-x magit-process’
-elsewhere.
-
-   These functions can have an effect in two distinct ways.  Firstly,
-running git may change something, i.e., create or push a new commit.
-Secondly, that change may require that Magit buffers are refreshed to
-reflect the changed state of the repository.  But refreshing isn’t
-always desirable, so only some of these functions do perform such a
-refresh after git has returned.
-
-   Sometimes it is useful to run git asynchronously.  For example, when
-the user has just initiated a push, then there is no reason to make her
-wait until that has completed.  In other cases it makes sense to wait
-for git to complete before letting the user do something else.  For
-example after staging a change it is useful to wait until after the
-refresh because that also automatically moves to the next change.
-
- -- Function: magit-call-git &rest args
-     Calls git synchronously with ARGS.
-
- -- Function: magit-call-process program &rest args
-     Calls PROGRAM synchronously with ARGS.
-
- -- Function: magit-run-git &rest args
-     Calls git synchronously with ARGS and then refreshes.
-
- -- Function: magit-run-git-with-input &rest args
-     Calls git synchronously with ARGS and sends it the content of the
-     current buffer on standard input.
-
-     If the current buffer’s ‘default-directory’ is on a remote
-     filesystem, this function actually runs git asynchronously.  But
-     then it waits for the process to return, so the function itself is
-     synchronous.
-
- -- Function: magit-git &rest args
-     Calls git synchronously with ARGS for side-effects only.  This
-     function does not refresh the buffer.
-
- -- Function: magit-git-wash washer &rest args
-     Execute Git with ARGS, inserting washed output at point.  Actually
-     first insert the raw output at point.  If there is no output call
-     ‘magit-cancel-section’.  Otherwise temporarily narrow the buffer to
-     the inserted text, move to its beginning, and then call function
-     WASHER with ARGS as its sole argument.
-
-   And now for the asynchronous variants.
-
- -- Function: magit-run-git-async &rest args
-     Start Git, prepare for refresh, and return the process object.
-     ARGS is flattened and then used as arguments to Git.
-
-     Display the command line arguments in the echo area.
-
-     After Git returns some buffers are refreshed: the buffer that was
-     current when this function was called (if it is a Magit buffer and
-     still alive), as well as the respective Magit status buffer.
-     Unmodified buffers visiting files that are tracked in the current
-     repository are reverted if ‘magit-revert-buffers’ is non-nil.
-
- -- Function: magit-run-git-with-editor &rest args
-     Export GIT_EDITOR and start Git.  Also prepare for refresh and
-     return the process object.  ARGS is flattened and then used as
-     arguments to Git.
-
-     Display the command line arguments in the echo area.
-
-     After Git returns some buffers are refreshed: the buffer that was
-     current when this function was called (if it is a Magit buffer and
-     still alive), as well as the respective Magit status buffer.
-
- -- Function: magit-start-git input &rest args
-     Start Git, prepare for refresh, and return the process object.
-
-     If INPUT is non-nil, it has to be a buffer or the name of an
-     existing buffer.  The buffer content becomes the processes standard
-     input.
-
-     Option ‘magit-git-executable’ specifies the Git executable and
-     option ‘magit-git-global-arguments’ specifies constant arguments.
-     The remaining arguments ARGS specify arguments to Git.  They are
-     flattened before use.
-
-     After Git returns, some buffers are refreshed: the buffer that was
-     current when this function was called (if it is a Magit buffer and
-     still alive), as well as the respective Magit status buffer.
-     Unmodified buffers visiting files that are tracked in the current
-     repository are reverted if ‘magit-revert-buffers’ is non-nil.
-
- -- Function: magit-start-process &rest args
-     Start PROGRAM, prepare for refresh, and return the process object.
-
-     If optional argument INPUT is non-nil, it has to be a buffer or the
-     name of an existing buffer.  The buffer content becomes the
-     processes standard input.
-
-     The process is started using ‘start-file-process’ and then setup to
-     use the sentinel ‘magit-process-sentinel’ and the filter
-     ‘magit-process-filter’.  Information required by these functions is
-     stored in the process object.  When this function returns the
-     process has not started to run yet so it is possible to override
-     the sentinel and filter.
-
-     After the process returns, ‘magit-process-sentinel’ refreshes the
-     buffer that was current when ‘magit-start-process’ was called (if
-     it is a Magit buffer and still alive), as well as the respective
-     Magit status buffer.  Unmodified buffers visiting files that are
-     tracked in the current repository are reverted if
-     ‘magit-revert-buffers’ is non-nil.
-
- -- Variable: magit-this-process
-     The child process which is about to start.  This can be used to
-     change the filter and sentinel.
-
- -- Variable: magit-process-raise-error
-     When this is non-nil, then ‘magit-process-sentinel’ raises an error
-     if git exits with a non-zero exit status.  For debugging purposes.
-
-
-File: magit.info,  Node: Section Plumbing,  Next: Refreshing Buffers,  Prev: Calling Git,  Up: Plumbing
-
-10.2 Section Plumbing
-=====================
-
-* Menu:
-
-* Creating Sections::
-* Section Selection::
-* Matching Sections::
-
-
-File: magit.info,  Node: Creating Sections,  Next: Section Selection,  Up: Section Plumbing
-
-10.2.1 Creating Sections
-------------------------
-
- -- Macro: magit-insert-section &rest args
-     Insert a section at point.
-
-     TYPE is the section type, a symbol.  Many commands that act on the
-     current section behave differently depending on that type.  Also if
-     a variable ‘magit-TYPE-section-map’ exists, then use that as the
-     text-property ‘keymap’ of all text belonging to the section (but
-     this may be overwritten in subsections).  TYPE can also have the
-     form ‘(eval FORM)’ in which case FORM is evaluated at runtime.
-
-     Optional VALUE is the value of the section, usually a string that
-     is required when acting on the section.
-
-     When optional HIDE is non-nil collapse the section body by default,
-     i.e., when first creating the section, but not when refreshing the
-     buffer.  Otherwise, expand it by default.  This can be overwritten
-     using ‘magit-section-set-visibility-hook’.  When a section is
-     recreated during a refresh, then the visibility of predecessor is
-     inherited and HIDE is ignored (but the hook is still honored).
-
-     BODY is any number of forms that actually insert the section’s
-     heading and body.  Optional NAME, if specified, has to be a symbol,
-     which is then bound to the struct of the section being inserted.
-
-     Before BODY is evaluated the ‘start’ of the section object is set
-     to the value of ‘point’ and after BODY was evaluated its ‘end’ is
-     set to the new value of ‘point’; BODY is responsible for moving
-     ‘point’ forward.
-
-     If it turns out inside BODY that the section is empty, then
-     ‘magit-cancel-section’ can be used to abort and remove all traces
-     of the partially inserted section.  This can happen when creating a
-     section by washing Git’s output and Git didn’t actually output
-     anything this time around.
-
- -- Function: magit-insert-heading &rest args
-     Insert the heading for the section currently being inserted.
-
-     This function should only be used inside ‘magit-insert-section’.
-
-     When called without any arguments, then just set the ‘content’ slot
-     of the object representing the section being inserted to a marker
-     at ‘point’.  The section should only contain a single line when
-     this function is used like this.
-
-     When called with arguments ARGS, which have to be strings, then
-     insert those strings at point.  The section should not contain any
-     text before this happens and afterwards it should again only
-     contain a single line.  If the ‘face’ property is set anywhere
-     inside any of these strings, then insert all of them unchanged.
-     Otherwise use the ‘magit-section-heading’ face for all inserted
-     text.
-
-     The ‘content’ property of the section struct is the end of the
-     heading (which lasts from ‘start’ to ‘content’) and the beginning
-     of the body (which lasts from ‘content’ to ‘end’).  If the value of
-     ‘content’ is nil, then the section has no heading and its body
-     cannot be collapsed.  If a section does have a heading then its
-     height must be exactly one line, including a trailing newline
-     character.  This isn’t enforced; you are responsible for getting it
-     right.  The only exception is that this function does insert a
-     newline character if necessary.
-
- -- Function: magit-cancel-section
-     Cancel the section currently being inserted.  This exits the
-     innermost call to ‘magit-insert-section’ and removes all traces of
-     what has already happened inside that call.
-
- -- Function: magit-define-section-jumper sym title &optional value
-     Define an interactive function to go to section SYM.  TITLE is the
-     displayed title of the section.
-
-
-File: magit.info,  Node: Section Selection,  Next: Matching Sections,  Prev: Creating Sections,  Up: Section Plumbing
-
-10.2.2 Section Selection
-------------------------
-
- -- Function: magit-current-section
-     Return the section at point.
-
- -- Function: magit-region-sections &optional condition multiple
-     Return a list of the selected sections.
-
-     When the region is active and constitutes a valid section
-     selection, then return a list of all selected sections.  This is
-     the case when the region begins in the heading of a section and
-     ends in the heading of the same section or in that of a sibling
-     section.  If optional MULTIPLE is non-nil, then the region cannot
-     begin and end in the same section.
-
-     When the selection is not valid, then return nil.  In this case,
-     most commands that can act on the selected sections will instead
-     act on the section at point.
-
-     When the region looks like it would in any other buffer then the
-     selection is invalid.  When the selection is valid then the region
-     uses the ‘magit-section-highlight’ face.  This does not apply to
-     diffs where things get a bit more complicated, but even here if the
-     region looks like it usually does, then that’s not a valid
-     selection as far as this function is concerned.
-
-     If optional CONDITION is non-nil, then the selection not only has
-     to be valid; all selected sections additionally have to match
-     CONDITION, or nil is returned.  See ‘magit-section-match’ for the
-     forms CONDITION can take.
-
- -- Function: magit-region-values &optional condition multiple
-     Return a list of the values of the selected sections.
-
-     Return the values that themselves would be returned by
-     ‘magit-region-sections’ (which see).
-
-
-File: magit.info,  Node: Matching Sections,  Prev: Section Selection,  Up: Section Plumbing
-
-10.2.3 Matching Sections
-------------------------
-
-‘M-x magit-describe-section-briefly’
-     Show information about the section at point.  This command is
-     intended for debugging purposes.
-
- -- Function: magit-section-ident section
-     Return an unique identifier for SECTION.  The return value has the
-     form ‘((TYPE . VALUE)...)’.
-
- -- Function: magit-get-section ident &optional root
-     Return the section identified by IDENT.  IDENT has to be a list as
-     returned by ‘magit-section-ident’.
-
- -- Function: magit-section-match condition &optional section
-     Return ‘t’ if SECTION matches CONDITION.  SECTION defaults to the
-     section at point.  If SECTION is not specified and there also is no
-     section at point, then return ‘nil’.
-
-     CONDITION can take the following forms:
-        • ‘(CONDITION...)’
-
-          matches if any of the CONDITIONs matches.
-
-        • ‘[CLASS...]’
-
-          matches if the section’s class is the same as the first CLASS
-          or a subclass of that; the section’s parent class matches the
-          second CLASS; and so on.
-
-        • ‘[* CLASS...]’
-
-          matches sections that match ‘[CLASS...]’ and also recursively
-          all their child sections.
-
-        • ‘CLASS’
-
-          matches if the section’s class is the same as CLASS or a
-          subclass of that; regardless of the classes of the parent
-          sections.
-
-     Each CLASS should be a class symbol, identifying a class that
-     derives from ‘magit-section’.  For backward compatibility CLASS can
-     also be a "type symbol".  A section matches such a symbol if the
-     value of its ‘type’ slot is ‘eq’.  If a type symbol has an entry in
-     ‘magit--section-type-alist’, then a section also matches that type
-     if its class is a subclass of the class that corresponds to the
-     type as per that alist.
-
-     Note that it is not necessary to specify the complete section
-     lineage as printed by ‘magit-describe-section-briefly’, unless of
-     course you want to be that precise.
-
- -- Function: magit-section-value-if condition &optional section
-     If the section at point matches CONDITION, then return its value.
-
-     If optional SECTION is non-nil then test whether that matches
-     instead.  If there is no section at point and SECTION is nil, then
-     return nil.  If the section does not match, then return nil.
-
-     See ‘magit-section-match’ for the forms CONDITION can take.
-
- -- Function: magit-section-case &rest clauses
-     Choose among clauses on the type of the section at point.
-
-     Each clause looks like (CONDITION BODY...).  The type of the
-     section is compared against each CONDITION; the BODY forms of the
-     first match are evaluated sequentially and the value of the last
-     form is returned.  Inside BODY the symbol ‘it’ is bound to the
-     section at point.  If no clause succeeds or if there is no section
-     at point return nil.
-
-     See ‘magit-section-match’ for the forms CONDITION can take.
-     Additionally a CONDITION of t is allowed in the final clause and
-     matches if no other CONDITION match, even if there is no section at
-     point.
-
- -- Variable: magit-root-section
-     The root section in the current buffer.  All other sections are
-     descendants of this section.  The value of this variable is set by
-     ‘magit-insert-section’ and you should never modify it.
-
-   For diff related sections a few additional tools exist.
-
- -- Function: magit-diff-type &optional section
-     Return the diff type of SECTION.
-
-     The returned type is one of the symbols ‘staged’, ‘unstaged’,
-     ‘committed’, or ‘undefined’.  This type serves a similar purpose as
-     the general type common to all sections (which is stored in the
-     ‘type’ slot of the corresponding ‘magit-section’ struct) but takes
-     additional information into account.  When the SECTION isn’t
-     related to diffs and the buffer containing it also isn’t a
-     diff-only buffer, then return nil.
-
-     Currently the type can also be one of ‘tracked’ and ‘untracked’,
-     but these values are not handled explicitly in every place they
-     should be.  A possible fix could be to just return nil here.
-
-     The section has to be a ‘diff’ or ‘hunk’ section, or a section
-     whose children are of type ‘diff’.  If optional SECTION is nil,
-     return the diff type for the current section.  In buffers whose
-     major mode is ‘magit-diff-mode’ SECTION is ignored and the type is
-     determined using other means.  In ‘magit-revision-mode’ buffers the
-     type is always ‘committed’.
-
- -- Function: magit-diff-scope &optional section strict
-     Return the diff scope of SECTION or the selected section(s).
-
-     A diff’s "scope" describes what part of a diff is selected, it is a
-     symbol, one of ‘region’, ‘hunk’, ‘hunks’, ‘file’, ‘files’, or
-     ‘list’.  Do not confuse this with the diff "type", as returned by
-     ‘magit-diff-type’.
-
-     If optional SECTION is non-nil, then return the scope of that,
-     ignoring the sections selected by the region.  Otherwise return the
-     scope of the current section, or if the region is active and
-     selects a valid group of diff related sections, the type of these
-     sections, i.e., ‘hunks’ or ‘files’.  If SECTION (or if the current
-     section that is nil) is a ‘hunk’ section and the region starts and
-     ends inside the body of a that section, then the type is ‘region’.
-
-     If optional STRICT is non-nil then return nil if the diff type of
-     the section at point is ‘untracked’ or the section at point is not
-     actually a ‘diff’ but a ‘diffstat’ section.
-
-
-File: magit.info,  Node: Refreshing Buffers,  Next: Conventions,  Prev: Section Plumbing,  Up: Plumbing
-
-10.3 Refreshing Buffers
-=======================
-
-All commands that create a new Magit buffer or change what is being
-displayed in an existing buffer do so by calling ‘magit-mode-setup’.
-Among other things, that function sets the buffer local values of
-‘default-directory’ (to the top-level of the repository),
-‘magit-refresh-function’, and ‘magit-refresh-args’.
-
-   Buffers are refreshed by calling the function that is the local value
-of ‘magit-refresh-function’ (a function named ‘magit-*-refresh-buffer’,
-where ‘*’ may be something like ‘diff’) with the value of
-‘magit-refresh-args’ as arguments.
-
- -- Macro: magit-mode-setup buffer switch-func mode refresh-func
-          &optional refresh-args
-     This function displays and selects BUFFER, turns on MODE, and
-     refreshes a first time.
-
-     This function displays and optionally selects BUFFER by calling
-     ‘magit-mode-display-buffer’ with BUFFER, MODE and SWITCH-FUNC as
-     arguments.  Then it sets the local value of
-     ‘magit-refresh-function’ to REFRESH-FUNC and that of
-     ‘magit-refresh-args’ to REFRESH-ARGS.  Finally it creates the
-     buffer content by calling REFRESH-FUNC with REFRESH-ARGS as
-     arguments.
-
-     All arguments are evaluated before switching to BUFFER.
-
- -- Function: magit-mode-display-buffer buffer mode &optional
-          switch-function
-     This function display BUFFER in some window and select it.  BUFFER
-     may be a buffer or a string, the name of a buffer.  The buffer is
-     returned.
-
-     Unless BUFFER is already displayed in the selected frame, store the
-     previous window configuration as a buffer local value, so that it
-     can later be restored by ‘magit-mode-bury-buffer’.
-
-     The buffer is displayed and selected using SWITCH-FUNCTION.  If
-     that is ‘nil’ then ‘pop-to-buffer’ is used if the current buffer’s
-     major mode derives from ‘magit-mode’.  Otherwise ‘switch-to-buffer’
-     is used.
-
- -- Variable: magit-refresh-function
-     The value of this buffer-local variable is the function used to
-     refresh the current buffer.  It is called with ‘magit-refresh-args’
-     as arguments.
-
- -- Variable: magit-refresh-args
-     The list of arguments used by ‘magit-refresh-function’ to refresh
-     the current buffer.  ‘magit-refresh-function’ is called with these
-     arguments.
-
-     The value is usually set using ‘magit-mode-setup’, but in some
-     cases it’s also useful to provide commands that can change the
-     value.  For example, the ‘magit-diff-refresh’ transient can be used
-     to change any of the arguments used to display the diff, without
-     having to specify again which differences should be shown, but
-     ‘magit-diff-more-context’, ‘magit-diff-less-context’ and
-     ‘magit-diff-default-context’ change just the ‘-U<N>’ argument.  In
-     both case this is done by changing the value of this variable and
-     then calling this ‘magit-refresh-function’.
-
-
-File: magit.info,  Node: Conventions,  Prev: Refreshing Buffers,  Up: Plumbing
-
-10.4 Conventions
-================
-
-Also see *note Completion and Confirmation::.
-
-* Menu:
-
-* Theming Faces::
-
-
-File: magit.info,  Node: Theming Faces,  Up: Conventions
-
-10.4.1 Theming Faces
---------------------
-
-The default theme uses blue for local branches, green for remote
-branches, and goldenrod (brownish yellow) for tags.  When creating a new
-theme, you should probably follow that example.  If your theme already
-uses other colors, then stick to that.
-
-   In older releases these reference faces used to have a background
-color and a box around them.  The basic default faces no longer do so,
-to make Magit buffers much less noisy, and you should follow that
-example at least with regards to boxes.  (Boxes were used in the past to
-work around a conflict between the highlighting overlay and text
-property backgrounds.  That’s no longer necessary because highlighting
-no longer causes other background colors to disappear.)  Alternatively
-you can keep the background color and/or box, but then have to take
-special care to adjust ‘magit-branch-current’ accordingly.  By default
-it looks mostly like ‘magit-branch-local’, but with a box (by default
-the former is the only face that uses a box, exactly so that it sticks
-out).  If the former also uses a box, then you have to make sure that it
-differs in some other way from the latter.
-
-   The most difficult faces to theme are those related to diffs,
-headings, highlighting, and the region.  There are faces that fall into
-all four groups - expect to spend some time getting this right.
-
-   The ‘region’ face in the default theme, in both the light and dark
-variants, as well as in many other themes, distributed with Emacs or by
-third-parties, is very ugly.  It is common to use a background color
-that really sticks out, which is ugly but if that were the only problem
-then it would be acceptable.  Unfortunately many themes also set the
-foreground color, which ensures that all text within the region is
-readable.  Without doing that there might be cases where some foreground
-color is too close to the region background color to still be readable.
-But it also means that text within the region loses all syntax
-highlighting.
-
-   I consider the work that went into getting the ‘region’ face right to
-be a good indicator for the general quality of a theme.  My
-recommendation for the ‘region’ face is this: use a background color
-slightly different from the background color of the ‘default’ face, and
-do not set the foreground color at all.  So for a light theme you might
-use a light (possibly tinted) gray as the background color of ‘default’
-and a somewhat darker gray for the background of ‘region’.  That should
-usually be enough to not collide with the foreground color of any other
-face.  But if some other faces also set a light gray as background
-color, then you should also make sure it doesn’t collide with those (in
-some cases it might be acceptable though).
-
-   Magit only uses the ‘region’ face when the region is "invalid" by its
-own definition.  In a Magit buffer the region is used to either select
-multiple sibling sections, so that commands which support it act on all
-of these sections instead of just the current section, or to select
-lines within a single hunk section.  In all other cases, the section is
-considered invalid and Magit won’t act on it.  But such invalid sections
-happen, either because the user has not moved point enough yet to make
-it valid or because she wants to use a non-magit command to act on the
-region, e.g., ‘kill-region’.
-
-   So using the regular ‘region’ face for invalid sections is a feature.
-It tells the user that Magit won’t be able to act on it.  It’s
-acceptable if that face looks a bit odd and even (but less so) if it
-collides with the background colors of section headings and other things
-that have a background color.
-
-   Magit highlights the current section.  If a section has subsections,
-then all of them are highlighted.  This is done using faces that have
-"highlight" in their names.  For most sections,
-‘magit-section-highlight’ is used for both the body and the heading.
-Like the ‘region’ face, it should only set the background color to
-something similar to that of ‘default’.  The highlight background color
-must be different from both the ‘region’ background color and the
-‘default’ background color.
-
-   For diff related sections Magit uses various faces to highlight
-different parts of the selected section(s).  Note that hunk headings,
-unlike all other section headings, by default have a background color,
-because it is useful to have very visible separators between hunks.
-That face ‘magit-diff-hunk-heading’, should be different from both
-‘magit-diff-hunk-heading-highlight’ and ‘magit-section-highlight’, as
-well as from ‘magit-diff-context’ and ‘magit-diff-context-highlight’.
-By default we do that by changing the foreground color.  Changing the
-background color would lead to complications, and there are already
-enough we cannot get around.  (Also note that it is generally a good
-idea for section headings to always be bold, but only for sections that
-have subsections).
-
-   When there is a valid region selecting diff-related sibling sections,
-i.e., multiple files or hunks, then the bodies of all these sections use
-the respective highlight faces, but additionally the headings instead
-use one of the faces ‘magit-diff-file-heading-selection’ or
-‘magit-diff-hunk-heading-selection’.  These faces have to be different
-from the regular highlight variants to provide explicit visual
-indication that the region is active.
-
-   When theming diff related faces, start by setting the option
-‘magit-diff-refine-hunk’ to ‘all’.  You might personally prefer to only
-refine the current hunk or not use hunk refinement at all, but some of
-the users of your theme want all hunks to be refined, so you have to
-cater to that.
-
-   (Also turn on ‘magit-diff-highlight-indentation’,
-‘magit-diff-highlight-trailing’, and ‘magit-diff-paint-whitespace’; and
-insert some whitespace errors into the code you use for testing.)
-
-   For added lines you have to adjust three faces: ‘magit-diff-added’,
-‘magit-diff-added-highlight’, and ‘diff-refined-added’.  Make sure that
-the latter works well with both of the former, as well as ‘smerge-other’
-and ‘diff-added’.  Then do the same for the removed lines, context
-lines, lines added by us, and lines added by them.  Also make sure the
-respective added, removed, and context faces use approximately the same
-saturation for both the highlighted and unhighlighted variants.  Also
-make sure the file and diff headings work nicely with context lines
-(e.g., make them look different).  Line faces should set both the
-foreground and the background color.  For example, for added lines use
-two different greens.
-
-   It’s best if the foreground color of both the highlighted and the
-unhighlighted variants are the same, so you will need to have to find a
-color that works well on the highlight and unhighlighted background, the
-refine background, and the highlight context background.  When there is
-an hunk internal region, then the added- and removed-lines background
-color is used only within that region.  Outside the region the
-highlighted context background color is used.  This makes it easier to
-see what is being staged.  With an hunk internal region the hunk heading
-is shown using ‘magit-diff-hunk-heading-selection’, and so are the thin
-lines that are added around the lines that fall within the region.  The
-background color of that has to be distinct enough from the various
-other involved background colors.
-
-   Nobody said this would be easy.  If your theme restricts itself to a
-certain set of colors, then you should make an exception here.
-Otherwise it would be impossible to make the diffs look good in each and
-every variation.  Actually you might want to just stick to the default
-definitions for these faces.  You have been warned.  Also please note
-that if you do not get this right, this will in some cases look to users
-like bugs in Magit - so please do it right or not at all.
-
-
-File: magit.info,  Node: FAQ,  Next: Debugging Tools,  Prev: Plumbing,  Up: Top
-
-Appendix A FAQ
-**************
-
-The next two nodes lists frequently asked questions.  For a list of
-frequently *and recently* asked questions, i.e., questions that haven’t
-made it into the manual yet, see
-<https://github.com/magit/magit/wiki/FAQ>.
-
-   Please also see *note Debugging Tools::.
-
-* Menu:
-
-* FAQ - How to ...?::
-* FAQ - Issues and Errors::
-
-
-File: magit.info,  Node: FAQ - How to ...?,  Next: FAQ - Issues and Errors,  Up: FAQ
-
-A.1 FAQ - How to ...?
-=====================
-
-* Menu:
-
-* How to pronounce Magit?::
-* How to show git's output?::
-* How to install the gitman info manual?::
-* How to show diffs for gpg-encrypted files?::
-* How does branching and pushing work?::
-* Should I disable VC?::
-
-
-File: magit.info,  Node: How to pronounce Magit?,  Next: How to show git's output?,  Up: FAQ - How to ...?
-
-A.1.1 How to pronounce Magit?
------------------------------
-
-Either ‘mu[m's] git’ or ‘magi{c => t}’ is fine.
-
-   The slogan is "It’s Magit!  The magical Git client", so it makes
-sense to pronounce Magit like magic, while taking into account that C
-and T do not sound the same.
-
-   The German "Magie" is not pronounced the same as the English "magic",
-so if you speak German then you can use the above rationale to justify
-using the former pronunciation; ‘Mag{ie => it}’.
-
-   You can also choose to use the former pronunciation just because you
-like it better.
-
-   Also see <https://magit.vc/assets/videos/magic.mp4>.  Also see
-<https://emacs.stackexchange.com/questions/13696>.
-
-
-File: magit.info,  Node: How to show git's output?,  Next: How to install the gitman info manual?,  Prev: How to pronounce Magit?,  Up: FAQ - How to ...?
-
-A.1.2 How to show git’s output?
--------------------------------
-
-To show the output of recently run git commands, press ‘$’ (or, if that
-isn’t available, ‘M-x magit-process-buffer’).  This will show a buffer
-containing a section per git invocation; as always press ‘TAB’ to expand
-or collapse them.
-
-   By default, git’s output is only inserted into the process buffer if
-it is run for side-effects.  When the output is consumed in some way,
-also inserting it into the process buffer would be too expensive.  For
-debugging purposes, it’s possible to do so anyway by setting
-‘magit-git-debug’ to ‘t’.
-
-
-File: magit.info,  Node: How to install the gitman info manual?,  Next: How to show diffs for gpg-encrypted files?,  Prev: How to show git's output?,  Up: FAQ - How to ...?
-
-A.1.3 How to install the gitman info manual?
---------------------------------------------
-
-Git’s manpages can be exported as an info manual called ‘gitman’.
-Magit’s own info manual links to nodes in that manual instead of the
-actual manpages because Info doesn’t support linking to manpages.
-
-   Unfortunately some distributions do not install the ‘gitman’ manual
-by default and you will have to install a separate documentation package
-to get it.
-
-   Magit patches Info adding the ability to visit links to the ‘gitman’
-Info manual by instead viewing the respective manpage.  If you prefer
-that approach, then set the value of ‘magit-view-git-manual-method’ to
-one of the supported packages ‘man’ or ‘woman’, e.g.:
-
-     (setq magit-view-git-manual-method 'man)
-
-
-File: magit.info,  Node: How to show diffs for gpg-encrypted files?,  Next: How does branching and pushing work?,  Prev: How to install the gitman info manual?,  Up: FAQ - How to ...?
-
-A.1.4 How to show diffs for gpg-encrypted files?
-------------------------------------------------
-
-Git supports showing diffs for encrypted files, but has to be told to do
-so.  Since Magit just uses Git to get the diffs, configuring Git also
-affects the diffs displayed inside Magit.
-
-     git config --global diff.gpg.textconv "gpg --no-tty --decrypt"
-     echo "*.gpg filter=gpg diff=gpg" > .gitattributes
-
-
-File: magit.info,  Node: How does branching and pushing work?,  Next: Should I disable VC?,  Prev: How to show diffs for gpg-encrypted files?,  Up: FAQ - How to ...?
-
-A.1.5 How does branching and pushing work?
-------------------------------------------
-
-Please see *note Branching:: and
-<https://emacsair.me/2016/01/17/magit-2.4>
-
-
-File: magit.info,  Node: Should I disable VC?,  Prev: How does branching and pushing work?,  Up: FAQ - How to ...?
-
-A.1.6 Should I disable VC?
---------------------------
-
-If you don’t use VC (the built-in version control interface) then you
-might be tempted to disable it, not least because we used to recommend
-that you do that.
-
-   We no longer recommend that you disable VC.  Doing so would break
-useful third-party packages (such as ‘diff-hl’), which depend on VC
-being enabled.
-
-   If you choose to disable VC anyway, then you can do so by changing
-the value of ‘vc-handled-backends’.
-
-
-File: magit.info,  Node: FAQ - Issues and Errors,  Prev: FAQ - How to ...?,  Up: FAQ
-
-A.2 FAQ - Issues and Errors
-===========================
-
-* Menu:
-
-* Magit is slow::
-* I changed several thousand files at once and now Magit is unusable::
-* I am having problems committing::
-* I am using MS Windows and cannot push with Magit::
-* I am using macOS and SOMETHING works in shell, but not in Magit: I am using macOS and SOMETHING works in shell but not in Magit.
-* Expanding a file to show the diff causes it to disappear::
-* Point is wrong in the COMMIT_EDITMSG buffer::
-* The mode-line information isn't always up-to-date::
-* A branch and tag sharing the same name breaks SOMETHING::
-* My Git hooks work on the command-line but not inside Magit::
-* git-commit-mode isn't used when committing from the command-line::
-* Point ends up inside invisible text when jumping to a file-visiting buffer::
-* I am no longer able to save popup defaults::
-
-
-File: magit.info,  Node: Magit is slow,  Next: I changed several thousand files at once and now Magit is unusable,  Up: FAQ - Issues and Errors
-
-A.2.1 Magit is slow
--------------------
-
-See *note Performance:: and *note I changed several thousand files at
-once and now Magit is unusable::.
-
-
-File: magit.info,  Node: I changed several thousand files at once and now Magit is unusable,  Next: I am having problems committing,  Prev: Magit is slow,  Up: FAQ - Issues and Errors
-
-A.2.2 I changed several thousand files at once and now Magit is unusable
-------------------------------------------------------------------------
-
-Magit is currently not expected to work well under such conditions.  It
-sure would be nice if it did.  Reaching satisfactory performance under
-such conditions will require some heavy refactoring.  This is no small
-task but I hope to eventually find the time to make it happen.
-
-   But for now we recommend you use the command line to complete this
-one commit.  Also see *note Performance::.
-
-
-File: magit.info,  Node: I am having problems committing,  Next: I am using MS Windows and cannot push with Magit,  Prev: I changed several thousand files at once and now Magit is unusable,  Up: FAQ - Issues and Errors
-
-A.2.3 I am having problems committing
--------------------------------------
-
-That likely means that Magit is having problems finding an appropriate
-emacsclient executable.  See *note (with-editor)Configuring
-With-Editor:: and *note (with-editor)Debugging::.
-
-
-File: magit.info,  Node: I am using MS Windows and cannot push with Magit,  Next: I am using macOS and SOMETHING works in shell but not in Magit,  Prev: I am having problems committing,  Up: FAQ - Issues and Errors
-
-A.2.4 I am using MS Windows and cannot push with Magit
-------------------------------------------------------
-
-It’s almost certain that Magit is only incidental to this issue.  It is
-much more likely that this is a configuration issue, even if you can
-push on the command line.
-
-   Detailed setup instructions can be found at
-<https://github.com/magit/magit/wiki/Pushing-with-Magit-from-Windows>.
-
-
-File: magit.info,  Node: I am using macOS and SOMETHING works in shell but not in Magit,  Next: Expanding a file to show the diff causes it to disappear,  Prev: I am using MS Windows and cannot push with Magit,  Up: FAQ - Issues and Errors
-
-A.2.5 I am using macOS and SOMETHING works in shell, but not in Magit
----------------------------------------------------------------------
-
-This usually occurs because Emacs doesn’t have the same environment
-variables as your shell.  Try installing and configuring
-<https://github.com/purcell/exec-path-from-shell>.  By default it
-synchronizes ‘$PATH’, which helps Magit find the same ‘git’ as the one
-you are using on the shell.
-
-   If SOMETHING is "passphrase caching with gpg-agent for commit and/or
-tag signing", then you’ll also need to synchronize ‘$GPG_AGENT_INFO’.
-
-
-File: magit.info,  Node: Expanding a file to show the diff causes it to disappear,  Next: Point is wrong in the COMMIT_EDITMSG buffer,  Prev: I am using macOS and SOMETHING works in shell but not in Magit,  Up: FAQ - Issues and Errors
-
-A.2.6 Expanding a file to show the diff causes it to disappear
---------------------------------------------------------------
-
-This is probably caused by a customization of a ‘diff.*’ Git variable.
-You probably set that variable for a reason, and should therefore only
-undo that setting in Magit by customizing ‘magit-git-global-arguments’.
-
-
-File: magit.info,  Node: Point is wrong in the COMMIT_EDITMSG buffer,  Next: The mode-line information isn't always up-to-date,  Prev: Expanding a file to show the diff causes it to disappear,  Up: FAQ - Issues and Errors
-
-A.2.7 Point is wrong in the ‘COMMIT_EDITMSG’ buffer
----------------------------------------------------
-
-Neither Magit nor ‘git-commit.el’ fiddle with point in the buffer used
-to write commit messages, so something else must be doing it.
-
-   You have probably globally enabled a mode which restores point in
-file-visiting buffers.  It might be a bit surprising, but when you write
-a commit message, then you are actually editing a file.
-
-   So you have to figure out which package is doing it.  ‘saveplace’,
-‘pointback’, and ‘session’ are likely candidates.  These snippets might
-help:
-
-     (setq session-name-disable-regexp "\\(?:\\`'\\.git/[A-Z_]+\\'\\)")
-
-     (with-eval-after-load 'pointback
-       (lambda ()
-         (when (or git-commit-mode git-rebase-mode)
-           (pointback-mode -1))))
-
-
-File: magit.info,  Node: The mode-line information isn't always up-to-date,  Next: A branch and tag sharing the same name breaks SOMETHING,  Prev: Point is wrong in the COMMIT_EDITMSG buffer,  Up: FAQ - Issues and Errors
-
-A.2.8 The mode-line information isn’t always up-to-date
--------------------------------------------------------
-
-Magit is not responsible for the version control information that is
-being displayed in the mode-line and looks something like ‘Git-master’.
-The built-in "Version Control" package, also known as "VC", updates that
-information, and can be told to do so more often:
-
-     (setq auto-revert-check-vc-info t)
-
-   But doing so isn’t good for performance.  For more (overly
-optimistic) information see *note (emacs)VC Mode Line::.
-
-   If you don’t really care about seeing this information in the
-mode-line, but just don’t want to see _incorrect_ information, then
-consider simply not displaying it in the mode-line:
-
-     (setq-default mode-line-format
-                   (delete '(vc-mode vc-mode) mode-line-format))
-
-
-File: magit.info,  Node: A branch and tag sharing the same name breaks SOMETHING,  Next: My Git hooks work on the command-line but not inside Magit,  Prev: The mode-line information isn't always up-to-date,  Up: FAQ - Issues and Errors
-
-A.2.9 A branch and tag sharing the same name breaks SOMETHING
--------------------------------------------------------------
-
-Or more generally, ambiguous refnames break SOMETHING.
-
-   Magit assumes that refs are named non-ambiguously across the
-"refs/heads/", "refs/tags/", and "refs/remotes/" namespaces (i.e., all
-the names remain unique when those prefixes are stripped).  We consider
-ambiguous refnames unsupported and recommend that you use a
-non-ambiguous naming scheme.  However, if you do work with a repository
-that has ambiguous refnames, please report any issues you encounter, so
-that we can investigate whether there is a simple fix.
-
-
-File: magit.info,  Node: My Git hooks work on the command-line but not inside Magit,  Next: git-commit-mode isn't used when committing from the command-line,  Prev: A branch and tag sharing the same name breaks SOMETHING,  Up: FAQ - Issues and Errors
-
-A.2.10 My Git hooks work on the command-line but not inside Magit
------------------------------------------------------------------
-
-When Magit calls ‘git’ it adds a few global arguments including
-‘--literal-pathspecs’ and the ‘git’ process started by Magit then passes
-that setting on to other ‘git’ process it starts itself.  It does so by
-setting the environment variable ‘GIT_LITERAL_PATHSPECS’, not by calling
-subprocesses with the ‘--literal-pathspecs’ argument.  You can therefore
-override this setting in hook scripts using ‘unset
-GIT_LITERAL_PATHSPECS’.
-
-
-File: magit.info,  Node: git-commit-mode isn't used when committing from the command-line,  Next: Point ends up inside invisible text when jumping to a file-visiting buffer,  Prev: My Git hooks work on the command-line but not inside Magit,  Up: FAQ - Issues and Errors
-
-A.2.11 ‘git-commit-mode’ isn’t used when committing from the command-line
--------------------------------------------------------------------------
-
-The reason for this is that ‘git-commit.el’ has not been loaded yet
-and/or that the server has not been started yet.  These things have
-always already been taken care of when you commit from Magit because in
-order to do so, Magit has to be loaded and doing that involves loading
-‘git-commit’ and starting the server.
-
-   If you want to commit from the command-line, then you have to take
-care of these things yourself.  Your ‘init.el’ file should contain:
-
-     (require 'git-commit)
-     (server-mode)
-
-   Instead of ‘(require ’git-commit)‘ you may also use:
-
-     (load "/path/to/magit-autoloads.el")
-
-   You might want to do that because loading ‘git-commit’ causes large
-parts of Magit to be loaded.
-
-   There are also some variations of ‘(server-mode)’ that you might want
-to try.  Personally I use:
-
-     (use-package server
-       :config (or (server-running-p) (server-mode)))
-
-   Now you can use:
-
-     $ emacs&
-     $ EDITOR=emacsclient git commit
-
-   However you cannot use:
-
-     $ killall emacs
-     $ EDITOR="emacsclient --alternate-editor emacs" git commit
-
-   This will actually end up using ‘emacs’, not ‘emacsclient’.  If you
-do this, then you can still edit the commit message but
-‘git-commit-mode’ won’t be used and you have to exit ‘emacs’ to finish
-the process.
-
-   Tautology ahead.  If you want to be able to use ‘emacsclient’ to
-connect to a running ‘emacs’ instance, even though no ‘emacs’ instance
-is running, then you cannot use ‘emacsclient’ directly.
-
-   Instead you have to create a script that does something like this:
-
-   Try to use ‘emacsclient’ (without using ‘--alternate-editor’).  If
-that succeeds, do nothing else.  Otherwise start ‘emacs &’ (and
-‘init.el’ must call ‘server-start’) and try to use ‘emacsclient’ again.
-
-
-File: magit.info,  Node: Point ends up inside invisible text when jumping to a file-visiting buffer,  Next: I am no longer able to save popup defaults,  Prev: git-commit-mode isn't used when committing from the command-line,  Up: FAQ - Issues and Errors
-
-A.2.12 Point ends up inside invisible text when jumping to a file-visiting buffer
----------------------------------------------------------------------------------
-
-This can happen when you type ‘RET’ on a hunk to visit the respective
-file at the respective position.  One solution to this problem is to use
-‘global-reveal-mode’.  It makes sure that text around point is always
-visible.  If that is too drastic for your taste, then you may instead
-use ‘magit-diff-visit-file-hook’ to reveal the text, possibly using
-‘reveal-post-command’ or for Org buffers ‘org-reveal’.
-
-
-File: magit.info,  Node: I am no longer able to save popup defaults,  Prev: Point ends up inside invisible text when jumping to a file-visiting buffer,  Up: FAQ - Issues and Errors
-
-A.2.13 I am no longer able to save popup defaults
--------------------------------------------------
-
-Magit used to use Magit-Popup to implement the transient popup menus.
-Now it used Transient instead, which is Magit-Popup’s successor.
-
-   In the older Magit-Popup menus, it was possible to save user settings
-(e.g., setting the gpg signing key for commits) by using ‘C-c C-c’ in
-the popup buffer.  This would dismiss the popup, but save the settings
-as the defaults for future popups.
-
-   When switching to Transient menus, this functionality is now
-available via ‘C-x C-s’ instead; the ‘C-x’ prefix has other options as
-well when using Transient, which will be displayed when it is typed.
-See <https://magit.vc/manual/transient/Saving-Values.html#Saving-Values>
-for more details.
-
-
-File: magit.info,  Node: Debugging Tools,  Next: Keystroke Index,  Prev: FAQ,  Up: Top
-
-B Debugging Tools
-*****************
-
-Magit and its dependencies provide a few debugging tools, and we
-appreciate it very much if you use those tools before reporting an
-issue.  Please include all relevant output when reporting an issue.
-
-‘M-x magit-version’
-     This command shows the currently used versions of Magit, Git, and
-     Emacs in the echo area.  Non-interactively this just returns the
-     Magit version.
-
-‘M-x magit-emacs-Q-command’
-     This command shows a debugging shell command in the echo area and
-     adds it to the kill ring.  Paste that command into a shell and run
-     it.
-
-     This shell command starts ‘emacs’ with only ‘magit’ and its
-     dependencies loaded.  Neither your configuration nor other
-     installed packages are loaded.  This makes it easier to determine
-     whether some issue lays with Magit or something else.
-
-     If you run Magit from its Git repository, then you should be able
-     to use ‘make emacs-Q’ instead of the output of this command.
-
-‘M-x magit-toggle-git-debug’
-     This command toggles whether additional git errors are reported.
-
-     Magit basically calls git for one of these two reasons: for
-     side-effects or to do something with its standard output.
-
-     When git is run for side-effects then its output, including error
-     messages, go into the process buffer which is shown when using ‘$’.
-
-     When git’s output is consumed in some way, then it would be too
-     expensive to also insert it into this buffer, but when this option
-     is non-nil and git returns with a non-zero exit status, then at
-     least its standard error is inserted into this buffer.
-
-     This is only intended for debugging purposes.  Do not enable this
-     permanently, that would negatively affect performance.  Also note
-     that just because git exits with a non-zero exit status and prints
-     an error message that usually doesn’t mean that it is an error as
-     far as Magit is concerned, which is another reason we usually hide
-     these error messages.  Whether some error message is relevant in
-     the context of some unexpected behavior has to be judged on a case
-     by case basis.
-
-‘M-x magit-toggle-verbose-refresh’
-     This command toggles whether Magit refreshes buffers verbosely.
-     Enabling this helps figuring out which sections are bottlenecks.
-     The additional output can be found in the ‘*Messages*’ buffer.
-
-‘M-x magit-debug-git-executable’
-     This command displays a buffer containing information about the
-     available and used ‘git’ executable(s), and can be useful when
-     investigating ‘exec-path’ issues.
-
-     Also see *note Git Executable::.
-
-‘M-x with-editor-debug’
-     This command displays a buffer containing information about the
-     available and used ‘emacsclient’ executable(s), and can be useful
-     when investigating why Magit (or rather ‘with-editor’) cannot find
-     an appropriate ‘emacsclient’ executable.
-
-     Also see *note (with-editor)Debugging::.
-
-Please also see *note FAQ::.
-
-
-File: magit.info,  Node: Keystroke Index,  Next: Function and Command Index,  Prev: Debugging Tools,  Up: Top
-
-Appendix C Keystroke Index
-**************************
-
-
-* Menu:
-
-* !:                                     Running Git Manually.
-                                                              (line  13)
-* ! !:                                   Running Git Manually.
-                                                              (line  17)
-* ! a:                                   Running Git Manually.
-                                                              (line  53)
-* ! b:                                   Running Git Manually.
-                                                              (line  56)
-* ! g:                                   Running Git Manually.
-                                                              (line  59)
-* ! k:                                   Running Git Manually.
-                                                              (line  50)
-* ! m:                                   Running Git Manually.
-                                                              (line  62)
-* ! p:                                   Running Git Manually.
-                                                              (line  25)
-* ! s:                                   Running Git Manually.
-                                                              (line  34)
-* ! S:                                   Running Git Manually.
-                                                              (line  38)
-* $:                                     Viewing Git Output.  (line  17)
-* +:                                     Log Buffer.          (line  64)
-* + <1>:                                 Refreshing Diffs.    (line  65)
-* -:                                     Log Buffer.          (line  67)
-* - <1>:                                 Refreshing Diffs.    (line  62)
-* 0:                                     Refreshing Diffs.    (line  68)
-* 1:                                     Section Visibility.  (line  39)
-* 2:                                     Section Visibility.  (line  39)
-* 3:                                     Section Visibility.  (line  39)
-* 4:                                     Section Visibility.  (line  39)
-* 5:                                     Repository List.     (line 115)
-* ::                                     Running Git Manually.
-                                                              (line  25)
-* =:                                     Log Buffer.          (line  59)
-* >:                                     Sparse checkouts.    (line  17)
-* > a:                                   Sparse checkouts.    (line  39)
-* > d:                                   Sparse checkouts.    (line  50)
-* > e:                                   Sparse checkouts.    (line  21)
-* > r:                                   Sparse checkouts.    (line  44)
-* > s:                                   Sparse checkouts.    (line  33)
-* ^:                                     Section Movement.    (line  28)
-* a:                                     Applying.            (line  34)
-* A:                                     Cherry Picking.      (line   9)
-* A A:                                   Cherry Picking.      (line  17)
-* A a:                                   Cherry Picking.      (line  23)
-* A A <1>:                               Cherry Picking.      (line  85)
-* A a <1>:                               Cherry Picking.      (line  91)
-* A d:                                   Cherry Picking.      (line  51)
-* A h:                                   Cherry Picking.      (line  40)
-* A n:                                   Cherry Picking.      (line  62)
-* A s:                                   Cherry Picking.      (line  72)
-* A s <1>:                               Cherry Picking.      (line  88)
-* B:                                     Bisecting.           (line   9)
-* b:                                     Blaming.             (line 115)
-* b <1>:                                 Branch Commands.     (line  13)
-* b <2>:                                 Editing Rebase Sequences.
-                                                              (line  70)
-* B B:                                   Bisecting.           (line  16)
-* B b:                                   Bisecting.           (line  32)
-* b b:                                   Branch Commands.     (line  47)
-* b C:                                   Branch Commands.     (line  31)
-* b c:                                   Branch Commands.     (line  63)
-* B g:                                   Bisecting.           (line  36)
-* B k:                                   Bisecting.           (line  46)
-* b k:                                   Branch Commands.     (line 138)
-* b l:                                   Branch Commands.     (line  69)
-* B m:                                   Bisecting.           (line  40)
-* b m:                                   Branch Commands.     (line 149)
-* b n:                                   Branch Commands.     (line  54)
-* B r:                                   Bisecting.           (line  51)
-* B s:                                   Bisecting.           (line  26)
-* b s:                                   Branch Commands.     (line  91)
-* b S:                                   Branch Commands.     (line 118)
-* b x:                                   Branch Commands.     (line 123)
-* c:                                     Blaming.             (line 141)
-* C:                                     Cloning Repository.  (line  20)
-* c <1>:                                 Initiating a Commit. (line   9)
-* c <2>:                                 Editing Rebase Sequences.
-                                                              (line  59)
-* C >:                                   Cloning Repository.  (line  38)
-* c a:                                   Initiating a Commit. (line  18)
-* c A:                                   Initiating a Commit. (line  59)
-* C b:                                   Cloning Repository.  (line  44)
-* C C:                                   Cloning Repository.  (line  28)
-* c c:                                   Initiating a Commit. (line  14)
-* C d:                                   Cloning Repository.  (line  55)
-* C e:                                   Cloning Repository.  (line  61)
-* c e:                                   Initiating a Commit. (line  21)
-* c f:                                   Initiating a Commit. (line  39)
-* c F:                                   Initiating a Commit. (line  46)
-* C m:                                   Cloning Repository.  (line  48)
-* C s:                                   Cloning Repository.  (line  32)
-* c s:                                   Initiating a Commit. (line  49)
-* c S:                                   Initiating a Commit. (line  56)
-* c w:                                   Initiating a Commit. (line  30)
-* C-<return>:                            Visiting Files and Blobs from a Diff.
-                                                              (line  50)
-* C-<tab>:                               Section Visibility.  (line  14)
-* C-c C-a:                               Commit Pseudo Headers.
-                                                              (line  16)
-* C-c C-b:                               Log Buffer.          (line  20)
-* C-c C-b <1>:                           Refreshing Diffs.    (line  84)
-* C-c C-c:                               Select from Log.     (line  21)
-* C-c C-c <1>:                           Editing Commit Messages.
-                                                              (line  18)
-* C-c C-c <2>:                           Editing Rebase Sequences.
-                                                              (line   7)
-* C-c C-d:                               Refreshing Diffs.    (line  75)
-* C-c C-d <1>:                           Editing Commit Messages.
-                                                              (line  54)
-* C-c C-e:                               Commands Available in Diffs.
-                                                              (line  24)
-* C-c C-f:                               Log Buffer.          (line  23)
-* C-c C-f <1>:                           Refreshing Diffs.    (line  87)
-* C-c C-i:                               Commit Pseudo Headers.
-                                                              (line  13)
-* C-c C-k:                               Select from Log.     (line  26)
-* C-c C-k <1>:                           Editing Commit Messages.
-                                                              (line  22)
-* C-c C-k <2>:                           Editing Rebase Sequences.
-                                                              (line  11)
-* C-c C-n:                               Log Buffer.          (line  26)
-* C-c C-o:                               Commit Pseudo Headers.
-                                                              (line  28)
-* C-c C-p:                               Commit Pseudo Headers.
-                                                              (line  31)
-* C-c C-r:                               Commit Pseudo Headers.
-                                                              (line  19)
-* C-c C-s:                               Commit Pseudo Headers.
-                                                              (line  22)
-* C-c C-t:                               Commands Available in Diffs.
-                                                              (line  15)
-* C-c C-t <1>:                           Commit Pseudo Headers.
-                                                              (line  25)
-* C-c C-w:                               Using the Revision Stack.
-                                                              (line   7)
-* C-c f:                                 Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f , c:                             Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f , k:                             Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f , r:                             Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f , x:                             Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f B:                               Blaming.             (line  28)
-* C-c f b:                               Blaming.             (line  28)
-* C-c f B <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f b <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f B b:                             Blaming.             (line  28)
-* C-c f B e:                             Blaming.             (line  28)
-* C-c f B f:                             Blaming.             (line  28)
-* C-c f B q:                             Blaming.             (line  28)
-* C-c f B r:                             Blaming.             (line  28)
-* C-c f c:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f D:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f d:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f e:                               Blaming.             (line  28)
-* C-c f e <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f f:                               Blaming.             (line  28)
-* C-c f f <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f g:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f G:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f L:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f l:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f M:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f m:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f n:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f p:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f q:                               Blaming.             (line  28)
-* C-c f q <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f r:                               Blaming.             (line  28)
-* C-c f r <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f s:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f s <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f t:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f u:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f u <1>:                           Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f v:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c f V:                               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* C-c g:                                 Transient Commands.  (line  20)
-* C-c M-g:                               Commands for Buffers Visiting Files.
-                                                              (line  58)
-* C-c M-g , c:                           Commands for Buffers Visiting Files.
-                                                              (line  86)
-* C-c M-g , k:                           Commands for Buffers Visiting Files.
-                                                              (line  82)
-* C-c M-g , r:                           Commands for Buffers Visiting Files.
-                                                              (line  78)
-* C-c M-g , x:                           Commands for Buffers Visiting Files.
-                                                              (line  74)
-* C-c M-g B:                             Blaming.             (line  34)
-* C-c M-g b:                             Blaming.             (line  45)
-* C-c M-g B <1>:                         Commands for Buffers Visiting Files.
-                                                              (line 137)
-* C-c M-g B b:                           Blaming.             (line  45)
-* C-c M-g B e:                           Blaming.             (line  76)
-* C-c M-g B f:                           Blaming.             (line  68)
-* C-c M-g B q:                           Blaming.             (line  87)
-* C-c M-g B r:                           Blaming.             (line  60)
-* C-c M-g c:                             Commands for Buffers Visiting Files.
-                                                              (line 176)
-* C-c M-g D:                             Commands for Buffers Visiting Files.
-                                                              (line  91)
-* C-c M-g d:                             Commands for Buffers Visiting Files.
-                                                              (line 101)
-* C-c M-g e:                             Blaming.             (line  76)
-* C-c M-g e <1>:                         Commands for Buffers Visiting Files.
-                                                              (line 182)
-* C-c M-g f:                             Blaming.             (line  68)
-* C-c M-g g:                             Commands for Buffers Visiting Files.
-                                                              (line 166)
-* C-c M-g G:                             Commands for Buffers Visiting Files.
-                                                              (line 172)
-* C-c M-g L:                             Commands for Buffers Visiting Files.
-                                                              (line 109)
-* C-c M-g l:                             Commands for Buffers Visiting Files.
-                                                              (line 119)
-* C-c M-g M:                             Commands for Buffers Visiting Files.
-                                                              (line 132)
-* C-c M-g n:                             Commands for Buffers Visiting Files.
-                                                              (line 153)
-* C-c M-g p:                             Commands for Buffers Visiting Files.
-                                                              (line 149)
-* C-c M-g q:                             Blaming.             (line  87)
-* C-c M-g r:                             Blaming.             (line  60)
-* C-c M-g s:                             Commands for Buffers Visiting Files.
-                                                              (line  63)
-* C-c M-g s <1>:                         Commands for Buffers Visiting Files.
-                                                              (line  63)
-* C-c M-g t:                             Commands for Buffers Visiting Files.
-                                                              (line 129)
-* C-c M-g u:                             Commands for Buffers Visiting Files.
-                                                              (line  69)
-* C-c M-g u <1>:                         Commands for Buffers Visiting Files.
-                                                              (line  69)
-* C-c M-g v:                             Commands for Buffers Visiting Files.
-                                                              (line 156)
-* C-c M-g V:                             Commands for Buffers Visiting Files.
-                                                              (line 160)
-* C-c M-i:                               Commit Pseudo Headers.
-                                                              (line  35)
-* C-c M-s:                               Editing Commit Messages.
-                                                              (line  33)
-* C-c TAB:                               Section Visibility.  (line  14)
-* C-w:                                   Common Commands.     (line  22)
-* C-x g:                                 Status Buffer.       (line  23)
-* C-x M-g:                               Transient Commands.  (line  20)
-* C-x u:                                 Editing Rebase Sequences.
-                                                              (line  77)
-* d:                                     Diffing.             (line  22)
-* D:                                     Refreshing Diffs.    (line  16)
-* d c:                                   Diffing.             (line  63)
-* d d:                                   Diffing.             (line  27)
-* D f:                                   Refreshing Diffs.    (line  45)
-* D F:                                   Refreshing Diffs.    (line  49)
-* D g:                                   Refreshing Diffs.    (line  21)
-* d p:                                   Diffing.             (line  56)
-* d r:                                   Diffing.             (line  30)
-* D r:                                   Refreshing Diffs.    (line  41)
-* d s:                                   Diffing.             (line  48)
-* D s:                                   Refreshing Diffs.    (line  25)
-* d t:                                   Diffing.             (line  67)
-* D t:                                   Refreshing Diffs.    (line  38)
-* d u:                                   Diffing.             (line  53)
-* d w:                                   Diffing.             (line  43)
-* D w:                                   Refreshing Diffs.    (line  31)
-* DEL:                                   Log Buffer.          (line  50)
-* DEL <1>:                               Commands Available in Diffs.
-                                                              (line  56)
-* DEL <2>:                               Blaming.             (line 103)
-* DEL <3>:                               Editing Rebase Sequences.
-                                                              (line  25)
-* e:                                     Ediffing.            (line  10)
-* E:                                     Ediffing.            (line  21)
-* e <1>:                                 Editing Rebase Sequences.
-                                                              (line  46)
-* E c:                                   Ediffing.            (line 100)
-* E i:                                   Ediffing.            (line  94)
-* E m:                                   Ediffing.            (line  33)
-* E M:                                   Ediffing.            (line  48)
-* E r:                                   Ediffing.            (line  25)
-* E s:                                   Ediffing.            (line  87)
-* E t:                                   Ediffing.            (line  79)
-* E u:                                   Ediffing.            (line  91)
-* E w:                                   Ediffing.            (line  97)
-* E z:                                   Ediffing.            (line 103)
-* f:                                     Repository List.     (line 111)
-* f <1>:                                 Editing Rebase Sequences.
-                                                              (line  52)
-* f <2>:                                 Fetching.            (line  10)
-* F:                                     Pulling.             (line  10)
-* f a:                                   Fetching.            (line  45)
-* f C:                                   Branch Commands.     (line  31)
-* F C:                                   Branch Commands.     (line  31)
-* f e:                                   Fetching.            (line  34)
-* F e:                                   Pulling.             (line  28)
-* f m:                                   Fetching.            (line  48)
-* f o:                                   Fetching.            (line  37)
-* f p:                                   Fetching.            (line  15)
-* F p:                                   Pulling.             (line  14)
-* f r:                                   Fetching.            (line  41)
-* f u:                                   Fetching.            (line  22)
-* F u:                                   Pulling.             (line  21)
-* g:                                     Automatic Refreshing of Magit Buffers.
-                                                              (line  26)
-* G:                                     Automatic Refreshing of Magit Buffers.
-                                                              (line  34)
-* H:                                     Section Types and Values.
-                                                              (line  14)
-* I:                                     Creating Repository. (line   7)
-* j:                                     Log Buffer.          (line  31)
-* j <1>:                                 Commands Available in Diffs.
-                                                              (line  43)
-* k:                                     Viewing Git Output.  (line  24)
-* k <1>:                                 Applying.            (line  40)
-* k <2>:                                 Editing Rebase Sequences.
-                                                              (line  56)
-* k <3>:                                 Stashing.            (line 118)
-* l:                                     Logging.             (line  28)
-* L:                                     Refreshing Logs.     (line  12)
-* L <1>:                                 Log Buffer.          (line   7)
-* L <2>:                                 Log Margin.          (line  52)
-* l <1>:                                 Editing Rebase Sequences.
-                                                              (line  94)
-* l a:                                   Logging.             (line  59)
-* l b:                                   Logging.             (line  56)
-* L d:                                   Log Margin.          (line  66)
-* L g:                                   Refreshing Logs.     (line  17)
-* l h:                                   Logging.             (line  38)
-* l H:                                   Reflog.              (line  18)
-* l l:                                   Logging.             (line  33)
-* l L:                                   Logging.             (line  53)
-* L L:                                   Refreshing Logs.     (line  34)
-* L L <1>:                               Log Margin.          (line  60)
-* L l:                                   Log Margin.          (line  63)
-* l o:                                   Logging.             (line  47)
-* l O:                                   Reflog.              (line  15)
-* l r:                                   Reflog.              (line  12)
-* L s:                                   Refreshing Logs.     (line  21)
-* l u:                                   Logging.             (line  41)
-* L w:                                   Refreshing Logs.     (line  27)
-* m:                                     Repository List.     (line 105)
-* m <1>:                                 Merging.             (line  10)
-* M:                                     Remote Commands.     (line  14)
-* m a:                                   Merging.             (line  42)
-* m a <1>:                               Merging.             (line  91)
-* M a:                                   Remote Commands.     (line  48)
-* M C:                                   Remote Commands.     (line  32)
-* m e:                                   Merging.             (line  30)
-* m i:                                   Merging.             (line  54)
-* M k:                                   Remote Commands.     (line  60)
-* m m:                                   Merging.             (line  18)
-* m m <1>:                               Merging.             (line  86)
-* m n:                                   Merging.             (line  36)
-* m p:                                   Merging.             (line  75)
-* M p:                                   Remote Commands.     (line  63)
-* M P:                                   Remote Commands.     (line  67)
-* M r:                                   Remote Commands.     (line  52)
-* m s:                                   Merging.             (line  67)
-* M u:                                   Remote Commands.     (line  56)
-* M-1:                                   Section Visibility.  (line  45)
-* M-2:                                   Section Visibility.  (line  45)
-* M-3:                                   Section Visibility.  (line  45)
-* M-4:                                   Section Visibility.  (line  45)
-* M-<tab>:                               Section Visibility.  (line  29)
-* M-n:                                   Section Movement.    (line  24)
-* M-n <1>:                               Editing Commit Messages.
-                                                              (line  41)
-* M-n <2>:                               Editing Rebase Sequences.
-                                                              (line  40)
-* M-p:                                   Section Movement.    (line  19)
-* M-p <1>:                               Editing Commit Messages.
-                                                              (line  36)
-* M-p <2>:                               Editing Rebase Sequences.
-                                                              (line  37)
-* M-w:                                   Blaming.             (line 134)
-* M-w <1>:                               Common Commands.     (line  39)
-* MM:                                    Editing Rebase Sequences.
-                                                              (line 102)
-* Mt:                                    Editing Rebase Sequences.
-                                                              (line 108)
-* n:                                     Section Movement.    (line  16)
-* n <1>:                                 Blaming.             (line 118)
-* N:                                     Blaming.             (line 121)
-* n <2>:                                 Editing Rebase Sequences.
-                                                              (line  34)
-* n <3>:                                 Minor Mode for Buffers Visiting Blobs.
-                                                              (line  16)
-* o:                                     Submodule Transient. (line   7)
-* O:                                     Subtree.             (line   9)
-* o a:                                   Submodule Transient. (line  20)
-* o d:                                   Submodule Transient. (line  45)
-* O e:                                   Subtree.             (line  37)
-* O e p:                                 Subtree.             (line  48)
-* O e s:                                 Subtree.             (line  52)
-* o f:                                   Submodule Transient. (line  51)
-* O i:                                   Subtree.             (line  13)
-* O i a:                                 Subtree.             (line  24)
-* O i c:                                 Subtree.             (line  28)
-* O i f:                                 Subtree.             (line  34)
-* O i m:                                 Subtree.             (line  31)
-* o l:                                   Submodule Transient. (line  48)
-* o p:                                   Submodule Transient. (line  32)
-* o r:                                   Submodule Transient. (line  26)
-* o s:                                   Submodule Transient. (line  40)
-* o u:                                   Submodule Transient. (line  36)
-* p:                                     Section Movement.    (line  11)
-* p <1>:                                 Blaming.             (line 124)
-* P:                                     Blaming.             (line 127)
-* p <2>:                                 Editing Rebase Sequences.
-                                                              (line  31)
-* P <1>:                                 Pushing.             (line  10)
-* p <3>:                                 Minor Mode for Buffers Visiting Blobs.
-                                                              (line  13)
-* P C:                                   Branch Commands.     (line  31)
-* P e:                                   Pushing.             (line  29)
-* P m:                                   Pushing.             (line  45)
-* P o:                                   Pushing.             (line  33)
-* P p:                                   Pushing.             (line  15)
-* P r:                                   Pushing.             (line  37)
-* P t:                                   Pushing.             (line  52)
-* P T:                                   Pushing.             (line  59)
-* P u:                                   Pushing.             (line  22)
-* q:                                     Quitting Windows.    (line   7)
-* q <1>:                                 Log Buffer.          (line  14)
-* q <2>:                                 Blaming.             (line 130)
-* q <3>:                                 Minor Mode for Buffers Visiting Blobs.
-                                                              (line  19)
-* r:                                     Rebasing.            (line  10)
-* r <1>:                                 Editing Rebase Sequences.
-                                                              (line  43)
-* r a:                                   Rebasing.            (line 111)
-* r e:                                   Rebasing.            (line  42)
-* r e <1>:                               Rebasing.            (line 107)
-* r f:                                   Rebasing.            (line  79)
-* r i:                                   Rebasing.            (line  76)
-* r k:                                   Rebasing.            (line  91)
-* r m:                                   Rebasing.            (line  83)
-* r p:                                   Rebasing.            (line  28)
-* r r:                                   Rebasing.            (line  97)
-* r s:                                   Rebasing.            (line  47)
-* r s <1>:                               Rebasing.            (line 103)
-* r u:                                   Rebasing.            (line  35)
-* r w:                                   Rebasing.            (line  87)
-* RET:                                   Repository List.     (line 102)
-* RET <1>:                               References Buffer.   (line 159)
-* RET <2>:                               Visiting Files and Blobs from a Diff.
-                                                              (line   9)
-* RET <3>:                               Blaming.             (line  91)
-* RET <4>:                               Editing Rebase Sequences.
-                                                              (line  15)
-* s:                                     Staging and Unstaging.
-                                                              (line  29)
-* S:                                     Staging and Unstaging.
-                                                              (line  36)
-* s <1>:                                 Editing Rebase Sequences.
-                                                              (line  49)
-* S-<tab>:                               Section Visibility.  (line  33)
-* SPC:                                   Log Buffer.          (line  41)
-* SPC <1>:                               Commands Available in Diffs.
-                                                              (line  53)
-* SPC <2>:                               Blaming.             (line  94)
-* SPC <3>:                               Editing Rebase Sequences.
-                                                              (line  19)
-* t:                                     Editing Rebase Sequences.
-                                                              (line  97)
-* t <1>:                                 Tagging.             (line   9)
-* T:                                     Notes.               (line   9)
-* T a:                                   Notes.               (line  47)
-* T c:                                   Notes.               (line  43)
-* t k:                                   Tagging.             (line  37)
-* T m:                                   Notes.               (line  35)
-* t p:                                   Tagging.             (line  43)
-* T p:                                   Notes.               (line  28)
-* t r:                                   Tagging.             (line  18)
-* T r:                                   Notes.               (line  21)
-* t t:                                   Tagging.             (line  14)
-* T T:                                   Notes.               (line  14)
-* TAB:                                   Section Visibility.  (line  10)
-* u:                                     Repository List.     (line 108)
-* u <1>:                                 Staging and Unstaging.
-                                                              (line  42)
-* U:                                     Staging and Unstaging.
-                                                              (line  50)
-* v:                                     Applying.            (line  47)
-* V:                                     Reverting.           (line   7)
-* V a:                                   Reverting.           (line  35)
-* V s:                                   Reverting.           (line  32)
-* V V:                                   Reverting.           (line  15)
-* V v:                                   Reverting.           (line  20)
-* V V <1>:                               Reverting.           (line  29)
-* W:                                     Plain Patches.       (line   7)
-* w:                                     Maildir Patches.     (line   9)
-* w a:                                   Plain Patches.       (line  20)
-* w a <1>:                               Maildir Patches.     (line  23)
-* w a <2>:                               Maildir Patches.     (line  38)
-* W c:                                   Plain Patches.       (line  12)
-* w m:                                   Maildir Patches.     (line  20)
-* W s:                                   Plain Patches.       (line  26)
-* w s:                                   Maildir Patches.     (line  34)
-* w w:                                   Maildir Patches.     (line  14)
-* w w <1>:                               Maildir Patches.     (line  31)
-* x:                                     Editing Rebase Sequences.
-                                                              (line  62)
-* x <1>:                                 Resetting.           (line   9)
-* X f:                                   Resetting.           (line  44)
-* X h:                                   Resetting.           (line  24)
-* X i:                                   Resetting.           (line  33)
-* X k:                                   Resetting.           (line  28)
-* X m:                                   Resetting.           (line  15)
-* X s:                                   Resetting.           (line  19)
-* X w:                                   Resetting.           (line  39)
-* X w <1>:                               Wip Modes.           (line  64)
-* Y:                                     Cherries.            (line  18)
-* y:                                     References Buffer.   (line   7)
-* y <1>:                                 Editing Rebase Sequences.
-                                                              (line  74)
-* y c:                                   References Buffer.   (line  25)
-* y o:                                   References Buffer.   (line  30)
-* y r:                                   References Buffer.   (line  34)
-* y y:                                   References Buffer.   (line  21)
-* z:                                     Stashing.            (line   9)
-* Z:                                     Worktree.            (line   9)
-* z a:                                   Stashing.            (line  52)
-* z b:                                   Stashing.            (line 105)
-* z B:                                   Stashing.            (line 110)
-* Z b:                                   Worktree.            (line  13)
-* Z c:                                   Worktree.            (line  16)
-* z f:                                   Stashing.            (line 115)
-* Z g:                                   Worktree.            (line  26)
-* z i:                                   Stashing.            (line  20)
-* z I:                                   Stashing.            (line  42)
-* z k:                                   Stashing.            (line  98)
-* Z k:                                   Worktree.            (line  22)
-* z l:                                   Stashing.            (line 121)
-* Z m:                                   Worktree.            (line  19)
-* z p:                                   Stashing.            (line  74)
-* z v:                                   Stashing.            (line 102)
-* z w:                                   Stashing.            (line  24)
-* z W:                                   Stashing.            (line  46)
-* z x:                                   Stashing.            (line  30)
-* z z:                                   Stashing.            (line  14)
-* z Z:                                   Stashing.            (line  36)
-
-
-File: magit.info,  Node: Function and Command Index,  Next: Variable Index,  Prev: Keystroke Index,  Up: Top
-
-Appendix D Function and Command Index
-*************************************
-
-
-* Menu:
-
-* bug-reference-mode:                    Commit Mode and Hooks.
-                                                              (line  48)
-* forward-line:                          Editing Rebase Sequences.
-                                                              (line  34)
-* git-commit-ack:                        Commit Pseudo Headers.
-                                                              (line  16)
-* git-commit-cc:                         Commit Pseudo Headers.
-                                                              (line  28)
-* git-commit-check-style-conventions:    Commit Message Conventions.
-                                                              (line  33)
-* git-commit-insert-pseudo-header:       Commit Pseudo Headers.
-                                                              (line  13)
-* git-commit-next-message:               Editing Commit Messages.
-                                                              (line  41)
-* git-commit-prev-message:               Editing Commit Messages.
-                                                              (line  36)
-* git-commit-propertize-diff:            Commit Mode and Hooks.
-                                                              (line  40)
-* git-commit-reported:                   Commit Pseudo Headers.
-                                                              (line  31)
-* git-commit-review:                     Commit Pseudo Headers.
-                                                              (line  19)
-* git-commit-save-message:               Editing Commit Messages.
-                                                              (line  33)
-* git-commit-save-message <1>:           Commit Mode and Hooks.
-                                                              (line  26)
-* git-commit-setup-changelog-support:    Commit Mode and Hooks.
-                                                              (line  29)
-* git-commit-signoff:                    Commit Pseudo Headers.
-                                                              (line  22)
-* git-commit-suggested:                  Commit Pseudo Headers.
-                                                              (line  35)
-* git-commit-test:                       Commit Pseudo Headers.
-                                                              (line  25)
-* git-commit-turn-on-auto-fill:          Commit Mode and Hooks.
-                                                              (line  33)
-* git-commit-turn-on-flyspell:           Commit Mode and Hooks.
-                                                              (line  36)
-* git-rebase-backward-line:              Editing Rebase Sequences.
-                                                              (line  31)
-* git-rebase-break:                      Editing Rebase Sequences.
-                                                              (line  70)
-* git-rebase-edit:                       Editing Rebase Sequences.
-                                                              (line  46)
-* git-rebase-exec:                       Editing Rebase Sequences.
-                                                              (line  62)
-* git-rebase-fixup:                      Editing Rebase Sequences.
-                                                              (line  52)
-* git-rebase-insert:                     Editing Rebase Sequences.
-                                                              (line  74)
-* git-rebase-kill-line:                  Editing Rebase Sequences.
-                                                              (line  56)
-* git-rebase-label:                      Editing Rebase Sequences.
-                                                              (line  94)
-* git-rebase-merge:                      Editing Rebase Sequences.
-                                                              (line 102)
-* git-rebase-merge-toggle-editmsg:       Editing Rebase Sequences.
-                                                              (line 108)
-* git-rebase-move-line-down:             Editing Rebase Sequences.
-                                                              (line  40)
-* git-rebase-move-line-up:               Editing Rebase Sequences.
-                                                              (line  37)
-* git-rebase-pick:                       Editing Rebase Sequences.
-                                                              (line  59)
-* git-rebase-reset:                      Editing Rebase Sequences.
-                                                              (line  97)
-* git-rebase-reword:                     Editing Rebase Sequences.
-                                                              (line  43)
-* git-rebase-show-commit:                Editing Rebase Sequences.
-                                                              (line  15)
-* git-rebase-show-or-scroll-down:        Editing Rebase Sequences.
-                                                              (line  25)
-* git-rebase-show-or-scroll-up:          Editing Rebase Sequences.
-                                                              (line  19)
-* git-rebase-squash:                     Editing Rebase Sequences.
-                                                              (line  49)
-* git-rebase-undo:                       Editing Rebase Sequences.
-                                                              (line  77)
-* ido-enter-magit-status:                Status Buffer.       (line  96)
-* magit-add-section-hook:                Section Hooks.       (line  20)
-* magit-after-save-refresh-status:       Automatic Refreshing of Magit Buffers.
-                                                              (line  55)
-* magit-am:                              Maildir Patches.     (line   9)
-* magit-am-abort:                        Maildir Patches.     (line  38)
-* magit-am-apply-maildir:                Maildir Patches.     (line  20)
-* magit-am-apply-patches:                Maildir Patches.     (line  14)
-* magit-am-continue:                     Maildir Patches.     (line  31)
-* magit-am-skip:                         Maildir Patches.     (line  34)
-* magit-apply:                           Applying.            (line  34)
-* magit-bisect:                          Bisecting.           (line   9)
-* magit-bisect-bad:                      Bisecting.           (line  32)
-* magit-bisect-good:                     Bisecting.           (line  36)
-* magit-bisect-mark:                     Bisecting.           (line  40)
-* magit-bisect-reset:                    Bisecting.           (line  51)
-* magit-bisect-run:                      Bisecting.           (line  26)
-* magit-bisect-skip:                     Bisecting.           (line  46)
-* magit-bisect-start:                    Bisecting.           (line  16)
-* magit-blame:                           Blaming.             (line  28)
-* magit-blame <1>:                       Blaming.             (line  34)
-* magit-blame <2>:                       Blaming.             (line 115)
-* magit-blame <3>:                       Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blame <4>:                       Commands for Buffers Visiting Files.
-                                                              (line 137)
-* magit-blame-addition:                  Blaming.             (line  28)
-* magit-blame-addition <1>:              Blaming.             (line  45)
-* magit-blame-additions:                 Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blame-copy-hash:                 Blaming.             (line 134)
-* magit-blame-cycle-style:               Blaming.             (line 141)
-* magit-blame-echo:                      Blaming.             (line  28)
-* magit-blame-echo <1>:                  Blaming.             (line  76)
-* magit-blame-echo <2>:                  Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blame-next-chunk:                Blaming.             (line 118)
-* magit-blame-next-chunk-same-commit:    Blaming.             (line 121)
-* magit-blame-previous-chunk:            Blaming.             (line 124)
-* magit-blame-previous-chunk-same-commit: Blaming.            (line 127)
-* magit-blame-quit:                      Blaming.             (line  28)
-* magit-blame-quit <1>:                  Blaming.             (line  87)
-* magit-blame-quit <2>:                  Blaming.             (line 130)
-* magit-blame-quit <3>:                  Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blame-removal:                   Blaming.             (line  28)
-* magit-blame-removal <1>:               Blaming.             (line  60)
-* magit-blame-removal <2>:               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blame-reverse:                   Blaming.             (line  28)
-* magit-blame-reverse <1>:               Blaming.             (line  68)
-* magit-blame-reverse <2>:               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blob-next:                       Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blob-next <1>:                   Commands for Buffers Visiting Files.
-                                                              (line 153)
-* magit-blob-next <2>:                   Minor Mode for Buffers Visiting Blobs.
-                                                              (line  16)
-* magit-blob-previous:                   Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blob-previous <1>:               Commands for Buffers Visiting Files.
-                                                              (line 149)
-* magit-blob-previous <2>:               Minor Mode for Buffers Visiting Blobs.
-                                                              (line  13)
-* magit-blob-visit-file:                 Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-blob-visit-file <1>:             Commands for Buffers Visiting Files.
-                                                              (line 160)
-* magit-branch:                          Branch Commands.     (line  13)
-* magit-branch-and-checkout:             Branch Commands.     (line  63)
-* magit-branch-checkout:                 Branch Commands.     (line  69)
-* magit-branch-configure:                Branch Commands.     (line  31)
-* magit-branch-create:                   Branch Commands.     (line  54)
-* magit-branch-delete:                   Branch Commands.     (line 138)
-* magit-branch-or-checkout:              Branch Commands.     (line 257)
-* magit-branch-orphan:                   Branch Commands.     (line 253)
-* magit-branch-rename:                   Branch Commands.     (line 149)
-* magit-branch-reset:                    Branch Commands.     (line 123)
-* magit-branch-shelve:                   Auxiliary Branch Commands.
-                                                              (line   9)
-* magit-branch-spinoff:                  Branch Commands.     (line  91)
-* magit-branch-spinout:                  Branch Commands.     (line 118)
-* magit-branch-unshelve:                 Auxiliary Branch Commands.
-                                                              (line  19)
-* magit-builtin-completing-read:         Support for Completion Frameworks.
-                                                              (line  41)
-* magit-bundle:                          Bundle.              (line   8)
-* magit-call-git:                        Calling Git for Effect.
-                                                              (line  28)
-* magit-call-process:                    Calling Git for Effect.
-                                                              (line  31)
-* magit-cancel-section:                  Creating Sections.   (line  69)
-* magit-checkout:                        Branch Commands.     (line  47)
-* magit-cherry:                          Cherries.            (line  18)
-* magit-cherry-apply:                    Cherry Picking.      (line  23)
-* magit-cherry-copy:                     Cherry Picking.      (line  17)
-* magit-cherry-donate:                   Cherry Picking.      (line  51)
-* magit-cherry-harvest:                  Cherry Picking.      (line  40)
-* magit-cherry-pick:                     Cherry Picking.      (line   9)
-* magit-cherry-spinoff:                  Cherry Picking.      (line  72)
-* magit-cherry-spinout:                  Cherry Picking.      (line  62)
-* magit-clone:                           Cloning Repository.  (line  20)
-* magit-clone-bare:                      Cloning Repository.  (line  44)
-* magit-clone-mirror:                    Cloning Repository.  (line  48)
-* magit-clone-regular:                   Cloning Repository.  (line  28)
-* magit-clone-shallow:                   Cloning Repository.  (line  32)
-* magit-clone-shallow-exclude:           Cloning Repository.  (line  61)
-* magit-clone-shallow-since:             Cloning Repository.  (line  55)
-* magit-clone-sparse:                    Cloning Repository.  (line  38)
-* magit-commit:                          Initiating a Commit. (line   9)
-* magit-commit <1>:                      Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-commit <2>:                      Commands for Buffers Visiting Files.
-                                                              (line 176)
-* magit-commit-amend:                    Initiating a Commit. (line  18)
-* magit-commit-augment:                  Initiating a Commit. (line  59)
-* magit-commit-create:                   Initiating a Commit. (line  14)
-* magit-commit-extend:                   Initiating a Commit. (line  21)
-* magit-commit-fixup:                    Initiating a Commit. (line  39)
-* magit-commit-instant-fixup:            Initiating a Commit. (line  46)
-* magit-commit-instant-squash:           Initiating a Commit. (line  56)
-* magit-commit-reword:                   Initiating a Commit. (line  30)
-* magit-commit-squash:                   Initiating a Commit. (line  49)
-* magit-completing-read:                 Support for Completion Frameworks.
-                                                              (line  57)
-* magit-copy-buffer-revision:            Common Commands.     (line  39)
-* magit-copy-section-value:              Common Commands.     (line  22)
-* magit-current-section:                 Section Selection.   (line   6)
-* magit-cycle-margin-style:              Log Margin.          (line  63)
-* magit-debug-git-executable:            Git Executable.      (line  55)
-* magit-debug-git-executable <1>:        Debugging Tools.     (line  57)
-* magit-define-section-jumper:           Creating Sections.   (line  74)
-* magit-describe-section:                Section Types and Values.
-                                                              (line  14)
-* magit-describe-section-briefly:        Section Types and Values.
-                                                              (line  17)
-* magit-describe-section-briefly <1>:    Matching Sections.   (line   7)
-* magit-diff:                            Diffing.             (line  22)
-* magit-diff <1>:                        Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-diff <2>:                        Commands for Buffers Visiting Files.
-                                                              (line  91)
-* magit-diff-buffer-file:                Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-diff-buffer-file <1>:            Commands for Buffers Visiting Files.
-                                                              (line 101)
-* magit-diff-default-context:            Refreshing Diffs.    (line  68)
-* magit-diff-dwim:                       Diffing.             (line  27)
-* magit-diff-edit-hunk-commit:           Commands Available in Diffs.
-                                                              (line  24)
-* magit-diff-flip-revs:                  Refreshing Diffs.    (line  45)
-* magit-diff-less-context:               Refreshing Diffs.    (line  62)
-* magit-diff-more-context:               Refreshing Diffs.    (line  65)
-* magit-diff-paths:                      Diffing.             (line  56)
-* magit-diff-range:                      Diffing.             (line  30)
-* magit-diff-refresh:                    Refreshing Diffs.    (line  16)
-* magit-diff-refresh <1>:                Refreshing Diffs.    (line  21)
-* magit-diff-save-default-arguments:     Refreshing Diffs.    (line  31)
-* magit-diff-scope:                      Matching Sections.   (line 110)
-* magit-diff-set-default-arguments:      Refreshing Diffs.    (line  25)
-* magit-diff-show-or-scroll-down:        Log Buffer.          (line  50)
-* magit-diff-show-or-scroll-down <1>:    Blaming.             (line 103)
-* magit-diff-show-or-scroll-up:          Log Buffer.          (line  41)
-* magit-diff-show-or-scroll-up <1>:      Blaming.             (line  94)
-* magit-diff-staged:                     Diffing.             (line  48)
-* magit-diff-switch-range-type:          Refreshing Diffs.    (line  41)
-* magit-diff-toggle-file-filter:         Refreshing Diffs.    (line  49)
-* magit-diff-toggle-refine-hunk:         Refreshing Diffs.    (line  38)
-* magit-diff-trace-definition:           Commands Available in Diffs.
-                                                              (line  15)
-* magit-diff-type:                       Matching Sections.   (line  88)
-* magit-diff-unstaged:                   Diffing.             (line  53)
-* magit-diff-visit-file:                 Visiting Files and Blobs from a Diff.
-                                                              (line   9)
-* magit-diff-visit-file-other-frame:     Visiting Files and Blobs from a Diff.
-                                                              (line  71)
-* magit-diff-visit-file-other-window:    Visiting Files and Blobs from a Diff.
-                                                              (line  70)
-* magit-diff-visit-file-worktree:        Visiting Files and Blobs from a Diff.
-                                                              (line  50)
-* magit-diff-visit-worktree-file-other-frame: Visiting Files and Blobs from a Diff.
-                                                              (line  73)
-* magit-diff-visit-worktree-file-other-window: Visiting Files and Blobs from a Diff.
-                                                              (line  72)
-* magit-diff-while-committing:           Refreshing Diffs.    (line  75)
-* magit-diff-while-committing <1>:       Editing Commit Messages.
-                                                              (line  54)
-* magit-diff-working-tree:               Diffing.             (line  43)
-* magit-disable-section-inserter:        Per-Repository Configuration.
-                                                              (line  31)
-* magit-discard:                         Applying.            (line  40)
-* magit-dispatch:                        Transient Commands.  (line  20)
-* magit-display-buffer:                  Switching Buffers.   (line   6)
-* magit-display-buffer-fullcolumn-most-v1: Switching Buffers. (line  68)
-* magit-display-buffer-fullframe-status-topleft-v1: Switching Buffers.
-                                                              (line  59)
-* magit-display-buffer-fullframe-status-v1: Switching Buffers.
-                                                              (line  54)
-* magit-display-buffer-same-window-except-diff-v1: Switching Buffers.
-                                                              (line  49)
-* magit-display-buffer-traditional:      Switching Buffers.   (line  42)
-* magit-display-repository-buffer:       Common Commands.     (line   9)
-* magit-display-repository-buffer <1>:   Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-display-repository-buffer <2>:   Commands for Buffers Visiting Files.
-                                                              (line 172)
-* magit-ediff:                           Ediffing.            (line  21)
-* magit-ediff-compare:                   Ediffing.            (line  25)
-* magit-ediff-dwim:                      Ediffing.            (line  10)
-* magit-ediff-resolve-all:               Ediffing.            (line  48)
-* magit-ediff-resolve-rest:              Ediffing.            (line  33)
-* magit-ediff-show-commit:               Ediffing.            (line 100)
-* magit-ediff-show-staged:               Ediffing.            (line  94)
-* magit-ediff-show-stash:                Ediffing.            (line 103)
-* magit-ediff-show-unstaged:             Ediffing.            (line  91)
-* magit-ediff-show-working-tree:         Ediffing.            (line  97)
-* magit-ediff-stage:                     Ediffing.            (line  87)
-* magit-edit-line-commit:                Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-edit-line-commit <1>:            Commands for Buffers Visiting Files.
-                                                              (line 182)
-* magit-emacs-Q-command:                 Debugging Tools.     (line  16)
-* magit-fetch:                           Fetching.            (line  10)
-* magit-fetch-all:                       Fetching.            (line  45)
-* magit-fetch-branch:                    Fetching.            (line  37)
-* magit-fetch-from-pushremote:           Fetching.            (line  15)
-* magit-fetch-from-upstream:             Fetching.            (line  22)
-* magit-fetch-modules:                   Fetching.            (line  48)
-* magit-fetch-modules <1>:               Submodule Transient. (line  51)
-* magit-fetch-other:                     Fetching.            (line  34)
-* magit-fetch-refspec:                   Fetching.            (line  41)
-* magit-file-checkout:                   Resetting.           (line  44)
-* magit-file-checkout <1>:               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-file-checkout <2>:               Commands for Buffers Visiting Files.
-                                                              (line  86)
-* magit-file-delete:                     Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-file-delete <1>:                 Commands for Buffers Visiting Files.
-                                                              (line  82)
-* magit-file-dispatch:                   Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-file-dispatch <1>:               Commands for Buffers Visiting Files.
-                                                              (line  58)
-* magit-file-rename:                     Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-file-rename <1>:                 Commands for Buffers Visiting Files.
-                                                              (line  78)
-* magit-file-untrack:                    Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-file-untrack <1>:                Commands for Buffers Visiting Files.
-                                                              (line  74)
-* magit-find-file:                       General-Purpose Visit Commands.
-                                                              (line   9)
-* magit-find-file <1>:                   Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-find-file <2>:                   Commands for Buffers Visiting Files.
-                                                              (line 156)
-* magit-find-file-other-frame:           General-Purpose Visit Commands.
-                                                              (line  19)
-* magit-find-file-other-window:          General-Purpose Visit Commands.
-                                                              (line  14)
-* magit-generate-buffer-name-default-function: Naming Buffers.
-                                                              (line  16)
-* magit-get-section:                     Matching Sections.   (line  14)
-* magit-git:                             Calling Git for Effect.
-                                                              (line  46)
-* magit-git-command:                     Running Git Manually.
-                                                              (line  25)
-* magit-git-command-topdir:              Running Git Manually.
-                                                              (line  17)
-* magit-git-exit-code:                   Getting a Value from Git.
-                                                              (line  10)
-* magit-git-failure:                     Getting a Value from Git.
-                                                              (line  17)
-* magit-git-false:                       Getting a Value from Git.
-                                                              (line  25)
-* magit-git-insert:                      Getting a Value from Git.
-                                                              (line  29)
-* magit-git-items:                       Getting a Value from Git.
-                                                              (line  41)
-* magit-git-lines:                       Getting a Value from Git.
-                                                              (line  37)
-* magit-git-mergetool:                   Running Git Manually.
-                                                              (line  62)
-* magit-git-mergetool <1>:               Ediffing.            (line  79)
-* magit-git-str:                         Getting a Value from Git.
-                                                              (line  75)
-* magit-git-string:                      Getting a Value from Git.
-                                                              (line  32)
-* magit-git-success:                     Getting a Value from Git.
-                                                              (line  13)
-* magit-git-true:                        Getting a Value from Git.
-                                                              (line  21)
-* magit-git-wash:                        Calling Git for Effect.
-                                                              (line  50)
-* magit-go-backward:                     Log Buffer.          (line  20)
-* magit-go-backward <1>:                 Refreshing Diffs.    (line  84)
-* magit-go-forward:                      Log Buffer.          (line  23)
-* magit-go-forward <1>:                  Refreshing Diffs.    (line  87)
-* magit-hunk-set-window-start:           Section Movement.    (line  45)
-* magit-ido-completing-read:             Support for Completion Frameworks.
-                                                              (line  46)
-* magit-init:                            Creating Repository. (line   7)
-* magit-insert-am-sequence:              Status Sections.     (line  25)
-* magit-insert-assumed-unchanged-files:  Status Sections.     (line  98)
-* magit-insert-bisect-log:               Status Sections.     (line  39)
-* magit-insert-bisect-output:            Status Sections.     (line  33)
-* magit-insert-bisect-rest:              Status Sections.     (line  36)
-* magit-insert-diff-filter-header:       Status Header Sections.
-                                                              (line  35)
-* magit-insert-error-header:             Status Header Sections.
-                                                              (line  26)
-* magit-insert-head-branch-header:       Status Header Sections.
-                                                              (line  38)
-* magit-insert-heading:                  Creating Sections.   (line  41)
-* magit-insert-ignored-files:            Status Sections.     (line  83)
-* magit-insert-local-branches:           References Sections. (line  16)
-* magit-insert-merge-log:                Status Sections.     (line  17)
-* magit-insert-modules:                  Status Module Sections.
-                                                              (line  12)
-* magit-insert-modules-overview:         Status Module Sections.
-                                                              (line  30)
-* magit-insert-modules-unpulled-from-pushremote: Status Module Sections.
-                                                              (line  45)
-* magit-insert-modules-unpulled-from-upstream: Status Module Sections.
-                                                              (line  40)
-* magit-insert-modules-unpushed-to-pushremote: Status Module Sections.
-                                                              (line  55)
-* magit-insert-modules-unpushed-to-upstream: Status Module Sections.
-                                                              (line  50)
-* magit-insert-push-branch-header:       Status Header Sections.
-                                                              (line  45)
-* magit-insert-rebase-sequence:          Status Sections.     (line  21)
-* magit-insert-recent-commits:           Status Sections.     (line 110)
-* magit-insert-remote-branches:          References Sections. (line  19)
-* magit-insert-remote-header:            Status Header Sections.
-                                                              (line  58)
-* magit-insert-repo-header:              Status Header Sections.
-                                                              (line  55)
-* magit-insert-section:                  Creating Sections.   (line   6)
-* magit-insert-sequencer-sequence:       Status Sections.     (line  29)
-* magit-insert-skip-worktree-files:      Status Sections.     (line  92)
-* magit-insert-staged-changes:           Status Sections.     (line  53)
-* magit-insert-stashes:                  Status Sections.     (line  56)
-* magit-insert-status-headers:           Status Header Sections.
-                                                              (line  12)
-* magit-insert-tags:                     References Sections. (line  22)
-* magit-insert-tags-header:              Status Header Sections.
-                                                              (line  49)
-* magit-insert-tracked-files:            Status Sections.     (line  80)
-* magit-insert-unpulled-cherries:        Status Sections.     (line 119)
-* magit-insert-unpulled-from-pushremote: Status Sections.     (line  66)
-* magit-insert-unpulled-from-upstream:   Status Sections.     (line  62)
-* magit-insert-unpulled-or-recent-commits: Status Sections.   (line 104)
-* magit-insert-unpushed-cherries:        Status Sections.     (line 125)
-* magit-insert-unpushed-to-pushremote:   Status Sections.     (line  74)
-* magit-insert-unpushed-to-upstream:     Status Sections.     (line  70)
-* magit-insert-unstaged-changes:         Status Sections.     (line  50)
-* magit-insert-untracked-files:          Status Sections.     (line  42)
-* magit-insert-upstream-branch-header:   Status Header Sections.
-                                                              (line  41)
-* magit-insert-user-header:              Status Header Sections.
-                                                              (line  65)
-* magit-jump-to-diffstat-or-diff:        Commands Available in Diffs.
-                                                              (line  43)
-* magit-kill-this-buffer:                Minor Mode for Buffers Visiting Blobs.
-                                                              (line  19)
-* magit-list-repositories:               Repository List.     (line   6)
-* magit-list-submodules:                 Listing Submodules.  (line  13)
-* magit-list-submodules <1>:             Submodule Transient. (line  48)
-* magit-log:                             Logging.             (line  28)
-* magit-log <1>:                         Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-log <2>:                         Commands for Buffers Visiting Files.
-                                                              (line 109)
-* magit-log-all:                         Logging.             (line  59)
-* magit-log-all-branches:                Logging.             (line  56)
-* magit-log-branches:                    Logging.             (line  53)
-* magit-log-buffer-file:                 Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-log-buffer-file <1>:             Commands for Buffers Visiting Files.
-                                                              (line 119)
-* magit-log-bury-buffer:                 Log Buffer.          (line  14)
-* magit-log-current:                     Logging.             (line  33)
-* magit-log-double-commit-limit:         Log Buffer.          (line  64)
-* magit-log-half-commit-limit:           Log Buffer.          (line  67)
-* magit-log-head:                        Logging.             (line  38)
-* magit-log-maybe-show-more-commits:     Section Movement.    (line  58)
-* magit-log-maybe-update-blob-buffer:    Section Movement.    (line  72)
-* magit-log-maybe-update-revision-buffer: Section Movement.   (line  65)
-* magit-log-merged:                      Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-log-merged <1>:                  Commands for Buffers Visiting Files.
-                                                              (line 132)
-* magit-log-move-to-parent:              Log Buffer.          (line  26)
-* magit-log-move-to-revision:            Log Buffer.          (line  31)
-* magit-log-other:                       Logging.             (line  47)
-* magit-log-refresh:                     Refreshing Logs.     (line  12)
-* magit-log-refresh <1>:                 Refreshing Logs.     (line  17)
-* magit-log-refresh <2>:                 Log Buffer.          (line   7)
-* magit-log-related:                     Logging.             (line  41)
-* magit-log-save-default-arguments:      Refreshing Logs.     (line  27)
-* magit-log-select-pick:                 Select from Log.     (line  21)
-* magit-log-select-quit:                 Select from Log.     (line  26)
-* magit-log-set-default-arguments:       Refreshing Logs.     (line  21)
-* magit-log-toggle-commit-limit:         Log Buffer.          (line  59)
-* magit-log-trace-definition:            Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-log-trace-definition <1>:        Commands for Buffers Visiting Files.
-                                                              (line 129)
-* magit-margin-settings:                 Log Margin.          (line  52)
-* magit-maybe-set-dedicated:             Switching Buffers.   (line  89)
-* magit-merge:                           Merging.             (line  10)
-* magit-merge <1>:                       Merging.             (line  86)
-* magit-merge-abort:                     Merging.             (line  91)
-* magit-merge-absorb:                    Merging.             (line  42)
-* magit-merge-editmsg:                   Merging.             (line  30)
-* magit-merge-into:                      Merging.             (line  54)
-* magit-merge-nocommit:                  Merging.             (line  36)
-* magit-merge-plain:                     Merging.             (line  18)
-* magit-merge-preview:                   Merging.             (line  75)
-* magit-merge-squash:                    Merging.             (line  67)
-* magit-mode-bury-buffer:                Quitting Windows.    (line   7)
-* magit-mode-display-buffer:             Refreshing Buffers.  (line  32)
-* magit-mode-quit-window:                Quitting Windows.    (line  34)
-* magit-mode-setup:                      Refreshing Buffers.  (line  17)
-* magit-notes:                           Notes.               (line   9)
-* magit-notes-edit:                      Notes.               (line  14)
-* magit-notes-merge:                     Notes.               (line  35)
-* magit-notes-merge-abort:               Notes.               (line  47)
-* magit-notes-merge-commit:              Notes.               (line  43)
-* magit-notes-prune:                     Notes.               (line  28)
-* magit-notes-remove:                    Notes.               (line  21)
-* magit-patch:                           Plain Patches.       (line   7)
-* magit-patch-apply:                     Plain Patches.       (line  20)
-* magit-patch-apply <1>:                 Maildir Patches.     (line  23)
-* magit-patch-create:                    Plain Patches.       (line  12)
-* magit-patch-save:                      Plain Patches.       (line  26)
-* magit-pop-revision-stack:              Using the Revision Stack.
-                                                              (line   7)
-* magit-process:                         Viewing Git Output.  (line  17)
-* magit-process-file:                    Getting a Value from Git.
-                                                              (line  57)
-* magit-process-git:                     Getting a Value from Git.
-                                                              (line  50)
-* magit-process-kill:                    Viewing Git Output.  (line  24)
-* magit-pull:                            Pulling.             (line  10)
-* magit-pull-branch:                     Pulling.             (line  28)
-* magit-pull-from-pushremote:            Pulling.             (line  14)
-* magit-pull-from-upstream:              Pulling.             (line  21)
-* magit-push:                            Pushing.             (line  10)
-* magit-push-current:                    Pushing.             (line  29)
-* magit-push-current-to-pushremote:      Pushing.             (line  15)
-* magit-push-current-to-upstream:        Pushing.             (line  22)
-* magit-push-implicitly:                 Pushing.             (line  74)
-* magit-push-matching:                   Pushing.             (line  45)
-* magit-push-other:                      Pushing.             (line  33)
-* magit-push-refspecs:                   Pushing.             (line  37)
-* magit-push-tag:                        Pushing.             (line  59)
-* magit-push-tags:                       Pushing.             (line  52)
-* magit-push-to-remote:                  Pushing.             (line  91)
-* magit-rebase:                          Rebasing.            (line  10)
-* magit-rebase-abort:                    Rebasing.            (line 111)
-* magit-rebase-autosquash:               Rebasing.            (line  79)
-* magit-rebase-branch:                   Rebasing.            (line  42)
-* magit-rebase-continue:                 Rebasing.            (line  97)
-* magit-rebase-edit:                     Rebasing.            (line 107)
-* magit-rebase-edit-commit:              Rebasing.            (line  83)
-* magit-rebase-interactive:              Rebasing.            (line  76)
-* magit-rebase-onto-pushremote:          Rebasing.            (line  28)
-* magit-rebase-onto-upstream:            Rebasing.            (line  35)
-* magit-rebase-remove-commit:            Rebasing.            (line  91)
-* magit-rebase-reword-commit:            Rebasing.            (line  87)
-* magit-rebase-skip:                     Rebasing.            (line 103)
-* magit-rebase-subset:                   Rebasing.            (line  47)
-* magit-reflog-current:                  Reflog.              (line  12)
-* magit-reflog-head:                     Reflog.              (line  18)
-* magit-reflog-other:                    Reflog.              (line  15)
-* magit-refresh:                         Automatic Refreshing of Magit Buffers.
-                                                              (line  26)
-* magit-refresh-all:                     Automatic Refreshing of Magit Buffers.
-                                                              (line  34)
-* magit-refs-set-show-commit-count:      References Buffer.   (line  34)
-* magit-region-sections:                 Section Selection.   (line   9)
-* magit-region-values:                   Section Selection.   (line  35)
-* magit-remote:                          Remote Commands.     (line  14)
-* magit-remote-add:                      Remote Commands.     (line  48)
-* magit-remote-configure:                Remote Commands.     (line  32)
-* magit-remote-prune:                    Remote Commands.     (line  63)
-* magit-remote-prune-refspecs:           Remote Commands.     (line  67)
-* magit-remote-remove:                   Remote Commands.     (line  60)
-* magit-remote-rename:                   Remote Commands.     (line  52)
-* magit-remote-set-url:                  Remote Commands.     (line  56)
-* magit-repolist-column-branch:          Repository List.     (line  51)
-* magit-repolist-column-branches:        Repository List.     (line  58)
-* magit-repolist-column-flag:            Repository List.     (line  64)
-* magit-repolist-column-flags:           Repository List.     (line  76)
-* magit-repolist-column-ident:           Repository List.     (line  40)
-* magit-repolist-column-path:            Repository List.     (line  44)
-* magit-repolist-column-stashes:         Repository List.     (line  61)
-* magit-repolist-column-unpulled-from-pushremote: Repository List.
-                                                              (line  87)
-* magit-repolist-column-unpulled-from-upstream: Repository List.
-                                                              (line  83)
-* magit-repolist-column-unpushed-to-pushremote: Repository List.
-                                                              (line  95)
-* magit-repolist-column-unpushed-to-upstream: Repository List.
-                                                              (line  91)
-* magit-repolist-column-upstream:        Repository List.     (line  54)
-* magit-repolist-column-version:         Repository List.     (line  47)
-* magit-repolist-fetch:                  Repository List.     (line 111)
-* magit-repolist-find-file-other-frame:  Repository List.     (line 115)
-* magit-repolist-mark:                   Repository List.     (line 105)
-* magit-repolist-status:                 Repository List.     (line 102)
-* magit-repolist-unmark:                 Repository List.     (line 108)
-* magit-reset-hard:                      Resetting.           (line  24)
-* magit-reset-index:                     Staging and Unstaging.
-                                                              (line  78)
-* magit-reset-index <1>:                 Resetting.           (line  33)
-* magit-reset-keep:                      Resetting.           (line  28)
-* magit-reset-mixed:                     Resetting.           (line  15)
-* magit-reset-quickly:                   Resetting.           (line   9)
-* magit-reset-soft:                      Resetting.           (line  19)
-* magit-reset-worktree:                  Resetting.           (line  39)
-* magit-reset-worktree <1>:              Wip Modes.           (line  64)
-* magit-restore-window-configuration:    Quitting Windows.    (line  24)
-* magit-reverse:                         Applying.            (line  47)
-* magit-reverse-in-index:                Staging and Unstaging.
-                                                              (line  58)
-* magit-revert:                          Reverting.           (line   7)
-* magit-revert-and-commit:               Reverting.           (line  15)
-* magit-revert-no-commit:                Reverting.           (line  20)
-* magit-run:                             Running Git Manually.
-                                                              (line  13)
-* magit-run-git:                         Calling Git for Effect.
-                                                              (line  34)
-* magit-run-git-async:                   Calling Git for Effect.
-                                                              (line  59)
-* magit-run-git-gui:                     Running Git Manually.
-                                                              (line  59)
-* magit-run-git-with-editor:             Calling Git for Effect.
-                                                              (line  71)
-* magit-run-git-with-input:              Calling Git for Effect.
-                                                              (line  37)
-* magit-run-gitk:                        Running Git Manually.
-                                                              (line  50)
-* magit-run-gitk-all:                    Running Git Manually.
-                                                              (line  53)
-* magit-run-gitk-branches:               Running Git Manually.
-                                                              (line  56)
-* magit-save-window-configuration:       Switching Buffers.   (line  80)
-* magit-section-backward:                Section Movement.    (line  11)
-* magit-section-backward-siblings:       Section Movement.    (line  19)
-* magit-section-case:                    Matching Sections.   (line  66)
-* magit-section-cycle:                   Section Visibility.  (line  14)
-* magit-section-cycle-diffs:             Section Visibility.  (line  29)
-* magit-section-cycle-global:            Section Visibility.  (line  33)
-* magit-section-forward:                 Section Movement.    (line  16)
-* magit-section-forward-siblings:        Section Movement.    (line  24)
-* magit-section-hide:                    Section Visibility.  (line  55)
-* magit-section-hide-children:           Section Visibility.  (line  67)
-* magit-section-ident:                   Matching Sections.   (line  10)
-* magit-section-match:                   Matching Sections.   (line  18)
-* magit-section-set-window-start:        Section Movement.    (line  52)
-* magit-section-show:                    Section Visibility.  (line  52)
-* magit-section-show-children:           Section Visibility.  (line  62)
-* magit-section-show-headings:           Section Visibility.  (line  58)
-* magit-section-show-level-1:            Section Visibility.  (line  39)
-* magit-section-show-level-1-all:        Section Visibility.  (line  45)
-* magit-section-show-level-2:            Section Visibility.  (line  39)
-* magit-section-show-level-2-all:        Section Visibility.  (line  45)
-* magit-section-show-level-3:            Section Visibility.  (line  39)
-* magit-section-show-level-3-all:        Section Visibility.  (line  45)
-* magit-section-show-level-4:            Section Visibility.  (line  39)
-* magit-section-show-level-4-all:        Section Visibility.  (line  45)
-* magit-section-toggle:                  Section Visibility.  (line  10)
-* magit-section-toggle-children:         Section Visibility.  (line  70)
-* magit-section-up:                      Section Movement.    (line  28)
-* magit-section-value-if:                Matching Sections.   (line  57)
-* magit-sequence-abort:                  Cherry Picking.      (line  91)
-* magit-sequence-abort <1>:              Reverting.           (line  35)
-* magit-sequence-continue:               Cherry Picking.      (line  85)
-* magit-sequence-continue <1>:           Reverting.           (line  29)
-* magit-sequence-skip:                   Cherry Picking.      (line  88)
-* magit-sequence-skip <1>:               Reverting.           (line  32)
-* magit-shell-command:                   Running Git Manually.
-                                                              (line  38)
-* magit-shell-command-topdir:            Running Git Manually.
-                                                              (line  34)
-* magit-show-commit:                     Diffing.             (line  63)
-* magit-show-commit <1>:                 Blaming.             (line  91)
-* magit-show-refs:                       References Buffer.   (line   7)
-* magit-show-refs-current:               References Buffer.   (line  25)
-* magit-show-refs-head:                  References Buffer.   (line  21)
-* magit-show-refs-other:                 References Buffer.   (line  30)
-* magit-snapshot-both:                   Stashing.            (line  36)
-* magit-snapshot-index:                  Stashing.            (line  42)
-* magit-snapshot-worktree:               Stashing.            (line  46)
-* magit-sparse-checkout:                 Sparse checkouts.    (line  17)
-* magit-sparse-checkout-add:             Sparse checkouts.    (line  39)
-* magit-sparse-checkout-disable:         Sparse checkouts.    (line  50)
-* magit-sparse-checkout-enable:          Sparse checkouts.    (line  21)
-* magit-sparse-checkout-reapply:         Sparse checkouts.    (line  44)
-* magit-sparse-checkout-set:             Sparse checkouts.    (line  33)
-* magit-stage:                           Staging and Unstaging.
-                                                              (line  29)
-* magit-stage-buffer-file:               Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-stage-buffer-file <1>:           Commands for Buffers Visiting Files.
-                                                              (line  63)
-* magit-stage-file:                      Staging from File-Visiting Buffers.
-                                                              (line  11)
-* magit-stage-file <1>:                  Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-stage-file <2>:                  Commands for Buffers Visiting Files.
-                                                              (line  63)
-* magit-stage-modified:                  Staging and Unstaging.
-                                                              (line  36)
-* magit-start-git:                       Calling Git for Effect.
-                                                              (line  82)
-* magit-start-process:                   Calling Git for Effect.
-                                                              (line 100)
-* magit-stash:                           Stashing.            (line   9)
-* magit-stash-apply:                     Stashing.            (line  52)
-* magit-stash-both:                      Stashing.            (line  14)
-* magit-stash-branch:                    Stashing.            (line 105)
-* magit-stash-branch-here:               Stashing.            (line 110)
-* magit-stash-clear:                     Stashing.            (line 118)
-* magit-stash-drop:                      Stashing.            (line  98)
-* magit-stash-format-patch:              Stashing.            (line 115)
-* magit-stash-index:                     Stashing.            (line  20)
-* magit-stash-keep-index:                Stashing.            (line  30)
-* magit-stash-list:                      Stashing.            (line 121)
-* magit-stash-pop:                       Stashing.            (line  74)
-* magit-stash-show:                      Diffing.             (line  67)
-* magit-stash-show <1>:                  Stashing.            (line 102)
-* magit-stash-worktree:                  Stashing.            (line  24)
-* magit-stashes-maybe-update-stash-buffer: Section Movement.  (line  92)
-* magit-status:                          Status Buffer.       (line  23)
-* magit-status-here:                     Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-status-here <1>:                 Commands for Buffers Visiting Files.
-                                                              (line 166)
-* magit-status-maybe-update-blob-buffer: Section Movement.    (line  87)
-* magit-status-maybe-update-revision-buffer: Section Movement.
-                                                              (line  77)
-* magit-status-maybe-update-stash-buffer: Section Movement.   (line  82)
-* magit-status-quick:                    Status Buffer.       (line  70)
-* magit-submodule:                       Submodule Transient. (line   7)
-* magit-submodule-add:                   Submodule Transient. (line  20)
-* magit-submodule-populate:              Submodule Transient. (line  32)
-* magit-submodule-register:              Submodule Transient. (line  26)
-* magit-submodule-synchronize:           Submodule Transient. (line  40)
-* magit-submodule-unpopulate:            Submodule Transient. (line  45)
-* magit-submodule-update:                Submodule Transient. (line  36)
-* magit-subtree:                         Subtree.             (line   9)
-* magit-subtree-add:                     Subtree.             (line  24)
-* magit-subtree-add-commit:              Subtree.             (line  28)
-* magit-subtree-export:                  Subtree.             (line  37)
-* magit-subtree-import:                  Subtree.             (line  13)
-* magit-subtree-merge:                   Subtree.             (line  31)
-* magit-subtree-pull:                    Subtree.             (line  34)
-* magit-subtree-push:                    Subtree.             (line  48)
-* magit-subtree-split:                   Subtree.             (line  52)
-* magit-switch-to-repository-buffer:     Common Commands.     (line   6)
-* magit-switch-to-repository-buffer-other-frame: Common Commands.
-                                                              (line   8)
-* magit-switch-to-repository-buffer-other-window: Common Commands.
-                                                              (line   7)
-* magit-tag:                             Tagging.             (line   9)
-* magit-tag-create:                      Tagging.             (line  14)
-* magit-tag-delete:                      Tagging.             (line  37)
-* magit-tag-prune:                       Tagging.             (line  43)
-* magit-tag-release:                     Tagging.             (line  18)
-* magit-toggle-buffer-lock:              Modes and Buffers.   (line  18)
-* magit-toggle-git-debug:                Debugging Tools.     (line  29)
-* magit-toggle-margin:                   Refreshing Logs.     (line  34)
-* magit-toggle-margin <1>:               Log Margin.          (line  60)
-* magit-toggle-margin-details:           Log Margin.          (line  66)
-* magit-toggle-verbose-refresh:          Debugging Tools.     (line  52)
-* magit-unstage:                         Staging and Unstaging.
-                                                              (line  42)
-* magit-unstage-all:                     Staging and Unstaging.
-                                                              (line  50)
-* magit-unstage-buffer-file:             Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-unstage-buffer-file <1>:         Commands for Buffers Visiting Files.
-                                                              (line  69)
-* magit-unstage-file:                    Staging from File-Visiting Buffers.
-                                                              (line  18)
-* magit-unstage-file <1>:                Commands for Buffers Visiting Files.
-                                                              (line  52)
-* magit-unstage-file <2>:                Commands for Buffers Visiting Files.
-                                                              (line  69)
-* magit-version:                         Git Executable.      (line  59)
-* magit-version <1>:                     Debugging Tools.     (line  11)
-* magit-visit-ref:                       References Buffer.   (line 159)
-* magit-wip-commit:                      Wip Modes.           (line  85)
-* magit-wip-log:                         Wip Modes.           (line  47)
-* magit-wip-log-current:                 Wip Modes.           (line  55)
-* magit-worktree:                        Worktree.            (line   9)
-* magit-worktree-branch:                 Worktree.            (line  16)
-* magit-worktree-checkout:               Worktree.            (line  13)
-* magit-worktree-delete:                 Worktree.            (line  22)
-* magit-worktree-move:                   Worktree.            (line  19)
-* magit-worktree-status:                 Worktree.            (line  26)
-* scroll-down:                           Commands Available in Diffs.
-                                                              (line  56)
-* scroll-up:                             Commands Available in Diffs.
-                                                              (line  53)
-* with-editor-cancel:                    Editing Commit Messages.
-                                                              (line  22)
-* with-editor-cancel <1>:                Editing Rebase Sequences.
-                                                              (line  11)
-* with-editor-debug:                     Debugging Tools.     (line  64)
-* with-editor-finish:                    Editing Commit Messages.
-                                                              (line  18)
-* with-editor-finish <1>:                Editing Rebase Sequences.
-                                                              (line   7)
-* with-editor-usage-message:             Commit Mode and Hooks.
-                                                              (line  51)
-
-
-File: magit.info,  Node: Variable Index,  Prev: Function and Command Index,  Up: Top
-
-Appendix E Variable Index
-*************************
-
-
-* Menu:
-
-* auto-revert-buffer-list-filter:        Automatic Reverting of File-Visiting Buffers.
-                                                              (line  73)
-* auto-revert-interval:                  Automatic Reverting of File-Visiting Buffers.
-                                                              (line  69)
-* auto-revert-mode:                      Automatic Reverting of File-Visiting Buffers.
-                                                              (line  57)
-* auto-revert-stop-on-user-input:        Automatic Reverting of File-Visiting Buffers.
-                                                              (line  65)
-* auto-revert-use-notify:                Automatic Reverting of File-Visiting Buffers.
-                                                              (line  46)
-* auto-revert-verbose:                   Automatic Reverting of File-Visiting Buffers.
-                                                              (line  94)
-* branch.autoSetupMerge:                 Branch Git Variables.
-                                                              (line  71)
-* branch.autoSetupRebase:                Branch Git Variables.
-                                                              (line  85)
-* branch.NAME.description:               Branch Git Variables.
-                                                              (line  42)
-* branch.NAME.merge:                     Branch Git Variables.
-                                                              (line  10)
-* branch.NAME.pushRemote:                Branch Git Variables.
-                                                              (line  29)
-* branch.NAME.rebase:                    Branch Git Variables.
-                                                              (line  20)
-* branch.NAME.remote:                    Branch Git Variables.
-                                                              (line  15)
-* core.notesRef:                         Notes.               (line  53)
-* git-commit-finish-query-functions:     Commit Message Conventions.
-                                                              (line  18)
-* git-commit-known-pseudo-headers:       Commit Pseudo Headers.
-                                                              (line   9)
-* git-commit-major-mode:                 Commit Mode and Hooks.
-                                                              (line  12)
-* git-commit-post-finish-hook:           Commit Mode and Hooks.
-                                                              (line  54)
-* git-commit-setup-hook:                 Commit Mode and Hooks.
-                                                              (line  21)
-* git-commit-style-convention-checks:    Commit Message Conventions.
-                                                              (line  38)
-* git-commit-summary-max-length:         Commit Message Conventions.
-                                                              (line  13)
-* git-rebase-auto-advance:               Editing Rebase Sequences.
-                                                              (line  80)
-* git-rebase-confirm-cancel:             Editing Rebase Sequences.
-                                                              (line  86)
-* git-rebase-show-instructions:          Editing Rebase Sequences.
-                                                              (line  83)
-* global-auto-revert-mode:               Automatic Reverting of File-Visiting Buffers.
-                                                              (line  21)
-* magit-auto-revert-immediately:         Automatic Reverting of File-Visiting Buffers.
-                                                              (line  30)
-* magit-auto-revert-mode:                Automatic Reverting of File-Visiting Buffers.
-                                                              (line  17)
-* magit-auto-revert-tracked-only:        Automatic Reverting of File-Visiting Buffers.
-                                                              (line  51)
-* magit-bisect-show-graph:               Bisecting.           (line  57)
-* magit-blame-disable-modes:             Blaming.             (line 165)
-* magit-blame-echo-style:                Blaming.             (line 151)
-* magit-blame-goto-chunk-hook:           Blaming.             (line 170)
-* magit-blame-read-only:                 Blaming.             (line 161)
-* magit-blame-styles:                    Blaming.             (line 147)
-* magit-blame-time-format:               Blaming.             (line 157)
-* magit-branch-adjust-remote-upstream-alist: Branch Commands. (line 202)
-* magit-branch-direct-configure:         Branch Commands.     (line  19)
-* magit-branch-prefer-remote-upstream:   Branch Commands.     (line 158)
-* magit-branch-read-upstream-first:      Branch Commands.     (line 153)
-* magit-buffer-name-format:              Naming Buffers.      (line  25)
-* magit-bury-buffer-function:            Quitting Windows.    (line  16)
-* magit-cherry-margin:                   Cherries.            (line  21)
-* magit-clone-always-transient:          Cloning Repository.  (line  12)
-* magit-clone-default-directory:         Cloning Repository.  (line  84)
-* magit-clone-name-alist:                Cloning Repository.  (line  94)
-* magit-clone-set-remote-head:           Cloning Repository.  (line  66)
-* magit-clone-set-remote.pushDefault:    Cloning Repository.  (line  75)
-* magit-clone-url-format:                Cloning Repository.  (line 114)
-* magit-commit-ask-to-stage:             Initiating a Commit. (line  65)
-* magit-commit-diff-inhibit-same-window: Initiating a Commit. (line  97)
-* magit-commit-extend-override-date:     Initiating a Commit. (line  72)
-* magit-commit-reword-override-date:     Initiating a Commit. (line  75)
-* magit-commit-show-diff:                Initiating a Commit. (line  69)
-* magit-commit-squash-confirm:           Initiating a Commit. (line  78)
-* magit-completing-read-function:        Support for Completion Frameworks.
-                                                              (line  27)
-* magit-define-global-key-bindings:      Global Bindings.     (line   6)
-* magit-diff-adjust-tab-width:           Diff Options.        (line  17)
-* magit-diff-buffer-file-locked:         Commands for Buffers Visiting Files.
-                                                              (line 104)
-* magit-diff-extra-stat-arguments:       Diff Options.        (line 112)
-* magit-diff-hide-trailing-cr-characters: Diff Options.       (line  77)
-* magit-diff-highlight-hunk-region-functions: Diff Options.   (line  80)
-* magit-diff-highlight-indentation:      Diff Options.        (line  63)
-* magit-diff-highlight-trailing:         Diff Options.        (line  59)
-* magit-diff-paint-whitespace:           Diff Options.        (line  38)
-* magit-diff-paint-whitespace-lines:     Diff Options.        (line  52)
-* magit-diff-refine-hunk:                Diff Options.        (line   6)
-* magit-diff-refine-ignore-whitespace:   Diff Options.        (line  13)
-* magit-diff-unmarked-lines-keep-foreground: Diff Options.    (line 105)
-* magit-diff-visit-previous-blob:        Visiting Files and Blobs from a Diff.
-                                                              (line  38)
-* magit-direct-use-buffer-arguments:     Transient Arguments and Buffer Variables.
-                                                              (line  73)
-* magit-display-buffer-function:         Switching Buffers.   (line  25)
-* magit-display-buffer-noselect:         Switching Buffers.   (line  17)
-* magit-dwim-selection:                  Completion and Confirmation.
-                                                              (line  42)
-* magit-ediff-dwim-resolve-function:     Ediffing.            (line 105)
-* magit-ediff-dwim-show-on-hunks:        Ediffing.            (line 111)
-* magit-ediff-quit-hook:                 Ediffing.            (line 124)
-* magit-ediff-show-stash-with-index:     Ediffing.            (line 118)
-* magit-generate-buffer-name-function:   Naming Buffers.      (line   6)
-* magit-git-debug:                       Viewing Git Output.  (line  26)
-* magit-git-debug <1>:                   Getting a Value from Git.
-                                                              (line  68)
-* magit-git-executable:                  Git Executable.      (line  26)
-* magit-git-global-arguments:            Global Git Arguments.
-                                                              (line   6)
-* magit-keep-region-overlay:             The Selection.       (line  52)
-* magit-list-refs-sortby:                Additional Completion Options.
-                                                              (line   6)
-* magit-log-auto-more:                   Log Buffer.          (line  69)
-* magit-log-buffer-file-locked:          Commands for Buffers Visiting Files.
-                                                              (line 124)
-* magit-log-margin:                      Log Margin.          (line  12)
-* magit-log-margin-show-committer-date:  Log Margin.          (line  44)
-* magit-log-section-commit-count:        Status Sections.     (line 114)
-* magit-log-select-margin:               Select from Log.     (line  28)
-* magit-log-show-color-graph-limit:      Log Buffer.          (line  78)
-* magit-log-show-refname-after-summary:  Log Buffer.          (line  74)
-* magit-log-show-signatures-limit:       Log Buffer.          (line  84)
-* magit-log-trace-definition-function:   Commands Available in Diffs.
-                                                              (line  17)
-* magit-module-sections-hook:            Status Module Sections.
-                                                              (line  19)
-* magit-module-sections-nested:          Status Module Sections.
-                                                              (line  22)
-* magit-no-confirm:                      Action Confirmation. (line  18)
-* magit-pop-revision-stack-format:       Using the Revision Stack.
-                                                              (line  34)
-* magit-post-clone-hook:                 Cloning Repository.  (line 133)
-* magit-post-commit-hook:                Initiating a Commit. (line  86)
-* magit-post-display-buffer-hook:        Switching Buffers.   (line  85)
-* magit-pre-display-buffer-hook:         Switching Buffers.   (line  76)
-* magit-prefer-remote-upstream:          Branch Git Variables.
-                                                              (line 108)
-* magit-prefix-use-buffer-arguments:     Transient Arguments and Buffer Variables.
-                                                              (line  65)
-* magit-process-extreme-logging:         Viewing Git Output.  (line  56)
-* magit-process-raise-error:             Calling Git for Effect.
-                                                              (line 125)
-* magit-pull-or-fetch:                   Fetching.            (line  52)
-* magit-reflog-margin:                   Reflog.              (line  20)
-* magit-refresh-args:                    Refreshing Buffers.  (line  52)
-* magit-refresh-buffer-hook:             Automatic Refreshing of Magit Buffers.
-                                                              (line  41)
-* magit-refresh-function:                Refreshing Buffers.  (line  47)
-* magit-refresh-status-buffer:           Automatic Refreshing of Magit Buffers.
-                                                              (line  46)
-* magit-refs-filter-alist:               References Buffer.   (line 137)
-* magit-refs-focus-column-width:         References Buffer.   (line  75)
-* magit-refs-margin:                     References Buffer.   (line  89)
-* magit-refs-margin-for-tags:            References Buffer.   (line 112)
-* magit-refs-pad-commit-counts:          References Buffer.   (line  45)
-* magit-refs-primary-column-width:       References Buffer.   (line  63)
-* magit-refs-sections-hook:              References Sections. (line  13)
-* magit-refs-show-commit-count:          References Buffer.   (line  36)
-* magit-refs-show-remote-prefix:         References Buffer.   (line  57)
-* magit-remote-add-set-remote.pushDefault: Remote Commands.   (line  83)
-* magit-remote-direct-configure:         Remote Commands.     (line  20)
-* magit-remote-git-executable:           Git Executable.      (line  32)
-* magit-repolist-columns:                Repository List.     (line  12)
-* magit-repository-directories:          Status Buffer.       (line  57)
-* magit-revision-filter-files-on-follow: Revision Buffer.     (line  55)
-* magit-revision-insert-related-refs:    Revision Buffer.     (line   6)
-* magit-revision-show-gravatars:         Revision Buffer.     (line  15)
-* magit-revision-use-hash-sections:      Revision Buffer.     (line  31)
-* magit-root-section:                    Matching Sections.   (line  81)
-* magit-save-repository-buffers:         Automatic Saving of File-Visiting Buffers.
-                                                              (line  13)
-* magit-section-cache-visibility:        Section Visibility.  (line  95)
-* magit-section-initial-visibility-alist: Section Visibility. (line  79)
-* magit-section-movement-hook:           Section Movement.    (line  41)
-* magit-section-set-visibility-hook:     Section Visibility.  (line 105)
-* magit-section-show-child-count:        Section Options.     (line   9)
-* magit-section-visibility-indicator:    Section Visibility.  (line 122)
-* magit-shell-command-verbose-prompt:    Running Git Manually.
-                                                              (line  43)
-* magit-stashes-margin:                  Stashing.            (line 123)
-* magit-status-headers-hook:             Status Header Sections.
-                                                              (line  17)
-* magit-status-margin:                   Status Options.      (line   6)
-* magit-status-sections-hook:            Status Sections.     (line  10)
-* magit-submodule-list-columns:          Listing Submodules.  (line  20)
-* magit-this-process:                    Calling Git for Effect.
-                                                              (line 121)
-* magit-uniquify-buffer-names:           Naming Buffers.      (line  65)
-* magit-unstage-committed:               Staging and Unstaging.
-                                                              (line  52)
-* magit-update-other-window-delay:       Section Movement.    (line  97)
-* magit-visit-ref-behavior:              References Buffer.   (line 168)
-* magit-wip-after-apply-mode:            Legacy Wip Modes.    (line  18)
-* magit-wip-after-apply-mode-lighter:    Legacy Wip Modes.    (line  54)
-* magit-wip-after-save-local-mode-lighter: Legacy Wip Modes.  (line  51)
-* magit-wip-after-save-mode:             Legacy Wip Modes.    (line  13)
-* magit-wip-before-change-mode:          Legacy Wip Modes.    (line  31)
-* magit-wip-before-change-mode-lighter:  Legacy Wip Modes.    (line  57)
-* magit-wip-initial-backup-mode:         Legacy Wip Modes.    (line  35)
-* magit-wip-initial-backup-mode-lighter: Legacy Wip Modes.    (line  60)
-* magit-wip-merge-branch:                Wip Graph.           (line   6)
-* magit-wip-mode:                        Wip Modes.           (line  30)
-* magit-wip-mode-lighter:                Wip Modes.           (line  98)
-* magit-wip-namespace:                   Wip Modes.           (line  91)
-* notes.displayRef:                      Notes.               (line  57)
-* pull.rebase:                           Branch Git Variables.
-                                                              (line  50)
-* remote.NAME.fetch:                     Remote Git Variables.
-                                                              (line  14)
-* remote.NAME.push:                      Remote Git Variables.
-                                                              (line  23)
-* remote.NAME.pushurl:                   Remote Git Variables.
-                                                              (line  18)
-* remote.NAME.tagOpts:                   Remote Git Variables.
-                                                              (line  27)
-* remote.NAME.url:                       Remote Git Variables.
-                                                              (line  10)
-* remote.pushDefault:                    Branch Git Variables.
-                                                              (line  62)
-
-
-
-Tag Table:
-Node: Top774
-Node: Introduction6559
-Node: Installation11275
-Node: Installing from Melpa11605
-Node: Installing from the Git Repository12680
-Node: Post-Installation Tasks15494
-Node: Getting Started16779
-Node: Interface Concepts22590
-Node: Modes and Buffers22969
-Node: Switching Buffers24680
-Node: Naming Buffers29419
-Node: Quitting Windows32494
-Node: Automatic Refreshing of Magit Buffers34429
-Node: Automatic Saving of File-Visiting Buffers37310
-Node: Automatic Reverting of File-Visiting Buffers38494
-Node: Risk of Reverting Automatically43479
-Node: Sections45861
-Node: Section Movement46787
-Node: Section Visibility51661
-Node: Section Hooks58348
-Node: Section Types and Values60754
-Node: Section Options62169
-Node: Transient Commands62640
-Node: Transient Arguments and Buffer Variables64116
-Node: Completion Confirmation and the Selection71133
-Node: Action Confirmation71579
-Node: Completion and Confirmation80084
-Node: The Selection83269
-Node: The hunk-internal region86167
-Node: Support for Completion Frameworks87256
-Node: Additional Completion Options92141
-Node: Mouse Support92739
-Node: Running Git93315
-Node: Viewing Git Output93560
-Node: Git Process Status96264
-Node: Running Git Manually97229
-Node: Git Executable99919
-Node: Global Git Arguments102927
-Node: Inspecting103732
-Node: Status Buffer104889
-Node: Status Sections109900
-Node: Status Header Sections115427
-Node: Status Module Sections118046
-Node: Status Options120543
-Node: Repository List121906
-Node: Logging126684
-Node: Refreshing Logs129523
-Node: Log Buffer130944
-Node: Log Margin135767
-Node: Select from Log138920
-Node: Reflog141130
-Node: Cherries142767
-Node: Diffing144605
-Node: Refreshing Diffs147639
-Node: Commands Available in Diffs151328
-Node: Diff Options153841
-Node: Revision Buffer159304
-Node: Ediffing162624
-Node: References Buffer168674
-Node: References Sections179268
-Node: Bisecting180125
-Node: Visiting Files and Blobs182436
-Node: General-Purpose Visit Commands182964
-Node: Visiting Files and Blobs from a Diff183917
-Node: Blaming187361
-Node: Manipulating194349
-Node: Creating Repository194691
-Node: Cloning Repository195228
-Node: Staging and Unstaging201669
-Node: Staging from File-Visiting Buffers205642
-Node: Applying206748
-Node: Committing208821
-Node: Initiating a Commit209404
-Node: Editing Commit Messages214594
-Node: Using the Revision Stack217367
-Node: Commit Pseudo Headers220412
-Node: Commit Mode and Hooks221707
-Node: Commit Message Conventions224565
-Node: Branching226552
-Node: The Two Remotes226778
-Node: Branch Commands229431
-Node: Branch Git Variables242281
-Node: Auxiliary Branch Commands247651
-Node: Merging248767
-Node: Resolving Conflicts252923
-Node: Rebasing258297
-Node: Editing Rebase Sequences263086
-Node: Information About In-Progress Rebase267302
-Ref: Information About In-Progress Rebase-Footnote-1276415
-Node: Cherry Picking277011
-Node: Reverting281345
-Node: Resetting282764
-Node: Stashing284590
-Node: Transferring290971
-Node: Remotes291193
-Node: Remote Commands291345
-Node: Remote Git Variables295384
-Node: Fetching296655
-Node: Pulling299138
-Node: Pushing300164
-Node: Plain Patches304455
-Node: Maildir Patches305926
-Node: Miscellaneous307405
-Node: Tagging307751
-Node: Notes309644
-Node: Submodules311979
-Node: Listing Submodules312197
-Node: Submodule Transient314345
-Node: Subtree316790
-Node: Worktree318721
-Node: Sparse checkouts319797
-Node: Bundle322573
-Node: Common Commands322948
-Node: Wip Modes325576
-Node: Wip Graph330467
-Node: Legacy Wip Modes332780
-Node: Commands for Buffers Visiting Files335667
-Node: Minor Mode for Buffers Visiting Blobs343894
-Node: Customizing344692
-Node: Per-Repository Configuration346288
-Node: Essential Settings348542
-Node: Safety348888
-Node: Performance350649
-Ref: Log Performance353612
-Ref: Diff Performance354917
-Ref: Refs Buffer Performance356258
-Ref: Committing Performance356833
-Node: Microsoft Windows Performance357815
-Node: MacOS Performance359006
-Ref: MacOS Performance-Footnote-1360029
-Node: Global Bindings360111
-Node: Plumbing362339
-Node: Calling Git363168
-Node: Getting a Value from Git364693
-Node: Calling Git for Effect368421
-Node: Section Plumbing374315
-Node: Creating Sections374543
-Node: Section Selection378439
-Node: Matching Sections380235
-Node: Refreshing Buffers386156
-Node: Conventions389300
-Node: Theming Faces389492
-Node: FAQ397597
-Node: FAQ - How to ...?398035
-Node: How to pronounce Magit?398392
-Node: How to show git's output?399195
-Node: How to install the gitman info manual?399981
-Node: How to show diffs for gpg-encrypted files?400951
-Node: How does branching and pushing work?401547
-Node: Should I disable VC?401880
-Node: FAQ - Issues and Errors402483
-Node: Magit is slow403428
-Node: I changed several thousand files at once and now Magit is unusable403721
-Node: I am having problems committing404447
-Node: I am using MS Windows and cannot push with Magit404928
-Node: I am using macOS and SOMETHING works in shell but not in Magit405546
-Node: Expanding a file to show the diff causes it to disappear406380
-Node: Point is wrong in the COMMIT_EDITMSG buffer406968
-Node: The mode-line information isn't always up-to-date408016
-Node: A branch and tag sharing the same name breaks SOMETHING409079
-Node: My Git hooks work on the command-line but not inside Magit409966
-Node: git-commit-mode isn't used when committing from the command-line410812
-Node: Point ends up inside invisible text when jumping to a file-visiting buffer413083
-Node: I am no longer able to save popup defaults413932
-Node: Debugging Tools414913
-Node: Keystroke Index418087
-Node: Function and Command Index459701
-Node: Variable Index517902
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/emacs/elpa/magit-20241116.1557/AUTHORS.md b/emacs/elpa/magit-20241124.1509/AUTHORS.md
diff --git a/emacs/elpa/magit-20241116.1557/LICENSE b/emacs/elpa/magit-20241124.1509/LICENSE
diff --git a/emacs/elpa/magit-20241116.1557/dir b/emacs/elpa/magit-20241124.1509/dir
diff --git a/emacs/elpa/magit-20241116.1557/git-commit.el b/emacs/elpa/magit-20241124.1509/git-commit.el
diff --git a/emacs/elpa/magit-20241124.1509/git-commit.elc b/emacs/elpa/magit-20241124.1509/git-commit.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/git-rebase.el b/emacs/elpa/magit-20241124.1509/git-rebase.el
diff --git a/emacs/elpa/magit-20241116.1557/git-rebase.elc b/emacs/elpa/magit-20241124.1509/git-rebase.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-apply.el b/emacs/elpa/magit-20241124.1509/magit-apply.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-apply.elc b/emacs/elpa/magit-20241124.1509/magit-apply.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-autoloads.el b/emacs/elpa/magit-20241124.1509/magit-autoloads.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-autorevert.el b/emacs/elpa/magit-20241124.1509/magit-autorevert.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-autorevert.elc b/emacs/elpa/magit-20241124.1509/magit-autorevert.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-base.el b/emacs/elpa/magit-20241124.1509/magit-base.el
@@ -0,0 +1,1277 @@
+;;; magit-base.el --- Early birds  -*- lexical-binding:t; coding:utf-8 -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;; This file contains code taken from GNU Emacs, which is
+;; Copyright (C) 1976-2023 Free Software Foundation, Inc.
+
+;;; Commentary:
+
+;; This library defines utility functions, options and other things that
+;; have to be available early on because they are used by several other
+;; libraries, which cannot depend on one another, because that would lead
+;; to circular dependencies.
+
+;;; Code:
+
+(defconst magit--minimal-git "2.2.0")
+(defconst magit--minimal-emacs "26.1")
+
+(require 'cl-lib)
+(require 'compat)
+(require 'dash)
+(require 'eieio)
+(require 'subr-x)
+
+;; For older Emacs releases we depend on an updated `seq' release from
+;; GNU ELPA, for `seq-keep'.  Unfortunately something else may already
+;; have required `seq', before `package' had a chance to put the more
+;; recent version earlier on the `load-path'.
+(when (and (featurep 'seq)
+           (not (fboundp 'seq-keep)))
+  (unload-feature 'seq 'force))
+(require 'seq)
+
+(require 'crm)
+
+(require 'magit-section)
+
+(eval-when-compile (require 'info))
+(declare-function Info-get-token "info" (pos start all &optional errorstring))
+
+(eval-when-compile (require 'vc-git))
+(declare-function vc-git--run-command-string "vc-git" (file &rest args))
+
+(eval-when-compile (require 'which-func))
+(declare-function which-function "which-func" ())
+
+;;; Options
+
+(defcustom magit-completing-read-function #'magit-builtin-completing-read
+  "Function to be called when requesting input from the user.
+
+If you have enabled `ivy-mode' or `helm-mode', then you don't
+have to customize this option; `magit-builtin-completing-read'
+will work just fine.  However, if you use Ido completion, then
+you do have to use `magit-ido-completing-read', because Ido is
+less well behaved than the former, more modern alternatives.
+
+If you would like to use Ivy or Helm completion with Magit but
+not enable the respective modes globally, then customize this
+option to use `ivy-completing-read' or
+`helm--completing-read-default'.  If you choose to use
+`ivy-completing-read', note that the items may always be shown in
+alphabetical order, depending on your version of Ivy."
+  :group 'magit-essentials
+  :type '(radio (function-item magit-builtin-completing-read)
+                (function-item magit-ido-completing-read)
+                (function-item ivy-completing-read)
+                (function-item helm--completing-read-default)
+                (function :tag "Other function")))
+
+(defcustom magit-dwim-selection
+  '((magit-stash-apply        nil t)
+    (magit-ediff-resolve-all  nil t)
+    (magit-ediff-resolve-rest nil t)
+    (magit-stash-branch       nil t)
+    (magit-stash-branch-here  nil t)
+    (magit-stash-format-patch nil t)
+    (magit-stash-drop         nil ask)
+    (magit-stash-pop          nil ask))
+  "When not to offer alternatives and ask for confirmation.
+
+Many commands by default ask the user to select from a list of
+possible candidates.  They do so even when there is a thing at
+point that they can act on, which is then offered as the default.
+
+This option can be used to tell certain commands to use the thing
+at point instead of asking the user to select a candidate to act
+on, with or without confirmation.
+
+The value has the form ((COMMAND nil|PROMPT DEFAULT)...).
+
+- COMMAND is the command that should not prompt for a choice.
+  To have an effect, the command has to use the function
+  `magit-completing-read' or a utility function which in turn uses
+  that function.
+
+- If the command uses `magit-completing-read' multiple times, then
+  PROMPT can be used to only affect one of these uses.  PROMPT, if
+  non-nil, is a regular expression that is used to match against
+  the PROMPT argument passed to `magit-completing-read'.
+
+- DEFAULT specifies how to use the default.  If it is t, then
+  the DEFAULT argument passed to `magit-completing-read' is used
+  without confirmation.  If it is `ask', then the user is given
+  a chance to abort.  DEFAULT can also be nil, in which case the
+  entry has no effect."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-commands
+  :type '(repeat
+          (list (symbol :tag "Command") ; It might not be fboundp yet.
+                (choice (const  :tag "for all prompts" nil)
+                        (regexp :tag "for prompts matching regexp"))
+                (choice (const  :tag "offer other choices" nil)
+                        (const  :tag "require confirmation" ask)
+                        (const  :tag "use default without confirmation" t)))))
+
+(defconst magit--confirm-actions
+  '((const discard)
+    (const reverse)
+    (const stage-all-changes)
+    (const unstage-all-changes)
+    (const delete)
+    (const trash)
+    (const resurrect)
+    (const untrack)
+    (const rename)
+    (const reset-bisect)
+    (const abort-cherry-pick)
+    (const abort-revert)
+    (const abort-rebase)
+    (const abort-merge)
+    (const merge-dirty)
+    (const delete-unmerged-branch)
+    (const delete-branch-on-remote)
+    (const delete-pr-remote)
+    (const drop-stashes)
+    (const set-and-push)
+    (const amend-published)
+    (const rebase-published)
+    (const edit-published)
+    (const remove-modules)
+    (const remove-dirty-modules)
+    (const trash-module-gitdirs)
+    (const stash-apply-3way)
+    (const kill-process)
+    (const safe-with-wip)))
+
+(defcustom magit-no-confirm '(set-and-push)
+  "A list of symbols for actions Magit should not confirm, or t.
+
+Many potentially dangerous commands by default ask the user for
+confirmation.  Each of the below symbols stands for an action
+which, when invoked unintentionally or without being fully aware
+of the consequences, could lead to tears.  In many cases there
+are several commands that perform variations of a certain action,
+so we don't use the command names but more generic symbols.
+
+Applying changes:
+
+  `discard' Discarding one or more changes (i.e., hunks or the
+  complete diff for a file) loses that change, obviously.
+
+  `reverse' Reverting one or more changes can usually be undone
+  by reverting the reversion.
+
+  `stage-all-changes', `unstage-all-changes' When there are both
+  staged and unstaged changes, then un-/staging everything would
+  destroy that distinction.  Of course that also applies when
+  un-/staging a single change, but then less is lost and one does
+  that so often that having to confirm every time would be
+  unacceptable.
+
+Files:
+
+  `delete' When a file that isn't yet tracked by Git is deleted
+  then it is completely lost, not just the last changes.  Very
+  dangerous.
+
+  `trash' Instead of deleting a file it can also be move to the
+  system trash.  Obviously much less dangerous than deleting it.
+
+  Also see option `magit-delete-by-moving-to-trash'.
+
+  `resurrect' A deleted file can easily be resurrected by
+  \"deleting\" the deletion, which is done using the same command
+  that was used to delete the same file in the first place.
+
+  `untrack' Untracking a file can be undone by tracking it again.
+
+  `rename' Renaming a file can easily be undone.
+
+Sequences:
+
+  `reset-bisect' Aborting (known to Git as \"resetting\") a
+  bisect operation loses all information collected so far.
+
+  `abort-cherry-pick' Aborting a cherry-pick throws away all
+  conflict resolutions which has already been carried out by the
+  user.
+
+  `abort-revert' Aborting a revert throws away all conflict
+  resolutions which has already been carried out by the user.
+
+  `abort-rebase' Aborting a rebase throws away all already
+  modified commits, but it's possible to restore those from the
+  reflog.
+
+  `abort-merge' Aborting a merge throws away all conflict
+  resolutions which has already been carried out by the user.
+
+  `merge-dirty' Merging with a dirty worktree can make it hard to
+  go back to the state before the merge was initiated.
+
+References:
+
+  `delete-unmerged-branch' Once a branch has been deleted it can
+  only be restored using low-level recovery tools provided by
+  Git.  And even then the reflog is gone.  The user always has
+  to confirm the deletion of a branch by accepting the default
+  choice (or selecting another branch), but when a branch has
+  not been merged yet, also make sure the user is aware of that.
+
+  `delete-branch-on-remote' Deleting a \"remote branch\" may mean
+  deleting the (local) \"remote-tracking\" branch only, or also
+  removing it from the remote itself.  The latter often makes more
+  sense because otherwise simply fetching from the remote would
+  restore the remote-tracking branch, but doing that can be
+  surprising and hard to recover from, so we ask.
+
+  `delete-pr-remote' When deleting a branch that was created from
+  a pull-request and if no other branches still exist on that
+  remote, then `magit-branch-delete' offers to delete the remote
+  as well.  This should be safe because it only happens if no
+  other refs exist in the remotes namespace, and you can recreate
+  the remote if necessary.
+
+  `drop-stashes' Dropping a stash is dangerous because Git stores
+  stashes in the reflog.  Once a stash is removed, there is no
+  going back without using low-level recovery tools provided by
+  Git.  When a single stash is dropped, then the user always has
+  to confirm by accepting the default (or selecting another).
+  This action only concerns the deletion of multiple stashes at
+  once.
+
+Publishing:
+
+  `set-and-push' When pushing to the upstream or the push-remote
+  and that isn't actually configured yet, then the user can first
+  set the target.  If s/he confirms the default too quickly, then
+  s/he might end up pushing to the wrong branch and if the remote
+  repository is configured to disallow fixing such mistakes, then
+  that can be quite embarrassing and annoying.
+
+Edit published history:
+
+  Without adding these symbols here, you will be warned before
+  editing commits that have already been pushed to one of the
+  branches listed in `magit-published-branches'.
+
+  `amend-published' Affects most commands that amend to `HEAD'.
+
+  `rebase-published' Affects commands that perform interactive
+  rebases.  This includes commands from the commit popup that
+  modify a commit other than `HEAD', namely the various fixup
+  and squash variants.
+
+  `edit-published' Affects the commands `magit-edit-line-commit'
+  and `magit-diff-edit-hunk-commit'.  These two commands make
+  it quite easy to accidentally edit a published commit, so you
+  should think twice before configuring them not to ask for
+  confirmation.
+
+  To disable confirmation completely, add all three symbols here
+  or set `magit-published-branches' to nil.
+
+Removing modules:
+
+  `remove-modules' When you remove the working directory of a
+  module that does not contain uncommitted changes, then that is
+  safer than doing so when there are uncommitted changes and/or
+  when you also remove the gitdir.  Still, you don't want to do
+  that by accident.
+
+  `remove-dirty-modules' When you remove the working directory of
+  a module that contains uncommitted changes, then those changes
+  are gone for good.  It is better to go to the module, inspect
+  these changes and only if appropriate discard them manually.
+
+  `trash-module-gitdirs' When you remove the gitdir of a module,
+  then all unpushed changes are gone for good.  It is very easy
+  to forget that you have some unfinished work on an unpublished
+  feature branch or even in a stash.
+
+  Actually there are some safety precautions in place, that might
+  help you out if you make an unwise choice here, but don't count
+  on it.  In case of emergency, stay calm and check the stash and
+  the `trash-directory' for traces of lost work.
+
+Various:
+
+  `stash-apply-3way' When a stash cannot be applied using \"git
+  stash apply\", then Magit uses \"git apply\" instead, possibly
+  using the \"--3way\" argument, which isn't always perfectly
+  safe.  See also `magit-stash-apply'.
+
+  `kill-process' There seldom is a reason to kill a process.
+
+Global settings:
+
+  Instead of adding all of the above symbols to the value of this
+  option you can also set it to the atom `t', which has the same
+  effect as adding all of the above symbols.  Doing that most
+  certainly is a bad idea, especially because other symbols might
+  be added in the future.  So even if you don't want to be asked
+  for confirmation for any of these actions, you are still better
+  of adding all of the respective symbols individually.
+
+  When `magit-wip-before-change-mode' is enabled then these actions
+  can fairly easily be undone: `discard', `reverse',
+  `stage-all-changes', and `unstage-all-changes'.  If and only if
+  this mode is enabled, then `safe-with-wip' has the same effect
+  as adding all of these symbols individually."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-essentials
+  :group 'magit-commands
+  :type `(choice (const :tag "Always require confirmation" nil)
+                 (const :tag "Never require confirmation" t)
+                 (set   :tag "Require confirmation except for"
+                        ;; `remove-dirty-modules' and
+                        ;; `trash-module-gitdirs' intentionally
+                        ;; omitted.
+                        ,@magit--confirm-actions)))
+
+(defcustom magit-slow-confirm '(drop-stashes)
+  "Whether to ask user \"y or n\" or \"yes or no\" questions.
+
+When this is nil, then `y-or-n-p' is used when the user has to
+confirm a potentially destructive action.  When this is t, then
+`yes-or-no-p' is used instead.  If this is a list of symbols
+identifying actions, then `yes-or-no-p' is used for those,
+`y-or-no-p' for all others.  The list of actions is the same as
+for `magit-no-confirm' (which see)."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-miscellaneous
+  :type `(choice (const :tag "Always ask \"yes or no\" questions" t)
+                 (const :tag "Always ask \"y or n\" questions" nil)
+                 (set   :tag "Ask \"yes or no\" questions only for"
+                        ,@magit--confirm-actions)))
+
+(defcustom magit-no-message nil
+  "A list of messages Magit should not display.
+
+Magit displays most echo area messages using `message', but a few
+are displayed using `magit-message' instead, which takes the same
+arguments as the former, FORMAT-STRING and ARGS.  `magit-message'
+forgoes printing a message if any member of this list is a prefix
+of the respective FORMAT-STRING.
+
+If Magit prints a message which causes you grief, then please
+first investigate whether there is another option which can be
+used to suppress it.  If that is not the case, then ask the Magit
+maintainers to start using `magit-message' instead of `message'
+in that case.  We are not proactively replacing all uses of
+`message' with `magit-message', just in case someone *might* find
+some of these messages useless.
+
+Messages which can currently be suppressed using this option are:
+* \"Turning on magit-auto-revert-mode...\""
+  :package-version '(magit . "2.8.0")
+  :group 'magit-miscellaneous
+  :type '(repeat string))
+
+(defcustom magit-verbose-messages nil
+  "Whether to make certain prompts and messages more verbose.
+
+Occasionally a user suggests that a certain prompt or message
+should be more verbose, but I would prefer to keep it as-is
+because I don't think that the fact that that one user did not
+understand the existing prompt/message means that a large number
+of users would have the same difficulty, and that making it more
+verbose would actually do a disservice to users who understand
+the shorter prompt well enough.
+
+Going forward I will start offering both messages when I feel the
+suggested longer message is reasonable enough, and the value of
+this option decides which will be used.  Note that changing the
+value of this option affects all such messages and that I do not
+intend to add an option per prompt."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-miscellaneous
+  :type 'boolean)
+
+(defcustom magit-ellipsis
+  '((margin (?… . ">"))
+    (t      (?… . "...")))
+  "Characters or strings used to abbreviate text in some buffers.
+
+Each element has the form (WHERE (FANCY . UNIVERSAL)).
+
+FANCY is a single character or nil whereas UNIVERSAL is a string
+of any length.  The ellipsis produced by `magit--ellipsis' will
+be FANCY if it's a non-nil character that can be displayed with
+the available fonts, otherwise UNIVERSAL will be used.  FANCY is
+meant to be a rich character like a horizontal ellipsis symbol or
+an emoji whereas UNIVERSAL something simpler available in a less
+rich environment like the CLI.  WHERE determines the use-case for
+the ellipsis definition.  Currently the only acceptable values
+for WHERE are `margin' or t (representing the default).
+
+Whether collapsed sections are indicated using ellipsis is
+controlled by `magit-section-visibility-indicator'."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-miscellaneous
+  :type '(repeat (list (symbol :tag "Where")
+                       (cons (choice :tag "Fancy" character (const nil))
+                             (string :tag "Universal")))))
+
+(defcustom magit-update-other-window-delay 0.2
+  "Delay before automatically updating the other window.
+
+When moving around in certain buffers, then certain other
+buffers, which are being displayed in another window, may
+optionally be updated to display information about the
+section at point.
+
+When holding down a key to move by more than just one section,
+then that would update that buffer for each section on the way.
+To prevent that, updating the revision buffer is delayed, and
+this option controls for how long.  For optimal experience you
+might have to adjust this delay and/or the keyboard repeat rate
+and delay of your graphical environment or operating system."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-miscellaneous
+  :type 'number)
+
+(defcustom magit-view-git-manual-method 'info
+  "How links to Git documentation are followed from Magit's Info manuals.
+
+`info'  Follow the link to the node in the `gitman' Info manual
+        as usual.  Unfortunately that manual is not installed by
+        default on some platforms, and when it is then the nodes
+        look worse than the actual manpages.
+
+`man'   View the respective man-page using the `man' package.
+
+`woman' View the respective man-page using the `woman' package."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-miscellaneous
+  :type '(choice (const :tag "view info manual" info)
+                 (const :tag "view manpage using `man'" man)
+                 (const :tag "view manpage using `woman'" woman)))
+
+;;; Section Classes
+
+(defclass magit-commit-section (magit-section)
+  ((keymap :initform 'magit-commit-section-map)))
+
+(setf (alist-get 'commit magit--section-type-alist) 'magit-commit-section)
+
+(defclass magit-diff-section (magit-section)
+  ((keymap :initform 'magit-diff-section-map))
+  :abstract t)
+
+(defclass magit-file-section (magit-diff-section)
+  ((keymap :initform 'magit-file-section-map)
+   (source :initform nil :initarg :source)
+   (header :initform nil :initarg :header)
+   (binary :initform nil :initarg :binary)))
+
+(defclass magit-module-section (magit-file-section)
+  ((keymap :initform 'magit-module-section-map)
+   (range  :initform nil :initarg :range)))
+
+(defclass magit-hunk-section (magit-diff-section)
+  ((keymap      :initform 'magit-hunk-section-map)
+   (refined     :initform nil)
+   (combined    :initform nil :initarg :combined)
+   (from-range  :initform nil :initarg :from-range)
+   (from-ranges :initform nil)
+   (to-range    :initform nil :initarg :to-range)
+   (about       :initform nil :initarg :about)))
+
+(setf (alist-get 'file   magit--section-type-alist) 'magit-file-section)
+(setf (alist-get 'module magit--section-type-alist) 'magit-module-section)
+(setf (alist-get 'hunk   magit--section-type-alist) 'magit-hunk-section)
+
+(defclass magit-log-section (magit-section)
+  ((keymap :initform 'magit-log-section-map))
+  :abstract t)
+(defclass magit-unpulled-section (magit-log-section) ())
+(defclass magit-unpushed-section (magit-log-section) ())
+(defclass magit-unmerged-section (magit-log-section) ())
+
+(setf (alist-get 'unpulled magit--section-type-alist) 'magit-unpulled-section)
+(setf (alist-get 'unpushed magit--section-type-alist) 'magit-unpushed-section)
+(setf (alist-get 'unmerged magit--section-type-alist) 'magit-unmerged-section)
+
+;;; User Input
+
+(defvar helm-completion-in-region-default-sort-fn)
+(defvar helm-crm-default-separator)
+(defvar ivy-sort-functions-alist)
+(defvar ivy-sort-matches-functions-alist)
+(defvar vertico-sort-function)
+
+(defvar magit-completing-read--silent-default nil)
+
+(defvar magit-completing-read-default-prompt-predicate
+  (lambda ()
+    (and (eq magit-completing-read-function
+             'magit-builtin-completing-read)
+         (not (or (bound-and-true-p helm-mode)
+                  (bound-and-true-p ivy-mode)
+                  (bound-and-true-p selectrum-mode)
+                  (bound-and-true-p vertico-mode)))))
+  "Function used to determine whether to add default to prompt.
+
+This is used by `magit-completing-read' (which see).
+
+The default function returns nil, when a completion frameworks is used
+for which this is undesirable.  More precisely, it returns nil, when
+`magit-completing-read-function' is not `magit-builtin-completing-read',
+or one of `helm-mode', `ivy-mode', `selectrum-mode' or `vertico-mode'
+is enabled.  When this function returns nil, then nil is passed to
+`format-prompt' (which see), instead of the default (DEF or FALLBACK).")
+
+(defun magit-completing-read ( prompt collection &optional
+                               predicate require-match initial-input
+                               hist def fallback)
+  "Read a choice in the minibuffer, or use the default choice.
+
+This is the function that Magit commands use when they need the
+user to select a single thing to act on.  The arguments have the
+same meaning as for `completing-read', except for FALLBACK, which
+is unique to this function and is described below.
+
+Instead of asking the user to choose from a list of possible
+candidates, this function may instead just return the default
+specified by DEF, with or without requiring user confirmation.
+Whether that is the case depends on PROMPT, `this-command' and
+`magit-dwim-selection'.  See the documentation of the latter for
+more information.
+
+If it does use the default without the user even having to
+confirm that, then `magit-completing-read--silent-default' is set
+to t, otherwise nil.
+
+If it does read a value in the minibuffer, then this function
+acts similarly to `completing-read', except for the following:
+
+- COLLECTION must be a list of choices.  A function is not
+  supported.
+
+- If REQUIRE-MATCH is nil and the user exits without a choice,
+  then nil is returned instead of an empty string.
+
+- If REQUIRE-MATCH is non-nil and the user exits without a
+  choice, `user-error' is raised.
+
+- FALLBACK specifies a secondary default that is only used if
+  the primary default DEF is nil.  The secondary default is not
+  subject to `magit-dwim-selection' — if DEF is nil but FALLBACK
+  is not, then this function always asks the user to choose a
+  candidate, just as if both defaults were nil.
+
+- `format-prompt' is called on PROMPT and DEF (or FALLBACK if
+  DEF is nil).  This appends \": \" to the prompt and may also
+  add the default to the prompt, using the format specified by
+  `minibuffer-default-prompt-format' and depending on
+  `magit-completing-read-default-prompt-predicate'."
+  (setq magit-completing-read--silent-default nil)
+  (if-let ((dwim (and def
+                      (nth 2 (seq-find (pcase-lambda (`(,cmd ,re ,_))
+                                         (and (eq this-command cmd)
+                                              (or (not re)
+                                                  (string-match-p re prompt))))
+                                       magit-dwim-selection)))))
+      (if (eq dwim 'ask)
+          (if (y-or-n-p (format "%s %s? " prompt def))
+              def
+            (user-error "Abort"))
+        (setq magit-completing-read--silent-default t)
+        def)
+    (unless def
+      (setq def fallback))
+    (let ((command this-command)
+          (reply (funcall
+                  magit-completing-read-function
+                  (magit--format-prompt prompt def)
+                  (if (and (not (functionp collection))
+                           def
+                           (not (member def collection)))
+                      (cons def collection)
+                    collection)
+                  predicate
+                  require-match initial-input hist def)))
+      (setq this-command command)
+      ;; Note: Avoid `string=' to support `helm-comp-read-use-marked'.
+      (if (equal reply "")
+          (if require-match
+              (user-error "Nothing selected")
+            nil)
+        reply))))
+
+(defun magit--format-prompt (prompt default)
+  (format-prompt (if (string-suffix-p ": " prompt)
+                     (substring prompt 0 -2)
+                   prompt)
+                 (and (funcall magit-completing-read-default-prompt-predicate)
+                      default)))
+
+(defun magit--completion-table (collection)
+  (lambda (string pred action)
+    (if (eq action 'metadata)
+        '(metadata (display-sort-function . identity))
+      (complete-with-action action collection string pred))))
+
+(defun magit-builtin-completing-read
+    (prompt choices &optional predicate require-match initial-input hist def)
+  "Magit wrapper for standard `completing-read' function."
+  (unless (or (bound-and-true-p helm-mode)
+              (bound-and-true-p ivy-mode))
+    (setq choices (magit--completion-table choices)))
+  (let ((ivy-sort-functions-alist nil)
+        (vertico-sort-function nil))
+    (completing-read prompt choices
+                     predicate require-match
+                     initial-input hist def)))
+
+(define-obsolete-function-alias 'magit-completing-read-multiple*
+  'magit-completing-read-multiple "Magit-Section 4.0.0")
+
+(defun magit-completing-read-multiple
+    ( prompt table &optional predicate require-match initial-input
+      hist def inherit-input-method
+      no-split)
+  "Read multiple strings in the minibuffer, with completion.
+Like `completing-read-multiple' but don't mess with order of
+TABLE and take an additional argument NO-SPLIT, which causes
+the user input to be returned as a single unmodified string.
+Also work around various incompatible features of various
+third-party completion frameworks."
+  (cl-letf*
+      (;; To implement NO-SPLIT we have to manipulate the respective
+       ;; `split-string' invocation.  We cannot simply advice it to
+       ;; return the input string because `SELECTRUM' would choke on
+       ;; that string.  Use a variable to pass along the raw user
+       ;; input string. aa5f098ab
+       (input nil)
+       (split-string (symbol-function #'split-string))
+       ((symbol-function #'split-string)
+        (lambda (string &optional separators omit-nulls trim)
+          (when (and no-split
+                     (equal separators crm-separator)
+                     (equal omit-nulls t))
+            (setq input string))
+          (funcall split-string string separators omit-nulls trim)))
+       ;; Prevent `BUILT-IN' completion from messing up our existing
+       ;; order of the completion candidates. aa5f098ab
+       (table (magit--completion-table table))
+       ;; Prevent `IVY' from messing up our existing order. c7af78726
+       (ivy-sort-matches-functions-alist nil)
+       ;; Prevent `HELM' from messing up our existing order.  6fcf994bd
+       (helm-completion-in-region-default-sort-fn nil)
+       ;; Prevent `HELM' from automatically appending the separator,
+       ;; which is counterproductive when NO-SPLIT is non-nil and/or
+       ;; when reading commit ranges. 798aff564
+       (helm-crm-default-separator
+        (if no-split nil (bound-and-true-p helm-crm-default-separator)))
+       ;; And now, the moment we have all been waiting for...
+       (values (completing-read-multiple
+                (magit--format-prompt prompt def)
+                table predicate require-match initial-input
+                hist def inherit-input-method)))
+    (if no-split input values)))
+
+(defun magit-ido-completing-read
+    (prompt choices &optional predicate require-match initial-input hist def)
+  "Ido-based `completing-read' almost-replacement.
+
+Unfortunately `ido-completing-read' is not suitable as a
+drop-in replacement for `completing-read', instead we use
+`ido-completing-read+' from the third-party package by the
+same name."
+  (if (and (require 'ido-completing-read+ nil t)
+           (fboundp 'ido-completing-read+))
+      (ido-completing-read+ prompt choices predicate require-match
+                            initial-input hist
+                            (or def (and require-match (car choices))))
+    (display-warning 'magit "ido-completing-read+ is not installed
+
+To use Ido completion with Magit you need to install the
+third-party `ido-completing-read+' packages.  Falling
+back to built-in `completing-read' for now." :error)
+    (magit-builtin-completing-read prompt choices predicate require-match
+                                   initial-input hist def)))
+
+(defvar-keymap magit-minibuffer-local-ns-map
+  :parent minibuffer-local-map
+  "SPC" #'magit-whitespace-disallowed
+  "TAB" #'magit-whitespace-disallowed)
+
+(defun magit-whitespace-disallowed ()
+  "Beep to tell the user that whitespace is not allowed."
+  (interactive)
+  (ding)
+  (message "Whitespace isn't allowed here")
+  (setq defining-kbd-macro nil)
+  (force-mode-line-update))
+
+(defun magit-read-string ( prompt &optional initial-input history default-value
+                           inherit-input-method no-whitespace)
+  "Read a string from the minibuffer, prompting with string PROMPT.
+
+This is similar to `read-string', but
+* empty input is only allowed if DEFAULT-VALUE is non-nil in
+  which case that is returned,
+* whitespace is not allowed and leading and trailing whitespace is
+  removed automatically if NO-WHITESPACE is non-nil,
+* `format-prompt' is used internally.
+* an invalid DEFAULT-VALUE is silently ignored."
+  (when default-value
+    (when (consp default-value)
+      (setq default-value (car default-value)))
+    (unless (stringp default-value)
+      (setq default-value nil)))
+  (let* ((minibuffer-completion-table nil)
+         (val (read-from-minibuffer
+               (format-prompt prompt default-value)
+               initial-input (and no-whitespace magit-minibuffer-local-ns-map)
+               nil history default-value inherit-input-method))
+         (trim (lambda (regexp string)
+                 (save-match-data
+                   (if (string-match regexp string)
+                       (replace-match "" t t string)
+                     string)))))
+    (when (and (string= val "") default-value)
+      (setq val default-value))
+    (when no-whitespace
+      (setq val (funcall trim "\\`\\(?:[ \t\n\r]+\\)"
+                         (funcall trim "\\(?:[ \t\n\r]+\\)\\'" val))))
+    (cond ((string= val "")
+           (user-error "Need non-empty input"))
+          ((and no-whitespace (string-match-p "[\s\t\n]" val))
+           (user-error "Input contains whitespace"))
+          (t val))))
+
+(defun magit-read-string-ns ( prompt &optional initial-input history
+                              default-value inherit-input-method)
+  "Call `magit-read-string' with non-nil NO-WHITESPACE."
+  (magit-read-string prompt initial-input history default-value
+                     inherit-input-method t))
+
+(defmacro magit-read-char-case (prompt verbose &rest clauses)
+  (declare (indent 2)
+           (debug (form form &rest (characterp form body))))
+  `(prog1 (pcase (read-char-choice
+                  (let ((parts (nconc (list ,@(mapcar #'cadr clauses))
+                                      ,(and verbose '(list "[C-g] to abort")))))
+                    (concat ,prompt
+                            (string-join (butlast parts) ", ")
+                            ", or "  (car (last parts)) " "))
+                  ',(mapcar #'car clauses))
+            ,@(--map `(,(car it) ,@(cddr it)) clauses))
+     (message "")))
+
+(defun magit-y-or-n-p (prompt &optional action)
+  "Ask user a \"y or n\" or a \"yes or no\" question using PROMPT.
+Which kind of question is used depends on whether
+ACTION is a member of option `magit-slow-confirm'."
+  (if (or (eq magit-slow-confirm t)
+          (and action (member action magit-slow-confirm)))
+      (yes-or-no-p prompt)
+    (y-or-n-p prompt)))
+
+(defvar magit--no-confirm-alist
+  '((safe-with-wip magit-wip-before-change-mode
+                   discard reverse stage-all-changes unstage-all-changes)))
+
+(cl-defun magit-confirm ( action &optional prompt prompt-n noabort
+                          (items nil sitems) prompt-suffix)
+  (declare (indent defun))
+  (when (and prompt (listp prompt))
+    (setq prompt
+          (apply #'format (car prompt)
+                 (mapcar (lambda (a) (if (stringp a) (string-replace "%" "%%" a) a))
+                         (cdr prompt)))))
+  (when (and prompt-n (listp prompt-n))
+    (setq prompt-n
+          (apply #'format (car prompt-n)
+                 (mapcar (lambda (a) (if (stringp a) (string-replace "%" "%%" a) a))
+                         (cdr prompt-n)))))
+  (setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items)))
+  (setq prompt   (format (concat (or prompt (magit-confirm-make-prompt action))
+                                 "? ")
+                         (car items)))
+  (when prompt-suffix
+    (setq prompt (concat prompt prompt-suffix)))
+  (or (cond ((and (not (eq action t))
+                  (or (eq magit-no-confirm t)
+                      (memq action magit-no-confirm)
+                      (cl-member-if (pcase-lambda (`(,key ,var . ,sub))
+                                      (and (memq key magit-no-confirm)
+                                           (memq action sub)
+                                           (or (not var)
+                                               (and (boundp var)
+                                                    (symbol-value var)))))
+                                    magit--no-confirm-alist)))
+             (or (not sitems) items))
+            ((not sitems)
+             (magit-y-or-n-p prompt action))
+            ((length= items 1)
+             (and (magit-y-or-n-p prompt action) items))
+            ((length> items 1)
+             (and (magit-y-or-n-p (concat (string-join items "\n")
+                                          "\n\n" prompt-n)
+                                  action)
+                  items)))
+      (if noabort nil (user-error "Abort"))))
+
+(defun magit-confirm-files (action files &optional prompt prompt-suffix noabort)
+  (when files
+    (unless prompt
+      (setq prompt (magit-confirm-make-prompt action)))
+    (magit-confirm action
+      (concat prompt " \"%s\"")
+      (concat prompt " %d files")
+      noabort files prompt-suffix)))
+
+(defun magit-confirm-make-prompt (action)
+  (let ((prompt (symbol-name action)))
+    (string-replace "-" " "
+                    (concat (upcase (substring prompt 0 1))
+                            (substring prompt 1)))))
+
+(defun magit-read-number-string (prompt &optional default _history)
+  "Like `read-number' but return value is a string.
+DEFAULT may be a number or a numeric string."
+  (number-to-string
+   (read-number prompt (if (stringp default)
+                           (string-to-number default)
+                         default))))
+
+;;; Debug Utilities
+
+;;;###autoload
+(defun magit-emacs-Q-command ()
+  "Show a shell command that runs an uncustomized Emacs with only Magit loaded.
+See info node `(magit)Debugging Tools' for more information."
+  (interactive)
+  (let ((cmd (mapconcat
+              #'shell-quote-argument
+              `(,(concat invocation-directory invocation-name)
+                "-Q" "--eval" "(setq debug-on-error t)"
+                ,@(mapcan
+                   (lambda (dir) (list "-L" dir))
+                   (delete-dups
+                    (mapcan
+                     (lambda (lib)
+                       (if-let ((path (locate-library lib)))
+                           (list (file-name-directory path))
+                         (error "Cannot find mandatory dependency %s" lib)))
+                     '(;; Like `LOAD_PATH' in `default.mk'.
+                       "compat"
+                       "dash"
+                       "transient"
+                       "with-editor"
+                       ;; Obviously `magit' itself is needed too.
+                       "magit"
+                       ;; While these are part of the Magit repository,
+                       ;; they are distributed as separate packages.
+                       "magit-section"
+                       "git-commit"
+                       ))))
+                ;; Avoid Emacs bug#16406 by using full path.
+                "-l" ,(file-name-sans-extension (locate-library "magit")))
+              " ")))
+    (message "Uncustomized Magit command saved to kill-ring, %s"
+             "please run it in a terminal.")
+    (kill-new cmd)))
+
+;;; Text Utilities
+
+(defmacro magit-bind-match-strings (varlist string &rest body)
+  "Bind variables to submatches according to VARLIST then evaluate BODY.
+Bind the symbols in VARLIST to submatches of the current match
+data, starting with 1 and incrementing by 1 for each symbol.  If
+the last match was against a string, then that has to be provided
+as STRING."
+  (declare (indent 2) (debug (listp form body)))
+  (let ((s (cl-gensym "string"))
+        (i 0))
+    `(let ((,s ,string))
+       (let ,(save-match-data
+               (mapcan (lambda (sym)
+                         (cl-incf i)
+                         (and (not (eq (aref (symbol-name sym) 0) ?_))
+                              (list (list sym (list 'match-string i s)))))
+                       varlist))
+         ,@body))))
+
+(defun magit-delete-line ()
+  "Delete the rest of the current line."
+  (delete-region (point) (1+ (line-end-position))))
+
+(defun magit-delete-match (&optional num)
+  "Delete text matched by last search.
+If optional NUM is specified, only delete that subexpression."
+  (delete-region (match-beginning (or num 0))
+                 (match-end (or num 0))))
+
+(defun magit-file-line (file)
+  "Return the first line of FILE as a string."
+  (when (file-regular-p file)
+    (with-temp-buffer
+      (insert-file-contents file)
+      (buffer-substring-no-properties (point-min)
+                                      (line-end-position)))))
+
+(defun magit-file-lines (file &optional keep-empty-lines)
+  "Return a list of strings containing one element per line in FILE.
+Unless optional argument KEEP-EMPTY-LINES is t, trim all empty lines."
+  (when (file-regular-p file)
+    (with-temp-buffer
+      (insert-file-contents file)
+      (split-string (buffer-string) "\n" (not keep-empty-lines)))))
+
+(defun magit-set-header-line-format (string)
+  "Set `header-line-format' in the current buffer based on STRING.
+Pad the left side of STRING so that it aligns with the text area."
+  (setq header-line-format
+        (concat (propertize " " 'display '(space :align-to 0))
+                string)))
+
+(defun magit--format-spec (format specification)
+  "Like `format-spec' but preserve text properties in SPECIFICATION."
+  (with-temp-buffer
+    (insert format)
+    (goto-char (point-min))
+    (while (search-forward "%" nil t)
+      (cond
+       ;; Quoted percent sign.
+       ((eq (char-after) ?%)
+        (delete-char 1))
+       ;; Valid format spec.
+       ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
+        (let* ((num (match-string 1))
+               (spec (string-to-char (match-string 2)))
+               (val (assq spec specification)))
+          (unless val
+            (error "Invalid format character: `%%%c'" spec))
+          (setq val (cdr val))
+          ;; Pad result to desired length.
+          (let ((text (format (concat "%" num "s") val)))
+            ;; Insert first, to preserve text properties.
+            (if (next-property-change 0 (concat " " text))
+                ;; If the inserted text has properties, then preserve those.
+                (insert text)
+              ;; Otherwise preserve FORMAT's properties, like `format-spec'.
+              (insert-and-inherit text))
+            ;; Delete the specifier body.
+            (delete-region (+ (match-beginning 0) (length text))
+                           (+ (match-end 0) (length text)))
+            ;; Delete the percent sign.
+            (delete-region (1- (match-beginning 0)) (match-beginning 0)))))
+       ;; Signal an error on bogus format strings.
+       (t
+        (error "Invalid format string"))))
+    (buffer-string)))
+
+;;; Missing from Emacs
+
+(defun magit-kill-this-buffer ()
+  "Kill the current buffer."
+  (interactive)
+  (kill-buffer (current-buffer)))
+
+(defun magit--buffer-string (&optional min max trim)
+  "Like `buffer-substring-no-properties' but the arguments are optional.
+
+This combines the benefits of `buffer-string', `buffer-substring'
+and `buffer-substring-no-properties' into one function that is
+not as painful to use as the latter.  I.e., you can write
+  (magit--buffer-string)
+instead of
+  (buffer-substring-no-properties (point-min)
+                                  (point-max))
+
+Optional MIN defaults to the value of `point-min'.
+Optional MAX defaults to the value of `point-max'.
+
+If optional TRIM is non-nil, then all leading and trailing
+whitespace is remove.  If it is the newline character, then
+one trailing newline is added."
+  ;; Lets write that one last time and be done with it:
+  (let ((str (buffer-substring-no-properties (or min (point-min))
+                                             (or max (point-max)))))
+    (if trim
+        (concat (string-trim str)
+                (and (eq trim ?\n) "\n"))
+      str)))
+
+(defun magit--version> (v1 v2)
+  "Return t if version V1 is higher (younger) than V2.
+This function should be named `version>' and be part of Emacs."
+  (version-list-< (version-to-list v2) (version-to-list v1)))
+
+(defun magit--version>= (v1 v2)
+  "Return t if version V1 is higher (younger) than or equal to V2.
+This function should be named `version>=' and be part of Emacs."
+  (version-list-<= (version-to-list v2) (version-to-list v1)))
+
+;;; Kludges for Emacs Bugs
+
+(when (< emacs-major-version 27)
+  ;; Work around https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559.
+  ;; Fixed by cb55ccae8be946f1562d74718086a4c8c8308ee5 in Emacs 27.1.
+  (with-eval-after-load 'vc-git
+    (defun vc-git-conflicted-files (directory)
+      "Return the list of files with conflicts in DIRECTORY."
+      (let* ((status
+              (vc-git--run-command-string directory "diff-files"
+                                          "--name-status"))
+             (lines (when status (split-string status "\n" 'omit-nulls)))
+             files)
+        (dolist (line lines files)
+          (when (string-match "\\([ MADRCU?!]\\)[ \t]+\\(.+\\)" line)
+            (let ((state (match-string 1 line))
+                  (file (match-string 2 line)))
+              (when (equal state "U")
+                (push (expand-file-name file directory) files)))))))))
+
+(when (< emacs-major-version 27)
+  (defun vc-git--call@bug21559 (fn buffer command &rest args)
+    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
+    (let ((process-environment process-environment))
+      (when revert-buffer-in-progress-p
+        (push "GIT_OPTIONAL_LOCKS=0" process-environment))
+      (apply fn buffer command args)))
+  (advice-add 'vc-git--call :around 'vc-git--call@bug21559)
+
+  (defun vc-git-command@bug21559
+      (fn buffer okstatus file-or-list &rest flags)
+    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
+    (let ((process-environment process-environment))
+      (when revert-buffer-in-progress-p
+        (push "GIT_OPTIONAL_LOCKS=0" process-environment))
+      (apply fn buffer okstatus file-or-list flags)))
+  (advice-add 'vc-git-command :around 'vc-git-command@bug21559)
+
+  (defun auto-revert-handler@bug21559 (fn)
+    "Backport https://debbugs.gnu.org/cgi/bugreport.cgi?bug=21559."
+    (let ((revert-buffer-in-progress-p t))
+      (funcall fn)))
+  (advice-add 'auto-revert-handler :around 'auto-revert-handler@bug21559)
+  )
+
+(defun magit-which-function ()
+  "Return current function name based on point.
+
+This is a simple wrapper around `which-function', that resets
+Imenu's potentially outdated and therefore unreliable cache by
+setting `imenu--index-alist' to nil before calling that function."
+  (setq imenu--index-alist nil)
+  (which-function))
+
+;;; Kludges for Custom
+
+(defun magit-custom-initialize-reset (symbol exp)
+  "Initialize SYMBOL based on EXP.
+Set the value of the variable SYMBOL, using `set-default'
+\(unlike `custom-initialize-reset', which uses the `:set'
+function if any).  The value is either the symbol's current
+value (as obtained using the `:get' function), if any, or
+the value in the symbol's `saved-value' property if any, or
+\(last of all) the value of EXP."
+  (set-default-toplevel-value
+   symbol
+   (condition-case nil
+       (let ((def (default-toplevel-value symbol))
+             (getter (get symbol 'custom-get)))
+         (if getter (funcall getter symbol) def))
+     (error
+      (eval (let ((sv (get symbol 'saved-value)))
+              (if sv (car sv) exp)))))))
+
+(defun magit-hook-custom-get (symbol)
+  (if (symbol-file symbol 'defvar)
+      (default-toplevel-value symbol)
+    ;;
+    ;; Called by `custom-initialize-reset' on behalf of `symbol's
+    ;; `defcustom', which is being evaluated for the first time to
+    ;; set the initial value, but there's already a default value,
+    ;; which most likely was established by one or more `add-hook'
+    ;; calls.
+    ;;
+    ;; We combine the `standard-value' and the current value, while
+    ;; preserving the order established by `:options', and return
+    ;; the result of that to be used as the "initial" default value.
+    ;;
+    (let ((standard (eval (car (get symbol 'standard-value))))
+          (current (default-toplevel-value symbol))
+          (value nil))
+      (dolist (fn (get symbol 'custom-options))
+        (when (or (memq fn standard)
+                  (memq fn current))
+          (push fn value)))
+      (dolist (fn current)
+        (unless (memq fn value)
+          (push fn value)))
+      (nreverse value))))
+
+;;; Kludges for Info Manuals
+
+;;;###autoload
+(define-advice Info-follow-nearest-node (:around (fn &optional fork) gitman)
+  (let ((node (Info-get-token
+               (point) "\\*note[ \n\t]+"
+               "\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?")))
+    (if (and node (string-match "^(gitman)\\(.+\\)" node))
+        (pcase magit-view-git-manual-method
+          ('info  (funcall fn fork))
+          ('man   (require 'man)
+                  (man (match-string 1 node)))
+          ('woman (require 'woman)
+                  (woman (match-string 1 node)))
+          (_ (user-error "Invalid value for `magit-view-git-manual-method'")))
+      (funcall fn fork))))
+
+;; When making changes here, then also adjust the copy in docs/Makefile.
+;;;###autoload
+(define-advice org-man-export (:around (fn link description format) gitman)
+  (if (and (eq format 'texinfo)
+           (string-prefix-p "git" link))
+      (string-replace "%s" link "
+@ifinfo
+@ref{%s,,,gitman,}.
+@end ifinfo
+@ifhtml
+@html
+the <a href=\"http://git-scm.com/docs/%s\">%s(1)</a> manpage.
+@end html
+@end ifhtml
+@iftex
+the %s(1) manpage.
+@end iftex
+")
+    (funcall fn link description format)))
+
+;;; Kludges for Package Managers
+
+(defun magit--chase-links (filename)
+  "Chase links in FILENAME until a name that is not a link.
+
+This is the same as `file-chase-links', except that it also handles
+fake symlinks that are created by some source based package managers
+\(Elpaca and Straight) on Windows.
+
+See <https://github.com/raxod502/straight.el/issues/520>."
+  (when-let*
+      ((manager (cond ((bound-and-true-p straight-symlink-mode) 'straight)
+                      ((bound-and-true-p elpaca-no-symlink-mode) 'elpaca)))
+       (build (pcase manager
+                ('straight (bound-and-true-p straight-build-dir))
+                ('elpaca (bound-and-true-p elpaca-builds-directory))))
+       ((string-prefix-p build filename))
+       (repo (pcase manager
+               ('straight
+                (and (bound-and-true-p straight-base-dir)
+                     (expand-file-name "repos/magit/lisp/" straight-base-dir)))
+               ('elpaca
+                (and (bound-and-true-p elpaca-repos-directory)
+                     (expand-file-name "magit/lisp/" elpaca-repos-directory))))))
+    (setq filename (expand-file-name (file-name-nondirectory filename) repo)))
+  (file-chase-links filename))
+
+;;; Kludges for older Emacs versions
+
+(if (fboundp 'with-connection-local-variables)
+    (defalias 'magit--with-connection-local-variables
+      #'with-connection-local-variables)
+  (defmacro magit--with-connection-local-variables (&rest body)
+    "Abridged `with-connection-local-variables' for pre Emacs 27 compatibility.
+Bind shell file name and switch for remote execution.
+`with-connection-local-variables' isn't available until Emacs 27.
+This kludge provides the minimal functionality required by
+Magit."
+    `(if (file-remote-p default-directory)
+         (pcase-let ((`(,shell-file-name ,shell-command-switch)
+                      (with-no-warnings ; about unknown tramp functions
+                        (require 'tramp)
+                        (let ((vec (tramp-dissect-file-name
+                                    default-directory)))
+                          (list (tramp-get-method-parameter
+                                 vec 'tramp-remote-shell)
+                                (string-join (tramp-get-method-parameter
+                                              vec 'tramp-remote-shell-args)
+                                             " "))))))
+           ,@body)
+       ,@body)))
+
+(put 'magit--with-connection-local-variables 'lisp-indent-function 'defun)
+
+;;; Miscellaneous
+
+(defun magit-message (format-string &rest args)
+  "Display a message at the bottom of the screen, or not.
+Like `message', except that if the users configured option
+`magit-no-message' to prevent the message corresponding to
+FORMAT-STRING to be displayed, then don't."
+  (unless (--first (string-prefix-p it format-string) magit-no-message)
+    (apply #'message format-string args)))
+
+(defun magit-msg (format-string &rest args)
+  "Display a message at the bottom of the screen, but don't log it.
+Like `message', except that `message-log-max' is bound to nil."
+  (let ((message-log-max nil))
+    (apply #'message format-string args)))
+
+(defmacro magit--with-temp-position (buf pos &rest body)
+  (declare (indent 2))
+  `(with-current-buffer ,buf
+     (save-excursion
+       (save-restriction
+         (widen)
+         (goto-char (or ,pos 1))
+         ,@body))))
+
+(defun magit--ellipsis (&optional where)
+  "Build an ellipsis always as string, depending on WHERE."
+  (if (stringp magit-ellipsis)
+      magit-ellipsis
+    (if-let ((pair (car (or
+                         (alist-get (or where t) magit-ellipsis)
+                         (alist-get t magit-ellipsis)))))
+        (pcase-let ((`(,fancy . ,universal) pair))
+          (let ((ellipsis (if (and fancy (char-displayable-p fancy))
+                              fancy
+                            universal)))
+            (if (characterp ellipsis)
+                (char-to-string ellipsis)
+              ellipsis)))
+      (user-error "Variable magit-ellipsis is invalid"))))
+
+(defun magit--ext-regexp-quote (str)
+  "Like `reqexp-quote', but for Extended Regular Expressions."
+  (let ((special (string-to-list "[*.\\?+^$({"))
+        (quoted nil))
+    (mapc (lambda (c)
+            (when (memq c special)
+              (push ?\\ quoted))
+            (push c quoted))
+          str)
+    (concat (nreverse quoted))))
+
+;;; _
+(provide 'magit-base)
+;;; magit-base.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-base.elc b/emacs/elpa/magit-20241124.1509/magit-base.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-bisect.el b/emacs/elpa/magit-20241124.1509/magit-bisect.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-bisect.elc b/emacs/elpa/magit-20241124.1509/magit-bisect.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-blame.el b/emacs/elpa/magit-20241124.1509/magit-blame.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-blame.elc b/emacs/elpa/magit-20241124.1509/magit-blame.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-bookmark.el b/emacs/elpa/magit-20241124.1509/magit-bookmark.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-bookmark.elc b/emacs/elpa/magit-20241124.1509/magit-bookmark.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-branch.el b/emacs/elpa/magit-20241124.1509/magit-branch.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-branch.elc b/emacs/elpa/magit-20241124.1509/magit-branch.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-bundle.el b/emacs/elpa/magit-20241124.1509/magit-bundle.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-bundle.elc b/emacs/elpa/magit-20241124.1509/magit-bundle.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-clone.el b/emacs/elpa/magit-20241124.1509/magit-clone.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-clone.elc b/emacs/elpa/magit-20241124.1509/magit-clone.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-commit.el b/emacs/elpa/magit-20241124.1509/magit-commit.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-commit.elc b/emacs/elpa/magit-20241124.1509/magit-commit.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-core.el b/emacs/elpa/magit-20241124.1509/magit-core.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-core.elc b/emacs/elpa/magit-20241124.1509/magit-core.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-diff.el b/emacs/elpa/magit-20241124.1509/magit-diff.el
diff --git a/emacs/elpa/magit-20241124.1509/magit-diff.elc b/emacs/elpa/magit-20241124.1509/magit-diff.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-ediff.el b/emacs/elpa/magit-20241124.1509/magit-ediff.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-ediff.elc b/emacs/elpa/magit-20241124.1509/magit-ediff.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-extras.el b/emacs/elpa/magit-20241124.1509/magit-extras.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-extras.elc b/emacs/elpa/magit-20241124.1509/magit-extras.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-fetch.el b/emacs/elpa/magit-20241124.1509/magit-fetch.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-fetch.elc b/emacs/elpa/magit-20241124.1509/magit-fetch.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-files.el b/emacs/elpa/magit-20241124.1509/magit-files.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-files.elc b/emacs/elpa/magit-20241124.1509/magit-files.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-git.el b/emacs/elpa/magit-20241124.1509/magit-git.el
@@ -0,0 +1,2901 @@
+;;; magit-git.el --- Git functionality  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements wrappers for various Git plumbing commands.
+
+;;; Code:
+
+(require 'magit-base)
+
+(require 'format-spec)
+
+;; From `magit-branch'.
+(defvar magit-branch-prefer-remote-upstream)
+(defvar magit-published-branches)
+
+;; From `magit-margin'.
+(declare-function magit-maybe-make-margin-overlay "magit-margin" ())
+
+;; From `magit-mode'.
+(declare-function magit-get-mode-buffer "magit-mode"
+                  (mode &optional value frame))
+(declare-function magit-refresh "magit-mode" ())
+(defvar magit-buffer-diff-type)
+(defvar magit-buffer-diff-args)
+(defvar magit-buffer-file-name)
+(defvar magit-buffer-log-args)
+(defvar magit-buffer-log-files)
+(defvar magit-buffer-refname)
+(defvar magit-buffer-revision)
+
+;; From `magit-process'.
+(declare-function magit-call-git "magit-process" (&rest args))
+(declare-function magit-git "magit-process" (&rest args))
+(declare-function magit-process-buffer "magit-process" (&optional nodisplay))
+(declare-function magit-process-file "magit-process"
+                  (process &optional infile buffer display &rest args))
+(declare-function magit-process-finish-section "magit-process"
+                  (section exit-code))
+(declare-function magit-process-git "magit-process" (destination &rest args))
+(declare-function magit-process-insert-section "magit-process"
+                  (pwd program args &optional errcode errlog face))
+(defvar magit-this-error)
+(defvar magit-process-error-message-regexps)
+
+(eval-when-compile
+  (cl-pushnew 'orig-rev eieio--known-slot-names)
+  (cl-pushnew 'number eieio--known-slot-names))
+
+;;; Options
+
+;; For now this is shared between `magit-process' and `magit-git'.
+(defgroup magit-process nil
+  "Git and other external processes used by Magit."
+  :group 'magit)
+
+(defvar magit-git-environment
+  (list (format "INSIDE_EMACS=%s,magit" emacs-version))
+  "Prepended to `process-environment' while running git.")
+
+(defcustom magit-git-output-coding-system
+  (and (eq system-type 'windows-nt) 'utf-8)
+  "Coding system for receiving output from Git.
+
+If non-nil, the Git config value `i18n.logOutputEncoding' should
+be set via `magit-git-global-arguments' to value consistent with
+this."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-process
+  :type '(choice (coding-system :tag "Coding system to decode Git output")
+                 (const :tag "Use system default" nil)))
+
+(defvar magit-git-w32-path-hack nil
+  "Alist of (EXE . (PATHENTRY)).
+This specifies what additional PATH setting needs to be added to
+the environment in order to run the non-wrapper git executables
+successfully.")
+
+(defcustom magit-git-executable
+  (or (and (eq system-type 'windows-nt)
+           ;; Avoid the wrappers "cmd/git.exe" and "cmd/git.cmd",
+           ;; which are much slower than using "bin/git.exe" directly.
+           (and-let* ((exec (executable-find "git")))
+             (ignore-errors
+               ;; Git for Windows 2.x provides cygpath so we can
+               ;; ask it for native paths.
+               (let* ((core-exe
+                       (car
+                        (process-lines
+                         exec "-c"
+                         "alias.X=!x() { which \"$1\" | cygpath -mf -; }; x"
+                         "X" "git")))
+                      (hack-entry (assoc core-exe magit-git-w32-path-hack))
+                      ;; Running the libexec/git-core executable
+                      ;; requires some extra PATH entries.
+                      (path-hack
+                       (list (concat "PATH="
+                                     (car (process-lines
+                                           exec "-c"
+                                           "alias.P=!cygpath -wp \"$PATH\""
+                                           "P"))))))
+                 ;; The defcustom STANDARD expression can be
+                 ;; evaluated many times, so make sure it is
+                 ;; idempotent.
+                 (if hack-entry
+                     (setcdr hack-entry path-hack)
+                   (push (cons core-exe path-hack) magit-git-w32-path-hack))
+                 core-exe))))
+      (and (eq system-type 'darwin)
+           (executable-find "git"))
+      "git")
+  "The Git executable used by Magit on the local host.
+On remote machines `magit-remote-git-executable' is used instead."
+  :package-version '(magit . "3.2.0")
+  :group 'magit-process
+  :type 'string)
+
+(defcustom magit-remote-git-executable "git"
+  "The Git executable used by Magit on remote machines.
+On the local host `magit-git-executable' is used instead.
+Consider customizing `tramp-remote-path' instead of this
+option."
+  :package-version '(magit . "3.2.0")
+  :group 'magit-process
+  :type 'string)
+
+(defcustom magit-git-global-arguments
+  `("--no-pager" "--literal-pathspecs"
+    "-c" "core.preloadindex=true"
+    "-c" "log.showSignature=false"
+    "-c" "color.ui=false"
+    "-c" "color.diff=false"
+    ,@(and (eq system-type 'windows-nt)
+           (list "-c" "i18n.logOutputEncoding=UTF-8")))
+  "Global Git arguments.
+
+The arguments set here are used every time the git executable is
+run as a subprocess.  They are placed right after the executable
+itself and before the git command - as in `git HERE... COMMAND
+REST'.  See the manpage `git(1)' for valid arguments.
+
+Be careful what you add here, especially if you are using Tramp
+to connect to servers with ancient Git versions.  Never remove
+anything that is part of the default value, unless you really
+know what you are doing.  And think very hard before adding
+something; it will be used every time Magit runs Git for any
+purpose."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-commands
+  :group 'magit-process
+  :type '(repeat string))
+
+(defcustom magit-prefer-remote-upstream nil
+  "Whether to favor remote branches when reading the upstream branch.
+
+This controls whether commands that read a branch from the user
+and then set it as the upstream branch, offer a local or a remote
+branch as default completion candidate, when they have the choice.
+
+This affects all commands that use `magit-read-upstream-branch'
+or `magit-read-starting-point', which includes most commands
+that change the upstream and many that create new branches."
+  :package-version '(magit . "2.4.2")
+  :group 'magit-commands
+  :type 'boolean)
+
+(defcustom magit-list-refs-namespaces
+  '("refs/heads"
+    "refs/remotes"
+    "refs/tags"
+    "refs/pullreqs")
+  "List of ref namespaces considered when reading a ref.
+
+This controls the order of refs returned by `magit-list-refs',
+which is called by functions like `magit-list-branch-names' to
+generate the collection of refs."
+  :package-version '(magit . "3.1.0")
+  :group 'magit-commands
+  :type '(repeat string))
+
+(defcustom magit-list-refs-sortby nil
+  "How to sort the ref collection in the prompt.
+
+This affects commands that read a ref.  More specifically, it
+controls the order of refs returned by `magit-list-refs', which
+is called by functions like `magit-list-branch-names' to generate
+the collection of refs.  By default, refs are sorted according to
+their full refname (i.e., \"refs/...\").
+
+Any value accepted by the `--sort' flag of \"git for-each-ref\" can
+be used.  For example, \"-creatordate\" places refs with more
+recent committer or tagger dates earlier in the list.  A list of
+strings can also be given in order to pass multiple sort keys to
+\"git for-each-ref\".
+
+Note that, depending on the completion framework you use, this
+may not be sufficient to change the order in which the refs are
+displayed.  It only controls the order of the collection passed
+to `magit-completing-read' or, for commands that support reading
+multiple strings, `read-from-minibuffer'.  The completion
+framework ultimately determines how the collection is displayed."
+  :package-version '(magit . "2.11.0")
+  :group 'magit-miscellaneous
+  :type '(choice string (repeat string)))
+
+;;; Git
+
+(defvar magit-git-debug nil
+  "Whether to enable additional reporting of git errors.
+
+Magit basically calls git for one of these two reasons: for
+side-effects or to do something with its standard output.
+
+When git is run for side-effects then its output, including error
+messages, go into the process buffer which is shown when using \
+\\<magit-status-mode-map>\\[magit-process-buffer].
+
+When git's output is consumed in some way, then it would be too
+expensive to also insert it into this buffer, but when this
+option is non-nil and git returns with a non-zero exit status,
+then at least its standard error is inserted into this buffer.
+
+This is only intended for debugging purposes.  Do not enable this
+permanently, that would negatively affect performance.  Also note
+that just because git exits with a non-zero exit status and prints
+an error message that usually doesn't mean that it is an error as
+far as Magit is concerned, which is another reason we usually hide
+these error messages.  Whether some error message is relevant in
+the context of some unexpected behavior has to be judged on a case
+by case basis.
+
+The command `magit-toggle-git-debug' changes the value of this
+variable.
+
+Also see `magit-process-extreme-logging'.")
+
+(defun magit-toggle-git-debug ()
+  "Toggle whether additional git errors are reported.
+See info node `(magit)Debugging Tools' for more information."
+  (interactive)
+  (setq magit-git-debug (not magit-git-debug))
+  (message "Additional reporting of Git errors %s"
+           (if magit-git-debug "enabled" "disabled")))
+
+(defvar magit--refresh-cache nil)
+
+(defmacro magit--with-refresh-cache (key &rest body)
+  (declare (indent 1) (debug (form body)))
+  (let ((k (cl-gensym))
+        (hit (cl-gensym)))
+    `(if magit--refresh-cache
+         (let ((,k ,key))
+           (if-let ((,hit (assoc ,k (cdr magit--refresh-cache))))
+               (progn (cl-incf (caar magit--refresh-cache))
+                      (cdr ,hit))
+             (cl-incf (cdar magit--refresh-cache))
+             (let ((value ,(macroexp-progn body)))
+               (push (cons ,k value)
+                     (cdr magit--refresh-cache))
+               value)))
+       ,@body)))
+
+(defvar magit-with-editor-envvar "GIT_EDITOR"
+  "The environment variable exported by `magit-with-editor'.
+Set this to \"GIT_SEQUENCE_EDITOR\" if you do not want to use
+Emacs to edit commit messages but would like to do so to edit
+rebase sequences.")
+
+(defmacro magit-with-editor (&rest body)
+  "Like `with-editor*' but let-bind some more variables.
+Also respect the value of `magit-with-editor-envvar'."
+  (declare (indent 0) (debug (body)))
+  `(let ((magit-process-popup-time -1)
+         ;; The user may have customized `shell-file-name' to
+         ;; something which results in `w32-shell-dos-semantics' nil
+         ;; (which changes the quoting style used by
+         ;; `shell-quote-argument'), but Git for Windows expects shell
+         ;; quoting in the dos style.
+         (shell-file-name (if (and (eq system-type 'windows-nt)
+                                   ;; If we have Cygwin mount points,
+                                   ;; the git flavor is cygwin, so dos
+                                   ;; shell quoting is probably wrong.
+                                   (not magit-cygwin-mount-points))
+                              "cmdproxy"
+                            shell-file-name)))
+     (with-editor* magit-with-editor-envvar
+       ,@body)))
+
+(defmacro magit--with-temp-process-buffer (&rest body)
+  "Like `with-temp-buffer', but always propagate `process-environment'.
+When that var is buffer-local in the calling buffer, it is not
+propagated by `with-temp-buffer', so we explicitly ensure that
+happens, so that processes will be invoked consistently.  BODY is
+as for that macro."
+  (declare (indent 0) (debug (body)))
+  (let ((p (cl-gensym)))
+    `(let ((,p process-environment))
+       (with-temp-buffer
+         (setq-local process-environment ,p)
+         ,@body))))
+
+(defsubst magit-git-executable ()
+  "Return value of `magit-git-executable' or `magit-remote-git-executable'.
+The variable is chosen depending on whether `default-directory'
+is remote."
+  (if (file-remote-p default-directory)
+      magit-remote-git-executable
+    magit-git-executable))
+
+(defun magit-process-git-arguments (args)
+  "Prepare ARGS for a function that invokes Git.
+
+Magit has many specialized functions for running Git; they all
+pass arguments through this function before handing them to Git,
+to do the following.
+
+* Flatten ARGS, removing nil arguments.
+* Prepend `magit-git-global-arguments' to ARGS.
+* On w32 systems, encode to `w32-ansi-code-page'."
+  (setq args (append magit-git-global-arguments (flatten-tree args)))
+  (if (and (eq system-type 'windows-nt) (boundp 'w32-ansi-code-page))
+      ;; On w32, the process arguments *must* be encoded in the
+      ;; current code-page (see #3250).
+      (mapcar (lambda (arg)
+                (encode-coding-string
+                 arg (intern (format "cp%d" w32-ansi-code-page))))
+              args)
+    args))
+
+(defun magit-git-exit-code (&rest args)
+  "Execute Git with ARGS, returning its exit code."
+  (magit-process-git nil args))
+
+(defun magit-git-success (&rest args)
+  "Execute Git with ARGS, returning t if its exit code is 0."
+  (= (magit-git-exit-code args) 0))
+
+(defun magit-git-failure (&rest args)
+  "Execute Git with ARGS, returning t if its exit code is 1."
+  (= (magit-git-exit-code args) 1))
+
+(defun magit-git-string-p (&rest args)
+  "Execute Git with ARGS, returning the first line of its output.
+If the exit code isn't zero or if there is no output, then return
+nil.  Neither of these results is considered an error; if that is
+what you want, then use `magit-git-string-ng' instead.
+
+This is an experimental replacement for `magit-git-string', and
+still subject to major changes."
+  (magit--with-refresh-cache (cons default-directory args)
+    (magit--with-temp-process-buffer
+      (and (zerop (magit-process-git t args))
+           (not (bobp))
+           (progn
+             (goto-char (point-min))
+             (buffer-substring-no-properties (point) (line-end-position)))))))
+
+(defun magit-git-string-ng (&rest args)
+  "Execute Git with ARGS, returning the first line of its output.
+If the exit code isn't zero or if there is no output, then that
+is considered an error, but instead of actually signaling an
+error, return nil.  Additionally the output is put in the process
+buffer (creating it if necessary) and the error message is shown
+in the status buffer (provided it exists).
+
+This is an experimental replacement for `magit-git-string', and
+still subject to major changes.  Also see `magit-git-string-p'."
+  (magit--with-refresh-cache
+      (list default-directory 'magit-git-string-ng args)
+    (magit--with-temp-process-buffer
+      (let* ((args (magit-process-git-arguments args))
+             (status (magit-process-git t args)))
+        (if (zerop status)
+            (and (not (bobp))
+                 (progn
+                   (goto-char (point-min))
+                   (buffer-substring-no-properties
+                    (point) (line-end-position))))
+          (let ((buf (current-buffer)))
+            (with-current-buffer (magit-process-buffer t)
+              (magit-process-insert-section default-directory
+                                            magit-git-executable args
+                                            status buf
+                                            'magit-section-secondary-heading)))
+          (when-let ((status-buf (magit-get-mode-buffer 'magit-status-mode)))
+            (let ((msg (magit--locate-error-message)))
+              (with-current-buffer status-buf
+                (setq magit-this-error msg))))
+          nil)))))
+
+(defun magit-git-str (&rest args)
+  "Execute Git with ARGS, returning the first line of its output.
+If there is no output, return nil.  If the output begins with a
+newline, return an empty string.  Like `magit-git-string' but
+ignore `magit-git-debug'."
+  (setq args (flatten-tree args))
+  (magit--with-refresh-cache (cons default-directory args)
+    (magit--with-temp-process-buffer
+      (magit-process-git (list t nil) args)
+      (unless (bobp)
+        (goto-char (point-min))
+        (buffer-substring-no-properties (point) (line-end-position))))))
+
+(defun magit-git-output (&rest args)
+  "Execute Git with ARGS, returning its output."
+  (setq args (flatten-tree args))
+  (magit--with-refresh-cache (cons default-directory args)
+    (magit--with-temp-process-buffer
+      (magit-process-git (list t nil) args)
+      (buffer-substring-no-properties (point-min) (point-max)))))
+
+(define-error 'magit-invalid-git-boolean "Not a Git boolean")
+
+(defun magit-git-true (&rest args)
+  "Execute Git with ARGS, returning t if it prints \"true\".
+If it prints \"false\", then return nil.  For any other output
+signal `magit-invalid-git-boolean'."
+  (pcase (magit-git-output args)
+    ((or "true"  "true\n")  t)
+    ((or "false" "false\n") nil)
+    (output (signal 'magit-invalid-git-boolean (list output)))))
+
+(defun magit-git-false (&rest args)
+  "Execute Git with ARGS, returning t if it prints \"false\".
+If it prints \"true\", then return nil.  For any other output
+signal `magit-invalid-git-boolean'."
+  (pcase (magit-git-output args)
+    ((or "true"  "true\n")  nil)
+    ((or "false" "false\n") t)
+    (output (signal 'magit-invalid-git-boolean (list output)))))
+
+(defun magit-git-config-p (variable &optional default)
+  "Return the boolean value of the Git variable VARIABLE.
+VARIABLE has to be specified as a string.  Return DEFAULT (which
+defaults to nil) if VARIABLE is unset.  If VARIABLE's value isn't
+a boolean, then raise an error."
+  (let ((args (list "config" "--bool" "--default" (if default "true" "false")
+                    variable)))
+    (magit--with-refresh-cache (cons default-directory args)
+      (magit--with-temp-process-buffer
+        (let ((status (magit-process-git t args))
+              (output (buffer-substring (point-min) (1- (point-max)))))
+          (if (zerop status)
+              (equal output "true")
+            (signal 'magit-invalid-git-boolean (list output))))))))
+
+(defun magit-git-insert (&rest args)
+  "Execute Git with ARGS, insert stdout at point and return exit code.
+If `magit-git-debug' in non-nil and the exit code is non-zero, then
+insert the run command and stderr into the process buffer."
+  (apply #'magit--git-insert nil args))
+
+(defun magit--git-insert (return-error &rest args)
+  (setq args (flatten-tree args))
+  (if (or return-error magit-git-debug)
+      (let (log)
+        (unwind-protect
+            (let (exit errmsg)
+              (setq log (make-temp-file "magit-stderr"))
+              (delete-file log)
+              (setq exit (magit-process-git (list t log) args))
+              (when (or (> exit 0) (eq magit-git-debug 'all))
+                (when (file-exists-p log)
+                  (with-temp-buffer
+                    (insert-file-contents log)
+                    (goto-char (point-max))
+                    (setq errmsg
+                          (cond
+                           ((eq return-error 'full)
+                            (buffer-string))
+                           ((functionp magit-git-debug)
+                            (funcall magit-git-debug (buffer-string)))
+                           ((magit--locate-error-message)))))
+                  (when magit-git-debug
+                    (let ((magit-git-debug nil))
+                      (with-current-buffer (magit-process-buffer t)
+                        (magit-process-finish-section
+                         (magit-process-insert-section
+                          default-directory magit-git-executable
+                          (magit-process-git-arguments args)
+                          exit log 'magit-section-secondary-heading)
+                         exit)))))
+                (cond ((not magit-git-debug))
+                      (errmsg (message "%s" errmsg))
+                      ((zerop exit))
+                      ((message "Git returned with exit-code %s" exit))))
+              (or errmsg exit))
+          (ignore-errors (delete-file log))))
+    (magit-process-git (list t nil) args)))
+
+(defun magit--locate-error-message ()
+  (goto-char (point-max))
+  (and (run-hook-wrapped 'magit-process-error-message-regexps
+                         (lambda (re) (re-search-backward re nil t)))
+       (match-string-no-properties 1)))
+
+(defun magit-git-string (&rest args)
+  "Execute Git with ARGS, returning the first line of its output.
+If there is no output, return nil.  If the output begins with a
+newline, return an empty string."
+  (setq args (flatten-tree args))
+  (magit--with-refresh-cache (cons default-directory args)
+    (magit--with-temp-process-buffer
+      (apply #'magit-git-insert args)
+      (unless (bobp)
+        (goto-char (point-min))
+        (buffer-substring-no-properties (point) (line-end-position))))))
+
+(defun magit-git-lines (&rest args)
+  "Execute Git with ARGS, returning its output as a list of lines.
+Empty lines anywhere in the output are omitted.
+
+If Git exits with a non-zero exit status, then report show a
+message and add a section in the respective process buffer."
+  (magit--with-temp-process-buffer
+    (apply #'magit-git-insert args)
+    (split-string (buffer-string) "\n" t)))
+
+(defun magit-git-items (&rest args)
+  "Execute Git with ARGS, returning its null-separated output as a list.
+Empty items anywhere in the output are omitted.
+
+If Git exits with a non-zero exit status, then report show a
+message and add a section in the respective process buffer."
+  (magit--with-temp-process-buffer
+    (apply #'magit-git-insert args)
+    (split-string (buffer-string) "\0" t)))
+
+(defvar magit--git-wash-keep-error t)
+
+(defun magit-git-wash (washer &rest args)
+  "Execute Git with ARGS, inserting washed output at point.
+Actually first insert the raw output at point.  If there is no
+output, call `magit-cancel-section'.  Otherwise temporarily narrow
+the buffer to the inserted text, move to its beginning, and then
+call function WASHER with ARGS as its sole argument."
+  (declare (indent 1))
+  (apply #'magit--git-wash washer magit--git-wash-keep-error args))
+
+(defun magit--git-wash (washer keep-error &rest args)
+  (declare (indent 2))
+  (setq args (flatten-tree args))
+  (let ((beg (point))
+        (exit (magit--git-insert (and keep-error 'full) args)))
+    (when (stringp exit)
+      (goto-char beg)
+      (insert (propertize exit 'face 'error))
+      (insert (if (bolp) "\n" "\n\n")))
+    (if (= (point) beg)
+        (magit-cancel-section)
+      (unless (bolp)
+        (insert "\n"))
+      (when (or (equal exit 0)
+                (eq keep-error 'wash-anyway))
+        (save-restriction
+          (narrow-to-region beg (point))
+          (goto-char beg)
+          (funcall washer args))
+        (when (or (= (point) beg)
+                  (= (point) (1+ beg)))
+          (magit-cancel-section))
+        (magit-maybe-make-margin-overlay)))
+    exit))
+
+(defun magit-git-executable-find (command)
+  "Search for COMMAND in Git's exec path, falling back to `exec-path'.
+Like `executable-find', return the absolute file name of the
+executable."
+  (or (locate-file command
+                   (list (concat
+                          (file-remote-p default-directory)
+                          (or (magit-git-string "--exec-path")
+                              (error "`git --exec-path' failed"))))
+                   exec-suffixes
+                   #'file-executable-p)
+      (compat-call executable-find command t)))
+
+;;; Git Version
+
+(defconst magit--git-version-regexp
+  "\\`git version \\([0-9]+\\(\\.[0-9]+\\)\\{1,2\\}\\)")
+
+(defvar magit--host-git-version-cache nil)
+
+(defun magit-git-version>= (n)
+  "Return t if `magit-git-version's value is greater than or equal to N."
+  (magit--version>= (magit-git-version) n))
+
+(defun magit-git-version< (n)
+  "Return t if `magit-git-version's value is smaller than N."
+  (version< (magit-git-version) n))
+
+(defun magit-git-version ()
+  "Return the Git version used for `default-directory'.
+Raise an error if Git cannot be found, if it exits with a
+non-zero status, or the output does not have the expected
+format."
+  (magit--with-refresh-cache default-directory
+    (let ((host (file-remote-p default-directory)))
+      (or (cdr (assoc host magit--host-git-version-cache))
+          (magit--with-temp-process-buffer
+            ;; Unset global arguments for ancient Git versions.
+            (let* ((magit-git-global-arguments nil)
+                   (status (magit-process-git t "version"))
+                   (output (buffer-string)))
+              (cond
+               ((not (zerop status))
+                (display-warning
+                 'magit
+                 (format "%S\n\nRunning \"%s --version\" failed with output:\n\n%s"
+                         (if host
+                             (format "Magit cannot find Git on host %S.\n
+Check the value of `magit-remote-git-executable' using
+`magit-debug-git-executable' and consult the info node
+`(tramp)Remote programs'." host)
+                           "Magit cannot find Git.\n
+Check the values of `magit-git-executable' and `exec-path'
+using `magit-debug-git-executable'.")
+                         (magit-git-executable)
+                         output)))
+               ((save-match-data
+                  (and (string-match magit--git-version-regexp output)
+                       (let ((version (match-string 1 output)))
+                         (push (cons host version)
+                               magit--host-git-version-cache)
+                         version))))
+               ((error "Unexpected \"%s --version\" output: %S"
+                       (magit-git-executable)
+                       output)))))))))
+
+(defun magit-git-version-assert (&optional minimal who)
+  "Assert that the used Git version is greater than or equal to MINIMAL.
+If optional MINIMAL is nil, compare with `magit--minimal-git'
+instead.  Optional WHO if non-nil specifies what functionality
+needs at least MINIMAL, otherwise it defaults to \"Magit\"."
+  (when (magit-git-version< (or minimal magit--minimal-git))
+    (let* ((host (file-remote-p default-directory))
+           (msg (format-spec
+                 (cond (host "\
+%w requires Git %m or greater, but on %h the version is %v.
+
+If multiple Git versions are installed on the host, then the
+problem might be that TRAMP uses the wrong executable.
+
+Check the value of `magit-remote-git-executable' and consult
+the info node `(tramp)Remote programs'.\n")
+                       (t "\
+%w requires Git %m or greater, but you are using %v.
+
+If you have multiple Git versions installed, then check the
+values of `magit-remote-git-executable' and `exec-path'.\n"))
+                 `((?w . ,(or who "Magit"))
+                   (?m . ,(or minimal magit--minimal-git))
+                   (?v . ,(magit-git-version))
+                   (?h . ,host)))))
+      (display-warning 'magit msg :error))))
+
+(defun magit--safe-git-version ()
+  "Return the Git version used for `default-directory' or an error message."
+  (magit--with-temp-process-buffer
+    (let* ((magit-git-global-arguments nil)
+           (status (magit-process-git t "version"))
+           (output (buffer-string)))
+      (cond ((not (zerop status)) output)
+            ((save-match-data
+               (and (string-match magit--git-version-regexp output)
+                    (match-string 1 output))))
+            (t output)))))
+
+(defun magit-debug-git-executable ()
+  "Display a buffer with information about `magit-git-executable'.
+Also include information about `magit-remote-git-executable'.
+See info node `(magit)Debugging Tools' for more information."
+  (interactive)
+  (with-current-buffer (get-buffer-create "*magit-git-debug*")
+    (pop-to-buffer (current-buffer))
+    (erase-buffer)
+    (insert (format "magit-remote-git-executable: %S\n"
+                    magit-remote-git-executable))
+    (insert (concat
+             (format "magit-git-executable: %S" magit-git-executable)
+             (and (not (file-name-absolute-p magit-git-executable))
+                  (format " [%S]" (executable-find magit-git-executable)))
+             (format " (%s)\n" (magit--safe-git-version))))
+    (insert (format "exec-path: %S\n" exec-path))
+    (when-let ((diff (cl-set-difference
+                      (seq-filter #'file-exists-p (remq nil (parse-colon-path
+                                                             (getenv "PATH"))))
+                      (seq-filter #'file-exists-p (remq nil exec-path))
+                      :test #'file-equal-p)))
+      (insert (format "  entries in PATH, but not in exec-path: %S\n" diff)))
+    (dolist (execdir exec-path)
+      (insert (format "  %s (%s)\n" execdir (car (file-attributes execdir))))
+      (when (file-directory-p execdir)
+        (dolist (exec (directory-files
+                       execdir t (concat
+                                  "\\`git" (regexp-opt exec-suffixes) "\\'")))
+          (insert (format "    %s (%s)\n" exec
+                          (magit--safe-git-version))))))))
+
+;;; Variables
+
+(defun magit-config-get-from-cached-list (key)
+  (gethash
+   ;; `git config --list' downcases first and last components of the key.
+   (let* ((key (replace-regexp-in-string "\\`[^.]+" #'downcase key t t))
+          (key (replace-regexp-in-string "[^.]+\\'" #'downcase key t t)))
+     key)
+   (magit--with-refresh-cache (cons (magit-toplevel) 'config)
+     (let ((configs (make-hash-table :test #'equal)))
+       (dolist (conf (magit-git-items "config" "--list" "-z"))
+         (let* ((nl-pos (cl-position ?\n conf))
+                (key (substring conf 0 nl-pos))
+                (val (if nl-pos (substring conf (1+ nl-pos)) "")))
+           (puthash key (nconc (gethash key configs) (list val)) configs)))
+       configs))))
+
+(defun magit-get (&rest keys)
+  "Return the value of the Git variable specified by KEYS."
+  (car (last (apply #'magit-get-all keys))))
+
+(defun magit-get-all (&rest keys)
+  "Return all values of the Git variable specified by KEYS."
+  (let ((magit-git-debug nil)
+        (arg (and (or (null (car keys))
+                      (string-prefix-p "--" (car keys)))
+                  (pop keys)))
+        (key (string-join keys ".")))
+    (if (and magit--refresh-cache (not arg))
+        (magit-config-get-from-cached-list key)
+      (magit-git-items "config" arg "-z" "--get-all" "--include" key))))
+
+(defun magit-get-boolean (&rest keys)
+  "Return the boolean value of the Git variable specified by KEYS.
+Also see `magit-git-config-p'."
+  (let ((arg (and (or (null (car keys))
+                      (string-prefix-p "--" (car keys)))
+                  (pop keys)))
+        (key (string-join keys ".")))
+    (equal (if magit--refresh-cache
+               (car (last (magit-config-get-from-cached-list key)))
+             (magit-git-str "config" arg "--bool" "--include" key))
+           "true")))
+
+(defun magit-set (value &rest keys)
+  "Set the value of the Git variable specified by KEYS to VALUE."
+  (let ((arg (and (or (null (car keys))
+                      (string-prefix-p "--" (car keys)))
+                  (pop keys)))
+        (key (string-join keys ".")))
+    (if value
+        (magit-git-success "config" arg key value)
+      (magit-git-success "config" arg "--unset" key))
+    value))
+
+(gv-define-setter magit-get (val &rest keys)
+  `(magit-set ,val ,@keys))
+
+(defun magit-set-all (values &rest keys)
+  "Set all values of the Git variable specified by KEYS to VALUES."
+  (let ((arg (and (or (null (car keys))
+                      (string-prefix-p "--" (car keys)))
+                  (pop keys)))
+        (var (string-join keys ".")))
+    (when (magit-get var)
+      (magit-call-git "config" arg "--unset-all" var))
+    (dolist (v values)
+      (magit-call-git "config" arg "--add" var v))))
+
+;;; Files
+
+(defun magit--safe-default-directory (&optional file)
+  (catch 'unsafe-default-dir
+    (let ((dir (file-name-as-directory
+                (expand-file-name (or file default-directory))))
+          (previous nil))
+      (while (not (file-accessible-directory-p dir))
+        (setq dir (file-name-directory (directory-file-name dir)))
+        (when (equal dir previous)
+          (throw 'unsafe-default-dir nil))
+        (setq previous dir))
+      dir)))
+
+(defmacro magit--with-safe-default-directory (file &rest body)
+  (declare (indent 1) (debug (form body)))
+  `(when-let ((default-directory (magit--safe-default-directory ,file)))
+     ,@body))
+
+(defun magit-git-dir (&optional path)
+  "Like (expand-file-name PATH (magit-gitdir)) or just (magit-gitdir)."
+  (declare (obsolete 'magit-gitdir "Magit 4.0.0"))
+  (and-let* ((dir (magit-gitdir)))
+    (if path
+        (expand-file-name (convert-standard-filename path) dir)
+      dir)))
+
+(defun magit-gitdir (&optional directory)
+  "Return the absolute and resolved path of the .git directory.
+
+If the `GIT_DIR' environment variable is defined, return that.
+Otherwise return the .git directory for DIRECTORY, or if that is
+nil, then for `default-directory' instead.  If the directory is
+not located inside a Git repository, then return nil."
+  (let ((default-directory (or directory default-directory)))
+    (magit--with-refresh-cache (list default-directory 'magit-gitdir)
+      (magit--with-safe-default-directory nil
+        (and-let*
+            ((dir (magit-rev-parse-safe "--git-dir"))
+             (dir (file-name-as-directory (magit-expand-git-file-name dir))))
+          (if (file-remote-p dir)
+              dir
+            (concat (file-remote-p default-directory) dir)))))))
+
+(defvar magit--separated-gitdirs nil)
+
+(defun magit--record-separated-gitdir ()
+  (let ((topdir (magit-toplevel))
+        (gitdir (magit-gitdir)))
+    ;; Kludge: git-annex converts submodule gitdirs to symlinks. See #3599.
+    (when (file-symlink-p (directory-file-name gitdir))
+      (setq gitdir (file-truename gitdir)))
+    ;; We want to delete the entry for `topdir' here, rather than within
+    ;; (unless ...), in case a `--separate-git-dir' repository was switched to
+    ;; the standard structure (i.e., "topdir/.git/").
+    (setq magit--separated-gitdirs (cl-delete topdir
+                                              magit--separated-gitdirs
+                                              :key #'car :test #'equal))
+    (unless (equal (file-name-as-directory (expand-file-name ".git" topdir))
+                   gitdir)
+      (push (cons topdir gitdir) magit--separated-gitdirs))))
+
+(defun magit-toplevel (&optional directory)
+  "Return the absolute path to the toplevel of the current repository.
+
+From within the working tree or control directory of a repository
+return the absolute path to the toplevel directory of the working
+tree.  As a special case, from within a bare repository return
+the control directory instead.  When called outside a repository
+then return nil.
+
+When optional DIRECTORY is non-nil then return the toplevel for
+that directory instead of the one for `default-directory'.
+
+Try to respect the option `find-file-visit-truename', i.e.,  when
+the value of that option is nil, then avoid needlessly returning
+the truename.  When a symlink to a sub-directory of the working
+tree is involved, or when called from within a sub-directory of
+the gitdir or from the toplevel of a gitdir, which itself is not
+located within the working tree, then it is not possible to avoid
+returning the truename."
+  (or
+   (magit--with-refresh-cache
+       (cons (or directory default-directory) 'magit-toplevel)
+     (magit--with-safe-default-directory directory
+       (if-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
+           (let (updir)
+             (setq topdir (magit-expand-git-file-name topdir))
+             (cond
+              ((and
+                ;; Always honor these settings.
+                (not find-file-visit-truename)
+                (not (getenv "GIT_WORK_TREE"))
+                ;; `--show-cdup' is the relative path to the toplevel
+                ;; from `(file-truename default-directory)'.  Here we
+                ;; pretend it is relative to `default-directory', and
+                ;; go to that directory.  Then we check whether
+                ;; `--show-toplevel' still returns the same value and
+                ;; whether `--show-cdup' now is the empty string.  If
+                ;; both is the case, then we are at the toplevel of
+                ;; the same working tree, but also avoided needlessly
+                ;; following any symlinks.
+                (progn
+                  (setq updir (file-name-as-directory
+                               (magit-rev-parse-safe "--show-cdup")))
+                  (setq updir (if (file-name-absolute-p updir)
+                                  (concat (file-remote-p default-directory)
+                                          updir)
+                                (expand-file-name updir)))
+                  (and-let*
+                      ((default-directory updir)
+                       (top (and (string-equal
+                                  (magit-rev-parse-safe "--show-cdup") "")
+                                 (magit-rev-parse-safe "--show-toplevel"))))
+                    (string-equal (magit-expand-git-file-name top) topdir))))
+               updir)
+              ((concat (file-remote-p default-directory)
+                       (file-name-as-directory topdir)))))
+         (and-let* ((gitdir (magit-rev-parse-safe "--git-dir"))
+                    (gitdir (file-name-as-directory
+                             (if (file-name-absolute-p gitdir)
+                                 ;; We might have followed a symlink.
+                                 (concat (file-remote-p default-directory)
+                                         (magit-expand-git-file-name gitdir))
+                               (expand-file-name gitdir)))))
+           (if (magit-bare-repo-p)
+               gitdir
+             (let* ((link (expand-file-name "gitdir" gitdir))
+                    (wtree (and (file-exists-p link)
+                                (magit-file-line link))))
+               (cond
+                ((and wtree
+                      ;; Ignore .git/gitdir files that result from a
+                      ;; Git bug.  See #2364.
+                      (not (equal wtree ".git")))
+                 ;; Return the linked working tree.
+                 (concat (file-remote-p default-directory)
+                         (file-name-directory wtree)))
+                ;; The working directory may not be the parent
+                ;; directory of .git if it was set up with
+                ;; "git init --separate-git-dir".  See #2955.
+                ((car (rassoc gitdir magit--separated-gitdirs)))
+                (;; Step outside the control directory to enter the
+                 ;; working tree.
+                 (file-name-directory (directory-file-name gitdir))))))))))))
+
+(defun magit--toplevel-safe ()
+  (or (magit-toplevel)
+      (magit--not-inside-repository-error)))
+
+(defmacro magit-with-toplevel (&rest body)
+  (declare (indent defun) (debug (body)))
+  `(let ((default-directory (magit--toplevel-safe)))
+     ,@body))
+
+(define-error 'magit-outside-git-repo "Not inside Git repository")
+(define-error 'magit-corrupt-git-config "Corrupt Git configuration")
+(define-error 'magit-git-executable-not-found
+              (concat "Git executable cannot be found "
+                      "(see https://magit.vc/goto/e6a78ed2)"))
+
+(defun magit--assert-usable-git ()
+  (if (not (compat-call executable-find (magit-git-executable) t))
+      (signal 'magit-git-executable-not-found (magit-git-executable))
+    (let ((magit-git-debug
+           (lambda (err)
+             (signal 'magit-corrupt-git-config
+                     (format "%s: %s" default-directory err)))))
+      ;; This should always succeed unless there's a corrupt config
+      ;; (or at least a similarly severe failing state).  Note that
+      ;; git-config's --default is avoided because it's not available
+      ;; until Git 2.18.
+      (magit-git-string "config" "--get-color" "" "reset"))
+    nil))
+
+(defun magit--not-inside-repository-error ()
+  (magit--assert-usable-git)
+  (signal 'magit-outside-git-repo default-directory))
+
+(defun magit-inside-gitdir-p (&optional noerror)
+  "Return t if `default-directory' is below the repository directory.
+If it is below the working directory, then return nil.
+If it isn't below either, then signal an error unless NOERROR
+is non-nil, in which case return nil."
+  (and (magit--assert-default-directory noerror)
+       ;; Below a repository directory that is not located below the
+       ;; working directory "git rev-parse --is-inside-git-dir" prints
+       ;; "false", which is wrong.
+       (let ((gitdir (magit-gitdir)))
+         (cond (gitdir (file-in-directory-p default-directory gitdir))
+               (noerror nil)
+               ((signal 'magit-outside-git-repo default-directory))))))
+
+(defun magit-inside-worktree-p (&optional noerror)
+  "Return t if `default-directory' is below the working directory.
+If it is below the repository directory, then return nil.
+If it isn't below either, then signal an error unless NOERROR
+is non-nil, in which case return nil."
+  (and (magit--assert-default-directory noerror)
+       (condition-case nil
+           (magit-rev-parse-true "--is-inside-work-tree")
+         (magit-invalid-git-boolean
+          (and (not noerror)
+               (signal 'magit-outside-git-repo default-directory))))))
+
+(cl-defgeneric magit-bare-repo-p (&optional noerror)
+  "Return t if the current repository is bare.
+If it is non-bare, then return nil.  If `default-directory'
+isn't below a Git repository, then signal an error unless
+NOERROR is non-nil, in which case return nil."
+  (and (magit--assert-default-directory noerror)
+       (condition-case nil
+           (magit-rev-parse-true "--is-bare-repository")
+         (magit-invalid-git-boolean
+          (and (not noerror)
+               (signal 'magit-outside-git-repo default-directory))))))
+
+(defun magit--assert-default-directory (&optional noerror)
+  (or (file-directory-p default-directory)
+      (and (not noerror)
+           (let ((exists (file-exists-p default-directory)))
+             (signal (if exists 'file-error 'file-missing)
+                     (list "Running git in directory"
+                           (if exists
+                               "Not a directory"
+                             "No such file or directory")
+                           default-directory))))))
+
+(defun magit-git-repo-p (directory &optional non-bare)
+  "Return t if DIRECTORY is a Git repository.
+When optional NON-BARE is non-nil also return nil if DIRECTORY is
+a bare repository."
+  (and (file-directory-p directory) ; Avoid archives, see #3397.
+       (or (file-regular-p (expand-file-name ".git" directory))
+           (file-directory-p (expand-file-name ".git" directory))
+           (and (not non-bare)
+                (file-regular-p (expand-file-name "HEAD" directory))
+                (file-directory-p (expand-file-name "refs" directory))
+                (file-directory-p (expand-file-name "objects" directory))))))
+
+(defun magit-file-relative-name (&optional file tracked)
+  "Return the path of FILE relative to the repository root.
+
+If optional FILE is nil or omitted, return the relative path of
+the file being visited in the current buffer, if any, else nil.
+If the file is not inside a Git repository, then return nil.
+
+If TRACKED is non-nil, return the path only if it matches a
+tracked file."
+  (unless file
+    (with-current-buffer (or (buffer-base-buffer)
+                             (current-buffer))
+      (setq file (or magit-buffer-file-name buffer-file-name
+                     (and (derived-mode-p 'dired-mode) default-directory)))))
+  (when (and file (or (not tracked)
+                      (magit-file-tracked-p (file-relative-name file))))
+    (and-let* ((dir (magit-toplevel
+                     (magit--safe-default-directory
+                      (directory-file-name (file-name-directory file))))))
+      (file-relative-name file dir))))
+
+(defun magit-file-ignored-p (file)
+  (magit-git-string-p "ls-files" "--others" "--ignored" "--exclude-standard"
+                      "--" (magit-convert-filename-for-git file)))
+
+(defun magit-file-tracked-p (file)
+  (magit-git-success "ls-files" "--error-unmatch"
+                     "--" (magit-convert-filename-for-git file)))
+
+(defun magit-list-files (&rest args)
+  (apply #'magit-git-items "ls-files" "-z" "--full-name" args))
+
+(defun magit-tracked-files ()
+  (magit-list-files "--cached"))
+
+(defun magit-untracked-files (&optional all files compact)
+  (if compact
+      (--mapcat (and (eq (aref it 0) ??)
+                     (list (substring it 3)))
+                (magit-git-items "status" "-z" "--porcelain"
+                                 (magit-ignore-submodules-p t)
+                                 "--" files))
+    (magit-list-files "--other"
+                      (and (not all) "--exclude-standard")
+                      "--" files)))
+
+(defun magit-modified-files (&optional nomodules files)
+  (magit-git-items "diff-index" "-z" "--name-only"
+                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
+                   (if nomodules "--ignore-submodules" "--submodule=short")
+                   (magit-headish) "--" files))
+
+(defun magit-unstaged-files (&optional nomodules files)
+  (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=u"
+                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
+                   (if nomodules "--ignore-submodules" "--submodule=short")
+                   "--" files))
+
+(defun magit-staged-files (&optional nomodules files)
+  (magit-git-items "diff-index" "-z" "--name-only" "--cached"
+                   ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
+                   (if nomodules "--ignore-submodules" "--submodule=short")
+                   (magit-headish) "--" files))
+
+(defun magit-binary-files (&rest args)
+  (--mapcat (and (string-match "^-\t-\t\\(.+\\)" it)
+                 (list (match-string 1 it)))
+            (apply #'magit-git-items
+                   "diff" "-z" "--numstat" "--ignore-submodules"
+                   args)))
+
+(defun magit-unmerged-files ()
+  (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=U"))
+
+(defun magit-ignored-files ()
+  (magit-git-items "ls-files" "-z" "--others" "--ignored"
+                   "--exclude-standard" "--directory"))
+
+(defun magit-stashed-files (stash)
+  (magit-git-items "stash" "show" "-z" "--name-only" stash))
+
+(defun magit-skip-worktree-files ()
+  (--keep (and (= (aref it 0) ?S)
+               (substring it 2))
+          (magit-list-files "-t")))
+
+(defun magit-assume-unchanged-files ()
+  (--keep (and (memq (aref it 0) '(?h ?s ?m ?r ?c ?k))
+               (substring it 2))
+          (magit-list-files "-v")))
+
+(defun magit-revision-files (rev)
+  (magit-with-toplevel
+    (magit-git-items "ls-tree" "-z" "-r" "--name-only" rev)))
+
+(defun magit-revision-directories (rev)
+  "List directories that contain a tracked file in revision REV."
+  (magit-with-toplevel
+    (mapcar #'file-name-as-directory
+            (magit-git-items "ls-tree" "-z" "-r" "-d" "--name-only" rev))))
+
+(defun magit-changed-files (rev-or-range &optional other-rev)
+  "Return list of files the have changed between two revisions.
+If OTHER-REV is non-nil, REV-OR-RANGE should be a revision, not a
+range.  Otherwise, it can be any revision or range accepted by
+\"git diff\" (i.e., <rev>, <revA>..<revB>, or <revA>...<revB>)."
+  (magit-with-toplevel
+    (magit-git-items "diff" "-z" "--name-only" rev-or-range other-rev)))
+
+(defun magit-renamed-files (revA revB)
+  (mapcar (pcase-lambda (`(,_status ,fileA ,fileB))
+            (cons fileA fileB))
+          (seq-partition (magit-git-items "diff" "-z" "--name-status"
+                                          "--find-renames"
+                                          "--diff-filter=R" revA revB)
+                         3)))
+
+(defun magit--rev-file-name (file rev other-rev)
+  "For FILE, potentially renamed between REV and OTHER-REV, return name in REV.
+Return nil, if FILE appears neither in REV nor OTHER-REV,
+or if no rename is detected."
+  (or (car (member file (magit-revision-files rev)))
+      (and-let* ((renamed (magit-renamed-files rev other-rev)))
+        (car (rassoc file renamed)))))
+
+(defun magit-file-status (&rest args)
+  (magit--with-temp-process-buffer
+    (save-excursion (magit-git-insert "status" "-z" args))
+    (let ((pos (point)) status)
+      (while (> (skip-chars-forward "[:print:]") 0)
+        (let ((x (char-after     pos))
+              (y (char-after (1+ pos)))
+              (file (buffer-substring (+ pos 3) (point))))
+          (forward-char)
+          (if (memq x '(?R ?C))
+              (progn
+                (setq pos (point))
+                (skip-chars-forward "[:print:]")
+                (push (list file (buffer-substring pos (point)) x y) status)
+                (forward-char))
+            (push (list file nil x y) status)))
+        (setq pos (point)))
+      status)))
+
+(defcustom magit-cygwin-mount-points
+  (and (eq system-type 'windows-nt)
+       (cl-sort (--map (if (string-match "^\\(.*\\) on \\(.*\\) type" it)
+                           (cons (file-name-as-directory (match-string 2 it))
+                                 (file-name-as-directory (match-string 1 it)))
+                         (lwarn '(magit) :error
+                                "Failed to parse Cygwin mount: %S" it))
+                       ;; If --exec-path is not a native Windows path,
+                       ;; then we probably have a cygwin git.
+                       (let ((process-environment
+                              (append magit-git-environment
+                                      process-environment)))
+                         (and (not (string-match-p
+                                    "\\`[a-zA-Z]:"
+                                    (car (process-lines
+                                          magit-git-executable "--exec-path"))))
+                              (ignore-errors (process-lines "mount")))))
+                #'> :key (pcase-lambda (`(,cyg . ,_win)) (length cyg))))
+  "Alist of (CYGWIN . WIN32) directory names.
+Sorted from longest to shortest CYGWIN name."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-process
+  :type '(alist :key-type string :value-type directory))
+
+(defun magit-expand-git-file-name (filename)
+  (unless (file-name-absolute-p filename)
+    (setq filename (expand-file-name filename)))
+  (if-let ((cyg:win (and (not (file-remote-p default-directory)) ; see #4976
+                         (cl-assoc filename magit-cygwin-mount-points
+                                   :test (lambda (f cyg) (string-prefix-p cyg f))))))
+      (concat (cdr cyg:win)
+              (substring filename (length (car cyg:win))))
+    filename))
+
+(defun magit-convert-filename-for-git (filename)
+  "Convert FILENAME so that it can be passed to git.
+1. If it is a absolute filename, then pass it through
+   `expand-file-name' to replace things such as \"~/\" that
+   Git does not understand.
+2. If it is a remote filename, then remove the remote part.
+3. Deal with an `windows-nt' Emacs vs. Cygwin Git incompatibility."
+  (if (file-name-absolute-p filename)
+      (if-let ((cyg:win (cl-rassoc filename magit-cygwin-mount-points
+                                   :test (lambda (f win) (string-prefix-p win f)))))
+          (concat (car cyg:win)
+                  (substring filename (length (cdr cyg:win))))
+        (let ((expanded (expand-file-name filename)))
+          (or (file-remote-p expanded 'localname)
+              expanded)))
+    filename))
+
+(defun magit-decode-git-path (path)
+  (if (eq (aref path 0) ?\")
+      (decode-coding-string (read path)
+                            (or magit-git-output-coding-system
+                                (car default-process-coding-system))
+                            t)
+    path))
+
+(defun magit-file-at-point (&optional expand assert)
+  (if-let ((file (magit-section-case
+                   (file (oref it value))
+                   (hunk (magit-section-parent-value it)))))
+      (if expand
+          (expand-file-name file (magit-toplevel))
+        file)
+    (when assert
+      (user-error "No file at point"))))
+
+(defun magit-current-file ()
+  (or (magit-file-relative-name)
+      (magit-file-at-point)
+      (and (derived-mode-p 'magit-log-mode)
+           (car magit-buffer-log-files))))
+
+;;; Predicates
+
+(defun magit-no-commit-p ()
+  "Return t if there is no commit in the current Git repository."
+  (not (magit-rev-verify "HEAD")))
+
+(defun magit-merge-commit-p (commit)
+  "Return t if COMMIT is a merge commit."
+  (length> (magit-commit-parents commit) 1))
+
+(defun magit-anything-staged-p (&optional ignore-submodules &rest files)
+  "Return t if there are any staged changes.
+If optional FILES is non-nil, then only changes to those files
+are considered."
+  ;; The "--submodule=short" is needed to work around a bug in Git v2.46.0
+  ;; and v2.46.1.  See #5212 and #5221.  There are actually two related
+  ;; bugs, both of which are fixed in v2.46.2, with the following commits,
+  ;; but there is no workaround for the second bug.
+  ;; 11591850dd diff: report dirty submodules as changes in builtin_diff()
+  ;; 87cf96094a diff: report copies and renames as changes in run_diff_cmd()
+  (magit-git-failure "diff" "--quiet" "--cached"
+                     (if ignore-submodules
+                         "--ignore-submodules"
+                       "--submodule=short")
+                     "--" files))
+
+(defun magit-anything-unstaged-p (&optional ignore-submodules &rest files)
+  "Return t if there are any unstaged changes.
+If optional FILES is non-nil, then only changes to those files
+are considered."
+  (magit-git-failure "diff" "--quiet"
+                     (if ignore-submodules
+                         "--ignore-submodules"
+                       ;; Work around a bug in Git v2.46.0. See #5212 and #5221.
+                       "--submodule=short")
+                     "--" files))
+
+(defun magit-anything-modified-p (&optional ignore-submodules &rest files)
+  "Return t if there are any staged or unstaged changes.
+If optional FILES is non-nil, then only changes to those files
+are considered."
+  (or (apply #'magit-anything-staged-p   ignore-submodules files)
+      (apply #'magit-anything-unstaged-p ignore-submodules files)))
+
+(defun magit-anything-unmerged-p (&rest files)
+  "Return t if there are any merge conflicts.
+If optional FILES is non-nil, then only conflicts in those files
+are considered."
+  (and (magit-git-string "ls-files" "--unmerged" files) t))
+
+(defun magit-module-worktree-p (module)
+  (magit-with-toplevel
+    (file-exists-p (expand-file-name ".git" module))))
+
+(defun magit-module-no-worktree-p (module)
+  (not (magit-module-worktree-p module)))
+
+(defun magit-ignore-submodules-p (&optional return-argument)
+  (or (cl-find-if (lambda (arg)
+                    (string-prefix-p "--ignore-submodules" arg))
+                  magit-buffer-diff-args)
+      (and-let* ((value (magit-get "diff.ignoreSubmodules")))
+        (if return-argument
+            (concat "--ignore-submodules=" value)
+          (concat "diff.ignoreSubmodules=" value)))))
+
+;;; Revisions and References
+
+(defun magit-rev-parse (&rest args)
+  "Execute `git rev-parse ARGS', returning first line of output.
+If there is no output, return nil."
+  (apply #'magit-git-string "rev-parse" args))
+
+(defun magit-rev-parse-safe (&rest args)
+  "Execute `git rev-parse ARGS', returning first line of output.
+If there is no output, return nil.  Like `magit-rev-parse' but
+ignore `magit-git-debug'."
+  (apply #'magit-git-str "rev-parse" args))
+
+(defun magit-rev-parse-true (&rest args)
+  "Execute `git rev-parse ARGS', returning t if it prints \"true\".
+If it prints \"false\", then return nil.  For any other output
+signal an error."
+  (magit-git-true "rev-parse" args))
+
+(defun magit-rev-parse-false (&rest args)
+  "Execute `git rev-parse ARGS', returning t if it prints \"false\".
+If it prints \"true\", then return nil.  For any other output
+signal an error."
+  (magit-git-false "rev-parse" args))
+
+(defun magit-rev-parse-p (&rest args)
+  "Execute `git rev-parse ARGS', returning t if it prints \"true\".
+Return t if the first (and usually only) output line is the
+string \"true\", otherwise return nil."
+  (equal (magit-git-str "rev-parse" args) "true"))
+
+(defun magit-rev-verify (rev)
+  (magit-git-string-p "rev-parse" "--verify" rev))
+
+(defun magit-commit-p (rev)
+  "Return full hash for REV if it names an existing commit."
+  (magit-rev-verify (magit--rev-dereference rev)))
+
+(defalias 'magit-rev-verify-commit #'magit-commit-p)
+
+(defalias 'magit-rev-hash #'magit-commit-p)
+
+(defun magit--rev-dereference (rev)
+  "Return a rev that forces Git to interpret REV as a commit.
+If REV is nil or has the form \":/TEXT\", return REV itself."
+  (cond ((not rev) nil)
+        ((string-match-p "^:/" rev) rev)
+        ((concat rev "^{commit}"))))
+
+(defun magit-rev-equal (a b)
+  "Return t if there are no differences between the commits A and B."
+  (magit-git-success "diff" "--quiet" a b))
+
+(defun magit-rev-eq (a b)
+  "Return t if A and B refer to the same commit."
+  (let ((a (magit-commit-p a))
+        (b (magit-commit-p b)))
+    (and a b (equal a b))))
+
+(defun magit-rev-ancestor-p (a b)
+  "Return non-nil if commit A is an ancestor of commit B."
+  (magit-git-success "merge-base" "--is-ancestor" a b))
+
+(defun magit-rev-head-p (rev)
+  (or (equal rev "HEAD")
+      (and rev
+           (not (string-search ".." rev))
+           (equal (magit-rev-parse rev)
+                  (magit-rev-parse "HEAD")))))
+
+(defun magit-rev-author-p (rev)
+  "Return t if the user is the author of REV.
+More precisely return t if `user.name' is equal to the author
+name of REV and/or `user.email' is equal to the author email
+of REV."
+  (or (equal (magit-get "user.name")  (magit-rev-format "%an" rev))
+      (equal (magit-get "user.email") (magit-rev-format "%ae" rev))))
+
+(defun magit-rev-name (rev &optional pattern not-anchored)
+  "Return a symbolic name for REV using `git-name-rev'.
+
+PATTERN can be used to limit the result to a matching ref.
+Unless NOT-ANCHORED is non-nil, the beginning of the ref must
+match PATTERN.
+
+An anchored lookup is done using the arguments
+\"--exclude=*/<PATTERN> --exclude=*/HEAD\" in addition to
+\"--refs=<PATTERN>\", provided at least version v2.13 of Git is
+used.  Older versions did not support the \"--exclude\" argument.
+When \"--exclude\" cannot be used and `git-name-rev' returns a
+ref that should have been excluded, then that is discarded and
+this function returns nil instead.  This is unfortunate because
+there might be other refs that do match.  To fix that, update
+Git."
+  (if (magit-git-version< "2.13")
+      (and-let*
+          ((ref (magit-git-string "name-rev" "--name-only" "--no-undefined"
+                                  (and pattern (concat "--refs=" pattern))
+                                  rev)))
+        (if (and pattern
+                 (string-match-p "\\`refs/[^/]+/\\*\\'" pattern))
+            (let ((namespace (substring pattern 0 -1)))
+              (and (not (or (string-suffix-p "HEAD" ref)
+                            (and (string-match-p namespace ref)
+                                 (not (magit-rev-verify
+                                       (concat namespace ref))))))
+                   ref))
+          ref))
+    (magit-git-string "name-rev" "--name-only" "--no-undefined"
+                      (and pattern (concat "--refs=" pattern))
+                      (and pattern
+                           (not not-anchored)
+                           (list "--exclude=*/HEAD"
+                                 (concat "--exclude=*/" pattern)))
+                      rev)))
+
+(defun magit-rev-branch (rev)
+  (and-let* ((name (magit-rev-name rev "refs/heads/*")))
+    (and (not (string-match-p "[~^]" name)) name)))
+
+(defun magit-rev-fixup-target (rev)
+  (let ((msg (magit-rev-format "%s" rev)))
+    (save-match-data
+      (and (string-match "\\`\\(fixup\\|squash\\)! \\(.+\\)" msg)
+           (magit-rev-format
+            "%h" (format "%s^{/^%s}" rev
+                         (magit--ext-regexp-quote (match-string 2 msg))))))))
+
+(defun magit-get-shortname (rev)
+  (let* ((fn (apply-partially #'magit-rev-name rev))
+         (name (or (funcall fn "refs/tags/*")
+                   (funcall fn "refs/heads/*")
+                   (funcall fn "refs/remotes/*"))))
+    (cond ((not name)
+           (magit-rev-parse "--short" rev))
+          ((string-match "^\\(?:tags\\|remotes\\)/\\(.+\\)" name)
+           (if (magit-ref-ambiguous-p (match-string 1 name))
+               name
+             (match-string 1 name)))
+          ((magit-ref-maybe-qualify name)))))
+
+(defun magit-name-branch (rev &optional lax)
+  (or (magit-name-local-branch rev)
+      (magit-name-remote-branch rev)
+      (and lax (or (magit-name-local-branch rev t)
+                   (magit-name-remote-branch rev t)))))
+
+(defun magit-name-local-branch (rev &optional lax)
+  (and-let* ((name (magit-rev-name rev "refs/heads/*")))
+    (and (or lax (not (string-match-p "[~^]" name))) name)))
+
+(defun magit-name-remote-branch (rev &optional lax)
+  (and-let* ((name (magit-rev-name rev "refs/remotes/*")))
+    (and (or lax (not (string-match-p "[~^]" name)))
+         (substring name 8))))
+
+(defun magit-name-tag (rev &optional lax)
+  (and-let* ((name (magit-rev-name rev "refs/tags/*")))
+    ;; The progn is necessary to work around debbugs#31840.  This, and all
+    ;; the other instances, can be removed once we require at least Emacs 27.
+    (progn
+      (when (string-suffix-p "^0" name)
+        (setq name (substring name 0 -2)))
+      (and (or lax (not (string-match-p "[~^]" name)))
+           (substring name 5)))))
+
+(defun magit-ref-abbrev (refname)
+  "Return an unambiguous abbreviation of REFNAME."
+  (magit-rev-parse "--verify" "--abbrev-ref" refname))
+
+(defun magit-ref-fullname (refname)
+  "Return fully qualified refname for REFNAME.
+If REFNAME is ambiguous, return nil."
+  (magit-rev-parse "--verify" "--symbolic-full-name" refname))
+
+(defun magit-ref-ambiguous-p (refname)
+  (save-match-data
+    (if (string-match "\\`\\([^^~]+\\)\\(.*\\)" refname)
+        (not (magit-ref-fullname (match-string 1 refname)))
+      (error "%S has an unrecognized format" refname))))
+
+(defun magit-ref-maybe-qualify (refname &optional prefix)
+  "If REFNAME is ambiguous, try to disambiguate it by prepend PREFIX to it.
+Return an unambiguous refname, either REFNAME or that prefixed
+with PREFIX, nil otherwise.  If REFNAME has an offset suffix
+such as \"~1\", then that is preserved.  If optional PREFIX is
+nil, then use \"heads/\".  "
+  (if (magit-ref-ambiguous-p refname)
+      (let ((refname (concat (or prefix "heads/") refname)))
+        (and (not (magit-ref-ambiguous-p refname)) refname))
+    refname))
+
+(defun magit-ref-exists-p (ref)
+  (magit-git-success "show-ref" "--verify" ref))
+
+(defun magit-ref-equal (a b)
+  "Return t if the refnames A and B are `equal'.
+A symbolic-ref pointing to some ref, is `equal' to that ref,
+as are two symbolic-refs pointing to the same ref.  Refnames
+may be abbreviated."
+  (let ((a (magit-ref-fullname a))
+        (b (magit-ref-fullname b)))
+    (and a b (equal a b))))
+
+(defun magit-ref-eq (a b)
+  "Return t if the refnames A and B are `eq'.
+A symbolic-ref is `eq' to itself, but not to the ref it points
+to, or to some other symbolic-ref that points to the same ref."
+  (let ((symbolic-a (magit-symbolic-ref-p a))
+        (symbolic-b (magit-symbolic-ref-p b)))
+    (or (and symbolic-a
+             symbolic-b
+             (equal a b))
+        (and (not symbolic-a)
+             (not symbolic-b)
+             (magit-ref-equal a b)))))
+
+(defun magit-headish ()
+  "Return the `HEAD' or if that doesn't exist the hash of the empty tree."
+  (if (magit-no-commit-p)
+      (magit-git-string "mktree")
+    "HEAD"))
+
+(defun magit-branch-at-point ()
+  (magit-section-case
+    (branch (oref it value))
+    (commit (or (magit--painted-branch-at-point)
+                (magit-name-branch (oref it value))))))
+
+(defun magit--painted-branch-at-point (&optional type)
+  (or (and (not (eq type 'remote))
+           (memq (get-text-property (magit-point) 'font-lock-face)
+                 (list 'magit-branch-local
+                       'magit-branch-current))
+           (and-let* ((branch (magit-thing-at-point 'git-revision t)))
+             (cdr (magit-split-branch-name branch))))
+      (and (not (eq type 'local))
+           (memq (get-text-property (magit-point) 'font-lock-face)
+                 (list 'magit-branch-remote
+                       'magit-branch-remote-head))
+           (thing-at-point 'git-revision t))))
+
+(defun magit-local-branch-at-point ()
+  (magit-section-case
+    (branch (let ((branch (magit-ref-maybe-qualify (oref it value))))
+              (when (member branch (magit-list-local-branch-names))
+                branch)))
+    (commit (or (magit--painted-branch-at-point 'local)
+                (magit-name-local-branch (oref it value))))))
+
+(defun magit-remote-branch-at-point ()
+  (magit-section-case
+    (branch (let ((branch (oref it value)))
+              (when (member branch (magit-list-remote-branch-names))
+                branch)))
+    (commit (or (magit--painted-branch-at-point 'remote)
+                (magit-name-remote-branch (oref it value))))))
+
+(defun magit-commit-at-point ()
+  (or (magit-section-value-if 'commit)
+      (magit-thing-at-point 'git-revision t)
+      (and-let* ((chunk (and (bound-and-true-p magit-blame-mode)
+                             (fboundp 'magit-current-blame-chunk)
+                             (magit-current-blame-chunk))))
+        (oref chunk orig-rev))
+      (and (derived-mode-p 'magit-stash-mode
+                           'magit-merge-preview-mode
+                           'magit-revision-mode)
+           magit-buffer-revision)))
+
+(defun magit-branch-or-commit-at-point ()
+  (or (magit-section-case
+        (branch (magit-ref-maybe-qualify (oref it value)))
+        (commit (or (magit--painted-branch-at-point)
+                    (let ((rev (oref it value)))
+                      (or (magit-name-branch rev) rev))))
+        (tag (magit-ref-maybe-qualify (oref it value) "tags/"))
+        (pullreq (or (and (fboundp 'forge--pullreq-branch)
+                          (magit-branch-p
+                           (forge--pullreq-branch (oref it value))))
+                     (magit-ref-p (format "refs/pullreqs/%s"
+                                          (oref (oref it value) number)))))
+        ((unpulled unpushed)
+         (magit-ref-abbrev
+          (replace-regexp-in-string "\\.\\.\\.?" "" (oref it value)))))
+      (magit-thing-at-point 'git-revision t)
+      (and-let* ((chunk (and (bound-and-true-p magit-blame-mode)
+                             (fboundp 'magit-current-blame-chunk)
+                             (magit-current-blame-chunk))))
+        (oref chunk orig-rev))
+      (and magit-buffer-file-name
+           magit-buffer-refname)
+      (and (derived-mode-p 'magit-stash-mode
+                           'magit-merge-preview-mode
+                           'magit-revision-mode)
+           magit-buffer-revision)))
+
+(defun magit-tag-at-point ()
+  (magit-section-case
+    (tag    (oref it value))
+    (commit (magit-name-tag (oref it value)))))
+
+(defun magit-stash-at-point ()
+  (magit-section-value-if 'stash))
+
+(defun magit-remote-at-point ()
+  (magit-section-case
+    (remote (oref it value))
+    ([branch remote] (magit-section-parent-value it))))
+
+(defun magit-module-at-point (&optional predicate)
+  (when (magit-section-match 'module)
+    (let ((module (oref (magit-current-section) value)))
+      (and (or (not predicate)
+               (funcall predicate module))
+           module))))
+
+(defun magit-get-current-branch ()
+  "Return the refname of the currently checked out branch.
+Return nil if no branch is currently checked out."
+  (magit-git-string "symbolic-ref" "--short" "HEAD"))
+
+(defvar magit-get-previous-branch-timeout 0.5
+  "Maximum time to spend in `magit-get-previous-branch'.
+Given as a number of seconds.")
+
+(defun magit-get-previous-branch ()
+  "Return the refname of the previously checked out branch.
+Return nil if no branch can be found in the `HEAD' reflog
+which is different from the current branch and still exists.
+The amount of time spent searching is limited by
+`magit-get-previous-branch-timeout'."
+  (let ((t0 (float-time))
+        (current (magit-get-current-branch))
+        (i 1) prev)
+    (while (if (> (- (float-time) t0) magit-get-previous-branch-timeout)
+               (setq prev nil) ;; Timed out.
+             (and (setq prev (magit-rev-verify (format "@{-%d}" i)))
+                  (or (not (setq prev (magit-rev-branch prev)))
+                      (equal prev current))))
+      (cl-incf i))
+    prev))
+
+(defun magit--set-default-branch (newname oldname)
+  (let ((remote (or (magit-primary-remote)
+                    (user-error "Cannot determine primary remote")))
+        (branches (mapcar (lambda (line) (split-string line "\t"))
+                          (magit-git-lines
+                           "for-each-ref" "refs/heads"
+                           "--format=%(refname:short)\t%(upstream:short)"))))
+    (when-let ((old (assoc oldname branches))
+               ((not (assoc newname branches))))
+      (magit-call-git "branch" "-m" oldname newname)
+      (setcar old newname))
+    (let ((new (if (magit-branch-p newname)
+                   newname
+                 (concat remote "/" newname))))
+      (pcase-dolist (`(,branch ,upstream) branches)
+        (cond
+         ((equal upstream oldname)
+          (magit-set-upstream-branch branch new))
+         ((equal upstream (concat remote "/" oldname))
+          (magit-set-upstream-branch branch (concat remote "/" newname))))))))
+
+(defun magit--get-default-branch (&optional update)
+  (let ((remote (magit-primary-remote)))
+    (when update
+      (if (not remote)
+          (user-error "Cannot determine primary remote")
+        (message "Determining default branch...")
+        (magit-git "fetch" "--prune")
+        (magit-git "remote" "set-head" "--auto" remote)
+        (message "Determining default branch...done")))
+    (let ((branch (magit-git-string "symbolic-ref" "--short"
+                                    (format "refs/remotes/%s/HEAD" remote))))
+      (when (and update (not branch))
+        (error "Cannot determine new default branch"))
+      (list remote (and branch (cdr (magit-split-branch-name branch)))))))
+
+(defun magit-set-upstream-branch (branch upstream)
+  "Set UPSTREAM as the upstream of BRANCH.
+If UPSTREAM is nil, then unset BRANCH's upstream.
+Otherwise UPSTREAM has to be an existing branch."
+  (if upstream
+      (magit-call-git "branch" "--set-upstream-to" upstream branch)
+    (magit-call-git "branch" "--unset-upstream" branch)))
+
+(defun magit-get-upstream-ref (&optional branch)
+  "Return the upstream branch of BRANCH as a fully qualified ref.
+It BRANCH is nil, then return the upstream of the current branch,
+if any, nil otherwise.  If the upstream is not configured, the
+configured remote is an url, or the named branch does not exist,
+then return nil.  I.e.,  return an existing local or
+remote-tracking branch ref."
+  (and-let* ((branch (or branch (magit-get-current-branch))))
+    (magit-ref-fullname (concat branch "@{upstream}"))))
+
+(defun magit-get-upstream-branch (&optional branch)
+  "Return the name of the upstream branch of BRANCH.
+It BRANCH is nil, then return the upstream of the current branch
+if any, nil otherwise.  If the upstream is not configured, the
+configured remote is an url, or the named branch does not exist,
+then return nil.  I.e., return the name of an existing local or
+remote-tracking branch.  The returned string is colorized
+according to the branch type."
+  (magit--with-refresh-cache
+      (list default-directory 'magit-get-upstream-branch branch)
+    (and-let* ((branch (or branch (magit-get-current-branch)))
+               (upstream (magit-ref-abbrev (concat branch "@{upstream}"))))
+      (magit--propertize-face
+       upstream (if (equal (magit-get "branch" branch "remote") ".")
+                    'magit-branch-local
+                  'magit-branch-remote)))))
+
+(defun magit-get-indirect-upstream-branch (branch &optional force)
+  (let ((remote (magit-get "branch" branch "remote")))
+    (and remote (not (equal remote "."))
+         ;; The user has opted in...
+         (or force
+             (--some (if (magit-git-success "check-ref-format" "--branch" it)
+                         (equal it branch)
+                       (string-match-p it branch))
+                     magit-branch-prefer-remote-upstream))
+         ;; and local BRANCH tracks a remote branch...
+         (let ((upstream (magit-get-upstream-branch branch)))
+           ;; whose upstream...
+           (and upstream
+                ;; has the same name as BRANCH...
+                (equal (substring upstream (1+ (length remote))) branch)
+                ;; and can be fast-forwarded to BRANCH.
+                (magit-rev-ancestor-p upstream branch)
+                upstream)))))
+
+(defun magit-get-upstream-remote (&optional branch allow-unnamed)
+  (and-let* ((branch (or branch (magit-get-current-branch)))
+             (remote (magit-get "branch" branch "remote")))
+    (and (not (equal remote "."))
+         (cond ((member remote (magit-list-remotes))
+                (magit--propertize-face remote 'magit-branch-remote))
+               ((and allow-unnamed
+                     (string-match-p "\\(\\`.\\{0,2\\}/\\|[:@]\\)" remote))
+                (magit--propertize-face remote 'bold))))))
+
+(defun magit-get-unnamed-upstream (&optional branch)
+  (and-let* ((branch (or branch (magit-get-current-branch)))
+             (remote (magit-get "branch" branch "remote"))
+             (merge  (magit-get "branch" branch "merge")))
+    (and (magit--unnamed-upstream-p remote merge)
+         (list (magit--propertize-face remote 'bold)
+               (magit--propertize-face merge 'magit-branch-remote)))))
+
+(defun magit--unnamed-upstream-p (remote merge)
+  (and remote (string-match-p "\\(\\`\\.\\{0,2\\}/\\|[:@]\\)" remote)
+       merge  (string-prefix-p "refs/" merge)))
+
+(defun magit--valid-upstream-p (remote merge)
+  (and (or (equal remote ".")
+           (member remote (magit-list-remotes)))
+       (string-prefix-p "refs/" merge)))
+
+(defun magit-get-current-remote (&optional allow-unnamed)
+  (or (magit-get-upstream-remote nil allow-unnamed)
+      (and-let* ((remotes (magit-list-remotes))
+                 (remote (if (length= remotes 1)
+                             (car remotes)
+                           (magit-primary-remote))))
+        (magit--propertize-face remote 'magit-branch-remote))))
+
+(defun magit-get-push-remote (&optional branch)
+  (and-let* ((remote
+              (or (and (or branch (setq branch (magit-get-current-branch)))
+                       (magit-get "branch" branch "pushRemote"))
+                  (magit-get "remote.pushDefault"))))
+    (magit--propertize-face remote 'magit-branch-remote)))
+
+(defun magit-get-push-branch (&optional branch verify)
+  (magit--with-refresh-cache
+      (list default-directory 'magit-get-push-branch branch verify)
+    (and-let* ((branch (or branch (setq branch (magit-get-current-branch))))
+               (remote (magit-get-push-remote branch))
+               (target (concat remote "/" branch)))
+      (and (or (not verify)
+               (magit-rev-verify target))
+           (magit--propertize-face target 'magit-branch-remote)))))
+
+(defun magit-get-@{push}-branch (&optional branch)
+  (let ((ref (magit-rev-parse "--symbolic-full-name"
+                              (concat branch "@{push}"))))
+    (and ref
+         (string-prefix-p "refs/remotes/" ref)
+         (substring ref 13))))
+
+(defun magit-get-remote (&optional branch)
+  (and (or branch (setq branch (magit-get-current-branch)))
+       (let ((remote (magit-get "branch" branch "remote")))
+         (and (not (equal remote "."))
+              remote))))
+
+(defun magit-get-some-remote (&optional branch)
+  (or (magit-get-remote branch)
+      (and-let* ((main (magit-main-branch)))
+        (magit-get-remote main))
+      (magit-primary-remote)
+      (car (magit-list-remotes))))
+
+(defvar magit-primary-remote-names
+  '("upstream" "origin"))
+
+(defun magit-primary-remote ()
+  "Return the primary remote.
+
+The primary remote is the remote that tracks the repository that
+other repositories are forked from.  It often is called \"origin\"
+but because many people name their own fork \"origin\", using that
+term would be ambiguous.  Likewise we avoid the term \"upstream\"
+because a branch's @{upstream} branch may be a local branch or a
+branch from a remote other than the primary remote.
+
+If a remote exists whose name matches `magit.primaryRemote', then
+that is considered the primary remote.  If no remote by that name
+exists, then remotes in `magit-primary-remote-names' are tried in
+order and the first remote from that list that actually exists in
+the current repository is considered its primary remote."
+  (let ((remotes (magit-list-remotes)))
+    (seq-find (lambda (name)
+                (member name remotes))
+              (delete-dups
+               (delq nil
+                     (cons (magit-get "magit.primaryRemote")
+                           magit-primary-remote-names))))))
+
+(defun magit-branch-merged-p (branch &optional target)
+  "Return non-nil if BRANCH is merged into its upstream and TARGET.
+
+TARGET defaults to the current branch.  If `HEAD' is detached and
+TARGET is nil, then always return nil.  As a special case, if
+TARGET is t, then return non-nil if BRANCH is merged into any one
+of the other local branches.
+
+If, and only if, BRANCH has an upstream, then only return non-nil
+if BRANCH is merged into both TARGET (as described above) as well
+as into its upstream."
+  (and (if-let ((upstream (and (magit-branch-p branch)
+                               (magit-get-upstream-branch branch))))
+           (magit-rev-ancestor-p branch upstream)
+         t)
+       (if (eq target t)
+           (delete (magit-name-local-branch branch)
+                   (magit-list-containing-branches branch))
+         (and-let* ((target (or target (magit-get-current-branch))))
+           (magit-rev-ancestor-p branch target)))))
+
+(defun magit-get-tracked (refname)
+  "Return the remote branch tracked by the remote-tracking branch REFNAME.
+The returned value has the form (REMOTE . REF), where REMOTE is
+the name of a remote and REF is the ref local to the remote."
+  (and-let* ((ref (magit-ref-fullname refname)))
+    (save-match-data
+      (seq-some (lambda (line)
+                  (and (string-match "\
+\\`remote\\.\\([^.]+\\)\\.fetch=\\+?\\([^:]+\\):\\(.+\\)" line)
+                       (let ((rmt (match-string 1 line))
+                             (src (match-string 2 line))
+                             (dst (match-string 3 line)))
+                         (and (string-match (format "\\`%s\\'"
+                                                    (string-replace
+                                                     "*" "\\(.+\\)" dst))
+                                            ref)
+                              (cons rmt (string-replace
+                                         "*" (match-string 1 ref) src))))))
+                (magit-git-lines "config" "--local" "--list")))))
+
+(defun magit-split-branch-name (branch)
+  (cond ((member branch (magit-list-local-branch-names))
+         (cons "." branch))
+        ((string-match "/" branch)
+         (or (seq-some (lambda (remote)
+                         (and (string-match
+                               (format "\\`\\(%s\\)/\\(.+\\)\\'" remote)
+                               branch)
+                              (cons (match-string 1 branch)
+                                    (match-string 2 branch))))
+                       (magit-list-remotes))
+             (error "Invalid branch name %s" branch)))))
+
+(defun magit-get-current-tag (&optional rev with-distance)
+  "Return the closest tag reachable from REV.
+
+If optional REV is nil, then default to `HEAD'.
+If optional WITH-DISTANCE is non-nil then return (TAG COMMITS),
+if it is `dirty' return (TAG COMMIT DIRTY). COMMITS is the number
+of commits in `HEAD' but not in TAG and DIRTY is t if there are
+uncommitted changes, nil otherwise."
+  (and-let* ((str (magit-git-str "describe" "--long" "--tags"
+                                 (and (eq with-distance 'dirty) "--dirty")
+                                 rev)))
+    (save-match-data
+      (string-match
+       "\\(.+\\)-\\(?:0[0-9]*\\|\\([0-9]+\\)\\)-g[0-9a-z]+\\(-dirty\\)?$" str)
+      (if with-distance
+          `(,(match-string 1 str)
+            ,(string-to-number (or (match-string 2 str) "0"))
+            ,@(and (match-string 3 str) (list t)))
+        (match-string 1 str)))))
+
+(defun magit-get-next-tag (&optional rev with-distance)
+  "Return the closest tag from which REV is reachable.
+
+If optional REV is nil, then default to `HEAD'.
+If no such tag can be found or if the distance is 0 (in which
+case it is the current tag, not the next), return nil instead.
+If optional WITH-DISTANCE is non-nil, then return (TAG COMMITS)
+where COMMITS is the number of commits in TAG but not in REV."
+  (and-let* ((str (magit-git-str "describe" "--contains" (or rev "HEAD"))))
+    (save-match-data
+      (when (string-match "^[^^~]+" str)
+        (setq str (match-string 0 str))
+        (unless (equal str (magit-get-current-tag rev))
+          (if with-distance
+              (list str (car (magit-rev-diff-count str rev)))
+            str))))))
+
+(defun magit-list-refs (&optional namespaces format sortby)
+  "Return list of references, excluding symbolic references.
+
+When NAMESPACES is non-nil, list refs from these namespaces
+rather than those from `magit-list-refs-namespaces'.
+
+FORMAT is passed to the `--format' flag of `git for-each-ref'
+and defaults to \"%(refname)\".
+
+SORTBY is a key or list of keys to pass to the `--sort' flag of
+`git for-each-ref'.  When nil, use `magit-list-refs-sortby'"
+  (unless format
+    (setq format "%(refname)"))
+  (seq-keep (lambda (line)
+              (pcase-let* ((`(,symrefp ,value)
+                            (split-string line ""))
+                           (symrefp (not (equal symrefp ""))))
+                (and (not symrefp) value)))
+            (magit-git-lines "for-each-ref"
+                             (concat "--format=%(symref)" format)
+                             (--map (concat "--sort=" it)
+                                    (pcase (or sortby magit-list-refs-sortby)
+                                      ((and val (pred stringp)) (list val))
+                                      ((and val (pred listp)) val)))
+                             (or namespaces magit-list-refs-namespaces))))
+
+(defun magit-list-branches ()
+  (magit-list-refs (list "refs/heads" "refs/remotes")))
+
+(defun magit-list-local-branches ()
+  (magit-list-refs "refs/heads"))
+
+(defun magit-list-remote-branches (&optional remote)
+  (magit-list-refs (concat "refs/remotes/" remote)))
+
+(defun magit-list-related-branches (relation &optional commit &rest args)
+  (--remove (string-match-p "\\(\\`(HEAD\\|HEAD -> \\)" it)
+            (--map (substring it 2)
+                   (magit-git-lines "branch" args relation commit))))
+
+(defun magit-list-containing-branches (&optional commit &rest args)
+  (magit-list-related-branches "--contains" commit args))
+
+(defun magit-list-publishing-branches (&optional commit)
+  (--filter (magit-rev-ancestor-p (or commit "HEAD") it)
+            magit-published-branches))
+
+(defun magit-list-merged-branches (&optional commit &rest args)
+  (magit-list-related-branches "--merged" commit args))
+
+(defun magit-list-unmerged-branches (&optional commit &rest args)
+  (magit-list-related-branches "--no-merged" commit args))
+
+(defun magit-list-unmerged-to-upstream-branches ()
+  (--filter (and-let* ((upstream (magit-get-upstream-branch it)))
+              (member it (magit-list-unmerged-branches upstream)))
+            (magit-list-local-branch-names)))
+
+(defun magit-list-branches-pointing-at (commit)
+  (let ((re (format "\\`%s refs/\\(heads\\|remotes\\)/\\(.*\\)\\'"
+                    (magit-rev-verify commit))))
+    (--keep (and (string-match re it)
+                 (let ((name (match-string 2 it)))
+                   (and (not (string-suffix-p "HEAD" name))
+                        name)))
+            (magit-git-lines "show-ref"))))
+
+(defun magit-list-refnames (&optional namespaces include-special)
+  (nconc (magit-list-refs namespaces "%(refname:short)")
+         (and include-special
+              (magit-list-special-refnames))))
+
+(defvar magit-special-refnames
+  '("HEAD" "ORIG_HEAD" "FETCH_HEAD" "MERGE_HEAD" "CHERRY_PICK_HEAD"))
+
+(defun magit-list-special-refnames ()
+  (let ((gitdir (magit-gitdir)))
+    (seq-keep (lambda (name) (file-exists-p (expand-file-name name gitdir)))
+              magit-special-refnames)))
+
+(defun magit-list-branch-names ()
+  (magit-list-refnames (list "refs/heads" "refs/remotes")))
+
+(defun magit-list-local-branch-names ()
+  (magit-list-refnames "refs/heads"))
+
+(defun magit-list-remote-branch-names (&optional remote relative)
+  (if (and remote relative)
+      (let ((regexp (format "^refs/remotes/%s/\\(.+\\)" remote)))
+        (--mapcat (when (string-match regexp it)
+                    (list (match-string 1 it)))
+                  (magit-list-remote-branches remote)))
+    (magit-list-refnames (concat "refs/remotes/" remote))))
+
+(defun magit-format-refs (format &rest args)
+  (let ((lines (magit-git-lines
+                "for-each-ref" (concat "--format=" format)
+                (or args (list "refs/heads" "refs/remotes" "refs/tags")))))
+    (if (string-search "\f" format)
+        (--map (split-string it "\f") lines)
+      lines)))
+
+(defun magit-list-remotes ()
+  (magit-git-lines "remote"))
+
+(defun magit-list-tags ()
+  (magit-git-lines "tag"))
+
+(defun magit-list-stashes (&optional format)
+  (magit-git-lines "stash" "list" (concat "--format=" (or format "%gd"))))
+
+(defun magit-list-active-notes-refs ()
+  "Return notes refs according to `core.notesRef' and `notes.displayRef'."
+  (magit-git-lines "for-each-ref" "--format=%(refname)"
+                   (or (magit-get "core.notesRef") "refs/notes/commits")
+                   (magit-get-all "notes.displayRef")))
+
+(defun magit-list-notes-refnames ()
+  (--map (substring it 6) (magit-list-refnames "refs/notes")))
+
+(defun magit-remote-list-tags (remote)
+  (--keep (and (not (string-suffix-p "^{}" it))
+               (substring it 51))
+          (magit-git-lines "ls-remote" "--tags" remote)))
+
+(defun magit-remote-list-branches (remote)
+  (--keep (and (not (string-suffix-p "^{}" it))
+               (substring it 52))
+          (magit-git-lines "ls-remote" "--heads" remote)))
+
+(defun magit-remote-list-refs (remote)
+  (--keep (and (not (string-suffix-p "^{}" it))
+               (substring it 41))
+          (magit-git-lines "ls-remote" remote)))
+
+(defun magit-remote-head (remote)
+  (and-let* ((line (cl-find-if
+                    (lambda (line)
+                      (string-match
+                       "\\`ref: refs/heads/\\([^\s\t]+\\)[\s\t]HEAD\\'" line))
+                    (magit-git-lines "ls-remote" "--symref" remote "HEAD"))))
+    (match-string 1 line)))
+
+(defun magit-list-modified-modules ()
+  (--keep (and (string-match "\\`\\+\\([^ ]+\\) \\(.+\\) (.+)\\'" it)
+               (match-string 2 it))
+          (magit-git-lines "submodule" "status")))
+
+(defun magit-list-module-paths ()
+  (magit-with-toplevel
+    (--mapcat (and (string-match "^160000 [0-9a-z]\\{40,\\} 0\t\\(.+\\)$" it)
+                   (list (match-string 1 it)))
+              (magit-git-items "ls-files" "-z" "--stage"))))
+
+(defun magit-list-module-names ()
+  (mapcar #'magit-get-submodule-name (magit-list-module-paths)))
+
+(defun magit-get-submodule-name (path)
+  "Return the name of the submodule at PATH.
+PATH has to be relative to the super-repository."
+  (if (magit-git-version>= "2.38.0")
+      ;; "git submodule--helper name" was removed,
+      ;; but might still come back in another form.
+      (substring
+       (car (split-string
+             (car (or (magit-git-items
+                       "config" "-z"
+                       "-f" (expand-file-name ".gitmodules" (magit-toplevel))
+                       "--get-regexp" "^submodule\\..*\\.path$"
+                       (concat "^" (regexp-quote (directory-file-name path)) "$"))
+                      (error "No such submodule `%s'" path)))
+             "\n"))
+       10 -5)
+    (magit-git-string "submodule--helper" "name" path)))
+
+(defun magit-list-worktrees ()
+  "Return list of the worktrees of this repository.
+
+The returned list has the form (PATH COMMIT BRANCH BARE DETACHED
+LOCKED PRUNABLE).  The last four elements are booleans, with the
+exception of LOCKED and PRUNABLE, which may also be strings.
+See git-worktree(1) manpage for the meaning of the various parts.
+
+This function corrects a situation where \"git worktree list\"
+would claim a worktree is bare, even though the working tree is
+specified using `core.worktree'."
+  (let ((remote (file-remote-p default-directory))
+        worktrees worktree)
+    (dolist (line (let ((magit-git-global-arguments
+                         ;; KLUDGE At least in Git v2.8.3 this argument
+                         ;; would trigger a segfault.
+                         (remove "--no-pager" magit-git-global-arguments)))
+                    (if (magit-git-version>= "2.36")
+                        (magit-git-items "worktree" "list" "--porcelain" "-z")
+                      (magit-git-lines "worktree" "list" "--porcelain"))))
+      (cond ((string-prefix-p "worktree" line)
+             (let ((path (substring line 9)))
+               (when remote
+                 (setq path (concat remote path)))
+               ;; If the git directory is separate from the main
+               ;; worktree, then "git worktree" returns the git
+               ;; directory instead of the worktree, which isn't
+               ;; what it is supposed to do and not what we want.
+               ;; However, if the worktree has been removed, then
+               ;; we want to return it anyway; instead of nil.
+               (setq path (or (magit-toplevel path) path))
+               (setq worktree (list path nil nil nil nil nil nil))
+               (push worktree worktrees)))
+            ((string-prefix-p "HEAD" line)
+             (setf (nth 1 worktree) (substring line 5)))
+            ((string-prefix-p "branch" line)
+             (setf (nth 2 worktree) (substring line 18)))
+            ((string-equal line "bare")
+             (let* ((default-directory (car worktree))
+                    (wt (and (not (magit-get-boolean "core.bare"))
+                             (magit-get "core.worktree"))))
+               (if (and wt (file-exists-p (expand-file-name wt)))
+                   (progn (setf (nth 0 worktree) (expand-file-name wt))
+                          (setf (nth 2 worktree) (magit-rev-parse "HEAD"))
+                          (setf (nth 3 worktree) (magit-get-current-branch)))
+                 (setf (nth 3 worktree) t))))
+            ((string-equal line "detached")
+             (setf (nth 4 worktree) t))
+            ((string-prefix-p line "locked")
+             (setf (nth 5 worktree)
+                   (if (> (length line) 6) (substring line 7) t)))
+            ((string-prefix-p line "prunable")
+             (setf (nth 6 worktree)
+                   (if (> (length line) 8) (substring line 9) t)))))
+    (nreverse worktrees)))
+
+(defun magit-symbolic-ref-p (name)
+  (magit-git-success "symbolic-ref" "--quiet" name))
+
+(defun magit-ref-p (rev)
+  (or (car (member rev (magit-list-refs "refs/")))
+      (car (member rev (magit-list-refnames "refs/")))))
+
+(defun magit-branch-p (rev)
+  (or (car (member rev (magit-list-branches)))
+      (car (member rev (magit-list-branch-names)))))
+
+(defun magit-local-branch-p (rev)
+  (or (car (member rev (magit-list-local-branches)))
+      (car (member rev (magit-list-local-branch-names)))))
+
+(defun magit-remote-branch-p (rev)
+  (or (car (member rev (magit-list-remote-branches)))
+      (car (member rev (magit-list-remote-branch-names)))))
+
+(defun magit-branch-set-face (branch)
+  (magit--propertize-face branch (if (magit-local-branch-p branch)
+                                     'magit-branch-local
+                                   'magit-branch-remote)))
+
+(defun magit-tag-p (rev)
+  (car (member rev (magit-list-tags))))
+
+(defun magit-remote-p (string)
+  (car (member string (magit-list-remotes))))
+
+(defvar magit-main-branch-names
+  '("main" "master" "trunk" "development")
+  "Branch names reserved for use by the primary branch.
+Use function `magit-main-branch' to get the name actually used in
+the current repository.")
+
+(defvar magit-long-lived-branches
+  (append magit-main-branch-names (list "maint" "next"))
+  "Branch names reserved for use by long lived branches.")
+
+(defun magit-main-branch ()
+  "Return the main branch.
+
+If a branch exists whose name matches `init.defaultBranch', then
+that is considered the main branch.  If no branch by that name
+exists, then the branch names in `magit-main-branch-names' are
+tried in order.  The first branch from that list that actually
+exists in the current repository is considered its main branch."
+  (let ((branches (magit-list-local-branch-names)))
+    (seq-find (lambda (name)
+                (member name branches))
+              (delete-dups
+               (delq nil
+                     (cons (magit-get "init.defaultBranch")
+                           magit-main-branch-names))))))
+
+(defun magit-rev-diff-count (a b &optional first-parent)
+  "Return the commits in A but not B and vice versa.
+Return a list of two integers: (A>B B>A).
+
+If `first-parent' is set, traverse only first parents."
+  (mapcar #'string-to-number
+          (split-string (magit-git-string "rev-list"
+                                          "--count" "--left-right"
+                                          (and first-parent "--first-parent")
+                                          (concat a "..." b))
+                        "\t")))
+
+(defun magit-abbrev-length ()
+  (let ((abbrev (magit-get "core.abbrev")))
+    (if (and abbrev (not (equal abbrev "auto")))
+        (string-to-number abbrev)
+      ;; Guess the length git will be using based on an example
+      ;; abbreviation.  Actually HEAD's abbreviation might be an
+      ;; outlier, so use the shorter of the abbreviations for two
+      ;; commits.  See #3034.
+      (if-let ((head (magit-rev-parse "--short" "HEAD"))
+               (head-len (length head)))
+          (min head-len
+               (if-let ((rev (magit-rev-parse "--short" "HEAD~")))
+                   (length rev)
+                 head-len))
+        ;; We're on an unborn branch, but perhaps the repository has
+        ;; other commits.  See #4123.
+        (if-let ((commits (magit-git-lines "rev-list" "-n2" "--all"
+                                           "--abbrev-commit")))
+            (apply #'min (mapcar #'length commits))
+          ;; A commit does not exist.  Fall back to the default of 7.
+          7)))))
+
+(defun magit-abbrev-arg (&optional arg)
+  (format "--%s=%d" (or arg "abbrev") (magit-abbrev-length)))
+
+(defun magit-rev-abbrev (rev)
+  (magit-rev-parse (magit-abbrev-arg "short") rev))
+
+(defun magit-commit-children (commit &optional args)
+  (mapcar #'car
+          (--filter (member commit (cdr it))
+                    (--map (split-string it " ")
+                           (magit-git-lines
+                            "log" "--format=%H %P"
+                            (or args (list "--branches" "--tags" "--remotes"))
+                            "--not" commit)))))
+
+(defun magit-commit-parents (commit)
+  (and-let* ((str (magit-git-string "rev-list" "-1" "--parents" commit)))
+    (cdr (split-string str))))
+
+(defun magit-patch-id (rev)
+  (magit--with-connection-local-variables
+    (magit--with-temp-process-buffer
+      (magit-process-file
+       shell-file-name nil '(t nil) nil shell-command-switch
+       (let ((exec (shell-quote-argument (magit-git-executable))))
+         (format "%s diff-tree -u %s | %s patch-id" exec rev exec)))
+      (car (split-string (buffer-string))))))
+
+(defun magit-rev-format (format &optional rev args)
+  ;; Prefer `git log --no-walk' to `git show --no-patch' because it
+  ;; performs better in some scenarios.
+  (let ((str (magit-git-string "log" "--no-walk"
+                               (concat "--format=" format) args
+                               (if rev (magit--rev-dereference rev) "HEAD")
+                               "--")))
+    (and (not (string-equal str ""))
+         str)))
+
+(defun magit-rev-insert-format (format &optional rev args)
+  ;; Prefer `git log --no-walk' to `git show --no-patch' because it
+  ;; performs better in some scenarios.
+  (magit-git-insert "log" "--no-walk"
+                    (concat "--format=" format) args
+                    (if rev (magit--rev-dereference rev) "HEAD")
+                    "--"))
+
+(defun magit-format-rev-summary (rev)
+  (and-let* ((str (magit-rev-format "%h %s" rev)))
+    (progn
+      (magit--put-face 0 (string-match " " str) 'magit-hash str)
+      str)))
+
+(defvar magit-ref-namespaces
+  '(("\\`HEAD\\'"                  . magit-head)
+    ("\\`refs/tags/\\(.+\\)"       . magit-tag)
+    ("\\`refs/heads/\\(.+\\)"      . magit-branch-local)
+    ("\\`refs/remotes/\\(.+\\)"    . magit-branch-remote)
+    ("\\`refs/bisect/\\(bad\\)"    . magit-bisect-bad)
+    ("\\`refs/bisect/\\(skip.*\\)" . magit-bisect-skip)
+    ("\\`refs/bisect/\\(good.*\\)" . magit-bisect-good)
+    ("\\`refs/stash$"              . magit-refname-stash)
+    ("\\`refs/wip/\\(.+\\)"        . magit-refname-wip)
+    ("\\`refs/pullreqs/\\(.+\\)"   . magit-refname-pullreq)
+    ("\\`\\(bad\\):"               . magit-bisect-bad)
+    ("\\`\\(skip\\):"              . magit-bisect-skip)
+    ("\\`\\(good\\):"              . magit-bisect-good)
+    ("\\`\\(.+\\)"                 . magit-refname))
+  "How refs are formatted for display.
+
+Each entry controls how a certain type of ref is displayed, and
+has the form (REGEXP . FACE).  REGEXP is a regular expression
+used to match full refs.  The first entry whose REGEXP matches
+the reference is used.
+
+In log and revision buffers the first regexp submatch becomes the
+\"label\" that represents the ref and is propertized with FONT.
+In refs buffers the displayed text is controlled by other means
+and this option only controls what face is used.")
+
+(defun magit-format-ref-labels (string)
+  (save-match-data
+    (let ((regexp "\\(, \\|tag: \\|HEAD -> \\)")
+          names)
+      (if (and (derived-mode-p 'magit-log-mode)
+               (member "--simplify-by-decoration" magit-buffer-log-args))
+          (let ((branches (magit-list-local-branch-names))
+                (re (format "^%s/.+" (regexp-opt (magit-list-remotes)))))
+            (setq names
+                  (--map (cond ((string-equal it "HEAD")     it)
+                               ((string-prefix-p "refs/" it) it)
+                               ((member it branches) (concat "refs/heads/" it))
+                               ((string-match re it) (concat "refs/remotes/" it))
+                               (t                    (concat "refs/" it)))
+                         (split-string
+                          (string-replace "tag: " "refs/tags/" string)
+                          regexp t))))
+        (setq names (split-string string regexp t)))
+      (let (state head upstream tags branches remotes other combined)
+        (dolist (ref names)
+          (let* ((face (cdr (--first (string-match (car it) ref)
+                                     magit-ref-namespaces)))
+                 (name (magit--propertize-face
+                        (or (match-string 1 ref) ref) face)))
+            (cl-case face
+              ((magit-bisect-bad magit-bisect-skip magit-bisect-good)
+               (setq state name))
+              (magit-head
+               (setq head (magit--propertize-face "@" 'magit-head)))
+              (magit-tag            (push name tags))
+              (magit-branch-local   (push name branches))
+              (magit-branch-remote  (push name remotes))
+              (t                    (push name other)))))
+        (setq remotes
+              (seq-keep
+               (lambda (name)
+                 (if (string-match "\\`\\([^/]*\\)/\\(.*\\)\\'" name)
+                     (let ((r (match-string 1 name))
+                           (b (match-string 2 name)))
+                       (and (not (equal b "HEAD"))
+                            (if (equal (concat "refs/remotes/" name)
+                                       (magit-git-string
+                                        "symbolic-ref"
+                                        (format "refs/remotes/%s/HEAD" r)))
+                                (magit--propertize-face
+                                 name 'magit-branch-remote-head)
+                              name)))
+                   name))
+               remotes))
+        (let* ((current (magit-get-current-branch))
+               (target  (magit-get-upstream-branch current)))
+          (dolist (name branches)
+            (let ((push (car (member (magit-get-push-branch name) remotes))))
+              (when push
+                (setq remotes (delete push remotes))
+                (string-match "^[^/]*/" push)
+                (setq push (substring push 0 (match-end 0))))
+              (cond
+               ((equal name current)
+                (setq head
+                      (concat push
+                              (magit--propertize-face
+                               name 'magit-branch-current))))
+               ((equal name target)
+                (setq upstream
+                      (concat push
+                              (magit--propertize-face
+                               name '(magit-branch-upstream
+                                      magit-branch-local)))))
+               (t
+                (push (concat push name) combined)))))
+          (when (and target (not upstream))
+            (if (member target remotes)
+                (progn
+                  (magit--add-face-text-property
+                   0 (length target) 'magit-branch-upstream nil target)
+                  (setq upstream target)
+                  (setq remotes  (delete target remotes)))
+              (when-let ((target (car (member target combined))))
+                (magit--add-face-text-property
+                 0 (length target) 'magit-branch-upstream nil target)
+                (setq upstream target)
+                (setq combined (delete target combined))))))
+        (string-join (flatten-tree `(,state
+                                     ,head
+                                     ,upstream
+                                     ,@(nreverse tags)
+                                     ,@(nreverse combined)
+                                     ,@(nreverse remotes)
+                                     ,@other))
+                     " ")))))
+
+(defun magit-object-type (object)
+  (magit-git-string "cat-file" "-t" object))
+
+(defmacro magit-with-blob (commit file &rest body)
+  (declare (indent 2)
+           (debug (form form body)))
+  `(magit--with-temp-process-buffer
+     (let ((buffer-file-name ,file))
+       (save-excursion
+         (magit-git-insert "cat-file" "-p"
+                           (concat ,commit ":" buffer-file-name)))
+       (decode-coding-inserted-region
+        (point-min) (point-max) buffer-file-name t nil nil t)
+       ,@body)))
+
+(defmacro magit-with-temp-index (tree arg &rest body)
+  (declare (indent 2) (debug (form form body)))
+  (let ((file (cl-gensym "file")))
+    `(let ((magit--refresh-cache nil)
+           (,file (magit-convert-filename-for-git
+                   (make-temp-name
+                    (expand-file-name "index.magit." (magit-gitdir))))))
+       (unwind-protect
+           (magit-with-toplevel
+             (when-let* ((tree ,tree)
+                         ((not (magit-git-success
+                                "read-tree" ,arg tree
+                                (concat "--index-output=" ,file)))))
+               (error "Cannot read tree %s" tree))
+             (with-environment-variables (("GIT_INDEX_FILE" ,file))
+               ,@body))
+         (ignore-errors
+           (delete-file (concat (file-remote-p default-directory) ,file)))))))
+
+(defun magit-commit-tree (message &optional tree &rest parents)
+  (magit-git-string "commit-tree" "--no-gpg-sign" "-m" message
+                    (--mapcat (list "-p" it) (delq nil parents))
+                    (or tree
+                        (magit-git-string "write-tree")
+                        (error "Cannot write tree"))))
+
+(defun magit-commit-worktree (message &optional arg &rest other-parents)
+  (magit-with-temp-index "HEAD" arg
+    (and (magit-update-files (magit-unstaged-files))
+         (apply #'magit-commit-tree message nil "HEAD" other-parents))))
+
+(defun magit-update-files (files)
+  (magit-git-success "update-index" "--add" "--remove" "--" files))
+
+(defun magit-update-ref (ref message rev &optional stashish)
+  (let ((magit--refresh-cache nil))
+    (or (if (magit-git-version>= "2.6.0")
+            (zerop (magit-call-git "update-ref" "--create-reflog"
+                                   "-m" message ref rev
+                                   (or (magit-rev-verify ref) "")))
+          ;; `--create-reflog' didn't exist before v2.6.0
+          (let ((oldrev  (magit-rev-verify ref))
+                (logfile (expand-file-name (concat "logs/" ref)
+                                           (magit-gitdir))))
+            (unless (file-exists-p logfile)
+              (when oldrev
+                (magit-git-success "update-ref" "-d" ref oldrev))
+              (make-directory (file-name-directory logfile) t)
+              (with-temp-file logfile)
+              (when (and oldrev (not stashish))
+                (magit-git-success "update-ref" "-m" "enable reflog"
+                                   ref oldrev ""))))
+          (magit-git-success "update-ref" "-m" message ref rev
+                             (or (magit-rev-verify ref) "")))
+        (error "Cannot update %s with %s" ref rev))))
+
+(defconst magit-range-re
+  (concat "\\`\\([^ \t]*[^.]\\)?"       ; revA
+          "\\(\\.\\.\\.?\\)"            ; range marker
+          "\\([^.][^ \t]*\\)?\\'"))     ; revB
+
+(defun magit-split-range (range)
+  (pcase-let ((`(,beg ,end ,sep) (magit--split-range-raw range)))
+    (and sep
+         (let ((beg (or beg "HEAD"))
+               (end (or end "HEAD")))
+           (if (string-equal (match-string 2 range) "...")
+               (and-let* ((base (magit-git-string "merge-base" beg end)))
+                 (cons base end))
+             (cons beg end))))))
+
+(defun magit--split-range-raw (range)
+  (and (string-match magit-range-re range)
+       (let ((beg (match-string 1 range))
+             (end (match-string 3 range)))
+         (and (or beg end)
+              (list beg end (match-string 2 range))))))
+
+(defun magit-hash-range (range)
+  (if (string-match magit-range-re range)
+      (let ((beg (match-string 1 range))
+            (end (match-string 3 range)))
+        (and (or beg end)
+             (let ((beg-hash (and beg (magit-rev-hash (match-string 1 range))))
+                   (end-hash (and end (magit-rev-hash (match-string 3 range)))))
+               (and (or (not beg) beg-hash)
+                    (or (not end) end-hash)
+                    (concat beg-hash (match-string 2 range) end-hash)))))
+    (magit-rev-hash range)))
+
+(defvar magit-revision-faces
+  '(magit-hash
+    magit-tag
+    magit-branch-remote
+    magit-branch-remote-head
+    magit-branch-local
+    magit-branch-current
+    magit-branch-upstream
+    magit-branch-warning
+    magit-head
+    magit-refname
+    magit-refname-stash
+    magit-refname-wip
+    magit-refname-pullreq))
+
+(put 'git-revision 'thing-at-point #'magit-thingatpt--git-revision)
+(defun magit-thingatpt--git-revision (&optional disallow)
+  ;; Support hashes and references.
+  (and-let* ((bounds
+              (let ((c (concat "\s\n\t~^:?*[\\" disallow)))
+                (cl-letf
+                    (((get 'git-revision 'beginning-op)
+                      (lambda ()
+                        (if (re-search-backward (format "[%s]" c) nil t)
+                            (forward-char)
+                          (goto-char (point-min)))))
+                     ((get 'git-revision 'end-op)
+                      (lambda ()
+                        (re-search-forward (format "\\=[^%s]*" c) nil t))))
+                  (bounds-of-thing-at-point 'git-revision))))
+             (string (buffer-substring-no-properties (car bounds) (cdr bounds)))
+             ;; References are allowed to contain most parentheses and
+             ;; most punctuation, but if those characters appear at the
+             ;; edges of a possible reference in arbitrary text, then
+             ;; they are much more likely to be intended as just that:
+             ;; punctuation and delimiters.
+             (string (thread-first string
+                       (string-trim-left  "[(</]")
+                       (string-trim-right "[])>/.,;!]"))))
+    (let (disallow)
+      (when (or (string-match-p "\\.\\." string)
+                (string-match-p "/\\." string))
+        (setq disallow (concat disallow ".")))
+      (when (string-match-p "@{" string)
+        (setq disallow (concat disallow "@{")))
+      (if disallow
+          ;; These additional restrictions overcompensate,
+          ;; but that only matters in rare cases.
+          (magit-thingatpt--git-revision disallow)
+        (and (not (equal string "@"))
+             (or (and (>= (length string) 7)
+                      (string-match-p "[a-z]" string)
+                      (magit-commit-p string))
+                 (and (magit-ref-p string)
+                      (let ((face (get-text-property (point) 'face)))
+                        (or (not face)
+                            (member face magit-revision-faces)))))
+             string)))))
+
+(put 'git-revision-range 'thing-at-point #'magit-thingatpt--git-revision-range)
+(defun magit-thingatpt--git-revision-range ()
+  ;; Support hashes but no references.
+  (and-let* ((bounds
+              (cl-letf (((get 'git-revision 'beginning-op)
+                         (lambda ()
+                           (if (re-search-backward "[^a-z0-9.]" nil t)
+                               (forward-char)
+                             (goto-char (point-min)))))
+                        ((get 'git-revision 'end-op)
+                         (lambda ()
+                           (and (re-search-forward "[^a-z0-9.]" nil t)
+                                (backward-char)))))
+                (bounds-of-thing-at-point 'git-revision)))
+             (range (buffer-substring-no-properties (car bounds) (cdr bounds))))
+    ;; Validate but return as-is.
+    (and (magit-hash-range range) range)))
+
+;;; Completion
+
+(defvar magit-revision-history nil)
+
+(defun magit--minibuf-default-add-commit ()
+  (let ((fn minibuffer-default-add-function))
+    (setq-local
+     minibuffer-default-add-function
+     (lambda ()
+       (let ((rest (and (functionp fn) (funcall fn))))
+         (if-let ((commit (with-selected-window (minibuffer-selected-window)
+                            (or (magit-thing-at-point 'git-revision-range t)
+                                (magit-commit-at-point)))))
+             (let ((rest (cons commit (delete commit rest)))
+                   (def minibuffer-default))
+               (if (listp def)
+                   (append def rest)
+                 (cons def (delete def rest))))
+           rest))))))
+
+(defun magit-read-branch (prompt &optional secondary-default)
+  (magit-completing-read prompt (magit-list-branch-names)
+                         nil t nil 'magit-revision-history
+                         (or (magit-branch-at-point)
+                             secondary-default
+                             (magit-get-current-branch))))
+
+(defun magit-read-branch-or-commit (prompt &optional secondary-default exclude)
+  (let ((current (magit-get-current-branch))
+        (branch-at-point (magit-branch-at-point))
+        (commit-at-point (magit-commit-at-point))
+        (choices (delete exclude (magit-list-refnames nil t))))
+    (when (equal current exclude)
+      (setq current nil))
+    (when (equal branch-at-point exclude)
+      (setq branch-at-point nil))
+    (when (and commit-at-point (not branch-at-point))
+      (setq choices (cons commit-at-point choices)))
+    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
+      (or (magit-completing-read
+           prompt choices nil nil nil 'magit-revision-history
+           (or branch-at-point commit-at-point secondary-default current))
+          (user-error "Nothing selected")))))
+
+(defun magit-read-range-or-commit (prompt &optional secondary-default)
+  (magit-read-range
+   prompt
+   (or (and-let* ((revs (magit-region-values '(commit branch) t)))
+         (progn
+           (deactivate-mark)
+           (concat (car (last revs)) ".." (car revs))))
+       (magit-branch-or-commit-at-point)
+       secondary-default
+       (magit-get-current-branch))))
+
+(defun magit-read-range (prompt &optional default)
+  (minibuffer-with-setup-hook
+      (lambda ()
+        (magit--minibuf-default-add-commit)
+        (setq-local crm-separator "\\.\\.\\.?"))
+    (magit-completing-read-multiple
+     (concat prompt ": ")
+     (magit-list-refnames)
+     nil nil nil 'magit-revision-history default nil t)))
+
+(defun magit-read-remote-branch
+    (prompt &optional remote default local-branch require-match)
+  (let ((choice (magit-completing-read
+                 prompt
+                 (cl-union (and local-branch
+                                (if remote
+                                    (list local-branch)
+                                  (--map (concat it "/" local-branch)
+                                         (magit-list-remotes))))
+                           (magit-list-remote-branch-names remote t)
+                           :test #'equal)
+                 nil require-match nil 'magit-revision-history default)))
+    (if (or remote (string-match "\\`\\([^/]+\\)/\\(.+\\)" choice))
+        choice
+      (user-error "`%s' doesn't have the form REMOTE/BRANCH" choice))))
+
+(defun magit-read-refspec (prompt remote)
+  (magit-completing-read prompt
+                         (prog2 (message "Determining available refs...")
+                             (magit-remote-list-refs remote)
+                           (message "Determining available refs...done"))))
+
+(defun magit-read-local-branch (prompt &optional secondary-default)
+  (magit-completing-read prompt (magit-list-local-branch-names)
+                         nil t nil 'magit-revision-history
+                         (or (magit-local-branch-at-point)
+                             secondary-default
+                             (magit-get-current-branch))))
+
+(defun magit-read-local-branch-or-commit (prompt)
+  (let ((choices (nconc (magit-list-local-branch-names)
+                        (magit-list-special-refnames)))
+        (commit (magit-commit-at-point)))
+    (when commit
+      (push commit choices))
+    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
+      (or (magit-completing-read prompt choices
+                                 nil nil nil 'magit-revision-history
+                                 (or (magit-local-branch-at-point) commit))
+          (user-error "Nothing selected")))))
+
+(defun magit-read-local-branch-or-ref (prompt &optional secondary-default)
+  (magit-completing-read prompt (nconc (magit-list-local-branch-names)
+                                       (magit-list-refs "refs/"))
+                         nil t nil 'magit-revision-history
+                         (or (magit-local-branch-at-point)
+                             secondary-default
+                             (magit-get-current-branch))))
+
+(defun magit-read-other-branch
+    (prompt &optional exclude secondary-default no-require-match)
+  (let* ((current (magit-get-current-branch))
+         (atpoint (magit-branch-at-point))
+         (exclude (or exclude current))
+         (default (or (and (not (equal atpoint exclude)) atpoint)
+                      (and (not (equal current exclude)) current)
+                      secondary-default
+                      (magit-get-previous-branch))))
+    (magit-completing-read prompt (delete exclude (magit-list-branch-names))
+                           nil (not no-require-match)
+                           nil 'magit-revision-history default)))
+
+(defun magit-read-other-branch-or-commit
+    (prompt &optional exclude secondary-default)
+  (let* ((current (magit-get-current-branch))
+         (atpoint (magit-branch-or-commit-at-point))
+         (exclude (or exclude current))
+         (default (or (and (not (equal atpoint exclude))
+                           (not (and (not current)
+                                     (magit-rev-equal atpoint "HEAD")))
+                           atpoint)
+                      (and (not (equal current exclude)) current)
+                      secondary-default
+                      (magit-get-previous-branch))))
+    (minibuffer-with-setup-hook #'magit--minibuf-default-add-commit
+      (or (magit-completing-read prompt (delete exclude (magit-list-refnames))
+                                 nil nil nil 'magit-revision-history default)
+          (user-error "Nothing selected")))))
+
+(defun magit-read-other-local-branch
+    (prompt &optional exclude secondary-default no-require-match)
+  (let* ((current (magit-get-current-branch))
+         (atpoint (magit-local-branch-at-point))
+         (exclude (or exclude current))
+         (default (or (and (not (equal atpoint exclude)) atpoint)
+                      (and (not (equal current exclude)) current)
+                      secondary-default
+                      (magit-get-previous-branch))))
+    (magit-completing-read prompt
+                           (delete exclude (magit-list-local-branch-names))
+                           nil (not no-require-match)
+                           nil 'magit-revision-history default)))
+
+(defun magit-read-branch-prefer-other (prompt)
+  (let* ((current (magit-get-current-branch))
+         (commit  (magit-commit-at-point))
+         (atrev   (and commit (magit-list-branches-pointing-at commit)))
+         (atpoint (magit--painted-branch-at-point)))
+    (magit-completing-read prompt (magit-list-branch-names)
+                           nil t nil 'magit-revision-history
+                           (or (magit-section-value-if 'branch)
+                               atpoint
+                               (and (not (cdr atrev)) (car atrev))
+                               (--first (not (equal it current)) atrev)
+                               (magit-get-previous-branch)
+                               (car atrev)))))
+
+(defun magit-read-upstream-branch (&optional branch prompt)
+  "Read the upstream for BRANCH using PROMPT.
+If optional BRANCH is nil, then read the upstream for the
+current branch, or raise an error if no branch is checked
+out.  Only existing branches can be selected."
+  (unless branch
+    (setq branch (or (magit-get-current-branch)
+                     (error "Need a branch to set its upstream"))))
+  (let ((branches (delete branch (magit-list-branch-names))))
+    (magit-completing-read
+     (or prompt (format "Change upstream of %s to" branch))
+     branches nil t nil 'magit-revision-history
+     (or (let ((r (car (member (magit-remote-branch-at-point) branches)))
+               (l (car (member (magit-local-branch-at-point) branches))))
+           (if magit-prefer-remote-upstream (or r l) (or l r)))
+         (and-let* ((main (magit-main-branch)))
+           (let ((r (car (member (concat "origin/" main) branches)))
+                 (l (car (member main branches))))
+             (if magit-prefer-remote-upstream (or r l) (or l r))))
+         (car (member (magit-get-previous-branch) branches))))))
+
+(defun magit-read-starting-point (prompt &optional branch default)
+  (or (magit-completing-read
+       (concat prompt
+               (and branch
+                    (if (bound-and-true-p ivy-mode)
+                        ;; Ivy-mode strips faces from prompt.
+                        (format  " `%s'" branch)
+                      (concat " " (magit--propertize-face
+                                   branch 'magit-branch-local))))
+               " starting at")
+       (nconc (list "HEAD")
+              (magit-list-refnames)
+              (directory-files (magit-gitdir) nil "_HEAD\\'"))
+       nil nil nil 'magit-revision-history
+       (or default (magit--default-starting-point)))
+      (user-error "Nothing selected")))
+
+(defun magit--default-starting-point ()
+  (or (let ((r (magit-remote-branch-at-point))
+            (l (magit-local-branch-at-point)))
+        (if magit-prefer-remote-upstream (or r l) (or l r)))
+      (magit-commit-at-point)
+      (magit-stash-at-point)
+      (magit-get-current-branch)))
+
+(defun magit-read-tag (prompt &optional require-match)
+  (magit-completing-read prompt (magit-list-tags) nil
+                         require-match nil 'magit-revision-history
+                         (magit-tag-at-point)))
+
+(defun magit-read-stash (prompt)
+  (let* ((atpoint (magit-stash-at-point))
+         (default (and atpoint
+                       (concat atpoint (magit-rev-format " %s" atpoint))))
+         (choices (mapcar (lambda (c)
+                            (pcase-let ((`(,rev ,msg) (split-string c "\0")))
+                              (concat (propertize rev 'face 'magit-hash)
+                                      " " msg)))
+                          (magit-list-stashes "%gd%x00%s")))
+         (choice  (magit-completing-read prompt choices
+                                         nil t nil nil
+                                         default
+                                         (car choices))))
+    (and choice
+         (string-match "^\\([^ ]+\\) \\(.+\\)" choice)
+         (substring-no-properties (match-string 1 choice)))))
+
+(defun magit-read-remote (prompt &optional default use-only)
+  (let ((remotes (magit-list-remotes)))
+    (if (and use-only (length= remotes 1))
+        (car remotes)
+      (magit-completing-read prompt remotes
+                             nil t nil nil
+                             (or default
+                                 (magit-remote-at-point)
+                                 (magit-get-remote))))))
+
+(defun magit-read-remote-or-url (prompt &optional default)
+  (magit-completing-read prompt
+                         (nconc (magit-list-remotes)
+                                (list "https://" "git://" "git@"))
+                         nil nil nil nil
+                         (or default
+                             (magit-remote-at-point)
+                             (magit-get-remote))))
+
+(defun magit-read-module-path (prompt &optional predicate)
+  (magit-completing-read prompt (magit-list-module-paths)
+                         predicate t nil nil
+                         (magit-module-at-point predicate)))
+
+(defun magit-module-confirm (verb &optional predicate)
+  ;; Some predicates use the inefficient `magit-toplevel'
+  ;; and some repositories have thousands of submodules.
+  (let ((magit--refresh-cache (list (cons 0 0)))
+        (modules nil))
+    (if current-prefix-arg
+        (progn
+          (setq modules (magit-list-module-paths))
+          (when predicate
+            (setq modules (seq-filter predicate modules)))
+          (unless modules
+            (if predicate
+                (user-error "No modules satisfying %s available" predicate)
+              (user-error "No modules available"))))
+      (setq modules (magit-region-values 'module))
+      (when modules
+        (when predicate
+          (setq modules (seq-filter predicate modules)))
+        (unless modules
+          (user-error "No modules satisfying %s selected" predicate))))
+    (if (or (length> modules 1) current-prefix-arg)
+        (magit-confirm t nil (format "%s %%d modules" verb) nil modules)
+      (list (magit-read-module-path (format "%s module" verb) predicate)))))
+
+;;; _
+(provide 'magit-git)
+;;; magit-git.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-git.elc b/emacs/elpa/magit-20241124.1509/magit-git.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-gitignore.el b/emacs/elpa/magit-20241124.1509/magit-gitignore.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-gitignore.elc b/emacs/elpa/magit-20241124.1509/magit-gitignore.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-log.el b/emacs/elpa/magit-20241124.1509/magit-log.el
diff --git a/emacs/elpa/magit-20241124.1509/magit-log.elc b/emacs/elpa/magit-20241124.1509/magit-log.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-margin.el b/emacs/elpa/magit-20241124.1509/magit-margin.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-margin.elc b/emacs/elpa/magit-20241124.1509/magit-margin.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-merge.el b/emacs/elpa/magit-20241124.1509/magit-merge.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-merge.elc b/emacs/elpa/magit-20241124.1509/magit-merge.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-mode.el b/emacs/elpa/magit-20241124.1509/magit-mode.el
@@ -0,0 +1,1479 @@
+;;; magit-mode.el --- Create and refresh Magit buffers  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements the abstract major-mode `magit-mode' from
+;; which almost all other Magit major-modes derive.  The code in here
+;; is mostly concerned with creating and refreshing Magit buffers.
+
+;;; Code:
+
+(require 'magit-base)
+(require 'magit-git)
+
+(require 'benchmark)
+(require 'browse-url)
+(require 'format-spec)
+(require 'help-mode)
+
+(require 'transient)
+
+(defvar bookmark-make-record-function)
+(defvar magit--wip-inhibit-autosave)
+(defvar magit-wip-after-save-local-mode)
+(declare-function magit-wip-get-ref "magit-wip" ())
+(declare-function magit-wip-commit-worktree "magit-wip" (ref files msg))
+
+;;; Options
+
+(defcustom magit-mode-hook
+  '(magit-load-config-extensions)
+  "Hook run when entering a mode derived from Magit mode."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-modes
+  :type 'hook
+  :options '(magit-load-config-extensions
+             bug-reference-mode))
+
+(defcustom magit-setup-buffer-hook
+  '(magit-maybe-save-repository-buffers
+    magit-set-buffer-margin)
+  "Hook run by `magit-setup-buffer'.
+
+This is run right after displaying the buffer and right before
+generating or updating its content.  `magit-mode-hook' and other,
+more specific, `magit-mode-*-hook's on the other hand are run
+right before displaying the buffer.  Usually one of these hooks
+should be used instead of this one."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-modes
+  :type 'hook
+  :options '(magit-maybe-save-repository-buffers
+             magit-set-buffer-margin))
+
+(defcustom magit-pre-refresh-hook '(magit-maybe-save-repository-buffers)
+  "Hook run before refreshing in `magit-refresh'.
+
+This hook, or `magit-post-refresh-hook', should be used
+for functions that are not tied to a particular buffer.
+
+To run a function with a particular buffer current, use
+`magit-refresh-buffer-hook' and use `derived-mode-p'
+inside your function."
+  :package-version '(magit . "2.4.0")
+  :group 'magit-refresh
+  :type 'hook
+  :options '(magit-maybe-save-repository-buffers))
+
+(defcustom magit-post-refresh-hook
+  '(magit-auto-revert-buffers
+    magit-run-post-commit-hook
+    magit-run-post-stage-hook
+    magit-run-post-unstage-hook)
+  "Hook run after refreshing in `magit-refresh'.
+
+This hook, or `magit-pre-refresh-hook', should be used
+for functions that are not tied to a particular buffer.
+
+To run a function with a particular buffer current, use
+`magit-refresh-buffer-hook' and use `derived-mode-p'
+inside your function."
+  :package-version '(magit . "2.4.0")
+  :group 'magit-refresh
+  :type 'hook
+  :options '(magit-auto-revert-buffers
+             magit-run-post-commit-hook
+             magit-run-post-stage-hook
+             magit-run-post-unstage-hook))
+
+(defcustom magit-display-buffer-function #'magit-display-buffer-traditional
+  "The function used to display a Magit buffer.
+
+All Magit buffers (buffers whose major-modes derive from
+`magit-mode') are displayed using `magit-display-buffer',
+which in turn uses the function specified here."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-buffers
+  :type '(radio (function-item magit-display-buffer-traditional)
+                (function-item magit-display-buffer-same-window-except-diff-v1)
+                (function-item magit-display-buffer-fullframe-status-v1)
+                (function-item magit-display-buffer-fullframe-status-topleft-v1)
+                (function-item magit-display-buffer-fullcolumn-most-v1)
+                (function-item display-buffer)
+                (function :tag "Function")))
+
+(defcustom magit-pre-display-buffer-hook '(magit-save-window-configuration)
+  "Hook run by `magit-display-buffer' before displaying the buffer."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-buffers
+  :type 'hook
+  :get #'magit-hook-custom-get
+  :options '(magit-save-window-configuration))
+
+(defcustom magit-post-display-buffer-hook '(magit-maybe-set-dedicated)
+  "Hook run by `magit-display-buffer' after displaying the buffer."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-buffers
+  :type 'hook
+  :get #'magit-hook-custom-get
+  :options '(magit-maybe-set-dedicated))
+
+(defcustom magit-generate-buffer-name-function
+  #'magit-generate-buffer-name-default-function
+  "The function used to generate the name for a Magit buffer."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-buffers
+  :type '(radio (function-item magit-generate-buffer-name-default-function)
+                (function :tag "Function")))
+
+(defcustom magit-buffer-name-format "%x%M%v: %t%x"
+  "The format string used to name Magit buffers.
+
+The following %-sequences are supported:
+
+`%m' The name of the major-mode, but with the `-mode' suffix
+     removed.
+
+`%M' Like \"%m\" but abbreviate `magit-status-mode' as `magit'.
+
+`%v' The value the buffer is locked to, in parentheses, or an
+     empty string if the buffer is not locked to a value.
+
+`%V' Like \"%v\", but the string is prefixed with a space, unless
+     it is an empty string.
+
+`%t' The top-level directory of the working tree of the
+     repository, or if `magit-uniquify-buffer-names' is non-nil
+     an abbreviation of that.
+
+`%x' If `magit-uniquify-buffer-names' is nil \"*\", otherwise the
+     empty string.  Due to limitations of the `uniquify' package,
+     buffer names must end with the path.
+
+The value should always contain \"%m\" or \"%M\", \"%v\" or \"%V\", and
+\"%t\".  If `magit-uniquify-buffer-names' is non-nil, then the
+value must end with \"%t\" or \"%t%x\".  See issue #2841.
+
+This is used by `magit-generate-buffer-name-default-function'.
+If another `magit-generate-buffer-name-function' is used, then
+it may not respect this option, or on the contrary it may
+support additional %-sequences."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-buffers
+  :type 'string)
+
+(defcustom magit-uniquify-buffer-names t
+  "Whether to uniquify the names of Magit buffers."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-buffers
+  :type 'boolean)
+
+(defcustom magit-bury-buffer-function #'magit-mode-quit-window
+  "The function used to bury or kill the current Magit buffer."
+  :package-version '(magit . "3.2.0")
+  :group 'magit-buffers
+  :type '(radio (function-item quit-window)
+                (function-item magit-mode-quit-window)
+                (function-item magit-restore-window-configuration)
+                (function :tag "Function")))
+
+(defcustom magit-prefix-use-buffer-arguments 'selected
+  "Whether certain prefix commands reuse arguments active in relevant buffer.
+
+This affects the transient prefix commands `magit-diff',
+`magit-log' and `magit-show-refs'.
+
+Valid values are:
+
+`always': Always use the set of arguments that is currently
+  active in the respective buffer, provided that buffer exists
+  of course.
+`selected': Use the set of arguments from the respective
+  buffer, but only if it is displayed in a window of the current
+  frame.  This is the default.
+`current': Use the set of arguments from the respective buffer,
+  but only if it is the current buffer.
+`never': Never use the set of arguments from the respective
+  buffer.
+
+For more information see info node `(magit)Transient Arguments
+and Buffer Variables'."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-buffers
+  :group 'magit-commands
+  :group 'magit-diff
+  :group 'magit-log
+  :type '(choice
+          (const :tag "always use args from buffer" always)
+          (const :tag "use args from buffer if displayed in frame" selected)
+          (const :tag "use args from buffer if it is current" current)
+          (const :tag "never use args from buffer" never)))
+
+(defcustom magit-direct-use-buffer-arguments 'selected
+  "Whether certain commands reuse arguments active in relevant buffer.
+
+This affects certain commands such as `magit-show-commit' that
+are suffixes of the diff or log transient prefix commands, but
+only if they are invoked directly, i.e., *not* as a suffix.
+
+Valid values are:
+
+`always': Always use the set of arguments that is currently
+  active in the respective buffer, provided that buffer exists
+  of course.
+`selected': Use the set of arguments from the respective
+  buffer, but only if it is displayed in a window of the current
+  frame.  This is the default.
+`current': Use the set of arguments from the respective buffer,
+  but only if it is the current buffer.
+`never': Never use the set of arguments from the respective
+  buffer.
+
+For more information see info node `(magit)Transient Arguments
+and Buffer Variables'."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-buffers
+  :group 'magit-commands
+  :group 'magit-diff
+  :group 'magit-log
+  :type '(choice
+          (const :tag "always use args from buffer" always)
+          (const :tag "use args from buffer if displayed in frame" selected)
+          (const :tag "use args from buffer if it is current" current)
+          (const :tag "never use args from buffer" never)))
+
+(defcustom magit-region-highlight-hook '(magit-diff-update-hunk-region)
+  "Functions used to highlight the region.
+
+Each function is run with the current section as only argument
+until one of them returns non-nil.  If all functions return nil,
+then fall back to regular region highlighting."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-refresh
+  :type 'hook
+  :options '(magit-diff-update-hunk-region))
+
+(defcustom magit-create-buffer-hook nil
+  "Normal hook run while creating a new `magit-mode' buffer.
+Runs before the buffer is populated with sections.  Also see
+`magit-post-create-buffer-hook'."
+  :package-version '(magit . "2.90.0")
+  :group 'magit-refresh
+  :type 'hook)
+
+(defcustom magit-post-create-buffer-hook nil
+  "Normal hook run after creating a new `magit-mode' buffer.
+Runs after the buffer is populated with sections for the first
+time.  Also see `magit-create-buffer-hook' (which runs earlier)
+and `magit-refresh-buffer-hook' (which runs on every refresh)."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-refresh
+  :type 'hook)
+
+(defcustom magit-refresh-buffer-hook nil
+  "Normal hook for `magit-refresh-buffer' to run after refreshing."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-refresh
+  :type 'hook)
+
+(defcustom magit-refresh-status-buffer t
+  "Whether the status buffer is refreshed after running git.
+
+When this is non-nil, then the status buffer is automatically
+refreshed after running git for side-effects, in addition to the
+current Magit buffer, which is always refreshed automatically.
+
+Only set this to nil after exhausting all other options to
+improve performance."
+  :package-version '(magit . "2.4.0")
+  :group 'magit-refresh
+  :group 'magit-status
+  :type 'boolean)
+
+(defcustom magit-refresh-verbose nil
+  "Whether to revert Magit buffers verbosely."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-refresh
+  :type 'boolean)
+
+(defcustom magit-save-repository-buffers t
+  "Whether to save file-visiting buffers when appropriate.
+
+If non-nil, then all modified file-visiting buffers belonging
+to the current repository may be saved before running Magit
+commands and before creating or refreshing Magit buffers.
+If `dontask', then this is done without user intervention, for
+any other non-nil value the user has to confirm each save.
+
+The default is t to avoid surprises, but `dontask' is the
+recommended value."
+  :group 'magit-essentials
+  :group 'magit-buffers
+  :type '(choice (const :tag "Never" nil)
+                 (const :tag "Ask" t)
+                 (const :tag "Save without asking" dontask)))
+
+;;; Key Bindings
+
+(defvar-keymap magit-mode-map
+  :doc "Parent keymap for all keymaps of modes derived from `magit-mode'."
+  :parent magit-section-mode-map
+  ;; Don't function-quote but make sure all commands are autoloaded.
+  "C-<return>"  'magit-visit-thing
+  "RET"         'magit-visit-thing
+  "M-TAB"       'magit-dired-jump
+  "M-<tab>"     'magit-section-cycle-diffs
+  "SPC"         'magit-diff-show-or-scroll-up
+  "S-SPC"       'magit-diff-show-or-scroll-down
+  "DEL"         'magit-diff-show-or-scroll-down
+  "+"           'magit-diff-more-context
+  "-"           'magit-diff-less-context
+  "0"           'magit-diff-default-context
+  "a" 'magit-cherry-apply
+  "A" 'magit-cherry-pick
+  "b" 'magit-branch
+  "B" 'magit-bisect
+  "c" 'magit-commit
+  "C" 'magit-clone
+  "d" 'magit-diff
+  "D" 'magit-diff-refresh
+  "e" 'magit-ediff-dwim
+  "E" 'magit-ediff
+  "f" 'magit-fetch
+  "F" 'magit-pull
+  "g" 'magit-refresh
+  "G" 'magit-refresh-all
+  "h" 'magit-dispatch
+  "?" 'magit-dispatch
+  "H" 'magit-describe-section
+  "i" 'magit-gitignore
+  "I" 'magit-init
+  "j" 'magit-status-quick
+  "J" 'magit-display-repository-buffer
+  "k" 'magit-delete-thing
+  "K" 'magit-file-untrack
+  "l" 'magit-log
+  "L" 'magit-log-refresh
+  "m" 'magit-merge
+  "M" 'magit-remote
+  ;; "n" magit-section-forward in magit-section-mode-map
+  ;; "N" forge-dispatch, added by forge package
+  "o" 'magit-submodule
+  "O" 'magit-subtree
+  ;; "p" magit-section-backward in magit-section-mode-map
+  "P" 'magit-push
+  "q" 'magit-mode-bury-buffer
+  "Q" 'magit-git-command
+  ":" 'magit-git-command
+  "r" 'magit-rebase
+  "R" 'magit-file-rename
+  "s" 'magit-stage-file
+  "S" 'magit-stage-modified
+  "t" 'magit-tag
+  "T" 'magit-notes
+  "u" 'magit-unstage-file
+  "U" 'magit-unstage-all
+  "v" 'magit-revert-no-commit
+  "V" 'magit-revert
+  "w" 'magit-am
+  "W" 'magit-patch
+  "x" 'magit-reset-quickly
+  "X" 'magit-reset
+  "y" 'magit-show-refs
+  "Y" 'magit-cherry
+  "z" 'magit-stash
+  "Z" 'magit-worktree
+  "%" 'magit-worktree
+  "$" 'magit-process-buffer
+  "!" 'magit-run
+  ">" 'magit-sparse-checkout
+  "C-c C-c" 'magit-dispatch
+  "C-c C-e" 'magit-edit-thing
+  "C-c C-o" 'magit-browse-thing
+  "C-c C-w" 'magit-copy-thing
+  "C-w"     'magit-copy-section-value
+  "M-w"     'magit-copy-buffer-revision
+  "<remap> <back-to-indentation>" 'magit-back-to-indentation
+  "<remap> <previous-line>"       'magit-previous-line
+  "<remap> <next-line>"           'magit-next-line
+  "<remap> <evil-previous-line>"  'evil-previous-visual-line
+  "<remap> <evil-next-line>"      'evil-next-visual-line)
+
+(defun magit-delete-thing ()
+  "This is a placeholder command, which signals an error if called.
+Where applicable, other keymaps remap this command to another,
+which actually deletes the thing at point."
+  (interactive)
+  (user-error "There is no thing at point that could be deleted"))
+;; Starting with Emacs 28.1 we could use (declare (completion ignore)).
+(put 'magit-delete-thing 'completion-predicate #'ignore)
+
+(defun magit-visit-thing ()
+  "This is a placeholder command, which may signal an error if called.
+Where applicable, other keymaps remap this command to another,
+which actually visits the thing at point."
+  (interactive)
+  (if (eq transient-current-command 'magit-dispatch)
+      (call-interactively (key-binding (this-command-keys)))
+    (if-let ((url (thing-at-point 'url t)))
+        (browse-url url)
+      (user-error "There is no thing at point that could be visited"))))
+(put 'magit-visit-thing 'completion-predicate #'ignore)
+
+(defun magit-edit-thing ()
+  "This is a placeholder command, which may signal an error if called.
+Where applicable, other keymaps remap this command to another,
+which actually lets you edit the thing at point, likely in another
+buffer."
+  (interactive)
+  (if (eq transient-current-command 'magit-dispatch)
+      (call-interactively (key-binding (this-command-keys)))
+    (user-error "There is no thing at point that could be edited")))
+(put 'magit-edit-thing 'completion-predicate #'ignore)
+
+(defun magit-browse-thing ()
+  "This is a placeholder command, which may signal an error if called.
+Where applicable, other keymaps remap this command to another,
+which actually visits thing at point using `browse-url'."
+  (interactive)
+  (if-let ((url (thing-at-point 'url t)))
+      (browse-url url)
+    (user-error "There is no thing at point that could be browsed")))
+(put 'magit-browse-thing 'completion-predicate #'ignore)
+
+(defun magit-copy-thing ()
+  "This is a placeholder command, which signals an error if called.
+Where applicable, other keymaps remap this command to another,
+which actually copies some representation of the thing at point
+to the kill ring."
+  (interactive)
+  (user-error "There is no thing at point that we know how to copy"))
+(put 'magit-copy-thing 'completion-predicate #'ignore)
+
+;;;###autoload
+(defun magit-info ()
+  "Visit the Magit manual."
+  (interactive)
+  (info "magit"))
+
+(defvar bug-reference-map)
+(with-eval-after-load 'bug-reference
+  (keymap-set bug-reference-map "<remap> <magit-visit-thing>"
+              'bug-reference-push-button))
+
+(easy-menu-define magit-mode-menu magit-mode-map
+  "Magit menu"
+  ;; Similar to `magit-dispatch' but exclude:
+  ;; - commands that are available from context menus:
+  ;;   apply, reverse, discard, stage, unstage,
+  ;;   cherry-pick, revert, reset,
+  ;;   describe-section
+  ;; - commands that are available from submenus:
+  ;;   git-command, ediff-dwim
+  ;; - and: refresh-all, status-jump, status-quick.
+  '("Magit"
+    "---" "Inspect"
+    ["     Bisect..."             magit-bisect t]
+    ["     Cherries..."           magit-cherry t]
+    ["     Diff..."               magit-diff t]
+    ["     Ediff..."              magit-ediff t]
+    ["     Log..."                magit-log t]
+    ["     References..."         magit-show-refs t]
+    "---" "Manipulate"
+    ["     Commit..."             magit-commit t]
+    ["     Stash..."              magit-stash t]
+    ["     Tag..."                magit-tag t]
+    "---"
+    ["     Branch..."             magit-branch t]
+    ["     Remote..."             magit-remote t]
+    "---"
+    ["     Merge..."              magit-merge t]
+    ["     Rebase..."             magit-rebase t]
+    "---" "Transfer"
+    ["     Fetch..."              magit-fetch t]
+    ["     Pull..."               magit-pull t]
+    ["     Push..."               magit-push t]
+    "---" "Setup"
+    ["     Clone..."              magit-clone t]
+    ["     Ignore..."             magit-gitignore t]
+    ["     Init..."               magit-init t]
+    "---"
+    ("Advanced"
+     ["Run..."                    magit-run t]
+     "---"
+     ["Apply patches..."          magit-am t]
+     ["Format patches..."         magit-patch t]
+     "---"
+     ["Note..."                   magit-notes t]
+     "---"
+     ["Submodule..."              magit-submodule t]
+     ["Subtree..."                magit-subtree t]
+     ["Worktree..."               magit-worktree t])
+    "---"
+    ["Show command dispatcher..." magit-dispatch t]
+    ["Show manual"                magit-info t]
+    ["Show another buffer"        magit-display-repository-buffer t]
+    "---"
+    ("Change buffer arguments"
+     ["Diff arguments"            magit-diff-refresh t]
+     ["Log arguments"             magit-log-refresh t])
+    ["Refresh buffer"             magit-refresh t]
+    ["Bury buffer"                magit-mode-bury-buffer t]))
+
+;;; Mode
+
+(defun magit-load-config-extensions ()
+  "Load Magit extensions that are defined at the Git config layer."
+  (dolist (ext (magit-get-all "magit.extension"))
+    (let ((sym (intern (format "magit-%s-mode" ext))))
+      (when (fboundp sym)
+        (funcall sym 1)))))
+
+(define-derived-mode magit-mode magit-section-mode "Magit"
+  "Parent major mode from which Magit major modes inherit.
+
+Magit is documented in info node `(magit)'."
+  :interactive nil
+  :group 'magit
+  (magit-hack-dir-local-variables)
+  (face-remap-add-relative 'header-line 'magit-header-line)
+  (setq mode-line-process (magit-repository-local-get 'mode-line-process))
+  (setq-local revert-buffer-function #'magit-refresh-buffer)
+  (setq-local bookmark-make-record-function #'magit--make-bookmark)
+  (setq-local imenu-create-index-function #'magit--imenu-create-index)
+  (setq-local imenu-default-goto-function #'magit--imenu-goto-function)
+  (setq-local isearch-filter-predicate #'magit-section--open-temporarily))
+
+(defun magit-hack-dir-local-variables ()
+  "Like `hack-dir-local-variables-non-file-buffer' but ignore some variables."
+  (let ((ignored-local-variables
+         `(show-trailing-whitespace
+           ,@ignored-local-variables)))
+    (hack-dir-local-variables-non-file-buffer)))
+
+;;; Local Variables
+
+(defvar-local magit-buffer-arguments nil)
+(defvar-local magit-buffer-diff-type nil)
+(defvar-local magit-buffer-diff-args nil)
+(defvar-local magit-buffer-diff-files nil)
+(defvar-local magit-buffer-diff-files-suspended nil)
+(defvar-local magit-buffer-file-name nil)
+(defvar-local magit-buffer-files nil)
+(defvar-local magit-buffer-log-args nil)
+(defvar-local magit-buffer-log-files nil)
+(defvar-local magit-buffer-range nil)
+(defvar-local magit-buffer-range-hashed nil)
+(defvar-local magit-buffer-refname nil)
+(defvar-local magit-buffer-revision nil)
+(defvar-local magit-buffer-revision-hash nil)
+(defvar-local magit-buffer-revisions nil)
+(defvar-local magit-buffer-typearg nil)
+(defvar-local magit-buffer-upstream nil)
+
+;; These variables are also used in file-visiting buffers.
+;; Because the user may change the major-mode, they have
+;; to be permanent buffer-local.
+(put 'magit-buffer-file-name 'permanent-local t)
+(put 'magit-buffer-refname 'permanent-local t)
+(put 'magit-buffer-revision 'permanent-local t)
+(put 'magit-buffer-revision-hash 'permanent-local t)
+
+;; `magit-status' re-enables mode function but its refresher
+;; function does not reinstate this.
+(put 'magit-buffer-diff-files-suspended 'permanent-local t)
+
+(cl-defgeneric magit-buffer-value ()
+  "Return the value of the current buffer.
+The \"value\" identifies what is being displayed in the buffer.
+The buffer's major-mode should derive from `magit-section-mode'."
+  nil)
+
+(defvar-local magit-previous-section nil)
+(put 'magit-previous-section 'permanent-local t)
+
+;;; Setup Buffer
+
+(defmacro magit-setup-buffer (mode &optional locked &rest bindings)
+  (declare (indent 2))
+  `(magit-setup-buffer-internal
+    ,mode ,locked
+    ,(cons 'list (mapcar (pcase-lambda (`(,var ,form))
+                           `(list ',var ,form))
+                         bindings))))
+
+(defun magit-setup-buffer-internal ( mode locked bindings
+                                     &optional buffer-or-name directory)
+  (let* ((value   (and locked
+                       (with-temp-buffer
+                         (pcase-dolist (`(,var ,val) bindings)
+                           (set (make-local-variable var) val))
+                         (let ((major-mode mode))
+                           (magit-buffer-value)))))
+         (buffer  (if buffer-or-name
+                      (get-buffer-create buffer-or-name)
+                    (magit-get-mode-buffer mode value)))
+         (section (and buffer (magit-current-section)))
+         (created (not buffer)))
+    (unless buffer
+      (setq buffer (magit-generate-new-buffer mode value)))
+    (with-current-buffer buffer
+      (setq magit-previous-section section)
+      (when directory
+        (setq default-directory directory))
+      (funcall mode)
+      (magit-xref-setup #'magit-setup-buffer-internal bindings)
+      (pcase-dolist (`(,var ,val) bindings)
+        (set (make-local-variable var) val))
+      (when created
+        (run-hooks 'magit-create-buffer-hook)))
+    (magit-display-buffer buffer)
+    (with-current-buffer buffer
+      (run-hooks 'magit-setup-buffer-hook)
+      (magit-refresh-buffer)
+      (when created
+        (run-hooks 'magit-post-create-buffer-hook)))
+    buffer))
+
+;;; Display Buffer
+
+(defvar magit-display-buffer-noselect nil
+  "If non-nil, then `magit-display-buffer' doesn't call `select-window'.")
+
+(defun magit-display-buffer (buffer &optional display-function)
+  "Display BUFFER in some window and maybe select it.
+
+If optional DISPLAY-FUNCTION is non-nil, then use that to display
+the buffer.  Otherwise use `magit-display-buffer-function', which
+is the normal case.
+
+Then, unless `magit-display-buffer-noselect' is non-nil, select
+the window which was used to display the buffer.
+
+Also run the hooks `magit-pre-display-buffer-hook'
+and `magit-post-display-buffer-hook'."
+  (with-current-buffer buffer
+    (run-hooks 'magit-pre-display-buffer-hook))
+  (let ((window (funcall (or display-function magit-display-buffer-function)
+                         buffer)))
+    (unless magit-display-buffer-noselect
+      (let* ((old-frame (selected-frame))
+             (new-frame (window-frame window)))
+        (select-window window)
+        (unless (eq old-frame new-frame)
+          (select-frame-set-input-focus new-frame)))))
+  (with-current-buffer buffer
+    (run-hooks 'magit-post-display-buffer-hook)))
+
+(defun magit-display-buffer-traditional (buffer)
+  "Display BUFFER the way this has traditionally been done."
+  (display-buffer
+   buffer (if (and (derived-mode-p 'magit-mode)
+                   (not (memq (with-current-buffer buffer major-mode)
+                              '(magit-process-mode
+                                magit-revision-mode
+                                magit-diff-mode
+                                magit-stash-mode
+                                magit-status-mode))))
+              '(display-buffer-same-window)
+            nil))) ; display in another window
+
+(defun magit-display-buffer-same-window-except-diff-v1 (buffer)
+  "Display BUFFER in the selected window except for some modes.
+If a buffer's `major-mode' derives from `magit-diff-mode' or
+`magit-process-mode', display it in another window.  Display all
+other buffers in the selected window."
+  (display-buffer
+   buffer (if (with-current-buffer buffer
+                (derived-mode-p 'magit-diff-mode 'magit-process-mode))
+              '(nil (inhibit-same-window . t))
+            '(display-buffer-same-window))))
+
+(defun magit--display-buffer-fullframe (buffer alist)
+  (when-let ((window (or (display-buffer-reuse-window buffer alist)
+                         (display-buffer-same-window buffer alist)
+                         (display-buffer-pop-up-window buffer alist)
+                         (display-buffer-use-some-window buffer alist))))
+    (delete-other-windows window)
+    window))
+
+(defun magit-display-buffer-fullframe-status-v1 (buffer)
+  "Display BUFFER, filling entire frame if BUFFER is a status buffer.
+Otherwise, behave like `magit-display-buffer-traditional'."
+  (if (eq (with-current-buffer buffer major-mode)
+          'magit-status-mode)
+      (display-buffer buffer '(magit--display-buffer-fullframe))
+    (magit-display-buffer-traditional buffer)))
+
+(defun magit--display-buffer-topleft (buffer alist)
+  (or (display-buffer-reuse-window buffer alist)
+      (when-let ((window2 (display-buffer-pop-up-window buffer alist)))
+        (let ((window1 (get-buffer-window))
+              (buffer1 (current-buffer))
+              (buffer2 (window-buffer window2))
+              (w2-quit-restore (window-parameter window2 'quit-restore)))
+          (set-window-buffer window1 buffer2)
+          (set-window-buffer window2 buffer1)
+          (select-window window2)
+          ;; Swap some window state that `magit-mode-quit-window' and
+          ;; `quit-restore-window' inspect.
+          (set-window-prev-buffers window2 (cdr (window-prev-buffers window1)))
+          (set-window-prev-buffers window1 nil)
+          (set-window-parameter window2 'magit-dedicated
+                                (window-parameter window1 'magit-dedicated))
+          (set-window-parameter window1 'magit-dedicated t)
+          (set-window-parameter window1 'quit-restore
+                                (list 'window 'window
+                                      (nth 2 w2-quit-restore)
+                                      (nth 3 w2-quit-restore)))
+          (set-window-parameter window2 'quit-restore nil)
+          window1))))
+
+(defun magit-display-buffer-fullframe-status-topleft-v1 (buffer)
+  "Display BUFFER, filling entire frame if BUFFER is a status buffer.
+When BUFFER derives from `magit-diff-mode' or
+`magit-process-mode', try to display BUFFER to the top or left of
+the current buffer rather than to the bottom or right, as
+`magit-display-buffer-fullframe-status-v1' would.  Whether the
+split is made vertically or horizontally is determined by
+`split-window-preferred-function'."
+  (display-buffer
+   buffer
+   (cond ((eq (with-current-buffer buffer major-mode)
+              'magit-status-mode)
+          '(magit--display-buffer-fullframe))
+         ((with-current-buffer buffer
+            (derived-mode-p 'magit-diff-mode 'magit-process-mode))
+          '(magit--display-buffer-topleft))
+         (t
+          '(display-buffer-same-window)))))
+
+(defun magit--display-buffer-fullcolumn (buffer alist)
+  (when-let ((window (or (display-buffer-reuse-window buffer alist)
+                         (display-buffer-same-window buffer alist)
+                         (display-buffer-below-selected buffer alist))))
+    (delete-other-windows-vertically window)
+    window))
+
+(defun magit-display-buffer-fullcolumn-most-v1 (buffer)
+  "Display BUFFER using the full column except in some cases.
+For most cases where BUFFER's `major-mode' derives from
+`magit-mode', display it in the selected window and grow that
+window to the full height of the frame, deleting other windows in
+that column as necessary.  However, display BUFFER in another
+window if 1) BUFFER's mode derives from `magit-process-mode', or
+2) BUFFER's mode derives from `magit-diff-mode', provided that
+the mode of the current buffer derives from `magit-log-mode' or
+`magit-cherry-mode'."
+  (display-buffer
+   buffer
+   (cond ((and (or (bound-and-true-p git-commit-mode)
+                   (derived-mode-p 'magit-log-mode
+                                   'magit-cherry-mode
+                                   'magit-reflog-mode))
+               (with-current-buffer buffer
+                 (derived-mode-p 'magit-diff-mode)))
+          nil)
+         ((with-current-buffer buffer
+            (derived-mode-p 'magit-process-mode))
+          nil)
+         (t
+          '(magit--display-buffer-fullcolumn)))))
+
+(defun magit-maybe-set-dedicated ()
+  "Mark the selected window as dedicated if appropriate.
+
+If a new window was created to display the buffer, then remember
+that fact.  That information is used by `magit-mode-quit-window',
+to determine whether the window should be deleted when its last
+Magit buffer is buried."
+  (let ((window (get-buffer-window (current-buffer))))
+    (when (and (window-live-p window)
+               (not (window-prev-buffers window)))
+      (set-window-parameter window 'magit-dedicated t))))
+
+;;; Get Buffer
+
+(defvar-local magit--default-directory nil
+  "Value of `default-directory' when buffer is generated.
+This exists to prevent a let-bound `default-directory' from
+tricking `magit-get-mode-buffer' or `magit-mode-get-buffers'
+into thinking a buffer belongs to a repo that it doesn't.")
+(put 'magit--default-directory 'permanent-local t)
+
+(defun magit-mode-get-buffers ()
+  (let ((topdir (magit-toplevel)))
+    (--filter (with-current-buffer it
+                (and (derived-mode-p 'magit-mode)
+                     (equal magit--default-directory topdir)))
+              (buffer-list))))
+
+(defvar-local magit-buffer-locked-p nil)
+(put 'magit-buffer-locked-p 'permanent-local t)
+
+(defun magit-get-mode-buffer (mode &optional value frame)
+  "Return buffer belonging to the current repository whose major-mode is MODE.
+
+If no such buffer exists then return nil.  Multiple buffers with
+the same major-mode may exist for a repository but only one can
+exist that hasn't been locked to its value.  Return that buffer
+\(or nil if there is no such buffer) unless VALUE is non-nil, in
+which case return the buffer that has been locked to that value.
+
+If FRAME is nil or omitted, then consider all buffers.  Otherwise
+  only consider buffers that are displayed in some live window
+  on some frame.
+If `all', then consider all buffers on all frames.
+If `visible', then only consider buffers on all visible frames.
+If `selected' or t, then only consider buffers on the selected
+  frame.
+If a frame, then only consider buffers on that frame."
+  (let ((topdir (magit--toplevel-safe)))
+    (cl-flet* ((b (buffer)
+                 (with-current-buffer buffer
+                   (and (eq major-mode mode)
+                        (equal magit--default-directory topdir)
+                        (if value
+                            (and magit-buffer-locked-p
+                                 (equal (magit-buffer-value) value))
+                          (not magit-buffer-locked-p))
+                        buffer)))
+               (w (window)
+                 (b (window-buffer window)))
+               (f (frame)
+                 (seq-some #'w (window-list frame 'no-minibuf))))
+      (pcase-exhaustive frame
+        ('nil                   (seq-some #'b (buffer-list)))
+        ('all                   (seq-some #'f (frame-list)))
+        ('visible               (seq-some #'f (visible-frame-list)))
+        ((or 'selected 't)      (seq-some #'w (window-list (selected-frame))))
+        ((guard (framep frame)) (seq-some #'w (window-list frame)))))))
+
+(defun magit-generate-new-buffer (mode &optional value directory)
+  (let* ((default-directory (or directory (magit--toplevel-safe)))
+         (name (funcall magit-generate-buffer-name-function mode value))
+         (buffer (generate-new-buffer name)))
+    (with-current-buffer buffer
+      (setq magit--default-directory default-directory)
+      (setq magit-buffer-locked-p (and value t))
+      (magit-restore-section-visibility-cache mode))
+    (when magit-uniquify-buffer-names
+      (add-to-list 'uniquify-list-buffers-directory-modes mode)
+      (with-current-buffer buffer
+        (setq list-buffers-directory (abbreviate-file-name default-directory)))
+      (let ((uniquify-buffer-name-style
+             (if (memq uniquify-buffer-name-style '(nil forward))
+                 'post-forward-angle-brackets
+               uniquify-buffer-name-style)))
+        (uniquify-rationalize-file-buffer-names
+         name (file-name-directory (directory-file-name default-directory))
+         buffer)))
+    buffer))
+
+(defun magit-generate-buffer-name-default-function (mode &optional value)
+  "Generate buffer name for a MODE buffer in the current repository.
+The returned name is based on `magit-buffer-name-format' and
+takes `magit-uniquify-buffer-names' and VALUE, if non-nil, into
+account."
+  (let ((m (substring (symbol-name mode) 0 -5))
+        (v (and value (format "%s" (ensure-list value))))
+        (n (if magit-uniquify-buffer-names
+               (file-name-nondirectory
+                (directory-file-name default-directory))
+             (abbreviate-file-name default-directory))))
+    (format-spec
+     magit-buffer-name-format
+     `((?m . ,m)
+       (?M . ,(if (eq mode 'magit-status-mode) "magit" m))
+       (?v . ,(or v ""))
+       (?V . ,(if v (concat " " v) ""))
+       (?t . ,n)
+       (?x . ,(if magit-uniquify-buffer-names "" "*"))))))
+
+;;; Buffer Lock
+
+(defun magit-toggle-buffer-lock ()
+  "Lock the current buffer to its value or unlock it.
+
+Locking a buffer to its value prevents it from being reused to
+display another value.  The name of a locked buffer contains its
+value, which allows telling it apart from other locked buffers
+and the unlocked buffer.
+
+Not all Magit buffers can be locked to their values, for example
+it wouldn't make sense to lock a status buffer.
+
+There can only be a single unlocked buffer using a certain
+major-mode per repository.  So when a buffer is being unlocked
+and another unlocked buffer already exists for that mode and
+repository, then the former buffer is instead deleted and the
+latter is displayed in its place."
+  (interactive)
+  (if magit-buffer-locked-p
+      (if-let ((unlocked (magit-get-mode-buffer major-mode)))
+          (let ((locked (current-buffer)))
+            (switch-to-buffer unlocked nil t)
+            (kill-buffer locked))
+        (setq magit-buffer-locked-p nil)
+        (rename-buffer (funcall magit-generate-buffer-name-function
+                                major-mode)))
+    (if-let ((value (magit-buffer-value)))
+        (if-let ((locked (magit-get-mode-buffer major-mode value)))
+            (let ((unlocked (current-buffer)))
+              (switch-to-buffer locked nil t)
+              (kill-buffer unlocked))
+          (setq magit-buffer-locked-p t)
+          (rename-buffer (funcall magit-generate-buffer-name-function
+                                  major-mode value)))
+      (user-error "Buffer has no value it could be locked to"))))
+
+;;; Bury Buffer
+
+(defun magit-mode-bury-buffer (&optional kill-buffer)
+  "Bury or kill the current buffer.
+
+Use `magit-bury-buffer-function' to bury the buffer when called
+without a prefix argument or to kill it when called with a single
+prefix argument.
+
+With two prefix arguments, always kill the current and all other
+Magit buffers, associated with this repository."
+  (interactive "P")
+  (if (>= (prefix-numeric-value kill-buffer) 16)
+      (mapc #'kill-buffer (magit-mode-get-buffers))
+    (funcall magit-bury-buffer-function kill-buffer)))
+
+(defun magit-mode-quit-window (kill-buffer)
+  "Quit the selected window and bury its buffer.
+
+This behaves similar to `quit-window', but when the window
+was originally created to display a Magit buffer and the
+current buffer is the last remaining Magit buffer that was
+ever displayed in the selected window, then delete that
+window."
+  (if (or (one-window-p)
+          (--first (let ((buffer (car it)))
+                     (and (not (eq buffer (current-buffer)))
+                          (buffer-live-p buffer)
+                          (or (not (window-parameter nil 'magit-dedicated))
+                              (with-current-buffer buffer
+                                (derived-mode-p 'magit-mode
+                                                'magit-process-mode)))))
+                   (window-prev-buffers)))
+      (quit-window kill-buffer)
+    (let ((window (selected-window)))
+      (quit-window kill-buffer)
+      (when (window-live-p window)
+        (delete-window window)))))
+
+;;; Refresh Buffers
+
+(defvar magit-inhibit-refresh nil)
+
+(defun magit-refresh ()
+  "Refresh some buffers belonging to the current repository.
+
+Refresh the current buffer if its major mode derives from
+`magit-mode', and refresh the corresponding status buffer.
+
+Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
+  (interactive)
+  (unless magit-inhibit-refresh
+    (unwind-protect
+        (let ((start (current-time))
+              (magit--refresh-cache (or magit--refresh-cache
+                                        (list (cons 0 0)))))
+          (when magit-refresh-verbose
+            (message "Refreshing magit..."))
+          (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
+          (cond ((derived-mode-p 'magit-mode)
+                 (magit-refresh-buffer))
+                ((derived-mode-p 'tabulated-list-mode)
+                 (revert-buffer)))
+          (when-let ((buffer (and magit-refresh-status-buffer
+                                  (not (derived-mode-p 'magit-status-mode))
+                                  (magit-get-mode-buffer 'magit-status-mode))))
+            (with-current-buffer buffer
+              (magit-refresh-buffer)))
+          (magit-run-hook-with-benchmark 'magit-post-refresh-hook)
+          (when magit-refresh-verbose
+            (let* ((c (caar magit--refresh-cache))
+                   (a (+ c (cdar magit--refresh-cache))))
+              (message "Refreshing magit...done (%.3fs, cached %s/%s (%.0f%%))"
+                       (float-time (time-since start))
+                       c a (* (/ c (* a 1.0)) 100)))))
+      (run-hooks 'magit-unwind-refresh-hook))))
+
+(defun magit-refresh-all ()
+  "Refresh all buffers belonging to the current repository.
+
+Refresh all Magit buffers belonging to the current repository,
+and revert buffers that visit files located inside the current
+repository.
+
+Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'."
+  (interactive)
+  (magit-run-hook-with-benchmark 'magit-pre-refresh-hook)
+  (dolist (buffer (magit-mode-get-buffers))
+    (with-current-buffer buffer (magit-refresh-buffer)))
+  (magit-run-hook-with-benchmark 'magit-post-refresh-hook))
+
+(defvar-local magit-refresh-start-time nil)
+
+(defun magit-refresh-buffer (&rest _ignore)
+  "Refresh the current Magit buffer."
+  (interactive)
+  (setq magit-refresh-start-time (current-time))
+  (let ((refresh (intern (format "%s-refresh-buffer"
+                                 (substring (symbol-name major-mode) 0 -5))))
+        (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0)))))
+    (when (functionp refresh)
+      (when magit-refresh-verbose
+        (message "Refreshing buffer `%s'..." (buffer-name)))
+      (let* ((buffer (current-buffer))
+             (windows (mapcan
+                       (lambda (window)
+                         (with-selected-window window
+                           (with-current-buffer buffer
+                             (and-let* ((section (magit-section-at)))
+                               `(( ,window
+                                   ,section
+                                   ,@(magit-section-get-relative-position
+                                      section)))))))
+                       ;; If it qualifies, then the selected window
+                       ;; comes first, but we want to handle it last
+                       ;; so that its `magit-section-movement-hook'
+                       ;; run can override the effects of other runs.
+                       (or (nreverse (get-buffer-window-list buffer nil t))
+                           (list (selected-window))))))
+        (deactivate-mark)
+        (setq magit-section-pre-command-section nil)
+        (setq magit-section-highlight-overlays nil)
+        (setq magit-section-highlighted-sections nil)
+        (setq magit-section-unhighlight-sections nil)
+        (let ((inhibit-read-only t))
+          (erase-buffer)
+          (save-excursion
+            (funcall refresh)))
+        (pcase-dolist (`(,window . ,args) windows)
+          (if (eq buffer (window-buffer window))
+              (with-selected-window window
+                (apply #'magit-section-goto-successor args))
+            (with-current-buffer buffer
+              (let ((magit-section-movement-hook nil))
+                (apply #'magit-section-goto-successor args)))))
+        (run-hooks 'magit-refresh-buffer-hook)
+        (magit-section-update-highlight)
+        (set-buffer-modified-p nil))
+      (when magit-refresh-verbose
+        (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name)
+                 (float-time (time-since magit-refresh-start-time)))))))
+
+(defun magit-profile-refresh-buffer ()
+  "Profile refreshing the current Magit buffer."
+  (interactive)
+  (require (quote elp))
+  (when (fboundp 'elp-reset-all)
+    (elp-reset-all)
+    (elp-instrument-package "magit-")
+    (elp-instrument-package "forge-")
+    (magit-refresh-buffer)
+    (elp-results)
+    (elp-reset-all)))
+
+;;; Save File-Visiting Buffers
+
+(defvar magit--disable-save-buffers nil)
+
+(defun magit-pre-command-hook ()
+  (setq magit--disable-save-buffers nil))
+(add-hook 'pre-command-hook #'magit-pre-command-hook)
+
+(defvar magit-after-save-refresh-buffers nil)
+
+(defun magit-after-save-refresh-buffers ()
+  (dolist (buffer magit-after-save-refresh-buffers)
+    (when (buffer-live-p buffer)
+      (with-current-buffer buffer
+        (magit-refresh-buffer))))
+  (setq magit-after-save-refresh-buffers nil)
+  (remove-hook 'post-command-hook #'magit-after-save-refresh-buffers))
+
+(defun magit-after-save-refresh-status ()
+  "Refresh the status buffer of the current repository.
+
+This function is intended to be added to `after-save-hook'.
+
+If the status buffer does not exist or the file being visited in
+the current buffer isn't inside the working tree of a repository,
+then do nothing.
+
+Note that refreshing a Magit buffer is done by re-creating its
+contents from scratch, which can be slow in large repositories.
+If you are not satisfied with Magit's performance, then you
+should obviously not add this function to that hook."
+  (when-let (((and (not magit--disable-save-buffers)
+                   (magit-inside-worktree-p t)))
+             (buf (ignore-errors (magit-get-mode-buffer 'magit-status-mode))))
+    (add-to-list 'magit-after-save-refresh-buffers buf)
+    (add-hook 'post-command-hook #'magit-after-save-refresh-buffers)))
+
+(defun magit-maybe-save-repository-buffers ()
+  "Maybe save file-visiting buffers belonging to the current repository.
+Do so if `magit-save-repository-buffers' is non-nil.  You should
+not remove this from any hooks, instead set that variable to nil
+if you so desire."
+  (when (and magit-save-repository-buffers
+             (not magit--disable-save-buffers))
+    (setq magit--disable-save-buffers t)
+    (let ((msg (current-message)))
+      (magit-save-repository-buffers
+       (eq magit-save-repository-buffers 'dontask))
+      (when (and msg
+                 (current-message)
+                 (not (equal msg (current-message))))
+        (message "%s" msg)))))
+
+(add-hook 'magit-pre-refresh-hook #'magit-maybe-save-repository-buffers)
+(add-hook 'magit-pre-call-git-hook #'magit-maybe-save-repository-buffers)
+(add-hook 'magit-pre-start-git-hook #'magit-maybe-save-repository-buffers)
+
+(defvar-local magit-inhibit-refresh-save nil)
+
+(defun magit-save-repository-buffers (&optional arg)
+  "Save file-visiting buffers belonging to the current repository.
+After any buffer where `buffer-save-without-query' is non-nil
+is saved without asking, the user is asked about each modified
+buffer which visits a file in the current repository.  Optional
+argument (the prefix) non-nil means save all with no questions."
+  (interactive "P")
+  (when-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
+    (let ((remote (file-remote-p default-directory))
+          (save-some-buffers-action-alist
+           `((?Y (lambda (buffer)
+                   (with-current-buffer buffer
+                     (setq buffer-save-without-query t)
+                     (save-buffer)))
+                 "to save the current buffer and remember choice")
+             (?N (lambda (buffer)
+                   (with-current-buffer buffer
+                     (setq magit-inhibit-refresh-save t)))
+                 "to skip the current buffer and remember choice")
+             ,@save-some-buffers-action-alist))
+          (topdirs nil)
+          (unwiped nil)
+          (magit--wip-inhibit-autosave t))
+      (unwind-protect
+          (save-some-buffers
+           arg
+           (lambda ()
+             ;; If the current file is modified and resides inside
+             ;; a repository, and a let-binding is in effect, which
+             ;; places us in another repository, then this binding
+             ;; is needed to prevent that file from being saved.
+             (and-let* ((default-directory
+                         (and buffer-file-name
+                              (file-name-directory buffer-file-name))))
+               (and
+                ;; Check whether the repository still exists.
+                (file-exists-p default-directory)
+                ;; Check whether refreshing is disabled.
+                (not magit-inhibit-refresh-save)
+                ;; Check whether the visited file is either on the
+                ;; same remote as the repository, or both are on
+                ;; the local system.
+                (equal (file-remote-p buffer-file-name) remote)
+                ;; Delayed checks that are more expensive for remote
+                ;; repositories, due to the required network access.
+                ;;
+                ;; Check whether the file is inside the repository.
+                (equal (or (cdr (assoc default-directory topdirs))
+                           (let ((top (magit-rev-parse-safe "--show-toplevel")))
+                             (push (cons default-directory top) topdirs)
+                             top))
+                       topdir)
+                ;; Check whether the file is actually writable.
+                (file-writable-p buffer-file-name)
+                (prog1 t
+                  ;; Schedule for wip commit, if appropriate.
+                  (when magit-wip-after-save-local-mode
+                    (push (expand-file-name buffer-file-name) unwiped)))))))
+        (when unwiped
+          (let ((default-directory topdir))
+            (magit-wip-commit-worktree
+             (magit-wip-get-ref)
+             unwiped
+             (if (cdr unwiped)
+                 (format "autosave %s files after save" (length unwiped))
+               (format "autosave %s after save"
+                       (file-relative-name (car unwiped)))))))))))
+
+;;; Restore Window Configuration
+
+(defvar magit-inhibit-save-previous-winconf nil)
+
+(defvar-local magit-previous-window-configuration nil)
+(put 'magit-previous-window-configuration 'permanent-local t)
+
+(defun magit-save-window-configuration ()
+  "Save the current window configuration.
+
+Later, when the buffer is buried, it may be restored by
+`magit-restore-window-configuration'."
+  (if magit-inhibit-save-previous-winconf
+      (when (eq magit-inhibit-save-previous-winconf 'unset)
+        (setq magit-previous-window-configuration nil))
+    (unless (get-buffer-window (current-buffer) (selected-frame))
+      (setq magit-previous-window-configuration
+            (current-window-configuration)))))
+
+(defun magit-restore-window-configuration (&optional kill-buffer)
+  "Bury or kill the current buffer and restore previous window configuration."
+  (let ((winconf magit-previous-window-configuration)
+        (buffer (current-buffer))
+        (frame (selected-frame)))
+    (quit-window kill-buffer (selected-window))
+    (when (and winconf (equal frame (window-configuration-frame winconf)))
+      (set-window-configuration winconf)
+      (when (buffer-live-p buffer)
+        (with-current-buffer buffer
+          (setq magit-previous-window-configuration nil)))
+      (set-buffer (with-selected-window (selected-window)
+                    (current-buffer))))))
+
+;;; Buffer History
+
+(defun magit-go-backward ()
+  "Move backward in current buffer's history."
+  (interactive)
+  (if help-xref-stack
+      (help-xref-go-back (current-buffer))
+    (user-error "No previous entry in buffer's history")))
+
+(defun magit-go-forward ()
+  "Move forward in current buffer's history."
+  (interactive)
+  (if help-xref-forward-stack
+      (help-xref-go-forward (current-buffer))
+    (user-error "No next entry in buffer's history")))
+
+(defun magit-insert-xref-buttons ()
+  "Insert xref buttons."
+  (when (and (not magit-buffer-locked-p)
+             (or help-xref-stack help-xref-forward-stack))
+    (when help-xref-stack
+      (magit-xref-insert-button help-back-label 'magit-xref-backward))
+    (when help-xref-forward-stack
+      (when help-xref-stack
+        (insert " "))
+      (magit-xref-insert-button help-forward-label 'magit-xref-forward))))
+
+(defun magit-xref-insert-button (label type)
+  (magit-insert-section (button label)
+    (insert-text-button label 'type type
+                        'help-args (list (current-buffer)))))
+
+(define-button-type 'magit-xref-backward
+  :supertype 'help-back
+  'mouse-face 'magit-section-highlight
+  'help-echo (purecopy "mouse-2, RET: go back to previous history entry"))
+
+(define-button-type 'magit-xref-forward
+  :supertype 'help-forward
+  'mouse-face 'magit-section-highlight
+  'help-echo (purecopy "mouse-2, RET: go back to next history entry"))
+
+(defvar magit-xref-modes
+  '(magit-log-mode
+    magit-reflog-mode
+    magit-diff-mode
+    magit-revision-mode)
+  "List of modes for which to insert navigation buttons.")
+
+(defun magit-xref-setup (fn args)
+  (when (memq major-mode magit-xref-modes)
+    (when help-xref-stack-item
+      (push (cons (point) help-xref-stack-item) help-xref-stack)
+      (setq help-xref-forward-stack nil))
+    (when-let ((tail (nthcdr 30 help-xref-stack)))
+      (setcdr tail nil))
+    (setq help-xref-stack-item
+          (list 'magit-xref-restore fn default-directory args))))
+
+(defun magit-xref-restore (fn dir args)
+  (setq default-directory dir)
+  (funcall fn major-mode nil args)
+  (magit-refresh-buffer))
+
+;;; Repository-Local Cache
+
+(defvar magit-repository-local-cache nil
+  "Alist mapping `magit-toplevel' paths to alists of key/value pairs.")
+
+(defun magit-repository-local-repository ()
+  "Return the key for the current repository."
+  (or (bound-and-true-p magit--default-directory)
+      (magit-toplevel)))
+
+(defun magit-repository-local-set (key value &optional repository)
+  "Set the repository-local VALUE for KEY.
+
+Unless specified, REPOSITORY is the current buffer's repository.
+
+If REPOSITORY is nil (meaning there is no current repository),
+then the value is not cached, and we return nil."
+  (let* ((repokey (or repository (magit-repository-local-repository)))
+         (cache (assoc repokey magit-repository-local-cache)))
+    ;; Don't cache values for a nil REPOSITORY, as the 'set' and 'get'
+    ;; calls for some KEY may happen in unrelated contexts.
+    (when repokey
+      (if cache
+          (let ((keyvalue (assoc key (cdr cache))))
+            (if keyvalue
+                ;; Update pre-existing value for key.
+                (setcdr keyvalue value)
+              ;; No such key in repository-local cache.
+              (push (cons key value) (cdr cache))))
+        ;; No cache for this repository.
+        (push (cons repokey (list (cons key value)))
+              magit-repository-local-cache)))))
+
+(defun magit-repository-local-exists-p (key &optional repository)
+  "Non-nil when a repository-local value exists for KEY.
+
+Return a (KEY . VALUE) cons cell.
+
+The KEY is matched using `equal'.
+
+Unless specified, REPOSITORY is the current buffer's repository."
+  (and-let* ((cache (assoc (or repository
+                               (magit-repository-local-repository))
+                           magit-repository-local-cache)))
+    (assoc key (cdr cache))))
+
+(defun magit-repository-local-get (key &optional default repository)
+  "Return the repository-local value for KEY.
+
+Return DEFAULT if no value for KEY exists.
+
+The KEY is matched using `equal'.
+
+Unless specified, REPOSITORY is the current buffer's repository."
+  (if-let ((keyvalue (magit-repository-local-exists-p key repository)))
+      (cdr keyvalue)
+    default))
+
+(defun magit-repository-local-delete (key &optional repository)
+  "Delete the repository-local value for KEY.
+
+Unless specified, REPOSITORY is the current buffer's repository.
+If REPOSITORY is `all', then delete the value for KEY for all
+repositories."
+  (if (eq repository 'all)
+      (dolist (cache magit-repository-local-cache)
+        (setf cache (compat-call assoc-delete-all key cache)))
+    (when-let ((cache (assoc (or repository
+                                 (magit-repository-local-repository))
+                             magit-repository-local-cache)))
+      (setf cache (compat-call assoc-delete-all key cache)))))
+
+(defmacro magit--with-repository-local-cache (key &rest body)
+  (declare (indent 1) (debug (form body)))
+  (let ((k (cl-gensym)))
+    `(let ((,k ,key))
+       (if-let ((kv (magit-repository-local-exists-p ,k)))
+           (cdr kv)
+         (let ((v ,(macroexp-progn body)))
+           (magit-repository-local-set ,k v)
+           v)))))
+
+(defun magit-preserve-section-visibility-cache ()
+  (when (derived-mode-p 'magit-status-mode 'magit-refs-mode)
+    (magit-repository-local-set
+     (cons major-mode 'magit-section-visibility-cache)
+     magit-section-visibility-cache)))
+
+(defun magit-restore-section-visibility-cache (mode)
+  (setq magit-section-visibility-cache
+        (magit-repository-local-get
+         (cons mode 'magit-section-visibility-cache))))
+
+(defun magit-zap-caches (&optional all)
+  "Zap caches for the current repository.
+
+Remove the repository's entry from `magit-repository-local-cache',
+remove the host's entry from `magit--host-git-version-cache', and
+set `magit-section-visibility-cache' to nil for all Magit buffers
+of the repository.
+
+With a prefix argument or if optional ALL is non-nil, discard the
+mentioned caches completely."
+  (interactive)
+  (cond (all
+         (setq magit-repository-local-cache nil)
+         (setq magit--host-git-version-cache nil)
+         (dolist (buffer (buffer-list))
+           (with-current-buffer buffer
+             (when (derived-mode-p 'magit-mode)
+               (setq magit-section-visibility-cache nil)))))
+        (t
+         (magit-with-toplevel
+           (setq magit-repository-local-cache
+                 (cl-delete default-directory
+                            magit-repository-local-cache
+                            :key #'car :test #'equal))
+           (setq magit--host-git-version-cache
+                 (cl-delete (file-remote-p default-directory)
+                            magit--host-git-version-cache
+                            :key #'car :test #'equal)))
+         (dolist (buffer (magit-mode-get-buffers))
+           (with-current-buffer buffer
+             (setq magit-section-visibility-cache nil))))))
+
+;;; Utilities
+
+(defun magit-toggle-verbose-refresh ()
+  "Toggle whether Magit refreshes buffers verbosely.
+Enabling this helps figuring out which sections are bottlenecks.
+The additional output can be found in the *Messages* buffer."
+  (interactive)
+  (setq magit-refresh-verbose (not magit-refresh-verbose))
+  (message "%s verbose refreshing"
+           (if magit-refresh-verbose "Enabled" "Disabled")))
+
+(defun magit-run-hook-with-benchmark (hook)
+  (cond
+   ((not hook))
+   (magit-refresh-verbose
+    (message "Running %s..." hook)
+    (message "Running %s...done (%.3fs)" hook
+             (benchmark-elapse
+               (run-hook-wrapped
+                hook
+                (lambda (fn)
+                  (message "  %-50s %f" fn (benchmark-elapse (funcall fn))))))))
+   ((run-hooks hook))))
+
+;;; _
+(provide 'magit-mode)
+;;; magit-mode.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-mode.elc b/emacs/elpa/magit-20241124.1509/magit-mode.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-notes.el b/emacs/elpa/magit-20241124.1509/magit-notes.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-notes.elc b/emacs/elpa/magit-20241124.1509/magit-notes.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-patch.el b/emacs/elpa/magit-20241124.1509/magit-patch.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-patch.elc b/emacs/elpa/magit-20241124.1509/magit-patch.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-pkg.el b/emacs/elpa/magit-20241124.1509/magit-pkg.el
@@ -0,0 +1,18 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "magit" "20241124.1509"
+  "A Git porcelain inside Emacs."
+  '((emacs         "26.1")
+    (compat        "30.0.0.0")
+    (dash          "2.19.1")
+    (magit-section "4.1.2")
+    (seq           "2.24")
+    (transient     "0.7.8")
+    (with-editor   "3.4.2"))
+  :url "https://github.com/magit/magit"
+  :commit "1e17181a21ffaec20c9540f413bea04ca20d65f1"
+  :revdesc "1e17181a21ff"
+  :keywords '("git" "tools" "vc")
+  :authors '(("Marius Vollmer" . "marius.vollmer@gmail.com")
+             ("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))
+  :maintainers '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")
+                 ("Kyle Meyer" . "kyle@kyleam.com")))
diff --git a/emacs/elpa/magit-20241124.1509/magit-process.el b/emacs/elpa/magit-20241124.1509/magit-process.el
@@ -0,0 +1,1289 @@
+;;; magit-process.el --- Process functionality  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements the tools used to run Git for side-effects.
+
+;; Note that the functions used to run Git and then consume its
+;; output, are defined in `magit-git.el'.  There's a bit of overlap
+;; though.
+
+;;; Code:
+
+(require 'magit-base)
+(require 'magit-git)
+(require 'magit-mode)
+
+(require 'ansi-color)
+(require 'auth-source)
+(require 'with-editor)
+
+(defvar y-or-n-p-map)
+
+;;; Options
+
+(defcustom magit-process-connection-type (not (eq system-type 'cygwin))
+  "Connection type used for the Git process.
+
+If nil, use pipes: this is usually more efficient, and works on Cygwin.
+If t, use ptys: this enables Magit to prompt for passphrases when needed."
+  :group 'magit-process
+  :type '(choice (const :tag "pipe" nil)
+                 (const :tag "pty" t)))
+
+(defcustom magit-need-cygwin-noglob
+  (and (eq system-type 'windows-nt)
+       (with-temp-buffer
+         (let ((process-environment
+                (append magit-git-environment process-environment)))
+           (condition-case e
+               (process-file magit-git-executable
+                             nil (current-buffer) nil
+                             "-c" "alias.echo=!echo" "echo" "x{0}")
+             (file-error
+              (lwarn 'magit-process :warning
+                     "Could not run Git: %S" e))))
+         (equal "x0\n" (buffer-string))))
+  "Whether to use a workaround for Cygwin's globbing behavior.
+
+If non-nil, add environment variables to `process-environment' to
+prevent the git.exe distributed by Cygwin and MSYS2 from
+attempting to perform glob expansion when called from a native
+Windows build of Emacs.  See #2246."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-process
+  :type '(choice (const :tag "Yes" t)
+                 (const :tag "No" nil)))
+
+(defcustom magit-process-popup-time -1
+  "Popup the process buffer if a command takes longer than this many seconds."
+  :group 'magit-process
+  :type '(choice (const :tag "Never" -1)
+                 (const :tag "Immediately" 0)
+                 (integer :tag "After this many seconds")))
+
+(defcustom magit-process-log-max 32
+  "Maximum number of sections to keep in a process log buffer.
+When adding a new section would go beyond the limit set here,
+then the older half of the sections are remove.  Sections that
+belong to processes that are still running are never removed.
+When this is nil, no sections are ever removed."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-process
+  :type '(choice (const :tag "Never remove old sections" nil) integer))
+
+(defvar magit-process-extreme-logging nil
+  "Whether `magit-process-file' logs to the *Messages* buffer.
+
+Only intended for temporary use when you try to figure out how
+Magit uses Git behind the scene.  Output that normally goes to
+the magit-process buffer continues to go there.  Not all output
+goes to either of these two buffers.
+
+Also see `magit-git-debug'.")
+
+(defcustom magit-process-error-tooltip-max-lines 20
+  "The number of lines for `magit-process-error-lines' to return.
+
+These are displayed in a tooltip for `mode-line-process' errors.
+
+If `magit-process-error-tooltip-max-lines' is nil, the tooltip
+displays the text of `magit-process-error-summary' instead."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-process
+  :type '(choice (const :tag "Use summary line" nil)
+                 integer))
+
+(defcustom magit-credential-cache-daemon-socket
+  (--some (pcase-let ((`(,prog . ,args) (split-string it)))
+            (if (and prog
+                     (string-match-p
+                      "\\`\\(?:\\(?:/.*/\\)?git-credential-\\)?cache\\'" prog))
+                (or (cl-loop for (opt val) on args
+                             if (string= opt "--socket")
+                             return val)
+                    (expand-file-name "~/.git-credential-cache/socket"))))
+          ;; Note: `magit-process-file' is not yet defined when
+          ;; evaluating this form, so we use `process-lines'.
+          (ignore-errors
+            (let ((process-environment
+                   (append magit-git-environment process-environment)))
+              (process-lines magit-git-executable
+                             "config" "--get-all" "credential.helper"))))
+  "If non-nil, start a credential cache daemon using this socket.
+
+When using Git's cache credential helper in the normal way, Emacs
+sends a SIGHUP to the credential daemon after the git subprocess
+has exited, causing the daemon to also quit.  This can be avoided
+by starting the `git-credential-cache--daemon' process directly
+from Emacs.
+
+The function `magit-maybe-start-credential-cache-daemon' takes
+care of starting the daemon if necessary, using the value of this
+option as the socket.  If this option is nil, then it does not
+start any daemon.  Likewise if another daemon is already running,
+then it starts no new daemon.  This function has to be a member
+of the hook variable `magit-credential-hook' for this to work.
+If an error occurs while starting the daemon, most likely because
+the necessary executable is missing, then the function removes
+itself from the hook, to avoid further futile attempts."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-process
+  :type '(choice (file  :tag "Socket")
+                 (const :tag "Don't start a cache daemon" nil)))
+
+(defcustom magit-process-yes-or-no-prompt-regexp
+  (concat " [([]"
+          "\\([Yy]\\(?:es\\)?\\)"
+          "[/|]"
+          "\\([Nn]o?\\)"
+          ;; OpenSSH v8 prints this.  See #3969.
+          "\\(?:/\\[fingerprint\\]\\)?"
+          "[])] ?[?:]? ?$")
+  "Regexp matching Yes-or-No prompts of Git and its subprocesses."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-process
+  :type 'regexp)
+
+(defcustom magit-process-password-prompt-regexps
+  '("^\\(Enter \\)?[Pp]assphrase\\( for \\(RSA \\)?key '.*'\\)?: ?$"
+    ;; Match-group 99 is used to identify the "user@host" part.
+    "^\\(Enter \\|([^) ]+) \\)?\
+[Pp]assword\\( for '?\\(https?://\\)?\\(?99:[^']+\\)'?\\)?: ?$"
+    "Please enter the passphrase for the ssh key"
+    "Please enter the passphrase to unlock the OpenPGP secret key"
+    "^\\(?99:[^']+\\)\\('s\\)? password: ?$"
+    "^.+ password: ?$"
+    "^Token: $" ; For git-credential-manager-core (#4318).
+    "^Yubikey for .*: ?$"
+    "^Enter PIN for .*: ?$")
+  "List of regexps matching password prompts of Git and its subprocesses.
+Also see `magit-process-find-password-functions'."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-process
+  :type '(repeat (regexp)))
+
+(defcustom magit-process-find-password-functions nil
+  "List of functions to try in sequence to get a password.
+
+These functions may be called when git asks for a password, which
+is detected using `magit-process-password-prompt-regexps'.  They
+are called if and only if matching the prompt resulted in the
+value of the 99th submatch to be non-nil.  Therefore users can
+control for which prompts these functions should be called by
+putting the host name in the 99th submatch, or not.
+
+If the functions are called, then they are called in the order
+given, with the host name as only argument, until one of them
+returns non-nil.  If they are not called or none of them returns
+non-nil, then the password is read from the user instead."
+  :package-version '(magit . "2.3.0")
+  :group 'magit-process
+  :type 'hook
+  :options '(magit-process-password-auth-source))
+
+(defcustom magit-process-username-prompt-regexps
+  '("^Username for '.*': ?$")
+  "List of regexps matching username prompts of Git and its subprocesses."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-process
+  :type '(repeat (regexp)))
+
+(defcustom magit-process-prompt-functions nil
+  "List of functions used to forward arbitrary questions to the user.
+
+Magit has dedicated support for forwarding username and password
+prompts and Yes-or-No questions asked by Git and its subprocesses
+to the user.  This can be customized using other options in the
+`magit-process' customization group.
+
+If you encounter a new question that isn't handled by default,
+then those options should be used instead of this hook.
+
+However subprocesses may also ask questions that differ too much
+from what the code related to the above options assume, and this
+hook allows users to deal with such questions explicitly.
+
+Each function is called with the process and the output string
+as arguments until one of the functions returns non-nil.  The
+function is responsible for asking the user the appropriate
+question using, e.g., `read-char-choice' and then forwarding the
+answer to the process using `process-send-string'.
+
+While functions such as `magit-process-yes-or-no-prompt' may not
+be sufficient to handle some prompt, it may still be of benefit
+to look at the implementations to gain some insights on how to
+implement such functions."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-process
+  :type 'hook)
+
+(defcustom magit-process-ensure-unix-line-ending t
+  "Whether Magit should ensure a unix coding system when talking to Git."
+  :package-version '(magit . "2.6.0")
+  :group 'magit-process
+  :type 'boolean)
+
+(defcustom magit-process-display-mode-line-error t
+  "Whether Magit should retain and highlight process errors in the mode line."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-process
+  :type 'boolean)
+
+(defcustom magit-process-timestamp-format nil
+  "Format of timestamp for each process in the process buffer.
+If non-nil, pass this to `format-time-string' when creating a
+process section in the process buffer, and insert the returned
+string in the heading of its section."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-process
+  :type '(choice (const :tag "none" nil) string))
+
+(defvar tramp-pipe-stty-settings)
+(defvar magit-tramp-pipe-stty-settings ""
+  "Override `tramp-pipe-stty-settings' in `magit-start-process'.
+
+The default for that Tramp variable is \"-icanon min 1 time 0\",
+which causes staging of individual hunks to hang.  Using \"\"
+prevents that, but apparently has other issues, which is why it
+isn't the default.
+
+This variable defaults to \"\" and is used to override the Tramp
+variable in `magit-start-process'.  This only has an effect when
+using Tramp 2.6.2 or greater.  This can also be set to `pty', in
+which case a pty is used instead of a pipe.  That also prevents
+the hanging, but doesn't work for files with DOS line endings
+\(see #20).
+
+For connections that have `tramp-direct-async-process' enabled,
+staging hunks hangs, unless this variable is set to `pty' (see
+#5220).
+
+To fall back to the value of `tramp-pipe-stty-settings', set this
+variable to nil.
+
+Also see https://github.com/magit/magit/issues/4720
+and https://debbugs.gnu.org/cgi/bugreport.cgi?bug=62093.")
+
+(defface magit-process-ok
+  '((t :inherit magit-section-heading :foreground "green"))
+  "Face for zero exit-status."
+  :group 'magit-faces)
+
+(defface magit-process-ng
+  '((t :inherit magit-section-heading :foreground "red"))
+  "Face for non-zero exit-status."
+  :group 'magit-faces)
+
+(defface magit-mode-line-process
+  '((t :inherit mode-line-emphasis))
+  "Face for `mode-line-process' status when Git is running for side-effects."
+  :group 'magit-faces)
+
+(defface magit-mode-line-process-error
+  '((t :inherit error))
+  "Face for `mode-line-process' error status.
+
+Used when `magit-process-display-mode-line-error' is non-nil."
+  :group 'magit-faces)
+
+;;; Process Mode
+
+(defvar-keymap magit-process-mode-map
+  :doc "Keymap for `magit-process-mode'."
+  :parent magit-mode-map
+  "<remap> <magit-refresh>"      #'undefined
+  "<remap> <magit-delete-thing>" #'magit-process-kill)
+
+(define-derived-mode magit-process-mode magit-mode "Magit Process"
+  "Mode for looking at Git process output."
+  :interactive nil
+  :group 'magit-process
+  (magit-hack-dir-local-variables)
+  (setq magit--imenu-item-types 'process))
+
+(defun magit-process-buffer (&optional nodisplay)
+  "Display the current repository's process buffer.
+
+If that buffer doesn't exist yet, then create it.
+Non-interactively return the buffer and unless
+optional NODISPLAY is non-nil also display it."
+  (interactive)
+  (let ((topdir (magit-toplevel)))
+    (unless topdir
+      (magit--with-safe-default-directory nil
+        (setq topdir default-directory)
+        (let (prev)
+          (while (not (equal topdir prev))
+            (setq prev topdir)
+            (setq topdir (file-name-directory (directory-file-name topdir)))))))
+    (let ((buffer (or (--first (with-current-buffer it
+                                 (and (eq major-mode 'magit-process-mode)
+                                      (equal default-directory topdir)))
+                               (buffer-list))
+                      (magit-generate-new-buffer 'magit-process-mode
+                                                 nil topdir))))
+      (with-current-buffer buffer
+        (if magit-root-section
+            (when magit-process-log-max
+              (magit-process-truncate-log))
+          (magit-process-mode)
+          (let ((inhibit-read-only t)
+                (magit-insert-section--parent  nil)
+                (magit-insert-section--oldroot nil))
+            (make-local-variable 'text-property-default-nonsticky)
+            (magit-insert-section (processbuf)
+              (insert "\n")))))
+      (unless nodisplay
+        (magit-display-buffer buffer))
+      buffer)))
+
+(defun magit-process-kill ()
+  "Kill the process at point."
+  (interactive)
+  (when-let ((process (magit-section-value-if 'process)))
+    (unless (eq (process-status process) 'run)
+      (user-error "Process isn't running"))
+    (magit-confirm 'kill-process)
+    (kill-process process)))
+
+;;; Synchronous Processes
+
+(defvar magit-process-raise-error nil)
+
+(defun magit-git (&rest args)
+  "Call Git synchronously in a separate process, for side-effects.
+
+Option `magit-git-executable' specifies the Git executable.
+The arguments ARGS specify arguments to Git, they are flattened
+before use.
+
+Process output goes into a new section in the buffer returned by
+`magit-process-buffer'.  If Git exits with a non-zero status,
+then raise an error."
+  (let ((magit-process-raise-error t))
+    (magit-call-git args)))
+
+(defun magit-run-git (&rest args)
+  "Call Git synchronously in a separate process, and refresh.
+
+Function `magit-git-executable' specifies the Git executable and
+option `magit-git-global-arguments' specifies constant arguments.
+The arguments ARGS specify arguments to Git, they are flattened
+before use.
+
+After Git returns, the current buffer (if it is a Magit buffer)
+as well as the current repository's status buffer are refreshed.
+
+Process output goes into a new section in the buffer returned by
+`magit-process-buffer'."
+  (let ((magit--refresh-cache (list (cons 0 0))))
+    (prog1 (magit-call-git args)
+      (when (member (car args) '("init" "clone"))
+        ;; Creating a new repository invalidates the cache.
+        (setq magit--refresh-cache nil))
+      (magit-refresh))))
+
+(defvar magit-pre-call-git-hook nil)
+
+(defun magit-call-git (&rest args)
+  "Call Git synchronously in a separate process.
+
+Function `magit-git-executable' specifies the Git executable and
+option `magit-git-global-arguments' specifies constant arguments.
+The arguments ARGS specify arguments to Git, they are flattened
+before use.
+
+Process output goes into a new section in the buffer returned by
+`magit-process-buffer'."
+  (run-hooks 'magit-pre-call-git-hook)
+  (let ((default-process-coding-system (magit--process-coding-system)))
+    (apply #'magit-call-process
+           (magit-git-executable)
+           (magit-process-git-arguments args))))
+
+(defun magit-call-process (program &rest args)
+  "Call PROGRAM synchronously in a separate process.
+Process output goes into a new section in the buffer returned by
+`magit-process-buffer'."
+  (pcase-let ((`(,process-buf . ,section)
+               (magit-process-setup program args)))
+    (magit-process-finish
+     (let ((inhibit-read-only t))
+       (apply #'magit-process-file program nil process-buf nil args))
+     process-buf (current-buffer) default-directory section)))
+
+(defun magit-process-git (destination &rest args)
+  "Call Git synchronously in a separate process, returning its exit code.
+DESTINATION specifies how to handle the output, like for
+`call-process', except that file handlers are supported.
+Enable Cygwin's \"noglob\" option during the call and
+ensure unix eol conversion."
+  (apply #'magit-process-file
+         (magit-git-executable)
+         nil destination nil
+         (magit-process-git-arguments args)))
+
+(defun magit-process-file (process &optional infile buffer display &rest args)
+  "Process files synchronously in a separate process.
+Identical to `process-file' but temporarily enable Cygwin's
+\"noglob\" option during the call and ensure unix eol
+conversion."
+  (when magit-process-extreme-logging
+    (let ((inhibit-message t))
+      (message "$ %s" (magit-process--format-arguments process args))))
+  (let ((process-environment (magit-process-environment))
+        (default-process-coding-system (magit--process-coding-system)))
+    (apply #'process-file process infile buffer display args)))
+
+(defun magit-process-environment ()
+  ;; The various w32 hacks are only applicable when running on the local
+  ;; machine.  A local binding of process-environment different from the
+  ;; top-level value affects the environment used by Tramp.
+  (let ((local (not (file-remote-p default-directory))))
+    (append magit-git-environment
+            (and local
+                 (cdr (assoc magit-git-executable magit-git-w32-path-hack)))
+            (and local magit-need-cygwin-noglob
+                 (mapcar (lambda (var)
+                           (concat var "=" (if-let ((val (getenv var)))
+                                               (concat val " noglob")
+                                             "noglob")))
+                         '("CYGWIN" "MSYS")))
+            process-environment)))
+
+(defvar magit-this-process nil)
+
+(defun magit-run-git-with-input (&rest args)
+  "Call Git in a separate process.
+ARGS is flattened and then used as arguments to Git.
+
+The current buffer's content is used as the process's standard
+input.  The buffer is assumed to be temporary and thus OK to
+modify.
+
+Function `magit-git-executable' specifies the Git executable and
+option `magit-git-global-arguments' specifies constant arguments.
+The remaining arguments ARGS specify arguments to Git, they are
+flattened before use."
+  (when (eq system-type 'windows-nt)
+    ;; On w32, git expects UTF-8 encoded input, ignore any user
+    ;; configuration telling us otherwise (see #3250).
+    (encode-coding-region (point-min) (point-max) 'utf-8-unix))
+  (if (file-remote-p default-directory)
+      ;; We lack `process-file-region', so fall back to asynch +
+      ;; waiting in remote case.
+      (progn
+        (magit-start-git (current-buffer) args)
+        (while (and magit-this-process
+                    (eq (process-status magit-this-process) 'run))
+          (sleep-for 0.005)))
+    (run-hooks 'magit-pre-call-git-hook)
+    (pcase-let* ((process-environment (magit-process-environment))
+                 (default-process-coding-system (magit--process-coding-system))
+                 (flat-args (magit-process-git-arguments args))
+                 (`(,process-buf . ,section)
+                  (magit-process-setup (magit-git-executable) flat-args))
+                 (inhibit-read-only t))
+      (magit-process-finish
+       (apply #'call-process-region (point-min) (point-max)
+              (magit-git-executable) nil process-buf nil flat-args)
+       process-buf nil default-directory section))))
+
+;;; Asynchronous Processes
+
+(defun magit-run-git-async (&rest args)
+  "Start Git, prepare for refresh, and return the process object.
+ARGS is flattened and then used as arguments to Git.
+
+Display the command line arguments in the echo area.
+
+After Git returns some buffers are refreshed: the buffer that was
+current when this function was called (if it is a Magit buffer
+and still alive), as well as the respective Magit status buffer.
+
+See `magit-start-process' for more information."
+  (let ((message-log-max nil))
+    (message "Running %s %s" (magit-git-executable)
+             (let ((m (string-join (flatten-tree args) " ")))
+               (remove-list-of-text-properties 0 (length m) '(face) m)
+               m)))
+  (magit-start-git nil args))
+
+(defun magit-run-git-with-editor (&rest args)
+  "Export GIT_EDITOR and start Git.
+Also prepare for refresh and return the process object.
+ARGS is flattened and then used as arguments to Git.
+
+Display the command line arguments in the echo area.
+
+After Git returns some buffers are refreshed: the buffer that was
+current when this function was called (if it is a Magit buffer
+and still alive), as well as the respective Magit status buffer.
+
+See `magit-start-process' and `with-editor' for more information."
+  (magit--record-separated-gitdir)
+  (magit-with-editor (magit-run-git-async args)))
+
+(defun magit-run-git-sequencer (&rest args)
+  "Export GIT_EDITOR and start Git.
+Also prepare for refresh and return the process object.
+ARGS is flattened and then used as arguments to Git.
+
+Display the command line arguments in the echo area.
+
+After Git returns some buffers are refreshed: the buffer that was
+current when this function was called (if it is a Magit buffer
+and still alive), as well as the respective Magit status buffer.
+If the sequence stops at a commit, make the section representing
+that commit the current section by moving `point' there.
+
+See `magit-start-process' and `with-editor' for more information."
+  (apply #'magit-run-git-with-editor args)
+  (set-process-sentinel magit-this-process #'magit-sequencer-process-sentinel)
+  magit-this-process)
+
+(defvar magit-pre-start-git-hook nil)
+
+(defun magit-start-git (input &rest args)
+  "Start Git, prepare for refresh, and return the process object.
+
+If INPUT is non-nil, it has to be a buffer or the name of an
+existing buffer.  The buffer content becomes the processes
+standard input.
+
+Function `magit-git-executable' specifies the Git executable and
+option `magit-git-global-arguments' specifies constant arguments.
+The remaining arguments ARGS specify arguments to Git, they are
+flattened before use.
+
+After Git returns some buffers are refreshed: the buffer that was
+current when this function was called (if it is a Magit buffer
+and still alive), as well as the respective Magit status buffer.
+
+See `magit-start-process' for more information."
+  (run-hooks 'magit-pre-start-git-hook)
+  (let ((default-process-coding-system (magit--process-coding-system)))
+    (apply #'magit-start-process (magit-git-executable) input
+           (magit-process-git-arguments args))))
+
+(defun magit-start-process (program &optional input &rest args)
+  "Start PROGRAM, prepare for refresh, and return the process object.
+
+If optional argument INPUT is non-nil, it has to be a buffer or
+the name of an existing buffer.  The buffer content becomes the
+processes standard input.
+
+The process is started using `start-file-process' and then setup
+to use the sentinel `magit-process-sentinel' and the filter
+`magit-process-filter'.  Information required by these functions
+is stored in the process object.  When this function returns the
+process has not started to run yet so it is possible to override
+the sentinel and filter.
+
+After the process returns, `magit-process-sentinel' refreshes the
+buffer that was current when `magit-start-process' was called (if
+it is a Magit buffer and still alive), as well as the respective
+Magit status buffer."
+  (pcase-let*
+      ((`(,process-buf . ,section)
+        (magit-process-setup program args))
+       (process
+        (let ((process-connection-type ;t=pty nil=pipe
+               (or
+                ;; With Tramp, maybe force use a pty.  #4720
+                (and (file-remote-p default-directory)
+                     (eq magit-tramp-pipe-stty-settings 'pty))
+                ;; Without input, don't use a pty, because it would
+                ;; set icrnl, which would modify the input.  #20
+                (and (not input) magit-process-connection-type)))
+              (tramp-pipe-stty-settings
+               (or (and (not (eq magit-tramp-pipe-stty-settings 'pty))
+                        ;; Defaults to "", to allow staging hunks over
+                        ;; Tramp again.  #4720
+                        magit-tramp-pipe-stty-settings)
+                   (bound-and-true-p tramp-pipe-stty-settings)))
+              (process-environment (magit-process-environment))
+              (default-process-coding-system (magit--process-coding-system)))
+          (apply #'start-file-process
+                 (file-name-nondirectory program)
+                 process-buf program args))))
+    (with-editor-set-process-filter process #'magit-process-filter)
+    (set-process-sentinel process #'magit-process-sentinel)
+    (set-process-buffer   process process-buf)
+    (when (eq system-type 'windows-nt)
+      ;; On w32, git expects UTF-8 encoded input, ignore any user
+      ;; configuration telling us otherwise.
+      (set-process-coding-system process nil 'utf-8-unix))
+    (process-put process 'section section)
+    (process-put process 'command-buf (current-buffer))
+    (process-put process 'default-dir default-directory)
+    (when magit-inhibit-refresh
+      (process-put process 'inhibit-refresh t))
+    (oset section process process)
+    (with-current-buffer process-buf
+      (set-marker (process-mark process) (point)))
+    (when input
+      (with-current-buffer input
+        (process-send-region process (point-min) (point-max))
+        ;; `process-send-eof' appears to be broken over
+        ;;  Tramp from Windows. See #3624 and bug#43226.
+        (if (and (eq system-type 'windows-nt)
+                 (file-remote-p (process-get process 'default-dir) nil t))
+            (process-send-string process "")
+          (process-send-eof process))))
+    (setq magit-this-process process)
+    (oset section value process)
+    (magit-process-display-buffer process)
+    process))
+
+(defun magit-parse-git-async (&rest args)
+  (setq args (magit-process-git-arguments args))
+  (let ((command-buf (current-buffer))
+        (stdout-buf (generate-new-buffer " *git-stdout*"))
+        (stderr-buf (generate-new-buffer " *git-stderr*"))
+        (toplevel (magit-toplevel)))
+    (with-current-buffer stdout-buf
+      (setq default-directory toplevel)
+      (let ((process
+             (let ((process-environment (magit-process-environment)))
+               (make-process :name "git"
+                             :buffer stdout-buf
+                             :stderr stderr-buf
+                             :command (cons (magit-git-executable) args)
+                             :coding (magit--process-coding-system)
+                             :file-handler t))))
+        (process-put process 'command-buf command-buf)
+        (process-put process 'stderr-buf stderr-buf)
+        (process-put process 'parsed (point))
+        (setq magit-this-process process)
+        process))))
+
+;;; Process Internals
+
+(defclass magit-process-section (magit-section)
+  ((process :initform nil)))
+
+(setf (alist-get 'process magit--section-type-alist) 'magit-process-section)
+
+(defun magit-process-setup (program args)
+  (magit-process-set-mode-line program args)
+  (let ((pwd default-directory)
+        (buf (magit-process-buffer t)))
+    (cons buf (with-current-buffer buf
+                (prog1 (magit-process-insert-section pwd program args nil nil)
+                  (backward-char 1))))))
+
+(defun magit-process-insert-section
+    (pwd program args &optional errcode errlog face)
+  (let ((inhibit-read-only t)
+        (magit-insert-section--current nil)
+        (magit-insert-section--parent magit-root-section)
+        (magit-insert-section--oldroot nil))
+    (goto-char (1- (point-max)))
+    (magit-insert-section (process)
+      (insert (if errcode
+                  (format "%3s " (propertize (number-to-string errcode)
+                                             'font-lock-face 'magit-process-ng))
+                "run "))
+      (when magit-process-timestamp-format
+        (insert (format-time-string magit-process-timestamp-format) " "))
+      (let ((cmd (concat
+                  (and (not (equal
+                             (file-name-as-directory (expand-file-name pwd))
+                             (file-name-as-directory (expand-file-name
+                                                      default-directory))))
+                       (concat (file-relative-name pwd default-directory) " "))
+                  (magit-process--format-arguments program args))))
+        (magit-insert-heading (if face (propertize cmd 'face face) cmd)))
+      (when errlog
+        (if (bufferp errlog)
+            (insert (with-current-buffer errlog
+                      (buffer-substring-no-properties (point-min) (point-max))))
+          (insert-file-contents errlog)
+          (goto-char (1- (point-max)))))
+      (insert "\n"))))
+
+(defun magit-process--format-arguments (program args)
+  (cond
+   ((and args (equal program (magit-git-executable)))
+    (let ((global (length magit-git-global-arguments)))
+      (concat
+       (propertize (file-name-nondirectory program)
+                   'font-lock-face 'magit-section-heading)
+       " "
+       (propertize (magit--ellipsis)
+                   'font-lock-face 'magit-section-heading
+                   'help-echo (string-join (seq-take args global) " "))
+       " "
+       (propertize (mapconcat #'shell-quote-argument (seq-drop args global) " ")
+                   'font-lock-face 'magit-section-heading))))
+   ((and args (equal program shell-file-name))
+    (propertize (cadr args)
+                'font-lock-face 'magit-section-heading))
+   (t
+    (concat (propertize (file-name-nondirectory program)
+                        'font-lock-face 'magit-section-heading)
+            " "
+            (propertize (mapconcat #'shell-quote-argument args " ")
+                        'font-lock-face 'magit-section-heading)))))
+
+(defun magit-process-truncate-log ()
+  (let* ((head nil)
+         (tail (oref magit-root-section children))
+         (count (length tail)))
+    (when (> (1+ count) magit-process-log-max)
+      (while (and (cdr tail)
+                  (> count (/ magit-process-log-max 2)))
+        (let* ((inhibit-read-only t)
+               (section (car tail))
+               (process (oref section process)))
+          (cond ((not process))
+                ((memq (process-status process) '(exit signal))
+                 (delete-region (oref section start)
+                                (1+ (oref section end)))
+                 (cl-decf count))
+                (t
+                 (push section head))))
+        (pop tail))
+      (oset magit-root-section children
+            (nconc (reverse head) tail)))))
+
+(defun magit-process-sentinel (process event)
+  "Default sentinel used by `magit-start-process'."
+  (when (memq (process-status process) '(exit signal))
+    (setq event (substring event 0 -1))
+    (when (string-match "^finished" event)
+      (message (concat (capitalize (process-name process)) " finished")))
+    (magit-process-finish process)
+    (when (eq process magit-this-process)
+      (setq magit-this-process nil))
+    (unless (process-get process 'inhibit-refresh)
+      (let ((command-buf (process-get process 'command-buf)))
+        (if (buffer-live-p command-buf)
+            (with-current-buffer command-buf
+              (magit-refresh))
+          (with-temp-buffer
+            (setq default-directory (process-get process 'default-dir))
+            (magit-refresh)))))))
+
+(defun magit-sequencer-process-sentinel (process event)
+  "Special sentinel used by `magit-run-git-sequencer'."
+  (when (memq (process-status process) '(exit signal))
+    (magit-process-sentinel process event)
+    (when-let* ((process-buf (process-buffer process))
+                ((buffer-live-p process-buf))
+                (status-buf (with-current-buffer process-buf
+                              (magit-get-mode-buffer 'magit-status-mode))))
+      (with-current-buffer status-buf
+        (when-let ((section
+                    (magit-get-section
+                     `((commit . ,(magit-rev-parse "HEAD"))
+                       (,(pcase (car (seq-drop
+                                      (process-command process)
+                                      (1+ (length magit-git-global-arguments))))
+                           ((or "rebase" "am") 'rebase-sequence)
+                           ((or "cherry-pick" "revert") 'sequence)))
+                       (status)))))
+          (goto-char (oref section start))
+          (magit-section-update-highlight))))))
+
+(defun magit-process-filter (proc string)
+  "Default filter used by `magit-start-process'."
+  (with-current-buffer (process-buffer proc)
+    (let ((inhibit-read-only t))
+      (goto-char (process-mark proc))
+      ;; Find last ^M in string.  If one was found, ignore
+      ;; everything before it and delete the current line.
+      (when-let ((ret-pos (cl-position ?\r string :from-end t)))
+        (setq string (substring string (1+ ret-pos)))
+        (delete-region (line-beginning-position) (point)))
+      (setq string (magit-process-remove-bogus-errors string))
+      (insert (propertize string 'magit-section
+                          (process-get proc 'section)))
+      (set-marker (process-mark proc) (point))
+      ;; Make sure prompts are matched after removing ^M.
+      (magit-process-yes-or-no-prompt proc string)
+      (magit-process-username-prompt  proc string)
+      (magit-process-password-prompt  proc string)
+      (run-hook-with-args-until-success 'magit-process-prompt-functions
+                                        proc string))))
+
+(defun magit-process-make-keymap (process parent)
+  "Remap `abort-minibuffers' to a command that also kills PROCESS.
+PARENT is used as the parent of the returned keymap."
+  (let ((cmd (lambda ()
+               (interactive)
+               (ignore-errors (kill-process process))
+               (if (fboundp 'abort-minibuffers)
+                   (abort-minibuffers)
+                 (abort-recursive-edit)))))
+    (define-keymap :parent parent
+      "C-g" cmd
+      "<remap> <abort-minibuffers>" cmd
+      "<remap> <abort-recursive-edit>" cmd)))
+
+(defmacro magit-process-kill-on-abort (process &rest body)
+  (declare (indent 1)
+           (debug (form body))
+           (obsolete magit-process-make-keymap "Magit 4.0.0"))
+  `(let ((minibuffer-local-map
+          (magit-process-make-keymap ,process minibuffer-local-map)))
+     ,@body))
+
+(defun magit-process-remove-bogus-errors (str)
+  (save-match-data
+    (when (string-match "^\\(\\*ERROR\\*: \\)Canceled by user" str)
+      (setq str (replace-match "" nil nil str 1)))
+    (when (string-match "^error: There was a problem with the editor.*\n" str)
+      (setq str (replace-match "" nil nil str)))
+    (when (string-match
+           "^Please supply the message using either -m or -F option\\.\n" str)
+      (setq str (replace-match "" nil nil str))))
+  str)
+
+(defun magit-process-yes-or-no-prompt (process string)
+  "Forward Yes-or-No prompts to the user."
+  (when-let ((beg (string-match magit-process-yes-or-no-prompt-regexp string)))
+    (process-send-string
+     process
+     (if (save-match-data
+           (let ((max-mini-window-height 30)
+                 (minibuffer-local-map
+                  (magit-process-make-keymap process minibuffer-local-map))
+                 ;; In case yes-or-no-p is fset to that, but does
+                 ;; not cover use-dialog-box-p and y-or-n-p-read-key.
+                 (y-or-n-p-map
+                  (magit-process-make-keymap process y-or-n-p-map)))
+             (yes-or-no-p (substring string 0 beg))))
+         (concat (downcase (match-string 1 string)) "\n")
+       (concat (downcase (match-string 2 string)) "\n")))))
+
+(defun magit-process-password-auth-source (key)
+  "Use `auth-source-search' to get a password.
+If found, return the password.  Otherwise, return nil.
+
+KEY typically derives from a prompt such as:
+  Password for \\='https://yourname@github.com\\='
+in which case it would be the string
+  yourname@github.com
+which matches the ~/.authinfo.gpg entry
+  machine github.com login yourname password 12345
+or iff that is undefined, for backward compatibility
+  machine yourname@github.com password 12345
+
+On github.com you should not use your password but a
+personal access token, see [1].  For information about
+the peculiarities of other forges, please consult the
+respective documentation.
+
+After manually editing ~/.authinfo.gpg you must reset
+the cache using
+  M-x auth-source-forget-all-cached RET
+
+The above will save you from having to repeatedly type
+your token or password, but you might still repeatedly
+be asked for your username.  To prevent that, change an
+URL like
+  https://github.com/foo/bar.git
+to
+  https://yourname@github.com/foo/bar.git
+
+Instead of changing all such URLs manually, they can
+be translated on the fly by doing this once
+  git config --global \
+    url.https://yourname@github.com.insteadOf \
+    https://github.com
+
+[1]: https://docs.github.com/en/github/authenticating-to-github/creating-a-personal-access-token."
+  (require 'auth-source)
+  (and (fboundp 'auth-source-search)
+       (string-match "\\`\\(.+\\)@\\([^@]+\\)\\'" key)
+       (let* ((user (match-string 1 key))
+              (host (match-string 2 key))
+              (secret
+               (plist-get
+                (car (or (auth-source-search :max 1 :host host :user user)
+                         (auth-source-search :max 1 :host key)))
+                :secret)))
+         (if (functionp secret)
+             (funcall secret)
+           secret))))
+
+(defun magit-process-git-credential-manager-core (process string)
+  "Authenticate using `git-credential-manager-core'.
+
+To use this function add it to the appropriate hook
+  (add-hook \\='magit-process-prompt-functions
+            \\='magit-process-git-credential-manager-core)"
+  (and (string-match "^option (enter for default): $" string)
+       (progn
+         (magit-process-buffer)
+         (let ((option (format "%c\n"
+                               (read-char-choice "Option: " '(?\r ?\j ?1 ?2)))))
+           (insert-before-markers-and-inherit option)
+           (process-send-string process option)))))
+
+(defun magit-process-password-prompt (process string)
+  "Find a password based on prompt STRING and send it to git.
+Use `magit-process-password-prompt-regexps' to find a known
+prompt.  If and only if one is found, then call functions in
+`magit-process-find-password-functions' until one of them returns
+the password.  If all functions return nil, then read the password
+from the user."
+  (when-let ((prompt (magit-process-match-prompt
+                      magit-process-password-prompt-regexps string)))
+    (process-send-string
+     process
+     (concat (or (and-let* ((key (match-string 99 string)))
+                   (run-hook-with-args-until-success
+                    'magit-process-find-password-functions key))
+                 (let ((read-passwd-map
+                        (magit-process-make-keymap process read-passwd-map)))
+                   (read-passwd prompt)))
+             "\n"))))
+
+(defun magit-process-username-prompt (process string)
+  "Forward username prompts to the user."
+  (when-let ((prompt (magit-process-match-prompt
+                      magit-process-username-prompt-regexps string)))
+    (process-send-string
+     process
+     (let ((minibuffer-local-map
+            (magit-process-make-keymap process minibuffer-local-map)))
+       (concat (read-string prompt nil nil (user-login-name)) "\n")))))
+
+(defun magit-process-match-prompt (prompts string)
+  "Match STRING against PROMPTS and set match data.
+Return the matched string suffixed with \": \", if needed."
+  (when (--any-p (string-match it string) prompts)
+    (let ((prompt (match-string 0 string)))
+      (cond ((string-suffix-p ": " prompt) prompt)
+            ((string-suffix-p ":"  prompt) (concat prompt " "))
+            (t                             (concat prompt ": "))))))
+
+(defun magit--process-coding-system ()
+  (let ((fro (or magit-git-output-coding-system
+                 (car default-process-coding-system)))
+        (to (cdr default-process-coding-system)))
+    (if magit-process-ensure-unix-line-ending
+        (cons (coding-system-change-eol-conversion fro 'unix)
+              (coding-system-change-eol-conversion to 'unix))
+      (cons fro to))))
+
+(defvar magit-credential-hook nil
+  "Hook run before Git needs credentials.")
+
+(defvar magit-credential-cache-daemon-process nil)
+
+(defun magit-maybe-start-credential-cache-daemon ()
+  "Maybe start a `git-credential-cache--daemon' process.
+
+If such a process is already running or if the value of option
+`magit-credential-cache-daemon-socket' is nil, then do nothing.
+Otherwise start the process passing the value of that options
+as argument."
+  (unless (or (not magit-credential-cache-daemon-socket)
+              (process-live-p magit-credential-cache-daemon-process)
+              (memq magit-credential-cache-daemon-process
+                    (list-system-processes)))
+    (setq magit-credential-cache-daemon-process
+          (or (--first (let* ((attr (process-attributes it))
+                              (comm (cdr (assq 'comm attr)))
+                              (user (cdr (assq 'user attr))))
+                         (and (string= comm "git-credential-cache--daemon")
+                              (string= user user-login-name)))
+                       (list-system-processes))
+              (condition-case nil
+                  (start-process "git-credential-cache--daemon"
+                                 " *git-credential-cache--daemon*"
+                                 (magit-git-executable)
+                                 "credential-cache--daemon"
+                                 magit-credential-cache-daemon-socket)
+                ;; Some Git implementations (e.g., Windows) won't have
+                ;; this program; if we fail the first time, stop trying.
+                ((debug error)
+                 (remove-hook 'magit-credential-hook
+                              #'magit-maybe-start-credential-cache-daemon)))))))
+
+(add-hook 'magit-credential-hook #'magit-maybe-start-credential-cache-daemon)
+
+(defvar-keymap magit-mode-line-process-map
+  :doc "Keymap for `mode-line-process'."
+  "<mode-line> <mouse-1>" 'magit-process-buffer)
+
+(defun magit-process-set-mode-line (program args)
+  "Display the git command (sans arguments) in the mode line."
+  (when (equal program (magit-git-executable))
+    (setq args (nthcdr (length magit-git-global-arguments) args)))
+  (let ((str (concat " " (propertize
+                          (concat (file-name-nondirectory program)
+                                  (and args (concat " " (car args))))
+                          'mouse-face 'highlight
+                          'keymap magit-mode-line-process-map
+                          'help-echo "mouse-1: Show process buffer"
+                          'font-lock-face 'magit-mode-line-process))))
+    (magit-repository-local-set 'mode-line-process str)
+    (dolist (buf (magit-mode-get-buffers))
+      (with-current-buffer buf
+        (setq mode-line-process str)))
+    (force-mode-line-update t)))
+
+(defun magit-process-set-mode-line-error-status (&optional error str)
+  "Apply an error face to the string set by `magit-process-set-mode-line'.
+
+If ERROR is supplied, include it in the `mode-line-process' tooltip.
+
+If STR is supplied, it replaces the `mode-line-process' text."
+  (setq str (or str (magit-repository-local-get 'mode-line-process)))
+  (when str
+    (setq error (format "%smouse-1: Show process buffer"
+                        (if (stringp error)
+                            (concat error "\n\n")
+                          "")))
+    (setq str (concat " " (propertize
+                           (substring-no-properties str 1)
+                           'mouse-face 'highlight
+                           'keymap magit-mode-line-process-map
+                           'help-echo error
+                           'font-lock-face 'magit-mode-line-process-error)))
+    (magit-repository-local-set 'mode-line-process str)
+    (dolist (buf (magit-mode-get-buffers))
+      (with-current-buffer buf
+        (setq mode-line-process str)))
+    (force-mode-line-update t)
+    ;; We remove any error status from the mode line when a magit
+    ;; buffer is refreshed (see `magit-refresh-buffer'), but we must
+    ;; ensure that we ignore any refreshes during the remainder of the
+    ;; current command -- otherwise a newly-set error status would be
+    ;; removed before it was seen.  We set a flag which prevents the
+    ;; status from being removed prior to the next command, so that
+    ;; the error status is guaranteed to remain visible until then.
+    (let ((repokey (magit-repository-local-repository)))
+      ;; The following closure captures the repokey value, and is
+      ;; added to `pre-command-hook'.
+      (cl-labels ((enable-magit-process-unset-mode-line ()
+                    ;; Remove ourself from the hook variable, so
+                    ;; that we only run once.
+                    (remove-hook 'pre-command-hook
+                                 #'enable-magit-process-unset-mode-line)
+                    ;; Clear the inhibit flag for the repository in
+                    ;; which we set it.
+                    (magit-repository-local-set
+                     'inhibit-magit-process-unset-mode-line nil repokey)))
+        ;; Set the inhibit flag until the next command is invoked.
+        (magit-repository-local-set
+         'inhibit-magit-process-unset-mode-line t repokey)
+        (add-hook 'pre-command-hook
+                  #'enable-magit-process-unset-mode-line)))))
+
+(defun magit-process-unset-mode-line-error-status ()
+  "Remove any current error status from the mode line."
+  (let ((status (or mode-line-process
+                    (magit-repository-local-get 'mode-line-process))))
+    (when (and status
+               (eq (get-text-property 1 'font-lock-face status)
+                   'magit-mode-line-process-error))
+      (magit-process-unset-mode-line))))
+
+(add-hook 'magit-refresh-buffer-hook
+          #'magit-process-unset-mode-line-error-status)
+
+(defun magit-process-unset-mode-line (&optional directory)
+  "Remove the git command from the mode line."
+  (let ((default-directory (or directory default-directory)))
+    (unless (magit-repository-local-get 'inhibit-magit-process-unset-mode-line)
+      (magit-repository-local-set 'mode-line-process nil)
+      (dolist (buf (magit-mode-get-buffers))
+        (with-current-buffer buf (setq mode-line-process nil)))
+      (force-mode-line-update t))))
+
+(defvar magit-process-error-message-regexps
+  (list "^\\*ERROR\\*: Canceled by user$"
+        "^\\(?:error\\|fatal\\|git\\): \\(.*\\)$"
+        "^\\(Cannot rebase:.*\\)$"))
+
+(define-error 'magit-git-error "Git error")
+
+(defun magit-process-error-summary (process-buf section)
+  "A one-line error summary from the given SECTION."
+  (or (and (buffer-live-p process-buf)
+           (with-current-buffer process-buf
+             (and (oref section content)
+                  (save-excursion
+                    (goto-char (oref section end))
+                    (run-hook-wrapped
+                     'magit-process-error-message-regexps
+                     (lambda (re)
+                       (save-excursion
+                         (and (re-search-backward
+                               re (oref section start) t)
+                              (or (match-string-no-properties 1)
+                                  (and (not magit-process-raise-error)
+                                       'suppressed))))))))))
+      "Git failed"))
+
+(defun magit-process-error-tooltip (process-buf section)
+  "Returns the text from SECTION of the PROCESS-BUF buffer.
+
+Limited by `magit-process-error-tooltip-max-lines'."
+  (and (integerp magit-process-error-tooltip-max-lines)
+       (> magit-process-error-tooltip-max-lines 0)
+       (buffer-live-p process-buf)
+       (with-current-buffer process-buf
+         (save-excursion
+           (goto-char (or (oref section content)
+                          (oref section start)))
+           (buffer-substring-no-properties
+            (point)
+            (save-excursion
+              (forward-line magit-process-error-tooltip-max-lines)
+              (goto-char
+               (if (> (point) (oref section end))
+                   (oref section end)
+                 (point)))
+              ;; Remove any trailing whitespace.
+              (when (re-search-backward "[^[:space:]\n]"
+                                        (oref section start) t)
+                (forward-char 1))
+              (point)))))))
+
+(defvar-local magit-this-error nil)
+
+(defvar magit-process-finish-apply-ansi-colors nil)
+
+(defun magit-process-finish (arg &optional process-buf command-buf
+                                 default-dir section)
+  (unless (integerp arg)
+    (setq process-buf (process-buffer arg))
+    (setq command-buf (process-get arg 'command-buf))
+    (setq default-dir (process-get arg 'default-dir))
+    (setq section     (process-get arg 'section))
+    (setq arg         (process-exit-status arg)))
+  (when (fboundp 'dired-uncache)
+    (dired-uncache default-dir))
+  (when (buffer-live-p process-buf)
+    (with-current-buffer process-buf
+      (magit-process-finish-section section arg)))
+  (if (= arg 0)
+      ;; Unset the `mode-line-process' value upon success.
+      (magit-process-unset-mode-line default-dir)
+    ;; Otherwise process the error.
+    (let ((msg (magit-process-error-summary process-buf section)))
+      ;; Change `mode-line-process' to an error face upon failure.
+      (if magit-process-display-mode-line-error
+          (magit-process-set-mode-line-error-status
+           (or (magit-process-error-tooltip process-buf section)
+               msg))
+        (magit-process-unset-mode-line default-dir))
+      ;; Either signal the error, or else display the error summary in
+      ;; the status buffer and with a message in the echo area.
+      (cond
+       (magit-process-raise-error
+        (signal 'magit-git-error (list (format "%s (in %s)" msg default-dir))))
+       ((not (eq msg 'suppressed))
+        (when (buffer-live-p process-buf)
+          (with-current-buffer process-buf
+            (when-let ((status-buf (magit-get-mode-buffer 'magit-status-mode)))
+              (with-current-buffer status-buf
+                (setq magit-this-error msg)))))
+        (message "%s ... [%s buffer %s for details]" msg
+                 (if-let ((key (and (buffer-live-p command-buf)
+                                    (with-current-buffer command-buf
+                                      (car (where-is-internal
+                                            'magit-process-buffer))))))
+                     (format "Hit %s to see" (key-description key))
+                   "See")
+                 (buffer-name process-buf))))))
+  arg)
+
+(defun magit-process-finish-section (section exit-code)
+  (let ((inhibit-read-only t)
+        (buffer (current-buffer))
+        (marker (oref section start)))
+    (goto-char marker)
+    (save-excursion
+      (delete-char 3)
+      (set-marker-insertion-type marker nil)
+      (insert (propertize (format "%3s" exit-code)
+                          'magit-section section
+                          'font-lock-face (if (= exit-code 0)
+                                              'magit-process-ok
+                                            'magit-process-ng)))
+      (set-marker-insertion-type marker t))
+    (when magit-process-finish-apply-ansi-colors
+      (ansi-color-apply-on-region (oref section content)
+                                  (oref section end)))
+    (if (= (oref section end)
+           (+ (line-end-position) 2))
+        (save-excursion
+          (goto-char (1+ (line-end-position)))
+          (delete-char -1)
+          (oset section content nil))
+      (when (and (= exit-code 0)
+                 (not (--any-p (eq (window-buffer it) buffer)
+                               (window-list))))
+        (magit-section-hide section)))))
+
+(defun magit-process-display-buffer (process)
+  (when (process-live-p process)
+    (let ((buf (process-buffer process)))
+      (cond ((not (buffer-live-p buf)))
+            ((= magit-process-popup-time 0)
+             (if (minibufferp)
+                 (switch-to-buffer-other-window buf)
+               (pop-to-buffer buf)))
+            ((> magit-process-popup-time 0)
+             (run-with-timer magit-process-popup-time nil
+                             (lambda (p)
+                               (when (eq (process-status p) 'run)
+                                 (let ((buf (process-buffer p)))
+                                   (when (buffer-live-p buf)
+                                     (if (minibufferp)
+                                         (switch-to-buffer-other-window buf)
+                                       (pop-to-buffer buf))))))
+                             process))))))
+
+(defun magit--log-action (summary line list)
+  (let (heading lines)
+    (if (cdr list)
+        (progn (setq heading (funcall summary list))
+               (setq lines (mapcar line list)))
+      (setq heading (funcall line (car list))))
+    (with-current-buffer (magit-process-buffer t)
+      (goto-char (1- (point-max)))
+      (let ((inhibit-read-only t))
+        (magit-insert-section (message)
+          (magit-insert-heading (concat "  * " heading))
+          (when lines
+            (dolist (line lines)
+              (insert line "\n"))
+            (insert "\n"))))
+      (let ((inhibit-message t))
+        (when heading
+          (setq lines (cons heading lines)))
+        (message (string-join lines "\n"))))))
+
+;;; _
+(provide 'magit-process)
+;;; magit-process.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-process.elc b/emacs/elpa/magit-20241124.1509/magit-process.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-pull.el b/emacs/elpa/magit-20241124.1509/magit-pull.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-pull.elc b/emacs/elpa/magit-20241124.1509/magit-pull.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-push.el b/emacs/elpa/magit-20241124.1509/magit-push.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-push.elc b/emacs/elpa/magit-20241124.1509/magit-push.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-reflog.el b/emacs/elpa/magit-20241124.1509/magit-reflog.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-reflog.elc b/emacs/elpa/magit-20241124.1509/magit-reflog.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-refs.el b/emacs/elpa/magit-20241124.1509/magit-refs.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-refs.elc b/emacs/elpa/magit-20241124.1509/magit-refs.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-remote.el b/emacs/elpa/magit-20241124.1509/magit-remote.el
@@ -0,0 +1,398 @@
+;;; magit-remote.el --- Transfer Git commits  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements remote commands.
+
+;;; Code:
+
+(require 'magit)
+
+;;; Options
+
+(defcustom magit-remote-add-set-remote.pushDefault 'ask-if-unset
+  "Whether to set the value of `remote.pushDefault' after adding a remote.
+
+If `ask', then always ask.  If `ask-if-unset', then ask, but only
+if the variable isn't set already.  If nil, then don't ever set.
+If the value is a string, then set without asking, provided that
+the name of the added remote is equal to that string and the
+variable isn't already set."
+  :package-version '(magit . "2.4.0")
+  :group 'magit-commands
+  :type '(choice (const  :tag "ask if unset" ask-if-unset)
+                 (const  :tag "always ask" ask)
+                 (string :tag "set if named")
+                 (const  :tag "don't set")))
+
+(defcustom magit-remote-direct-configure t
+  "Whether the command `magit-remote' shows Git variables.
+When set to nil, no variables are displayed by this transient
+command, instead the sub-transient `magit-remote-configure'
+has to be used to view and change remote related variables."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-commands
+  :type 'boolean)
+
+(defcustom magit-prefer-push-default nil
+  "Whether to prefer `remote.pushDefault' over per-branch variables."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-commands
+  :type 'boolean)
+
+;;; Commands
+
+;;;###autoload (autoload 'magit-remote "magit-remote" nil t)
+(transient-define-prefix magit-remote (remote)
+  "Add, configure or remove a remote."
+  :man-page "git-remote"
+  :value '("-f")
+  ["Variables"
+   :if (lambda () (and magit-remote-direct-configure (transient-scope)))
+   ("u" magit-remote.<remote>.url)
+   ("U" magit-remote.<remote>.fetch)
+   ("s" magit-remote.<remote>.pushurl)
+   ("S" magit-remote.<remote>.push)
+   ("O" magit-remote.<remote>.tagopt)]
+  ["Arguments for add"
+   ("-f" "Fetch after add" "-f")]
+  ["Actions"
+   [("a" "Add"                  magit-remote-add)
+    ("r" "Rename"               magit-remote-rename)
+    ("k" "Remove"               magit-remote-remove)]
+   [("C" "Configure..."         magit-remote-configure)
+    ("p" "Prune stale branches" magit-remote-prune)
+    ("P" "Prune stale refspecs" magit-remote-prune-refspecs)
+    ("b" magit-update-default-branch)
+    (7 "z" "Unshallow remote"   magit-remote-unshallow)]]
+  (interactive (list (magit-get-current-remote)))
+  (transient-setup 'magit-remote nil nil :scope remote))
+
+(defun magit-read-url (prompt &optional initial-input)
+  (let ((url (magit-read-string-ns prompt initial-input)))
+    (if (string-prefix-p "~" url)
+        (expand-file-name url)
+      url)))
+
+;;;###autoload
+(defun magit-remote-add (remote url &optional args)
+  "Add a remote named REMOTE and fetch it."
+  (interactive
+   (let ((origin (magit-get "remote.origin.url"))
+         (remote (magit-read-string-ns "Remote name")))
+     (list remote
+           (magit-read-url
+            "Remote url"
+            (and origin
+                 (string-match "\\([^:/]+\\)/[^/]+\\(\\.git\\)?\\'" origin)
+                 (replace-match remote t t origin 1)))
+           (transient-args 'magit-remote))))
+  (if (pcase (list magit-remote-add-set-remote.pushDefault
+                   (magit-get "remote.pushDefault"))
+        (`(,(pred stringp) ,_) t)
+        ((or `(ask ,_) '(ask-if-unset nil))
+         (y-or-n-p (format "Set `remote.pushDefault' to \"%s\"? " remote))))
+      (progn (magit-call-git "remote" "add" args remote url)
+             (setf (magit-get "remote.pushDefault") remote)
+             (magit-refresh))
+    (magit-run-git-async "remote" "add" args remote url)))
+
+;;;###autoload
+(defun magit-remote-rename (old new)
+  "Rename the remote named OLD to NEW."
+  (interactive
+   (let  ((remote (magit-read-remote "Rename remote")))
+     (list remote (magit-read-string-ns (format "Rename %s to" remote)))))
+  (unless (string= old new)
+    (magit-call-git "remote" "rename" old new)
+    (magit-remote--cleanup-push-variables old new)
+    (magit-refresh)))
+
+;;;###autoload
+(defun magit-remote-remove (remote)
+  "Delete the remote named REMOTE."
+  (interactive (list (magit-read-remote "Delete remote")))
+  (magit-call-git "remote" "rm" remote)
+  (magit-remote--cleanup-push-variables remote)
+  (magit-refresh))
+
+(defun magit-remote--cleanup-push-variables (remote &optional new-name)
+  (magit-with-toplevel
+    (when (equal (magit-get "remote.pushDefault") remote)
+      (magit-set new-name "remote.pushDefault"))
+    (dolist (var (magit-git-lines "config" "--name-only"
+                                  "--get-regexp" "^branch\\.[^.]*\\.pushRemote"
+                                  (format "^%s$" remote)))
+      (magit-call-git "config" (and (not new-name) "--unset") var new-name))))
+
+(defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'")
+
+;;;###autoload
+(defun magit-remote-prune (remote)
+  "Remove stale remote-tracking branches for REMOTE."
+  (interactive (list (magit-read-remote "Prune stale branches of remote")))
+  (magit-run-git-async "remote" "prune" remote))
+
+;;;###autoload
+(defun magit-remote-prune-refspecs (remote)
+  "Remove stale refspecs for REMOTE.
+
+A refspec is stale if there no longer exists at least one branch
+on the remote that would be fetched due to that refspec.  A stale
+refspec is problematic because its existence causes Git to refuse
+to fetch according to the remaining non-stale refspecs.
+
+If only stale refspecs remain, then offer to either delete the
+remote or to replace the stale refspecs with the default refspec.
+
+Also remove the remote-tracking branches that were created due to
+the now stale refspecs.  Other stale branches are not removed."
+  (interactive (list (magit-read-remote "Prune refspecs of remote")))
+  (let* ((tracking-refs (magit-list-remote-branches remote))
+         (remote-refs (magit-remote-list-refs remote))
+         (variable (format "remote.%s.fetch" remote))
+         (refspecs (magit-get-all variable))
+         stale)
+    (dolist (refspec refspecs)
+      (when (string-match magit--refspec-re refspec)
+        (let ((theirs (match-string 2 refspec))
+              (ours   (match-string 3 refspec)))
+          (unless (if (string-match "\\*" theirs)
+                      (let ((re (replace-match ".*" t t theirs)))
+                        (--some (string-match-p re it) remote-refs))
+                    (member theirs remote-refs))
+            (push (cons refspec
+                        (if (string-match "\\*" ours)
+                            (let ((re (replace-match ".*" t t ours)))
+                              (--filter (string-match-p re it) tracking-refs))
+                          (list (car (member ours tracking-refs)))))
+                  stale)))))
+    (if (not stale)
+        (message "No stale refspecs for remote %S" remote)
+      (if (= (length stale)
+             (length refspecs))
+          (magit-read-char-case
+              (format "All of %s's refspecs are stale.  " remote) nil
+            (?s "replace with [d]efault refspec"
+                (magit-set-all
+                 (list (format "+refs/heads/*:refs/remotes/%s/*" remote))
+                 variable))
+            (?r "[r]emove remote"
+                (magit-call-git "remote" "rm" remote))
+            (?a "or [a]abort"
+                (user-error "Abort")))
+        (if (if (length= stale 1)
+                (pcase-let ((`(,refspec . ,refs) (car stale)))
+                  (magit-confirm 'prune-stale-refspecs
+                    (list "Prune stale refspec %s and branch %%s" refspec)
+                    (list "Prune stale refspec %s and %%d branches" refspec)
+                    nil refs))
+              (magit-confirm 'prune-stale-refspecs nil
+                (format "Prune %%d stale refspecs and %d branches"
+                        (length (mapcan (lambda (s) (copy-sequence (cdr s)))
+                                        stale)))
+                nil
+                (mapcar (pcase-lambda (`(,refspec . ,refs))
+                          (concat refspec "\n"
+                                  (mapconcat (lambda (b) (concat "  " b))
+                                             refs "\n")))
+                        stale)))
+            (pcase-dolist (`(,refspec . ,refs) stale)
+              (magit-call-git "config" "--unset" variable
+                              (regexp-quote refspec))
+              (magit--log-action
+               (lambda (refs)
+                 (format "Deleting %d branches" (length refs)))
+               (lambda (ref)
+                 (format "Deleting branch %s (was %s)" ref
+                         (magit-rev-parse "--short" ref)))
+               refs)
+              (dolist (ref refs)
+                (magit-call-git "update-ref" "-d" ref)))
+          (user-error "Abort")))
+      (magit-refresh))))
+
+;;;###autoload
+(defun magit-remote-set-head (remote &optional branch)
+  "Set the local representation of REMOTE's default branch.
+Query REMOTE and set the symbolic-ref refs/remotes/<remote>/HEAD
+accordingly.  With a prefix argument query for the branch to be
+used, which allows you to select an incorrect value if you fancy
+doing that."
+  (interactive
+   (let  ((remote (magit-read-remote "Set HEAD for remote")))
+     (list remote
+           (and current-prefix-arg
+                (magit-read-remote-branch (format "Set %s/HEAD to" remote)
+                                          remote nil nil t)))))
+  (magit-run-git "remote" "set-head" remote (or branch "--auto")))
+
+;;;###autoload
+(defun magit-remote-unset-head (remote)
+  "Unset the local representation of REMOTE's default branch.
+Delete the symbolic-ref \"refs/remotes/<remote>/HEAD\"."
+  (interactive (list (magit-read-remote "Unset HEAD for remote")))
+  (magit-run-git "remote" "set-head" remote "--delete"))
+
+;;;###autoload (autoload 'magit-update-default-branch "magit-remote" nil t)
+(transient-define-suffix magit-update-default-branch ()
+  "Update name of the default branch after upstream changed it."
+  :description "Update default branch"
+  :inapt-if-not #'magit-get-some-remote
+  (interactive)
+  (pcase-let ((`(,_remote ,oldname) (magit--get-default-branch))
+              (`( ,remote ,newname) (magit--get-default-branch t)))
+    (cond
+     ((equal oldname newname)
+      (setq oldname
+            (read-string
+             (format
+              "Name of default branch is still `%s', %s\n%s `%s': " oldname
+              "but the upstreams of some local branches might need updating."
+              "Name of upstream branches to replace with" newname)))
+      (magit--set-default-branch newname oldname)
+      (magit-refresh))
+     (t
+      (unless oldname
+        (setq oldname
+              (magit-read-other-local-branch
+               (format "Name of old default branch to be renamed to `%s'"
+                       newname)
+               newname "master")))
+      (cond
+       ((y-or-n-p (format "Default branch changed from `%s' to `%s' on %s.%s"
+                          oldname newname remote "  Do the same locally? "))
+        (magit--set-default-branch newname oldname)
+        (magit-refresh))
+       ((user-error "Abort")))))))
+
+;;;###autoload
+(defun magit-remote-unshallow (remote)
+  "Convert a shallow remote into a full one.
+If only a single refspec is set and it does not contain a
+wildcard, then also offer to replace it with the standard
+refspec."
+  (interactive (list (or (magit-get-current-remote)
+                         (magit-read-remote "Delete remote"))))
+  (let ((refspecs (magit-get-all "remote" remote "fetch"))
+        (standard (format "+refs/heads/*:refs/remotes/%s/*" remote)))
+    (when (and (length= refspecs 1)
+               (not (string-search "*" (car refspecs)))
+               (yes-or-no-p (format "Also replace refspec %s with %s? "
+                                    (car refspecs)
+                                    standard)))
+      (magit-set standard "remote" remote "fetch"))
+    (magit-git-fetch "--unshallow" remote)))
+
+;;; Configure
+
+;;;###autoload (autoload 'magit-remote-configure "magit-remote" nil t)
+(transient-define-prefix magit-remote-configure (remote)
+  "Configure a remote."
+  :man-page "git-remote"
+  [:description
+   (lambda ()
+     (concat (propertize "Configure " 'face 'transient-heading)
+             (propertize (transient-scope) 'face 'magit-branch-remote)))
+   ("u" magit-remote.<remote>.url)
+   ("U" magit-remote.<remote>.fetch)
+   ("s" magit-remote.<remote>.pushurl)
+   ("S" magit-remote.<remote>.push)
+   ("O" magit-remote.<remote>.tagopt)]
+  (interactive
+   (list (or (and (not current-prefix-arg)
+                  (not (and magit-remote-direct-configure
+                            (eq transient-current-command 'magit-remote)))
+                  (magit-get-current-remote))
+             (magit--read-remote-scope))))
+  (transient-setup 'magit-remote-configure nil nil :scope remote))
+
+(defun magit--read-remote-scope (&optional obj)
+  (magit-read-remote
+   (if obj
+       (format "Set %s for remote"
+               (format (oref obj variable) "<name>"))
+     "Configure remote")))
+
+(transient-define-infix magit-remote.<remote>.url ()
+  :class 'magit--git-variable:urls
+  :scope #'magit--read-remote-scope
+  :variable "remote.%s.url"
+  :multi-value t
+  :history-key 'magit-remote.<remote>.*url)
+
+(transient-define-infix magit-remote.<remote>.fetch ()
+  :class 'magit--git-variable
+  :scope #'magit--read-remote-scope
+  :variable "remote.%s.fetch"
+  :multi-value t)
+
+(transient-define-infix magit-remote.<remote>.pushurl ()
+  :class 'magit--git-variable:urls
+  :scope #'magit--read-remote-scope
+  :variable "remote.%s.pushurl"
+  :multi-value t
+  :history-key 'magit-remote.<remote>.*url
+  :seturl-arg "--push")
+
+(transient-define-infix magit-remote.<remote>.push ()
+  :class 'magit--git-variable
+  :scope #'magit--read-remote-scope
+  :variable "remote.%s.push")
+
+(transient-define-infix magit-remote.<remote>.tagopt ()
+  :class 'magit--git-variable:choices
+  :scope #'magit--read-remote-scope
+  :variable "remote.%s.tagOpt"
+  :choices '("--no-tags" "--tags"))
+
+;;; Transfer Utilities
+
+(defun magit--push-remote-variable (&optional branch short)
+  (unless branch
+    (setq branch (magit-get-current-branch)))
+  (magit--propertize-face
+   (if (or (not branch) magit-prefer-push-default)
+       (if short "pushDefault" "remote.pushDefault")
+     (if short "pushRemote" (format "branch.%s.pushRemote" branch)))
+   'bold))
+
+(defun magit--select-push-remote (prompt-suffix)
+  (let* ((branch (or (magit-get-current-branch)
+                     (user-error "No branch is checked out")))
+         (remote (magit-get-push-remote branch))
+         (changed nil))
+    (when (or current-prefix-arg
+              (not remote)
+              (not (member remote (magit-list-remotes))))
+      (setq changed t)
+      (setq remote
+            (magit-read-remote (format "Set %s and %s"
+                                       (magit--push-remote-variable)
+                                       prompt-suffix)))
+      (setf (magit-get (magit--push-remote-variable branch)) remote))
+    (list branch remote changed)))
+
+;;; _
+(provide 'magit-remote)
+;;; magit-remote.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-remote.elc b/emacs/elpa/magit-20241124.1509/magit-remote.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-repos.el b/emacs/elpa/magit-20241124.1509/magit-repos.el
@@ -0,0 +1,546 @@
+;;; magit-repos.el --- Listing repositories  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements support for listing repositories.  This
+;; includes getting a Lisp list of known repositories as well as a
+;; mode for listing repositories in a buffer.
+
+;;; Code:
+
+(require 'magit-core)
+
+(declare-function magit-status-setup-buffer "magit-status" (&optional directory))
+
+(defvar x-stretch-cursor)
+
+;;; Options
+
+(defcustom magit-repository-directories nil
+  "List of directories that are or contain Git repositories.
+
+Each element has the form (DIRECTORY . DEPTH).  DIRECTORY has
+to be a directory or a directory file-name, a string.  DEPTH,
+an integer, specifies the maximum depth to look for Git
+repositories.  If it is 0, then only add DIRECTORY itself.
+
+This option controls which repositories are being listed by
+`magit-list-repositories'.  It also affects `magit-status'
+\(which see) in potentially surprising ways."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-essentials
+  :type '(repeat (cons directory (integer :tag "Depth"))))
+
+(defgroup magit-repolist nil
+  "List repositories in a buffer."
+  :link '(info-link "(magit)Repository List")
+  :group 'magit-modes)
+
+(defcustom magit-repolist-mode-hook '(hl-line-mode)
+  "Hook run after entering Magit-Repolist mode."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-repolist
+  :type 'hook
+  :get #'magit-hook-custom-get
+  :options '(hl-line-mode))
+
+(defcustom magit-repolist-columns
+  '(("Name"    25 magit-repolist-column-ident
+     ())
+    ("Version" 25 magit-repolist-column-version
+     ((:sort magit-repolist-version<)))
+    ("B<U"      3 magit-repolist-column-unpulled-from-upstream
+     (;; (:help-echo "Upstream changes not in branch")
+      (:right-align t)
+      (:sort <)))
+    ("B>U"      3 magit-repolist-column-unpushed-to-upstream
+     (;; (:help-echo "Local changes not in upstream")
+      (:right-align t)
+      (:sort <)))
+    ("Path"    99 magit-repolist-column-path
+     ()))
+  "List of columns displayed by `magit-list-repositories'.
+
+Each element has the form (HEADER WIDTH FORMAT PROPS).
+
+HEADER is the string displayed in the header.  WIDTH is the width
+of the column.  FORMAT is a function that is called with one
+argument, the repository identification (usually its basename),
+and with `default-directory' bound to the toplevel of its working
+tree.  It has to return a string to be inserted or nil.  PROPS is
+an alist that supports the keys `:right-align', `:pad-right' and
+`:sort'.
+
+The `:sort' function has a weird interface described in the
+docstring of `tabulated-list--get-sort'.  Alternatively `<' and
+`magit-repolist-version<' can be used as those functions are
+automatically replaced with functions that satisfy the interface.
+Set `:sort' to nil to inhibit sorting; if unspecified, then the
+column is sortable using the default sorter.
+
+You may wish to display a range of numeric columns using just one
+character per column and without any padding between columns, in
+which case you should use an appropriate HEADER, set WIDTH to 1,
+and set `:pad-right' to 0.  \"+\" is substituted for numbers higher
+than 9."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-repolist
+  :type '(repeat (list :tag "Column"
+                       (string   :tag "Header Label")
+                       (integer  :tag "Column Width")
+                       (function :tag "Inserter Function")
+                       (repeat   :tag "Properties"
+                                 (list (choice :tag "Property"
+                                               (const :right-align)
+                                               (const :pad-right)
+                                               (const :sort)
+                                               (symbol))
+                                       (sexp   :tag "Value"))))))
+
+(defcustom magit-repolist-column-flag-alist
+  '((magit-untracked-files . "N")
+    (magit-unstaged-files . "U")
+    (magit-staged-files . "S"))
+  "Association list of predicates and flags for `magit-repolist-column-flag'.
+
+Each element is of the form (FUNCTION . FLAG).  Each FUNCTION is
+called with no arguments, with `default-directory' bound to the
+top level of a repository working tree, until one of them returns
+a non-nil value.  FLAG corresponding to that function is returned
+as the value of `magit-repolist-column-flag'."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-repolist
+  :type '(alist :key-type (function :tag "Predicate Function")
+                :value-type (string :tag "Flag")))
+
+(defcustom magit-repolist-sort-key '("Path" . nil)
+  "Initial sort key for buffer created by `magit-list-repositories'.
+If nil, no additional sorting is performed.  Otherwise, this
+should be a cons cell (NAME . FLIP).  NAME is a string matching
+one of the column names in `magit-repolist-columns'.  FLIP, if
+non-nil, means to invert the resulting sort."
+  :package-version '(magit . "3.2.0")
+  :group 'magit-repolist
+  :type '(choice (const nil)
+                 (cons (string :tag "Column name")
+                       (boolean :tag "Flip order"))))
+
+;;; List Repositories
+;;;; List Commands
+;;;###autoload
+(defun magit-list-repositories ()
+  "Display a list of repositories.
+
+Use the option `magit-repository-directories' to control which
+repositories are displayed."
+  (interactive)
+  (magit-repolist-setup (default-value 'magit-repolist-columns)))
+
+;;;; Mode Commands
+
+(defun magit-repolist-status (&optional _button)
+  "Show the status for the repository at point."
+  (interactive)
+  (if-let ((id (tabulated-list-get-id)))
+      (magit-status-setup-buffer (expand-file-name id))
+    (user-error "There is no repository at point")))
+
+(defun magit-repolist-mark ()
+  "Mark a repository and move to the next line."
+  (interactive)
+  (magit-repolist--ensure-padding)
+  (tabulated-list-put-tag "*" t))
+
+(defun magit-repolist-unmark ()
+  "Unmark a repository and move to the next line."
+  (interactive)
+  (tabulated-list-put-tag " " t))
+
+(defun magit-repolist-fetch (repos)
+  "Fetch all marked or listed repositories."
+  (interactive (list (magit-repolist--get-repos ?*)))
+  (run-hooks 'magit-credential-hook)
+  (magit-repolist--mapc (apply-partially #'magit-run-git "remote" "update")
+                        repos "Fetching in %s..."))
+
+(defun magit-repolist-find-file-other-frame (repos file)
+  "Find a file in all marked or listed repositories."
+  (interactive (list (magit-repolist--get-repos ?*)
+                     (read-string "Find file in repositories: ")))
+  (magit-repolist--mapc (apply-partially #'find-file-other-frame file) repos))
+
+(defun magit-repolist--ensure-padding ()
+  "Set `tabulated-list-padding' to 2, unless that is already non-zero."
+  (when (zerop tabulated-list-padding)
+    (setq tabulated-list-padding 2)
+    (tabulated-list-init-header)
+    (tabulated-list-print t)))
+
+(defun magit-repolist--get-repos (&optional char)
+  "Return marked repositories or `all' if none are marked.
+If optional CHAR is non-nil, then only return repositories
+marked with that character.  If no repositories are marked
+then ask whether to act on all repositories instead."
+  (or (magit-repolist--marked-repos char)
+      (if (magit-confirm 'repolist-all
+            "Nothing selected.  Act on ALL displayed repositories")
+          'all
+        (user-error "Abort"))))
+
+(defun magit-repolist--marked-repos (&optional char)
+  "Return marked repositories.
+If optional CHAR is non-nil, then only return repositories
+marked with that character."
+  (let (c list)
+    (save-excursion
+      (goto-char (point-min))
+      (while (not (eobp))
+        (setq c (char-after))
+        (unless (eq c ?\s)
+          (if char
+              (when (eq c char)
+                (push (tabulated-list-get-id) list))
+            (push (cons c (tabulated-list-get-id)) list)))
+        (forward-line)))
+    list))
+
+(defun magit-repolist--mapc (fn repos &optional msg)
+  "Apply FN to each directory in REPOS for side effects only.
+If REPOS is the symbol `all', then call FN for all displayed
+repositories.  When FN is called, `default-directory' is bound to
+the top-level directory of the current repository.  If optional
+MSG is non-nil then that is displayed around each call to FN.
+If it contains \"%s\" then the directory is substituted for that."
+  (when (eq repos 'all)
+    (setq repos nil)
+    (save-excursion
+      (goto-char (point-min))
+      (while (not (eobp))
+        (push (tabulated-list-get-id) repos)
+        (forward-line)))
+    (setq repos (nreverse repos)))
+  (let ((base default-directory)
+        (len (length repos))
+        (i 0))
+    (mapc (lambda (repo)
+            (let ((default-directory
+                   (file-name-as-directory (expand-file-name repo base))))
+              (if msg
+                  (let ((msg (concat (format "(%s/%s) " (cl-incf i) len)
+                                     (format msg default-directory))))
+                    (message msg)
+                    (funcall fn)
+                    (message (concat msg "done")))
+                (funcall fn))))
+          repos)))
+
+;;;; Mode
+
+(defvar-keymap magit-repolist-mode-map
+  :doc "Local keymap for Magit-Repolist mode buffers."
+  :parent tabulated-list-mode-map
+  "C-m" #'magit-repolist-status
+  "m"   #'magit-repolist-mark
+  "u"   #'magit-repolist-unmark
+  "f"   #'magit-repolist-fetch
+  "5"   #'magit-repolist-find-file-other-frame)
+
+(define-derived-mode magit-repolist-mode tabulated-list-mode "Repos"
+  "Major mode for browsing a list of Git repositories."
+  :interactive nil
+  :group 'magit-repolist
+  (setq-local x-stretch-cursor nil)
+  (setq tabulated-list-padding 0)
+  (add-hook 'tabulated-list-revert-hook #'magit-repolist-refresh nil t)
+  (setq imenu-prev-index-position-function
+        #'magit-repolist--imenu-prev-index-position)
+  (setq imenu-extract-index-name-function #'tabulated-list-get-id))
+
+(defun magit-repolist-setup (columns)
+  (unless magit-repository-directories
+    (user-error "You need to customize `magit-repository-directories' %s"
+                "before you can list repositories"))
+  (with-current-buffer (get-buffer-create "*Magit Repositories*")
+    (magit-repolist-mode)
+    (setq-local magit-repolist-columns columns)
+    (magit-repolist-setup-1)
+    (magit-repolist-refresh)
+    (switch-to-buffer (current-buffer))))
+
+(defun magit-repolist-setup-1 ()
+  (unless tabulated-list-sort-key
+    (setq tabulated-list-sort-key
+          (pcase-let ((`(,column . ,flip) magit-repolist-sort-key))
+            (cons (or (car (assoc column magit-repolist-columns))
+                      (caar magit-repolist-columns))
+                  flip))))
+  (setq tabulated-list-format
+        (vconcat (seq-map-indexed
+                  (lambda (column idx)
+                    (pcase-let* ((`(,title ,width ,_fn ,props) column)
+                                 (sort-set (assoc :sort props))
+                                 (sort-fn (cadr sort-set)))
+                      (nconc (list title width
+                                   (cond ((eq sort-fn '<)
+                                          (magit-repolist-make-sorter
+                                           sort-fn #'string-to-number idx))
+                                         ((eq sort-fn 'magit-repolist-version<)
+                                          (magit-repolist-make-sorter
+                                           sort-fn #'identity idx))
+                                         (sort-fn sort-fn)
+                                         (sort-set nil)
+                                         (t t)))
+                             (flatten-tree props))))
+                  magit-repolist-columns))))
+
+(defun magit-repolist-refresh ()
+  (setq tabulated-list-entries
+        (mapcar (pcase-lambda (`(,id . ,path))
+                  (let ((default-directory path))
+                    (list path
+                          (vconcat
+                           (mapcar (pcase-lambda (`(,title ,width ,fn ,props))
+                                     (or (funcall fn `((:id ,id)
+                                                       (:title ,title)
+                                                       (:width ,width)
+                                                       ,@props))
+                                         ""))
+                                   magit-repolist-columns)))))
+                (magit-list-repos-uniquify
+                 (--map (cons (file-name-nondirectory (directory-file-name it))
+                              it)
+                        (magit-list-repos)))))
+  (message "Listing repositories...")
+  (tabulated-list-init-header)
+  (tabulated-list-print t)
+  (message "Listing repositories...done"))
+
+(defun magit-repolist--imenu-prev-index-position ()
+  (and (not (bobp))
+       (forward-line -1)))
+
+;;;; Columns
+
+(defun magit-repolist-make-sorter (sort-predicate convert-cell column-idx)
+  "Return a function suitable as a sorter for tabulated lists.
+See `tabulated-list--get-sorter'.  Given a more reasonable API
+this would not be necessary and one could just use SORT-PREDICATE
+directly.  CONVERT-CELL can be used to turn the cell value, which
+is always a string back into, e.g., a number.  COLUMN-IDX has to
+be the index of the column that uses the returned sorter function."
+  (lambda (a b)
+    (funcall sort-predicate
+             (funcall convert-cell (aref (cadr a) column-idx))
+             (funcall convert-cell (aref (cadr b) column-idx)))))
+
+(defun magit-repolist-column-ident (spec)
+  "Insert the identification of the repository.
+Usually this is just its basename."
+  (cadr (assq :id spec)))
+
+(defun magit-repolist-column-path (_)
+  "Insert the absolute path of the repository."
+  (abbreviate-file-name default-directory))
+
+(defvar magit-repolist-column-version-regexp "\
+\\(?1:-\\(?2:[0-9]*\\)\
+\\(?3:-g[a-z0-9]*\\)\\)?\
+\\(?:-\\(?4:dirty\\)\\)\
+?\\'")
+
+(defvar magit-repolist-column-version-resume-regexp
+  "\\`Resume development\\'")
+
+(defun magit-repolist-column-version (_)
+  "Insert a description of the repository's `HEAD' revision."
+  (and-let* ((v (or (magit-git-string "describe" "--tags" "--dirty")
+                    ;; If there are no tags, use the date in MELPA format.
+                    (magit-rev-format "%cd-g%h" nil
+                                      "--date=format:%Y%m%d.%H%M"))))
+    (save-match-data
+      (when (string-match magit-repolist-column-version-regexp v)
+        (magit--put-face (match-beginning 0) (match-end 0) 'shadow v)
+        (when (match-end 2)
+          (magit--put-face (match-beginning 2) (match-end 2) 'bold v))
+        (when (match-end 4)
+          (magit--put-face (or (match-beginning 3) (match-beginning 4))
+                           (match-end 4) 'error v))
+        (when (and (equal (match-string 2 v) "1")
+                   (string-match-p magit-repolist-column-version-resume-regexp
+                                   (magit-rev-format "%s")))
+          (setq v (replace-match (propertize "+" 'face 'shadow) t t v 1))))
+      (if (and v (string-match "\\`[0-9]" v))
+          (concat " " v)
+        (when (and v (string-match "\\`[^0-9]+" v))
+          (magit--put-face 0 (match-end 0) 'shadow v))
+        v))))
+
+(defun magit-repolist-version< (a b)
+  (save-match-data
+    (let ((re "[0-9]+\\(\\.[0-9]*\\)*"))
+      (setq a (and (string-match re a) (match-string 0 a)))
+      (setq b (and (string-match re b) (match-string 0 b)))
+      (cond ((and a b) (version< a b))
+            (b nil)
+            (t t)))))
+
+(defun magit-repolist-column-branch (_)
+  "Insert the current branch."
+  (let ((branch (magit-get-current-branch)))
+    (if (member branch magit-main-branch-names)
+        (magit--propertize-face branch 'shadow)
+      branch)))
+
+(defun magit-repolist-column-upstream (_)
+  "Insert the upstream branch of the current branch."
+  (magit-get-upstream-branch))
+
+(defun magit-repolist-column-flag (_)
+  "Insert a flag as specified by `magit-repolist-column-flag-alist'.
+
+By default this indicates whether there are uncommitted changes.
+- N if there is at least one untracked file.
+- U if there is at least one unstaged file.
+- S if there is at least one staged file.
+Only one letter is shown, the first that applies."
+  (seq-some (pcase-lambda (`(,fun . ,flag))
+              (and (funcall fun) flag))
+            magit-repolist-column-flag-alist))
+
+(defun magit-repolist-column-flags (_)
+  "Insert all flags as specified by `magit-repolist-column-flag-alist'.
+This is an alternative to function `magit-repolist-column-flag',
+which only lists the first one found."
+  (mapconcat (pcase-lambda (`(,fun . ,flag))
+               (if (funcall fun) flag " "))
+             magit-repolist-column-flag-alist
+             ""))
+
+(defun magit-repolist-column-unpulled-from-upstream (spec)
+  "Insert number of upstream commits not in the current branch."
+  (and-let* ((br (magit-get-upstream-branch)))
+    (magit-repolist-insert-count (cadr (magit-rev-diff-count "HEAD" br)) spec)))
+
+(defun magit-repolist-column-unpulled-from-pushremote (spec)
+  "Insert number of commits in the push branch but not the current branch."
+  (and-let* ((br (magit-get-push-branch nil t)))
+    (magit-repolist-insert-count (cadr (magit-rev-diff-count "HEAD" br)) spec)))
+
+(defun magit-repolist-column-unpushed-to-upstream (spec)
+  "Insert number of commits in the current branch but not its upstream."
+  (and-let* ((br (magit-get-upstream-branch)))
+    (magit-repolist-insert-count (car (magit-rev-diff-count "HEAD" br)) spec)))
+
+(defun magit-repolist-column-unpushed-to-pushremote (spec)
+  "Insert number of commits in the current branch but not its push branch."
+  (and-let* ((br (magit-get-push-branch nil t)))
+    (magit-repolist-insert-count (car (magit-rev-diff-count "HEAD" br)) spec)))
+
+(defun magit-repolist-column-branches (spec)
+  "Insert number of branches."
+  (magit-repolist-insert-count (length (magit-list-local-branches))
+                               `((:normal-count 1) ,@spec)))
+
+(defun magit-repolist-column-stashes (spec)
+  "Insert number of stashes."
+  (magit-repolist-insert-count (length (magit-list-stashes)) spec))
+
+(defun magit-repolist-insert-count (n spec)
+  (magit--propertize-face
+   (if (and  (> n 9) (= (cadr (assq :width spec)) 1))
+       "+"
+     (number-to-string n))
+   (if (> n (or (cadr (assq :normal-count spec)) 0)) 'bold 'shadow)))
+
+;;; Read Repository
+
+(defun magit-read-repository (&optional read-directory-name)
+  "Read a Git repository in the minibuffer, with completion.
+
+The completion choices are the basenames of top-levels of
+repositories found in the directories specified by option
+`magit-repository-directories'.  In case of name conflicts
+the basenames are prefixed with the name of the respective
+parent directories.  The returned value is the actual path
+to the selected repository.
+
+If READ-DIRECTORY-NAME is non-nil or no repositories can be
+found based on the value of `magit-repository-directories',
+then read an arbitrary directory using `read-directory-name'
+instead."
+  (if-let ((repos (and (not read-directory-name)
+                       magit-repository-directories
+                       (magit-repos-alist))))
+      (let ((reply (magit-completing-read "Git repository" repos)))
+        (file-name-as-directory
+         (or (cdr (assoc reply repos))
+             (if (file-directory-p reply)
+                 (expand-file-name reply)
+               (user-error "Not a repository or a directory: %s" reply)))))
+    (file-name-as-directory
+     (read-directory-name "Git repository: "
+                          (or (magit-toplevel) default-directory)))))
+
+(defun magit-list-repos ()
+  (mapcan (pcase-lambda (`(,dir . ,depth))
+            (magit-list-repos-1 dir depth))
+          magit-repository-directories))
+
+(defun magit-list-repos-1 (directory depth)
+  (cond ((file-readable-p (expand-file-name ".git" directory))
+         (list (file-name-as-directory directory)))
+        ((and (> depth 0) (file-accessible-directory-p directory))
+         (--mapcat (and (file-directory-p it)
+                        (magit-list-repos-1 it (1- depth)))
+                   (directory-files directory t
+                                    directory-files-no-dot-files-regexp t)))))
+
+(defun magit-list-repos-uniquify (alist)
+  (let (result (dict (make-hash-table :test #'equal)))
+    (dolist (a (delete-dups alist))
+      (puthash (car a) (cons (cdr a) (gethash (car a) dict)) dict))
+    (maphash
+     (lambda (key value)
+       (if (length= value 1)
+           (push (cons key (car value)) result)
+         (setq result
+               (append result
+                       (magit-list-repos-uniquify
+                        (--map (cons (concat
+                                      key "\\"
+                                      (file-name-nondirectory
+                                       (directory-file-name
+                                        (substring it 0 (- (1+ (length key)))))))
+                                     it)
+                               value))))))
+     dict)
+    result))
+
+(defun magit-repos-alist ()
+  (magit-list-repos-uniquify
+   (--map (cons (file-name-nondirectory (directory-file-name it)) it)
+          (magit-list-repos))))
+
+;;; _
+(provide 'magit-repos)
+;;; magit-repos.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-repos.elc b/emacs/elpa/magit-20241124.1509/magit-repos.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-reset.el b/emacs/elpa/magit-20241124.1509/magit-reset.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-reset.elc b/emacs/elpa/magit-20241124.1509/magit-reset.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-sequence.el b/emacs/elpa/magit-20241124.1509/magit-sequence.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-sequence.elc b/emacs/elpa/magit-20241124.1509/magit-sequence.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-sparse-checkout.el b/emacs/elpa/magit-20241124.1509/magit-sparse-checkout.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-sparse-checkout.elc b/emacs/elpa/magit-20241124.1509/magit-sparse-checkout.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-stash.el b/emacs/elpa/magit-20241124.1509/magit-stash.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-stash.elc b/emacs/elpa/magit-20241124.1509/magit-stash.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-status.el b/emacs/elpa/magit-20241124.1509/magit-status.el
@@ -0,0 +1,802 @@
+;;; magit-status.el --- The grand overview  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements the status buffer.
+
+;;; Code:
+
+(require 'magit)
+
+;;; Options
+
+(defgroup magit-status nil
+  "Inspect and manipulate Git repositories."
+  :link '(info-link "(magit)Status Buffer")
+  :group 'magit-modes)
+
+(defcustom magit-status-mode-hook nil
+  "Hook run after entering Magit-Status mode."
+  :group 'magit-status
+  :type 'hook)
+
+(defcustom magit-status-headers-hook
+  '(magit-insert-error-header
+    magit-insert-diff-filter-header
+    magit-insert-head-branch-header
+    magit-insert-upstream-branch-header
+    magit-insert-push-branch-header
+    magit-insert-tags-header)
+  "Hook run to insert headers into the status buffer.
+
+This hook is run by `magit-insert-status-headers', which in turn
+has to be a member of `magit-status-sections-hook' to be used at
+all."
+  :package-version '(magit . "2.1.0")
+  :group 'magit-status
+  :type 'hook
+  :options '(magit-insert-error-header
+             magit-insert-diff-filter-header
+             magit-insert-repo-header
+             magit-insert-remote-header
+             magit-insert-head-branch-header
+             magit-insert-upstream-branch-header
+             magit-insert-push-branch-header
+             magit-insert-tags-header))
+
+(defcustom magit-status-sections-hook
+  '(magit-insert-status-headers
+    magit-insert-merge-log
+    magit-insert-rebase-sequence
+    magit-insert-am-sequence
+    magit-insert-sequencer-sequence
+    magit-insert-bisect-output
+    magit-insert-bisect-rest
+    magit-insert-bisect-log
+    magit-insert-untracked-files
+    magit-insert-unstaged-changes
+    magit-insert-staged-changes
+    magit-insert-stashes
+    magit-insert-unpushed-to-pushremote
+    magit-insert-unpushed-to-upstream-or-recent
+    magit-insert-unpulled-from-pushremote
+    magit-insert-unpulled-from-upstream)
+  "Hook run to insert sections into a status buffer."
+  :package-version '(magit . "2.12.0")
+  :group 'magit-status
+  :type 'hook)
+
+(defcustom magit-status-initial-section '(1)
+  "The section point is placed on when a status buffer is created.
+
+When such a buffer is merely being refreshed or being shown again
+after it was merely buried, then this option has no effect.
+
+If this is nil, then point remains on the very first section as
+usual.  Otherwise it has to be a list of integers and section
+identity lists.  The members of that list are tried in order
+until a matching section is found.
+
+An integer means to jump to the nth section, 1 for example
+jumps over the headings.  To get a section's \"identity list\"
+use \\[universal-argument] \\[magit-describe-section-briefly].
+
+If, for example, you want to jump to the commits that haven't
+been pulled from the upstream, or else the second section, then
+use: (((unpulled . \"..@{upstream}\") (status)) 1).
+
+See option `magit-section-initial-visibility-alist' for how to
+control the initial visibility of the jumped to section."
+  :package-version '(magit . "2.90.0")
+  :group 'magit-status
+  :type '(choice (const :tag "as usual" nil)
+                 (repeat (choice (number :tag "nth top-level section")
+                                 (sexp   :tag "section identity")))))
+
+(defcustom magit-status-goto-file-position nil
+  "Whether to go to position corresponding to file position.
+
+If this is non-nil and the current buffer is visiting a file,
+then `magit-status' tries to go to the position in the status
+buffer that corresponds to the position in the file-visiting
+buffer.  This jumps into either the diff of unstaged changes
+or the diff of staged changes.
+
+If the previously current buffer does not visit a file, or if
+the file has neither unstaged nor staged changes then this has
+no effect.
+
+The command `magit-status-here' tries to go to that position,
+regardless of the value of this option."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-status
+  :type 'boolean)
+
+(defcustom magit-status-show-hashes-in-headers nil
+  "Whether headers in the status buffer show hashes.
+The functions which respect this option are
+`magit-insert-head-branch-header',
+`magit-insert-upstream-branch-header', and
+`magit-insert-push-branch-header'."
+  :package-version '(magit . "2.4.0")
+  :group 'magit-status
+  :type 'boolean)
+
+(defcustom magit-status-margin
+  (list nil
+        (nth 1 magit-log-margin)
+        'magit-log-margin-width nil
+        (nth 4 magit-log-margin))
+  "Format of the margin in `magit-status-mode' buffers.
+
+The value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).
+
+If INIT is non-nil, then the margin is shown initially.
+STYLE controls how to format the author or committer date.
+  It can be one of `age' (to show the age of the commit),
+  `age-abbreviated' (to abbreviate the time unit to a character),
+  or a string (suitable for `format-time-string') to show the
+  actual date.  Option `magit-log-margin-show-committer-date'
+  controls which date is being displayed.
+WIDTH controls the width of the margin.  This exists for forward
+  compatibility and currently the value should not be changed.
+AUTHOR controls whether the name of the author is also shown by
+  default.
+AUTHOR-WIDTH has to be an integer.  When the name of the author
+  is shown, then this specifies how much space is used to do so."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-status
+  :group 'magit-margin
+  :type magit-log-margin--custom-type
+  :initialize #'magit-custom-initialize-reset
+  :set-after '(magit-log-margin)
+  :set (apply-partially #'magit-margin-set-variable 'magit-status-mode))
+
+(defcustom magit-status-use-buffer-arguments 'selected
+  "Whether `magit-status' reuses arguments when the buffer already exists.
+
+This option has no effect when merely refreshing the status
+buffer using `magit-refresh'.
+
+Valid values are:
+
+`always': Always use the set of arguments that is currently
+  active in the status buffer, provided that buffer exists
+  of course.
+`selected': Use the set of arguments from the status
+  buffer, but only if it is displayed in a window of the
+  current frame.  This is the default.
+`current': Use the set of arguments from the status buffer,
+  but only if it is the current buffer.
+`never': Never use the set of arguments from the status
+  buffer."
+  :package-version '(magit . "3.0.0")
+  :group 'magit-buffers
+  :group 'magit-commands
+  :type '(choice
+          (const :tag "always use args from buffer" always)
+          (const :tag "use args from buffer if displayed in frame" selected)
+          (const :tag "use args from buffer if it is current" current)
+          (const :tag "never use args from buffer" never)))
+
+;;; Commands
+
+;;;###autoload
+(defun magit-init (directory)
+  "Initialize a Git repository, then show its status.
+
+If the directory is below an existing repository, then the user
+has to confirm that a new one should be created inside.  If the
+directory is the root of the existing repository, then the user
+has to confirm that it should be reinitialized.
+
+Non-interactively DIRECTORY is (re-)initialized unconditionally."
+  (interactive
+   (let ((directory (file-name-as-directory
+                     (expand-file-name
+                      (read-directory-name "Create repository in: ")))))
+     (when-let ((toplevel (magit-toplevel directory)))
+       (setq toplevel (expand-file-name toplevel))
+       (unless (y-or-n-p (if (file-equal-p toplevel directory)
+                             (format "Reinitialize existing repository %s? "
+                                     directory)
+                           (format "%s is a repository.  Create another in %s? "
+                                   toplevel directory)))
+         (user-error "Abort")))
+     (list directory)))
+  ;; `git init' does not understand the meaning of "~"!
+  (magit-call-git "init" (magit-convert-filename-for-git
+                          (expand-file-name directory)))
+  (magit-status-setup-buffer directory))
+
+;;;###autoload
+(defun magit-status (&optional directory cache)
+  "Show the status of the current Git repository in a buffer.
+
+If the current directory isn't located within a Git repository,
+then prompt for an existing repository or an arbitrary directory,
+depending on option `magit-repository-directories', and show the
+status of the selected repository instead.
+
+* If that option specifies any existing repositories, then offer
+  those for completion and show the status buffer for the
+  selected one.
+
+* Otherwise read an arbitrary directory using regular file-name
+  completion.  If the selected directory is the top-level of an
+  existing working tree, then show the status buffer for that.
+
+* Otherwise offer to initialize the selected directory as a new
+  repository.  After creating the repository show its status
+  buffer.
+
+These fallback behaviors can also be forced using one or more
+prefix arguments:
+
+* With two prefix arguments (or more precisely a numeric prefix
+  value of 16 or greater) read an arbitrary directory and act on
+  it as described above.  The same could be accomplished using
+  the command `magit-init'.
+
+* With a single prefix argument read an existing repository, or
+  if none can be found based on `magit-repository-directories',
+  then fall back to the same behavior as with two prefix
+  arguments."
+  (interactive
+   (let ((magit--refresh-cache (list (cons 0 0))))
+     (list (and (or current-prefix-arg (not (magit-toplevel)))
+                (progn (magit--assert-usable-git)
+                       (magit-read-repository
+                        (>= (prefix-numeric-value current-prefix-arg) 16))))
+           magit--refresh-cache)))
+  (let ((magit--refresh-cache (or cache (list (cons 0 0)))))
+    (if directory
+        (let ((toplevel (magit-toplevel directory)))
+          (setq directory (file-name-as-directory
+                           (expand-file-name directory)))
+          (if (and toplevel (file-equal-p directory toplevel))
+              (magit-status-setup-buffer directory)
+            (when (y-or-n-p
+                   (if toplevel
+                       (format "%s is a repository.  Create another in %s? "
+                               toplevel directory)
+                     (format "Create repository in %s? " directory)))
+              ;; Creating a new repository invalidates cached values.
+              (setq magit--refresh-cache nil)
+              (magit-init directory))))
+      (magit-status-setup-buffer default-directory))))
+
+(put 'magit-status 'interactive-only 'magit-status-setup-buffer)
+
+;;;###autoload
+(defalias 'magit #'magit-status
+  "Begin using Magit.
+
+This alias for `magit-status' exists for better discoverability.
+
+Instead of invoking this alias for `magit-status' using
+\"M-x magit RET\", you should bind a key to `magit-status'
+and read the info node `(magit)Getting Started', which
+also contains other useful hints.")
+
+;;;###autoload
+(defun magit-status-here ()
+  "Like `magit-status' but with non-nil `magit-status-goto-file-position'."
+  (interactive)
+  (let ((magit-status-goto-file-position t))
+    (call-interactively #'magit-status)))
+
+(put 'magit-status-here 'interactive-only 'magit-status-setup-buffer)
+
+;;;###autoload
+(defun magit-status-quick ()
+  "Show the status of the current Git repository, maybe without refreshing.
+
+If the status buffer of the current Git repository exists but
+isn't being displayed in the selected frame, then display it
+without refreshing it.
+
+If the status buffer is being displayed in the selected frame,
+then also refresh it.
+
+Prefix arguments have the same meaning as for `magit-status',
+and additionally cause the buffer to be refresh.
+
+To use this function instead of `magit-status', add this to your
+init file: (global-set-key (kbd \"C-x g\") \\='magit-status-quick)."
+  (interactive)
+  (if-let ((buffer
+            (and (not current-prefix-arg)
+                 (not (magit-get-mode-buffer 'magit-status-mode nil 'selected))
+                 (magit-get-mode-buffer 'magit-status-mode))))
+      (magit-display-buffer buffer)
+    (call-interactively #'magit-status)))
+
+;;; Mode
+
+(defvar-keymap magit-status-mode-map
+  :doc "Keymap for `magit-status-mode'."
+  :parent magit-mode-map
+  "j" #'magit-status-jump
+  "<remap> <dired-jump>" #'magit-dired-jump)
+
+(transient-define-prefix magit-status-jump ()
+  "In a Magit-Status buffer, jump to a section."
+  [["Jump to"
+    ("z " magit-jump-to-stashes)
+    ("t " magit-jump-to-tracked)
+    ("n " magit-jump-to-untracked)
+    ("i " magit-jump-to-ignored)
+    ("u " magit-jump-to-unstaged)
+    ("s " magit-jump-to-staged)]
+   [""
+    ("fu" magit-jump-to-unpulled-from-upstream)
+    ("fp" magit-jump-to-unpulled-from-pushremote)
+    ("pu" magit-jump-to-unpushed-to-upstream)
+    ("pp" magit-jump-to-unpushed-to-pushremote)
+    ("a " magit-jump-to-assume-unchanged)
+    ("w " magit-jump-to-skip-worktree)]
+   ["Jump using"
+    ("j"  "Imenu" imenu)]])
+
+(define-derived-mode magit-status-mode magit-mode "Magit"
+  "Mode for looking at Git status.
+
+This mode is documented in info node `(magit)Status Buffer'.
+
+\\<magit-mode-map>\
+Type \\[magit-refresh] to refresh the current buffer.
+Type \\[magit-section-toggle] to expand or hide the section at point.
+Type \\[magit-visit-thing] to visit the change or commit at point.
+
+Type \\[magit-dispatch] to invoke major commands.
+
+Staging and applying changes is documented in info node
+`(magit)Staging and Unstaging' and info node `(magit)Applying'.
+
+\\<magit-hunk-section-map>Type \
+\\[magit-apply] to apply the change at point, \
+\\[magit-stage] to stage,
+\\[magit-unstage] to unstage, \
+\\[magit-discard] to discard, or \
+\\[magit-reverse] to reverse it.
+
+\\<magit-status-mode-map>\
+Type \\[magit-commit] to create a commit.
+
+\\{magit-status-mode-map}"
+  :interactive nil
+  :group 'magit-status
+  (magit-hack-dir-local-variables)
+  (when magit-status-initial-section
+    (add-hook 'magit-post-create-buffer-hook
+              #'magit-status-goto-initial-section nil t))
+  (setq magit--imenu-group-types '(not branch commit)))
+
+(put 'magit-status-mode 'magit-diff-default-arguments
+     '("--no-ext-diff"))
+(put 'magit-status-mode 'magit-log-default-arguments
+     '("-n256" "--decorate"))
+
+;;;###autoload
+(defun magit-status-setup-buffer (&optional directory)
+  (unless directory
+    (setq directory default-directory))
+  (when (file-remote-p directory)
+    (magit-git-version-assert))
+  (let* ((default-directory directory)
+         (d (magit-diff--get-value 'magit-status-mode
+                                   magit-status-use-buffer-arguments))
+         (l (magit-log--get-value 'magit-status-mode
+                                  magit-status-use-buffer-arguments))
+         (file (and magit-status-goto-file-position
+                    (magit-file-relative-name)))
+         (line (and file (save-restriction (widen) (line-number-at-pos))))
+         (col  (and file (save-restriction (widen) (current-column))))
+         (buf  (magit-setup-buffer #'magit-status-mode nil
+                 (magit-buffer-diff-args  (nth 0 d))
+                 (magit-buffer-diff-files (nth 1 d))
+                 (magit-buffer-log-args   (nth 0 l))
+                 (magit-buffer-log-files  (nth 1 l)))))
+    (when file
+      (with-current-buffer buf
+        (let ((staged (magit-get-section '((staged) (status)))))
+          (if (and staged
+                   (cadr (magit-diff--locate-hunk file line staged)))
+              (magit-diff--goto-position file line col staged)
+            (let ((unstaged (magit-get-section '((unstaged) (status)))))
+              (unless (and unstaged
+                           (magit-diff--goto-position file line col unstaged))
+                (when staged
+                  (magit-diff--goto-position file line col staged))))))))
+    buf))
+
+(defun magit-status-refresh-buffer ()
+  (magit-git-exit-code "update-index" "--refresh")
+  (magit-insert-section (status)
+    (magit-run-section-hook 'magit-status-sections-hook)))
+
+(defun magit-status-goto-initial-section ()
+  "Jump to the section specified by `magit-status-initial-section'."
+  (when-let ((section
+              (--some (if (integerp it)
+                          (nth (1- it)
+                               (magit-section-siblings (magit-current-section)
+                                                       'next))
+                        (magit-get-section it))
+                      magit-status-initial-section)))
+    (goto-char (oref section start))
+    (when-let ((vis (cdr (assq 'magit-status-initial-section
+                               magit-section-initial-visibility-alist))))
+      (if (eq vis 'hide)
+          (magit-section-hide section)
+        (magit-section-show section)))))
+
+(defun magit-status-maybe-update-revision-buffer (&optional _)
+  "When moving in the status buffer, update the revision buffer.
+If there is no revision buffer in the same frame, then do nothing."
+  (when (derived-mode-p 'magit-status-mode)
+    (magit--maybe-update-revision-buffer)))
+
+(defun magit-status-maybe-update-stash-buffer (&optional _)
+  "When moving in the status buffer, update the stash buffer.
+If there is no stash buffer in the same frame, then do nothing."
+  (when (derived-mode-p 'magit-status-mode)
+    (magit--maybe-update-stash-buffer)))
+
+(defun magit-status-maybe-update-blob-buffer (&optional _)
+  "When moving in the status buffer, update the blob buffer.
+If there is no blob buffer in the same frame, then do nothing."
+  (when (derived-mode-p 'magit-status-mode)
+    (magit--maybe-update-blob-buffer)))
+
+;;; Sections
+;;;; Special Headers
+
+(defun magit-insert-status-headers ()
+  "Insert header sections appropriate for `magit-status-mode' buffers.
+The sections are inserted by running the functions on the hook
+`magit-status-headers-hook'."
+  (if (magit-rev-verify "HEAD")
+      (magit-insert-headers 'magit-status-headers-hook)
+    (insert "In the beginning there was darkness\n\n")))
+
+(defvar-keymap magit-error-section-map
+  :doc "Keymap for `error' sections."
+  "<remap> <magit-visit-thing>" #'magit-process-buffer
+  "<1>" (magit-menu-item "Visit process output" #'magit-process-buffer))
+
+(defun magit-insert-error-header ()
+  "Insert the message about the Git error that just occurred.
+
+This function is only aware of the last error that occur when Git
+was run for side-effects.  If, for example, an error occurs while
+generating a diff, then that error won't be inserted.  Refreshing
+the status buffer causes this section to disappear again."
+  (when magit-this-error
+    (magit-insert-section (error 'git)
+      (insert (propertize (format "%-10s" "GitError! ")
+                          'font-lock-face 'magit-section-heading))
+      (insert (propertize magit-this-error 'font-lock-face 'error))
+      (when-let ((key (car (where-is-internal 'magit-process-buffer))))
+        (insert (format "  [Type `%s' for details]" (key-description key))))
+      (insert ?\n))
+    (setq magit-this-error nil)))
+
+(defun magit-insert-diff-filter-header ()
+  "Insert a header line showing the effective diff filters."
+  (let ((ignore-modules (magit-ignore-submodules-p)))
+    (when (or ignore-modules
+              magit-buffer-diff-files)
+      (insert (propertize (format "%-10s" "Filter! ")
+                          'font-lock-face 'magit-section-heading))
+      (when ignore-modules
+        (insert ignore-modules)
+        (when magit-buffer-diff-files
+          (insert " -- ")))
+      (when magit-buffer-diff-files
+        (insert (string-join magit-buffer-diff-files " ")))
+      (insert ?\n))))
+
+;;;; Reference Headers
+
+(defun magit-insert-head-branch-header (&optional branch)
+  "Insert a header line about the current branch.
+If `HEAD' is detached, then insert information about that commit
+instead.  The optional BRANCH argument is for internal use only."
+  (let ((branch (or branch (magit-get-current-branch)))
+        (output (magit-rev-format "%h %s" (or branch "HEAD"))))
+    (string-match "^\\([^ ]+\\) \\(.*\\)" output)
+    (magit-bind-match-strings (commit summary) output
+      (when (equal summary "")
+        (setq summary "(no commit message)"))
+      (if branch
+          (magit-insert-section (branch branch)
+            (insert (format "%-10s" "Head: "))
+            (when magit-status-show-hashes-in-headers
+              (insert (propertize commit 'font-lock-face 'magit-hash) ?\s))
+            (insert (propertize branch 'font-lock-face 'magit-branch-local))
+            (insert ?\s)
+            (insert (funcall magit-log-format-message-function branch summary))
+            (insert ?\n))
+        (magit-insert-section (commit commit)
+          (insert (format "%-10s" "Head: "))
+          (insert (propertize commit 'font-lock-face 'magit-hash))
+          (insert ?\s)
+          (insert (funcall magit-log-format-message-function nil summary))
+          (insert ?\n))))))
+
+(defun magit-insert-upstream-branch-header (&optional branch upstream keyword)
+  "Insert a header line about the upstream of the current branch.
+If no branch is checked out, then insert nothing.  The optional
+arguments are for internal use only."
+  (when-let ((branch (or branch (magit-get-current-branch))))
+    (let ((remote (magit-get "branch" branch "remote"))
+          (merge  (magit-get "branch" branch "merge"))
+          (rebase (magit-get "branch" branch "rebase")))
+      (when (or remote merge)
+        (unless upstream
+          (setq upstream (magit-get-upstream-branch branch)))
+        (magit-insert-section (branch upstream)
+          (pcase rebase
+            ("true")
+            ("false" (setq rebase nil))
+            (_       (setq rebase (magit-get-boolean "pull.rebase"))))
+          (insert (format "%-10s" (or keyword (if rebase "Rebase: " "Merge: "))))
+          (insert
+           (if upstream
+               (concat (and magit-status-show-hashes-in-headers
+                            (concat (propertize (magit-rev-format "%h" upstream)
+                                                'font-lock-face 'magit-hash)
+                                    " "))
+                       upstream " "
+                       (funcall magit-log-format-message-function upstream
+                                (funcall magit-log-format-message-function nil
+                                         (or (magit-rev-format "%s" upstream)
+                                             "(no commit message)"))))
+             (cond
+              ((magit--unnamed-upstream-p remote merge)
+               (concat (propertize merge  'font-lock-face 'magit-branch-remote)
+                       " from "
+                       (propertize remote 'font-lock-face 'bold)))
+              ((magit--valid-upstream-p remote merge)
+               (if (equal remote ".")
+                   (concat
+                    (propertize merge 'font-lock-face 'magit-branch-local) " "
+                    (propertize "does not exist"
+                                'font-lock-face 'magit-branch-warning))
+                 (format
+                  "%s %s %s"
+                  (propertize merge 'font-lock-face 'magit-branch-remote)
+                  (propertize "does not exist on"
+                              'font-lock-face 'magit-branch-warning)
+                  (propertize remote 'font-lock-face 'magit-branch-remote))))
+              (t
+               (propertize "invalid upstream configuration"
+                           'font-lock-face 'magit-branch-warning)))))
+          (insert ?\n))))))
+
+(defun magit-insert-push-branch-header ()
+  "Insert a header line about the branch the current branch is pushed to."
+  (when-let* ((branch (magit-get-current-branch))
+              (target (magit-get-push-branch branch)))
+    (magit-insert-section (branch target)
+      (insert (format "%-10s" "Push: "))
+      (insert
+       (if (magit-rev-verify target)
+           (concat (and magit-status-show-hashes-in-headers
+                        (concat (propertize (magit-rev-format "%h" target)
+                                            'font-lock-face 'magit-hash)
+                                " "))
+                   target " "
+                   (funcall magit-log-format-message-function target
+                            (funcall magit-log-format-message-function nil
+                                     (or (magit-rev-format "%s" target)
+                                         "(no commit message)"))))
+         (let ((remote (magit-get-push-remote branch)))
+           (if (magit-remote-p remote)
+               (concat target " "
+                       (propertize "does not exist"
+                                   'font-lock-face 'magit-branch-warning))
+             (concat remote " "
+                     (propertize "remote does not exist"
+                                 'font-lock-face 'magit-branch-warning))))))
+      (insert ?\n))))
+
+(defun magit-insert-tags-header ()
+  "Insert a header line about the current and/or next tag."
+  (let* ((this-tag (magit-get-current-tag nil t))
+         (next-tag (magit-get-next-tag nil t))
+         (this-cnt (cadr this-tag))
+         (next-cnt (cadr next-tag))
+         (this-tag (car this-tag))
+         (next-tag (car next-tag))
+         (both-tags (and this-tag next-tag t)))
+    (when (or this-tag next-tag)
+      (magit-insert-section (tag (or this-tag next-tag))
+        (insert (format "%-10s" (if both-tags "Tags: " "Tag: ")))
+        (cl-flet ((insert-count (tag count face)
+                    (insert (concat (propertize tag 'font-lock-face 'magit-tag)
+                                    (and (> count 0)
+                                         (format " (%s)"
+                                                 (propertize
+                                                  (format "%s" count)
+                                                  'font-lock-face face)))))))
+          (when this-tag  (insert-count this-tag this-cnt 'magit-branch-local))
+          (when both-tags (insert ", "))
+          (when next-tag  (insert-count next-tag next-cnt 'magit-tag)))
+        (insert ?\n)))))
+
+;;;; Auxiliary Headers
+
+(defun magit-insert-user-header ()
+  "Insert a header line about the current user."
+  (let ((name  (magit-get "user.name"))
+        (email (magit-get "user.email")))
+    (when (and name email)
+      (magit-insert-section (user name)
+        (insert (format "%-10s" "User: "))
+        (insert (propertize name 'font-lock-face 'magit-log-author))
+        (insert " <" email ">\n")))))
+
+(defun magit-insert-repo-header ()
+  "Insert a header line showing the path to the repository top-level."
+  (let ((topdir (magit-toplevel)))
+    (magit-insert-section (repo topdir)
+      (insert (format "%-10s%s\n" "Repo: " (abbreviate-file-name topdir))))))
+
+(defun magit-insert-remote-header ()
+  "Insert a header line about the remote of the current branch.
+
+If no remote is configured for the current branch, then fall back
+showing the \"origin\" remote, or if that does not exist the first
+remote in alphabetic order."
+  (when-let* ((name (magit-get-some-remote))
+              ;; Under certain configurations it's possible for
+              ;; url to be nil, when name is not, see #2858.
+              (url (magit-get "remote" name "url")))
+    (magit-insert-section (remote name)
+      (insert (format "%-10s" "Remote: "))
+      (insert (propertize name 'font-lock-face 'magit-branch-remote) ?\s)
+      (insert url ?\n))))
+
+;;;; File Sections
+
+(defvar-keymap magit-untracked-section-map
+  :doc "Keymap for the `untracked' section."
+  "<remap> <magit-delete-thing>" #'magit-discard
+  "<remap> <magit-stage-file>"   #'magit-stage
+  "<2>" (magit-menu-item "Discard files" #'magit-discard)
+  "<1>" (magit-menu-item "Stage files"   #'magit-stage))
+
+(magit-define-section-jumper magit-jump-to-untracked
+  "Untracked files" untracked nil magit-insert-untracked-files)
+
+(magit-define-section-jumper magit-jump-to-tracked
+  "Tracked files" tracked nil magit-insert-tracked-files)
+
+(magit-define-section-jumper magit-jump-to-ignored
+  "Ignored files" ignored nil magit-insert-ignored-files)
+
+(magit-define-section-jumper magit-jump-to-skip-worktree
+  "Skip-worktree files" skip-worktree nil magit-insert-skip-worktree-files)
+
+(magit-define-section-jumper magit-jump-to-assume-unchanged
+  "Assume-unchanged files" assume-unchanged nil
+  magit-insert-assume-unchanged-files)
+
+(defun magit-insert-untracked-files ()
+  "Maybe insert a list or tree of untracked files.
+
+Do so depending on the value of `status.showUntrackedFiles'.  Note
+that even if the value is `all', Magit still initially only shows
+directories.  But the directory sections can then be expanded using
+\"TAB\".
+
+If the first element of `magit-buffer-diff-files' is a directory, then
+limit the list to files below that.  The value of that variable can be
+set using \"D -- DIRECTORY RET g\"."
+  (let ((show (or (magit-get "status.showUntrackedFiles") "normal")))
+    (unless (equal show "no")
+      (let* ((all (equal show "all"))
+             (base (car magit-buffer-diff-files))
+             (base (and base (file-directory-p base) base)))
+        (magit-insert-files 'untracked
+                            (lambda () (magit-untracked-files nil base (not all)))
+                            (not all))))))
+
+(defun magit-insert-tracked-files ()
+  "Insert a tree of tracked files.
+
+If the first element of `magit-buffer-diff-files' is a
+directory, then limit the list to files below that.  The value
+value of that variable can be set using \"D -- DIRECTORY RET g\"."
+  (magit-insert-files 'tracked #'magit-list-files))
+
+(defun magit-insert-ignored-files ()
+  "Insert a tree of ignored files.
+
+If the first element of `magit-buffer-diff-files' is a
+directory, then limit the list to files below that.  The value
+of that variable can be set using \"D -- DIRECTORY RET g\"."
+  (magit-insert-files 'ignored #'magit-ignored-files))
+
+(defun magit-insert-skip-worktree-files ()
+  "Insert a tree of skip-worktree files.
+
+If the first element of `magit-buffer-diff-files' is a
+directory, then limit the list to files below that.  The value
+of that variable can be set using \"D -- DIRECTORY RET g\"."
+  (magit-insert-files 'skip-worktree #'magit-skip-worktree-files))
+
+(defun magit-insert-assume-unchanged-files ()
+  "Insert a tree of files that are assumed to be unchanged.
+
+If the first element of `magit-buffer-diff-files' is a
+directory, then limit the list to files below that.  The value
+of that variable can be set using \"D -- DIRECTORY RET g\"."
+  (magit-insert-files 'assume-unchanged #'magit-assume-unchanged-files))
+
+(defvar magit-file-section-indent nil
+  "Indentation used for simple `file' sections.
+If non-nil, this must be a string or character, and is used as
+indentation of `file' sections inserted by `magit-insert-*-files'.
+`file' sections that are part of diffs are not affected.  This is mainly
+intended as a workaround for https://github.com/magit/magit/issues/5176,
+in which case ?\N{ZERO WIDTH SPACE} is a good value.")
+
+(defun magit-insert-files (type fn &optional nogroup)
+  (when-let ((files (funcall fn)))
+    (let* ((base (car magit-buffer-diff-files))
+           (base (and base (file-directory-p base) base))
+           (title (symbol-name type)))
+      (magit-insert-section ((eval type) nil t)
+        (magit-insert-heading (length files)
+          (format "%c%s files"
+                  (capitalize (aref title 0))
+                  (substring title 1)))
+        (magit-insert-files-1 files base nogroup)
+        (insert ?\n)))))
+
+(defun magit-insert-files-1 (files directory &optional nogroup)
+  (while (and files (or nogroup
+                        (not directory)
+                        (string-prefix-p directory (car files))))
+    (let ((dir (file-name-directory (car files))))
+      (if (or nogroup (equal dir directory))
+          (let ((file (pop files)))
+            (magit-insert-section (file file)
+              (when magit-file-section-indent
+                (insert magit-file-section-indent))
+              (insert (propertize file 'font-lock-face 'magit-filename) ?\n)))
+        (magit-insert-section (file dir t)
+          (when magit-file-section-indent
+            (insert magit-file-section-indent))
+          (insert (propertize dir 'file 'magit-filename) ?\n)
+          (magit-insert-heading)
+          (setq files (magit-insert-files-1 files dir))))))
+  files)
+
+;;; _
+(provide 'magit-status)
+;;; magit-status.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-status.elc b/emacs/elpa/magit-20241124.1509/magit-status.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-submodule.el b/emacs/elpa/magit-20241124.1509/magit-submodule.el
@@ -0,0 +1,726 @@
+;;; magit-submodule.el --- Submodule support for Magit  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'magit)
+
+(defvar x-stretch-cursor)
+
+;;; Options
+
+(defcustom magit-module-sections-hook
+  '(magit-insert-modules-overview
+    magit-insert-modules-unpulled-from-upstream
+    magit-insert-modules-unpulled-from-pushremote
+    magit-insert-modules-unpushed-to-upstream
+    magit-insert-modules-unpushed-to-pushremote)
+  "Hook run by `magit-insert-modules'.
+
+That function isn't part of `magit-status-sections-hook's default
+value, so you have to add it yourself for this hook to have any
+effect."
+  :package-version '(magit . "2.11.0")
+  :group 'magit-status
+  :type 'hook)
+
+(defcustom magit-module-sections-nested t
+  "Whether `magit-insert-modules' wraps inserted sections.
+
+If this is non-nil, then only a single top-level section
+is inserted.  If it is nil, then all sections listed in
+`magit-module-sections-hook' become top-level sections."
+  :package-version '(magit . "2.11.0")
+  :group 'magit-status
+  :type 'boolean)
+
+(defcustom magit-submodule-list-mode-hook '(hl-line-mode)
+  "Hook run after entering Magit-Submodule-List mode."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-repolist
+  :type 'hook
+  :get 'magit-hook-custom-get
+  :options '(hl-line-mode))
+
+(defcustom magit-submodule-list-columns
+  '(("Path"     25 magit-modulelist-column-path
+     ())
+    ("Version"  25 magit-repolist-column-version
+     ((:sort magit-repolist-version<)))
+    ("Branch"   20 magit-repolist-column-branch
+     ())
+    ("B<P" 3 magit-repolist-column-unpulled-from-pushremote
+     ((:right-align t)
+      (:sort <)))
+    ("B<U" 3 magit-repolist-column-unpulled-from-upstream
+     ((:right-align t)
+      (:sort <)))
+    ("B>P" 3 magit-repolist-column-unpushed-to-pushremote
+     ((:right-align t)
+      (:sort <)))
+    ("B>U" 3 magit-repolist-column-unpushed-to-upstream
+     ((:right-align t)
+      (:sort <)))
+    ("S"   3 magit-repolist-column-stashes
+     ((:right-align t)
+      (:sort <)))
+    ("B"   3 magit-repolist-column-branches
+     ((:right-align t)
+      (:sort <))))
+  "List of columns displayed by `magit-list-submodules'.
+
+Each element has the form (HEADER WIDTH FORMAT PROPS).
+
+HEADER is the string displayed in the header.  WIDTH is the width
+of the column.  FORMAT is a function that is called with one
+argument, the repository identification (usually its basename),
+and with `default-directory' bound to the toplevel of its working
+tree.  It has to return a string to be inserted or nil.  PROPS is
+an alist that supports the keys `:right-align', `:pad-right' and
+`:sort'.
+
+The `:sort' function has a weird interface described in the
+docstring of `tabulated-list--get-sort'.  Alternatively `<' and
+`magit-repolist-version<' can be used as those functions are
+automatically replaced with functions that satisfy the interface.
+Set `:sort' to nil to inhibit sorting; if unspecified, then the
+column is sortable using the default sorter.
+
+You may wish to display a range of numeric columns using just one
+character per column and without any padding between columns, in
+which case you should use an appropriate HEADER, set WIDTH to 1,
+and set `:pad-right' to 0.  \"+\" is substituted for numbers higher
+than 9."
+  :package-version '(magit . "2.8.0")
+  :group 'magit-repolist
+  :type `(repeat (list :tag "Column"
+                       (string   :tag "Header Label")
+                       (integer  :tag "Column Width")
+                       (function :tag "Inserter Function")
+                       (repeat   :tag "Properties"
+                                 (list (choice :tag "Property"
+                                               (const :right-align)
+                                               (const :pad-right)
+                                               (const :sort)
+                                               (symbol))
+                                       (sexp   :tag "Value"))))))
+
+(defcustom magit-submodule-list-sort-key '("Path" . nil)
+  "Initial sort key for buffer created by `magit-list-submodules'.
+If nil, no additional sorting is performed.  Otherwise, this
+should be a cons cell (NAME . FLIP).  NAME is a string matching
+one of the column names in `magit-submodule-list-columns'.  FLIP,
+if non-nil, means to invert the resulting sort."
+  :package-version '(magit . "3.2.0")
+  :group 'magit-repolist
+  :type '(choice (const nil)
+                 (cons (string :tag "Column name")
+                       (boolean :tag "Flip order"))))
+
+(defvar magit-submodule-list-format-path-functions nil)
+
+(defcustom magit-submodule-remove-trash-gitdirs nil
+  "Whether `magit-submodule-remove' offers to trash module gitdirs.
+
+If this is nil, then that command does not offer to do so unless
+a prefix argument is used.  When this is t, then it does offer to
+do so even without a prefix argument.
+
+In both cases the action still has to be confirmed unless that is
+disabled using the option `magit-no-confirm'.  Doing the latter
+and also setting this variable to t will lead to tears."
+  :package-version '(magit . "2.90.0")
+  :group 'magit-commands
+  :type 'boolean)
+
+;;; Popup
+
+;;;###autoload (autoload 'magit-submodule "magit-submodule" nil t)
+(transient-define-prefix magit-submodule ()
+  "Act on a submodule."
+  :man-page "git-submodule"
+  ["Arguments"
+   ("-f" "Force"            ("-f" "--force"))
+   ("-r" "Recursive"        "--recursive")
+   ("-N" "Do not fetch"     ("-N" "--no-fetch"))
+   ("-C" "Checkout tip"     "--checkout")
+   ("-R" "Rebase onto tip"  "--rebase")
+   ("-M" "Merge tip"        "--merge")
+   ("-U" "Use upstream tip" "--remote")]
+  ["One module actions"
+   ("a" magit-submodule-add)
+   ("r" magit-submodule-register)
+   ("p" magit-submodule-populate)
+   ("u" magit-submodule-update)
+   ("s" magit-submodule-synchronize)
+   ("d" magit-submodule-unpopulate)
+   ("k" "Remove" magit-submodule-remove)]
+  ["Populated modules actions"
+   ("l" "List modules"  magit-list-submodules)
+   ("f" "Fetch modules" magit-fetch-modules)])
+
+(defun magit-submodule-arguments (&rest filters)
+  (--filter (and (member it filters) it)
+            (transient-args 'magit-submodule)))
+
+(defclass magit--git-submodule-suffix (transient-suffix)
+  ())
+
+(cl-defmethod transient-format-description ((obj magit--git-submodule-suffix))
+  (let ((value (delq nil (mapcar #'transient-infix-value transient--suffixes))))
+    (replace-regexp-in-string
+     "\\[--[^]]+\\]"
+     (lambda (match)
+       (format (propertize "[%s]" 'face 'transient-inactive-argument)
+               (mapconcat (lambda (arg)
+                            (propertize arg 'face
+                                        (if (member arg value)
+                                            'transient-argument
+                                          'transient-inactive-argument)))
+                          (save-match-data
+                            (split-string (substring match 1 -1) "|"))
+                          (propertize "|" 'face 'transient-inactive-argument))))
+     (cl-call-next-method obj))))
+
+;;;###autoload (autoload 'magit-submodule-add "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-add (url &optional path name args)
+  "Add the repository at URL as a module.
+
+Optional PATH is the path to the module relative to the root of
+the superproject.  If it is nil, then the path is determined
+based on the URL.  Optional NAME is the name of the module.  If
+it is nil, then PATH also becomes the name."
+  :class 'magit--git-submodule-suffix
+  :description "Add            git submodule add [--force]"
+  (interactive
+   (magit-with-toplevel
+     (let* ((url (magit-read-string-ns "Add submodule (remote url)"))
+            (path (let ((read-file-name-function
+                         (if (or (eq read-file-name-function 'ido-read-file-name)
+                                 (advice-function-member-p
+                                  'ido-read-file-name
+                                  read-file-name-function))
+                             ;; The Ido variant doesn't work properly here.
+                             #'read-file-name-default
+                           read-file-name-function)))
+                    (directory-file-name
+                     (file-relative-name
+                      (read-directory-name
+                       "Add submodules at path: " nil nil nil
+                       (and (string-match "\\([^./]+\\)\\(\\.git\\)?$" url)
+                            (match-string 1 url))))))))
+       (list url
+             (directory-file-name path)
+             (magit-submodule-read-name-for-path path)
+             (magit-submodule-arguments "--force")))))
+  (magit-submodule-add-1 url path name args))
+
+(defun magit-submodule-add-1 (url &optional path name args)
+  (magit-with-toplevel
+    (magit-submodule--maybe-reuse-gitdir name path)
+    (magit-run-git-async "submodule" "add"
+                         (and name (list "--name" name))
+                         args "--" url path)
+    (set-process-sentinel
+     magit-this-process
+     (lambda (process event)
+       (when (memq (process-status process) '(exit signal))
+         (if (> (process-exit-status process) 0)
+             (magit-process-sentinel process event)
+           (process-put process 'inhibit-refresh t)
+           (magit-process-sentinel process event)
+           (when (magit-git-version>= "2.12.0")
+             (magit-call-git "submodule" "absorbgitdirs" path))
+           (magit-refresh)))))))
+
+;;;###autoload
+(defun magit-submodule-read-name-for-path (path &optional prefer-short)
+  (let* ((path (directory-file-name (file-relative-name path)))
+         (name (file-name-nondirectory path)))
+    (push (if prefer-short path name) minibuffer-history)
+    (magit-read-string-ns
+     "Submodule name" nil (cons 'minibuffer-history 2)
+     (or (--keep (pcase-let ((`(,var ,val) (split-string it "=")))
+                   (and (equal val path)
+                        (cadr (split-string var "\\."))))
+                 (magit-git-lines "config" "--list" "-f" ".gitmodules"))
+         (if prefer-short name path)))))
+
+;;;###autoload (autoload 'magit-submodule-register "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-register (modules)
+  "Register MODULES.
+
+With a prefix argument act on all suitable modules.  Otherwise,
+if the region selects modules, then act on those.  Otherwise, if
+there is a module at point, then act on that.  Otherwise read a
+single module from the user."
+  ;; This command and the underlying "git submodule init" do NOT
+  ;; "initialize" modules.  They merely "register" modules in the
+  ;; super-projects $GIT_DIR/config file, the purpose of which is to
+  ;; allow users to change such values before actually initializing
+  ;; the modules.
+  :description "Register       git submodule init"
+  (interactive
+   (list (magit-module-confirm "Register" 'magit-module-no-worktree-p)))
+  (magit-with-toplevel
+    (magit-run-git-async "submodule" "init" "--" modules)))
+
+;;;###autoload (autoload 'magit-submodule-populate "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-populate (modules args)
+  "Create MODULES working directories, checking out the recorded commits.
+
+With a prefix argument act on all suitable modules.  Otherwise,
+if the region selects modules, then act on those.  Otherwise, if
+there is a module at point, then act on that.  Otherwise read a
+single module from the user."
+  ;; This is the command that actually "initializes" modules.
+  ;; A module is initialized when it has a working directory,
+  ;; a gitlink, and a .gitmodules entry.
+  :class 'magit--git-submodule-suffix
+  :description "Populate       git submodule update --init [--recursive]"
+  (interactive
+   (list (magit-module-confirm "Populate" 'magit-module-no-worktree-p)
+         (magit-submodule-arguments "--recursive")))
+  (magit-with-toplevel
+    (magit-run-git-async "submodule" "update" "--init" args "--" modules)))
+
+;;;###autoload (autoload 'magit-submodule-update "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-update (modules args)
+  "Update MODULES by checking out the recorded commits.
+
+With a prefix argument act on all suitable modules.  Otherwise,
+if the region selects modules, then act on those.  Otherwise, if
+there is a module at point, then act on that.  Otherwise read a
+single module from the user."
+  ;; Unlike `git-submodule's `update' command ours can only update
+  ;; "initialized" modules by checking out other commits but not
+  ;; "initialize" modules by creating the working directories.
+  ;; To do the latter we provide the "setup" command.
+  :class 'magit--git-submodule-suffix
+  :description "Update         git submodule update [--force] [--no-fetch]
+                     [--remote] [--recursive] [--checkout|--rebase|--merge]"
+  (interactive
+   (list (magit-module-confirm "Update" 'magit-module-worktree-p)
+         (magit-submodule-arguments
+          "--force" "--remote" "--recursive" "--checkout" "--rebase" "--merge"
+          "--no-fetch")))
+  (magit-with-toplevel
+    (magit-run-git-async "submodule" "update" args "--" modules)))
+
+;;;###autoload (autoload 'magit-submodule-synchronize "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-synchronize (modules args)
+  "Synchronize url configuration of MODULES.
+
+With a prefix argument act on all suitable modules.  Otherwise,
+if the region selects modules, then act on those.  Otherwise, if
+there is a module at point, then act on that.  Otherwise read a
+single module from the user."
+  :class 'magit--git-submodule-suffix
+  :description "Synchronize    git submodule sync [--recursive]"
+  (interactive
+   (list (magit-module-confirm "Synchronize" 'magit-module-worktree-p)
+         (magit-submodule-arguments "--recursive")))
+  (magit-with-toplevel
+    (magit-run-git-async "submodule" "sync" args "--" modules)))
+
+;;;###autoload (autoload 'magit-submodule-unpopulate "magit-submodule" nil t)
+(transient-define-suffix magit-submodule-unpopulate (modules args)
+  "Remove working directories of MODULES.
+
+With a prefix argument act on all suitable modules.  Otherwise,
+if the region selects modules, then act on those.  Otherwise, if
+there is a module at point, then act on that.  Otherwise read a
+single module from the user."
+  ;; Even when a submodule is "uninitialized" (it has no worktree)
+  ;; the super-project's $GIT_DIR/config may never-the-less set the
+  ;; module's url.  This may happen if you `deinit' and then `init'
+  ;; to register (NOT initialize).  Because the purpose of `deinit'
+  ;; is to remove the working directory AND to remove the url, this
+  ;; command does not limit itself to modules that have no working
+  ;; directory.
+  :class 'magit--git-submodule-suffix
+  :description "Unpopulate     git submodule deinit [--force]"
+  (interactive
+   (list (magit-module-confirm "Unpopulate")
+         (magit-submodule-arguments "--force")))
+  (magit-with-toplevel
+    (magit-run-git-async "submodule" "deinit" args "--" modules)))
+
+;;;###autoload
+(defun magit-submodule-remove (modules args trash-gitdirs)
+  "Unregister MODULES and remove their working directories.
+
+For safety reasons, do not remove the gitdirs and if a module has
+uncommitted changes, then do not remove it at all.  If a module's
+gitdir is located inside the working directory, then move it into
+the gitdir of the superproject first.
+
+With the \"--force\" argument offer to remove dirty working
+directories and with a prefix argument offer to delete gitdirs.
+Both actions are very dangerous and have to be confirmed.  There
+are additional safety precautions in place, so you might be able
+to recover from making a mistake here, but don't count on it."
+  (interactive
+   (list (if-let ((modules (magit-region-values 'magit-module-section t)))
+             (magit-confirm 'remove-modules nil "Remove %d modules" nil modules)
+           (list (magit-read-module-path "Remove module")))
+         (magit-submodule-arguments "--force")
+         current-prefix-arg))
+  (when (magit-git-version< "2.12.0")
+    (error "This command requires Git v2.12.0"))
+  (when magit-submodule-remove-trash-gitdirs
+    (setq trash-gitdirs t))
+  (magit-with-toplevel
+    (when-let
+        ((modified
+          (seq-filter (lambda (module)
+                        (let ((default-directory (file-name-as-directory
+                                                  (expand-file-name module))))
+                          (and (cddr (directory-files default-directory))
+                               (magit-anything-modified-p))))
+                      modules)))
+      (if (member "--force" args)
+          (if (magit-confirm 'remove-dirty-modules
+                "Remove dirty module %s"
+                "Remove %d dirty modules"
+                t modified)
+              (dolist (module modified)
+                (let ((default-directory (file-name-as-directory
+                                          (expand-file-name module))))
+                  (magit-git "stash" "push"
+                             "-m" "backup before removal of this module")))
+            (setq modules (cl-set-difference modules modified :test #'equal)))
+        (if (cdr modified)
+            (message "Omitting %s modules with uncommitted changes: %s"
+                     (length modified)
+                     (string-join modified ", "))
+          (message "Omitting module %s, it has uncommitted changes"
+                   (car modified)))
+        (setq modules (cl-set-difference modules modified :test #'equal))))
+    (when modules
+      (let ((alist
+             (and trash-gitdirs
+                  (--map (split-string it "\0")
+                         (magit-git-lines "submodule" "foreach" "-q"
+                                          "printf \"$sm_path\\0$name\n\"")))))
+        (magit-git "submodule" "absorbgitdirs" "--" modules)
+        (magit-git "submodule" "deinit" args "--" modules)
+        (magit-git "rm" args "--" modules)
+        (when (and trash-gitdirs
+                   (magit-confirm 'trash-module-gitdirs
+                     "Trash gitdir of module %s"
+                     "Trash gitdirs of %d modules"
+                     t modules))
+          (dolist (module modules)
+            (if-let ((name (cadr (assoc module alist))))
+                ;; Disregard if `magit-delete-by-moving-to-trash'
+                ;; is nil.  Not doing so would be too dangerous.
+                (delete-directory (convert-standard-filename
+                                   (expand-file-name
+                                    (concat "modules/" name)
+                                    (magit-gitdir)))
+                                  t t)
+              (error "BUG: Weird module name and/or path for %s" module)))))
+      (magit-refresh))))
+
+;;; Sections
+
+;;;###autoload
+(defun magit-insert-modules ()
+  "Insert submodule sections.
+Hook `magit-module-sections-hook' controls which module sections
+are inserted, and option `magit-module-sections-nested' controls
+whether they are wrapped in an additional section."
+  (when-let ((modules (magit-list-module-paths)))
+    (if magit-module-sections-nested
+        (magit-insert-section (modules nil t)
+          (magit-insert-heading
+            (format "%s (%s)"
+                    (propertize "Modules"
+                                'font-lock-face 'magit-section-heading)
+                    (length modules)))
+          (magit-insert-section-body
+            (magit--insert-modules)))
+      (magit--insert-modules))))
+
+(defun magit--insert-modules (&optional _section)
+  (magit-run-section-hook 'magit-module-sections-hook))
+
+;;;###autoload
+(defun magit-insert-modules-overview ()
+  "Insert sections for all modules.
+For each section insert the path and the output of `git describe --tags',
+or, failing that, the abbreviated HEAD commit hash."
+  (when-let ((modules (magit-list-module-paths)))
+    (magit-insert-section (modules nil t)
+      (magit-insert-heading
+        (format "%s (%s)"
+                (propertize "Modules overview"
+                            'font-lock-face 'magit-section-heading)
+                (length modules)))
+      (magit-insert-section-body
+        (magit--insert-modules-overview)))))
+
+(defvar magit-modules-overview-align-numbers t)
+
+(defun magit--insert-modules-overview (&optional _section)
+  (magit-with-toplevel
+    (let* ((modules (magit-list-module-paths))
+           (path-format (format "%%-%ds "
+                                (min (apply #'max (mapcar #'length modules))
+                                     (/ (window-width) 2))))
+           (branch-format (format "%%-%ds " (min 25 (/ (window-width) 3)))))
+      (dolist (module modules)
+        (let ((default-directory
+               (expand-file-name (file-name-as-directory module))))
+          (magit-insert-section (module module t)
+            (insert (propertize (format path-format module)
+                                'font-lock-face 'magit-diff-file-heading))
+            (if (not (file-exists-p ".git"))
+                (insert "(unpopulated)")
+              (insert
+               (format
+                branch-format
+                (if-let ((branch (magit-get-current-branch)))
+                    (propertize branch 'font-lock-face 'magit-branch-local)
+                  (propertize "(detached)" 'font-lock-face 'warning))))
+              (if-let ((desc (magit-git-string "describe" "--tags")))
+                  (progn (when (and magit-modules-overview-align-numbers
+                                    (string-match-p "\\`[0-9]" desc))
+                           (insert ?\s))
+                         (insert (propertize desc 'font-lock-face 'magit-tag)))
+                (when-let ((abbrev (magit-rev-format "%h")))
+                  (insert (propertize abbrev 'font-lock-face 'magit-hash)))))
+            (insert ?\n))))))
+  (insert ?\n))
+
+(defvar-keymap magit-modules-section-map
+  :doc "Keymap for `modules' sections."
+  "<remap> <magit-visit-thing>" #'magit-list-submodules
+  "<1>" (magit-menu-item "List %t" #'magit-list-submodules))
+
+(defvar-keymap magit-module-section-map
+  :doc "Keymap for `module' sections."
+  "C-j"        #'magit-submodule-visit
+  "C-<return>" #'magit-submodule-visit
+  "<remap> <magit-unstage-file>" #'magit-unstage
+  "<remap> <magit-stage-file>"   #'magit-stage
+  "<remap> <magit-visit-thing>"  #'magit-submodule-visit
+  "<5>" (magit-menu-item "Module commands..." #'magit-submodule)
+  "<4>" '(menu-item "--")
+  "<3>" (magit-menu-item "Unstage %T" #'magit-unstage
+                         '(:visible (eq (magit-diff-type) 'staged)))
+  "<2>" (magit-menu-item "Stage %T" #'magit-stage
+                         '(:visible (eq (magit-diff-type) 'unstaged)))
+  "<1>" (magit-menu-item "Visit %s" #'magit-submodule-visit))
+
+(defun magit-submodule-visit (module &optional other-window)
+  "Visit MODULE by calling `magit-status' on it.
+Offer to initialize MODULE if it's not checked out yet.
+With a prefix argument, visit in another window."
+  (interactive (list (or (magit-section-value-if 'module)
+                         (magit-read-module-path "Visit module"))
+                     current-prefix-arg))
+  (magit-with-toplevel
+    (let ((path (expand-file-name module)))
+      (cond
+       ((file-exists-p (expand-file-name ".git" module))
+        (magit-diff-visit-directory path other-window))
+       ((y-or-n-p (format "Initialize submodule '%s' first?" module))
+        (magit-run-git-async "submodule" "update" "--init" "--" module)
+        (set-process-sentinel
+         magit-this-process
+         (lambda (process event)
+           (let ((magit-process-raise-error t))
+             (magit-process-sentinel process event))
+           (when (and (eq (process-status      process) 'exit)
+                      (=  (process-exit-status process) 0))
+             (magit-diff-visit-directory path other-window)))))
+       ((file-exists-p path)
+        (dired-jump other-window (concat path "/.")))))))
+
+;;;###autoload
+(defun magit-insert-modules-unpulled-from-upstream ()
+  "Insert sections for modules that haven't been pulled from the upstream.
+These sections can be expanded to show the respective commits."
+  (magit--insert-modules-logs "Modules unpulled from @{upstream}"
+                              'modules-unpulled-from-upstream
+                              "HEAD..@{upstream}"))
+
+;;;###autoload
+(defun magit-insert-modules-unpulled-from-pushremote ()
+  "Insert sections for modules that haven't been pulled from the push-remote.
+These sections can be expanded to show the respective commits."
+  (magit--insert-modules-logs "Modules unpulled from @{push}"
+                              'modules-unpulled-from-pushremote
+                              "HEAD..@{push}"))
+
+;;;###autoload
+(defun magit-insert-modules-unpushed-to-upstream ()
+  "Insert sections for modules that haven't been pushed to the upstream.
+These sections can be expanded to show the respective commits."
+  (magit--insert-modules-logs "Modules unmerged into @{upstream}"
+                              'modules-unpushed-to-upstream
+                              "@{upstream}..HEAD"))
+
+;;;###autoload
+(defun magit-insert-modules-unpushed-to-pushremote ()
+  "Insert sections for modules that haven't been pushed to the push-remote.
+These sections can be expanded to show the respective commits."
+  (magit--insert-modules-logs "Modules unpushed to @{push}"
+                              'modules-unpushed-to-pushremote
+                              "@{push}..HEAD"))
+
+(defun magit--insert-modules-logs (heading type range)
+  "For internal use, don't add to a hook."
+  (when-let (((not (magit-ignore-submodules-p)))
+             (modules (magit-list-module-paths)))
+    (magit-insert-section ((eval type) nil t)
+      (string-match "\\`\\(.+\\) \\([^ ]+\\)\\'" heading)
+      (magit-insert-heading
+        (propertize (match-string 1 heading)
+                    'font-lock-face 'magit-section-heading)
+        " "
+        (propertize (match-string 2 heading)
+                    'font-lock-face 'magit-branch-remote)
+        ":")
+      (dolist (module modules)
+        (when-let* ((default-directory (expand-file-name module))
+                    ((file-exists-p (expand-file-name ".git")))
+                    (lines (magit-git-lines "-c" "push.default=current"
+                                            "log" "--oneline" range))
+                    (count (length lines))
+                    ((> count 0)))
+          (magit-insert-section
+              ( module module t
+                :range range)
+            (magit-insert-heading count
+              (propertize module 'font-lock-face 'magit-diff-file-heading))
+            (dolist (line lines)
+              (string-match magit-log-module-re line)
+              (let ((rev (match-string 1 line))
+                    (msg (match-string 2 line)))
+                (magit-insert-section (module-commit rev t)
+                  (insert (propertize rev 'font-lock-face 'magit-hash) " "
+                          (funcall magit-log-format-message-function rev msg)
+                          "\n")))))))
+      (magit-cancel-section 'if-empty)
+      (insert ?\n))))
+
+;;; List
+
+;;;###autoload
+(defun magit-list-submodules ()
+  "Display a list of the current repository's populated submodules."
+  (interactive)
+  (magit-submodule-list-setup magit-submodule-list-columns))
+
+(defvar-keymap magit-submodule-list-mode-map
+  :doc "Local keymap for Magit-Submodule-List mode buffers."
+  :parent magit-repolist-mode-map)
+
+(define-derived-mode magit-submodule-list-mode tabulated-list-mode "Modules"
+  "Major mode for browsing a list of Git submodules."
+  :interactive nil
+  :group 'magit-repolist
+  (setq-local x-stretch-cursor nil)
+  (setq tabulated-list-padding 0)
+  (add-hook 'tabulated-list-revert-hook #'magit-submodule-list-refresh nil t)
+  (setq imenu-prev-index-position-function
+        #'magit-repolist--imenu-prev-index-position)
+  (setq imenu-extract-index-name-function #'tabulated-list-get-id))
+
+(defvar-local magit-submodule-list-predicate nil)
+
+(defun magit-submodule-list-setup (columns &optional predicate)
+  (magit-display-buffer
+   (or (magit-get-mode-buffer 'magit-submodule-list-mode)
+       (magit-generate-new-buffer 'magit-submodule-list-mode)))
+  (magit-submodule-list-mode)
+  (setq-local magit-repolist-columns columns)
+  (setq-local magit-repolist-sort-key magit-submodule-list-sort-key)
+  (setq-local magit-submodule-list-predicate predicate)
+  (magit-repolist-setup-1)
+  (magit-submodule-list-refresh))
+
+(defun magit-submodule-list-refresh ()
+  (setq tabulated-list-entries
+        (seq-keep
+         (lambda (module)
+           (let ((default-directory
+                  (expand-file-name (file-name-as-directory module))))
+             (and (file-exists-p ".git")
+                  (or (not magit-submodule-list-predicate)
+                      (funcall magit-submodule-list-predicate module))
+                  (list module
+                        (vconcat
+                         (mapcar (pcase-lambda (`(,title ,width ,fn ,props))
+                                   (or (funcall fn `((:path  ,module)
+                                                     (:title ,title)
+                                                     (:width ,width)
+                                                     ,@props))
+                                       ""))
+                                 magit-repolist-columns))))))
+         (magit-list-module-paths)))
+  (message "Listing submodules...")
+  (tabulated-list-init-header)
+  (tabulated-list-print t)
+  (message "Listing submodules...done"))
+
+(defun magit-modulelist-column-path (spec)
+  "Insert the relative path of the submodule."
+  (let ((path (cadr (assq :path spec))))
+    (or (run-hook-with-args-until-success
+         'magit-submodule-list-format-path-functions path)
+        path)))
+
+;;; Utilities
+
+(defun magit-submodule--maybe-reuse-gitdir (name path)
+  (let ((gitdir (convert-standard-filename
+                 (expand-file-name (concat "modules/" name)
+                                   (magit-gitdir)))))
+    (when (and (file-exists-p gitdir)
+               (not (file-exists-p path)))
+      (pcase (read-char-choice
+              (concat
+               gitdir " already exists.\n"
+               "Type [u] to use the existing gitdir and create the working tree\n"
+               "     [r] to rename the existing gitdir and clone again\n"
+               "     [t] to trash the existing gitdir and clone again\n"
+               "   [C-g] to abort ")
+              '(?u ?r ?t))
+        (?u (magit-submodule--restore-worktree (expand-file-name path) gitdir))
+        (?r (rename-file gitdir (concat gitdir "-"
+                                        (format-time-string "%F-%T"))))
+        (?t (delete-directory gitdir t t))))))
+
+(defun magit-submodule--restore-worktree (worktree gitdir)
+  (make-directory worktree t)
+  (with-temp-file (expand-file-name ".git" worktree)
+    (insert "gitdir: " (file-relative-name gitdir worktree) "\n"))
+  (let ((default-directory worktree))
+    (magit-call-git "reset" "--hard" "HEAD" "--")))
+
+;;; _
+(provide 'magit-submodule)
+;;; magit-submodule.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-submodule.elc b/emacs/elpa/magit-20241124.1509/magit-submodule.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-subtree.el b/emacs/elpa/magit-20241124.1509/magit-subtree.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-subtree.elc b/emacs/elpa/magit-20241124.1509/magit-subtree.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit-tag.el b/emacs/elpa/magit-20241124.1509/magit-tag.el
@@ -0,0 +1,248 @@
+;;; magit-tag.el --- Tag functionality  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library implements tag commands.
+
+;;; Code:
+
+(require 'magit)
+
+;; For `magit-tag-delete'.
+(defvar helm-comp-read-use-marked)
+
+;;; Commands
+
+;;;###autoload (autoload 'magit-tag "magit" nil t)
+(transient-define-prefix magit-tag ()
+  "Create or delete a tag."
+  :man-page "git-tag"
+  ["Arguments"
+   ("-f" "Force"        ("-f" "--force"))
+   ("-e" "Edit message" ("-e" "--edit"))
+   ("-a" "Annotate"     ("-a" "--annotate"))
+   ("-s" "Sign"         ("-s" "--sign"))
+   (magit-tag:--local-user)]
+  [["Create"
+    ("t"  "tag"     magit-tag-create)
+    ("r"  "release" magit-tag-release)]
+   ["Do"
+    ("k"  "delete"  magit-tag-delete)
+    ("p"  "prune"   magit-tag-prune)]])
+
+(defun magit-tag-arguments ()
+  (transient-args 'magit-tag))
+
+(transient-define-argument magit-tag:--local-user ()
+  :description "Sign as"
+  :class 'transient-option
+  :shortarg "-u"
+  :argument "--local-user="
+  :reader #'magit-read-gpg-signing-key
+  :history-key 'magit:--gpg-sign)
+
+;;;###autoload
+(defun magit-tag-create (name rev &optional args)
+  "Create a new tag with the given NAME at REV.
+With a prefix argument annotate the tag.
+\n(git tag [--annotate] NAME REV)"
+  (interactive (list (magit-read-tag "Tag name")
+                     (magit-read-branch-or-commit "Place tag on")
+                     (let ((args (magit-tag-arguments)))
+                       (when current-prefix-arg
+                         (cl-pushnew "--annotate" args :test #'equal))
+                       args)))
+  (magit-run-git-with-editor "tag" args name rev))
+
+;;;###autoload
+(defun magit-tag-delete (tags)
+  "Delete one or more tags.
+If the region marks multiple tags (and nothing else), then offer
+to delete those, otherwise prompt for a single tag to be deleted,
+defaulting to the tag at point.
+\n(git tag -d TAGS)"
+  (interactive (list (if-let ((tags (magit-region-values 'tag)))
+                         (magit-confirm t nil "Delete %d tags" nil tags)
+                       (let ((helm-comp-read-use-marked t))
+                         (magit-read-tag "Delete tag" t)))))
+  (magit-run-git "tag" "-d" tags))
+
+;;;###autoload
+(defun magit-tag-prune (tags remote-tags remote)
+  "Offer to delete tags missing locally from REMOTE, and vice versa."
+  (interactive
+   (let* ((remote (magit-read-remote "Prune tags using remote"))
+          (tags   (magit-list-tags))
+          (rtags  (prog2 (message "Determining remote tags...")
+                      (magit-remote-list-tags remote)
+                    (message "Determining remote tags...done")))
+          (ltags  (cl-set-difference tags rtags :test #'equal))
+          (rtags  (cl-set-difference rtags tags :test #'equal)))
+     (unless (or ltags rtags)
+       (message "Same tags exist locally and remotely"))
+     (unless (magit-confirm t
+               "Delete %s locally"
+               "Delete %d tags locally"
+               'noabort ltags)
+       (setq ltags nil))
+     (unless (magit-confirm t
+               "Delete %s from remote"
+               "Delete %d tags from remote"
+               'noabort rtags)
+       (setq rtags nil))
+     (list ltags rtags remote)))
+  (when tags
+    (magit-call-git "tag" "-d" tags))
+  (when remote-tags
+    (magit-run-git-async "push" remote (--map (concat ":" it) remote-tags))))
+
+(defvar magit-tag-version-regexp-alist
+  '(("^[-._+ ]?snapshot\\.?$" . -4)
+    ("^[-._+]$" . -4)
+    ("^[-._+ ]?\\(cvs\\|git\\|bzr\\|svn\\|hg\\|darcs\\)\\.?$" . -4)
+    ("^[-._+ ]?unknown\\.?$" . -4)
+    ("^[-._+ ]?alpha\\.?$" . -3)
+    ("^[-._+ ]?beta\\.?$" . -2)
+    ("^[-._+ ]?\\(pre\\|rc\\)\\.?$" . -1))
+  "Overrides `version-regexp-alist' for `magit-tag-release'.
+See also `magit-release-tag-regexp'.")
+
+(defvar magit-release-tag-regexp "\\`\
+\\(?1:\\(?:v\\(?:ersion\\)?\\|r\\(?:elease\\)?\\)[-_]?\\)?\
+\\(?2:[0-9]+\\(?:\\.[0-9]+\\)*\
+\\(?:-[a-zA-Z0-9-]+\\(?:\\.[a-zA-Z0-9-]+\\)*\\)?\\)\\'"
+  "Regexp used by `magit-tag-release' to parse release tags.
+
+The first submatch must match the prefix, if any.  The second
+submatch must match the version string.
+
+If this matches versions that are not dot separated numbers,
+then `magit-tag-version-regexp-alist' has to contain entries
+for the separators allowed here.")
+
+(defvar magit-release-commit-regexp "\\`Release version \\(.+\\)\\'"
+  "Regexp used by `magit-tag-release' to parse release commit messages.
+The first submatch must match the version string.")
+
+;;;###autoload
+(defun magit-tag-release (tag msg &optional args)
+  "Create a release tag for `HEAD'.
+
+Assume that release tags match `magit-release-tag-regexp'.
+
+If `HEAD's message matches `magit-release-commit-regexp', then
+base the tag on the version string specified by that.  Otherwise
+prompt for the name of the new tag using the highest existing
+tag as initial input and leaving it to the user to increment the
+desired part of the version string.
+
+When creating an annotated tag, prepare a message based on the message
+of the highest existing tag, provided that contains the corresponding
+version string, and substituting the new version string for that.  If
+that is not the case, propose a message using a reasonable format."
+  (interactive
+   (save-match-data
+     (pcase-let*
+         ((args (magit-tag-arguments))
+          (`(,pver ,ptag ,pmsg) (car (magit--list-releases)))
+          (msg (magit-rev-format "%s"))
+          (ver (and (string-match magit-release-commit-regexp msg)
+                    (match-string 1 msg)))
+          (_   (and (not ver)
+                    (require (quote sisyphus) nil t)
+                    (string-match magit-release-commit-regexp
+                                  (magit-rev-format "%s" ptag))
+                    (user-error "Use `sisyphus-create-release' first")))
+          (tag (cond
+                ((not ptag)
+                 ;; Force the user to review the message used for the
+                 ;; initial release tag, in case they do not like the
+                 ;; default format.
+                 (cl-pushnew "--edit" args :test #'equal)
+                 (read-string "Create first release tag: "
+                              (if (and ver (string-match-p "\\`[0-9]" ver))
+                                  (concat "v" ver)
+                                ver)))
+                (ver
+                 (concat (and (string-match magit-release-tag-regexp ptag)
+                              (match-string 1 ptag))
+                         ver))
+                (t
+                 (read-string
+                  (format "Create release tag (previous was %s): " ptag)
+                  ptag))))
+          (ver (and (string-match magit-release-tag-regexp tag)
+                    (match-string 2 tag))))
+       (list tag
+             (and (seq-some (apply-partially
+                             #'string-match-p
+                             "\\`--\\(annotate\\|local-user\\|sign\\)")
+                            args)
+                  (cond ((and pver (string-match (regexp-quote pver) pmsg))
+                         (replace-match ver t t pmsg))
+                        ((and ptag (string-match (regexp-quote ptag) pmsg))
+                         (replace-match tag t t pmsg))
+                        ((format "%s %s"
+                                 (capitalize
+                                  (file-name-nondirectory
+                                   (directory-file-name (magit-toplevel))))
+                                 ver))))
+             args))))
+  (magit-run-git-with-editor "tag" args (and msg (list "-m" msg)) tag)
+  (set-process-sentinel
+   magit-this-process
+   (lambda (process event)
+     (when (memq (process-status process) '(exit signal))
+       (magit-process-sentinel process event)
+       (magit-refs-setup-buffer "HEAD" (magit-show-refs-arguments))))))
+
+(defun magit--list-releases ()
+  "Return a list of releases.
+The list is ordered, beginning with the highest release.
+Each release element has the form (VERSION TAG MESSAGE).
+`magit-release-tag-regexp' is used to determine whether
+a tag qualifies as a release tag."
+  (save-match-data
+    (mapcar
+     #'cdr
+     (nreverse
+      (cl-sort (mapcan
+                (lambda (line)
+                  (and (string-match " +" line)
+                       (let ((tag (substring line 0 (match-beginning 0)))
+                             (msg (substring line (match-end 0))))
+                         (and (string-match magit-release-tag-regexp tag)
+                              (let ((ver (match-string 2 tag))
+                                    (version-regexp-alist
+                                     magit-tag-version-regexp-alist))
+                                (list (list (version-to-list ver)
+                                            ver tag msg)))))))
+                ;; Cannot rely on "--sort=-version:refname" because
+                ;; that gets confused if the version prefix has changed.
+                (magit-git-lines "tag" "-n"))
+               ;; The inverse of this function does not exist.
+               #'version-list-< :key #'car)))))
+
+;;; _
+(provide 'magit-tag)
+;;; magit-tag.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit-tag.elc b/emacs/elpa/magit-20241124.1509/magit-tag.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-transient.el b/emacs/elpa/magit-20241124.1509/magit-transient.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-transient.elc b/emacs/elpa/magit-20241124.1509/magit-transient.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-wip.el b/emacs/elpa/magit-20241124.1509/magit-wip.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-wip.elc b/emacs/elpa/magit-20241124.1509/magit-wip.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241116.1557/magit-worktree.el b/emacs/elpa/magit-20241124.1509/magit-worktree.el
diff --git a/emacs/elpa/magit-20241116.1557/magit-worktree.elc b/emacs/elpa/magit-20241124.1509/magit-worktree.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit.el b/emacs/elpa/magit-20241124.1509/magit.el
@@ -0,0 +1,789 @@
+;;; magit.el --- A Git porcelain inside Emacs  -*- lexical-binding:t; coding:utf-8 -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Marius Vollmer <marius.vollmer@gmail.com>
+;;     Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;;     Kyle Meyer <kyle@kyleam.com>
+;; Former-Maintainers:
+;;     Nicolas Dudebout <nicolas.dudebout@gatech.edu>
+;;     Noam Postavsky <npostavs@users.sourceforge.net>
+;;     Peter J. Weisberg <pj@irregularexpressions.net>
+;;     Phil Jackson <phil@shellarchive.co.uk>
+;;     Rémi Vanicat <vanicat@debian.org>
+;;     Yann Hodique <yann.hodique@gmail.com>
+
+;; Homepage: https://github.com/magit/magit
+;; Keywords: git tools vc
+
+;; Package-Version: 20241124.1509
+;; Package-Revision: 1e17181a21ff
+;; Package-Requires: (
+;;     (emacs "26.1")
+;;     (compat "30.0.0.0")
+;;     (dash "2.19.1")
+;;     (magit-section "4.1.2")
+;;     (seq "2.24")
+;;     (transient "0.7.8")
+;;     (with-editor "3.4.2"))
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;; You should have received a copy of the AUTHORS.md file, which
+;; lists all contributors.  If not, see https://magit.vc/authors.
+
+;;; Commentary:
+
+;; Magit is a text-based Git user interface that puts an unmatched focus
+;; on streamlining workflows.  Commands are invoked using short mnemonic
+;; key sequences that take the cursor’s position in the highly actionable
+;; interface into account to provide context-sensitive behavior.
+
+;; With Magit you can do nearly everything that you can do when using Git
+;; on the command-line, but at greater speed and while taking advantage
+;; of advanced features that previously seemed too daunting to use on a
+;; daily basis.  Many users will find that by using Magit they can become
+;; more effective Git user.
+
+;;; Code:
+
+(require 'magit-core)
+(require 'magit-diff)
+(require 'magit-log)
+(require 'magit-wip)
+(require 'magit-apply)
+(require 'magit-repos)
+(require 'git-commit)
+
+(require 'format-spec)
+(require 'package nil t) ; used in `magit-version'
+(require 'with-editor)
+
+;; For `magit:--gpg-sign'
+(declare-function epg-list-keys "epg" (context &optional name mode))
+(declare-function epg-decode-dn "epg" (alist))
+(defvar epa-protocol)
+
+;;; Options
+
+(defcustom magit-openpgp-default-signing-key nil
+  "Fingerprint of your default Openpgp key used for signing.
+If the specified primary key has signing capacity then it is used
+as the value of the `--gpg-sign' argument without prompting, even
+when other such keys exist.  To be able to select another key you
+must then use a prefix argument."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-commands
+  :type 'string)
+
+;;; Faces
+
+(defface magit-header-line
+  '((t :inherit magit-section-heading))
+  "Face for the `header-line' in some Magit modes.
+Note that some modes, such as `magit-log-select-mode', have their
+own faces for the `header-line', or for parts of the
+`header-line'."
+  :group 'magit-faces)
+
+(defface magit-header-line-key
+  '((t :inherit font-lock-builtin-face))
+  "Face for keys in the `header-line'."
+  :group 'magit-faces)
+
+(defface magit-dimmed
+  '((((class color) (background light)) :foreground "grey50")
+    (((class color) (background  dark)) :foreground "grey50"))
+  "Face for text that shouldn't stand out."
+  :group 'magit-faces)
+
+(defface magit-hash
+  '((((class color) (background light)) :foreground "grey60")
+    (((class color) (background  dark)) :foreground "grey40"))
+  "Face for the commit object name in the log output."
+  :group 'magit-faces)
+
+(defface magit-tag
+  '((((class color) (background light)) :foreground "Goldenrod4")
+    (((class color) (background  dark)) :foreground "LightGoldenrod2"))
+  "Face for tag labels shown in log buffer."
+  :group 'magit-faces)
+
+(defface magit-branch-remote
+  '((((class color) (background light)) :foreground "DarkOliveGreen4")
+    (((class color) (background  dark)) :foreground "DarkSeaGreen2"))
+  "Face for remote branch head labels shown in log buffer."
+  :group 'magit-faces)
+
+(defface magit-branch-remote-head
+  '((((supports (:box t))) :inherit magit-branch-remote :box t)
+    (t                     :inherit magit-branch-remote :inverse-video t))
+  "Face for current branch."
+  :group 'magit-faces)
+
+(defface magit-branch-local
+  '((((class color) (background light)) :foreground "SkyBlue4")
+    (((class color) (background  dark)) :foreground "LightSkyBlue1"))
+  "Face for local branches."
+  :group 'magit-faces)
+
+(defface magit-branch-current
+  '((((supports (:box t))) :inherit magit-branch-local :box t)
+    (t                     :inherit magit-branch-local :inverse-video t))
+  "Face for current branch."
+  :group 'magit-faces)
+
+(defface magit-branch-upstream
+  '((t :slant italic))
+  "Face for upstream branch.
+This face is only used in logs and it gets combined
+ with `magit-branch-local', `magit-branch-remote'
+and/or `magit-branch-remote-head'."
+  :group 'magit-faces)
+
+(defface magit-branch-warning
+  '((t :inherit warning))
+  "Face for warning about (missing) branch."
+  :group 'magit-faces)
+
+(defface magit-head
+  '((((class color) (background light)) :inherit magit-branch-local)
+    (((class color) (background  dark)) :inherit magit-branch-local))
+  "Face for the symbolic ref `HEAD'."
+  :group 'magit-faces)
+
+(defface magit-refname
+  '((((class color) (background light)) :foreground "grey30")
+    (((class color) (background  dark)) :foreground "grey80"))
+  "Face for refnames without a dedicated face."
+  :group 'magit-faces)
+
+(defface magit-refname-stash
+  '((t :inherit magit-refname))
+  "Face for stash refnames."
+  :group 'magit-faces)
+
+(defface magit-refname-wip
+  '((t :inherit magit-refname))
+  "Face for wip refnames."
+  :group 'magit-faces)
+
+(defface magit-refname-pullreq
+  '((t :inherit magit-refname))
+  "Face for pullreq refnames."
+  :group 'magit-faces)
+
+(defface magit-keyword
+  '((t :inherit font-lock-string-face))
+  "Face for parts of commit messages inside brackets."
+  :group 'magit-faces)
+
+(defface magit-keyword-squash
+  '((t :inherit font-lock-warning-face))
+  "Face for squash! and fixup! keywords in commit messages."
+  :group 'magit-faces)
+
+(defface magit-signature-good
+  '((t :foreground "green"))
+  "Face for good signatures."
+  :group 'magit-faces)
+
+(defface magit-signature-bad
+  '((t :foreground "red" :weight bold))
+  "Face for bad signatures."
+  :group 'magit-faces)
+
+(defface magit-signature-untrusted
+  '((t :foreground "medium aquamarine"))
+  "Face for good untrusted signatures."
+  :group 'magit-faces)
+
+(defface magit-signature-expired
+  '((t :foreground "orange"))
+  "Face for signatures that have expired."
+  :group 'magit-faces)
+
+(defface magit-signature-expired-key
+  '((t :inherit magit-signature-expired))
+  "Face for signatures made by an expired key."
+  :group 'magit-faces)
+
+(defface magit-signature-revoked
+  '((t :foreground "violet red"))
+  "Face for signatures made by a revoked key."
+  :group 'magit-faces)
+
+(defface magit-signature-error
+  '((t :foreground "light blue"))
+  "Face for signatures that cannot be checked (e.g., missing key)."
+  :group 'magit-faces)
+
+(defface magit-cherry-unmatched
+  '((t :foreground "cyan"))
+  "Face for unmatched cherry commits."
+  :group 'magit-faces)
+
+(defface magit-cherry-equivalent
+  '((t :foreground "magenta"))
+  "Face for equivalent cherry commits."
+  :group 'magit-faces)
+
+(defface magit-filename
+  '((t :weight normal))
+  "Face for filenames."
+  :group 'magit-faces)
+
+;;; Global Bindings
+
+;;;###autoload
+(defcustom magit-define-global-key-bindings 'default
+  "Which set of key bindings to add to the global keymap, if any.
+
+This option controls which set of Magit key bindings, if any, may
+be added to the global keymap, even before Magit is first used in
+the current Emacs session.
+
+If the value is nil, no bindings are added.
+
+If `default', maybe add:
+
+    C-x g     `magit-status'
+    C-x M-g   `magit-dispatch'
+    C-c M-g   `magit-file-dispatch'
+
+If `recommended', maybe add:
+
+    C-x g     `magit-status'
+    C-c g     `magit-dispatch'
+    C-c f     `magit-file-dispatch'
+
+    These bindings are strongly recommended, but we cannot use
+    them by default, because the \"C-c <LETTER>\" namespace is
+    strictly reserved for bindings added by the user.
+
+The bindings in the chosen set may be added when
+`after-init-hook' is run.  Each binding is added if, and only
+if, at that time no other key is bound to the same command,
+and no other command is bound to the same key.  In other words
+we try to avoid adding bindings that are unnecessary, as well
+as bindings that conflict with other bindings.
+
+Adding these bindings is delayed until `after-init-hook' is
+run to allow users to set the variable anywhere in their init
+file (without having to make sure to do so before `magit' is
+loaded or autoloaded) and to increase the likelihood that all
+the potentially conflicting user bindings have already been
+added.
+
+To set this variable use either `setq' or the Custom interface.
+Do not use the function `customize-set-variable' because doing
+that would cause Magit to be loaded immediately, when that form
+is evaluated (this differs from `custom-set-variables', which
+doesn't load the libraries that define the customized variables).
+
+Setting this variable has no effect if `after-init-hook' has
+already been run."
+  :package-version '(magit . "4.0.0")
+  :group 'magit-essentials
+  :type '(choice (const :tag "Add no binding" nil)
+                 (const :tag "Use default bindings" default)
+                 (const :tag "Use recommended bindings" recommended)))
+
+;;;###autoload
+(progn
+  (defun magit-maybe-define-global-key-bindings (&optional force)
+    "See variable `magit-define-global-key-bindings'."
+    (when magit-define-global-key-bindings
+      (let ((map (current-global-map)))
+        (pcase-dolist (`(,key . ,def)
+                       (cond ((eq magit-define-global-key-bindings 'recommended)
+                              '(("C-x g"   . magit-status)
+                                ("C-c g"   . magit-dispatch)
+                                ("C-c f"   . magit-file-dispatch)))
+                             ('(("C-x g"   . magit-status)
+                                ("C-x M-g" . magit-dispatch)
+                                ("C-c M-g" . magit-file-dispatch)))))
+          ;; This is autoloaded and thus is used before `compat' is
+          ;; loaded, so we cannot use `keymap-lookup' and `keymap-set'.
+          (when (or force
+                    (not (or (lookup-key map (kbd key))
+                             (where-is-internal def (make-sparse-keymap) t))))
+            (define-key map (kbd key) def))))))
+  (if after-init-time
+      (magit-maybe-define-global-key-bindings)
+    (add-hook 'after-init-hook #'magit-maybe-define-global-key-bindings t)))
+
+;;; Dispatch Popup
+
+;;;###autoload (autoload 'magit-dispatch "magit" nil t)
+(transient-define-prefix magit-dispatch ()
+  "Invoke a Magit command from a list of available commands."
+  :info-manual "(magit)Top"
+  ["Transient and dwim commands"
+   ;; → bound in magit-mode-map or magit-section-mode-map
+   ;; ↓ bound below
+   [("A" "Apply"          magit-cherry-pick)
+    ;; a                  ↓
+    ("b" "Branch"         magit-branch)
+    ("B" "Bisect"         magit-bisect)
+    ("c" "Commit"         magit-commit)
+    ("C" "Clone"          magit-clone)
+    ("d" "Diff"           magit-diff)
+    ("D" "Diff (change)"  magit-diff-refresh)
+    ("e" "Ediff (dwim)"   magit-ediff-dwim)
+    ("E" "Ediff"          magit-ediff)
+    ("f" "Fetch"          magit-fetch)
+    ("F" "Pull"           magit-pull)
+    ;; g                  ↓
+    ;; G                → magit-refresh-all
+    ("h" "Help"           magit-info)
+    ("H" "Section info"   magit-describe-section :if-derived magit-mode)]
+   [("i" "Ignore"         magit-gitignore)
+    ("I" "Init"           magit-init)
+    ("j" "Jump to section"magit-status-jump  :if-mode     magit-status-mode)
+    ("j" "Display status" magit-status-quick :if-not-mode magit-status-mode)
+    ("J" "Display buffer" magit-display-repository-buffer)
+    ;; k                  ↓
+    ;; K                → magit-file-untrack
+    ("l" "Log"            magit-log)
+    ("L" "Log (change)"   magit-log-refresh)
+    ("m" "Merge"          magit-merge)
+    ("M" "Remote"         magit-remote)
+    ;; n                → magit-section-forward
+    ;; N       reserved → forge-dispatch
+    ("o" "Submodule"      magit-submodule)
+    ("O" "Subtree"        magit-subtree)
+    ;; p                → magit-section-backward
+    ("P" "Push"           magit-push)
+    ;; q                → magit-mode-bury-buffer
+    ("Q" "Command"        magit-git-command)]
+   [("r" "Rebase"         magit-rebase)
+    ;; R                → magit-file-rename
+    ;; s                  ↓
+    ;; S                  ↓
+    ("t" "Tag"            magit-tag)
+    ("T" "Note"           magit-notes)
+    ;; u                  ↓
+    ;; U                  ↓
+    ;; v                  ↓
+    ("V" "Revert"         magit-revert)
+    ("w" "Apply patches"  magit-am)
+    ("W" "Format patches" magit-patch)
+    ;; x                → magit-reset-quickly
+    ("X" "Reset"          magit-reset)
+    ("y" "Show Refs"      magit-show-refs)
+    ("Y" "Cherries"       magit-cherry)
+    ("z" "Stash"          magit-stash)
+    ("Z" "Worktree"       magit-worktree)
+    ("!" "Run"            magit-run)]]
+  ["Applying changes"
+   :if-derived magit-mode
+   [("a" "Apply"          magit-apply)
+    ("v" "Reverse"        magit-reverse)
+    ("k" "Discard"        magit-discard)]
+   [("s" "Stage"          magit-stage)
+    ("u" "Unstage"        magit-unstage)]
+   [("S" "Stage all"      magit-stage-modified)
+    ("U" "Unstage all"    magit-unstage-all)]]
+  ["Essential commands"
+   :if-derived magit-mode
+   [("g" "       Refresh current buffer"   magit-refresh)
+    ("q" "       Bury current buffer"      magit-mode-bury-buffer)
+    ("<tab>" "   Toggle section at point"  magit-section-toggle)
+    ("<return>" "Visit thing at point"     magit-visit-thing)]
+   [("C-x m"    "Show all key bindings"    describe-mode)
+    ("C-x i"    "Show Info manual"         magit-info)]])
+
+;;; Git Popup
+
+(defcustom magit-shell-command-verbose-prompt t
+  "Whether to show the working directory when reading a command.
+This affects `magit-git-command', `magit-git-command-topdir',
+`magit-shell-command', and `magit-shell-command-topdir'."
+  :package-version '(magit . "2.11.0")
+  :group 'magit-commands
+  :type 'boolean)
+
+(defvar magit-git-command-history nil)
+
+;;;###autoload (autoload 'magit-run "magit" nil t)
+(transient-define-prefix magit-run ()
+  "Run git or another command, or launch a graphical utility."
+  [["Run git subcommand"
+    ("!" "in repository root"   magit-git-command-topdir)
+    ("p" "in working directory" magit-git-command)]
+   ["Run shell command"
+    ("s" "in repository root"   magit-shell-command-topdir)
+    ("S" "in working directory" magit-shell-command)]
+   ["Launch"
+    ("k" "gitk"                 magit-run-gitk)
+    ("a" "gitk --all"           magit-run-gitk-all)
+    ("b" "gitk --branches"      magit-run-gitk-branches)
+    ("g" "git gui"              magit-run-git-gui)
+    ("m" "git mergetool --gui"  magit-git-mergetool)]])
+
+;;;###autoload
+(defun magit-git-command (command)
+  "Execute COMMAND asynchronously; display output.
+
+Interactively, prompt for COMMAND in the minibuffer. \"git \" is
+used as initial input, but can be deleted to run another command.
+
+With a prefix argument COMMAND is run in the top-level directory
+of the current working tree, otherwise in `default-directory'."
+  (interactive (list (magit-read-shell-command nil "git ")))
+  (magit--shell-command command))
+
+;;;###autoload
+(defun magit-git-command-topdir (command)
+  "Execute COMMAND asynchronously; display output.
+
+Interactively, prompt for COMMAND in the minibuffer. \"git \" is
+used as initial input, but can be deleted to run another command.
+
+COMMAND is run in the top-level directory of the current
+working tree."
+  (interactive (list (magit-read-shell-command t "git ")))
+  (magit--shell-command command (magit-toplevel)))
+
+;;;###autoload
+(defun magit-shell-command (command)
+  "Execute COMMAND asynchronously; display output.
+
+Interactively, prompt for COMMAND in the minibuffer.  With a
+prefix argument COMMAND is run in the top-level directory of
+the current working tree, otherwise in `default-directory'."
+  (interactive (list (magit-read-shell-command)))
+  (magit--shell-command command))
+
+;;;###autoload
+(defun magit-shell-command-topdir (command)
+  "Execute COMMAND asynchronously; display output.
+
+Interactively, prompt for COMMAND in the minibuffer.  COMMAND
+is run in the top-level directory of the current working tree."
+  (interactive (list (magit-read-shell-command t)))
+  (magit--shell-command command (magit-toplevel)))
+
+(defun magit--shell-command (command &optional directory)
+  (let ((default-directory (or directory default-directory)))
+    (with-environment-variables (("GIT_PAGER" "cat"))
+      (magit--with-connection-local-variables
+        (magit-with-editor
+          (magit-start-process shell-file-name nil
+                               shell-command-switch command)))))
+  (magit-process-buffer))
+
+(defun magit-read-shell-command (&optional toplevel initial-input)
+  (let ((default-directory
+         (if (or toplevel current-prefix-arg)
+             (or (magit-toplevel)
+                 (magit--not-inside-repository-error))
+           default-directory)))
+    (read-shell-command (if magit-shell-command-verbose-prompt
+                            (format "Async shell command in %s: "
+                                    (abbreviate-file-name default-directory))
+                          "Async shell command: ")
+                        initial-input 'magit-git-command-history)))
+
+;;; Shared Infix Arguments
+
+(transient-define-argument magit:--gpg-sign ()
+  :description "Sign using gpg"
+  :class 'transient-option
+  :shortarg "-S"
+  :argument "--gpg-sign="
+  :allow-empty t
+  :reader #'magit-read-gpg-signing-key)
+
+(defvar magit-gpg-secret-key-hist nil)
+
+(defun magit-read-gpg-secret-key
+    (prompt &optional initial-input history predicate default)
+  (require 'epa)
+  (let* ((keys (mapcan
+                (lambda (cert)
+                  (and (or (not predicate)
+                           (funcall predicate cert))
+                       (let* ((key (car (epg-key-sub-key-list cert)))
+                              (fpr (epg-sub-key-fingerprint key))
+                              (id  (epg-sub-key-id key))
+                              (author
+                               (and-let* ((id-obj
+                                           (car (epg-key-user-id-list cert))))
+                                 (let ((id-str (epg-user-id-string id-obj)))
+                                   (if (stringp id-str)
+                                       id-str
+                                     (epg-decode-dn id-obj))))))
+                         (list
+                          (propertize fpr 'display
+                                      (concat (substring fpr 0 (- (length id)))
+                                              (propertize id 'face 'highlight)
+                                              " " author))))))
+                (epg-list-keys (epg-make-context epa-protocol) nil t)))
+         (choice (or (and (not current-prefix-arg)
+                          (or (and (length= keys 1) (car keys))
+                              (and default (car (member default keys)))))
+                     (completing-read prompt keys nil nil nil
+                                      history nil initial-input))))
+    (set-text-properties 0 (length choice) nil choice)
+    choice))
+
+(defun magit-read-gpg-signing-key (prompt &optional initial-input history)
+  (magit-read-gpg-secret-key
+   prompt initial-input history
+   (lambda (cert)
+     (cl-some (lambda (key)
+                (memq 'sign (epg-sub-key-capability key)))
+              (epg-key-sub-key-list cert)))
+   magit-openpgp-default-signing-key))
+
+;;; Font-Lock Keywords
+
+(defconst magit-font-lock-keywords
+  (eval-when-compile
+    `((,(concat "(\\(magit-define-section-jumper\\)\\_>"
+                "[ \t'(]*"
+                "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
+       (1 'font-lock-keyword-face)
+       (2 'font-lock-function-name-face nil t))
+      (,(concat "(" (regexp-opt '("magit-insert-section"
+                                  "magit-section-case"
+                                  "magit-bind-match-strings"
+                                  "magit-with-temp-index"
+                                  "magit-with-blob"
+                                  "magit-with-toplevel")
+                                t)
+                "\\_>")
+       . 1))))
+
+(font-lock-add-keywords 'emacs-lisp-mode magit-font-lock-keywords)
+
+;;; Version
+
+(defvar magit-version #'undefined
+  "The version of Magit that you're using.
+Use the function by the same name instead of this variable.")
+
+;;;###autoload
+(defun magit-version (&optional print-dest interactive nowarn)
+  "Return the version of Magit currently in use.
+
+If optional argument PRINT-DEST is non-nil, also print the used
+versions of Magit, Transient, Git and Emacs to the output stream
+selected by that argument.  Interactively use the echo area, or
+with a prefix argument use the current buffer.  Additionally put
+the output in the kill ring.
+\n(fn &optional PRINT-DEST)"
+  (interactive (list (if current-prefix-arg (current-buffer) t) t))
+  (let ((magit-git-global-arguments nil)
+        (toplib (or load-file-name buffer-file-name))
+        debug)
+    (unless (and toplib
+                 (member (file-name-nondirectory toplib)
+                         '("magit.el" "magit.el.gz")))
+      (let ((load-suffixes (reverse load-suffixes))) ; prefer .el than .elc
+        (setq toplib (locate-library "magit"))))
+    (setq toplib (and toplib (magit--chase-links toplib)))
+    (push toplib debug)
+    (when toplib
+      (let* ((topdir (file-name-directory toplib))
+             (gitdir (expand-file-name
+                      ".git" (file-name-directory
+                              (directory-file-name topdir))))
+             (static (locate-library "magit-version.el" nil (list topdir)))
+             (static (and static (magit--chase-links static))))
+        (or (progn
+              (push 'repo debug)
+              (when (and (file-exists-p gitdir)
+                         ;; It is a repo, but is it the Magit repo?
+                         (file-exists-p
+                          (expand-file-name "../lisp/magit.el" gitdir)))
+                (push t debug)
+                ;; Inside the repo the version file should only exist
+                ;; while running make.
+                (when (and static (not noninteractive))
+                  (ignore-errors (delete-file static)))
+                (setq magit-version
+                      (let ((default-directory topdir))
+                        (magit-git-string "describe"
+                                          "--tags" "--dirty" "--always")))))
+            (progn
+              (push 'static debug)
+              (when (and static (file-exists-p static))
+                (push t debug)
+                (load-file static)
+                magit-version))
+            (when (featurep 'package)
+              (push 'elpa debug)
+              (ignore-errors
+                (when-let ((version (cadr (assq 'magit package-alist))))
+                  (push t debug)
+                  (setq magit-version
+                        (and (fboundp 'package-desc-version)
+                             (package-version-join
+                              (package-desc-version version)))))))
+            (progn
+              (push 'dirname debug)
+              (let ((dirname (file-name-nondirectory
+                              (directory-file-name topdir))))
+                (when (string-match "\\`magit-\\([0-9].*\\)" dirname)
+                  (setq magit-version (match-string 1 dirname)))))
+            ;; If all else fails, just report the commit hash. It's
+            ;; better than nothing and we cannot do better in the case
+            ;; of e.g., a shallow clone.
+            (progn
+              (push 'hash debug)
+              ;; Same check as above to see if it's really the Magit repo.
+              (when (and (file-exists-p gitdir)
+                         (file-exists-p
+                          (expand-file-name "../lisp/magit.el" gitdir)))
+                (setq magit-version
+                      (let ((default-directory topdir))
+                        (magit-git-string "rev-parse" "HEAD"))))))))
+    (if (stringp magit-version)
+        (when print-dest
+          (let ((str (format
+                      "Magit %s%s, Transient %s,%s Git %s, Emacs %s, %s"
+                      (or magit-version "(unknown)")
+                      (or (and (ignore-errors
+                                 (magit--version>= magit-version "2008"))
+                               (ignore-errors
+                                 (require 'lisp-mnt)
+                                 (and (fboundp 'lm-header)
+                                      (format
+                                       " [>= %s]"
+                                       (with-temp-buffer
+                                         (insert-file-contents
+                                          (locate-library "magit.el" t))
+                                         (lm-header "Package-Version"))))))
+                          "")
+                      (or (ignore-errors
+                            (require 'lisp-mnt)
+                            (and (fboundp 'lm-header)
+                                 (with-temp-buffer
+                                   (insert-file-contents
+                                    (locate-library "transient.el" t))
+                                   (lm-header "Package-Version"))))
+                          "(unknown)")
+                      (let ((lib (locate-library "forge.el" t)))
+                        (or (and lib
+                                 (format
+                                  " Forge %s,"
+                                  (or (ignore-errors
+                                        (require 'lisp-mnt)
+                                        (with-temp-buffer
+                                          (insert-file-contents lib)
+                                          (and (fboundp 'lm-header)
+                                               (lm-header "Package-Version"))))
+                                      "(unknown)")))
+                            ""))
+                      (magit--safe-git-version)
+                      emacs-version
+                      system-type)))
+            (when interactive
+              (kill-new str))
+            (princ str print-dest)))
+      (setq debug (reverse debug))
+      (setq magit-version 'error)
+      (when magit-version
+        (push magit-version debug))
+      (unless (or nowarn (equal (getenv "CI") "true"))
+        (message "Cannot determine Magit's version %S" debug)))
+    magit-version))
+
+;;; Startup Asserts
+
+(defun magit-startup-asserts ()
+  (when-let ((val (getenv "GIT_DIR")))
+    (setenv "GIT_DIR")
+    (message
+     "Magit unset $GIT_DIR (was %S).  See %s" val
+     ;; Note: Pass URL as argument rather than embedding in the format
+     ;; string to prevent the single quote from being rendered
+     ;; according to `text-quoting-style'.
+     "https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike"))
+  (when-let ((val (getenv "GIT_WORK_TREE")))
+    (setenv "GIT_WORK_TREE")
+    (message
+     "Magit unset $GIT_WORK_TREE (was %S).  See %s" val
+     ;; See comment above.
+     "https://github.com/magit/magit/wiki/Don't-set-$GIT_DIR-and-alike"))
+  ;; Git isn't required while building Magit.
+  (unless (bound-and-true-p byte-compile-current-file)
+    (magit-git-version-assert))
+  (when (version< emacs-version magit--minimal-emacs)
+    (display-warning 'magit (format "\
+Magit requires Emacs >= %s, you are using %s.
+
+If this comes as a surprise to you, because you do actually have
+a newer version installed, then that probably means that the
+older version happens to appear earlier on the `$PATH'.  If you
+always start Emacs from a shell, then that can be fixed in the
+shell's init file.  If you start Emacs by clicking on an icon,
+or using some sort of application launcher, then you probably
+have to adjust the environment as seen by graphical interface.
+For X11 something like ~/.xinitrc should work.\n"
+                                    magit--minimal-emacs emacs-version)
+                     :error)))
+
+;;; Loading Libraries
+
+(provide 'magit)
+
+(cl-eval-when (load eval)
+  (require 'magit-status)
+  (require 'magit-refs)
+  (require 'magit-files)
+  (require 'magit-reset)
+  (require 'magit-branch)
+  (require 'magit-merge)
+  (require 'magit-tag)
+  (require 'magit-worktree)
+  (require 'magit-notes)
+  (require 'magit-sequence)
+  (require 'magit-commit)
+  (require 'magit-remote)
+  (require 'magit-clone)
+  (require 'magit-fetch)
+  (require 'magit-pull)
+  (require 'magit-push)
+  (require 'magit-bisect)
+  (require 'magit-stash)
+  (require 'magit-blame)
+  (require 'magit-submodule)
+  (unless (load "magit-autoloads" t t)
+    (require 'magit-patch)
+    (require 'magit-subtree)
+    (require 'magit-ediff)
+    (require 'magit-gitignore)
+    (require 'magit-sparse-checkout)
+    (require 'magit-extras)
+    (require 'git-rebase)
+    (require 'magit-bookmark)))
+
+(with-eval-after-load 'bookmark
+  (require 'magit-bookmark))
+
+(unless (bound-and-true-p byte-compile-current-file)
+  (if after-init-time
+      (progn (magit-startup-asserts)
+             (magit-version nil nil t))
+    (add-hook 'after-init-hook #'magit-startup-asserts t)
+    (add-hook 'after-init-hook #'magit-version t)))
+
+;;; magit.el ends here
diff --git a/emacs/elpa/magit-20241124.1509/magit.elc b/emacs/elpa/magit-20241124.1509/magit.elc
Binary files differ.
diff --git a/emacs/elpa/magit-20241124.1509/magit.info b/emacs/elpa/magit-20241124.1509/magit.info
@@ -0,0 +1,11596 @@
+This is magit.info, produced by makeinfo version 6.8 from magit.texi.
+
+     Copyright (C) 2015-2024 Jonas Bernoulli
+     <emacs.magit@jonas.bernoulli.dev>
+
+     You can redistribute this document and/or modify it under the terms
+     of the GNU General Public License as published by the Free Software
+     Foundation, either version 3 of the License, or (at your option)
+     any later version.
+
+     This document is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     General Public License for more details.
+
+INFO-DIR-SECTION Emacs
+START-INFO-DIR-ENTRY
+* Magit: (magit).       Using Git from Emacs with Magit.
+END-INFO-DIR-ENTRY
+
+
+File: magit.info,  Node: Top,  Next: Introduction,  Up: (dir)
+
+Magit User Manual
+*****************
+
+Magit is an interface to the version control system Git, implemented as
+an Emacs package.  Magit aspires to be a complete Git porcelain.  While
+we cannot (yet) claim that Magit wraps and improves upon each and every
+Git command, it is complete enough to allow even experienced Git users
+to perform almost all of their daily version control tasks directly from
+within Emacs.  While many fine Git clients exist, only Magit and Git
+itself deserve to be called porcelains.
+
+This manual is for Magit version 4.1.2.
+
+     Copyright (C) 2015-2024 Jonas Bernoulli
+     <emacs.magit@jonas.bernoulli.dev>
+
+     You can redistribute this document and/or modify it under the terms
+     of the GNU General Public License as published by the Free Software
+     Foundation, either version 3 of the License, or (at your option)
+     any later version.
+
+     This document is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     General Public License for more details.
+
+* Menu:
+
+* Introduction::
+* Installation::
+* Getting Started::
+* Interface Concepts::
+* Inspecting::
+* Manipulating::
+* Transferring::
+* Miscellaneous::
+* Customizing::
+* Plumbing::
+* FAQ::
+* Debugging Tools::
+* Keystroke Index::
+* Function and Command Index::
+* Variable Index::
+
+— The Detailed Node Listing —
+
+Installation
+
+* Installing from Melpa::
+* Installing from the Git Repository::
+* Post-Installation Tasks::
+
+Interface Concepts
+
+* Modes and Buffers::
+* Sections::
+* Transient Commands::
+* Transient Arguments and Buffer Variables::
+* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
+* Mouse Support::
+* Running Git::
+
+Modes and Buffers
+
+* Switching Buffers::
+* Naming Buffers::
+* Quitting Windows::
+* Automatic Refreshing of Magit Buffers::
+* Automatic Saving of File-Visiting Buffers::
+* Automatic Reverting of File-Visiting Buffers::
+
+
+Sections
+
+* Section Movement::
+* Section Visibility::
+* Section Hooks::
+* Section Types and Values::
+* Section Options::
+
+
+Completion, Confirmation and the Selection
+
+* Action Confirmation::
+* Completion and Confirmation::
+* The Selection::
+* The hunk-internal region::
+* Support for Completion Frameworks::
+* Additional Completion Options::
+
+
+Running Git
+
+* Viewing Git Output::
+* Git Process Status::
+* Running Git Manually::
+* Git Executable::
+* Global Git Arguments::
+
+
+Inspecting
+
+* Status Buffer::
+* Repository List::
+* Logging::
+* Diffing::
+* Ediffing::
+* References Buffer::
+* Bisecting::
+* Visiting Files and Blobs::
+* Blaming::
+
+Status Buffer
+
+* Status Sections::
+* Status Header Sections::
+* Status Module Sections::
+* Status Options::
+
+
+Logging
+
+* Refreshing Logs::
+* Log Buffer::
+* Log Margin::
+* Select from Log::
+* Reflog::
+* Cherries::
+
+
+Diffing
+
+* Refreshing Diffs::
+* Commands Available in Diffs::
+* Diff Options::
+* Revision Buffer::
+
+
+References Buffer
+
+* References Sections::
+
+
+Visiting Files and Blobs
+
+* General-Purpose Visit Commands::
+* Visiting Files and Blobs from a Diff::
+
+
+Manipulating
+
+* Creating Repository::
+* Cloning Repository::
+* Staging and Unstaging::
+* Applying::
+* Committing::
+* Branching::
+* Merging::
+* Resolving Conflicts::
+* Rebasing::
+* Cherry Picking::
+* Resetting::
+* Stashing::
+
+Staging and Unstaging
+
+* Staging from File-Visiting Buffers::
+
+
+Committing
+
+* Initiating a Commit::
+* Editing Commit Messages::
+
+
+Branching
+
+* The Two Remotes::
+* Branch Commands::
+* Branch Git Variables::
+* Auxiliary Branch Commands::
+
+
+Rebasing
+
+* Editing Rebase Sequences::
+* Information About In-Progress Rebase::
+
+
+Cherry Picking
+
+* Reverting::
+
+
+Transferring
+
+* Remotes::
+* Fetching::
+* Pulling::
+* Pushing::
+* Plain Patches::
+* Maildir Patches::
+
+Remotes
+
+* Remote Commands::
+* Remote Git Variables::
+
+
+Miscellaneous
+
+* Tagging::
+* Notes::
+* Submodules::
+* Subtree::
+* Worktree::
+* Sparse checkouts::
+* Bundle::
+* Common Commands::
+* Wip Modes::
+* Commands for Buffers Visiting Files::
+* Minor Mode for Buffers Visiting Blobs::
+
+Submodules
+
+* Listing Submodules::
+* Submodule Transient::
+
+
+Wip Modes
+
+* Wip Graph::
+* Legacy Wip Modes::
+
+
+Customizing
+
+* Per-Repository Configuration::
+* Essential Settings::
+
+Essential Settings
+
+* Safety::
+* Performance::
+* Global Bindings::
+
+
+Plumbing
+
+* Calling Git::
+* Section Plumbing::
+* Refreshing Buffers::
+* Conventions::
+
+Calling Git
+
+* Getting a Value from Git::
+* Calling Git for Effect::
+
+
+Section Plumbing
+
+* Creating Sections::
+* Section Selection::
+* Matching Sections::
+
+
+Conventions
+
+* Theming Faces::
+
+
+FAQ
+
+* FAQ - How to ...?::
+* FAQ - Issues and Errors::
+
+FAQ - How to ...?
+
+* How to pronounce Magit?::
+* How to show git's output?::
+* How to install the gitman info manual?::
+* How to show diffs for gpg-encrypted files?::
+* How does branching and pushing work?::
+* Should I disable VC?::
+
+
+FAQ - Issues and Errors
+
+* Magit is slow::
+* I changed several thousand files at once and now Magit is unusable::
+* I am having problems committing::
+* I am using MS Windows and cannot push with Magit::
+* I am using macOS and SOMETHING works in shell, but not in Magit: I am using macOS and SOMETHING works in shell but not in Magit.
+* Expanding a file to show the diff causes it to disappear::
+* Point is wrong in the COMMIT_EDITMSG buffer::
+* The mode-line information isn't always up-to-date::
+* A branch and tag sharing the same name breaks SOMETHING::
+* My Git hooks work on the command-line but not inside Magit::
+* git-commit-mode isn't used when committing from the command-line::
+* Point ends up inside invisible text when jumping to a file-visiting buffer::
+* I am no longer able to save popup defaults::
+
+
+
+
+File: magit.info,  Node: Introduction,  Next: Installation,  Prev: Top,  Up: Top
+
+1 Introduction
+**************
+
+Magit is an interface to the version control system Git, implemented as
+an Emacs package.  Magit aspires to be a complete Git porcelain.  While
+we cannot (yet) claim that Magit wraps and improves upon each and every
+Git command, it is complete enough to allow even experienced Git users
+to perform almost all of their daily version control tasks directly from
+within Emacs.  While many fine Git clients exist, only Magit and Git
+itself deserve to be called porcelains.
+
+   Staging and otherwise applying changes is one of the most important
+features in a Git porcelain and here Magit outshines anything else,
+including Git itself.  Git’s own staging interface (‘git add --patch’)
+is so cumbersome that many users only use it in exceptional cases.  In
+Magit staging a hunk or even just part of a hunk is as trivial as
+staging all changes made to a file.
+
+   The most visible part of Magit’s interface is the status buffer,
+which displays information about the current repository.  Its content is
+created by running several Git commands and making their output
+actionable.  Among other things, it displays information about the
+current branch, lists unpulled and unpushed changes and contains
+sections displaying the staged and unstaged changes.  That might sound
+noisy, but, since sections are collapsible, it’s not.
+
+   To stage or unstage a change one places the cursor on the change and
+then types ‘s’ or ‘u’.  The change can be a file or a hunk, or when the
+region is active (i.e., when there is a selection) several files or
+hunks, or even just part of a hunk.  The change or changes that these
+commands - and many others - would act on are highlighted.
+
+   Magit also implements several other "apply variants" in addition to
+staging and unstaging.  One can discard or reverse a change, or apply it
+to the working tree.  Git’s own porcelain only supports this for staging
+and unstaging and you would have to do something like ‘git diff ... |
+??? | git apply ...’ to discard, revert, or apply a single hunk on the
+command line.  In fact that’s exactly what Magit does internally (which
+is what lead to the term "apply variants").
+
+   Magit isn’t just for Git experts, but it does assume some prior
+experience with Git as well as Emacs.  That being said, many users have
+reported that using Magit was what finally taught them what Git is
+capable of and how to use it to its fullest.  Other users wished they
+had switched to Emacs sooner so that they would have gotten their hands
+on Magit earlier.
+
+   While one has to know the basic features of Emacs to be able to make
+full use of Magit, acquiring just enough Emacs skills doesn’t take long
+and is worth it, even for users who prefer other editors.  Vim users are
+advised to give Evil (https://github.com/emacs-evil/evil), the
+"Extensible VI Layer for Emacs", and Spacemacs
+(https://github.com/syl20bnr/spacemacs), an "Emacs starter-kit focused
+on Evil" a try.
+
+   Magit provides a consistent and efficient Git porcelain.  After a
+short learning period, you will be able to perform most of your daily
+version control tasks faster than you would on the command line.  You
+will likely also start using features that seemed too daunting in the
+past.
+
+   Magit fully embraces Git.  It exposes many advanced features using a
+simple but flexible interface instead of only wrapping the trivial ones
+like many GUI clients do.  Of course Magit supports logging, cloning,
+pushing, and other commands that usually don’t fail in spectacular ways;
+but it also supports tasks that often cannot be completed in a single
+step.  Magit fully supports tasks such as merging, rebasing,
+cherry-picking, reverting, and blaming by not only providing a command
+to initiate these tasks but also by displaying context sensitive
+information along the way and providing commands that are useful for
+resolving conflicts and resuming the sequence after doing so.
+
+   Magit wraps and in many cases improves upon at least the following
+Git porcelain commands: ‘add’, ‘am’, ‘bisect’, ‘blame’, ‘branch’,
+‘checkout’, ‘cherry’, ‘cherry-pick’, ‘clean’, ‘clone’, ‘commit’,
+‘config’, ‘describe’, ‘diff’, ‘fetch’, ‘format-patch’, ‘init’, ‘log’,
+‘merge’, ‘merge-tree’, ‘mv’, ‘notes’, ‘pull’, ‘rebase’, ‘reflog’,
+‘remote’, ‘request-pull’, ‘reset’, ‘revert’, ‘rm’, ‘show’, ‘stash’,
+‘submodule’, ‘subtree’, ‘tag’, and ‘worktree.’ Many more Magit porcelain
+commands are implemented on top of Git plumbing commands.
+
+
+File: magit.info,  Node: Installation,  Next: Getting Started,  Prev: Introduction,  Up: Top
+
+2 Installation
+**************
+
+Magit can be installed using Emacs’ package manager or manually from its
+development repository.
+
+* Menu:
+
+* Installing from Melpa::
+* Installing from the Git Repository::
+* Post-Installation Tasks::
+
+
+File: magit.info,  Node: Installing from Melpa,  Next: Installing from the Git Repository,  Up: Installation
+
+2.1 Installing from Melpa
+=========================
+
+Magit is available from Melpa and Melpa-Stable.  If you haven’t used
+Emacs’ package manager before, then it is high time you familiarize
+yourself with it by reading the documentation in the Emacs manual, see
+*note (emacs)Packages::.  Then add one of the archives to
+‘package-archives’:
+
+   • To use Melpa:
+
+     (require 'package)
+     (add-to-list 'package-archives
+                  '("melpa" . "https://melpa.org/packages/") t)
+
+   • To use Melpa-Stable:
+
+     (require 'package)
+     (add-to-list 'package-archives
+                  '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+
+   Once you have added your preferred archive, you need to update the
+local package list using:
+
+     M-x package-refresh-contents RET
+
+   Once you have done that, you can install Magit and its dependencies
+using:
+
+     M-x package-install RET magit RET
+
+   Now see *note Post-Installation Tasks::.
+
+
+File: magit.info,  Node: Installing from the Git Repository,  Next: Post-Installation Tasks,  Prev: Installing from Melpa,  Up: Installation
+
+2.2 Installing from the Git Repository
+======================================
+
+Magit depends on the ‘compat’, ‘dash’, ‘transient’ and ‘with-editor’
+libraries which are available from Melpa and Melpa-Stable.  Install them
+using ‘M-x package-install RET <package> RET’.  Of course you may also
+install them manually from their repository.
+
+   Then clone the Magit repository:
+
+     $ git clone https://github.com/magit/magit.git ~/.emacs.d/site-lisp/magit
+     $ cd ~/.emacs.d/site-lisp/magit
+
+   Then compile the libraries and generate the info manuals:
+
+     $ make
+
+   If you haven’t installed ‘compat’, ‘dash’, ‘transient’ and
+‘with-editor’ from Melpa or at ‘/path/to/magit/../<package>’, then you
+have to tell ‘make’ where to find them.  To do so create the file
+‘/path/to/magit/config.mk’ with the following content before running
+‘make’:
+
+     LOAD_PATH  = -L ~/.emacs.d/site-lisp/magit/lisp
+     LOAD_PATH += -L ~/.emacs.d/site-lisp/dash
+     LOAD_PATH += -L ~/.emacs.d/site-lisp/transient/lisp
+     LOAD_PATH += -L ~/.emacs.d/site-lisp/with-editor/lisp
+     LOAD_PATH += -L ~/.emacs.d/site-lisp/compat
+
+   Finally add this to your init file:
+
+     (add-to-list 'load-path "~/.emacs.d/site-lisp/magit/lisp")
+     (require 'magit)
+
+     (with-eval-after-load 'info
+       (info-initialize)
+       (add-to-list 'Info-directory-list
+                    "~/.emacs.d/site-lisp/magit/Documentation/"))
+
+   Of course if you installed the dependencies manually as well, then
+you have to tell Emacs about them too, by prefixing the above with:
+
+     (add-to-list 'load-path "~/.emacs.d/site-lisp/dash")
+     (add-to-list 'load-path "~/.emacs.d/site-lisp/transient/lisp")
+     (add-to-list 'load-path "~/.emacs.d/site-lisp/with-editor")
+
+   Note that you have to add the ‘lisp’ subdirectory to the ‘load-path’,
+not the top-level of the repository, and that elements of ‘load-path’
+should not end with a slash, while those of ‘Info-directory-list’
+should.
+
+   Instead of requiring the feature ‘magit’, you could load just the
+autoload definitions, by loading the file ‘magit-autoloads.el’.
+
+     (load "/path/to/magit/lisp/magit-autoloads")
+
+   Instead of running Magit directly from the repository by adding that
+to the ‘load-path’, you might want to instead install it in some other
+directory using ‘sudo make install’ and setting ‘load-path’ accordingly.
+
+   To update Magit use:
+
+     $ git pull
+     $ make
+
+   At times it might be necessary to run ‘make clean all’ instead.
+
+   To view all available targets use ‘make help’.
+
+   Now see *note Post-Installation Tasks::.
+
+
+File: magit.info,  Node: Post-Installation Tasks,  Prev: Installing from the Git Repository,  Up: Installation
+
+2.3 Post-Installation Tasks
+===========================
+
+After installing Magit you should verify that you are indeed using the
+Magit, Git, and Emacs releases you think you are using.  It’s best to
+restart Emacs before doing so, to make sure you are not using an
+outdated value for ‘load-path’.
+
+     M-x magit-version RET
+
+   should display something like
+
+     Magit 2.8.0, Git 2.10.2, Emacs 25.1.1, gnu/linux
+
+   Then you might also want to read about options that many users likely
+want to customize.  See *note Essential Settings::.
+
+   To be able to follow cross references to Git manpages found in this
+manual, you might also have to manually install the ‘gitman’ info
+manual, or advice ‘Info-follow-nearest-node’ to instead open the actual
+manpage.  See *note How to install the gitman info manual?::.
+
+   If you are completely new to Magit then see *note Getting Started::.
+
+   If you run into problems, then please see the *note FAQ::.  Also see
+the *note Debugging Tools::.
+
+   And last but not least please consider making a donation, to ensure
+that I can keep working on Magit.  See <https://magit.vc/donations>.
+for various donation options.
+
+
+File: magit.info,  Node: Getting Started,  Next: Interface Concepts,  Prev: Installation,  Up: Top
+
+3 Getting Started
+*****************
+
+This short tutorial describes the most essential features that many
+Magitians use on a daily basis.  It only scratches the surface but
+should be enough to get you started.
+
+   IMPORTANT: It is safest if you clone some repository just for this
+tutorial.  Alternatively you can use an existing local repository, but
+if you do that, then you should commit all uncommitted changes before
+proceeding.
+
+   Type ‘C-x g’ to display information about the current Git repository
+in a dedicated buffer, called the status buffer.
+
+   Most Magit commands are commonly invoked from the status buffer.  It
+can be considered the primary interface for interacting with Git using
+Magit.  Many other Magit buffers may exist at a given time, but they are
+often created from this buffer.
+
+   Depending on what state your repository is in, this buffer may
+contain sections titled "Staged changes", "Unstaged changes", "Unmerged
+into origin/master", "Unpushed to origin/master", and many others.
+
+   Since we are starting from a safe state, which you can easily return
+to (by doing a ‘git reset --hard PRE-MAGIT-STATE’), there currently are
+no staged or unstaged changes.  Edit some files and save the changes.
+Then go back to the status buffer, while at the same time refreshing it,
+by typing ‘C-x g’.  (When the status buffer, or any Magit buffer for
+that matter, is the current buffer, then you can also use just ‘g’ to
+refresh it).
+
+   Move between sections using ‘p’ and ‘n’.  Note that the bodies of
+some sections are hidden.  Type ‘TAB’ to expand or collapse the section
+at point.  You can also use ‘C-tab’ to cycle the visibility of the
+current section and its children.  Move to a file section inside the
+section named "Unstaged changes" and type ‘s’ to stage the changes you
+have made to that file.  That file now appears under "Staged changes".
+
+   Magit can stage and unstage individual hunks, not just complete
+files.  Move to the file you have just staged, expand it using ‘TAB’,
+move to one of the hunks using ‘n’, and unstage just that by typing ‘u’.
+Note how the staging (‘s’) and unstaging (‘u’) commands operate on the
+change at point.  Many other commands behave the same way.
+
+   You can also un-/stage just part of a hunk.  Inside the body of a
+hunk section (move there using ‘C-n’), set the mark using ‘C-SPC’ and
+move down until some added and/or removed lines fall inside the region
+but not all of them.  Again type ‘s’ to stage.
+
+   It is also possible to un-/stage multiple files at once.  Move to a
+file section, type ‘C-SPC’, move to the next file using ‘n’, and then
+‘s’ to stage both files.  Note that both the mark and point have to be
+on the headings of sibling sections for this to work.  If the region
+looks like it does in other buffers, then it doesn’t select Magit
+sections that can be acted on as a unit.
+
+   And then of course you want to commit your changes.  Type ‘c’.  This
+shows the available commit commands and arguments in a buffer at the
+bottom of the frame.  Each command and argument is prefixed with the key
+that invokes/sets it.  Do not worry about this for now.  We want to
+create a "normal" commit, which is done by typing ‘c’ again.
+
+   Now two new buffers appear.  One is for writing the commit message,
+the other shows a diff with the changes that you are about to commit.
+Write a message and then type ‘C-c C-c’ to actually create the commit.
+
+   You probably don’t want to push the commit you just created because
+you just committed some random changes, but if that is not the case you
+could push it by typing ‘P’ to show all the available push commands and
+arguments and then ‘p’ to push to a branch with the same name as the
+local branch onto the remote configured as the push-remote.  (If the
+push-remote is not configured yet, then you would first be prompted for
+the remote to push to.)
+
+   So far we have mentioned the commit and push menu commands.  These
+are probably among the menus you will be using the most, but many others
+exist.  To show a menu that lists all other menus (as well as the
+various apply commands and some other essential commands), type ‘h’.
+Try a few.  (Such menus are also called "transient prefix commands" or
+just "transients".)
+
+   The key bindings in that menu correspond to the bindings in Magit
+buffers, including but not limited to the status buffer.  So you could
+type ‘h d’ to bring up the diff menu, but once you remember that "d"
+stands for "diff", you would usually do so by just typing ‘d’.
+
+   This "prefix of prefixes" is useful even once you have memorized all
+the bindings, as it can provide easy access to Magit commands from
+non-Magit buffers.  So, by default, it is globally bound to ‘C-x M-g’.
+
+   A similar menu featuring (for the most part) commands that act on
+just the file being visited in the current buffer, is globally bound to
+‘C-c M-g’.  That binding can also be used in buffers, which do not visit
+a file, but then only a subset of the commands is available.
+
+   The global key bindings mentioned in the previous two paragraphs are
+quite inconvenient.  We recommend using ‘C-c g’ and ‘C-c f’ instead, but
+cannot use those key sequences by default because they are strictly
+reserved for bindings added by the user.  See *note Global Bindings::,
+if you want to explicitly opt-in to the recommended key bindings.
+
+   Magit also provides context menus and other mouse commands, see *note
+Mouse Support::.
+
+   It is not necessary that you do so now, but if you stick with Magit,
+then it is highly recommended that you read the next section too.
+
+
+File: magit.info,  Node: Interface Concepts,  Next: Inspecting,  Prev: Getting Started,  Up: Top
+
+4 Interface Concepts
+********************
+
+* Menu:
+
+* Modes and Buffers::
+* Sections::
+* Transient Commands::
+* Transient Arguments and Buffer Variables::
+* Completion, Confirmation and the Selection: Completion Confirmation and the Selection.
+* Mouse Support::
+* Running Git::
+
+
+File: magit.info,  Node: Modes and Buffers,  Next: Sections,  Up: Interface Concepts
+
+4.1 Modes and Buffers
+=====================
+
+Magit provides several major-modes.  For each of these modes there
+usually exists only one buffer per repository.  Separate modes and thus
+buffers exist for commits, diffs, logs, and some other things.
+
+   Besides these special purpose buffers, there also exists an overview
+buffer, called the *status buffer*.  It’s usually from this buffer that
+the user invokes Git commands, or creates or visits other buffers.
+
+   In this manual we often speak about "Magit buffers".  By that we mean
+buffers whose major-modes derive from ‘magit-mode’.
+
+‘M-x magit-toggle-buffer-lock’
+     This command locks the current buffer to its value or if the buffer
+     is already locked, then it unlocks it.
+
+     Locking a buffer to its value prevents it from being reused to
+     display another value.  The name of a locked buffer contains its
+     value, which allows telling it apart from other locked buffers and
+     the unlocked buffer.
+
+     Not all Magit buffers can be locked to their values; for example,
+     it wouldn’t make sense to lock a status buffer.
+
+     There can only be a single unlocked buffer using a certain
+     major-mode per repository.  So when a buffer is being unlocked and
+     another unlocked buffer already exists for that mode and
+     repository, then the former buffer is instead deleted and the
+     latter is displayed in its place.
+
+* Menu:
+
+* Switching Buffers::
+* Naming Buffers::
+* Quitting Windows::
+* Automatic Refreshing of Magit Buffers::
+* Automatic Saving of File-Visiting Buffers::
+* Automatic Reverting of File-Visiting Buffers::
+
+
+File: magit.info,  Node: Switching Buffers,  Next: Naming Buffers,  Up: Modes and Buffers
+
+4.1.1 Switching Buffers
+-----------------------
+
+ -- Function: magit-display-buffer buffer &optional display-function
+     This function is a wrapper around ‘display-buffer’ and is used to
+     display any Magit buffer.  It displays BUFFER in some window and,
+     unlike ‘display-buffer’, also selects that window, provided
+     ‘magit-display-buffer-noselect’ is ‘nil’.  It also runs the hooks
+     mentioned below.
+
+     If optional DISPLAY-FUNCTION is non-nil, then that is used to
+     display the buffer.  Usually that is ‘nil’ and the function
+     specified by ‘magit-display-buffer-function’ is used.
+
+ -- Variable: magit-display-buffer-noselect
+     When this is non-nil, then ‘magit-display-buffer’ only displays the
+     buffer but forgoes also selecting the window.  This variable should
+     not be set globally, it is only intended to be let-bound, by code
+     that automatically updates "the other window".  This is used for
+     example when the revision buffer is updated when you move inside
+     the log buffer.
+
+ -- User Option: magit-display-buffer-function
+     The function specified here is called by ‘magit-display-buffer’
+     with one argument, a buffer, to actually display that buffer.  This
+     function should call ‘display-buffer’ with that buffer as first and
+     a list of display actions as second argument.
+
+     Magit provides several functions, listed below, that are suitable
+     values for this option.  If you want to use different rules, then a
+     good way of doing that is to start with a copy of one of these
+     functions and then adjust it to your needs.
+
+     Instead of using a wrapper around ‘display-buffer’, that function
+     itself can be used here, in which case the display actions have to
+     be specified by adding them to ‘display-buffer-alist’ instead.
+
+     To learn about display actions, see *note (elisp)Choosing Window::.
+
+ -- Function: magit-display-buffer-traditional buffer
+     This function is the current default value of the option
+     ‘magit-display-buffer-function’.  Before that option and this
+     function were added, the behavior was hard-coded in many places all
+     over the code base but now all the rules are contained in this one
+     function (except for the "noselect" special case mentioned above).
+
+ -- Function: magit-display-buffer-same-window-except-diff-v1
+     This function displays most buffers in the currently selected
+     window.  If a buffer’s mode derives from ‘magit-diff-mode’ or
+     ‘magit-process-mode’, it is displayed in another window.
+
+ -- Function: magit-display-buffer-fullframe-status-v1
+     This function fills the entire frame when displaying a status
+     buffer.  Otherwise, it behaves like
+     ‘magit-display-buffer-traditional’.
+
+ -- Function: magit-display-buffer-fullframe-status-topleft-v1
+     This function fills the entire frame when displaying a status
+     buffer.  It behaves like ‘magit-display-buffer-fullframe-status-v1’
+     except that it displays buffers that derive from ‘magit-diff-mode’
+     or ‘magit-process-mode’ to the top or left of the current buffer
+     rather than to the bottom or right.  As a result, Magit buffers
+     tend to pop up on the same side as they would if
+     ‘magit-display-buffer-traditional’ were in use.
+
+ -- Function: magit-display-buffer-fullcolumn-most-v1
+     This function displays most buffers so that they fill the entire
+     height of the frame.  However, the buffer is displayed in another
+     window if (1) the buffer’s mode derives from ‘magit-process-mode’,
+     or (2) the buffer’s mode derives from ‘magit-diff-mode’, provided
+     that the mode of the current buffer derives from ‘magit-log-mode’
+     or ‘magit-cherry-mode’.
+
+ -- User Option: magit-pre-display-buffer-hook
+     This hook is run by ‘magit-display-buffer’ before displaying the
+     buffer.
+
+ -- Function: magit-save-window-configuration
+     This function saves the current window configuration.  Later when
+     the buffer is buried, it may be restored by
+     ‘magit-restore-window-configuration’.
+
+ -- User Option: magit-post-display-buffer-hook
+     This hook is run by ‘magit-display-buffer’ after displaying the
+     buffer.
+
+ -- Function: magit-maybe-set-dedicated
+     This function remembers if a new window had to be created to
+     display the buffer, or whether an existing window was reused.  This
+     information is later used by ‘magit-mode-quit-window’, to determine
+     whether the window should be deleted when its last Magit buffer is
+     buried.
+
+
+File: magit.info,  Node: Naming Buffers,  Next: Quitting Windows,  Prev: Switching Buffers,  Up: Modes and Buffers
+
+4.1.2 Naming Buffers
+--------------------
+
+ -- User Option: magit-generate-buffer-name-function
+     The function used to generate the names of Magit buffers.
+
+     Such a function should take the options
+     ‘magit-uniquify-buffer-names’ as well as ‘magit-buffer-name-format’
+     into account.  If it doesn’t, then should be clearly stated in the
+     doc-string.  And if it supports %-sequences beyond those mentioned
+     in the doc-string of the option ‘magit-buffer-name-format’, then
+     its own doc-string should describe the additions.
+
+ -- Function: magit-generate-buffer-name-default-function mode
+     This function returns a buffer name suitable for a buffer whose
+     major-mode is MODE and which shows information about the repository
+     in which ‘default-directory’ is located.
+
+     This function uses ‘magit-buffer-name-format’ and supporting all of
+     the %-sequences mentioned the documentation of that option.  It
+     also respects the option ‘magit-uniquify-buffer-names’.
+
+ -- User Option: magit-buffer-name-format
+     The format string used to name Magit buffers.
+
+     At least the following %-sequences are supported:
+
+        • ‘%m’
+
+          The name of the major-mode, but with the ‘-mode’ suffix
+          removed.
+
+        • ‘%M’
+
+          Like ‘%m’ but abbreviate ‘magit-status-mode’ as ‘magit’.
+
+        • ‘%v’
+
+          The value the buffer is locked to, in parentheses, or an empty
+          string if the buffer is not locked to a value.
+
+        • ‘%V’
+
+          Like ‘%v’, but the string is prefixed with a space, unless it
+          is an empty string.
+
+        • ‘%t’
+
+          The top-level directory of the working tree of the repository,
+          or if ‘magit-uniquify-buffer-names’ is non-nil an abbreviation
+          of that.
+
+        • ‘%x’
+
+          If ‘magit-uniquify-buffer-names’ is nil "*", otherwise the
+          empty string.  Due to limitations of the ‘uniquify’ package,
+          buffer names must end with the path.
+
+     The value should always contain ‘%m’ or ‘%M’, ‘%v’ or ‘%V’, and
+     ‘%t’.  If ‘magit-uniquify-buffer-names’ is non-nil, then the value
+     must end with ‘%t’ or ‘%t%x’.  See issue #2841.
+
+ -- User Option: magit-uniquify-buffer-names
+     This option controls whether the names of Magit buffers are
+     uniquified.  If the names are not being uniquified, then they
+     contain the full path of the top-level of the working tree of the
+     corresponding repository.  If they are being uniquified, then they
+     end with the basename of the top-level, or if that would conflict
+     with the name used for other buffers, then the names of all these
+     buffers are adjusted until they no longer conflict.
+
+     This is done using the ‘uniquify’ package; customize its options to
+     control how buffer names are uniquified.
+
+
+File: magit.info,  Node: Quitting Windows,  Next: Automatic Refreshing of Magit Buffers,  Prev: Naming Buffers,  Up: Modes and Buffers
+
+4.1.3 Quitting Windows
+----------------------
+
+‘q’ (‘magit-mode-bury-buffer’)
+     This command buries or kills the current Magit buffer.  The
+     function specified by option ‘magit-bury-buffer-function’ is used
+     to bury the buffer when called without a prefix argument or to kill
+     it when called with a single prefix argument.
+
+     When called with two or more prefix arguments then it always kills
+     all Magit buffers, associated with the current project, including
+     the current buffer.
+
+ -- User Option: magit-bury-buffer-function
+     The function used to actually bury or kill the current buffer.
+
+     ‘magit-mode-bury-buffer’ calls this function with one argument.  If
+     the argument is non-nil, then the function has to kill the current
+     buffer.  Otherwise it has to bury it alive.  The default value
+     currently is ‘magit-mode-quit-window’.
+
+ -- Function: magit-restore-window-configuration kill-buffer
+     Bury or kill the current buffer using ‘quit-window’, which is
+     called with KILL-BUFFER as first and the selected window as second
+     argument.
+
+     Then restore the window configuration that existed right before the
+     current buffer was displayed in the selected frame.  Unfortunately
+     that also means that point gets adjusted in all the buffers, which
+     are being displayed in the selected frame.
+
+ -- Function: magit-mode-quit-window kill-buffer
+     Bury or kill the current buffer using ‘quit-window’, which is
+     called with KILL-BUFFER as first and the selected window as second
+     argument.
+
+     Then, if the window was originally created to display a Magit
+     buffer and the buried buffer was the last remaining Magit buffer
+     that was ever displayed in the window, then that is deleted.
+
+
+File: magit.info,  Node: Automatic Refreshing of Magit Buffers,  Next: Automatic Saving of File-Visiting Buffers,  Prev: Quitting Windows,  Up: Modes and Buffers
+
+4.1.4 Automatic Refreshing of Magit Buffers
+-------------------------------------------
+
+After running a command which may change the state of the current
+repository, the current Magit buffer and the corresponding status buffer
+are refreshed.  The status buffer can be automatically refreshed
+whenever a buffer is saved to a file inside the respective repository by
+adding a hook, like so:
+
+     (with-eval-after-load 'magit-mode
+       (add-hook 'after-save-hook 'magit-after-save-refresh-status t))
+
+   Automatically refreshing Magit buffers ensures that the displayed
+information is up-to-date most of the time but can lead to a noticeable
+delay in big repositories.  Other Magit buffers are not refreshed to
+keep the delay to a minimum and also because doing so can sometimes be
+undesirable.
+
+   Buffers can also be refreshed explicitly, which is useful in buffers
+that weren’t current during the last refresh and after changes were made
+to the repository outside of Magit.
+
+‘g’ (‘magit-refresh’)
+     This command refreshes the current buffer if its major mode derives
+     from ‘magit-mode’ as well as the corresponding status buffer.
+
+     If the option ‘magit-revert-buffers’ calls for it, then it also
+     reverts all unmodified buffers that visit files being tracked in
+     the current repository.
+
+‘G’ (‘magit-refresh-all’)
+     This command refreshes all Magit buffers belonging to the current
+     repository and also reverts all unmodified buffers that visit files
+     being tracked in the current repository.
+
+     The file-visiting buffers are always reverted, even if
+     ‘magit-revert-buffers’ is nil.
+
+ -- User Option: magit-refresh-buffer-hook
+     This hook is run in each Magit buffer that was refreshed during the
+     current refresh - normally the current buffer and the status
+     buffer.
+
+ -- User Option: magit-refresh-status-buffer
+     When this option is non-nil, then the status buffer is
+     automatically refreshed after running git for side-effects, in
+     addition to the current Magit buffer, which is always refreshed
+     automatically.
+
+     Only set this to nil after exhausting all other options to improve
+     performance.
+
+ -- Function: magit-after-save-refresh-status
+     This function is intended to be added to ‘after-save-hook’.  After
+     doing that the corresponding status buffer is refreshed whenever a
+     buffer is saved to a file inside a repository.
+
+     Note that refreshing a Magit buffer is done by re-creating its
+     contents from scratch, which can be slow in large repositories.  If
+     you are not satisfied with Magit’s performance, then you should
+     obviously not add this function to that hook.
+
+
+File: magit.info,  Node: Automatic Saving of File-Visiting Buffers,  Next: Automatic Reverting of File-Visiting Buffers,  Prev: Automatic Refreshing of Magit Buffers,  Up: Modes and Buffers
+
+4.1.5 Automatic Saving of File-Visiting Buffers
+-----------------------------------------------
+
+File-visiting buffers are by default saved at certain points in time.
+This doesn’t guarantee that Magit buffers are always up-to-date, but,
+provided one only edits files by editing them in Emacs and uses only
+Magit to interact with Git, one can be fairly confident.  When in doubt
+or after outside changes, type ‘g’ (‘magit-refresh’) to save and refresh
+explicitly.
+
+ -- User Option: magit-save-repository-buffers
+     This option controls whether file-visiting buffers are saved before
+     certain events.
+
+     If this is non-nil then all modified file-visiting buffers
+     belonging to the current repository may be saved before running
+     commands, before creating new Magit buffers, and before explicitly
+     refreshing such buffers.  If this is ‘dontask’ then this is done
+     without user intervention.  If it is ‘t’ then the user has to
+     confirm each save.
+
+
+File: magit.info,  Node: Automatic Reverting of File-Visiting Buffers,  Prev: Automatic Saving of File-Visiting Buffers,  Up: Modes and Buffers
+
+4.1.6 Automatic Reverting of File-Visiting Buffers
+--------------------------------------------------
+
+By default Magit automatically reverts buffers that are visiting files
+that are being tracked in a Git repository, after they have changed on
+disk.  When using Magit one often changes files on disk by running Git,
+i.e., "outside Emacs", making this a rather important feature.
+
+   For example, if you discard a change in the status buffer, then that
+is done by running ‘git apply --reverse ...’, and Emacs considers the
+file to have "changed on disk".  If Magit did not automatically revert
+the buffer, then you would have to type ‘M-x revert-buffer RET RET’ in
+the visiting buffer before you could continue making changes.
+
+ -- User Option: magit-auto-revert-mode
+     When this mode is enabled, then buffers that visit tracked files
+     are automatically reverted after the visited files change on disk.
+
+ -- User Option: global-auto-revert-mode
+     When this mode is enabled, then any file-visiting buffer is
+     automatically reverted after the visited file changes on disk.
+
+     If you like buffers that visit tracked files to be automatically
+     reverted, then you might also like any buffer to be reverted, not
+     just those visiting tracked files.  If that is the case, then
+     enable this mode _instead of_ ‘magit-auto-revert-mode’.
+
+ -- User Option: magit-auto-revert-immediately
+     This option controls whether Magit reverts buffers immediately.
+
+     If this is non-nil and either ‘global-auto-revert-mode’ or
+     ‘magit-auto-revert-mode’ is enabled, then Magit immediately reverts
+     buffers by explicitly calling ‘auto-revert-buffers’ after running
+     Git for side-effects.
+
+     If ‘auto-revert-use-notify’ is non-nil (and file notifications are
+     actually supported), then ‘magit-auto-revert-immediately’ does not
+     have to be non-nil, because the reverts happen immediately anyway.
+
+     If ‘magit-auto-revert-immediately’ and ‘auto-revert-use-notify’ are
+     both ‘nil’, then reverts happen after ‘auto-revert-interval’
+     seconds of user inactivity.  That is not desirable.
+
+ -- User Option: auto-revert-use-notify
+     This option controls whether file notification functions should be
+     used.  Note that this variable unfortunately defaults to ‘t’ even
+     on systems on which file notifications cannot be used.
+
+ -- User Option: magit-auto-revert-tracked-only
+     This option controls whether ‘magit-auto-revert-mode’ only reverts
+     tracked files or all files that are located inside Git
+     repositories, including untracked files and files located inside
+     Git’s control directory.
+
+ -- User Option: auto-revert-mode
+     The global mode ‘magit-auto-revert-mode’ works by turning on this
+     local mode in the appropriate buffers (but
+     ‘global-auto-revert-mode’ is implemented differently).  You can
+     also turn it on or off manually, which might be necessary if Magit
+     does not notice that a previously untracked file now is being
+     tracked or vice-versa.
+
+ -- User Option: auto-revert-stop-on-user-input
+     This option controls whether the arrival of user input suspends the
+     automatic reverts for ‘auto-revert-interval’ seconds.
+
+ -- User Option: auto-revert-interval
+     This option controls how many seconds Emacs waits for before
+     resuming suspended reverts.
+
+ -- User Option: auto-revert-buffer-list-filter
+     This option specifies an additional filter used by
+     ‘auto-revert-buffers’ to determine whether a buffer should be
+     reverted or not.
+
+     This option is provided by Magit, which also advises
+     ‘auto-revert-buffers’ to respect it.  Magit users who do not turn
+     on the local mode ‘auto-revert-mode’ themselves, are best served by
+     setting the value to ‘magit-auto-revert-repository-buffer-p’.
+
+     However the default is nil, so as not to disturb users who do use
+     the local mode directly.  If you experience delays when running
+     Magit commands, then you should consider using one of the
+     predicates provided by Magit - especially if you also use Tramp.
+
+     Users who do turn on ‘auto-revert-mode’ in buffers in which Magit
+     doesn’t do that for them, should likely not use any filter.  Users
+     who turn on ‘global-auto-revert-mode’, do not have to worry about
+     this option, because it is disregarded if the global mode is
+     enabled.
+
+ -- User Option: auto-revert-verbose
+     This option controls whether Emacs reports when a buffer has been
+     reverted.
+
+   The options with the ‘auto-revert-’ prefix are located in the Custom
+group named ‘auto-revert’.  The other, Magit-specific, options are
+located in the ‘magit’ group.
+
+* Menu:
+
+* Risk of Reverting Automatically::
+
+
+File: magit.info,  Node: Risk of Reverting Automatically,  Up: Automatic Reverting of File-Visiting Buffers
+
+Risk of Reverting Automatically
+...............................
+
+For the vast majority of users, automatically reverting file-visiting
+buffers after they have changed on disk is harmless.
+
+   If a buffer is modified (i.e., it contains changes that haven’t been
+saved yet), then Emacs will refuse to automatically revert it.  If you
+save a previously modified buffer, then that results in what is seen by
+Git as an uncommitted change.  Git will then refuse to carry out any
+commands that would cause these changes to be lost.  In other words, if
+there is anything that could be lost, then either Git or Emacs will
+refuse to discard the changes.
+
+   However, if you use file-visiting buffers as a sort of ad hoc
+"staging area", then the automatic reverts could potentially cause data
+loss.  So far I have heard from only one user who uses such a workflow.
+
+   An example: You visit some file in a buffer, edit it, and save the
+changes.  Then, outside of Emacs (or at least not using Magit or by
+saving the buffer) you change the file on disk again.  At this point the
+buffer is the only place where the intermediate version still exists.
+You have saved the changes to disk, but that has since been overwritten.
+Meanwhile Emacs considers the buffer to be unmodified (because you have
+not made any changes to it since you last saved it to the visited file)
+and therefore would not object to it being automatically reverted.  At
+this point an Auto-Revert mode would kick in.  It would check whether
+the buffer is modified and since that is not the case it would revert
+it.  The intermediate version would be lost.  (Actually you could still
+get it back using the ‘undo’ command.)
+
+   If your workflow depends on Emacs preserving the intermediate version
+in the buffer, then you have to disable all Auto-Revert modes.  But
+please consider that such a workflow would be dangerous even without
+using an Auto-Revert mode, and should therefore be avoided.  If Emacs
+crashes or if you quit Emacs by mistake, then you would also lose the
+buffer content.  There would be no autosave file still containing the
+intermediate version (because that was deleted when you saved the
+buffer) and you would not be asked whether you want to save the buffer
+(because it isn’t modified).
+
+
+File: magit.info,  Node: Sections,  Next: Transient Commands,  Prev: Modes and Buffers,  Up: Interface Concepts
+
+4.2 Sections
+============
+
+Magit buffers are organized into nested sections, which can be collapsed
+and expanded, similar to how sections are handled in Org mode.  Each
+section also has a type, and some sections also have a value.  For each
+section type there can also be a local keymap, shared by all sections of
+that type.
+
+   Taking advantage of the section value and type, many commands operate
+on the current section, or when the region is active and selects
+sections of the same type, all of the selected sections.  Commands that
+only make sense for a particular section type (as opposed to just
+behaving differently depending on the type) are usually bound in section
+type keymaps.
+
+* Menu:
+
+* Section Movement::
+* Section Visibility::
+* Section Hooks::
+* Section Types and Values::
+* Section Options::
+
+
+File: magit.info,  Node: Section Movement,  Next: Section Visibility,  Up: Sections
+
+4.2.1 Section Movement
+----------------------
+
+To move within a section use the usual keys (‘C-p’, ‘C-n’, ‘C-b’, ‘C-f’
+etc), whose global bindings are not shadowed.  To move to another
+section use the following commands.
+
+‘p’ (‘magit-section-backward’)
+     When not at the beginning of a section, then move to the beginning
+     of the current section.  At the beginning of a section, instead
+     move to the beginning of the previous visible section.
+
+‘n’ (‘magit-section-forward’)
+     Move to the beginning of the next visible section.
+
+‘M-p’ (‘magit-section-backward-siblings’)
+     Move to the beginning of the previous sibling section.  If there is
+     no previous sibling section, then move to the parent section
+     instead.
+
+‘M-n’ (‘magit-section-forward-siblings’)
+     Move to the beginning of the next sibling section.  If there is no
+     next sibling section, then move to the parent section instead.
+
+‘^’ (‘magit-section-up’)
+     Move to the beginning of the parent of the current section.
+
+   The above commands all call the hook ‘magit-section-movement-hook’.
+Any of the functions listed below can be used as members of this hook.
+
+   You might want to remove some of the functions that Magit adds using
+‘add-hook’.  In doing so you have to make sure you do not attempt to
+remove function that haven’t even been added yet, for example:
+
+     (with-eval-after-load 'magit-diff
+       (remove-hook 'magit-section-movement-hook
+                    'magit-hunk-set-window-start))
+
+ -- Variable: magit-section-movement-hook
+     This hook is run by all of the above movement commands, after
+     arriving at the destination.
+
+ -- Function: magit-hunk-set-window-start
+     This hook function ensures that the beginning of the current
+     section is visible, provided it is a ‘hunk’ section.  Otherwise, it
+     does nothing.
+
+     Loading ‘magit-diff’ adds this function to the hook.
+
+ -- Function: magit-section-set-window-start
+     This hook function ensures that the beginning of the current
+     section is visible, regardless of the section’s type.  If you add
+     this to ‘magit-section-movement-hook’, then you must remove the
+     hunk-only variant in turn.
+
+ -- Function: magit-log-maybe-show-more-commits
+     This hook function only has an effect in log buffers, and ‘point’
+     is on the "show more" section.  If that is the case, then it
+     doubles the number of commits that are being shown.
+
+     Loading ‘magit-log’ adds this function to the hook.
+
+ -- Function: magit-log-maybe-update-revision-buffer
+     When moving inside a log buffer, then this function updates the
+     revision buffer, provided it is already being displayed in another
+     window of the same frame.
+
+     Loading ‘magit-log’ adds this function to the hook.
+
+ -- Function: magit-log-maybe-update-blob-buffer
+     When moving inside a log buffer and another window of the same
+     frame displays a blob buffer, then this function instead displays
+     the blob buffer for the commit at point in that window.
+
+ -- Function: magit-status-maybe-update-revision-buffer
+     When moving inside a status buffer, then this function updates the
+     revision buffer, provided it is already being displayed in another
+     window of the same frame.
+
+ -- Function: magit-status-maybe-update-stash-buffer
+     When moving inside a status buffer, then this function updates the
+     stash buffer, provided it is already being displayed in another
+     window of the same frame.
+
+ -- Function: magit-status-maybe-update-blob-buffer
+     When moving inside a status buffer and another window of the same
+     frame displays a blob buffer, then this function instead displays
+     the blob buffer for the commit at point in that window.
+
+ -- Function: magit-stashes-maybe-update-stash-buffer
+     When moving inside a buffer listing stashes, then this function
+     updates the stash buffer, provided it is already being displayed in
+     another window of the same frame.
+
+ -- User Option: magit-update-other-window-delay
+     Delay before automatically updating the other window.
+
+     When moving around in certain buffers, then certain other buffers,
+     which are being displayed in another window, may optionally be
+     updated to display information about the section at point.
+
+     When holding down a key to move by more than just one section, then
+     that would update that buffer for each section on the way.  To
+     prevent that, updating the revision buffer is delayed, and this
+     option controls for how long.  For optimal experience you might
+     have to adjust this delay and/or the keyboard repeat rate and delay
+     of your graphical environment or operating system.
+
+
+File: magit.info,  Node: Section Visibility,  Next: Section Hooks,  Prev: Section Movement,  Up: Sections
+
+4.2.2 Section Visibility
+------------------------
+
+Magit provides many commands for changing the visibility of sections,
+but all you need to get started are the next two.
+
+‘<TAB>’ (‘magit-section-toggle’)
+     Toggle the visibility of the body of the current section.
+
+‘C-c <TAB>’ (‘magit-section-cycle’)
+‘C-<tab>’ (‘magit-section-cycle’)
+     Cycle the visibility of current section and its children.
+
+     If this command is invoked using ‘C-<tab>’ and that is globally
+     bound to ‘tab-next’, then this command pivots to behave like that
+     command, and you must instead use ‘C-c TAB’ to cycle section
+     visibility.
+
+     If you would like to keep using ‘C-<tab>’ to cycle section
+     visibility but also want to use ‘tab-bar-mode’, then you have to
+     prevent that mode from using this key and instead bind another key
+     to ‘tab-next’.  Because ‘tab-bar-mode’ does not use a mode map but
+     instead manipulates the global map, this involves advising
+     ‘tab-bar--define-keys’.
+
+‘M-<tab>’ (‘magit-section-cycle-diffs’)
+     Cycle the visibility of diff-related sections in the current
+     buffer.
+
+‘S-<tab>’ (‘magit-section-cycle-global’)
+     Cycle the visibility of all sections in the current buffer.
+
+‘1’ (‘magit-section-show-level-1’)
+‘2’ (‘magit-section-show-level-2’)
+‘3’ (‘magit-section-show-level-3’)
+‘4’ (‘magit-section-show-level-4’)
+     Show sections surrounding the current section up to level N.
+
+‘M-1’ (‘magit-section-show-level-1-all’)
+‘M-2’ (‘magit-section-show-level-2-all’)
+‘M-3’ (‘magit-section-show-level-3-all’)
+‘M-4’ (‘magit-section-show-level-4-all’)
+     Show all sections up to level N.
+
+   Some functions, which are used to implement the above commands, are
+also exposed as commands themselves.  By default no keys are bound to
+these commands, as they are generally perceived to be much less useful.
+But your mileage may vary.
+
+ -- Command: magit-section-show
+     Show the body of the current section.
+
+ -- Command: magit-section-hide
+     Hide the body of the current section.
+
+ -- Command: magit-section-show-headings
+     Recursively show headings of children of the current section.  Only
+     show the headings.  Previously shown text-only bodies are hidden.
+
+ -- Command: magit-section-show-children
+     Recursively show the bodies of children of the current section.
+     With a prefix argument show children down to the level of the
+     current section, and hide deeper children.
+
+ -- Command: magit-section-hide-children
+     Recursively hide the bodies of children of the current section.
+
+ -- Command: magit-section-toggle-children
+     Toggle visibility of bodies of children of the current section.
+
+   When a buffer is first created then some sections are shown expanded
+while others are not.  This is hard coded.  When a buffer is refreshed
+then the previous visibility is preserved.  The initial visibility of
+certain sections can also be overwritten using the hook
+‘magit-section-set-visibility-hook’.
+
+ -- User Option: magit-section-initial-visibility-alist
+     This options can be used to override the initial visibility of
+     sections.  In the future it will also be used to define the
+     defaults, but currently a section’s default is still hardcoded.
+
+     The value is an alist.  Each element maps a section type or lineage
+     to the initial visibility state for such sections.  The state has
+     to be one of ‘show’ or ‘hide’, or a function that returns one of
+     these symbols.  A function is called with the section as the only
+     argument.
+
+     Use the command ‘magit-describe-section-briefly’ to determine a
+     section’s lineage or type.  The vector in the output is the section
+     lineage and the type is the first element of that vector.
+     Wildcards can be used, see ‘magit-section-match’.
+
+ -- User Option: magit-section-cache-visibility
+     This option controls for which sections the previous visibility
+     state should be restored if a section disappears and later appears
+     again.  The value is a boolean or a list of section types.  If t,
+     then the visibility of all sections is cached.  Otherwise this is
+     only done for sections whose type matches one of the listed types.
+
+     This requires that the function ‘magit-section-cached-visibility’
+     is a member of ‘magit-section-set-visibility-hook’.
+
+ -- Variable: magit-section-set-visibility-hook
+     This hook is run when first creating a buffer and also when
+     refreshing an existing buffer, and is used to determine the
+     visibility of the section currently being inserted.
+
+     Each function is called with one argument, the section being
+     inserted.  It should return ‘hide’ or ‘show’, or to leave the
+     visibility undefined ‘nil’.  If no function decides on the
+     visibility and the buffer is being refreshed, then the visibility
+     is preserved; or if the buffer is being created, then the hard
+     coded default is used.
+
+     Usually this should only be used to set the initial visibility but
+     not during refreshes.  If ‘magit-insert-section--oldroot’ is
+     non-nil, then the buffer is being refreshed and these functions
+     should immediately return ‘nil’.
+
+ -- User Option: magit-section-visibility-indicator
+     This option controls whether and how to indicate that a section can
+     be expanded/collapsed.
+
+     If nil, then no visibility indicators are shown.  Otherwise the
+     value has to have one of these two forms:
+
+        • ‘(EXPANDABLE-BITMAP . COLLAPSIBLE-BITMAP)’
+
+          Both values have to be variables whose values are fringe
+          bitmaps.  In this case every section that can be expanded or
+          collapsed gets an indicator in the left fringe.
+
+          To provide extra padding around the indicator, set
+          ‘left-fringe-width’ in ‘magit-mode-hook’, e.g.:
+
+               (add-hook 'magit-mode-hook (lambda ()
+                                            (setq left-fringe-width 20)))
+
+        • ‘(STRING . BOOLEAN)’
+
+          In this case STRING (usually an ellipsis) is shown at the end
+          of the heading of every collapsed section.  Expanded sections
+          get no indicator.  The cdr controls whether the appearance of
+          these ellipsis take section highlighting into account.  Doing
+          so might potentially have an impact on performance, while not
+          doing so is kinda ugly.
+
+
+File: magit.info,  Node: Section Hooks,  Next: Section Types and Values,  Prev: Section Visibility,  Up: Sections
+
+4.2.3 Section Hooks
+-------------------
+
+Which sections are inserted into certain buffers is controlled with
+hooks.  This includes the status and the refs buffers.  For other
+buffers, e.g., log and diff buffers, this is not possible.  The command
+‘magit-describe-section’ can be used to see which hook (if any) was
+responsible for inserting the section at point.
+
+   For buffers whose sections can be customized by the user, a hook
+variable called ‘magit-TYPE-sections-hook’ exists.  This hook should be
+changed using ‘magit-add-section-hook’.  Avoid using ‘add-hooks’ or the
+Custom interface.
+
+   The various available section hook variables are described later in
+this manual along with the appropriate "section inserter functions".
+
+ -- Function: magit-add-section-hook hook function &optional at append
+          local
+     Add the function FUNCTION to the value of section hook HOOK.
+
+     Add FUNCTION at the beginning of the hook list unless optional
+     APPEND is non-nil, in which case FUNCTION is added at the end.  If
+     FUNCTION already is a member then move it to the new location.
+
+     If optional AT is non-nil and a member of the hook list, then add
+     FUNCTION next to that instead.  Add before or after AT, or replace
+     AT with FUNCTION depending on APPEND.  If APPEND is the symbol
+     ‘replace’, then replace AT with FUNCTION.  For any other non-nil
+     value place FUNCTION right after AT.  If nil, then place FUNCTION
+     right before AT.  If FUNCTION already is a member of the list but
+     AT is not, then leave FUNCTION where ever it already is.
+
+     If optional LOCAL is non-nil, then modify the hook’s buffer-local
+     value rather than its global value.  This makes the hook local by
+     copying the default value.  That copy is then modified.
+
+     HOOK should be a symbol.  If HOOK is void, it is first set to nil.
+     HOOK’s value must not be a single hook function.  FUNCTION should
+     be a function that takes no arguments and inserts one or multiple
+     sections at point, moving point forward.  FUNCTION may choose not
+     to insert its section(s), when doing so would not make sense.  It
+     should not be abused for other side-effects.
+
+   To remove a function from a section hook, use ‘remove-hook’.
+
+
+File: magit.info,  Node: Section Types and Values,  Next: Section Options,  Prev: Section Hooks,  Up: Sections
+
+4.2.4 Section Types and Values
+------------------------------
+
+Each section has a type, for example ‘hunk’, ‘file’, and ‘commit’.
+Instances of certain section types also have a value.  The value of a
+section of type ‘file’, for example, is a file name.
+
+   Users usually do not have to worry about a section’s type and value,
+but knowing them can be handy at times.
+
+‘H’ (‘magit-describe-section’)
+     This command shows information about the section at point in a
+     separate buffer.
+
+ -- Command: magit-describe-section-briefly
+     This command shows information about the section at point in the
+     echo area, as ‘#<magit-section VALUE [TYPE PARENT-TYPE...]
+     BEGINNING-END>’.
+
+   Many commands behave differently depending on the type of the section
+at point and/or somehow consume the value of that section.  But that is
+only one of the reasons why the same key may do something different,
+depending on what section is current.
+
+   Additionally for each section type a keymap *might* be defined, named
+‘magit-TYPE-section-map’.  That keymap is used as text property keymap
+of all text belonging to any section of the respective type.  If such a
+map does not exist for a certain type, then you can define it yourself,
+and it will automatically be used.
+
+
+File: magit.info,  Node: Section Options,  Prev: Section Types and Values,  Up: Sections
+
+4.2.5 Section Options
+---------------------
+
+This section describes options that have an effect on more than just a
+certain type of sections.  As you can see there are not many of those.
+
+ -- User Option: magit-section-show-child-count
+     Whether to append the number of children to section headings.  This
+     only affects sections that could benefit from this information.
+
+
+File: magit.info,  Node: Transient Commands,  Next: Transient Arguments and Buffer Variables,  Prev: Sections,  Up: Interface Concepts
+
+4.3 Transient Commands
+======================
+
+Many Magit commands are implemented as *transient* commands.  First the
+user invokes a *prefix* command, which causes its *infix* arguments and
+*suffix* commands to be displayed in the echo area.  The user then
+optionally sets some infix arguments and finally invokes one of the
+suffix commands.
+
+   This is implemented in the library ‘transient’.  Earlier Magit
+releases used the package ‘magit-popup’ and even earlier versions
+library ‘magit-key-mode’.
+
+   Transient is documented in *note (transient)Top::.
+
+‘C-x M-g’ (‘magit-dispatch’)
+‘C-c g’ (‘magit-dispatch’)
+     This transient prefix command binds most of Magit’s other prefix
+     commands as suffix commands and displays them in a temporary buffer
+     until one of them is invoked.  Invoking such a sub-prefix causes
+     the suffixes of that command to be bound and displayed instead of
+     those of ‘magit-dispatch’.
+
+     This command is also, or especially, useful outside Magit buffers,
+     so Magit by default binds it to ‘C-c M-g’ in the global keymap.
+     ‘C-c g’ would be a better binding, but we cannot use that by
+     default, because that key sequence is reserved for the user.  See
+     *note Global Bindings:: to learn more default and recommended key
+     bindings.
+
+
+File: magit.info,  Node: Transient Arguments and Buffer Variables,  Next: Completion Confirmation and the Selection,  Prev: Transient Commands,  Up: Interface Concepts
+
+4.4 Transient Arguments and Buffer Variables
+============================================
+
+The infix arguments of many of Magit’s transient prefix commands cease
+to have an effect once the ‘git’ command that is called with those
+arguments has returned.  Commands that create a commit are a good
+example for this.  If the user changes the arguments, then that only
+affects the next invocation of a suffix command.  If the same transient
+prefix command is later invoked again, then the arguments are initially
+reset to the default value.  This default value can be set for the
+current Emacs session or saved permanently, see *note (transient)Saving
+Values::.  It is also possible to cycle through previously used sets of
+arguments using ‘C-M-p’ and ‘C-M-n’, see *note (transient)Using
+History::.
+
+   However the infix arguments of many other transient commands continue
+to have an effect even after the ‘git’ command that was called with
+those arguments has returned.  The most important commands like this are
+those that display a diff or log in a dedicated buffer.  Their arguments
+obviously continue to have an effect for as long as the respective diff
+or log is being displayed.  Furthermore the used arguments are stored in
+buffer-local variables for future reference.
+
+   For commands in the second group it isn’t always desirable to reset
+their arguments to the global value when the transient prefix command is
+invoked again.
+
+   As mentioned above, it is possible to cycle through previously used
+sets of arguments while a transient popup is visible.  That means that
+we could always reset the infix arguments to the default because the set
+of arguments that is active in the existing buffer is only a few ‘C-M-p’
+away.  Magit can be configured to behave like that, but because I expect
+that most users would not find that very convenient, it is not the
+default.
+
+   Also note that it is possible to change the diff and log arguments
+used in the current buffer (including the status buffer, which contains
+both diff and log sections) using the respective "refresh" transient
+prefix commands on ‘D’ and ‘L’.  (‘d’ and ‘l’ on the other hand are
+intended to change *what* diff or log is being displayed.  It is
+possible to also change *how* the diff or log is being displayed at the
+same time, but if you only want to do the latter, then you should use
+the refresh variants.)  Because these secondary diff and log transient
+prefixes are about *changing* the arguments used in the current buffer,
+they *always* start out with the set of arguments that are currently in
+effect in that buffer.
+
+   Some commands are usually invoked directly even though they can also
+be invoked as the suffix of a transient prefix command.  Most
+prominently ‘magit-show-commit’ is usually invoked by typing ‘RET’ while
+point is on a commit in a log, but it can also be invoked from the
+‘magit-diff’ transient prefix.
+
+   When such a command is invoked directly, then it is important to
+reuse the arguments as specified by the respective buffer-local values,
+instead of using the default arguments.  Imagine you press ‘RET’ in a
+log to display the commit at point in a different buffer and then use
+‘D’ to change how the diff is displayed in that buffer.  And then you
+press ‘RET’ on another commit to show that instead and the diff
+arguments are reset to the default.  Not cool; so Magit does not do that
+by default.
+
+ -- User Option: magit-prefix-use-buffer-arguments
+     This option controls whether the infix arguments initially shown in
+     certain transient prefix commands are based on the arguments that
+     are currently in effect in the buffer that their suffixes update.
+
+     The ‘magit-diff’ and ‘magit-log’ transient prefix commands are
+     affected by this option.
+
+ -- User Option: magit-direct-use-buffer-arguments
+     This option controls whether certain commands, when invoked
+     directly (i.e., not as the suffix of a transient prefix command),
+     use the arguments that are currently active in the buffer that they
+     are about to update.  The alternative is to use the default value
+     for these arguments, which might change the arguments that are used
+     in the buffer.
+
+Valid values for both of the above options are:
+
+   • ‘always’: Always use the set of arguments that is currently active
+     in the respective buffer, provided that buffer exists of course.
+   • ‘selected’ or ‘t’: Use the set of arguments from the respective
+     buffer, but only if it is displayed in a window of the current
+     frame.  This is the default for both variables.
+   • ‘current’: Use the set of arguments from the respective buffer, but
+     only if it is the current buffer.
+   • ‘never’: Never use the set of arguments from the respective buffer.
+
+I am afraid it gets more complicated still:
+
+   • The global diff and log arguments are set for each supported mode
+     individually.  The diff arguments for example have different values
+     in ‘magit-diff-mode’, ‘magit-revision-mode’,
+     ‘magit-merge-preview-mode’ and ‘magit-status-mode’ buffers.
+     Setting or saving the value for one mode does not change the value
+     for other modes.  The history however is shared.
+
+   • When ‘magit-show-commit’ is invoked directly from a log buffer,
+     then the file filter is picked up from that buffer, not from the
+     revision buffer or the mode’s global diff arguments.
+
+   • Even though they are suffixes of the diff prefix
+     ‘magit-show-commit’ and ‘magit-stash-show’ do not use the diff
+     buffer used by the diff commands, instead they use the dedicated
+     revision and stash buffers.
+
+     At the time you invoke the diff prefix it is unknown to Magit which
+     of the suffix commands you are going to invoke.  While not certain,
+     more often than not users invoke one of the commands that use the
+     diff buffer, so the initial infix arguments are those used in that
+     buffer.  However if you invoke one of these commands directly, then
+     Magit knows that it should use the arguments from the revision
+     resp.  stash buffer.
+
+   • The log prefix also features reflog commands, but these commands do
+     not use the log arguments.
+
+   • If ‘magit-show-refs’ is invoked from a ‘magit-refs-mode’ buffer,
+     then it acts as a refresh prefix and therefore unconditionally uses
+     the buffer’s arguments as initial arguments.  If it is invoked
+     elsewhere with a prefix argument, then it acts as regular prefix
+     and therefore respects ‘magit-prefix-use-buffer-arguments’.  If it
+     is invoked elsewhere without a prefix argument, then it acts as a
+     direct command and therefore respects
+     ‘magit-direct-use-buffer-arguments’.
+
+
+File: magit.info,  Node: Completion Confirmation and the Selection,  Next: Mouse Support,  Prev: Transient Arguments and Buffer Variables,  Up: Interface Concepts
+
+4.5 Completion, Confirmation and the Selection
+==============================================
+
+* Menu:
+
+* Action Confirmation::
+* Completion and Confirmation::
+* The Selection::
+* The hunk-internal region::
+* Support for Completion Frameworks::
+* Additional Completion Options::
+
+
+File: magit.info,  Node: Action Confirmation,  Next: Completion and Confirmation,  Up: Completion Confirmation and the Selection
+
+4.5.1 Action Confirmation
+-------------------------
+
+By default many actions that could potentially lead to data loss have to
+be confirmed.  This includes many very common actions, so this can
+quickly become annoying.  Many of these actions can be undone and if you
+have thought about how to undo certain mistakes, then it should be safe
+to disable confirmation for the respective actions.
+
+   The option ‘magit-no-confirm’ can be used to tell Magit to perform
+certain actions without the user having to confirm them.  Note that
+while this option can only be used to disable confirmation for a
+specific set of actions, the next section explains another way of
+telling Magit to ask fewer questions.
+
+ -- User Option: magit-no-confirm
+     The value of this option is a list of symbols, representing actions
+     that do not have to be confirmed by the user before being carried
+     out.
+
+     By default many potentially dangerous commands ask the user for
+     confirmation.  Each of the below symbols stands for an action
+     which, when invoked unintentionally or without being fully aware of
+     the consequences, could lead to tears.  In many cases there are
+     several commands that perform variations of a certain action, so we
+     don’t use the command names but more generic symbols.
+
+        • Applying changes:
+
+             • ‘discard’ Discarding one or more changes (i.e., hunks or
+               the complete diff for a file) loses that change,
+               obviously.
+
+             • ‘reverse’ Reverting one or more changes can usually be
+               undone by reverting the reversion.
+
+             • ‘stage-all-changes’, ‘unstage-all-changes’ When there are
+               both staged and unstaged changes, then un-/staging
+               everything would destroy that distinction.  Of course
+               that also applies when un-/staging a single change, but
+               then less is lost and one does that so often that having
+               to confirm every time would be unacceptable.
+
+        • Files:
+
+             • ‘delete’ When a file that isn’t yet tracked by Git is
+               deleted, then it is completely lost, not just the last
+               changes.  Very dangerous.
+
+             • ‘trash’ Instead of deleting a file it can also be move to
+               the system trash.  Obviously much less dangerous than
+               deleting it.
+
+               Also see option ‘magit-delete-by-moving-to-trash’.
+
+             • ‘resurrect’ A deleted file can easily be resurrected by
+               "deleting" the deletion, which is done using the same
+               command that was used to delete the same file in the
+               first place.
+
+             • ‘untrack’ Untracking a file can be undone by tracking it
+               again.
+
+             • ‘rename’ Renaming a file can easily be undone.
+
+        • Sequences:
+
+             • ‘reset-bisect’ Aborting (known to Git as "resetting") a
+               bisect operation loses all information collected so far.
+
+             • ‘abort-cherry-pick’ Aborting a cherry-pick throws away
+               all conflict resolutions which have already been carried
+               out by the user.
+
+             • ‘abort-revert’ Aborting a revert throws away all conflict
+               resolutions which have already been carried out by the
+               user.
+
+             • ‘abort-rebase’ Aborting a rebase throws away all already
+               modified commits, but it’s possible to restore those from
+               the reflog.
+
+             • ‘abort-merge’ Aborting a merge throws away all conflict
+               resolutions which have already been carried out by the
+               user.
+
+             • ‘merge-dirty’ Merging with a dirty worktree can make it
+               hard to go back to the state before the merge was
+               initiated.
+
+        • References:
+
+             • ‘delete-unmerged-branch’ Once a branch has been deleted,
+               it can only be restored using low-level recovery tools
+               provided by Git.  And even then the reflog is gone.  The
+               user always has to confirm the deletion of a branch by
+               accepting the default choice (or selecting another
+               branch), but when a branch has not been merged yet, also
+               make sure the user is aware of that.
+
+             • ‘delete-pr-remote’ When deleting a branch that was
+               created from a pull-request and if no other branches
+               still exist on that remote, then ‘magit-branch-delete’
+               offers to delete the remote as well.  This should be safe
+               because it only happens if no other refs exist in the
+               remotes namespace, and you can recreate the remote if
+               necessary.
+
+             • ‘drop-stashes’ Dropping a stash is dangerous because Git
+               stores stashes in the reflog.  Once a stash is removed,
+               there is no going back without using low-level recovery
+               tools provided by Git.  When a single stash is dropped,
+               then the user always has to confirm by accepting the
+               default (or selecting another).  This action only
+               concerns the deletion of multiple stashes at once.
+
+        • Publishing:
+
+             • ‘set-and-push’ When pushing to the upstream or the
+               push-remote and that isn’t actually configured yet, then
+               the user can first set the target.  If s/he confirms the
+               default too quickly, then s/he might end up pushing to
+               the wrong branch and if the remote repository is
+               configured to disallow fixing such mistakes, then that
+               can be quite embarrassing and annoying.
+
+        • Edit published history:
+
+          Without adding these symbols here, you will be warned before
+          editing commits that have already been pushed to one of the
+          branches listed in ‘magit-published-branches’.
+
+             • ‘amend-published’ Affects most commands that amend to
+               "HEAD".
+
+             • ‘rebase-published’ Affects commands that perform
+               interactive rebases.  This includes commands from the
+               commit transient that modify a commit other than "HEAD",
+               namely the various fixup and squash variants.
+
+             • ‘edit-published’ Affects the commands
+               ‘magit-edit-line-commit’ and
+               ‘magit-diff-edit-hunk-commit’.  These two commands make
+               it quite easy to accidentally edit a published commit, so
+               you should think twice before configuring them not to ask
+               for confirmation.
+
+          To disable confirmation completely, add all three symbols here
+          or set ‘magit-published-branches’ to ‘nil’.
+
+        • Various:
+
+             • ‘stash-apply-3way’ When a stash cannot be applied using
+               ‘git stash apply’, then Magit uses ‘git apply’ instead,
+               possibly using the ‘--3way’ argument, which isn’t always
+               perfectly safe.  See also ‘magit-stash-apply’.
+
+             • ‘kill-process’ There seldom is a reason to kill a
+               process.
+
+        • Global settings:
+
+          Instead of adding all of the above symbols to the value of
+          this option, you can also set it to the atom ‘t’, which has
+          the same effect as adding all of the above symbols.  Doing
+          that most certainly is a bad idea, especially because other
+          symbols might be added in the future.  So even if you don’t
+          want to be asked for confirmation for any of these actions,
+          you are still better of adding all of the respective symbols
+          individually.
+
+          When ‘magit-wip-before-change-mode’ is enabled, then the
+          following actions can be undone fairly easily: ‘discard’,
+          ‘reverse’, ‘stage-all-changes’, and ‘unstage-all-changes’.  If
+          and only if this mode is enabled, then ‘safe-with-wip’ has the
+          same effect as adding all of these symbols individually.
+
+
+File: magit.info,  Node: Completion and Confirmation,  Next: The Selection,  Prev: Action Confirmation,  Up: Completion Confirmation and the Selection
+
+4.5.2 Completion and Confirmation
+---------------------------------
+
+Many Magit commands ask the user to select from a list of possible
+things to act on, while offering the most likely choice as the default.
+For many of these commands the default is the thing at point, provided
+that it actually is a valid thing to act on.  For many commands that act
+on a branch, the current branch serves as the default if there is no
+branch at point.
+
+   These commands combine asking for confirmation and asking for a
+target to act on into a single action.  The user can confirm the default
+target using ‘RET’ or abort using ‘C-g’.  This is similar to a
+‘y-or-n-p’ prompt, but the keys to confirm or abort differ.
+
+   At the same time the user is also given the opportunity to select
+another target, which is useful because for some commands and/or in some
+situations you might want to select the action before selecting the
+target by moving to it.
+
+   However you might find that for some commands you always want to use
+the default target, if any, or even that you want the command to act on
+the default without requiring any confirmation at all.  The option
+‘magit-dwim-selection’ can be used to configure certain commands to that
+effect.
+
+   Note that when the region is active then many commands act on the
+things that are selected using a mechanism based on the region, in many
+cases after asking for confirmation.  This region-based mechanism is
+called the "selection" and is described in detail in the next section.
+When a selection exists that is valid for the invoked command, then that
+command never offers to act on something else, and whether it asks for
+confirmation is not controlled by this option.
+
+   Also note that Magit asks for confirmation of certain actions that
+are not coupled with completion (or the selection).  Such dialogs are
+also not affected by this option and are described in the previous
+section.
+
+ -- User Option: magit-dwim-selection
+   This option can be used to tell certain commands to use the thing at
+point instead of asking the user to select a candidate to act on, with
+or without confirmation.
+
+   The value has the form ‘((COMMAND nil|PROMPT DEFAULT)...)’.
+
+   • COMMAND is the command that should not prompt for a choice.  To
+     have an effect, the command has to use the function
+     ‘magit-completing-read’ or a utility function which in turn uses
+     that function.
+
+   • If the command uses ‘magit-completing-read’ multiple times, then
+     PROMPT can be used to only affect one of these uses.  PROMPT, if
+     non-nil, is a regular expression that is used to match against the
+     PROMPT argument passed to ‘magit-completing-read’.
+
+   • DEFAULT specifies how to use the default.  If it is ‘t’, then the
+     DEFAULT argument passed to ‘magit-completing-read’ is used without
+     confirmation.  If it is ‘ask’, then the user is given a chance to
+     abort.  DEFAULT can also be ‘nil’, in which case the entry has no
+     effect.
+
+
+File: magit.info,  Node: The Selection,  Next: The hunk-internal region,  Prev: Completion and Confirmation,  Up: Completion Confirmation and the Selection
+
+4.5.3 The Selection
+-------------------
+
+If the region is active, then many Magit commands act on the things that
+are selected using a mechanism based on the region instead of one single
+thing.  When the region is not active, then these commands act on the
+thing at point or read a single thing to act on.  This is described in
+the previous section — this section only covers how multiple things are
+selected, how that is visualized, and how certain commands behave when
+that is the case.
+
+   Magit’s mechanism for selecting multiple things, or rather sections
+that represent these things, is based on the Emacs region, but the area
+that Magit considers to be selected is typically larger than the region
+and additional restrictions apply.
+
+   Magit makes a distinction between a region that qualifies as forming
+a valid Magit selection and a region that does not.  If the region does
+not qualify, then it is displayed as it is in other Emacs buffers.  If
+the region does qualify as a Magit selection, then the selection is
+always visualized, while the region itself is only visualized if it
+begins and ends on the same line.
+
+   For a region to qualify as a Magit selection, it must begin in the
+heading of one section and end in the heading of a sibling section.
+Note that if the end of the region is at the very beginning of section
+heading (i.e., at the very beginning of a line) then that section is
+considered to be *inside* the selection.
+
+   This is not consistent with how the region is normally treated in
+Emacs — if the region ends at the beginning of a line, then that line is
+outside the region.  Due to how Magit visualizes the selection, it
+should be obvious that this difference exists.
+
+   Not every command acts on every valid selection.  Some commands do
+not even consider the location of point, others may act on the section
+at point but not support acting on the selection, and even commands that
+do support the selection of course only do so if it selects things that
+they can act on.
+
+   This is the main reason why the selection must include the section at
+point.  Even if a selection exists, the invoked command may disregard
+it, in which case it may act on the current section only.  It is much
+safer to only act on the current section but not the other selected
+sections than it is to act on the current section *instead* of the
+selected sections.  The latter would be much more surprising and if the
+current section always is part of the selection, then that cannot
+happen.
+
+ -- Variable: magit-keep-region-overlay
+     This variable controls whether the region is visualized as usual
+     even when a valid Magit selection or a hunk-internal region exists.
+     See the doc-string for more information.
+
+
+File: magit.info,  Node: The hunk-internal region,  Next: Support for Completion Frameworks,  Prev: The Selection,  Up: Completion Confirmation and the Selection
+
+4.5.4 The hunk-internal region
+------------------------------
+
+Somewhat related to the Magit selection described in the previous
+section is the hunk-internal region.
+
+   Like the selection, the hunk-internal region is based on the Emacs
+region but causes that region to not be visualized as it would in other
+Emacs buffers, and includes the line on which the region ends even if it
+ends at the very beginning of that line.
+
+   Unlike the selection, which is based on a region that must begin in
+the heading of one section and ends in the section of a sibling section,
+the hunk-internal region must begin inside the *body* of a hunk section
+and end in the body of the *same* section.
+
+   The hunk-internal region is honored by "apply" commands, which can,
+among other targets, act on a hunk.  If the hunk-internal region is
+active, then such commands act only on the marked part of the hunk
+instead of on the complete hunk.
+
+
+File: magit.info,  Node: Support for Completion Frameworks,  Next: Additional Completion Options,  Prev: The hunk-internal region,  Up: Completion Confirmation and the Selection
+
+4.5.5 Support for Completion Frameworks
+---------------------------------------
+
+The built-in option ‘completing-read-function’ specifies the low-level
+function used by ‘completing-read’ to ask a user to select from a list
+of choices.  Its default value is ‘completing-read-default’.
+Alternative completion frameworks typically activate themselves by
+substituting their own implementation.
+
+   Mostly for historic reasons Magit provides a similar option named
+‘magit-completing-read-function’, which only controls the low-level
+function used by ‘magit-completing-read’.  This option also makes it
+possible to use a different completing mechanism for Magit than for the
+rest of Emacs, but doing that is not recommend.
+
+   You most likely don’t have to customize the magit-specific option to
+use an alternative completion framework.  For example, if you enable
+‘ivy-mode’, then Magit will respect that, and if you enable ‘helm-mode’,
+then you are done too.
+
+   However if you want to use Ido, then ‘ido-mode’ won’t do the trick.
+You will also have to install the ‘ido-completing-read+’ package and use
+‘magit-ido-completing-read’ as ‘magit-completing-read-function’.
+
+ -- User Option: magit-completing-read-function
+     The value of this variable is the low-level function used to
+     perform completion by code that uses ‘magit-completing-read’ (as
+     opposed to the built-in ‘completing-read’).
+
+     The default value, ‘magit-builtin-completing-read’, is suitable for
+     the standard completion mechanism, ‘ivy-mode’, and ‘helm-mode’ at
+     least.
+
+     The built-in ‘completing-read’ and ‘completing-read-default’ are
+     *not* suitable to be used here.  ‘magit-builtin-completing-read’
+     performs some additional work, and any function used in its place
+     has to do the same.
+
+ -- Function: magit-builtin-completing-read prompt choices &optional
+          predicate require-match initial-input hist def
+     This function performs completion using the built-in
+     ‘completing-read’ and does some additional magit-specific work.
+
+ -- Function: magit-ido-completing-read prompt choices &optional
+          predicate require-match initial-input hist def
+     This function performs completion using ‘ido-completing-read+’ from
+     the package by the same name (which you have to explicitly install)
+     and does some additional magit-specific work.
+
+     We have to use ‘ido-completing-read+’ instead of the
+     ‘ido-completing-read’ that comes with Ido itself, because the
+     latter, while intended as a drop-in replacement, cannot serve that
+     purpose because it violates too many of the implicit conventions.
+
+ -- Function: magit-completing-read prompt choices &optional predicate
+          require-match initial-input hist def fallback
+     This is the function that Magit commands use when they need the
+     user to select a single thing to act on.  The arguments have the
+     same meaning as for ‘completing-read’, except for FALLBACK, which
+     is unique to this function and is described below.
+
+     Instead of asking the user to choose from a list of possible
+     candidates, this function may just return the default specified by
+     DEF, with or without requiring user confirmation.  Whether that is
+     the case depends on PROMPT, ‘this-command’ and
+     ‘magit-dwim-selection’.  See the documentation of the latter for
+     more information.
+
+     If it does read a value in the minibuffer, then this function acts
+     similar to ‘completing-read’, except for the following:
+
+        • COLLECTION must be a list of choices.  A function is not
+          supported.
+
+        • If REQUIRE-MATCH is ‘nil’ and the user exits without a choice,
+          then ‘nil’ is returned instead of an empty string.
+
+        • If REQUIRE-MATCH is non-nil and the users exits without a
+          choice, an user-error is raised.
+
+        • FALLBACK specifies a secondary default that is only used if
+          the primary default DEF is ‘nil’.  The secondary default is
+          not subject to ‘magit-dwim-selection’ — if DEF is ‘nil’ but
+          FALLBACK is not, then this function always asks the user to
+          choose a candidate, just as if both defaults were ‘nil’.
+
+        • ‘format-prompt’ is called on PROMPT and DEF (or FALLBACK if
+          DEF is ‘nil’).  This appends ": " to the prompt and may also
+          add the default to the prompt, using the format specified by
+          ‘minibuffer-default-prompt-format’ and depending on
+          ‘magit-completing-read-default-prompt-predicate’.
+
+
+File: magit.info,  Node: Additional Completion Options,  Prev: Support for Completion Frameworks,  Up: Completion Confirmation and the Selection
+
+4.5.6 Additional Completion Options
+-----------------------------------
+
+ -- User Option: magit-list-refs-sortby
+     For many commands that read a ref or refs from the user, the value
+     of this option can be used to control the order of the refs.  Valid
+     values include any key accepted by the ‘--sort’ flag of ‘git
+     for-each-ref’.  By default, refs are sorted alphabetically by their
+     full name (e.g., "refs/heads/master").
+
+
+File: magit.info,  Node: Mouse Support,  Next: Running Git,  Prev: Completion Confirmation and the Selection,  Up: Interface Concepts
+
+4.6 Mouse Support
+=================
+
+Double clicking on a section heading toggles the visibility of its body,
+if any.  Likewise clicking in the left fringe toggles the visibility of
+the appropriate section.
+
+   A context menu is provided but has to be enabled explicitly.  In
+Emacs 28 and greater, enable the global mode ‘context-menu-mode’.  If
+you use an older Emacs release, set
+‘magit-section-show-context-menu-for-emacs<28’.
+
+
+File: magit.info,  Node: Running Git,  Prev: Mouse Support,  Up: Interface Concepts
+
+4.7 Running Git
+===============
+
+* Menu:
+
+* Viewing Git Output::
+* Git Process Status::
+* Running Git Manually::
+* Git Executable::
+* Global Git Arguments::
+
+
+File: magit.info,  Node: Viewing Git Output,  Next: Git Process Status,  Up: Running Git
+
+4.7.1 Viewing Git Output
+------------------------
+
+Magit runs Git either for side-effects (e.g., when pushing) or to get
+some value (e.g., the name of the current branch).
+
+   When Git is run for side-effects, the process output is logged in a
+per-repository log buffer, which can be consulted using the
+‘magit-process’ command when things don’t go as expected.
+
+   The output/errors for up to ‘magit-process-log-max’ Git commands are
+retained.
+
+‘$’ (‘magit-process’)
+     This commands displays the process buffer for the current
+     repository.
+
+   Inside that buffer, the usual key bindings for navigating and showing
+sections are available.  There is one additional command.
+
+‘k’ (‘magit-process-kill’)
+     This command kills the process represented by the section at point.
+
+ -- Variable: magit-git-debug
+     This option controls whether additional reporting of git errors is
+     enabled.
+
+     Magit basically calls git for one of these two reasons: for
+     side-effects or to do something with its standard output.
+
+     When git is run for side-effects then its output, including error
+     messages, go into the process buffer which is shown when using ‘$’.
+
+     When git’s output is consumed in some way, then it would be too
+     expensive to also insert it into this buffer, but when this option
+     is non-nil and git returns with a non-zero exit status, then at
+     least its standard error is inserted into this buffer.
+
+     This is only intended for debugging purposes.  Do not enable this
+     permanently, that would negatively affect performance.
+
+     This is only intended for debugging purposes.  Do not enable this
+     permanently, that would negatively affect performance.  Also note
+     that just because git exits with a non-zero exit status and prints
+     an error message that usually doesn’t mean that it is an error as
+     far as Magit is concerned, which is another reason we usually hide
+     these error messages.  Whether some error message is relevant in
+     the context of some unexpected behavior has to be judged on a case
+     by case basis.
+
+     The command ‘magit-toggle-git-debug’ changes the value of this
+     variable.
+
+ -- Variable: magit-process-extreme-logging
+     This option controls whether ‘magit-process-file’ logs to the
+     ‘*Messages*’ buffer.
+
+     Only intended for temporary use when you try to figure out how
+     Magit uses Git behind the scene.  Output that normally goes to the
+     magit-process buffer continues to go there.  Not all output goes to
+     either of these two buffers.
+
+
+File: magit.info,  Node: Git Process Status,  Next: Running Git Manually,  Prev: Viewing Git Output,  Up: Running Git
+
+4.7.2 Git Process Status
+------------------------
+
+When a Git process is running for side-effects, Magit displays an
+indicator in the mode line, using the ‘magit-mode-line-process’ face.
+
+   If the Git process exits successfully, the process indicator is
+removed from the mode line immediately.
+
+   In the case of a Git error, the process indicator is not removed, but
+is instead highlighted with the ‘magit-mode-line-process-error’ face,
+and the error details from the process buffer are provided as a tooltip
+for mouse users.  This error indicator persists in the mode line until
+the next magit buffer refresh.
+
+   If you do not wish process errors to be indicated in the mode line,
+customize the ‘magit-process-display-mode-line-error’ user option.
+
+   Process errors are additionally indicated at the top of the status
+buffer.
+
+
+File: magit.info,  Node: Running Git Manually,  Next: Git Executable,  Prev: Git Process Status,  Up: Running Git
+
+4.7.3 Running Git Manually
+--------------------------
+
+While Magit provides many Emacs commands to interact with Git, it does
+not cover everything.  In those cases your existing Git knowledge will
+come in handy.  Magit provides some commands for running arbitrary Git
+commands by typing them into the minibuffer, instead of having to switch
+to a shell.
+
+‘!’ (‘magit-run’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘! !’ (‘magit-git-command-topdir’)
+     This command reads a command from the user and executes it in the
+     top-level directory of the current working tree.
+
+     The string "git " is used as initial input when prompting the user
+     for the command.  It can be removed to run another command.
+
+‘:’ (‘magit-git-command’)
+‘! p’
+     This command reads a command from the user and executes it in
+     ‘default-directory’.  With a prefix argument the command is
+     executed in the top-level directory of the current working tree
+     instead.
+
+     The string "git " is used as initial input when prompting the user
+     for the command.  It can be removed to run another command.
+
+‘! s’ (‘magit-shell-command-topdir’)
+     This command reads a command from the user and executes it in the
+     top-level directory of the current working tree.
+
+‘! S’ (‘magit-shell-command’)
+     This command reads a command from the user and executes it in
+     ‘default-directory’.  With a prefix argument the command is
+     executed in the top-level directory of the current working tree
+     instead.
+
+ -- User Option: magit-shell-command-verbose-prompt
+     Whether the prompt, used by the above commands when reading a shell
+     command, shows the directory in which it will be run.
+
+   These suffix commands start external gui tools.
+
+‘! k’ (‘magit-run-gitk’)
+     This command runs ‘gitk’ in the current repository.
+
+‘! a’ (‘magit-run-gitk-all’)
+     This command runs ‘gitk --all’ in the current repository.
+
+‘! b’ (‘magit-run-gitk-branches’)
+     This command runs ‘gitk --branches’ in the current repository.
+
+‘! g’ (‘magit-run-git-gui’)
+     This command runs ‘git gui’ in the current repository.
+
+‘! m’ (‘magit-git-mergetool’)
+     This command runs ‘git mergetool --gui’ in the current repository.
+
+     With a prefix argument this acts as a transient prefix command,
+     allowing the user to select the mergetool and change some settings.
+
+
+File: magit.info,  Node: Git Executable,  Next: Global Git Arguments,  Prev: Running Git Manually,  Up: Running Git
+
+4.7.4 Git Executable
+--------------------
+
+When Magit calls Git, then it may do so using the absolute path to the
+‘git’ executable, or using just its name.
+
+   When running ‘git’ locally and the ‘system-type’ is ‘windows-nt’ (any
+Windows version) or ‘darwin’ (macOS) then ‘magit-git-executable’ is set
+to an absolute path when Magit is loaded.
+
+   On Windows it is necessary to use an absolute path because Git comes
+with several wrapper scripts for the actual ‘git’ binary, which are also
+placed on ‘$PATH’, and using one of these wrappers instead of the binary
+would degrade performance horribly.  For some macOS users using just the
+name of the executable also performs horribly, so we avoid doing that on
+that platform as well.  On other platforms, using just the name seems to
+work just fine.
+
+   Using an absolute path when running ‘git’ on a remote machine over
+Tramp, would be problematic to use an absolute path that is suitable on
+the local machine, so a separate option is used to control the name or
+path that is used on remote machines.
+
+ -- User Option: magit-git-executable
+     The ‘git’ executable used by Magit on the local host.  This should
+     be either the absolute path to the executable, or the string "git"
+     to let Emacs find the executable itself, using the standard
+     mechanism for doing such things.
+
+ -- User Option: magit-remote-git-executable
+     The ‘git’ executable used by Magit on remote machines over Tramp.
+     Normally this should be just the string "git".  Consider
+     customizing ‘tramp-remote-path’ instead of this option.
+
+   If Emacs is unable to find the correct executable, then you can work
+around that by explicitly setting the value of one of these two options.
+Doing that should be considered a kludge; it is better to make sure that
+the order in ‘exec-path’ or ‘tramp-remote-path’ is correct.
+
+   Note that ‘exec-path’ is set based on the value of the ‘PATH’
+environment variable that is in effect when Emacs is started.  If you
+set ‘PATH’ in your shell’s init files, then that only has an effect on
+Emacs if you start it from that shell (because the environment of a
+process is only passed to its child processes, not to arbitrary other
+processes).  If that is not how you start Emacs, then the
+‘exec-path-from-shell’ package can help; though honestly I consider that
+a kludge too.
+
+   The command ‘magit-debug-git-executable’ can be useful to find out
+where Emacs is searching for ‘git’.
+
+‘M-x magit-debug-git-executable’
+     This command displays a buffer with information about
+     ‘magit-git-executable’ and ‘magit-remote-git-executable’.
+
+‘M-x magit-version’
+     This command shows the currently used versions of Magit, Git, and
+     Emacs in the echo area.  Non-interactively this just returns the
+     Magit version.
+
+
+File: magit.info,  Node: Global Git Arguments,  Prev: Git Executable,  Up: Running Git
+
+4.7.5 Global Git Arguments
+--------------------------
+
+ -- User Option: magit-git-global-arguments
+     The arguments set here are used every time the git executable is
+     run as a subprocess.  They are placed right after the executable
+     itself and before the git command - as in ‘git HERE... COMMAND
+     REST’.  For valid arguments see *note (gitman)git::.
+
+     Be careful what you add here, especially if you are using Tramp to
+     connect to servers with ancient Git versions.  Never remove
+     anything that is part of the default value, unless you really know
+     what you are doing.  And think very hard before adding something;
+     it will be used every time Magit runs Git for any purpose.
+
+
+File: magit.info,  Node: Inspecting,  Next: Manipulating,  Prev: Interface Concepts,  Up: Top
+
+5 Inspecting
+************
+
+The functionality provided by Magit can be roughly divided into three
+groups: inspecting existing data, manipulating existing data or adding
+new data, and transferring data.  Of course that is a rather crude
+distinction that often falls short, but it’s more useful than no
+distinction at all.  This section is concerned with inspecting data, the
+next two with manipulating and transferring it.  Then follows a section
+about miscellaneous functionality, which cannot easily be fit into this
+distinction.
+
+   Of course other distinctions make sense too, e.g., Git’s distinction
+between porcelain and plumbing commands, which for the most part is
+equivalent to Emacs’ distinction between interactive commands and
+non-interactive functions.  All of the sections mentioned before are
+mainly concerned with the porcelain – Magit’s plumbing layer is
+described later.
+
+* Menu:
+
+* Status Buffer::
+* Repository List::
+* Logging::
+* Diffing::
+* Ediffing::
+* References Buffer::
+* Bisecting::
+* Visiting Files and Blobs::
+* Blaming::
+
+
+File: magit.info,  Node: Status Buffer,  Next: Repository List,  Up: Inspecting
+
+5.1 Status Buffer
+=================
+
+While other Magit buffers contain, e.g., one particular diff or one
+particular log, the status buffer contains the diffs for staged and
+unstaged changes, logs for unpushed and unpulled commits, lists of
+stashes and untracked files, and information related to the current
+branch.
+
+   During certain incomplete operations – for example when a merge
+resulted in a conflict – additional information is displayed that helps
+proceeding with or aborting the operation.
+
+   The command ‘magit-status’ displays the status buffer belonging to
+the current repository in another window.  This command is used so often
+that it should be bound globally.  We recommend using ‘C-x g’:
+
+     (global-set-key (kbd "C-x g") 'magit-status)
+
+‘C-x g’ (‘magit-status’)
+     When invoked from within an existing Git repository, then this
+     command shows the status of that repository in a buffer.
+
+     If the current directory isn’t located within a Git repository,
+     then this command prompts for an existing repository or an
+     arbitrary directory, depending on the option
+     ‘magit-repository-directories’, and the status for the selected
+     repository is shown instead.
+
+        • If that option specifies any existing repositories, then the
+          user is asked to select one of them.
+
+        • Otherwise the user is asked to select an arbitrary directory
+          using regular file-name completion.  If the selected directory
+          is the top-level directory of an existing working tree, then
+          the status buffer for that is shown.
+
+        • Otherwise the user is offered to initialize the selected
+          directory as a new repository.  After creating the repository
+          its status buffer is shown.
+
+     These fallback behaviors can also be forced using one or more
+     prefix arguments:
+
+        • With two prefix arguments (or more precisely a numeric prefix
+          value of 16 or greater) an arbitrary directory is read, which
+          is then acted on as described above.  The same could be
+          accomplished using the command ‘magit-init’.
+
+        • With a single prefix argument an existing repository is read
+          from the user, or if no repository can be found based on the
+          value of ‘magit-repository-directories’, then the behavior is
+          the same as with two prefix arguments.
+
+ -- User Option: magit-repository-directories
+     List of directories that are Git repositories or contain Git
+     repositories.
+
+     Each element has the form ‘(DIRECTORY . DEPTH)’.  DIRECTORY has to
+     be a directory or a directory file-name, a string.  DEPTH, an
+     integer, specifies the maximum depth to look for Git repositories.
+     If it is 0, then only add DIRECTORY itself.
+
+     This option controls which repositories are being listed by
+     ‘magit-list-repositories’.  It also affects ‘magit-status’ (which
+     see) in potentially surprising ways (see above).
+
+ -- Command: magit-status-quick
+     This command is an alternative to ‘magit-status’ that usually
+     avoids refreshing the status buffer.
+
+     If the status buffer of the current Git repository exists but isn’t
+     being displayed in the selected frame, then it is displayed without
+     being refreshed.
+
+     If the status buffer is being displayed in the selected frame, then
+     this command refreshes it.
+
+     Prefix arguments have the same meaning as for ‘magit-status’, and
+     additionally cause the buffer to be refresh.
+
+     To use this command add this to your init file:
+
+          (global-set-key (kbd "C-x g") 'magit-status-quick).
+
+     If you do that and then for once want to redisplay the buffer and
+     also immediately refresh it, then type ‘C-x g’ followed by ‘g’.
+
+     A possible alternative command is
+     ‘magit-display-repository-buffer’.  It supports displaying any
+     existing Magit buffer that belongs to the current repository; not
+     just the status buffer.
+
+ -- Command: ido-enter-magit-status
+     From an Ido prompt used to open a file, instead drop into
+     ‘magit-status’.  This is similar to ‘ido-magic-delete-char’, which,
+     despite its name, usually causes a Dired buffer to be created.
+
+     To make this command available, use something like:
+
+          (add-hook 'ido-setup-hook
+                    (lambda ()
+                      (define-key ido-completion-map
+                        (kbd \"C-x g\") 'ido-enter-magit-status)))
+
+     Starting with Emacs 25.1 the Ido keymaps are defined just once
+     instead of every time Ido is invoked, so now you can modify it like
+     pretty much every other keymap:
+
+          (define-key ido-common-completion-map
+            (kbd \"C-x g\") 'ido-enter-magit-status)
+
+* Menu:
+
+* Status Sections::
+* Status Header Sections::
+* Status Module Sections::
+* Status Options::
+
+
+File: magit.info,  Node: Status Sections,  Next: Status Header Sections,  Up: Status Buffer
+
+5.1.1 Status Sections
+---------------------
+
+The contents of status buffers is controlled using the hook
+‘magit-status-sections-hook’.  See *note Section Hooks:: to learn about
+such hooks and how to customize them.
+
+ -- User Option: magit-status-sections-hook
+     Hook run to insert sections into a status buffer.
+
+   The first function on that hook by default is
+‘magit-insert-status-headers’; it is described in the next section.  By
+default the following functions are also members of that hook:
+
+ -- Function: magit-insert-merge-log
+     Insert section for the on-going merge.  Display the heads that are
+     being merged.  If no merge is in progress, do nothing.
+
+ -- Function: magit-insert-rebase-sequence
+     Insert section for the on-going rebase sequence.  If no such
+     sequence is in progress, do nothing.
+
+ -- Function: magit-insert-am-sequence
+     Insert section for the on-going patch applying sequence.  If no
+     such sequence is in progress, do nothing.
+
+ -- Function: magit-insert-sequencer-sequence
+     Insert section for the on-going cherry-pick or revert sequence.  If
+     no such sequence is in progress, do nothing.
+
+ -- Function: magit-insert-bisect-output
+     While bisecting, insert section with output from ‘git bisect’.
+
+ -- Function: magit-insert-bisect-rest
+     While bisecting, insert section visualizing the bisect state.
+
+ -- Function: magit-insert-bisect-log
+     While bisecting, insert section logging bisect progress.
+
+ -- Function: magit-insert-untracked-files
+     Maybe insert a list or tree of untracked files.
+
+     Do so depending on the value of ‘status.showUntrackedFiles’.  Note
+     that even if the value is ‘all’, Magit still initially only shows
+     directories.  But the directory sections can then be expanded using
+     ‘TAB’.
+
+     If the first element of ‘magit-buffer-diff-files’ is a directory,
+     then limit the list to files below that.  The value of that
+     variable can be set using ‘D -- DIRECTORY RET g’.
+
+ -- Function: magit-insert-unstaged-changes
+     Insert section showing unstaged changes.
+
+ -- Function: magit-insert-staged-changes
+     Insert section showing staged changes.
+
+ -- Function: magit-insert-stashes &optional ref heading
+     Insert the ‘stashes’ section showing reflog for "refs/stash".  If
+     optional REF is non-nil show reflog for that instead.  If optional
+     HEADING is non-nil use that as section heading instead of
+     "Stashes:".
+
+ -- Function: magit-insert-unpulled-from-upstream
+     Insert section showing commits that haven’t been pulled from the
+     upstream branch yet.
+
+ -- Function: magit-insert-unpulled-from-pushremote
+     Insert section showing commits that haven’t been pulled from the
+     push-remote branch yet.
+
+ -- Function: magit-insert-unpushed-to-upstream
+     Insert section showing commits that haven’t been pushed to the
+     upstream yet.
+
+ -- Function: magit-insert-unpushed-to-pushremote
+     Insert section showing commits that haven’t been pushed to the
+     push-remote yet.
+
+   The following functions can also be added to the above hook:
+
+ -- Function: magit-insert-tracked-files
+     Insert a tree of tracked files.
+
+ -- Function: magit-insert-ignored-files
+     Insert a tree of ignored files.  Its possible to limit the logs in
+     the current buffer to a certain directory using ‘D = f <DIRECTORY>
+     RET g’.  If you do that, then that that also affects this command.
+
+     The log filter can be used to limit to multiple files.  In that
+     case this function only respects the first of the files and only if
+     it is a directory.
+
+ -- Function: magit-insert-skip-worktree-files
+     Insert a tree of skip-worktree files.  If the first element of
+     ‘magit-buffer-diff-files’ is a directory, then limit the list to
+     files below that.  The value of that variable can be set using ‘D
+     -- DIRECTORY RET g’.
+
+ -- Function: magit-insert-assumed-unchanged-files
+     Insert a tree of files that are assumed to be unchanged.  If the
+     first element of ‘magit-buffer-diff-files’ is a directory, then
+     limit the list to files below that.  The value of that variable can
+     be set using ‘D -- DIRECTORY RET g’.
+
+ -- Function: magit-insert-unpulled-or-recent-commits
+     Insert section showing unpulled or recent commits.  If an upstream
+     is configured for the current branch and it is ahead of the current
+     branch, then show the missing commits.  Otherwise, show the last
+     ‘magit-log-section-commit-count’ commits.
+
+ -- Function: magit-insert-recent-commits
+     Insert section showing the last ‘magit-log-section-commit-count’
+     commits.
+
+ -- User Option: magit-log-section-commit-count
+     How many recent commits ‘magit-insert-recent-commits’ and
+     ‘magit-insert-unpulled-or-recent-commits’ (provided there are no
+     unpulled commits) show.
+
+ -- Function: magit-insert-unpulled-cherries
+     Insert section showing unpulled commits.  Like
+     ‘magit-insert-unpulled-commits’ but prefix each commit that has not
+     been applied yet (i.e., a commit with a patch-id not shared with
+     any local commit) with "+", and all others with "-".
+
+ -- Function: magit-insert-unpushed-cherries
+     Insert section showing unpushed commits.  Like
+     ‘magit-insert-unpushed-commits’ but prefix each commit which has
+     not been applied to upstream yet (i.e., a commit with a patch-id
+     not shared with any upstream commit) with "+" and all others with
+     "-".
+
+   See *note References Buffer:: for some more section inserters, which
+could be used here.
+
+
+File: magit.info,  Node: Status Header Sections,  Next: Status Module Sections,  Prev: Status Sections,  Up: Status Buffer
+
+5.1.2 Status Header Sections
+----------------------------
+
+The contents of status buffers is controlled using the hook
+‘magit-status-sections-hook’ (see *note Status Sections::).
+
+   By default ‘magit-insert-status-headers’ is the first member of that
+hook variable.
+
+ -- Function: magit-insert-status-headers
+     Insert headers sections appropriate for ‘magit-status-mode’
+     buffers.  The sections are inserted by running the functions on the
+     hook ‘magit-status-headers-hook’.
+
+ -- User Option: magit-status-headers-hook
+     Hook run to insert headers sections into the status buffer.
+
+     This hook is run by ‘magit-insert-status-headers’, which in turn
+     has to be a member of ‘magit-status-sections-hook’ to be used at
+     all.
+
+   By default the following functions are members of the above hook:
+
+ -- Function: magit-insert-error-header
+     Insert a header line showing the message about the Git error that
+     just occurred.
+
+     This function is only aware of the last error that occur when Git
+     was run for side-effects.  If, for example, an error occurs while
+     generating a diff, then that error won’t be inserted.  Refreshing
+     the status buffer causes this section to disappear again.
+
+ -- Function: magit-insert-diff-filter-header
+     Insert a header line showing the effective diff filters.
+
+ -- Function: magit-insert-head-branch-header
+     Insert a header line about the current branch or detached ‘HEAD’.
+
+ -- Function: magit-insert-upstream-branch-header
+     Insert a header line about the branch that is usually pulled into
+     the current branch.
+
+ -- Function: magit-insert-push-branch-header
+     Insert a header line about the branch that the current branch is
+     usually pushed to.
+
+ -- Function: magit-insert-tags-header
+     Insert a header line about the current and/or next tag, along with
+     the number of commits between the tag and ‘HEAD’.
+
+   The following functions can also be added to the above hook:
+
+ -- Function: magit-insert-repo-header
+     Insert a header line showing the path to the repository top-level.
+
+ -- Function: magit-insert-remote-header
+     Insert a header line about the remote of the current branch.
+
+     If no remote is configured for the current branch, then fall back
+     showing the "origin" remote, or if that does not exist the first
+     remote in alphabetic order.
+
+ -- Function: magit-insert-user-header
+     Insert a header line about the current user.
+
+
+File: magit.info,  Node: Status Module Sections,  Next: Status Options,  Prev: Status Header Sections,  Up: Status Buffer
+
+5.1.3 Status Module Sections
+----------------------------
+
+The contents of status buffers is controlled using the hook
+‘magit-status-sections-hook’ (see *note Status Sections::).
+
+   By default ‘magit-insert-modules’ is _not_ a member of that hook
+variable.
+
+ -- Function: magit-insert-modules
+     Insert submodule sections.
+
+     Hook ‘magit-module-sections-hook’ controls which module sections
+     are inserted, and option ‘magit-module-sections-nested’ controls
+     whether they are wrapped in an additional section.
+
+ -- User Option: magit-module-sections-hook
+     Hook run by ‘magit-insert-modules’.
+
+ -- User Option: magit-module-sections-nested
+     This option controls whether ‘magit-insert-modules’ wraps inserted
+     sections in an additional section.
+
+     If this is non-nil, then only a single top-level section is
+     inserted.  If it is nil, then all sections listed in
+     ‘magit-module-sections-hook’ become top-level sections.
+
+ -- Function: magit-insert-modules-overview
+     Insert sections for all submodules.  For each section insert the
+     path, the branch, and the output of ‘git describe --tags’, or,
+     failing that, the abbreviated HEAD commit hash.
+
+     Press ‘RET’ on such a submodule section to show its own status
+     buffer.  Press ‘RET’ on the "Modules" section to display a list of
+     submodules in a separate buffer.  This shows additional information
+     not displayed in the super-repository’s status buffer.
+
+ -- Function: magit-insert-modules-unpulled-from-upstream
+     Insert sections for modules that haven’t been pulled from the
+     upstream yet.  These sections can be expanded to show the
+     respective commits.
+
+ -- Function: magit-insert-modules-unpulled-from-pushremote
+     Insert sections for modules that haven’t been pulled from the
+     push-remote yet.  These sections can be expanded to show the
+     respective commits.
+
+ -- Function: magit-insert-modules-unpushed-to-upstream
+     Insert sections for modules that haven’t been pushed to the
+     upstream yet.  These sections can be expanded to show the
+     respective commits.
+
+ -- Function: magit-insert-modules-unpushed-to-pushremote
+     Insert sections for modules that haven’t been pushed to the
+     push-remote yet.  These sections can be expanded to show the
+     respective commits.
+
+
+File: magit.info,  Node: Status Options,  Prev: Status Module Sections,  Up: Status Buffer
+
+5.1.4 Status Options
+--------------------
+
+ -- User Option: magit-status-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Status mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+   Also see the proceeding section for more options concerning status
+buffers.
+
+
+File: magit.info,  Node: Repository List,  Next: Logging,  Prev: Status Buffer,  Up: Inspecting
+
+5.2 Repository List
+===================
+
+ -- Command: magit-list-repositories
+     This command displays a list of repositories in a separate buffer.
+
+     The option ‘magit-repository-directories’ controls which
+     repositories are displayed.
+
+ -- User Option: magit-repolist-columns
+     This option controls what columns are displayed by the command
+     ‘magit-list-repositories’ and how they are displayed.
+
+     Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
+
+     HEADER is the string displayed in the header.  WIDTH is the width
+     of the column.  FORMAT is a function that is called with one
+     argument, the repository identification (usually its basename), and
+     with ‘default-directory’ bound to the toplevel of its working tree.
+     It has to return a string to be inserted or nil.  PROPS is an alist
+     that supports the keys ‘:right-align’, ‘:pad-right’ and ‘:sort’.
+
+     The ‘:sort’ function has a weird interface described in the
+     docstring of ‘tabulated-list--get-sort’.  Alternatively ‘<’ and
+     ‘magit-repolist-version<’ can be used as those functions are
+     automatically replaced with functions that satisfy the interface.
+     Set ‘:sort’ to ‘nil’ to inhibit sorting; if unspecified, then the
+     column is sortable using the default sorter.
+
+     You may wish to display a range of numeric columns using just one
+     character per column and without any padding between columns, in
+     which case you should use an appropriate HEADER, set WIDTH to 1,
+     and set ‘:pad-right’ to 9.  ‘+’ is substituted for numbers higher
+     than 9.
+
+The following functions can be added to the above option:
+
+ -- Function: magit-repolist-column-ident
+     This function inserts the identification of the repository.
+     Usually this is just its basename.
+
+ -- Function: magit-repolist-column-path
+     This function inserts the absolute path of the repository.
+
+ -- Function: magit-repolist-column-version
+     This function inserts a description of the repository’s ‘HEAD’
+     revision.
+
+ -- Function: magit-repolist-column-branch
+     This function inserts the name of the current branch.
+
+ -- Function: magit-repolist-column-upstream
+     This function inserts the name of the upstream branch of the
+     current branch.
+
+ -- Function: magit-repolist-column-branches
+     This function inserts the number of branches.
+
+ -- Function: magit-repolist-column-stashes
+     This function inserts the number of stashes.
+
+ -- Function: magit-repolist-column-flag
+     This function inserts a flag as specified by
+     ‘magit-repolist-column-flag-alist’.
+
+     By default this indicates whether there are uncommitted changes.
+
+        • ‘N’ if there is at least one untracked file.
+        • ‘U’ if there is at least one unstaged file.
+        • ‘S’ if there is at least one staged file.
+
+     Only the first one of these that applies is shown.
+
+ -- Function: magit-repolist-column-flags
+     This functions insert all flags as specified by
+     ‘magit-repolist-column-flag-alist’.
+
+     This is an alternative to function ‘magit-repolist-column-flag’,
+     which only lists the first one found.
+
+ -- Function: magit-repolist-column-unpulled-from-upstream
+     This function inserts the number of upstream commits not in the
+     current branch.
+
+ -- Function: magit-repolist-column-unpulled-from-pushremote
+     This function inserts the number of commits in the push branch but
+     not the current branch.
+
+ -- Function: magit-repolist-column-unpushed-to-upstream
+     This function inserts the number of commits in the current branch
+     but not its upstream.
+
+ -- Function: magit-repolist-column-unpushed-to-pushremote
+     This function inserts the number of commits in the current branch
+     but not its push branch.
+
+The following commands are available in repolist buffers:
+
+‘<RET>’ (‘magit-repolist-status’)
+     This command shows the status for the repository at point.
+
+‘m’ (‘magit-repolist-mark’)
+     This command marks the repository at point.
+
+‘u’ (‘magit-repolist-unmark’)
+     This command unmarks the repository at point.
+
+‘f’ (‘magit-repolist-fetch’)
+     This command fetches all marked repositories.  If no repositories
+     are marked, then it offers to fetch all displayed repositories.
+
+‘5’ (‘magit-repolist-find-file-other-frame’)
+     This command reads a relative file-name (without completion) and
+     opens the respective file in each marked repository in a new frame.
+     If no repositories are marked, then it offers to do this for all
+     displayed repositories.
+
+
+File: magit.info,  Node: Logging,  Next: Diffing,  Prev: Repository List,  Up: Inspecting
+
+5.3 Logging
+===========
+
+The status buffer contains logs for the unpushed and unpulled commits,
+but that obviously isn’t enough.  The transient prefix command
+‘magit-log’, on ‘l’, features several suffix commands, which show a
+specific log in a separate log buffer.
+
+   Like other transient prefix commands, ‘magit-log’ also features
+several infix arguments that can be changed before invoking one of the
+suffix commands.  However, in the case of the log transient, these
+arguments may be taken from those currently in use in the current
+repository’s log buffer, depending on the value of
+‘magit-prefix-use-buffer-arguments’ (see *note Transient Arguments and
+Buffer Variables::).
+
+   For information about the various arguments, see *note
+(gitman)git-log::.  The switch ‘++order=VALUE’ is converted to one of
+‘--author-date-order’, ‘--date-order’, or ‘--topo-order’ before being
+passed to ‘git log’.
+
+   The log transient also features several reflog commands.  See *note
+Reflog::.
+
+‘l’ (‘magit-log’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘l l’ (‘magit-log-current’)
+     Show log for the current branch.  When ‘HEAD’ is detached or with a
+     prefix argument, show log for one or more revs read from the
+     minibuffer.
+
+‘l h’ (‘magit-log-head’)
+     Show log for ‘HEAD’.
+
+‘l u’ (‘magit-log-related’)
+     Show log for the current branch, its upstream and its push target.
+     When the upstream is a local branch, then also show its own
+     upstream.  When ‘HEAD’ is detached, then show log for that, the
+     previously checked out branch and its upstream and push-target.
+
+‘l o’ (‘magit-log-other’)
+     Show log for one or more revs read from the minibuffer.  The user
+     can input any revision or revisions separated by a space, or even
+     ranges, but only branches, tags, and a representation of the commit
+     at point are available as completion candidates.
+
+‘l L’ (‘magit-log-branches’)
+     Show log for all local branches and ‘HEAD’.
+
+‘l b’ (‘magit-log-all-branches’)
+     Show log for all local and remote branches and ‘HEAD’.
+
+‘l a’ (‘magit-log-all’)
+     Show log for all references and ‘HEAD’.
+
+   Two additional commands that show the log for the file or blob that
+is being visited in the current buffer exists, see *note Commands for
+Buffers Visiting Files::.  The command ‘magit-cherry’ also shows a log,
+see *note Cherries::.
+
+* Menu:
+
+* Refreshing Logs::
+* Log Buffer::
+* Log Margin::
+* Select from Log::
+* Reflog::
+* Cherries::
+
+
+File: magit.info,  Node: Refreshing Logs,  Next: Log Buffer,  Up: Logging
+
+5.3.1 Refreshing Logs
+---------------------
+
+The transient prefix command ‘magit-log-refresh’, on ‘L’, can be used to
+change the log arguments used in the current buffer, without changing
+which log is shown.  This works in dedicated log buffers, but also in
+the status buffer.
+
+‘L’ (‘magit-log-refresh’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘L g’ (‘magit-log-refresh’)
+     This suffix command sets the local log arguments for the current
+     buffer.
+
+‘L s’ (‘magit-log-set-default-arguments’)
+     This suffix command sets the default log arguments for buffers of
+     the same type as that of the current buffer.  Other existing
+     buffers of the same type are not affected because their local
+     values have already been initialized.
+
+‘L w’ (‘magit-log-save-default-arguments’)
+     This suffix command sets the default log arguments for buffers of
+     the same type as that of the current buffer, and saves the value
+     for future sessions.  Other existing buffers of the same type are
+     not affected because their local values have already been
+     initialized.
+
+‘L L’ (‘magit-toggle-margin’)
+     Show or hide the margin.
+
+
+File: magit.info,  Node: Log Buffer,  Next: Log Margin,  Prev: Refreshing Logs,  Up: Logging
+
+5.3.2 Log Buffer
+----------------
+
+‘L’ (‘magit-log-refresh’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+     See *note Refreshing Logs::.
+
+‘q’ (‘magit-log-bury-buffer’)
+     Bury the current buffer or the revision buffer in the same frame.
+     Like ‘magit-mode-bury-buffer’ (which see) but with a negative
+     prefix argument instead bury the revision buffer, provided it is
+     displayed in the current frame.
+
+‘C-c C-b’ (‘magit-go-backward’)
+     Move backward in current buffer’s history.
+
+‘C-c C-f’ (‘magit-go-forward’)
+     Move forward in current buffer’s history.
+
+‘C-c C-n’ (‘magit-log-move-to-parent’)
+     Move to a parent of the current commit.  By default, this is the
+     first parent, but a numeric prefix can be used to specify another
+     parent.
+
+‘j’ (‘magit-log-move-to-revision’)
+     Read a revision and move to it in current log buffer.
+
+     If the chosen reference or revision isn’t being displayed in the
+     current log buffer, then inform the user about that and do nothing
+     else.
+
+     If invoked outside any log buffer, then display the log buffer of
+     the current repository first; creating it if necessary.
+
+‘<SPC>’ (‘magit-diff-show-or-scroll-up’)
+     Update the commit or diff buffer for the thing at point.
+
+     Either show the commit or stash at point in the appropriate buffer,
+     or if that buffer is already being displayed in the current frame
+     and contains information about that commit or stash, then instead
+     scroll the buffer up.  If there is no commit or stash at point,
+     then prompt for a commit.
+
+‘<DEL>’ (‘magit-diff-show-or-scroll-down’)
+     Update the commit or diff buffer for the thing at point.
+
+     Either show the commit or stash at point in the appropriate buffer,
+     or if that buffer is already being displayed in the current frame
+     and contains information about that commit or stash, then instead
+     scroll the buffer down.  If there is no commit or stash at point,
+     then prompt for a commit.
+
+‘=’ (‘magit-log-toggle-commit-limit’)
+     Toggle the number of commits the current log buffer is limited to.
+     If the number of commits is currently limited, then remove that
+     limit.  Otherwise set it to 256.
+
+‘+’ (‘magit-log-double-commit-limit’)
+     Double the number of commits the current log buffer is limited to.
+
+‘-’ (‘magit-log-half-commit-limit’)
+     Half the number of commits the current log buffer is limited to.
+
+ -- User Option: magit-log-auto-more
+     Insert more log entries automatically when moving past the last
+     entry.  Only considered when moving past the last entry with
+     ‘magit-goto-*-section’ commands.
+
+ -- User Option: magit-log-show-refname-after-summary
+     Whether to show the refnames after the commit summaries.  This is
+     useful if you use really long branch names.
+
+ -- User Option: magit-log-show-color-graph-limit
+     When showing more commits than specified by this option, then the
+     ‘--color’ argument, if specified, is silently dropped.  This is
+     necessary because the ‘ansi-color’ library, which is used to turn
+     control sequences into faces, is just too slow.
+
+ -- User Option: magit-log-show-signatures-limit
+     When showing more commits than specified by this option, then the
+     ‘--show-signature’ argument, if specified, is silently dropped.
+     This is necessary because checking the signature of a large number
+     of commits is just too slow.
+
+   Magit displays references in logs a bit differently from how Git does
+it.
+
+   Local branches are blue and remote branches are green.  Of course
+that depends on the used theme, as do the colors used for other types of
+references.  The current branch has a box around it, as do remote
+branches that are their respective remote’s ‘HEAD’ branch.
+
+   If a local branch and its push-target point at the same commit, then
+their names are combined to preserve space and to make that relationship
+visible.  For example:
+
+     origin/feature
+     [green][blue-]
+
+     instead of
+
+     feature origin/feature
+     [blue-] [green-------]
+
+   Also note that while the transient features the ‘--show-signature’
+argument, that won’t actually be used when enabled, because Magit
+defaults to use just one line per commit.  Instead the commit colorized
+to indicate the validity of the signed commit object, using the faces
+named ‘magit-signature-*’ (which see).
+
+   For a description of ‘magit-log-margin’ see *note Log Margin::.
+
+
+File: magit.info,  Node: Log Margin,  Next: Select from Log,  Prev: Log Buffer,  Up: Logging
+
+5.3.3 Log Margin
+----------------
+
+In buffers which show one or more logs, it is possible to show
+additional information about each commit in the margin.  The options
+used to configure the margin are named ‘magit-INFIX-margin’, where INFIX
+is the same as in the respective major-mode ‘magit-INFIX-mode’.  In
+regular log buffers that would be ‘magit-log-margin’.
+
+ -- User Option: magit-log-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Log mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+   You can change the STYLE and AUTHOR-WIDTH of all ‘magit-INFIX-margin’
+options to the same values by customizing ‘magit-log-margin’ *before*
+‘magit’ is loaded.  If you do that, then the respective values for the
+other options will default to what you have set for that variable.
+Likewise if you set INIT in ‘magit-log-margin’ to ‘nil’, then that is
+used in the default of all other options.  But setting it to ‘t’, i.e.
+re-enforcing the default for that option, does not carry to other
+options.
+
+ -- User Option: magit-log-margin-show-committer-date
+     This option specifies whether to show the committer date in the
+     margin.  This option only controls whether the committer date is
+     displayed instead of the author date.  Whether some date is
+     displayed in the margin and whether the margin is displayed at all
+     is controlled by other options.
+
+‘L’ (‘magit-margin-settings’)
+     This transient prefix command binds the following suffix commands,
+     each of which changes the appearance of the margin in some way.
+
+   In some buffers that support the margin, ‘L’ is instead bound to
+‘magit-log-refresh’, but that transient features the same commands, and
+then some other unrelated commands.
+
+‘L L’ (‘magit-toggle-margin’)
+     This command shows or hides the margin.
+
+‘L l’ (‘magit-cycle-margin-style’)
+     This command cycles the style used for the margin.
+
+‘L d’ (‘magit-toggle-margin-details’)
+     This command shows or hides details in the margin.
+
+
+File: magit.info,  Node: Select from Log,  Next: Reflog,  Prev: Log Margin,  Up: Logging
+
+5.3.4 Select from Log
+---------------------
+
+When the user has to select a recent commit that is reachable from
+‘HEAD’, using regular completion would be inconvenient (because most
+humans cannot remember hashes or "HEAD~5", at least not without double
+checking).  Instead a log buffer is used to select the commit, which has
+the advantage that commits are presented in order and with the commit
+message.
+
+   Such selection logs are used when selecting the beginning of a rebase
+and when selecting the commit to be squashed into.
+
+   In addition to the key bindings available in all log buffers, the
+following additional key bindings are available in selection log
+buffers:
+
+‘C-c C-c’ (‘magit-log-select-pick’)
+     Select the commit at point and act on it.  Call
+     ‘magit-log-select-pick-function’ with the selected commit as
+     argument.
+
+‘C-c C-k’ (‘magit-log-select-quit’)
+     Abort selecting a commit, don’t act on any commit.
+
+ -- User Option: magit-log-select-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Log-Select mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+
+File: magit.info,  Node: Reflog,  Next: Cherries,  Prev: Select from Log,  Up: Logging
+
+5.3.5 Reflog
+------------
+
+Also see *note (gitman)git-reflog::.
+
+   These reflog commands are available from the log transient.  See
+*note Logging::.
+
+‘l r’ (‘magit-reflog-current’)
+     Display the reflog of the current branch.
+
+‘l O’ (‘magit-reflog-other’)
+     Display the reflog of a branch or another ref.
+
+‘l H’ (‘magit-reflog-head’)
+     Display the ‘HEAD’ reflog.
+
+ -- User Option: magit-reflog-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Reflog mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+
+File: magit.info,  Node: Cherries,  Prev: Reflog,  Up: Logging
+
+5.3.6 Cherries
+--------------
+
+Cherries are commits that haven’t been applied upstream (yet), and are
+usually visualized using a log.  Each commit is prefixed with ‘-’ if it
+has an equivalent in the upstream and ‘+’ if it does not, i.e., if it is
+a cherry.
+
+   The command ‘magit-cherry’ shows cherries for a single branch, but
+the references buffer (see *note References Buffer::) can show cherries
+for multiple "upstreams" at once.
+
+   Also see *note (gitman)git-reflog::.
+
+‘Y’ (‘magit-cherry’)
+     Show commits that are in a certain branch but that have not been
+     merged in the upstream branch.
+
+ -- User Option: magit-cherry-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Cherry mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+
+File: magit.info,  Node: Diffing,  Next: Ediffing,  Prev: Logging,  Up: Inspecting
+
+5.4 Diffing
+===========
+
+The status buffer contains diffs for the staged and unstaged commits,
+but that obviously isn’t enough.  The transient prefix command
+‘magit-diff’, on ‘d’, features several suffix commands, which show a
+specific diff in a separate diff buffer.
+
+   Like other transient prefix commands, ‘magit-diff’ also features
+several infix arguments that can be changed before invoking one of the
+suffix commands.  However, in the case of the diff transient, these
+arguments may be taken from those currently in use in the current
+repository’s diff buffer, depending on the value of
+‘magit-prefix-use-buffer-arguments’ (see *note Transient Arguments and
+Buffer Variables::).
+
+   Also see *note (gitman)git-diff::.
+
+‘d’ (‘magit-diff’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘d d’ (‘magit-diff-dwim’)
+     Show changes for the thing at point.
+
+‘d r’ (‘magit-diff-range’)
+     Show differences between two commits.
+
+     RANGE should be a range (A..B or A...B) but can also be a single
+     commit.  If one side of the range is omitted, then it defaults to
+     ‘HEAD’.  If just a commit is given, then changes in the working
+     tree relative to that commit are shown.
+
+     If the region is active, use the revisions on the first and last
+     line of the region.  With a prefix argument, instead of diffing the
+     revisions, choose a revision to view changes along, starting at the
+     common ancestor of both revisions (i.e., use a "..." range).
+
+‘d w’ (‘magit-diff-working-tree’)
+     Show changes between the current working tree and the ‘HEAD’
+     commit.  With a prefix argument show changes between the working
+     tree and a commit read from the minibuffer.
+
+‘d s’ (‘magit-diff-staged’)
+     Show changes between the index and the ‘HEAD’ commit.  With a
+     prefix argument show changes between the index and a commit read
+     from the minibuffer.
+
+‘d u’ (‘magit-diff-unstaged’)
+     Show changes between the working tree and the index.
+
+‘d p’ (‘magit-diff-paths’)
+     Show changes between any two files on disk.
+
+   All of the above suffix commands update the repository’s diff buffer.
+The diff transient also features two commands which show differences in
+another buffer:
+
+‘d c’ (‘magit-show-commit’)
+     Show the commit at point.  If there is no commit at point or with a
+     prefix argument, prompt for a commit.
+
+‘d t’ (‘magit-stash-show’)
+     Show all diffs of a stash in a buffer.
+
+   Two additional commands that show the diff for the file or blob that
+is being visited in the current buffer exists, see *note Commands for
+Buffers Visiting Files::.
+
+* Menu:
+
+* Refreshing Diffs::
+* Commands Available in Diffs::
+* Diff Options::
+* Revision Buffer::
+
+
+File: magit.info,  Node: Refreshing Diffs,  Next: Commands Available in Diffs,  Up: Diffing
+
+5.4.1 Refreshing Diffs
+----------------------
+
+The transient prefix command ‘magit-diff-refresh’, on ‘D’, can be used
+to change the diff arguments used in the current buffer, without
+changing which diff is shown.  This works in dedicated diff buffers, but
+also in the status buffer.
+
+   (There is one exception; diff arguments cannot be changed in buffers
+created by ‘magit-merge-preview’ because the underlying Git command does
+not support these arguments.)
+
+‘D’ (‘magit-diff-refresh’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘D g’ (‘magit-diff-refresh’)
+     This suffix command sets the local diff arguments for the current
+     buffer.
+
+‘D s’ (‘magit-diff-set-default-arguments’)
+     This suffix command sets the default diff arguments for buffers of
+     the same type as that of the current buffer.  Other existing
+     buffers of the same type are not affected because their local
+     values have already been initialized.
+
+‘D w’ (‘magit-diff-save-default-arguments’)
+     This suffix command sets the default diff arguments for buffers of
+     the same type as that of the current buffer, and saves the value
+     for future sessions.  Other existing buffers of the same type are
+     not affected because their local values have already been
+     initialized.
+
+‘D t’ (‘magit-diff-toggle-refine-hunk’)
+     This command toggles hunk refinement on or off.
+
+‘D r’ (‘magit-diff-switch-range-type’)
+     This command converts the diff range type from "revA..revB" to
+     "revB...revA", or vice versa.
+
+‘D f’ (‘magit-diff-flip-revs’)
+     This command swaps revisions in the diff range from "revA..revB" to
+     "revB..revA", or vice versa.
+
+‘D F’ (‘magit-diff-toggle-file-filter’)
+     This command toggles the file restriction of the diffs in the
+     current buffer, allowing you to quickly switch between viewing all
+     the changes in the commit and the restricted subset.  As a special
+     case, when this command is called from a log buffer, it toggles the
+     file restriction in the repository’s revision buffer, which is
+     useful when you display a revision from a log buffer that is
+     restricted to a file or files.
+
+   In addition to the above transient, which allows changing any of the
+supported arguments, there also exist some commands that change only a
+particular argument.
+
+‘-’ (‘magit-diff-less-context’)
+     This command decreases the context for diff hunks by COUNT lines.
+
+‘+’ (‘magit-diff-more-context’)
+     This command increases the context for diff hunks by COUNT lines.
+
+‘0’ (‘magit-diff-default-context’)
+     This command resets the context for diff hunks to the default
+     height.
+
+   The following commands quickly change what diff is being displayed
+without having to using one of the diff transient.
+
+‘C-c C-d’ (‘magit-diff-while-committing’)
+     While committing, this command shows the changes that are about to
+     be committed.  While amending, invoking the command again toggles
+     between showing just the new changes or all the changes that will
+     be committed.
+
+     This binding is available in the diff buffer as well as the commit
+     message buffer.
+
+‘C-c C-b’ (‘magit-go-backward’)
+     This command moves backward in current buffer’s history.
+
+‘C-c C-f’ (‘magit-go-forward’)
+     This command moves forward in current buffer’s history.
+
+
+File: magit.info,  Node: Commands Available in Diffs,  Next: Diff Options,  Prev: Refreshing Diffs,  Up: Diffing
+
+5.4.2 Commands Available in Diffs
+---------------------------------
+
+Some commands are only available if point is inside a diff.
+
+   ‘magit-diff-visit-file’ and related commands visit the appropriate
+version of the file that the diff at point is about.  Likewise
+‘magit-diff-visit-worktree-file’ and related commands visit the worktree
+version of the file that the diff at point is about.  See *note Visiting
+Files and Blobs from a Diff:: for more information and the key bindings.
+
+‘C-c C-t’ (‘magit-diff-trace-definition’)
+     This command shows a log for the definition at point.
+
+ -- User Option: magit-log-trace-definition-function
+     The function specified by this option is used by
+     ‘magit-log-trace-definition’ to determine the function at point.
+     For major-modes that have special needs, you could set the local
+     value using the mode’s hook.
+
+‘C-c C-e’ (‘magit-diff-edit-hunk-commit’)
+     From a hunk, this command edits the respective commit and visits
+     the file.
+
+     First it visits the file being modified by the hunk at the correct
+     location using ‘magit-diff-visit-file’.  This actually visits a
+     blob.  When point is on a diff header, not within an individual
+     hunk, then this visits the blob the first hunk is about.
+
+     Then it invokes ‘magit-edit-line-commit’, which uses an interactive
+     rebase to make the commit editable, or if that is not possible
+     because the commit is not reachable from ‘HEAD’ by checking out
+     that commit directly.  This also causes the actual worktree file to
+     be visited.
+
+     Neither the blob nor the file buffer are killed when finishing the
+     rebase.  If that is undesirable, then it might be better to use
+     ‘magit-rebase-edit-commit’ instead of this command.
+
+‘j’ (‘magit-jump-to-diffstat-or-diff’)
+     This command jumps to the diffstat or diff.  When point is on a
+     file inside the diffstat section, then jump to the respective diff
+     section.  Otherwise, jump to the diffstat section or a child
+     thereof.
+
+   The next two commands are not specific to Magit-Diff mode (or and
+Magit buffer for that matter), but it might be worth pointing out that
+they are available here too.
+
+‘<SPC>’ (‘scroll-up’)
+     This command scrolls text upward.
+
+‘<DEL>’ (‘scroll-down’)
+     This command scrolls text downward.
+
+
+File: magit.info,  Node: Diff Options,  Next: Revision Buffer,  Prev: Commands Available in Diffs,  Up: Diffing
+
+5.4.3 Diff Options
+------------------
+
+ -- User Option: magit-diff-refine-hunk
+     Whether to show word-granularity differences within diff hunks.
+
+        • ‘nil’ Never show fine differences.
+        • ‘t’ Show fine differences for the current diff hunk only.
+        • ‘all’ Show fine differences for all displayed diff hunks.
+
+ -- User Option: magit-diff-refine-ignore-whitespace
+     Whether to ignore whitespace changes in word-granularity
+     differences.
+
+ -- User Option: magit-diff-adjust-tab-width
+     Whether to adjust the width of tabs in diffs.
+
+     Determining the correct width can be expensive if it requires
+     opening large and/or many files, so the widths are cached in the
+     variable ‘magit-diff--tab-width-cache’.  Set that to nil to
+     invalidate the cache.
+
+        • ‘nil’ Never adjust tab width.  Use ‘tab-width’s value from the
+          Magit buffer itself instead.
+
+        • ‘t’ If the corresponding file-visiting buffer exits, then use
+          ‘tab-width’’s value from that buffer.  Doing this is cheap, so
+          this value is used even if a corresponding cache entry exists.
+
+        • ‘always’ If there is no such buffer, then temporarily visit
+          the file to determine the value.
+
+        • NUMBER Like ‘always’, but don’t visit files larger than NUMBER
+          bytes.
+
+ -- User Option: magit-diff-paint-whitespace
+     Specify where to highlight whitespace errors.
+
+     See ‘magit-diff-highlight-trailing’,
+     ‘magit-diff-highlight-indentation’.  The symbol ‘t’ means in all
+     diffs, ‘status’ means only in the status buffer, and nil means
+     nowhere.
+
+        • ‘nil’ Never highlight whitespace errors.
+        • ‘t’ Highlight whitespace errors everywhere.
+        • ‘uncommitted’ Only highlight whitespace errors in diffs
+          showing uncommitted changes.  For backward compatibility
+          ‘status’ is treated as a synonym.
+
+ -- User Option: magit-diff-paint-whitespace-lines
+     Specify in what kind of lines to highlight whitespace errors.
+
+        • ‘t’ Highlight only in added lines.
+        • ‘both’ Highlight in added and removed lines.
+        • ‘all’ Highlight in added, removed and context lines.
+
+ -- User Option: magit-diff-highlight-trailing
+     Whether to highlight whitespace at the end of a line in diffs.
+     Used only when ‘magit-diff-paint-whitespace’ is non-nil.
+
+ -- User Option: magit-diff-highlight-indentation
+     This option controls whether to highlight the indentation in case
+     it used the "wrong" indentation style.  Indentation is only
+     highlighted if ‘magit-diff-paint-whitespace’ is also non-nil.
+
+     The value is an alist of the form ‘((REGEXP . INDENT)...)’.  The
+     path to the current repository is matched against each element in
+     reverse order.  Therefore if a REGEXP matches, then earlier
+     elements are not tried.
+
+     If the used INDENT is ‘tabs’, highlight indentation with tabs.  If
+     INDENT is an integer, highlight indentation with at least that many
+     spaces.  Otherwise, highlight neither.
+
+ -- User Option: magit-diff-hide-trailing-cr-characters
+     Whether to hide ^M characters at the end of a line in diffs.
+
+ -- User Option: magit-diff-highlight-hunk-region-functions
+     This option specifies the functions used to highlight the
+     hunk-internal region.
+
+     ‘magit-diff-highlight-hunk-region-dim-outside’ overlays the outside
+     of the hunk internal selection with a face that causes the added
+     and removed lines to have the same background color as context
+     lines.  This function should not be removed from the value of this
+     option.
+
+     ‘magit-diff-highlight-hunk-region-using-overlays’ and
+     ‘magit-diff-highlight-hunk-region-using-underline’ emphasize the
+     region by placing delimiting horizontal lines before and after it.
+     Both of these functions have glitches which cannot be fixed due to
+     limitations of Emacs’ display engine.  For more information see
+     <https://github.com/magit/magit/issues/2758> ff.
+
+     Instead of, or in addition to, using delimiting horizontal lines,
+     to emphasize the boundaries, you may wish to emphasize the text
+     itself, using ‘magit-diff-highlight-hunk-region-using-face’.
+
+     In terminal frames it’s not possible to draw lines as the overlay
+     and underline variants normally do, so there they fall back to
+     calling the face function instead.
+
+ -- User Option: magit-diff-unmarked-lines-keep-foreground
+     This option controls whether added and removed lines outside the
+     hunk-internal region only lose their distinct background color or
+     also the foreground color.  Whether the outside of the region is
+     dimmed at all depends on
+     ‘magit-diff-highlight-hunk-region-functions’.
+
+ -- User Option: magit-diff-extra-stat-arguments
+     This option specifies additional arguments to be used alongside
+     ‘--stat’.
+
+     The value is a list of zero or more arguments or a function that
+     takes no argument and returns such a list.  These arguments are
+     allowed here: ‘--stat-width’, ‘--stat-name-width’,
+     ‘--stat-graph-width’ and ‘--compact-summary’.  Also see *note
+     (gitman)git-diff::.
+
+
+File: magit.info,  Node: Revision Buffer,  Prev: Diff Options,  Up: Diffing
+
+5.4.4 Revision Buffer
+---------------------
+
+ -- User Option: magit-revision-insert-related-refs
+     Whether to show related branches in revision buffers.
+
+        • ‘nil’ Don’t show any related branches.
+        • ‘t’ Show related local branches.
+        • ‘all’ Show related local and remote branches.
+        • ‘mixed’ Show all containing branches and local merged
+          branches.
+
+ -- User Option: magit-revision-show-gravatars
+     Whether to show gravatar images in revision buffers.
+
+     If ‘nil’, then don’t insert any gravatar images.  If ‘t’, then
+     insert both images.  If ‘author’ or ‘committer’, then insert only
+     the respective image.
+
+     If you have customized the option ‘magit-revision-headers-format’
+     and want to insert the images then you might also have to specify
+     where to do so.  In that case the value has to be a cons-cell of
+     two regular expressions.  The car specifies where to insert the
+     author’s image.  The top half of the image is inserted right after
+     the matched text, the bottom half on the next line in the same
+     column.  The cdr specifies where to insert the committer’s image,
+     accordingly.  Either the car or the cdr may be nil."
+
+ -- User Option: magit-revision-use-hash-sections
+     Whether to turn hashes inside the commit message into sections.
+
+     If non-nil, then hashes inside the commit message are turned into
+     ‘commit’ sections.  There is a trade off to be made between
+     performance and reliability:
+
+        • ‘slow’ calls git for every word to be absolutely sure.
+        • ‘quick’ skips words less than seven characters long.
+        • ‘quicker’ additionally skips words that don’t contain a
+          number.
+        • ‘quickest’ uses all words that are at least seven characters
+          long and which contain at least one number as well as at least
+          one letter.
+
+     If nil, then no hashes are turned into sections, but you can still
+     visit the commit at point using "RET".
+
+   The diffs shown in the revision buffer may be automatically
+restricted to a subset of the changed files.  If the revision buffer is
+displayed from a log buffer, the revision buffer will share the same
+file restriction as that log buffer (also see the command
+‘magit-diff-toggle-file-filter’).
+
+ -- User Option: magit-revision-filter-files-on-follow
+     Whether showing a commit from a log buffer honors the log’s file
+     filter when the log arguments include ‘--follow’.
+
+     When this option is nil, displaying a commit from a log ignores the
+     log’s file filter if the log arguments include ‘--follow’.  Doing
+     so avoids showing an empty diff in revision buffers for commits
+     before a rename event.  In such cases, the ‘--patch’ argument of
+     the log transient can be used to show the file-restricted diffs
+     inline.
+
+     Set this option to non-nil to keep the log’s file restriction even
+     if ‘--follow’ is present in the log arguments.
+
+   If the revision buffer is not displayed from a log buffer, the file
+restriction is determined as usual (see *note Transient Arguments and
+Buffer Variables::).
+
+
+File: magit.info,  Node: Ediffing,  Next: References Buffer,  Prev: Diffing,  Up: Inspecting
+
+5.5 Ediffing
+============
+
+This section describes how to enter Ediff from Magit buffers.  For
+information on how to use Ediff itself, see *note (ediff)Top::.
+
+‘e’ (‘magit-ediff-dwim’)
+     Compare, stage, or resolve using Ediff.
+
+     This command tries to guess what file, and what commit or range the
+     user wants to compare, stage, or resolve using Ediff.  It might
+     only be able to guess either the file, or range/commit, in which
+     case the user is asked about the other.  It might not always guess
+     right, in which case the appropriate ‘magit-ediff-*’ command has to
+     be used explicitly.  If it cannot read the user’s mind at all, then
+     it asks the user for a command to run.
+
+‘E’ (‘magit-ediff’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘E r’ (‘magit-ediff-compare’)
+     Compare two revisions of a file using Ediff.
+
+     If the region is active, use the revisions on the first and last
+     line of the region.  With a prefix argument, instead of diffing the
+     revisions, choose a revision to view changes along, starting at the
+     common ancestor of both revisions (i.e., use a "..." range).
+
+‘E m’ (‘magit-ediff-resolve-rest’)
+     This command allows you to resolve outstanding conflicts in the
+     file at point using Ediff.  If there is no file at point or if it
+     doesn’t have any unmerged changes, then this command prompts for a
+     file.
+
+     Provided that the value of ‘merge.conflictstyle’ is ‘diff3’, you
+     can view the file’s merge-base revision using ‘/’ in the Ediff
+     control buffer.
+
+     The A, B and Ancestor buffers are constructed from the conflict
+     markers in the worktree file.  Because you and/or Git may have
+     already resolved some conflicts, that means that these buffers may
+     not contain the actual versions from the respective blobs.
+
+‘E M’ (‘magit-ediff-resolve-all’)
+     This command allows you to resolve all conflicts in the file at
+     point using Ediff.  If there is no file at point or if it doesn’t
+     have any unmerged changes, then this command prompts for a file.
+
+     Provided that the value of ‘merge.conflictstyle’ is ‘diff3’, you
+     can view the file’s merge-base revision using ‘/’ in the Ediff
+     control buffer.
+
+     First the file in the worktree is moved aside, appending the suffix
+     ‘.ORIG’, so that you could later go back to that version.  Then it
+     is reconstructed from the two sides of the conflict and the
+     merge-base, if available.
+
+     It would be nice if the worktree file were just used as-is, but
+     Ediff does not support that.  This means that all conflicts, that
+     Git has already resolved, are restored.  On the other hand Ediff
+     also tries to resolve conflicts, and in many cases Ediff and Git
+     should produce similar results.
+
+     However if you have already resolved some conflicts manually, then
+     those changes are discarded (though you can recover them from the
+     backup file).  In such cases ‘magit-ediff-resolve-rest’ might be
+     more suitable.
+
+     The advantage that this command has over ‘magit-ediff-resolve-rest’
+     is that the A, B and Ancestor buffers correspond to blobs from the
+     respective commits, allowing you to inspect a side in context and
+     to use Magit commands in these buffers to do so.  Blame and log
+     commands are particularly useful here.
+
+‘E t’ (‘magit-git-mergetool’)
+     This command does not actually use Ediff.  While it serves the same
+     purpose as ‘magit-ediff-resolve-rest’, it uses ‘git mergetool
+     --gui’ to resolve conflicts.
+
+     With a prefix argument this acts as a transient prefix command,
+     allowing the user to select the mergetool and change some settings.
+
+‘E s’ (‘magit-ediff-stage’)
+     Stage and unstage changes to a file using Ediff, defaulting to the
+     file at point.
+
+‘E u’ (‘magit-ediff-show-unstaged’)
+     Show unstaged changes to a file using Ediff.
+
+‘E i’ (‘magit-ediff-show-staged’)
+     Show staged changes to a file using Ediff.
+
+‘E w’ (‘magit-ediff-show-working-tree’)
+     Show changes in a file between ‘HEAD’ and working tree using Ediff.
+
+‘E c’ (‘magit-ediff-show-commit’)
+     Show changes to a file introduced by a commit using Ediff.
+
+‘E z’ (‘magit-ediff-show-stash’)
+     Show changes to a file introduced by a stash using Ediff.
+
+ -- User Option: magit-ediff-dwim-resolve-function
+     This option controls which function ‘magit-ediff-dwim’ uses to
+     resolve conflicts.  One of ‘magit-ediff-resolve-rest’,
+     ‘magit-ediff-resolve-all’ or ‘magit-git-mergetool’; which are all
+     discussed above.
+
+ -- User Option: magit-ediff-dwim-show-on-hunks
+     This option controls what command ‘magit-ediff-dwim’ calls when
+     point is on uncommitted hunks.  When nil, always run
+     ‘magit-ediff-stage’.  Otherwise, use ‘magit-ediff-show-staged’ and
+     ‘magit-ediff-show-unstaged’ to show staged and unstaged changes,
+     respectively.
+
+ -- User Option: magit-ediff-show-stash-with-index
+     This option controls whether ‘magit-ediff-show-stash’ includes a
+     buffer containing the file’s state in the index at the time the
+     stash was created.  This makes it possible to tell which changes in
+     the stash were staged.
+
+ -- User Option: magit-ediff-quit-hook
+     This hook is run after quitting an Ediff session that was created
+     using a Magit command.  The hook functions are run inside the Ediff
+     control buffer, and should not change the current buffer.
+
+     This is similar to ‘ediff-quit-hook’ but takes the needs of Magit
+     into account.  The regular ‘ediff-quit-hook’ is ignored by Ediff
+     sessions that were created using a Magit command.
+
+
+File: magit.info,  Node: References Buffer,  Next: Bisecting,  Prev: Ediffing,  Up: Inspecting
+
+5.6 References Buffer
+=====================
+
+‘y’ (‘magit-show-refs’)
+     This command lists branches and tags in a dedicated buffer.
+
+     However if this command is invoked again from this buffer or if it
+     is invoked with a prefix argument, then it acts as a transient
+     prefix command, which binds the following suffix commands and some
+     infix arguments.
+
+   All of the following suffix commands list exactly the same branches
+and tags.  The only difference the optional feature that can be enabled
+by changing the value of ‘magit-refs-show-commit-count’ (see below).
+These commands specify a different branch or commit against which all
+the other references are compared.
+
+‘y y’ (‘magit-show-refs-head’)
+     This command lists branches and tags in a dedicated buffer.  Each
+     reference is being compared with ‘HEAD’.
+
+‘y c’ (‘magit-show-refs-current’)
+     This command lists branches and tags in a dedicated buffer.  Each
+     reference is being compared with the current branch or ‘HEAD’ if it
+     is detached.
+
+‘y o’ (‘magit-show-refs-other’)
+     This command lists branches and tags in a dedicated buffer.  Each
+     reference is being compared with a branch read from the user.
+
+‘y r’ (‘magit-refs-set-show-commit-count’)
+     This command changes for which refs the commit count is shown.
+
+ -- User Option: magit-refs-show-commit-count
+     Whether to show commit counts in Magit-Refs mode buffers.
+
+        • ‘all’ Show counts for branches and tags.
+        • ‘branch’ Show counts for branches only.
+        • ‘nil’ Never show counts.
+
+     The default is ‘nil’ because anything else can be very expensive.
+
+ -- User Option: magit-refs-pad-commit-counts
+     Whether to pad all commit counts on all sides in Magit-Refs mode
+     buffers.
+
+     If this is nil, then some commit counts are displayed right next to
+     one of the branches that appear next to the count, without any
+     space in between.  This might look bad if the branch name faces
+     look too similar to ‘magit-dimmed’.
+
+     If this is non-nil, then spaces are placed on both sides of all
+     commit counts.
+
+ -- User Option: magit-refs-show-remote-prefix
+     Whether to show the remote prefix in lists of remote branches.
+
+     Showing the prefix is redundant because the name of the remote is
+     already shown in the heading preceding the list of its branches.
+
+ -- User Option: magit-refs-primary-column-width
+     Width of the primary column in ‘magit-refs-mode’ buffers.  The
+     primary column is the column that contains the name of the branch
+     that the current row is about.
+
+     If this is an integer, then the column is that many columns wide.
+     Otherwise it has to be a cons-cell of two integers.  The first
+     specifies the minimal width, the second the maximal width.  In that
+     case the actual width is determined using the length of the names
+     of the shown local branches.  (Remote branches and tags are not
+     taken into account when calculating to optimal width.)
+
+ -- User Option: magit-refs-focus-column-width
+     Width of the focus column in ‘magit-refs-mode’ buffers.
+
+     The focus column is the first column, which marks one branch
+     (usually the current branch) as the focused branch using ‘*’ or
+     ‘@’.  For each other reference, this column optionally shows how
+     many commits it is ahead of the focused branch and ‘<’, or if it
+     isn’t ahead then the commits it is behind and ‘>’, or if it isn’t
+     behind either, then a ‘=’.
+
+     This column may also display only ‘*’ or ‘@’ for the focused
+     branch, in which case this option is ignored.  Use ‘L v’ to change
+     the verbosity of this column.
+
+ -- User Option: magit-refs-margin
+     This option specifies whether the margin is initially shown in
+     Magit-Refs mode buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+ -- User Option: magit-refs-margin-for-tags
+     This option specifies whether to show information about tags in the
+     margin.  This is disabled by default because it is slow if there
+     are many tags.
+
+   The following variables control how individual refs are displayed.
+If you change one of these variables (especially the "%c" part), then
+you should also change the others to keep things aligned.  The following
+%-sequences are supported:
+
+   • ‘%a’ Number of commits this ref has over the one we compare to.
+   • ‘%b’ Number of commits the ref we compare to has over this one.
+   • ‘%c’ Number of commits this ref has over the one we compare to.
+     For the ref which all other refs are compared this is instead "@",
+     if it is the current branch, or "#" otherwise.
+   • ‘%C’ For the ref which all other refs are compared this is "@", if
+     it is the current branch, or "#" otherwise.  For all other refs "
+     ".
+   • ‘%h’ Hash of this ref’s tip.
+   • ‘%m’ Commit summary of the tip of this ref.
+   • ‘%n’ Name of this ref.
+   • ‘%u’ Upstream of this local branch.
+   • ‘%U’ Upstream of this local branch and additional local vs.
+     upstream information.
+
+ -- User Option: magit-refs-filter-alist
+     The purpose of this option is to forgo displaying certain refs
+     based on their name.  If you want to not display any refs of a
+     certain type, then you should remove the appropriate function from
+     ‘magit-refs-sections-hook’ instead.
+
+     This alist controls which tags and branches are omitted from being
+     displayed in ‘magit-refs-mode’ buffers.  If it is ‘nil’, then all
+     refs are displayed (subject to ‘magit-refs-sections-hook’).
+
+     All keys are tried in order until one matches.  Then its value is
+     used and subsequent elements are ignored.  If the value is non-nil,
+     then the reference is displayed, otherwise it is not.  If no
+     element matches, then the reference is displayed.
+
+     A key can either be a regular expression that the refname has to
+     match, or a function that takes the refname as only argument and
+     returns a boolean.  A remote branch such as "origin/master" is
+     displayed as just "master", however for this comparison the former
+     is used.
+
+‘<RET>’ (‘magit-visit-ref’)
+     This command visits the reference or revision at point in another
+     buffer.  If there is no revision at point or with a prefix argument
+     then it prompts for a revision.
+
+     This command behaves just like ‘magit-show-commit’ as described
+     above, except if point is on a reference in a ‘magit-refs-mode’
+     buffer, in which case the behavior may be different, but only if
+     you have customized the option ‘magit-visit-ref-behavior’.
+
+ -- User Option: magit-visit-ref-behavior
+     This option controls how ‘magit-visit-ref’ behaves in
+     ‘magit-refs-mode’ buffers.
+
+     By default ‘magit-visit-ref’ behaves like ‘magit-show-commit’, in
+     all buffers, including ‘magit-refs-mode’ buffers.  When the type of
+     the section at point is ‘commit’ then "RET" is bound to
+     ‘magit-show-commit’, and when the type is either ‘branch’ or ‘tag’
+     then it is bound to ‘magit-visit-ref’.
+
+     "RET" is one of Magit’s most essential keys and at least by default
+     it should behave consistently across all of Magit, especially
+     because users quickly learn that it does something very harmless;
+     it shows more information about the thing at point in another
+     buffer.
+
+     However "RET" used to behave differently in ‘magit-refs-mode’
+     buffers, doing surprising things, some of which cannot really be
+     described as "visit this thing".  If you’ve grown accustomed this
+     behavior, you can restore it by adding one or more of the below
+     symbols to the value of this option.  But keep in mind that by
+     doing so you don’t only introduce inconsistencies, you also lose
+     some functionality and might have to resort to ‘M-x
+     magit-show-commit’ to get it back.
+
+     ‘magit-visit-ref’ looks for these symbols in the order in which
+     they are described here.  If the presence of a symbol applies to
+     the current situation, then the symbols that follow do not affect
+     the outcome.
+
+        • ‘focus-on-ref’
+
+          With a prefix argument update the buffer to show commit counts
+          and lists of cherry commits relative to the reference at point
+          instead of relative to the current buffer or ‘HEAD’.
+
+          Instead of adding this symbol, consider pressing "C-u y o
+          RET".
+
+        • ‘create-branch’
+
+          If point is on a remote branch, then create a new local branch
+          with the same name, use the remote branch as its upstream, and
+          then check out the local branch.
+
+          Instead of adding this symbol, consider pressing "b c RET
+          RET", like you would do in other buffers.
+
+        • ‘checkout-any’
+
+          Check out the reference at point.  If that reference is a tag
+          or a remote branch, then this results in a detached ‘HEAD’.
+
+          Instead of adding this symbol, consider pressing "b b RET",
+          like you would do in other buffers.
+
+        • ‘checkout-branch’
+
+          Check out the local branch at point.
+
+          Instead of adding this symbol, consider pressing "b b RET",
+          like you would do in other buffers.
+
+* Menu:
+
+* References Sections::
+
+
+File: magit.info,  Node: References Sections,  Up: References Buffer
+
+5.6.1 References Sections
+-------------------------
+
+The contents of references buffers is controlled using the hook
+‘magit-refs-sections-hook’.  See *note Section Hooks:: to learn about
+such hooks and how to customize them.  All of the below functions are
+members of the default value.  Note that it makes much less sense to
+customize this hook than it does for the respective hook used for the
+status buffer.
+
+ -- User Option: magit-refs-sections-hook
+     Hook run to insert sections into a references buffer.
+
+ -- Function: magit-insert-local-branches
+     Insert sections showing all local branches.
+
+ -- Function: magit-insert-remote-branches
+     Insert sections showing all remote-tracking branches.
+
+ -- Function: magit-insert-tags
+     Insert sections showing all tags.
+
+
+File: magit.info,  Node: Bisecting,  Next: Visiting Files and Blobs,  Prev: References Buffer,  Up: Inspecting
+
+5.7 Bisecting
+=============
+
+Also see *note (gitman)git-bisect::.
+
+‘B’ (‘magit-bisect’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+   When bisecting is not in progress, then the transient features the
+following suffix commands.
+
+‘B B’ (‘magit-bisect-start’)
+     Start a bisect session.
+
+     Bisecting a bug means to find the commit that introduced it.  This
+     command starts such a bisect session by asking for a known good
+     commit and a known bad commit.  If you’re bisecting a change that
+     isn’t a regression, you can select alternate terms that are
+     conceptually more fitting than "bad" and "good", but the infix
+     arguments to do so are disabled by default.
+
+‘B s’ (‘magit-bisect-run’)
+     Bisect automatically by running commands after each step.
+
+   When bisecting in progress, then the transient instead features the
+following suffix commands.
+
+‘B b’ (‘magit-bisect-bad’)
+     Mark the current commit as bad.  Use this after you have asserted
+     that the commit does contain the bug in question.
+
+‘B g’ (‘magit-bisect-good’)
+     Mark the current commit as good.  Use this after you have asserted
+     that the commit does not contain the bug in question.
+
+‘B m’ (‘magit-bisect-mark’)
+     Mark the current commit with one of the bisect terms.  This command
+     provides an alternative to ‘magit-bisect-bad’ and
+     ‘magit-bisect-good’ and is useful when using terms other than "bad"
+     and "good".  This suffix is disabled by default.
+
+‘B k’ (‘magit-bisect-skip’)
+     Skip the current commit.  Use this if for some reason the current
+     commit is not a good one to test.  This command lets Git choose a
+     different one.
+
+‘B r’ (‘magit-bisect-reset’)
+     After bisecting, cleanup bisection state and return to original
+     ‘HEAD’.
+
+   By default the status buffer shows information about the ongoing
+bisect session.
+
+ -- User Option: magit-bisect-show-graph
+     This option controls whether a graph is displayed for the log of
+     commits that still have to be bisected.
+
+
+File: magit.info,  Node: Visiting Files and Blobs,  Next: Blaming,  Prev: Bisecting,  Up: Inspecting
+
+5.8 Visiting Files and Blobs
+============================
+
+Magit provides several commands that visit a file or blob (the version
+of a file that is stored in a certain commit).  Actually it provides
+several *groups* of such commands and the several *variants* within each
+group.
+
+   Also see *note Commands for Buffers Visiting Files::.
+
+* Menu:
+
+* General-Purpose Visit Commands::
+* Visiting Files and Blobs from a Diff::
+
+
+File: magit.info,  Node: General-Purpose Visit Commands,  Next: Visiting Files and Blobs from a Diff,  Up: Visiting Files and Blobs
+
+5.8.1 General-Purpose Visit Commands
+------------------------------------
+
+These commands can be used anywhere to open any blob.  Currently no keys
+are bound to these commands by default, but that is likely to change.
+
+ -- Command: magit-find-file
+     This command reads a filename and revision from the user and visits
+     the respective blob in a buffer.  The buffer is displayed in the
+     selected window.
+
+ -- Command: magit-find-file-other-window
+     This command reads a filename and revision from the user and visits
+     the respective blob in a buffer.  The buffer is displayed in
+     another window.
+
+ -- Command: magit-find-file-other-frame
+     This command reads a filename and revision from the user and visits
+     the respective blob in a buffer.  The buffer is displayed in
+     another frame.
+
+
+File: magit.info,  Node: Visiting Files and Blobs from a Diff,  Prev: General-Purpose Visit Commands,  Up: Visiting Files and Blobs
+
+5.8.2 Visiting Files and Blobs from a Diff
+------------------------------------------
+
+These commands can only be used when point is inside a diff.
+
+‘<RET>’ (‘magit-diff-visit-file’)
+     This command visits the appropriate version of the file that the
+     diff at point is about.
+
+     This commands visits the worktree version of the appropriate file.
+     The location of point inside the diff determines which file is
+     being visited.  The visited version depends on what changes the
+     diff is about.
+
+       1. If the diff shows uncommitted changes (i.e., staged or
+          unstaged changes), then visit the file in the working tree
+          (i.e., the same "real" file that ‘find-file’ would visit.  In
+          all other cases visit a "blob" (i.e., the version of a file as
+          stored in some commit).
+
+       2. If point is on a removed line, then visit the blob for the
+          first parent of the commit that removed that line, i.e., the
+          last commit where that line still exists.
+
+       3. If point is on an added or context line, then visit the blob
+          that adds that line, or if the diff shows from more than a
+          single commit, then visit the blob from the last of these
+          commits.
+
+     In the file-visiting buffer this command goes to the line that
+     corresponds to the line that point is on in the diff.
+
+     The buffer is displayed in the selected window.  With a prefix
+     argument the buffer is displayed in another window instead.
+
+ -- User Option: magit-diff-visit-previous-blob
+     This option controls whether ‘magit-diff-visit-file’ may visit the
+     previous blob.  When this is ‘t’ (the default) and point is on a
+     removed line in a diff for a committed change, then
+     ‘magit-diff-visit-file’ visits the blob from the last revision
+     which still had that line.
+
+     Currently this is only supported for committed changes, for staged
+     and unstaged changes ‘magit-diff-visit-file’ always visits the file
+     in the working tree.
+
+‘C-<return>’ (‘magit-diff-visit-file-worktree’)
+     This command visits the worktree version of the appropriate file.
+     The location of point inside the diff determines which file is
+     being visited.  Unlike ‘magit-diff-visit-file’ it always visits the
+     "real" file in the working tree, i.e the "current version" of the
+     file.
+
+     In the file-visiting buffer this command goes to the line that
+     corresponds to the line that point is on in the diff.  Lines that
+     were added or removed in the working tree, the index and other
+     commits in between are automatically accounted for.
+
+     The buffer is displayed in the selected window.  With a prefix
+     argument the buffer is displayed in another window instead.
+
+   Variants of the above two commands exist that instead visit the file
+in another window or in another frame.  If you prefer such behavior,
+then you may want to change the above key bindings, but note that the
+above commands also use another window when invoked with a prefix
+argument.
+
+ -- Command: magit-diff-visit-file-other-window
+ -- Command: magit-diff-visit-file-other-frame
+ -- Command: magit-diff-visit-worktree-file-other-window
+ -- Command: magit-diff-visit-worktree-file-other-frame
+
+
+File: magit.info,  Node: Blaming,  Prev: Visiting Files and Blobs,  Up: Inspecting
+
+5.9 Blaming
+===========
+
+Also see *note (gitman)git-blame::.
+
+   To start blaming, invoke the ‘magit-file-dispatch’ transient prefix
+command.  When using the default key bindings, that can be done by
+pressing ‘C-c M-g’.  When using the recommended bindings, this command
+is instead bound to ‘C-c f’.  Also see *note Global Bindings::.
+
+   The blaming suffix commands can be invoked directly from the file
+dispatch transient.  However if you want to set an infix argument, then
+you have to enter the blaming sub-prefix first.
+
+‘C-c f B’ (‘magit-blame’)
+‘C-c f b’ (‘magit-blame-addition’)
+‘C-c f B b’
+‘C-c f r’ (‘magit-blame-removal’)
+‘C-c f B r’
+‘C-c f f’ (‘magit-blame-reverse’)
+‘C-c f B f’
+‘C-c f e’ (‘magit-blame-echo’)
+‘C-c f B e’
+‘C-c f q’ (‘magit-blame-quit’)
+‘C-c f B q’
+     Each of these commands is documented individually right below,
+     alongside their default key bindings.  The bindings shown above are
+     the recommended bindings, which you can enable by following the
+     instructions in *note Global Bindings::.
+
+‘C-c M-g B’ (‘magit-blame’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   Note that not all of the following suffixes are available at all
+times.  For example if ‘magit-blame-mode’ is not enabled, then the
+command whose purpose is to turn off that mode would not be of any use
+and therefore isn’t available.
+
+‘C-c M-g b’ (‘magit-blame-addition’)
+‘C-c M-g B b’
+     This command augments each line or chunk of lines in the current
+     file-visiting or blob-visiting buffer with information about what
+     commits last touched these lines.
+
+     If the buffer visits a revision of that file, then history up to
+     that revision is considered.  Otherwise, the file’s full history is
+     considered, including uncommitted changes.
+
+     If Magit-Blame mode is already turned on in the current buffer then
+     blaming is done recursively, by visiting REVISION:FILE (using
+     ‘magit-find-file’), where REVISION is a parent of the revision that
+     added the current line or chunk of lines.
+
+‘C-c M-g r’ (‘magit-blame-removal’)
+‘C-c M-g B r’
+     This command augments each line or chunk of lines in the current
+     blob-visiting buffer with information about the revision that
+     removes it.  It cannot be used in file-visiting buffers.
+
+     Like ‘magit-blame-addition’, this command can be used recursively.
+
+‘C-c M-g f’ (‘magit-blame-reverse’)
+‘C-c M-g B f’
+     This command augments each line or chunk of lines in the current
+     file-visiting or blob-visiting buffer with information about the
+     last revision in which a line still existed.
+
+     Like ‘magit-blame-addition’, this command can be used recursively.
+
+‘C-c M-g e’ (‘magit-blame-echo’)
+‘C-c M-g B e’
+     This command is like ‘magit-blame-addition’ except that it doesn’t
+     turn on ‘read-only-mode’ and that it initially uses the
+     visualization style specified by option ‘magit-blame-echo-style’.
+
+   The following key bindings are available when Magit-Blame mode is
+enabled and Read-Only mode is not enabled.  These commands are also
+available in other buffers; here only the behavior is described that is
+relevant in file-visiting buffers that are being blamed.
+
+‘C-c M-g q’ (‘magit-blame-quit’)
+‘C-c M-g B q’
+     This command turns off Magit-Blame mode.  If the buffer was created
+     during a recursive blame, then it also kills the buffer.
+
+‘<RET>’ (‘magit-show-commit’)
+     This command shows the commit that last touched the line at point.
+
+‘<SPC>’ (‘magit-diff-show-or-scroll-up’)
+     This command updates the commit buffer.
+
+     This either shows the commit that last touched the line at point in
+     the appropriate buffer, or if that buffer is already being
+     displayed in the current frame and if that buffer contains
+     information about that commit, then the buffer is scrolled up
+     instead.
+
+‘<DEL>’ (‘magit-diff-show-or-scroll-down’)
+     This command updates the commit buffer.
+
+     This either shows the commit that last touched the line at point in
+     the appropriate buffer, or if that buffer is already being
+     displayed in the current frame and if that buffer contains
+     information about that commit, then the buffer is scrolled down
+     instead.
+
+   The following key bindings are available when both Magit-Blame mode
+and Read-Only mode are enabled.
+
+‘b’ (‘magit-blame’)
+     See above.
+
+‘n’ (‘magit-blame-next-chunk’)
+     This command moves to the next chunk.
+
+‘N’ (‘magit-blame-next-chunk-same-commit’)
+     This command moves to the next chunk from the same commit.
+
+‘p’ (‘magit-blame-previous-chunk’)
+     This command moves to the previous chunk.
+
+‘P’ (‘magit-blame-previous-chunk-same-commit’)
+     This command moves to the previous chunk from the same commit.
+
+‘q’ (‘magit-blame-quit’)
+     This command turns off Magit-Blame mode.  If the buffer was created
+     during a recursive blame, then it also kills the buffer.
+
+‘M-w’ (‘magit-blame-copy-hash’)
+     This command saves the hash of the current chunk’s commit to the
+     kill ring.
+
+     When the region is active, the command saves the region’s content
+     instead of the hash, like ‘kill-ring-save’ would.
+
+‘c’ (‘magit-blame-cycle-style’)
+     This command changes how blame information is visualized in the
+     current buffer by cycling through the styles specified using the
+     option ‘magit-blame-styles’.
+
+   Blaming is also controlled using the following options.
+
+ -- User Option: magit-blame-styles
+     This option defines a list of styles used to visualize blame
+     information.  For now see its doc-string to learn more.
+
+ -- User Option: magit-blame-echo-style
+     This option specifies the blame visualization style used by the
+     command ‘magit-blame-echo’.  This must be a symbol that is used as
+     the identifier for one of the styles defined in
+     ‘magit-blame-styles’.
+
+ -- User Option: magit-blame-time-format
+     This option specifies the format string used to display times when
+     showing blame information.
+
+ -- User Option: magit-blame-read-only
+     This option controls whether blaming a buffer also makes
+     temporarily read-only.
+
+ -- User Option: magit-blame-disable-modes
+     This option lists incompatible minor-modes that should be disabled
+     temporarily when a buffer contains blame information.  They are
+     enabled again when the buffer no longer shows blame information.
+
+ -- User Option: magit-blame-goto-chunk-hook
+     This hook is run when moving between chunks.
+
+
+File: magit.info,  Node: Manipulating,  Next: Transferring,  Prev: Inspecting,  Up: Top
+
+6 Manipulating
+**************
+
+* Menu:
+
+* Creating Repository::
+* Cloning Repository::
+* Staging and Unstaging::
+* Applying::
+* Committing::
+* Branching::
+* Merging::
+* Resolving Conflicts::
+* Rebasing::
+* Cherry Picking::
+* Resetting::
+* Stashing::
+
+
+File: magit.info,  Node: Creating Repository,  Next: Cloning Repository,  Up: Manipulating
+
+6.1 Creating Repository
+=======================
+
+‘I’ (‘magit-init’)
+     This command initializes a repository and then shows the status
+     buffer for the new repository.
+
+     If the directory is below an existing repository, then the user has
+     to confirm that a new one should be created inside.  If the
+     directory is the root of the existing repository, then the user has
+     to confirm that it should be reinitialized.
+
+
+File: magit.info,  Node: Cloning Repository,  Next: Staging and Unstaging,  Prev: Creating Repository,  Up: Manipulating
+
+6.2 Cloning Repository
+======================
+
+To clone a remote or local repository use ‘C’, which is bound to the
+command ‘magit-clone’.  This command either act as a transient prefix
+command, which binds several infix arguments and suffix commands, or it
+can invoke ‘git clone’ directly, depending on whether a prefix argument
+is used and on the value of ‘magit-clone-always-transient’.
+
+ -- User Option: magit-clone-always-transient
+     This option controls whether the command ‘magit-clone’ always acts
+     as a transient prefix command, regardless of whether a prefix
+     argument is used or not.  If ‘t’, then that command always acts as
+     a transient prefix.  If ‘nil’, then a prefix argument has to be
+     used for it to act as a transient.
+
+‘C’ (‘magit-clone’)
+     This command either acts as a transient prefix command as described
+     above or does the same thing as ‘transient-clone-regular’ as
+     described below.
+
+     If it acts as a transient prefix, then it binds the following
+     suffix commands and several infix arguments.
+
+‘C C’ (‘magit-clone-regular’)
+     This command creates a regular clone of an existing repository.
+     The repository and the target directory are read from the user.
+
+‘C s’ (‘magit-clone-shallow’)
+     This command creates a shallow clone of an existing repository.
+     The repository and the target directory are read from the user.  By
+     default the depth of the cloned history is a single commit, but
+     with a prefix argument the depth is read from the user.
+
+‘C >’ (‘magit-clone-sparse’)
+     This command creates a clone of an existing repository and
+     initializes a sparse checkout, avoiding a checkout of the full
+     working tree.  To add more directories, use the
+     ‘magit-sparse-checkout’ transient (see *note Sparse checkouts::).
+
+‘C b’ (‘magit-clone-bare’)
+     This command creates a bare clone of an existing repository.  The
+     repository and the target directory are read from the user.
+
+‘C m’ (‘magit-clone-mirror’)
+     This command creates a mirror of an existing repository.  The
+     repository and the target directory are read from the user.
+
+   The following suffixes are disabled by default.  See *note
+(transient)Enabling and Disabling Suffixes:: for how to enable them.
+
+‘C d’ (‘magit-clone-shallow-since’)
+     This command creates a shallow clone of an existing repository.
+     Only commits that were committed after a date are cloned, which is
+     read from the user.  The repository and the target directory are
+     also read from the user.
+
+‘C e’ (‘magit-clone-shallow-exclude’)
+     This command creates a shallow clone of an existing repository.
+     This reads a branch or tag from the user.  Commits that are
+     reachable from that are not cloned.  The repository and the target
+     directory are also read from the user.
+
+ -- User Option: magit-clone-set-remote-head
+     This option controls whether cloning causes the reference
+     ‘refs/remotes/<remote>/HEAD’ to be created in the clone.  The
+     default is to delete the reference after running ‘git clone’, which
+     insists on creating it.  This is because the reference has not been
+     found to be particularly useful as it is not automatically updated
+     when the ‘HEAD’ of the remote changes.  Setting this option to ‘t’
+     preserves Git’s default behavior of creating the reference.
+
+ -- User Option: magit-clone-set-remote.pushDefault
+     This option controls whether the value of the Git variable
+     ‘remote.pushDefault’ is set after cloning.
+
+        • If ‘t’, then it is always set without asking.
+        • If ‘ask’, then the users are asked every time they clone a
+          repository.
+        • If ‘nil’, then it is never set.
+
+ -- User Option: magit-clone-default-directory
+     This option control the default directory name used when reading
+     the destination for a cloning operation.
+
+        • If ‘nil’ (the default), then the value of ‘default-directory’
+          is used.
+        • If a directory, then that is used.
+        • If a function, then that is called with the remote url as the
+          only argument and the returned value is used.
+
+ -- User Option: magit-clone-name-alist
+     This option maps regular expressions, which match repository names,
+     to repository urls, making it possible for users to enter short
+     names instead of urls when cloning repositories.
+
+     Each element has the form ‘(REGEXP HOSTNAME USER)’.  When the user
+     enters a name when a cloning command asks for a name or url, then
+     that is looked up in this list.  The first element whose REGEXP
+     matches is used.
+
+     The format specified by option ‘magit-clone-url-format’ is used to
+     turn the name into an url, using HOSTNAME and the repository name.
+     If the provided name contains a slash, then that is used.
+     Otherwise if the name omits the owner of the repository, then the
+     default user specified in the matched entry is used.
+
+     If USER contains a dot, then it is treated as a Git variable and
+     the value of that is used as the username.  Otherwise it is used as
+     the username itself.
+
+ -- User Option: magit-clone-url-format
+     The format specified by this option is used when turning repository
+     names into urls.  ‘%h’ is the hostname and ‘%n’ is the repository
+     name, including the name of the owner.  The value can be a string
+     (representing a single static format) or an alist with elements
+     ‘(HOSTNAME . FORMAT)’ mapping hostnames to formats.  When an alist
+     is used, the ‘t’ key represents the default format.
+
+     Example of a single format string:
+
+          (setq magit-clone-url-format
+                "git@%h:%n.git")
+
+     Example of by-hostname format strings:
+
+          (setq magit-clone-url-format
+                '(("git.example.com" . "git@%h:~%n")
+                  (nil . "git@%h:%n.git")))
+
+ -- User Option: magit-post-clone-hook
+     Hook run after the Git process has successfully finished cloning
+     the repository.  When the hook is called, ‘default-directory’ is
+     let-bound to the directory where the repository has been cloned.
+
+
+File: magit.info,  Node: Staging and Unstaging,  Next: Applying,  Prev: Cloning Repository,  Up: Manipulating
+
+6.3 Staging and Unstaging
+=========================
+
+Like Git, Magit can of course stage and unstage complete files.  Unlike
+Git, it also allows users to gracefully un-/stage individual hunks and
+even just part of a hunk.  To stage individual hunks and parts of hunks
+using Git directly, one has to use the very modal and rather clumsy
+interface of a ‘git add --interactive’ session.
+
+   With Magit, on the other hand, one can un-/stage individual hunks by
+just moving point into the respective section inside a diff displayed in
+the status buffer or a separate diff buffer and typing ‘s’ or ‘u’.  To
+operate on just parts of a hunk, mark the changes that should be
+un-/staged using the region and then press the same key that would be
+used to un-/stage.  To stage multiple files or hunks at once use a
+region that starts inside the heading of such a section and ends inside
+the heading of a sibling section of the same type.
+
+   Besides staging and unstaging, Magit also provides several other
+"apply variants" that can also operate on a file, multiple files at
+once, a hunk, multiple hunks at once, and on parts of a hunk.  These
+apply variants are described in the next section.
+
+   You can also use Ediff to stage and unstage.  See *note Ediffing::.
+
+‘s’ (‘magit-stage’)
+     Add the change at point to the staging area.
+
+     With a prefix argument and an untracked file (or files) at point,
+     stage the file but not its content.  This makes it possible to
+     stage only a subset of the new file’s changes.
+
+‘S’ (‘magit-stage-modified’)
+     Stage all changes to files modified in the worktree.  Stage all new
+     content of tracked files and remove tracked files that no longer
+     exist in the working tree from the index also.  With a prefix
+     argument also stage previously untracked (but not ignored) files.
+
+‘u’ (‘magit-unstage’)
+     Remove the change at point from the staging area.
+
+     Only staged changes can be unstaged.  But by default this command
+     performs an action that is somewhat similar to unstaging, when it
+     is called on a committed change: it reverses the change in the
+     index but not in the working tree.
+
+‘U’ (‘magit-unstage-all’)
+     Remove all changes from the staging area.
+
+ -- User Option: magit-unstage-committed
+     This option controls whether ‘magit-unstage’ "unstages" committed
+     changes by reversing them in the index but not the working tree.
+     The alternative is to raise an error.
+
+‘M-x magit-reverse-in-index’
+     This command reverses the committed change at point in the index
+     but not the working tree.  By default no key is bound directly to
+     this command, but it is indirectly called when ‘u’
+     (‘magit-unstage’) is pressed on a committed change.
+
+     This allows extracting a change from ‘HEAD’, while leaving it in
+     the working tree, so that it can later be committed using a
+     separate commit.  A typical workflow would be:
+
+       1. Optionally make sure that there are no uncommitted changes.
+       2. Visit the ‘HEAD’ commit and navigate to the change that should
+          not have been included in that commit.
+       3. Type ‘u’ (‘magit-unstage’) to reverse it in the index.  This
+          assumes that ‘magit-unstage-committed’ is non-nil.
+       4. Type ‘c e’ to extend ‘HEAD’ with the staged changes, including
+          those that were already staged before.
+       5. Optionally stage the remaining changes using ‘s’ or ‘S’ and
+          then type ‘c c’ to create a new commit.
+
+‘M-x magit-reset-index’
+     Reset the index to some commit.  The commit is read from the user
+     and defaults to the commit at point.  If there is no commit at
+     point, then it defaults to ‘HEAD’.
+
+* Menu:
+
+* Staging from File-Visiting Buffers::
+
+
+File: magit.info,  Node: Staging from File-Visiting Buffers,  Up: Staging and Unstaging
+
+6.3.1 Staging from File-Visiting Buffers
+----------------------------------------
+
+Fine-grained un-/staging has to be done from the status or a diff
+buffer, but it’s also possible to un-/stage all changes made to the file
+visited in the current buffer right from inside that buffer.
+
+‘M-x magit-stage-file’
+     When invoked inside a file-visiting buffer, then stage all changes
+     to that file.  In a Magit buffer, stage the file at point if any.
+     Otherwise prompt for a file to be staged.  With a prefix argument
+     always prompt the user for a file, even in a file-visiting buffer
+     or when there is a file section at point.
+
+‘M-x magit-unstage-file’
+     When invoked inside a file-visiting buffer, then unstage all
+     changes to that file.  In a Magit buffer, unstage the file at point
+     if any.  Otherwise prompt for a file to be unstaged.  With a prefix
+     argument always prompt the user for a file, even in a file-visiting
+     buffer or when there is a file section at point.
+
+
+File: magit.info,  Node: Applying,  Next: Committing,  Prev: Staging and Unstaging,  Up: Manipulating
+
+6.4 Applying
+============
+
+Magit provides several "apply variants": stage, unstage, discard,
+reverse, and "regular apply".  At least when operating on a hunk they
+are all implemented using ‘git apply’, which is why they are called
+"apply variants".
+
+   • Stage.  Apply a change from the working tree to the index.  The
+     change also remains in the working tree.
+
+   • Unstage.  Remove a change from the index.  The change remains in
+     the working tree.
+
+   • Discard.  On a staged change, remove it from the working tree and
+     the index.  On an unstaged change, remove it from the working tree
+     only.
+
+   • Reverse.  Reverse a change in the working tree.  Both committed and
+     staged changes can be reversed.  Unstaged changes cannot be
+     reversed.  Discard them instead.
+
+   • Apply.  Apply a change to the working tree.  Both committed and
+     staged changes can be applied.  Unstaged changes cannot be applied
+     - as they already have been applied.
+
+   The previous section described the staging and unstaging commands.
+What follows are the commands which implement the remaining apply
+variants.
+
+‘a’ (‘magit-apply’)
+     Apply the change at point to the working tree.
+
+     With a prefix argument fallback to a 3-way merge.  Doing so causes
+     the change to be applied to the index as well.
+
+‘k’ (‘magit-discard’)
+     Remove the change at point from the working tree.
+
+     On a hunk or file with unresolved conflicts prompt which side to
+     keep (while discarding the other).  If point is within the text of
+     a side, then keep that side without prompting.
+
+‘v’ (‘magit-reverse’)
+     Reverse the change at point in the working tree.
+
+     With a prefix argument fallback to a 3-way merge.  Doing so causes
+     the change to be applied to the index as well.
+
+   With a prefix argument all apply variants attempt a 3-way merge when
+appropriate (i.e., when ‘git apply’ is used internally).
+
+
+File: magit.info,  Node: Committing,  Next: Branching,  Prev: Applying,  Up: Manipulating
+
+6.5 Committing
+==============
+
+When the user initiates a commit, Magit calls ‘git commit’ without any
+arguments, so Git has to get it from the user.  It creates the file
+‘.git/COMMIT_EDITMSG’ and then opens that file in an editor.  Magit
+arranges for that editor to be the Emacsclient.  Once the user finishes
+the editing session, the Emacsclient exits and Git creates the commit
+using the file’s content as message.
+
+* Menu:
+
+* Initiating a Commit::
+* Editing Commit Messages::
+
+
+File: magit.info,  Node: Initiating a Commit,  Next: Editing Commit Messages,  Up: Committing
+
+6.5.1 Initiating a Commit
+-------------------------
+
+Also see *note (gitman)git-commit::.
+
+‘c’ (‘magit-commit’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘c c’ (‘magit-commit-create’)
+     Create a new commit on ‘HEAD’.  With a prefix argument amend to the
+     commit at ‘HEAD’ instead.
+
+‘c a’ (‘magit-commit-amend’)
+     Amend the last commit.
+
+‘c e’ (‘magit-commit-extend’)
+     Amend the last commit, without editing the message.  With a prefix
+     argument keep the committer date, otherwise change it.  The option
+     ‘magit-commit-extend-override-date’ can be used to inverse the
+     meaning of the prefix argument.
+
+     Non-interactively respect the optional OVERRIDE-DATE argument and
+     ignore the option.
+
+‘c w’ (‘magit-commit-reword’)
+     Reword the last commit, ignoring staged changes.  With a prefix
+     argument keep the committer date, otherwise change it.  The option
+     ‘magit-commit-reword-override-date’ can be used to inverse the
+     meaning of the prefix argument.
+
+     Non-interactively respect the optional OVERRIDE-DATE argument and
+     ignore the option.
+
+‘c f’ (‘magit-commit-fixup’)
+     Create a fixup commit.
+
+     With a prefix argument the target commit has to be confirmed.
+     Otherwise the commit at point may be used without confirmation
+     depending on the value of option ‘magit-commit-squash-confirm’.
+
+‘c F’ (‘magit-commit-instant-fixup’)
+     Create a fixup commit and instantly rebase.
+
+‘c s’ (‘magit-commit-squash’)
+     Create a squash commit, without editing the squash message.
+
+     With a prefix argument the target commit has to be confirmed.
+     Otherwise the commit at point may be used without confirmation
+     depending on the value of option ‘magit-commit-squash-confirm’.
+
+‘c S’ (‘magit-commit-instant-squash’)
+     Create a squash commit and instantly rebase.
+
+‘c A’ (‘magit-commit-augment’)
+     Create a squash commit, editing the squash message.
+
+     With a prefix argument the target commit has to be confirmed.
+     Otherwise the commit at point may be used without confirmation
+     depending on the value of option ‘magit-commit-squash-confirm’.
+
+ -- User Option: magit-commit-ask-to-stage
+     Whether to ask to stage all unstaged changes when committing and
+     nothing is staged.
+
+ -- User Option: magit-commit-show-diff
+     Whether the relevant diff is automatically shown when committing.
+
+ -- User Option: magit-commit-extend-override-date
+     Whether using ‘magit-commit-extend’ changes the committer date.
+
+ -- User Option: magit-commit-reword-override-date
+     Whether using ‘magit-commit-reword’ changes the committer date.
+
+ -- User Option: magit-commit-squash-confirm
+     Whether the commit targeted by squash and fixup has to be
+     confirmed.  When non-nil then the commit at point (if any) is used
+     as default choice.  Otherwise it has to be confirmed.  This option
+     only affects ‘magit-commit-squash’ and ‘magit-commit-fixup’.  The
+     "instant" variants always require confirmation because making an
+     error while using those is harder to recover from.
+
+ -- User Option: magit-post-commit-hook
+     Hook run after creating a commit without the user editing a
+     message.
+
+     This hook is run by ‘magit-refresh’ if ‘this-command’ is a member
+     of ‘magit-post-commit-hook-commands’.  This only includes commands
+     named ‘magit-commit-*’ that do *not* require that the user edits
+     the commit message in a buffer.
+
+     Also see ‘git-commit-post-finish-hook’.
+
+ -- User Option: magit-commit-diff-inhibit-same-window
+     Whether to inhibit use of same window when showing diff while
+     committing.
+
+     When writing a commit, then a diff of the changes to be committed
+     is automatically shown.  The idea is that the diff is shown in a
+     different window of the same frame and for most users that just
+     works.  In other words most users can completely ignore this option
+     because its value doesn’t make a difference for them.
+
+     However for users who configured Emacs to never create a new window
+     even when the package explicitly tries to do so, then displaying
+     two new buffers necessarily means that the first is immediately
+     replaced by the second.  In our case the message buffer is
+     immediately replaced by the diff buffer, which is of course highly
+     undesirable.
+
+     A workaround is to suppress this user configuration in this
+     particular case.  Users have to explicitly opt-in by toggling this
+     option.  We cannot enable the workaround unconditionally because
+     that again causes issues for other users: if the frame is too tiny
+     or the relevant settings too aggressive, then the diff buffer would
+     end up being displayed in a new frame.
+
+     Also see <https://github.com/magit/magit/issues/4132>.
+
+
+File: magit.info,  Node: Editing Commit Messages,  Prev: Initiating a Commit,  Up: Committing
+
+6.5.2 Editing Commit Messages
+-----------------------------
+
+After initiating a commit as described in the previous section, two new
+buffers appear.  One shows the changes that are about to be committed,
+while the other is used to write the message.
+
+   Commit messages are edited in an edit session - in the background
+‘git’ is waiting for the editor, in our case ‘emacsclient’, to save the
+commit message in a file (in most cases ‘.git/COMMIT_EDITMSG’) and then
+return.  If the editor returns with a non-zero exit status then ‘git’
+does not create the commit.  So the most important commands are those
+for finishing and aborting the commit.
+
+‘C-c C-c’ (‘with-editor-finish’)
+     Finish the current editing session by returning with exit code 0.
+     Git then creates the commit using the message it finds in the file.
+
+‘C-c C-k’ (‘with-editor-cancel’)
+     Cancel the current editing session by returning with exit code 1.
+     Git then cancels the commit, but leaves the file untouched.
+
+   In addition to being used by ‘git commit’, messages may also be
+stored in a ring that persists until Emacs is closed.  By default the
+message is stored at the beginning and the end of an edit session
+(regardless of whether the session is finished successfully or was
+canceled).  It is sometimes useful to bring back messages from that
+ring.
+
+‘C-c M-s’ (‘git-commit-save-message’)
+     Save the current buffer content to the commit message ring.
+
+‘M-p’ (‘git-commit-prev-message’)
+     Cycle backward through the commit message ring, after saving the
+     current message to the ring.  With a numeric prefix ARG, go back
+     ARG comments.
+
+‘M-n’ (‘git-commit-next-message’)
+     Cycle forward through the commit message ring, after saving the
+     current message to the ring.  With a numeric prefix ARG, go back
+     ARG comments.
+
+   By default the diff for the changes that are about to be committed
+are automatically shown when invoking the commit.  To prevent that,
+remove ‘magit-commit-diff’ from ‘server-switch-hook’.
+
+   When amending to an existing commit it may be useful to show either
+the changes that are about to be added to that commit or to show those
+changes alongside those that have already been committed.
+
+‘C-c C-d’ (‘magit-diff-while-committing’)
+     While committing, show the changes that are about to be committed.
+     While amending, invoking the command again toggles between showing
+     just the new changes or all the changes that will be committed.
+
+* Menu:
+
+* Using the Revision Stack::
+* Commit Pseudo Headers::
+* Commit Mode and Hooks::
+* Commit Message Conventions::
+
+
+File: magit.info,  Node: Using the Revision Stack,  Next: Commit Pseudo Headers,  Up: Editing Commit Messages
+
+Using the Revision Stack
+........................
+
+‘C-c C-w’ (‘magit-pop-revision-stack’)
+     This command inserts a representation of a revision into the
+     current buffer.  It can be used inside buffers used to write commit
+     messages but also in other buffers such as buffers used to edit
+     emails or ChangeLog files.
+
+     By default this command pops the revision which was last added to
+     the ‘magit-revision-stack’ and inserts it into the current buffer
+     according to ‘magit-pop-revision-stack-format’.  Revisions can be
+     put on the stack using ‘magit-copy-section-value’ and
+     ‘magit-copy-buffer-revision’.
+
+     If the stack is empty or with a prefix argument it instead reads a
+     revision in the minibuffer.  By using the minibuffer history this
+     allows selecting an item which was popped earlier or to insert an
+     arbitrary reference or revision without first pushing it onto the
+     stack.
+
+     When reading the revision from the minibuffer, then it might not be
+     possible to guess the correct repository.  When this command is
+     called inside a repository (e.g., while composing a commit
+     message), then that repository is used.  Otherwise (e.g., while
+     composing an email) then the repository recorded for the top
+     element of the stack is used (even though we insert another
+     revision).  If not called inside a repository and with an empty
+     stack, or with two prefix arguments, then read the repository in
+     the minibuffer too.
+
+ -- User Option: magit-pop-revision-stack-format
+     This option controls how the command ‘magit-pop-revision-stack’
+     inserts a revision into the current buffer.
+
+     The entries on the stack have the format ‘(HASH TOPLEVEL)’ and this
+     option has the format ‘(POINT-FORMAT EOB-FORMAT INDEX-REGEXP)’, all
+     of which may be nil or a string (though either one of EOB-FORMAT or
+     POINT-FORMAT should be a string, and if INDEX-REGEXP is non-nil,
+     then the two formats should be too).
+
+     First INDEX-REGEXP is used to find the previously inserted entry,
+     by searching backward from point.  The first submatch must match
+     the index number.  That number is incremented by one, and becomes
+     the index number of the entry to be inserted.  If you don’t want to
+     number the inserted revisions, then use nil for INDEX-REGEXP.
+
+     If INDEX-REGEXP is non-nil then both POINT-FORMAT and EOB-FORMAT
+     should contain \"%N\", which is replaced with the number that was
+     determined in the previous step.
+
+     Both formats, if non-nil and after removing %N, are then expanded
+     using ‘git show --format=FORMAT ...’ inside TOPLEVEL.
+
+     The expansion of POINT-FORMAT is inserted at point, and the
+     expansion of EOB-FORMAT is inserted at the end of the buffer (if
+     the buffer ends with a comment, then it is inserted right before
+     that).
+
+
+File: magit.info,  Node: Commit Pseudo Headers,  Next: Commit Mode and Hooks,  Prev: Using the Revision Stack,  Up: Editing Commit Messages
+
+Commit Pseudo Headers
+.....................
+
+Some projects use pseudo headers in commit messages.  Magit colorizes
+such headers and provides some commands to insert such headers.
+
+ -- User Option: git-commit-known-pseudo-headers
+     A list of Git pseudo headers to be highlighted.
+
+‘C-c C-i’ (‘git-commit-insert-pseudo-header’)
+     Insert a commit message pseudo header.
+
+‘C-c C-a’ (‘git-commit-ack’)
+     Insert a header acknowledging that you have looked at the commit.
+
+‘C-c C-r’ (‘git-commit-review’)
+     Insert a header acknowledging that you have reviewed the commit.
+
+‘C-c C-s’ (‘git-commit-signoff’)
+     Insert a header to sign off the commit.
+
+‘C-c C-t’ (‘git-commit-test’)
+     Insert a header acknowledging that you have tested the commit.
+
+‘C-c C-o’ (‘git-commit-cc’)
+     Insert a header mentioning someone who might be interested.
+
+‘C-c C-p’ (‘git-commit-reported’)
+     Insert a header mentioning the person who reported the issue being
+     fixed by the commit.
+
+‘C-c M-i’ (‘git-commit-suggested’)
+     Insert a header mentioning the person who suggested the change.
+
+
+File: magit.info,  Node: Commit Mode and Hooks,  Next: Commit Message Conventions,  Prev: Commit Pseudo Headers,  Up: Editing Commit Messages
+
+Commit Mode and Hooks
+.....................
+
+‘git-commit-mode’ is a minor mode that is only used to establish certain
+key bindings.  This makes it possible to use an arbitrary major mode in
+buffers used to edit commit messages.  It is even possible to use
+different major modes in different repositories, which is useful when
+different projects impose different commit message conventions.
+
+ -- User Option: git-commit-major-mode
+     The value of this option is the major mode used to edit Git commit
+     messages.
+
+   Because ‘git-commit-mode’ is a minor mode, we don’t use its mode hook
+to setup the buffer, except for the key bindings.  All other setup
+happens in the function ‘git-commit-setup’, which among other things
+runs the hook ‘git-commit-setup-hook’.
+
+ -- User Option: git-commit-setup-hook
+     Hook run at the end of ‘git-commit-setup’.
+
+The following functions are suitable for this hook:
+
+ -- Function: git-commit-save-message
+     Save the current buffer content to the commit message ring.
+
+ -- Function: git-commit-setup-changelog-support
+     After this function is called, ChangeLog entries are treated as
+     paragraphs.
+
+ -- Function: git-commit-turn-on-auto-fill
+     Turn on ‘auto-fill-mode’.
+
+ -- Function: git-commit-turn-on-flyspell
+     Turn on Flyspell mode.  Also prevent comments from being checked
+     and finally check current non-comment text.
+
+ -- Function: git-commit-propertize-diff
+     Propertize the diff shown inside the commit message buffer.  Git
+     inserts such diffs into the commit message template when the
+     ‘--verbose’ argument is used.  ‘magit-commit’ by default does not
+     offer that argument because the diff that is shown in a separate
+     buffer is more useful.  But some users disagree, which is why this
+     function exists.
+
+ -- Function: bug-reference-mode
+     Hyperlink bug references in the buffer.
+
+ -- Function: with-editor-usage-message
+     Show usage information in the echo area.
+
+ -- User Option: git-commit-post-finish-hook
+     Hook run after the user finished writing a commit message.
+
+     This hook is only run after pressing ‘C-c C-c’ in a buffer used to
+     edit a commit message.  If a commit is created without the user
+     typing a message into a buffer, then this hook is not run.
+
+     This hook is not run until the new commit has been created.  If
+     doing so takes Git longer than one second, then this hook isn’t run
+     at all.  For certain commands such as ‘magit-rebase-continue’ this
+     hook is never run because doing so would lead to a race condition.
+
+     This hook is only run if ‘magit’ is available.
+
+     Also see ‘magit-post-commit-hook’.
+
+
+File: magit.info,  Node: Commit Message Conventions,  Prev: Commit Mode and Hooks,  Up: Editing Commit Messages
+
+Commit Message Conventions
+..........................
+
+Git-Commit highlights certain violations of commonly accepted commit
+message conventions.  Certain violations even cause Git-Commit to ask
+you to confirm that you really want to do that.  This nagging can of
+course be turned off, but the result of doing that usually is that
+instead of some code it’s now the human who is reviewing your commits
+who has to waste some time telling you to fix your commits.
+
+ -- User Option: git-commit-summary-max-length
+     The intended maximal length of the summary line of commit messages.
+     Characters beyond this column are colorized to indicate that this
+     preference has been violated.
+
+ -- User Option: git-commit-finish-query-functions
+     List of functions called to query before performing commit.
+
+     The commit message buffer is current while the functions are
+     called.  If any of them returns nil, then the commit is not
+     performed and the buffer is not killed.  The user should then fix
+     the issue and try again.
+
+     The functions are called with one argument.  If it is non-nil then
+     that indicates that the user used a prefix argument to force
+     finishing the session despite issues.  Functions should usually
+     honor this wish and return non-nil.
+
+     By default the only member is ‘git-commit-check-style-conventions’.
+
+ -- Function: git-commit-check-style-conventions
+     This function checks for violations of certain basic style
+     conventions.  For each violation it asks users if they want to
+     proceed anyway.
+
+ -- User Option: git-commit-style-convention-checks
+     This option controls what conventions the function by the same name
+     tries to enforce.  The value is a list of self-explanatory symbols
+     identifying certain conventions; ‘non-empty-second-line’ and
+     ‘overlong-summary-line’.
+
+
+File: magit.info,  Node: Branching,  Next: Merging,  Prev: Committing,  Up: Manipulating
+
+6.6 Branching
+=============
+
+* Menu:
+
+* The Two Remotes::
+* Branch Commands::
+* Branch Git Variables::
+* Auxiliary Branch Commands::
+
+
+File: magit.info,  Node: The Two Remotes,  Next: Branch Commands,  Up: Branching
+
+6.6.1 The Two Remotes
+---------------------
+
+The upstream branch of some local branch is the branch into which the
+commits on that local branch should eventually be merged, usually
+something like ‘origin/master’.  For the ‘master’ branch itself the
+upstream branch and the branch it is being pushed to, are usually the
+same remote branch.  But for a feature branch the upstream branch and
+the branch it is being pushed to should differ.
+
+   The commits on feature branches too should _eventually_ end up in a
+remote branch such as ‘origin/master’ or ‘origin/maint’.  Such a branch
+should therefore be used as the upstream.  But feature branches
+shouldn’t be pushed directly to such branches.  Instead a feature branch
+‘my-feature’ is usually pushed to ‘my-fork/my-feature’ or if you are a
+contributor ‘origin/my-feature’.  After the new feature has been
+reviewed, the maintainer merges the feature into ‘master’.  And finally
+‘master’ (not ‘my-feature’ itself) is pushed to ‘origin/master’.
+
+   But new features seldom are perfect on the first try, and so feature
+branches usually have to be reviewed, improved, and re-pushed several
+times.  Pushing should therefore be easy to do, and for that reason many
+Git users have concluded that it is best to use the remote branch to
+which the local feature branch is being pushed as its upstream.
+
+   But luckily Git has long ago gained support for a push-remote which
+can be configured separately from the upstream branch, using the
+variables ‘branch.<name>.pushRemote’ and ‘remote.pushDefault’.  So we no
+longer have to choose which of the two remotes should be used as "the
+remote".
+
+   Each of the fetching, pulling, and pushing transient commands
+features three suffix commands that act on the current branch and some
+other branch.  Of these, ‘p’ is bound to a command which acts on the
+push-remote, ‘u’ is bound to a command which acts on the upstream, and
+‘e’ is bound to a command which acts on any other branch.  The status
+buffer shows unpushed and unpulled commits for both the push-remote and
+the upstream.
+
+   It’s fairly simple to configure these two remotes.  The values of all
+the variables that are related to fetching, pulling, and pushing (as
+well as some other branch-related variables) can be inspected and
+changed using the command ‘magit-branch-configure’, which is available
+from many transient prefix commands that deal with branches.  It is also
+possible to set the push-remote or upstream while pushing (see *note
+Pushing::).
+
+
+File: magit.info,  Node: Branch Commands,  Next: Branch Git Variables,  Prev: The Two Remotes,  Up: Branching
+
+6.6.2 Branch Commands
+---------------------
+
+The transient prefix command ‘magit-branch’ is used to create and
+checkout branches, and to make changes to existing branches.  It is not
+used to fetch, pull, merge, rebase, or push branches, i.e., this command
+deals with branches themselves, not with the commits reachable from
+them.  Those features are available from separate transient command.
+
+‘b’ (‘magit-branch’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+     By default it also binds and displays the values of some
+     branch-related Git variables and allows changing their values.
+
+ -- User Option: magit-branch-direct-configure
+     This option controls whether the transient command ‘magit-branch’
+     can be used to directly change the values of Git variables.  This
+     defaults to ‘t’ (to avoid changing key bindings).  When set to
+     ‘nil’, then no variables are displayed by that transient command,
+     and its suffix command ‘magit-branch-configure’ has to be used
+     instead to view and change branch related variables.
+
+‘b C’ (‘magit-branch-configure’)
+‘f C’
+‘F C’
+‘P C’
+     This transient prefix command binds commands that set the value of
+     branch-related variables and displays them in a temporary buffer
+     until the transient is exited.
+
+     With a prefix argument, this command always prompts for a branch.
+
+     Without a prefix argument this depends on whether it was invoked as
+     a suffix of ‘magit-branch’ and on the
+     ‘magit-branch-direct-configure’ option.  If ‘magit-branch’ already
+     displays the variables for the current branch, then it isn’t useful
+     to invoke another transient that displays them for the same branch.
+     In that case this command prompts for a branch.
+
+   The variables are described in *note Branch Git Variables::.
+
+‘b b’ (‘magit-checkout’)
+     Checkout a revision read in the minibuffer and defaulting to the
+     branch or arbitrary revision at point.  If the revision is a local
+     branch then that becomes the current branch.  If it is something
+     else then ‘HEAD’ becomes detached.  Checkout fails if the working
+     tree or the staging area contain changes.
+
+‘b n’ (‘magit-branch-create’)
+     Create a new branch.  The user is asked for a branch or arbitrary
+     revision to use as the starting point of the new branch.  When a
+     branch name is provided, then that becomes the upstream branch of
+     the new branch.  The name of the new branch is also read in the
+     minibuffer.
+
+     Also see option ‘magit-branch-prefer-remote-upstream’.
+
+‘b c’ (‘magit-branch-and-checkout’)
+     This command creates a new branch like ‘magit-branch-create’, but
+     then also checks it out.
+
+     Also see option ‘magit-branch-prefer-remote-upstream’.
+
+‘b l’ (‘magit-branch-checkout’)
+     This command checks out an existing or new local branch.  It reads
+     a branch name from the user offering all local branches and a
+     subset of remote branches as candidates.  Remote branches for which
+     a local branch by the same name exists are omitted from the list of
+     candidates.  The user can also enter a completely new branch name.
+
+        • If the user selects an existing local branch, then that is
+          checked out.
+
+        • If the user selects a remote branch, then it creates and
+          checks out a new local branch with the same name, and
+          configures the selected remote branch as the push target.
+
+        • If the user enters a new branch name, then it creates and
+          checks that out, after also reading the starting-point from
+          the user.
+
+     In the latter two cases the upstream is also set.  Whether it is
+     set to the chosen starting point or something else depends on the
+     value of ‘magit-branch-adjust-remote-upstream-alist’.
+
+‘b s’ (‘magit-branch-spinoff’)
+     This command creates and checks out a new branch starting at and
+     tracking the current branch.  That branch in turn is reset to the
+     last commit it shares with its upstream.  If the current branch has
+     no upstream or no unpushed commits, then the new branch is created
+     anyway and the previously current branch is not touched.
+
+     This is useful to create a feature branch after work has already
+     begun on the old branch (likely but not necessarily "master").
+
+     If the current branch is a member of the value of option
+     ‘magit-branch-prefer-remote-upstream’ (which see), then the current
+     branch will be used as the starting point as usual, but the
+     upstream of the starting-point may be used as the upstream of the
+     new branch, instead of the starting-point itself.
+
+     If optional FROM is non-nil, then the source branch is reset to
+     ‘FROM~’, instead of to the last commit it shares with its upstream.
+     Interactively, FROM is only ever non-nil, if the region selects
+     some commits, and among those commits, FROM is the commit that is
+     the fewest commits ahead of the source branch.
+
+     The commit at the other end of the selection actually does not
+     matter, all commits between FROM and ‘HEAD’ are moved to the new
+     branch.  If FROM is not reachable from ‘HEAD’ or is reachable from
+     the source branch’s upstream, then an error is raised.
+
+‘b S’ (‘magit-branch-spinout’)
+     This command behaves like ‘magit-branch-spinoff’, except that it
+     does not change the current branch.  If there are any uncommitted
+     changes, then it behaves exactly like ‘magit-branch-spinoff’.
+
+‘b x’ (‘magit-branch-reset’)
+     This command resets a branch, defaulting to the branch at point, to
+     the tip of another branch or any other commit.
+
+     When the branch being reset is the current branch, then a hard
+     reset is performed.  If there are any uncommitted changes, then the
+     user has to confirm the reset because those changes would be lost.
+
+     This is useful when you have started work on a feature branch but
+     realize it’s all crap and want to start over.
+
+     When resetting to another branch and a prefix argument is used,
+     then the target branch is set as the upstream of the branch that is
+     being reset.
+
+‘b k’ (‘magit-branch-delete’)
+     Delete one or multiple branches.  If the region marks multiple
+     branches, then offer to delete those.  Otherwise, prompt for a
+     single branch to be deleted, defaulting to the branch at point.
+
+     Require confirmation when deleting branches is dangerous in some
+     way.  Option ‘magit-no-confirm’ can be customized to not require
+     confirmation in certain cases.  See its docstring to learn why
+     confirmation is required by default in certain cases or if a prompt
+     is confusing.
+
+‘b m’ (‘magit-branch-rename’)
+     Rename a branch.  The branch and the new name are read in the
+     minibuffer.  With prefix argument the branch is renamed even if
+     that name conflicts with an existing branch.
+
+ -- User Option: magit-branch-read-upstream-first
+     When creating a branch, whether to read the upstream branch before
+     the name of the branch that is to be created.  The default is ‘t’,
+     and I recommend you leave it at that.
+
+ -- User Option: magit-branch-prefer-remote-upstream
+     This option specifies whether remote upstreams are favored over
+     local upstreams when creating new branches.
+
+     When a new branch is created, then the branch, commit, or stash at
+     point is suggested as the starting point of the new branch, or if
+     there is no such revision at point the current branch.  In either
+     case the user may choose another starting point.
+
+     If the chosen starting point is a branch, then it may also be set
+     as the upstream of the new branch, depending on the value of the
+     Git variable ‘branch.autoSetupMerge’.  By default this is done for
+     remote branches, but not for local branches.
+
+     You might prefer to always use some remote branch as upstream.  If
+     the chosen starting point is (1) a local branch, (2) whose name
+     matches a member of the value of this option, (3) the upstream of
+     that local branch is a remote branch with the same name, and (4)
+     that remote branch can be fast-forwarded to the local branch, then
+     the chosen branch is used as starting point, but its own upstream
+     is used as the upstream of the new branch.
+
+     Members of this option’s value are treated as branch names that
+     have to match exactly unless they contain a character that makes
+     them invalid as a branch name.  Recommended characters to use to
+     trigger interpretation as a regexp are "*" and "^".  Some other
+     characters which you might expect to be invalid, actually are not,
+     e.g., ".+$" are all perfectly valid.  More precisely, if ‘git
+     check-ref-format --branch STRING’ exits with a non-zero status,
+     then treat STRING as a regexp.
+
+     Assuming the chosen branch matches these conditions you would end
+     up with with e.g.:
+
+          feature --upstream--> origin/master
+
+     instead of
+
+          feature --upstream--> master --upstream--> origin/master
+
+     Which you prefer is a matter of personal preference.  If you do
+     prefer the former, then you should add branches such as ‘master’,
+     ‘next’, and ‘maint’ to the value of this options.
+
+ -- User Option: magit-branch-adjust-remote-upstream-alist
+     The value of this option is an alist of branches to be used as the
+     upstream when branching a remote branch.
+
+     When creating a local branch from an ephemeral branch located on a
+     remote, e.g., a feature or hotfix branch, then that remote branch
+     should usually not be used as the upstream branch, since the
+     push-remote already allows accessing it and having both the
+     upstream and the push-remote reference the same related branch
+     would be wasteful.  Instead a branch like "maint" or "master"
+     should be used as the upstream.
+
+     This option allows specifying the branch that should be used as the
+     upstream when branching certain remote branches.  The value is an
+     alist of the form ‘((UPSTREAM . RULE)...)’.  The first matching
+     element is used, the following elements are ignored.
+
+     UPSTREAM is the branch to be used as the upstream for branches
+     specified by RULE.  It can be a local or a remote branch.
+
+     RULE can either be a regular expression, matching branches whose
+     upstream should be the one specified by UPSTREAM.  Or it can be a
+     list of the only branches that should *not* use UPSTREAM; all other
+     branches will.  Matching is done after stripping the remote part of
+     the name of the branch that is being branched from.
+
+     If you use a finite set of non-ephemeral branches across all your
+     repositories, then you might use something like:
+
+          (("origin/master" . ("master" "next" "maint")))
+
+     Or if the names of all your ephemeral branches contain a slash, at
+     least in some repositories, then a good value could be:
+
+          (("origin/master" . "/"))
+
+     Of course you can also fine-tune:
+
+          (("origin/maint" . "\\`hotfix/")
+           ("origin/master" . "\\`feature/"))
+
+     UPSTREAM can be a local branch:
+
+          (("master" . ("master" "next" "maint")))
+
+   Because the main branch is no longer almost always named "master" you
+should also account for other common names:
+
+     (("main"  . ("main" "master" "next" "maint"))
+      ("master" . ("main" "master" "next" "maint")))
+
+ -- Command: magit-branch-orphan
+     This command creates and checks out a new orphan branch with
+     contents from a given revision.
+
+ -- Command: magit-branch-or-checkout
+     This command is a hybrid between ‘magit-checkout’ and
+     ‘magit-branch-and-checkout’ and is intended as a replacement for
+     the former in ‘magit-branch’.
+
+     It first asks the user for an existing branch or revision.  If the
+     user input actually can be resolved as a branch or revision, then
+     it checks that out, just like ‘magit-checkout’ would.
+
+     Otherwise it creates and checks out a new branch using the input as
+     its name.  Before doing so it reads the starting-point for the new
+     branch.  This is similar to what ‘magit-branch-and-checkout’ does.
+
+     To use this command instead of ‘magit-checkout’ add this to your
+     init file:
+
+          (transient-replace-suffix 'magit-branch 'magit-checkout
+            '("b" "dwim" magit-branch-or-checkout))
+
+
+File: magit.info,  Node: Branch Git Variables,  Next: Auxiliary Branch Commands,  Prev: Branch Commands,  Up: Branching
+
+6.6.3 Branch Git Variables
+--------------------------
+
+These variables can be set from the transient prefix command
+‘magit-branch-configure’.  By default they can also be set from
+‘magit-branch’.  See *note Branch Commands::.
+
+ -- Variable: branch.NAME.merge
+     Together with ‘branch.NAME.remote’ this variable defines the
+     upstream branch of the local branch named NAME.  The value of this
+     variable is the full reference of the upstream _branch_.
+
+ -- Variable: branch.NAME.remote
+     Together with ‘branch.NAME.merge’ this variable defines the
+     upstream branch of the local branch named NAME.  The value of this
+     variable is the name of the upstream _remote_.
+
+ -- Variable: branch.NAME.rebase
+     This variable controls whether pulling into the branch named NAME
+     is done by rebasing or by merging the fetched branch.
+
+        • When ‘true’ then pulling is done by rebasing.
+        • When ‘false’ then pulling is done by merging.
+        • When undefined then the value of ‘pull.rebase’ is used.  The
+          default of that variable is ‘false’.
+
+ -- Variable: branch.NAME.pushRemote
+     This variable specifies the remote that the branch named NAME is
+     usually pushed to.  The value has to be the name of an existing
+     remote.
+
+     It is not possible to specify the name of _branch_ to push the
+     local branch to.  The name of the remote branch is always the same
+     as the name of the local branch.
+
+     If this variable is undefined but ‘remote.pushDefault’ is defined,
+     then the value of the latter is used.  By default
+     ‘remote.pushDefault’ is undefined.
+
+ -- Variable: branch.NAME.description
+     This variable can be used to describe the branch named NAME.  That
+     description is used, e.g., when turning the branch into a series of
+     patches.
+
+   The following variables specify defaults which are used if the above
+branch-specific variables are not set.
+
+ -- Variable: pull.rebase
+     This variable specifies whether pulling is done by rebasing or by
+     merging.  It can be overwritten using ‘branch.NAME.rebase’.
+
+        • When ‘true’ then pulling is done by rebasing.
+        • When ‘false’ (the default) then pulling is done by merging.
+
+     Since it is never a good idea to merge the upstream branch into a
+     feature or hotfix branch and most branches are such branches, you
+     should consider setting this to ‘true’, and ‘branch.master.rebase’
+     to ‘false’.
+
+ -- Variable: remote.pushDefault
+     This variable specifies what remote the local branches are usually
+     pushed to.  This can be overwritten per branch using
+     ‘branch.NAME.pushRemote’.
+
+   The following variables are used during the creation of a branch and
+control whether the various branch-specific variables are automatically
+set at this time.
+
+ -- Variable: branch.autoSetupMerge
+     This variable specifies under what circumstances creating a branch
+     NAME should result in the variables ‘branch.NAME.merge’ and
+     ‘branch.NAME.remote’ being set according to the starting point used
+     to create the branch.  If the starting point isn’t a branch, then
+     these variables are never set.
+
+        • When ‘always’ then the variables are set regardless of whether
+          the starting point is a local or a remote branch.
+        • When ‘true’ (the default) then the variables are set when the
+          starting point is a remote branch, but not when it is a local
+          branch.
+        • When ‘false’ then the variables are never set.
+
+ -- Variable: branch.autoSetupRebase
+     This variable specifies whether creating a branch NAME should
+     result in the variable ‘branch.NAME.rebase’ being set to ‘true’.
+
+        • When ‘always’ then the variable is set regardless of whether
+          the starting point is a local or a remote branch.
+        • When ‘local’ then the variable are set when the starting point
+          is a local branch, but not when it is a remote branch.
+        • When ‘remote’ then the variable are set when the starting
+          point is a remote branch, but not when it is a local branch.
+        • When ‘never’ (the default) then the variable is never set.
+
+   Note that the respective commands always change the repository-local
+values.  If you want to change the global value, which is used when the
+local value is undefined, then you have to do so on the command line,
+e.g.:
+
+     git config --global remote.autoSetupMerge always
+
+   For more information about these variables you should also see *note
+(gitman)git-config::.  Also see *note (gitman)git-branch::.  , *note
+(gitman)git-checkout::.  and *note Pushing::.
+
+ -- User Option: magit-prefer-remote-upstream
+     This option controls whether commands that read a branch from the
+     user and then set it as the upstream branch, offer a local or a
+     remote branch as default completion candidate, when they have the
+     choice.
+
+     This affects all commands that use ‘magit-read-upstream-branch’ or
+     ‘magit-read-starting-point’, which includes all commands that
+     change the upstream and many which create new branches.
+
+
+File: magit.info,  Node: Auxiliary Branch Commands,  Prev: Branch Git Variables,  Up: Branching
+
+6.6.4 Auxiliary Branch Commands
+-------------------------------
+
+These commands are not available from the transient ‘magit-branch’ by
+default.
+
+ -- Command: magit-branch-shelve
+     This command shelves a branch.  This is done by deleting the
+     branch, and creating a new reference "refs/shelved/BRANCH-NAME"
+     pointing at the same commit as the branch pointed at.  If the
+     deleted branch had a reflog, then that is preserved as the reflog
+     of the new reference.
+
+     This is useful if you want to move a branch out of sight, but are
+     not ready to completely discard it yet.
+
+ -- Command: magit-branch-unshelve
+     This command unshelves a branch that was previously shelved using
+     ‘magit-branch-shelve’.  This is done by deleting the reference
+     "refs/shelved/BRANCH-NAME" and creating a branch "BRANCH-NAME"
+     pointing at the same commit as the deleted reference pointed at.
+     If the deleted reference had a reflog, then that is restored as the
+     reflog of the branch.
+
+
+File: magit.info,  Node: Merging,  Next: Resolving Conflicts,  Prev: Branching,  Up: Manipulating
+
+6.7 Merging
+===========
+
+Also see *note (gitman)git-merge::.  For information on how to resolve
+merge conflicts see the next section.
+
+‘m’ (‘magit-merge’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   When no merge is in progress, then the transient features the
+following suffix commands.
+
+‘m m’ (‘magit-merge-plain’)
+     This command merges another branch or an arbitrary revision into
+     the current branch.  The branch or revision to be merged is read in
+     the minibuffer and defaults to the branch at point.
+
+     Unless there are conflicts or a prefix argument is used, then the
+     resulting merge commit uses a generic commit message, and the user
+     does not get a chance to inspect or change it before the commit is
+     created.  With a prefix argument this does not actually create the
+     merge commit, which makes it possible to inspect how conflicts were
+     resolved and to adjust the commit message.
+
+‘m e’ (‘magit-merge-editmsg’)
+     This command merges another branch or an arbitrary revision into
+     the current branch and opens a commit message buffer, so that the
+     user can make adjustments.  The commit is not actually created
+     until the user finishes with ‘C-c C-c’.
+
+‘m n’ (‘magit-merge-nocommit’)
+     This command merges another branch or an arbitrary revision into
+     the current branch, but does not actually create the merge commit.
+     The user can then further adjust the merge, even when automatic
+     conflict resolution succeeded and/or adjust the commit message.
+
+‘m a’ (‘magit-merge-absorb’)
+     This command merges another local branch into the current branch
+     and then removes the former.
+
+     Before the source branch is merged, it is first force pushed to its
+     push-remote, provided the respective remote branch already exists.
+     This ensures that the respective pull-request (if any) won’t get
+     stuck on some obsolete version of the commits that are being
+     merged.  Finally, if ‘magit-branch-pull-request’ was used to create
+     the merged branch, then the respective remote branch is also
+     removed.
+
+‘m i’ (‘magit-merge-into’)
+     This command merges the current branch into another local branch
+     and then removes the former.  The latter becomes the new current
+     branch.
+
+     Before the source branch is merged, it is first force pushed to its
+     push-remote, provided the respective remote branch already exists.
+     This ensures that the respective pull-request (if any) won’t get
+     stuck on some obsolete version of the commits that are being
+     merged.  Finally, if ‘magit-branch-pull-request’ was used to create
+     the merged branch, then the respective remote branch is also
+     removed.
+
+‘m s’ (‘magit-merge-squash’)
+     This command squashes the changes introduced by another branch or
+     an arbitrary revision into the current branch.  This only applies
+     the changes made by the squashed commits.  No information is
+     preserved that would allow creating an actual merge commit.
+     Instead of this command you should probably use a command from the
+     apply transient.
+
+‘m p’ (‘magit-merge-preview’)
+     This command shows a preview of merging another branch or an
+     arbitrary revision into the current branch.
+
+     Note that commands, that normally change how a diff is displayed,
+     do not work in buffers created by this command, because the
+     underlying Git command does not support diff arguments.
+
+   When a merge is in progress, then the transient instead features the
+following suffix commands.
+
+‘m m’ (‘magit-merge’)
+     After the user resolved conflicts, this command proceeds with the
+     merge.  If some conflicts weren’t resolved, then this command
+     fails.
+
+‘m a’ (‘magit-merge-abort’)
+     This command aborts the current merge operation.
+
+
+File: magit.info,  Node: Resolving Conflicts,  Next: Rebasing,  Prev: Merging,  Up: Manipulating
+
+6.8 Resolving Conflicts
+=======================
+
+When merging branches (or otherwise combining or changing history)
+conflicts can occur.  If you edited two completely different parts of
+the same file in two branches and then merge one of these branches into
+the other, then Git can resolve that on its own, but if you edit the
+same area of a file, then a human is required to decide how the two
+versions, or "sides of the conflict", are to be combined into one.
+
+   Here we can only provide a brief introduction to the subject and
+point you toward some tools that can help.  If you are new to this, then
+please also consult Git’s own documentation as well as other resources.
+
+   If a file has conflicts and Git cannot resolve them by itself, then
+it puts both versions into the affected file along with special markers
+whose purpose is to denote the boundaries of the unresolved part of the
+file and between the different versions.  These boundary lines begin
+with the strings consisting of seven times the same character, one of
+‘<’, ‘|’, ‘=’ and ‘>’, and are followed by information about the source
+of the respective versions, e.g.:
+
+     <<<<<<< HEAD
+     Take the blue pill.
+     =======
+     Take the red pill.
+     >>>>>>> feature
+
+   In this case you have chosen to take the red pill on one branch and
+on another you picked the blue pill.  Now that you are merging these two
+diverging branches, Git cannot possibly know which pill you want to
+take.
+
+   To resolve that conflict you have to create a version of the affected
+area of the file by keeping only one of the sides, possibly by editing
+it in order to bring in the changes from the other side, remove the
+other versions as well as the markers, and then stage the result.  A
+possible resolution might be:
+
+     Take both pills.
+
+   Often it is useful to see not only the two sides of the conflict but
+also the "original" version from before the same area of the file was
+modified twice on different branches.  Instruct Git to insert that
+version as well by running this command once:
+
+     git config --global merge.conflictStyle diff3
+
+   The above conflict might then have looked like this:
+
+     <<<<<<< HEAD
+     Take the blue pill.
+     ||||||| merged common ancestors
+     Take either the blue or the red pill, but not both.
+     =======
+     Take the red pill.
+     >>>>>>> feature
+
+   If that were the case, then the above conflict resolution would not
+have been correct, which demonstrates why seeing the original version
+alongside the conflicting versions can be useful.
+
+   You can perform the conflict resolution completely by hand, but Emacs
+also provides some packages that help in the process: Smerge, Ediff
+(*note (ediff)Top::), and Emerge (*note (emacs)Emerge::).  Magit does
+not provide its own tools for conflict resolution, but it does make
+using Smerge and Ediff more convenient.  (Ediff supersedes Emerge, so
+you probably don’t want to use the latter anyway.)
+
+   In the Magit status buffer, files with unresolved conflicts are
+listed in the "Unstaged changes" and/or "Staged changes" sections.  They
+are prefixed with the word "unmerged", which in this context essentially
+is a synonym for "unresolved".
+
+   Pressing ‘RET’ while point is on such a file section shows a buffer
+visiting that file, turns on ‘smerge-mode’ in that buffer, and places
+point inside the first area with conflicts.  You should then resolve
+that conflict using regular edit commands and/or Smerge commands.
+
+   Unfortunately Smerge does not have a manual, but you can get a list
+of commands and binding ‘C-c ^ C-h’ and press ‘RET’ while point is on a
+command name to read its documentation.
+
+   Normally you would edit one version and then tell Smerge to keep only
+that version.  Use ‘C-c ^ m’ (‘smerge-keep-mine’) to keep the ‘HEAD’
+version or ‘C-c ^ o’ (‘smerge-keep-other’) to keep the version that
+follows "|||||||".  Then use ‘C-c ^ n’ to move to the next conflicting
+area in the same file.  Once you are done resolving conflicts, return to
+the Magit status buffer.  The file should now be shown as "modified", no
+longer as "unmerged", because Smerge automatically stages the file when
+you save the buffer after resolving the last conflict.
+
+   Magit now wraps the mentioned Smerge commands, allowing you to use
+these key bindings without having to go to the file-visiting buffer.
+Additionally ‘k’ (‘magit-discard’) on a hunk with unresolved conflicts
+asks which side to keep or, if point is on a side, then it keeps it
+without prompting.  Similarly ‘k’ on a unresolved file ask which side to
+keep.
+
+   Alternatively you could use Ediff, which uses separate buffers for
+the different versions of the file.  To resolve conflicts in a file
+using Ediff press ‘e’ while point is on such a file in the status
+buffer.
+
+   Ediff can be used for other purposes as well.  For more information
+on how to enter Ediff from Magit, see *note Ediffing::.  Explaining how
+to use Ediff is beyond the scope of this manual, instead see *note
+(ediff)Top::.
+
+   If you are unsure whether you should Smerge or Ediff, then use the
+former.  It is much easier to understand and use, and except for truly
+complex conflicts, the latter is usually overkill.
+
+
+File: magit.info,  Node: Rebasing,  Next: Cherry Picking,  Prev: Resolving Conflicts,  Up: Manipulating
+
+6.9 Rebasing
+============
+
+Also see *note (gitman)git-rebase::.  For information on how to resolve
+conflicts that occur during rebases see the preceding section.
+
+‘r’ (‘magit-rebase’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   When no rebase is in progress, then the transient features the
+following suffix commands.
+
+   Using one of these commands _starts_ a rebase sequence.  Git might
+then stop somewhere along the way, either because you told it to do so,
+or because applying a commit failed due to a conflict.  When that
+happens, then the status buffer shows information about the rebase
+sequence which is in progress in a section similar to a log section.
+See *note Information About In-Progress Rebase::.
+
+   For information about the upstream and the push-remote, see *note The
+Two Remotes::.
+
+‘r p’ (‘magit-rebase-onto-pushremote’)
+     This command rebases the current branch onto its push-remote.
+
+     With a prefix argument or when the push-remote is either not
+     configured or unusable, then let the user first configure the
+     push-remote.
+
+‘r u’ (‘magit-rebase-onto-upstream’)
+     This command rebases the current branch onto its upstream branch.
+
+     With a prefix argument or when the upstream is either not
+     configured or unusable, then let the user first configure the
+     upstream.
+
+‘r e’ (‘magit-rebase-branch’)
+     This command rebases the current branch onto a branch read in the
+     minibuffer.  All commits that are reachable from head but not from
+     the selected branch TARGET are being rebased.
+
+‘r s’ (‘magit-rebase-subset’)
+     This command starts a non-interactive rebase sequence to transfer
+     commits from START to ‘HEAD’ onto NEWBASE.  START has to be
+     selected from a list of recent commits.
+
+   By default Magit uses the ‘--autostash’ argument, which causes
+uncommitted changes to be stored in a stash before the rebase begins.
+These changes are restored after the rebase completes and if possible
+the stash is removed.  If the stash does not apply cleanly, then the
+stash is not removed.  In case something goes wrong when resolving the
+conflicts, this allows you to start over.
+
+   Even though one of the actions is dedicated to interactive rebases,
+the transient also features the infix argument ‘--interactive’.  This
+can be used to turn one of the other, non-interactive rebase variants
+into an interactive rebase.
+
+   For example if you want to clean up a feature branch and at the same
+time rebase it onto ‘master’, then you could use ‘r-iu’.  But we
+recommend that you instead do that in two steps.  First use ‘ri’ to
+cleanup the feature branch, and then in a second step ‘ru’ to rebase it
+onto ‘master’.  That way if things turn out to be more complicated than
+you thought and/or you make a mistake and have to start over, then you
+only have to redo half the work.
+
+   Explicitly enabling ‘--interactive’ won’t have an effect on the
+following commands as they always use that argument anyway, even if it
+is not enabled in the transient.
+
+‘r i’ (‘magit-rebase-interactive’)
+     This command starts an interactive rebase sequence.
+
+‘r f’ (‘magit-rebase-autosquash’)
+     This command combines squash and fixup commits with their intended
+     targets.
+
+‘r m’ (‘magit-rebase-edit-commit’)
+     This command starts an interactive rebase sequence that lets the
+     user edit a single older commit.
+
+‘r w’ (‘magit-rebase-reword-commit’)
+     This command starts an interactive rebase sequence that lets the
+     user reword a single older commit.
+
+‘r k’ (‘magit-rebase-remove-commit’)
+     This command removes a single older commit using rebase.
+
+   When a rebase is in progress, then the transient instead features the
+following suffix commands.
+
+‘r r’ (‘magit-rebase-continue’)
+     This command restart the current rebasing operation.
+
+     In some cases this pops up a commit message buffer for you do edit.
+     With a prefix argument the old message is reused as-is.
+
+‘r s’ (‘magit-rebase-skip’)
+     This command skips the current commit and restarts the current
+     rebase operation.
+
+‘r e’ (‘magit-rebase-edit’)
+     This command lets the user edit the todo list of the current rebase
+     operation.
+
+‘r a’ (‘magit-rebase-abort’)
+     This command aborts the current rebase operation, restoring the
+     original branch.
+
+* Menu:
+
+* Editing Rebase Sequences::
+* Information About In-Progress Rebase::
+
+
+File: magit.info,  Node: Editing Rebase Sequences,  Next: Information About In-Progress Rebase,  Up: Rebasing
+
+6.9.1 Editing Rebase Sequences
+------------------------------
+
+‘C-c C-c’ (‘with-editor-finish’)
+     Finish the current editing session by returning with exit code 0.
+     Git then uses the rebase instructions it finds in the file.
+
+‘C-c C-k’ (‘with-editor-cancel’)
+     Cancel the current editing session by returning with exit code 1.
+     Git then forgoes starting the rebase sequence.
+
+‘<RET>’ (‘git-rebase-show-commit’)
+     Show the commit on the current line in another buffer and select
+     that buffer.
+
+‘<SPC>’ (‘git-rebase-show-or-scroll-up’)
+     Show the commit on the current line in another buffer without
+     selecting that buffer.  If the revision buffer is already visible
+     in another window of the current frame, then instead scroll that
+     window up.
+
+‘<DEL>’ (‘git-rebase-show-or-scroll-down’)
+     Show the commit on the current line in another buffer without
+     selecting that buffer.  If the revision buffer is already visible
+     in another window of the current frame, then instead scroll that
+     window down.
+
+‘p’ (‘git-rebase-backward-line’)
+     Move to previous line.
+
+‘n’ (‘forward-line’)
+     Move to next line.
+
+‘M-p’ (‘git-rebase-move-line-up’)
+     Move the current commit (or command) up.
+
+‘M-n’ (‘git-rebase-move-line-down’)
+     Move the current commit (or command) down.
+
+‘r’ (‘git-rebase-reword’)
+     Edit message of commit on current line.
+
+‘e’ (‘git-rebase-edit’)
+     Stop at the commit on the current line.
+
+‘s’ (‘git-rebase-squash’)
+     Meld commit on current line into previous commit, and edit message.
+
+‘f’ (‘git-rebase-fixup’)
+     Meld commit on current line into previous commit, discarding the
+     current commit’s message.
+
+‘k’ (‘git-rebase-kill-line’)
+     Kill the current action line.
+
+‘c’ (‘git-rebase-pick’)
+     Use commit on current line.
+
+‘x’ (‘git-rebase-exec’)
+     Insert a shell command to be run after the proceeding commit.
+
+     If there already is such a command on the current line, then edit
+     that instead.  With a prefix argument insert a new command even
+     when there already is one on the current line.  With empty input
+     remove the command on the current line, if any.
+
+‘b’ (‘git-rebase-break’)
+     Insert a break action before the current line, instructing Git to
+     return control to the user.
+
+‘y’ (‘git-rebase-insert’)
+     Read an arbitrary commit and insert it below current line.
+
+‘C-x u’ (‘git-rebase-undo’)
+     Undo some previous changes.  Like ‘undo’ but works in read-only
+     buffers.
+
+ -- User Option: git-rebase-auto-advance
+     Whether to move to next line after changing a line.
+
+ -- User Option: git-rebase-show-instructions
+     Whether to show usage instructions inside the rebase buffer.
+
+ -- User Option: git-rebase-confirm-cancel
+     Whether confirmation is required to cancel.
+
+   When a rebase is performed with the ‘--rebase-merges’ option, the
+sequence will include a few other types of actions and the following
+commands become relevant.
+
+‘l’ (‘git-rebase-label’)
+     This commands inserts a label action or edits the one at point.
+
+‘t’ (‘git-rebase-reset’)
+     This command inserts a reset action or edits the one at point.  The
+     prompt will offer the labels that are currently present in the
+     buffer.
+
+‘MM’ (‘git-rebase-merge’)
+     The command inserts a merge action or edits the one at point.  The
+     prompt will offer the labels that are currently present in the
+     buffer.  Specifying a message to reuse via ‘-c’ or ‘-C’ is not
+     supported; an editor will always be invoked for the merge.
+
+‘Mt’ (‘git-rebase-merge-toggle-editmsg’)
+     This command toggles between the ‘-C’ and ‘-c’ options of the merge
+     action at point.  These options both specify a commit whose message
+     should be reused.  The lower-case variant instructs Git to invoke
+     the editor when creating the merge, allowing the user to edit the
+     message.
+
+
+File: magit.info,  Node: Information About In-Progress Rebase,  Prev: Editing Rebase Sequences,  Up: Rebasing
+
+6.9.2 Information About In-Progress Rebase
+------------------------------------------
+
+While a rebase sequence is in progress, the status buffer features a
+section that lists the commits that have already been applied as well as
+the commits that still have to be applied.
+
+   The commits are split in two halves.  When rebase stops at a commit,
+either because the user has to deal with a conflict or because s/he
+explicitly requested that rebase stops at that commit, then point is
+placed on the commit that separates the two groups, i.e., on ‘HEAD’.
+The commits above it have not been applied yet, while the ‘HEAD’ and the
+commits below it have already been applied.  In between these two groups
+of applied and yet-to-be applied commits, there sometimes is a commit
+which has been dropped.
+
+   Each commit is prefixed with a word and these words are additionally
+shown in different colors to indicate the status of the commits.
+
+   The following colors are used:
+
+   • Commits that use the same foreground color as the ‘default’ face
+     have not been applied yet.
+
+   • Yellow commits have some special relationship to the commit rebase
+     stopped at.  This is used for the words "join", "goal", "same" and
+     "work" (see below).
+
+   • Gray commits have already been applied.
+
+   • The blue commit is the ‘HEAD’ commit.
+
+   • The green commit is the commit the rebase sequence stopped at.  If
+     this is the same commit as ‘HEAD’ (e.g., because you haven’t done
+     anything yet after rebase stopped at the commit, then this commit
+     is shown in blue, not green).  There can only be a green *and* a
+     blue commit at the same time, if you create one or more new commits
+     after rebase stops at a commit.
+
+   • Red commits have been dropped.  They are shown for reference only,
+     e.g., to make it easier to diff.
+
+   Of course these colors are subject to the color-theme in use.
+
+   The following words are used:
+
+   • Commits prefixed with ‘pick’, ‘reword’, ‘edit’, ‘squash’, and
+     ‘fixup’ have not been applied yet.  These words have the same
+     meaning here as they do in the buffer used to edit the rebase
+     sequence.  See *note Editing Rebase Sequences::.  When the
+     ‘--rebase-merges’ option was specified, ‘reset’, ‘label’, and
+     ‘merge’ lines may also be present.
+
+   • Commits prefixed with ‘done’ and ‘onto’ have already been applied.
+     It is possible for such a commit to be the ‘HEAD’, in which case it
+     is blue.  Otherwise it is grey.
+
+        • The commit prefixed with ‘onto’ is the commit on top of which
+          all the other commits are being re-applied.  This commit
+          itself did not have to be re-applied, it is the commit rebase
+          did rewind to before starting to re-apply other commits.
+
+        • Commits prefixed with ‘done’ have already been re-applied.
+          This includes commits that have been re-applied but also new
+          commits that you have created during the rebase.
+
+   • All other commits, those not prefixed with any of the above words,
+     are in some way related to the commit at which rebase stopped.
+
+     To determine whether a commit is related to the stopped-at commit
+     their hashes, trees and patch-ids (1) are being compared.  The
+     commit message is not used for this purpose.
+
+     Generally speaking commits that are related to the stopped-at
+     commit can have any of the used colors, though not all color/word
+     combinations are possible.
+
+     Words used for stopped-at commits are:
+
+        • When a commit is prefixed with ‘void’, then that indicates
+          that Magit knows for sure that all the changes in that commit
+          have been applied using several new commits.  This commit is
+          no longer reachable from ‘HEAD’, and it also isn’t one of the
+          commits that will be applied when resuming the session.
+
+        • When a commit is prefixed with ‘join’, then that indicates
+          that the rebase sequence stopped at that commit due to a
+          conflict - you now have to join (merge) the changes with what
+          has already been applied.  In a sense this is the commit
+          rebase stopped at, but while its effect is already in the
+          index and in the worktree (with conflict markers), the commit
+          itself has not actually been applied yet (it isn’t the
+          ‘HEAD’).  So it is shown in yellow, like the other commits
+          that still have to be applied.
+
+        • When a commit is prefixed with ‘stop’ or a _blue_ or _green_
+          ‘same’, then that indicates that rebase stopped at this
+          commit, that it is still applied or has been applied again,
+          and that at least its patch-id is unchanged.
+
+             • When a commit is prefixed with ‘stop’, then that
+               indicates that rebase stopped at that commit because you
+               requested that earlier, and its patch-id is unchanged.
+               It might even still be the exact same commit.
+
+             • When a commit is prefixed with a _blue_ or _green_
+               ‘same’, then that indicates that while its tree or hash
+               changed, its patch-id did not.  If it is blue, then it is
+               the ‘HEAD’ commit (as always for blue).  When it is
+               green, then it no longer is ‘HEAD’ because other commit
+               have been created since (but before continuing the
+               rebase).
+
+        • When a commit is prefixed with ‘goal’, a _yellow_ ‘same,’ or
+          ‘work’, then that indicates that rebase applied that commit
+          but that you then reset ‘HEAD’ to an earlier commit (likely to
+          split it up into multiple commits), and that there are some
+          uncommitted changes remaining which likely (but not
+          necessarily) originate from that commit.
+
+             • When a commit is prefixed with ‘goal’, then that
+               indicates that it is still possible to create a new
+               commit with the exact same tree (the "goal") without
+               manually editing any files, by committing the index, or
+               by staging all changes and then committing that.  This is
+               the case when the original tree still exists in the index
+               or worktree in untainted form.
+
+             • When a commit is prefixed with a yellow ‘same’, then that
+               indicates that it is no longer possible to create a
+               commit with the exact same tree, but that it is still
+               possible to create a commit with the same patch-id.  This
+               would be the case if you created a new commit with other
+               changes, but the changes from the original commit still
+               exist in the index or working tree in untainted form.
+
+             • When a commit is prefixed with ‘work’, then that
+               indicates that you reset ‘HEAD’ to an earlier commit, and
+               that there are some staged and/or unstaged changes
+               (likely, but not necessarily) originating from that
+               commit.  However it is no longer possible to create a new
+               commit with the same tree or at least the same patch-id
+               because you have already made other changes.
+
+        • When a commit is prefixed with ‘poof’ or ‘gone’, then that
+          indicates that rebase applied that commit but that you then
+          reset ‘HEAD’ to an earlier commit (likely to split it up into
+          multiple commits), and that there are no uncommitted changes.
+
+             • When a commit is prefixed with ‘poof’, then that
+               indicates that it is no longer reachable from ‘HEAD’, but
+               that it has been replaced with one or more commits, which
+               together have the exact same effect.
+
+             • When a commit is prefixed with ‘gone’, then that
+               indicates that it is no longer reachable from ‘HEAD’ and
+               that we also cannot determine whether its changes are
+               still in effect in one or more new commits.  They might
+               be, but if so, then there must also be other changes
+               which makes it impossible to know for sure.
+
+   Do not worry if you do not fully understand the above.  That’s okay,
+you will acquire a good enough understanding through practice.
+
+   For other sequence operations such as cherry-picking, a similar
+section is displayed, but they lack some of the features described
+above, due to limitations in the git commands used to implement them.
+Most importantly these sequences only support "picking" a commit but not
+other actions such as "rewording", and they do not keep track of the
+commits which have already been applied.
+
+   ---------- Footnotes ----------
+
+   (1) The patch-id is a hash of the _changes_ introduced by a commit.
+It differs from the hash of the commit itself, which is a hash of the
+result of applying that change (i.e., the resulting trees and blobs) as
+well as author and committer information, the commit message, and the
+hashes of the parents of the commit.  The patch-id hash on the other
+hand is created only from the added and removed lines, even line numbers
+and whitespace changes are ignored when calculating this hash.  The
+patch-ids of two commits can be used to answer the question "Do these
+commits make the same change?".
+
+
+File: magit.info,  Node: Cherry Picking,  Next: Resetting,  Prev: Rebasing,  Up: Manipulating
+
+6.10 Cherry Picking
+===================
+
+Also see *note (gitman)git-cherry-pick::.
+
+‘A’ (‘magit-cherry-pick’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   When no cherry-pick or revert is in progress, then the transient
+features the following suffix commands.
+
+‘A A’ (‘magit-cherry-copy’)
+     This command copies COMMITS from another branch onto the current
+     branch.  If the region selects multiple commits, then those are
+     copied, without prompting.  Otherwise the user is prompted for a
+     commit or range, defaulting to the commit at point.
+
+‘A a’ (‘magit-cherry-apply’)
+     This command applies the changes in COMMITS from another branch
+     onto the current branch.  If the region selects multiple commits,
+     then those are used, without prompting.  Otherwise the user is
+     prompted for a commit or range, defaulting to the commit at point.
+
+     This command also has a top-level binding, which can be invoked
+     without using the transient by typing ‘a’ at the top-level.
+
+   The following commands not only apply some commits to some branch,
+but also remove them from some other branch.  The removal is performed
+using either ‘git-update-ref’ or if necessary ‘git-rebase’.  Both
+applying commits as well as removing them using ‘git-rebase’ can lead to
+conflicts.  If that happens, then these commands abort and you not only
+have to resolve the conflicts but also finish the process the same way
+you would have to if these commands didn’t exist at all.
+
+‘A h’ (‘magit-cherry-harvest’)
+     This command moves the selected COMMITS that must be located on
+     another BRANCH onto the current branch instead, removing them from
+     the former.  When this command succeeds, then the same branch is
+     current as before.
+
+     Applying the commits on the current branch or removing them from
+     the other branch can lead to conflicts.  When that happens, then
+     this command stops and you have to resolve the conflicts and then
+     finish the process manually.
+
+‘A d’ (‘magit-cherry-donate’)
+     This command moves the selected COMMITS from the current branch
+     onto another existing BRANCH, removing them from the former.  When
+     this command succeeds, then the same branch is current as before.
+     ‘HEAD’ is allowed to be detached initially.
+
+     Applying the commits on the other branch or removing them from the
+     current branch can lead to conflicts.  When that happens, then this
+     command stops and you have to resolve the conflicts and then finish
+     the process manually.
+
+‘A n’ (‘magit-cherry-spinout’)
+     This command moves the selected COMMITS from the current branch
+     onto a new branch BRANCH, removing them from the former.  When this
+     command succeeds, then the same branch is current as before.
+
+     Applying the commits on the other branch or removing them from the
+     current branch can lead to conflicts.  When that happens, then this
+     command stops and you have to resolve the conflicts and then finish
+     the process manually.
+
+‘A s’ (‘magit-cherry-spinoff’)
+     This command moves the selected COMMITS from the current branch
+     onto a new branch BRANCH, removing them from the former.  When this
+     command succeeds, then the new branch is checked out.
+
+     Applying the commits on the other branch or removing them from the
+     current branch can lead to conflicts.  When that happens, then this
+     command stops and you have to resolve the conflicts and then finish
+     the process manually.
+
+   When a cherry-pick or revert is in progress, then the transient
+instead features the following suffix commands.
+
+‘A A’ (‘magit-sequence-continue’)
+     Resume the current cherry-pick or revert sequence.
+
+‘A s’ (‘magit-sequence-skip’)
+     Skip the stopped at commit during a cherry-pick or revert sequence.
+
+‘A a’ (‘magit-sequence-abort’)
+     Abort the current cherry-pick or revert sequence.  This discards
+     all changes made since the sequence started.
+
+* Menu:
+
+* Reverting::
+
+
+File: magit.info,  Node: Reverting,  Up: Cherry Picking
+
+6.10.1 Reverting
+----------------
+
+‘V’ (‘magit-revert’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   When no cherry-pick or revert is in progress, then the transient
+features the following suffix commands.
+
+‘V V’ (‘magit-revert-and-commit’)
+     Revert a commit by creating a new commit.  Prompt for a commit,
+     defaulting to the commit at point.  If the region selects multiple
+     commits, then revert all of them, without prompting.
+
+‘V v’ (‘magit-revert-no-commit’)
+     Revert a commit by applying it in reverse to the working tree.
+     Prompt for a commit, defaulting to the commit at point.  If the
+     region selects multiple commits, then revert all of them, without
+     prompting.
+
+   When a cherry-pick or revert is in progress, then the transient
+instead features the following suffix commands.
+
+‘V V’ (‘magit-sequence-continue’)
+     Resume the current cherry-pick or revert sequence.
+
+‘V s’ (‘magit-sequence-skip’)
+     Skip the stopped at commit during a cherry-pick or revert sequence.
+
+‘V a’ (‘magit-sequence-abort’)
+     Abort the current cherry-pick or revert sequence.  This discards
+     all changes made since the sequence started.
+
+
+File: magit.info,  Node: Resetting,  Next: Stashing,  Prev: Cherry Picking,  Up: Manipulating
+
+6.11 Resetting
+==============
+
+Also see *note (gitman)git-reset::.
+
+‘x’ (‘magit-reset-quickly’)
+     Reset the ‘HEAD’ and index to some commit read from the user and
+     defaulting to the commit at point, and possibly also reset the
+     working tree.  With a prefix argument reset the working tree
+     otherwise don’t.
+
+‘X m’ (‘magit-reset-mixed’)
+     Reset the ‘HEAD’ and index to some commit read from the user and
+     defaulting to the commit at point.  The working tree is kept as-is.
+
+‘X s’ (‘magit-reset-soft’)
+     Reset the ‘HEAD’ to some commit read from the user and defaulting
+     to the commit at point.  The index and the working tree are kept
+     as-is.
+
+‘X h’ (‘magit-reset-hard’)
+     Reset the ‘HEAD’, index, and working tree to some commit read from
+     the user and defaulting to the commit at point.
+
+‘X k’ (‘magit-reset-keep’)
+     Reset the ‘HEAD’, index, and working tree to some commit read from
+     the user and defaulting to the commit at point.  Uncommitted
+     changes are kept as-is.
+
+‘X i’ (‘magit-reset-index’)
+     Reset the index to some commit read from the user and defaulting to
+     the commit at point.  Keep the ‘HEAD’ and working tree as-is, so if
+     the commit refers to the ‘HEAD’, then this effectively unstages all
+     changes.
+
+‘X w’ (‘magit-reset-worktree’)
+     Reset the working tree to some commit read from the user and
+     defaulting to the commit at point.  Keep the ‘HEAD’ and index
+     as-is.
+
+‘X f’ (‘magit-file-checkout’)
+     Update file in the working tree and index to the contents from a
+     revision.  Both the revision and file are read from the user.
+
+
+File: magit.info,  Node: Stashing,  Prev: Resetting,  Up: Manipulating
+
+6.12 Stashing
+=============
+
+Also see *note (gitman)git-stash::.
+
+‘z’ (‘magit-stash’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘z z’ (‘magit-stash-both’)
+     Create a stash of the index and working tree.  Untracked files are
+     included according to infix arguments.  One prefix argument is
+     equivalent to ‘--include-untracked’ while two prefix arguments are
+     equivalent to ‘--all’.
+
+‘z i’ (‘magit-stash-index’)
+     Create a stash of the index only.  Unstaged and untracked changes
+     are not stashed.
+
+‘z w’ (‘magit-stash-worktree’)
+     Create a stash of unstaged changes in the working tree.  Untracked
+     files are included according to infix arguments.  One prefix
+     argument is equivalent to ‘--include-untracked’ while two prefix
+     arguments are equivalent to ‘--all’.
+
+‘z x’ (‘magit-stash-keep-index’)
+     Create a stash of the index and working tree, keeping index intact.
+     Untracked files are included according to infix arguments.  One
+     prefix argument is equivalent to ‘--include-untracked’ while two
+     prefix arguments are equivalent to ‘--all’.
+
+‘z Z’ (‘magit-snapshot-both’)
+     Create a snapshot of the index and working tree.  Untracked files
+     are included according to infix arguments.  One prefix argument is
+     equivalent to ‘--include-untracked’ while two prefix arguments are
+     equivalent to ‘--all’.
+
+‘z I’ (‘magit-snapshot-index’)
+     Create a snapshot of the index only.  Unstaged and untracked
+     changes are not stashed.
+
+‘z W’ (‘magit-snapshot-worktree’)
+     Create a snapshot of unstaged changes in the working tree.
+     Untracked files are included according to infix arguments.  One
+     prefix argument is equivalent to ‘--include-untracked’ while two
+     prefix arguments are equivalent to ‘--all’-.
+
+‘z a’ (‘magit-stash-apply’)
+     Apply a stash to the working tree.
+
+     First try ‘git stash apply --index’, which tries to preserve the
+     index stored in the stash, if any.  This may fail because applying
+     the stash could result in conflicts and those have to be stored in
+     the index, making it impossible to also store the stash’s index
+     there as well.
+
+     If the above failed, then try ‘git stash apply’.  This fails (with
+     or without ‘--index’) if there are any uncommitted changes to files
+     that are also modified in the stash.
+
+     If both of the above failed, then apply using ‘git apply’.  If
+     there are no conflicting files, use ‘--3way’.  If there are
+     conflicting files, then using ‘--3way’ requires that those files
+     are staged first, which may be undesirable, so prompt the user
+     whether to use ‘--3way’ or ‘--reject’.
+
+     Customize ‘magit-no-confirm’ if you want to always use ‘--3way’,
+     without being prompted.
+
+‘z p’ (‘magit-stash-pop’)
+     Apply a stash to the working tree.  On complete success (if the
+     stash can be applied without any conflicts, and while preserving
+     the stash’s index) then remove the stash from stash list.
+
+     First try ‘git stash pop --index’, which tries to preserve the
+     index stored in the stash, if any.  This may fail because applying
+     the stash could result in conflicts and those have to be stored in
+     the index, making it impossible to also store the stash’s index
+     there as well.
+
+     If the above failed, then try ‘git stash apply’.  This fails (with
+     or without ‘--index’) if there are any uncommitted changes to files
+     that are also modified in the stash.
+
+     If both of the above failed, then apply using ‘git apply’.  If
+     there are no conflicting files, use ‘--3way’.  If there are
+     conflicting files, then using ‘--3way’ requires that those files
+     are staged first, which may be undesirable, so prompt the user
+     whether to use ‘--3way’ or ‘--reject’.
+
+     Customize ‘magit-no-confirm’ if you want to always use ‘--3way’,
+     without being prompted.
+
+‘z k’ (‘magit-stash-drop’)
+     Remove a stash from the stash list.  When the region is active,
+     offer to drop all contained stashes.
+
+‘z v’ (‘magit-stash-show’)
+     Show all diffs of a stash in a buffer.
+
+‘z b’ (‘magit-stash-branch’)
+     Create and checkout a new branch from an existing stash.  The new
+     branch starts at the commit that was current when the stash was
+     created.
+
+‘z B’ (‘magit-stash-branch-here’)
+     Create and checkout a new branch from an existing stash.  Use the
+     current branch or ‘HEAD’ as the starting-point of the new branch.
+     Then apply the stash, dropping it if it applies cleanly.
+
+‘z f’ (‘magit-stash-format-patch’)
+     Create a patch from STASH.
+
+‘k’ (‘magit-stash-clear’)
+     Remove all stashes saved in REF’s reflog by deleting REF.
+
+‘z l’ (‘magit-stash-list’)
+     List all stashes in a buffer.
+
+ -- User Option: magit-stashes-margin
+     This option specifies whether the margin is initially shown in
+     stashes buffers and how it is formatted.
+
+     The value has the form ‘(INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH)’.
+
+        • If INIT is non-nil, then the margin is shown initially.
+        • STYLE controls how to format the author or committer date.  It
+          can be one of ‘age’ (to show the age of the commit),
+          ‘age-abbreviated’ (to abbreviate the time unit to a
+          character), or a string (suitable for ‘format-time-string’) to
+          show the actual date.  Option
+          ‘magit-log-margin-show-committer-date’ controls which date is
+          being displayed.
+        • WIDTH controls the width of the margin.  This exists for
+          forward compatibility and currently the value should not be
+          changed.
+        • AUTHOR controls whether the name of the author is also shown
+          by default.
+        • AUTHOR-WIDTH has to be an integer.  When the name of the
+          author is shown, then this specifies how much space is used to
+          do so.
+
+
+File: magit.info,  Node: Transferring,  Next: Miscellaneous,  Prev: Manipulating,  Up: Top
+
+7 Transferring
+**************
+
+* Menu:
+
+* Remotes::
+* Fetching::
+* Pulling::
+* Pushing::
+* Plain Patches::
+* Maildir Patches::
+
+
+File: magit.info,  Node: Remotes,  Next: Fetching,  Up: Transferring
+
+7.1 Remotes
+===========
+
+* Menu:
+
+* Remote Commands::
+* Remote Git Variables::
+
+
+File: magit.info,  Node: Remote Commands,  Next: Remote Git Variables,  Up: Remotes
+
+7.1.1 Remote Commands
+---------------------
+
+The transient prefix command ‘magit-remote’ is used to add remotes and
+to make changes to existing remotes.  This command only deals with
+remotes themselves, not with branches or the transfer of commits.  Those
+features are available from separate transient commands.
+
+   Also see *note (gitman)git-remote::.
+
+‘M’ (‘magit-remote’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+     By default it also binds and displays the values of some
+     remote-related Git variables and allows changing their values.
+
+ -- User Option: magit-remote-direct-configure
+     This option controls whether remote-related Git variables are
+     accessible directly from the transient ‘magit-remote’.
+
+     If ‘t’ (the default) and a local branch is checked out, then
+     ‘magit-remote’ features the variables for the upstream remote of
+     that branch, or if ‘HEAD’ is detached, for ‘origin’, provided that
+     exists.
+
+     If ‘nil’, then ‘magit-remote-configure’ has to be used to do so.
+
+‘M C’ (‘magit-remote-configure’)
+     This transient prefix command binds commands that set the value of
+     remote-related variables and displays them in a temporary buffer
+     until the transient is exited.
+
+     With a prefix argument, this command always prompts for a remote.
+
+     Without a prefix argument this depends on whether it was invoked as
+     a suffix of ‘magit-remote’ and on the
+     ‘magit-remote-direct-configure’ option.  If ‘magit-remote’ already
+     displays the variables for the upstream, then it does not make
+     sense to invoke another transient that displays them for the same
+     remote.  In that case this command prompts for a remote.
+
+   The variables are described in *note Remote Git Variables::.
+
+‘M a’ (‘magit-remote-add’)
+     This command add a remote and fetches it.  The remote name and url
+     are read in the minibuffer.
+
+‘M r’ (‘magit-remote-rename’)
+     This command renames a remote.  Both the old and the new names are
+     read in the minibuffer.
+
+‘M u’ (‘magit-remote-set-url’)
+     This command changes the url of a remote.  Both the remote and the
+     new url are read in the minibuffer.
+
+‘M k’ (‘magit-remote-remove’)
+     This command deletes a remote, read in the minibuffer.
+
+‘M p’ (‘magit-remote-prune’)
+     This command removes stale remote-tracking branches for a remote
+     read in the minibuffer.
+
+‘M P’ (‘magit-remote-prune-refspecs’)
+     This command removes stale refspecs for a remote read in the
+     minibuffer.
+
+     A refspec is stale if there no longer exists at least one branch on
+     the remote that would be fetched due to that refspec.  A stale
+     refspec is problematic because its existence causes Git to refuse
+     to fetch according to the remaining non-stale refspecs.
+
+     If only stale refspecs remain, then this command offers to either
+     delete the remote or to replace the stale refspecs with the default
+     refspec ("+refs/heads/*:refs/remotes/REMOTE/*").
+
+     This command also removes the remote-tracking branches that were
+     created due to the now stale refspecs.  Other stale branches are
+     not removed.
+
+ -- User Option: magit-remote-add-set-remote.pushDefault
+     This option controls whether the user is asked whether they want to
+     set ‘remote.pushDefault’ after adding a remote.
+
+     If ‘ask’, then users is always ask.  If ‘ask-if-unset’, then the
+     user is only if the variable isn’t set already.  If ‘nil’, then the
+     user isn’t asked and the variable isn’t set.  If the value is a
+     string, then the variable is set without the user being asked,
+     provided that the name of the added remote is equal to that string
+     and the variable isn’t already set.
+
+
+File: magit.info,  Node: Remote Git Variables,  Prev: Remote Commands,  Up: Remotes
+
+7.1.2 Remote Git Variables
+--------------------------
+
+These variables can be set from the transient prefix command
+‘magit-remote-configure’.  By default they can also be set from
+‘magit-remote’.  See *note Remote Commands::.
+
+ -- Variable: remote.NAME.url
+     This variable specifies the url of the remote named NAME.  It can
+     have multiple values.
+
+ -- Variable: remote.NAME.fetch
+     The refspec used when fetching from the remote named NAME.  It can
+     have multiple values.
+
+ -- Variable: remote.NAME.pushurl
+     This variable specifies the url used for pushing to the remote
+     named NAME.  If it is not specified, then ‘remote.NAME.url’ is used
+     instead.  It can have multiple values.
+
+ -- Variable: remote.NAME.push
+     The refspec used when pushing to the remote named NAME.  It can
+     have multiple values.
+
+ -- Variable: remote.NAME.tagOpts
+     This variable specifies what tags are fetched by default.  If the
+     value is ‘--no-tags’ then no tags are fetched.  If the value is
+     ‘--tags’, then all tags are fetched.  If this variable has no
+     value, then only tags are fetched that are reachable from fetched
+     branches.
+
+
+File: magit.info,  Node: Fetching,  Next: Pulling,  Prev: Remotes,  Up: Transferring
+
+7.2 Fetching
+============
+
+Also see *note (gitman)git-fetch::.  For information about the upstream
+and the push-remote, see *note The Two Remotes::.
+
+‘f’ (‘magit-fetch’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘f p’ (‘magit-fetch-from-pushremote’)
+     This command fetches from the current push-remote.
+
+     With a prefix argument or when the push-remote is either not
+     configured or unusable, then let the user first configure the
+     push-remote.
+
+‘f u’ (‘magit-fetch-from-upstream’)
+     This command fetch from the upstream of the current branch.
+
+     If the upstream is configured for the current branch and names an
+     existing remote, then use that.  Otherwise try to use another
+     remote: If only a single remote is configured, then use that.
+     Otherwise if a remote named "origin" exists, then use that.
+
+     If no remote can be determined, then this command is not available
+     from the ‘magit-fetch’ transient prefix and invoking it directly
+     results in an error.
+
+‘f e’ (‘magit-fetch-other’)
+     This command fetch from a repository read from the minibuffer.
+
+‘f o’ (‘magit-fetch-branch’)
+     This command fetches a branch from a remote, both of which are read
+     from the minibuffer.
+
+‘f r’ (‘magit-fetch-refspec’)
+     This command fetches from a remote using an explicit refspec, both
+     of which are read from the minibuffer.
+
+‘f a’ (‘magit-fetch-all’)
+     This command fetches from all remotes.
+
+‘f m’ (‘magit-fetch-modules’)
+     This command fetches all submodules.  With a prefix argument, it
+     acts as a transient prefix command, allowing the caller to set
+     options.
+
+ -- User Option: magit-pull-or-fetch
+     By default fetch and pull commands are available from separate
+     transient prefix command.  Setting this to ‘t’ adds some (but not
+     all) of the above suffix commands to the ‘magit-pull’ transient.
+
+     If you do that, then you might also want to change the key binding
+     for these prefix commands, e.g.:
+
+          (setq magit-pull-or-fetch t)
+          (define-key magit-mode-map "f" 'magit-pull) ; was magit-fetch
+          (define-key magit-mode-map "F" nil)         ; was magit-pull
+
+
+File: magit.info,  Node: Pulling,  Next: Pushing,  Prev: Fetching,  Up: Transferring
+
+7.3 Pulling
+===========
+
+Also see *note (gitman)git-pull::.  For information about the upstream
+and the push-remote, see *note The Two Remotes::.
+
+‘F’ (‘magit-pull’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘F p’ (‘magit-pull-from-pushremote’)
+     This command pulls from the push-remote of the current branch.
+
+     With a prefix argument or when the push-remote is either not
+     configured or unusable, then let the user first configure the
+     push-remote.
+
+‘F u’ (‘magit-pull-from-upstream’)
+     This command pulls from the upstream of the current branch.
+
+     With a prefix argument or when the upstream is either not
+     configured or unusable, then let the user first configure the
+     upstream.
+
+‘F e’ (‘magit-pull-branch’)
+     This command pulls from a branch read in the minibuffer.
+
+
+File: magit.info,  Node: Pushing,  Next: Plain Patches,  Prev: Pulling,  Up: Transferring
+
+7.4 Pushing
+===========
+
+Also see *note (gitman)git-push::.  For information about the upstream
+and the push-remote, see *note The Two Remotes::.
+
+‘P’ (‘magit-push’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘P p’ (‘magit-push-current-to-pushremote’)
+     This command pushes the current branch to its push-remote.
+
+     With a prefix argument or when the push-remote is either not
+     configured or unusable, then let the user first configure the
+     push-remote.
+
+‘P u’ (‘magit-push-current-to-upstream’)
+     This command pushes the current branch to its upstream branch.
+
+     With a prefix argument or when the upstream is either not
+     configured or unusable, then let the user first configure the
+     upstream.
+
+‘P e’ (‘magit-push-current’)
+     This command pushes the current branch to a branch read in the
+     minibuffer.
+
+‘P o’ (‘magit-push-other’)
+     This command pushes an arbitrary branch or commit somewhere.  Both
+     the source and the target are read in the minibuffer.
+
+‘P r’ (‘magit-push-refspecs’)
+     This command pushes one or multiple refspecs to a remote, both of
+     which are read in the minibuffer.
+
+     To use multiple refspecs, separate them with commas.  Completion is
+     only available for the part before the colon, or when no colon is
+     used.
+
+‘P m’ (‘magit-push-matching’)
+     This command pushes all matching branches to another repository.
+
+     If only one remote exists, then push to that.  Otherwise prompt for
+     a remote, offering the remote configured for the current branch as
+     default.
+
+‘P t’ (‘magit-push-tags’)
+     This command pushes all tags to another repository.
+
+     If only one remote exists, then push to that.  Otherwise prompt for
+     a remote, offering the remote configured for the current branch as
+     default.
+
+‘P T’ (‘magit-push-tag’)
+     This command pushes a tag to another repository.
+
+   One of the infix arguments, ‘--force-with-lease’, deserves a word of
+caution.  It is passed without a value, which means "permit a force push
+as long as the remote-tracking branches match their counterparts on the
+remote end".  If you’ve set up a tool to do automatic fetches (Magit
+itself does not provide such functionality), using ‘--force-with-lease’
+can be dangerous because you don’t actually control or know the state of
+the remote-tracking refs.  In that case, you should consider setting
+‘push.useForceIfIncludes’ to ‘true’ (available since Git 2.30).
+
+   Two more push commands exist, which by default are not available from
+the push transient.  See their doc-strings for instructions on how to
+add them to the transient.
+
+ -- Command: magit-push-implicitly args
+     This command pushes somewhere without using an explicit refspec.
+
+     This command simply runs ‘git push -v [ARGS]’.  ARGS are the infix
+     arguments.  No explicit refspec arguments are used.  Instead the
+     behavior depends on at least these Git variables: ‘push.default’,
+     ‘remote.pushDefault’, ‘branch.<branch>.pushRemote’,
+     ‘branch.<branch>.remote’, ‘branch.<branch>.merge’, and
+     ‘remote.<remote>.push’.
+
+     If you add this suffix to a transient prefix without explicitly
+     specifying the description, then an attempt is made to predict what
+     this command will do.  For example:
+
+          (transient-insert-suffix 'magit-push \"p\"
+            '(\"i\" magit-push-implicitly))"
+
+ -- Command: magit-push-to-remote remote args
+     This command pushes to the remote REMOTE without using an explicit
+     refspec.  The remote is read in the minibuffer.
+
+     This command simply runs ‘git push -v [ARGS] REMOTE’.  ARGS are the
+     infix arguments.  No refspec arguments are used.  Instead the
+     behavior depends on at least these Git variables: ‘push.default’,
+     ‘remote.pushDefault’, ‘branch.<branch>.pushRemote’,
+     ‘branch.<branch>.remote’, ‘branch.<branch>.merge’, and
+     ‘remote.<remote>.push’.
+
+
+File: magit.info,  Node: Plain Patches,  Next: Maildir Patches,  Prev: Pushing,  Up: Transferring
+
+7.5 Plain Patches
+=================
+
+‘W’ (‘magit-patch’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘W c’ (‘magit-patch-create’)
+     This command creates patches for a set commits.  If the region
+     marks several commits, then it creates patches for all of them.
+     Otherwise it functions as a transient prefix command, which
+     features several infix arguments and binds itself as a suffix
+     command.  When this command is invoked as a suffix of itself, then
+     it creates a patch using the specified infix arguments.
+
+‘w a’ (‘magit-patch-apply’)
+     This command applies a patch.  This is a transient prefix command,
+     which features several infix arguments and binds itself as a suffix
+     command.  When this command is invoked as a suffix of itself, then
+     it applies a patch using the specified infix arguments.
+
+‘W s’ (‘magit-patch-save’)
+     This command creates a patch from the current diff.
+
+     Inside ‘magit-diff-mode’ or ‘magit-revision-mode’ buffers, ‘C-x
+     C-w’ is also bound to this command.
+
+   It is also possible to save a plain patch file by using ‘C-x C-w’
+inside a ‘magit-diff-mode’ or ‘magit-revision-mode’ buffer.
+
+
+File: magit.info,  Node: Maildir Patches,  Prev: Plain Patches,  Up: Transferring
+
+7.6 Maildir Patches
+===================
+
+Also see *note (gitman)git-am::.  and *note (gitman)git-apply::.
+
+‘w’ (‘magit-am’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘w w’ (‘magit-am-apply-patches’)
+     This command applies one or more patches.  If the region marks
+     files, then those are applied as patches.  Otherwise this command
+     reads a file-name in the minibuffer, defaulting to the file at
+     point.
+
+‘w m’ (‘magit-am-apply-maildir’)
+     This command applies patches from a maildir.
+
+‘w a’ (‘magit-patch-apply’)
+     This command applies a plain patch.  For a longer description see
+     *note Plain Patches::.  This command is only available from the
+     ‘magit-am’ transient for historic reasons.
+
+   When an "am" operation is in progress, then the transient instead
+features the following suffix commands.
+
+‘w w’ (‘magit-am-continue’)
+     This command resumes the current patch applying sequence.
+
+‘w s’ (‘magit-am-skip’)
+     This command skips the stopped at patch during a patch applying
+     sequence.
+
+‘w a’ (‘magit-am-abort’)
+     This command aborts the current patch applying sequence.  This
+     discards all changes made since the sequence started.
+
+
+File: magit.info,  Node: Miscellaneous,  Next: Customizing,  Prev: Transferring,  Up: Top
+
+8 Miscellaneous
+***************
+
+* Menu:
+
+* Tagging::
+* Notes::
+* Submodules::
+* Subtree::
+* Worktree::
+* Sparse checkouts::
+* Bundle::
+* Common Commands::
+* Wip Modes::
+* Commands for Buffers Visiting Files::
+* Minor Mode for Buffers Visiting Blobs::
+
+
+File: magit.info,  Node: Tagging,  Next: Notes,  Up: Miscellaneous
+
+8.1 Tagging
+===========
+
+Also see *note (gitman)git-tag::.
+
+‘t’ (‘magit-tag’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘t t’ (‘magit-tag-create’)
+     This command creates a new tag with the given NAME at REV.  With a
+     prefix argument it creates an annotated tag.
+
+‘t r’ (‘magit-tag-release’)
+     This commands creates a release tag.  It assumes that release tags
+     match ‘magit-release-tag-regexp’.
+
+     First it prompts for the name of the new tag using the highest
+     existing tag as initial input and leaving it to the user to
+     increment the desired part of the version string.  If you use
+     unconventional release tags or version numbers (e.g.,
+     ‘v1.2.3-custom.1’), you can set the ‘magit-release-tag-regexp’ and
+     ‘magit-tag-version-regexp-alist’ variables.
+
+     If ‘--annotate’ is enabled then it prompts for the message of the
+     new tag.  The proposed tag message is based on the message of the
+     highest tag, provided that that contains the corresponding version
+     string and substituting the new version string for that.  Otherwise
+     it proposes something like "Foo-Bar 1.2.3", given, for example, a
+     TAG "v1.2.3" and a repository located at something like
+     "/path/to/foo-bar".
+
+‘t k’ (‘magit-tag-delete’)
+     This command deletes one or more tags.  If the region marks
+     multiple tags (and nothing else), then it offers to delete those.
+     Otherwise, it prompts for a single tag to be deleted, defaulting to
+     the tag at point.
+
+‘t p’ (‘magit-tag-prune’)
+     This command offers to delete tags missing locally from REMOTE, and
+     vice versa.
+
+
+File: magit.info,  Node: Notes,  Next: Submodules,  Prev: Tagging,  Up: Miscellaneous
+
+8.2 Notes
+=========
+
+Also see *note (gitman)git-notes::.
+
+‘T’ (‘magit-notes’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+‘T T’ (‘magit-notes-edit’)
+     Edit the note attached to a commit, defaulting to the commit at
+     point.
+
+     By default use the value of Git variable ‘core.notesRef’ or
+     "refs/notes/commits" if that is undefined.
+
+‘T r’ (‘magit-notes-remove’)
+     Remove the note attached to a commit, defaulting to the commit at
+     point.
+
+     By default use the value of Git variable ‘core.notesRef’ or
+     "refs/notes/commits" if that is undefined.
+
+‘T p’ (‘magit-notes-prune’)
+     Remove notes about unreachable commits.
+
+   It is possible to merge one note ref into another.  That may result
+in conflicts which have to resolved in the temporary worktree
+".git/NOTES_MERGE_WORKTREE".
+
+‘T m’ (‘magit-notes-merge’)
+     Merge the notes of a ref read from the user into the current notes
+     ref.  The current notes ref is the value of Git variable
+     ‘core.notesRef’ or "refs/notes/commits" if that is undefined.
+
+   When a notes merge is in progress then the transient features the
+following suffix commands, instead of those listed above.
+
+‘T c’ (‘magit-notes-merge-commit’)
+     Commit the current notes ref merge, after manually resolving
+     conflicts.
+
+‘T a’ (‘magit-notes-merge-abort’)
+     Abort the current notes ref merge.
+
+   The following variables control what notes reference ‘magit-notes-*’,
+‘git notes’ and ‘git show’ act on and display.  Both the local and
+global values are displayed and can be modified.
+
+ -- Variable: core.notesRef
+     This variable specifies the notes ref that is displayed by default
+     and which commands act on by default.
+
+ -- Variable: notes.displayRef
+     This variable specifies additional notes ref to be displayed in
+     addition to the ref specified by ‘core.notesRef’.  It can have
+     multiple values and may end with ‘*’ to display all refs in the
+     ‘refs/notes/’ namespace (or ‘**’ if some names contain slashes).
+
+
+File: magit.info,  Node: Submodules,  Next: Subtree,  Prev: Notes,  Up: Miscellaneous
+
+8.3 Submodules
+==============
+
+Also see *note (gitman)git-submodule::.
+
+* Menu:
+
+* Listing Submodules::
+* Submodule Transient::
+
+
+File: magit.info,  Node: Listing Submodules,  Next: Submodule Transient,  Up: Submodules
+
+8.3.1 Listing Submodules
+------------------------
+
+The command ‘magit-list-submodules’ displays a list of the current
+repository’s submodules in a separate buffer.  It’s also possible to
+display information about submodules directly in the status buffer of
+the super-repository by adding ‘magit-insert-modules’ to the hook
+‘magit-status-sections-hook’ as described in *note Status Module
+Sections::.
+
+ -- Command: magit-list-submodules
+     This command displays a list of the current repository’s populated
+     submodules in a separate buffer.
+
+     It can be invoked by pressing ‘RET’ on the section titled
+     "Modules".
+
+ -- User Option: magit-submodule-list-columns
+     This option controls what columns are displayed by the command
+     ‘magit-list-submodules’ and how they are displayed.
+
+     Each element has the form ‘(HEADER WIDTH FORMAT PROPS)’.
+
+     HEADER is the string displayed in the header.  WIDTH is the width
+     of the column.  FORMAT is a function that is called with one
+     argument, the repository identification (usually its basename), and
+     with ‘default-directory’ bound to the toplevel of its working tree.
+     It has to return a string to be inserted or nil.  PROPS is an alist
+     that supports the keys ‘:right-align’, ‘:pad-right’ and ‘:sort’.
+
+     The ‘:sort’ function has a weird interface described in the
+     docstring of ‘tabulated-list--get-sort’.  Alternatively ‘<’ and
+     ‘magit-repolist-version<’ can be used as those functions are
+     automatically replaced with functions that satisfy the interface.
+     Set ‘:sort’ to ‘nil’ to inhibit sorting; if unspecified, then the
+     column is sortable using the default sorter.
+
+     You may wish to display a range of numeric columns using just one
+     character per column and without any padding between columns, in
+     which case you should use an appropriate HEADER, set WIDTH to 1,
+     and set ‘:pad-right’ to 9.  ‘+’ is substituted for numbers higher
+     than 9.
+
+
+File: magit.info,  Node: Submodule Transient,  Prev: Listing Submodules,  Up: Submodules
+
+8.3.2 Submodule Transient
+-------------------------
+
+‘o’ (‘magit-submodule’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+   Some of the below commands default to act on the modules that are
+selected using the region.  For brevity their description talk about
+"the selected modules", but if no modules are selected, then they act on
+the current module instead, or if point isn’t on a module, then the read
+a single module to act on.  With a prefix argument these commands ignore
+the selection and the current module and instead act on all suitable
+modules.
+
+‘o a’ (‘magit-submodule-add’)
+     This commands adds the repository at URL as a module.  Optional
+     PATH is the path to the module relative to the root of the
+     super-project.  If it is nil then the path is determined based on
+     URL.
+
+‘o r’ (‘magit-submodule-register’)
+     This command registers the selected modules by copying their urls
+     from ".gitmodules" to "$GIT_DIR/config".  These values can then be
+     edited before running ‘magit-submodule-populate’.  If you don’t
+     need to edit any urls, then use the latter directly.
+
+‘o p’ (‘magit-submodule-populate’)
+     This command creates the working directory or directories of the
+     selected modules, checking out the recorded commits.
+
+‘o u’ (‘magit-submodule-update’)
+     This command updates the selected modules checking out the recorded
+     commits.
+
+‘o s’ (‘magit-submodule-synchronize’)
+     This command synchronizes the urls of the selected modules, copying
+     the values from ".gitmodules" to the ".git/config" of the
+     super-project as well those of the modules.
+
+‘o d’ (‘magit-submodule-unpopulate’)
+     This command removes the working directory of the selected modules.
+
+‘o l’ (‘magit-list-submodules’)
+     This command displays a list of the current repository’s modules.
+
+‘o f’ (‘magit-fetch-modules’)
+     This command fetches all populated modules.  With a prefix
+     argument, it acts as a transient prefix command, allowing the
+     caller to set options.
+
+     Also fetch the super-repository, because ‘git fetch’ does not
+     support not doing that.
+
+
+File: magit.info,  Node: Subtree,  Next: Worktree,  Prev: Submodules,  Up: Miscellaneous
+
+8.4 Subtree
+===========
+
+Also see *note (gitman)git-subtree::.
+
+‘O’ (‘magit-subtree’)
+     This transient prefix command binds the two sub-transients; one for
+     importing a subtree and one for exporting a subtree.
+
+‘O i’ (‘magit-subtree-import’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+     The suffixes of this command import subtrees.
+
+     If the ‘--prefix’ argument is set, then the suffix commands use
+     that prefix without prompting the user.  If it is unset, then they
+     read the prefix in the minibuffer.
+
+‘O i a’ (‘magit-subtree-add’)
+     This command adds COMMIT from REPOSITORY as a new subtree at
+     PREFIX.
+
+‘O i c’ (‘magit-subtree-add-commit’)
+     This command add COMMIT as a new subtree at PREFIX.
+
+‘O i m’ (‘magit-subtree-merge’)
+     This command merges COMMIT into the PREFIX subtree.
+
+‘O i f’ (‘magit-subtree-pull’)
+     This command pulls COMMIT from REPOSITORY into the PREFIX subtree.
+
+‘O e’ (‘magit-subtree-export’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+     The suffixes of this command export subtrees.
+
+     If the ‘--prefix’ argument is set, then the suffix commands use
+     that prefix without prompting the user.  If it is unset, then they
+     read the prefix in the minibuffer.
+
+‘O e p’ (‘magit-subtree-push’)
+     This command extract the history of the subtree PREFIX and pushes
+     it to REF on REPOSITORY.
+
+‘O e s’ (‘magit-subtree-split’)
+     This command extracts the history of the subtree PREFIX.
+
+
+File: magit.info,  Node: Worktree,  Next: Sparse checkouts,  Prev: Subtree,  Up: Miscellaneous
+
+8.5 Worktree
+============
+
+Also see *note (gitman)git-worktree::.
+
+‘Z’ (‘magit-worktree’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘Z b’ (‘magit-worktree-checkout’)
+     Checkout BRANCH in a new worktree at PATH.
+
+‘Z c’ (‘magit-worktree-branch’)
+     Create a new BRANCH and check it out in a new worktree at PATH.
+
+‘Z m’ (‘magit-worktree-move’)
+     Move an existing worktree to a new PATH.
+
+‘Z k’ (‘magit-worktree-delete’)
+     Delete a worktree, defaulting to the worktree at point.  The
+     primary worktree cannot be deleted.
+
+‘Z g’ (‘magit-worktree-status’)
+     Show the status for the worktree at point.
+
+     If there is no worktree at point, then read one in the minibuffer.
+     If the worktree at point is the one whose status is already being
+     displayed in the current buffer, then show it in Dired instead.
+
+
+File: magit.info,  Node: Sparse checkouts,  Next: Bundle,  Prev: Worktree,  Up: Miscellaneous
+
+8.6 Sparse checkouts
+====================
+
+Sparse checkouts provide a way to restrict the working tree to a subset
+of directories.  See *note (gitman)git-sparse-checkout::.
+
+   *Warning*: Git introduced the ‘git sparse-checkout’ command in
+version 2.25 and still advertises it as experimental and subject to
+change.  Magit’s interface should be considered the same.  In
+particular, if Git introduces a backward incompatible change, Magit’s
+sparse checkout functionality may be updated in a way that requires a
+more recent Git version.
+
+‘>’ (‘magit-sparse-checkout’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘> e’ (‘magit-sparse-checkout-enable’)
+     This command initializes a sparse checkout that includes only the
+     files in the top-level directory.
+
+     Note that ‘magit-sparse-checkout-set’ and
+     ‘magit-sparse-checkout-add’ automatically initialize a sparse
+     checkout if necessary.  However, you may want to call
+     ‘magit-sparse-checkout-enable’ explicitly to re-initialize a sparse
+     checkout after calling ‘magit-sparse-checkout-disable’, to pass
+     additional arguments to ‘git sparse-checkout init’, or to execute
+     the initialization asynchronously.
+
+‘> s’ (‘magit-sparse-checkout-set’)
+     This command takes a list of directories and configures the sparse
+     checkout to include only files in those subdirectories.  Any
+     previously included directories are excluded unless they are in the
+     provided list of directories.
+
+‘> a’ (‘magit-sparse-checkout-add’)
+     This command is like ‘magit-sparse-checkout-set’, but instead adds
+     the specified list of directories to the set of directories that is
+     already included in the sparse checkout.
+
+‘> r’ (‘magit-sparse-checkout-reapply’)
+     This command applies the currently configured sparse checkout
+     patterns to the working tree.  This is useful to call if excluded
+     files have been checked out after operations such as merging or
+     rebasing.
+
+‘> d’ (‘magit-sparse-checkout-disable’)
+     This command restores the full checkout.  To return to the previous
+     sparse checkout, call ‘magit-sparse-checkout-enable’.
+
+   A sparse checkout can also be initiated when cloning a repository by
+using the ‘magit-clone-sparse’ command in the ‘magit-clone’ transient
+(see *note Cloning Repository::).
+
+   If you want the status buffer to indicate when a sparse checkout is
+enabled, add the function ‘magit-sparse-checkout-insert-header’ to
+‘magit-status-headers-hook’.
+
+
+File: magit.info,  Node: Bundle,  Next: Common Commands,  Prev: Sparse checkouts,  Up: Miscellaneous
+
+8.7 Bundle
+==========
+
+Also see *note (gitman)git-bundle::.
+
+ -- Command: magit-bundle
+     This transient prefix command binds several suffix commands for
+     running ‘git bundle’ subcommands and displays them in a temporary
+     buffer until a suffix is invoked.
+
+
+File: magit.info,  Node: Common Commands,  Next: Wip Modes,  Prev: Bundle,  Up: Miscellaneous
+
+8.8 Common Commands
+===================
+
+ -- Command: magit-switch-to-repository-buffer
+ -- Command: magit-switch-to-repository-buffer-other-window
+ -- Command: magit-switch-to-repository-buffer-other-frame
+ -- Command: magit-display-repository-buffer
+     These commands read any existing Magit buffer that belongs to the
+     current repository from the user and then switch to the selected
+     buffer (without refreshing it).
+
+     The last variant uses ‘magit-display-buffer’ to do so and thus
+     respects ‘magit-display-buffer-function’.
+
+   These are some of the commands that can be used in all buffers whose
+major-modes derive from ‘magit-mode’.  There are other common commands
+beside the ones below, but these didn’t fit well anywhere else.
+
+‘C-w’ (‘magit-copy-section-value’)
+     This command saves the value of the current section to the
+     ‘kill-ring’, and, provided that the current section is a commit,
+     branch, or tag section, it also pushes the (referenced) revision to
+     the ‘magit-revision-stack’.
+
+     When the current section is a branch or a tag, and a prefix
+     argument is used, then it saves the revision at its tip to the
+     ‘kill-ring’ instead of the reference name.
+
+     When the region is active, this command saves that to the
+     ‘kill-ring’, like ‘kill-ring-save’ would, instead of behaving as
+     described above.  If a prefix argument is used and the region is
+     within a hunk, then it strips the diff marker column and keeps only
+     either the added or removed lines, depending on the sign of the
+     prefix argument.
+
+‘M-w’ (‘magit-copy-buffer-revision’)
+     This command saves the revision being displayed in the current
+     buffer to the ‘kill-ring’ and also pushes it to the
+     ‘magit-revision-stack’.  It is mainly intended for use in
+     ‘magit-revision-mode’ buffers, the only buffers where it is always
+     unambiguous exactly which revision should be saved.
+
+     Most other Magit buffers usually show more than one revision, in
+     some way or another, so this command has to select one of them, and
+     that choice might not always be the one you think would have been
+     the best pick.
+
+   Outside of Magit ‘M-w’ and ‘C-w’ are usually bound to
+‘kill-ring-save’ and ‘kill-region’, and these commands would also be
+useful in Magit buffers.  Therefore when the region is active, then both
+of these commands behave like ‘kill-ring-save’ instead of as described
+above.
+
+
+File: magit.info,  Node: Wip Modes,  Next: Commands for Buffers Visiting Files,  Prev: Common Commands,  Up: Miscellaneous
+
+8.9 Wip Modes
+=============
+
+Git keeps *committed* changes around long enough for users to recover
+changes they have accidentally deleted.  It does so by not garbage
+collecting any committed but no longer referenced objects for a certain
+period of time, by default 30 days.
+
+   But Git does *not* keep track of *uncommitted* changes in the working
+tree and not even the index (the staging area).  Because Magit makes it
+so convenient to modify uncommitted changes, it also makes it easy to
+shoot yourself in the foot in the process.
+
+   For that reason Magit provides a global mode that saves *tracked*
+files to work-in-progress references after or before certain actions.
+(At present untracked files are never saved and for technical reasons
+nothing is saved before the first commit has been created).
+
+   Two separate work-in-progress references are used to track the state
+of the index and of the working tree: ‘refs/wip/index/<branchref>’ and
+‘refs/wip/wtree/<branchref>’, where ‘<branchref>’ is the full ref of the
+current branch, e.g., ‘refs/heads/master’.  When the ‘HEAD’ is detached
+then ‘HEAD’ is used in place of ‘<branchref>’.
+
+   Checking out another branch (or detaching ‘HEAD’) causes the use of
+different wip refs for subsequent changes.
+
+ -- User Option: magit-wip-mode
+     When this mode is enabled, then uncommitted changes are committed
+     to dedicated work-in-progress refs whenever appropriate (i.e., when
+     dataloss would be a possibility otherwise).
+
+     Setting this variable directly does not take effect; either use the
+     Custom interface to do so or call the respective mode function.
+
+     For historic reasons this mode is implemented on top of four other
+     ‘magit-wip-*’ modes, which can also be used individually, if you
+     want finer control over when the wip refs are updated; but that is
+     discouraged.  See *note Legacy Wip Modes::.
+
+   To view the log for a branch and its wip refs use the commands
+‘magit-wip-log’ and ‘magit-wip-log-current’.  You should use ‘--graph’
+when using these commands.
+
+ -- Command: magit-wip-log
+     This command shows the log for a branch and its wip refs.  With a
+     negative prefix argument only the worktree wip ref is shown.
+
+     The absolute numeric value of the prefix argument controls how many
+     "branches" of each wip ref are shown.  This is only relevant if the
+     value of ‘magit-wip-merge-branch’ is ‘nil’.
+
+ -- Command: magit-wip-log-current
+     This command shows the log for the current branch and its wip refs.
+     With a negative prefix argument only the worktree wip ref is shown.
+
+     The absolute numeric value of the prefix argument controls how many
+     "branches" of each wip ref are shown.  This is only relevant if the
+     value of ‘magit-wip-merge-branch’ is ‘nil’.
+
+‘X w’ (‘magit-reset-worktree’)
+     This command resets the working tree to some commit read from the
+     user and defaulting to the commit at point, while keeping the
+     ‘HEAD’ and index as-is.
+
+     This can be used to restore files to the state committed to a wip
+     ref.  Note that this will discard any unstaged changes that might
+     have existed before invoking this command (but of course only after
+     committing that to the working tree wip ref).
+
+   Note that even if you enable ‘magit-wip-mode’ this won’t give you
+perfect protection.  The most likely scenario for losing changes despite
+the use of ‘magit-wip-mode’ is making a change outside Emacs and then
+destroying it also outside Emacs.  In some such a scenario, Magit, being
+an Emacs package, didn’t get the opportunity to keep you from shooting
+yourself in the foot.
+
+   When you are unsure whether Magit did commit a change to the wip
+refs, then you can explicitly request that all changes to all tracked
+files are being committed.
+
+‘M-x magit-wip-commit’
+     This command commits all changes to all tracked files to the index
+     and working tree work-in-progress refs.  Like the modes described
+     above, it does not commit untracked files, but it does check all
+     tracked files for changes.  Use this command when you suspect that
+     the modes might have overlooked a change made outside Emacs/Magit.
+
+ -- User Option: magit-wip-namespace
+     The namespace used for work-in-progress refs.  It has to end with a
+     slash.  The wip refs are named ‘<namespace>index/<branchref>’ and
+     ‘<namespace>wtree/<branchref>’.  When snapshots are created while
+     the ‘HEAD’ is detached then ‘HEAD’ is used in place of
+     ‘<branchref>’.
+
+ -- User Option: magit-wip-mode-lighter
+     Mode-line lighter for ‘magit-wip--mode’.
+
+* Menu:
+
+* Wip Graph::
+* Legacy Wip Modes::
+
+
+File: magit.info,  Node: Wip Graph,  Next: Legacy Wip Modes,  Up: Wip Modes
+
+8.9.1 Wip Graph
+---------------
+
+ -- User Option: magit-wip-merge-branch
+     This option controls whether the current branch is merged into the
+     wip refs after a new commit was created on the branch.
+
+     If non-nil and the current branch has new commits, then it is
+     merged into the wip ref before creating a new wip commit.  This
+     makes it easier to inspect wip history and the wip commits are
+     never garbage collected.
+
+     If nil and the current branch has new commits, then the wip ref is
+     reset to the tip of the branch before creating a new wip commit.
+     With this setting wip commits are eventually garbage collected.
+
+   When ‘magit-wip-merge-branch’ is ‘t’, then the history looks like
+this:
+
+       *--*--*--*--*--*       refs/wip/index/refs/heads/master
+      /     /     /
+     A-----B-----C            refs/heads/master
+
+   When ‘magit-wip-merge-branch’ is ‘nil’, then creating a commit on the
+real branch and then making a change causes the wip refs to be recreated
+to fork from the new commit.  But the old commits on the wip refs are
+not lost.  They are still available from the reflog.  To make it easier
+to see when the fork point of a wip ref was changed, an additional
+commit with the message "restart autosaving" is created on it (‘xxO’
+commits below are such boundary commits).
+
+   Starting with
+
+           BI0---BI1    refs/wip/index/refs/heads/master
+          /
+     A---B              refs/heads/master
+          \
+           BW0---BW1    refs/wip/wtree/refs/heads/master
+
+   and committing the staged changes and editing and saving a file would
+result in
+
+           BI0---BI1        refs/wip/index/refs/heads/master
+          /
+     A---B---C              refs/heads/master
+          \   \
+           \   CW0---CW1    refs/wip/wtree/refs/heads/master
+            \
+             BW0---BW1      refs/wip/wtree/refs/heads/master@{2}
+
+   The fork-point of the index wip ref is not changed until some change
+is being staged.  Likewise just checking out a branch or creating a
+commit does not change the fork-point of the working tree wip ref.  The
+fork-points are not adjusted until there actually is a change that
+should be committed to the respective wip ref.
+
+
+File: magit.info,  Node: Legacy Wip Modes,  Prev: Wip Graph,  Up: Wip Modes
+
+8.9.2 Legacy Wip Modes
+----------------------
+
+It is recommended that you use the mode ‘magit-wip-mode’ (which see) and
+ignore the existence of the following modes, which are preserved for
+historic reasons.
+
+   Setting the following variables directly does not take effect; either
+use the Custom interface to do so or call the respective mode functions.
+
+ -- User Option: magit-wip-after-save-mode
+     When this mode is enabled, then saving a buffer that visits a file
+     tracked in a Git repository causes its current state to be
+     committed to the working tree wip ref for the current branch.
+
+ -- User Option: magit-wip-after-apply-mode
+     When this mode is enabled, then applying (i.e., staging, unstaging,
+     discarding, reversing, and regularly applying) a change to a file
+     tracked in a Git repository causes its current state to be
+     committed to the index and/or working tree wip refs for the current
+     branch.
+
+   If you only ever edit files using Emacs and only ever interact with
+Git using Magit, then the above two modes should be enough to protect
+each and every change from accidental loss.  In practice nobody does
+that.  Two additional modes exists that do commit to the wip refs before
+making changes that could cause the loss of earlier changes.
+
+ -- User Option: magit-wip-before-change-mode
+     When this mode is enabled, then certain commands commit the
+     existing changes to the files they are about to make changes to.
+
+ -- User Option: magit-wip-initial-backup-mode
+     When this mode is enabled, then the current version of a file is
+     committed to the worktree wip ref before the buffer visiting that
+     file is saved for the first time since the buffer was created.
+
+     This backs up the same version of the file that ‘backup-buffer’
+     would save.  While ‘backup-buffer’ uses a backup file, this mode
+     uses the same worktree wip ref as used by the other Magit Wip
+     modes.  Like ‘backup-buffer’, it only does this once; unless you
+     kill the buffer and visit the file again only one backup will be
+     created per Emacs session.
+
+     This mode ignores the variables that affect ‘backup-buffer’ and can
+     be used along-side that function, which is recommended because it
+     only backs up files that are tracked in a Git repository.
+
+ -- User Option: magit-wip-after-save-local-mode-lighter
+     Mode-line lighter for ‘magit-wip-after-save-local-mode’.
+
+ -- User Option: magit-wip-after-apply-mode-lighter
+     Mode-line lighter for ‘magit-wip-after-apply-mode’.
+
+ -- User Option: magit-wip-before-change-mode-lighter
+     Mode-line lighter for ‘magit-wip-before-change-mode’.
+
+ -- User Option: magit-wip-initial-backup-mode-lighter
+     Mode-line lighter for ‘magit-wip-initial-backup-mode’.
+
+
+File: magit.info,  Node: Commands for Buffers Visiting Files,  Next: Minor Mode for Buffers Visiting Blobs,  Prev: Wip Modes,  Up: Miscellaneous
+
+8.10 Commands for Buffers Visiting Files
+========================================
+
+By default Magit defines a few global key bindings.  These bindings are
+a compromise between providing no bindings at all and providing the
+better bindings I would have liked to use instead.  Magit cannot provide
+the set of recommended bindings by default because those key sequences
+are strictly reserved for bindings added by the user.  Also see *note
+Global Bindings:: and *note (elisp)Key Binding Conventions::.
+
+   To use the recommended bindings, add this to your init file and
+restart Emacs.
+
+     (setq magit-define-global-key-bindings 'recommended)
+
+   If you don’t want Magit to add any bindings to the global keymap at
+all, add this to your init file and restart Emacs.
+
+     (setq magit-define-global-key-bindings nil)
+
+‘C-c f’ (‘magit-file-dispatch’)
+‘C-c f s’ (‘magit-stage-file’)
+‘C-c f s’ (‘magit-stage-buffer-file’)
+‘C-c f u’ (‘magit-unstage-file’)
+‘C-c f u’ (‘magit-unstage-buffer-file’)
+‘C-c f , x’ (‘magit-file-untrack’)
+‘C-c f , r’ (‘magit-file-rename’)
+‘C-c f , k’ (‘magit-file-delete’)
+‘C-c f , c’ (‘magit-file-checkout’)
+‘C-c f D’ (‘magit-diff’)
+‘C-c f d’ (‘magit-diff-buffer-file’)
+‘C-c f L’ (‘magit-log’)
+‘C-c f l’ (‘magit-log-buffer-file’)
+‘C-c f t’ (‘magit-log-trace-definition’)
+‘C-c f M’ (‘magit-log-merged’)
+‘C-c f B’ (‘magit-blame’)
+‘C-c f b’ (‘magit-blame-additions’)
+‘C-c f r’ (‘magit-blame-removal’)
+‘C-c f f’ (‘magit-blame-reverse’)
+‘C-c f m’ (‘magit-blame-echo’)
+‘C-c f q’ (‘magit-blame-quit’)
+‘C-c f p’ (‘magit-blob-previous’)
+‘C-c f n’ (‘magit-blob-next’)
+‘C-c f v’ (‘magit-find-file’)
+‘C-c f V’ (‘magit-blob-visit-file’)
+‘C-c f g’ (‘magit-status-here’)
+‘C-c f G’ (‘magit-display-repository-buffer’)
+‘C-c f c’ (‘magit-commit’)
+‘C-c f e’ (‘magit-edit-line-commit’)
+     Each of these commands is documented individually right below,
+     alongside their default key bindings.  The bindings shown above are
+     the recommended bindings, which you can enable by following the
+     instructions further up.
+
+‘C-c M-g’ (‘magit-file-dispatch’)
+     This transient prefix command binds the following suffix commands
+     and displays them in a temporary buffer until a suffix is invoked.
+
+‘C-c M-g s’ (‘magit-stage-file’)
+‘C-c M-g s’ (‘magit-stage-buffer-file’)
+     Stage all changes to the file being visited in the current buffer.
+     When not visiting a file, then the first command is used, which
+     prompts for a file.
+
+‘C-c M-g u’ (‘magit-unstage-file’)
+‘C-c M-g u’ (‘magit-unstage-buffer-file’)
+     Unstage all changes to the file being visited in the current
+     buffer.  When not visiting a file, then the first command is used,
+     which prompts for a file.
+
+‘C-c M-g , x’ (‘magit-file-untrack’)
+     This command untracks a file read from the user, defaulting to the
+     visited file.
+
+‘C-c M-g , r’ (‘magit-file-rename’)
+     This command renames a file read from the user, defaulting to the
+     visited file.
+
+‘C-c M-g , k’ (‘magit-file-delete’)
+     This command deletes a file read from the user, defaulting to the
+     visited file.
+
+‘C-c M-g , c’ (‘magit-file-checkout’)
+     This command updates a file in the working tree and index to the
+     contents from a revision.  Both the revision and file are read from
+     the user.
+
+‘C-c M-g D’ (‘magit-diff’)
+     This transient prefix command binds several diff suffix commands
+     and infix arguments and displays them in a temporary buffer until a
+     suffix is invoked.  See *note Diffing::.
+
+     This is the same command that ‘d’ is bound to in Magit buffers.  If
+     this command is invoked from a file-visiting buffer, then the
+     initial value of the option (‘--’) that limits the diff to certain
+     file(s) is set to the visited file.
+
+‘C-c M-g d’ (‘magit-diff-buffer-file’)
+     This command shows the diff for the file of blob that the current
+     buffer visits.
+
+ -- User Option: magit-diff-buffer-file-locked
+     This option controls whether ‘magit-diff-buffer-file’ uses a
+     dedicated buffer.  See *note Modes and Buffers::.
+
+‘C-c M-g L’ (‘magit-log’)
+     This transient prefix command binds several log suffix commands and
+     infix arguments and displays them in a temporary buffer until a
+     suffix is invoked.  See *note Logging::.
+
+     This is the same command that ‘l’ is bound to in Magit buffers.  If
+     this command is invoked from a file-visiting buffer, then the
+     initial value of the option (‘--’) that limits the log to certain
+     file(s) is set to the visited file.
+
+‘C-c M-g l’ (‘magit-log-buffer-file’)
+     This command shows the log for the file of blob that the current
+     buffer visits.  Renames are followed when a prefix argument is used
+     or when ‘--follow’ is an active log argument.  When the region is
+     active, the log is restricted to the selected line range.
+
+ -- User Option: magit-log-buffer-file-locked
+     This option controls whether ‘magit-log-buffer-file’ uses a
+     dedicated buffer.  See *note Modes and Buffers::.
+
+‘C-c M-g t’ (‘magit-log-trace-definition’)
+     This command shows the log for the definition at point.
+
+‘C-c M-g M’ (‘magit-log-merged’)
+     This command reads a commit and a branch in shows a log concerning
+     the merge of the former into the latter.  This shows multiple
+     commits even in case of a fast-forward merge.
+
+‘C-c M-g B’ (‘magit-blame’)
+     This transient prefix command binds all blaming suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.
+
+     For more information about this and the following commands also see
+     *note Blaming::.
+
+     In addition to the ‘magit-blame’ sub-transient, the dispatch
+     transient also binds several blaming suffix commands directly.  See
+     *note Blaming:: for information about those commands and bindings.
+
+‘C-c M-g p’ (‘magit-blob-previous’)
+     This command visits the previous blob which modified the current
+     file.
+
+‘C-c M-g n’ (‘magit-blob-next’)
+     This command visits the next blob which modified the current file.
+
+‘C-c M-g v’ (‘magit-find-file’)
+     This command reads a revision and file and visits the respective
+     blob.
+
+‘C-c M-g V’ (‘magit-blob-visit-file’)
+     This command visits the file from the working tree, corresponding
+     to the current blob.  When visiting a blob or the version from the
+     index, then it goes to the same location in the respective file in
+     the working tree.
+
+‘C-c M-g g’ (‘magit-status-here’)
+     This command displays the status of the current repository in a
+     buffer, like ‘magit-status’ does.  Additionally it tries to go to
+     the position in that buffer, which corresponds to the position in
+     the current file-visiting buffer (if any).
+
+‘C-c M-g G’ (‘magit-display-repository-buffer’)
+     This command reads and displays a Magit buffer belonging to the
+     current repository, without refreshing it.
+
+‘C-c M-g c’ (‘magit-commit’)
+     This transient prefix command binds the following suffix commands
+     along with the appropriate infix arguments and displays them in a
+     temporary buffer until a suffix is invoked.  See *note Initiating a
+     Commit::.
+
+‘C-c M-g e’ (‘magit-edit-line-commit’)
+     This command makes the commit editable that added the current line.
+
+     With a prefix argument it makes the commit editable that removes
+     the line, if any.  The commit is determined using ‘git blame’ and
+     made editable using ‘git rebase --interactive’ if it is reachable
+     from ‘HEAD’, or by checking out the commit (or a branch that points
+     at it) otherwise.
+
+
+File: magit.info,  Node: Minor Mode for Buffers Visiting Blobs,  Prev: Commands for Buffers Visiting Files,  Up: Miscellaneous
+
+8.11 Minor Mode for Buffers Visiting Blobs
+==========================================
+
+The ‘magit-blob-mode’ enables certain Magit features in blob-visiting
+buffers.  Such buffers can be created using ‘magit-find-file’ and some
+of the commands mentioned below, which also take care of turning on this
+minor mode.  Currently this mode only establishes a few key bindings,
+but this might be extended.
+
+‘p’ (‘magit-blob-previous’)
+     Visit the previous blob which modified the current file.
+
+‘n’ (‘magit-blob-next’)
+     Visit the next blob which modified the current file.
+
+‘q’ (‘magit-kill-this-buffer’)
+     Kill the current buffer.
+
+
+File: magit.info,  Node: Customizing,  Next: Plumbing,  Prev: Miscellaneous,  Up: Top
+
+9 Customizing
+*************
+
+Both Git and Emacs are highly customizable.  Magit is both a Git
+porcelain as well as an Emacs package, so it makes sense to customize it
+using both Git variables as well as Emacs options.  However this
+flexibility doesn’t come without problems, including but not limited to
+the following.
+
+   • Some Git variables automatically have an effect in Magit without
+     requiring any explicit support.  Sometimes that is desirable - in
+     other cases, it breaks Magit.
+
+     When a certain Git setting breaks Magit but you want to keep using
+     that setting on the command line, then that can be accomplished by
+     overriding the value for Magit only by appending something like
+     ‘("-c" "some.variable=compatible-value")’ to
+     ‘magit-git-global-arguments’.
+
+   • Certain settings like ‘fetch.prune=true’ are respected by Magit
+     commands (because they simply call the respective Git command) but
+     their value is not reflected in the respective transient buffers.
+     In this case the ‘--prune’ argument in ‘magit-fetch’ might be
+     active or inactive, but that doesn’t keep the Git variable from
+     being honored by the suffix commands anyway.  So pruning might
+     happen despite the ‘--prune’ arguments being displayed in a way
+     that seems to indicate that no pruning will happen.
+
+   I intend to address these and similar issues in a future release.
+
+* Menu:
+
+* Per-Repository Configuration::
+* Essential Settings::
+
+
+File: magit.info,  Node: Per-Repository Configuration,  Next: Essential Settings,  Up: Customizing
+
+9.1 Per-Repository Configuration
+================================
+
+Magit can be configured on a per-repository level using both Git
+variables as well as Emacs options.
+
+   To set a Git variable for one repository only, simply set it in
+‘/path/to/repo/.git/config’ instead of ‘$HOME/.gitconfig’ or
+‘/etc/gitconfig’.  See *note (gitman)git-config::.
+
+   Similarly, Emacs options can be set for one repository only by
+editing ‘/path/to/repo/.dir-locals.el’.  See *note (emacs)Directory
+Variables::.  For example to disable automatic refreshes of
+file-visiting buffers in just one huge repository use this:
+
+   • ‘/path/to/huge/repo/.dir-locals.el’
+
+          ((nil . ((magit-refresh-buffers . nil))))
+
+   It might only be costly to insert certain information into Magit
+buffers for repositories that are exceptionally large, in which case you
+can disable the respective section inserters just for that repository:
+
+   • ‘/path/to/tag/invested/repo/.dir-locals.el’
+
+          ((magit-status-mode
+            . ((eval . (magit-disable-section-inserter 'magit-insert-tags-header)))))
+
+ -- Function: magit-disable-section-inserter fn
+     This function disables the section inserter FN in the current
+     repository.  It is only intended for use in ‘.dir-locals.el’ and
+     ‘.dir-locals-2.el’.
+
+   If you want to apply the same settings to several, but not all,
+repositories then keeping the repository-local config files in sync
+would quickly become annoying.  To avoid that you can create config
+files for certain classes of repositories (e.g., "huge repositories")
+and then include those files in the per-repository config files.  For
+example:
+
+   • ‘/path/to/huge/repo/.git/config’
+
+          [include]
+                  path = /path/to/huge-gitconfig
+
+   • ‘/path/to/huge-gitconfig’
+
+          [status]
+                  showUntrackedFiles = no
+
+   • ‘$HOME/.emacs.d/init.el’
+
+          (dir-locals-set-class-variables 'huge-git-repository
+             '((nil . ((magit-refresh-buffers . nil)))))
+
+          (dir-locals-set-directory-class
+             "/path/to/huge/repo/" 'huge-git-repository)
+
+
+File: magit.info,  Node: Essential Settings,  Prev: Per-Repository Configuration,  Up: Customizing
+
+9.2 Essential Settings
+======================
+
+The next three sections list and discuss several variables that many
+users might want to customize, for safety and/or performance reasons.
+
+* Menu:
+
+* Safety::
+* Performance::
+* Global Bindings::
+
+
+File: magit.info,  Node: Safety,  Next: Performance,  Up: Essential Settings
+
+9.2.1 Safety
+------------
+
+This section discusses various variables that you might want to change
+(or *not* change) for safety reasons.
+
+   Git keeps *committed* changes around long enough for users to recover
+changes they have accidentally been deleted.  It does not do the same
+for *uncommitted* changes in the working tree and not even the index
+(the staging area).  Because Magit makes it so easy to modify
+uncommitted changes, it also makes it easy to shoot yourself in the foot
+in the process.  For that reason Magit provides three global modes that
+save *tracked* files to work-in-progress references after or before
+certain actions.  See *note Wip Modes::.
+
+   These modes are not enabled by default because of performance
+concerns.  Instead a lot of potentially destructive commands require
+confirmation every time they are used.  In many cases this can be
+disabled by adding a symbol to ‘magit-no-confirm’ (see *note Completion
+and Confirmation::).  If you enable the various wip modes then you
+should add ‘safe-with-wip’ to this list.
+
+   Similarly it isn’t necessary to require confirmation before moving a
+file to the system trash - if you trashed a file by mistake then you can
+recover it from there.  Option ‘magit-delete-by-moving-to-trash’
+controls whether the system trash is used, which is the case by default.
+Nevertheless, ‘trash’ isn’t a member of ‘magit-no-confirm’ - you might
+want to change that.
+
+   By default buffers visiting files are automatically reverted when the
+visited file changes on disk.  This isn’t as risky as it might seem, but
+to make an informed decision you should see *note Risk of Reverting
+Automatically::.
+
+
+File: magit.info,  Node: Performance,  Next: Global Bindings,  Prev: Safety,  Up: Essential Settings
+
+9.2.2 Performance
+-----------------
+
+After Magit has run ‘git’ for side-effects, it also refreshes the
+current Magit buffer and the respective status buffer.  This is
+necessary because otherwise outdated information might be displayed
+without the user noticing.  Magit buffers are updated by recreating
+their content from scratch, which makes updating simpler and less
+error-prone, but also more costly.  Keeping it simple and just
+re-creating everything from scratch is an old design decision and
+departing from that will require major refactoring.
+
+   Meanwhile you can tell Magit to only automatically refresh the
+current Magit buffer, but not the status buffer.  If you do that, then
+the status buffer is only refreshed automatically if it is the current
+buffer.
+
+     (setq magit-refresh-status-buffer nil)
+
+   You should also check whether any third-party packages have added
+anything to ‘magit-refresh-buffer-hook’, ‘magit-pre-refresh-hook’, and
+‘magit-post-refresh-hook’.  If so, then check whether those additions
+impact performance significantly.
+
+   Magit can be told to refresh buffers verbosely using ‘M-x
+magit-toggle-verbose-refresh’.  Enabling this helps figuring out which
+sections are bottlenecks.  Each line printed to the ‘*Messages*’ buffer
+contains a section name, the number of seconds it took to show this
+section, and from 0 to 2 exclamation marks: the more exclamation marks
+the slower the section is.
+
+   Magit also reverts buffers for visited files located inside the
+current repository when the visited file changes on disk.  That is
+implemented on top of ‘auto-revert-mode’ from the built-in library
+‘autorevert’.  To figure out whether that impacts performance, check
+whether performance is significantly worse, when many buffers exist
+and/or when some buffers visit files using TRAMP.  If so, then this
+should help.
+
+     (setq auto-revert-buffer-list-filter
+           'magit-auto-revert-repository-buffer-p)
+
+   For alternative approaches see *note Automatic Reverting of
+File-Visiting Buffers::.
+
+   If you have enabled any features that are disabled by default, then
+you should check whether they impact performance significantly.  It’s
+likely that they were not enabled by default because it is known that
+they reduce performance at least in large repositories.
+
+   If performance is only slow inside certain unusually large
+repositories, then you might want to disable certain features on a
+per-repository or per-repository-class basis only.  See *note
+Per-Repository Configuration::.  For example it takes a long time to
+determine the next and current tag in repository with exceptional
+numbers of tags.  It would therefore be a good idea to disable
+‘magit-insert-tags-headers’, as explained at the mentioned node.
+
+* Menu:
+
+* Microsoft Windows Performance::
+* MacOS Performance::
+
+Log Performance
+...............
+
+When showing logs, Magit limits the number of commits initially shown in
+the hope that this avoids unnecessary work.  When ‘--graph’ is used,
+then this unfortunately does not have the desired effect for large
+histories.  Junio, Git’s maintainer, said on the Git mailing list
+(<https://www.spinics.net/lists/git/msg232230.html>): "‘--graph’ wants
+to compute the whole history and the max-count only affects the output
+phase after ‘--graph’ does its computation".
+
+   In other words, it’s not that Git is slow at outputting the
+differences, or that Magit is slow at parsing the output - the problem
+is that Git first goes outside and has a smoke.
+
+   We actually work around this issue by limiting the number of commits
+not only by using ‘-<N>’ but by also using a range.  But unfortunately
+that’s not always possible.
+
+   When more than a few thousand commits are shown, then the use of
+‘--graph’ can slow things down.
+
+   Using ‘--color --graph’ is even slower.  Magit uses code that is part
+of Emacs to turn control characters into faces.  That code is pretty
+slow and this is quite noticeable when showing a log with many branches
+and merges.  For that reason ‘--color’ is not enabled by default
+anymore.  Consider leaving it at that.
+
+Diff Performance
+................
+
+If diffs are slow, then consider turning off some optional diff features
+by setting all or some of the following variables to ‘nil’:
+‘magit-diff-highlight-indentation’, ‘magit-diff-highlight-trailing’,
+‘magit-diff-paint-whitespace’, ‘magit-diff-highlight-hunk-body’, and
+‘magit-diff-refine-hunk’.
+
+   When showing a commit instead of some arbitrary diff, then some
+additional information is displayed.  Calculating this information can
+be quite expensive given certain circumstances.  If looking at a commit
+using ‘magit-revision-mode’ takes considerably more time than looking at
+the same commit in ‘magit-diff-mode’, then consider setting
+‘magit-revision-insert-related-refs’ to ‘nil’.
+
+   When you are often confronted with diffs that contain deleted files,
+then you might want to enable the ‘--irreversible-delete’ argument.  If
+you do that then diffs still show that a file was deleted but without
+also showing the complete deleted content of the file.  This argument is
+not available by default, see *note (transient)Enabling and Disabling
+Suffixes::.  Once you have done that you should enable it and save that
+setting, see *note (transient)Saving Values::.  You should do this in
+both the diff (‘d’) and the diff refresh (‘D’) transient popups.
+
+Refs Buffer Performance
+.......................
+
+When refreshing the "references buffer" is slow, then that’s usually
+because several hundred refs are being displayed.  The best way to
+address that is to display fewer refs, obviously.
+
+   If you are not, or only mildly, interested in seeing the list of
+tags, then start by not displaying them:
+
+     (remove-hook 'magit-refs-sections-hook 'magit-insert-tags)
+
+   Then you should also make sure that the listed remote branches
+actually all exist.  You can do so by pruning branches which no longer
+exist using ‘f-pa’.
+
+Committing Performance
+......................
+
+When you initiate a commit, then Magit by default automatically shows a
+diff of the changes you are about to commit.  For large commits this can
+take a long time, which is especially distracting when you are
+committing large amounts of generated data which you don’t actually
+intend to inspect before committing.  This behavior can be turned off
+using:
+
+     (remove-hook 'server-switch-hook 'magit-commit-diff)
+     (remove-hook 'with-editor-filter-visit-hook 'magit-commit-diff)
+
+   Then you can type ‘C-c C-d’ to show the diff when you actually want
+to see it, but only then.  Alternatively you can leave the hook alone
+and just type ‘C-g’ in those cases when it takes too long to generate
+the diff.  If you do that, then you will end up with a broken diff
+buffer, but doing it this way has the advantage that you usually get to
+see the diff, which is useful because it increases the odds that you
+spot potential issues.
+
+
+File: magit.info,  Node: Microsoft Windows Performance,  Next: MacOS Performance,  Up: Performance
+
+Microsoft Windows Performance
+.............................
+
+In order to update the status buffer, ‘git’ has to be run a few dozen
+times.  That is problematic on Microsoft Windows, because that operating
+system is exceptionally slow at starting processes.  Sadly this is an
+issue that can only be fixed by Microsoft itself, and they don’t appear
+to be particularly interested in doing so.
+
+   Beside the subprocess issue, there are also other Windows-specific
+performance issues.  Some of these have workarounds.  The maintainers of
+"Git for Windows" try to improve performance on Windows.  Always use the
+latest release in order to benefit from the latest performance tweaks.
+Magit too tries to work around some Windows-specific issues.
+
+   According to some sources, setting the following Git variables can
+also help.
+
+     git config --global core.preloadindex true   # default since v2.1
+     git config --global core.fscache true        # default since v2.8
+     git config --global gc.auto 256
+
+   You should also check whether an anti-virus program is affecting
+performance.
+
+
+File: magit.info,  Node: MacOS Performance,  Prev: Microsoft Windows Performance,  Up: Performance
+
+MacOS Performance
+.................
+
+Before Emacs 26.1 child processes were created using ‘fork’ on macOS.
+That needlessly copied GUI resources, which is expensive.  The result
+was that forking took about 30 times as long on Darwin than on Linux,
+and because Magit starts many ‘git’ processes that made quite a
+difference.
+
+   So make sure that you are using at least Emacs 26.1, in which case
+the faster ‘vfork’ will be used.  (The creation of child processes still
+takes about twice as long on Darwin compared to Linux.)  See (1) for
+more information.
+
+   Additionally, ‘git’ installed from a package manager like ‘brew’ or
+‘nix’ seems to be slower than the native executable.  Profile the ‘git’
+executable you’re running against the one at ‘/usr/bin/git’, and if you
+notice a notable difference try using the latter as
+‘magit-git-executable’.
+
+   ---------- Footnotes ----------
+
+   (1) 
+<https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-04/msg00201.html>
+
+
+File: magit.info,  Node: Global Bindings,  Prev: Performance,  Up: Essential Settings
+
+9.2.3 Global Bindings
+---------------------
+
+ -- User Option: magit-define-global-key-bindings
+     This option controls which set of Magit key bindings, if any, may
+     be added to the global keymap, even before Magit is first used in
+     the current Emacs session.
+
+        • If the value is ‘nil’, no bindings are added.
+
+        • If ‘default’, maybe add:
+
+          ‘C-x g’     ‘magit-status’
+          ‘C-x M-g’   ‘magit-dispatch’
+          ‘C-c M-g’   ‘magit-file-dispatch’
+
+        • If ‘recommended’, maybe add:
+
+          ‘C-x g’   ‘magit-status’
+          ‘C-c g’   ‘magit-dispatch’
+          ‘C-c f’   ‘magit-file-dispatch’
+
+          These bindings are strongly recommended, but we cannot use
+          them by default, because the ‘C-c <LETTER>’ namespace is
+          strictly reserved for bindings added by the user (see *note
+          (elisp)Key Binding Conventions::).
+
+     The bindings in the chosen set may be added when ‘after-init-hook’
+     is run.  Each binding is added if, and only if, at that time no
+     other key is bound to the same command, and no other command is
+     bound to the same key.  In other words we try to avoid adding
+     bindings that are unnecessary, as well as bindings that conflict
+     with other bindings.
+
+     Adding these bindings is delayed until ‘after-init-hook’ is run to
+     allow users to set the variable anywhere in their init file
+     (without having to make sure to do so before ‘magit’ is loaded or
+     autoloaded) and to increase the likelihood that all the potentially
+     conflicting user bindings have already been added.
+
+     To set this variable use either ‘setq’ or the Custom interface.  Do
+     not use the function ‘customize-set-variable’ because doing that
+     would cause Magit to be loaded immediately, when that form is
+     evaluated (this differs from ‘custom-set-variables’, which doesn’t
+     load the libraries that define the customized variables).
+
+     Setting this variable has no effect if ‘after-init-hook’ has
+     already been run.
+
+
+File: magit.info,  Node: Plumbing,  Next: FAQ,  Prev: Customizing,  Up: Top
+
+10 Plumbing
+***********
+
+The following sections describe how to use several of Magit’s core
+abstractions to extend Magit itself or implement a separate extension.
+
+   A few of the low-level features used by Magit have been factored out
+into separate libraries/packages, so that they can be used by other
+packages, without having to depend on Magit.  See *note
+(with-editor)Top:: for information about ‘with-editor’.  ‘transient’
+doesn’t have a manual yet.
+
+   If you are trying to find an unused key that you can bind to a
+command provided by your own Magit extension, then checkout
+<https://github.com/magit/magit/wiki/Plugin-Dispatch-Key-Registry>.
+
+* Menu:
+
+* Calling Git::
+* Section Plumbing::
+* Refreshing Buffers::
+* Conventions::
+
+
+File: magit.info,  Node: Calling Git,  Next: Section Plumbing,  Up: Plumbing
+
+10.1 Calling Git
+================
+
+Magit provides many specialized functions for calling Git.  All of these
+functions are defined in either ‘magit-git.el’ or ‘magit-process.el’ and
+have one of the prefixes ‘magit-run-’, ‘magit-call-’, ‘magit-start-’, or
+‘magit-git-’ (which is also used for other things).
+
+   All of these functions accept an indefinite number of arguments,
+which are strings that specify command line arguments for Git (or in
+some cases an arbitrary executable).  These arguments are flattened
+before being passed on to the executable; so instead of strings they can
+also be lists of strings and arguments that are ‘nil’ are silently
+dropped.  Some of these functions also require a single mandatory
+argument before these command line arguments.
+
+   Roughly speaking, these functions run Git either to get some value or
+for side-effects.  The functions that return a value are useful to
+collect the information necessary to populate a Magit buffer, while the
+others are used to implement Magit commands.
+
+   The functions in the value-only group always run synchronously, and
+they never trigger a refresh.  The function in the side-effect group can
+be further divided into subgroups depending on whether they run Git
+synchronously or asynchronously, and depending on whether they trigger a
+refresh when the executable has finished.
+
+* Menu:
+
+* Getting a Value from Git::
+* Calling Git for Effect::
+
+
+File: magit.info,  Node: Getting a Value from Git,  Next: Calling Git for Effect,  Up: Calling Git
+
+10.1.1 Getting a Value from Git
+-------------------------------
+
+These functions run Git in order to get a value, an exit status, or
+output.  Of course you could also use them to run Git commands that have
+side-effects, but that should be avoided.
+
+ -- Function: magit-git-exit-code &rest args
+     Executes git with ARGS and returns its exit code.
+
+ -- Function: magit-git-success &rest args
+     Executes git with ARGS and returns ‘t’ if the exit code is ‘0’,
+     ‘nil’ otherwise.
+
+ -- Function: magit-git-failure &rest args
+     Executes git with ARGS and returns ‘t’ if the exit code is ‘1’,
+     ‘nil’ otherwise.
+
+ -- Function: magit-git-true &rest args
+     Executes git with ARGS and returns ‘t’ if the first line printed by
+     git is the string "true", ‘nil’ otherwise.
+
+ -- Function: magit-git-false &rest args
+     Executes git with ARGS and returns ‘t’ if the first line printed by
+     git is the string "false", ‘nil’ otherwise.
+
+ -- Function: magit-git-insert &rest args
+     Executes git with ARGS and inserts its output at point.
+
+ -- Function: magit-git-string &rest args
+     Executes git with ARGS and returns the first line of its output.
+     If there is no output or if it begins with a newline character,
+     then this returns ‘nil’.
+
+ -- Function: magit-git-lines &rest args
+     Executes git with ARGS and returns its output as a list of lines.
+     Empty lines anywhere in the output are omitted.
+
+ -- Function: magit-git-items &rest args
+     Executes git with ARGS and returns its null-separated output as a
+     list.  Empty items anywhere in the output are omitted.
+
+     If the value of option ‘magit-git-debug’ is non-nil and git exits
+     with a non-zero exit status, then warn about that in the echo area
+     and add a section containing git’s standard error in the current
+     repository’s process buffer.
+
+ -- Function: magit-process-git destination &rest args
+     Calls Git synchronously in a separate process, returning its exit
+     code.  DESTINATION specifies how to handle the output, like for
+     ‘call-process’, except that file handlers are supported.  Enables
+     Cygwin’s "noglob" option during the call and ensures unix eol
+     conversion.
+
+ -- Function: magit-process-file process &optional infile buffer display
+          &rest args
+     Processes files synchronously in a separate process.  Identical to
+     ‘process-file’ but temporarily enables Cygwin’s "noglob" option
+     during the call and ensures unix eol conversion.
+
+   If an error occurs when using one of the above functions, then that
+is usually due to a bug, i.e., using an argument which is not actually
+supported.  Such errors are usually not reported, but when they occur we
+need to be able to debug them.
+
+ -- User Option: magit-git-debug
+     Whether to report errors that occur when using ‘magit-git-insert’,
+     ‘magit-git-string’, ‘magit-git-lines’, or ‘magit-git-items’.  This
+     does not actually raise an error.  Instead a message is shown in
+     the echo area, and git’s standard error is insert into a new
+     section in the current repository’s process buffer.
+
+ -- Function: magit-git-str &rest args
+     This is a variant of ‘magit-git-string’ that ignores the option
+     ‘magit-git-debug’.  It is mainly intended to be used while handling
+     errors in functions that do respect that option.  Using such a
+     function while handing an error could cause yet another error and
+     therefore lead to an infinite recursion.  You probably won’t ever
+     need to use this function.
+
+
+File: magit.info,  Node: Calling Git for Effect,  Prev: Getting a Value from Git,  Up: Calling Git
+
+10.1.2 Calling Git for Effect
+-----------------------------
+
+These functions are used to run git to produce some effect.  Most Magit
+commands that actually run git do so by using such a function.
+
+   Because we do not need to consume git’s output when using these
+functions, their output is instead logged into a per-repository buffer,
+which can be shown using ‘$’ from a Magit buffer or ‘M-x magit-process’
+elsewhere.
+
+   These functions can have an effect in two distinct ways.  Firstly,
+running git may change something, i.e., create or push a new commit.
+Secondly, that change may require that Magit buffers are refreshed to
+reflect the changed state of the repository.  But refreshing isn’t
+always desirable, so only some of these functions do perform such a
+refresh after git has returned.
+
+   Sometimes it is useful to run git asynchronously.  For example, when
+the user has just initiated a push, then there is no reason to make her
+wait until that has completed.  In other cases it makes sense to wait
+for git to complete before letting the user do something else.  For
+example after staging a change it is useful to wait until after the
+refresh because that also automatically moves to the next change.
+
+ -- Function: magit-call-git &rest args
+     Calls git synchronously with ARGS.
+
+ -- Function: magit-call-process program &rest args
+     Calls PROGRAM synchronously with ARGS.
+
+ -- Function: magit-run-git &rest args
+     Calls git synchronously with ARGS and then refreshes.
+
+ -- Function: magit-run-git-with-input &rest args
+     Calls git synchronously with ARGS and sends it the content of the
+     current buffer on standard input.
+
+     If the current buffer’s ‘default-directory’ is on a remote
+     filesystem, this function actually runs git asynchronously.  But
+     then it waits for the process to return, so the function itself is
+     synchronous.
+
+ -- Function: magit-git &rest args
+     Calls git synchronously with ARGS for side-effects only.  This
+     function does not refresh the buffer.
+
+ -- Function: magit-git-wash washer &rest args
+     Execute Git with ARGS, inserting washed output at point.  Actually
+     first insert the raw output at point.  If there is no output call
+     ‘magit-cancel-section’.  Otherwise temporarily narrow the buffer to
+     the inserted text, move to its beginning, and then call function
+     WASHER with ARGS as its sole argument.
+
+   And now for the asynchronous variants.
+
+ -- Function: magit-run-git-async &rest args
+     Start Git, prepare for refresh, and return the process object.
+     ARGS is flattened and then used as arguments to Git.
+
+     Display the command line arguments in the echo area.
+
+     After Git returns some buffers are refreshed: the buffer that was
+     current when this function was called (if it is a Magit buffer and
+     still alive), as well as the respective Magit status buffer.
+     Unmodified buffers visiting files that are tracked in the current
+     repository are reverted if ‘magit-revert-buffers’ is non-nil.
+
+ -- Function: magit-run-git-with-editor &rest args
+     Export GIT_EDITOR and start Git.  Also prepare for refresh and
+     return the process object.  ARGS is flattened and then used as
+     arguments to Git.
+
+     Display the command line arguments in the echo area.
+
+     After Git returns some buffers are refreshed: the buffer that was
+     current when this function was called (if it is a Magit buffer and
+     still alive), as well as the respective Magit status buffer.
+
+ -- Function: magit-start-git input &rest args
+     Start Git, prepare for refresh, and return the process object.
+
+     If INPUT is non-nil, it has to be a buffer or the name of an
+     existing buffer.  The buffer content becomes the processes standard
+     input.
+
+     Option ‘magit-git-executable’ specifies the Git executable and
+     option ‘magit-git-global-arguments’ specifies constant arguments.
+     The remaining arguments ARGS specify arguments to Git.  They are
+     flattened before use.
+
+     After Git returns, some buffers are refreshed: the buffer that was
+     current when this function was called (if it is a Magit buffer and
+     still alive), as well as the respective Magit status buffer.
+     Unmodified buffers visiting files that are tracked in the current
+     repository are reverted if ‘magit-revert-buffers’ is non-nil.
+
+ -- Function: magit-start-process &rest args
+     Start PROGRAM, prepare for refresh, and return the process object.
+
+     If optional argument INPUT is non-nil, it has to be a buffer or the
+     name of an existing buffer.  The buffer content becomes the
+     processes standard input.
+
+     The process is started using ‘start-file-process’ and then setup to
+     use the sentinel ‘magit-process-sentinel’ and the filter
+     ‘magit-process-filter’.  Information required by these functions is
+     stored in the process object.  When this function returns the
+     process has not started to run yet so it is possible to override
+     the sentinel and filter.
+
+     After the process returns, ‘magit-process-sentinel’ refreshes the
+     buffer that was current when ‘magit-start-process’ was called (if
+     it is a Magit buffer and still alive), as well as the respective
+     Magit status buffer.  Unmodified buffers visiting files that are
+     tracked in the current repository are reverted if
+     ‘magit-revert-buffers’ is non-nil.
+
+ -- Variable: magit-this-process
+     The child process which is about to start.  This can be used to
+     change the filter and sentinel.
+
+ -- Variable: magit-process-raise-error
+     When this is non-nil, then ‘magit-process-sentinel’ raises an error
+     if git exits with a non-zero exit status.  For debugging purposes.
+
+
+File: magit.info,  Node: Section Plumbing,  Next: Refreshing Buffers,  Prev: Calling Git,  Up: Plumbing
+
+10.2 Section Plumbing
+=====================
+
+* Menu:
+
+* Creating Sections::
+* Section Selection::
+* Matching Sections::
+
+
+File: magit.info,  Node: Creating Sections,  Next: Section Selection,  Up: Section Plumbing
+
+10.2.1 Creating Sections
+------------------------
+
+ -- Macro: magit-insert-section &rest args
+     Insert a section at point.
+
+     TYPE is the section type, a symbol.  Many commands that act on the
+     current section behave differently depending on that type.  Also if
+     a variable ‘magit-TYPE-section-map’ exists, then use that as the
+     text-property ‘keymap’ of all text belonging to the section (but
+     this may be overwritten in subsections).  TYPE can also have the
+     form ‘(eval FORM)’ in which case FORM is evaluated at runtime.
+
+     Optional VALUE is the value of the section, usually a string that
+     is required when acting on the section.
+
+     When optional HIDE is non-nil collapse the section body by default,
+     i.e., when first creating the section, but not when refreshing the
+     buffer.  Otherwise, expand it by default.  This can be overwritten
+     using ‘magit-section-set-visibility-hook’.  When a section is
+     recreated during a refresh, then the visibility of predecessor is
+     inherited and HIDE is ignored (but the hook is still honored).
+
+     BODY is any number of forms that actually insert the section’s
+     heading and body.  Optional NAME, if specified, has to be a symbol,
+     which is then bound to the struct of the section being inserted.
+
+     Before BODY is evaluated the ‘start’ of the section object is set
+     to the value of ‘point’ and after BODY was evaluated its ‘end’ is
+     set to the new value of ‘point’; BODY is responsible for moving
+     ‘point’ forward.
+
+     If it turns out inside BODY that the section is empty, then
+     ‘magit-cancel-section’ can be used to abort and remove all traces
+     of the partially inserted section.  This can happen when creating a
+     section by washing Git’s output and Git didn’t actually output
+     anything this time around.
+
+ -- Function: magit-insert-heading &rest args
+     Insert the heading for the section currently being inserted.
+
+     This function should only be used inside ‘magit-insert-section’.
+
+     When called without any arguments, then just set the ‘content’ slot
+     of the object representing the section being inserted to a marker
+     at ‘point’.  The section should only contain a single line when
+     this function is used like this.
+
+     When called with arguments ARGS, which have to be strings, then
+     insert those strings at point.  The section should not contain any
+     text before this happens and afterwards it should again only
+     contain a single line.  If the ‘face’ property is set anywhere
+     inside any of these strings, then insert all of them unchanged.
+     Otherwise use the ‘magit-section-heading’ face for all inserted
+     text.
+
+     The ‘content’ property of the section struct is the end of the
+     heading (which lasts from ‘start’ to ‘content’) and the beginning
+     of the body (which lasts from ‘content’ to ‘end’).  If the value of
+     ‘content’ is nil, then the section has no heading and its body
+     cannot be collapsed.  If a section does have a heading then its
+     height must be exactly one line, including a trailing newline
+     character.  This isn’t enforced; you are responsible for getting it
+     right.  The only exception is that this function does insert a
+     newline character if necessary.
+
+ -- Function: magit-cancel-section
+     Cancel the section currently being inserted.  This exits the
+     innermost call to ‘magit-insert-section’ and removes all traces of
+     what has already happened inside that call.
+
+ -- Function: magit-define-section-jumper sym title &optional value
+     Define an interactive function to go to section SYM.  TITLE is the
+     displayed title of the section.
+
+
+File: magit.info,  Node: Section Selection,  Next: Matching Sections,  Prev: Creating Sections,  Up: Section Plumbing
+
+10.2.2 Section Selection
+------------------------
+
+ -- Function: magit-current-section
+     Return the section at point.
+
+ -- Function: magit-region-sections &optional condition multiple
+     Return a list of the selected sections.
+
+     When the region is active and constitutes a valid section
+     selection, then return a list of all selected sections.  This is
+     the case when the region begins in the heading of a section and
+     ends in the heading of the same section or in that of a sibling
+     section.  If optional MULTIPLE is non-nil, then the region cannot
+     begin and end in the same section.
+
+     When the selection is not valid, then return nil.  In this case,
+     most commands that can act on the selected sections will instead
+     act on the section at point.
+
+     When the region looks like it would in any other buffer then the
+     selection is invalid.  When the selection is valid then the region
+     uses the ‘magit-section-highlight’ face.  This does not apply to
+     diffs where things get a bit more complicated, but even here if the
+     region looks like it usually does, then that’s not a valid
+     selection as far as this function is concerned.
+
+     If optional CONDITION is non-nil, then the selection not only has
+     to be valid; all selected sections additionally have to match
+     CONDITION, or nil is returned.  See ‘magit-section-match’ for the
+     forms CONDITION can take.
+
+ -- Function: magit-region-values &optional condition multiple
+     Return a list of the values of the selected sections.
+
+     Return the values that themselves would be returned by
+     ‘magit-region-sections’ (which see).
+
+
+File: magit.info,  Node: Matching Sections,  Prev: Section Selection,  Up: Section Plumbing
+
+10.2.3 Matching Sections
+------------------------
+
+‘M-x magit-describe-section-briefly’
+     Show information about the section at point.  This command is
+     intended for debugging purposes.
+
+ -- Function: magit-section-ident section
+     Return an unique identifier for SECTION.  The return value has the
+     form ‘((TYPE . VALUE)...)’.
+
+ -- Function: magit-get-section ident &optional root
+     Return the section identified by IDENT.  IDENT has to be a list as
+     returned by ‘magit-section-ident’.
+
+ -- Function: magit-section-match condition &optional section
+     Return ‘t’ if SECTION matches CONDITION.  SECTION defaults to the
+     section at point.  If SECTION is not specified and there also is no
+     section at point, then return ‘nil’.
+
+     CONDITION can take the following forms:
+        • ‘(CONDITION...)’
+
+          matches if any of the CONDITIONs matches.
+
+        • ‘[CLASS...]’
+
+          matches if the section’s class is the same as the first CLASS
+          or a subclass of that; the section’s parent class matches the
+          second CLASS; and so on.
+
+        • ‘[* CLASS...]’
+
+          matches sections that match ‘[CLASS...]’ and also recursively
+          all their child sections.
+
+        • ‘CLASS’
+
+          matches if the section’s class is the same as CLASS or a
+          subclass of that; regardless of the classes of the parent
+          sections.
+
+     Each CLASS should be a class symbol, identifying a class that
+     derives from ‘magit-section’.  For backward compatibility CLASS can
+     also be a "type symbol".  A section matches such a symbol if the
+     value of its ‘type’ slot is ‘eq’.  If a type symbol has an entry in
+     ‘magit--section-type-alist’, then a section also matches that type
+     if its class is a subclass of the class that corresponds to the
+     type as per that alist.
+
+     Note that it is not necessary to specify the complete section
+     lineage as printed by ‘magit-describe-section-briefly’, unless of
+     course you want to be that precise.
+
+ -- Function: magit-section-value-if condition &optional section
+     If the section at point matches CONDITION, then return its value.
+
+     If optional SECTION is non-nil then test whether that matches
+     instead.  If there is no section at point and SECTION is nil, then
+     return nil.  If the section does not match, then return nil.
+
+     See ‘magit-section-match’ for the forms CONDITION can take.
+
+ -- Function: magit-section-case &rest clauses
+     Choose among clauses on the type of the section at point.
+
+     Each clause looks like (CONDITION BODY...).  The type of the
+     section is compared against each CONDITION; the BODY forms of the
+     first match are evaluated sequentially and the value of the last
+     form is returned.  Inside BODY the symbol ‘it’ is bound to the
+     section at point.  If no clause succeeds or if there is no section
+     at point return nil.
+
+     See ‘magit-section-match’ for the forms CONDITION can take.
+     Additionally a CONDITION of t is allowed in the final clause and
+     matches if no other CONDITION match, even if there is no section at
+     point.
+
+ -- Variable: magit-root-section
+     The root section in the current buffer.  All other sections are
+     descendants of this section.  The value of this variable is set by
+     ‘magit-insert-section’ and you should never modify it.
+
+   For diff related sections a few additional tools exist.
+
+ -- Function: magit-diff-type &optional section
+     Return the diff type of SECTION.
+
+     The returned type is one of the symbols ‘staged’, ‘unstaged’,
+     ‘committed’, or ‘undefined’.  This type serves a similar purpose as
+     the general type common to all sections (which is stored in the
+     ‘type’ slot of the corresponding ‘magit-section’ struct) but takes
+     additional information into account.  When the SECTION isn’t
+     related to diffs and the buffer containing it also isn’t a
+     diff-only buffer, then return nil.
+
+     Currently the type can also be one of ‘tracked’ and ‘untracked’,
+     but these values are not handled explicitly in every place they
+     should be.  A possible fix could be to just return nil here.
+
+     The section has to be a ‘diff’ or ‘hunk’ section, or a section
+     whose children are of type ‘diff’.  If optional SECTION is nil,
+     return the diff type for the current section.  In buffers whose
+     major mode is ‘magit-diff-mode’ SECTION is ignored and the type is
+     determined using other means.  In ‘magit-revision-mode’ buffers the
+     type is always ‘committed’.
+
+ -- Function: magit-diff-scope &optional section strict
+     Return the diff scope of SECTION or the selected section(s).
+
+     A diff’s "scope" describes what part of a diff is selected, it is a
+     symbol, one of ‘region’, ‘hunk’, ‘hunks’, ‘file’, ‘files’, or
+     ‘list’.  Do not confuse this with the diff "type", as returned by
+     ‘magit-diff-type’.
+
+     If optional SECTION is non-nil, then return the scope of that,
+     ignoring the sections selected by the region.  Otherwise return the
+     scope of the current section, or if the region is active and
+     selects a valid group of diff related sections, the type of these
+     sections, i.e., ‘hunks’ or ‘files’.  If SECTION (or if the current
+     section that is nil) is a ‘hunk’ section and the region starts and
+     ends inside the body of a that section, then the type is ‘region’.
+
+     If optional STRICT is non-nil then return nil if the diff type of
+     the section at point is ‘untracked’ or the section at point is not
+     actually a ‘diff’ but a ‘diffstat’ section.
+
+
+File: magit.info,  Node: Refreshing Buffers,  Next: Conventions,  Prev: Section Plumbing,  Up: Plumbing
+
+10.3 Refreshing Buffers
+=======================
+
+All commands that create a new Magit buffer or change what is being
+displayed in an existing buffer do so by calling ‘magit-mode-setup’.
+Among other things, that function sets the buffer local values of
+‘default-directory’ (to the top-level of the repository),
+‘magit-refresh-function’, and ‘magit-refresh-args’.
+
+   Buffers are refreshed by calling the function that is the local value
+of ‘magit-refresh-function’ (a function named ‘magit-*-refresh-buffer’,
+where ‘*’ may be something like ‘diff’) with the value of
+‘magit-refresh-args’ as arguments.
+
+ -- Macro: magit-mode-setup buffer switch-func mode refresh-func
+          &optional refresh-args
+     This function displays and selects BUFFER, turns on MODE, and
+     refreshes a first time.
+
+     This function displays and optionally selects BUFFER by calling
+     ‘magit-mode-display-buffer’ with BUFFER, MODE and SWITCH-FUNC as
+     arguments.  Then it sets the local value of
+     ‘magit-refresh-function’ to REFRESH-FUNC and that of
+     ‘magit-refresh-args’ to REFRESH-ARGS.  Finally it creates the
+     buffer content by calling REFRESH-FUNC with REFRESH-ARGS as
+     arguments.
+
+     All arguments are evaluated before switching to BUFFER.
+
+ -- Function: magit-mode-display-buffer buffer mode &optional
+          switch-function
+     This function display BUFFER in some window and select it.  BUFFER
+     may be a buffer or a string, the name of a buffer.  The buffer is
+     returned.
+
+     Unless BUFFER is already displayed in the selected frame, store the
+     previous window configuration as a buffer local value, so that it
+     can later be restored by ‘magit-mode-bury-buffer’.
+
+     The buffer is displayed and selected using SWITCH-FUNCTION.  If
+     that is ‘nil’ then ‘pop-to-buffer’ is used if the current buffer’s
+     major mode derives from ‘magit-mode’.  Otherwise ‘switch-to-buffer’
+     is used.
+
+ -- Variable: magit-refresh-function
+     The value of this buffer-local variable is the function used to
+     refresh the current buffer.  It is called with ‘magit-refresh-args’
+     as arguments.
+
+ -- Variable: magit-refresh-args
+     The list of arguments used by ‘magit-refresh-function’ to refresh
+     the current buffer.  ‘magit-refresh-function’ is called with these
+     arguments.
+
+     The value is usually set using ‘magit-mode-setup’, but in some
+     cases it’s also useful to provide commands that can change the
+     value.  For example, the ‘magit-diff-refresh’ transient can be used
+     to change any of the arguments used to display the diff, without
+     having to specify again which differences should be shown, but
+     ‘magit-diff-more-context’, ‘magit-diff-less-context’ and
+     ‘magit-diff-default-context’ change just the ‘-U<N>’ argument.  In
+     both case this is done by changing the value of this variable and
+     then calling this ‘magit-refresh-function’.
+
+
+File: magit.info,  Node: Conventions,  Prev: Refreshing Buffers,  Up: Plumbing
+
+10.4 Conventions
+================
+
+Also see *note Completion and Confirmation::.
+
+* Menu:
+
+* Theming Faces::
+
+
+File: magit.info,  Node: Theming Faces,  Up: Conventions
+
+10.4.1 Theming Faces
+--------------------
+
+The default theme uses blue for local branches, green for remote
+branches, and goldenrod (brownish yellow) for tags.  When creating a new
+theme, you should probably follow that example.  If your theme already
+uses other colors, then stick to that.
+
+   In older releases these reference faces used to have a background
+color and a box around them.  The basic default faces no longer do so,
+to make Magit buffers much less noisy, and you should follow that
+example at least with regards to boxes.  (Boxes were used in the past to
+work around a conflict between the highlighting overlay and text
+property backgrounds.  That’s no longer necessary because highlighting
+no longer causes other background colors to disappear.)  Alternatively
+you can keep the background color and/or box, but then have to take
+special care to adjust ‘magit-branch-current’ accordingly.  By default
+it looks mostly like ‘magit-branch-local’, but with a box (by default
+the former is the only face that uses a box, exactly so that it sticks
+out).  If the former also uses a box, then you have to make sure that it
+differs in some other way from the latter.
+
+   The most difficult faces to theme are those related to diffs,
+headings, highlighting, and the region.  There are faces that fall into
+all four groups - expect to spend some time getting this right.
+
+   The ‘region’ face in the default theme, in both the light and dark
+variants, as well as in many other themes, distributed with Emacs or by
+third-parties, is very ugly.  It is common to use a background color
+that really sticks out, which is ugly but if that were the only problem
+then it would be acceptable.  Unfortunately many themes also set the
+foreground color, which ensures that all text within the region is
+readable.  Without doing that there might be cases where some foreground
+color is too close to the region background color to still be readable.
+But it also means that text within the region loses all syntax
+highlighting.
+
+   I consider the work that went into getting the ‘region’ face right to
+be a good indicator for the general quality of a theme.  My
+recommendation for the ‘region’ face is this: use a background color
+slightly different from the background color of the ‘default’ face, and
+do not set the foreground color at all.  So for a light theme you might
+use a light (possibly tinted) gray as the background color of ‘default’
+and a somewhat darker gray for the background of ‘region’.  That should
+usually be enough to not collide with the foreground color of any other
+face.  But if some other faces also set a light gray as background
+color, then you should also make sure it doesn’t collide with those (in
+some cases it might be acceptable though).
+
+   Magit only uses the ‘region’ face when the region is "invalid" by its
+own definition.  In a Magit buffer the region is used to either select
+multiple sibling sections, so that commands which support it act on all
+of these sections instead of just the current section, or to select
+lines within a single hunk section.  In all other cases, the section is
+considered invalid and Magit won’t act on it.  But such invalid sections
+happen, either because the user has not moved point enough yet to make
+it valid or because she wants to use a non-magit command to act on the
+region, e.g., ‘kill-region’.
+
+   So using the regular ‘region’ face for invalid sections is a feature.
+It tells the user that Magit won’t be able to act on it.  It’s
+acceptable if that face looks a bit odd and even (but less so) if it
+collides with the background colors of section headings and other things
+that have a background color.
+
+   Magit highlights the current section.  If a section has subsections,
+then all of them are highlighted.  This is done using faces that have
+"highlight" in their names.  For most sections,
+‘magit-section-highlight’ is used for both the body and the heading.
+Like the ‘region’ face, it should only set the background color to
+something similar to that of ‘default’.  The highlight background color
+must be different from both the ‘region’ background color and the
+‘default’ background color.
+
+   For diff related sections Magit uses various faces to highlight
+different parts of the selected section(s).  Note that hunk headings,
+unlike all other section headings, by default have a background color,
+because it is useful to have very visible separators between hunks.
+That face ‘magit-diff-hunk-heading’, should be different from both
+‘magit-diff-hunk-heading-highlight’ and ‘magit-section-highlight’, as
+well as from ‘magit-diff-context’ and ‘magit-diff-context-highlight’.
+By default we do that by changing the foreground color.  Changing the
+background color would lead to complications, and there are already
+enough we cannot get around.  (Also note that it is generally a good
+idea for section headings to always be bold, but only for sections that
+have subsections).
+
+   When there is a valid region selecting diff-related sibling sections,
+i.e., multiple files or hunks, then the bodies of all these sections use
+the respective highlight faces, but additionally the headings instead
+use one of the faces ‘magit-diff-file-heading-selection’ or
+‘magit-diff-hunk-heading-selection’.  These faces have to be different
+from the regular highlight variants to provide explicit visual
+indication that the region is active.
+
+   When theming diff related faces, start by setting the option
+‘magit-diff-refine-hunk’ to ‘all’.  You might personally prefer to only
+refine the current hunk or not use hunk refinement at all, but some of
+the users of your theme want all hunks to be refined, so you have to
+cater to that.
+
+   (Also turn on ‘magit-diff-highlight-indentation’,
+‘magit-diff-highlight-trailing’, and ‘magit-diff-paint-whitespace’; and
+insert some whitespace errors into the code you use for testing.)
+
+   For added lines you have to adjust three faces: ‘magit-diff-added’,
+‘magit-diff-added-highlight’, and ‘diff-refined-added’.  Make sure that
+the latter works well with both of the former, as well as ‘smerge-other’
+and ‘diff-added’.  Then do the same for the removed lines, context
+lines, lines added by us, and lines added by them.  Also make sure the
+respective added, removed, and context faces use approximately the same
+saturation for both the highlighted and unhighlighted variants.  Also
+make sure the file and diff headings work nicely with context lines
+(e.g., make them look different).  Line faces should set both the
+foreground and the background color.  For example, for added lines use
+two different greens.
+
+   It’s best if the foreground color of both the highlighted and the
+unhighlighted variants are the same, so you will need to have to find a
+color that works well on the highlight and unhighlighted background, the
+refine background, and the highlight context background.  When there is
+an hunk internal region, then the added- and removed-lines background
+color is used only within that region.  Outside the region the
+highlighted context background color is used.  This makes it easier to
+see what is being staged.  With an hunk internal region the hunk heading
+is shown using ‘magit-diff-hunk-heading-selection’, and so are the thin
+lines that are added around the lines that fall within the region.  The
+background color of that has to be distinct enough from the various
+other involved background colors.
+
+   Nobody said this would be easy.  If your theme restricts itself to a
+certain set of colors, then you should make an exception here.
+Otherwise it would be impossible to make the diffs look good in each and
+every variation.  Actually you might want to just stick to the default
+definitions for these faces.  You have been warned.  Also please note
+that if you do not get this right, this will in some cases look to users
+like bugs in Magit - so please do it right or not at all.
+
+
+File: magit.info,  Node: FAQ,  Next: Debugging Tools,  Prev: Plumbing,  Up: Top
+
+Appendix A FAQ
+**************
+
+The next two nodes lists frequently asked questions.  For a list of
+frequently *and recently* asked questions, i.e., questions that haven’t
+made it into the manual yet, see
+<https://github.com/magit/magit/wiki/FAQ>.
+
+   Please also see *note Debugging Tools::.
+
+* Menu:
+
+* FAQ - How to ...?::
+* FAQ - Issues and Errors::
+
+
+File: magit.info,  Node: FAQ - How to ...?,  Next: FAQ - Issues and Errors,  Up: FAQ
+
+A.1 FAQ - How to ...?
+=====================
+
+* Menu:
+
+* How to pronounce Magit?::
+* How to show git's output?::
+* How to install the gitman info manual?::
+* How to show diffs for gpg-encrypted files?::
+* How does branching and pushing work?::
+* Should I disable VC?::
+
+
+File: magit.info,  Node: How to pronounce Magit?,  Next: How to show git's output?,  Up: FAQ - How to ...?
+
+A.1.1 How to pronounce Magit?
+-----------------------------
+
+Either ‘mu[m's] git’ or ‘magi{c => t}’ is fine.
+
+   The slogan is "It’s Magit!  The magical Git client", so it makes
+sense to pronounce Magit like magic, while taking into account that C
+and T do not sound the same.
+
+   The German "Magie" is not pronounced the same as the English "magic",
+so if you speak German then you can use the above rationale to justify
+using the former pronunciation; ‘Mag{ie => it}’.
+
+   You can also choose to use the former pronunciation just because you
+like it better.
+
+   Also see <https://magit.vc/assets/videos/magic.mp4>.  Also see
+<https://emacs.stackexchange.com/questions/13696>.
+
+
+File: magit.info,  Node: How to show git's output?,  Next: How to install the gitman info manual?,  Prev: How to pronounce Magit?,  Up: FAQ - How to ...?
+
+A.1.2 How to show git’s output?
+-------------------------------
+
+To show the output of recently run git commands, press ‘$’ (or, if that
+isn’t available, ‘M-x magit-process-buffer’).  This will show a buffer
+containing a section per git invocation; as always press ‘TAB’ to expand
+or collapse them.
+
+   By default, git’s output is only inserted into the process buffer if
+it is run for side-effects.  When the output is consumed in some way,
+also inserting it into the process buffer would be too expensive.  For
+debugging purposes, it’s possible to do so anyway by setting
+‘magit-git-debug’ to ‘t’.
+
+
+File: magit.info,  Node: How to install the gitman info manual?,  Next: How to show diffs for gpg-encrypted files?,  Prev: How to show git's output?,  Up: FAQ - How to ...?
+
+A.1.3 How to install the gitman info manual?
+--------------------------------------------
+
+Git’s manpages can be exported as an info manual called ‘gitman’.
+Magit’s own info manual links to nodes in that manual instead of the
+actual manpages because Info doesn’t support linking to manpages.
+
+   Unfortunately some distributions do not install the ‘gitman’ manual
+by default and you will have to install a separate documentation package
+to get it.
+
+   Magit patches Info adding the ability to visit links to the ‘gitman’
+Info manual by instead viewing the respective manpage.  If you prefer
+that approach, then set the value of ‘magit-view-git-manual-method’ to
+one of the supported packages ‘man’ or ‘woman’, e.g.:
+
+     (setq magit-view-git-manual-method 'man)
+
+
+File: magit.info,  Node: How to show diffs for gpg-encrypted files?,  Next: How does branching and pushing work?,  Prev: How to install the gitman info manual?,  Up: FAQ - How to ...?
+
+A.1.4 How to show diffs for gpg-encrypted files?
+------------------------------------------------
+
+Git supports showing diffs for encrypted files, but has to be told to do
+so.  Since Magit just uses Git to get the diffs, configuring Git also
+affects the diffs displayed inside Magit.
+
+     git config --global diff.gpg.textconv "gpg --no-tty --decrypt"
+     echo "*.gpg filter=gpg diff=gpg" > .gitattributes
+
+
+File: magit.info,  Node: How does branching and pushing work?,  Next: Should I disable VC?,  Prev: How to show diffs for gpg-encrypted files?,  Up: FAQ - How to ...?
+
+A.1.5 How does branching and pushing work?
+------------------------------------------
+
+Please see *note Branching:: and
+<https://emacsair.me/2016/01/17/magit-2.4>
+
+
+File: magit.info,  Node: Should I disable VC?,  Prev: How does branching and pushing work?,  Up: FAQ - How to ...?
+
+A.1.6 Should I disable VC?
+--------------------------
+
+If you don’t use VC (the built-in version control interface) then you
+might be tempted to disable it, not least because we used to recommend
+that you do that.
+
+   We no longer recommend that you disable VC.  Doing so would break
+useful third-party packages (such as ‘diff-hl’), which depend on VC
+being enabled.
+
+   If you choose to disable VC anyway, then you can do so by changing
+the value of ‘vc-handled-backends’.
+
+
+File: magit.info,  Node: FAQ - Issues and Errors,  Prev: FAQ - How to ...?,  Up: FAQ
+
+A.2 FAQ - Issues and Errors
+===========================
+
+* Menu:
+
+* Magit is slow::
+* I changed several thousand files at once and now Magit is unusable::
+* I am having problems committing::
+* I am using MS Windows and cannot push with Magit::
+* I am using macOS and SOMETHING works in shell, but not in Magit: I am using macOS and SOMETHING works in shell but not in Magit.
+* Expanding a file to show the diff causes it to disappear::
+* Point is wrong in the COMMIT_EDITMSG buffer::
+* The mode-line information isn't always up-to-date::
+* A branch and tag sharing the same name breaks SOMETHING::
+* My Git hooks work on the command-line but not inside Magit::
+* git-commit-mode isn't used when committing from the command-line::
+* Point ends up inside invisible text when jumping to a file-visiting buffer::
+* I am no longer able to save popup defaults::
+
+
+File: magit.info,  Node: Magit is slow,  Next: I changed several thousand files at once and now Magit is unusable,  Up: FAQ - Issues and Errors
+
+A.2.1 Magit is slow
+-------------------
+
+See *note Performance:: and *note I changed several thousand files at
+once and now Magit is unusable::.
+
+
+File: magit.info,  Node: I changed several thousand files at once and now Magit is unusable,  Next: I am having problems committing,  Prev: Magit is slow,  Up: FAQ - Issues and Errors
+
+A.2.2 I changed several thousand files at once and now Magit is unusable
+------------------------------------------------------------------------
+
+Magit is currently not expected to work well under such conditions.  It
+sure would be nice if it did.  Reaching satisfactory performance under
+such conditions will require some heavy refactoring.  This is no small
+task but I hope to eventually find the time to make it happen.
+
+   But for now we recommend you use the command line to complete this
+one commit.  Also see *note Performance::.
+
+
+File: magit.info,  Node: I am having problems committing,  Next: I am using MS Windows and cannot push with Magit,  Prev: I changed several thousand files at once and now Magit is unusable,  Up: FAQ - Issues and Errors
+
+A.2.3 I am having problems committing
+-------------------------------------
+
+That likely means that Magit is having problems finding an appropriate
+emacsclient executable.  See *note (with-editor)Configuring
+With-Editor:: and *note (with-editor)Debugging::.
+
+
+File: magit.info,  Node: I am using MS Windows and cannot push with Magit,  Next: I am using macOS and SOMETHING works in shell but not in Magit,  Prev: I am having problems committing,  Up: FAQ - Issues and Errors
+
+A.2.4 I am using MS Windows and cannot push with Magit
+------------------------------------------------------
+
+It’s almost certain that Magit is only incidental to this issue.  It is
+much more likely that this is a configuration issue, even if you can
+push on the command line.
+
+   Detailed setup instructions can be found at
+<https://github.com/magit/magit/wiki/Pushing-with-Magit-from-Windows>.
+
+
+File: magit.info,  Node: I am using macOS and SOMETHING works in shell but not in Magit,  Next: Expanding a file to show the diff causes it to disappear,  Prev: I am using MS Windows and cannot push with Magit,  Up: FAQ - Issues and Errors
+
+A.2.5 I am using macOS and SOMETHING works in shell, but not in Magit
+---------------------------------------------------------------------
+
+This usually occurs because Emacs doesn’t have the same environment
+variables as your shell.  Try installing and configuring
+<https://github.com/purcell/exec-path-from-shell>.  By default it
+synchronizes ‘$PATH’, which helps Magit find the same ‘git’ as the one
+you are using on the shell.
+
+   If SOMETHING is "passphrase caching with gpg-agent for commit and/or
+tag signing", then you’ll also need to synchronize ‘$GPG_AGENT_INFO’.
+
+
+File: magit.info,  Node: Expanding a file to show the diff causes it to disappear,  Next: Point is wrong in the COMMIT_EDITMSG buffer,  Prev: I am using macOS and SOMETHING works in shell but not in Magit,  Up: FAQ - Issues and Errors
+
+A.2.6 Expanding a file to show the diff causes it to disappear
+--------------------------------------------------------------
+
+This is probably caused by a customization of a ‘diff.*’ Git variable.
+You probably set that variable for a reason, and should therefore only
+undo that setting in Magit by customizing ‘magit-git-global-arguments’.
+
+
+File: magit.info,  Node: Point is wrong in the COMMIT_EDITMSG buffer,  Next: The mode-line information isn't always up-to-date,  Prev: Expanding a file to show the diff causes it to disappear,  Up: FAQ - Issues and Errors
+
+A.2.7 Point is wrong in the ‘COMMIT_EDITMSG’ buffer
+---------------------------------------------------
+
+Neither Magit nor ‘git-commit.el’ fiddle with point in the buffer used
+to write commit messages, so something else must be doing it.
+
+   You have probably globally enabled a mode which restores point in
+file-visiting buffers.  It might be a bit surprising, but when you write
+a commit message, then you are actually editing a file.
+
+   So you have to figure out which package is doing it.  ‘saveplace’,
+‘pointback’, and ‘session’ are likely candidates.  These snippets might
+help:
+
+     (setq session-name-disable-regexp "\\(?:\\`'\\.git/[A-Z_]+\\'\\)")
+
+     (with-eval-after-load 'pointback
+       (lambda ()
+         (when (or git-commit-mode git-rebase-mode)
+           (pointback-mode -1))))
+
+
+File: magit.info,  Node: The mode-line information isn't always up-to-date,  Next: A branch and tag sharing the same name breaks SOMETHING,  Prev: Point is wrong in the COMMIT_EDITMSG buffer,  Up: FAQ - Issues and Errors
+
+A.2.8 The mode-line information isn’t always up-to-date
+-------------------------------------------------------
+
+Magit is not responsible for the version control information that is
+being displayed in the mode-line and looks something like ‘Git-master’.
+The built-in "Version Control" package, also known as "VC", updates that
+information, and can be told to do so more often:
+
+     (setq auto-revert-check-vc-info t)
+
+   But doing so isn’t good for performance.  For more (overly
+optimistic) information see *note (emacs)VC Mode Line::.
+
+   If you don’t really care about seeing this information in the
+mode-line, but just don’t want to see _incorrect_ information, then
+consider simply not displaying it in the mode-line:
+
+     (setq-default mode-line-format
+                   (delete '(vc-mode vc-mode) mode-line-format))
+
+
+File: magit.info,  Node: A branch and tag sharing the same name breaks SOMETHING,  Next: My Git hooks work on the command-line but not inside Magit,  Prev: The mode-line information isn't always up-to-date,  Up: FAQ - Issues and Errors
+
+A.2.9 A branch and tag sharing the same name breaks SOMETHING
+-------------------------------------------------------------
+
+Or more generally, ambiguous refnames break SOMETHING.
+
+   Magit assumes that refs are named non-ambiguously across the
+"refs/heads/", "refs/tags/", and "refs/remotes/" namespaces (i.e., all
+the names remain unique when those prefixes are stripped).  We consider
+ambiguous refnames unsupported and recommend that you use a
+non-ambiguous naming scheme.  However, if you do work with a repository
+that has ambiguous refnames, please report any issues you encounter, so
+that we can investigate whether there is a simple fix.
+
+
+File: magit.info,  Node: My Git hooks work on the command-line but not inside Magit,  Next: git-commit-mode isn't used when committing from the command-line,  Prev: A branch and tag sharing the same name breaks SOMETHING,  Up: FAQ - Issues and Errors
+
+A.2.10 My Git hooks work on the command-line but not inside Magit
+-----------------------------------------------------------------
+
+When Magit calls ‘git’ it adds a few global arguments including
+‘--literal-pathspecs’ and the ‘git’ process started by Magit then passes
+that setting on to other ‘git’ process it starts itself.  It does so by
+setting the environment variable ‘GIT_LITERAL_PATHSPECS’, not by calling
+subprocesses with the ‘--literal-pathspecs’ argument.  You can therefore
+override this setting in hook scripts using ‘unset
+GIT_LITERAL_PATHSPECS’.
+
+
+File: magit.info,  Node: git-commit-mode isn't used when committing from the command-line,  Next: Point ends up inside invisible text when jumping to a file-visiting buffer,  Prev: My Git hooks work on the command-line but not inside Magit,  Up: FAQ - Issues and Errors
+
+A.2.11 ‘git-commit-mode’ isn’t used when committing from the command-line
+-------------------------------------------------------------------------
+
+The reason for this is that ‘git-commit.el’ has not been loaded yet
+and/or that the server has not been started yet.  These things have
+always already been taken care of when you commit from Magit because in
+order to do so, Magit has to be loaded and doing that involves loading
+‘git-commit’ and starting the server.
+
+   If you want to commit from the command-line, then you have to take
+care of these things yourself.  Your ‘init.el’ file should contain:
+
+     (require 'git-commit)
+     (server-mode)
+
+   Instead of ‘(require ’git-commit)‘ you may also use:
+
+     (load "/path/to/magit-autoloads.el")
+
+   You might want to do that because loading ‘git-commit’ causes large
+parts of Magit to be loaded.
+
+   There are also some variations of ‘(server-mode)’ that you might want
+to try.  Personally I use:
+
+     (use-package server
+       :config (or (server-running-p) (server-mode)))
+
+   Now you can use:
+
+     $ emacs&
+     $ EDITOR=emacsclient git commit
+
+   However you cannot use:
+
+     $ killall emacs
+     $ EDITOR="emacsclient --alternate-editor emacs" git commit
+
+   This will actually end up using ‘emacs’, not ‘emacsclient’.  If you
+do this, then you can still edit the commit message but
+‘git-commit-mode’ won’t be used and you have to exit ‘emacs’ to finish
+the process.
+
+   Tautology ahead.  If you want to be able to use ‘emacsclient’ to
+connect to a running ‘emacs’ instance, even though no ‘emacs’ instance
+is running, then you cannot use ‘emacsclient’ directly.
+
+   Instead you have to create a script that does something like this:
+
+   Try to use ‘emacsclient’ (without using ‘--alternate-editor’).  If
+that succeeds, do nothing else.  Otherwise start ‘emacs &’ (and
+‘init.el’ must call ‘server-start’) and try to use ‘emacsclient’ again.
+
+
+File: magit.info,  Node: Point ends up inside invisible text when jumping to a file-visiting buffer,  Next: I am no longer able to save popup defaults,  Prev: git-commit-mode isn't used when committing from the command-line,  Up: FAQ - Issues and Errors
+
+A.2.12 Point ends up inside invisible text when jumping to a file-visiting buffer
+---------------------------------------------------------------------------------
+
+This can happen when you type ‘RET’ on a hunk to visit the respective
+file at the respective position.  One solution to this problem is to use
+‘global-reveal-mode’.  It makes sure that text around point is always
+visible.  If that is too drastic for your taste, then you may instead
+use ‘magit-diff-visit-file-hook’ to reveal the text, possibly using
+‘reveal-post-command’ or for Org buffers ‘org-reveal’.
+
+
+File: magit.info,  Node: I am no longer able to save popup defaults,  Prev: Point ends up inside invisible text when jumping to a file-visiting buffer,  Up: FAQ - Issues and Errors
+
+A.2.13 I am no longer able to save popup defaults
+-------------------------------------------------
+
+Magit used to use Magit-Popup to implement the transient popup menus.
+Now it used Transient instead, which is Magit-Popup’s successor.
+
+   In the older Magit-Popup menus, it was possible to save user settings
+(e.g., setting the gpg signing key for commits) by using ‘C-c C-c’ in
+the popup buffer.  This would dismiss the popup, but save the settings
+as the defaults for future popups.
+
+   When switching to Transient menus, this functionality is now
+available via ‘C-x C-s’ instead; the ‘C-x’ prefix has other options as
+well when using Transient, which will be displayed when it is typed.
+See <https://magit.vc/manual/transient/Saving-Values.html#Saving-Values>
+for more details.
+
+
+File: magit.info,  Node: Debugging Tools,  Next: Keystroke Index,  Prev: FAQ,  Up: Top
+
+B Debugging Tools
+*****************
+
+Magit and its dependencies provide a few debugging tools, and we
+appreciate it very much if you use those tools before reporting an
+issue.  Please include all relevant output when reporting an issue.
+
+‘M-x magit-version’
+     This command shows the currently used versions of Magit, Git, and
+     Emacs in the echo area.  Non-interactively this just returns the
+     Magit version.
+
+‘M-x magit-emacs-Q-command’
+     This command shows a debugging shell command in the echo area and
+     adds it to the kill ring.  Paste that command into a shell and run
+     it.
+
+     This shell command starts ‘emacs’ with only ‘magit’ and its
+     dependencies loaded.  Neither your configuration nor other
+     installed packages are loaded.  This makes it easier to determine
+     whether some issue lays with Magit or something else.
+
+     If you run Magit from its Git repository, then you should be able
+     to use ‘make emacs-Q’ instead of the output of this command.
+
+‘M-x magit-toggle-git-debug’
+     This command toggles whether additional git errors are reported.
+
+     Magit basically calls git for one of these two reasons: for
+     side-effects or to do something with its standard output.
+
+     When git is run for side-effects then its output, including error
+     messages, go into the process buffer which is shown when using ‘$’.
+
+     When git’s output is consumed in some way, then it would be too
+     expensive to also insert it into this buffer, but when this option
+     is non-nil and git returns with a non-zero exit status, then at
+     least its standard error is inserted into this buffer.
+
+     This is only intended for debugging purposes.  Do not enable this
+     permanently, that would negatively affect performance.  Also note
+     that just because git exits with a non-zero exit status and prints
+     an error message that usually doesn’t mean that it is an error as
+     far as Magit is concerned, which is another reason we usually hide
+     these error messages.  Whether some error message is relevant in
+     the context of some unexpected behavior has to be judged on a case
+     by case basis.
+
+‘M-x magit-toggle-verbose-refresh’
+     This command toggles whether Magit refreshes buffers verbosely.
+     Enabling this helps figuring out which sections are bottlenecks.
+     The additional output can be found in the ‘*Messages*’ buffer.
+
+‘M-x magit-debug-git-executable’
+     This command displays a buffer containing information about the
+     available and used ‘git’ executable(s), and can be useful when
+     investigating ‘exec-path’ issues.
+
+     Also see *note Git Executable::.
+
+‘M-x with-editor-debug’
+     This command displays a buffer containing information about the
+     available and used ‘emacsclient’ executable(s), and can be useful
+     when investigating why Magit (or rather ‘with-editor’) cannot find
+     an appropriate ‘emacsclient’ executable.
+
+     Also see *note (with-editor)Debugging::.
+
+Please also see *note FAQ::.
+
+
+File: magit.info,  Node: Keystroke Index,  Next: Function and Command Index,  Prev: Debugging Tools,  Up: Top
+
+Appendix C Keystroke Index
+**************************
+
+
+* Menu:
+
+* !:                                     Running Git Manually.
+                                                              (line  13)
+* ! !:                                   Running Git Manually.
+                                                              (line  17)
+* ! a:                                   Running Git Manually.
+                                                              (line  53)
+* ! b:                                   Running Git Manually.
+                                                              (line  56)
+* ! g:                                   Running Git Manually.
+                                                              (line  59)
+* ! k:                                   Running Git Manually.
+                                                              (line  50)
+* ! m:                                   Running Git Manually.
+                                                              (line  62)
+* ! p:                                   Running Git Manually.
+                                                              (line  25)
+* ! s:                                   Running Git Manually.
+                                                              (line  34)
+* ! S:                                   Running Git Manually.
+                                                              (line  38)
+* $:                                     Viewing Git Output.  (line  17)
+* +:                                     Log Buffer.          (line  64)
+* + <1>:                                 Refreshing Diffs.    (line  65)
+* -:                                     Log Buffer.          (line  67)
+* - <1>:                                 Refreshing Diffs.    (line  62)
+* 0:                                     Refreshing Diffs.    (line  68)
+* 1:                                     Section Visibility.  (line  39)
+* 2:                                     Section Visibility.  (line  39)
+* 3:                                     Section Visibility.  (line  39)
+* 4:                                     Section Visibility.  (line  39)
+* 5:                                     Repository List.     (line 115)
+* ::                                     Running Git Manually.
+                                                              (line  25)
+* =:                                     Log Buffer.          (line  59)
+* >:                                     Sparse checkouts.    (line  17)
+* > a:                                   Sparse checkouts.    (line  39)
+* > d:                                   Sparse checkouts.    (line  50)
+* > e:                                   Sparse checkouts.    (line  21)
+* > r:                                   Sparse checkouts.    (line  44)
+* > s:                                   Sparse checkouts.    (line  33)
+* ^:                                     Section Movement.    (line  28)
+* a:                                     Applying.            (line  34)
+* A:                                     Cherry Picking.      (line   9)
+* A A:                                   Cherry Picking.      (line  17)
+* A a:                                   Cherry Picking.      (line  23)
+* A A <1>:                               Cherry Picking.      (line  85)
+* A a <1>:                               Cherry Picking.      (line  91)
+* A d:                                   Cherry Picking.      (line  51)
+* A h:                                   Cherry Picking.      (line  40)
+* A n:                                   Cherry Picking.      (line  62)
+* A s:                                   Cherry Picking.      (line  72)
+* A s <1>:                               Cherry Picking.      (line  88)
+* B:                                     Bisecting.           (line   9)
+* b:                                     Blaming.             (line 115)
+* b <1>:                                 Branch Commands.     (line  13)
+* b <2>:                                 Editing Rebase Sequences.
+                                                              (line  70)
+* B B:                                   Bisecting.           (line  16)
+* B b:                                   Bisecting.           (line  32)
+* b b:                                   Branch Commands.     (line  47)
+* b C:                                   Branch Commands.     (line  31)
+* b c:                                   Branch Commands.     (line  63)
+* B g:                                   Bisecting.           (line  36)
+* B k:                                   Bisecting.           (line  46)
+* b k:                                   Branch Commands.     (line 138)
+* b l:                                   Branch Commands.     (line  69)
+* B m:                                   Bisecting.           (line  40)
+* b m:                                   Branch Commands.     (line 149)
+* b n:                                   Branch Commands.     (line  54)
+* B r:                                   Bisecting.           (line  51)
+* B s:                                   Bisecting.           (line  26)
+* b s:                                   Branch Commands.     (line  91)
+* b S:                                   Branch Commands.     (line 118)
+* b x:                                   Branch Commands.     (line 123)
+* c:                                     Blaming.             (line 141)
+* C:                                     Cloning Repository.  (line  20)
+* c <1>:                                 Initiating a Commit. (line   9)
+* c <2>:                                 Editing Rebase Sequences.
+                                                              (line  59)
+* C >:                                   Cloning Repository.  (line  38)
+* c a:                                   Initiating a Commit. (line  18)
+* c A:                                   Initiating a Commit. (line  59)
+* C b:                                   Cloning Repository.  (line  44)
+* C C:                                   Cloning Repository.  (line  28)
+* c c:                                   Initiating a Commit. (line  14)
+* C d:                                   Cloning Repository.  (line  55)
+* C e:                                   Cloning Repository.  (line  61)
+* c e:                                   Initiating a Commit. (line  21)
+* c f:                                   Initiating a Commit. (line  39)
+* c F:                                   Initiating a Commit. (line  46)
+* C m:                                   Cloning Repository.  (line  48)
+* C s:                                   Cloning Repository.  (line  32)
+* c s:                                   Initiating a Commit. (line  49)
+* c S:                                   Initiating a Commit. (line  56)
+* c w:                                   Initiating a Commit. (line  30)
+* C-<return>:                            Visiting Files and Blobs from a Diff.
+                                                              (line  50)
+* C-<tab>:                               Section Visibility.  (line  14)
+* C-c C-a:                               Commit Pseudo Headers.
+                                                              (line  16)
+* C-c C-b:                               Log Buffer.          (line  20)
+* C-c C-b <1>:                           Refreshing Diffs.    (line  84)
+* C-c C-c:                               Select from Log.     (line  21)
+* C-c C-c <1>:                           Editing Commit Messages.
+                                                              (line  18)
+* C-c C-c <2>:                           Editing Rebase Sequences.
+                                                              (line   7)
+* C-c C-d:                               Refreshing Diffs.    (line  75)
+* C-c C-d <1>:                           Editing Commit Messages.
+                                                              (line  54)
+* C-c C-e:                               Commands Available in Diffs.
+                                                              (line  24)
+* C-c C-f:                               Log Buffer.          (line  23)
+* C-c C-f <1>:                           Refreshing Diffs.    (line  87)
+* C-c C-i:                               Commit Pseudo Headers.
+                                                              (line  13)
+* C-c C-k:                               Select from Log.     (line  26)
+* C-c C-k <1>:                           Editing Commit Messages.
+                                                              (line  22)
+* C-c C-k <2>:                           Editing Rebase Sequences.
+                                                              (line  11)
+* C-c C-n:                               Log Buffer.          (line  26)
+* C-c C-o:                               Commit Pseudo Headers.
+                                                              (line  28)
+* C-c C-p:                               Commit Pseudo Headers.
+                                                              (line  31)
+* C-c C-r:                               Commit Pseudo Headers.
+                                                              (line  19)
+* C-c C-s:                               Commit Pseudo Headers.
+                                                              (line  22)
+* C-c C-t:                               Commands Available in Diffs.
+                                                              (line  15)
+* C-c C-t <1>:                           Commit Pseudo Headers.
+                                                              (line  25)
+* C-c C-w:                               Using the Revision Stack.
+                                                              (line   7)
+* C-c f:                                 Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f , c:                             Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f , k:                             Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f , r:                             Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f , x:                             Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f B:                               Blaming.             (line  28)
+* C-c f b:                               Blaming.             (line  28)
+* C-c f B <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f b <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f B b:                             Blaming.             (line  28)
+* C-c f B e:                             Blaming.             (line  28)
+* C-c f B f:                             Blaming.             (line  28)
+* C-c f B q:                             Blaming.             (line  28)
+* C-c f B r:                             Blaming.             (line  28)
+* C-c f c:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f D:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f d:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f e:                               Blaming.             (line  28)
+* C-c f e <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f f:                               Blaming.             (line  28)
+* C-c f f <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f g:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f G:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f L:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f l:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f M:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f m:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f n:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f p:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f q:                               Blaming.             (line  28)
+* C-c f q <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f r:                               Blaming.             (line  28)
+* C-c f r <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f s:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f s <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f t:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f u:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f u <1>:                           Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f v:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c f V:                               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* C-c g:                                 Transient Commands.  (line  20)
+* C-c M-g:                               Commands for Buffers Visiting Files.
+                                                              (line  58)
+* C-c M-g , c:                           Commands for Buffers Visiting Files.
+                                                              (line  86)
+* C-c M-g , k:                           Commands for Buffers Visiting Files.
+                                                              (line  82)
+* C-c M-g , r:                           Commands for Buffers Visiting Files.
+                                                              (line  78)
+* C-c M-g , x:                           Commands for Buffers Visiting Files.
+                                                              (line  74)
+* C-c M-g B:                             Blaming.             (line  34)
+* C-c M-g b:                             Blaming.             (line  45)
+* C-c M-g B <1>:                         Commands for Buffers Visiting Files.
+                                                              (line 137)
+* C-c M-g B b:                           Blaming.             (line  45)
+* C-c M-g B e:                           Blaming.             (line  76)
+* C-c M-g B f:                           Blaming.             (line  68)
+* C-c M-g B q:                           Blaming.             (line  87)
+* C-c M-g B r:                           Blaming.             (line  60)
+* C-c M-g c:                             Commands for Buffers Visiting Files.
+                                                              (line 176)
+* C-c M-g D:                             Commands for Buffers Visiting Files.
+                                                              (line  91)
+* C-c M-g d:                             Commands for Buffers Visiting Files.
+                                                              (line 101)
+* C-c M-g e:                             Blaming.             (line  76)
+* C-c M-g e <1>:                         Commands for Buffers Visiting Files.
+                                                              (line 182)
+* C-c M-g f:                             Blaming.             (line  68)
+* C-c M-g g:                             Commands for Buffers Visiting Files.
+                                                              (line 166)
+* C-c M-g G:                             Commands for Buffers Visiting Files.
+                                                              (line 172)
+* C-c M-g L:                             Commands for Buffers Visiting Files.
+                                                              (line 109)
+* C-c M-g l:                             Commands for Buffers Visiting Files.
+                                                              (line 119)
+* C-c M-g M:                             Commands for Buffers Visiting Files.
+                                                              (line 132)
+* C-c M-g n:                             Commands for Buffers Visiting Files.
+                                                              (line 153)
+* C-c M-g p:                             Commands for Buffers Visiting Files.
+                                                              (line 149)
+* C-c M-g q:                             Blaming.             (line  87)
+* C-c M-g r:                             Blaming.             (line  60)
+* C-c M-g s:                             Commands for Buffers Visiting Files.
+                                                              (line  63)
+* C-c M-g s <1>:                         Commands for Buffers Visiting Files.
+                                                              (line  63)
+* C-c M-g t:                             Commands for Buffers Visiting Files.
+                                                              (line 129)
+* C-c M-g u:                             Commands for Buffers Visiting Files.
+                                                              (line  69)
+* C-c M-g u <1>:                         Commands for Buffers Visiting Files.
+                                                              (line  69)
+* C-c M-g v:                             Commands for Buffers Visiting Files.
+                                                              (line 156)
+* C-c M-g V:                             Commands for Buffers Visiting Files.
+                                                              (line 160)
+* C-c M-i:                               Commit Pseudo Headers.
+                                                              (line  35)
+* C-c M-s:                               Editing Commit Messages.
+                                                              (line  33)
+* C-c TAB:                               Section Visibility.  (line  14)
+* C-w:                                   Common Commands.     (line  22)
+* C-x g:                                 Status Buffer.       (line  23)
+* C-x M-g:                               Transient Commands.  (line  20)
+* C-x u:                                 Editing Rebase Sequences.
+                                                              (line  77)
+* d:                                     Diffing.             (line  22)
+* D:                                     Refreshing Diffs.    (line  16)
+* d c:                                   Diffing.             (line  63)
+* d d:                                   Diffing.             (line  27)
+* D f:                                   Refreshing Diffs.    (line  45)
+* D F:                                   Refreshing Diffs.    (line  49)
+* D g:                                   Refreshing Diffs.    (line  21)
+* d p:                                   Diffing.             (line  56)
+* d r:                                   Diffing.             (line  30)
+* D r:                                   Refreshing Diffs.    (line  41)
+* d s:                                   Diffing.             (line  48)
+* D s:                                   Refreshing Diffs.    (line  25)
+* d t:                                   Diffing.             (line  67)
+* D t:                                   Refreshing Diffs.    (line  38)
+* d u:                                   Diffing.             (line  53)
+* d w:                                   Diffing.             (line  43)
+* D w:                                   Refreshing Diffs.    (line  31)
+* DEL:                                   Log Buffer.          (line  50)
+* DEL <1>:                               Commands Available in Diffs.
+                                                              (line  56)
+* DEL <2>:                               Blaming.             (line 103)
+* DEL <3>:                               Editing Rebase Sequences.
+                                                              (line  25)
+* e:                                     Ediffing.            (line  10)
+* E:                                     Ediffing.            (line  21)
+* e <1>:                                 Editing Rebase Sequences.
+                                                              (line  46)
+* E c:                                   Ediffing.            (line 100)
+* E i:                                   Ediffing.            (line  94)
+* E m:                                   Ediffing.            (line  33)
+* E M:                                   Ediffing.            (line  48)
+* E r:                                   Ediffing.            (line  25)
+* E s:                                   Ediffing.            (line  87)
+* E t:                                   Ediffing.            (line  79)
+* E u:                                   Ediffing.            (line  91)
+* E w:                                   Ediffing.            (line  97)
+* E z:                                   Ediffing.            (line 103)
+* f:                                     Repository List.     (line 111)
+* f <1>:                                 Editing Rebase Sequences.
+                                                              (line  52)
+* f <2>:                                 Fetching.            (line  10)
+* F:                                     Pulling.             (line  10)
+* f a:                                   Fetching.            (line  45)
+* f C:                                   Branch Commands.     (line  31)
+* F C:                                   Branch Commands.     (line  31)
+* f e:                                   Fetching.            (line  34)
+* F e:                                   Pulling.             (line  28)
+* f m:                                   Fetching.            (line  48)
+* f o:                                   Fetching.            (line  37)
+* f p:                                   Fetching.            (line  15)
+* F p:                                   Pulling.             (line  14)
+* f r:                                   Fetching.            (line  41)
+* f u:                                   Fetching.            (line  22)
+* F u:                                   Pulling.             (line  21)
+* g:                                     Automatic Refreshing of Magit Buffers.
+                                                              (line  26)
+* G:                                     Automatic Refreshing of Magit Buffers.
+                                                              (line  34)
+* H:                                     Section Types and Values.
+                                                              (line  14)
+* I:                                     Creating Repository. (line   7)
+* j:                                     Log Buffer.          (line  31)
+* j <1>:                                 Commands Available in Diffs.
+                                                              (line  43)
+* k:                                     Viewing Git Output.  (line  24)
+* k <1>:                                 Applying.            (line  40)
+* k <2>:                                 Editing Rebase Sequences.
+                                                              (line  56)
+* k <3>:                                 Stashing.            (line 118)
+* l:                                     Logging.             (line  28)
+* L:                                     Refreshing Logs.     (line  12)
+* L <1>:                                 Log Buffer.          (line   7)
+* L <2>:                                 Log Margin.          (line  52)
+* l <1>:                                 Editing Rebase Sequences.
+                                                              (line  94)
+* l a:                                   Logging.             (line  59)
+* l b:                                   Logging.             (line  56)
+* L d:                                   Log Margin.          (line  66)
+* L g:                                   Refreshing Logs.     (line  17)
+* l h:                                   Logging.             (line  38)
+* l H:                                   Reflog.              (line  18)
+* l l:                                   Logging.             (line  33)
+* l L:                                   Logging.             (line  53)
+* L L:                                   Refreshing Logs.     (line  34)
+* L L <1>:                               Log Margin.          (line  60)
+* L l:                                   Log Margin.          (line  63)
+* l o:                                   Logging.             (line  47)
+* l O:                                   Reflog.              (line  15)
+* l r:                                   Reflog.              (line  12)
+* L s:                                   Refreshing Logs.     (line  21)
+* l u:                                   Logging.             (line  41)
+* L w:                                   Refreshing Logs.     (line  27)
+* m:                                     Repository List.     (line 105)
+* m <1>:                                 Merging.             (line  10)
+* M:                                     Remote Commands.     (line  14)
+* m a:                                   Merging.             (line  42)
+* m a <1>:                               Merging.             (line  91)
+* M a:                                   Remote Commands.     (line  48)
+* M C:                                   Remote Commands.     (line  32)
+* m e:                                   Merging.             (line  30)
+* m i:                                   Merging.             (line  54)
+* M k:                                   Remote Commands.     (line  60)
+* m m:                                   Merging.             (line  18)
+* m m <1>:                               Merging.             (line  86)
+* m n:                                   Merging.             (line  36)
+* m p:                                   Merging.             (line  75)
+* M p:                                   Remote Commands.     (line  63)
+* M P:                                   Remote Commands.     (line  67)
+* M r:                                   Remote Commands.     (line  52)
+* m s:                                   Merging.             (line  67)
+* M u:                                   Remote Commands.     (line  56)
+* M-1:                                   Section Visibility.  (line  45)
+* M-2:                                   Section Visibility.  (line  45)
+* M-3:                                   Section Visibility.  (line  45)
+* M-4:                                   Section Visibility.  (line  45)
+* M-<tab>:                               Section Visibility.  (line  29)
+* M-n:                                   Section Movement.    (line  24)
+* M-n <1>:                               Editing Commit Messages.
+                                                              (line  41)
+* M-n <2>:                               Editing Rebase Sequences.
+                                                              (line  40)
+* M-p:                                   Section Movement.    (line  19)
+* M-p <1>:                               Editing Commit Messages.
+                                                              (line  36)
+* M-p <2>:                               Editing Rebase Sequences.
+                                                              (line  37)
+* M-w:                                   Blaming.             (line 134)
+* M-w <1>:                               Common Commands.     (line  39)
+* MM:                                    Editing Rebase Sequences.
+                                                              (line 102)
+* Mt:                                    Editing Rebase Sequences.
+                                                              (line 108)
+* n:                                     Section Movement.    (line  16)
+* n <1>:                                 Blaming.             (line 118)
+* N:                                     Blaming.             (line 121)
+* n <2>:                                 Editing Rebase Sequences.
+                                                              (line  34)
+* n <3>:                                 Minor Mode for Buffers Visiting Blobs.
+                                                              (line  16)
+* o:                                     Submodule Transient. (line   7)
+* O:                                     Subtree.             (line   9)
+* o a:                                   Submodule Transient. (line  20)
+* o d:                                   Submodule Transient. (line  45)
+* O e:                                   Subtree.             (line  37)
+* O e p:                                 Subtree.             (line  48)
+* O e s:                                 Subtree.             (line  52)
+* o f:                                   Submodule Transient. (line  51)
+* O i:                                   Subtree.             (line  13)
+* O i a:                                 Subtree.             (line  24)
+* O i c:                                 Subtree.             (line  28)
+* O i f:                                 Subtree.             (line  34)
+* O i m:                                 Subtree.             (line  31)
+* o l:                                   Submodule Transient. (line  48)
+* o p:                                   Submodule Transient. (line  32)
+* o r:                                   Submodule Transient. (line  26)
+* o s:                                   Submodule Transient. (line  40)
+* o u:                                   Submodule Transient. (line  36)
+* p:                                     Section Movement.    (line  11)
+* p <1>:                                 Blaming.             (line 124)
+* P:                                     Blaming.             (line 127)
+* p <2>:                                 Editing Rebase Sequences.
+                                                              (line  31)
+* P <1>:                                 Pushing.             (line  10)
+* p <3>:                                 Minor Mode for Buffers Visiting Blobs.
+                                                              (line  13)
+* P C:                                   Branch Commands.     (line  31)
+* P e:                                   Pushing.             (line  29)
+* P m:                                   Pushing.             (line  45)
+* P o:                                   Pushing.             (line  33)
+* P p:                                   Pushing.             (line  15)
+* P r:                                   Pushing.             (line  37)
+* P t:                                   Pushing.             (line  52)
+* P T:                                   Pushing.             (line  59)
+* P u:                                   Pushing.             (line  22)
+* q:                                     Quitting Windows.    (line   7)
+* q <1>:                                 Log Buffer.          (line  14)
+* q <2>:                                 Blaming.             (line 130)
+* q <3>:                                 Minor Mode for Buffers Visiting Blobs.
+                                                              (line  19)
+* r:                                     Rebasing.            (line  10)
+* r <1>:                                 Editing Rebase Sequences.
+                                                              (line  43)
+* r a:                                   Rebasing.            (line 111)
+* r e:                                   Rebasing.            (line  42)
+* r e <1>:                               Rebasing.            (line 107)
+* r f:                                   Rebasing.            (line  79)
+* r i:                                   Rebasing.            (line  76)
+* r k:                                   Rebasing.            (line  91)
+* r m:                                   Rebasing.            (line  83)
+* r p:                                   Rebasing.            (line  28)
+* r r:                                   Rebasing.            (line  97)
+* r s:                                   Rebasing.            (line  47)
+* r s <1>:                               Rebasing.            (line 103)
+* r u:                                   Rebasing.            (line  35)
+* r w:                                   Rebasing.            (line  87)
+* RET:                                   Repository List.     (line 102)
+* RET <1>:                               References Buffer.   (line 159)
+* RET <2>:                               Visiting Files and Blobs from a Diff.
+                                                              (line   9)
+* RET <3>:                               Blaming.             (line  91)
+* RET <4>:                               Editing Rebase Sequences.
+                                                              (line  15)
+* s:                                     Staging and Unstaging.
+                                                              (line  29)
+* S:                                     Staging and Unstaging.
+                                                              (line  36)
+* s <1>:                                 Editing Rebase Sequences.
+                                                              (line  49)
+* S-<tab>:                               Section Visibility.  (line  33)
+* SPC:                                   Log Buffer.          (line  41)
+* SPC <1>:                               Commands Available in Diffs.
+                                                              (line  53)
+* SPC <2>:                               Blaming.             (line  94)
+* SPC <3>:                               Editing Rebase Sequences.
+                                                              (line  19)
+* t:                                     Editing Rebase Sequences.
+                                                              (line  97)
+* t <1>:                                 Tagging.             (line   9)
+* T:                                     Notes.               (line   9)
+* T a:                                   Notes.               (line  47)
+* T c:                                   Notes.               (line  43)
+* t k:                                   Tagging.             (line  37)
+* T m:                                   Notes.               (line  35)
+* t p:                                   Tagging.             (line  43)
+* T p:                                   Notes.               (line  28)
+* t r:                                   Tagging.             (line  18)
+* T r:                                   Notes.               (line  21)
+* t t:                                   Tagging.             (line  14)
+* T T:                                   Notes.               (line  14)
+* TAB:                                   Section Visibility.  (line  10)
+* u:                                     Repository List.     (line 108)
+* u <1>:                                 Staging and Unstaging.
+                                                              (line  42)
+* U:                                     Staging and Unstaging.
+                                                              (line  50)
+* v:                                     Applying.            (line  47)
+* V:                                     Reverting.           (line   7)
+* V a:                                   Reverting.           (line  35)
+* V s:                                   Reverting.           (line  32)
+* V V:                                   Reverting.           (line  15)
+* V v:                                   Reverting.           (line  20)
+* V V <1>:                               Reverting.           (line  29)
+* W:                                     Plain Patches.       (line   7)
+* w:                                     Maildir Patches.     (line   9)
+* w a:                                   Plain Patches.       (line  20)
+* w a <1>:                               Maildir Patches.     (line  23)
+* w a <2>:                               Maildir Patches.     (line  38)
+* W c:                                   Plain Patches.       (line  12)
+* w m:                                   Maildir Patches.     (line  20)
+* W s:                                   Plain Patches.       (line  26)
+* w s:                                   Maildir Patches.     (line  34)
+* w w:                                   Maildir Patches.     (line  14)
+* w w <1>:                               Maildir Patches.     (line  31)
+* x:                                     Editing Rebase Sequences.
+                                                              (line  62)
+* x <1>:                                 Resetting.           (line   9)
+* X f:                                   Resetting.           (line  44)
+* X h:                                   Resetting.           (line  24)
+* X i:                                   Resetting.           (line  33)
+* X k:                                   Resetting.           (line  28)
+* X m:                                   Resetting.           (line  15)
+* X s:                                   Resetting.           (line  19)
+* X w:                                   Resetting.           (line  39)
+* X w <1>:                               Wip Modes.           (line  64)
+* Y:                                     Cherries.            (line  18)
+* y:                                     References Buffer.   (line   7)
+* y <1>:                                 Editing Rebase Sequences.
+                                                              (line  74)
+* y c:                                   References Buffer.   (line  25)
+* y o:                                   References Buffer.   (line  30)
+* y r:                                   References Buffer.   (line  34)
+* y y:                                   References Buffer.   (line  21)
+* z:                                     Stashing.            (line   9)
+* Z:                                     Worktree.            (line   9)
+* z a:                                   Stashing.            (line  52)
+* z b:                                   Stashing.            (line 105)
+* z B:                                   Stashing.            (line 110)
+* Z b:                                   Worktree.            (line  13)
+* Z c:                                   Worktree.            (line  16)
+* z f:                                   Stashing.            (line 115)
+* Z g:                                   Worktree.            (line  26)
+* z i:                                   Stashing.            (line  20)
+* z I:                                   Stashing.            (line  42)
+* z k:                                   Stashing.            (line  98)
+* Z k:                                   Worktree.            (line  22)
+* z l:                                   Stashing.            (line 121)
+* Z m:                                   Worktree.            (line  19)
+* z p:                                   Stashing.            (line  74)
+* z v:                                   Stashing.            (line 102)
+* z w:                                   Stashing.            (line  24)
+* z W:                                   Stashing.            (line  46)
+* z x:                                   Stashing.            (line  30)
+* z z:                                   Stashing.            (line  14)
+* z Z:                                   Stashing.            (line  36)
+
+
+File: magit.info,  Node: Function and Command Index,  Next: Variable Index,  Prev: Keystroke Index,  Up: Top
+
+Appendix D Function and Command Index
+*************************************
+
+
+* Menu:
+
+* bug-reference-mode:                    Commit Mode and Hooks.
+                                                              (line  48)
+* forward-line:                          Editing Rebase Sequences.
+                                                              (line  34)
+* git-commit-ack:                        Commit Pseudo Headers.
+                                                              (line  16)
+* git-commit-cc:                         Commit Pseudo Headers.
+                                                              (line  28)
+* git-commit-check-style-conventions:    Commit Message Conventions.
+                                                              (line  33)
+* git-commit-insert-pseudo-header:       Commit Pseudo Headers.
+                                                              (line  13)
+* git-commit-next-message:               Editing Commit Messages.
+                                                              (line  41)
+* git-commit-prev-message:               Editing Commit Messages.
+                                                              (line  36)
+* git-commit-propertize-diff:            Commit Mode and Hooks.
+                                                              (line  40)
+* git-commit-reported:                   Commit Pseudo Headers.
+                                                              (line  31)
+* git-commit-review:                     Commit Pseudo Headers.
+                                                              (line  19)
+* git-commit-save-message:               Editing Commit Messages.
+                                                              (line  33)
+* git-commit-save-message <1>:           Commit Mode and Hooks.
+                                                              (line  26)
+* git-commit-setup-changelog-support:    Commit Mode and Hooks.
+                                                              (line  29)
+* git-commit-signoff:                    Commit Pseudo Headers.
+                                                              (line  22)
+* git-commit-suggested:                  Commit Pseudo Headers.
+                                                              (line  35)
+* git-commit-test:                       Commit Pseudo Headers.
+                                                              (line  25)
+* git-commit-turn-on-auto-fill:          Commit Mode and Hooks.
+                                                              (line  33)
+* git-commit-turn-on-flyspell:           Commit Mode and Hooks.
+                                                              (line  36)
+* git-rebase-backward-line:              Editing Rebase Sequences.
+                                                              (line  31)
+* git-rebase-break:                      Editing Rebase Sequences.
+                                                              (line  70)
+* git-rebase-edit:                       Editing Rebase Sequences.
+                                                              (line  46)
+* git-rebase-exec:                       Editing Rebase Sequences.
+                                                              (line  62)
+* git-rebase-fixup:                      Editing Rebase Sequences.
+                                                              (line  52)
+* git-rebase-insert:                     Editing Rebase Sequences.
+                                                              (line  74)
+* git-rebase-kill-line:                  Editing Rebase Sequences.
+                                                              (line  56)
+* git-rebase-label:                      Editing Rebase Sequences.
+                                                              (line  94)
+* git-rebase-merge:                      Editing Rebase Sequences.
+                                                              (line 102)
+* git-rebase-merge-toggle-editmsg:       Editing Rebase Sequences.
+                                                              (line 108)
+* git-rebase-move-line-down:             Editing Rebase Sequences.
+                                                              (line  40)
+* git-rebase-move-line-up:               Editing Rebase Sequences.
+                                                              (line  37)
+* git-rebase-pick:                       Editing Rebase Sequences.
+                                                              (line  59)
+* git-rebase-reset:                      Editing Rebase Sequences.
+                                                              (line  97)
+* git-rebase-reword:                     Editing Rebase Sequences.
+                                                              (line  43)
+* git-rebase-show-commit:                Editing Rebase Sequences.
+                                                              (line  15)
+* git-rebase-show-or-scroll-down:        Editing Rebase Sequences.
+                                                              (line  25)
+* git-rebase-show-or-scroll-up:          Editing Rebase Sequences.
+                                                              (line  19)
+* git-rebase-squash:                     Editing Rebase Sequences.
+                                                              (line  49)
+* git-rebase-undo:                       Editing Rebase Sequences.
+                                                              (line  77)
+* ido-enter-magit-status:                Status Buffer.       (line  96)
+* magit-add-section-hook:                Section Hooks.       (line  20)
+* magit-after-save-refresh-status:       Automatic Refreshing of Magit Buffers.
+                                                              (line  55)
+* magit-am:                              Maildir Patches.     (line   9)
+* magit-am-abort:                        Maildir Patches.     (line  38)
+* magit-am-apply-maildir:                Maildir Patches.     (line  20)
+* magit-am-apply-patches:                Maildir Patches.     (line  14)
+* magit-am-continue:                     Maildir Patches.     (line  31)
+* magit-am-skip:                         Maildir Patches.     (line  34)
+* magit-apply:                           Applying.            (line  34)
+* magit-bisect:                          Bisecting.           (line   9)
+* magit-bisect-bad:                      Bisecting.           (line  32)
+* magit-bisect-good:                     Bisecting.           (line  36)
+* magit-bisect-mark:                     Bisecting.           (line  40)
+* magit-bisect-reset:                    Bisecting.           (line  51)
+* magit-bisect-run:                      Bisecting.           (line  26)
+* magit-bisect-skip:                     Bisecting.           (line  46)
+* magit-bisect-start:                    Bisecting.           (line  16)
+* magit-blame:                           Blaming.             (line  28)
+* magit-blame <1>:                       Blaming.             (line  34)
+* magit-blame <2>:                       Blaming.             (line 115)
+* magit-blame <3>:                       Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blame <4>:                       Commands for Buffers Visiting Files.
+                                                              (line 137)
+* magit-blame-addition:                  Blaming.             (line  28)
+* magit-blame-addition <1>:              Blaming.             (line  45)
+* magit-blame-additions:                 Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blame-copy-hash:                 Blaming.             (line 134)
+* magit-blame-cycle-style:               Blaming.             (line 141)
+* magit-blame-echo:                      Blaming.             (line  28)
+* magit-blame-echo <1>:                  Blaming.             (line  76)
+* magit-blame-echo <2>:                  Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blame-next-chunk:                Blaming.             (line 118)
+* magit-blame-next-chunk-same-commit:    Blaming.             (line 121)
+* magit-blame-previous-chunk:            Blaming.             (line 124)
+* magit-blame-previous-chunk-same-commit: Blaming.            (line 127)
+* magit-blame-quit:                      Blaming.             (line  28)
+* magit-blame-quit <1>:                  Blaming.             (line  87)
+* magit-blame-quit <2>:                  Blaming.             (line 130)
+* magit-blame-quit <3>:                  Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blame-removal:                   Blaming.             (line  28)
+* magit-blame-removal <1>:               Blaming.             (line  60)
+* magit-blame-removal <2>:               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blame-reverse:                   Blaming.             (line  28)
+* magit-blame-reverse <1>:               Blaming.             (line  68)
+* magit-blame-reverse <2>:               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blob-next:                       Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blob-next <1>:                   Commands for Buffers Visiting Files.
+                                                              (line 153)
+* magit-blob-next <2>:                   Minor Mode for Buffers Visiting Blobs.
+                                                              (line  16)
+* magit-blob-previous:                   Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blob-previous <1>:               Commands for Buffers Visiting Files.
+                                                              (line 149)
+* magit-blob-previous <2>:               Minor Mode for Buffers Visiting Blobs.
+                                                              (line  13)
+* magit-blob-visit-file:                 Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-blob-visit-file <1>:             Commands for Buffers Visiting Files.
+                                                              (line 160)
+* magit-branch:                          Branch Commands.     (line  13)
+* magit-branch-and-checkout:             Branch Commands.     (line  63)
+* magit-branch-checkout:                 Branch Commands.     (line  69)
+* magit-branch-configure:                Branch Commands.     (line  31)
+* magit-branch-create:                   Branch Commands.     (line  54)
+* magit-branch-delete:                   Branch Commands.     (line 138)
+* magit-branch-or-checkout:              Branch Commands.     (line 257)
+* magit-branch-orphan:                   Branch Commands.     (line 253)
+* magit-branch-rename:                   Branch Commands.     (line 149)
+* magit-branch-reset:                    Branch Commands.     (line 123)
+* magit-branch-shelve:                   Auxiliary Branch Commands.
+                                                              (line   9)
+* magit-branch-spinoff:                  Branch Commands.     (line  91)
+* magit-branch-spinout:                  Branch Commands.     (line 118)
+* magit-branch-unshelve:                 Auxiliary Branch Commands.
+                                                              (line  19)
+* magit-builtin-completing-read:         Support for Completion Frameworks.
+                                                              (line  41)
+* magit-bundle:                          Bundle.              (line   8)
+* magit-call-git:                        Calling Git for Effect.
+                                                              (line  28)
+* magit-call-process:                    Calling Git for Effect.
+                                                              (line  31)
+* magit-cancel-section:                  Creating Sections.   (line  69)
+* magit-checkout:                        Branch Commands.     (line  47)
+* magit-cherry:                          Cherries.            (line  18)
+* magit-cherry-apply:                    Cherry Picking.      (line  23)
+* magit-cherry-copy:                     Cherry Picking.      (line  17)
+* magit-cherry-donate:                   Cherry Picking.      (line  51)
+* magit-cherry-harvest:                  Cherry Picking.      (line  40)
+* magit-cherry-pick:                     Cherry Picking.      (line   9)
+* magit-cherry-spinoff:                  Cherry Picking.      (line  72)
+* magit-cherry-spinout:                  Cherry Picking.      (line  62)
+* magit-clone:                           Cloning Repository.  (line  20)
+* magit-clone-bare:                      Cloning Repository.  (line  44)
+* magit-clone-mirror:                    Cloning Repository.  (line  48)
+* magit-clone-regular:                   Cloning Repository.  (line  28)
+* magit-clone-shallow:                   Cloning Repository.  (line  32)
+* magit-clone-shallow-exclude:           Cloning Repository.  (line  61)
+* magit-clone-shallow-since:             Cloning Repository.  (line  55)
+* magit-clone-sparse:                    Cloning Repository.  (line  38)
+* magit-commit:                          Initiating a Commit. (line   9)
+* magit-commit <1>:                      Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-commit <2>:                      Commands for Buffers Visiting Files.
+                                                              (line 176)
+* magit-commit-amend:                    Initiating a Commit. (line  18)
+* magit-commit-augment:                  Initiating a Commit. (line  59)
+* magit-commit-create:                   Initiating a Commit. (line  14)
+* magit-commit-extend:                   Initiating a Commit. (line  21)
+* magit-commit-fixup:                    Initiating a Commit. (line  39)
+* magit-commit-instant-fixup:            Initiating a Commit. (line  46)
+* magit-commit-instant-squash:           Initiating a Commit. (line  56)
+* magit-commit-reword:                   Initiating a Commit. (line  30)
+* magit-commit-squash:                   Initiating a Commit. (line  49)
+* magit-completing-read:                 Support for Completion Frameworks.
+                                                              (line  57)
+* magit-copy-buffer-revision:            Common Commands.     (line  39)
+* magit-copy-section-value:              Common Commands.     (line  22)
+* magit-current-section:                 Section Selection.   (line   6)
+* magit-cycle-margin-style:              Log Margin.          (line  63)
+* magit-debug-git-executable:            Git Executable.      (line  55)
+* magit-debug-git-executable <1>:        Debugging Tools.     (line  57)
+* magit-define-section-jumper:           Creating Sections.   (line  74)
+* magit-describe-section:                Section Types and Values.
+                                                              (line  14)
+* magit-describe-section-briefly:        Section Types and Values.
+                                                              (line  17)
+* magit-describe-section-briefly <1>:    Matching Sections.   (line   7)
+* magit-diff:                            Diffing.             (line  22)
+* magit-diff <1>:                        Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-diff <2>:                        Commands for Buffers Visiting Files.
+                                                              (line  91)
+* magit-diff-buffer-file:                Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-diff-buffer-file <1>:            Commands for Buffers Visiting Files.
+                                                              (line 101)
+* magit-diff-default-context:            Refreshing Diffs.    (line  68)
+* magit-diff-dwim:                       Diffing.             (line  27)
+* magit-diff-edit-hunk-commit:           Commands Available in Diffs.
+                                                              (line  24)
+* magit-diff-flip-revs:                  Refreshing Diffs.    (line  45)
+* magit-diff-less-context:               Refreshing Diffs.    (line  62)
+* magit-diff-more-context:               Refreshing Diffs.    (line  65)
+* magit-diff-paths:                      Diffing.             (line  56)
+* magit-diff-range:                      Diffing.             (line  30)
+* magit-diff-refresh:                    Refreshing Diffs.    (line  16)
+* magit-diff-refresh <1>:                Refreshing Diffs.    (line  21)
+* magit-diff-save-default-arguments:     Refreshing Diffs.    (line  31)
+* magit-diff-scope:                      Matching Sections.   (line 110)
+* magit-diff-set-default-arguments:      Refreshing Diffs.    (line  25)
+* magit-diff-show-or-scroll-down:        Log Buffer.          (line  50)
+* magit-diff-show-or-scroll-down <1>:    Blaming.             (line 103)
+* magit-diff-show-or-scroll-up:          Log Buffer.          (line  41)
+* magit-diff-show-or-scroll-up <1>:      Blaming.             (line  94)
+* magit-diff-staged:                     Diffing.             (line  48)
+* magit-diff-switch-range-type:          Refreshing Diffs.    (line  41)
+* magit-diff-toggle-file-filter:         Refreshing Diffs.    (line  49)
+* magit-diff-toggle-refine-hunk:         Refreshing Diffs.    (line  38)
+* magit-diff-trace-definition:           Commands Available in Diffs.
+                                                              (line  15)
+* magit-diff-type:                       Matching Sections.   (line  88)
+* magit-diff-unstaged:                   Diffing.             (line  53)
+* magit-diff-visit-file:                 Visiting Files and Blobs from a Diff.
+                                                              (line   9)
+* magit-diff-visit-file-other-frame:     Visiting Files and Blobs from a Diff.
+                                                              (line  71)
+* magit-diff-visit-file-other-window:    Visiting Files and Blobs from a Diff.
+                                                              (line  70)
+* magit-diff-visit-file-worktree:        Visiting Files and Blobs from a Diff.
+                                                              (line  50)
+* magit-diff-visit-worktree-file-other-frame: Visiting Files and Blobs from a Diff.
+                                                              (line  73)
+* magit-diff-visit-worktree-file-other-window: Visiting Files and Blobs from a Diff.
+                                                              (line  72)
+* magit-diff-while-committing:           Refreshing Diffs.    (line  75)
+* magit-diff-while-committing <1>:       Editing Commit Messages.
+                                                              (line  54)
+* magit-diff-working-tree:               Diffing.             (line  43)
+* magit-disable-section-inserter:        Per-Repository Configuration.
+                                                              (line  31)
+* magit-discard:                         Applying.            (line  40)
+* magit-dispatch:                        Transient Commands.  (line  20)
+* magit-display-buffer:                  Switching Buffers.   (line   6)
+* magit-display-buffer-fullcolumn-most-v1: Switching Buffers. (line  68)
+* magit-display-buffer-fullframe-status-topleft-v1: Switching Buffers.
+                                                              (line  59)
+* magit-display-buffer-fullframe-status-v1: Switching Buffers.
+                                                              (line  54)
+* magit-display-buffer-same-window-except-diff-v1: Switching Buffers.
+                                                              (line  49)
+* magit-display-buffer-traditional:      Switching Buffers.   (line  42)
+* magit-display-repository-buffer:       Common Commands.     (line   9)
+* magit-display-repository-buffer <1>:   Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-display-repository-buffer <2>:   Commands for Buffers Visiting Files.
+                                                              (line 172)
+* magit-ediff:                           Ediffing.            (line  21)
+* magit-ediff-compare:                   Ediffing.            (line  25)
+* magit-ediff-dwim:                      Ediffing.            (line  10)
+* magit-ediff-resolve-all:               Ediffing.            (line  48)
+* magit-ediff-resolve-rest:              Ediffing.            (line  33)
+* magit-ediff-show-commit:               Ediffing.            (line 100)
+* magit-ediff-show-staged:               Ediffing.            (line  94)
+* magit-ediff-show-stash:                Ediffing.            (line 103)
+* magit-ediff-show-unstaged:             Ediffing.            (line  91)
+* magit-ediff-show-working-tree:         Ediffing.            (line  97)
+* magit-ediff-stage:                     Ediffing.            (line  87)
+* magit-edit-line-commit:                Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-edit-line-commit <1>:            Commands for Buffers Visiting Files.
+                                                              (line 182)
+* magit-emacs-Q-command:                 Debugging Tools.     (line  16)
+* magit-fetch:                           Fetching.            (line  10)
+* magit-fetch-all:                       Fetching.            (line  45)
+* magit-fetch-branch:                    Fetching.            (line  37)
+* magit-fetch-from-pushremote:           Fetching.            (line  15)
+* magit-fetch-from-upstream:             Fetching.            (line  22)
+* magit-fetch-modules:                   Fetching.            (line  48)
+* magit-fetch-modules <1>:               Submodule Transient. (line  51)
+* magit-fetch-other:                     Fetching.            (line  34)
+* magit-fetch-refspec:                   Fetching.            (line  41)
+* magit-file-checkout:                   Resetting.           (line  44)
+* magit-file-checkout <1>:               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-file-checkout <2>:               Commands for Buffers Visiting Files.
+                                                              (line  86)
+* magit-file-delete:                     Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-file-delete <1>:                 Commands for Buffers Visiting Files.
+                                                              (line  82)
+* magit-file-dispatch:                   Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-file-dispatch <1>:               Commands for Buffers Visiting Files.
+                                                              (line  58)
+* magit-file-rename:                     Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-file-rename <1>:                 Commands for Buffers Visiting Files.
+                                                              (line  78)
+* magit-file-untrack:                    Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-file-untrack <1>:                Commands for Buffers Visiting Files.
+                                                              (line  74)
+* magit-find-file:                       General-Purpose Visit Commands.
+                                                              (line   9)
+* magit-find-file <1>:                   Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-find-file <2>:                   Commands for Buffers Visiting Files.
+                                                              (line 156)
+* magit-find-file-other-frame:           General-Purpose Visit Commands.
+                                                              (line  19)
+* magit-find-file-other-window:          General-Purpose Visit Commands.
+                                                              (line  14)
+* magit-generate-buffer-name-default-function: Naming Buffers.
+                                                              (line  16)
+* magit-get-section:                     Matching Sections.   (line  14)
+* magit-git:                             Calling Git for Effect.
+                                                              (line  46)
+* magit-git-command:                     Running Git Manually.
+                                                              (line  25)
+* magit-git-command-topdir:              Running Git Manually.
+                                                              (line  17)
+* magit-git-exit-code:                   Getting a Value from Git.
+                                                              (line  10)
+* magit-git-failure:                     Getting a Value from Git.
+                                                              (line  17)
+* magit-git-false:                       Getting a Value from Git.
+                                                              (line  25)
+* magit-git-insert:                      Getting a Value from Git.
+                                                              (line  29)
+* magit-git-items:                       Getting a Value from Git.
+                                                              (line  41)
+* magit-git-lines:                       Getting a Value from Git.
+                                                              (line  37)
+* magit-git-mergetool:                   Running Git Manually.
+                                                              (line  62)
+* magit-git-mergetool <1>:               Ediffing.            (line  79)
+* magit-git-str:                         Getting a Value from Git.
+                                                              (line  75)
+* magit-git-string:                      Getting a Value from Git.
+                                                              (line  32)
+* magit-git-success:                     Getting a Value from Git.
+                                                              (line  13)
+* magit-git-true:                        Getting a Value from Git.
+                                                              (line  21)
+* magit-git-wash:                        Calling Git for Effect.
+                                                              (line  50)
+* magit-go-backward:                     Log Buffer.          (line  20)
+* magit-go-backward <1>:                 Refreshing Diffs.    (line  84)
+* magit-go-forward:                      Log Buffer.          (line  23)
+* magit-go-forward <1>:                  Refreshing Diffs.    (line  87)
+* magit-hunk-set-window-start:           Section Movement.    (line  45)
+* magit-ido-completing-read:             Support for Completion Frameworks.
+                                                              (line  46)
+* magit-init:                            Creating Repository. (line   7)
+* magit-insert-am-sequence:              Status Sections.     (line  25)
+* magit-insert-assumed-unchanged-files:  Status Sections.     (line 102)
+* magit-insert-bisect-log:               Status Sections.     (line  39)
+* magit-insert-bisect-output:            Status Sections.     (line  33)
+* magit-insert-bisect-rest:              Status Sections.     (line  36)
+* magit-insert-diff-filter-header:       Status Header Sections.
+                                                              (line  35)
+* magit-insert-error-header:             Status Header Sections.
+                                                              (line  26)
+* magit-insert-head-branch-header:       Status Header Sections.
+                                                              (line  38)
+* magit-insert-heading:                  Creating Sections.   (line  41)
+* magit-insert-ignored-files:            Status Sections.     (line  87)
+* magit-insert-local-branches:           References Sections. (line  16)
+* magit-insert-merge-log:                Status Sections.     (line  17)
+* magit-insert-modules:                  Status Module Sections.
+                                                              (line  12)
+* magit-insert-modules-overview:         Status Module Sections.
+                                                              (line  30)
+* magit-insert-modules-unpulled-from-pushremote: Status Module Sections.
+                                                              (line  45)
+* magit-insert-modules-unpulled-from-upstream: Status Module Sections.
+                                                              (line  40)
+* magit-insert-modules-unpushed-to-pushremote: Status Module Sections.
+                                                              (line  55)
+* magit-insert-modules-unpushed-to-upstream: Status Module Sections.
+                                                              (line  50)
+* magit-insert-push-branch-header:       Status Header Sections.
+                                                              (line  45)
+* magit-insert-rebase-sequence:          Status Sections.     (line  21)
+* magit-insert-recent-commits:           Status Sections.     (line 114)
+* magit-insert-remote-branches:          References Sections. (line  19)
+* magit-insert-remote-header:            Status Header Sections.
+                                                              (line  58)
+* magit-insert-repo-header:              Status Header Sections.
+                                                              (line  55)
+* magit-insert-section:                  Creating Sections.   (line   6)
+* magit-insert-sequencer-sequence:       Status Sections.     (line  29)
+* magit-insert-skip-worktree-files:      Status Sections.     (line  96)
+* magit-insert-staged-changes:           Status Sections.     (line  57)
+* magit-insert-stashes:                  Status Sections.     (line  60)
+* magit-insert-status-headers:           Status Header Sections.
+                                                              (line  12)
+* magit-insert-tags:                     References Sections. (line  22)
+* magit-insert-tags-header:              Status Header Sections.
+                                                              (line  49)
+* magit-insert-tracked-files:            Status Sections.     (line  84)
+* magit-insert-unpulled-cherries:        Status Sections.     (line 123)
+* magit-insert-unpulled-from-pushremote: Status Sections.     (line  70)
+* magit-insert-unpulled-from-upstream:   Status Sections.     (line  66)
+* magit-insert-unpulled-or-recent-commits: Status Sections.   (line 108)
+* magit-insert-unpushed-cherries:        Status Sections.     (line 129)
+* magit-insert-unpushed-to-pushremote:   Status Sections.     (line  78)
+* magit-insert-unpushed-to-upstream:     Status Sections.     (line  74)
+* magit-insert-unstaged-changes:         Status Sections.     (line  54)
+* magit-insert-untracked-files:          Status Sections.     (line  42)
+* magit-insert-upstream-branch-header:   Status Header Sections.
+                                                              (line  41)
+* magit-insert-user-header:              Status Header Sections.
+                                                              (line  65)
+* magit-jump-to-diffstat-or-diff:        Commands Available in Diffs.
+                                                              (line  43)
+* magit-kill-this-buffer:                Minor Mode for Buffers Visiting Blobs.
+                                                              (line  19)
+* magit-list-repositories:               Repository List.     (line   6)
+* magit-list-submodules:                 Listing Submodules.  (line  13)
+* magit-list-submodules <1>:             Submodule Transient. (line  48)
+* magit-log:                             Logging.             (line  28)
+* magit-log <1>:                         Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-log <2>:                         Commands for Buffers Visiting Files.
+                                                              (line 109)
+* magit-log-all:                         Logging.             (line  59)
+* magit-log-all-branches:                Logging.             (line  56)
+* magit-log-branches:                    Logging.             (line  53)
+* magit-log-buffer-file:                 Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-log-buffer-file <1>:             Commands for Buffers Visiting Files.
+                                                              (line 119)
+* magit-log-bury-buffer:                 Log Buffer.          (line  14)
+* magit-log-current:                     Logging.             (line  33)
+* magit-log-double-commit-limit:         Log Buffer.          (line  64)
+* magit-log-half-commit-limit:           Log Buffer.          (line  67)
+* magit-log-head:                        Logging.             (line  38)
+* magit-log-maybe-show-more-commits:     Section Movement.    (line  58)
+* magit-log-maybe-update-blob-buffer:    Section Movement.    (line  72)
+* magit-log-maybe-update-revision-buffer: Section Movement.   (line  65)
+* magit-log-merged:                      Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-log-merged <1>:                  Commands for Buffers Visiting Files.
+                                                              (line 132)
+* magit-log-move-to-parent:              Log Buffer.          (line  26)
+* magit-log-move-to-revision:            Log Buffer.          (line  31)
+* magit-log-other:                       Logging.             (line  47)
+* magit-log-refresh:                     Refreshing Logs.     (line  12)
+* magit-log-refresh <1>:                 Refreshing Logs.     (line  17)
+* magit-log-refresh <2>:                 Log Buffer.          (line   7)
+* magit-log-related:                     Logging.             (line  41)
+* magit-log-save-default-arguments:      Refreshing Logs.     (line  27)
+* magit-log-select-pick:                 Select from Log.     (line  21)
+* magit-log-select-quit:                 Select from Log.     (line  26)
+* magit-log-set-default-arguments:       Refreshing Logs.     (line  21)
+* magit-log-toggle-commit-limit:         Log Buffer.          (line  59)
+* magit-log-trace-definition:            Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-log-trace-definition <1>:        Commands for Buffers Visiting Files.
+                                                              (line 129)
+* magit-margin-settings:                 Log Margin.          (line  52)
+* magit-maybe-set-dedicated:             Switching Buffers.   (line  89)
+* magit-merge:                           Merging.             (line  10)
+* magit-merge <1>:                       Merging.             (line  86)
+* magit-merge-abort:                     Merging.             (line  91)
+* magit-merge-absorb:                    Merging.             (line  42)
+* magit-merge-editmsg:                   Merging.             (line  30)
+* magit-merge-into:                      Merging.             (line  54)
+* magit-merge-nocommit:                  Merging.             (line  36)
+* magit-merge-plain:                     Merging.             (line  18)
+* magit-merge-preview:                   Merging.             (line  75)
+* magit-merge-squash:                    Merging.             (line  67)
+* magit-mode-bury-buffer:                Quitting Windows.    (line   7)
+* magit-mode-display-buffer:             Refreshing Buffers.  (line  32)
+* magit-mode-quit-window:                Quitting Windows.    (line  34)
+* magit-mode-setup:                      Refreshing Buffers.  (line  17)
+* magit-notes:                           Notes.               (line   9)
+* magit-notes-edit:                      Notes.               (line  14)
+* magit-notes-merge:                     Notes.               (line  35)
+* magit-notes-merge-abort:               Notes.               (line  47)
+* magit-notes-merge-commit:              Notes.               (line  43)
+* magit-notes-prune:                     Notes.               (line  28)
+* magit-notes-remove:                    Notes.               (line  21)
+* magit-patch:                           Plain Patches.       (line   7)
+* magit-patch-apply:                     Plain Patches.       (line  20)
+* magit-patch-apply <1>:                 Maildir Patches.     (line  23)
+* magit-patch-create:                    Plain Patches.       (line  12)
+* magit-patch-save:                      Plain Patches.       (line  26)
+* magit-pop-revision-stack:              Using the Revision Stack.
+                                                              (line   7)
+* magit-process:                         Viewing Git Output.  (line  17)
+* magit-process-file:                    Getting a Value from Git.
+                                                              (line  57)
+* magit-process-git:                     Getting a Value from Git.
+                                                              (line  50)
+* magit-process-kill:                    Viewing Git Output.  (line  24)
+* magit-pull:                            Pulling.             (line  10)
+* magit-pull-branch:                     Pulling.             (line  28)
+* magit-pull-from-pushremote:            Pulling.             (line  14)
+* magit-pull-from-upstream:              Pulling.             (line  21)
+* magit-push:                            Pushing.             (line  10)
+* magit-push-current:                    Pushing.             (line  29)
+* magit-push-current-to-pushremote:      Pushing.             (line  15)
+* magit-push-current-to-upstream:        Pushing.             (line  22)
+* magit-push-implicitly:                 Pushing.             (line  74)
+* magit-push-matching:                   Pushing.             (line  45)
+* magit-push-other:                      Pushing.             (line  33)
+* magit-push-refspecs:                   Pushing.             (line  37)
+* magit-push-tag:                        Pushing.             (line  59)
+* magit-push-tags:                       Pushing.             (line  52)
+* magit-push-to-remote:                  Pushing.             (line  91)
+* magit-rebase:                          Rebasing.            (line  10)
+* magit-rebase-abort:                    Rebasing.            (line 111)
+* magit-rebase-autosquash:               Rebasing.            (line  79)
+* magit-rebase-branch:                   Rebasing.            (line  42)
+* magit-rebase-continue:                 Rebasing.            (line  97)
+* magit-rebase-edit:                     Rebasing.            (line 107)
+* magit-rebase-edit-commit:              Rebasing.            (line  83)
+* magit-rebase-interactive:              Rebasing.            (line  76)
+* magit-rebase-onto-pushremote:          Rebasing.            (line  28)
+* magit-rebase-onto-upstream:            Rebasing.            (line  35)
+* magit-rebase-remove-commit:            Rebasing.            (line  91)
+* magit-rebase-reword-commit:            Rebasing.            (line  87)
+* magit-rebase-skip:                     Rebasing.            (line 103)
+* magit-rebase-subset:                   Rebasing.            (line  47)
+* magit-reflog-current:                  Reflog.              (line  12)
+* magit-reflog-head:                     Reflog.              (line  18)
+* magit-reflog-other:                    Reflog.              (line  15)
+* magit-refresh:                         Automatic Refreshing of Magit Buffers.
+                                                              (line  26)
+* magit-refresh-all:                     Automatic Refreshing of Magit Buffers.
+                                                              (line  34)
+* magit-refs-set-show-commit-count:      References Buffer.   (line  34)
+* magit-region-sections:                 Section Selection.   (line   9)
+* magit-region-values:                   Section Selection.   (line  35)
+* magit-remote:                          Remote Commands.     (line  14)
+* magit-remote-add:                      Remote Commands.     (line  48)
+* magit-remote-configure:                Remote Commands.     (line  32)
+* magit-remote-prune:                    Remote Commands.     (line  63)
+* magit-remote-prune-refspecs:           Remote Commands.     (line  67)
+* magit-remote-remove:                   Remote Commands.     (line  60)
+* magit-remote-rename:                   Remote Commands.     (line  52)
+* magit-remote-set-url:                  Remote Commands.     (line  56)
+* magit-repolist-column-branch:          Repository List.     (line  51)
+* magit-repolist-column-branches:        Repository List.     (line  58)
+* magit-repolist-column-flag:            Repository List.     (line  64)
+* magit-repolist-column-flags:           Repository List.     (line  76)
+* magit-repolist-column-ident:           Repository List.     (line  40)
+* magit-repolist-column-path:            Repository List.     (line  44)
+* magit-repolist-column-stashes:         Repository List.     (line  61)
+* magit-repolist-column-unpulled-from-pushremote: Repository List.
+                                                              (line  87)
+* magit-repolist-column-unpulled-from-upstream: Repository List.
+                                                              (line  83)
+* magit-repolist-column-unpushed-to-pushremote: Repository List.
+                                                              (line  95)
+* magit-repolist-column-unpushed-to-upstream: Repository List.
+                                                              (line  91)
+* magit-repolist-column-upstream:        Repository List.     (line  54)
+* magit-repolist-column-version:         Repository List.     (line  47)
+* magit-repolist-fetch:                  Repository List.     (line 111)
+* magit-repolist-find-file-other-frame:  Repository List.     (line 115)
+* magit-repolist-mark:                   Repository List.     (line 105)
+* magit-repolist-status:                 Repository List.     (line 102)
+* magit-repolist-unmark:                 Repository List.     (line 108)
+* magit-reset-hard:                      Resetting.           (line  24)
+* magit-reset-index:                     Staging and Unstaging.
+                                                              (line  78)
+* magit-reset-index <1>:                 Resetting.           (line  33)
+* magit-reset-keep:                      Resetting.           (line  28)
+* magit-reset-mixed:                     Resetting.           (line  15)
+* magit-reset-quickly:                   Resetting.           (line   9)
+* magit-reset-soft:                      Resetting.           (line  19)
+* magit-reset-worktree:                  Resetting.           (line  39)
+* magit-reset-worktree <1>:              Wip Modes.           (line  64)
+* magit-restore-window-configuration:    Quitting Windows.    (line  24)
+* magit-reverse:                         Applying.            (line  47)
+* magit-reverse-in-index:                Staging and Unstaging.
+                                                              (line  58)
+* magit-revert:                          Reverting.           (line   7)
+* magit-revert-and-commit:               Reverting.           (line  15)
+* magit-revert-no-commit:                Reverting.           (line  20)
+* magit-run:                             Running Git Manually.
+                                                              (line  13)
+* magit-run-git:                         Calling Git for Effect.
+                                                              (line  34)
+* magit-run-git-async:                   Calling Git for Effect.
+                                                              (line  59)
+* magit-run-git-gui:                     Running Git Manually.
+                                                              (line  59)
+* magit-run-git-with-editor:             Calling Git for Effect.
+                                                              (line  71)
+* magit-run-git-with-input:              Calling Git for Effect.
+                                                              (line  37)
+* magit-run-gitk:                        Running Git Manually.
+                                                              (line  50)
+* magit-run-gitk-all:                    Running Git Manually.
+                                                              (line  53)
+* magit-run-gitk-branches:               Running Git Manually.
+                                                              (line  56)
+* magit-save-window-configuration:       Switching Buffers.   (line  80)
+* magit-section-backward:                Section Movement.    (line  11)
+* magit-section-backward-siblings:       Section Movement.    (line  19)
+* magit-section-case:                    Matching Sections.   (line  66)
+* magit-section-cycle:                   Section Visibility.  (line  14)
+* magit-section-cycle-diffs:             Section Visibility.  (line  29)
+* magit-section-cycle-global:            Section Visibility.  (line  33)
+* magit-section-forward:                 Section Movement.    (line  16)
+* magit-section-forward-siblings:        Section Movement.    (line  24)
+* magit-section-hide:                    Section Visibility.  (line  55)
+* magit-section-hide-children:           Section Visibility.  (line  67)
+* magit-section-ident:                   Matching Sections.   (line  10)
+* magit-section-match:                   Matching Sections.   (line  18)
+* magit-section-set-window-start:        Section Movement.    (line  52)
+* magit-section-show:                    Section Visibility.  (line  52)
+* magit-section-show-children:           Section Visibility.  (line  62)
+* magit-section-show-headings:           Section Visibility.  (line  58)
+* magit-section-show-level-1:            Section Visibility.  (line  39)
+* magit-section-show-level-1-all:        Section Visibility.  (line  45)
+* magit-section-show-level-2:            Section Visibility.  (line  39)
+* magit-section-show-level-2-all:        Section Visibility.  (line  45)
+* magit-section-show-level-3:            Section Visibility.  (line  39)
+* magit-section-show-level-3-all:        Section Visibility.  (line  45)
+* magit-section-show-level-4:            Section Visibility.  (line  39)
+* magit-section-show-level-4-all:        Section Visibility.  (line  45)
+* magit-section-toggle:                  Section Visibility.  (line  10)
+* magit-section-toggle-children:         Section Visibility.  (line  70)
+* magit-section-up:                      Section Movement.    (line  28)
+* magit-section-value-if:                Matching Sections.   (line  57)
+* magit-sequence-abort:                  Cherry Picking.      (line  91)
+* magit-sequence-abort <1>:              Reverting.           (line  35)
+* magit-sequence-continue:               Cherry Picking.      (line  85)
+* magit-sequence-continue <1>:           Reverting.           (line  29)
+* magit-sequence-skip:                   Cherry Picking.      (line  88)
+* magit-sequence-skip <1>:               Reverting.           (line  32)
+* magit-shell-command:                   Running Git Manually.
+                                                              (line  38)
+* magit-shell-command-topdir:            Running Git Manually.
+                                                              (line  34)
+* magit-show-commit:                     Diffing.             (line  63)
+* magit-show-commit <1>:                 Blaming.             (line  91)
+* magit-show-refs:                       References Buffer.   (line   7)
+* magit-show-refs-current:               References Buffer.   (line  25)
+* magit-show-refs-head:                  References Buffer.   (line  21)
+* magit-show-refs-other:                 References Buffer.   (line  30)
+* magit-snapshot-both:                   Stashing.            (line  36)
+* magit-snapshot-index:                  Stashing.            (line  42)
+* magit-snapshot-worktree:               Stashing.            (line  46)
+* magit-sparse-checkout:                 Sparse checkouts.    (line  17)
+* magit-sparse-checkout-add:             Sparse checkouts.    (line  39)
+* magit-sparse-checkout-disable:         Sparse checkouts.    (line  50)
+* magit-sparse-checkout-enable:          Sparse checkouts.    (line  21)
+* magit-sparse-checkout-reapply:         Sparse checkouts.    (line  44)
+* magit-sparse-checkout-set:             Sparse checkouts.    (line  33)
+* magit-stage:                           Staging and Unstaging.
+                                                              (line  29)
+* magit-stage-buffer-file:               Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-stage-buffer-file <1>:           Commands for Buffers Visiting Files.
+                                                              (line  63)
+* magit-stage-file:                      Staging from File-Visiting Buffers.
+                                                              (line  11)
+* magit-stage-file <1>:                  Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-stage-file <2>:                  Commands for Buffers Visiting Files.
+                                                              (line  63)
+* magit-stage-modified:                  Staging and Unstaging.
+                                                              (line  36)
+* magit-start-git:                       Calling Git for Effect.
+                                                              (line  82)
+* magit-start-process:                   Calling Git for Effect.
+                                                              (line 100)
+* magit-stash:                           Stashing.            (line   9)
+* magit-stash-apply:                     Stashing.            (line  52)
+* magit-stash-both:                      Stashing.            (line  14)
+* magit-stash-branch:                    Stashing.            (line 105)
+* magit-stash-branch-here:               Stashing.            (line 110)
+* magit-stash-clear:                     Stashing.            (line 118)
+* magit-stash-drop:                      Stashing.            (line  98)
+* magit-stash-format-patch:              Stashing.            (line 115)
+* magit-stash-index:                     Stashing.            (line  20)
+* magit-stash-keep-index:                Stashing.            (line  30)
+* magit-stash-list:                      Stashing.            (line 121)
+* magit-stash-pop:                       Stashing.            (line  74)
+* magit-stash-show:                      Diffing.             (line  67)
+* magit-stash-show <1>:                  Stashing.            (line 102)
+* magit-stash-worktree:                  Stashing.            (line  24)
+* magit-stashes-maybe-update-stash-buffer: Section Movement.  (line  92)
+* magit-status:                          Status Buffer.       (line  23)
+* magit-status-here:                     Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-status-here <1>:                 Commands for Buffers Visiting Files.
+                                                              (line 166)
+* magit-status-maybe-update-blob-buffer: Section Movement.    (line  87)
+* magit-status-maybe-update-revision-buffer: Section Movement.
+                                                              (line  77)
+* magit-status-maybe-update-stash-buffer: Section Movement.   (line  82)
+* magit-status-quick:                    Status Buffer.       (line  70)
+* magit-submodule:                       Submodule Transient. (line   7)
+* magit-submodule-add:                   Submodule Transient. (line  20)
+* magit-submodule-populate:              Submodule Transient. (line  32)
+* magit-submodule-register:              Submodule Transient. (line  26)
+* magit-submodule-synchronize:           Submodule Transient. (line  40)
+* magit-submodule-unpopulate:            Submodule Transient. (line  45)
+* magit-submodule-update:                Submodule Transient. (line  36)
+* magit-subtree:                         Subtree.             (line   9)
+* magit-subtree-add:                     Subtree.             (line  24)
+* magit-subtree-add-commit:              Subtree.             (line  28)
+* magit-subtree-export:                  Subtree.             (line  37)
+* magit-subtree-import:                  Subtree.             (line  13)
+* magit-subtree-merge:                   Subtree.             (line  31)
+* magit-subtree-pull:                    Subtree.             (line  34)
+* magit-subtree-push:                    Subtree.             (line  48)
+* magit-subtree-split:                   Subtree.             (line  52)
+* magit-switch-to-repository-buffer:     Common Commands.     (line   6)
+* magit-switch-to-repository-buffer-other-frame: Common Commands.
+                                                              (line   8)
+* magit-switch-to-repository-buffer-other-window: Common Commands.
+                                                              (line   7)
+* magit-tag:                             Tagging.             (line   9)
+* magit-tag-create:                      Tagging.             (line  14)
+* magit-tag-delete:                      Tagging.             (line  37)
+* magit-tag-prune:                       Tagging.             (line  43)
+* magit-tag-release:                     Tagging.             (line  18)
+* magit-toggle-buffer-lock:              Modes and Buffers.   (line  18)
+* magit-toggle-git-debug:                Debugging Tools.     (line  29)
+* magit-toggle-margin:                   Refreshing Logs.     (line  34)
+* magit-toggle-margin <1>:               Log Margin.          (line  60)
+* magit-toggle-margin-details:           Log Margin.          (line  66)
+* magit-toggle-verbose-refresh:          Debugging Tools.     (line  52)
+* magit-unstage:                         Staging and Unstaging.
+                                                              (line  42)
+* magit-unstage-all:                     Staging and Unstaging.
+                                                              (line  50)
+* magit-unstage-buffer-file:             Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-unstage-buffer-file <1>:         Commands for Buffers Visiting Files.
+                                                              (line  69)
+* magit-unstage-file:                    Staging from File-Visiting Buffers.
+                                                              (line  18)
+* magit-unstage-file <1>:                Commands for Buffers Visiting Files.
+                                                              (line  52)
+* magit-unstage-file <2>:                Commands for Buffers Visiting Files.
+                                                              (line  69)
+* magit-version:                         Git Executable.      (line  59)
+* magit-version <1>:                     Debugging Tools.     (line  11)
+* magit-visit-ref:                       References Buffer.   (line 159)
+* magit-wip-commit:                      Wip Modes.           (line  85)
+* magit-wip-log:                         Wip Modes.           (line  47)
+* magit-wip-log-current:                 Wip Modes.           (line  55)
+* magit-worktree:                        Worktree.            (line   9)
+* magit-worktree-branch:                 Worktree.            (line  16)
+* magit-worktree-checkout:               Worktree.            (line  13)
+* magit-worktree-delete:                 Worktree.            (line  22)
+* magit-worktree-move:                   Worktree.            (line  19)
+* magit-worktree-status:                 Worktree.            (line  26)
+* scroll-down:                           Commands Available in Diffs.
+                                                              (line  56)
+* scroll-up:                             Commands Available in Diffs.
+                                                              (line  53)
+* with-editor-cancel:                    Editing Commit Messages.
+                                                              (line  22)
+* with-editor-cancel <1>:                Editing Rebase Sequences.
+                                                              (line  11)
+* with-editor-debug:                     Debugging Tools.     (line  64)
+* with-editor-finish:                    Editing Commit Messages.
+                                                              (line  18)
+* with-editor-finish <1>:                Editing Rebase Sequences.
+                                                              (line   7)
+* with-editor-usage-message:             Commit Mode and Hooks.
+                                                              (line  51)
+
+
+File: magit.info,  Node: Variable Index,  Prev: Function and Command Index,  Up: Top
+
+Appendix E Variable Index
+*************************
+
+
+* Menu:
+
+* auto-revert-buffer-list-filter:        Automatic Reverting of File-Visiting Buffers.
+                                                              (line  73)
+* auto-revert-interval:                  Automatic Reverting of File-Visiting Buffers.
+                                                              (line  69)
+* auto-revert-mode:                      Automatic Reverting of File-Visiting Buffers.
+                                                              (line  57)
+* auto-revert-stop-on-user-input:        Automatic Reverting of File-Visiting Buffers.
+                                                              (line  65)
+* auto-revert-use-notify:                Automatic Reverting of File-Visiting Buffers.
+                                                              (line  46)
+* auto-revert-verbose:                   Automatic Reverting of File-Visiting Buffers.
+                                                              (line  94)
+* branch.autoSetupMerge:                 Branch Git Variables.
+                                                              (line  71)
+* branch.autoSetupRebase:                Branch Git Variables.
+                                                              (line  85)
+* branch.NAME.description:               Branch Git Variables.
+                                                              (line  42)
+* branch.NAME.merge:                     Branch Git Variables.
+                                                              (line  10)
+* branch.NAME.pushRemote:                Branch Git Variables.
+                                                              (line  29)
+* branch.NAME.rebase:                    Branch Git Variables.
+                                                              (line  20)
+* branch.NAME.remote:                    Branch Git Variables.
+                                                              (line  15)
+* core.notesRef:                         Notes.               (line  53)
+* git-commit-finish-query-functions:     Commit Message Conventions.
+                                                              (line  18)
+* git-commit-known-pseudo-headers:       Commit Pseudo Headers.
+                                                              (line   9)
+* git-commit-major-mode:                 Commit Mode and Hooks.
+                                                              (line  12)
+* git-commit-post-finish-hook:           Commit Mode and Hooks.
+                                                              (line  54)
+* git-commit-setup-hook:                 Commit Mode and Hooks.
+                                                              (line  21)
+* git-commit-style-convention-checks:    Commit Message Conventions.
+                                                              (line  38)
+* git-commit-summary-max-length:         Commit Message Conventions.
+                                                              (line  13)
+* git-rebase-auto-advance:               Editing Rebase Sequences.
+                                                              (line  80)
+* git-rebase-confirm-cancel:             Editing Rebase Sequences.
+                                                              (line  86)
+* git-rebase-show-instructions:          Editing Rebase Sequences.
+                                                              (line  83)
+* global-auto-revert-mode:               Automatic Reverting of File-Visiting Buffers.
+                                                              (line  21)
+* magit-auto-revert-immediately:         Automatic Reverting of File-Visiting Buffers.
+                                                              (line  30)
+* magit-auto-revert-mode:                Automatic Reverting of File-Visiting Buffers.
+                                                              (line  17)
+* magit-auto-revert-tracked-only:        Automatic Reverting of File-Visiting Buffers.
+                                                              (line  51)
+* magit-bisect-show-graph:               Bisecting.           (line  57)
+* magit-blame-disable-modes:             Blaming.             (line 165)
+* magit-blame-echo-style:                Blaming.             (line 151)
+* magit-blame-goto-chunk-hook:           Blaming.             (line 170)
+* magit-blame-read-only:                 Blaming.             (line 161)
+* magit-blame-styles:                    Blaming.             (line 147)
+* magit-blame-time-format:               Blaming.             (line 157)
+* magit-branch-adjust-remote-upstream-alist: Branch Commands. (line 202)
+* magit-branch-direct-configure:         Branch Commands.     (line  19)
+* magit-branch-prefer-remote-upstream:   Branch Commands.     (line 158)
+* magit-branch-read-upstream-first:      Branch Commands.     (line 153)
+* magit-buffer-name-format:              Naming Buffers.      (line  25)
+* magit-bury-buffer-function:            Quitting Windows.    (line  16)
+* magit-cherry-margin:                   Cherries.            (line  21)
+* magit-clone-always-transient:          Cloning Repository.  (line  12)
+* magit-clone-default-directory:         Cloning Repository.  (line  84)
+* magit-clone-name-alist:                Cloning Repository.  (line  94)
+* magit-clone-set-remote-head:           Cloning Repository.  (line  66)
+* magit-clone-set-remote.pushDefault:    Cloning Repository.  (line  75)
+* magit-clone-url-format:                Cloning Repository.  (line 114)
+* magit-commit-ask-to-stage:             Initiating a Commit. (line  65)
+* magit-commit-diff-inhibit-same-window: Initiating a Commit. (line  97)
+* magit-commit-extend-override-date:     Initiating a Commit. (line  72)
+* magit-commit-reword-override-date:     Initiating a Commit. (line  75)
+* magit-commit-show-diff:                Initiating a Commit. (line  69)
+* magit-commit-squash-confirm:           Initiating a Commit. (line  78)
+* magit-completing-read-function:        Support for Completion Frameworks.
+                                                              (line  27)
+* magit-define-global-key-bindings:      Global Bindings.     (line   6)
+* magit-diff-adjust-tab-width:           Diff Options.        (line  17)
+* magit-diff-buffer-file-locked:         Commands for Buffers Visiting Files.
+                                                              (line 104)
+* magit-diff-extra-stat-arguments:       Diff Options.        (line 112)
+* magit-diff-hide-trailing-cr-characters: Diff Options.       (line  77)
+* magit-diff-highlight-hunk-region-functions: Diff Options.   (line  80)
+* magit-diff-highlight-indentation:      Diff Options.        (line  63)
+* magit-diff-highlight-trailing:         Diff Options.        (line  59)
+* magit-diff-paint-whitespace:           Diff Options.        (line  38)
+* magit-diff-paint-whitespace-lines:     Diff Options.        (line  52)
+* magit-diff-refine-hunk:                Diff Options.        (line   6)
+* magit-diff-refine-ignore-whitespace:   Diff Options.        (line  13)
+* magit-diff-unmarked-lines-keep-foreground: Diff Options.    (line 105)
+* magit-diff-visit-previous-blob:        Visiting Files and Blobs from a Diff.
+                                                              (line  38)
+* magit-direct-use-buffer-arguments:     Transient Arguments and Buffer Variables.
+                                                              (line  73)
+* magit-display-buffer-function:         Switching Buffers.   (line  25)
+* magit-display-buffer-noselect:         Switching Buffers.   (line  17)
+* magit-dwim-selection:                  Completion and Confirmation.
+                                                              (line  42)
+* magit-ediff-dwim-resolve-function:     Ediffing.            (line 105)
+* magit-ediff-dwim-show-on-hunks:        Ediffing.            (line 111)
+* magit-ediff-quit-hook:                 Ediffing.            (line 124)
+* magit-ediff-show-stash-with-index:     Ediffing.            (line 118)
+* magit-generate-buffer-name-function:   Naming Buffers.      (line   6)
+* magit-git-debug:                       Viewing Git Output.  (line  26)
+* magit-git-debug <1>:                   Getting a Value from Git.
+                                                              (line  68)
+* magit-git-executable:                  Git Executable.      (line  26)
+* magit-git-global-arguments:            Global Git Arguments.
+                                                              (line   6)
+* magit-keep-region-overlay:             The Selection.       (line  52)
+* magit-list-refs-sortby:                Additional Completion Options.
+                                                              (line   6)
+* magit-log-auto-more:                   Log Buffer.          (line  69)
+* magit-log-buffer-file-locked:          Commands for Buffers Visiting Files.
+                                                              (line 124)
+* magit-log-margin:                      Log Margin.          (line  12)
+* magit-log-margin-show-committer-date:  Log Margin.          (line  44)
+* magit-log-section-commit-count:        Status Sections.     (line 118)
+* magit-log-select-margin:               Select from Log.     (line  28)
+* magit-log-show-color-graph-limit:      Log Buffer.          (line  78)
+* magit-log-show-refname-after-summary:  Log Buffer.          (line  74)
+* magit-log-show-signatures-limit:       Log Buffer.          (line  84)
+* magit-log-trace-definition-function:   Commands Available in Diffs.
+                                                              (line  17)
+* magit-module-sections-hook:            Status Module Sections.
+                                                              (line  19)
+* magit-module-sections-nested:          Status Module Sections.
+                                                              (line  22)
+* magit-no-confirm:                      Action Confirmation. (line  18)
+* magit-pop-revision-stack-format:       Using the Revision Stack.
+                                                              (line  34)
+* magit-post-clone-hook:                 Cloning Repository.  (line 133)
+* magit-post-commit-hook:                Initiating a Commit. (line  86)
+* magit-post-display-buffer-hook:        Switching Buffers.   (line  85)
+* magit-pre-display-buffer-hook:         Switching Buffers.   (line  76)
+* magit-prefer-remote-upstream:          Branch Git Variables.
+                                                              (line 108)
+* magit-prefix-use-buffer-arguments:     Transient Arguments and Buffer Variables.
+                                                              (line  65)
+* magit-process-extreme-logging:         Viewing Git Output.  (line  56)
+* magit-process-raise-error:             Calling Git for Effect.
+                                                              (line 125)
+* magit-pull-or-fetch:                   Fetching.            (line  52)
+* magit-reflog-margin:                   Reflog.              (line  20)
+* magit-refresh-args:                    Refreshing Buffers.  (line  52)
+* magit-refresh-buffer-hook:             Automatic Refreshing of Magit Buffers.
+                                                              (line  41)
+* magit-refresh-function:                Refreshing Buffers.  (line  47)
+* magit-refresh-status-buffer:           Automatic Refreshing of Magit Buffers.
+                                                              (line  46)
+* magit-refs-filter-alist:               References Buffer.   (line 137)
+* magit-refs-focus-column-width:         References Buffer.   (line  75)
+* magit-refs-margin:                     References Buffer.   (line  89)
+* magit-refs-margin-for-tags:            References Buffer.   (line 112)
+* magit-refs-pad-commit-counts:          References Buffer.   (line  45)
+* magit-refs-primary-column-width:       References Buffer.   (line  63)
+* magit-refs-sections-hook:              References Sections. (line  13)
+* magit-refs-show-commit-count:          References Buffer.   (line  36)
+* magit-refs-show-remote-prefix:         References Buffer.   (line  57)
+* magit-remote-add-set-remote.pushDefault: Remote Commands.   (line  83)
+* magit-remote-direct-configure:         Remote Commands.     (line  20)
+* magit-remote-git-executable:           Git Executable.      (line  32)
+* magit-repolist-columns:                Repository List.     (line  12)
+* magit-repository-directories:          Status Buffer.       (line  57)
+* magit-revision-filter-files-on-follow: Revision Buffer.     (line  55)
+* magit-revision-insert-related-refs:    Revision Buffer.     (line   6)
+* magit-revision-show-gravatars:         Revision Buffer.     (line  15)
+* magit-revision-use-hash-sections:      Revision Buffer.     (line  31)
+* magit-root-section:                    Matching Sections.   (line  81)
+* magit-save-repository-buffers:         Automatic Saving of File-Visiting Buffers.
+                                                              (line  13)
+* magit-section-cache-visibility:        Section Visibility.  (line  95)
+* magit-section-initial-visibility-alist: Section Visibility. (line  79)
+* magit-section-movement-hook:           Section Movement.    (line  41)
+* magit-section-set-visibility-hook:     Section Visibility.  (line 105)
+* magit-section-show-child-count:        Section Options.     (line   9)
+* magit-section-visibility-indicator:    Section Visibility.  (line 122)
+* magit-shell-command-verbose-prompt:    Running Git Manually.
+                                                              (line  43)
+* magit-stashes-margin:                  Stashing.            (line 123)
+* magit-status-headers-hook:             Status Header Sections.
+                                                              (line  17)
+* magit-status-margin:                   Status Options.      (line   6)
+* magit-status-sections-hook:            Status Sections.     (line  10)
+* magit-submodule-list-columns:          Listing Submodules.  (line  20)
+* magit-this-process:                    Calling Git for Effect.
+                                                              (line 121)
+* magit-uniquify-buffer-names:           Naming Buffers.      (line  65)
+* magit-unstage-committed:               Staging and Unstaging.
+                                                              (line  52)
+* magit-update-other-window-delay:       Section Movement.    (line  97)
+* magit-visit-ref-behavior:              References Buffer.   (line 168)
+* magit-wip-after-apply-mode:            Legacy Wip Modes.    (line  18)
+* magit-wip-after-apply-mode-lighter:    Legacy Wip Modes.    (line  54)
+* magit-wip-after-save-local-mode-lighter: Legacy Wip Modes.  (line  51)
+* magit-wip-after-save-mode:             Legacy Wip Modes.    (line  13)
+* magit-wip-before-change-mode:          Legacy Wip Modes.    (line  31)
+* magit-wip-before-change-mode-lighter:  Legacy Wip Modes.    (line  57)
+* magit-wip-initial-backup-mode:         Legacy Wip Modes.    (line  35)
+* magit-wip-initial-backup-mode-lighter: Legacy Wip Modes.    (line  60)
+* magit-wip-merge-branch:                Wip Graph.           (line   6)
+* magit-wip-mode:                        Wip Modes.           (line  30)
+* magit-wip-mode-lighter:                Wip Modes.           (line  98)
+* magit-wip-namespace:                   Wip Modes.           (line  91)
+* notes.displayRef:                      Notes.               (line  57)
+* pull.rebase:                           Branch Git Variables.
+                                                              (line  50)
+* remote.NAME.fetch:                     Remote Git Variables.
+                                                              (line  14)
+* remote.NAME.push:                      Remote Git Variables.
+                                                              (line  23)
+* remote.NAME.pushurl:                   Remote Git Variables.
+                                                              (line  18)
+* remote.NAME.tagOpts:                   Remote Git Variables.
+                                                              (line  27)
+* remote.NAME.url:                       Remote Git Variables.
+                                                              (line  10)
+* remote.pushDefault:                    Branch Git Variables.
+                                                              (line  62)
+
+
+
+Tag Table:
+Node: Top774
+Node: Introduction6559
+Node: Installation11275
+Node: Installing from Melpa11605
+Node: Installing from the Git Repository12680
+Node: Post-Installation Tasks15494
+Node: Getting Started16779
+Node: Interface Concepts22590
+Node: Modes and Buffers22969
+Node: Switching Buffers24680
+Node: Naming Buffers29419
+Node: Quitting Windows32494
+Node: Automatic Refreshing of Magit Buffers34429
+Node: Automatic Saving of File-Visiting Buffers37310
+Node: Automatic Reverting of File-Visiting Buffers38494
+Node: Risk of Reverting Automatically43479
+Node: Sections45861
+Node: Section Movement46787
+Node: Section Visibility51661
+Node: Section Hooks58348
+Node: Section Types and Values60754
+Node: Section Options62169
+Node: Transient Commands62640
+Node: Transient Arguments and Buffer Variables64116
+Node: Completion Confirmation and the Selection71133
+Node: Action Confirmation71579
+Node: Completion and Confirmation80084
+Node: The Selection83269
+Node: The hunk-internal region86167
+Node: Support for Completion Frameworks87256
+Node: Additional Completion Options92141
+Node: Mouse Support92739
+Node: Running Git93315
+Node: Viewing Git Output93560
+Node: Git Process Status96264
+Node: Running Git Manually97229
+Node: Git Executable99919
+Node: Global Git Arguments102927
+Node: Inspecting103732
+Node: Status Buffer104889
+Node: Status Sections109900
+Node: Status Header Sections115627
+Node: Status Module Sections118246
+Node: Status Options120743
+Node: Repository List122106
+Node: Logging126884
+Node: Refreshing Logs129723
+Node: Log Buffer131144
+Node: Log Margin135967
+Node: Select from Log139120
+Node: Reflog141330
+Node: Cherries142967
+Node: Diffing144805
+Node: Refreshing Diffs147839
+Node: Commands Available in Diffs151528
+Node: Diff Options154041
+Node: Revision Buffer159504
+Node: Ediffing162824
+Node: References Buffer168874
+Node: References Sections179468
+Node: Bisecting180325
+Node: Visiting Files and Blobs182636
+Node: General-Purpose Visit Commands183164
+Node: Visiting Files and Blobs from a Diff184117
+Node: Blaming187561
+Node: Manipulating194549
+Node: Creating Repository194891
+Node: Cloning Repository195428
+Node: Staging and Unstaging201869
+Node: Staging from File-Visiting Buffers205842
+Node: Applying206948
+Node: Committing209021
+Node: Initiating a Commit209604
+Node: Editing Commit Messages214794
+Node: Using the Revision Stack217567
+Node: Commit Pseudo Headers220612
+Node: Commit Mode and Hooks221907
+Node: Commit Message Conventions224765
+Node: Branching226752
+Node: The Two Remotes226978
+Node: Branch Commands229631
+Node: Branch Git Variables242481
+Node: Auxiliary Branch Commands247851
+Node: Merging248967
+Node: Resolving Conflicts253123
+Node: Rebasing258497
+Node: Editing Rebase Sequences263286
+Node: Information About In-Progress Rebase267502
+Ref: Information About In-Progress Rebase-Footnote-1276615
+Node: Cherry Picking277211
+Node: Reverting281545
+Node: Resetting282964
+Node: Stashing284790
+Node: Transferring291171
+Node: Remotes291393
+Node: Remote Commands291545
+Node: Remote Git Variables295584
+Node: Fetching296855
+Node: Pulling299338
+Node: Pushing300364
+Node: Plain Patches304655
+Node: Maildir Patches306126
+Node: Miscellaneous307605
+Node: Tagging307951
+Node: Notes309844
+Node: Submodules312179
+Node: Listing Submodules312397
+Node: Submodule Transient314545
+Node: Subtree316990
+Node: Worktree318921
+Node: Sparse checkouts319997
+Node: Bundle322773
+Node: Common Commands323148
+Node: Wip Modes325776
+Node: Wip Graph330667
+Node: Legacy Wip Modes332980
+Node: Commands for Buffers Visiting Files335867
+Node: Minor Mode for Buffers Visiting Blobs344094
+Node: Customizing344892
+Node: Per-Repository Configuration346488
+Node: Essential Settings348742
+Node: Safety349088
+Node: Performance350849
+Ref: Log Performance353812
+Ref: Diff Performance355117
+Ref: Refs Buffer Performance356458
+Ref: Committing Performance357033
+Node: Microsoft Windows Performance358015
+Node: MacOS Performance359206
+Ref: MacOS Performance-Footnote-1360229
+Node: Global Bindings360311
+Node: Plumbing362539
+Node: Calling Git363368
+Node: Getting a Value from Git364893
+Node: Calling Git for Effect368621
+Node: Section Plumbing374515
+Node: Creating Sections374743
+Node: Section Selection378639
+Node: Matching Sections380435
+Node: Refreshing Buffers386356
+Node: Conventions389500
+Node: Theming Faces389692
+Node: FAQ397797
+Node: FAQ - How to ...?398235
+Node: How to pronounce Magit?398592
+Node: How to show git's output?399395
+Node: How to install the gitman info manual?400181
+Node: How to show diffs for gpg-encrypted files?401151
+Node: How does branching and pushing work?401747
+Node: Should I disable VC?402080
+Node: FAQ - Issues and Errors402683
+Node: Magit is slow403628
+Node: I changed several thousand files at once and now Magit is unusable403921
+Node: I am having problems committing404647
+Node: I am using MS Windows and cannot push with Magit405128
+Node: I am using macOS and SOMETHING works in shell but not in Magit405746
+Node: Expanding a file to show the diff causes it to disappear406580
+Node: Point is wrong in the COMMIT_EDITMSG buffer407168
+Node: The mode-line information isn't always up-to-date408216
+Node: A branch and tag sharing the same name breaks SOMETHING409279
+Node: My Git hooks work on the command-line but not inside Magit410166
+Node: git-commit-mode isn't used when committing from the command-line411012
+Node: Point ends up inside invisible text when jumping to a file-visiting buffer413283
+Node: I am no longer able to save popup defaults414132
+Node: Debugging Tools415113
+Node: Keystroke Index418287
+Node: Function and Command Index459901
+Node: Variable Index518102
+
+End Tag Table
+
+
+Local Variables:
+coding: utf-8
+End:
diff --git a/emacs/elpa/magit-section-20241102.1300/magit-section-pkg.el b/emacs/elpa/magit-section-20241102.1300/magit-section-pkg.el
@@ -1,13 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "magit-section" "20241102.1300"
-  "Sections for read-only buffers."
-  '((emacs  "26.1")
-    (compat "30.0.0.0")
-    (dash   "2.19.1")
-    (seq    "2.24"))
-  :url "https://github.com/magit/magit"
-  :commit "4992c3d1f64e0e983692c7a61d47069f47380dbf"
-  :revdesc "4992c3d1f64e"
-  :keywords '("tools")
-  :authors '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))
-  :maintainers '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")))
diff --git a/emacs/elpa/magit-section-20241102.1300/magit-section.el b/emacs/elpa/magit-section-20241102.1300/magit-section.el
@@ -1,2514 +0,0 @@
-;;; magit-section.el --- Sections for read-only buffers  -*- lexical-binding:t; coding:utf-8 -*-
-
-;; Copyright (C) 2008-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
-
-;; Homepage: https://github.com/magit/magit
-;; Keywords: tools
-
-;; Package-Version: 20241102.1300
-;; Package-Revision: 4992c3d1f64e
-;; Package-Requires: (
-;;     (emacs "26.1")
-;;     (compat "30.0.0.0")
-;;     (dash "2.19.1")
-;;     (seq "2.24"))
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; Magit is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published
-;; by the Free Software Foundation, either version 3 of the License,
-;; or (at your option) any later version.
-;;
-;; Magit is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
-
-;; You should have received a copy of the AUTHORS.md file, which
-;; lists all contributors.  If not, see https://magit.vc/authors.
-
-;;; Commentary:
-
-;; This package implements the main user interface of Magit — the
-;; collapsible sections that make up its buffers.  This package used
-;; to be distributed as part of Magit but now it can also be used by
-;; other packages that have nothing to do with Magit or Git.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'compat)
-(require 'dash)
-(require 'eieio)
-(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 "\
-Magit requires `%s' >= %s,
-but due to bad defaults, Emacs' package manager, refuses to
-upgrade this and other built-in packages to higher releases
-from GNU Elpa.
-
-To fix this, you have to add this to your init file:
-
-  (setq package-install-upgrade-built-in t)
-
-Then evaluate that expression by placing the cursor after it
-and typing \\[eval-last-sexp].
-
-Once you have done that, you have to explicitly upgrade `%s':
-
-  \\[package-install] %s \\`RET'
-
-Then you also must make sure the updated version is loaded,
-by evaluating this form:
-
-  (progn (unload-feature \\='%s t) (require \\='%s))
-
-If this does not work, then try uninstalling Magit and all of its
-dependencies.  After that exit and restart Emacs, and only then
-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))
-                   :emergency))
-
-(require 'cursor-sensor)
-(require 'format-spec)
-
-(eval-when-compile (require 'benchmark))
-
-;; For `magit-section-get-relative-position'
-(declare-function magit-hunk-section-p "magit-diff" (section) t)
-
-;;; Hooks
-
-(defvar magit-section-movement-hook nil
-  "Hook run by `magit-section-goto'.
-That function in turn is used by all section movement commands.")
-
-(defvar magit-section-highlight-hook
-  '(magit-section-highlight
-    magit-section-highlight-selection)
-  "Functions used to highlight the current section.
-Each function is run with the current section as only argument
-until one of them returns non-nil.")
-
-(defvar magit-section-unhighlight-hook nil
-  "Functions used to unhighlight the previously current section.
-Each function is run with the current section as only argument
-until one of them returns non-nil.  Most sections are properly
-unhighlighted without requiring a specialized unhighlighter,
-diff-related sections being the only exception.")
-
-(defvar magit-section-set-visibility-hook
-  '(magit-section-cached-visibility)
-  "Hook used to set the initial visibility of a section.
-Stop at the first function that returns non-nil.  The returned
-value should be `show', `hide' or nil.  If no function returns
-non-nil, determine the visibility as usual, i.e., use the
-hardcoded section specific default (see `magit-insert-section').")
-
-;;; Options
-
-(defgroup magit-section nil
-  "Expandable sections."
-  :link '(info-link "(magit)Sections")
-  :group 'extensions)
-
-(defcustom magit-section-show-child-count t
-  "Whether to append the number of children to section headings.
-This only applies to sections for which doing so makes sense."
-  :package-version '(magit-section . "2.1.0")
-  :group 'magit-section
-  :type 'boolean)
-
-(defcustom magit-section-cache-visibility t
-  "Whether to cache visibility of sections.
-
-Sections always retain their visibility state when they are being
-recreated during a refresh.  But if a section disappears and then
-later reappears again, then this option controls whether this is
-the case.
-
-If t, then cache the visibility of all sections.  If a list of
-section types, then only do so for matching sections.  If nil,
-then don't do so for any sections."
-  :package-version '(magit-section . "2.12.0")
-  :group 'magit-section
-  :type '(choice (const  :tag "Don't cache visibility" nil)
-                 (const  :tag "Cache visibility of all sections" t)
-                 (repeat :tag "Cache visibility for section types" symbol)))
-
-(defcustom magit-section-initial-visibility-alist
-  '((stashes . hide))
-  "Alist controlling the initial visibility of sections.
-
-Each element maps a section type or lineage to the initial
-visibility state for such sections.  The state has to be one of
-`show' or `hide', or a function that returns one of these symbols.
-A function is called with the section as the only argument.
-
-Use the command `magit-describe-section' to determine a section's
-lineage or type.  The vector in the output is the section lineage
-and the type is the first element of that vector.  Wildcards can
-be used, see `magit-section-match'.
-
-Currently this option is only used to override hardcoded defaults,
-but in the future it will also be used set the defaults.
-
-An entry whose key is `magit-status-initial-section' specifies
-the visibility of the section `magit-status-goto-initial-section'
-jumps to.  This does not only override defaults, but also other
-entries of this alist."
-  :package-version '(magit-section . "2.12.0")
-  :group 'magit-section
-  :type '(alist :key-type (sexp :tag "Section type/lineage")
-                :value-type (choice (const hide)
-                                    (const show)
-                                    function)))
-
-(defcustom magit-section-visibility-indicator
-  (if (window-system)
-      '(magit-fringe-bitmap> . magit-fringe-bitmapv)
-    (cons (if (char-displayable-p ?…) "…" "...")
-          t))
-  "Whether and how to indicate that a section can be expanded/collapsed.
-
-If nil, then don't show any indicators.
-Otherwise the value has to have one of these two forms:
-
-\(EXPANDABLE-BITMAP . COLLAPSIBLE-BITMAP)
-
-  Both values have to be variables whose values are fringe
-  bitmaps.  In this case every section that can be expanded or
-  collapsed gets an indicator in the left fringe.
-
-  To provide extra padding around the indicator, set
-  `left-fringe-width' in `magit-mode-hook'.
-
-\(STRING . BOOLEAN)
-
-  In this case STRING (usually an ellipsis) is shown at the end
-  of the heading of every collapsed section.  Expanded sections
-  get no indicator.  The cdr controls whether the appearance of
-  these ellipsis take section highlighting into account.  Doing
-  so might potentially have an impact on performance, while not
-  doing so is kinda ugly."
-  :package-version '(magit-section . "3.0.0")
-  :group 'magit-section
-  :type '(choice (const :tag "No indicators" nil)
-                 (cons  :tag "Use +- fringe indicators"
-                        (const magit-fringe-bitmap+)
-                        (const magit-fringe-bitmap-))
-                 (cons  :tag "Use >v fringe indicators"
-                        (const magit-fringe-bitmap>)
-                        (const magit-fringe-bitmapv))
-                 (cons  :tag "Use bold >v fringe indicators)"
-                        (const magit-fringe-bitmap-bold>)
-                        (const magit-fringe-bitmap-boldv))
-                 (cons  :tag "Use custom fringe indicators"
-                        (variable :tag "Expandable bitmap variable")
-                        (variable :tag "Collapsible bitmap variable"))
-                 (cons  :tag "Use ellipses at end of headings"
-                        (string :tag "Ellipsis" "…")
-                        (choice :tag "Use face kludge"
-                                (const :tag "Yes (potentially slow)" t)
-                                (const :tag "No (kinda ugly)" nil)))))
-
-(define-obsolete-variable-alias 'magit-keep-region-overlay
-  'magit-section-keep-region-overlay "Magit-Section 4.0.0")
-
-(defcustom magit-section-keep-region-overlay nil
-  "Whether to keep the region overlay when there is a valid selection.
-
-By default Magit removes the regular region overlay if, and only
-if, that region constitutes a valid selection as understood by
-Magit commands.  Otherwise it does not remove that overlay, and
-the region looks like it would in other buffers.
-
-There are two types of such valid selections: hunk-internal
-regions and regions that select two or more sibling sections.
-In such cases Magit removes the region overlay and instead
-highlights a slightly larger range.  All text (for hunk-internal
-regions) or the headings of all sections (for sibling selections)
-that are inside that range (not just inside the region) are acted
-on by commands such as the staging command.  This buffer range
-begins at the beginning of the line on which the region begins
-and ends at the end of the line on which the region ends.
-
-Because Magit acts on this larger range and not the region, it is
-actually quite important to visualize that larger range.  If we
-don't do that, then one might think that these commands act on
-the region instead.  If you want to *also* visualize the region,
-then set this option to t.  But please note that when the region
-does *not* constitute a valid selection, then the region is
-*always* visualized as usual, and that it is usually under such
-circumstances that you want to use a non-magit command to act on
-the region.
-
-Besides keeping the region overlay, setting this option to t also
-causes all face properties, except for `:foreground', to be
-ignored for the faces used to highlight headings of selected
-sections.  This avoids the worst conflicts that result from
-displaying the region and the selection overlays at the same
-time.  We are not interested in dealing with other conflicts.
-In fact we *already* provide a way to avoid all of these
-conflicts: *not* changing the value of this option.
-
-It should be clear by now that we consider it a mistake to set
-this to display the region when the Magit selection is also
-visualized, but since it has been requested a few times and
-because it doesn't cost much to offer this option we do so.
-However that might change.  If the existence of this option
-starts complicating other things, then it will be removed."
-  :package-version '(magit-section . "2.3.0")
-  :group 'magit-section
-  :type 'boolean)
-
-(defcustom magit-section-disable-line-numbers t
-  "In Magit buffers, whether to disable modes that display line numbers.
-
-Some users who turn on `global-display-line-numbers-mode' (or
-`global-nlinum-mode' or `global-linum-mode') expect line numbers
-to be displayed everywhere except in Magit buffers.  Other users
-do not expect Magit buffers to be treated differently.  At least
-in theory users in the first group should not use the global mode,
-but that ship has sailed, thus this option."
-  :package-version '(magit-section . "3.0.0")
-  :group 'magit-section
-  :type 'boolean)
-
-(defcustom magit-section-show-context-menu-for-emacs<28 nil
-  "Whether `mouse-3' shows a context menu for Emacs < 28.
-
-This has to be set before loading `magit-section' or it has
-no effect.  This also has no effect for Emacs >= 28, where
-`context-menu-mode' should be enabled instead."
-  :package-version '(magit-section . "4.0.0")
-  :group 'magit-section
-  :type 'boolean)
-
-;;; Variables
-
-(defvar-local magit-section-preserve-visibility t)
-
-(defvar-local magit-section-pre-command-region-p nil)
-(defvar-local magit-section-pre-command-section nil)
-(defvar-local magit-section-highlight-force-update nil)
-(defvar-local magit-section-highlight-overlays nil)
-(defvar-local magit-section-highlighted-sections nil)
-(defvar-local magit-section-unhighlight-sections nil)
-
-(defvar-local magit-section-inhibit-markers nil)
-(defvar-local magit-section-insert-in-reverse nil)
-
-;;; Faces
-
-(defgroup magit-section-faces nil
-  "Faces used by Magit-Section."
-  :group 'magit-section
-  :group 'faces)
-
-(defface magit-section-highlight
-  `((((class color) (background light))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :background "grey95")
-    (((class color) (background  dark))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :background "grey20"))
-  "Face for highlighting the current section."
-  :group 'magit-section-faces)
-
-(defface magit-section-heading
-  `((((class color) (background light))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :foreground "DarkGoldenrod4"
-     :weight bold)
-    (((class color) (background  dark))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :foreground "LightGoldenrod2"
-     :weight bold))
-  "Face for section headings."
-  :group 'magit-section-faces)
-
-(defface magit-section-secondary-heading
-  `((t ,@(and (>= emacs-major-version 27) '(:extend t))
-       :weight bold))
-  "Face for section headings of some secondary headings."
-  :group 'magit-section-faces)
-
-(defface magit-section-heading-selection
-  `((((class color) (background light))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :foreground "salmon4")
-    (((class color) (background  dark))
-     ,@(and (>= emacs-major-version 27) '(:extend t))
-     :foreground "LightSalmon3"))
-  "Face for selected section headings."
-  :group 'magit-section-faces)
-
-(defface magit-section-child-count '((t nil))
-  "Face used for child counts at the end of some section headings."
-  :group 'magit-section-faces)
-
-;;; Classes
-
-(defvar magit--current-section-hook nil
-  "Internal variable used for `magit-describe-section'.")
-
-(defvar magit--section-type-alist nil)
-
-(defclass magit-section ()
-  ((type     :initform nil :initarg :type)
-   (keymap   :initform nil)
-   (value    :initform nil)
-   (start    :initform nil)
-   (content  :initform nil)
-   (end      :initform nil)
-   (hidden)
-   (washer   :initform nil :initarg :washer)
-   (inserter :initform (symbol-value 'magit--current-section-hook))
-   (heading-highlight-face :initform nil :initarg :heading-highlight-face)
-   (parent   :initform nil)
-   (children :initform nil)))
-
-;;; Mode
-
-(defvar symbol-overlay-inhibit-map)
-
-(defvar-keymap magit-section-heading-map
-  :doc "Keymap used in the heading line of all expandable sections.
-This keymap is used in addition to the section-specific keymap,
-if any."
-  "<double-down-mouse-1>" #'ignore
-  "<double-mouse-1>" #'magit-mouse-toggle-section
-  "<double-mouse-2>" #'magit-mouse-toggle-section)
-
-(defvar magit-section-mode-map
-  (let ((map (make-keymap)))
-    (suppress-keymap map t)
-    (when (and magit-section-show-context-menu-for-emacs<28
-               (< emacs-major-version 28))
-      (keymap-set map "<mouse-3>" nil)
-      (keymap-set
-       map "<down-mouse-3>"
-       `( menu-item "" ,(make-sparse-keymap)
-          :filter ,(lambda (_)
-                     (let ((menu (make-sparse-keymap)))
-                       (if (fboundp 'context-menu-local)
-                           (context-menu-local menu last-input-event)
-                         (magit--context-menu-local menu last-input-event))
-                       (magit-section-context-menu menu last-input-event)
-                       menu)))))
-    (keymap-set map "<left-fringe> <mouse-1>" #'magit-mouse-toggle-section)
-    (keymap-set map "<left-fringe> <mouse-2>" #'magit-mouse-toggle-section)
-    (keymap-set map "TAB"       #'magit-section-toggle)
-    (keymap-set map "C-c TAB"   #'magit-section-cycle)
-    (keymap-set map "C-<tab>"   #'magit-section-cycle)
-    (keymap-set map "M-<tab>"   #'magit-section-cycle)
-    ;; <backtab> is the most portable binding for Shift+Tab.
-    (keymap-set map "<backtab>" #'magit-section-cycle-global)
-    (keymap-set map   "^" #'magit-section-up)
-    (keymap-set map   "p" #'magit-section-backward)
-    (keymap-set map   "n" #'magit-section-forward)
-    (keymap-set map "M-p" #'magit-section-backward-sibling)
-    (keymap-set map "M-n" #'magit-section-forward-sibling)
-    (keymap-set map   "1" #'magit-section-show-level-1)
-    (keymap-set map   "2" #'magit-section-show-level-2)
-    (keymap-set map   "3" #'magit-section-show-level-3)
-    (keymap-set map   "4" #'magit-section-show-level-4)
-    (keymap-set map "M-1" #'magit-section-show-level-1-all)
-    (keymap-set map "M-2" #'magit-section-show-level-2-all)
-    (keymap-set map "M-3" #'magit-section-show-level-3-all)
-    (keymap-set map "M-4" #'magit-section-show-level-4-all)
-    map)
-  "Parent keymap for all keymaps of modes derived from `magit-section-mode'.")
-
-(define-derived-mode magit-section-mode special-mode "Magit-Sections"
-  "Parent major mode from which major modes with Magit-like sections inherit.
-
-Magit-Section is documented in info node `(magit-section)'."
-  :interactive nil
-  :group 'magit-section
-  (buffer-disable-undo)
-  (setq truncate-lines t)
-  (setq buffer-read-only t)
-  (setq-local line-move-visual t) ; see #1771
-  ;; Turn off syntactic font locking, but not by setting
-  ;; `font-lock-defaults' because that would enable font locking, and
-  ;; not all magit plugins may be ready for that (see #3950).
-  (setq-local font-lock-syntactic-face-function #'ignore)
-  (setq show-trailing-whitespace nil)
-  (setq-local symbol-overlay-inhibit-map t)
-  (setq list-buffers-directory (abbreviate-file-name default-directory))
-  (make-local-variable 'text-property-default-nonsticky)
-  (push (cons 'keymap t) text-property-default-nonsticky)
-  (add-hook 'pre-command-hook #'magit-section-pre-command-hook nil t)
-  (add-hook 'post-command-hook #'magit-section-post-command-hook t t)
-  (add-hook 'deactivate-mark-hook #'magit-section-deactivate-mark t t)
-  (setq-local redisplay-highlight-region-function
-              #'magit-section--highlight-region)
-  (setq-local redisplay-unhighlight-region-function
-              #'magit-section--unhighlight-region)
-  (add-function :filter-return (local 'filter-buffer-substring-function)
-                #'magit-section--remove-text-properties)
-  (when (fboundp 'magit-section-context-menu)
-    (add-hook 'context-menu-functions #'magit-section-context-menu 10 t))
-  (when magit-section-disable-line-numbers
-    (when (and (fboundp 'linum-mode)
-               (bound-and-true-p global-linum-mode))
-      (linum-mode -1))
-    (when (and (fboundp 'nlinum-mode)
-               (bound-and-true-p global-nlinum-mode))
-      (nlinum-mode -1))
-    (when (and (fboundp 'display-line-numbers-mode)
-               (bound-and-true-p global-display-line-numbers-mode))
-      (display-line-numbers-mode -1)))
-  (when (fboundp 'magit-preserve-section-visibility-cache)
-    (add-hook 'kill-buffer-hook #'magit-preserve-section-visibility-cache)))
-
-(defun magit-section--remove-text-properties (string)
-  "Remove all text-properties from STRING.
-Most importantly `magit-section'."
-  (set-text-properties 0 (length string) nil string)
-  string)
-
-;;; Core
-
-(defvar-local magit-root-section nil
-  "The root section in the current buffer.
-All other sections are descendants of this section.  The value
-of this variable is set by `magit-insert-section' and you should
-never modify it.")
-(put 'magit-root-section 'permanent-local t)
-
-(defvar-local magit--context-menu-section nil "For internal use only.")
-
-(defvar magit--context-menu-buffer nil "For internal use only.")
-
-(defun magit-point ()
-  "Return point or the position where the context menu was invoked.
-When using the context menu, return the position the user clicked
-on, provided the current buffer is the buffer in which the click
-occurred.  Otherwise return the same value as `point'."
-  (if magit--context-menu-section
-      (magit-menu-position)
-    (point)))
-
-(defun magit-thing-at-point (thing &optional no-properties)
-  "Return the THING at point or where the context menu was invoked.
-When using the context menu, return the thing the user clicked
-on, provided the current buffer is the buffer in which the click
-occurred.  Otherwise return the same value as `thing-at-point'.
-For the meaning of THING and NO-PROPERTIES see that function."
-  (if-let ((pos (magit-menu-position)))
-      (save-excursion
-        (goto-char pos)
-        (thing-at-point thing no-properties))
-    (thing-at-point thing no-properties)))
-
-(defun magit-current-section ()
-  "Return the section at point or where the context menu was invoked.
-When using the context menu, return the section that the user
-clicked on, provided the current buffer is the buffer in which
-the click occurred.  Otherwise return the section at point."
-  (or magit--context-menu-section
-      (magit-section-at)
-      magit-root-section))
-
-(defun magit-section-at (&optional position)
-  "Return the section at POSITION, defaulting to point."
-  (get-text-property (or position (point)) 'magit-section))
-
-(defun magit-section-ident (section)
-  "Return an unique identifier for SECTION.
-The return value has the form ((TYPE . VALUE)...)."
-  (cons (cons (oref section type)
-              (magit-section-ident-value section))
-        (and-let* ((parent (oref section parent)))
-          (magit-section-ident parent))))
-
-(cl-defgeneric magit-section-ident-value (object)
-  "Return OBJECT's value, making it constant and unique if necessary.
-
-This is used to correlate different incarnations of the same
-section, see `magit-section-ident' and `magit-get-section'.
-
-Sections whose values that are not constant and/or unique should
-implement a method that return a value that can be used for this
-purpose.")
-
-(cl-defmethod magit-section-ident-value ((section magit-section))
-  "Return the value unless it is an object.
-
-Different object incarnations representing the same value tend to not be
-equal, so call this generic function on the object itself to determine a
-constant value."
-  (let ((value (oref section value)))
-    (if (eieio-object-p value)
-        (magit-section-ident-value value)
-      value)))
-
-(cl-defmethod magit-section-ident-value ((object eieio-default-superclass))
-  "Simply return the object itself.  That likely isn't
-good enough, so you need to implement your own method."
-  object)
-
-(defun magit-get-section (ident &optional root)
-  "Return the section identified by IDENT.
-IDENT has to be a list as returned by `magit-section-ident'.
-If optional ROOT is non-nil, then search in that section tree
-instead of in the one whose root `magit-root-section' is."
-  (setq ident (reverse ident))
-  (let ((section (or root magit-root-section)))
-    (when (eq (car (pop ident))
-              (oref section type))
-      (while (and ident
-                  (pcase-let ((`(,type . ,value) (car ident)))
-                    (setq section
-                          (cl-find-if
-                           (lambda (section)
-                             (and (eq (oref section type) type)
-                                  (equal (magit-section-ident-value section)
-                                         value)))
-                           (oref section children)))))
-        (pop ident))
-      section)))
-
-(defun magit-section-lineage (section &optional raw)
-  "Return the lineage of SECTION.
-If optional RAW is non-nil, return a list of section objects, beginning
-with SECTION, otherwise return a list of section types."
-  (cons (if raw section (oref section type))
-        (and-let* ((parent (oref section parent)))
-          (magit-section-lineage parent raw))))
-
-(defvar-local magit-insert-section--current nil "For internal use only.")
-(defvar-local magit-insert-section--parent  nil "For internal use only.")
-(defvar-local magit-insert-section--oldroot nil "For internal use only.")
-
-;;; Menu
-
-(defvar magit-menu-common-value nil "See function `magit-menu-common-value'.")
-(defvar magit-menu--desc-values nil "For internal use only.")
-
-(defun magit-section-context-menu (menu click)
-  "Populate MENU with Magit-Section commands at CLICK."
-  (when-let ((section (save-excursion
-                        (unless (region-active-p)
-                          (mouse-set-point click))
-                        (magit-section-at))))
-    (unless (region-active-p)
-      (setq magit--context-menu-buffer (current-buffer))
-      (if-let ((alt (save-excursion
-                      (mouse-set-point click)
-                      (run-hook-with-args-until-success
-                       'magit-menu-alternative-section-hook section))))
-          (setq magit--context-menu-section (setq section alt))
-        (setq magit--context-menu-section section)
-        (magit-section-update-highlight t)))
-    (when (magit-section-content-p section)
-      (keymap-set-after menu "<magit-section-toggle>"
-        `(menu-item
-          ,(if (oref section hidden) "Expand section" "Collapse section")
-          magit-section-toggle))
-      (when-let (((not (oref section hidden)))
-                 (children (oref section children)))
-        (when (seq-some #'magit-section-content-p children)
-          (when (seq-some (lambda (c) (oref c hidden)) children)
-            (keymap-set-after menu "<magit-section-show-children>"
-              `(menu-item "Expand children"
-                          magit-section-show-children)))
-          (when (seq-some (lambda (c) (not (oref c hidden))) children)
-            (keymap-set-after menu "<magit-section-hide-children>"
-              `(menu-item "Collapse children"
-                          magit-section-hide-children)))))
-      (keymap-set-after menu "<separator-magit-1>" menu-bar-separator))
-    (keymap-set-after menu "<magit-describe-section>"
-      `(menu-item "Describe section" magit-describe-section))
-    (when-let ((map (oref section keymap)))
-      (keymap-set-after menu "<separator-magit-2>" menu-bar-separator)
-      (when (symbolp map)
-        (setq map (symbol-value map)))
-      (setq magit-menu-common-value (magit-menu-common-value section))
-      (setq magit-menu--desc-values (magit-menu--desc-values section))
-      (map-keymap (lambda (key binding)
-                    (when (consp binding)
-                      (define-key-after menu (vector key)
-                        (copy-sequence binding))))
-                  (if (fboundp 'menu-bar-keymap)
-                      (menu-bar-keymap map)
-                    (magit--menu-bar-keymap map)))))
-  menu)
-
-(defun magit-menu-item (desc def &optional props)
-  "Return a menu item named DESC binding DEF and using PROPS.
-
-If DESC contains a supported %-spec, substitute the
-expression (magit-menu-format-desc DESC) for that.
-See `magit-menu-format-desc'."
-  `(menu-item
-    ,(if (and (stringp desc) (string-match-p "%[tTvsmMx]" desc))
-         (list 'magit-menu-format-desc desc)
-       desc)
-    ,def
-    ;; Without this, the keys for point would be shown instead
-    ;; of the relevant ones from where the click occurred.
-    :keys ,(apply-partially #'magit--menu-position-keys def)
-    ,@props))
-
-(defun magit--menu-position-keys (def)
-  (or (ignore-errors
-        (save-excursion
-          (goto-char (magit-menu-position))
-          (and-let* ((key (cl-find-if-not
-                           (lambda (key)
-                             (string-match-p "\\`<[0-9]+>\\'"
-                                             (key-description key)))
-                           (where-is-internal def))))
-            (key-description key))))
-      ""))
-
-(defun magit-menu-position ()
-  "Return the position where the context-menu was invoked.
-If the current command wasn't invoked using the context-menu,
-then return nil."
-  (and magit--context-menu-section
-       (ignore-errors
-         (posn-point (event-start (aref (this-command-keys-vector) 0))))))
-
-(defun magit-menu-highlight-point-section ()
-  (setq magit-section-highlight-force-update t)
-  (if (eq (current-buffer) magit--context-menu-buffer)
-      (setq magit--context-menu-section nil)
-    (if-let ((window (get-buffer-window magit--context-menu-buffer)))
-        (with-selected-window window
-          (setq magit--context-menu-section nil)
-          (magit-section-update-highlight))
-      (with-current-buffer magit--context-menu-buffer
-        (setq magit--context-menu-section nil))))
-  (setq magit--context-menu-buffer nil))
-
-(defvar magit--plural-append-es '(branch))
-
-(cl-defgeneric magit-menu-common-value (_section)
-  "Return some value to be used by multiple menu items.
-This function is called by `magit-section-context-menu', which
-stores the value in `magit-menu-common-value'.  Individual menu
-items can use it, e.g., in the expression used to set their
-description."
-  nil)
-
-(defun magit-menu--desc-values (section)
-  (let ((type (oref section type))
-        (value (oref section value))
-        (multiple (magit-region-sections nil t)))
-    (list type
-          value
-          (format "%s %s" type value)
-          (and multiple (length multiple))
-          (if (memq type magit--plural-append-es) "es" "s"))))
-
-(defun magit-menu-format-desc (format)
-  "Format a string based on FORMAT and menu section or selection.
-The following %-specs are allowed:
-%t means \"TYPE\".
-%T means \"TYPE\", or \"TYPEs\" if multiple sections are selected.
-%v means \"VALUE\".
-%s means \"TYPE VALUE\".
-%m means \"TYPE VALUE\", or \"COUNT TYPEs\" if multiple sections
-   are selected.
-%M means \"VALUE\", or \"COUNT TYPEs\" if multiple sections are
-   selected.
-%x means the value of `magit-menu-common-value'."
-  (pcase-let* ((`(,type ,value ,single ,count ,suffix) magit-menu--desc-values)
-               (multiple (and count (format "%s %s%s" count type suffix))))
-    (format-spec format
-                 `((?t . ,type)
-                   (?T . ,(format "%s%s" type (if count suffix "")))
-                   (?v . ,value)
-                   (?s . ,single)
-                   (?m . ,(or multiple single))
-                   (?M . ,(or multiple value))
-                   (?x . ,(format "%s" magit-menu-common-value))))))
-
-(defun magit--menu-bar-keymap (keymap)
-  "Backport of `menu-bar-keymap' for Emacs < 28.
-Slight trimmed down."
-  (let ((menu-bar nil))
-    (map-keymap (lambda (key binding)
-                  (push (cons key binding) menu-bar))
-                keymap)
-    (cons 'keymap (nreverse menu-bar))))
-
-(defun magit--context-menu-local (menu _click)
-  "Backport of `context-menu-local' for Emacs < 28."
-  (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
-  (keymap-set-after menu "<separator-local>" menu-bar-separator)
-  (let ((keymap (local-key-binding [menu-bar])))
-    (when keymap
-      (map-keymap (lambda (key binding)
-                    (when (consp binding)
-                      (define-key-after menu (vector key)
-                        (copy-sequence binding))))
-                  (magit--menu-bar-keymap keymap))))
-  menu)
-
-(define-advice context-menu-region (:around (fn menu click) magit-section-mode)
-  "Disable in `magit-section-mode' buffers."
-  (if (derived-mode-p 'magit-section-mode)
-      menu
-    (funcall fn menu click)))
-
-;;; Commands
-;;;; Movement
-
-(defun magit-section-forward ()
-  "Move to the beginning of the next visible section."
-  (interactive)
-  (if (eobp)
-      (user-error "No next section")
-    (let ((section (magit-current-section)))
-      (if (oref section parent)
-          (let ((next (and (not (oref section hidden))
-                           (not (= (oref section end)
-                                   (1+ (point))))
-                           (car (oref section children)))))
-            (while (and section (not next))
-              (unless (setq next (car (magit-section-siblings section 'next)))
-                (setq section (oref section parent))))
-            (if next
-                (magit-section-goto next)
-              (user-error "No next section")))
-        (magit-section-goto 1)))))
-
-(defun magit-section-backward ()
-  "Move to the beginning of the current or the previous visible section.
-When point is at the beginning of a section then move to the
-beginning of the previous visible section.  Otherwise move to
-the beginning of the current section."
-  (interactive)
-  (if (bobp)
-      (user-error "No previous section")
-    (let ((section (magit-current-section)) children)
-      (cond
-       ((and (= (point)
-                (1- (oref section end)))
-             (setq children (oref section children)))
-        (magit-section-goto (car (last children))))
-       ((and (oref section parent)
-             (not (= (point)
-                     (oref section start))))
-        (magit-section-goto section))
-       (t
-        (let ((prev (car (magit-section-siblings section 'prev))))
-          (if prev
-              (while (and (not (oref prev hidden))
-                          (setq children (oref prev children)))
-                (setq prev (car (last children))))
-            (setq prev (oref section parent)))
-          (cond (prev
-                 (magit-section-goto prev))
-                ((oref section parent)
-                 (user-error "No previous section"))
-                ;; Eob special cases.
-                ((not (get-text-property (1- (point)) 'invisible))
-                 (magit-section-goto -1))
-                (t
-                 (goto-char (previous-single-property-change
-                             (1- (point)) 'invisible))
-                 (forward-line -1)
-                 (magit-section-goto (magit-current-section))))))))))
-
-(defun magit-section-up ()
-  "Move to the beginning of the parent section."
-  (interactive)
-  (if-let ((parent (oref (magit-current-section) parent)))
-      (magit-section-goto parent)
-    (user-error "No parent section")))
-
-(defun magit-section-forward-sibling ()
-  "Move to the beginning of the next sibling section.
-If there is no next sibling section, then move to the parent."
-  (interactive)
-  (let ((current (magit-current-section)))
-    (if (oref current parent)
-        (if-let ((next (car (magit-section-siblings current 'next))))
-            (magit-section-goto next)
-          (magit-section-forward))
-      (magit-section-goto 1))))
-
-(defun magit-section-backward-sibling ()
-  "Move to the beginning of the previous sibling section.
-If there is no previous sibling section, then move to the parent."
-  (interactive)
-  (let ((current (magit-current-section)))
-    (if (oref current parent)
-        (if-let ((previous (car (magit-section-siblings current 'prev))))
-            (magit-section-goto previous)
-          (magit-section-backward))
-      (magit-section-goto -1))))
-
-(defun magit-section-goto (arg)
-  (if (integerp arg)
-      (progn (forward-line arg)
-             (setq arg (magit-current-section)))
-    (goto-char (oref arg start)))
-  (run-hook-with-args 'magit-section-movement-hook arg))
-
-(defun magit-section-set-window-start (section)
-  "Ensure the beginning of SECTION is visible."
-  (unless (pos-visible-in-window-p (oref section end))
-    (set-window-start (selected-window) (oref section start))))
-
-(defmacro magit-define-section-jumper
-    (name heading type &optional value inserter &rest properties)
-  "Define an interactive function to go some section.
-Together TYPE and VALUE identify the section.
-HEADING is the displayed heading of the section."
-  (declare (indent defun))
-  `(transient-define-suffix ,name (&optional expand)
-     ,(format "Jump to the section \"%s\".
-With a prefix argument also expand it." heading)
-     ,@properties
-     ,@(and (not (plist-member properties :description))
-            (list :description heading))
-     ,@(and inserter
-            `(:if (lambda () (memq ',inserter
-                              (bound-and-true-p magit-status-sections-hook)))))
-     :inapt-if-not (lambda () (magit-get-section
-                          (cons (cons ',type ,value)
-                                (magit-section-ident magit-root-section))))
-     (interactive "P")
-     (if-let ((section (magit-get-section
-                        (cons (cons ',type ,value)
-                              (magit-section-ident magit-root-section)))))
-         (progn (goto-char (oref section start))
-                (when expand
-                  (with-local-quit (magit-section-show section))
-                  (recenter 0)))
-       (message ,(format "Section \"%s\" wasn't found" heading)))))
-
-;;;; Visibility
-
-(defun magit-section-show (section)
-  "Show the body of the current section."
-  (interactive (list (magit-current-section)))
-  (oset section hidden nil)
-  (magit-section--maybe-wash section)
-  (when-let ((beg (oref section content)))
-    (remove-overlays beg (oref section end) 'invisible t))
-  (magit-section-maybe-update-visibility-indicator section)
-  (magit-section-maybe-cache-visibility section)
-  (dolist (child (oref section children))
-    (if (oref child hidden)
-        (magit-section-hide child)
-      (magit-section-show child))))
-
-(defun magit-section--maybe-wash (section)
-  (when-let ((washer (oref section washer)))
-    (oset section washer nil)
-    (let ((inhibit-read-only t)
-          (magit-insert-section--parent section)
-          (magit-insert-section--current section)
-          (content (oref section content)))
-      (save-excursion
-        (if (and content (< content (oref section end)))
-            (funcall washer section) ; already partially washed (hunk)
-          (goto-char (oref section end))
-          (oset section content (point-marker))
-          (funcall washer)
-          (oset section end (point-marker)))))
-    (setq magit-section-highlight-force-update t)))
-
-(defun magit-section-hide (section)
-  "Hide the body of the current section."
-  (interactive (list (magit-current-section)))
-  (if (eq section magit-root-section)
-      (user-error "Cannot hide root section")
-    (oset section hidden t)
-    (when-let ((beg (oref section content)))
-      (let ((end (oref section end)))
-        (when (< beg (point) end)
-          (goto-char (oref section start)))
-        (remove-overlays beg end 'invisible t)
-        (let ((o (make-overlay beg end)))
-          (overlay-put o 'evaporate t)
-          (overlay-put o 'invisible t)
-          (overlay-put o 'cursor-intangible t))))
-    (magit-section-maybe-update-visibility-indicator section)
-    (magit-section-maybe-cache-visibility section)))
-
-(defun magit-section-toggle (section)
-  "Toggle visibility of the body of the current section."
-  (interactive (list (magit-current-section)))
-  (cond ((eq section magit-root-section)
-         (user-error "Cannot hide root section"))
-        ((oref section hidden)
-         (magit-section-show section))
-        ((magit-section-hide section))))
-
-(defun magit-section-toggle-children (section)
-  "Toggle visibility of bodies of children of the current section."
-  (interactive (list (magit-current-section)))
-  (let* ((children (oref section children))
-         (show (--any-p (oref it hidden) children)))
-    (dolist (c children)
-      (oset c hidden show)))
-  (magit-section-show section))
-
-(defun magit-section-show-children (section &optional depth)
-  "Recursively show the bodies of children of the current section.
-With a prefix argument show children that deep and hide deeper
-children."
-  (interactive (list (magit-current-section)))
-  (magit-section-show-children-1 section depth)
-  (magit-section-show section))
-
-(defun magit-section-show-children-1 (section &optional depth)
-  (dolist (child (oref section children))
-    (oset child hidden nil)
-    (if depth
-        (if (> depth 0)
-            (magit-section-show-children-1 child (1- depth))
-          (magit-section-hide child))
-      (magit-section-show-children-1 child))))
-
-(defun magit-section-hide-children (section)
-  "Recursively hide the bodies of children of the current section."
-  (interactive (list (magit-current-section)))
-  (mapc #'magit-section-hide (oref section children)))
-
-(defun magit-section-show-headings (section)
-  "Recursively show headings of children of the current section.
-Only show the headings, previously shown text-only bodies are
-hidden."
-  (interactive (list (magit-current-section)))
-  (magit-section-show-headings-1 section)
-  (magit-section-show section))
-
-(defun magit-section-show-headings-1 (section)
-  (dolist (child (oref section children))
-    (oset child hidden nil)
-    (when (or (oref child children)
-              (not (oref child content)))
-      (magit-section-show-headings-1 child))))
-
-(defun magit-section-cycle (section)
-  "Cycle visibility of current section and its children.
-
-If this command is invoked using \\`C-<tab>' and that is globally bound
-to `tab-next', then this command pivots to behave like that command, and
-you must instead use \\`C-c TAB' to cycle section visibility.
-
-If you would like to keep using \\`C-<tab>' to cycle section visibility
-but also want to use `tab-bar-mode', then you have to prevent that mode
-from using this key and instead bind another key to `tab-next'.  Because
-`tab-bar-mode' does not use a mode map but instead manipulates the
-global map, this involves advising `tab-bar--define-keys'."
-  (interactive (list (magit-current-section)))
-  (cond
-   ((and (equal (this-command-keys) [C-tab])
-         (eq (global-key-binding [C-tab]) 'tab-next)
-         (fboundp 'tab-bar-switch-to-next-tab))
-    (tab-bar-switch-to-next-tab current-prefix-arg))
-   ((oref section hidden)
-    (magit-section-show section)
-    (magit-section-hide-children section))
-   ((let ((children (oref section children)))
-      (cond ((and (--any-p (oref it hidden)   children)
-                  (--any-p (oref it children) children))
-             (magit-section-show-headings section))
-            ((seq-some #'magit-section-hidden-body children)
-             (magit-section-show-children section))
-            ((magit-section-hide section)))))))
-
-(defun magit-section-cycle-global ()
-  "Cycle visibility of all sections in the current buffer."
-  (interactive)
-  (let ((children (oref magit-root-section children)))
-    (cond ((and (--any-p (oref it hidden)   children)
-                (--any-p (oref it children) children))
-           (magit-section-show-headings magit-root-section))
-          ((seq-some #'magit-section-hidden-body children)
-           (magit-section-show-children magit-root-section))
-          (t
-           (mapc #'magit-section-hide children)))))
-
-(defun magit-section-hidden-body (section &optional pred)
-  (if-let ((children (oref section children)))
-      (funcall (or pred #'-any-p) #'magit-section-hidden-body children)
-    (and (oref section content)
-         (oref section hidden))))
-
-(defun magit-section-content-p (section)
-  "Return non-nil if SECTION has content or an unused washer function."
-  (with-slots (content end washer) section
-    (and content (or (not (= content end)) washer))))
-
-(defun magit-section-invisible-p (section)
-  "Return t if the SECTION's body is invisible.
-When the body of an ancestor of SECTION is collapsed then
-SECTION's body (and heading) obviously cannot be visible."
-  (or (oref section hidden)
-      (and-let* ((parent (oref section parent)))
-        (magit-section-invisible-p parent))))
-
-(defun magit-section-show-level (level)
-  "Show surrounding sections up to LEVEL.
-If LEVEL is negative, show up to the absolute value.
-Sections at higher levels are hidden."
-  (if (< level 0)
-      (let ((s (magit-current-section)))
-        (setq level (- level))
-        (while (> (1- (length (magit-section-ident s))) level)
-          (setq s (oref s parent))
-          (goto-char (oref s start)))
-        (magit-section-show-children magit-root-section (1- level)))
-    (cl-do* ((s (magit-current-section)
-                (oref s parent))
-             (i (1- (length (magit-section-ident s)))
-                (cl-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)))))
-
-(defun magit-section-show-level-1 ()
-  "Show surrounding sections on first level."
-  (interactive)
-  (magit-section-show-level 1))
-
-(defun magit-section-show-level-1-all ()
-  "Show all sections on first level."
-  (interactive)
-  (magit-section-show-level -1))
-
-(defun magit-section-show-level-2 ()
-  "Show surrounding sections up to second level."
-  (interactive)
-  (magit-section-show-level 2))
-
-(defun magit-section-show-level-2-all ()
-  "Show all sections up to second level."
-  (interactive)
-  (magit-section-show-level -2))
-
-(defun magit-section-show-level-3 ()
-  "Show surrounding sections up to third level."
-  (interactive)
-  (magit-section-show-level 3))
-
-(defun magit-section-show-level-3-all ()
-  "Show all sections up to third level."
-  (interactive)
-  (magit-section-show-level -3))
-
-(defun magit-section-show-level-4 ()
-  "Show surrounding sections up to fourth level."
-  (interactive)
-  (magit-section-show-level 4))
-
-(defun magit-section-show-level-4-all ()
-  "Show all sections up to fourth level."
-  (interactive)
-  (magit-section-show-level -4))
-
-(defun magit-mouse-toggle-section (event)
-  "Toggle visibility of the clicked section.
-Clicks outside either the section heading or the left fringe are
-silently ignored."
-  (interactive "e")
-  (let* ((pos (event-start event))
-         (section (magit-section-at (posn-point pos))))
-    (if (eq (posn-area pos) 'left-fringe)
-        (when section
-          (while (not (magit-section-content-p section))
-            (setq section (oref section parent)))
-          (unless (eq section magit-root-section)
-            (goto-char (oref section start))
-            (magit-section-toggle section)))
-      (magit-section-toggle section))))
-
-;;;; Auxiliary
-
-(defun magit-describe-section-briefly (section &optional ident interactive)
-  "Show information about the section at point.
-With a prefix argument show the section identity instead of the
-section lineage.  This command is intended for debugging purposes.
-\n(fn SECTION &optional IDENT)"
-  (interactive (list (magit-current-section) current-prefix-arg t))
-  (let ((str (format "#<%s %S %S %s-%s%s>"
-                     (eieio-object-class section)
-                     (let ((val (oref section value)))
-                       (cond ((stringp val)
-                              (substring-no-properties val))
-                             ((and (eieio-object-p val)
-                                   (fboundp 'cl-prin1-to-string))
-                              (cl-prin1-to-string val))
-                             (t
-                              val)))
-                     (if ident
-                         (magit-section-ident section)
-                       (apply #'vector (magit-section-lineage section)))
-                     (and-let* ((m (oref section start)))
-                       (if (markerp m) (marker-position m) m))
-                     (if-let ((m (oref section content)))
-                         (format "[%s-]"
-                                 (if (markerp m) (marker-position m) m))
-                       "")
-                     (and-let* ((m (oref section end)))
-                       (if (markerp m) (marker-position m) m)))))
-    (when interactive
-      (message "%s" str))
-    str))
-
-(cl-defmethod cl-print-object ((section magit-section) stream)
-  "Print `magit-describe-section' result of SECTION."
-  ;; Used by debug and edebug as of Emacs 26.
-  (princ (magit-describe-section-briefly section) stream))
-
-(defun magit-describe-section (section &optional interactive-p)
-  "Show information about the section at point."
-  (interactive (list (magit-current-section) t))
-  (let ((inserter-section section))
-    (while (and inserter-section (not (oref inserter-section inserter)))
-      (setq inserter-section (oref inserter-section parent)))
-    (when (and inserter-section (oref inserter-section inserter))
-      (setq section inserter-section)))
-  (pcase (oref section inserter)
-    (`((,hook ,fun) . ,src-src)
-     (help-setup-xref `(magit-describe-section ,section) interactive-p)
-     (with-help-window (help-buffer)
-       (with-current-buffer standard-output
-         (insert (format-message
-                  "%s\n  is inserted by `%s'\n  from `%s'"
-                  (magit-describe-section-briefly section)
-                  (make-text-button (symbol-name fun) nil
-                                    :type 'help-function
-                                    'help-args (list fun))
-                  (make-text-button (symbol-name hook) nil
-                                    :type 'help-variable
-                                    'help-args (list hook))))
-         (pcase-dolist (`(,hook ,fun) src-src)
-           (insert (format-message
-                    ",\n  called by `%s'\n  from `%s'"
-                    (make-text-button (symbol-name fun) nil
-                                      :type 'help-function
-                                      'help-args (list fun))
-                    (make-text-button (symbol-name hook) nil
-                                      :type 'help-variable
-                                      'help-args (list hook)))))
-         (insert ".\n\n")
-         (insert
-          (format-message
-           "`%s' is "
-           (make-text-button (symbol-name fun) nil
-                             :type 'help-function 'help-args (list fun))))
-         (describe-function-1 fun))))
-    (_ (message "%s, inserter unknown"
-                (magit-describe-section-briefly section)))))
-
-;;; Match
-
-(cl-defun magit-section-match
-    (condition &optional (section (magit-current-section)))
-  "Return t if SECTION matches CONDITION.
-
-SECTION defaults to the section at point.  If SECTION is not
-specified and there also is no section at point, then return
-nil.
-
-CONDITION can take the following forms:
-  (CONDITION...)  matches if any of the CONDITIONs matches.
-  [CLASS...]      matches if the section's class is the same
-                  as the first CLASS or a subclass of that;
-                  the section's parent class matches the
-                  second CLASS; and so on.
-  [* CLASS...]    matches sections that match [CLASS...] and
-                  also recursively all their child sections.
-  CLASS           matches if the section's class is the same
-                  as CLASS or a subclass of that; regardless
-                  of the classes of the parent sections.
-
-Each CLASS should be a class symbol, identifying a class that
-derives from `magit-section'.  For backward compatibility CLASS
-can also be a \"type symbol\".  A section matches such a symbol
-if the value of its `type' slot is `eq'.  If a type symbol has
-an entry in `magit--section-type-alist', then a section also
-matches that type if its class is a subclass of the class that
-corresponds to the type as per that alist.
-
-Note that it is not necessary to specify the complete section
-lineage as printed by `magit-describe-section-briefly', unless
-of course you want to be that precise."
-  (and section (magit-section-match-1 condition section)))
-
-(defun magit-section-match-1 (condition section)
-  (cl-assert condition)
-  (and section
-       (if (listp condition)
-           (--first (magit-section-match-1 it section) condition)
-         (magit-section-match-2 (if (symbolp condition)
-                                    (list condition)
-                                  (cl-coerce condition 'list))
-                                section))))
-
-(defun magit-section-match-2 (condition section)
-  (if (eq (car condition) '*)
-      (or (magit-section-match-2 (cdr condition) section)
-          (and-let* ((parent (oref section parent)))
-            (magit-section-match-2 condition parent)))
-    (and (let ((c (car condition)))
-           (if (class-p c)
-               (cl-typep section c)
-             (if-let ((class (cdr (assq c magit--section-type-alist))))
-                 (cl-typep section class)
-               (eq (oref section type) c))))
-         (or (not (setq condition (cdr condition)))
-             (and-let* ((parent (oref section parent)))
-               (magit-section-match-2 condition parent))))))
-
-(defun magit-section-value-if (condition &optional section)
-  "If the section at point matches CONDITION, then return its value.
-
-If optional SECTION is non-nil then test whether that matches
-instead.  If there is no section at point and SECTION is nil,
-then return nil.  If the section does not match, then return
-nil.
-
-See `magit-section-match' for the forms CONDITION can take."
-  (and-let* ((section (or section (magit-current-section))))
-    (and (magit-section-match condition section)
-         (oref section value))))
-
-(defmacro magit-section-case (&rest clauses)
-  "Choose among clauses on the type of the section at point.
-
-Each clause looks like (CONDITION BODY...).  The type of the
-section is compared against each CONDITION; the BODY forms of the
-first match are evaluated sequentially and the value of the last
-form is returned.  Inside BODY the symbol `it' is bound to the
-section at point.  If no clause succeeds or if there is no
-section at point, return nil.
-
-See `magit-section-match' for the forms CONDITION can take.
-Additionally a CONDITION of t is allowed in the final clause, and
-matches if no other CONDITION match, even if there is no section
-at point."
-  (declare (indent 0)
-           (debug (&rest (sexp body))))
-  `(let* ((it (magit-current-section)))
-     (cond ,@(mapcar (lambda (clause)
-                       `(,(or (eq (car clause) t)
-                              `(and it
-                                    (magit-section-match-1 ',(car clause) it)))
-                         ,@(cdr clause)))
-                     clauses))))
-
-(defun magit-section-match-assoc (section alist)
-  "Return the value associated with SECTION's type or lineage in ALIST."
-  (seq-some (pcase-lambda (`(,key . ,val))
-              (and (magit-section-match-1 key section) val))
-            alist))
-
-;;; Create
-
-(defvar magit-insert-section-hook nil
-  "Hook run after `magit-insert-section's BODY.
-Avoid using this hook and only ever do so if you know
-what you are doing and are sure there is no other way.")
-
-(defmacro magit-insert-section (&rest args)
-  "Insert a section at point.
-
-Create a section object of type CLASS, storing VALUE in its
-`value' slot, and insert the section at point.  CLASS is a
-subclass of `magit-section' or has the form `(eval FORM)', in
-which case FORM is evaluated at runtime and should return a
-subclass.  In other places a sections class is often referred
-to as its \"type\".
-
-Many commands behave differently depending on the class of the
-current section and sections of a certain class can have their
-own keymap, which is specified using the `keymap' class slot.
-The value of that slot should be a variable whose value is a
-keymap.
-
-For historic reasons Magit and Forge in most cases use symbols
-as CLASS that don't actually identify a class and that lack the
-appropriate package prefix.  This works due to some undocumented
-kludges, which are not available to other packages.
-
-When optional HIDE is non-nil collapse the section body by
-default, i.e., when first creating the section, but not when
-refreshing the buffer.  Else expand it by default.  This can be
-overwritten using `magit-section-set-visibility-hook'.  When a
-section is recreated during a refresh, then the visibility of
-predecessor is inherited and HIDE is ignored (but the hook is
-still honored).
-
-BODY is any number of forms that actually insert the section's
-heading and body.  Optional NAME, if specified, has to be a
-symbol, which is then bound to the object of the section being
-inserted.
-
-Before BODY is evaluated the `start' of the section object is set
-to the value of `point' and after BODY was evaluated its `end' is
-set to the new value of `point'; BODY is responsible for moving
-`point' forward.
-
-If it turns out inside BODY that the section is empty, then
-`magit-cancel-section' can be used to abort and remove all traces
-of the partially inserted section.  This can happen when creating
-a section by washing Git's output and Git didn't actually output
-anything this time around.
-
-\(fn [NAME] (CLASS &optional VALUE HIDE) &rest BODY)"
-  (declare (indent 1)
-           (debug ([&optional symbolp]
-                   (&or [("eval" form) &optional form form &rest form]
-                        [symbolp &optional form form &rest form])
-                   body)))
-  (pcase-let* ((bind (and (symbolp (car args))
-                          (pop args)))
-               (`((,class ,value ,hide . ,args) . ,body) args)
-               (obj (cl-gensym "section")))
-    `(let* ((,obj (magit-insert-section--create
-                   ,(if (eq (car-safe class) 'eval) (cadr class) `',class)
-                   ,value ,hide ,@args))
-            (magit-insert-section--current ,obj)
-            (magit-insert-section--oldroot
-             (or magit-insert-section--oldroot
-                 (and (not magit-insert-section--parent)
-                      (prog1 magit-root-section
-                        (setq magit-root-section ,obj)))))
-            (magit-insert-section--parent ,obj))
-       (catch 'cancel-section
-         ,@(if bind `((let ((,bind ,obj)) ,@body)) body)
-         (magit-insert-section--finish ,obj))
-       ,obj)))
-
-(defun magit-insert-section--create (class value hide &rest args)
-  (let (type)
-    (if (class-p class)
-        (setq type (or (car (rassq class magit--section-type-alist))
-                       class))
-      (setq type class)
-      (setq class (or (cdr (assq class magit--section-type-alist))
-                      'magit-section)))
-    (let ((obj (apply class :type type args)))
-      (oset obj value value)
-      (oset obj parent magit-insert-section--parent)
-      (oset obj start (if magit-section-inhibit-markers (point) (point-marker)))
-      (unless (slot-boundp obj 'hidden)
-        (oset obj hidden
-              (let (set old)
-                (cond
-                 ((setq set (run-hook-with-args-until-success
-                             'magit-section-set-visibility-hook obj))
-                  (eq set 'hide))
-                 ((setq old (and (not magit-section-preserve-visibility)
-                                 magit-insert-section--oldroot
-                                 (magit-get-section
-                                  (magit-section-ident obj)
-                                  magit-insert-section--oldroot)))
-                  (oref old hidden))
-                 ((setq set (magit-section-match-assoc
-                             obj magit-section-initial-visibility-alist))
-                  (eq (if (functionp set) (funcall set obj) set) 'hide))
-                 (hide)))))
-      (unless (oref obj keymap)
-        (let ((type (oref obj type)))
-          (oset obj keymap
-                (or (let ((sym (intern (format "magit-%s-section-map" type))))
-                      (and (boundp sym) sym))
-                    (let ((sym (intern (format "forge-%s-section-map" type))))
-                      (and (boundp sym) sym))))))
-      obj)))
-
-(defun magit-insert-section--finish (obj)
-  (run-hooks 'magit-insert-section-hook)
-  (let ((beg (oref obj start))
-        (end (oset obj end
-                   (if magit-section-inhibit-markers
-                       (point)
-                     (point-marker))))
-        (props `( magit-section ,obj
-                  ,@(and-let* ((map (symbol-value (oref obj keymap))))
-                      (list 'keymap map)))))
-    (unless magit-section-inhibit-markers
-      (set-marker-insertion-type beg t))
-    (cond ((eq obj magit-root-section))
-          ((oref obj children)
-           (magit-insert-child-count obj)
-           (magit-section-maybe-add-heading-map obj)
-           (save-excursion
-             (goto-char beg)
-             (while (< (point) end)
-               (let ((next (or (next-single-property-change
-                                (point) 'magit-section)
-                               end)))
-                 (unless (magit-section-at)
-                   (add-text-properties (point) next props))
-                 (goto-char next)))))
-          ((add-text-properties beg end props)))
-    (cond ((eq obj magit-root-section)
-           (when (eq magit-section-inhibit-markers 'delay)
-             (setq magit-section-inhibit-markers nil)
-             (magit-map-sections
-              (lambda (section)
-                (oset section start (copy-marker (oref section start) t))
-                (oset section end   (copy-marker (oref section end)   t)))))
-           (let ((magit-section-cache-visibility nil))
-             (magit-section-show obj)))
-          (magit-section-insert-in-reverse
-           (push obj (oref (oref obj parent) children)))
-          ((let ((parent (oref obj parent)))
-             (oset parent children
-                   (nconc (oref parent children)
-                          (list obj))))))
-    (when magit-section-insert-in-reverse
-      (oset obj children (nreverse (oref obj children))))))
-
-(defun magit-cancel-section (&optional if-empty)
-  "Cancel inserting the section that is currently being inserted.
-
-Canceling returns from the inner most use of `magit-insert-section' and
-removes all text that was inserted by that.
-
-If optional IF-EMPTY is non-nil, then only cancel the section, if it is
-empty.  If a section is split into a heading and a body (i.e., when its
-`content' slot is non-nil), then only check if the body is empty."
-  (when (and magit-insert-section--current
-             (or (not if-empty)
-                 (= (point) (or (oref magit-insert-section--current content)
-                                (oref magit-insert-section--current start)))))
-    (if (eq magit-insert-section--current magit-root-section)
-        (insert "(empty)\n")
-      (delete-region (oref magit-insert-section--current start)
-                     (point))
-      (setq magit-insert-section--current nil)
-      (throw 'cancel-section nil))))
-
-(defun magit-insert-heading (&rest args)
-  "Insert the heading for the section currently being inserted.
-
-This function should only be used inside `magit-insert-section'.
-
-When called without any arguments, then just set the `content'
-slot of the object representing the section being inserted to
-a marker at `point'.  The section should only contain a single
-line when this function is used like this.
-
-When called with arguments ARGS, which have to be strings, or
-nil, then insert those strings at point.  The section should not
-contain any text before this happens and afterwards it should
-again only contain a single line.  If the `face' property is set
-anywhere inside any of these strings, then insert all of them
-unchanged.  Otherwise use the `magit-section-heading' face for
-all inserted text.
-
-The `content' property of the section object is the end of the
-heading (which lasts from `start' to `content') and the beginning
-of the the body (which lasts from `content' to `end').  If the
-value of `content' is nil, then the section has no heading and
-its body cannot be collapsed.  If a section does have a heading,
-then its height must be exactly one line, including a trailing
-newline character.  This isn't enforced, you are responsible for
-getting it right.  The only exception is that this function does
-insert a newline character if necessary
-
-If provided, optional CHILD-COUNT must evaluate to an integer or
-boolean.  If t, then the count is determined once the children have been
-inserted, using `magit-insert-child-count' (which see).  For historic
-reasons, if the heading ends with \":\", the count is substituted for
-that, at this time as well.  If `magit-section-show-child-count' is nil,
-no counts are inserted
-
-\n(fn [CHILD-COUNT] &rest STRINGS)"
-  (declare (indent defun))
-  (when args
-    (let ((count (and (or (integerp (car args))
-                          (booleanp (car args)))
-                      (pop args)))
-          (heading (apply #'concat args)))
-      (insert (if (or (text-property-not-all 0 (length heading)
-                                             'font-lock-face nil heading)
-                      (text-property-not-all 0 (length heading)
-                                             'face nil heading))
-                  heading
-                (propertize heading 'font-lock-face 'magit-section-heading)))
-      (when (and count magit-section-show-child-count)
-        (insert (propertize (format " (%s)" count)
-                            'font-lock-face 'magit-section-child-count)))))
-  (unless (bolp)
-    (insert ?\n))
-  (when (fboundp 'magit-maybe-make-margin-overlay)
-    (magit-maybe-make-margin-overlay))
-  (oset magit-insert-section--current content
-        (if magit-section-inhibit-markers (point) (point-marker))))
-
-(defmacro magit-insert-section-body (&rest body)
-  "Use BODY to insert the section body, once the section is expanded.
-If the section is expanded when it is created, then this is
-like `progn'.  Otherwise BODY isn't evaluated until the section
-is explicitly expanded."
-  (declare (indent 0))
-  (let ((f (cl-gensym))
-        (s (cl-gensym))
-        (l (cl-gensym)))
-    `(let ((,f (lambda () ,@body)))
-       (if (oref magit-insert-section--current hidden)
-           (oset magit-insert-section--current washer
-                 (let ((,s magit-insert-section--current))
-                   (lambda ()
-                     (let ((,l (magit-section-lineage ,s t)))
-                       (dolist (s ,l)
-                         (set-marker-insertion-type (oref s end) t))
-                       (funcall ,f)
-                       (dolist (s ,l)
-                         (set-marker-insertion-type (oref s end) nil))
-                       (magit-section-maybe-remove-heading-map ,s)
-                       (magit-section-maybe-remove-visibility-indicator ,s)))))
-         (funcall ,f)))))
-
-(defun magit-insert-headers (hook)
-  (let* ((header-sections nil)
-         (fn (lambda () (push magit-insert-section--current header-sections))))
-    (unwind-protect
-        (progn
-          (add-hook 'magit-insert-section-hook fn -90 t)
-          (magit-run-section-hook hook)
-          (when header-sections
-            (insert "\n")
-            ;; Make the first header into the parent of the rest.
-            (when (cdr header-sections)
-              (setq header-sections (nreverse header-sections))
-              (let* ((1st-header (pop header-sections))
-                     (header-parent (oref 1st-header parent)))
-                (oset header-parent children (list 1st-header))
-                (oset 1st-header children header-sections)
-                (oset 1st-header content (oref (car header-sections) start))
-                (oset 1st-header end (oref (car (last header-sections)) end))
-                (dolist (sub-header header-sections)
-                  (oset sub-header parent 1st-header))
-                (magit-section-maybe-add-heading-map 1st-header)))))
-      (remove-hook 'magit-insert-section-hook fn t))))
-
-(defun magit-section-maybe-add-heading-map (section)
-  (when (magit-section-content-p section)
-    (let ((start (oref section start))
-          (map (oref section keymap)))
-      (when (symbolp map)
-        (setq map (symbol-value map)))
-      (put-text-property
-       start
-       (save-excursion
-         (goto-char start)
-         (line-end-position))
-       'keymap (if map
-                   (make-composed-keymap
-                    (list map magit-section-heading-map))
-                 magit-section-heading-map)))))
-
-(defun magit-section-maybe-remove-heading-map (section)
-  (with-slots (start content end keymap) section
-    (when (= content end)
-      (put-text-property start end 'keymap
-                         (if (symbolp keymap) (symbol-value keymap) keymap)))))
-
-(defun magit-insert-child-count (section)
-  "Modify SECTION's heading to contain number of child sections.
-
-If `magit-section-show-child-count' is non-nil and the SECTION
-has children and its heading ends with \":\", then replace that
-with \" (N)\", where N is the number of child sections.
-
-This function is called by `magit-insert-section' after that has
-evaluated its BODY.  Admittedly that's a bit of a hack."
-  (let (content count)
-    (cond
-     ((not (and magit-section-show-child-count
-                (setq content (oref section content))
-                (setq count (length (oref section children)))
-                (> count 0))))
-     ((eq (char-before (- content 1)) ?:)
-      (save-excursion
-        (goto-char (- content 2))
-        (insert (magit--propertize-face (format " (%s)" count)
-                                        'magit-section-child-count))
-        (delete-char 1)))
-     ((and (eq (char-before (- content 4)) ?\s)
-           (eq (char-before (- content 3)) ?\()
-           (eq (char-before (- content 2)) ?t )
-           (eq (char-before (- content 1)) ?\)))
-      (save-excursion
-        (goto-char (- content 3))
-        (delete-char 1)
-        (insert (format "%s" count)))))))
-
-;;; Highlight
-
-(defun magit-section-pre-command-hook ()
-  (when (and (or magit--context-menu-buffer
-                 magit--context-menu-section)
-             (not (eq (ignore-errors
-                        (event-basic-type (aref (this-command-keys) 0)))
-                      'mouse-3)))
-    ;; This is the earliest opportunity to clean up after an aborted
-    ;; context-menu because that neither causes the command that created
-    ;; the menu to abort nor some abortion hook to be run.  It is not
-    ;; possible to update highlighting before the first command invoked
-    ;; after the menu is aborted.  Here we can only make sure it is
-    ;; updated afterwards.
-    (magit-menu-highlight-point-section))
-  (setq magit-section-pre-command-region-p (region-active-p))
-  (setq magit-section-pre-command-section (magit-current-section)))
-
-(defun magit-section-post-command-hook ()
-  (let ((window (selected-window)))
-    ;; The command may have used `set-window-buffer' to change
-    ;; the window's buffer without changing the current buffer.
-    (when (eq (current-buffer) (window-buffer window))
-      (cursor-sensor-move-to-tangible window)
-      (when (or magit--context-menu-buffer
-                magit--context-menu-section)
-        (magit-menu-highlight-point-section))))
-  (unless (memq this-command '(magit-refresh magit-refresh-all))
-    (magit-section-update-highlight)))
-
-(defun magit-section-deactivate-mark ()
-  (setq magit-section-highlight-force-update t))
-
-(defun magit-section-update-highlight (&optional force)
-  (let ((section (magit-current-section)))
-    (when (or force
-              magit-section-highlight-force-update
-              (xor magit-section-pre-command-region-p (region-active-p))
-              (not (eq magit-section-pre-command-section section)))
-      (let ((inhibit-read-only t)
-            (deactivate-mark nil)
-            (selection (magit-region-sections)))
-        (mapc #'delete-overlay magit-section-highlight-overlays)
-        (setq magit-section-highlight-overlays nil)
-        (setq magit-section-unhighlight-sections
-              magit-section-highlighted-sections)
-        (setq magit-section-highlighted-sections nil)
-        (if (and (fboundp 'long-line-optimizations-p)
-                 (long-line-optimizations-p))
-            (magit-section--enable-long-lines-shortcuts)
-          (unless (eq section magit-root-section)
-            (run-hook-with-args-until-success
-             'magit-section-highlight-hook section selection))
-          (dolist (s magit-section-unhighlight-sections)
-            (run-hook-with-args-until-success
-             'magit-section-unhighlight-hook s selection)))
-        (restore-buffer-modified-p nil)))
-    (setq magit-section-highlight-force-update nil)
-    (magit-section-maybe-paint-visibility-ellipses)))
-
-(defun magit-section-highlight (section selection)
-  "Highlight SECTION and if non-nil all sections in SELECTION.
-This function works for any section but produces undesirable
-effects for diff related sections, which by default are
-highlighted using `magit-diff-highlight'.  Return t."
-  (when-let ((face (oref section heading-highlight-face)))
-    (dolist (section (or selection (list section)))
-      (magit-section-make-overlay
-       (oref section start)
-       (or (oref section content)
-           (oref section end))
-       face)))
-  (cond (selection
-         (magit-section-make-overlay (oref (car selection) start)
-                                     (oref (car (last selection)) end)
-                                     'magit-section-highlight)
-         (magit-section-highlight-selection nil selection))
-        (t
-         (magit-section-make-overlay (oref section start)
-                                     (oref section end)
-                                     'magit-section-highlight)))
-  t)
-
-(defun magit-section-highlight-selection (_ selection)
-  "Highlight the section-selection region.
-If SELECTION is non-nil, then it is a list of sections selected by
-the region.  The headings of these sections are then highlighted.
-
-This is a fallback for people who don't want to highlight the
-current section and therefore removed `magit-section-highlight'
-from `magit-section-highlight-hook'.
-
-This function is necessary to ensure that a representation of
-such a region is visible.  If neither of these functions were
-part of the hook variable, then such a region would be
-invisible."
-  (when (and selection
-             (not (and (eq this-command 'mouse-drag-region))))
-    (dolist (section selection)
-      (magit-section-make-overlay (oref section start)
-                                  (or (oref section content)
-                                      (oref section end))
-                                  'magit-section-heading-selection))
-    t))
-
-(defun magit-section-make-overlay (start end face)
-  ;; Yes, this doesn't belong here.  But the alternative of
-  ;; spreading this hack across the code base is even worse.
-  (when (and magit-section-keep-region-overlay
-             (memq face '(magit-section-heading-selection
-                          magit-diff-file-heading-selection
-                          magit-diff-hunk-heading-selection)))
-    (setq face (list :foreground (face-foreground face))))
-  (let ((ov (make-overlay start end nil t)))
-    (overlay-put ov 'font-lock-face face)
-    (overlay-put ov 'evaporate t)
-    (push ov magit-section-highlight-overlays)
-    ov))
-
-(defvar magit-show-long-lines-warning t)
-
-(defun magit-section--enable-long-lines-shortcuts ()
-  (message "Enabling long lines shortcuts in %S" (current-buffer))
-  (kill-local-variable 'redisplay-highlight-region-function)
-  (kill-local-variable 'redisplay-unhighlight-region-function)
-  (when magit-show-long-lines-warning
-    (setq magit-show-long-lines-warning nil)
-    (display-warning 'magit (format "\
-Emacs has enabled redisplay shortcuts
-in this buffer because there are lines whose length go beyond
-`long-line-threshold' \(%s characters).  As a result, section
-highlighting and the special appearance of the region has been
-disabled.  Some existing highlighting might remain in effect.
-
-These shortcuts remain enabled, even once there no longer are
-any long lines in this buffer.  To disable them again, kill
-and recreate the buffer.
-
-This message won't be shown for this session again.  To disable
-it for all future sessions, set `magit-show-long-lines-warning'
-to nil." (bound-and-true-p long-line-threshold)) :warning)))
-
-(cl-defgeneric magit-section-get-relative-position (section))
-
-(cl-defmethod magit-section-get-relative-position ((section magit-section))
-  (let ((start (oref section start))
-        (point (magit-point)))
-    (list (- (line-number-at-pos point)
-             (line-number-at-pos start))
-          (- point (line-beginning-position)))))
-
-(cl-defgeneric magit-section-goto-successor ())
-
-(cl-defmethod magit-section-goto-successor ((section magit-section)
-                                            line char &optional _arg)
-  (or (magit-section-goto-successor--same section line char)
-      (magit-section-goto-successor--related section)))
-
-(defun magit-section-goto-successor--same (section line char)
-  (let ((ident (magit-section-ident section)))
-    (and-let* ((found (magit-get-section ident)))
-      (let ((start (oref found start)))
-        (goto-char start)
-        (unless (eq found magit-root-section)
-          (ignore-errors
-            (forward-line line)
-            (forward-char char))
-          (unless (eq (magit-current-section) found)
-            (goto-char start)))
-        t))))
-
-(defun magit-section-goto-successor--related (section)
-  (and-let* ((found (magit-section-goto-successor--related-1 section)))
-    (goto-char (if (eq (oref found type) 'button)
-                   (point-min)
-                 (oref found start)))))
-
-(defun magit-section-goto-successor--related-1 (section)
-  (or (and-let* ((alt (pcase (oref section type)
-                        ('staged 'unstaged)
-                        ('unstaged 'staged)
-                        ('unpushed 'unpulled)
-                        ('unpulled 'unpushed))))
-        (magit-get-section `((,alt) (status))))
-      (and-let* ((next (car (magit-section-siblings section 'next))))
-        (magit-get-section (magit-section-ident next)))
-      (and-let* ((prev (car (magit-section-siblings section 'prev))))
-        (magit-get-section (magit-section-ident prev)))
-      (and-let* ((parent (oref section parent)))
-        (or (magit-get-section (magit-section-ident parent))
-            (magit-section-goto-successor--related-1 parent)))))
-
-;;; Region
-
-(defvar-local magit-section--region-overlays nil)
-
-(defun magit-section--delete-region-overlays ()
-  (mapc #'delete-overlay magit-section--region-overlays)
-  (setq magit-section--region-overlays nil))
-
-(defun magit-section--highlight-region (start end window rol)
-  (magit-section--delete-region-overlays)
-  (if (and (not magit-section-keep-region-overlay)
-           (or (magit-region-sections)
-               (run-hook-with-args-until-success 'magit-region-highlight-hook
-                                                 (magit-current-section)))
-           (not (= (line-number-at-pos start)
-                   (line-number-at-pos end)))
-           ;; (not (eq (car-safe last-command-event) 'mouse-movement))
-           )
-      (funcall (default-value 'redisplay-unhighlight-region-function) rol)
-    (funcall (default-value 'redisplay-highlight-region-function)
-             start end window rol)))
-
-(defun magit-section--unhighlight-region (rol)
-  (magit-section--delete-region-overlays)
-  (funcall (default-value 'redisplay-unhighlight-region-function) rol))
-
-;;; Visibility
-
-(defvar-local magit-section-visibility-cache nil)
-(put 'magit-section-visibility-cache 'permanent-local t)
-
-(defun magit-section-cached-visibility (section)
-  "Set SECTION's visibility to the cached value.
-When `magit-section-preserve-visibility' is nil, do nothing."
-  (and magit-section-preserve-visibility
-       (cdr (assoc (magit-section-ident section)
-                   magit-section-visibility-cache))))
-
-(cl-defun magit-section-cache-visibility
-    (&optional (section magit-insert-section--current))
-  (setf (compat-call alist-get
-                     (magit-section-ident section)
-                     magit-section-visibility-cache
-                     nil nil #'equal)
-        (if (oref section hidden) 'hide 'show)))
-
-(cl-defun magit-section-maybe-cache-visibility
-    (&optional (section magit-insert-section--current))
-  (when (or (eq magit-section-cache-visibility t)
-            (memq (oref section type)
-                  magit-section-cache-visibility))
-    (magit-section-cache-visibility section)))
-
-(defun magit-section-maybe-update-visibility-indicator (section)
-  (when (and magit-section-visibility-indicator
-             (magit-section-content-p section))
-    (let* ((beg (oref section start))
-           (eoh (save-excursion
-                  (goto-char beg)
-                  (line-end-position))))
-      (cond
-       ((symbolp (car-safe magit-section-visibility-indicator))
-        (let ((ov (magit--overlay-at beg 'magit-vis-indicator 'fringe)))
-          (unless ov
-            (setq ov (make-overlay beg eoh nil t))
-            (overlay-put ov 'evaporate t)
-            (overlay-put ov 'magit-vis-indicator 'fringe))
-          (overlay-put
-           ov 'before-string
-           (propertize "fringe" 'display
-                       (list 'left-fringe
-                             (if (oref section hidden)
-                                 (car magit-section-visibility-indicator)
-                               (cdr magit-section-visibility-indicator))
-                             'fringe)))))
-       ((stringp (car-safe magit-section-visibility-indicator))
-        (let ((ov (magit--overlay-at (1- eoh) 'magit-vis-indicator 'eoh)))
-          (cond ((oref section hidden)
-                 (unless ov
-                   (setq ov (make-overlay (1- eoh) eoh))
-                   (overlay-put ov 'evaporate t)
-                   (overlay-put ov 'magit-vis-indicator 'eoh))
-                 (overlay-put ov 'after-string
-                              (car magit-section-visibility-indicator)))
-                (ov
-                 (delete-overlay ov)))))))))
-
-(defvar-local magit--ellipses-sections nil)
-
-(defun magit-section-maybe-paint-visibility-ellipses ()
-  ;; This is needed because we hide the body instead of "the body
-  ;; except the final newline and additionally the newline before
-  ;; the body"; otherwise we could use `buffer-invisibility-spec'.
-  (when (stringp (car-safe magit-section-visibility-indicator))
-    (let* ((sections (append magit--ellipses-sections
-                             (setq magit--ellipses-sections
-                                   (or (magit-region-sections)
-                                       (list (magit-current-section))))))
-           (beg (--map (oref it start) sections))
-           (end (--map (oref it end)   sections)))
-      (when (region-active-p)
-        ;; This ensures that the region face is removed from ellipses
-        ;; when the region becomes inactive, but fails to ensure that
-        ;; all ellipses within the active region use the region face,
-        ;; because the respective overlay has not yet been updated at
-        ;; this time.  The magit-selection face is always applied.
-        (push (region-beginning) beg)
-        (push (region-end)       end))
-      (setq beg (apply #'min beg))
-      (setq end (apply #'max end))
-      (dolist (ov (overlays-in beg end))
-        (when (eq (overlay-get ov 'magit-vis-indicator) 'eoh)
-          (overlay-put
-           ov 'after-string
-           (propertize
-            (car magit-section-visibility-indicator) 'font-lock-face
-            (let ((pos (overlay-start ov)))
-              (delq nil (nconc (--map (overlay-get it 'font-lock-face)
-                                      (overlays-at pos))
-                               (list (get-char-property
-                                      pos 'font-lock-face))))))))))))
-
-(defun magit-section-maybe-remove-visibility-indicator (section)
-  (when (and magit-section-visibility-indicator
-             (= (oref section content)
-                (oref section end)))
-    (dolist (o (overlays-in (oref section start)
-                            (save-excursion
-                              (goto-char (oref section start))
-                              (1+ (line-end-position)))))
-      (when (overlay-get o 'magit-vis-indicator)
-        (delete-overlay o)))))
-
-(defvar-local magit-section--opened-sections nil)
-
-(defun magit-section--open-temporarily (beg end)
-  (save-excursion
-    (goto-char beg)
-    (let ((section (magit-current-section)))
-      (while section
-        (let ((content (oref section content)))
-          (if (and (magit-section-invisible-p section)
-                   (<= (or content (oref section start))
-                       beg
-                       (oref section end)))
-              (progn
-                (when content
-                  (magit-section-show section)
-                  (push section magit-section--opened-sections))
-                (setq section (oref section parent)))
-            (setq section nil))))))
-  (or (eq search-invisible t)
-      (not (isearch-range-invisible beg end))))
-
-(define-advice isearch-clean-overlays (:around (fn) magit-mode)
-  (if (derived-mode-p 'magit-mode)
-      (let ((pos (point)))
-        (dolist (section magit-section--opened-sections)
-          (unless (<= (oref section content) pos (oref section end))
-            (magit-section-hide section)))
-        (setq magit-section--opened-sections nil))
-    (funcall fn)))
-
-;;; Utilities
-
-(cl-defun magit-section-selected-p (section &optional (selection nil sselection))
-  (and (not (eq section magit-root-section))
-       (or  (eq section (magit-current-section))
-            (memq section (if sselection
-                              selection
-                            (setq selection (magit-region-sections))))
-            (and-let* ((parent (oref section parent)))
-              (magit-section-selected-p parent selection)))))
-
-(defun magit-section-parent-value (section)
-  (and-let* ((parent (oref section parent)))
-    (oref parent value)))
-
-(defun magit-section-siblings (section &optional direction)
-  "Return a list of the sibling sections of SECTION.
-
-If optional DIRECTION is `prev', then return siblings that come
-before SECTION.  If it is `next', then return siblings that come
-after SECTION.  For all other values, return all siblings
-excluding SECTION itself."
-  (and-let* ((parent (oref section parent))
-             (siblings (oref parent children)))
-    (pcase direction
-      ('prev  (cdr (member section (reverse siblings))))
-      ('next  (cdr (member section siblings)))
-      (_      (remq section siblings)))))
-
-(defun magit-region-values (&optional condition multiple)
-  "Return a list of the values of the selected sections.
-
-Return the values that themselves would be returned by
-`magit-region-sections' (which see)."
-  (--map (oref it value)
-         (magit-region-sections condition multiple)))
-
-(defun magit-region-sections (&optional condition multiple)
-  "Return a list of the selected sections.
-
-When the region is active and constitutes a valid section
-selection, then return a list of all selected sections.  This is
-the case when the region begins in the heading of a section and
-ends in the heading of the same section or in that of a sibling
-section.  If optional MULTIPLE is non-nil, then the region cannot
-begin and end in the same section.
-
-When the selection is not valid, then return nil.  In this case,
-most commands that can act on the selected sections will instead
-act on the section at point.
-
-When the region looks like it would in any other buffer then
-the selection is invalid.  When the selection is valid then the
-region uses the `magit-section-highlight' face.  This does not
-apply to diffs where things get a bit more complicated, but even
-here if the region looks like it usually does, then that's not
-a valid selection as far as this function is concerned.
-
-If optional CONDITION is non-nil, then the selection not only
-has to be valid; all selected sections additionally have to match
-CONDITION, or nil is returned.  See `magit-section-match' for the
-forms CONDITION can take."
-  (and (region-active-p)
-       (let* ((rbeg (region-beginning))
-              (rend (region-end))
-              (sbeg (magit-section-at rbeg))
-              (send (magit-section-at rend)))
-         (and send
-              (not (eq send magit-root-section))
-              (not (and multiple (eq send sbeg)))
-              (let ((siblings (cons sbeg (magit-section-siblings sbeg 'next)))
-                    (sections ()))
-                (and (memq send siblings)
-                     (magit-section-position-in-heading-p sbeg rbeg)
-                     (magit-section-position-in-heading-p send rend)
-                     (progn
-                       (while siblings
-                         (push (car siblings) sections)
-                         (when (eq (pop siblings) send)
-                           (setq siblings nil)))
-                       (setq sections (nreverse sections))
-                       (and (or (not condition)
-                                (--all-p (magit-section-match condition it)
-                                         sections))
-                            sections))))))))
-
-(defun magit-map-sections (function &optional section)
-  "Apply FUNCTION to all sections for side effects only, depth first.
-If optional SECTION is non-nil, only map over that section and
-its descendants, otherwise map over all sections in the current
-buffer, ending with `magit-root-section'."
-  (let ((section (or section magit-root-section)))
-    (mapc (lambda (child) (magit-map-sections function child))
-          (oref section children))
-    (funcall function section)))
-
-(defun magit-section-position-in-heading-p (&optional section pos)
-  "Return t if POSITION is inside the heading of SECTION.
-POSITION defaults to point and SECTION defaults to the
-current section."
-  (unless section
-    (setq section (magit-current-section)))
-  (unless pos
-    (setq pos (point)))
-  (ignore-errors ; Allow navigating broken sections.
-    (and section
-         (>= pos (oref section start))
-         (<  pos (or (oref section content)
-                     (oref section end)))
-         t)))
-
-(defun magit-section-internal-region-p (&optional section)
-  "Return t if the region is active and inside SECTION's body.
-If optional SECTION is nil, use the current section."
-  (and (region-active-p)
-       (or section (setq section (magit-current-section)))
-       (let ((beg (magit-section-at (region-beginning))))
-         (and (eq beg (magit-section-at (region-end)))
-              (eq beg section)))
-       (not (or (magit-section-position-in-heading-p section (region-beginning))
-                (magit-section-position-in-heading-p section (region-end))))
-       t))
-
-(defun magit-wash-sequence (function)
-  "Repeatedly call FUNCTION until it returns nil or eob is reached.
-FUNCTION has to move point forward or return nil."
-  (while (and (not (eobp)) (funcall function))))
-
-;;;###autoload
-(defun magit-add-section-hook (hook function &optional at append local)
-  "Add to the value of section hook HOOK the function FUNCTION.
-
-Add FUNCTION at the beginning of the hook list unless optional
-APPEND is non-nil, in which case FUNCTION is added at the end.
-If FUNCTION already is a member, then move it to the new location.
-
-If optional AT is non-nil and a member of the hook list, then
-add FUNCTION next to that instead.  Add before or after AT, or
-replace AT with FUNCTION depending on APPEND.  If APPEND is the
-symbol `replace', then replace AT with FUNCTION.  For any other
-non-nil value place FUNCTION right after AT.  If nil, then place
-FUNCTION right before AT.  If FUNCTION already is a member of the
-list but AT is not, then leave FUNCTION where ever it already is.
-
-If optional LOCAL is non-nil, then modify the hook's buffer-local
-value rather than its global value.  This makes the hook local by
-copying the default value.  That copy is then modified.
-
-HOOK should be a symbol.  If HOOK is void, it is first set to nil.
-HOOK's value must not be a single hook function.  FUNCTION should
-be a function that takes no arguments and inserts one or multiple
-sections at point, moving point forward.  FUNCTION may choose not
-to insert its section(s), when doing so would not make sense.  It
-should not be abused for other side-effects.  To remove FUNCTION
-again use `remove-hook'."
-  (unless (boundp hook)
-    (error "Cannot add function to undefined hook variable %s" hook))
-  (unless (default-boundp hook)
-    (set-default hook nil))
-  (let ((value (if local
-                   (if (local-variable-p hook)
-                       (symbol-value hook)
-                     (unless (local-variable-if-set-p hook)
-                       (make-local-variable hook))
-                     (copy-sequence (default-value hook)))
-                 (default-value hook))))
-    (if at
-        (when (setq at (member at value))
-          (setq value (delq function value))
-          (cond ((eq append 'replace)
-                 (setcar at function))
-                (append
-                 (push function (cdr at)))
-                (t
-                 (push (car at) (cdr at))
-                 (setcar at function))))
-      (setq value (delq function value)))
-    (unless (member function value)
-      (setq value (if append
-                      (append value (list function))
-                    (cons function value))))
-    (when (eq append 'replace)
-      (setq value (delq at value)))
-    (if local
-        (set hook value)
-      (set-default hook value))))
-
-(defvar-local magit-disabled-section-inserters nil)
-
-(defun magit-disable-section-inserter (fn)
-  "Disable the section inserter FN in the current repository.
-It is only intended for use in \".dir-locals.el\" and
-\".dir-locals-2.el\".  Also see info node `(magit)Per-Repository
-Configuration'."
-  (cl-pushnew fn magit-disabled-section-inserters))
-
-(put 'magit-disable-section-inserter 'safe-local-eval-function t)
-
-(defun magit-run-section-hook (hook &rest args)
-  "Run HOOK with ARGS, warning about invalid entries."
-  (let ((entries (symbol-value hook)))
-    (unless (listp entries)
-      (setq entries (list entries)))
-    (when-let ((invalid (seq-remove #'functionp entries)))
-      (message "`%s' contains entries that are no longer valid.
-%s\nUsing standard value instead.  Please re-configure hook variable."
-               hook
-               (mapconcat (lambda (sym) (format "  `%s'" sym)) invalid "\n"))
-      (sit-for 5)
-      (setq entries (eval (car (get hook 'standard-value)))))
-    (dolist (entry entries)
-      (let ((magit--current-section-hook (cons (list hook entry)
-                                               magit--current-section-hook)))
-        (unless (memq entry magit-disabled-section-inserters)
-          (if (bound-and-true-p magit-refresh-verbose)
-              (let ((time (benchmark-elapse (apply entry args))))
-                (message "  %-50s %f %s" entry time
-                         (cond ((> time 0.03) "!!")
-                               ((> time 0.01) "!")
-                               (t ""))))
-            (apply entry args)))))))
-
-(cl-defun magit--overlay-at (pos prop &optional (val nil sval) testfn)
-  (cl-find-if (lambda (o)
-                (let ((p (overlay-properties o)))
-                  (and (plist-member p prop)
-                       (or (not sval)
-                           (funcall (or testfn #'eql)
-                                    (plist-get p prop)
-                                    val)))))
-              (overlays-at pos t)))
-
-(defun magit-face-property-all (face string)
-  "Return non-nil if FACE is present in all of STRING."
-  (catch 'missing
-    (let ((pos 0))
-      (while (setq pos (next-single-property-change pos 'font-lock-face string))
-        (let ((val (get-text-property pos 'font-lock-face string)))
-          (unless (if (consp val)
-                      (memq face val)
-                    (eq face val))
-            (throw 'missing nil))))
-      (not pos))))
-
-(defun magit--add-face-text-property (beg end face &optional append object)
-  "Like `add-face-text-property' but for `font-lock-face'."
-  (when (stringp object)
-    (unless beg (setq beg 0))
-    (unless end (setq end (length object))))
-  (while (< beg end)
-    (let* ((pos (next-single-property-change beg 'font-lock-face object end))
-           (val (get-text-property beg 'font-lock-face object))
-           (val (ensure-list val)))
-      (put-text-property beg pos 'font-lock-face
-                         (if append
-                             (append val (list face))
-                           (cons face val))
-                         object)
-      (setq beg pos)))
-  object)
-
-(defun magit--propertize-face (string face)
-  (propertize string 'face face 'font-lock-face face))
-
-(defun magit--put-face (beg end face string)
-  (put-text-property beg end 'face face string)
-  (put-text-property beg end 'font-lock-face face string))
-
-;;; Imenu Support
-
-(defvar-local magit--imenu-group-types nil)
-(defvar-local magit--imenu-item-types nil)
-
-(defun magit--imenu-create-index ()
-  ;; If `which-function-mode' is active, then the create-index
-  ;; function is called at the time the major-mode is being enabled.
-  ;; Modes that derive from `magit-mode' have not populated the buffer
-  ;; at that time yet, so we have to abort.
-  (and magit-root-section
-       (or magit--imenu-group-types
-           magit--imenu-item-types)
-       (let ((index
-              (cl-mapcan
-               (lambda (section)
-                 (cond
-                  (magit--imenu-group-types
-                   (and (if (eq (car-safe magit--imenu-group-types) 'not)
-                            (not (magit-section-match
-                                  (cdr magit--imenu-group-types)
-                                  section))
-                          (magit-section-match magit--imenu-group-types section))
-                        (and-let* ((children (oref section children)))
-                          `((,(magit--imenu-index-name section)
-                             ,@(mapcar (lambda (s)
-                                         (cons (magit--imenu-index-name s)
-                                               (oref s start)))
-                                       children))))))
-                  (magit--imenu-item-types
-                   (and (magit-section-match magit--imenu-item-types section)
-                        `((,(magit--imenu-index-name section)
-                           . ,(oref section start)))))))
-               (oref magit-root-section children))))
-         (if (and magit--imenu-group-types (symbolp magit--imenu-group-types))
-             (cdar index)
-           index))))
-
-(defun magit--imenu-index-name (section)
-  (let ((heading (buffer-substring-no-properties
-                  (oref section start)
-                  (1- (or (oref section content)
-                          (oref section end))))))
-    (save-match-data
-      (cond
-       ((and (magit-section-match [commit logbuf] section)
-             (string-match "[^ ]+\\([ *|]*\\).+" heading))
-        (replace-match " " t t heading 1))
-       ((magit-section-match
-         '([branch local branchbuf] [tag tags branchbuf]) section)
-        (oref section value))
-       ((magit-section-match [branch remote branchbuf] section)
-        (concat (oref (oref section parent) value) "/"
-                (oref section value)))
-       ((string-match " ([0-9]+)\\'" heading)
-        (substring heading 0 (match-beginning 0)))
-       (t heading)))))
-
-(defun magit--imenu-goto-function (_name position &rest _rest)
-  "Go to the section at POSITION.
-Make sure it is visible, by showing its ancestors where
-necessary.  For use as `imenu-default-goto-function' in
-`magit-mode' buffers."
-  (goto-char position)
-  (let ((section (magit-current-section)))
-    (while (setq section (oref section parent))
-      (when (oref section hidden)
-        (magit-section-show section)))))
-
-;;; Bookmark support
-
-(declare-function bookmark-get-filename "bookmark" (bookmark-name-or-record))
-(declare-function bookmark-make-record-default "bookmark"
-                  (&optional no-file no-context posn))
-(declare-function bookmark-prop-get "bookmark" (bookmark-name-or-record prop))
-(declare-function bookmark-prop-set "bookmark" (bookmark-name-or-record prop val))
-
-(cl-defgeneric magit-bookmark-get-filename ()
-  (or (buffer-file-name) (buffer-name)))
-
-(cl-defgeneric magit-bookmark--get-child-value (section)
-  (oref section value))
-
-(cl-defgeneric magit-bookmark-get-buffer-create (bookmark mode))
-
-(defun magit--make-bookmark ()
-  "Create a bookmark for the current Magit buffer.
-Input values are the major-mode's `magit-bookmark-name' method,
-and the buffer-local values of the variables referenced in its
-`magit-bookmark-variables' property."
-  (require 'bookmark)
-  (if (plist-member (symbol-plist major-mode) 'magit-bookmark-variables)
-      ;; `bookmark-make-record-default's return value does not match
-      ;; (NAME . ALIST), even though it is used as the default value
-      ;; of `bookmark-make-record-function', which states that such
-      ;; functions must do that.  See #4356.
-      (let ((bookmark (cons nil (bookmark-make-record-default 'no-file))))
-        (bookmark-prop-set bookmark 'handler  #'magit--handle-bookmark)
-        (bookmark-prop-set bookmark 'mode     major-mode)
-        (bookmark-prop-set bookmark 'filename (magit-bookmark-get-filename))
-        (bookmark-prop-set bookmark 'defaults (list (magit-bookmark-name)))
-        (dolist (var (get major-mode 'magit-bookmark-variables))
-          (bookmark-prop-set bookmark var (symbol-value var)))
-        (bookmark-prop-set
-         bookmark 'magit-hidden-sections
-         (--keep (and (oref it hidden)
-                      (cons (oref it type)
-                            (magit-bookmark--get-child-value it)))
-                 (oref magit-root-section children)))
-        bookmark)
-    (user-error "Bookmarking is not implemented for %s buffers" major-mode)))
-
-;;;###autoload
-(defun magit--handle-bookmark (bookmark)
-  "Open a bookmark created by `magit--make-bookmark'.
-
-Call the generic function `magit-bookmark-get-buffer-create' to get
-the appropriate buffer without displaying it.
-
-Then call the `magit-*-setup-buffer' function of the the major-mode
-with the variables' values as arguments, which were recorded by
-`magit--make-bookmark'."
-  (require (quote magit-bookmark) nil t)
-  (let ((buffer (magit-bookmark-get-buffer-create
-                 bookmark
-                 (bookmark-prop-get bookmark 'mode))))
-    (set-buffer buffer) ; That is the interface we have to adhere to.
-    (when-let ((hidden (bookmark-prop-get bookmark 'magit-hidden-sections)))
-      (with-current-buffer buffer
-        (dolist (child (oref magit-root-section children))
-          (if (member (cons (oref child type)
-                            (oref child value))
-                      hidden)
-              (magit-section-hide child)
-            (magit-section-show child)))))
-    ;; Compatibility with `bookmark+' package.  See #4356.
-    (when (bound-and-true-p bmkp-jump-display-function)
-      (funcall bmkp-jump-display-function (current-buffer)))
-    nil))
-
-(put 'magit--handle-bookmark 'bookmark-handler-type "Magit")
-
-(cl-defgeneric magit-bookmark-name ()
-  "Return name for bookmark to current buffer."
-  (format "%s%s"
-          (substring (symbol-name major-mode) 0 -5)
-          (if-let ((vars (get major-mode 'magit-bookmark-variables)))
-              (cl-mapcan (lambda (var)
-                           (let ((val (symbol-value var)))
-                             (if (and val (atom val))
-                                 (list val)
-                               val)))
-                         vars)
-            "")))
-
-;;; Bitmaps
-
-(when (fboundp 'define-fringe-bitmap) ;for Emacs 26
-  (define-fringe-bitmap 'magit-fringe-bitmap+
-    [#b00000000
-     #b00011000
-     #b00011000
-     #b01111110
-     #b01111110
-     #b00011000
-     #b00011000
-     #b00000000])
-
-  (define-fringe-bitmap 'magit-fringe-bitmap-
-    [#b00000000
-     #b00000000
-     #b00000000
-     #b01111110
-     #b01111110
-     #b00000000
-     #b00000000
-     #b00000000])
-
-  (define-fringe-bitmap 'magit-fringe-bitmap>
-    [#b01100000
-     #b00110000
-     #b00011000
-     #b00001100
-     #b00011000
-     #b00110000
-     #b01100000
-     #b00000000])
-
-  (define-fringe-bitmap 'magit-fringe-bitmapv
-    [#b00000000
-     #b10000010
-     #b11000110
-     #b01101100
-     #b00111000
-     #b00010000
-     #b00000000
-     #b00000000])
-
-  (define-fringe-bitmap 'magit-fringe-bitmap-bold>
-    [#b11100000
-     #b01110000
-     #b00111000
-     #b00011100
-     #b00011100
-     #b00111000
-     #b01110000
-     #b11100000])
-
-  (define-fringe-bitmap 'magit-fringe-bitmap-boldv
-    [#b10000001
-     #b11000011
-     #b11100111
-     #b01111110
-     #b00111100
-     #b00011000
-     #b00000000
-     #b00000000])
-  )
-
-;;; _
-(provide 'magit-section)
-;;; magit-section.el ends here
diff --git a/emacs/elpa/magit-section-20241102.1300/magit-section.elc b/emacs/elpa/magit-section-20241102.1300/magit-section.elc
Binary files differ.
diff --git a/emacs/elpa/magit-section-20241102.1300/dir b/emacs/elpa/magit-section-20241122.1431/dir
diff --git a/emacs/elpa/magit-section-20241102.1300/magit-section-autoloads.el b/emacs/elpa/magit-section-20241122.1431/magit-section-autoloads.el
diff --git a/emacs/elpa/magit-section-20241122.1431/magit-section-pkg.el b/emacs/elpa/magit-section-20241122.1431/magit-section-pkg.el
@@ -0,0 +1,13 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "magit-section" "20241122.1431"
+  "Sections for read-only buffers."
+  '((emacs  "26.1")
+    (compat "30.0.0.0")
+    (dash   "2.19.1")
+    (seq    "2.24"))
+  :url "https://github.com/magit/magit"
+  :commit "93a7752842b2d4feff6b5deba44411e9c4249dfe"
+  :revdesc "93a7752842b2"
+  :keywords '("tools")
+  :authors '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev"))
+  :maintainers '(("Jonas Bernoulli" . "emacs.magit@jonas.bernoulli.dev")))
diff --git a/emacs/elpa/magit-section-20241122.1431/magit-section.el b/emacs/elpa/magit-section-20241122.1431/magit-section.el
@@ -0,0 +1,2509 @@
+;;; magit-section.el --- Sections for read-only buffers  -*- lexical-binding:t; coding:utf-8 -*-
+
+;; Copyright (C) 2008-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+;; Maintainer: Jonas Bernoulli <emacs.magit@jonas.bernoulli.dev>
+
+;; Homepage: https://github.com/magit/magit
+;; Keywords: tools
+
+;; Package-Version: 20241122.1431
+;; Package-Revision: 93a7752842b2
+;; Package-Requires: (
+;;     (emacs "26.1")
+;;     (compat "30.0.0.0")
+;;     (dash "2.19.1")
+;;     (seq "2.24"))
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; Magit is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; Magit is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with Magit.  If not, see <https://www.gnu.org/licenses/>.
+
+;; You should have received a copy of the AUTHORS.md file, which
+;; lists all contributors.  If not, see https://magit.vc/authors.
+
+;;; Commentary:
+
+;; This package implements the main user interface of Magit — the
+;; collapsible sections that make up its buffers.  This package used
+;; to be distributed as part of Magit but now it can also be used by
+;; other packages that have nothing to do with Magit or Git.
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'compat)
+(require 'dash)
+(require 'eieio)
+(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 "\
+Magit requires `%s' >= %s,
+but due to bad defaults, Emacs' package manager, refuses to
+upgrade this and other built-in packages to higher releases
+from GNU Elpa.
+
+To fix this, you have to add this to your init file:
+
+  (setq package-install-upgrade-built-in t)
+
+Then evaluate that expression by placing the cursor after it
+and typing \\[eval-last-sexp].
+
+Once you have done that, you have to explicitly upgrade `%s':
+
+  \\[package-install] %s \\`RET'
+
+Then you also must make sure the updated version is loaded,
+by evaluating this form:
+
+  (progn (unload-feature \\='%s t) (require \\='%s))
+
+If this does not work, then try uninstalling Magit and all of its
+dependencies.  After that exit and restart Emacs, and only then
+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))
+                   :emergency))
+
+(require 'cursor-sensor)
+(require 'format-spec)
+
+(eval-when-compile (require 'benchmark))
+
+;; For `magit-section-get-relative-position'
+(declare-function magit-hunk-section-p "magit-diff" (section) t)
+
+;;; Hooks
+
+(defvar magit-section-movement-hook nil
+  "Hook run by `magit-section-goto'.
+That function in turn is used by all section movement commands.")
+
+(defvar magit-section-highlight-hook
+  '(magit-section-highlight
+    magit-section-highlight-selection)
+  "Functions used to highlight the current section.
+Each function is run with the current section as only argument
+until one of them returns non-nil.")
+
+(defvar magit-section-unhighlight-hook nil
+  "Functions used to unhighlight the previously current section.
+Each function is run with the current section as only argument
+until one of them returns non-nil.  Most sections are properly
+unhighlighted without requiring a specialized unhighlighter,
+diff-related sections being the only exception.")
+
+(defvar magit-section-set-visibility-hook
+  '(magit-section-cached-visibility)
+  "Hook used to set the initial visibility of a section.
+Stop at the first function that returns non-nil.  The returned
+value should be `show', `hide' or nil.  If no function returns
+non-nil, determine the visibility as usual, i.e., use the
+hardcoded section specific default (see `magit-insert-section').")
+
+;;; Options
+
+(defgroup magit-section nil
+  "Expandable sections."
+  :link '(info-link "(magit)Sections")
+  :group 'extensions)
+
+(defcustom magit-section-show-child-count t
+  "Whether to append the number of children to section headings.
+This only applies to sections for which doing so makes sense."
+  :package-version '(magit-section . "2.1.0")
+  :group 'magit-section
+  :type 'boolean)
+
+(defcustom magit-section-cache-visibility t
+  "Whether to cache visibility of sections.
+
+Sections always retain their visibility state when they are being
+recreated during a refresh.  But if a section disappears and then
+later reappears again, then this option controls whether this is
+the case.
+
+If t, then cache the visibility of all sections.  If a list of
+section types, then only do so for matching sections.  If nil,
+then don't do so for any sections."
+  :package-version '(magit-section . "2.12.0")
+  :group 'magit-section
+  :type '(choice (const  :tag "Don't cache visibility" nil)
+                 (const  :tag "Cache visibility of all sections" t)
+                 (repeat :tag "Cache visibility for section types" symbol)))
+
+(defcustom magit-section-initial-visibility-alist
+  '((stashes . hide))
+  "Alist controlling the initial visibility of sections.
+
+Each element maps a section type or lineage to the initial
+visibility state for such sections.  The state has to be one of
+`show' or `hide', or a function that returns one of these symbols.
+A function is called with the section as the only argument.
+
+Use the command `magit-describe-section' to determine a section's
+lineage or type.  The vector in the output is the section lineage
+and the type is the first element of that vector.  Wildcards can
+be used, see `magit-section-match'.
+
+Currently this option is only used to override hardcoded defaults,
+but in the future it will also be used set the defaults.
+
+An entry whose key is `magit-status-initial-section' specifies
+the visibility of the section `magit-status-goto-initial-section'
+jumps to.  This does not only override defaults, but also other
+entries of this alist."
+  :package-version '(magit-section . "2.12.0")
+  :group 'magit-section
+  :type '(alist :key-type (sexp :tag "Section type/lineage")
+                :value-type (choice (const hide)
+                                    (const show)
+                                    function)))
+
+(defcustom magit-section-visibility-indicator
+  (if (window-system)
+      '(magit-fringe-bitmap> . magit-fringe-bitmapv)
+    (cons (if (char-displayable-p ?…) "…" "...")
+          t))
+  "Whether and how to indicate that a section can be expanded/collapsed.
+
+If nil, then don't show any indicators.
+Otherwise the value has to have one of these two forms:
+
+\(EXPANDABLE-BITMAP . COLLAPSIBLE-BITMAP)
+
+  Both values have to be variables whose values are fringe
+  bitmaps.  In this case every section that can be expanded or
+  collapsed gets an indicator in the left fringe.
+
+  To provide extra padding around the indicator, set
+  `left-fringe-width' in `magit-mode-hook'.
+
+\(STRING . BOOLEAN)
+
+  In this case STRING (usually an ellipsis) is shown at the end
+  of the heading of every collapsed section.  Expanded sections
+  get no indicator.  The cdr controls whether the appearance of
+  these ellipsis take section highlighting into account.  Doing
+  so might potentially have an impact on performance, while not
+  doing so is kinda ugly."
+  :package-version '(magit-section . "3.0.0")
+  :group 'magit-section
+  :type '(choice (const :tag "No indicators" nil)
+                 (cons  :tag "Use +- fringe indicators"
+                        (const magit-fringe-bitmap+)
+                        (const magit-fringe-bitmap-))
+                 (cons  :tag "Use >v fringe indicators"
+                        (const magit-fringe-bitmap>)
+                        (const magit-fringe-bitmapv))
+                 (cons  :tag "Use bold >v fringe indicators)"
+                        (const magit-fringe-bitmap-bold>)
+                        (const magit-fringe-bitmap-boldv))
+                 (cons  :tag "Use custom fringe indicators"
+                        (variable :tag "Expandable bitmap variable")
+                        (variable :tag "Collapsible bitmap variable"))
+                 (cons  :tag "Use ellipses at end of headings"
+                        (string :tag "Ellipsis" "…")
+                        (choice :tag "Use face kludge"
+                                (const :tag "Yes (potentially slow)" t)
+                                (const :tag "No (kinda ugly)" nil)))))
+
+(define-obsolete-variable-alias 'magit-keep-region-overlay
+  'magit-section-keep-region-overlay "Magit-Section 4.0.0")
+
+(defcustom magit-section-keep-region-overlay nil
+  "Whether to keep the region overlay when there is a valid selection.
+
+By default Magit removes the regular region overlay if, and only
+if, that region constitutes a valid selection as understood by
+Magit commands.  Otherwise it does not remove that overlay, and
+the region looks like it would in other buffers.
+
+There are two types of such valid selections: hunk-internal
+regions and regions that select two or more sibling sections.
+In such cases Magit removes the region overlay and instead
+highlights a slightly larger range.  All text (for hunk-internal
+regions) or the headings of all sections (for sibling selections)
+that are inside that range (not just inside the region) are acted
+on by commands such as the staging command.  This buffer range
+begins at the beginning of the line on which the region begins
+and ends at the end of the line on which the region ends.
+
+Because Magit acts on this larger range and not the region, it is
+actually quite important to visualize that larger range.  If we
+don't do that, then one might think that these commands act on
+the region instead.  If you want to *also* visualize the region,
+then set this option to t.  But please note that when the region
+does *not* constitute a valid selection, then the region is
+*always* visualized as usual, and that it is usually under such
+circumstances that you want to use a non-magit command to act on
+the region.
+
+Besides keeping the region overlay, setting this option to t also
+causes all face properties, except for `:foreground', to be
+ignored for the faces used to highlight headings of selected
+sections.  This avoids the worst conflicts that result from
+displaying the region and the selection overlays at the same
+time.  We are not interested in dealing with other conflicts.
+In fact we *already* provide a way to avoid all of these
+conflicts: *not* changing the value of this option.
+
+It should be clear by now that we consider it a mistake to set
+this to display the region when the Magit selection is also
+visualized, but since it has been requested a few times and
+because it doesn't cost much to offer this option we do so.
+However that might change.  If the existence of this option
+starts complicating other things, then it will be removed."
+  :package-version '(magit-section . "2.3.0")
+  :group 'magit-section
+  :type 'boolean)
+
+(defcustom magit-section-disable-line-numbers t
+  "In Magit buffers, whether to disable modes that display line numbers.
+
+Some users who turn on `global-display-line-numbers-mode' (or
+`global-nlinum-mode' or `global-linum-mode') expect line numbers
+to be displayed everywhere except in Magit buffers.  Other users
+do not expect Magit buffers to be treated differently.  At least
+in theory users in the first group should not use the global mode,
+but that ship has sailed, thus this option."
+  :package-version '(magit-section . "3.0.0")
+  :group 'magit-section
+  :type 'boolean)
+
+(defcustom magit-section-show-context-menu-for-emacs<28 nil
+  "Whether `mouse-3' shows a context menu for Emacs < 28.
+
+This has to be set before loading `magit-section' or it has
+no effect.  This also has no effect for Emacs >= 28, where
+`context-menu-mode' should be enabled instead."
+  :package-version '(magit-section . "4.0.0")
+  :group 'magit-section
+  :type 'boolean)
+
+;;; Variables
+
+(defvar-local magit-section-preserve-visibility t)
+
+(defvar-local magit-section-pre-command-region-p nil)
+(defvar-local magit-section-pre-command-section nil)
+(defvar-local magit-section-highlight-force-update nil)
+(defvar-local magit-section-highlight-overlays nil)
+(defvar-local magit-section-highlighted-sections nil)
+(defvar-local magit-section-unhighlight-sections nil)
+
+(defvar-local magit-section-inhibit-markers nil)
+(defvar-local magit-section-insert-in-reverse nil)
+
+;;; Faces
+
+(defgroup magit-section-faces nil
+  "Faces used by Magit-Section."
+  :group 'magit-section
+  :group 'faces)
+
+(defface magit-section-highlight
+  `((((class color) (background light))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :background "grey95")
+    (((class color) (background  dark))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :background "grey20"))
+  "Face for highlighting the current section."
+  :group 'magit-section-faces)
+
+(defface magit-section-heading
+  `((((class color) (background light))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :foreground "DarkGoldenrod4"
+     :weight bold)
+    (((class color) (background  dark))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :foreground "LightGoldenrod2"
+     :weight bold))
+  "Face for section headings."
+  :group 'magit-section-faces)
+
+(defface magit-section-secondary-heading
+  `((t ,@(and (>= emacs-major-version 27) '(:extend t))
+       :weight bold))
+  "Face for section headings of some secondary headings."
+  :group 'magit-section-faces)
+
+(defface magit-section-heading-selection
+  `((((class color) (background light))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :foreground "salmon4")
+    (((class color) (background  dark))
+     ,@(and (>= emacs-major-version 27) '(:extend t))
+     :foreground "LightSalmon3"))
+  "Face for selected section headings."
+  :group 'magit-section-faces)
+
+(defface magit-section-child-count '((t nil))
+  "Face used for child counts at the end of some section headings."
+  :group 'magit-section-faces)
+
+;;; Classes
+
+(defvar magit--current-section-hook nil
+  "Internal variable used for `magit-describe-section'.")
+
+(defvar magit--section-type-alist nil)
+
+(defclass magit-section ()
+  ((type     :initform nil :initarg :type)
+   (keymap   :initform nil)
+   (value    :initform nil)
+   (start    :initform nil)
+   (content  :initform nil)
+   (end      :initform nil)
+   (hidden)
+   (washer   :initform nil :initarg :washer)
+   (inserter :initform (symbol-value 'magit--current-section-hook))
+   (heading-highlight-face :initform nil :initarg :heading-highlight-face)
+   (parent   :initform nil)
+   (children :initform nil)))
+
+;;; Mode
+
+(defvar symbol-overlay-inhibit-map)
+
+(defvar-keymap magit-section-heading-map
+  :doc "Keymap used in the heading line of all expandable sections.
+This keymap is used in addition to the section-specific keymap,
+if any."
+  "<double-down-mouse-1>" #'ignore
+  "<double-mouse-1>" #'magit-mouse-toggle-section
+  "<double-mouse-2>" #'magit-mouse-toggle-section)
+
+(defvar magit-section-mode-map
+  (let ((map (make-keymap)))
+    (suppress-keymap map t)
+    (when (and magit-section-show-context-menu-for-emacs<28
+               (< emacs-major-version 28))
+      (keymap-set map "<mouse-3>" nil)
+      (keymap-set
+       map "<down-mouse-3>"
+       `( menu-item "" ,(make-sparse-keymap)
+          :filter ,(lambda (_)
+                     (let ((menu (make-sparse-keymap)))
+                       (if (fboundp 'context-menu-local)
+                           (context-menu-local menu last-input-event)
+                         (magit--context-menu-local menu last-input-event))
+                       (magit-section-context-menu menu last-input-event)
+                       menu)))))
+    (keymap-set map "<left-fringe> <mouse-1>" #'magit-mouse-toggle-section)
+    (keymap-set map "<left-fringe> <mouse-2>" #'magit-mouse-toggle-section)
+    (keymap-set map "TAB"       #'magit-section-toggle)
+    (keymap-set map "C-c TAB"   #'magit-section-cycle)
+    (keymap-set map "C-<tab>"   #'magit-section-cycle)
+    (keymap-set map "M-<tab>"   #'magit-section-cycle)
+    ;; <backtab> is the most portable binding for Shift+Tab.
+    (keymap-set map "<backtab>" #'magit-section-cycle-global)
+    (keymap-set map   "^" #'magit-section-up)
+    (keymap-set map   "p" #'magit-section-backward)
+    (keymap-set map   "n" #'magit-section-forward)
+    (keymap-set map "M-p" #'magit-section-backward-sibling)
+    (keymap-set map "M-n" #'magit-section-forward-sibling)
+    (keymap-set map   "1" #'magit-section-show-level-1)
+    (keymap-set map   "2" #'magit-section-show-level-2)
+    (keymap-set map   "3" #'magit-section-show-level-3)
+    (keymap-set map   "4" #'magit-section-show-level-4)
+    (keymap-set map "M-1" #'magit-section-show-level-1-all)
+    (keymap-set map "M-2" #'magit-section-show-level-2-all)
+    (keymap-set map "M-3" #'magit-section-show-level-3-all)
+    (keymap-set map "M-4" #'magit-section-show-level-4-all)
+    map)
+  "Parent keymap for all keymaps of modes derived from `magit-section-mode'.")
+
+(define-derived-mode magit-section-mode special-mode "Magit-Sections"
+  "Parent major mode from which major modes with Magit-like sections inherit.
+
+Magit-Section is documented in info node `(magit-section)'."
+  :interactive nil
+  :group 'magit-section
+  (buffer-disable-undo)
+  (setq truncate-lines t)
+  (setq buffer-read-only t)
+  (setq-local line-move-visual t) ; see #1771
+  ;; Turn off syntactic font locking, but not by setting
+  ;; `font-lock-defaults' because that would enable font locking, and
+  ;; not all magit plugins may be ready for that (see #3950).
+  (setq-local font-lock-syntactic-face-function #'ignore)
+  (setq show-trailing-whitespace nil)
+  (setq-local symbol-overlay-inhibit-map t)
+  (setq list-buffers-directory (abbreviate-file-name default-directory))
+  (make-local-variable 'text-property-default-nonsticky)
+  (push (cons 'keymap t) text-property-default-nonsticky)
+  (add-hook 'pre-command-hook #'magit-section-pre-command-hook nil t)
+  (add-hook 'post-command-hook #'magit-section-post-command-hook t t)
+  (add-hook 'deactivate-mark-hook #'magit-section-deactivate-mark t t)
+  (setq-local redisplay-highlight-region-function
+              #'magit-section--highlight-region)
+  (setq-local redisplay-unhighlight-region-function
+              #'magit-section--unhighlight-region)
+  (add-function :filter-return (local 'filter-buffer-substring-function)
+                #'magit-section--remove-text-properties)
+  (when (fboundp 'magit-section-context-menu)
+    (add-hook 'context-menu-functions #'magit-section-context-menu 10 t))
+  (when magit-section-disable-line-numbers
+    (when (and (fboundp 'linum-mode)
+               (bound-and-true-p global-linum-mode))
+      (linum-mode -1))
+    (when (and (fboundp 'nlinum-mode)
+               (bound-and-true-p global-nlinum-mode))
+      (nlinum-mode -1))
+    (when (and (fboundp 'display-line-numbers-mode)
+               (bound-and-true-p global-display-line-numbers-mode))
+      (display-line-numbers-mode -1)))
+  (when (fboundp 'magit-preserve-section-visibility-cache)
+    (add-hook 'kill-buffer-hook #'magit-preserve-section-visibility-cache)))
+
+(defun magit-section--remove-text-properties (string)
+  "Remove all text-properties from STRING.
+Most importantly `magit-section'."
+  (set-text-properties 0 (length string) nil string)
+  string)
+
+;;; Core
+
+(defvar-local magit-root-section nil
+  "The root section in the current buffer.
+All other sections are descendants of this section.  The value
+of this variable is set by `magit-insert-section' and you should
+never modify it.")
+(put 'magit-root-section 'permanent-local t)
+
+(defvar-local magit--context-menu-section nil "For internal use only.")
+
+(defvar magit--context-menu-buffer nil "For internal use only.")
+
+(defun magit-point ()
+  "Return point or the position where the context menu was invoked.
+When using the context menu, return the position the user clicked
+on, provided the current buffer is the buffer in which the click
+occurred.  Otherwise return the same value as `point'."
+  (if magit--context-menu-section
+      (magit-menu-position)
+    (point)))
+
+(defun magit-thing-at-point (thing &optional no-properties)
+  "Return the THING at point or where the context menu was invoked.
+When using the context menu, return the thing the user clicked
+on, provided the current buffer is the buffer in which the click
+occurred.  Otherwise return the same value as `thing-at-point'.
+For the meaning of THING and NO-PROPERTIES see that function."
+  (if-let ((pos (magit-menu-position)))
+      (save-excursion
+        (goto-char pos)
+        (thing-at-point thing no-properties))
+    (thing-at-point thing no-properties)))
+
+(defun magit-current-section ()
+  "Return the section at point or where the context menu was invoked.
+When using the context menu, return the section that the user
+clicked on, provided the current buffer is the buffer in which
+the click occurred.  Otherwise return the section at point."
+  (or magit--context-menu-section
+      (magit-section-at)
+      magit-root-section))
+
+(defun magit-section-at (&optional position)
+  "Return the section at POSITION, defaulting to point."
+  (get-text-property (or position (point)) 'magit-section))
+
+(defun magit-section-ident (section)
+  "Return an unique identifier for SECTION.
+The return value has the form ((TYPE . VALUE)...)."
+  (cons (cons (oref section type)
+              (magit-section-ident-value section))
+        (and-let* ((parent (oref section parent)))
+          (magit-section-ident parent))))
+
+(cl-defgeneric magit-section-ident-value (object)
+  "Return OBJECT's value, making it constant and unique if necessary.
+
+This is used to correlate different incarnations of the same
+section, see `magit-section-ident' and `magit-get-section'.
+
+Sections whose values that are not constant and/or unique should
+implement a method that return a value that can be used for this
+purpose.")
+
+(cl-defmethod magit-section-ident-value ((section magit-section))
+  "Return the value unless it is an object.
+
+Different object incarnations representing the same value tend to not be
+equal, so call this generic function on the object itself to determine a
+constant value."
+  (let ((value (oref section value)))
+    (if (eieio-object-p value)
+        (magit-section-ident-value value)
+      value)))
+
+(cl-defmethod magit-section-ident-value ((object eieio-default-superclass))
+  "Simply return the object itself.  That likely isn't
+good enough, so you need to implement your own method."
+  object)
+
+(defun magit-get-section (ident &optional root)
+  "Return the section identified by IDENT.
+IDENT has to be a list as returned by `magit-section-ident'.
+If optional ROOT is non-nil, then search in that section tree
+instead of in the one whose root `magit-root-section' is."
+  (setq ident (reverse ident))
+  (let ((section (or root magit-root-section)))
+    (when (eq (car (pop ident))
+              (oref section type))
+      (while (and ident
+                  (pcase-let ((`(,type . ,value) (car ident)))
+                    (setq section
+                          (cl-find-if
+                           (lambda (section)
+                             (and (eq (oref section type) type)
+                                  (equal (magit-section-ident-value section)
+                                         value)))
+                           (oref section children)))))
+        (pop ident))
+      section)))
+
+(defun magit-section-lineage (section &optional raw)
+  "Return the lineage of SECTION.
+If optional RAW is non-nil, return a list of section objects, beginning
+with SECTION, otherwise return a list of section types."
+  (cons (if raw section (oref section type))
+        (and-let* ((parent (oref section parent)))
+          (magit-section-lineage parent raw))))
+
+(defvar-local magit-insert-section--current nil "For internal use only.")
+(defvar-local magit-insert-section--parent  nil "For internal use only.")
+(defvar-local magit-insert-section--oldroot nil "For internal use only.")
+
+;;; Menu
+
+(defvar magit-menu-common-value nil "See function `magit-menu-common-value'.")
+(defvar magit-menu--desc-values nil "For internal use only.")
+
+(defun magit-section-context-menu (menu click)
+  "Populate MENU with Magit-Section commands at CLICK."
+  (when-let ((section (save-excursion
+                        (unless (region-active-p)
+                          (mouse-set-point click))
+                        (magit-section-at))))
+    (unless (region-active-p)
+      (setq magit--context-menu-buffer (current-buffer))
+      (if-let ((alt (save-excursion
+                      (mouse-set-point click)
+                      (run-hook-with-args-until-success
+                       'magit-menu-alternative-section-hook section))))
+          (setq magit--context-menu-section (setq section alt))
+        (setq magit--context-menu-section section)
+        (magit-section-update-highlight t)))
+    (when (magit-section-content-p section)
+      (keymap-set-after menu "<magit-section-toggle>"
+        `(menu-item
+          ,(if (oref section hidden) "Expand section" "Collapse section")
+          magit-section-toggle))
+      (when-let (((not (oref section hidden)))
+                 (children (oref section children)))
+        (when (seq-some #'magit-section-content-p children)
+          (when (seq-some (lambda (c) (oref c hidden)) children)
+            (keymap-set-after menu "<magit-section-show-children>"
+              `(menu-item "Expand children"
+                          magit-section-show-children)))
+          (when (seq-some (lambda (c) (not (oref c hidden))) children)
+            (keymap-set-after menu "<magit-section-hide-children>"
+              `(menu-item "Collapse children"
+                          magit-section-hide-children)))))
+      (keymap-set-after menu "<separator-magit-1>" menu-bar-separator))
+    (keymap-set-after menu "<magit-describe-section>"
+      `(menu-item "Describe section" magit-describe-section))
+    (when-let ((map (oref section keymap)))
+      (keymap-set-after menu "<separator-magit-2>" menu-bar-separator)
+      (when (symbolp map)
+        (setq map (symbol-value map)))
+      (setq magit-menu-common-value (magit-menu-common-value section))
+      (setq magit-menu--desc-values (magit-menu--desc-values section))
+      (map-keymap (lambda (key binding)
+                    (when (consp binding)
+                      (define-key-after menu (vector key)
+                        (copy-sequence binding))))
+                  (if (fboundp 'menu-bar-keymap)
+                      (menu-bar-keymap map)
+                    (magit--menu-bar-keymap map)))))
+  menu)
+
+(defun magit-menu-item (desc def &optional props)
+  "Return a menu item named DESC binding DEF and using PROPS.
+
+If DESC contains a supported %-spec, substitute the
+expression (magit-menu-format-desc DESC) for that.
+See `magit-menu-format-desc'."
+  `(menu-item
+    ,(if (and (stringp desc) (string-match-p "%[tTvsmMx]" desc))
+         (list 'magit-menu-format-desc desc)
+       desc)
+    ,def
+    ;; Without this, the keys for point would be shown instead
+    ;; of the relevant ones from where the click occurred.
+    :keys ,(apply-partially #'magit--menu-position-keys def)
+    ,@props))
+
+(defun magit--menu-position-keys (def)
+  (or (ignore-errors
+        (save-excursion
+          (goto-char (magit-menu-position))
+          (and-let* ((key (cl-find-if-not
+                           (lambda (key)
+                             (string-match-p "\\`<[0-9]+>\\'"
+                                             (key-description key)))
+                           (where-is-internal def))))
+            (key-description key))))
+      ""))
+
+(defun magit-menu-position ()
+  "Return the position where the context-menu was invoked.
+If the current command wasn't invoked using the context-menu,
+then return nil."
+  (and magit--context-menu-section
+       (ignore-errors
+         (posn-point (event-start (aref (this-command-keys-vector) 0))))))
+
+(defun magit-menu-highlight-point-section ()
+  (setq magit-section-highlight-force-update t)
+  (if (eq (current-buffer) magit--context-menu-buffer)
+      (setq magit--context-menu-section nil)
+    (if-let ((window (get-buffer-window magit--context-menu-buffer)))
+        (with-selected-window window
+          (setq magit--context-menu-section nil)
+          (magit-section-update-highlight))
+      (with-current-buffer magit--context-menu-buffer
+        (setq magit--context-menu-section nil))))
+  (setq magit--context-menu-buffer nil))
+
+(defvar magit--plural-append-es '(branch))
+
+(cl-defgeneric magit-menu-common-value (_section)
+  "Return some value to be used by multiple menu items.
+This function is called by `magit-section-context-menu', which
+stores the value in `magit-menu-common-value'.  Individual menu
+items can use it, e.g., in the expression used to set their
+description."
+  nil)
+
+(defun magit-menu--desc-values (section)
+  (let ((type (oref section type))
+        (value (oref section value))
+        (multiple (magit-region-sections nil t)))
+    (list type
+          value
+          (format "%s %s" type value)
+          (and multiple (length multiple))
+          (if (memq type magit--plural-append-es) "es" "s"))))
+
+(defun magit-menu-format-desc (format)
+  "Format a string based on FORMAT and menu section or selection.
+The following %-specs are allowed:
+%t means \"TYPE\".
+%T means \"TYPE\", or \"TYPEs\" if multiple sections are selected.
+%v means \"VALUE\".
+%s means \"TYPE VALUE\".
+%m means \"TYPE VALUE\", or \"COUNT TYPEs\" if multiple sections
+   are selected.
+%M means \"VALUE\", or \"COUNT TYPEs\" if multiple sections are
+   selected.
+%x means the value of `magit-menu-common-value'."
+  (pcase-let* ((`(,type ,value ,single ,count ,suffix) magit-menu--desc-values)
+               (multiple (and count (format "%s %s%s" count type suffix))))
+    (format-spec format
+                 `((?t . ,type)
+                   (?T . ,(format "%s%s" type (if count suffix "")))
+                   (?v . ,value)
+                   (?s . ,single)
+                   (?m . ,(or multiple single))
+                   (?M . ,(or multiple value))
+                   (?x . ,(format "%s" magit-menu-common-value))))))
+
+(defun magit--menu-bar-keymap (keymap)
+  "Backport of `menu-bar-keymap' for Emacs < 28.
+Slight trimmed down."
+  (let ((menu-bar nil))
+    (map-keymap (lambda (key binding)
+                  (push (cons key binding) menu-bar))
+                keymap)
+    (cons 'keymap (nreverse menu-bar))))
+
+(defun magit--context-menu-local (menu _click)
+  "Backport of `context-menu-local' for Emacs < 28."
+  (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
+  (keymap-set-after menu "<separator-local>" menu-bar-separator)
+  (let ((keymap (local-key-binding [menu-bar])))
+    (when keymap
+      (map-keymap (lambda (key binding)
+                    (when (consp binding)
+                      (define-key-after menu (vector key)
+                        (copy-sequence binding))))
+                  (magit--menu-bar-keymap keymap))))
+  menu)
+
+(define-advice context-menu-region (:around (fn menu click) magit-section-mode)
+  "Disable in `magit-section-mode' buffers."
+  (if (derived-mode-p 'magit-section-mode)
+      menu
+    (funcall fn menu click)))
+
+;;; Commands
+;;;; Movement
+
+(defun magit-section-forward ()
+  "Move to the beginning of the next visible section."
+  (interactive)
+  (if (eobp)
+      (user-error "No next section")
+    (let ((section (magit-current-section)))
+      (if (oref section parent)
+          (let ((next (and (not (oref section hidden))
+                           (not (= (oref section end)
+                                   (1+ (point))))
+                           (car (oref section children)))))
+            (while (and section (not next))
+              (unless (setq next (car (magit-section-siblings section 'next)))
+                (setq section (oref section parent))))
+            (if next
+                (magit-section-goto next)
+              (user-error "No next section")))
+        (magit-section-goto 1)))))
+
+(defun magit-section-backward ()
+  "Move to the beginning of the current or the previous visible section.
+When point is at the beginning of a section then move to the
+beginning of the previous visible section.  Otherwise move to
+the beginning of the current section."
+  (interactive)
+  (if (bobp)
+      (user-error "No previous section")
+    (let ((section (magit-current-section)) children)
+      (cond
+       ((and (= (point)
+                (1- (oref section end)))
+             (setq children (oref section children)))
+        (magit-section-goto (car (last children))))
+       ((and (oref section parent)
+             (not (= (point)
+                     (oref section start))))
+        (magit-section-goto section))
+       (t
+        (let ((prev (car (magit-section-siblings section 'prev))))
+          (if prev
+              (while (and (not (oref prev hidden))
+                          (setq children (oref prev children)))
+                (setq prev (car (last children))))
+            (setq prev (oref section parent)))
+          (cond (prev
+                 (magit-section-goto prev))
+                ((oref section parent)
+                 (user-error "No previous section"))
+                ;; Eob special cases.
+                ((not (get-text-property (1- (point)) 'invisible))
+                 (magit-section-goto -1))
+                (t
+                 (goto-char (previous-single-property-change
+                             (1- (point)) 'invisible))
+                 (forward-line -1)
+                 (magit-section-goto (magit-current-section))))))))))
+
+(defun magit-section-up ()
+  "Move to the beginning of the parent section."
+  (interactive)
+  (if-let ((parent (oref (magit-current-section) parent)))
+      (magit-section-goto parent)
+    (user-error "No parent section")))
+
+(defun magit-section-forward-sibling ()
+  "Move to the beginning of the next sibling section.
+If there is no next sibling section, then move to the parent."
+  (interactive)
+  (let ((current (magit-current-section)))
+    (if (oref current parent)
+        (if-let ((next (car (magit-section-siblings current 'next))))
+            (magit-section-goto next)
+          (magit-section-forward))
+      (magit-section-goto 1))))
+
+(defun magit-section-backward-sibling ()
+  "Move to the beginning of the previous sibling section.
+If there is no previous sibling section, then move to the parent."
+  (interactive)
+  (let ((current (magit-current-section)))
+    (if (oref current parent)
+        (if-let ((previous (car (magit-section-siblings current 'prev))))
+            (magit-section-goto previous)
+          (magit-section-backward))
+      (magit-section-goto -1))))
+
+(defun magit-section-goto (arg)
+  (if (integerp arg)
+      (progn (forward-line arg)
+             (setq arg (magit-current-section)))
+    (goto-char (oref arg start)))
+  (run-hook-with-args 'magit-section-movement-hook arg))
+
+(defun magit-section-set-window-start (section)
+  "Ensure the beginning of SECTION is visible."
+  (unless (pos-visible-in-window-p (oref section end))
+    (set-window-start (selected-window) (oref section start))))
+
+(defmacro magit-define-section-jumper
+    (name heading type &optional value inserter &rest properties)
+  "Define an interactive function to go some section.
+Together TYPE and VALUE identify the section.
+HEADING is the displayed heading of the section."
+  (declare (indent defun))
+  `(transient-define-suffix ,name (&optional expand)
+     ,(format "Jump to the section \"%s\".
+With a prefix argument also expand it." heading)
+     ,@properties
+     ,@(and (not (plist-member properties :description))
+            (list :description heading))
+     ,@(and inserter
+            `(:if (lambda () (memq ',inserter
+                              (bound-and-true-p magit-status-sections-hook)))))
+     :inapt-if-not (lambda () (magit-get-section
+                          (cons (cons ',type ,value)
+                                (magit-section-ident magit-root-section))))
+     (interactive "P")
+     (if-let ((section (magit-get-section
+                        (cons (cons ',type ,value)
+                              (magit-section-ident magit-root-section)))))
+         (progn (goto-char (oref section start))
+                (when expand
+                  (with-local-quit (magit-section-show section))
+                  (recenter 0)))
+       (message ,(format "Section \"%s\" wasn't found" heading)))))
+
+;;;; Visibility
+
+(defun magit-section-show (section)
+  "Show the body of the current section."
+  (interactive (list (magit-current-section)))
+  (oset section hidden nil)
+  (magit-section--maybe-wash section)
+  (when-let ((beg (oref section content)))
+    (remove-overlays beg (oref section end) 'invisible t))
+  (magit-section-maybe-update-visibility-indicator section)
+  (magit-section-maybe-cache-visibility section)
+  (dolist (child (oref section children))
+    (if (oref child hidden)
+        (magit-section-hide child)
+      (magit-section-show child))))
+
+(defun magit-section--maybe-wash (section)
+  (when-let ((washer (oref section washer)))
+    (oset section washer nil)
+    (let ((inhibit-read-only t)
+          (magit-insert-section--parent section)
+          (magit-insert-section--current section)
+          (content (oref section content)))
+      (save-excursion
+        (if (and content (< content (oref section end)))
+            (funcall washer section) ; already partially washed (hunk)
+          (goto-char (oref section end))
+          (oset section content (point-marker))
+          (funcall washer)
+          (oset section end (point-marker)))))
+    (setq magit-section-highlight-force-update t)))
+
+(defun magit-section-hide (section)
+  "Hide the body of the current section."
+  (interactive (list (magit-current-section)))
+  (if (eq section magit-root-section)
+      (user-error "Cannot hide root section")
+    (oset section hidden t)
+    (when-let ((beg (oref section content)))
+      (let ((end (oref section end)))
+        (when (< beg (point) end)
+          (goto-char (oref section start)))
+        (remove-overlays beg end 'invisible t)
+        (let ((o (make-overlay beg end)))
+          (overlay-put o 'evaporate t)
+          (overlay-put o 'invisible t)
+          (overlay-put o 'cursor-intangible t))))
+    (magit-section-maybe-update-visibility-indicator section)
+    (magit-section-maybe-cache-visibility section)))
+
+(defun magit-section-toggle (section)
+  "Toggle visibility of the body of the current section."
+  (interactive (list (magit-current-section)))
+  (cond ((eq section magit-root-section)
+         (user-error "Cannot hide root section"))
+        ((oref section hidden)
+         (magit-section-show section))
+        ((magit-section-hide section))))
+
+(defun magit-section-toggle-children (section)
+  "Toggle visibility of bodies of children of the current section."
+  (interactive (list (magit-current-section)))
+  (let* ((children (oref section children))
+         (show (--any-p (oref it hidden) children)))
+    (dolist (c children)
+      (oset c hidden show)))
+  (magit-section-show section))
+
+(defun magit-section-show-children (section &optional depth)
+  "Recursively show the bodies of children of the current section.
+With a prefix argument show children that deep and hide deeper
+children."
+  (interactive (list (magit-current-section)))
+  (magit-section-show-children-1 section depth)
+  (magit-section-show section))
+
+(defun magit-section-show-children-1 (section &optional depth)
+  (dolist (child (oref section children))
+    (oset child hidden nil)
+    (if depth
+        (if (> depth 0)
+            (magit-section-show-children-1 child (1- depth))
+          (magit-section-hide child))
+      (magit-section-show-children-1 child))))
+
+(defun magit-section-hide-children (section)
+  "Recursively hide the bodies of children of the current section."
+  (interactive (list (magit-current-section)))
+  (mapc #'magit-section-hide (oref section children)))
+
+(defun magit-section-show-headings (section)
+  "Recursively show headings of children of the current section.
+Only show the headings, previously shown text-only bodies are
+hidden."
+  (interactive (list (magit-current-section)))
+  (magit-section-show-headings-1 section)
+  (magit-section-show section))
+
+(defun magit-section-show-headings-1 (section)
+  (dolist (child (oref section children))
+    (oset child hidden nil)
+    (when (or (oref child children)
+              (not (oref child content)))
+      (magit-section-show-headings-1 child))))
+
+(defun magit-section-cycle (section)
+  "Cycle visibility of current section and its children.
+
+If this command is invoked using \\`C-<tab>' and that is globally bound
+to `tab-next', then this command pivots to behave like that command, and
+you must instead use \\`C-c TAB' to cycle section visibility.
+
+If you would like to keep using \\`C-<tab>' to cycle section visibility
+but also want to use `tab-bar-mode', then you have to prevent that mode
+from using this key and instead bind another key to `tab-next'.  Because
+`tab-bar-mode' does not use a mode map but instead manipulates the
+global map, this involves advising `tab-bar--define-keys'."
+  (interactive (list (magit-current-section)))
+  (cond
+   ((and (equal (this-command-keys) [C-tab])
+         (eq (global-key-binding [C-tab]) 'tab-next)
+         (fboundp 'tab-bar-switch-to-next-tab))
+    (tab-bar-switch-to-next-tab current-prefix-arg))
+   ((oref section hidden)
+    (magit-section-show section)
+    (magit-section-hide-children section))
+   ((let ((children (oref section children)))
+      (cond ((and (--any-p (oref it hidden)   children)
+                  (--any-p (oref it children) children))
+             (magit-section-show-headings section))
+            ((seq-some #'magit-section-hidden-body children)
+             (magit-section-show-children section))
+            ((magit-section-hide section)))))))
+
+(defun magit-section-cycle-global ()
+  "Cycle visibility of all sections in the current buffer."
+  (interactive)
+  (let ((children (oref magit-root-section children)))
+    (cond ((and (--any-p (oref it hidden)   children)
+                (--any-p (oref it children) children))
+           (magit-section-show-headings magit-root-section))
+          ((seq-some #'magit-section-hidden-body children)
+           (magit-section-show-children magit-root-section))
+          (t
+           (mapc #'magit-section-hide children)))))
+
+(defun magit-section-hidden-body (section &optional pred)
+  (if-let ((children (oref section children)))
+      (funcall (or pred #'-any-p) #'magit-section-hidden-body children)
+    (and (oref section content)
+         (oref section hidden))))
+
+(defun magit-section-content-p (section)
+  "Return non-nil if SECTION has content or an unused washer function."
+  (with-slots (content end washer) section
+    (and content (or (not (= content end)) washer))))
+
+(defun magit-section-invisible-p (section)
+  "Return t if the SECTION's body is invisible.
+When the body of an ancestor of SECTION is collapsed then
+SECTION's body (and heading) obviously cannot be visible."
+  (or (oref section hidden)
+      (and-let* ((parent (oref section parent)))
+        (magit-section-invisible-p parent))))
+
+(defun magit-section-show-level (level)
+  "Show surrounding sections up to LEVEL.
+If LEVEL is negative, show up to the absolute value.
+Sections at higher levels are hidden."
+  (if (< level 0)
+      (let ((s (magit-current-section)))
+        (setq level (- level))
+        (while (> (1- (length (magit-section-ident s))) level)
+          (setq s (oref s parent))
+          (goto-char (oref s start)))
+        (magit-section-show-children magit-root-section (1- level)))
+    (cl-do* ((s (magit-current-section)
+                (oref s parent))
+             (i (1- (length (magit-section-ident s)))
+                (cl-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)))))
+
+(defun magit-section-show-level-1 ()
+  "Show surrounding sections on first level."
+  (interactive)
+  (magit-section-show-level 1))
+
+(defun magit-section-show-level-1-all ()
+  "Show all sections on first level."
+  (interactive)
+  (magit-section-show-level -1))
+
+(defun magit-section-show-level-2 ()
+  "Show surrounding sections up to second level."
+  (interactive)
+  (magit-section-show-level 2))
+
+(defun magit-section-show-level-2-all ()
+  "Show all sections up to second level."
+  (interactive)
+  (magit-section-show-level -2))
+
+(defun magit-section-show-level-3 ()
+  "Show surrounding sections up to third level."
+  (interactive)
+  (magit-section-show-level 3))
+
+(defun magit-section-show-level-3-all ()
+  "Show all sections up to third level."
+  (interactive)
+  (magit-section-show-level -3))
+
+(defun magit-section-show-level-4 ()
+  "Show surrounding sections up to fourth level."
+  (interactive)
+  (magit-section-show-level 4))
+
+(defun magit-section-show-level-4-all ()
+  "Show all sections up to fourth level."
+  (interactive)
+  (magit-section-show-level -4))
+
+(defun magit-mouse-toggle-section (event)
+  "Toggle visibility of the clicked section.
+Clicks outside either the section heading or the left fringe are
+silently ignored."
+  (interactive "e")
+  (let* ((pos (event-start event))
+         (section (magit-section-at (posn-point pos))))
+    (if (eq (posn-area pos) 'left-fringe)
+        (when section
+          (while (not (magit-section-content-p section))
+            (setq section (oref section parent)))
+          (unless (eq section magit-root-section)
+            (goto-char (oref section start))
+            (magit-section-toggle section)))
+      (magit-section-toggle section))))
+
+;;;; Auxiliary
+
+(defun magit-describe-section-briefly (section &optional ident interactive)
+  "Show information about the section at point.
+With a prefix argument show the section identity instead of the
+section lineage.  This command is intended for debugging purposes.
+\n(fn SECTION &optional IDENT)"
+  (interactive (list (magit-current-section) current-prefix-arg t))
+  (let ((str (format "#<%s %S %S %s-%s%s>"
+                     (eieio-object-class section)
+                     (let ((val (oref section value)))
+                       (cond ((stringp val)
+                              (substring-no-properties val))
+                             ((and (eieio-object-p val)
+                                   (fboundp 'cl-prin1-to-string))
+                              (cl-prin1-to-string val))
+                             (t
+                              val)))
+                     (if ident
+                         (magit-section-ident section)
+                       (apply #'vector (magit-section-lineage section)))
+                     (and-let* ((m (oref section start)))
+                       (if (markerp m) (marker-position m) m))
+                     (if-let ((m (oref section content)))
+                         (format "[%s-]"
+                                 (if (markerp m) (marker-position m) m))
+                       "")
+                     (and-let* ((m (oref section end)))
+                       (if (markerp m) (marker-position m) m)))))
+    (when interactive
+      (message "%s" str))
+    str))
+
+(cl-defmethod cl-print-object ((section magit-section) stream)
+  "Print `magit-describe-section' result of SECTION."
+  ;; Used by debug and edebug as of Emacs 26.
+  (princ (magit-describe-section-briefly section) stream))
+
+(defun magit-describe-section (section &optional interactive-p)
+  "Show information about the section at point."
+  (interactive (list (magit-current-section) t))
+  (let ((inserter-section section))
+    (while (and inserter-section (not (oref inserter-section inserter)))
+      (setq inserter-section (oref inserter-section parent)))
+    (when (and inserter-section (oref inserter-section inserter))
+      (setq section inserter-section)))
+  (pcase (oref section inserter)
+    (`((,hook ,fun) . ,src-src)
+     (help-setup-xref `(magit-describe-section ,section) interactive-p)
+     (with-help-window (help-buffer)
+       (with-current-buffer standard-output
+         (insert (format-message
+                  "%s\n  is inserted by `%s'\n  from `%s'"
+                  (magit-describe-section-briefly section)
+                  (make-text-button (symbol-name fun) nil
+                                    :type 'help-function
+                                    'help-args (list fun))
+                  (make-text-button (symbol-name hook) nil
+                                    :type 'help-variable
+                                    'help-args (list hook))))
+         (pcase-dolist (`(,hook ,fun) src-src)
+           (insert (format-message
+                    ",\n  called by `%s'\n  from `%s'"
+                    (make-text-button (symbol-name fun) nil
+                                      :type 'help-function
+                                      'help-args (list fun))
+                    (make-text-button (symbol-name hook) nil
+                                      :type 'help-variable
+                                      'help-args (list hook)))))
+         (insert ".\n\n")
+         (insert
+          (format-message
+           "`%s' is "
+           (make-text-button (symbol-name fun) nil
+                             :type 'help-function 'help-args (list fun))))
+         (describe-function-1 fun))))
+    (_ (message "%s, inserter unknown"
+                (magit-describe-section-briefly section)))))
+
+;;; Match
+
+(cl-defun magit-section-match
+    (condition &optional (section (magit-current-section)))
+  "Return t if SECTION matches CONDITION.
+
+SECTION defaults to the section at point.  If SECTION is not
+specified and there also is no section at point, then return
+nil.
+
+CONDITION can take the following forms:
+  (CONDITION...)  matches if any of the CONDITIONs matches.
+  [CLASS...]      matches if the section's class is the same
+                  as the first CLASS or a subclass of that;
+                  the section's parent class matches the
+                  second CLASS; and so on.
+  [* CLASS...]    matches sections that match [CLASS...] and
+                  also recursively all their child sections.
+  CLASS           matches if the section's class is the same
+                  as CLASS or a subclass of that; regardless
+                  of the classes of the parent sections.
+
+Each CLASS should be a class symbol, identifying a class that
+derives from `magit-section'.  For backward compatibility CLASS
+can also be a \"type symbol\".  A section matches such a symbol
+if the value of its `type' slot is `eq'.  If a type symbol has
+an entry in `magit--section-type-alist', then a section also
+matches that type if its class is a subclass of the class that
+corresponds to the type as per that alist.
+
+Note that it is not necessary to specify the complete section
+lineage as printed by `magit-describe-section-briefly', unless
+of course you want to be that precise."
+  (and section (magit-section-match-1 condition section)))
+
+(defun magit-section-match-1 (condition section)
+  (cl-assert condition)
+  (and section
+       (if (listp condition)
+           (--first (magit-section-match-1 it section) condition)
+         (magit-section-match-2 (if (symbolp condition)
+                                    (list condition)
+                                  (cl-coerce condition 'list))
+                                section))))
+
+(defun magit-section-match-2 (condition section)
+  (if (eq (car condition) '*)
+      (or (magit-section-match-2 (cdr condition) section)
+          (and-let* ((parent (oref section parent)))
+            (magit-section-match-2 condition parent)))
+    (and (let ((c (car condition)))
+           (if (class-p c)
+               (cl-typep section c)
+             (if-let ((class (cdr (assq c magit--section-type-alist))))
+                 (cl-typep section class)
+               (eq (oref section type) c))))
+         (or (not (setq condition (cdr condition)))
+             (and-let* ((parent (oref section parent)))
+               (magit-section-match-2 condition parent))))))
+
+(defun magit-section-value-if (condition &optional section)
+  "If the section at point matches CONDITION, then return its value.
+
+If optional SECTION is non-nil then test whether that matches
+instead.  If there is no section at point and SECTION is nil,
+then return nil.  If the section does not match, then return
+nil.
+
+See `magit-section-match' for the forms CONDITION can take."
+  (and-let* ((section (or section (magit-current-section))))
+    (and (magit-section-match condition section)
+         (oref section value))))
+
+(defmacro magit-section-case (&rest clauses)
+  "Choose among clauses on the type of the section at point.
+
+Each clause looks like (CONDITION BODY...).  The type of the
+section is compared against each CONDITION; the BODY forms of the
+first match are evaluated sequentially and the value of the last
+form is returned.  Inside BODY the symbol `it' is bound to the
+section at point.  If no clause succeeds or if there is no
+section at point, return nil.
+
+See `magit-section-match' for the forms CONDITION can take.
+Additionally a CONDITION of t is allowed in the final clause, and
+matches if no other CONDITION match, even if there is no section
+at point."
+  (declare (indent 0)
+           (debug (&rest (sexp body))))
+  `(let* ((it (magit-current-section)))
+     (cond ,@(mapcar (lambda (clause)
+                       `(,(or (eq (car clause) t)
+                              `(and it
+                                    (magit-section-match-1 ',(car clause) it)))
+                         ,@(cdr clause)))
+                     clauses))))
+
+(defun magit-section-match-assoc (section alist)
+  "Return the value associated with SECTION's type or lineage in ALIST."
+  (seq-some (pcase-lambda (`(,key . ,val))
+              (and (magit-section-match-1 key section) val))
+            alist))
+
+;;; Create
+
+(defvar magit-insert-section-hook nil
+  "Hook run after `magit-insert-section's BODY.
+Avoid using this hook and only ever do so if you know
+what you are doing and are sure there is no other way.")
+
+(defmacro magit-insert-section (&rest args)
+  "Insert a section at point.
+
+Create a section object of type CLASS, storing VALUE in its
+`value' slot, and insert the section at point.  CLASS is a
+subclass of `magit-section' or has the form `(eval FORM)', in
+which case FORM is evaluated at runtime and should return a
+subclass.  In other places a sections class is often referred
+to as its \"type\".
+
+Many commands behave differently depending on the class of the
+current section and sections of a certain class can have their
+own keymap, which is specified using the `keymap' class slot.
+The value of that slot should be a variable whose value is a
+keymap.
+
+For historic reasons Magit and Forge in most cases use symbols
+as CLASS that don't actually identify a class and that lack the
+appropriate package prefix.  This works due to some undocumented
+kludges, which are not available to other packages.
+
+When optional HIDE is non-nil collapse the section body by
+default, i.e., when first creating the section, but not when
+refreshing the buffer.  Else expand it by default.  This can be
+overwritten using `magit-section-set-visibility-hook'.  When a
+section is recreated during a refresh, then the visibility of
+predecessor is inherited and HIDE is ignored (but the hook is
+still honored).
+
+BODY is any number of forms that actually insert the section's
+heading and body.  Optional NAME, if specified, has to be a
+symbol, which is then bound to the object of the section being
+inserted.
+
+Before BODY is evaluated the `start' of the section object is set
+to the value of `point' and after BODY was evaluated its `end' is
+set to the new value of `point'; BODY is responsible for moving
+`point' forward.
+
+If it turns out inside BODY that the section is empty, then
+`magit-cancel-section' can be used to abort and remove all traces
+of the partially inserted section.  This can happen when creating
+a section by washing Git's output and Git didn't actually output
+anything this time around.
+
+\(fn [NAME] (CLASS &optional VALUE HIDE) &rest BODY)"
+  (declare (indent 1)
+           (debug ([&optional symbolp]
+                   (&or [("eval" form) &optional form form &rest form]
+                        [symbolp &optional form form &rest form])
+                   body)))
+  (pcase-let* ((bind (and (symbolp (car args))
+                          (pop args)))
+               (`((,class ,value ,hide . ,args) . ,body) args)
+               (obj (cl-gensym "section")))
+    `(let* ((,obj (magit-insert-section--create
+                   ,(if (eq (car-safe class) 'eval) (cadr class) `',class)
+                   ,value ,hide ,@args))
+            (magit-insert-section--current ,obj)
+            (magit-insert-section--oldroot
+             (or magit-insert-section--oldroot
+                 (and (not magit-insert-section--parent)
+                      (prog1 magit-root-section
+                        (setq magit-root-section ,obj)))))
+            (magit-insert-section--parent ,obj))
+       (catch 'cancel-section
+         ,@(if bind `((let ((,bind ,obj)) ,@body)) body)
+         (magit-insert-section--finish ,obj))
+       ,obj)))
+
+(defun magit-insert-section--create (class value hide &rest args)
+  (let (type)
+    (if (class-p class)
+        (setq type (or (car (rassq class magit--section-type-alist))
+                       class))
+      (setq type class)
+      (setq class (or (cdr (assq class magit--section-type-alist))
+                      'magit-section)))
+    (let ((obj (apply class :type type args)))
+      (oset obj value value)
+      (oset obj parent magit-insert-section--parent)
+      (oset obj start (if magit-section-inhibit-markers (point) (point-marker)))
+      (unless (slot-boundp obj 'hidden)
+        (oset obj hidden
+              (let (set old)
+                (cond
+                 ((setq set (run-hook-with-args-until-success
+                             'magit-section-set-visibility-hook obj))
+                  (eq set 'hide))
+                 ((setq old (and (not magit-section-preserve-visibility)
+                                 magit-insert-section--oldroot
+                                 (magit-get-section
+                                  (magit-section-ident obj)
+                                  magit-insert-section--oldroot)))
+                  (oref old hidden))
+                 ((setq set (magit-section-match-assoc
+                             obj magit-section-initial-visibility-alist))
+                  (eq (if (functionp set) (funcall set obj) set) 'hide))
+                 (hide)))))
+      (unless (oref obj keymap)
+        (let ((type (oref obj type)))
+          (oset obj keymap
+                (or (let ((sym (intern (format "magit-%s-section-map" type))))
+                      (and (boundp sym) sym))
+                    (let ((sym (intern (format "forge-%s-section-map" type))))
+                      (and (boundp sym) sym))))))
+      obj)))
+
+(defun magit-insert-section--finish (obj)
+  (run-hooks 'magit-insert-section-hook)
+  (let ((beg (oref obj start))
+        (end (oset obj end
+                   (if magit-section-inhibit-markers
+                       (point)
+                     (point-marker))))
+        (props `( magit-section ,obj
+                  ,@(and-let* ((map (symbol-value (oref obj keymap))))
+                      (list 'keymap map)))))
+    (unless magit-section-inhibit-markers
+      (set-marker-insertion-type beg t))
+    (cond ((eq obj magit-root-section))
+          ((oref obj children)
+           (magit-insert-child-count obj)
+           (magit-section-maybe-add-heading-map obj)
+           (save-excursion
+             (goto-char beg)
+             (while (< (point) end)
+               (let ((next (or (next-single-property-change
+                                (point) 'magit-section)
+                               end)))
+                 (unless (magit-section-at)
+                   (add-text-properties (point) next props))
+                 (goto-char next)))))
+          ((add-text-properties beg end props)))
+    (cond ((eq obj magit-root-section)
+           (when (eq magit-section-inhibit-markers 'delay)
+             (setq magit-section-inhibit-markers nil)
+             (magit-map-sections
+              (lambda (section)
+                (oset section start (copy-marker (oref section start) t))
+                (oset section end   (copy-marker (oref section end)   t)))))
+           (let ((magit-section-cache-visibility nil))
+             (magit-section-show obj)))
+          (magit-section-insert-in-reverse
+           (push obj (oref (oref obj parent) children)))
+          ((let ((parent (oref obj parent)))
+             (oset parent children
+                   (nconc (oref parent children)
+                          (list obj))))))
+    (when magit-section-insert-in-reverse
+      (oset obj children (nreverse (oref obj children))))))
+
+(defun magit-cancel-section (&optional if-empty)
+  "Cancel inserting the section that is currently being inserted.
+
+Canceling returns from the inner most use of `magit-insert-section' and
+removes all text that was inserted by that.
+
+If optional IF-EMPTY is non-nil, then only cancel the section, if it is
+empty.  If a section is split into a heading and a body (i.e., when its
+`content' slot is non-nil), then only check if the body is empty."
+  (when (and magit-insert-section--current
+             (or (not if-empty)
+                 (= (point) (or (oref magit-insert-section--current content)
+                                (oref magit-insert-section--current start)))))
+    (if (eq magit-insert-section--current magit-root-section)
+        (insert "(empty)\n")
+      (delete-region (oref magit-insert-section--current start)
+                     (point))
+      (setq magit-insert-section--current nil)
+      (throw 'cancel-section nil))))
+
+(defun magit-insert-heading (&rest args)
+  "Insert the heading for the section currently being inserted.
+
+This function should only be used inside `magit-insert-section'.
+
+When called without any arguments, then just set the `content'
+slot of the object representing the section being inserted to
+a marker at `point'.  The section should only contain a single
+line when this function is used like this.
+
+When called with arguments ARGS, which have to be strings, or
+nil, then insert those strings at point.  The section should not
+contain any text before this happens and afterwards it should
+again only contain a single line.  If the `face' property is set
+anywhere inside any of these strings, then insert all of them
+unchanged.  Otherwise use the `magit-section-heading' face for
+all inserted text.
+
+The `content' property of the section object is the end of the
+heading (which lasts from `start' to `content') and the beginning
+of the the body (which lasts from `content' to `end').  If the
+value of `content' is nil, then the section has no heading and
+its body cannot be collapsed.  If a section does have a heading,
+then its height must be exactly one line, including a trailing
+newline character.  This isn't enforced, you are responsible for
+getting it right.  The only exception is that this function does
+insert a newline character if necessary
+
+If provided, optional CHILD-COUNT must evaluate to an integer or
+boolean.  If t, then the count is determined once the children have been
+inserted, using `magit-insert-child-count' (which see).  For historic
+reasons, if the heading ends with \":\", the count is substituted for
+that, at this time as well.  If `magit-section-show-child-count' is nil,
+no counts are inserted
+
+\n(fn [CHILD-COUNT] &rest STRINGS)"
+  (declare (indent defun))
+  (when args
+    (let ((count (and (or (integerp (car args))
+                          (booleanp (car args)))
+                      (pop args)))
+          (heading (apply #'concat args)))
+      (insert (if (or (text-property-not-all 0 (length heading)
+                                             'font-lock-face nil heading)
+                      (text-property-not-all 0 (length heading)
+                                             'face nil heading))
+                  heading
+                (propertize heading 'font-lock-face 'magit-section-heading)))
+      (when (and count magit-section-show-child-count)
+        (insert (propertize (format " (%s)" count)
+                            'font-lock-face 'magit-section-child-count)))))
+  (unless (bolp)
+    (insert ?\n))
+  (when (fboundp 'magit-maybe-make-margin-overlay)
+    (magit-maybe-make-margin-overlay))
+  (oset magit-insert-section--current content
+        (if magit-section-inhibit-markers (point) (point-marker))))
+
+(defmacro magit-insert-section-body (&rest body)
+  "Use BODY to insert the section body, once the section is expanded.
+If the section is expanded when it is created, then this is
+like `progn'.  Otherwise BODY isn't evaluated until the section
+is explicitly expanded."
+  (declare (indent 0))
+  (let ((f (cl-gensym))
+        (s (cl-gensym))
+        (l (cl-gensym)))
+    `(let ((,f (lambda () ,@body)))
+       (if (oref magit-insert-section--current hidden)
+           (oset magit-insert-section--current washer
+                 (let ((,s magit-insert-section--current))
+                   (lambda ()
+                     (let ((,l (magit-section-lineage ,s t)))
+                       (dolist (s ,l)
+                         (set-marker-insertion-type (oref s end) t))
+                       (funcall ,f)
+                       (dolist (s ,l)
+                         (set-marker-insertion-type (oref s end) nil))
+                       (magit-section-maybe-remove-heading-map ,s)
+                       (magit-section-maybe-remove-visibility-indicator ,s)))))
+         (funcall ,f)))))
+
+(defun magit-insert-headers (hook)
+  (let* ((header-sections nil)
+         (fn (lambda () (push magit-insert-section--current header-sections))))
+    (unwind-protect
+        (progn
+          (add-hook 'magit-insert-section-hook fn -90 t)
+          (magit-run-section-hook hook)
+          (when header-sections
+            (insert "\n")
+            ;; Make the first header into the parent of the rest.
+            (when (cdr header-sections)
+              (setq header-sections (nreverse header-sections))
+              (let* ((1st-header (pop header-sections))
+                     (header-parent (oref 1st-header parent)))
+                (oset header-parent children (list 1st-header))
+                (oset 1st-header children header-sections)
+                (oset 1st-header content (oref (car header-sections) start))
+                (oset 1st-header end (oref (car (last header-sections)) end))
+                (dolist (sub-header header-sections)
+                  (oset sub-header parent 1st-header))
+                (magit-section-maybe-add-heading-map 1st-header)))))
+      (remove-hook 'magit-insert-section-hook fn t))))
+
+(defun magit-section-maybe-add-heading-map (section)
+  (when (magit-section-content-p section)
+    (let ((start (oref section start))
+          (map (oref section keymap)))
+      (when (symbolp map)
+        (setq map (symbol-value map)))
+      (put-text-property
+       start
+       (save-excursion
+         (goto-char start)
+         (line-end-position))
+       'keymap (if map
+                   (make-composed-keymap
+                    (list map magit-section-heading-map))
+                 magit-section-heading-map)))))
+
+(defun magit-section-maybe-remove-heading-map (section)
+  (with-slots (start content end keymap) section
+    (when (= content end)
+      (put-text-property start end 'keymap
+                         (if (symbolp keymap) (symbol-value keymap) keymap)))))
+
+(defun magit-insert-child-count (section)
+  "Modify SECTION's heading to contain number of child sections.
+
+If `magit-section-show-child-count' is non-nil and the SECTION
+has children and its heading ends with \":\", then replace that
+with \" (N)\", where N is the number of child sections.
+
+This function is called by `magit-insert-section' after that has
+evaluated its BODY.  Admittedly that's a bit of a hack."
+  (let (content count)
+    (cond
+     ((not (and magit-section-show-child-count
+                (setq content (oref section content))
+                (setq count (length (oref section children)))
+                (> count 0))))
+     ((eq (char-before (- content 1)) ?:)
+      (save-excursion
+        (goto-char (- content 2))
+        (insert (magit--propertize-face (format " (%s)" count)
+                                        'magit-section-child-count))
+        (delete-char 1)))
+     ((and (eq (char-before (- content 4)) ?\s)
+           (eq (char-before (- content 3)) ?\()
+           (eq (char-before (- content 2)) ?t )
+           (eq (char-before (- content 1)) ?\)))
+      (save-excursion
+        (goto-char (- content 3))
+        (delete-char 1)
+        (insert (format "%s" count)))))))
+
+;;; Highlight
+
+(defun magit-section-pre-command-hook ()
+  (when (and (or magit--context-menu-buffer
+                 magit--context-menu-section)
+             (not (eq (ignore-errors
+                        (event-basic-type (aref (this-command-keys) 0)))
+                      'mouse-3)))
+    ;; This is the earliest opportunity to clean up after an aborted
+    ;; context-menu because that neither causes the command that created
+    ;; the menu to abort nor some abortion hook to be run.  It is not
+    ;; possible to update highlighting before the first command invoked
+    ;; after the menu is aborted.  Here we can only make sure it is
+    ;; updated afterwards.
+    (magit-menu-highlight-point-section))
+  (setq magit-section-pre-command-region-p (region-active-p))
+  (setq magit-section-pre-command-section (magit-current-section)))
+
+(defun magit-section-post-command-hook ()
+  (let ((window (selected-window)))
+    ;; The command may have used `set-window-buffer' to change
+    ;; the window's buffer without changing the current buffer.
+    (when (eq (current-buffer) (window-buffer window))
+      (cursor-sensor-move-to-tangible window)
+      (when (or magit--context-menu-buffer
+                magit--context-menu-section)
+        (magit-menu-highlight-point-section))))
+  (unless (memq this-command '(magit-refresh magit-refresh-all))
+    (magit-section-update-highlight)))
+
+(defun magit-section-deactivate-mark ()
+  (setq magit-section-highlight-force-update t))
+
+(defun magit-section-update-highlight (&optional force)
+  (let ((section (magit-current-section)))
+    (when (or force
+              magit-section-highlight-force-update
+              (xor magit-section-pre-command-region-p (region-active-p))
+              (not (eq magit-section-pre-command-section section)))
+      (let ((inhibit-read-only t)
+            (deactivate-mark nil)
+            (selection (magit-region-sections)))
+        (mapc #'delete-overlay magit-section-highlight-overlays)
+        (setq magit-section-highlight-overlays nil)
+        (setq magit-section-unhighlight-sections
+              magit-section-highlighted-sections)
+        (setq magit-section-highlighted-sections nil)
+        (if (and (fboundp 'long-line-optimizations-p)
+                 (long-line-optimizations-p))
+            (magit-section--enable-long-lines-shortcuts)
+          (unless (eq section magit-root-section)
+            (run-hook-with-args-until-success
+             'magit-section-highlight-hook section selection))
+          (dolist (s magit-section-unhighlight-sections)
+            (run-hook-with-args-until-success
+             'magit-section-unhighlight-hook s selection)))
+        (restore-buffer-modified-p nil)))
+    (setq magit-section-highlight-force-update nil)
+    (magit-section-maybe-paint-visibility-ellipses)))
+
+(defun magit-section-highlight (section selection)
+  "Highlight SECTION and if non-nil all sections in SELECTION.
+This function works for any section but produces undesirable
+effects for diff related sections, which by default are
+highlighted using `magit-diff-highlight'.  Return t."
+  (when-let ((face (oref section heading-highlight-face)))
+    (dolist (section (or selection (list section)))
+      (magit-section-make-overlay
+       (oref section start)
+       (or (oref section content)
+           (oref section end))
+       face)))
+  (cond (selection
+         (magit-section-make-overlay (oref (car selection) start)
+                                     (oref (car (last selection)) end)
+                                     'magit-section-highlight)
+         (magit-section-highlight-selection nil selection))
+        (t
+         (magit-section-make-overlay (oref section start)
+                                     (oref section end)
+                                     'magit-section-highlight)))
+  t)
+
+(defun magit-section-highlight-selection (_ selection)
+  "Highlight the section-selection region.
+If SELECTION is non-nil, then it is a list of sections selected by
+the region.  The headings of these sections are then highlighted.
+
+This is a fallback for people who don't want to highlight the
+current section and therefore removed `magit-section-highlight'
+from `magit-section-highlight-hook'.
+
+This function is necessary to ensure that a representation of
+such a region is visible.  If neither of these functions were
+part of the hook variable, then such a region would be
+invisible."
+  (when (and selection
+             (not (and (eq this-command 'mouse-drag-region))))
+    (dolist (section selection)
+      (magit-section-make-overlay (oref section start)
+                                  (or (oref section content)
+                                      (oref section end))
+                                  'magit-section-heading-selection))
+    t))
+
+(defun magit-section-make-overlay (start end face)
+  ;; Yes, this doesn't belong here.  But the alternative of
+  ;; spreading this hack across the code base is even worse.
+  (when (and magit-section-keep-region-overlay
+             (memq face '(magit-section-heading-selection
+                          magit-diff-file-heading-selection
+                          magit-diff-hunk-heading-selection)))
+    (setq face (list :foreground (face-foreground face))))
+  (let ((ov (make-overlay start end nil t)))
+    (overlay-put ov 'font-lock-face face)
+    (overlay-put ov 'evaporate t)
+    (push ov magit-section-highlight-overlays)
+    ov))
+
+(defvar magit-show-long-lines-warning t)
+
+(defun magit-section--enable-long-lines-shortcuts ()
+  (message "Enabling long lines shortcuts in %S" (current-buffer))
+  (kill-local-variable 'redisplay-highlight-region-function)
+  (kill-local-variable 'redisplay-unhighlight-region-function)
+  (when magit-show-long-lines-warning
+    (setq magit-show-long-lines-warning nil)
+    (display-warning 'magit (format "\
+Emacs has enabled redisplay shortcuts
+in this buffer because there are lines whose length go beyond
+`long-line-threshold' \(%s characters).  As a result, section
+highlighting and the special appearance of the region has been
+disabled.  Some existing highlighting might remain in effect.
+
+These shortcuts remain enabled, even once there no longer are
+any long lines in this buffer.  To disable them again, kill
+and recreate the buffer.
+
+This message won't be shown for this session again.  To disable
+it for all future sessions, set `magit-show-long-lines-warning'
+to nil." (bound-and-true-p long-line-threshold)) :warning)))
+
+(cl-defgeneric magit-section-get-relative-position (section))
+
+(cl-defmethod magit-section-get-relative-position ((section magit-section))
+  (let ((start (oref section start))
+        (point (magit-point)))
+    (list (- (line-number-at-pos point)
+             (line-number-at-pos start))
+          (- point (line-beginning-position)))))
+
+(cl-defgeneric magit-section-goto-successor ())
+
+(cl-defmethod magit-section-goto-successor ((section magit-section)
+                                            line char &optional _arg)
+  (or (magit-section-goto-successor--same section line char)
+      (magit-section-goto-successor--related section)))
+
+(defun magit-section-goto-successor--same (section line char)
+  (let ((ident (magit-section-ident section)))
+    (and-let* ((found (magit-get-section ident)))
+      (let ((start (oref found start)))
+        (goto-char start)
+        (unless (eq found magit-root-section)
+          (ignore-errors
+            (forward-line line)
+            (forward-char char))
+          (unless (eq (magit-current-section) found)
+            (goto-char start)))
+        t))))
+
+(defun magit-section-goto-successor--related (section)
+  (and-let* ((found (magit-section-goto-successor--related-1 section)))
+    (goto-char (if (eq (oref found type) 'button)
+                   (point-min)
+                 (oref found start)))))
+
+(defun magit-section-goto-successor--related-1 (section)
+  (or (and-let* ((alt (pcase (oref section type)
+                        ('staged 'unstaged)
+                        ('unstaged 'staged)
+                        ('unpushed 'unpulled)
+                        ('unpulled 'unpushed))))
+        (magit-get-section `((,alt) (status))))
+      (and-let* ((next (car (magit-section-siblings section 'next))))
+        (magit-get-section (magit-section-ident next)))
+      (and-let* ((prev (car (magit-section-siblings section 'prev))))
+        (magit-get-section (magit-section-ident prev)))
+      (and-let* ((parent (oref section parent)))
+        (or (magit-get-section (magit-section-ident parent))
+            (magit-section-goto-successor--related-1 parent)))))
+
+;;; Region
+
+(defvar-local magit-section--region-overlays nil)
+
+(defun magit-section--delete-region-overlays ()
+  (mapc #'delete-overlay magit-section--region-overlays)
+  (setq magit-section--region-overlays nil))
+
+(defun magit-section--highlight-region (start end window rol)
+  (magit-section--delete-region-overlays)
+  (if (and (not magit-section-keep-region-overlay)
+           (or (magit-region-sections)
+               (run-hook-with-args-until-success 'magit-region-highlight-hook
+                                                 (magit-current-section)))
+           (not (= (line-number-at-pos start)
+                   (line-number-at-pos end)))
+           ;; (not (eq (car-safe last-command-event) 'mouse-movement))
+           )
+      (funcall (default-value 'redisplay-unhighlight-region-function) rol)
+    (funcall (default-value 'redisplay-highlight-region-function)
+             start end window rol)))
+
+(defun magit-section--unhighlight-region (rol)
+  (magit-section--delete-region-overlays)
+  (funcall (default-value 'redisplay-unhighlight-region-function) rol))
+
+;;; Visibility
+
+(defvar-local magit-section-visibility-cache nil)
+(put 'magit-section-visibility-cache 'permanent-local t)
+
+(defun magit-section-cached-visibility (section)
+  "Set SECTION's visibility to the cached value.
+When `magit-section-preserve-visibility' is nil, do nothing."
+  (and magit-section-preserve-visibility
+       (cdr (assoc (magit-section-ident section)
+                   magit-section-visibility-cache))))
+
+(cl-defun magit-section-cache-visibility
+    (&optional (section magit-insert-section--current))
+  (setf (compat-call alist-get
+                     (magit-section-ident section)
+                     magit-section-visibility-cache
+                     nil nil #'equal)
+        (if (oref section hidden) 'hide 'show)))
+
+(cl-defun magit-section-maybe-cache-visibility
+    (&optional (section magit-insert-section--current))
+  (when (or (eq magit-section-cache-visibility t)
+            (memq (oref section type)
+                  magit-section-cache-visibility))
+    (magit-section-cache-visibility section)))
+
+(defun magit-section-maybe-update-visibility-indicator (section)
+  (when (and magit-section-visibility-indicator
+             (magit-section-content-p section))
+    (let* ((beg (oref section start))
+           (eoh (save-excursion
+                  (goto-char beg)
+                  (line-end-position))))
+      (cond
+       ((symbolp (car-safe magit-section-visibility-indicator))
+        (let ((ov (magit--overlay-at beg 'magit-vis-indicator 'fringe)))
+          (unless ov
+            (setq ov (make-overlay beg eoh nil t))
+            (overlay-put ov 'evaporate t)
+            (overlay-put ov 'magit-vis-indicator 'fringe))
+          (overlay-put
+           ov 'before-string
+           (propertize "fringe" 'display
+                       (list 'left-fringe
+                             (if (oref section hidden)
+                                 (car magit-section-visibility-indicator)
+                               (cdr magit-section-visibility-indicator))
+                             'fringe)))))
+       ((stringp (car-safe magit-section-visibility-indicator))
+        (let ((ov (magit--overlay-at (1- eoh) 'magit-vis-indicator 'eoh)))
+          (cond ((oref section hidden)
+                 (unless ov
+                   (setq ov (make-overlay (1- eoh) eoh))
+                   (overlay-put ov 'evaporate t)
+                   (overlay-put ov 'magit-vis-indicator 'eoh))
+                 (overlay-put ov 'after-string
+                              (car magit-section-visibility-indicator)))
+                (ov
+                 (delete-overlay ov)))))))))
+
+(defvar-local magit--ellipses-sections nil)
+
+(defun magit-section-maybe-paint-visibility-ellipses ()
+  ;; This is needed because we hide the body instead of "the body
+  ;; except the final newline and additionally the newline before
+  ;; the body"; otherwise we could use `buffer-invisibility-spec'.
+  (when (stringp (car-safe magit-section-visibility-indicator))
+    (let* ((sections (append magit--ellipses-sections
+                             (setq magit--ellipses-sections
+                                   (or (magit-region-sections)
+                                       (list (magit-current-section))))))
+           (beg (--map (oref it start) sections))
+           (end (--map (oref it end)   sections)))
+      (when (region-active-p)
+        ;; This ensures that the region face is removed from ellipses
+        ;; when the region becomes inactive, but fails to ensure that
+        ;; all ellipses within the active region use the region face,
+        ;; because the respective overlay has not yet been updated at
+        ;; this time.  The magit-selection face is always applied.
+        (push (region-beginning) beg)
+        (push (region-end)       end))
+      (setq beg (apply #'min beg))
+      (setq end (apply #'max end))
+      (dolist (ov (overlays-in beg end))
+        (when (eq (overlay-get ov 'magit-vis-indicator) 'eoh)
+          (overlay-put
+           ov 'after-string
+           (propertize
+            (car magit-section-visibility-indicator) 'font-lock-face
+            (let ((pos (overlay-start ov)))
+              (delq nil (nconc (--map (overlay-get it 'font-lock-face)
+                                      (overlays-at pos))
+                               (list (get-char-property
+                                      pos 'font-lock-face))))))))))))
+
+(defun magit-section-maybe-remove-visibility-indicator (section)
+  (when (and magit-section-visibility-indicator
+             (= (oref section content)
+                (oref section end)))
+    (dolist (o (overlays-in (oref section start)
+                            (save-excursion
+                              (goto-char (oref section start))
+                              (1+ (line-end-position)))))
+      (when (overlay-get o 'magit-vis-indicator)
+        (delete-overlay o)))))
+
+(defvar-local magit-section--opened-sections nil)
+
+(defun magit-section--open-temporarily (beg end)
+  (save-excursion
+    (goto-char beg)
+    (let ((section (magit-current-section)))
+      (while section
+        (let ((content (oref section content)))
+          (if (and (magit-section-invisible-p section)
+                   (<= (or content (oref section start))
+                       beg
+                       (oref section end)))
+              (progn
+                (when content
+                  (magit-section-show section)
+                  (push section magit-section--opened-sections))
+                (setq section (oref section parent)))
+            (setq section nil))))))
+  (or (eq search-invisible t)
+      (not (isearch-range-invisible beg end))))
+
+(define-advice isearch-clean-overlays (:around (fn) magit-mode)
+  (if (derived-mode-p 'magit-mode)
+      (let ((pos (point)))
+        (dolist (section magit-section--opened-sections)
+          (unless (<= (oref section content) pos (oref section end))
+            (magit-section-hide section)))
+        (setq magit-section--opened-sections nil))
+    (funcall fn)))
+
+;;; Utilities
+
+(cl-defun magit-section-selected-p (section &optional (selection nil sselection))
+  (and (not (eq section magit-root-section))
+       (or  (eq section (magit-current-section))
+            (memq section (if sselection
+                              selection
+                            (setq selection (magit-region-sections))))
+            (and-let* ((parent (oref section parent)))
+              (magit-section-selected-p parent selection)))))
+
+(defun magit-section-parent-value (section)
+  (and-let* ((parent (oref section parent)))
+    (oref parent value)))
+
+(defun magit-section-siblings (section &optional direction)
+  "Return a list of the sibling sections of SECTION.
+
+If optional DIRECTION is `prev', then return siblings that come
+before SECTION.  If it is `next', then return siblings that come
+after SECTION.  For all other values, return all siblings
+excluding SECTION itself."
+  (and-let* ((parent (oref section parent))
+             (siblings (oref parent children)))
+    (pcase direction
+      ('prev  (cdr (member section (reverse siblings))))
+      ('next  (cdr (member section siblings)))
+      (_      (remq section siblings)))))
+
+(defun magit-region-values (&optional condition multiple)
+  "Return a list of the values of the selected sections.
+
+Return the values that themselves would be returned by
+`magit-region-sections' (which see)."
+  (--map (oref it value)
+         (magit-region-sections condition multiple)))
+
+(defun magit-region-sections (&optional condition multiple)
+  "Return a list of the selected sections.
+
+When the region is active and constitutes a valid section
+selection, then return a list of all selected sections.  This is
+the case when the region begins in the heading of a section and
+ends in the heading of the same section or in that of a sibling
+section.  If optional MULTIPLE is non-nil, then the region cannot
+begin and end in the same section.
+
+When the selection is not valid, then return nil.  In this case,
+most commands that can act on the selected sections will instead
+act on the section at point.
+
+When the region looks like it would in any other buffer then
+the selection is invalid.  When the selection is valid then the
+region uses the `magit-section-highlight' face.  This does not
+apply to diffs where things get a bit more complicated, but even
+here if the region looks like it usually does, then that's not
+a valid selection as far as this function is concerned.
+
+If optional CONDITION is non-nil, then the selection not only
+has to be valid; all selected sections additionally have to match
+CONDITION, or nil is returned.  See `magit-section-match' for the
+forms CONDITION can take."
+  (and (region-active-p)
+       (let* ((rbeg (region-beginning))
+              (rend (region-end))
+              (sbeg (magit-section-at rbeg))
+              (send (magit-section-at rend)))
+         (and send
+              (not (eq send magit-root-section))
+              (not (and multiple (eq send sbeg)))
+              (let ((siblings (cons sbeg (magit-section-siblings sbeg 'next)))
+                    (sections ()))
+                (and (memq send siblings)
+                     (magit-section-position-in-heading-p sbeg rbeg)
+                     (magit-section-position-in-heading-p send rend)
+                     (progn
+                       (while siblings
+                         (push (car siblings) sections)
+                         (when (eq (pop siblings) send)
+                           (setq siblings nil)))
+                       (setq sections (nreverse sections))
+                       (and (or (not condition)
+                                (--all-p (magit-section-match condition it)
+                                         sections))
+                            sections))))))))
+
+(defun magit-map-sections (function &optional section)
+  "Apply FUNCTION to all sections for side effects only, depth first.
+If optional SECTION is non-nil, only map over that section and
+its descendants, otherwise map over all sections in the current
+buffer, ending with `magit-root-section'."
+  (let ((section (or section magit-root-section)))
+    (mapc (lambda (child) (magit-map-sections function child))
+          (oref section children))
+    (funcall function section)))
+
+(defun magit-section-position-in-heading-p (&optional section pos)
+  "Return t if POSITION is inside the heading of SECTION.
+POSITION defaults to point and SECTION defaults to the
+current section."
+  (unless section
+    (setq section (magit-current-section)))
+  (unless pos
+    (setq pos (point)))
+  (ignore-errors ; Allow navigating broken sections.
+    (and section
+         (>= pos (oref section start))
+         (<  pos (or (oref section content)
+                     (oref section end)))
+         t)))
+
+(defun magit-section-internal-region-p (&optional section)
+  "Return t if the region is active and inside SECTION's body.
+If optional SECTION is nil, use the current section."
+  (and (region-active-p)
+       (or section (setq section (magit-current-section)))
+       (let ((beg (magit-section-at (region-beginning))))
+         (and (eq beg (magit-section-at (region-end)))
+              (eq beg section)))
+       (not (or (magit-section-position-in-heading-p section (region-beginning))
+                (magit-section-position-in-heading-p section (region-end))))
+       t))
+
+(defun magit-wash-sequence (function)
+  "Repeatedly call FUNCTION until it returns nil or eob is reached.
+FUNCTION has to move point forward or return nil."
+  (while (and (not (eobp)) (funcall function))))
+
+;;;###autoload
+(defun magit-add-section-hook (hook function &optional at append local)
+  "Add to the value of section hook HOOK the function FUNCTION.
+
+Add FUNCTION at the beginning of the hook list unless optional
+APPEND is non-nil, in which case FUNCTION is added at the end.
+If FUNCTION already is a member, then move it to the new location.
+
+If optional AT is non-nil and a member of the hook list, then
+add FUNCTION next to that instead.  Add before or after AT, or
+replace AT with FUNCTION depending on APPEND.  If APPEND is the
+symbol `replace', then replace AT with FUNCTION.  For any other
+non-nil value place FUNCTION right after AT.  If nil, then place
+FUNCTION right before AT.  If FUNCTION already is a member of the
+list but AT is not, then leave FUNCTION where ever it already is.
+
+If optional LOCAL is non-nil, then modify the hook's buffer-local
+value rather than its global value.  This makes the hook local by
+copying the default value.  That copy is then modified.
+
+HOOK should be a symbol.  If HOOK is void, it is first set to nil.
+HOOK's value must not be a single hook function.  FUNCTION should
+be a function that takes no arguments and inserts one or multiple
+sections at point, moving point forward.  FUNCTION may choose not
+to insert its section(s), when doing so would not make sense.  It
+should not be abused for other side-effects.  To remove FUNCTION
+again use `remove-hook'."
+  (unless (boundp hook)
+    (error "Cannot add function to undefined hook variable %s" hook))
+  (unless (default-boundp hook)
+    (set-default hook nil))
+  (let ((value (if local
+                   (if (local-variable-p hook)
+                       (symbol-value hook)
+                     (unless (local-variable-if-set-p hook)
+                       (make-local-variable hook))
+                     (copy-sequence (default-value hook)))
+                 (default-value hook))))
+    (if at
+        (when (setq at (member at value))
+          (setq value (delq function value))
+          (cond ((eq append 'replace)
+                 (setcar at function))
+                (append
+                 (push function (cdr at)))
+                (t
+                 (push (car at) (cdr at))
+                 (setcar at function))))
+      (setq value (delq function value)))
+    (unless (member function value)
+      (setq value (if append
+                      (append value (list function))
+                    (cons function value))))
+    (when (eq append 'replace)
+      (setq value (delq at value)))
+    (if local
+        (set hook value)
+      (set-default hook value))))
+
+(defvar-local magit-disabled-section-inserters nil)
+
+(defun magit-disable-section-inserter (fn)
+  "Disable the section inserter FN in the current repository.
+It is only intended for use in \".dir-locals.el\" and
+\".dir-locals-2.el\".  Also see info node `(magit)Per-Repository
+Configuration'."
+  (cl-pushnew fn magit-disabled-section-inserters))
+
+(put 'magit-disable-section-inserter 'safe-local-eval-function t)
+
+(defun magit-run-section-hook (hook &rest args)
+  "Run HOOK with ARGS, warning about invalid entries."
+  (let ((entries (symbol-value hook)))
+    (unless (listp entries)
+      (setq entries (list entries)))
+    (when-let ((invalid (seq-remove #'functionp entries)))
+      (message "`%s' contains entries that are no longer valid.
+%s\nUsing standard value instead.  Please re-configure hook variable."
+               hook
+               (mapconcat (lambda (sym) (format "  `%s'" sym)) invalid "\n"))
+      (sit-for 5)
+      (setq entries (eval (car (get hook 'standard-value)))))
+    (dolist (entry entries)
+      (let ((magit--current-section-hook (cons (list hook entry)
+                                               magit--current-section-hook)))
+        (unless (memq entry magit-disabled-section-inserters)
+          (if (bound-and-true-p magit-refresh-verbose)
+              (let ((time (benchmark-elapse (apply entry args))))
+                (message "  %-50s %f %s" entry time
+                         (cond ((> time 0.03) "!!")
+                               ((> time 0.01) "!")
+                               (t ""))))
+            (apply entry args)))))))
+
+(cl-defun magit--overlay-at (pos prop &optional (val nil sval) testfn)
+  (cl-find-if (lambda (o)
+                (let ((p (overlay-properties o)))
+                  (and (plist-member p prop)
+                       (or (not sval)
+                           (funcall (or testfn #'eql)
+                                    (plist-get p prop)
+                                    val)))))
+              (overlays-at pos t)))
+
+(defun magit-face-property-all (face string)
+  "Return non-nil if FACE is present in all of STRING."
+  (catch 'missing
+    (let ((pos 0))
+      (while (setq pos (next-single-property-change pos 'font-lock-face string))
+        (let ((val (get-text-property pos 'font-lock-face string)))
+          (unless (if (consp val)
+                      (memq face val)
+                    (eq face val))
+            (throw 'missing nil))))
+      (not pos))))
+
+(defun magit--add-face-text-property (beg end face &optional append object)
+  "Like `add-face-text-property' but for `font-lock-face'."
+  (when (stringp object)
+    (unless beg (setq beg 0))
+    (unless end (setq end (length object))))
+  (while (< beg end)
+    (let* ((pos (next-single-property-change beg 'font-lock-face object end))
+           (val (get-text-property beg 'font-lock-face object))
+           (val (ensure-list val)))
+      (put-text-property beg pos 'font-lock-face
+                         (if append
+                             (append val (list face))
+                           (cons face val))
+                         object)
+      (setq beg pos)))
+  object)
+
+(defun magit--propertize-face (string face)
+  (propertize string 'face face 'font-lock-face face))
+
+(defun magit--put-face (beg end face string)
+  (put-text-property beg end 'face face string)
+  (put-text-property beg end 'font-lock-face face string))
+
+;;; Imenu Support
+
+(defvar-local magit--imenu-group-types nil)
+(defvar-local magit--imenu-item-types nil)
+
+(defun magit--imenu-create-index ()
+  ;; If `which-function-mode' is active, then the create-index
+  ;; function is called at the time the major-mode is being enabled.
+  ;; Modes that derive from `magit-mode' have not populated the buffer
+  ;; at that time yet, so we have to abort.
+  (and magit-root-section
+       (or magit--imenu-group-types
+           magit--imenu-item-types)
+       (let ((index
+              (mapcan
+               (lambda (section)
+                 (cond
+                  (magit--imenu-group-types
+                   (and (if (eq (car-safe magit--imenu-group-types) 'not)
+                            (not (magit-section-match
+                                  (cdr magit--imenu-group-types)
+                                  section))
+                          (magit-section-match magit--imenu-group-types section))
+                        (and-let* ((children (oref section children)))
+                          `((,(magit--imenu-index-name section)
+                             ,@(mapcar (lambda (s)
+                                         (cons (magit--imenu-index-name s)
+                                               (oref s start)))
+                                       children))))))
+                  (magit--imenu-item-types
+                   (and (magit-section-match magit--imenu-item-types section)
+                        `((,(magit--imenu-index-name section)
+                           . ,(oref section start)))))))
+               (oref magit-root-section children))))
+         (if (and magit--imenu-group-types (symbolp magit--imenu-group-types))
+             (cdar index)
+           index))))
+
+(defun magit--imenu-index-name (section)
+  (let ((heading (buffer-substring-no-properties
+                  (oref section start)
+                  (1- (or (oref section content)
+                          (oref section end))))))
+    (save-match-data
+      (cond
+       ((and (magit-section-match [commit logbuf] section)
+             (string-match "[^ ]+\\([ *|]*\\).+" heading))
+        (replace-match " " t t heading 1))
+       ((magit-section-match
+         '([branch local branchbuf] [tag tags branchbuf]) section)
+        (oref section value))
+       ((magit-section-match [branch remote branchbuf] section)
+        (concat (oref (oref section parent) value) "/"
+                (oref section value)))
+       ((string-match " ([0-9]+)\\'" heading)
+        (substring heading 0 (match-beginning 0)))
+       (t heading)))))
+
+(defun magit--imenu-goto-function (_name position &rest _rest)
+  "Go to the section at POSITION.
+Make sure it is visible, by showing its ancestors where
+necessary.  For use as `imenu-default-goto-function' in
+`magit-mode' buffers."
+  (goto-char position)
+  (let ((section (magit-current-section)))
+    (while (setq section (oref section parent))
+      (when (oref section hidden)
+        (magit-section-show section)))))
+
+;;; Bookmark support
+
+(declare-function bookmark-get-filename "bookmark" (bookmark-name-or-record))
+(declare-function bookmark-make-record-default "bookmark"
+                  (&optional no-file no-context posn))
+(declare-function bookmark-prop-get "bookmark" (bookmark-name-or-record prop))
+(declare-function bookmark-prop-set "bookmark" (bookmark-name-or-record prop val))
+
+(cl-defgeneric magit-bookmark-get-filename ()
+  (or (buffer-file-name) (buffer-name)))
+
+(cl-defgeneric magit-bookmark--get-child-value (section)
+  (oref section value))
+
+(cl-defgeneric magit-bookmark-get-buffer-create (bookmark mode))
+
+(defun magit--make-bookmark ()
+  "Create a bookmark for the current Magit buffer.
+Input values are the major-mode's `magit-bookmark-name' method,
+and the buffer-local values of the variables referenced in its
+`magit-bookmark-variables' property."
+  (require 'bookmark)
+  (if (plist-member (symbol-plist major-mode) 'magit-bookmark-variables)
+      ;; `bookmark-make-record-default's return value does not match
+      ;; (NAME . ALIST), even though it is used as the default value
+      ;; of `bookmark-make-record-function', which states that such
+      ;; functions must do that.  See #4356.
+      (let ((bookmark (cons nil (bookmark-make-record-default 'no-file))))
+        (bookmark-prop-set bookmark 'handler  #'magit--handle-bookmark)
+        (bookmark-prop-set bookmark 'mode     major-mode)
+        (bookmark-prop-set bookmark 'filename (magit-bookmark-get-filename))
+        (bookmark-prop-set bookmark 'defaults (list (magit-bookmark-name)))
+        (dolist (var (get major-mode 'magit-bookmark-variables))
+          (bookmark-prop-set bookmark var (symbol-value var)))
+        (bookmark-prop-set
+         bookmark 'magit-hidden-sections
+         (--keep (and (oref it hidden)
+                      (cons (oref it type)
+                            (magit-bookmark--get-child-value it)))
+                 (oref magit-root-section children)))
+        bookmark)
+    (user-error "Bookmarking is not implemented for %s buffers" major-mode)))
+
+;;;###autoload
+(defun magit--handle-bookmark (bookmark)
+  "Open a bookmark created by `magit--make-bookmark'.
+
+Call the generic function `magit-bookmark-get-buffer-create' to get
+the appropriate buffer without displaying it.
+
+Then call the `magit-*-setup-buffer' function of the the major-mode
+with the variables' values as arguments, which were recorded by
+`magit--make-bookmark'."
+  (require (quote magit-bookmark) nil t)
+  (let ((buffer (magit-bookmark-get-buffer-create
+                 bookmark
+                 (bookmark-prop-get bookmark 'mode))))
+    (set-buffer buffer) ; That is the interface we have to adhere to.
+    (when-let ((hidden (bookmark-prop-get bookmark 'magit-hidden-sections)))
+      (with-current-buffer buffer
+        (dolist (child (oref magit-root-section children))
+          (if (member (cons (oref child type)
+                            (oref child value))
+                      hidden)
+              (magit-section-hide child)
+            (magit-section-show child)))))
+    ;; Compatibility with `bookmark+' package.  See #4356.
+    (when (bound-and-true-p bmkp-jump-display-function)
+      (funcall bmkp-jump-display-function (current-buffer)))
+    nil))
+
+(put 'magit--handle-bookmark 'bookmark-handler-type "Magit")
+
+(cl-defgeneric magit-bookmark-name ()
+  "Return name for bookmark to current buffer."
+  (format "%s%s"
+          (substring (symbol-name major-mode) 0 -5)
+          (if-let ((vars (get major-mode 'magit-bookmark-variables)))
+              (mapcan (lambda (var) (ensure-list (symbol-value var))) vars)
+            "")))
+
+;;; Bitmaps
+
+(when (fboundp 'define-fringe-bitmap) ;for Emacs 26
+  (define-fringe-bitmap 'magit-fringe-bitmap+
+    [#b00000000
+     #b00011000
+     #b00011000
+     #b01111110
+     #b01111110
+     #b00011000
+     #b00011000
+     #b00000000])
+
+  (define-fringe-bitmap 'magit-fringe-bitmap-
+    [#b00000000
+     #b00000000
+     #b00000000
+     #b01111110
+     #b01111110
+     #b00000000
+     #b00000000
+     #b00000000])
+
+  (define-fringe-bitmap 'magit-fringe-bitmap>
+    [#b01100000
+     #b00110000
+     #b00011000
+     #b00001100
+     #b00011000
+     #b00110000
+     #b01100000
+     #b00000000])
+
+  (define-fringe-bitmap 'magit-fringe-bitmapv
+    [#b00000000
+     #b10000010
+     #b11000110
+     #b01101100
+     #b00111000
+     #b00010000
+     #b00000000
+     #b00000000])
+
+  (define-fringe-bitmap 'magit-fringe-bitmap-bold>
+    [#b11100000
+     #b01110000
+     #b00111000
+     #b00011100
+     #b00011100
+     #b00111000
+     #b01110000
+     #b11100000])
+
+  (define-fringe-bitmap 'magit-fringe-bitmap-boldv
+    [#b10000001
+     #b11000011
+     #b11100111
+     #b01111110
+     #b00111100
+     #b00011000
+     #b00000000
+     #b00000000])
+  )
+
+;;; _
+(provide 'magit-section)
+;;; magit-section.el ends here
diff --git a/emacs/elpa/magit-section-20241122.1431/magit-section.elc b/emacs/elpa/magit-section-20241122.1431/magit-section.elc
Binary files differ.
diff --git a/emacs/elpa/magit-section-20241102.1300/magit-section.info b/emacs/elpa/magit-section-20241122.1431/magit-section.info
diff --git a/emacs/elpa/marginalia-20240926.918/marginalia-pkg.el b/emacs/elpa/marginalia-20240926.918/marginalia-pkg.el
@@ -1,13 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "marginalia" "20240926.918"
-  "Enrich existing commands with completion annotations."
-  '((emacs  "28.1")
-    (compat "30"))
-  :url "https://github.com/minad/marginalia"
-  :commit "be2e57efff640880251c082ac93bd365b7202e6a"
-  :revdesc "be2e57efff64"
-  :keywords '("docs" "help" "matching" "completion")
-  :authors '(("Omar Antolín Camarena" . "omar@matem.unam.mx")
-             ("Daniel Mendler" . "mail@daniel-mendler.de"))
-  :maintainers '(("Omar Antolín Camarena" . "omar@matem.unam.mx")
-                 ("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/marginalia-20240926.918/marginalia.el b/emacs/elpa/marginalia-20240926.918/marginalia.el
@@ -1,1362 +0,0 @@
-;;; marginalia.el --- Enrich existing commands with completion annotations -*- lexical-binding: t -*-
-
-;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
-
-;; Author: Omar Antolín Camarena <omar@matem.unam.mx>, Daniel Mendler <mail@daniel-mendler.de>
-;; Maintainer: Omar Antolín Camarena <omar@matem.unam.mx>, Daniel Mendler <mail@daniel-mendler.de>
-;; Created: 2020
-;; Package-Version: 20240926.918
-;; Package-Revision: be2e57efff64
-;; Package-Requires: ((emacs "28.1") (compat "30"))
-;; URL: https://github.com/minad/marginalia
-;; Keywords: docs, help, matching, completion
-
-;; This file is part of GNU Emacs.
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Enrich existing commands with completion annotations
-
-;;; Code:
-
-(require 'compat)
-(eval-when-compile
-  (require 'subr-x)
-  (require 'cl-lib))
-
-;;;; Customization
-
-(defgroup marginalia nil
-  "Enrich existing commands with completion annotations."
-  :link '(info-link :tag "Info Manual" "(marginalia)")
-  :link '(url-link :tag "Website" "https://github.com/minad/marginalia")
-  :link '(emacs-library-link :tag "Library Source" "marginalia.el")
-  :group 'help
-  :group 'docs
-  :group 'minibuffer
-  :prefix "marginalia-")
-
-(defcustom marginalia-field-width 80
-  "Maximum truncation width of annotation fields.
-
-This value is adjusted depending on the `window-width'."
-  :type 'natnum)
-
-(defcustom marginalia-separator "  "
-  "Annotation field separator."
-  :type 'string)
-
-(defcustom marginalia-align 'left
-  "Alignment of the annotations."
-  :type '(choice (const :tag "Left"   left)
-                 (const :tag "Center" center)
-                 (const :tag "Right"  right)))
-
-(defcustom marginalia-align-offset 0
-  "Additional offset added to the alignment."
-  :type 'natnum)
-
-(defcustom marginalia-max-relative-age (* 60 60 24 14)
-  "Maximum relative age in seconds displayed by the file annotator.
-
-Set to `most-positive-fixnum' to always use a relative age, or 0 to never show
-a relative age."
-  :type 'natnum)
-
-(defcustom marginalia-remote-file-regexps
-  '("\\`/\\([^/|:]+\\):") ;; Tramp path
-  "List of remote file regexps where the files should not be annotated.
-
-The first match group is displayed instead of the detailed file
-attribute information.  For Tramp paths, the protocol is
-displayed instead."
-  :type '(repeat regexp))
-
-(defcustom marginalia-annotator-registry
-  (mapcar
-   (lambda (x) (append x '(builtin none)))
-   `((command ,#'marginalia-annotate-command ,#'marginalia-annotate-binding)
-     (embark-keybinding ,#'marginalia-annotate-embark-keybinding)
-     (customize-group ,#'marginalia-annotate-customize-group)
-     (variable ,#'marginalia-annotate-variable)
-     (function ,#'marginalia-annotate-function)
-     (face ,#'marginalia-annotate-face)
-     (color ,#'marginalia-annotate-color)
-     (unicode-name ,#'marginalia-annotate-char)
-     (minor-mode ,#'marginalia-annotate-minor-mode)
-     (symbol ,#'marginalia-annotate-symbol)
-     (environment-variable ,#'marginalia-annotate-environment-variable)
-     (input-method ,#'marginalia-annotate-input-method)
-     (coding-system ,#'marginalia-annotate-coding-system)
-     (charset ,#'marginalia-annotate-charset)
-     (package ,#'marginalia-annotate-package)
-     (imenu ,#'marginalia-annotate-imenu)
-     (bookmark ,#'marginalia-annotate-bookmark)
-     (file ,#'marginalia-annotate-file)
-     (project-file ,#'marginalia-annotate-project-file)
-     (buffer ,#'marginalia-annotate-buffer)
-     (library ,#'marginalia-annotate-library)
-     (theme ,#'marginalia-annotate-theme)
-     (tab ,#'marginalia-annotate-tab)
-     (multi-category ,#'marginalia-annotate-multi-category)))
-  "Annotator function registry.
-Associates completion categories with annotation functions.
-Each annotation function must return a string,
-which is appended to the completion candidate."
-  :type '(alist :key-type symbol :value-type (repeat symbol)))
-
-(defcustom marginalia-classifiers
-  (list #'marginalia-classify-by-command-name
-        #'marginalia-classify-original-category
-        #'marginalia-classify-by-prompt
-        #'marginalia-classify-symbol)
-  "List of functions to determine current completion category.
-Each function should take no arguments and return a symbol
-indicating the category, or nil to indicate it could not
-determine it."
-  :type 'hook)
-
-(defcustom marginalia-prompt-categories
-  '(("\\<customize group\\>" . customize-group)
-    ("\\<M-x\\>" . command)
-    ("\\<package\\>" . package)
-    ("\\<bookmark\\>" . bookmark)
-    ("\\<color\\>" . color)
-    ("\\<face\\>" . face)
-    ("\\<environment variable\\>" . environment-variable)
-    ("\\<function\\|\\(?:hook\\|advice\\) to remove\\>" . function)
-    ("\\<variable\\>" . variable)
-    ("\\<input method\\>" . input-method)
-    ("\\<charset\\>" . charset)
-    ("\\<coding system\\>" . coding-system)
-    ("\\<minor mode\\>" . minor-mode)
-    ("\\<kill-ring\\>" . kill-ring)
-    ("\\<tab by name\\>" . tab)
-    ("\\<library\\>" . library)
-    ("\\<theme\\>" . theme))
-  "Associates regexps to match against minibuffer prompts with categories.
-The prompts are matched case-insensitively."
-  :type '(alist :key-type regexp :value-type symbol))
-
-(defcustom marginalia-censor-variables
-  '("pass\\|auth-source-netrc-cache\\|auth-source-.*-nonce\\|api-?key")
-  "The value of variables matching any of these regular expressions is not shown.
-This configuration variable is useful to hide variables which may
-hold sensitive data, e.g., passwords.  The variable names are
-matched case-sensitively."
-  :type '(repeat (choice symbol regexp)))
-
-(defcustom marginalia-command-categories
-  '((imenu . imenu)
-    (recentf-open . file)
-    (where-is . command))
-  "Associate commands with a completion category.
-The value of `this-command' is used as key for the lookup."
-  :type '(alist :key-type symbol :value-type symbol))
-
-(defgroup marginalia-faces nil
-  "Faces used by `marginalia-mode'."
-  :group 'marginalia
-  :group 'faces)
-
-(defface marginalia-key
-  '((t :inherit font-lock-keyword-face))
-  "Face used to highlight keys.")
-
-(defface marginalia-type
-  '((t :inherit marginalia-key))
-  "Face used to highlight types.")
-
-(defface marginalia-char
-  '((t :inherit marginalia-key))
-  "Face used to highlight character annotations.")
-
-(defface marginalia-lighter
-  '((t :inherit marginalia-size))
-  "Face used to highlight minor mode lighters.")
-
-(defface marginalia-on
-  '((t :inherit success))
-  "Face used to signal enabled modes.")
-
-(defface marginalia-off
-  '((t :inherit error))
-  "Face used to signal disabled modes.")
-
-(defface marginalia-documentation
-  '((t :inherit completions-annotations))
-  "Face used to highlight documentation strings.")
-
-(defface marginalia-value
-  '((t :inherit marginalia-key))
-  "Face used to highlight general variable values.")
-
-(defface marginalia-null
-  '((t :inherit font-lock-comment-face))
-  "Face used to highlight null or unbound variable values.")
-
-(defface marginalia-true
-  '((t :inherit font-lock-builtin-face))
-  "Face used to highlight true variable values.")
-
-(defface marginalia-function
-  '((t :inherit font-lock-function-name-face))
-  "Face used to highlight function symbols.")
-
-(defface marginalia-symbol
-  '((t :inherit font-lock-type-face))
-  "Face used to highlight general symbols.")
-
-(defface marginalia-list
-  '((t :inherit font-lock-constant-face))
-  "Face used to highlight list expressions.")
-
-(defface marginalia-mode
-  '((t :inherit marginalia-key))
-  "Face used to highlight buffer major modes.")
-
-(defface marginalia-date
-  '((t :inherit marginalia-key))
-  "Face used to highlight dates.")
-
-(defface marginalia-version
-  '((t :inherit marginalia-number))
-  "Face used to highlight package versions.")
-
-(defface marginalia-archive
-  '((t :inherit warning))
-  "Face used to highlight package archives.")
-
-(defface marginalia-installed
-  '((t :inherit success))
-  "Face used to highlight the status of packages.")
-
-(defface marginalia-size
-  '((t :inherit marginalia-number))
-  "Face used to highlight sizes.")
-
-(defface marginalia-number
-  '((t :inherit font-lock-constant-face))
-  "Face used to highlight numeric values.")
-
-(defface marginalia-string
-  '((t :inherit font-lock-string-face))
-  "Face used to highlight string values.")
-
-(defface marginalia-modified
-  '((t :inherit font-lock-negation-char-face))
-  "Face used to highlight buffer modification indicators.")
-
-(defface marginalia-file-name
-  '((t :inherit marginalia-documentation))
-  "Face used to highlight file names.")
-
-(defface marginalia-file-owner
-  '((t :inherit font-lock-preprocessor-face))
-  "Face used to highlight file owner and group names.")
-
-(defface marginalia-file-priv-no
-  '((t :inherit shadow))
-  "Face used to highlight the no file privilege attribute.")
-
-(defface marginalia-file-priv-dir
-  '((t :inherit font-lock-keyword-face))
-  "Face used to highlight the dir file privilege attribute.")
-
-(defface marginalia-file-priv-link
-  '((t :inherit font-lock-keyword-face))
-  "Face used to highlight the link file privilege attribute.")
-
-(defface marginalia-file-priv-read
-  '((t :inherit font-lock-type-face))
-  "Face used to highlight the read file privilege attribute.")
-
-(defface marginalia-file-priv-write
-  '((t :inherit font-lock-builtin-face))
-  "Face used to highlight the write file privilege attribute.")
-
-(defface marginalia-file-priv-exec
-  '((t :inherit font-lock-function-name-face))
-  "Face used to highlight the exec file privilege attribute.")
-
-(defface marginalia-file-priv-other
-  '((t :inherit font-lock-constant-face))
-  "Face used to highlight some other file privilege attribute.")
-
-(defface marginalia-file-priv-rare
-  '((t :inherit font-lock-variable-name-face))
-  "Face used to highlight a rare file privilege attribute.")
-
-;;;; Pre-declarations for external packages
-
-(declare-function bookmark-prop-get "bookmark")
-
-(declare-function project-current "project")
-(declare-function project-root "project")
-
-(defvar package--builtins)
-(defvar package-archive-contents)
-(declare-function package--from-builtin "package")
-(declare-function package-desc-archive "package")
-(declare-function package-desc-status "package")
-(declare-function package-desc-summary "package")
-(declare-function package-desc-version "package")
-(declare-function package-version-join "package")
-
-(declare-function color-rgb-to-hex "color")
-(declare-function color-rgb-to-hsl "color")
-(declare-function color-hsl-to-rgb "color")
-
-;;;; Marginalia mode
-
-(defalias 'marginalia--orig-completion-metadata-get
-  (symbol-function (compat-function completion-metadata-get))
-  "Original `completion-metadata-get' function.")
-
-(defvar marginalia--pangram "Cwm fjord bank glyphs vext quiz.")
-
-(defvar marginalia--bookmark-type-transforms
-  (let ((words (regexp-opt '("handle" "handler" "jump" "bookmark"))))
-    `((,(format "-+%s-+" words) . "-")
-      (,(format "\\`%s-+" words) . "")
-      (,(format "-%s\\'" words) . "")
-      ("\\`default\\'" . "File")
-      (".*" . ,#'capitalize)))
-  "List of bookmark type transformers.
-Relying on this mechanism is discouraged in favor of the
-`bookmark-handler-type' property.  The function names are matched
-case-sensitively.")
-
-(defvar marginalia--cand-width-step 10
-  "Round candidate width.")
-
-(defvar-local marginalia--cand-width-max 20
-  "Maximum width of candidates.")
-
-(defvar marginalia--fontified-file-modes nil
-  "List of fontified file modes.")
-
-(defvar-local marginalia--cache nil
-  "The cache, pair of list and hashtable.")
-
-(defvar marginalia--cache-size 100
-  "Size of the cache, set to 0 to disable the cache.
-Disabling the cache is useful on non-incremental UIs like default completion or
-for performance profiling of the annotators.")
-
-(defvar-local marginalia--command nil
-  "Last command symbol saved in order to allow annotations.")
-
-(defvar-local marginalia--base-position 0
-  "Last completion base position saved to get full file paths.")
-
-(defvar marginalia--metadata nil
-  "Completion metadata from the current completion.")
-
-(defvar marginalia--ellipsis nil)
-(defun marginalia--ellipsis ()
-  "Return ellipsis."
-  (with-memoization marginalia--ellipsis
-    (cond
-     ((bound-and-true-p truncate-string-ellipsis))
-     ((char-displayable-p ?…) "…")
-     ("..."))))
-
-(defun marginalia--truncate (str width)
-  "Truncate string STR to WIDTH."
-  (when (floatp width) (setq width (round (* width marginalia-field-width))))
-  (when-let (pos (string-search "\n" str))
-    (setq str (substring str 0 pos)))
-  (let* ((face (and (not (equal str ""))
-                    (get-text-property (1- (length str)) 'face str)))
-         (ell (if face
-                  (propertize (marginalia--ellipsis) 'face face)
-                (marginalia--ellipsis)))
-         (trunc
-          (if (< width 0)
-              (nreverse (truncate-string-to-width (reverse str) (- width) 0 ?\s ell))
-            (truncate-string-to-width str width 0 ?\s ell))))
-    (unless (string-prefix-p str trunc)
-      (put-text-property 0 (length trunc) 'help-echo str trunc))
-    trunc))
-
-(cl-defmacro marginalia--field (field &key truncate face width format)
-  "Format FIELD as a string according to some options.
-TRUNCATE is the truncation width.
-WIDTH is the field width.
-FORMAT is a format string.
-FACE is the name of the face, with which the field should be propertized."
-  (setq field (if format `(format ,format ,field) `(or ,field "")))
-  (when width (setq field `(format ,(format "%%%ds" (- width)) ,field)))
-  (when truncate (setq field `(marginalia--truncate ,field ,truncate)))
-  (when face (setq field `(propertize ,field 'face ,face)))
-  field)
-
-(defmacro marginalia--fields (&rest fields)
-  "Format annotation FIELDS as a string with separators in between."
-  (let ((left t))
-    (cons 'concat
-          (mapcan
-           (lambda (field)
-             (if (not (eq (car field) :left))
-                 `(,@(when left (setq left nil) `(#(" " 0 1 (marginalia--align t))))
-                   marginalia-separator (marginalia--field ,@field))
-               (unless left (error "Left fields must come first"))
-               `((marginalia--field ,@(cdr field)))))
-           fields))))
-
-(defmacro marginalia--in-minibuffer (&rest body)
-  "Run BODY inside minibuffer if minibuffer is active.
-Otherwise stay within current buffer."
-  (declare (indent 0))
-  `(with-current-buffer (if-let (win (active-minibuffer-window))
-                            (window-buffer win)
-                          (current-buffer))
-     ,@body))
-
-(defun marginalia--documentation (str)
-  "Format documentation string STR."
-  (when str
-    (marginalia--fields
-     (str :truncate 1.0 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-binding (cand)
-  "Annotate command CAND with keybinding."
-  (when-let ((sym (intern-soft cand))
-             (key (and (commandp sym) (where-is-internal sym nil 'first-only))))
-    (format #(" (%s)" 1 5 (face marginalia-key)) (key-description key))))
-
-(defun marginalia--annotator (cat)
-  "Return annotation function for category CAT."
-  (pcase (car (alist-get cat marginalia-annotator-registry))
-    ('none #'ignore)
-    ('builtin nil)
-    (fun fun)))
-
-(defun marginalia-annotate-multi-category (cand)
-  "Annotate multi-category CAND, dispatching to the appropriate annotator."
-  (if-let ((multi (get-text-property 0 'multi-category cand))
-           (annotate (marginalia--annotator (car multi))))
-      ;; Use the Marginalia annotator corresponding to the multi category.
-      (funcall annotate (cdr multi))
-    ;; Apply the original annotation function on the original candidate. Bypass
-    ;; our `marginalia--completion-metadata-get' advice.
-    (when-let (annotate (marginalia--orig-completion-metadata-get
-                         marginalia--metadata 'annotation-function))
-      (funcall annotate cand))))
-
-(defconst marginalia--advice-regexp
-  (rx bos
-      (1+ (seq (? "This function has ")
-               (or ":before" ":after" ":around" ":override"
-                   ":before-while" ":before-until" ":after-while"
-                   ":after-until" ":filter-args" ":filter-return")
-               " advice: " (0+ nonl) "\n"))
-      "\n")
-  "Regexp to match lines about advice in function documentation strings.")
-
-;; Taken from advice--make-docstring, is this robust?
-(defun marginalia--advised (fun)
-  "Return t if function FUN is advised."
-  (let ((flist (indirect-function fun)))
-    (advice--p (if (eq 'macro (car-safe flist)) (cdr flist) flist))))
-
-(defun marginalia--symbol-class (s)
-  "Return symbol class characters for symbol S.
-
-This function is an extension of `help--symbol-class'.  It returns
-more fine-grained and more detailed symbol information.
-
-Function:
-f function
-c command
-C interactive-only command
-m macro
-F special-form
-M module function
-P primitive
-g cl-generic
-p pure
-s side-effect-free
-@ autoloaded
-! advised
-- obsolete
-& alias
-
-Variable:
-u custom (U modified compared to global value)
-v variable
-l local (L modified compared to default value)
-- obsolete
-& alias
-
-Other:
-a face
-t cl-type"
-  (let ((class
-         (append
-          (when (fboundp s)
-            (list
-             (cond
-              ((get s 'pure) '("p" . "pure"))
-              ((get s 'side-effect-free) '("s" . "side-effect-free")))
-             (cond
-              ((commandp s)
-               (if (get s 'interactive-only)
-                   '("C" . "interactive-only command")
-                 '("c" . "command")))
-              ((cl-generic-p s) '("g" . "cl-generic"))
-              ((macrop (symbol-function s)) '("m" . "macro"))
-              ((special-form-p (symbol-function s)) '("F" . "special-form"))
-              ((subr-primitive-p (symbol-function s)) '("P" . "primitive"))
-              ((module-function-p (symbol-function s)) '("M" . "module function"))
-              (t '("f" . "function")))
-             (and (autoloadp (symbol-function s)) '("@" . "autoload"))
-             (and (marginalia--advised s) '("!" . "advised"))
-             (and (symbolp (symbol-function s))
-                  (cons "&" (format "alias for `%s'" (symbol-function s))))
-             (and (get s 'byte-obsolete-info) '("-" . "obsolete"))))
-          (when (boundp s)
-            (list
-             (when (local-variable-if-set-p s)
-               (if (ignore-errors
-                     (not (equal (symbol-value s)
-                                 (default-value s))))
-                   '("L" . "local, modified from global")
-                 '("l" . "local, unmodified")))
-             (if (custom-variable-p s)
-                 (if (ignore-errors
-                       (not (equal (symbol-value s)
-                                   (eval (car (get s 'standard-value))))))
-                     '("U" . "custom, modified from standard")
-                   '("u" . "custom, unmodified"))
-               '("v" . "variable"))
-             (and (not (eq (ignore-errors (indirect-variable s)) s))
-                  (cons "&" (format "alias for `%s'" (ignore-errors (indirect-variable s)))))
-             (and (get s 'byte-obsolete-variable) '("-" . "obsolete"))))
-          (list
-           (and (facep s) '("a" . "face"))
-           (and (get s 'cl--class) '("t" . "cl-type")))))) ;; cl-find-class, cl--find-class
-    (setq class (delq nil class))
-    (propertize
-     (format " %-6s" (mapconcat #'car class ""))
-     'help-echo
-     (mapconcat (pcase-lambda (`(,x . ,y)) (concat x " " y)) class "\n"))))
-
-(defun marginalia--function-doc (sym)
-  "Documentation string of function SYM."
-  (when-let (str (ignore-errors (documentation sym)))
-    (save-match-data
-      (if (string-match marginalia--advice-regexp str)
-          (substring str (match-end 0))
-        str))))
-
-;; Derived from elisp-get-fnsym-args-string
-(defun marginalia--function-args (sym)
-  "Return function arguments for SYM."
-  (let ((tmp))
-    (elisp-function-argstring
-     (cond
-      ((listp (setq tmp (gethash (indirect-function sym)
-                                 advertised-signature-table t)))
-       tmp)
-      ((setq tmp (help-split-fundoc
-                  (ignore-errors (documentation sym t))
-                  sym))
-       (substitute-command-keys (car tmp)))
-      ((setq tmp (help-function-arglist sym))
-       (and
-        (if (and (stringp tmp)
-                 (string-search "Arg list not available" tmp))
-            ;; A shorter text fits better into the
-            ;; limited Marginalia space.
-            "[autoload]"
-          tmp)))))))
-
-(defun marginalia-annotate-symbol (cand)
-  "Annotate symbol CAND with its documentation string."
-  (when-let (sym (intern-soft cand))
-    (marginalia--fields
-     (:left (marginalia-annotate-binding cand))
-     ((marginalia--symbol-class sym) :face 'marginalia-type)
-     ((if (fboundp sym) (marginalia--function-doc sym)
-        (cl-loop
-         for doc in '(variable-documentation
-                      face-documentation
-                      group-documentation)
-         thereis (ignore-errors (documentation-property sym doc))))
-      :truncate 1.0 :face 'marginalia-documentation)
-     ((abbreviate-file-name (or (symbol-file sym) ""))
-      :truncate -0.5 :face 'marginalia-file-name))))
-
-(defun marginalia-annotate-command (cand)
-  "Annotate command CAND with its documentation string.
-Similar to `marginalia-annotate-symbol', but does not show symbol class."
-  (when-let (sym (intern-soft cand))
-    (concat
-     (marginalia-annotate-binding cand)
-     (marginalia--documentation (marginalia--function-doc sym)))))
-
-(defun marginalia-annotate-embark-keybinding (cand)
-  "Annotate Embark keybinding CAND with its documentation string.
-Similar to `marginalia-annotate-command', but does not show the
-keybinding since CAND includes it."
-  (when-let (cmd (get-text-property 0 'embark-command cand))
-    (marginalia--documentation (marginalia--function-doc cmd))))
-
-(defun marginalia-annotate-imenu (cand)
-  "Annotate imenu CAND with its documentation string."
-  (when (derived-mode-p 'emacs-lisp-mode)
-    ;; Strip until the last whitespace in order to support flat imenu
-    (marginalia-annotate-symbol (replace-regexp-in-string "\\`.* " "" cand))))
-
-(defun marginalia-annotate-function (cand)
-  "Annotate function CAND with its documentation string."
-  (when-let (sym (intern-soft cand))
-    (when (fboundp sym)
-      (marginalia--fields
-       (:left (marginalia-annotate-binding cand))
-       ((marginalia--symbol-class sym) :face 'marginalia-type)
-       ((marginalia--function-args sym) :face 'marginalia-value
-        :truncate 0.5)
-       ((marginalia--function-doc sym) :truncate 1.0
-        :face 'marginalia-documentation)))))
-
-(defun marginalia--variable-value (sym)
-  "Return the variable value of SYM as string."
-  (cond
-   ((not (boundp sym))
-    (propertize "#<unbound>" 'face 'marginalia-null))
-   ((and marginalia-censor-variables
-         (let ((name (symbol-name sym))
-               case-fold-search)
-           (cl-loop for r in marginalia-censor-variables
-                    thereis (if (symbolp r)
-                                (eq r sym)
-                              (string-match-p r name)))))
-    (propertize "*****"
-                'face 'marginalia-null
-                'help-echo "Hidden due to `marginalia-censor-variables'"))
-   (t
-    (let ((val (symbol-value sym)))
-      (pcase val
-        ('nil (propertize "nil" 'face 'marginalia-null))
-        ('t (propertize "t" 'face 'marginalia-true))
-        ((pred keymapp) (propertize "#<keymap>" 'face 'marginalia-value))
-        ((pred bool-vector-p) (propertize "#<bool-vector>" 'face 'marginalia-value))
-        ((pred hash-table-p) (propertize "#<hash-table>" 'face 'marginalia-value))
-        ((pred syntax-table-p) (propertize "#<syntax-table>" 'face 'marginalia-value))
-        ;; Emacs bug#53988: abbrev-table-p throws an error
-        ((guard (static-if (< emacs-major-version 30)
-                    (and (vectorp val) (ignore-errors (abbrev-table-p val)))
-                  (abbrev-table-p val)))
-         (propertize "#<abbrev-table>" 'face 'marginalia-value))
-        ((pred char-table-p) (propertize "#<char-table>" 'face 'marginalia-value))
-        ;; Emacs 29 comes with callable objects or object closures (OClosures)
-        ((guard (and (fboundp 'oclosure-type) (oclosure-type val)))
-         (format (propertize "#<oclosure %s>" 'face 'marginalia-function)
-                 (and (fboundp 'oclosure-type) (oclosure-type val))))
-        ((pred byte-code-function-p) (propertize "#<byte-code-function>" 'face 'marginalia-function))
-        ((and (pred functionp) (pred symbolp))
-         ;; We are not consistent here, values are generally printed
-         ;; unquoted. But we make an exception for function symbols to visually
-         ;; distinguish them from symbols.  I am not entirely happy with this,
-         ;; but we should not add quotation to every type.
-         (format (propertize "#'%s" 'face 'marginalia-function) val))
-        ((pred recordp) (format (propertize "#<record %s>" 'face 'marginalia-value) (type-of val)))
-        ((pred symbolp) (propertize (symbol-name val) 'face 'marginalia-symbol))
-        ((pred numberp) (propertize (number-to-string val) 'face 'marginalia-number))
-        (_ (let ((print-escape-newlines t)
-                 (print-escape-control-characters t)
-                 ;;(print-escape-multibyte t)
-                 (print-level 3)
-                 (print-length marginalia-field-width))
-             (propertize
-              (replace-regexp-in-string
-               ;; `print-escape-control-characters' does not escape Unicode control characters.
-               "[\x0-\x1F\x7f-\x9f\x061c\x200e\x200f\x202a-\x202e\x2066-\x2069]"
-               (lambda (x) (format "\\x%x" (string-to-char x)))
-               (prin1-to-string
-                (if (stringp val)
-                    ;; Get rid of string properties to save some of the precious space
-                    (substring-no-properties
-                     val 0
-                     (min (length val) marginalia-field-width))
-                  val))
-               'fixedcase 'literal)
-              'face
-              (cond
-               ((listp val) 'marginalia-list)
-               ((stringp val) 'marginalia-string)
-               (t 'marginalia-value))))))))))
-
-(defun marginalia-annotate-variable (cand)
-  "Annotate variable CAND with its documentation string."
-  (when-let (sym (intern-soft cand))
-    (marginalia--fields
-     ((marginalia--symbol-class sym) :face 'marginalia-type)
-     ((marginalia--variable-value sym) :truncate 0.5)
-     ((documentation-property sym 'variable-documentation)
-      :truncate 1.0 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-environment-variable (cand)
-  "Annotate environment variable CAND with its current value."
-  (when-let (val (getenv cand))
-    (marginalia--fields
-     (val :truncate 1.0 :face 'marginalia-value))))
-
-(defun marginalia-annotate-face (cand)
-  "Annotate face CAND with its documentation string and face example."
-  (when-let (sym (intern-soft cand))
-    (marginalia--fields
-     ;; HACK: Manual alignment to fix misalignment due to face
-     ((concat marginalia--pangram #(" " 0 1 (display (space :align-to center))))
-      :face sym)
-     ((documentation-property sym 'face-documentation)
-      :truncate 1.0 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-color (cand)
-  "Annotate face CAND with its documentation string and face example."
-  (when-let (rgb (color-name-to-rgb cand))
-    (pcase-let* ((`(,r ,g ,b) rgb)
-                 (`(,h ,s ,l) (apply #'color-rgb-to-hsl rgb))
-                 (cr (color-rgb-to-hex r 0 0))
-                 (cg (color-rgb-to-hex 0 g 0))
-                 (cb (color-rgb-to-hex 0 0 b))
-                 (ch (apply #'color-rgb-to-hex (color-hsl-to-rgb h 1 0.5)))
-                 (cs (apply #'color-rgb-to-hex (color-hsl-to-rgb h s 0.5)))
-                 (cl (apply #'color-rgb-to-hex (color-hsl-to-rgb 0 0 l))))
-      (marginalia--fields
-       ("      " :face `(:background ,(apply #'color-rgb-to-hex rgb)))
-       ((format
-         "%s%s%s %s"
-         (propertize "r" 'face `(:background ,cr :foreground ,(readable-foreground-color cr)))
-         (propertize "g" 'face `(:background ,cg :foreground ,(readable-foreground-color cg)))
-         (propertize "b" 'face `(:background ,cb :foreground ,(readable-foreground-color cb)))
-         (color-rgb-to-hex r g b 2)))
-       ((format
-         "%s%s%s %3s° %3s%% %3s%%"
-         (propertize "h" 'face `(:background ,ch :foreground ,(readable-foreground-color ch)))
-         (propertize "s" 'face `(:background ,cs :foreground ,(readable-foreground-color cs)))
-         (propertize "l" 'face `(:background ,cl :foreground ,(readable-foreground-color cl)))
-         (round (* 360 h))
-         (round (* 100 s))
-         (round (* 100 l))))))))
-
-(defun marginalia-annotate-char (cand)
-  "Annotate character CAND with its general character category and character code."
-  (when-let (char (char-from-name cand t))
-    (marginalia--fields
-     (:left char :format" (%c)" :face 'marginalia-char)
-     (char :format "%06X" :face 'marginalia-number)
-     ((char-code-property-description
-       'general-category
-       (get-char-code-property char 'general-category))
-      :width 30 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-minor-mode (cand)
-  "Annotate minor-mode CAND with status and documentation string."
-  (let* ((sym (intern-soft cand))
-         (message-log-max nil)
-         (mode (if (and sym (boundp sym))
-                   sym
-                 (lookup-minor-mode-from-indicator cand)))
-         (lighter (cdr (assq mode minor-mode-alist)))
-         (lighter-str (and lighter (string-trim (format-mode-line (cons t lighter))))))
-    (marginalia--fields
-     ((if (and (boundp mode) (symbol-value mode))
-          (propertize "On" 'face 'marginalia-on)
-        (propertize "Off" 'face 'marginalia-off)) :width 3)
-     ((if (local-variable-if-set-p mode) "Local" "Global") :width 6 :face 'marginalia-type)
-     (lighter-str :width 20 :face 'marginalia-lighter)
-     ((marginalia--function-doc mode)
-      :truncate 1.0 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-package (cand)
-  "Annotate package CAND with its description summary."
-  (when-let ((pkg-alist (bound-and-true-p package-alist))
-             (name (replace-regexp-in-string "-[0-9\\.-]+\\'" "" cand))
-             (pkg (intern-soft name))
-             (desc (or (unless (equal name cand)
-                         (cl-loop with version = (substring cand (1+ (length name)))
-                                  for d in (alist-get pkg pkg-alist)
-                                  if (equal (package-version-join (package-desc-version d)) version)
-                                  return d))
-                       ;; taken from `describe-package-1'
-                       (car (alist-get pkg pkg-alist))
-                       (if-let (built-in (assq pkg package--builtins))
-                           (package--from-builtin built-in)
-                         (car (alist-get pkg package-archive-contents))))))
-    (marginalia--fields
-     ((package-version-join (package-desc-version desc)) :truncate 16 :face 'marginalia-version)
-     ((cond
-       ((package-desc-archive desc) (propertize (package-desc-archive desc) 'face 'marginalia-archive))
-       (t (propertize (or (package-desc-status desc) "orphan") 'face 'marginalia-installed))) :truncate 12)
-     ((package-desc-summary desc) :truncate 1.0 :face 'marginalia-documentation))))
-
-(defun marginalia--bookmark-type (bm)
-  "Return bookmark type string of BM.
-The string is transformed according to `marginalia--bookmark-type-transforms'."
-  (let ((handler (or (bookmark-prop-get bm 'handler) 'bookmark-default-handler)))
-    (and
-     ;; Some libraries use lambda handlers instead of symbols. For
-     ;; example the function `xwidget-webkit-bookmark-make-record' is
-     ;; affected. I consider this bad style since then the lambda is
-     ;; persisted.
-     (symbolp handler)
-     (or (get handler 'bookmark-handler-type)
-         (let ((str (symbol-name handler))
-               case-fold-search)
-           (dolist (transformer marginalia--bookmark-type-transforms str)
-             (when (string-match-p (car transformer) str)
-               (setq str
-                     (if (stringp (cdr transformer))
-                         (replace-regexp-in-string (car transformer) (cdr transformer) str)
-                       (funcall (cdr transformer) str))))))))))
-
-(defun marginalia-annotate-bookmark (cand)
-  "Annotate bookmark CAND with its file name and front context string."
-  (when-let ((bm (assoc cand (bound-and-true-p bookmark-alist))))
-    (marginalia--fields
-     ((marginalia--bookmark-type bm) :width 10 :face 'marginalia-type)
-     ((or (bookmark-prop-get bm 'filename)
-          (bookmark-prop-get bm 'location))
-      :truncate (if (bookmark-prop-get bm 'filename) -0.5 0.5)
-      :face 'marginalia-file-name)
-     ((let ((front (or (bookmark-prop-get bm 'front-context-string) ""))
-            (rear (or (bookmark-prop-get bm 'rear-context-string) "")))
-        (unless (and (string-blank-p front) (string-blank-p rear))
-          (string-clean-whitespace
-           (concat front (marginalia--ellipsis) rear))))
-      :truncate 0.5 :face 'marginalia-documentation))))
-
-(defun marginalia-annotate-customize-group (cand)
-  "Annotate customization group CAND with its documentation string."
-  (marginalia--documentation (documentation-property (intern cand) 'group-documentation)))
-
-(defun marginalia-annotate-input-method (cand)
-  "Annotate input method CAND with its description."
-  (marginalia--documentation (nth 4 (assoc cand input-method-alist))))
-
-(defun marginalia-annotate-charset (cand)
-  "Annotate charset CAND with its description."
-  (marginalia--documentation (charset-description (intern cand))))
-
-(defun marginalia-annotate-coding-system (cand)
-  "Annotate coding system CAND with its description."
-  (marginalia--documentation (coding-system-doc-string (intern cand))))
-
-(defun marginalia--buffer-status (buffer)
-  "Return the status of BUFFER as a string."
-  (format-mode-line '((:propertize "%1*%1+%1@" face marginalia-modified)
-                      marginalia-separator
-                      (7 (:propertize "%I" face marginalia-size))
-                      marginalia-separator
-                      ;; InactiveMinibuffer has 18 letters, but there are longer names.
-                      ;; For example Org-Agenda produces very long mode names.
-                      ;; Therefore we have to truncate.
-                      (20 (-20 (:propertize mode-name face marginalia-mode))))
-                    nil nil buffer))
-
-(defun marginalia--buffer-file (buffer)
-  "Return the file or process name of BUFFER."
-  (if-let (proc (get-buffer-process buffer))
-      (format "(%s %s) %s"
-              proc (process-status proc)
-              (abbreviate-file-name (buffer-local-value 'default-directory buffer)))
-    (abbreviate-file-name
-     (or (cond
-          ;; see ibuffer-buffer-file-name
-          ((buffer-file-name buffer))
-          ((when-let (dir (and (local-variable-p 'dired-directory buffer)
-                               (buffer-local-value 'dired-directory buffer)))
-             (expand-file-name (if (stringp dir) dir (car dir))
-                               (buffer-local-value 'default-directory buffer))))
-          ((local-variable-p 'list-buffers-directory buffer)
-           (buffer-local-value 'list-buffers-directory buffer)))
-         ""))))
-
-(defun marginalia-annotate-buffer (cand)
-  "Annotate buffer CAND with modification status, file name and major mode."
-  (when-let ((buffer (get-buffer cand)))
-    (if (buffer-live-p buffer)
-        (marginalia--fields
-         ((marginalia--buffer-status buffer))
-         ((marginalia--buffer-file buffer)
-          :truncate -0.5 :face 'marginalia-file-name))
-      (marginalia--fields ("(dead buffer)" :face 'error)))))
-
-(defun marginalia--full-candidate (cand)
-  "Return completion candidate CAND in full.
-For some completion tables, the completion candidates offered are
-meant to be only a part of the full minibuffer contents.  For
-example, during file name completion the candidates are one path
-component of a full file path."
-  (if-let (win (active-minibuffer-window))
-      (with-current-buffer (window-buffer win)
-        (concat (let ((end (minibuffer-prompt-end)))
-                  (buffer-substring-no-properties
-                   end (+ end marginalia--base-position)))
-                cand))
-    ;; no minibuffer is active, trust that cand already conveys all
-    ;; necessary information (there's not much else we can do)
-    cand))
-
-(defun marginalia--remote-file-p (file)
-  "Return non-nil if FILE is remote.
-The return value is a string describing the remote location,
-e.g., the protocol."
-  (save-match-data
-    (setq file (substitute-in-file-name file))
-    (cl-loop for r in marginalia-remote-file-regexps
-             if (string-match r file)
-             return (or (match-string 1 file) "remote"))))
-
-(defun marginalia--annotate-local-file (cand)
-  "Annotate local file CAND."
-  (marginalia--in-minibuffer
-    (when-let (attrs (ignore-errors
-                       ;; may throw permission denied errors
-                       (file-attributes (substitute-in-file-name
-                                         (marginalia--full-candidate cand))
-                                        'integer)))
-      ;; HACK: Format differently accordingly to alignment, since the file owner
-      ;; is usually not displayed. Otherwise we will see an excessive amount of
-      ;; whitespace in front of the file permissions. Furthermore the alignment
-      ;; in `consult-buffer' will look ugly. Find a better solution!
-      (if (eq marginalia-align 'right)
-          (marginalia--fields
-           ;; File owner at the left
-           ((marginalia--file-owner attrs) :face 'marginalia-file-owner)
-           ((marginalia--file-modes attrs))
-           ((marginalia--file-size attrs) :face 'marginalia-size :width -7)
-           ((marginalia--time (file-attribute-modification-time attrs))
-            :face 'marginalia-date :width -12))
-        (marginalia--fields
-         ((marginalia--file-modes attrs))
-         ((marginalia--file-size attrs) :face 'marginalia-size :width -7)
-         ((marginalia--time (file-attribute-modification-time attrs))
-          :face 'marginalia-date :width -12)
-         ;; File owner at the right
-         ((marginalia--file-owner attrs) :face 'marginalia-file-owner))))))
-
-(defun marginalia-annotate-file (cand)
-  "Annotate file CAND with its size, modification time and other attributes.
-These annotations are skipped for remote paths."
-  (if-let (remote (or (marginalia--remote-file-p cand)
-                      (when-let (win (active-minibuffer-window))
-                        (with-current-buffer (window-buffer win)
-                          (marginalia--remote-file-p (minibuffer-contents-no-properties))))))
-      (marginalia--fields (remote :format "*%s*" :face 'marginalia-documentation))
-    (marginalia--annotate-local-file cand)))
-
-(defun marginalia--file-owner (attrs)
-  "Return file owner given ATTRS."
-  (let ((uid (file-attribute-user-id attrs))
-        (gid (file-attribute-group-id attrs)))
-    (when (or (/= (user-uid) uid) (/= (group-gid) gid))
-      (format "%s:%s"
-              (or (user-login-name uid) uid)
-              (or (group-name gid) gid)))))
-
-(defun marginalia--file-size (attrs)
-  "Return formatted file size given ATTRS."
-  (propertize (file-size-human-readable (file-attribute-size attrs))
-              'help-echo (number-to-string (file-attribute-size attrs))))
-
-(defun marginalia--file-modes (attrs)
-  "Return fontified file modes given the ATTRS."
-  ;; Without caching this can a be significant portion of the time
-  ;; `marginalia-annotate-file' takes to execute. Caching improves performance
-  ;; by about a factor of 20.
-  (setq attrs (file-attribute-modes attrs))
-  (or (car (member attrs marginalia--fontified-file-modes))
-      (progn
-        (setq attrs (substring attrs)) ;; copy because attrs is about to be modified
-        (dotimes (i (length attrs))
-          (put-text-property
-           i (1+ i) 'face
-           (pcase (aref attrs i)
-             (?- 'marginalia-file-priv-no)
-             (?d 'marginalia-file-priv-dir)
-             (?l 'marginalia-file-priv-link)
-             (?r 'marginalia-file-priv-read)
-             (?w 'marginalia-file-priv-write)
-             (?x 'marginalia-file-priv-exec)
-             ((or ?s ?S ?t ?T) 'marginalia-file-priv-other)
-             (_ 'marginalia-file-priv-rare))
-           attrs))
-        (push attrs marginalia--fontified-file-modes)
-        attrs)))
-
-(defconst marginalia--time-relative
-  `((100 "sec" 1)
-    (,(* 60 100) "min" 60.0)
-    (,(* 3600 30) "hour" 3600.0)
-    (,(* 3600 24 400) "day" ,(* 3600.0 24.0))
-    (nil "year" ,(* 365.25 24 3600)))
-  "Formatting used by the function `marginalia--time-relative'.")
-
-;; Taken from `seconds-to-string'.
-(defun marginalia--time-relative (time)
-  "Format TIME as a relative age."
-  (setq time (max 0 (float-time (time-since time))))
-  (let ((sts marginalia--time-relative) here)
-    (while (and (car (setq here (pop sts))) (<= (car here) time)))
-    (setq time (round time (caddr here)))
-    (format "%s %s%s ago" time (cadr here) (if (= time 1) "" "s"))))
-
-(defun marginalia--time-absolute (time)
-  "Format TIME as an absolute age."
-  (let ((system-time-locale "C"))
-    (format-time-string
-     (if (> (decoded-time-year (decode-time (current-time)))
-            (decoded-time-year (decode-time time)))
-         " %Y %b %d"
-       "%b %d %H:%M")
-     time)))
-
-(defun marginalia--time (time)
-  "Format file age TIME, suitably for use in annotations."
-  (propertize
-   (if (< (float-time (time-since time)) marginalia-max-relative-age)
-       (marginalia--time-relative time)
-     (marginalia--time-absolute time))
-   'help-echo (format-time-string "%Y-%m-%d %T" time)))
-
-(defvar-local marginalia--project-root 'unset)
-(defun marginalia--project-root ()
-  "Return project root."
-  (marginalia--in-minibuffer
-    (when (eq marginalia--project-root 'unset)
-      (setq marginalia--project-root
-            (or (let ((prompt (minibuffer-prompt))
-                      case-fold-search)
-                  (and (string-match
-                        "\\`\\(?:Dired\\|Find file\\) in \\(.*\\): \\'"
-                        prompt)
-                       (match-string 1 prompt)))
-                (when-let (proj (project-current))
-                  (project-root proj)))))
-    marginalia--project-root))
-
-(defun marginalia-annotate-project-file (cand)
-  "Annotate file CAND with its size, modification time and other attributes."
-  ;; Absolute project directories also report project-file category
-  (if (file-name-absolute-p cand)
-      (marginalia-annotate-file cand)
-    (when-let (root (marginalia--project-root))
-      (marginalia-annotate-file (expand-file-name cand root)))))
-
-(defvar-local marginalia--library-cache nil)
-(defun marginalia--library-cache ()
-  "Return hash table from library name to library file."
-  (marginalia--in-minibuffer
-    ;; `locate-file' and `locate-library' are bottlenecks for the
-    ;; annotator. Therefore we compute all the library paths first.
-    (unless marginalia--library-cache
-      (setq marginalia--library-cache (make-hash-table :test #'equal))
-      (dolist (dir (delete-dups
-                    (reverse ;; Reverse because of shadowing
-                     (append load-path (custom-theme--load-path))))) ;; Include themes
-        (dolist (file (ignore-errors
-                        (directory-files dir 'full
-                                         "\\.el\\(?:\\.gz\\)?\\'")))
-          (puthash (marginalia--library-name file)
-                   file marginalia--library-cache))))
-    marginalia--library-cache))
-
-(defun marginalia--library-name (file)
-  "Get name of library FILE."
-  (replace-regexp-in-string "\\(\\.gz\\|\\.elc?\\)+\\'" ""
-                            (file-name-nondirectory file)))
-
-(defun marginalia--library-doc (file)
-  "Return library documentation string for FILE."
-  (let ((doc (get-text-property 0 'marginalia--library-doc file)))
-    (unless doc
-      ;; Extract documentation string. We cannot use `lm-summary' here,
-      ;; since it decompresses the whole file, which is slower.
-      (setq doc (or (ignore-errors
-                      (let ((shell-file-name "sh")
-                            (shell-command-switch "-c"))
-                        (shell-command-to-string
-                         (format (if (string-suffix-p ".gz" file)
-                                     "gzip -c -q -d %s | head -n1"
-                                   "head -n1 %s")
-                                 (shell-quote-argument file)))))
-                    ""))
-      (cond
-       ((string-match "\\`(define-package\\s-+\"\\([^\"]+\\)\"" doc)
-        (setq doc (format "Generated package description from %s.el"
-                          (match-string 1 doc))))
-       ((string-match "\\`;+\\s-*" doc)
-        (setq doc (substring doc (match-end 0)))
-        (when (string-match "\\`[^ \t]+\\s-+-+\\s-+" doc)
-          (setq doc (substring doc (match-end 0))))
-        (when (string-match "\\s-*-\\*-" doc)
-          (setq doc (substring doc 0 (match-beginning 0)))))
-       (t (setq doc "")))
-      ;; Add the documentation string to the cache
-      (put-text-property 0 1 'marginalia--library-doc doc file))
-    doc))
-
-(defun marginalia-annotate-theme (cand)
-  "Annotate theme CAND with documentation and path."
-  (marginalia-annotate-library (concat cand "-theme")))
-
-(defun marginalia-annotate-library (cand)
-  "Annotate library CAND with documentation and path."
-  (setq cand (marginalia--library-name cand))
-  (when-let (file (gethash cand (marginalia--library-cache)))
-    (marginalia--fields
-     ;; Display if the corresponding feature is loaded.
-     ;; feature/=library file, but better than nothing.
-     ((when-let (sym (intern-soft cand))
-        (when (memq sym features)
-          (propertize "Loaded" 'face 'marginalia-on)))
-      :width 8)
-     ((marginalia--library-doc file)
-      :truncate 1.0 :face 'marginalia-documentation)
-     ((abbreviate-file-name (file-name-directory file))
-      :truncate -0.5 :face 'marginalia-file-name))))
-
-(defun marginalia-annotate-tab (cand)
-  "Annotate named tab CAND with tab index, window and buffer information."
-  (when-let ((tabs (funcall tab-bar-tabs-function))
-             (index (seq-position
-                     tabs nil
-                     (lambda (tab _) (equal (alist-get 'name tab) cand)))))
-    (let* ((tab (nth index tabs))
-           (ws (alist-get 'ws tab))
-           (bufs (window-state-buffers ws)))
-      ;; When the buffer key is present in the window state it is added in front
-      ;; of the window buffer list and gets duplicated.
-      (when (cadr (assq 'buffer ws)) (pop bufs))
-      (marginalia--fields
-       (:left (1+ index) :format " (%s)" :face 'marginalia-key)
-       ((if (eq (car tab) 'current-tab)
-            (length (window-list nil 'no-minibuf))
-          (length bufs))
-        :format "win:%s" :face 'marginalia-size)
-       ((or (alist-get 'group tab) 'none)
-        :format "group:%s" :face 'marginalia-type :truncate 20)
-       ((if (eq (car tab) 'current-tab)
-            "(current tab)"
-          (string-join bufs " "))
-        :face 'marginalia-documentation)))))
-
-(defun marginalia-classify-by-command-name ()
-  "Lookup category for current command."
-  (and marginalia--command
-       (or (alist-get marginalia--command marginalia-command-categories)
-           ;; The command can be an alias, e.g., `recentf' -> `recentf-open'.
-           (when-let ((chain (function-alias-p marginalia--command)))
-             (alist-get (car (last chain)) marginalia-command-categories)))))
-
-(defun marginalia-classify-original-category ()
-  "Return original category reported by completion metadata."
-  ;; Bypass our `marginalia--completion-metadata-get' advice.
-  (when-let (cat (marginalia--orig-completion-metadata-get marginalia--metadata 'category))
-    ;; Ignore `symbol-help' category in order to ensure that the categories are
-    ;; refined to our categories function and variable.
-    (and (not (eq cat 'symbol-help)) cat)))
-
-(defun marginalia-classify-symbol ()
-  "Determine if currently completing symbols."
-  (when-let (mct minibuffer-completion-table)
-    (when (or (eq mct 'help--symbol-completion-table)
-              (obarrayp mct)
-              (and (not (functionp mct)) (consp mct) (symbolp (car mct)))) ; assume list of symbols
-      'symbol)))
-
-(defun marginalia-classify-by-prompt ()
-  "Determine category by matching regexps against the minibuffer prompt.
-This runs through the `marginalia-prompt-categories' alist
-looking for a regexp that matches the prompt."
-  (when-let (prompt (minibuffer-prompt))
-    (setq prompt
-          (replace-regexp-in-string "(.*?default.*?)\\|\\[.*?\\]" "" prompt))
-    (cl-loop with case-fold-search = t
-             for (regexp . category) in marginalia-prompt-categories
-             when (string-match-p regexp prompt)
-             return category)))
-
-(defun marginalia--cache-reset (&rest _)
-  "Reset the cache."
-  (setq marginalia--cache (and marginalia--cache (> marginalia--cache-size 0)
-                               (cons nil (make-hash-table :test #'equal
-                                                          :size marginalia--cache-size)))))
-
-(defun marginalia--cached (cache fun key)
-  "Cached application of function FUN with KEY.
-The CACHE keeps around the last `marginalia--cache-size' computed
-annotations.  The cache is mainly useful when scrolling in
-completion UIs like Vertico or Icomplete."
-  (if cache
-      (let ((ht (cdr cache)))
-        (or (gethash key ht)
-            (let ((val (funcall fun key)))
-              (push key (car cache))
-              (puthash key val ht)
-              (when (>= (hash-table-count ht) marginalia--cache-size)
-                (let ((end (last (car cache) 2)))
-                  (remhash (cadr end) ht)
-                  (setcdr end nil)))
-              val)))
-    (funcall fun key)))
-
-(defun marginalia--align (cands)
-  "Align annotations of CANDS according to `marginalia-align'."
-  (cl-loop
-   for (cand . ann) in cands do
-   (when-let (align (text-property-any 0 (length ann) 'marginalia--align t ann))
-     (setq marginalia--cand-width-max
-           (max marginalia--cand-width-max
-                (* (ceiling (+ (string-width cand) (string-width ann 0 align))
-                            marginalia--cand-width-step)
-                   marginalia--cand-width-step)))))
-  (cl-loop
-   for (cand . ann) in cands collect
-   (progn
-     (when-let (align (text-property-any 0 (length ann) 'marginalia--align t ann))
-       (put-text-property
-        align (1+ align) 'display
-        `(space :align-to
-                ,(pcase-exhaustive marginalia-align
-                   ('center `(+ center ,marginalia-align-offset))
-                   ('left `(+ left ,(+ marginalia-align-offset marginalia--cand-width-max)))
-                   ('right `(+ right ,(+ marginalia-align-offset 1
-                                         (- (string-width ann 0 align)
-                                            (string-width ann)))))))
-        ann))
-     (list cand "" ann))))
-
-(defun marginalia--affixate (metadata annotator cands)
-  "Affixate CANDS given METADATA and Marginalia ANNOTATOR."
-  ;; Compute minimum width of windows, which display the minibuffer, including
-  ;; the miniwindow.  In general the computed width corresponds to the full
-  ;; frame width, since the miniwindow spans the full frame.  For example
-  ;; `vertico-buffer' displays the minibuffer in a separate window.  Similarly,
-  ;; we could detect other types of completion buffers, e.g., Embark Collect or
-  ;; the default completion buffer, and compute smaller widths.
-  (let* ((width (cl-loop for win in (get-buffer-window-list) minimize (window-width win)))
-         (marginalia-field-width (min (/ width 2) marginalia-field-width))
-         (marginalia--metadata metadata)
-         (cache marginalia--cache))
-    (marginalia--align
-     ;; Run the annotators in the original window. `with-selected-window'
-     ;; is necessary because of `lookup-minor-mode-from-indicator'.
-     ;; Otherwise it would suffice to only change the current buffer. We
-     ;; need the `selected-window' fallback for Embark Occur.
-     (with-selected-window (or (minibuffer-selected-window) (selected-window))
-       (cl-loop for cand in cands collect
-                (let ((ann (or (marginalia--cached cache annotator cand) "")))
-                  (cons cand (if (string-blank-p ann) "" ann))))))))
-
-(defun marginalia--completion-metadata-get (metadata prop)
-  "Meant as :before-until advice for `completion-metadata-get'.
-METADATA is the metadata.
-PROP is the property which is looked up."
-  (pcase prop
-    ('annotation-function
-     ;; We do want the advice triggered for `completion-metadata-get'.
-     (when-let ((cat (completion-metadata-get metadata 'category))
-                (annotator (marginalia--annotator cat)))
-       (lambda (cand)
-         (let ((ann (caddar (marginalia--affixate metadata annotator (list cand)))))
-           (and (not (equal ann "")) ann)))))
-    ('affixation-function
-     ;; We do want the advice triggered for `completion-metadata-get'.
-     (when-let ((cat (completion-metadata-get metadata 'category))
-                (annotator (marginalia--annotator cat)))
-       (apply-partially #'marginalia--affixate metadata annotator)))
-    ('category
-     ;; Find the completion category by trying each of our classifiers.
-     ;; Store the metadata for `marginalia-classify-original-category'.
-     (let ((marginalia--metadata metadata))
-       (run-hook-with-args-until-success 'marginalia-classifiers)))))
-
-(defun marginalia--minibuffer-setup ()
-  "Setup the minibuffer for Marginalia.
-Remember `this-command' for `marginalia-classify-by-command-name'."
-  (setq marginalia--cache t marginalia--command this-command)
-  ;; Reset cache if window size changes, recompute alignment
-  (add-hook 'window-state-change-hook #'marginalia--cache-reset nil 'local)
-  (marginalia--cache-reset))
-
-(defun marginalia--base-position (completions)
-  "Record the base position of COMPLETIONS."
-  ;; As a small optimization we track the base position only for file
-  ;; completions, since `marginalia--full-candidate' is currently used only by
-  ;; the file annotation function.
-  (when minibuffer-completing-file-name
-    (let ((base (or (cdr (last completions)) 0)))
-      (unless (= marginalia--base-position base)
-        (marginalia--cache-reset)
-        (setq marginalia--base-position base
-              marginalia--cand-width-max (default-value 'marginalia--cand-width-max)))))
-  completions)
-
-;;;###autoload
-(define-minor-mode marginalia-mode
-  "Annotate completion candidates with richer information."
-  :global t :group 'marginalia
-  (if marginalia-mode
-      (progn
-        ;; Remember `this-command' in order to select the annotation function.
-        (add-hook 'minibuffer-setup-hook #'marginalia--minibuffer-setup)
-        ;; Replace the metadata function.
-        (advice-add (compat-function completion-metadata-get) :before-until #'marginalia--completion-metadata-get)
-        (advice-add #'completion-metadata-get :before-until #'marginalia--completion-metadata-get)
-        ;; Record completion base position, for `marginalia--full-candidate'
-        (advice-add #'completion-all-completions :filter-return #'marginalia--base-position))
-    (advice-remove #'completion-all-completions #'marginalia--base-position)
-    (advice-remove (compat-function completion-metadata-get) #'marginalia--completion-metadata-get)
-    (advice-remove #'completion-metadata-get #'marginalia--completion-metadata-get)
-    (remove-hook 'minibuffer-setup-hook #'marginalia--minibuffer-setup)))
-
-;;;###autoload
-(defun marginalia-cycle ()
-  "Cycle between annotators in `marginalia-annotator-registry'."
-  ;; Only show `marginalia-cycle' in M-x in recursive minibuffers
-  (declare (completion (lambda (&rest _) (> (minibuffer-depth) 1))))
-  (interactive)
-  (with-current-buffer (window-buffer
-                        (or (active-minibuffer-window)
-                            (user-error "Marginalia: No active minibuffer")))
-    (let* ((end (minibuffer-prompt-end))
-           (pt (max 0 (- (point) end)))
-           (md (completion-metadata (buffer-substring-no-properties end (+ end pt))
-                                    minibuffer-completion-table
-                                    minibuffer-completion-predicate))
-           (cat (or (completion-metadata-get md 'category)
-                    (user-error "Marginalia: Unknown completion category")))
-           (ann (or (assq cat marginalia-annotator-registry)
-                    (user-error "Marginalia: No annotators found for category `%s'" cat))))
-      (marginalia--cache-reset)
-      (setcdr ann (append (cddr ann) (list (cadr ann))))
-      ;; When the builtin annotator is selected and no builtin function is
-      ;; available, skip to the next annotator. Bypass the
-      ;; `marginalia--completion-metadata-get' advice.
-      (when (and (eq (cadr ann) 'builtin)
-                 (not (marginalia--orig-completion-metadata-get md 'annotation-function))
-                 (not (marginalia--orig-completion-metadata-get md 'affixation-function)))
-        (setcdr ann (append (cddr ann) (list (cadr ann)))))
-      (message "Marginalia: Use annotator `%s' for category `%s'" (cadr ann) (car ann)))))
-
-(provide 'marginalia)
-;;; marginalia.el ends here
diff --git a/emacs/elpa/marginalia-20240926.918/marginalia.elc b/emacs/elpa/marginalia-20240926.918/marginalia.elc
Binary files differ.
diff --git a/emacs/elpa/marginalia-20240926.918/marginalia-autoloads.el b/emacs/elpa/marginalia-20241124.1138/marginalia-autoloads.el
diff --git a/emacs/elpa/marginalia-20241124.1138/marginalia-pkg.el b/emacs/elpa/marginalia-20241124.1138/marginalia-pkg.el
@@ -0,0 +1,13 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "marginalia" "20241124.1138"
+  "Enrich existing commands with completion annotations."
+  '((emacs  "28.1")
+    (compat "30"))
+  :url "https://github.com/minad/marginalia"
+  :commit "643a5f50c9f9d0698c8b1d72678886aefcf69052"
+  :revdesc "643a5f50c9f9"
+  :keywords '("docs" "help" "matching" "completion")
+  :authors '(("Omar Antolín Camarena" . "omar@matem.unam.mx")
+             ("Daniel Mendler" . "mail@daniel-mendler.de"))
+  :maintainers '(("Omar Antolín Camarena" . "omar@matem.unam.mx")
+                 ("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/marginalia-20241124.1138/marginalia.el b/emacs/elpa/marginalia-20241124.1138/marginalia.el
@@ -0,0 +1,1364 @@
+;;; marginalia.el --- Enrich existing commands with completion annotations -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
+
+;; Author: Omar Antolín Camarena <omar@matem.unam.mx>, Daniel Mendler <mail@daniel-mendler.de>
+;; Maintainer: Omar Antolín Camarena <omar@matem.unam.mx>, Daniel Mendler <mail@daniel-mendler.de>
+;; Created: 2020
+;; Package-Version: 20241124.1138
+;; Package-Revision: 643a5f50c9f9
+;; Package-Requires: ((emacs "28.1") (compat "30"))
+;; URL: https://github.com/minad/marginalia
+;; Keywords: docs, help, matching, completion
+
+;; This file is part of GNU Emacs.
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Enrich existing commands with completion annotations
+
+;;; Code:
+
+(require 'compat)
+(eval-when-compile
+  (require 'subr-x)
+  (require 'cl-lib))
+
+;;;; Customization
+
+(defgroup marginalia nil
+  "Enrich existing commands with completion annotations."
+  :link '(info-link :tag "Info Manual" "(marginalia)")
+  :link '(url-link :tag "Website" "https://github.com/minad/marginalia")
+  :link '(emacs-library-link :tag "Library Source" "marginalia.el")
+  :group 'help
+  :group 'docs
+  :group 'minibuffer
+  :prefix "marginalia-")
+
+(defcustom marginalia-field-width 80
+  "Maximum truncation width of annotation fields.
+
+This value is adjusted depending on the `window-width'."
+  :type 'natnum)
+
+(defcustom marginalia-separator "  "
+  "Annotation field separator."
+  :type 'string)
+
+(defcustom marginalia-align 'left
+  "Alignment of the annotations."
+  :type '(choice (const :tag "Left"   left)
+                 (const :tag "Center" center)
+                 (const :tag "Right"  right)))
+
+(defcustom marginalia-align-offset 0
+  "Additional offset added to the alignment."
+  :type 'natnum)
+
+(defcustom marginalia-max-relative-age (* 60 60 24 14)
+  "Maximum relative age in seconds displayed by the file annotator.
+
+Set to `most-positive-fixnum' to always use a relative age, or 0 to never show
+a relative age."
+  :type 'natnum)
+
+(defcustom marginalia-remote-file-regexps
+  '("\\`/\\([^/|:]+\\):") ;; Tramp path
+  "List of remote file regexps where the files should not be annotated.
+
+The first match group is displayed instead of the detailed file
+attribute information.  For Tramp paths, the protocol is
+displayed instead."
+  :type '(repeat regexp))
+
+(defcustom marginalia-annotator-registry
+  (mapcar
+   (lambda (x) (append x '(builtin none)))
+   `((command ,#'marginalia-annotate-command ,#'marginalia-annotate-binding)
+     (embark-keybinding ,#'marginalia-annotate-embark-keybinding)
+     (customize-group ,#'marginalia-annotate-customize-group)
+     (variable ,#'marginalia-annotate-variable)
+     (function ,#'marginalia-annotate-function)
+     (face ,#'marginalia-annotate-face)
+     (color ,#'marginalia-annotate-color)
+     (unicode-name ,#'marginalia-annotate-char)
+     (minor-mode ,#'marginalia-annotate-minor-mode)
+     (symbol ,#'marginalia-annotate-symbol)
+     (environment-variable ,#'marginalia-annotate-environment-variable)
+     (input-method ,#'marginalia-annotate-input-method)
+     (coding-system ,#'marginalia-annotate-coding-system)
+     (charset ,#'marginalia-annotate-charset)
+     (package ,#'marginalia-annotate-package)
+     (imenu ,#'marginalia-annotate-imenu)
+     (bookmark ,#'marginalia-annotate-bookmark)
+     (file ,#'marginalia-annotate-file)
+     (project-file ,#'marginalia-annotate-project-file)
+     (buffer ,#'marginalia-annotate-buffer)
+     (library ,#'marginalia-annotate-library)
+     (theme ,#'marginalia-annotate-theme)
+     (tab ,#'marginalia-annotate-tab)
+     (multi-category ,#'marginalia-annotate-multi-category)))
+  "Annotator function registry.
+Associates completion categories with annotation functions.
+Each annotation function must return a string,
+which is appended to the completion candidate."
+  :type '(alist :key-type symbol :value-type (repeat symbol)))
+
+(defcustom marginalia-classifiers
+  (list #'marginalia-classify-by-command-name
+        #'marginalia-classify-original-category
+        #'marginalia-classify-by-prompt
+        #'marginalia-classify-symbol)
+  "List of functions to determine current completion category.
+Each function should take no arguments and return a symbol
+indicating the category, or nil to indicate it could not
+determine it."
+  :type 'hook)
+
+(defcustom marginalia-prompt-categories
+  '(("\\<customize group\\>" . customize-group)
+    ("\\<M-x\\>" . command)
+    ("\\<package\\>" . package)
+    ("\\<bookmark\\>" . bookmark)
+    ("\\<color\\>" . color)
+    ("\\<face\\>" . face)
+    ("\\<environment variable\\>" . environment-variable)
+    ("\\<function\\|\\(?:hook\\|advice\\) to remove\\>" . function)
+    ("\\<variable\\>" . variable)
+    ("\\<input method\\>" . input-method)
+    ("\\<charset\\>" . charset)
+    ("\\<coding system\\>" . coding-system)
+    ("\\<minor mode\\>" . minor-mode)
+    ("\\<kill-ring\\>" . kill-ring)
+    ("\\<tab by name\\>" . tab)
+    ("\\<library\\>" . library)
+    ("\\<theme\\>" . theme))
+  "Associates regexps to match against minibuffer prompts with categories.
+The prompts are matched case-insensitively."
+  :type '(alist :key-type regexp :value-type symbol))
+
+(defcustom marginalia-censor-variables
+  '("pass\\|auth-source-netrc-cache\\|auth-source-.*-nonce\\|api-?key")
+  "The value of variables matching any of these regular expressions is not shown.
+This configuration variable is useful to hide variables which may
+hold sensitive data, e.g., passwords.  The variable names are
+matched case-sensitively."
+  :type '(repeat (choice symbol regexp)))
+
+(defcustom marginalia-command-categories
+  '((imenu . imenu)
+    (recentf-open . file)
+    (where-is . command))
+  "Associate commands with a completion category.
+The value of `this-command' is used as key for the lookup."
+  :type '(alist :key-type symbol :value-type symbol))
+
+(defgroup marginalia-faces nil
+  "Faces used by `marginalia-mode'."
+  :group 'marginalia
+  :group 'faces)
+
+(defface marginalia-key
+  '((t :inherit font-lock-keyword-face))
+  "Face used to highlight keys.")
+
+(defface marginalia-type
+  '((t :inherit marginalia-key))
+  "Face used to highlight types.")
+
+(defface marginalia-char
+  '((t :inherit marginalia-key))
+  "Face used to highlight character annotations.")
+
+(defface marginalia-lighter
+  '((t :inherit marginalia-size))
+  "Face used to highlight minor mode lighters.")
+
+(defface marginalia-on
+  '((t :inherit success))
+  "Face used to signal enabled modes.")
+
+(defface marginalia-off
+  '((t :inherit error))
+  "Face used to signal disabled modes.")
+
+(defface marginalia-documentation
+  '((t :inherit completions-annotations))
+  "Face used to highlight documentation strings.")
+
+(defface marginalia-value
+  '((t :inherit marginalia-key))
+  "Face used to highlight general variable values.")
+
+(defface marginalia-null
+  '((t :inherit font-lock-comment-face))
+  "Face used to highlight null or unbound variable values.")
+
+(defface marginalia-true
+  '((t :inherit font-lock-builtin-face))
+  "Face used to highlight true variable values.")
+
+(defface marginalia-function
+  '((t :inherit font-lock-function-name-face))
+  "Face used to highlight function symbols.")
+
+(defface marginalia-symbol
+  '((t :inherit font-lock-type-face))
+  "Face used to highlight general symbols.")
+
+(defface marginalia-list
+  '((t :inherit font-lock-constant-face))
+  "Face used to highlight list expressions.")
+
+(defface marginalia-mode
+  '((t :inherit marginalia-key))
+  "Face used to highlight buffer major modes.")
+
+(defface marginalia-date
+  '((t :inherit marginalia-key))
+  "Face used to highlight dates.")
+
+(defface marginalia-version
+  '((t :inherit marginalia-number))
+  "Face used to highlight package versions.")
+
+(defface marginalia-archive
+  '((t :inherit warning))
+  "Face used to highlight package archives.")
+
+(defface marginalia-installed
+  '((t :inherit success))
+  "Face used to highlight the status of packages.")
+
+(defface marginalia-size
+  '((t :inherit marginalia-number))
+  "Face used to highlight sizes.")
+
+(defface marginalia-number
+  '((t :inherit font-lock-constant-face))
+  "Face used to highlight numeric values.")
+
+(defface marginalia-string
+  '((t :inherit font-lock-string-face))
+  "Face used to highlight string values.")
+
+(defface marginalia-modified
+  '((t :inherit font-lock-negation-char-face))
+  "Face used to highlight buffer modification indicators.")
+
+(defface marginalia-file-name
+  '((t :inherit marginalia-documentation))
+  "Face used to highlight file names.")
+
+(defface marginalia-file-owner
+  '((t :inherit font-lock-preprocessor-face))
+  "Face used to highlight file owner and group names.")
+
+(defface marginalia-file-priv-no
+  '((t :inherit shadow))
+  "Face used to highlight the no file privilege attribute.")
+
+(defface marginalia-file-priv-dir
+  '((t :inherit font-lock-keyword-face))
+  "Face used to highlight the dir file privilege attribute.")
+
+(defface marginalia-file-priv-link
+  '((t :inherit font-lock-keyword-face))
+  "Face used to highlight the link file privilege attribute.")
+
+(defface marginalia-file-priv-read
+  '((t :inherit font-lock-type-face))
+  "Face used to highlight the read file privilege attribute.")
+
+(defface marginalia-file-priv-write
+  '((t :inherit font-lock-builtin-face))
+  "Face used to highlight the write file privilege attribute.")
+
+(defface marginalia-file-priv-exec
+  '((t :inherit font-lock-function-name-face))
+  "Face used to highlight the exec file privilege attribute.")
+
+(defface marginalia-file-priv-other
+  '((t :inherit font-lock-constant-face))
+  "Face used to highlight some other file privilege attribute.")
+
+(defface marginalia-file-priv-rare
+  '((t :inherit font-lock-variable-name-face))
+  "Face used to highlight a rare file privilege attribute.")
+
+;;;; Pre-declarations for external packages
+
+(declare-function bookmark-prop-get "bookmark")
+
+(declare-function project-current "project")
+(declare-function project-root "project")
+
+(defvar package--builtins)
+(defvar package-archive-contents)
+(declare-function package--from-builtin "package")
+(declare-function package-desc-archive "package")
+(declare-function package-desc-status "package")
+(declare-function package-desc-summary "package")
+(declare-function package-desc-version "package")
+(declare-function package-version-join "package")
+
+(declare-function color-rgb-to-hex "color")
+(declare-function color-rgb-to-hsl "color")
+(declare-function color-hsl-to-rgb "color")
+
+;;;; Marginalia mode
+
+(defalias 'marginalia--orig-completion-metadata-get
+  (symbol-function (compat-function completion-metadata-get))
+  "Original `completion-metadata-get' function.")
+
+(defvar marginalia--pangram "Cwm fjord bank glyphs vext quiz.")
+
+(defvar marginalia--bookmark-type-transforms
+  (let ((words (regexp-opt '("handle" "handler" "jump" "bookmark"))))
+    `((,(format "-+%s-+" words) . "-")
+      (,(format "\\`%s-+" words) . "")
+      (,(format "-%s\\'" words) . "")
+      ("\\`default\\'" . "File")
+      (".*" . ,#'capitalize)))
+  "List of bookmark type transformers.
+Relying on this mechanism is discouraged in favor of the
+`bookmark-handler-type' property.  The function names are matched
+case-sensitively.")
+
+(defvar marginalia--cand-width-step 10
+  "Round candidate width.")
+
+(defvar-local marginalia--cand-width-max 20
+  "Maximum width of candidates.")
+
+(defvar marginalia--fontified-file-modes nil
+  "List of fontified file modes.")
+
+(defvar-local marginalia--cache nil
+  "The cache, pair of list and hashtable.")
+
+(defvar marginalia--cache-size 100
+  "Size of the cache, set to 0 to disable the cache.
+Disabling the cache is useful on non-incremental UIs like default completion or
+for performance profiling of the annotators.")
+
+(defvar-local marginalia--command nil
+  "Last command symbol saved in order to allow annotations.")
+
+(defvar-local marginalia--base-position 0
+  "Last completion base position saved to get full file paths.")
+
+(defvar marginalia--metadata nil
+  "Completion metadata from the current completion.")
+
+(defvar marginalia--ellipsis nil)
+(defun marginalia--ellipsis ()
+  "Return ellipsis."
+  (with-memoization marginalia--ellipsis
+    (cond
+     ((bound-and-true-p truncate-string-ellipsis))
+     ((char-displayable-p ?…) "…")
+     ("..."))))
+
+(defun marginalia--truncate (str width)
+  "Truncate string STR to WIDTH."
+  (when (floatp width) (setq width (round (* width marginalia-field-width))))
+  (when-let (pos (string-search "\n" str))
+    (setq str (substring str 0 pos)))
+  (let* ((face (and (not (equal str ""))
+                    (get-text-property (1- (length str)) 'face str)))
+         (ell (if face
+                  (propertize (marginalia--ellipsis) 'face face)
+                (marginalia--ellipsis)))
+         (trunc
+          (if (< width 0)
+              (nreverse (truncate-string-to-width (reverse str) (- width) 0 ?\s ell))
+            (truncate-string-to-width str width 0 ?\s ell))))
+    (unless (string-prefix-p str trunc)
+      (put-text-property 0 (length trunc) 'help-echo str trunc))
+    trunc))
+
+(cl-defmacro marginalia--field (field &key truncate face width format)
+  "Format FIELD as a string according to some options.
+TRUNCATE is the truncation width.
+WIDTH is the field width.
+FORMAT is a format string.
+FACE is the name of the face, with which the field should be propertized."
+  (setq field (if format `(format ,format ,field) `(or ,field "")))
+  (when width (setq field `(format ,(format "%%%ds" (- width)) ,field)))
+  (when truncate (setq field `(marginalia--truncate ,field ,truncate)))
+  (when face (setq field `(propertize ,field 'face ,face)))
+  field)
+
+(defmacro marginalia--fields (&rest fields)
+  "Format annotation FIELDS as a string with separators in between."
+  (let ((left t))
+    (cons 'concat
+          (mapcan
+           (lambda (field)
+             (if (not (eq (car field) :left))
+                 `(,@(when left (setq left nil) `(#(" " 0 1 (marginalia--align t))))
+                   marginalia-separator (marginalia--field ,@field))
+               (unless left (error "Left fields must come first"))
+               `((marginalia--field ,@(cdr field)))))
+           fields))))
+
+(defmacro marginalia--in-minibuffer (&rest body)
+  "Run BODY inside minibuffer if minibuffer is active.
+Otherwise stay within current buffer."
+  (declare (indent 0))
+  `(with-current-buffer (if-let (win (active-minibuffer-window))
+                            (window-buffer win)
+                          (current-buffer))
+     ,@body))
+
+(defun marginalia--documentation (str)
+  "Format documentation string STR."
+  (when str
+    (marginalia--fields
+     (str :truncate 1.0 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-binding (cand)
+  "Annotate command CAND with keybinding."
+  (when-let ((sym (intern-soft cand))
+             (key (and (commandp sym) (where-is-internal sym nil 'first-only))))
+    (format #(" (%s)" 1 5 (face marginalia-key)) (key-description key))))
+
+(defun marginalia--annotator (cat)
+  "Return annotation function for category CAT."
+  (pcase (car (alist-get cat marginalia-annotator-registry))
+    ('none #'ignore)
+    ('builtin nil)
+    (fun fun)))
+
+(defun marginalia-annotate-multi-category (cand)
+  "Annotate multi-category CAND, dispatching to the appropriate annotator."
+  (if-let ((multi (get-text-property 0 'multi-category cand))
+           (annotate (marginalia--annotator (car multi))))
+      ;; Use the Marginalia annotator corresponding to the multi category.
+      (funcall annotate (cdr multi))
+    ;; Apply the original annotation function on the original candidate. Bypass
+    ;; our `marginalia--completion-metadata-get' advice.
+    (when-let (annotate (marginalia--orig-completion-metadata-get
+                         marginalia--metadata 'annotation-function))
+      (funcall annotate cand))))
+
+(defconst marginalia--advice-regexp
+  (rx bos
+      (1+ (seq (? "This function has ")
+               (or ":before" ":after" ":around" ":override"
+                   ":before-while" ":before-until" ":after-while"
+                   ":after-until" ":filter-args" ":filter-return")
+               " advice: " (0+ nonl) "\n"))
+      "\n")
+  "Regexp to match lines about advice in function documentation strings.")
+
+;; Taken from advice--make-docstring, is this robust?
+(defun marginalia--advised (fun)
+  "Return t if function FUN is advised."
+  (let ((flist (indirect-function fun)))
+    (advice--p (if (eq 'macro (car-safe flist)) (cdr flist) flist))))
+
+(defun marginalia--symbol-class (s)
+  "Return symbol class characters for symbol S.
+
+This function is an extension of `help--symbol-class'.  It returns
+more fine-grained and more detailed symbol information.
+
+Function:
+f function
+c command
+C interactive-only command
+m macro
+F special-form
+M module function
+P primitive
+g cl-generic
+p pure
+s side-effect-free
+@ autoloaded
+! advised
+- obsolete
+& alias
+
+Variable:
+u custom (U modified compared to global value)
+v variable
+l local (L modified compared to default value)
+- obsolete
+& alias
+
+Other:
+G custom group
+a face
+t cl-type"
+  (let ((class
+         (append
+          (when (fboundp s)
+            (list
+             (cond
+              ((get s 'pure) '("p" . "pure"))
+              ((get s 'side-effect-free) '("s" . "side-effect-free")))
+             (cond
+              ((commandp s)
+               (if (get s 'interactive-only)
+                   '("C" . "interactive-only command")
+                 '("c" . "command")))
+              ((cl-generic-p s) '("g" . "cl-generic"))
+              ((macrop (symbol-function s)) '("m" . "macro"))
+              ((special-form-p (symbol-function s)) '("F" . "special-form"))
+              ((subr-primitive-p (symbol-function s)) '("P" . "primitive"))
+              ((module-function-p (symbol-function s)) '("M" . "module function"))
+              (t '("f" . "function")))
+             (and (autoloadp (symbol-function s)) '("@" . "autoload"))
+             (and (marginalia--advised s) '("!" . "advised"))
+             (and (symbolp (symbol-function s))
+                  (cons "&" (format "alias for `%s'" (symbol-function s))))
+             (and (get s 'byte-obsolete-info) '("-" . "obsolete"))))
+          (when (boundp s)
+            (list
+             (when (local-variable-if-set-p s)
+               (if (ignore-errors
+                     (not (equal (symbol-value s)
+                                 (default-value s))))
+                   '("L" . "local, modified from global")
+                 '("l" . "local, unmodified")))
+             (if (get s 'standard-value)
+                 (if (ignore-errors
+                       (not (equal (symbol-value s)
+                                   (eval (car (get s 'standard-value))))))
+                     '("U" . "custom, modified from standard")
+                   '("u" . "custom, unmodified"))
+               '("v" . "variable"))
+             (and (not (eq (ignore-errors (indirect-variable s)) s))
+                  (cons "&" (format "alias for `%s'" (ignore-errors (indirect-variable s)))))
+             (and (get s 'byte-obsolete-variable) '("-" . "obsolete"))))
+          (list
+           (and (get s 'group-documentation) '("G" . "custom group"))
+           (and (facep s) '("a" . "face"))
+           (and (get s 'cl--class) '("t" . "cl-type")))))) ;; cl-find-class, cl--find-class
+    (setq class (delq nil class))
+    (propertize
+     (format " %-6s" (mapconcat #'car class ""))
+     'help-echo
+     (mapconcat (pcase-lambda (`(,x . ,y)) (concat x " " y)) class "\n"))))
+
+(defun marginalia--function-doc (sym)
+  "Documentation string of function SYM."
+  (when-let (str (ignore-errors (documentation sym)))
+    (save-match-data
+      (if (string-match marginalia--advice-regexp str)
+          (substring str (match-end 0))
+        str))))
+
+;; Derived from elisp-get-fnsym-args-string
+(defun marginalia--function-args (sym)
+  "Return function arguments for SYM."
+  (let ((tmp))
+    (elisp-function-argstring
+     (cond
+      ((listp (setq tmp (gethash (indirect-function sym)
+                                 advertised-signature-table t)))
+       tmp)
+      ((setq tmp (help-split-fundoc
+                  (ignore-errors (documentation sym t))
+                  sym))
+       (substitute-command-keys (car tmp)))
+      ((setq tmp (help-function-arglist sym))
+       (and
+        (if (and (stringp tmp)
+                 (string-search "Arg list not available" tmp))
+            ;; A shorter text fits better into the
+            ;; limited Marginalia space.
+            "[autoload]"
+          tmp)))))))
+
+(defun marginalia-annotate-symbol (cand)
+  "Annotate symbol CAND with its documentation string."
+  (when-let (sym (intern-soft cand))
+    (marginalia--fields
+     (:left (marginalia-annotate-binding cand))
+     ((marginalia--symbol-class sym) :face 'marginalia-type)
+     ((if (fboundp sym) (marginalia--function-doc sym)
+        (cl-loop
+         for doc in '(variable-documentation
+                      face-documentation
+                      group-documentation)
+         thereis (ignore-errors (documentation-property sym doc))))
+      :truncate 1.0 :face 'marginalia-documentation)
+     ((abbreviate-file-name (or (symbol-file sym) ""))
+      :truncate -0.5 :face 'marginalia-file-name))))
+
+(defun marginalia-annotate-command (cand)
+  "Annotate command CAND with its documentation string.
+Similar to `marginalia-annotate-symbol', but does not show symbol class."
+  (when-let (sym (intern-soft cand))
+    (concat
+     (marginalia-annotate-binding cand)
+     (marginalia--documentation (marginalia--function-doc sym)))))
+
+(defun marginalia-annotate-embark-keybinding (cand)
+  "Annotate Embark keybinding CAND with its documentation string.
+Similar to `marginalia-annotate-command', but does not show the
+keybinding since CAND includes it."
+  (when-let (cmd (get-text-property 0 'embark-command cand))
+    (marginalia--documentation (marginalia--function-doc cmd))))
+
+(defun marginalia-annotate-imenu (cand)
+  "Annotate imenu CAND with its documentation string."
+  (when (derived-mode-p 'emacs-lisp-mode)
+    ;; Strip until the last whitespace in order to support flat imenu
+    (marginalia-annotate-symbol (replace-regexp-in-string "\\`.* " "" cand))))
+
+(defun marginalia-annotate-function (cand)
+  "Annotate function CAND with its documentation string."
+  (when-let (sym (intern-soft cand))
+    (when (fboundp sym)
+      (marginalia--fields
+       (:left (marginalia-annotate-binding cand))
+       ((marginalia--symbol-class sym) :face 'marginalia-type)
+       ((marginalia--function-args sym) :face 'marginalia-value
+        :truncate 0.5)
+       ((marginalia--function-doc sym) :truncate 1.0
+        :face 'marginalia-documentation)))))
+
+(defun marginalia--variable-value (sym)
+  "Return the variable value of SYM as string."
+  (cond
+   ((not (boundp sym))
+    (propertize "#<unbound>" 'face 'marginalia-null))
+   ((and marginalia-censor-variables
+         (let ((name (symbol-name sym))
+               case-fold-search)
+           (cl-loop for r in marginalia-censor-variables
+                    thereis (if (symbolp r)
+                                (eq r sym)
+                              (string-match-p r name)))))
+    (propertize "*****"
+                'face 'marginalia-null
+                'help-echo "Hidden due to `marginalia-censor-variables'"))
+   (t
+    (let ((val (symbol-value sym)))
+      (pcase val
+        ('nil (propertize "nil" 'face 'marginalia-null))
+        ('t (propertize "t" 'face 'marginalia-true))
+        ((pred keymapp) (propertize "#<keymap>" 'face 'marginalia-value))
+        ((pred bool-vector-p) (propertize "#<bool-vector>" 'face 'marginalia-value))
+        ((pred hash-table-p) (propertize "#<hash-table>" 'face 'marginalia-value))
+        ((pred syntax-table-p) (propertize "#<syntax-table>" 'face 'marginalia-value))
+        ;; Emacs bug#53988: abbrev-table-p throws an error
+        ((guard (static-if (< emacs-major-version 30)
+                    (and (vectorp val) (ignore-errors (abbrev-table-p val)))
+                  (abbrev-table-p val)))
+         (propertize "#<abbrev-table>" 'face 'marginalia-value))
+        ((pred char-table-p) (propertize "#<char-table>" 'face 'marginalia-value))
+        ;; Emacs 29 comes with callable objects or object closures (OClosures)
+        ((guard (and (fboundp 'oclosure-type) (oclosure-type val)))
+         (format (propertize "#<oclosure %s>" 'face 'marginalia-function)
+                 (and (fboundp 'oclosure-type) (oclosure-type val))))
+        ((pred byte-code-function-p) (propertize "#<byte-code-function>" 'face 'marginalia-function))
+        ((and (pred functionp) (pred symbolp))
+         ;; We are not consistent here, values are generally printed
+         ;; unquoted. But we make an exception for function symbols to visually
+         ;; distinguish them from symbols.  I am not entirely happy with this,
+         ;; but we should not add quotation to every type.
+         (format (propertize "#'%s" 'face 'marginalia-function) val))
+        ((pred recordp) (format (propertize "#<record %s>" 'face 'marginalia-value) (type-of val)))
+        ((pred symbolp) (propertize (symbol-name val) 'face 'marginalia-symbol))
+        ((pred numberp) (propertize (number-to-string val) 'face 'marginalia-number))
+        (_ (let ((print-escape-newlines t)
+                 (print-escape-control-characters t)
+                 ;;(print-escape-multibyte t)
+                 (print-level 3)
+                 (print-length marginalia-field-width))
+             (propertize
+              (replace-regexp-in-string
+               ;; `print-escape-control-characters' does not escape Unicode control characters.
+               "[\x0-\x1F\x7f-\x9f\x061c\x200e\x200f\x202a-\x202e\x2066-\x2069]"
+               (lambda (x) (format "\\x%x" (string-to-char x)))
+               (prin1-to-string
+                (if (stringp val)
+                    ;; Get rid of string properties to save some of the precious space
+                    (substring-no-properties
+                     val 0
+                     (min (length val) marginalia-field-width))
+                  val))
+               'fixedcase 'literal)
+              'face
+              (cond
+               ((listp val) 'marginalia-list)
+               ((stringp val) 'marginalia-string)
+               (t 'marginalia-value))))))))))
+
+(defun marginalia-annotate-variable (cand)
+  "Annotate variable CAND with its documentation string."
+  (when-let (sym (intern-soft cand))
+    (marginalia--fields
+     ((marginalia--symbol-class sym) :face 'marginalia-type)
+     ((marginalia--variable-value sym) :truncate 0.5)
+     ((documentation-property sym 'variable-documentation)
+      :truncate 1.0 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-environment-variable (cand)
+  "Annotate environment variable CAND with its current value."
+  (when-let (val (getenv cand))
+    (marginalia--fields
+     (val :truncate 1.0 :face 'marginalia-value))))
+
+(defun marginalia-annotate-face (cand)
+  "Annotate face CAND with its documentation string and face example."
+  (when-let (sym (intern-soft cand))
+    (marginalia--fields
+     ;; HACK: Manual alignment to fix misalignment due to face
+     ((concat marginalia--pangram #(" " 0 1 (display (space :align-to center))))
+      :face sym)
+     ((documentation-property sym 'face-documentation)
+      :truncate 1.0 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-color (cand)
+  "Annotate face CAND with its documentation string and face example."
+  (when-let (rgb (color-name-to-rgb cand))
+    (pcase-let* ((`(,r ,g ,b) rgb)
+                 (`(,h ,s ,l) (apply #'color-rgb-to-hsl rgb))
+                 (cr (color-rgb-to-hex r 0 0))
+                 (cg (color-rgb-to-hex 0 g 0))
+                 (cb (color-rgb-to-hex 0 0 b))
+                 (ch (apply #'color-rgb-to-hex (color-hsl-to-rgb h 1 0.5)))
+                 (cs (apply #'color-rgb-to-hex (color-hsl-to-rgb h s 0.5)))
+                 (cl (apply #'color-rgb-to-hex (color-hsl-to-rgb 0 0 l))))
+      (marginalia--fields
+       ("      " :face `(:background ,(apply #'color-rgb-to-hex rgb)))
+       ((format
+         "%s%s%s %s"
+         (propertize "r" 'face `(:background ,cr :foreground ,(readable-foreground-color cr)))
+         (propertize "g" 'face `(:background ,cg :foreground ,(readable-foreground-color cg)))
+         (propertize "b" 'face `(:background ,cb :foreground ,(readable-foreground-color cb)))
+         (color-rgb-to-hex r g b 2)))
+       ((format
+         "%s%s%s %3s° %3s%% %3s%%"
+         (propertize "h" 'face `(:background ,ch :foreground ,(readable-foreground-color ch)))
+         (propertize "s" 'face `(:background ,cs :foreground ,(readable-foreground-color cs)))
+         (propertize "l" 'face `(:background ,cl :foreground ,(readable-foreground-color cl)))
+         (round (* 360 h))
+         (round (* 100 s))
+         (round (* 100 l))))))))
+
+(defun marginalia-annotate-char (cand)
+  "Annotate character CAND with its general character category and character code."
+  (when-let (char (char-from-name cand t))
+    (marginalia--fields
+     (:left char :format" (%c)" :face 'marginalia-char)
+     (char :format "%06X" :face 'marginalia-number)
+     ((char-code-property-description
+       'general-category
+       (get-char-code-property char 'general-category))
+      :width 30 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-minor-mode (cand)
+  "Annotate minor-mode CAND with status and documentation string."
+  (let* ((sym (intern-soft cand))
+         (message-log-max nil)
+         (mode (if (and sym (boundp sym))
+                   sym
+                 (lookup-minor-mode-from-indicator cand)))
+         (lighter (cdr (assq mode minor-mode-alist)))
+         (lighter-str (and lighter (string-trim (format-mode-line (cons t lighter))))))
+    (marginalia--fields
+     ((if (and (boundp mode) (symbol-value mode))
+          (propertize "On" 'face 'marginalia-on)
+        (propertize "Off" 'face 'marginalia-off)) :width 3)
+     ((if (local-variable-if-set-p mode) "Local" "Global") :width 6 :face 'marginalia-type)
+     (lighter-str :width 20 :face 'marginalia-lighter)
+     ((marginalia--function-doc mode)
+      :truncate 1.0 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-package (cand)
+  "Annotate package CAND with its description summary."
+  (when-let ((pkg-alist (bound-and-true-p package-alist))
+             (name (replace-regexp-in-string "-[0-9\\.-]+\\'" "" cand))
+             (pkg (intern-soft name))
+             (desc (or (unless (equal name cand)
+                         (cl-loop with version = (substring cand (1+ (length name)))
+                                  for d in (alist-get pkg pkg-alist)
+                                  if (equal (package-version-join (package-desc-version d)) version)
+                                  return d))
+                       ;; taken from `describe-package-1'
+                       (car (alist-get pkg pkg-alist))
+                       (if-let (built-in (assq pkg package--builtins))
+                           (package--from-builtin built-in)
+                         (car (alist-get pkg package-archive-contents))))))
+    (marginalia--fields
+     ((package-version-join (package-desc-version desc)) :truncate 16 :face 'marginalia-version)
+     ((cond
+       ((package-desc-archive desc) (propertize (package-desc-archive desc) 'face 'marginalia-archive))
+       (t (propertize (or (package-desc-status desc) "orphan") 'face 'marginalia-installed))) :truncate 12)
+     ((package-desc-summary desc) :truncate 1.0 :face 'marginalia-documentation))))
+
+(defun marginalia--bookmark-type (bm)
+  "Return bookmark type string of BM.
+The string is transformed according to `marginalia--bookmark-type-transforms'."
+  (let ((handler (or (bookmark-prop-get bm 'handler) 'bookmark-default-handler)))
+    (and
+     ;; Some libraries use lambda handlers instead of symbols. For
+     ;; example the function `xwidget-webkit-bookmark-make-record' is
+     ;; affected. I consider this bad style since then the lambda is
+     ;; persisted.
+     (symbolp handler)
+     (or (get handler 'bookmark-handler-type)
+         (let ((str (symbol-name handler))
+               case-fold-search)
+           (dolist (transformer marginalia--bookmark-type-transforms str)
+             (when (string-match-p (car transformer) str)
+               (setq str
+                     (if (stringp (cdr transformer))
+                         (replace-regexp-in-string (car transformer) (cdr transformer) str)
+                       (funcall (cdr transformer) str))))))))))
+
+(defun marginalia-annotate-bookmark (cand)
+  "Annotate bookmark CAND with its file name and front context string."
+  (when-let ((bm (assoc cand (bound-and-true-p bookmark-alist))))
+    (marginalia--fields
+     ((marginalia--bookmark-type bm) :width 10 :face 'marginalia-type)
+     ((or (bookmark-prop-get bm 'filename)
+          (bookmark-prop-get bm 'location))
+      :truncate (if (bookmark-prop-get bm 'filename) -0.5 0.5)
+      :face 'marginalia-file-name)
+     ((let ((front (or (bookmark-prop-get bm 'front-context-string) ""))
+            (rear (or (bookmark-prop-get bm 'rear-context-string) "")))
+        (unless (and (string-blank-p front) (string-blank-p rear))
+          (string-clean-whitespace
+           (concat front (marginalia--ellipsis) rear))))
+      :truncate 0.5 :face 'marginalia-documentation))))
+
+(defun marginalia-annotate-customize-group (cand)
+  "Annotate customization group CAND with its documentation string."
+  (marginalia--documentation (documentation-property (intern cand) 'group-documentation)))
+
+(defun marginalia-annotate-input-method (cand)
+  "Annotate input method CAND with its description."
+  (marginalia--documentation (nth 4 (assoc cand input-method-alist))))
+
+(defun marginalia-annotate-charset (cand)
+  "Annotate charset CAND with its description."
+  (marginalia--documentation (charset-description (intern cand))))
+
+(defun marginalia-annotate-coding-system (cand)
+  "Annotate coding system CAND with its description."
+  (marginalia--documentation (coding-system-doc-string (intern cand))))
+
+(defun marginalia--buffer-status (buffer)
+  "Return the status of BUFFER as a string."
+  (format-mode-line '((:propertize "%1*%1+%1@" face marginalia-modified)
+                      marginalia-separator
+                      (7 (:propertize "%I" face marginalia-size))
+                      marginalia-separator
+                      ;; InactiveMinibuffer has 18 letters, but there are longer names.
+                      ;; For example Org-Agenda produces very long mode names.
+                      ;; Therefore we have to truncate.
+                      (20 (-20 (:propertize mode-name face marginalia-mode))))
+                    nil nil buffer))
+
+(defun marginalia--buffer-file (buffer)
+  "Return the file or process name of BUFFER."
+  (if-let (proc (get-buffer-process buffer))
+      (format "(%s %s) %s"
+              proc (process-status proc)
+              (abbreviate-file-name (buffer-local-value 'default-directory buffer)))
+    (abbreviate-file-name
+     (or (cond
+          ;; see ibuffer-buffer-file-name
+          ((buffer-file-name buffer))
+          ((when-let (dir (and (local-variable-p 'dired-directory buffer)
+                               (buffer-local-value 'dired-directory buffer)))
+             (expand-file-name (if (stringp dir) dir (car dir))
+                               (buffer-local-value 'default-directory buffer))))
+          ((local-variable-p 'list-buffers-directory buffer)
+           (buffer-local-value 'list-buffers-directory buffer)))
+         ""))))
+
+(defun marginalia-annotate-buffer (cand)
+  "Annotate buffer CAND with modification status, file name and major mode."
+  (when-let ((buffer (get-buffer cand)))
+    (if (buffer-live-p buffer)
+        (marginalia--fields
+         ((marginalia--buffer-status buffer))
+         ((marginalia--buffer-file buffer)
+          :truncate -0.5 :face 'marginalia-file-name))
+      (marginalia--fields ("(dead buffer)" :face 'error)))))
+
+(defun marginalia--full-candidate (cand)
+  "Return completion candidate CAND in full.
+For some completion tables, the completion candidates offered are
+meant to be only a part of the full minibuffer contents.  For
+example, during file name completion the candidates are one path
+component of a full file path."
+  (if-let (win (active-minibuffer-window))
+      (with-current-buffer (window-buffer win)
+        (concat (let ((end (minibuffer-prompt-end)))
+                  (buffer-substring-no-properties
+                   end (+ end marginalia--base-position)))
+                cand))
+    ;; no minibuffer is active, trust that cand already conveys all
+    ;; necessary information (there's not much else we can do)
+    cand))
+
+(defun marginalia--remote-file-p (file)
+  "Return non-nil if FILE is remote.
+The return value is a string describing the remote location,
+e.g., the protocol."
+  (save-match-data
+    (setq file (substitute-in-file-name file))
+    (cl-loop for r in marginalia-remote-file-regexps
+             if (string-match r file)
+             return (or (match-string 1 file) "remote"))))
+
+(defun marginalia--annotate-local-file (cand)
+  "Annotate local file CAND."
+  (marginalia--in-minibuffer
+    (when-let (attrs (ignore-errors
+                       ;; may throw permission denied errors
+                       (file-attributes (substitute-in-file-name
+                                         (marginalia--full-candidate cand))
+                                        'integer)))
+      ;; HACK: Format differently accordingly to alignment, since the file owner
+      ;; is usually not displayed. Otherwise we will see an excessive amount of
+      ;; whitespace in front of the file permissions. Furthermore the alignment
+      ;; in `consult-buffer' will look ugly. Find a better solution!
+      (if (eq marginalia-align 'right)
+          (marginalia--fields
+           ;; File owner at the left
+           ((marginalia--file-owner attrs) :face 'marginalia-file-owner)
+           ((marginalia--file-modes attrs))
+           ((marginalia--file-size attrs) :face 'marginalia-size :width -7)
+           ((marginalia--time (file-attribute-modification-time attrs))
+            :face 'marginalia-date :width -12))
+        (marginalia--fields
+         ((marginalia--file-modes attrs))
+         ((marginalia--file-size attrs) :face 'marginalia-size :width -7)
+         ((marginalia--time (file-attribute-modification-time attrs))
+          :face 'marginalia-date :width -12)
+         ;; File owner at the right
+         ((marginalia--file-owner attrs) :face 'marginalia-file-owner))))))
+
+(defun marginalia-annotate-file (cand)
+  "Annotate file CAND with its size, modification time and other attributes.
+These annotations are skipped for remote paths."
+  (if-let (remote (or (marginalia--remote-file-p cand)
+                      (when-let (win (active-minibuffer-window))
+                        (with-current-buffer (window-buffer win)
+                          (marginalia--remote-file-p (minibuffer-contents-no-properties))))))
+      (marginalia--fields (remote :format "*%s*" :face 'marginalia-documentation))
+    (marginalia--annotate-local-file cand)))
+
+(defun marginalia--file-owner (attrs)
+  "Return file owner given ATTRS."
+  (let ((uid (file-attribute-user-id attrs))
+        (gid (file-attribute-group-id attrs)))
+    (when (or (/= (user-uid) uid) (/= (group-gid) gid))
+      (format "%s:%s"
+              (or (user-login-name uid) uid)
+              (or (group-name gid) gid)))))
+
+(defun marginalia--file-size (attrs)
+  "Return formatted file size given ATTRS."
+  (propertize (file-size-human-readable (file-attribute-size attrs))
+              'help-echo (number-to-string (file-attribute-size attrs))))
+
+(defun marginalia--file-modes (attrs)
+  "Return fontified file modes given the ATTRS."
+  ;; Without caching this can a be significant portion of the time
+  ;; `marginalia-annotate-file' takes to execute. Caching improves performance
+  ;; by about a factor of 20.
+  (setq attrs (file-attribute-modes attrs))
+  (or (car (member attrs marginalia--fontified-file-modes))
+      (progn
+        (setq attrs (substring attrs)) ;; copy because attrs is about to be modified
+        (dotimes (i (length attrs))
+          (put-text-property
+           i (1+ i) 'face
+           (pcase (aref attrs i)
+             (?- 'marginalia-file-priv-no)
+             (?d 'marginalia-file-priv-dir)
+             (?l 'marginalia-file-priv-link)
+             (?r 'marginalia-file-priv-read)
+             (?w 'marginalia-file-priv-write)
+             (?x 'marginalia-file-priv-exec)
+             ((or ?s ?S ?t ?T) 'marginalia-file-priv-other)
+             (_ 'marginalia-file-priv-rare))
+           attrs))
+        (push attrs marginalia--fontified-file-modes)
+        attrs)))
+
+(defconst marginalia--time-relative
+  `((100 "sec" 1)
+    (,(* 60 100) "min" 60.0)
+    (,(* 3600 30) "hour" 3600.0)
+    (,(* 3600 24 400) "day" ,(* 3600.0 24.0))
+    (nil "year" ,(* 365.25 24 3600)))
+  "Formatting used by the function `marginalia--time-relative'.")
+
+;; Taken from `seconds-to-string'.
+(defun marginalia--time-relative (time)
+  "Format TIME as a relative age."
+  (setq time (max 0 (float-time (time-since time))))
+  (let ((sts marginalia--time-relative) here)
+    (while (and (car (setq here (pop sts))) (<= (car here) time)))
+    (setq time (round time (caddr here)))
+    (format "%s %s%s ago" time (cadr here) (if (= time 1) "" "s"))))
+
+(defun marginalia--time-absolute (time)
+  "Format TIME as an absolute age."
+  (let ((system-time-locale "C"))
+    (format-time-string
+     (if (> (decoded-time-year (decode-time (current-time)))
+            (decoded-time-year (decode-time time)))
+         " %Y %b %d"
+       "%b %d %H:%M")
+     time)))
+
+(defun marginalia--time (time)
+  "Format file age TIME, suitably for use in annotations."
+  (propertize
+   (if (< (float-time (time-since time)) marginalia-max-relative-age)
+       (marginalia--time-relative time)
+     (marginalia--time-absolute time))
+   'help-echo (format-time-string "%Y-%m-%d %T" time)))
+
+(defvar-local marginalia--project-root 'unset)
+(defun marginalia--project-root ()
+  "Return project root."
+  (marginalia--in-minibuffer
+    (when (eq marginalia--project-root 'unset)
+      (setq marginalia--project-root
+            (or (let ((prompt (minibuffer-prompt))
+                      case-fold-search)
+                  (and (string-match
+                        "\\`\\(?:Dired\\|Find file\\) in \\(.*\\): \\'"
+                        prompt)
+                       (match-string 1 prompt)))
+                (when-let (proj (project-current))
+                  (project-root proj)))))
+    marginalia--project-root))
+
+(defun marginalia-annotate-project-file (cand)
+  "Annotate file CAND with its size, modification time and other attributes."
+  ;; Absolute project directories also report project-file category
+  (if (file-name-absolute-p cand)
+      (marginalia-annotate-file cand)
+    (when-let (root (marginalia--project-root))
+      (marginalia-annotate-file (expand-file-name cand root)))))
+
+(defvar-local marginalia--library-cache nil)
+(defun marginalia--library-cache ()
+  "Return hash table from library name to library file."
+  (marginalia--in-minibuffer
+    ;; `locate-file' and `locate-library' are bottlenecks for the
+    ;; annotator. Therefore we compute all the library paths first.
+    (unless marginalia--library-cache
+      (setq marginalia--library-cache (make-hash-table :test #'equal))
+      (dolist (dir (delete-dups
+                    (reverse ;; Reverse because of shadowing
+                     (append load-path (custom-theme--load-path))))) ;; Include themes
+        (dolist (file (ignore-errors
+                        (directory-files dir 'full
+                                         "\\.el\\(?:\\.gz\\)?\\'")))
+          (puthash (marginalia--library-name file)
+                   file marginalia--library-cache))))
+    marginalia--library-cache))
+
+(defun marginalia--library-name (file)
+  "Get name of library FILE."
+  (replace-regexp-in-string "\\(\\.gz\\|\\.elc?\\)+\\'" ""
+                            (file-name-nondirectory file)))
+
+(defun marginalia--library-doc (file)
+  "Return library documentation string for FILE."
+  (let ((doc (get-text-property 0 'marginalia--library-doc file)))
+    (unless doc
+      ;; Extract documentation string. We cannot use `lm-summary' here,
+      ;; since it decompresses the whole file, which is slower.
+      (setq doc (or (ignore-errors
+                      (let ((shell-file-name "sh")
+                            (shell-command-switch "-c"))
+                        (shell-command-to-string
+                         (format (if (string-suffix-p ".gz" file)
+                                     "gzip -c -q -d %s | head -n1"
+                                   "head -n1 %s")
+                                 (shell-quote-argument file)))))
+                    ""))
+      (cond
+       ((string-match "\\`(define-package\\s-+\"\\([^\"]+\\)\"" doc)
+        (setq doc (format "Generated package description from %s.el"
+                          (match-string 1 doc))))
+       ((string-match "\\`;+\\s-*" doc)
+        (setq doc (substring doc (match-end 0)))
+        (when (string-match "\\`[^ \t]+\\s-+-+\\s-+" doc)
+          (setq doc (substring doc (match-end 0))))
+        (when (string-match "\\s-*-\\*-" doc)
+          (setq doc (substring doc 0 (match-beginning 0)))))
+       (t (setq doc "")))
+      ;; Add the documentation string to the cache
+      (put-text-property 0 1 'marginalia--library-doc doc file))
+    doc))
+
+(defun marginalia-annotate-theme (cand)
+  "Annotate theme CAND with documentation and path."
+  (marginalia-annotate-library (concat cand "-theme")))
+
+(defun marginalia-annotate-library (cand)
+  "Annotate library CAND with documentation and path."
+  (setq cand (marginalia--library-name cand))
+  (when-let (file (gethash cand (marginalia--library-cache)))
+    (marginalia--fields
+     ;; Display if the corresponding feature is loaded.
+     ;; feature/=library file, but better than nothing.
+     ((when-let (sym (intern-soft cand))
+        (when (memq sym features)
+          (propertize "Loaded" 'face 'marginalia-on)))
+      :width 8)
+     ((marginalia--library-doc file)
+      :truncate 1.0 :face 'marginalia-documentation)
+     ((abbreviate-file-name (file-name-directory file))
+      :truncate -0.5 :face 'marginalia-file-name))))
+
+(defun marginalia-annotate-tab (cand)
+  "Annotate named tab CAND with tab index, window and buffer information."
+  (when-let ((tabs (funcall tab-bar-tabs-function))
+             (index (seq-position
+                     tabs nil
+                     (lambda (tab _) (equal (alist-get 'name tab) cand)))))
+    (let* ((tab (nth index tabs))
+           (ws (alist-get 'ws tab))
+           (bufs (window-state-buffers ws)))
+      ;; When the buffer key is present in the window state it is added in front
+      ;; of the window buffer list and gets duplicated.
+      (when (cadr (assq 'buffer ws)) (pop bufs))
+      (marginalia--fields
+       (:left (1+ index) :format " (%s)" :face 'marginalia-key)
+       ((if (eq (car tab) 'current-tab)
+            (length (window-list nil 'no-minibuf))
+          (length bufs))
+        :format "win:%s" :face 'marginalia-size)
+       ((or (alist-get 'group tab) 'none)
+        :format "group:%s" :face 'marginalia-type :truncate 20)
+       ((if (eq (car tab) 'current-tab)
+            "(current tab)"
+          (string-join bufs " "))
+        :face 'marginalia-documentation)))))
+
+(defun marginalia-classify-by-command-name ()
+  "Lookup category for current command."
+  (and marginalia--command
+       (or (alist-get marginalia--command marginalia-command-categories)
+           ;; The command can be an alias, e.g., `recentf' -> `recentf-open'.
+           (when-let ((chain (function-alias-p marginalia--command)))
+             (alist-get (car (last chain)) marginalia-command-categories)))))
+
+(defun marginalia-classify-original-category ()
+  "Return original category reported by completion metadata."
+  ;; Bypass our `marginalia--completion-metadata-get' advice.
+  (when-let (cat (marginalia--orig-completion-metadata-get marginalia--metadata 'category))
+    ;; Ignore `symbol-help' category in order to ensure that the categories are
+    ;; refined to our categories function and variable.
+    (and (not (eq cat 'symbol-help)) cat)))
+
+(defun marginalia-classify-symbol ()
+  "Determine if currently completing symbols."
+  (when-let (mct minibuffer-completion-table)
+    (when (or (eq mct 'help--symbol-completion-table)
+              (obarrayp mct)
+              (and (not (functionp mct)) (consp mct) (symbolp (car mct)))) ; assume list of symbols
+      'symbol)))
+
+(defun marginalia-classify-by-prompt ()
+  "Determine category by matching regexps against the minibuffer prompt.
+This runs through the `marginalia-prompt-categories' alist
+looking for a regexp that matches the prompt."
+  (when-let (prompt (minibuffer-prompt))
+    (setq prompt
+          (replace-regexp-in-string "(.*?default.*?)\\|\\[.*?\\]" "" prompt))
+    (cl-loop with case-fold-search = t
+             for (regexp . category) in marginalia-prompt-categories
+             when (string-match-p regexp prompt)
+             return category)))
+
+(defun marginalia--cache-reset (&rest _)
+  "Reset the cache."
+  (setq marginalia--cache (and marginalia--cache (> marginalia--cache-size 0)
+                               (cons nil (make-hash-table :test #'equal
+                                                          :size marginalia--cache-size)))))
+
+(defun marginalia--cached (cache fun key)
+  "Cached application of function FUN with KEY.
+The CACHE keeps around the last `marginalia--cache-size' computed
+annotations.  The cache is mainly useful when scrolling in
+completion UIs like Vertico or Icomplete."
+  (if cache
+      (let ((ht (cdr cache)))
+        (or (gethash key ht)
+            (let ((val (funcall fun key)))
+              (push key (car cache))
+              (puthash key val ht)
+              (when (>= (hash-table-count ht) marginalia--cache-size)
+                (let ((end (last (car cache) 2)))
+                  (remhash (cadr end) ht)
+                  (setcdr end nil)))
+              val)))
+    (funcall fun key)))
+
+(defun marginalia--align (cands)
+  "Align annotations of CANDS according to `marginalia-align'."
+  (cl-loop
+   for (cand . ann) in cands do
+   (when-let (align (text-property-any 0 (length ann) 'marginalia--align t ann))
+     (setq marginalia--cand-width-max
+           (max marginalia--cand-width-max
+                (* (ceiling (+ (string-width cand) (string-width ann 0 align))
+                            marginalia--cand-width-step)
+                   marginalia--cand-width-step)))))
+  (cl-loop
+   for (cand . ann) in cands collect
+   (progn
+     (when-let (align (text-property-any 0 (length ann) 'marginalia--align t ann))
+       (put-text-property
+        align (1+ align) 'display
+        `(space :align-to
+                ,(pcase-exhaustive marginalia-align
+                   ('center `(+ center ,marginalia-align-offset))
+                   ('left `(+ left ,(+ marginalia-align-offset marginalia--cand-width-max)))
+                   ('right `(+ right ,(+ marginalia-align-offset 1
+                                         (- (string-width ann 0 align)
+                                            (string-width ann)))))))
+        ann))
+     (list cand "" ann))))
+
+(defun marginalia--affixate (metadata annotator cands)
+  "Affixate CANDS given METADATA and Marginalia ANNOTATOR."
+  ;; Compute minimum width of windows, which display the minibuffer, including
+  ;; the miniwindow.  In general the computed width corresponds to the full
+  ;; frame width, since the miniwindow spans the full frame.  For example
+  ;; `vertico-buffer' displays the minibuffer in a separate window.  Similarly,
+  ;; we could detect other types of completion buffers, e.g., Embark Collect or
+  ;; the default completion buffer, and compute smaller widths.
+  (let* ((width (cl-loop for win in (get-buffer-window-list) minimize (window-width win)))
+         (marginalia-field-width (min (/ width 2) marginalia-field-width))
+         (marginalia--metadata metadata)
+         (cache marginalia--cache))
+    (marginalia--align
+     ;; Run the annotators in the original window. `with-selected-window'
+     ;; is necessary because of `lookup-minor-mode-from-indicator'.
+     ;; Otherwise it would suffice to only change the current buffer. We
+     ;; need the `selected-window' fallback for Embark Occur.
+     (with-selected-window (or (minibuffer-selected-window) (selected-window))
+       (cl-loop for cand in cands collect
+                (let ((ann (or (marginalia--cached cache annotator cand) "")))
+                  (cons cand (if (string-blank-p ann) "" ann))))))))
+
+(defun marginalia--completion-metadata-get (metadata prop)
+  "Meant as :before-until advice for `completion-metadata-get'.
+METADATA is the metadata.
+PROP is the property which is looked up."
+  (pcase prop
+    ('annotation-function
+     ;; We do want the advice triggered for `completion-metadata-get'.
+     (when-let ((cat (completion-metadata-get metadata 'category))
+                (annotator (marginalia--annotator cat)))
+       (lambda (cand)
+         (let ((ann (caddar (marginalia--affixate metadata annotator (list cand)))))
+           (and (not (equal ann "")) ann)))))
+    ('affixation-function
+     ;; We do want the advice triggered for `completion-metadata-get'.
+     (when-let ((cat (completion-metadata-get metadata 'category))
+                (annotator (marginalia--annotator cat)))
+       (apply-partially #'marginalia--affixate metadata annotator)))
+    ('category
+     ;; Find the completion category by trying each of our classifiers.
+     ;; Store the metadata for `marginalia-classify-original-category'.
+     (let ((marginalia--metadata metadata))
+       (run-hook-with-args-until-success 'marginalia-classifiers)))))
+
+(defun marginalia--minibuffer-setup ()
+  "Setup the minibuffer for Marginalia.
+Remember `this-command' for `marginalia-classify-by-command-name'."
+  (setq marginalia--cache t marginalia--command this-command)
+  ;; Reset cache if window size changes, recompute alignment
+  (add-hook 'window-state-change-hook #'marginalia--cache-reset nil 'local)
+  (marginalia--cache-reset))
+
+(defun marginalia--base-position (completions)
+  "Record the base position of COMPLETIONS."
+  ;; As a small optimization we track the base position only for file
+  ;; completions, since `marginalia--full-candidate' is currently used only by
+  ;; the file annotation function.
+  (when minibuffer-completing-file-name
+    (let ((base (or (cdr (last completions)) 0)))
+      (unless (= marginalia--base-position base)
+        (marginalia--cache-reset)
+        (setq marginalia--base-position base
+              marginalia--cand-width-max (default-value 'marginalia--cand-width-max)))))
+  completions)
+
+;;;###autoload
+(define-minor-mode marginalia-mode
+  "Annotate completion candidates with richer information."
+  :global t :group 'marginalia
+  (if marginalia-mode
+      (progn
+        ;; Remember `this-command' in order to select the annotation function.
+        (add-hook 'minibuffer-setup-hook #'marginalia--minibuffer-setup)
+        ;; Replace the metadata function.
+        (advice-add (compat-function completion-metadata-get) :before-until #'marginalia--completion-metadata-get)
+        (advice-add #'completion-metadata-get :before-until #'marginalia--completion-metadata-get)
+        ;; Record completion base position, for `marginalia--full-candidate'
+        (advice-add #'completion-all-completions :filter-return #'marginalia--base-position))
+    (advice-remove #'completion-all-completions #'marginalia--base-position)
+    (advice-remove (compat-function completion-metadata-get) #'marginalia--completion-metadata-get)
+    (advice-remove #'completion-metadata-get #'marginalia--completion-metadata-get)
+    (remove-hook 'minibuffer-setup-hook #'marginalia--minibuffer-setup)))
+
+;;;###autoload
+(defun marginalia-cycle ()
+  "Cycle between annotators in `marginalia-annotator-registry'."
+  ;; Only show `marginalia-cycle' in M-x in recursive minibuffers
+  (declare (completion (lambda (&rest _) (> (minibuffer-depth) 1))))
+  (interactive)
+  (with-current-buffer (window-buffer
+                        (or (active-minibuffer-window)
+                            (user-error "Marginalia: No active minibuffer")))
+    (let* ((end (minibuffer-prompt-end))
+           (pt (max 0 (- (point) end)))
+           (md (completion-metadata (buffer-substring-no-properties end (+ end pt))
+                                    minibuffer-completion-table
+                                    minibuffer-completion-predicate))
+           (cat (or (completion-metadata-get md 'category)
+                    (user-error "Marginalia: Unknown completion category")))
+           (ann (or (assq cat marginalia-annotator-registry)
+                    (user-error "Marginalia: No annotators found for category `%s'" cat))))
+      (marginalia--cache-reset)
+      (setcdr ann (append (cddr ann) (list (cadr ann))))
+      ;; When the builtin annotator is selected and no builtin function is
+      ;; available, skip to the next annotator. Bypass the
+      ;; `marginalia--completion-metadata-get' advice.
+      (when (and (eq (cadr ann) 'builtin)
+                 (not (marginalia--orig-completion-metadata-get md 'annotation-function))
+                 (not (marginalia--orig-completion-metadata-get md 'affixation-function)))
+        (setcdr ann (append (cddr ann) (list (cadr ann)))))
+      (message "Marginalia: Use annotator `%s' for category `%s'" (cadr ann) (car ann)))))
+
+(provide 'marginalia)
+;;; marginalia.el ends here
diff --git a/emacs/elpa/marginalia-20241124.1138/marginalia.elc b/emacs/elpa/marginalia-20241124.1138/marginalia.elc
Binary files differ.
diff --git a/emacs/elpa/osm-20241119.2137/osm-pkg.el b/emacs/elpa/osm-20241119.2137/osm-pkg.el
@@ -1,11 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "osm" "20241119.2137"
-  "OpenStreetMap viewer."
-  '((emacs  "28.1")
-    (compat "30"))
-  :url "https://github.com/minad/osm"
-  :commit "ab76f8a9e79e0ec6330071b4aed974270b6f2a15"
-  :revdesc "ab76f8a9e79e"
-  :keywords '("network" "multimedia" "hypermedia" "mouse")
-  :authors '(("Daniel Mendler" . "mail@daniel-mendler.de"))
-  :maintainers '(("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/osm-20241119.2137/osm.el b/emacs/elpa/osm-20241119.2137/osm.el
@@ -1,1839 +0,0 @@
-;;; osm.el --- OpenStreetMap viewer -*- lexical-binding: t -*-
-
-;; Copyright (C) 2022-2024 Free Software Foundation, Inc.
-
-;; Author: Daniel Mendler <mail@daniel-mendler.de>
-;; Maintainer: Daniel Mendler <mail@daniel-mendler.de>
-;; Created: 2022
-;; Package-Version: 20241119.2137
-;; Package-Revision: ab76f8a9e79e
-;; Package-Requires: ((emacs "28.1") (compat "30"))
-;; URL: https://github.com/minad/osm
-;; Keywords: network, multimedia, hypermedia, mouse
-
-;; This file is part of GNU Emacs.
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Osm.el is a tile-based map viewer, with a responsive movable and
-;; zoomable display.  The map can be controlled with the keyboard or with
-;; the mouse.  The viewer fetches the map tiles in parallel from tile
-;; servers via the `curl' program.  The package comes with a list of
-;; multiple preconfigured tile servers.  You can bookmark your favorite
-;; locations using regular Emacs bookmarks or create links from Org files
-;; to locations.  Furthermore the package provides commands to measure
-;; distances, search for locations by name and to open and display GPX
-;; tracks.
-
-;; osm.el requires Emacs 28 and depends on the external `curl' program.
-;; Emacs must be built with libxml, libjansson, librsvg, libjpeg and
-;; libpng support.
-
-;;; Code:
-
-(require 'compat)
-(require 'bookmark)
-(require 'dom)
-(eval-when-compile
-  (require 'cl-lib)
-  (require 'subr-x))
-
-(defgroup osm nil
-  "OpenStreetMap viewer."
-  :link '(info-link :tag "Info Manual" "(osm)")
-  :link '(url-link :tag "Website" "https://github.com/minad/osm")
-  :link '(url-link :tag "Wiki" "https://github.com/minad/osm/wiki")
-  :link '(emacs-library-link :tag "Library Source" "osm.el")
-  :group 'web
-  :prefix "osm-")
-
-(defcustom osm-curl-options
-  "--disable --fail --location --silent --max-time 30"
-  "Curl command line options."
-  :type 'string)
-
-(defcustom osm-search-language "en"
-  "Language used for search results.
-Use RFC 1766 abbreviations, e.g.: `en' for English, `de' for German.
-A comma-separated specifies descending order of preference.  See also
-`url-mime-language-string'."
-  :type 'string)
-
-(defcustom osm-search-server
-  "https://nominatim.openstreetmap.org"
-  "Server used to search for location names.
-The server must offer the nominatim.org API."
-  :type 'string)
-
-(defcustom osm-server-defaults
-  '(:min-zoom 2
-    :max-zoom 19
-    :download-batch 4
-    :max-connections 2
-    :subdomains ("a" "b" "c"))
-  "Default server properties.
-See also `osm-server-list'."
-  :type 'plist)
-
-(defcustom osm-server-list
-  '((default
-     :name "Carto"
-     :description "Standard Carto map provided by OpenStreetMap"
-     :url "https://%s.tile.openstreetmap.org/%z/%x/%y.png"
-     :group "Standard"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {OpenStreetMap Standard|https://www.openstreetmap.org/copyright}"))
-    (de
-     :name "Carto(de)"
-     :description "Localized Carto map provided by OpenStreetMap Germany"
-     :url "https://%s.tile.openstreetmap.de/%z/%x/%y.png"
-     :group "Standard"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {OpenStreetMap Deutschland|https://www.openstreetmap.de/germanstyle.html}"))
-    (fr
-     :name "Carto(fr)"
-     :description "Localized Carto map by OpenStreetMap France"
-     :url "https://%s.tile.openstreetmap.fr/osmfr/%z/%x/%y.png"
-     :group "Standard"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {OpenStreetMap France|https://www.openstreetmap.fr/mentions-legales/}"))
-    (humanitarian
-     :name "Humanitarian"
-     :description "Humanitarian map provided by OpenStreetMap France"
-     :url "https://%s.tile.openstreetmap.fr/hot/%z/%x/%y.png"
-     :group "Special Purpose"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {Humanitarian OpenStreetMap Team|https://www.hotosm.org/updates/2013-09-29_a_new_window_on_openstreetmap_data}"))
-    (cyclosm
-     :name "CyclOSM"
-     :description "Bicycle-oriented map provided by OpenStreetMap France"
-     :url "https://%s.tile-cyclosm.openstreetmap.fr/cyclosm/%z/%x/%y.png"
-     :group "Transportation"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {CyclOSM|https://www.cyclosm.org/} contributors"))
-    (openriverboatmap
-     :name "OpenRiverBoatMap"
-     :description "Waterways map provided by OpenStreetMap France"
-     :url "https://%s.tile.openstreetmap.fr/openriverboatmap/%z/%x/%y.png"
-     :group "Transportation"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {OpenRiverBoatMap|https://github.com/tilery/OpenRiverboatMap}"))
-    (opentopomap
-     :name "OpenTopoMap"
-     :description "Topographical map provided by OpenTopoMap"
-     :url "https://%s.tile.opentopomap.org/%z/%x/%y.png"
-     :group "Topographical"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {OpenTopoMap|https://www.opentopomap.org} ({CC-BY-SA|https://creativecommons.org/licenses/by-sa/3.0/})"
-                 "Elevation data: {SRTM|https://www2.jpl.nasa.gov/srtm/}"))
-    (opvn
-     :name "ÖPNV" :max-zoom 18
-     :description "Base layer with public transport information"
-     :url "http://%s.tile.memomaps.de/tilegen/%z/%x/%y.png"
-     :group "Transportation"
-     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
-                 "Map style © {ÖPNVKarte|https://www.öpnvkarte.de}")))
-  "List of tile servers.
-
-Allowed keys:
-  :name            Server name
-  :description     Server description
-  :copyright       Copyright information
-  :group           Name of server groups for related servers
-  :url             Url with placeholders
-  :ext             File name extension
-  :min-zoom        Minimum zoom level
-  :max-zoom        Maximum zoom level
-  :download-batch  Number of tiles downloaded via a single connection
-  :max-connections Maximum number of parallel connections
-  :subdomains      Subdomains used for the %s placeholder
-
-See also `osm-server-defaults' for default values used for a
-server if the property is missing.
-
-The :url of each server should specify %x, %y, %z and %s placeholders
-for the map coordinates.  It can optionally use an %s placeholder
-for the subdomain and a %k placeholder for an apikey.  The apikey
-will be retrieved via `auth-source-search' with the :host set to
-the domain name and the :user to the string \"apikey\"."
-  :type '(alist :key-type symbol :value-type plist))
-
-(defcustom osm-copyright t
-  "Display the copyright information above the map."
-  :type 'boolean)
-
-(defcustom osm-pin-colors
-  '((osm-selected . "#e20")
-    (osm-bookmark . "#f80")
-    (osm-poi . "#88f")
-    (osm-home . "#80f")
-    (osm-track . "#00a"))
-  "Colors of pins."
-  :type '(alist :key-type symbol :value-type string))
-
-(defcustom osm-track-style
-  "stroke:#00a;stroke-width:5;stroke-linejoin:round;stroke-linecap:round;opacity:0.4;"
-  "SVG style used to draw tracks."
-  :type 'string)
-
-(defcustom osm-home
-  (let ((lat (bound-and-true-p calendar-latitude))
-        (lon (bound-and-true-p calendar-longitude)))
-    (if (and lat lon)
-        (list lat lon 12)
-      (list 0 0 3)))
-  "Home coordinates, latitude, longitude and zoom level."
-  :type '(list :tag "Coordinates"
-               (number :tag "Latitude  ")
-               (number :tag "Longitude ")
-               (number :tag "Zoom      ")))
-
-(defcustom osm-large-step 256
-  "Scroll step in pixel."
-  :type 'natnum)
-
-(defcustom osm-tile-border nil
-  "Set to t to display thin tile borders.
-For debugging set the value to `debug', such that a border is
-shown around SVG tiles."
-  :type '(choice boolean (const debug)))
-
-(defcustom osm-small-step 16
-  "Scroll step in pixel."
-  :type 'natnum)
-
-(defcustom osm-server 'default
-  "Tile server name."
-  :type 'symbol)
-
-(defcustom osm-tile-directory
-  (expand-file-name "var/osm/" user-emacs-directory)
-  "Tile cache directory."
-  :type 'string)
-
-(defcustom osm-max-age 14
-  "Maximum tile age in days.
-Should be at least 7 days according to the server usage policies."
-  :type '(choice (const nil) natnum))
-
-(defcustom osm-max-tiles 256
-  "Number of tiles to keep in the memory cache."
-  :type '(choice (const nil) natnum))
-
-(defun osm--menu-item (menu)
-  "Generate menu item from MENU."
-  `(menu-item
-    "" nil :filter
-    ,(lambda (&optional _)
-       (select-window
-        (posn-window
-         (event-start last-input-event)))
-       (if (functionp menu)
-           (funcall menu)
-         menu))))
-
-(defun osm--mouse-ignore-wheel (_prompt)
-  "Ignore mouse wheel events during key translation."
-  (pcase (this-single-command-raw-keys)
-    ((and `[,e]
-          (let y (event-basic-type e))
-          (guard (symbolp y))
-          (guard (string-search "wheel-" (symbol-name y))))
-     [])
-    (k k)))
-
-(defvar-keymap osm-prefix-map
-  :doc "Global prefix map of OSM entry points."
-  "h" #'osm-home
-  "s" #'osm-search
-  "v" #'osm-server
-  "t" #'osm-goto
-  "j" #'osm-jump
-  "x" #'osm-gpx-show
-  "X" #'osm-gpx-hide)
-
-;;;###autoload (autoload 'osm-prefix-map "osm" nil t 'keymap)
-(defalias 'osm-prefix-map osm-prefix-map)
-
-(defvar-keymap osm-mode-map
-  :doc "Keymap used by `osm-mode'."
-  :parent (make-composed-keymap osm-prefix-map special-mode-map)
-  "<home>" #'osm-home
-  "+" #'osm-zoom-in
-  "-" #'osm-zoom-out
-  "SPC" #'osm-zoom-in
-  "S-SPC" #'osm-zoom-out
-  "<mouse-1>" #'osm-mouse-pin
-  "<mouse-2>" 'org-store-link
-  "<mouse-3>" #'osm-bookmark-set
-  "S-<down-mouse-1>" #'ignore
-  "S-<mouse-1>" #'osm-mouse-track
-  "<down-mouse-1>" #'osm-mouse-drag
-  "<down-mouse-2>" #'osm-mouse-drag
-  "<down-mouse-3>" #'osm-mouse-drag
-  "<drag-mouse-1>" #'ignore
-  "<drag-mouse-2>" #'ignore
-  "<drag-mouse-3>" #'ignore
-  "<up>" #'osm-up
-  "<down>" #'osm-down
-  "<left>" #'osm-left
-  "<right>" #'osm-right
-  "C-<up>" #'osm-up-up
-  "C-<down>" #'osm-down-down
-  "C-<left>" #'osm-left-left
-  "C-<right>" #'osm-right-right
-  "M-<up>" #'osm-up-up
-  "M-<down>" #'osm-down-down
-  "M-<left>" #'osm-left-left
-  "M-<right>" #'osm-right-right
-  "S-<up>" #'osm-up-up
-  "S-<down>" #'osm-down-down
-  "S-<left>" #'osm-left-left
-  "S-<right>" #'osm-right-right
-  "n" #'osm-rename
-  "d" #'osm-delete
-  "DEL" #'osm-delete
-  "<deletechar>" #'osm-delete
-  "c" #'osm-center
-  "o" #'clone-buffer
-  "u" #'osm-save-url
-  "l" 'org-store-link
-  "b" #'osm-bookmark-set
-  "X" #'osm-gpx-hide
-  "<remap> <scroll-down-command>" #'osm-down
-  "<remap> <scroll-up-command>" #'osm-up
-  "<" nil
-  ">" nil)
-
-(dolist (pin osm-pin-colors)
-  (setq pin (vector (car pin)))
-  (define-key key-translation-map pin #'osm--mouse-ignore-wheel)
-  (define-key osm-mode-map pin #'osm-mouse-select))
-
-(easy-menu-define osm-mode-menu osm-mode-map
-  "Menu for `osm-mode'."
-  '("OSM"
-    ["Go home" osm-home]
-    ["Center" osm-center]
-    ["Go to coordinates" osm-goto]
-    ["Jump to pin" osm-jump]
-    ["Search by name" osm-search]
-    ["Change tile server" osm-server]
-    "--"
-    ["Org Link" org-store-link]
-    ["Geo Url" osm-save-url]
-    ["Elisp Link" (osm-save-url t)]
-    ("Bookmark"
-     ["Set" osm-bookmark-set]
-     ["Jump" osm-bookmark-jump]
-     ["Rename" osm-bookmark-rename]
-     ["Delete" osm-bookmark-delete])
-    "--"
-    ["Show GPX file" osm-gpx-show]
-    ["Hide GPX file" osm-gpx-hide]
-    "--"
-    ["Clone buffer" clone-buffer]
-    ["Revert buffer" revert-buffer]
-    "--"
-    ["Manual" (info "(osm)")]
-    ["Customize" (customize-group 'osm)]))
-
-(defconst osm--placeholder
-  '(:type svg :width 256 :height 256
-          :data "<svg width='256' height='256' version='1.1' xmlns='http://www.w3.org/2000/svg'>
-  <defs>
-    <pattern id='grid' width='16' height='16'  patternUnits='userSpaceOnUse'>
-      <path d='m 0 0 l 0 16 16 0' fill='none' stroke='#888888'/>
-    </pattern>
-  </defs>
-  <rect width='256' height='256' fill='url(#grid)'/>
-</svg>")
-  "Placeholder image for tiles.")
-
-(defvar osm--search-history nil
-  "Minibuffer history used by command `osm-search'.")
-
-(defvar osm--jump-history nil
-  "Minibuffer history used by command `osm-jump'.")
-
-(defvar osm--server-history nil
-  "Minibuffer history used by command `osm-server'.")
-
-(defvar osm--purge-directory 0
-  "Last time the tile cache was cleaned.")
-
-(defvar osm--tile-cache nil
-  "Global tile memory cache.")
-
-(defvar osm--tile-age 0
-  "Tile age, incremented on every update.")
-
-(defvar osm--gpx-files nil
-  "Global list of loaded tracks.")
-
-(defvar osm--track nil
-  "List of track coordinates.")
-
-(defvar osm--download-processes nil
-  "Globally active download processes.")
-
-(defvar osm--download-active nil
-  "Globally active download jobs.")
-
-(defvar osm--download-subdomain nil
-  "Subdomain indices to query the servers in a round-robin fashion.")
-
-(defvar-local osm--download-queue nil
-  "Buffer-local tile download queue.")
-
-(defvar-local osm--wx 0
-  "Half window width in pixel.")
-
-(defvar-local osm--wy 0
-  "Half window height in pixel.")
-
-(defvar-local osm--nx 0
-  "Number of tiles in x direction.")
-
-(defvar-local osm--ny 0
-  "Number of tiles in y direction.")
-
-(defvar-local osm--zoom nil
-  "Zoom level of the map.")
-
-(defvar-local osm--lat nil
-  "Latitude coordinate.")
-
-(defvar-local osm--lon nil
-  "Longitude coordinate.")
-
-(defvar-local osm--overlays nil
-  "Overlay hash table.
-Local per buffer since the overlays depend on the zoom level.")
-
-(defvar-local osm--pin nil
-  "Currently selected pin.")
-
-(defmacro osm--each (&rest body)
-  "Execute BODY in each `osm-mode' buffer."
-  (cl-with-gensyms (buf)
-    `(dolist (,buf (buffer-list))
-       (when (eq (buffer-local-value 'major-mode ,buf) #'osm-mode)
-         (with-current-buffer ,buf
-           ,@body)))))
-
-(defun osm--server-menu ()
-  "Generate server menu."
-  (let (menu last-group)
-    (dolist (server osm-server-list)
-      (let* ((plist (cdr server))
-             (group (plist-get plist :group)))
-        (unless (equal last-group group)
-          (push (format "─── %s ───" group) menu)
-          (setq last-group group))
-        (push
-         `[,(plist-get plist :name)
-           (osm-server ',(car server))
-           :style toggle
-           :selected (eq osm-server ',(car server))]
-         menu)))
-    (easy-menu-create-menu "Server" (nreverse menu))))
-
-(defsubst osm--lon-to-normalized-x (lon)
-  "Convert LON to normalized x coordinate."
-  (/ (+ lon 180.0) 360.0))
-
-(defsubst osm--lat-to-normalized-y (lat)
-  "Convert LAT to normalized y coordinate."
-  (setq lat (* lat (/ float-pi 180.0)))
-  (- 0.5 (/ (log (+ (tan lat) (/ 1.0 (cos lat)))) float-pi 2)))
-
-(defun osm--boundingbox-to-zoom (lat1 lat2 lon1 lon2)
-  "Compute zoom level from boundingbox LAT1 to LAT2 and LON1 to LON2."
-  (let ((w (/ (frame-pixel-width) 256))
-        (h (/ (frame-pixel-height) 256)))
-    (max (osm--server-property :min-zoom)
-         (min
-          (osm--server-property :max-zoom)
-          (min (logb (/ w (abs (- (osm--lon-to-normalized-x lon1) (osm--lon-to-normalized-x lon2)))))
-               (logb (/ h (abs (- (osm--lat-to-normalized-y lat1) (osm--lat-to-normalized-y lat2))))))))))
-
-(defun osm--x-to-lon (x zoom)
-  "Return longitude in degrees for X/ZOOM."
-  (- (/ (* x 360.0) 256.0 (expt 2.0 zoom)) 180.0))
-
-(defun osm--y-to-lat (y zoom)
-  "Return latitude in degrees for Y/ZOOM."
-  (setq y (* float-pi (- 1 (* 2 (/ y 256.0 (expt 2.0 zoom))))))
-  (/ (* 180 (atan (/ (- (exp y) (exp (- y))) 2))) float-pi))
-
-(defsubst osm--lon-to-x (lon zoom)
-  "Convert LON/ZOOM to x coordinate in pixel."
-  (floor (* 256 (expt 2.0 zoom) (osm--lon-to-normalized-x lon))))
-
-(defsubst osm--lat-to-y (lat zoom)
-  "Convert LAT/ZOOM to y coordinate in pixel."
-  (floor (* 256 (expt 2.0 zoom) (osm--lat-to-normalized-y lat))))
-
-(defsubst osm--x ()
-  "Return longitude in pixel of map center."
-  (osm--lon-to-x osm--lon osm--zoom))
-
-(defsubst osm--y ()
-  "Return latitude in pixel of map center."
-  (osm--lat-to-y osm--lat osm--zoom))
-
-(defsubst osm--x0 ()
-  "Return longitude in pixel of top left corner."
-  (- (osm--x) osm--wx))
-
-(defsubst osm--y0 ()
-  "Return latitude in pixel of top left corner."
-  (- (osm--y) osm--wy))
-
-(defun osm--server-property (prop &optional server)
-  "Return server property PROP for SERVER."
-  (or (plist-get (alist-get (or server osm-server) osm-server-list) prop)
-      (plist-get osm-server-defaults prop)))
-
-(defun osm--tile-url (x y zoom)
-  "Return tile url for coordinate X, Y and ZOOM."
-  (let ((url (osm--server-property :url))
-        (sub (osm--server-property :subdomains))
-        (key (osm--server-property :key)))
-    (when (and (string-search "%k" url) (not key))
-      (require 'auth-source)
-      (declare-function auth-source-search "auth-source")
-      (let ((host (string-join
-                   (last (split-string (cadr (split-string url "/" t)) "\\.") 2)
-                   ".")))
-        (setq key (plist-get
-                   (car (auth-source-search :require '(:user :host :secret)
-                                            :host host
-                                            :user "apikey"))
-                   :secret))
-        (unless key
-          (warn "No auth source secret found for apikey@%s" host)
-          (setq key ""))
-        (setf (plist-get (alist-get osm-server osm-server-list) :key) key)))
-    (format-spec
-     url `((?z . ,zoom) (?x . ,x) (?y . ,y)
-           (?k . ,(if (functionp key) (funcall key) key))
-           (?s . ,(nth (mod (alist-get osm-server osm--download-subdomain 0)
-                            (length sub))
-                       sub))))))
-
-(defun osm--tile-file (x y zoom)
-  "Return tile file name for coordinate X, Y and ZOOM."
-  (file-name-concat
-   (expand-file-name osm-tile-directory)
-   (symbol-name osm-server)
-   (format "%d-%d-%d.%s"
-           zoom x y
-           (or (osm--server-property :ext)
-               (file-name-extension
-                (url-file-nondirectory
-                 (osm--server-property :url)))))))
-
-(defun osm--enqueue-download (x y)
-  "Enqueue tile X/Y for download."
-  (when (let ((n (expt 2 osm--zoom))) (and (>= x 0) (>= y 0) (< x n) (< y n)))
-    (let ((job (list osm-server osm--zoom x y)))
-      (unless (or (member job osm--download-queue) (member job osm--download-active))
-        (setq osm--download-queue (nconc osm--download-queue (list job)))))))
-
-(defun osm--download-filter (output)
-  "Filter function for the download process which receives OUTPUT."
-  (while (string-match
-          "\\`\\([0-9]+\\) \\(.*?/\\([^/]+\\)/\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\.[^\r\n]+\\)\r?\n"
-          output)
-    (let ((status (match-string 1 output))
-          (file (match-string 2 output))
-          (server (intern-soft (match-string 3 output)))
-          (zoom (string-to-number (match-string 4 output)))
-          (x (string-to-number (match-string 5 output)))
-          (y (string-to-number (match-string 6 output))))
-      (setq output (substring output (match-end 0)))
-      (when (equal status "200")
-        (ignore-errors (rename-file file (string-remove-suffix ".tmp" file) t))
-        (osm--each
-          (when (and (= osm--zoom zoom) (eq osm-server server))
-            (osm--display-tile x y (osm--get-tile x y)))))
-      (cl-callf2 delete (list server zoom x y) osm--download-active)
-      (delete-file file)))
-  output)
-
-(defun osm--download-command ()
-  "Build download command."
-  (let* ((count 0)
-         (batch (osm--server-property :download-batch))
-         (subs (length (osm--server-property :subdomains)))
-         (parallel (* subs (osm--server-property :max-connections)))
-         args jobs job)
-    (while (and (< count batch)
-                (setq job (nth (* count parallel) osm--download-queue)))
-      (pcase-let ((`(,_server ,zoom ,x ,y) job))
-        (setq args `(,(osm--tile-url x y zoom)
-                     ,(concat (osm--tile-file x y zoom) ".tmp")
-                     "--output"
-                     ,@args))
-        (push job jobs)
-        (push job osm--download-active)
-        (cl-incf count)))
-    (osm--each
-      (dolist (job jobs)
-        (cl-callf2 delq job osm--download-queue)))
-    (cl-callf (lambda (s) (mod (1+ s) subs))
-        (alist-get osm-server osm--download-subdomain 0))
-    (cons `("curl" "--write-out" "%{http_code} %{filename_effective}\n"
-            ,@(split-string-and-unquote osm-curl-options) ,@(nreverse args))
-          jobs)))
-
-(defun osm--download ()
-  "Download next tiles from the queue."
-  (when (and (< (length (alist-get osm-server osm--download-processes))
-                (* (length (osm--server-property :subdomains))
-                   (osm--server-property :max-connections)))
-             osm--download-queue)
-    (pcase-let ((`(,command . ,jobs) (osm--download-command))
-                (dir (file-name-concat (expand-file-name osm-tile-directory)
-                                       (symbol-name osm-server)))
-                (server osm-server))
-      (make-directory dir t)
-      (push
-       (make-process
-        :name "*osm curl*"
-        :connection-type 'pipe
-        :noquery t
-        :command command
-        :filter
-        (let ((output ""))
-          (lambda (_proc out)
-            (setq output (osm--download-filter (concat output out)))
-            (force-mode-line-update t)))
-        :sentinel
-        (lambda (proc _status)
-          (dolist (job jobs)
-            (cl-callf2 delq job osm--download-active))
-          (cl-callf2 delq proc (alist-get server osm--download-processes nil t))
-          (force-mode-line-update t)
-          (osm--download)))
-       (alist-get server osm--download-processes))
-       (force-mode-line-update t)
-       (osm--download))))
-
-(defun osm-mouse-drag (event)
-  "Handle drag EVENT."
-  (declare (completion ignore))
-  (interactive "@e")
-  (pcase-let* ((`(,sx . ,sy) (posn-x-y (event-start event)))
-               (win (selected-window))
-               (map (define-keymap
-                      "<mouse-movement>"
-                      (lambda (event)
-                        (interactive "e")
-                        (setq event (event-start event))
-                        (when (eq win (posn-window event))
-                          (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
-                            (osm--move (- sx ex) (- sy ey))
-                            (setq sx ex sy ey)
-                            (osm--update)))))))
-    (setq track-mouse 'dragging)
-    (set-transient-map map
-                       (lambda () (eq (car-safe last-input-event) 'mouse-movement))
-                       (lambda () (setq track-mouse nil)))))
-
-(defun osm--zoom-in-wheel (_n)
-  "Zoom in with the mouse wheel."
-  (pcase-let ((`(,x . ,y) (posn-x-y (event-start last-input-event))))
-    (when (< osm--zoom (osm--server-property :max-zoom))
-      (osm--move (/ (- x osm--wx) 2) (/ (- y osm--wy) 2))
-      (osm-zoom-in))))
-
-(defun osm--zoom-out-wheel (_n)
-  "Zoom out with the mouse wheel."
-  (pcase-let ((`(,x . ,y) (posn-x-y (event-start last-input-event))))
-    (when (> osm--zoom (osm--server-property :min-zoom))
-      (osm--move (- osm--wx x) (- osm--wy y))
-      (osm-zoom-out))))
-
-(defun osm-center ()
-  "Center to location of selected pin."
-  (interactive nil osm-mode)
-  (osm--barf-unless-osm)
-  (pcase osm--pin
-    (`(,lat ,lon ,_id ,name)
-     (setq osm--lat lat osm--lon lon)
-     (message "%s" name)
-     (osm--update))))
-
-(defun osm--haversine (lat1 lon1 lat2 lon2)
-  "Compute distance between LAT1/LON1 and LAT2/LON2 in km."
-  ;; https://en.wikipedia.org/wiki/Haversine_formula
-  (let* ((rad (/ float-pi 180))
-         (y (sin (* 0.5 rad (- lat2 lat1))))
-         (x (sin (* 0.5 rad (- lon2 lon1))))
-         (h (+ (* x x) (* (cos (* rad lat1)) (cos (* rad lat2)) y y))))
-    (* 2 6371 (atan (sqrt h) (sqrt (- 1 h))))))
-
-(defun osm-mouse-track (event)
-  "Set track pin at location of the click EVENT."
-  (declare (completion ignore))
-  (interactive "@e")
-  (pcase osm--pin
-    ((and (guard (not osm--track)) `(,lat ,lon ,_id ,_name))
-     (push (list lat lon "WP1") osm--track)))
-  (osm--set-pin-event event 'osm-track
-                      (format "WP%s" (1+ (length osm--track))) 'quiet)
-  (pcase-let ((`(,lat ,lon ,_id ,name) osm--pin))
-    (push (list lat lon name) osm--track))
-  (osm--revert)
-  (osm--track-length))
-
-(defun osm--track-length ()
-  "Echo track length."
-  (when (cdr osm--track)
-    (pcase-let* ((len1 0)
-                 (len2 0)
-                 (p osm--track)
-                 (`(,sel-lat ,sel-lon ,_ ,sel-name) osm--pin))
-      (while (and (cdr p) (not (and (equal (caar p) sel-lat)
-                                    (equal (cadar p) sel-lon))))
-        (cl-incf len2 (osm--haversine (caar p) (cadar p)
-                                      (caadr p) (cadadr p)))
-        (pop p))
-      (while (cdr p)
-        (cl-incf len1 (osm--haversine (caar p) (cadar p)
-                                      (caadr p) (cadadr p)))
-        (pop p))
-      (message "%s way points, length %.2fkm, %s"
-               (length osm--track) (+ len1 len2)
-               (if (or (= len1 0) (= len2 0))
-                   sel-name
-                 (format "%.2fkm → %s → %.2fkm"
-                         len1 sel-name len2))))))
-
-(defun osm--pin-at (event &optional type)
-  "Get pin of TYPE at EVENT."
-  (let* ((xy (posn-x-y (event-start event)))
-         (x (+ (osm--x0) (car xy)))
-         (y (+ (osm--y0) (cdr xy)))
-         (min most-positive-fixnum)
-         found)
-    (dolist (pin (car (osm--get-overlays (/ x 256) (/ y 256))))
-      (pcase-let ((`(,p ,q ,_lat ,_lon ,id ,_name) pin))
-        (when (or (not type) (eq type id))
-          (let ((d (+ (* (- p x) (- p x)) (* (- q y) (- q y)))))
-            (when (and (>= q y) (< q (+ y 50)) (>= p (- x 20)) (< p (+ x 20)) (< d min))
-              (setq min d found pin))))))
-    (cddr found)))
-
-(defun osm-mouse-pin (event)
-  "Create location pin at the click EVENT."
-  (declare (completion ignore))
-  (interactive "@e")
-  (osm--set-pin-event event)
-  (osm--update))
-
-(defun osm-mouse-select (event)
-  "Select pin at position of click EVENT."
-  (declare (completion ignore))
-  (interactive "@e")
-  (when (memq (event-basic-type event) '(mouse-1 mouse-2 mouse-3))
-    (pcase (osm--pin-at event)
-      (`(,lat ,lon ,id ,name)
-       (osm--set-pin id lat lon name (eq id 'osm-track))
-       (when (eq id 'osm-track) (osm--track-length))
-       (osm--update)))))
-
-(defun osm-zoom-in (&optional n)
-  "Zoom N times into the map."
-  (interactive "p" osm-mode)
-  (osm--barf-unless-osm)
-  (setq osm--zoom (max (osm--server-property :min-zoom)
-                       (min (osm--server-property :max-zoom)
-                            (+ osm--zoom (or n 1)))))
-  (osm--update))
-
-(defun osm-zoom-out (&optional n)
-  "Zoom N times out of the map."
-  (interactive "p" osm-mode)
-  (osm-zoom-in (- (or n 1))))
-
-(defun osm--move (dx dy)
-  "Move by DX/DY."
-  (osm--barf-unless-osm)
-  (setq osm--lon (osm--x-to-lon (+ (osm--x) dx) osm--zoom)
-        osm--lat (osm--y-to-lat (+ (osm--y) dy) osm--zoom)))
-
-(defun osm-right (&optional n)
-  "Move N small steps to the right."
-  (interactive "p" osm-mode)
-  (osm--move (* (or n 1) osm-small-step) 0)
-  (osm--update))
-
-(defun osm-down (&optional n)
-  "Move N small steps down."
-  (interactive "p" osm-mode)
-  (osm--move 0 (* (or n 1) osm-small-step))
-  (osm--update))
-
-(defun osm-up (&optional n)
-  "Move N small steps up."
-  (interactive "p" osm-mode)
-  (osm-down (- (or n 1))))
-
-(defun osm-left (&optional n)
-  "Move N small steps to the left."
-  (interactive "p" osm-mode)
-  (osm-right (- (or n 1))))
-
-(defun osm-right-right (&optional n)
-  "Move N large steps to the right."
-  (interactive "p" osm-mode)
-  (osm--move (* (or n 1) osm-large-step) 0)
-  (osm--update))
-
-(defun osm-down-down (&optional n)
-  "Move N large steps down."
-  (interactive "p" osm-mode)
-  (osm--move 0 (* (or n 1) osm-large-step))
-  (osm--update))
-
-(defun osm-up-up (&optional n)
-  "Move N large steps up."
-  (interactive "p" osm-mode)
-  (osm-down-down (- (or n 1))))
-
-(defun osm-left-left (&optional n)
-  "Move N large steps to the left."
-  (interactive "p" osm-mode)
-  (osm-right-right (- (or n 1))))
-
-(defun osm--purge-directory ()
-  "Clean tile directory."
-  (when (and (integerp osm-max-age)
-             (> (- (float-time) osm--purge-directory) (* 60 60 24)))
-    (setq osm--purge-directory (float-time))
-    (run-with-idle-timer
-     30 nil
-     (lambda ()
-       (dolist (dir (directory-files osm-tile-directory t "\\`[^.]+\\'" t))
-         (dolist (file (directory-files
-                        dir t "\\.\\(?:png\\|jpe?g\\)\\(?:\\.tmp\\)?\\'" t))
-           (when (> (float-time (time-since
-                                 (file-attribute-modification-time
-                                  (file-attributes file))))
-                    (* 60 60 24 osm-max-age))
-             (delete-file file)))
-         (when (directory-empty-p dir)
-           (ignore-errors (delete-directory dir))))))))
-
-(defun osm--check-libraries ()
-  "Check that Emacs is compiled with the necessary libraries."
-  (let (req)
-    (unless (display-graphic-p)
-      (push "graphical display" req))
-    (dolist (type '(svg jpeg png))
-      (unless (image-type-available-p type)
-        (push (format "%s support" type) req)))
-    (unless (libxml-available-p)
-      (push "libxml" req))
-    (unless (json-available-p)
-      (push "libjansson" req))
-    (when req
-      (error "Osm: Please compile Emacs with the required libraries, %s needed to proceed"
-             (string-join req ", ")))))
-
-(define-derived-mode osm-mode special-mode "Osm"
-  "OpenStreetMap viewer mode."
-  :interactive nil :abbrev-table nil :syntax-table nil
-  (osm--check-libraries)
-  (setq-local osm-server osm-server
-              line-spacing nil
-              cursor-type nil
-              cursor-in-non-selected-windows nil
-              left-fringe-width 1
-              right-fringe-width 1
-              left-margin-width 0
-              right-margin-width 0
-              truncate-lines t
-              show-trailing-whitespace nil
-              display-line-numbers nil
-              buffer-read-only t
-              fringe-indicator-alist '((truncation . nil))
-              revert-buffer-function #'osm--revert
-              mode-line-process '(:eval (osm--download-queue-info))
-              mode-line-position nil
-              mode-line-modified nil
-              mode-line-mule-info nil
-              mode-line-remote nil
-              default-directory (expand-file-name "~/")
-              eldoc-documentation-functions nil
-              mouse-wheel-progressive-speed nil
-              mwheel-scroll-up-function #'osm--zoom-out-wheel
-              mwheel-scroll-down-function #'osm--zoom-in-wheel
-              mwheel-scroll-left-function #'osm--zoom-out-wheel
-              mwheel-scroll-right-function #'osm--zoom-in-wheel
-              bookmark-make-record-function #'osm--bookmark-record-default)
-  (when (boundp 'mwheel-coalesce-scroll-events)
-    (setq-local mwheel-coalesce-scroll-events t))
-  (when (boundp 'pixel-scroll-precision-mode)
-    (setq-local pixel-scroll-precision-mode nil))
-  (add-hook 'change-major-mode-hook #'osm--barf-change-mode nil 'local)
-  (add-hook 'write-contents-functions #'osm--barf-write nil 'local)
-  (add-hook 'window-size-change-functions #'osm--resize nil 'local))
-
-(defun osm--barf-write ()
-  "Barf for write operation."
-  (set-buffer-modified-p nil)
-  (setq buffer-read-only t)
-  (set-visited-file-name nil)
-  (error "Writing the buffer to a file is not supported"))
-
-(defun osm--barf-change-mode ()
-  "Barf for change mode operation."
-  (error "Changing the major mode is not supported"))
-
-(defun osm--barf-unless-osm ()
-  "Barf if not an `osm-mode' buffer."
-  (unless (eq major-mode #'osm-mode)
-    (error "Not an `osm-mode' buffer")))
-
-(defun osm--each-pin (fun)
-  "Call FUN for each pin on the map."
-  (pcase osm-home
-    (`(,lat ,lon ,zoom)
-     (funcall fun 'osm-home lat lon zoom "Home")))
-  (bookmark-maybe-load-default-file)
-  (cl-loop for bm in bookmark-alist
-           if (eq (bookmark-prop-get bm 'handler) #'osm-bookmark-jump) do
-           (pcase-let ((`(,lat ,lon ,zoom) (bookmark-prop-get bm 'coordinates)))
-             (funcall fun 'osm-bookmark lat lon zoom (car bm))))
-  (dolist (file osm--gpx-files)
-    (cl-loop for (lat lon name) in (cddr file) do
-             (funcall fun 'osm-poi lat lon 15 name)))
-  (cl-loop for (lat lon name) in osm--track do
-           (funcall fun 'osm-track lat lon 15 name)))
-
-(defun osm--pin-inside-p (x y lat lon)
-  "Return non-nil if pin at LAT/LON is inside tile X/Y."
-  (let ((p (/ (osm--lon-to-x lon osm--zoom) 256.0))
-        (q (/ (osm--lat-to-y lat osm--zoom) 256.0)))
-    (and (>= p (- x 0.125)) (< p (+ x 1.125))
-         (>= q y) (< q (+ y 1.25)))))
-
-(defun osm--add-pin (pins id lat lon _zoom name)
-  "Add pin at LAT/LON with NAME and ID to the PINS hash table."
-  (let* ((x (osm--lon-to-x lon osm--zoom))
-         (y (osm--lat-to-y lat osm--zoom))
-         (x0 (/ x 256))
-         (y0 (/ y 256))
-         (pin (list x y lat lon id name)))
-    (push pin (gethash (cons x0 y0) pins))
-    (cl-loop
-     for i from -1 to 1 do
-     (cl-loop
-      for j from -1 to 0 do
-      (let ((x1 (/ (+ x (* 32 i)) 256))
-            (y1 (/ (+ y (* 64 j)) 256)))
-        (unless (and (= x0 x1) (= y0 y1))
-          (push pin (gethash (cons x1 y1) pins))))))))
-
-;; TODO: The Bresenham algorithm used here to add the line segments to the tiles
-;; has the issue that lines which go along a tile border may be drawn only
-;; partially. Use a more precise algorithm instead.
-(defun osm--add-track (tracks seg)
-  "Add track segment SEG to TRACKS hash table."
-  (when seg
-    (let ((p0 (cons (osm--lon-to-x (or (car-safe (cdar seg)) (cdar seg)) osm--zoom)
-                    (osm--lat-to-y (caar seg) osm--zoom))))
-      (dolist (pt (cdr seg))
-        (let* ((px1 (cdr pt))
-               (px1 (osm--lon-to-x (if (consp px1) (car px1) px1) osm--zoom))
-               (py1 (osm--lat-to-y (car pt) osm--zoom))
-               (pdx (- px1 (car p0)))
-               (pdy (- py1 (cdr p0))))
-          ;; Ignore point if too close to last point
-          (unless (< (+ (* pdx pdx) (* pdy pdy)) 50)
-            (let* ((p1 (cons px1 py1))
-                   (line (cons p0 p1))
-                   (x0 (/ (car p0) 256))
-                   (y0 (/ (cdr p0) 256))
-                   (x1 (/ px1 256))
-                   (y1 (/ py1 256))
-                   (sx (if (< x0 x1) 1 -1))
-                   (sy (if (< y0 y1) 1 -1))
-                   (dx (* sx (- x1 x0)))
-                   (dy (* sy (- y0 y1)))
-                   (err (+ dx dy)))
-              ;; Bresenham
-              (while
-                  (let ((ey (> (* err 2) dy))
-                        (ex (< (* err 2) dx)))
-                    (push line (gethash (cons x0 y0) tracks))
-                    (unless (and (= x0 x1) (= y0 y1))
-                      (when (and ey ex)
-                        (push line (gethash (cons x0 (+ y0 sy)) tracks))
-                        (push line (gethash (cons (+ x0 sx) y0) tracks)))
-                      (when ey
-                        (cl-incf err dy)
-                        (cl-incf x0 sx))
-                      (when ex
-                        (cl-incf err dx)
-                        (cl-incf y0 sy))
-                      t)))
-              (setq p0 p1))))))))
-
-(defun osm--get-overlays (x y)
-  "Compute overlays and return the overlays in tile X/Y."
-  (unless (eq (car osm--overlays) osm--zoom)
-    ;; TODO: Do not compute overlays for the entire map, only for a reasonable
-    ;; view port around the current center, depending on the size of the
-    ;; window. Otherwise the spatial hash map for the tracks gets very large if
-    ;; a line segment spans many tiles.
-    (let ((pins (make-hash-table :test #'equal))
-          (tracks (make-hash-table :test #'equal)))
-      (osm--each-pin (apply-partially #'osm--add-pin pins))
-      (dolist (file osm--gpx-files)
-        (dolist (seg (cadr file))
-          (osm--add-track tracks seg)))
-      (osm--add-track tracks osm--track)
-      (setq osm--overlays (list osm--zoom pins tracks))))
-  (let ((pins (gethash (cons x y) (cadr osm--overlays)))
-        (tracks (gethash (cons x y) (caddr osm--overlays))))
-    (and (or pins tracks) (cons pins tracks))))
-
-(autoload 'svg--image-data "svg")
-(defun osm--draw-tile (x y tpin)
-  "Make tile at X/Y from FILE.
-TPIN is an optional pin."
-  (let ((file (osm--tile-file x y osm--zoom))
-        overlays)
-    (when (file-exists-p file)
-      (if (or (setq overlays (osm--get-overlays x y)) (eq osm-tile-border t) tpin)
-          (let* ((areas nil)
-                 (x0 (* 256 x))
-                 (y0 (* 256 y))
-                 (svg-pin
-                  (lambda (pin)
-                    (pcase-let* ((`(,p ,q ,_lat ,_lon ,id ,name) pin)
-                                 (bg (cdr (assq id osm-pin-colors))))
-                      (setq p (- p x0) q (- q y0))
-                      (push `((poly . [,p ,q ,(- p 20) ,(- q 40) ,p ,(- q 50) ,(+ p 20) ,(- q 40) ])
-                              ,id (help-echo ,(truncate-string-to-width name 40 0 nil t)))
-                            areas)
-                      ;; https://commons.wikimedia.org/wiki/File:Simpleicons_Places_map-marker-1.svg
-                      (format "
-<g fill='%s' stroke='#000' stroke-width='9' transform='translate(%s %s) scale(0.09) translate(-256 -512)'>
-<path d='M256 0C167.641 0 96 71.625 96 160c0 24.75 5.625 48.219 15.672
-69.125C112.234 230.313 256 512 256 512l142.594-279.375
-C409.719 210.844 416 186.156 416 160C416 71.625 344.375
-0 256 0z M256 256c-53.016 0-96-43-96-96s42.984-96 96-96
-c53 0 96 43 96 96S309 256 256 256z'/>
-</g>" bg p q))))
-                 (svg-text
-                  (concat "<svg width='256' height='256' version='1.1'
-xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink'>
-<image xlink:href='"
-                          (file-name-nondirectory file)
-                          "' height='256' width='256'/>"
-                          (when-let (track (cdr overlays))
-                            (format
-                             "<path style='%s' d='%s'/>"
-                             osm-track-style
-                             (let (last)
-                               (mapconcat
-                                (pcase-lambda (`(,beg . ,end))
-                                  (prog1
-                                      (if (equal beg last)
-                                          (format "L%s %s" (- (car end) x0) (- (cdr end) y0))
-                                        (format "M%s %sL%s %s"
-                                                (- (car beg) x0) (- (cdr beg) y0)
-                                                (- (car end) x0) (- (cdr end) y0)))
-                                    (setq last end)))
-                                track ""))))
-                          (pcase-exhaustive osm-tile-border
-                            ('nil nil)
-                            ('debug "<path d='M 1 1 L 1 255 255 255 255 1 Z' stroke='#000' stroke-width='2' fill='none'/>")
-                            ('t "<path d='M 0 0 L 0 256 256 256' stroke='#000' fill='none'/>"))
-                          (mapconcat svg-pin (car overlays) "")
-                          (and tpin (funcall svg-pin tpin))
-                          "</svg>")))
-            (list 'image :width 256 :height 256 :type 'svg :base-uri file :data svg-text :map areas))
-        (list 'image :width 256 :height 256 :file file :type
-              (if (member (file-name-extension file) '("jpg" "jpeg"))
-                  'jpeg 'png))))))
-
-(defun osm--get-tile (x y)
-  "Get tile at X/Y."
-  (pcase osm--pin
-    ((and `(,lat ,lon ,_id ,name)
-          (guard (osm--pin-inside-p x y lat lon)))
-     (osm--draw-tile x y (list (osm--lon-to-x lon osm--zoom)
-                               (osm--lat-to-y lat osm--zoom)
-                               lat lon 'osm-selected name)))
-    (_
-     (let* ((key `(,osm-server ,osm--zoom ,x . ,y))
-            (tile (and osm--tile-cache (gethash key osm--tile-cache))))
-       (if tile
-           (progn (setcar tile osm--tile-age) (cdr tile))
-         (setq tile (osm--draw-tile x y nil))
-         (when tile
-           (when osm-max-tiles
-             (unless osm--tile-cache
-               (setq osm--tile-cache (make-hash-table :test #'equal :size osm-max-tiles)))
-             (puthash key (cons osm--tile-age tile) osm--tile-cache))
-           tile))))))
-
-(defun osm--display-tile (x y tile)
-  "Display TILE at X/Y."
-  (let ((i (- x (/ (osm--x0) 256)))
-        (j (- y (/ (osm--y0) 256))))
-    (when (and (>= i 0) (< i osm--nx) (>= j 0) (< j osm--ny))
-      (let* ((mx (if (= 0 i) (mod (osm--x0) 256) 0))
-             (my (if (= 0 j) (mod (osm--y0) 256) 0))
-             (pos (+ (point-min) (* j (1+ osm--nx)) i)))
-        (unless tile
-          (setq tile (cons 'image osm--placeholder)))
-        (with-silent-modifications
-          (put-text-property
-           pos (1+ pos) 'display
-           (if (or (/= 0 mx) (/= 0 my))
-               `((slice ,mx ,my ,(- 256 mx) ,(- 256 my)) ,tile)
-             tile)))))))
-
-;;;###autoload
-(defun osm-home ()
-  "Go to home coordinates."
-  (interactive)
-  (pcase osm-home
-    (`(,lat ,lon ,zoom)
-     (osm--goto lat lon zoom nil 'osm-home "Home"))))
-
-(defun osm--download-queue-info ()
-  "Return queue info string."
-  (when osm--download-processes
-    (format "[%s/%s/%s]"
-            (cl-loop for (_ . p) in osm--download-processes sum (length p))
-            (length osm--download-active)
-            (length osm--download-queue))))
-
-(defun osm--revert (&rest _)
-  "Revert osm buffers."
-  (clear-image-cache t) ;; Make absolutely sure that the tiles are redrawn.
-  (setq osm--tile-cache nil)
-  (osm--each
-    (setq osm--overlays nil)
-    (osm--update)))
-
-(defun osm--resize (&rest _)
-  "Resize buffer."
-  (when (eq major-mode #'osm-mode)
-    (osm--update)))
-
-(defun osm--header-button (text action)
-  "Format header line button with TEXT and ACTION."
-  (propertize text
-              'keymap (define-keymap "<header-line> <mouse-1>"
-                        (if (commandp action)
-                            (lambda ()
-                              (interactive "@")
-                              (call-interactively action))
-                          action))
-              'face '(:box (:line-width -2 :style released-button))
-              'mouse-face '(:box (:line-width -2 :style pressed-button))))
-
-(defun osm--update-header ()
-  "Update header line."
-  (let* ((meter-per-pixel (/ (* 156543.03 (cos (/ osm--lat (/ 180.0 float-pi)))) (expt 2 osm--zoom)))
-         (server (osm--server-property :name))
-         (meter 1) (idx 0)
-         (factor '(2 2.5 2))
-         (sep #(" " 0 1 (display (space :width (1))))))
-    (while (and (< idx 20) (< (/ (* meter (nth (mod idx 3) factor)) meter-per-pixel) 150))
-      (setq meter (round (* meter (nth (mod idx 3) factor))))
-      (cl-incf idx))
-    (setq-local
-     header-line-format
-     (list
-      (osm--header-button " ☰ " (osm--menu-item osm-mode-menu)) sep
-      (osm--header-button (format " %s " server)
-                          (osm--menu-item #'osm--server-menu)) sep
-      (osm--header-button " + " #'osm-zoom-in) sep
-      (osm--header-button " - " #'osm-zoom-out)
-      (format " Z%-2d " osm--zoom)
-      #(" " 0 1 (display (space :align-to (- center 15))))
-      (format #(" %7.2f° %7.2f°" 0 14 (face bold)) osm--lat osm--lon)
-      #(" " 0 1 (display (space :align-to (- right 20))))
-      (format "%3s " (if (>= meter 1000) (/ meter 1000) meter))
-      (if (>= meter 1000) "km " "m ")
-      #(" " 0 1 (face (:inverse-video t) display (space :width (3))))
-      (propertize " " 'face '(:strike-through t)
-                  'display `(space :width (,(floor (/ meter meter-per-pixel)))))
-      #(" " 0 1 (face (:inverse-video t) display (space :width (3))))))))
-
-(defun osm--update ()
-  "Update map display."
-  (osm--barf-unless-osm)
-  (osm--purge-tile-cache)
-  (osm--purge-directory)
-  (osm--rename-buffer)
-  (osm--update-sizes)
-  (osm--update-header)
-  (osm--update-buffer)
-  (osm--update-copyright)
-  (osm--process-download-queue))
-
-(defun osm--update-sizes ()
-  "Update window sizes."
-  (let* ((windows (or (get-buffer-window-list) (list (frame-root-window))))
-         (win-width (cl-loop for w in windows maximize (window-pixel-width w)))
-         (win-height (cl-loop for w in windows maximize (window-pixel-height w))))
-    (setq osm--wx (/ win-width 2)
-          osm--wy (/ win-height 2)
-          osm--nx (1+ (ceiling win-width 256))
-          osm--ny (1+ (ceiling win-height 256)))))
-
-(defun osm--copyright-link (text url)
-  "Format link with TEXT to URL."
-  (propertize text
-              'face 'button
-              'mouse-face 'highlight
-              'help-echo
-              (format "Go to %s" url)
-              'keymap
-              (define-keymap "<tab-line> <mouse-1>"
-                (lambda ()
-                  (interactive)
-                  (browse-url url)))))
-
-(defun osm--update-copyright ()
-  "Update copyright info."
-  (let ((copyright (and osm-copyright (osm--server-property :copyright))))
-    (if (not copyright)
-        (when (eq 'osm-copyright (car-safe tab-line-format))
-          (kill-local-variable 'tab-line-format))
-      (setq copyright (replace-regexp-in-string
-                       "{\\(.*?\\)|\\(.*?\\)}"
-                       (lambda (str)
-                         (osm--copyright-link
-                          (match-string 1 str)
-                          (match-string 2 str)))
-                       (concat
-                        " "
-                        (string-join (ensure-list copyright) " | ")
-                        #(" " 0 1 (display (space :align-to (+ 42 right)))))))
-      (add-face-text-property
-       0 (length copyright)
-       '(:inherit (header-line variable-pitch) :height 0.65)
-       t copyright)
-      (setq-local tab-line-format (list 'osm-copyright copyright)))))
-
-(defun osm--update-buffer ()
-  "Update buffer display."
-  (with-silent-modifications
-    (erase-buffer)
-    (dotimes (_j osm--ny)
-      (insert (make-string osm--nx ?\s) "\n"))
-    (put-text-property (point-min) (point-max) 'pointer 'arrow)
-    (goto-char (point-min))
-    (let ((tx (/ (osm--x0) 256))
-          (ty (/ (osm--y0) 256)))
-      (dotimes (j osm--ny)
-        (dotimes (i osm--nx)
-          (let* ((x (+ i tx))
-                 (y (+ j ty))
-                 (tile (osm--get-tile x y)))
-            (osm--display-tile x y tile)
-            (unless tile (osm--enqueue-download x y))))))))
-
-(defun osm--process-download-queue ()
-  "Process the download queue."
-  (setq osm--download-queue
-        (sort
-         (cl-loop with tx = (/ (osm--x0) 256)
-                  with ty = (/ (osm--y0) 256)
-                  for job in osm--download-queue
-                  for (_server zoom x y) = job
-                  if (and (= zoom osm--zoom)
-                          (>= x tx) (< x (+ tx osm--nx))
-                          (>= y ty) (< y (+ ty osm--ny)))
-                  collect job)
-         (let ((tx (/ (osm--x) 256))
-               (ty (/ (osm--y) 256)))
-           (pcase-lambda (`(,_s1 ,_z1 ,x1 ,y1) `(,_s2 ,_z2 ,x2 ,y2))
-             (setq x1 (- x1 tx) y1 (- y1 ty) x2 (- x2 tx) y2 (- y2 ty))
-             (< (+ (* x1 x1) (* y1 y1)) (+ (* x2 x2) (* y2 y2)))))))
-  (osm--download))
-
-(defun osm--purge-tile-cache ()
-  "Purge old tiles from the tile cache."
-  (cl-incf osm--tile-age)
-  (when (and osm--tile-cache (> (hash-table-count osm--tile-cache) osm-max-tiles))
-    (let (items)
-      (maphash (lambda (k v) (push (list (car v) (cdr v) k) items)) osm--tile-cache)
-      (setq items (sort items #'car-less-than-car))
-      (cl-loop repeat (- (hash-table-count osm--tile-cache) osm-max-tiles)
-               for (_age tile key) in items do
-               (image-flush tile t)
-               (remhash key osm--tile-cache)))))
-
-(defun osm--bookmark-record-default ()
-  "Make osm bookmark record."
-  (osm--bookmark-record (osm--bookmark-name osm--lat osm--lon nil)
-                        osm--lat osm--lon nil))
-
-(defun osm--bookmark-record (name lat lon loc)
-  "Make osm bookmark record with NAME and LOC description at LAT/LON."
-  (setq bookmark-current-bookmark nil) ;; Reset bookmark to use new name
-  `(,name
-    (location . ,(osm--location-name lat lon loc 6))
-    (coordinates ,lat ,lon ,osm--zoom)
-    (server . ,osm-server)
-    (handler . ,#'osm-bookmark-jump)))
-
-(defun osm--org-link-props ()
-  "Return Org link properties."
-  (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Org Link"))
-               (name (osm--location-name lat lon loc 2)))
-    (list :type "geo"
-          :description
-          (if (eq osm-server (default-value 'osm-server))
-              (string-remove-suffix (concat " " (osm--server-property :name))
-                                    name)
-            name)
-          :link
-          (format "geo:%.6f,%.6f;z=%s%s"
-                  lat lon osm--zoom
-                  (if (eq osm-server (default-value 'osm-server)) ""
-                    (format ";s=%s" osm-server))))))
-
-(defun osm--rename-buffer ()
-  "Rename current buffer."
-  (setq list-buffers-directory (osm--location-name osm--lat osm--lon nil 6))
-  (rename-buffer
-   (format "*osm: %s*" (osm--location-name osm--lat osm--lon nil 2))
-   'unique))
-
-(defun osm--location-name (lat lon loc prec)
-  "Format location string LAT/LON with optional LOC description.
-The coordinates are formatted with precision PREC."
-  (format (format "%%s%%.%df° %%.%df° Z%%s %%s" prec prec)
-          (if loc (concat loc ", ") "")
-          lat lon osm--zoom (osm--server-property :name)))
-
-(defun osm--bookmark-name (lat lon loc)
-  "Return bookmark name for LAT/LON/LOC."
-  (concat "osm: " (osm--location-name lat lon loc 2)))
-
-(defun osm--goto (lat lon zoom server id name)
-  "Go to LAT/LON/ZOOM, change SERVER.
-Optionally place pin with ID and NAME."
-  ;; Server not found
-  (when (and server (not (assq server osm-server-list))) (setq server nil))
-  (with-current-buffer
-      (or
-       (and (eq major-mode #'osm-mode) (current-buffer))
-       (let ((def-server (or server osm-server))
-             (def-lat (or lat (nth 0 osm-home)))
-             (def-lon (or lon (nth 1 osm-home)))
-             (def-zoom (or zoom (nth 2 osm-home))))
-         ;; Search for existing buffer
-         (cl-loop
-          for buf in (buffer-list) thereis
-          (and (equal (buffer-local-value 'major-mode buf) #'osm-mode)
-               (equal (buffer-local-value 'osm-server buf) def-server)
-               (equal (buffer-local-value 'osm--zoom buf) def-zoom)
-               (equal (buffer-local-value 'osm--lat buf) def-lat)
-               (equal (buffer-local-value 'osm--lon buf) def-lon)
-               buf)))
-       (generate-new-buffer "*osm*"))
-    (unless (eq major-mode #'osm-mode)
-      (osm-mode))
-    (when (and server (not (eq osm-server server)))
-      (setq-local osm-server server
-                  osm--download-queue nil))
-    (when (or (not (and osm--lon osm--lat)) lat)
-      (setq osm--lat (or lat (nth 0 osm-home))
-            osm--lon (or lon (nth 1 osm-home))
-            osm--zoom (or zoom (nth 2 osm-home)))
-      (when id
-        (osm--set-pin id osm--lat osm--lon name)))
-    (prog1 (pop-to-buffer (current-buffer))
-      (osm--update))))
-
-(defun osm--set-pin (id lat lon name &optional quiet)
-  "Set pin at LAT/LON with ID and NAME.
-Print NAME if not QUIET."
-  (setq name (or name (format "Location %.6f° %.6f°" lat lon)))
-  (setq osm--pin (list lat lon (or id 'osm-selected) name))
-  (unless quiet (message "%s" name)))
-
-(defun osm--set-pin-event (event &optional id name quiet)
-  "Set selection pin with ID and NAME at location of EVENT.
-Print NAME if not QUIET."
-  (pcase-let ((`(,x . ,y) (posn-x-y (event-start event))))
-    (osm--set-pin id
-                  (osm--y-to-lat (+ (osm--y0) y) osm--zoom)
-                  (osm--x-to-lon (+ (osm--x0) x) osm--zoom)
-                  name quiet)))
-
-;;;###autoload
-(defun osm-goto (lat lon zoom)
-  "Go to LAT/LON/ZOOM."
-  (interactive
-   (pcase-let ((`(,lat ,lon ,zoom)
-                (mapcar #'string-to-number
-                        (split-string (read-string "Lat Lon (Zoom): ") nil t))))
-     (setq zoom (or zoom osm--zoom 11))
-     (unless (and (numberp lat) (numberp lon) (numberp zoom))
-       (error "Invalid coordinate"))
-     (list lat lon zoom)))
-  (osm--goto lat lon zoom nil 'osm-selected nil)
-  nil)
-
-;;;###autoload
-(defun osm (&rest link)
-  "Go to LINK.
-When called interactively, call the function `osm-home'."
-  (interactive (list 'home))
-  (pcase link
-    ('(home)
-     (osm-home))
-    (`(,lat ,lon ,zoom . ,server)
-     (setq server (car server))
-     (unless (and server (symbolp server)) (setq server nil)) ;; Ignore comment
-     (osm--goto lat lon zoom server 'osm-selected "Elisp Link"))
-    ((and `(,url . ,_) (guard (stringp url)))
-     (if (string-match
-          "\\`geo:\\([0-9.-]+\\),\\([0-9.-]+\\)\\(?:,[0-9.-]+\\)?\\(;.+\\'\\|\\'\\)" url)
-         (let* ((lat (string-to-number (match-string 1 url)))
-                (lon (string-to-number (match-string 2 url)))
-                (args (url-parse-args (match-string 3 url) ""))
-                (zoom (cdr (assoc "z" args)))
-                (server (cdr (assoc "s" args))))
-           (osm--goto lat lon
-                      (and zoom (string-to-number zoom))
-                      (and server (intern-soft server))
-                      'osm-selected "Geo Link"))
-       (osm-search (string-remove-prefix "geo:" url))))
-    (_ (error "Invalid osm link"))))
-
-;;;###autoload
-(defun osm-bookmark-jump (bm)
-  "Jump to osm bookmark BM."
-  (interactive (list (osm--bookmark-read)))
-  (pcase-let ((`(,lat ,lon ,zoom) (bookmark-prop-get bm 'coordinates)))
-    (set-buffer (osm--goto lat lon zoom
-                           (bookmark-prop-get bm 'server)
-                           'osm-bookmark (car bm)))))
-(put 'osm-bookmark-jump 'bookmark-handler-type "Osm")
-
-;;;###autoload
-(defun osm-bookmark-delete (bm)
-  "Delete osm bookmark BM."
-  (interactive (list (osm--bookmark-read)))
-  (when (y-or-n-p (format "Delete bookmark `%s'? " bm))
-    (bookmark-delete bm)
-    (setq osm--pin nil)
-    (osm--revert)))
-
-;;;###autoload
-(defun osm-bookmark-rename (old-name)
-  "Rename osm bookmark OLD-NAME."
-  (interactive (list (car (osm--bookmark-read))))
-  (let ((new-name (read-from-minibuffer "New name: " old-name nil nil
-                                        'bookmark-history old-name)))
-    (when osm--pin (setf (cadddr osm--pin) new-name))
-    (bookmark-rename old-name new-name)
-    (osm--revert)))
-
-(defun osm--bookmark-read ()
-  "Read bookmark name."
-  (bookmark-maybe-load-default-file)
-  (or (assoc
-       (pcase osm--pin
-         (`(,_lat ,_lon osm-bookmark ,name) name)
-         (_ (completing-read
-             "Bookmark: "
-             (or (cl-loop for bm in bookmark-alist
-                          if (eq (bookmark-prop-get bm 'handler) #'osm-bookmark-jump)
-                          collect (car bm))
-                 (error "No bookmarks found"))
-             nil t nil 'bookmark-history)))
-       bookmark-alist)
-      (error "No bookmark selected")))
-
-(defun osm-bookmark-set ()
-  "Create osm bookmark."
-  (interactive nil osm-mode)
-  (osm--barf-unless-osm)
-  (unwind-protect
-      (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Bookmark"))
-                   (def (osm--bookmark-name lat lon loc))
-                   (name (read-from-minibuffer "Bookmark name: " def nil nil 'bookmark-history def))
-                   (bookmark-make-record-function
-                    (lambda () (osm--bookmark-record name lat lon loc))))
-        (bookmark-set name)
-        (message "Stored bookmark: %s" name)
-        (setf (caddr osm--pin) 'osm-bookmark))
-    (osm--revert)))
-
-(defun osm--fetch-location-data (name)
-  "Fetch location info for NAME."
-  (when (mouse-event-p last-input-event)
-    (osm--set-pin-event last-input-event 'osm-selected name))
-  (let ((lat (or (car osm--pin) osm--lat))
-        (lon (or (cadr osm--pin) osm--lon)))
-    (osm--set-pin 'osm-selected lat lon name 'quiet)
-    (message "%s: Fetching name of %.2f° %.2f° from %s..." name lat lon osm-search-server)
-    ;; Redisplay before slow fetching
-    (osm--update)
-    (redisplay)
-    (list lat lon
-          (ignore-errors
-            (alist-get
-             'display_name
-             (osm--fetch-json
-              (format "%s/reverse?format=json&accept-language=%s&zoom=%s&lat=%s&lon=%s"
-                      osm-search-server osm-search-language
-                      (min 18 (max 3 osm--zoom)) lat lon)))))))
-
-(defun osm--track-index ()
-  "Return index of selected track way point."
-  (cl-loop for idx from 0 for (lat lon _) in osm--track
-           if (and (equal lat (car osm--pin)) (equal lon (cadr osm--pin)))
-           return idx))
-
-(defun osm--track-delete ()
-  "Delete track way point."
-  (when-let ((idx (osm--track-index)))
-    ;; Delete pin
-    (cl-callf2 delq (nth idx osm--track) osm--track)
-    (setq osm--pin nil
-          idx (min idx (1- (length osm--track))))
-    ;; Select next pin
-    (pcase (nth idx osm--track)
-      (`(,lat ,lon ,name)
-       (osm--set-pin 'osm-track lat lon name 'quiet)))
-    ;; Rename pins after deletion
-    (cl-loop for idx from (length osm--track) downto 1
-             for pt in osm--track
-             if (string-match-p "\\`WP[0-9]+\\'" (caddr pt)) do
-             (setf (caddr pt) (format "WP%s" idx)))
-    (osm--track-length)
-    (osm--revert)))
-
-(defun osm--track-rename ()
-  "Rename track way point."
-  (when-let ((pt (nth (osm--track-index) osm--track))
-             (old-name (caddr pt))
-             (new-name (read-from-minibuffer "New name: " old-name nil nil nil old-name)))
-    (setf (caddr pt) new-name
-          (cadddr osm--pin) new-name)
-    (osm--revert)))
-
-(defun osm-delete ()
-  "Delete selected pin (bookmark or way point)."
-  (interactive nil osm-mode)
-  (osm--barf-unless-osm)
-  (pcase (caddr osm--pin)
-    ('nil nil)
-    ('osm-bookmark (osm-bookmark-delete (cadddr osm--pin)))
-    ('osm-track (osm--track-delete))
-    (_ (setq osm--pin nil) (osm--update))))
-
-(defun osm-rename ()
-  "Rename selected pin (bookmark or way point)."
-  (interactive nil osm-mode)
-  (osm--barf-unless-osm)
-  (pcase (caddr osm--pin)
-    ('osm-bookmark (osm-bookmark-rename (cadddr osm--pin)))
-    ('osm-track (osm--track-rename))))
-
-;;;###autoload
-(defun osm-jump ()
-  "Jump to named pin."
-  (interactive)
-  (let (pins)
-    (osm--each-pin (lambda (id lat lon zoom name)
-                     (push (list name (capitalize (substring (symbol-name id) 4))
-                                 id lat lon zoom)
-                           pins)))
-    (pcase (assoc (completing-read
-                   "Jump: "
-                     (lambda (str pred action)
-                       (if (eq action 'metadata)
-                           `(metadata
-                             (group-function
-                              . ,(lambda (pin transform)
-                                   (if transform pin
-                                     (cadr (assoc pin pins))))))
-                         (complete-with-action action pins str pred)))
-                     nil t nil 'osm--jump-history)
-                  pins)
-      (`(,name ,_group ,id ,lat ,lon ,zoom) (osm--goto lat lon zoom nil id name))
-      (_ (user-error "No pin selected")))))
-
-(defun osm--fetch-json (url)
-  "Get json from URL."
-  (osm--check-libraries)
-  (with-temp-buffer
-    (let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
-           (status (apply #'call-process "curl" nil (current-buffer) nil
-                          `(,@(split-string-and-unquote osm-curl-options) ,url))))
-      (unless (eq status 0)
-        (error "Fetching %s exited with status %s" url status)))
-    (goto-char (point-min))
-    (json-parse-buffer :array-type 'list :object-type 'alist)))
-
-(defun osm--search (needle)
-  "Globally search for NEEDLE and return the list of results."
-  (message "Contacting %s" osm-search-server)
-  (mapcar
-   (lambda (x)
-     (let ((lat (string-to-number (alist-get 'lat x)))
-           (lon (string-to-number (alist-get 'lon x))))
-       `(,(format "%s (%.6f° %.6f°)"
-                  (alist-get 'display_name x)
-                  lat lon)
-         ,lat ,lon
-         ,@(mapcar #'string-to-number (alist-get 'boundingbox x)))))
-   (osm--fetch-json
-    (format "%s/search?format=json&accept-language=%s&q=%s"
-            osm-search-server osm-search-language
-            (url-encode-url needle)))))
-
-;;;###autoload
-(defun osm-search (needle &optional lucky)
-  "Globally search for NEEDLE on `osm-search-server' and display the map.
-If the prefix argument LUCKY is non-nil take the first result and jump there.
-See `osm-search-server' and `osm-search-language' for customization."
-  (interactive
-   (list
-    (minibuffer-with-setup-hook
-        (lambda ()
-          (when (and (eq completing-read-function #'completing-read-default)
-                     (not (bound-and-true-p vertico-mode)))
-            ;; Override dreaded `minibuffer-complete-word' for default
-            ;; completion.  When will this keybinding finally get removed from
-            ;; default completion?
-            (use-local-map (make-composed-keymap
-                            (define-keymap "SPC" nil)
-                            (current-local-map)))))
-      (completing-read "Location: "
-                       (osm--sorted-table osm--search-history)
-                       nil nil nil 'osm--search-history))
-    current-prefix-arg))
-  ;; TODO: Add search bounded to current viewbox, bounded=1, viewbox=x1,y1,x2,y2
-  (let* ((results (or (osm--search needle) (error "No results for `%s'" needle)))
-         (selected
-          (or
-           (and (or lucky (not (cdr results))) (car results))
-           (assoc
-            (minibuffer-with-setup-hook
-                (lambda ()
-                  (when (and (eq completing-read-function #'completing-read-default)
-                             (not (bound-and-true-p vertico-mode))
-                             (not (bound-and-true-p icomplete-mode)))
-                    (let ((message-log-max nil)
-                          (inhibit-message t))
-                      ;; Show matches immediately for default completion.
-                      (minibuffer-completion-help))))
-              (completing-read
-               (format "Matches for '%s': " needle)
-               (osm--sorted-table results)
-               nil t nil t))
-            results)
-           (error "No selection"))))
-    (osm--goto (cadr selected) (caddr selected)
-               (apply #'osm--boundingbox-to-zoom (cdddr selected))
-               nil 'osm-selected (car selected))))
-
-(defun osm--sorted-table (coll)
-  "Sorted completion table from COLL."
-  (lambda (str pred action)
-    (if (eq action 'metadata)
-        '(metadata (display-sort-function . identity)
-                   (cycle-sort-function . identity))
-      (complete-with-action action coll str pred))))
-
-;;;###autoload
-(defun osm-gpx-show (file)
-  "Show the tracks of gpx FILE in an `osm-mode' buffer."
-  (interactive "fGPX file: ")
-  (osm--check-libraries)
-  (let ((dom (with-temp-buffer
-               (insert-file-contents file)
-               (libxml-parse-xml-region (point-min) (point-max))))
-        (min-lat 90) (max-lat -90) (min-lon 180) (max-lon -180))
-    (unless (eq 'gpx (dom-tag dom))
-      (setq dom (dom-child-by-tag dom 'gpx)))
-    (unless (and dom (eq 'gpx (dom-tag dom)))
-      (error "Not a GPX file"))
-    (setf (alist-get (abbreviate-file-name file) osm--gpx-files nil nil #'equal)
-          (cons
-           (cl-loop
-            for trk in (dom-children dom)
-            if (eq (dom-tag trk) 'trk) nconc
-            (cl-loop
-             for seg in (dom-children trk)
-             if (eq (dom-tag seg) 'trkseg) collect
-             (cl-loop
-              for pt in (dom-children seg)
-              if (eq (dom-tag pt) 'trkpt) collect
-              (let ((lat (string-to-number (dom-attr pt 'lat)))
-                    (lon (string-to-number (dom-attr pt 'lon))))
-                (setq min-lat (min lat min-lat)
-                      max-lat (max lat max-lat)
-                      min-lon (min lon min-lon)
-                      max-lon (max lon max-lon))
-                (cons lat lon)))))
-           (cl-loop
-            for pt in (dom-children dom)
-            if (eq (dom-tag pt) 'wpt) collect
-            (let ((lat (string-to-number (dom-attr pt 'lat)))
-                  (lon (string-to-number (dom-attr pt 'lon))))
-              (setq min-lat (min lat min-lat)
-                    max-lat (max lat max-lat)
-                    min-lon (min lon min-lon)
-                    max-lon (max lon max-lon))
-              (list lat lon (dom-text (dom-child-by-tag pt 'name)))))))
-    (osm--revert)
-    (osm--goto (/ (+ min-lat max-lat) 2) (/ (+ min-lon max-lon) 2)
-               (osm--boundingbox-to-zoom min-lat max-lat min-lon max-lon)
-               nil nil nil)))
-
-(defun osm-gpx-hide (file)
-  "Show the tracks of gpx FILE in an `osm-mode' buffer."
-  (interactive (list (completing-read "GPX file: "
-                                      (or osm--gpx-files
-                                          (error "No GPX files shown"))
-                                      nil t nil 'file-name-history)))
-  (cl-callf2 assoc-delete-all file osm--gpx-files)
-  (osm--revert))
-
-(defun osm--server-annotation (cand)
-  "Annotation for server CAND."
-  (when-let ((copyright (osm--server-property :copyright (get-text-property 0 'osm--server cand)))
-             (str
-              (replace-regexp-in-string
-               "{\\(.*?\\)|.*?}"
-               (lambda (str) (match-string 1 str))
-               (string-join (ensure-list copyright) " | ") copyright)))
-    (concat (propertize " " 'display `(space :align-to (- right ,(length str) 2)))
-            " "
-            str)))
-
-(defun osm--server-group (cand transform)
-  "Group function for server CAND with candidate TRANSFORM."
-  (if transform
-      cand
-    (osm--server-property :group (get-text-property 0 'osm--server cand))))
-
-;;;###autoload
-(defun osm-server (server)
-  "Select tile SERVER."
-  (interactive
-   (let* ((max-name (cl-loop for (_ . x) in osm-server-list
-                             maximize (length (plist-get x :name))))
-          (fmt (concat
-                (propertize (format "%%-%ds " max-name)
-                            'face 'font-lock-comment-face)
-                " %s"))
-          (servers
-           (mapcar
-            (lambda (x)
-              (propertize
-               (format fmt
-                       (plist-get (cdr x) :name)
-                       (or (plist-get (cdr x) :description) ""))
-               'osm--server (car x)))
-            osm-server-list))
-          (selected (completing-read
-                     "Server: "
-                     (lambda (str pred action)
-                       (if (eq action 'metadata)
-                           `(metadata
-                             (annotation-function
-                              . ,(and osm-copyright #'osm--server-annotation))
-                             (group-function . ,#'osm--server-group))
-                         (complete-with-action action servers str pred)))
-                     nil t nil 'osm--server-history
-                     (format fmt
-                             (osm--server-property :name)
-                             (or (osm--server-property :description) "")))))
-     (list
-      (get-text-property 0 'osm--server
-                         (or (car (member selected servers))
-                             (error "No server selected"))))))
-  (osm--goto nil nil nil server nil nil))
-
-(defun osm-save-url (&optional arg)
-  "Save coordinates as url in the kill ring.
-If prefix ARG is given, store url as Elisp expression."
-  (interactive "P" osm-mode)
-  (osm--barf-unless-osm)
-  (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Link"))
-               (server (and (not (eq osm-server (default-value 'osm-server))) osm-server))
-               (url (if arg
-                        (format "(osm %.6f %.6f %s%s%s)"
-                                lat lon osm--zoom
-                                (if server (format " '%s" osm-server) "")
-                                (if loc (format " %S" loc) ""))
-                      (format "geo:%.6f,%.6f;z=%s%s%s"
-                              lat lon osm--zoom
-                              (if server (format ";s=%s" osm-server) "")
-                              (if loc (format " (%s)" loc) "")))))
-    (kill-new url)
-    (message "Saved in the kill ring: %s" url)))
-
-(cl-defun osm-add-server (server
-                          &rest properties
-                          &key name description group url ext max-connections
-                          max-zoom min-zoom download-batch subdomains copyright)
-  "Add SERVER with PROPERTIES to `osm-server-list'.
-The properties are checked as keyword arguments.  See
-`osm-server-list' for documentation of the keywords."
-  (declare (indent 1))
-  (ignore name description group url max-connections max-zoom
-          min-zoom download-batch subdomains copyright)
-  (dolist (sym '(:name :description :group :url))
-    (unless (stringp (plist-get properties sym))
-      (error "Server property %s is required" sym)))
-  (unless (and server (symbolp server))
-    (error "Server id must be a symbol"))
-  (setf (alist-get server osm-server-list) properties)
-  nil)
-
-;;;###autoload
-(add-to-list 'browse-url-default-handlers '("\\`geo:" . osm))
-
-;;;###autoload
-(eval-after-load 'ol
-  (lambda ()
-    (declare-function org-link-set-parameters "ol")
-    (declare-function osm--org-link-props "ext:osm")
-    (org-link-set-parameters
-     "geo"
-     :follow (lambda (link _) (osm (concat "geo:" link)))
-     :store (lambda ()
-              (when (eq major-mode 'osm-mode)
-                (apply 'org-link-store-props (osm--org-link-props)))))))
-
-(provide 'osm)
-;;; osm.el ends here
diff --git a/emacs/elpa/osm-20241119.2137/osm.elc b/emacs/elpa/osm-20241119.2137/osm.elc
Binary files differ.
diff --git a/emacs/elpa/osm-20241119.2137/osm-autoloads.el b/emacs/elpa/osm-20241122.130/osm-autoloads.el
diff --git a/emacs/elpa/osm-20241122.130/osm-pkg.el b/emacs/elpa/osm-20241122.130/osm-pkg.el
@@ -0,0 +1,11 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "osm" "20241122.130"
+  "OpenStreetMap viewer."
+  '((emacs  "28.1")
+    (compat "30"))
+  :url "https://github.com/minad/osm"
+  :commit "6a2416dc4c3be22573cd9f5fb285df3f4bd6b6ea"
+  :revdesc "6a2416dc4c3b"
+  :keywords '("network" "multimedia" "hypermedia" "mouse")
+  :authors '(("Daniel Mendler" . "mail@daniel-mendler.de"))
+  :maintainers '(("Daniel Mendler" . "mail@daniel-mendler.de")))
diff --git a/emacs/elpa/osm-20241122.130/osm.el b/emacs/elpa/osm-20241122.130/osm.el
@@ -0,0 +1,1839 @@
+;;; osm.el --- OpenStreetMap viewer -*- lexical-binding: t -*-
+
+;; Copyright (C) 2022-2024 Free Software Foundation, Inc.
+
+;; Author: Daniel Mendler <mail@daniel-mendler.de>
+;; Maintainer: Daniel Mendler <mail@daniel-mendler.de>
+;; Created: 2022
+;; Package-Version: 20241122.130
+;; Package-Revision: 6a2416dc4c3b
+;; Package-Requires: ((emacs "28.1") (compat "30"))
+;; URL: https://github.com/minad/osm
+;; Keywords: network, multimedia, hypermedia, mouse
+
+;; This file is part of GNU Emacs.
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Osm.el is a tile-based map viewer, with a responsive movable and
+;; zoomable display.  The map can be controlled with the keyboard or with
+;; the mouse.  The viewer fetches the map tiles in parallel from tile
+;; servers via the `curl' program.  The package comes with a list of
+;; multiple preconfigured tile servers.  You can bookmark your favorite
+;; locations using regular Emacs bookmarks or create links from Org files
+;; to locations.  Furthermore the package provides commands to measure
+;; distances, search for locations by name and to open and display GPX
+;; tracks.
+
+;; osm.el requires Emacs 28 and depends on the external `curl' program.
+;; Emacs must be built with libxml, libjansson, librsvg, libjpeg and
+;; libpng support.
+
+;;; Code:
+
+(require 'compat)
+(require 'bookmark)
+(require 'dom)
+(eval-when-compile
+  (require 'cl-lib)
+  (require 'subr-x))
+
+(defgroup osm nil
+  "OpenStreetMap viewer."
+  :link '(info-link :tag "Info Manual" "(osm)")
+  :link '(url-link :tag "Website" "https://github.com/minad/osm")
+  :link '(url-link :tag "Wiki" "https://github.com/minad/osm/wiki")
+  :link '(emacs-library-link :tag "Library Source" "osm.el")
+  :group 'web
+  :prefix "osm-")
+
+(defcustom osm-curl-options
+  "--disable --fail --location --silent --max-time 30"
+  "Curl command line options."
+  :type 'string)
+
+(defcustom osm-search-language "en"
+  "Language used for search results.
+Use RFC 1766 abbreviations, e.g.: `en' for English, `de' for German.
+A comma-separated specifies descending order of preference.  See also
+`url-mime-language-string'."
+  :type 'string)
+
+(defcustom osm-search-server
+  "https://nominatim.openstreetmap.org"
+  "Server used to search for location names.
+The server must offer the nominatim.org API."
+  :type 'string)
+
+(defcustom osm-server-defaults
+  '(:min-zoom 2
+    :max-zoom 19
+    :download-batch 4
+    :max-connections 2
+    :subdomains ("a" "b" "c"))
+  "Default server properties.
+See also `osm-server-list'."
+  :type 'plist)
+
+(defcustom osm-server-list
+  '((default
+     :name "Carto"
+     :description "Standard Carto map provided by OpenStreetMap"
+     :url "https://%s.tile.openstreetmap.org/%z/%x/%y.png"
+     :group "Standard"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {OpenStreetMap Standard|https://www.openstreetmap.org/copyright}"))
+    (de
+     :name "Carto(de)"
+     :description "Localized Carto map provided by OpenStreetMap Germany"
+     :url "https://%s.tile.openstreetmap.de/%z/%x/%y.png"
+     :group "Standard"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {OpenStreetMap Deutschland|https://www.openstreetmap.de/germanstyle.html}"))
+    (fr
+     :name "Carto(fr)"
+     :description "Localized Carto map by OpenStreetMap France"
+     :url "https://%s.tile.openstreetmap.fr/osmfr/%z/%x/%y.png"
+     :group "Standard"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {OpenStreetMap France|https://www.openstreetmap.fr/mentions-legales/}"))
+    (humanitarian
+     :name "Humanitarian"
+     :description "Humanitarian map provided by OpenStreetMap France"
+     :url "https://%s.tile.openstreetmap.fr/hot/%z/%x/%y.png"
+     :group "Special Purpose"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {Humanitarian OpenStreetMap Team|https://www.hotosm.org/updates/2013-09-29_a_new_window_on_openstreetmap_data}"))
+    (cyclosm
+     :name "CyclOSM"
+     :description "Bicycle-oriented map provided by OpenStreetMap France"
+     :url "https://%s.tile-cyclosm.openstreetmap.fr/cyclosm/%z/%x/%y.png"
+     :group "Transportation"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {CyclOSM|https://www.cyclosm.org/} contributors"))
+    (openriverboatmap
+     :name "OpenRiverBoatMap"
+     :description "Waterways map provided by OpenStreetMap France"
+     :url "https://%s.tile.openstreetmap.fr/openriverboatmap/%z/%x/%y.png"
+     :group "Transportation"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {OpenRiverBoatMap|https://github.com/tilery/OpenRiverboatMap}"))
+    (opentopomap
+     :name "OpenTopoMap"
+     :description "Topographical map provided by OpenTopoMap"
+     :url "https://%s.tile.opentopomap.org/%z/%x/%y.png"
+     :group "Topographical"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {OpenTopoMap|https://www.opentopomap.org} ({CC-BY-SA|https://creativecommons.org/licenses/by-sa/3.0/})"
+                 "Elevation data: {SRTM|https://www2.jpl.nasa.gov/srtm/}"))
+    (opvn
+     :name "ÖPNV" :max-zoom 18
+     :description "Base layer with public transport information"
+     :url "http://%s.tile.memomaps.de/tilegen/%z/%x/%y.png"
+     :group "Transportation"
+     :copyright ("Map data © {OpenStreetMap|https://www.openstreetmap.org/copyright} contributors"
+                 "Map style © {ÖPNVKarte|https://www.öpnvkarte.de}")))
+  "List of tile servers.
+
+Allowed keys:
+  :name            Server name
+  :description     Server description
+  :copyright       Copyright information
+  :group           Name of server groups for related servers
+  :url             Url with placeholders
+  :ext             File name extension
+  :min-zoom        Minimum zoom level
+  :max-zoom        Maximum zoom level
+  :download-batch  Number of tiles downloaded via a single connection
+  :max-connections Maximum number of parallel connections
+  :subdomains      Subdomains used for the %s placeholder
+
+See also `osm-server-defaults' for default values used for a
+server if the property is missing.
+
+The :url of each server should specify %x, %y, %z and %s placeholders
+for the map coordinates.  It can optionally use an %s placeholder
+for the subdomain and a %k placeholder for an apikey.  The apikey
+will be retrieved via `auth-source-search' with the :host set to
+the domain name and the :user to the string \"apikey\"."
+  :type '(alist :key-type symbol :value-type plist))
+
+(defcustom osm-copyright t
+  "Display the copyright information above the map."
+  :type 'boolean)
+
+(defcustom osm-pin-colors
+  '((osm-selected . "#e20")
+    (osm-bookmark . "#f80")
+    (osm-poi . "#88f")
+    (osm-home . "#80f")
+    (osm-track . "#00a"))
+  "Colors of pins."
+  :type '(alist :key-type symbol :value-type string))
+
+(defcustom osm-track-style
+  "stroke:#00a;stroke-width:5;stroke-linejoin:round;stroke-linecap:round;opacity:0.4;"
+  "SVG style used to draw tracks."
+  :type 'string)
+
+(defcustom osm-home
+  (let ((lat (bound-and-true-p calendar-latitude))
+        (lon (bound-and-true-p calendar-longitude)))
+    (if (and lat lon)
+        (list lat lon 12)
+      (list 0 0 3)))
+  "Home coordinates, latitude, longitude and zoom level."
+  :type '(list :tag "Coordinates"
+               (number :tag "Latitude  ")
+               (number :tag "Longitude ")
+               (number :tag "Zoom      ")))
+
+(defcustom osm-large-step 256
+  "Scroll step in pixel."
+  :type 'natnum)
+
+(defcustom osm-tile-border nil
+  "Set to t to display thin tile borders.
+For debugging set the value to `debug', such that a border is
+shown around SVG tiles."
+  :type '(choice boolean (const debug)))
+
+(defcustom osm-small-step 16
+  "Scroll step in pixel."
+  :type 'natnum)
+
+(defcustom osm-server 'default
+  "Tile server name."
+  :type 'symbol)
+
+(defcustom osm-tile-directory
+  (expand-file-name "var/osm/" user-emacs-directory)
+  "Tile cache directory."
+  :type 'string)
+
+(defcustom osm-max-age 14
+  "Maximum tile age in days.
+Should be at least 7 days according to the server usage policies."
+  :type '(choice (const nil) natnum))
+
+(defcustom osm-max-tiles 256
+  "Number of tiles to keep in the memory cache."
+  :type '(choice (const nil) natnum))
+
+(defun osm--menu-item (menu)
+  "Generate menu item from MENU."
+  `(menu-item
+    "" nil :filter
+    ,(lambda (&optional _)
+       (select-window
+        (posn-window
+         (event-start last-input-event)))
+       (if (functionp menu)
+           (funcall menu)
+         menu))))
+
+(defun osm--mouse-ignore-wheel (_prompt)
+  "Ignore mouse wheel events during key translation."
+  (pcase (this-single-command-raw-keys)
+    ((and `[,e]
+          (let y (event-basic-type e))
+          (guard (symbolp y))
+          (guard (string-search "wheel-" (symbol-name y))))
+     [])
+    (k k)))
+
+(defvar-keymap osm-prefix-map
+  :doc "Global prefix map of OSM entry points."
+  "h" #'osm-home
+  "s" #'osm-search
+  "v" #'osm-server
+  "t" #'osm-goto
+  "j" #'osm-jump
+  "x" #'osm-gpx-show
+  "X" #'osm-gpx-hide)
+
+;;;###autoload (autoload 'osm-prefix-map "osm" nil t 'keymap)
+(defalias 'osm-prefix-map osm-prefix-map)
+
+(defvar-keymap osm-mode-map
+  :doc "Keymap used by `osm-mode'."
+  :parent (make-composed-keymap osm-prefix-map special-mode-map)
+  "<home>" #'osm-home
+  "+" #'osm-zoom-in
+  "-" #'osm-zoom-out
+  "SPC" #'osm-zoom-in
+  "S-SPC" #'osm-zoom-out
+  "<mouse-1>" #'osm-mouse-pin
+  "<mouse-2>" 'org-store-link
+  "<mouse-3>" #'osm-bookmark-set
+  "S-<down-mouse-1>" #'ignore
+  "S-<mouse-1>" #'osm-mouse-track
+  "<down-mouse-1>" #'osm-mouse-drag
+  "<down-mouse-2>" #'osm-mouse-drag
+  "<down-mouse-3>" #'osm-mouse-drag
+  "<drag-mouse-1>" #'ignore
+  "<drag-mouse-2>" #'ignore
+  "<drag-mouse-3>" #'ignore
+  "<up>" #'osm-up
+  "<down>" #'osm-down
+  "<left>" #'osm-left
+  "<right>" #'osm-right
+  "C-<up>" #'osm-up-up
+  "C-<down>" #'osm-down-down
+  "C-<left>" #'osm-left-left
+  "C-<right>" #'osm-right-right
+  "M-<up>" #'osm-up-up
+  "M-<down>" #'osm-down-down
+  "M-<left>" #'osm-left-left
+  "M-<right>" #'osm-right-right
+  "S-<up>" #'osm-up-up
+  "S-<down>" #'osm-down-down
+  "S-<left>" #'osm-left-left
+  "S-<right>" #'osm-right-right
+  "n" #'osm-rename
+  "d" #'osm-delete
+  "DEL" #'osm-delete
+  "<deletechar>" #'osm-delete
+  "c" #'osm-center
+  "o" #'clone-buffer
+  "u" #'osm-save-url
+  "l" 'org-store-link
+  "b" #'osm-bookmark-set
+  "X" #'osm-gpx-hide
+  "<remap> <scroll-down-command>" #'osm-down
+  "<remap> <scroll-up-command>" #'osm-up
+  "<" nil
+  ">" nil)
+
+(dolist (pin osm-pin-colors)
+  (setq pin (vector (car pin)))
+  (define-key key-translation-map pin #'osm--mouse-ignore-wheel)
+  (define-key osm-mode-map pin #'osm-mouse-select))
+
+(easy-menu-define osm-mode-menu osm-mode-map
+  "Menu for `osm-mode'."
+  '("OSM"
+    ["Go home" osm-home]
+    ["Center" osm-center]
+    ["Go to coordinates" osm-goto]
+    ["Jump to pin" osm-jump]
+    ["Search by name" osm-search]
+    ["Change tile server" osm-server]
+    "--"
+    ["Org Link" org-store-link]
+    ["Geo Url" osm-save-url]
+    ["Elisp Link" (osm-save-url t)]
+    ("Bookmark"
+     ["Set" osm-bookmark-set]
+     ["Jump" osm-bookmark-jump]
+     ["Rename" osm-bookmark-rename]
+     ["Delete" osm-bookmark-delete])
+    "--"
+    ["Show GPX file" osm-gpx-show]
+    ["Hide GPX file" osm-gpx-hide]
+    "--"
+    ["Clone buffer" clone-buffer]
+    ["Revert buffer" revert-buffer]
+    "--"
+    ["Manual" (info "(osm)")]
+    ["Customize" (customize-group 'osm)]))
+
+(defconst osm--placeholder
+  '(:type svg :width 256 :height 256
+          :data "<svg width='256' height='256' version='1.1' xmlns='http://www.w3.org/2000/svg'>
+  <defs>
+    <pattern id='grid' width='16' height='16'  patternUnits='userSpaceOnUse'>
+      <path d='m 0 0 l 0 16 16 0' fill='none' stroke='#888888'/>
+    </pattern>
+  </defs>
+  <rect width='256' height='256' fill='url(#grid)'/>
+</svg>")
+  "Placeholder image for tiles.")
+
+(defvar osm--search-history nil
+  "Minibuffer history used by command `osm-search'.")
+
+(defvar osm--jump-history nil
+  "Minibuffer history used by command `osm-jump'.")
+
+(defvar osm--server-history nil
+  "Minibuffer history used by command `osm-server'.")
+
+(defvar osm--purge-directory 0
+  "Last time the tile cache was cleaned.")
+
+(defvar osm--tile-cache nil
+  "Global tile memory cache.")
+
+(defvar osm--tile-age 0
+  "Tile age, incremented on every update.")
+
+(defvar osm--gpx-files nil
+  "Global list of loaded tracks.")
+
+(defvar osm--track nil
+  "List of track coordinates.")
+
+(defvar osm--download-processes nil
+  "Globally active download processes.")
+
+(defvar osm--download-active nil
+  "Globally active download jobs.")
+
+(defvar osm--download-subdomain nil
+  "Subdomain indices to query the servers in a round-robin fashion.")
+
+(defvar-local osm--download-queue nil
+  "Buffer-local tile download queue.")
+
+(defvar-local osm--wx 0
+  "Half window width in pixel.")
+
+(defvar-local osm--wy 0
+  "Half window height in pixel.")
+
+(defvar-local osm--nx 0
+  "Number of tiles in x direction.")
+
+(defvar-local osm--ny 0
+  "Number of tiles in y direction.")
+
+(defvar-local osm--zoom nil
+  "Zoom level of the map.")
+
+(defvar-local osm--lat nil
+  "Latitude coordinate.")
+
+(defvar-local osm--lon nil
+  "Longitude coordinate.")
+
+(defvar-local osm--overlays nil
+  "Overlay hash table.
+Local per buffer since the overlays depend on the zoom level.")
+
+(defvar-local osm--pin nil
+  "Currently selected pin.")
+
+(defmacro osm--each (&rest body)
+  "Execute BODY in each `osm-mode' buffer."
+  (cl-with-gensyms (buf)
+    `(dolist (,buf (buffer-list))
+       (when (eq (buffer-local-value 'major-mode ,buf) #'osm-mode)
+         (with-current-buffer ,buf
+           ,@body)))))
+
+(defun osm--server-menu ()
+  "Generate server menu."
+  (let (menu last-group)
+    (dolist (server osm-server-list)
+      (let* ((plist (cdr server))
+             (group (plist-get plist :group)))
+        (unless (equal last-group group)
+          (push (format "─── %s ───" group) menu)
+          (setq last-group group))
+        (push
+         `[,(plist-get plist :name)
+           (osm-server ',(car server))
+           :style toggle
+           :selected (eq osm-server ',(car server))]
+         menu)))
+    (easy-menu-create-menu "Server" (nreverse menu))))
+
+(defsubst osm--lon-to-normalized-x (lon)
+  "Convert LON to normalized x coordinate."
+  (/ (+ lon 180.0) 360.0))
+
+(defsubst osm--lat-to-normalized-y (lat)
+  "Convert LAT to normalized y coordinate."
+  (setq lat (* lat (/ float-pi 180.0)))
+  (- 0.5 (/ (log (+ (tan lat) (/ 1.0 (cos lat)))) float-pi 2)))
+
+(defun osm--boundingbox-to-zoom (lat1 lat2 lon1 lon2)
+  "Compute zoom level from boundingbox LAT1 to LAT2 and LON1 to LON2."
+  (let ((w (/ (frame-pixel-width) 256))
+        (h (/ (frame-pixel-height) 256)))
+    (max (osm--server-property :min-zoom)
+         (min
+          (osm--server-property :max-zoom)
+          (min (logb (/ w (abs (- (osm--lon-to-normalized-x lon1) (osm--lon-to-normalized-x lon2)))))
+               (logb (/ h (abs (- (osm--lat-to-normalized-y lat1) (osm--lat-to-normalized-y lat2))))))))))
+
+(defun osm--x-to-lon (x zoom)
+  "Return longitude in degrees for X/ZOOM."
+  (- (/ (* x 360.0) 256.0 (expt 2.0 zoom)) 180.0))
+
+(defun osm--y-to-lat (y zoom)
+  "Return latitude in degrees for Y/ZOOM."
+  (setq y (* float-pi (- 1 (* 2 (/ y 256.0 (expt 2.0 zoom))))))
+  (/ (* 180 (atan (/ (- (exp y) (exp (- y))) 2))) float-pi))
+
+(defsubst osm--lon-to-x (lon zoom)
+  "Convert LON/ZOOM to x coordinate in pixel."
+  (floor (* 256 (expt 2.0 zoom) (osm--lon-to-normalized-x lon))))
+
+(defsubst osm--lat-to-y (lat zoom)
+  "Convert LAT/ZOOM to y coordinate in pixel."
+  (floor (* 256 (expt 2.0 zoom) (osm--lat-to-normalized-y lat))))
+
+(defsubst osm--x ()
+  "Return longitude in pixel of map center."
+  (osm--lon-to-x osm--lon osm--zoom))
+
+(defsubst osm--y ()
+  "Return latitude in pixel of map center."
+  (osm--lat-to-y osm--lat osm--zoom))
+
+(defsubst osm--x0 ()
+  "Return longitude in pixel of top left corner."
+  (- (osm--x) osm--wx))
+
+(defsubst osm--y0 ()
+  "Return latitude in pixel of top left corner."
+  (- (osm--y) osm--wy))
+
+(defun osm--server-property (prop &optional server)
+  "Return server property PROP for SERVER."
+  (or (plist-get (alist-get (or server osm-server) osm-server-list) prop)
+      (plist-get osm-server-defaults prop)))
+
+(defun osm--tile-url (x y zoom)
+  "Return tile url for coordinate X, Y and ZOOM."
+  (let ((url (osm--server-property :url))
+        (sub (osm--server-property :subdomains))
+        (key (osm--server-property :key)))
+    (when (and (string-search "%k" url) (not key))
+      (require 'auth-source)
+      (declare-function auth-source-search "auth-source")
+      (let ((host (string-join
+                   (last (split-string (cadr (split-string url "/" t)) "\\.") 2)
+                   ".")))
+        (setq key (plist-get
+                   (car (auth-source-search :require '(:user :host :secret)
+                                            :host host
+                                            :user "apikey"))
+                   :secret))
+        (unless key
+          (warn "No auth source secret found for apikey@%s" host)
+          (setq key ""))
+        (setf (plist-get (alist-get osm-server osm-server-list) :key) key)))
+    (format-spec
+     url `((?z . ,zoom) (?x . ,x) (?y . ,y)
+           (?k . ,(if (functionp key) (funcall key) key))
+           (?s . ,(nth (mod (alist-get osm-server osm--download-subdomain 0)
+                            (length sub))
+                       sub))))))
+
+(defun osm--tile-file (x y zoom)
+  "Return tile file name for coordinate X, Y and ZOOM."
+  (file-name-concat
+   (expand-file-name osm-tile-directory)
+   (symbol-name osm-server)
+   (format "%d-%d-%d.%s"
+           zoom x y
+           (or (osm--server-property :ext)
+               (file-name-extension
+                (url-file-nondirectory
+                 (osm--server-property :url)))))))
+
+(defun osm--enqueue-download (x y)
+  "Enqueue tile X/Y for download."
+  (when (let ((n (expt 2 osm--zoom))) (and (>= x 0) (>= y 0) (< x n) (< y n)))
+    (let ((job (list osm-server osm--zoom x y)))
+      (unless (or (member job osm--download-queue) (member job osm--download-active))
+        (setq osm--download-queue (nconc osm--download-queue (list job)))))))
+
+(defun osm--download-filter (output)
+  "Filter function for the download process which receives OUTPUT."
+  (while (string-match
+          "\\`\\([0-9]+\\) \\(.*?/\\([^/]+\\)/\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\.[^\r\n]+\\)\r?\n"
+          output)
+    (let ((status (match-string 1 output))
+          (file (match-string 2 output))
+          (server (intern-soft (match-string 3 output)))
+          (zoom (string-to-number (match-string 4 output)))
+          (x (string-to-number (match-string 5 output)))
+          (y (string-to-number (match-string 6 output))))
+      (setq output (substring output (match-end 0)))
+      (when (equal status "200")
+        (ignore-errors (rename-file file (string-remove-suffix ".tmp" file) t))
+        (osm--each
+          (when (and (= osm--zoom zoom) (eq osm-server server))
+            (osm--display-tile x y (osm--get-tile x y)))))
+      (cl-callf2 delete (list server zoom x y) osm--download-active)
+      (delete-file file)))
+  output)
+
+(defun osm--download-command ()
+  "Build download command."
+  (let* ((count 0)
+         (batch (osm--server-property :download-batch))
+         (subs (length (osm--server-property :subdomains)))
+         (parallel (* subs (osm--server-property :max-connections)))
+         args jobs job)
+    (while (and (< count batch)
+                (setq job (nth (* count parallel) osm--download-queue)))
+      (pcase-let ((`(,_server ,zoom ,x ,y) job))
+        (setq args `(,(osm--tile-url x y zoom)
+                     ,(concat (osm--tile-file x y zoom) ".tmp")
+                     "--output"
+                     ,@args))
+        (push job jobs)
+        (push job osm--download-active)
+        (cl-incf count)))
+    (osm--each
+      (dolist (job jobs)
+        (cl-callf2 delq job osm--download-queue)))
+    (cl-callf (lambda (s) (mod (1+ s) subs))
+        (alist-get osm-server osm--download-subdomain 0))
+    (cons `("curl" "--write-out" "%{http_code} %{filename_effective}\n"
+            ,@(split-string-and-unquote osm-curl-options) ,@(nreverse args))
+          jobs)))
+
+(defun osm--download ()
+  "Download next tiles from the queue."
+  (when (and (< (length (alist-get osm-server osm--download-processes))
+                (* (length (osm--server-property :subdomains))
+                   (osm--server-property :max-connections)))
+             osm--download-queue)
+    (pcase-let ((`(,command . ,jobs) (osm--download-command))
+                (dir (file-name-concat (expand-file-name osm-tile-directory)
+                                       (symbol-name osm-server)))
+                (server osm-server))
+      (make-directory dir t)
+      (push
+       (make-process
+        :name "*osm curl*"
+        :connection-type 'pipe
+        :noquery t
+        :command command
+        :filter
+        (let ((output ""))
+          (lambda (_proc out)
+            (setq output (osm--download-filter (concat output out)))
+            (force-mode-line-update t)))
+        :sentinel
+        (lambda (proc _status)
+          (dolist (job jobs)
+            (cl-callf2 delq job osm--download-active))
+          (cl-callf2 delq proc (alist-get server osm--download-processes nil t))
+          (force-mode-line-update t)
+          (osm--download)))
+       (alist-get server osm--download-processes))
+       (force-mode-line-update t)
+       (osm--download))))
+
+(defun osm-mouse-drag (event)
+  "Handle drag EVENT."
+  (declare (completion ignore))
+  (interactive "@e")
+  (pcase-let* ((`(,sx . ,sy) (posn-x-y (event-start event)))
+               (win (selected-window))
+               (map (define-keymap
+                      "<mouse-movement>"
+                      (lambda (event)
+                        (interactive "e")
+                        (setq event (event-start event))
+                        (when (eq win (posn-window event))
+                          (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
+                            (osm--move (- sx ex) (- sy ey))
+                            (setq sx ex sy ey)
+                            (osm--update)))))))
+    (setq track-mouse 'dragging)
+    (set-transient-map map
+                       (lambda () (eq (car-safe last-input-event) 'mouse-movement))
+                       (lambda () (setq track-mouse nil)))))
+
+(defun osm--zoom-in-wheel (_n)
+  "Zoom in with the mouse wheel."
+  (pcase-let ((`(,x . ,y) (posn-x-y (event-start last-input-event))))
+    (when (< osm--zoom (osm--server-property :max-zoom))
+      (osm--move (/ (- x osm--wx) 2) (/ (- y osm--wy) 2))
+      (osm-zoom-in))))
+
+(defun osm--zoom-out-wheel (_n)
+  "Zoom out with the mouse wheel."
+  (pcase-let ((`(,x . ,y) (posn-x-y (event-start last-input-event))))
+    (when (> osm--zoom (osm--server-property :min-zoom))
+      (osm--move (- osm--wx x) (- osm--wy y))
+      (osm-zoom-out))))
+
+(defun osm-center ()
+  "Center to location of selected pin."
+  (interactive nil osm-mode)
+  (osm--barf-unless-osm)
+  (pcase osm--pin
+    (`(,lat ,lon ,_id ,name)
+     (setq osm--lat lat osm--lon lon)
+     (message "%s" name)
+     (osm--update))))
+
+(defun osm--haversine (lat1 lon1 lat2 lon2)
+  "Compute distance between LAT1/LON1 and LAT2/LON2 in km."
+  ;; https://en.wikipedia.org/wiki/Haversine_formula
+  (let* ((rad (/ float-pi 180))
+         (y (sin (* 0.5 rad (- lat2 lat1))))
+         (x (sin (* 0.5 rad (- lon2 lon1))))
+         (h (+ (* x x) (* (cos (* rad lat1)) (cos (* rad lat2)) y y))))
+    (* 2 6371 (atan (sqrt h) (sqrt (- 1 h))))))
+
+(defun osm-mouse-track (event)
+  "Set track pin at location of the click EVENT."
+  (declare (completion ignore))
+  (interactive "@e")
+  (pcase osm--pin
+    ((and (guard (not osm--track)) `(,lat ,lon ,_id ,_name))
+     (push (list lat lon "WP1") osm--track)))
+  (osm--set-pin-event event 'osm-track
+                      (format "WP%s" (1+ (length osm--track))) 'quiet)
+  (pcase-let ((`(,lat ,lon ,_id ,name) osm--pin))
+    (push (list lat lon name) osm--track))
+  (osm--revert)
+  (osm--track-length))
+
+(defun osm--track-length ()
+  "Echo track length."
+  (when (cdr osm--track)
+    (pcase-let* ((len1 0)
+                 (len2 0)
+                 (p osm--track)
+                 (`(,sel-lat ,sel-lon ,_ ,sel-name) osm--pin))
+      (while (and (cdr p) (not (and (equal (caar p) sel-lat)
+                                    (equal (cadar p) sel-lon))))
+        (cl-incf len2 (osm--haversine (caar p) (cadar p)
+                                      (caadr p) (cadadr p)))
+        (pop p))
+      (while (cdr p)
+        (cl-incf len1 (osm--haversine (caar p) (cadar p)
+                                      (caadr p) (cadadr p)))
+        (pop p))
+      (message "%s way points, length %.2fkm, %s"
+               (length osm--track) (+ len1 len2)
+               (if (or (= len1 0) (= len2 0))
+                   sel-name
+                 (format "%.2fkm → %s → %.2fkm"
+                         len1 sel-name len2))))))
+
+(defun osm--pin-at (event &optional type)
+  "Get pin of TYPE at EVENT."
+  (let* ((xy (posn-x-y (event-start event)))
+         (x (+ (osm--x0) (car xy)))
+         (y (+ (osm--y0) (cdr xy)))
+         (min most-positive-fixnum)
+         found)
+    (dolist (pin (car (osm--get-overlays (/ x 256) (/ y 256))))
+      (pcase-let ((`(,p ,q ,_lat ,_lon ,id ,_name) pin))
+        (when (or (not type) (eq type id))
+          (let ((d (+ (* (- p x) (- p x)) (* (- q y) (- q y)))))
+            (when (and (>= q y) (< q (+ y 50)) (>= p (- x 20)) (< p (+ x 20)) (< d min))
+              (setq min d found pin))))))
+    (cddr found)))
+
+(defun osm-mouse-pin (event)
+  "Create location pin at the click EVENT."
+  (declare (completion ignore))
+  (interactive "@e")
+  (osm--set-pin-event event)
+  (osm--update))
+
+(defun osm-mouse-select (event)
+  "Select pin at position of click EVENT."
+  (declare (completion ignore))
+  (interactive "@e")
+  (when (memq (event-basic-type event) '(mouse-1 mouse-2 mouse-3))
+    (pcase (osm--pin-at event)
+      (`(,lat ,lon ,id ,name)
+       (osm--set-pin id lat lon name (eq id 'osm-track))
+       (when (eq id 'osm-track) (osm--track-length))
+       (osm--update)))))
+
+(defun osm-zoom-in (&optional n)
+  "Zoom N times into the map."
+  (interactive "p" osm-mode)
+  (osm--barf-unless-osm)
+  (setq osm--zoom (max (osm--server-property :min-zoom)
+                       (min (osm--server-property :max-zoom)
+                            (+ osm--zoom (or n 1)))))
+  (osm--update))
+
+(defun osm-zoom-out (&optional n)
+  "Zoom N times out of the map."
+  (interactive "p" osm-mode)
+  (osm-zoom-in (- (or n 1))))
+
+(defun osm--move (dx dy)
+  "Move by DX/DY."
+  (osm--barf-unless-osm)
+  (setq osm--lon (osm--x-to-lon (+ (osm--x) dx) osm--zoom)
+        osm--lat (osm--y-to-lat (+ (osm--y) dy) osm--zoom)))
+
+(defun osm-right (&optional n)
+  "Move N small steps to the right."
+  (interactive "p" osm-mode)
+  (osm--move (* (or n 1) osm-small-step) 0)
+  (osm--update))
+
+(defun osm-down (&optional n)
+  "Move N small steps down."
+  (interactive "p" osm-mode)
+  (osm--move 0 (* (or n 1) osm-small-step))
+  (osm--update))
+
+(defun osm-up (&optional n)
+  "Move N small steps up."
+  (interactive "p" osm-mode)
+  (osm-down (- (or n 1))))
+
+(defun osm-left (&optional n)
+  "Move N small steps to the left."
+  (interactive "p" osm-mode)
+  (osm-right (- (or n 1))))
+
+(defun osm-right-right (&optional n)
+  "Move N large steps to the right."
+  (interactive "p" osm-mode)
+  (osm--move (* (or n 1) osm-large-step) 0)
+  (osm--update))
+
+(defun osm-down-down (&optional n)
+  "Move N large steps down."
+  (interactive "p" osm-mode)
+  (osm--move 0 (* (or n 1) osm-large-step))
+  (osm--update))
+
+(defun osm-up-up (&optional n)
+  "Move N large steps up."
+  (interactive "p" osm-mode)
+  (osm-down-down (- (or n 1))))
+
+(defun osm-left-left (&optional n)
+  "Move N large steps to the left."
+  (interactive "p" osm-mode)
+  (osm-right-right (- (or n 1))))
+
+(defun osm--purge-directory ()
+  "Clean tile directory."
+  (when (and (integerp osm-max-age)
+             (> (- (float-time) osm--purge-directory) (* 60 60 24)))
+    (setq osm--purge-directory (float-time))
+    (run-with-idle-timer
+     30 nil
+     (lambda ()
+       (dolist (dir (directory-files osm-tile-directory t "\\`[^.]+\\'" t))
+         (dolist (file (directory-files
+                        dir t "\\.\\(?:png\\|jpe?g\\)\\(?:\\.tmp\\)?\\'" t))
+           (when (> (float-time (time-since
+                                 (file-attribute-modification-time
+                                  (file-attributes file))))
+                    (* 60 60 24 osm-max-age))
+             (delete-file file)))
+         (when (directory-empty-p dir)
+           (ignore-errors (delete-directory dir))))))))
+
+(defun osm--check-libraries ()
+  "Check that Emacs is compiled with the necessary libraries."
+  (let (req)
+    (unless (display-graphic-p)
+      (push "graphical display" req))
+    (dolist (type '(svg jpeg png))
+      (unless (image-type-available-p type)
+        (push (format "%s support" type) req)))
+    (unless (libxml-available-p)
+      (push "libxml" req))
+    (unless (json-available-p)
+      (push "libjansson" req))
+    (when req
+      (error "Osm: Please compile Emacs with the required libraries, %s needed to proceed"
+             (string-join req ", ")))))
+
+(define-derived-mode osm-mode special-mode "Osm"
+  "OpenStreetMap viewer mode."
+  :interactive nil :abbrev-table nil :syntax-table nil
+  (osm--check-libraries)
+  (setq-local osm-server osm-server
+              line-spacing nil
+              cursor-type nil
+              cursor-in-non-selected-windows nil
+              left-fringe-width 1
+              right-fringe-width 1
+              left-margin-width 0
+              right-margin-width 0
+              truncate-lines t
+              show-trailing-whitespace nil
+              display-line-numbers nil
+              buffer-read-only t
+              fringe-indicator-alist '((truncation . nil))
+              revert-buffer-function #'osm--revert
+              mode-line-process '(:eval (osm--download-queue-info))
+              mode-line-position nil
+              mode-line-modified nil
+              mode-line-mule-info nil
+              mode-line-remote nil
+              default-directory (expand-file-name "~/")
+              eldoc-documentation-functions nil
+              mouse-wheel-progressive-speed nil
+              mwheel-scroll-up-function #'osm--zoom-out-wheel
+              mwheel-scroll-down-function #'osm--zoom-in-wheel
+              mwheel-scroll-left-function #'osm--zoom-out-wheel
+              mwheel-scroll-right-function #'osm--zoom-in-wheel
+              bookmark-make-record-function #'osm--bookmark-record-default)
+  (when (boundp 'mwheel-coalesce-scroll-events)
+    (setq-local mwheel-coalesce-scroll-events t))
+  (when (boundp 'pixel-scroll-precision-mode)
+    (setq-local pixel-scroll-precision-mode nil))
+  (add-hook 'change-major-mode-hook #'osm--barf-change-mode nil 'local)
+  (add-hook 'write-contents-functions #'osm--barf-write nil 'local)
+  (add-hook 'window-size-change-functions #'osm--resize nil 'local))
+
+(defun osm--barf-write ()
+  "Barf for write operation."
+  (set-buffer-modified-p nil)
+  (setq buffer-read-only t)
+  (set-visited-file-name nil)
+  (error "Writing the buffer to a file is not supported"))
+
+(defun osm--barf-change-mode ()
+  "Barf for change mode operation."
+  (error "Changing the major mode is not supported"))
+
+(defun osm--barf-unless-osm ()
+  "Barf if not an `osm-mode' buffer."
+  (unless (eq major-mode #'osm-mode)
+    (error "Not an `osm-mode' buffer")))
+
+(defun osm--each-pin (fun)
+  "Call FUN for each pin on the map."
+  (pcase osm-home
+    (`(,lat ,lon ,zoom)
+     (funcall fun 'osm-home lat lon zoom "Home")))
+  (bookmark-maybe-load-default-file)
+  (cl-loop for bm in bookmark-alist
+           if (eq (bookmark-prop-get bm 'handler) #'osm-bookmark-jump) do
+           (pcase-let ((`(,lat ,lon ,zoom) (bookmark-prop-get bm 'coordinates)))
+             (funcall fun 'osm-bookmark lat lon zoom (car bm))))
+  (dolist (file osm--gpx-files)
+    (cl-loop for (lat lon name) in (cddr file) do
+             (funcall fun 'osm-poi lat lon 15 name)))
+  (cl-loop for (lat lon name) in osm--track do
+           (funcall fun 'osm-track lat lon 15 name)))
+
+(defun osm--pin-inside-p (x y lat lon)
+  "Return non-nil if pin at LAT/LON is inside tile X/Y."
+  (let ((p (/ (osm--lon-to-x lon osm--zoom) 256.0))
+        (q (/ (osm--lat-to-y lat osm--zoom) 256.0)))
+    (and (>= p (- x 0.125)) (< p (+ x 1.125))
+         (>= q y) (< q (+ y 1.25)))))
+
+(defun osm--add-pin (pins id lat lon _zoom name)
+  "Add pin at LAT/LON with NAME and ID to the PINS hash table."
+  (let* ((x (osm--lon-to-x lon osm--zoom))
+         (y (osm--lat-to-y lat osm--zoom))
+         (x0 (/ x 256))
+         (y0 (/ y 256))
+         (pin (list x y lat lon id name)))
+    (push pin (gethash (cons x0 y0) pins))
+    (cl-loop
+     for i from -1 to 1 do
+     (cl-loop
+      for j from -1 to 0 do
+      (let ((x1 (/ (+ x (* 32 i)) 256))
+            (y1 (/ (+ y (* 64 j)) 256)))
+        (unless (and (= x0 x1) (= y0 y1))
+          (push pin (gethash (cons x1 y1) pins))))))))
+
+;; TODO: The Bresenham algorithm used here to add the line segments to the tiles
+;; has the issue that lines which go along a tile border may be drawn only
+;; partially. Use a more precise algorithm instead.
+(defun osm--add-track (tracks seg)
+  "Add track segment SEG to TRACKS hash table."
+  (when seg
+    (let ((p0 (cons (osm--lon-to-x (or (car-safe (cdar seg)) (cdar seg)) osm--zoom)
+                    (osm--lat-to-y (caar seg) osm--zoom))))
+      (dolist (pt (cdr seg))
+        (let* ((px1 (cdr pt))
+               (px1 (osm--lon-to-x (if (consp px1) (car px1) px1) osm--zoom))
+               (py1 (osm--lat-to-y (car pt) osm--zoom))
+               (pdx (- px1 (car p0)))
+               (pdy (- py1 (cdr p0))))
+          ;; Ignore point if too close to last point
+          (unless (< (+ (* pdx pdx) (* pdy pdy)) 50)
+            (let* ((p1 (cons px1 py1))
+                   (line (cons p0 p1))
+                   (x0 (/ (car p0) 256))
+                   (y0 (/ (cdr p0) 256))
+                   (x1 (/ px1 256))
+                   (y1 (/ py1 256))
+                   (sx (if (< x0 x1) 1 -1))
+                   (sy (if (< y0 y1) 1 -1))
+                   (dx (* sx (- x1 x0)))
+                   (dy (* sy (- y0 y1)))
+                   (err (+ dx dy)))
+              ;; Bresenham
+              (while
+                  (let ((ey (> (* err 2) dy))
+                        (ex (< (* err 2) dx)))
+                    (push line (gethash (cons x0 y0) tracks))
+                    (unless (and (= x0 x1) (= y0 y1))
+                      (when (and ey ex)
+                        (push line (gethash (cons x0 (+ y0 sy)) tracks))
+                        (push line (gethash (cons (+ x0 sx) y0) tracks)))
+                      (when ey
+                        (cl-incf err dy)
+                        (cl-incf x0 sx))
+                      (when ex
+                        (cl-incf err dx)
+                        (cl-incf y0 sy))
+                      t)))
+              (setq p0 p1))))))))
+
+(defun osm--get-overlays (x y)
+  "Compute overlays and return the overlays in tile X/Y."
+  (unless (eq (car osm--overlays) osm--zoom)
+    ;; TODO: Do not compute overlays for the entire map, only for a reasonable
+    ;; view port around the current center, depending on the size of the
+    ;; window. Otherwise the spatial hash map for the tracks gets very large if
+    ;; a line segment spans many tiles.
+    (let ((pins (make-hash-table :test #'equal))
+          (tracks (make-hash-table :test #'equal)))
+      (osm--each-pin (apply-partially #'osm--add-pin pins))
+      (dolist (file osm--gpx-files)
+        (dolist (seg (cadr file))
+          (osm--add-track tracks seg)))
+      (osm--add-track tracks osm--track)
+      (setq osm--overlays (list osm--zoom pins tracks))))
+  (let ((pins (gethash (cons x y) (cadr osm--overlays)))
+        (tracks (gethash (cons x y) (caddr osm--overlays))))
+    (and (or pins tracks) (cons pins tracks))))
+
+(autoload 'svg--image-data "svg")
+(defun osm--draw-tile (x y tpin)
+  "Make tile at X/Y from FILE.
+TPIN is an optional pin."
+  (let ((file (osm--tile-file x y osm--zoom))
+        overlays)
+    (when (file-exists-p file)
+      (if (or (setq overlays (osm--get-overlays x y)) (eq osm-tile-border t) tpin)
+          (let* ((areas nil)
+                 (x0 (* 256 x))
+                 (y0 (* 256 y))
+                 (svg-pin
+                  (lambda (pin)
+                    (pcase-let* ((`(,p ,q ,_lat ,_lon ,id ,name) pin)
+                                 (bg (cdr (assq id osm-pin-colors))))
+                      (setq p (- p x0) q (- q y0))
+                      (push `((poly . [,p ,q ,(- p 20) ,(- q 40) ,p ,(- q 50) ,(+ p 20) ,(- q 40) ])
+                              ,id (help-echo ,(truncate-string-to-width name 40 0 nil t)))
+                            areas)
+                      ;; https://commons.wikimedia.org/wiki/File:Simpleicons_Places_map-marker-1.svg
+                      (format "
+<g fill='%s' stroke='#000' stroke-width='9' transform='translate(%s %s) scale(0.09) translate(-256 -512)'>
+<path d='M256 0C167.641 0 96 71.625 96 160c0 24.75 5.625 48.219 15.672
+69.125C112.234 230.313 256 512 256 512l142.594-279.375
+C409.719 210.844 416 186.156 416 160C416 71.625 344.375
+0 256 0z M256 256c-53.016 0-96-43-96-96s42.984-96 96-96
+c53 0 96 43 96 96S309 256 256 256z'/>
+</g>" bg p q))))
+                 (svg-text
+                  (concat "<svg width='256' height='256' version='1.1'
+xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink'>
+<image xlink:href='"
+                          (file-name-nondirectory file)
+                          "' height='256' width='256'/>"
+                          (when-let (track (cdr overlays))
+                            (format
+                             "<path style='%s' d='%s'/>"
+                             osm-track-style
+                             (let (last)
+                               (mapconcat
+                                (pcase-lambda (`(,beg . ,end))
+                                  (prog1
+                                      (if (equal beg last)
+                                          (format "L%s %s" (- (car end) x0) (- (cdr end) y0))
+                                        (format "M%s %sL%s %s"
+                                                (- (car beg) x0) (- (cdr beg) y0)
+                                                (- (car end) x0) (- (cdr end) y0)))
+                                    (setq last end)))
+                                track ""))))
+                          (pcase-exhaustive osm-tile-border
+                            ('nil nil)
+                            ('debug "<path d='M 1 1 L 1 255 255 255 255 1 Z' stroke='#000' stroke-width='2' fill='none'/>")
+                            ('t "<path d='M 0 0 L 0 256 256 256' stroke='#000' fill='none'/>"))
+                          (mapconcat svg-pin (car overlays) "")
+                          (and tpin (funcall svg-pin tpin))
+                          "</svg>")))
+            (list 'image :width 256 :height 256 :type 'svg :base-uri file :data svg-text :map areas))
+        (list 'image :width 256 :height 256 :file file :type
+              (if (member (file-name-extension file) '("jpg" "jpeg"))
+                  'jpeg 'png))))))
+
+(defun osm--get-tile (x y)
+  "Get tile at X/Y."
+  (pcase osm--pin
+    ((and `(,lat ,lon ,_id ,name)
+          (guard (osm--pin-inside-p x y lat lon)))
+     (osm--draw-tile x y (list (osm--lon-to-x lon osm--zoom)
+                               (osm--lat-to-y lat osm--zoom)
+                               lat lon 'osm-selected name)))
+    (_
+     (let* ((key `(,osm-server ,osm--zoom ,x . ,y))
+            (tile (and osm--tile-cache (gethash key osm--tile-cache))))
+       (if tile
+           (progn (setcar tile osm--tile-age) (cdr tile))
+         (setq tile (osm--draw-tile x y nil))
+         (when tile
+           (when osm-max-tiles
+             (unless osm--tile-cache
+               (setq osm--tile-cache (make-hash-table :test #'equal :size osm-max-tiles)))
+             (puthash key (cons osm--tile-age tile) osm--tile-cache))
+           tile))))))
+
+(defun osm--display-tile (x y tile)
+  "Display TILE at X/Y."
+  (let ((i (- x (/ (osm--x0) 256)))
+        (j (- y (/ (osm--y0) 256))))
+    (when (and (>= i 0) (< i osm--nx) (>= j 0) (< j osm--ny))
+      (let* ((mx (if (= 0 i) (mod (osm--x0) 256) 0))
+             (my (if (= 0 j) (mod (osm--y0) 256) 0))
+             (pos (+ (point-min) (* j (1+ osm--nx)) i)))
+        (unless tile
+          (setq tile (cons 'image osm--placeholder)))
+        (with-silent-modifications
+          (put-text-property
+           pos (1+ pos) 'display
+           (if (or (/= 0 mx) (/= 0 my))
+               `((slice ,mx ,my ,(- 256 mx) ,(- 256 my)) ,tile)
+             tile)))))))
+
+;;;###autoload
+(defun osm-home ()
+  "Go to home coordinates."
+  (interactive)
+  (pcase osm-home
+    (`(,lat ,lon ,zoom)
+     (osm--goto lat lon zoom nil 'osm-home "Home"))))
+
+(defun osm--download-queue-info ()
+  "Return queue info string."
+  (when osm--download-processes
+    (format "[%s/%s/%s]"
+            (cl-loop for (_ . p) in osm--download-processes sum (length p))
+            (length osm--download-active)
+            (length osm--download-queue))))
+
+(defun osm--revert (&rest _)
+  "Revert osm buffers."
+  (clear-image-cache t) ;; Make absolutely sure that the tiles are redrawn.
+  (setq osm--tile-cache nil)
+  (osm--each
+    (setq osm--overlays nil)
+    (osm--update)))
+
+(defun osm--resize (&rest _)
+  "Resize buffer."
+  (when (eq major-mode #'osm-mode)
+    (osm--update)))
+
+(defun osm--header-button (text action)
+  "Format header line button with TEXT and ACTION."
+  (propertize text
+              'keymap (define-keymap "<header-line> <mouse-1>"
+                        (if (commandp action)
+                            (lambda ()
+                              (interactive "@")
+                              (call-interactively action))
+                          action))
+              'face '(:box (:line-width -2 :style released-button))
+              'mouse-face '(:box (:line-width -2 :style pressed-button))))
+
+(defun osm--update-header ()
+  "Update header line."
+  (let* ((meter-per-pixel (/ (* 156543.03 (cos (/ osm--lat (/ 180.0 float-pi)))) (expt 2 osm--zoom)))
+         (server (osm--server-property :name))
+         (meter 1) (idx 0)
+         (factor '(2 2.5 2))
+         (sep #(" " 0 1 (display (space :width (1))))))
+    (while (and (< idx 20) (< (/ (* meter (nth (mod idx 3) factor)) meter-per-pixel) 150))
+      (setq meter (round (* meter (nth (mod idx 3) factor))))
+      (cl-incf idx))
+    (setq-local
+     header-line-format
+     (list
+      (osm--header-button " ☰ " (osm--menu-item osm-mode-menu)) sep
+      (osm--header-button (format " %s " server)
+                          (osm--menu-item #'osm--server-menu)) sep
+      (osm--header-button " + " #'osm-zoom-in) sep
+      (osm--header-button " - " #'osm-zoom-out)
+      (format " Z%-2d " osm--zoom)
+      #(" " 0 1 (display (space :align-to (- center 15))))
+      (format #(" %7.2f° %7.2f°" 0 14 (face bold)) osm--lat osm--lon)
+      #(" " 0 1 (display (space :align-to (- right 20))))
+      (format "%3s " (if (>= meter 1000) (/ meter 1000) meter))
+      (if (>= meter 1000) "km " "m ")
+      #(" " 0 1 (face (:inverse-video t) display (space :width (3))))
+      (propertize " " 'face '(:strike-through t)
+                  'display `(space :width (,(floor (/ meter meter-per-pixel)))))
+      #(" " 0 1 (face (:inverse-video t) display (space :width (3))))))))
+
+(defun osm--update ()
+  "Update map display."
+  (osm--barf-unless-osm)
+  (osm--purge-tile-cache)
+  (osm--purge-directory)
+  (osm--rename-buffer)
+  (osm--update-sizes)
+  (osm--update-header)
+  (osm--update-buffer)
+  (osm--update-copyright)
+  (osm--process-download-queue))
+
+(defun osm--update-sizes ()
+  "Update window sizes."
+  (let* ((windows (or (get-buffer-window-list) (list (frame-root-window))))
+         (win-width (cl-loop for w in windows maximize (window-pixel-width w)))
+         (win-height (cl-loop for w in windows maximize (window-pixel-height w))))
+    (setq osm--wx (/ win-width 2)
+          osm--wy (/ win-height 2)
+          osm--nx (1+ (ceiling win-width 256))
+          osm--ny (1+ (ceiling win-height 256)))))
+
+(defun osm--copyright-link (text url)
+  "Format link with TEXT to URL."
+  (propertize text
+              'face 'button
+              'mouse-face 'highlight
+              'help-echo
+              (format "Go to %s" url)
+              'keymap
+              (define-keymap "<tab-line> <mouse-1>"
+                (lambda ()
+                  (interactive)
+                  (browse-url url)))))
+
+(defun osm--update-copyright ()
+  "Update copyright info."
+  (let ((copyright (and osm-copyright (osm--server-property :copyright))))
+    (if (not copyright)
+        (when (eq 'osm-copyright (car-safe tab-line-format))
+          (kill-local-variable 'tab-line-format))
+      (setq copyright (replace-regexp-in-string
+                       "{\\(.*?\\)|\\(.*?\\)}"
+                       (lambda (str)
+                         (osm--copyright-link
+                          (match-string 1 str)
+                          (match-string 2 str)))
+                       (concat
+                        " "
+                        (string-join (ensure-list copyright) " | ")
+                        #(" " 0 1 (display (space :align-to (+ 42 right)))))))
+      (add-face-text-property
+       0 (length copyright)
+       '(:inherit (header-line variable-pitch) :height 0.65)
+       t copyright)
+      (setq-local tab-line-format (list 'osm-copyright copyright)))))
+
+(defun osm--update-buffer ()
+  "Update buffer display."
+  (with-silent-modifications
+    (erase-buffer)
+    (dotimes (_j osm--ny)
+      (insert (make-string osm--nx ?\s) "\n"))
+    (put-text-property (point-min) (point-max) 'pointer 'arrow)
+    (goto-char (point-min))
+    (let ((tx (/ (osm--x0) 256))
+          (ty (/ (osm--y0) 256)))
+      (dotimes (j osm--ny)
+        (dotimes (i osm--nx)
+          (let* ((x (+ i tx))
+                 (y (+ j ty))
+                 (tile (osm--get-tile x y)))
+            (osm--display-tile x y tile)
+            (unless tile (osm--enqueue-download x y))))))))
+
+(defun osm--process-download-queue ()
+  "Process the download queue."
+  (setq osm--download-queue
+        (sort
+         (cl-loop with tx = (/ (osm--x0) 256)
+                  with ty = (/ (osm--y0) 256)
+                  for job in osm--download-queue
+                  for (_server zoom x y) = job
+                  if (and (= zoom osm--zoom)
+                          (>= x tx) (< x (+ tx osm--nx))
+                          (>= y ty) (< y (+ ty osm--ny)))
+                  collect job)
+         (let ((tx (/ (osm--x) 256))
+               (ty (/ (osm--y) 256)))
+           (pcase-lambda (`(,_s1 ,_z1 ,x1 ,y1) `(,_s2 ,_z2 ,x2 ,y2))
+             (setq x1 (- x1 tx) y1 (- y1 ty) x2 (- x2 tx) y2 (- y2 ty))
+             (< (+ (* x1 x1) (* y1 y1)) (+ (* x2 x2) (* y2 y2)))))))
+  (osm--download))
+
+(defun osm--purge-tile-cache ()
+  "Purge old tiles from the tile cache."
+  (cl-incf osm--tile-age)
+  (when (and osm--tile-cache (> (hash-table-count osm--tile-cache) osm-max-tiles))
+    (let (items)
+      (maphash (lambda (k v) (push (list (car v) (cdr v) k) items)) osm--tile-cache)
+      (setq items (sort items #'car-less-than-car))
+      (cl-loop repeat (- (hash-table-count osm--tile-cache) osm-max-tiles)
+               for (_age tile key) in items do
+               (image-flush tile t)
+               (remhash key osm--tile-cache)))))
+
+(defun osm--bookmark-record-default ()
+  "Make osm bookmark record."
+  (osm--bookmark-record (osm--bookmark-name osm--lat osm--lon nil)
+                        osm--lat osm--lon nil))
+
+(defun osm--bookmark-record (name lat lon loc)
+  "Make osm bookmark record with NAME and LOC description at LAT/LON."
+  (setq bookmark-current-bookmark nil) ;; Reset bookmark to use new name
+  `(,name
+    (location . ,(osm--location-name lat lon loc 6))
+    (coordinates ,lat ,lon ,osm--zoom)
+    (server . ,osm-server)
+    (handler . ,#'osm-bookmark-jump)))
+
+(defun osm--org-link-props ()
+  "Return Org link properties."
+  (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Org Link"))
+               (name (osm--location-name lat lon loc 2)))
+    (list :type "geo"
+          :description
+          (if (eq osm-server (default-value 'osm-server))
+              (string-remove-suffix (concat " " (osm--server-property :name))
+                                    name)
+            name)
+          :link
+          (format "geo:%.6f,%.6f;z=%s%s"
+                  lat lon osm--zoom
+                  (if (eq osm-server (default-value 'osm-server)) ""
+                    (format ";s=%s" osm-server))))))
+
+(defun osm--rename-buffer ()
+  "Rename current buffer."
+  (setq list-buffers-directory (osm--location-name osm--lat osm--lon nil 6))
+  (rename-buffer
+   (format "*osm: %s*" (osm--location-name osm--lat osm--lon nil 2))
+   'unique))
+
+(defun osm--location-name (lat lon loc prec)
+  "Format location string LAT/LON with optional LOC description.
+The coordinates are formatted with precision PREC."
+  (format (format "%%s%%.%df° %%.%df° Z%%s %%s" prec prec)
+          (if loc (concat loc ", ") "")
+          lat lon osm--zoom (osm--server-property :name)))
+
+(defun osm--bookmark-name (lat lon loc)
+  "Return bookmark name for LAT/LON/LOC."
+  (concat "osm: " (osm--location-name lat lon loc 2)))
+
+(defun osm--goto (lat lon zoom server id name)
+  "Go to LAT/LON/ZOOM, change SERVER.
+Optionally place pin with ID and NAME."
+  ;; Server not found
+  (when (and server (not (assq server osm-server-list))) (setq server nil))
+  (with-current-buffer
+      (or
+       (and (eq major-mode #'osm-mode) (current-buffer))
+       (let ((def-server (or server osm-server))
+             (def-lat (or lat (nth 0 osm-home)))
+             (def-lon (or lon (nth 1 osm-home)))
+             (def-zoom (or zoom (nth 2 osm-home))))
+         ;; Search for existing buffer
+         (cl-loop
+          for buf in (buffer-list) thereis
+          (and (equal (buffer-local-value 'major-mode buf) #'osm-mode)
+               (equal (buffer-local-value 'osm-server buf) def-server)
+               (equal (buffer-local-value 'osm--zoom buf) def-zoom)
+               (equal (buffer-local-value 'osm--lat buf) def-lat)
+               (equal (buffer-local-value 'osm--lon buf) def-lon)
+               buf)))
+       (generate-new-buffer "*osm*"))
+    (unless (eq major-mode #'osm-mode)
+      (osm-mode))
+    (when (and server (not (eq osm-server server)))
+      (setq-local osm-server server
+                  osm--download-queue nil))
+    (when (or (not (and osm--lon osm--lat)) lat)
+      (setq osm--lat (or lat (nth 0 osm-home))
+            osm--lon (or lon (nth 1 osm-home))
+            osm--zoom (or zoom (nth 2 osm-home)))
+      (when id
+        (osm--set-pin id osm--lat osm--lon name)))
+    (prog1 (pop-to-buffer (current-buffer))
+      (osm--update))))
+
+(defun osm--set-pin (id lat lon name &optional quiet)
+  "Set pin at LAT/LON with ID and NAME.
+Print NAME if not QUIET."
+  (setq name (or name (format "Location %.6f° %.6f°" lat lon)))
+  (setq osm--pin (list lat lon (or id 'osm-selected) name))
+  (unless quiet (message "%s" name)))
+
+(defun osm--set-pin-event (event &optional id name quiet)
+  "Set selection pin with ID and NAME at location of EVENT.
+Print NAME if not QUIET."
+  (pcase-let ((`(,x . ,y) (posn-x-y (event-start event))))
+    (osm--set-pin id
+                  (osm--y-to-lat (+ (osm--y0) y) osm--zoom)
+                  (osm--x-to-lon (+ (osm--x0) x) osm--zoom)
+                  name quiet)))
+
+;;;###autoload
+(defun osm-goto (lat lon zoom)
+  "Go to LAT/LON/ZOOM."
+  (interactive
+   (pcase-let ((`(,lat ,lon ,zoom)
+                (mapcar #'string-to-number
+                        (split-string (read-string "Lat Lon (Zoom): ") nil t))))
+     (setq zoom (or zoom osm--zoom 11))
+     (unless (and (numberp lat) (numberp lon) (numberp zoom))
+       (error "Invalid coordinate"))
+     (list lat lon zoom)))
+  (osm--goto lat lon zoom nil 'osm-selected nil)
+  nil)
+
+;;;###autoload
+(defun osm (&rest link)
+  "Go to LINK.
+When called interactively, call the function `osm-home'."
+  (interactive (list 'home))
+  (pcase link
+    ('(home)
+     (osm-home))
+    (`(,lat ,lon ,zoom . ,server)
+     (setq server (car server))
+     (unless (and server (symbolp server)) (setq server nil)) ;; Ignore comment
+     (osm--goto lat lon zoom server 'osm-selected "Elisp Link"))
+    ((and `(,url . ,_) (guard (stringp url)))
+     (if (string-match
+          "\\`geo:\\([0-9.-]+\\),\\([0-9.-]+\\)\\(?:,[0-9.-]+\\)?\\(;.+\\'\\|\\'\\)" url)
+         (let* ((lat (string-to-number (match-string 1 url)))
+                (lon (string-to-number (match-string 2 url)))
+                (args (url-parse-args (match-string 3 url) ""))
+                (zoom (cdr (assoc "z" args)))
+                (server (cdr (assoc "s" args))))
+           (osm--goto lat lon
+                      (and zoom (string-to-number zoom))
+                      (and server (intern-soft server))
+                      'osm-selected "Geo Link"))
+       (osm-search (string-remove-prefix "geo:" url))))
+    (_ (error "Invalid osm link"))))
+
+;;;###autoload
+(defun osm-bookmark-jump (bm)
+  "Jump to osm bookmark BM."
+  (interactive (list (osm--bookmark-read)))
+  (pcase-let ((`(,lat ,lon ,zoom) (bookmark-prop-get bm 'coordinates)))
+    (set-buffer (osm--goto lat lon zoom
+                           (bookmark-prop-get bm 'server)
+                           'osm-bookmark (car bm)))))
+(put 'osm-bookmark-jump 'bookmark-handler-type "Osm")
+
+;;;###autoload
+(defun osm-bookmark-delete (bm)
+  "Delete osm bookmark BM."
+  (interactive (list (osm--bookmark-read)))
+  (when (y-or-n-p (format "Delete bookmark `%s'? " bm))
+    (bookmark-delete bm)
+    (setq osm--pin nil)
+    (osm--revert)))
+
+;;;###autoload
+(defun osm-bookmark-rename (old-name)
+  "Rename osm bookmark OLD-NAME."
+  (interactive (list (car (osm--bookmark-read))))
+  (let ((new-name (read-from-minibuffer "New name: " old-name nil nil
+                                        'bookmark-history old-name)))
+    (when osm--pin (setf (cadddr osm--pin) new-name))
+    (bookmark-rename old-name new-name)
+    (osm--revert)))
+
+(defun osm--bookmark-read ()
+  "Read bookmark name."
+  (bookmark-maybe-load-default-file)
+  (or (assoc
+       (pcase osm--pin
+         (`(,_lat ,_lon osm-bookmark ,name) name)
+         (_ (completing-read
+             "Bookmark: "
+             (or (cl-loop for bm in bookmark-alist
+                          if (eq (bookmark-prop-get bm 'handler) #'osm-bookmark-jump)
+                          collect (car bm))
+                 (error "No bookmarks found"))
+             nil t nil 'bookmark-history)))
+       bookmark-alist)
+      (error "No bookmark selected")))
+
+(defun osm-bookmark-set ()
+  "Create osm bookmark."
+  (interactive nil osm-mode)
+  (osm--barf-unless-osm)
+  (unwind-protect
+      (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Bookmark"))
+                   (def (osm--bookmark-name lat lon loc))
+                   (name (read-from-minibuffer "Bookmark name: " def nil nil 'bookmark-history def))
+                   (bookmark-make-record-function
+                    (lambda () (osm--bookmark-record name lat lon loc))))
+        (bookmark-set name)
+        (message "Stored bookmark: %s" name)
+        (setf (caddr osm--pin) 'osm-bookmark))
+    (osm--revert)))
+
+(defun osm--fetch-location-data (name)
+  "Fetch location info for NAME."
+  (when (mouse-event-p last-input-event)
+    (osm--set-pin-event last-input-event 'osm-selected name))
+  (let ((lat (or (car osm--pin) osm--lat))
+        (lon (or (cadr osm--pin) osm--lon)))
+    (osm--set-pin 'osm-selected lat lon name 'quiet)
+    (message "%s: Fetching name of %.2f° %.2f° from %s..." name lat lon osm-search-server)
+    ;; Redisplay before slow fetching
+    (osm--update)
+    (redisplay)
+    (list lat lon
+          (ignore-errors
+            (alist-get
+             'display_name
+             (osm--fetch-json
+              (format "%s/reverse?format=json&accept-language=%s&zoom=%s&lat=%s&lon=%s"
+                      osm-search-server osm-search-language
+                      (min 18 (max 3 osm--zoom)) lat lon)))))))
+
+(defun osm--track-index ()
+  "Return index of selected track way point."
+  (cl-loop for idx from 0 for (lat lon _) in osm--track
+           if (and (equal lat (car osm--pin)) (equal lon (cadr osm--pin)))
+           return idx))
+
+(defun osm--track-delete ()
+  "Delete track way point."
+  (when-let ((idx (osm--track-index)))
+    ;; Delete pin
+    (cl-callf2 delq (nth idx osm--track) osm--track)
+    (setq osm--pin nil
+          idx (min idx (1- (length osm--track))))
+    ;; Select next pin
+    (pcase (nth idx osm--track)
+      (`(,lat ,lon ,name)
+       (osm--set-pin 'osm-track lat lon name 'quiet)))
+    ;; Rename pins after deletion
+    (cl-loop for idx from (length osm--track) downto 1
+             for pt in osm--track
+             if (string-match-p "\\`WP[0-9]+\\'" (caddr pt)) do
+             (setf (caddr pt) (format "WP%s" idx)))
+    (osm--track-length)
+    (osm--revert)))
+
+(defun osm--track-rename ()
+  "Rename track way point."
+  (when-let ((pt (nth (osm--track-index) osm--track))
+             (old-name (caddr pt))
+             (new-name (read-from-minibuffer "New name: " old-name nil nil nil old-name)))
+    (setf (caddr pt) new-name
+          (cadddr osm--pin) new-name)
+    (osm--revert)))
+
+(defun osm-delete ()
+  "Delete selected pin (bookmark or way point)."
+  (interactive nil osm-mode)
+  (osm--barf-unless-osm)
+  (pcase (caddr osm--pin)
+    ('nil nil)
+    ('osm-bookmark (osm-bookmark-delete (cadddr osm--pin)))
+    ('osm-track (osm--track-delete))
+    (_ (setq osm--pin nil) (osm--update))))
+
+(defun osm-rename ()
+  "Rename selected pin (bookmark or way point)."
+  (interactive nil osm-mode)
+  (osm--barf-unless-osm)
+  (pcase (caddr osm--pin)
+    ('osm-bookmark (osm-bookmark-rename (cadddr osm--pin)))
+    ('osm-track (osm--track-rename))))
+
+;;;###autoload
+(defun osm-jump ()
+  "Jump to named pin."
+  (interactive)
+  (let (pins)
+    (osm--each-pin (lambda (id lat lon zoom name)
+                     (push (list name (capitalize (substring (symbol-name id) 4))
+                                 id lat lon zoom)
+                           pins)))
+    (pcase (assoc (completing-read
+                   "Jump: "
+                     (lambda (str pred action)
+                       (if (eq action 'metadata)
+                           `(metadata
+                             (group-function
+                              . ,(lambda (pin transform)
+                                   (if transform pin
+                                     (cadr (assoc pin pins))))))
+                         (complete-with-action action pins str pred)))
+                     nil t nil 'osm--jump-history)
+                  pins)
+      (`(,name ,_group ,id ,lat ,lon ,zoom) (osm--goto lat lon zoom nil id name))
+      (_ (user-error "No pin selected")))))
+
+(defun osm--fetch-json (url)
+  "Get json from URL."
+  (osm--check-libraries)
+  (with-temp-buffer
+    (let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
+           (status (apply #'call-process "curl" nil (current-buffer) nil
+                          `(,@(split-string-and-unquote osm-curl-options) ,url))))
+      (unless (eq status 0)
+        (error "Fetching %s exited with status %s" url status)))
+    (goto-char (point-min))
+    (json-parse-buffer :array-type 'list :object-type 'alist)))
+
+(defun osm--search (needle)
+  "Globally search for NEEDLE and return the list of results."
+  (message "Contacting %s" osm-search-server)
+  (mapcar
+   (lambda (x)
+     (let ((lat (string-to-number (alist-get 'lat x)))
+           (lon (string-to-number (alist-get 'lon x))))
+       `(,(format "%s (%.6f° %.6f°)"
+                  (alist-get 'display_name x)
+                  lat lon)
+         ,lat ,lon
+         ,@(mapcar #'string-to-number (alist-get 'boundingbox x)))))
+   (osm--fetch-json
+    (format "%s/search?format=json&accept-language=%s&q=%s"
+            osm-search-server osm-search-language
+            (url-encode-url needle)))))
+
+;;;###autoload
+(defun osm-search (needle &optional lucky)
+  "Globally search for NEEDLE on `osm-search-server' and display the map.
+If the prefix argument LUCKY is non-nil take the first result and jump there.
+See `osm-search-server' and `osm-search-language' for customization."
+  (interactive
+   (list
+    (minibuffer-with-setup-hook
+        (lambda ()
+          (when (and (eq completing-read-function #'completing-read-default)
+                     (not (bound-and-true-p vertico-mode)))
+            ;; Override dreaded `minibuffer-complete-word' for default
+            ;; completion.  When will this keybinding finally get removed from
+            ;; default completion?
+            (use-local-map (make-composed-keymap
+                            (define-keymap "SPC" nil)
+                            (current-local-map)))))
+      (completing-read "Location: "
+                       (osm--sorted-table osm--search-history)
+                       nil nil nil 'osm--search-history))
+    current-prefix-arg))
+  ;; TODO: Add search bounded to current viewbox, bounded=1, viewbox=x1,y1,x2,y2
+  (let* ((results (or (osm--search needle) (error "No results for `%s'" needle)))
+         (selected
+          (or
+           (and (or lucky (not (cdr results))) (car results))
+           (assoc
+            (minibuffer-with-setup-hook
+                (lambda ()
+                  (when (and (eq completing-read-function #'completing-read-default)
+                             (not (bound-and-true-p vertico-mode))
+                             (not (bound-and-true-p icomplete-mode)))
+                    (let ((message-log-max nil)
+                          (inhibit-message t))
+                      ;; Show matches immediately for default completion.
+                      (minibuffer-completion-help))))
+              (completing-read
+               (format "Matches for '%s': " needle)
+               (osm--sorted-table results)
+               nil t nil t))
+            results)
+           (error "No selection"))))
+    (osm--goto (cadr selected) (caddr selected)
+               (apply #'osm--boundingbox-to-zoom (cdddr selected))
+               nil 'osm-selected (car selected))))
+
+(defun osm--sorted-table (coll)
+  "Sorted completion table from COLL."
+  (lambda (str pred action)
+    (if (eq action 'metadata)
+        '(metadata (display-sort-function . identity)
+                   (cycle-sort-function . identity))
+      (complete-with-action action coll str pred))))
+
+;;;###autoload
+(defun osm-gpx-show (file)
+  "Show the tracks of gpx FILE in an `osm-mode' buffer."
+  (interactive "fGPX file: ")
+  (osm--check-libraries)
+  (let ((dom (with-temp-buffer
+               (insert-file-contents file)
+               (libxml-parse-xml-region (point-min) (point-max))))
+        (min-lat 90) (max-lat -90) (min-lon 180) (max-lon -180))
+    (unless (eq 'gpx (dom-tag dom))
+      (setq dom (dom-child-by-tag dom 'gpx)))
+    (unless (and dom (eq 'gpx (dom-tag dom)))
+      (error "Not a GPX file"))
+    (setf (alist-get (abbreviate-file-name file) osm--gpx-files nil nil #'equal)
+          (cons
+           (cl-loop
+            for trk in (dom-children dom)
+            if (eq (dom-tag trk) 'trk) nconc
+            (cl-loop
+             for seg in (dom-children trk)
+             if (eq (dom-tag seg) 'trkseg) collect
+             (cl-loop
+              for pt in (dom-children seg)
+              if (eq (dom-tag pt) 'trkpt) collect
+              (let ((lat (string-to-number (dom-attr pt 'lat)))
+                    (lon (string-to-number (dom-attr pt 'lon))))
+                (setq min-lat (min lat min-lat)
+                      max-lat (max lat max-lat)
+                      min-lon (min lon min-lon)
+                      max-lon (max lon max-lon))
+                (cons lat lon)))))
+           (cl-loop
+            for pt in (dom-children dom)
+            if (eq (dom-tag pt) 'wpt) collect
+            (let ((lat (string-to-number (dom-attr pt 'lat)))
+                  (lon (string-to-number (dom-attr pt 'lon))))
+              (setq min-lat (min lat min-lat)
+                    max-lat (max lat max-lat)
+                    min-lon (min lon min-lon)
+                    max-lon (max lon max-lon))
+              (list lat lon (dom-text (dom-child-by-tag pt 'name)))))))
+    (osm--revert)
+    (osm--goto (/ (+ min-lat max-lat) 2) (/ (+ min-lon max-lon) 2)
+               (osm--boundingbox-to-zoom min-lat max-lat min-lon max-lon)
+               nil nil nil)))
+
+(defun osm-gpx-hide (file)
+  "Show the tracks of gpx FILE in an `osm-mode' buffer."
+  (interactive (list (completing-read "GPX file: "
+                                      (or osm--gpx-files
+                                          (error "No GPX files shown"))
+                                      nil t nil 'file-name-history)))
+  (cl-callf2 assoc-delete-all file osm--gpx-files)
+  (osm--revert))
+
+(defun osm--server-annotation (cand)
+  "Annotation for server CAND."
+  (when-let ((copyright (osm--server-property :copyright (get-text-property 0 'osm--server cand)))
+             (str
+              (replace-regexp-in-string
+               "{\\(.*?\\)|.*?}"
+               (lambda (str) (match-string 1 str))
+               (string-join (ensure-list copyright) " | ") copyright)))
+    (concat (propertize " " 'display `(space :align-to (- right ,(length str) 2)))
+            " "
+            str)))
+
+(defun osm--server-group (cand transform)
+  "Group function for server CAND with candidate TRANSFORM."
+  (if transform
+      cand
+    (osm--server-property :group (get-text-property 0 'osm--server cand))))
+
+;;;###autoload
+(defun osm-server (server)
+  "Select tile SERVER."
+  (interactive
+   (let* ((max-name (cl-loop for (_ . x) in osm-server-list
+                             maximize (length (plist-get x :name))))
+          (fmt (concat
+                (propertize (format "%%-%ds " max-name)
+                            'face 'font-lock-comment-face)
+                " %s"))
+          (servers
+           (mapcar
+            (lambda (x)
+              (propertize
+               (format fmt
+                       (plist-get (cdr x) :name)
+                       (or (plist-get (cdr x) :description) ""))
+               'osm--server (car x)))
+            osm-server-list))
+          (selected (completing-read
+                     "Server: "
+                     (lambda (str pred action)
+                       (if (eq action 'metadata)
+                           `(metadata
+                             (annotation-function
+                              . ,(and osm-copyright #'osm--server-annotation))
+                             (group-function . ,#'osm--server-group))
+                         (complete-with-action action servers str pred)))
+                     nil t nil 'osm--server-history
+                     (format fmt
+                             (osm--server-property :name)
+                             (or (osm--server-property :description) "")))))
+     (list
+      (get-text-property 0 'osm--server
+                         (or (car (member selected servers))
+                             (error "No server selected"))))))
+  (osm--goto nil nil nil server nil nil))
+
+(defun osm-save-url (&optional arg)
+  "Save coordinates as url in the kill ring.
+If prefix ARG is given, store url as Elisp expression."
+  (interactive "P" osm-mode)
+  (osm--barf-unless-osm)
+  (pcase-let* ((`(,lat ,lon ,loc) (osm--fetch-location-data "New Link"))
+               (server (and (not (eq osm-server (default-value 'osm-server))) osm-server))
+               (url (if arg
+                        (format "(osm %.6f %.6f %s%s%s)"
+                                lat lon osm--zoom
+                                (if server (format " '%s" osm-server) "")
+                                (if loc (format " %S" loc) ""))
+                      (format "geo:%.6f,%.6f;z=%s%s%s"
+                              lat lon osm--zoom
+                              (if server (format ";s=%s" osm-server) "")
+                              (if loc (format " (%s)" loc) "")))))
+    (kill-new url)
+    (message "Saved in the kill ring: %s" url)))
+
+(cl-defun osm-add-server (server
+                          &rest properties
+                          &key name description group url ext max-connections
+                          max-zoom min-zoom download-batch subdomains copyright)
+  "Add SERVER with PROPERTIES to `osm-server-list'.
+The properties are checked as keyword arguments.  See
+`osm-server-list' for documentation of the keywords."
+  (declare (indent 1))
+  (ignore name description group url ext max-connections max-zoom
+          min-zoom download-batch subdomains copyright)
+  (dolist (sym '(:name :description :group :url))
+    (unless (stringp (plist-get properties sym))
+      (error "Server property %s is required" sym)))
+  (unless (and server (symbolp server))
+    (error "Server id must be a symbol"))
+  (setf (alist-get server osm-server-list) properties)
+  nil)
+
+;;;###autoload
+(add-to-list 'browse-url-default-handlers '("\\`geo:" . osm))
+
+;;;###autoload
+(eval-after-load 'ol
+  (lambda ()
+    (declare-function org-link-set-parameters "ol")
+    (declare-function osm--org-link-props "ext:osm")
+    (org-link-set-parameters
+     "geo"
+     :follow (lambda (link _) (osm (concat "geo:" link)))
+     :store (lambda ()
+              (when (eq major-mode 'osm-mode)
+                (apply 'org-link-store-props (osm--org-link-props)))))))
+
+(provide 'osm)
+;;; osm.el ends here
diff --git a/emacs/elpa/osm-20241122.130/osm.elc b/emacs/elpa/osm-20241122.130/osm.elc
Binary files differ.
diff --git a/emacs/elpa/transient-20241115.2034/transient-pkg.el b/emacs/elpa/transient-20241115.2034/transient-pkg.el
@@ -1,12 +0,0 @@
-;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "transient" "20241115.2034"
-  "Transient commands."
-  '((emacs  "26.1")
-    (compat "30.0.0.0")
-    (seq    "2.24"))
-  :url "https://github.com/magit/transient"
-  :commit "291b86e66de3d7b73384f8751050acbdd2187ddb"
-  :revdesc "291b86e66de3"
-  :keywords '("extensions")
-  :authors '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev"))
-  :maintainers '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")))
diff --git a/emacs/elpa/transient-20241115.2034/transient.el b/emacs/elpa/transient-20241115.2034/transient.el
@@ -1,4682 +0,0 @@
-;;; transient.el --- Transient commands  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2018-2024 Free Software Foundation, Inc.
-
-;; Author: Jonas Bernoulli <emacs.transient@jonas.bernoulli.dev>
-;; Homepage: https://github.com/magit/transient
-;; Keywords: extensions
-
-;; Package-Version: 20241115.2034
-;; Package-Revision: 291b86e66de3
-;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0") (seq "2.24"))
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published
-;; by the Free Software Foundation, either version 3 of the License,
-;; or (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Transient is the library used to implement the keyboard-driven menus
-;; in Magit.  It is distributed as a separate package, so that it can be
-;; used to implement similar menus in other packages.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'compat)
-(require 'eieio)
-(require 'edmacro)
-(require 'format-spec)
-(require 'pcase)
-
-(eval-and-compile
-  (when (and (featurep 'seq)
-             (not (fboundp 'seq-keep)))
-    (unload-feature 'seq 'force)))
-(require 'seq)
-(unless (fboundp 'seq-keep)
-  (display-warning 'transient (substitute-command-keys "\
-Transient requires `seq' >= 2.24,
-but due to bad defaults, Emacs's package manager, refuses to
-upgrade this and other built-in packages to higher releases
-from GNU Elpa, when a package specifies that this is needed.
-
-To fix this, you have to add this to your init file:
-
-  (setq package-install-upgrade-built-in t)
-
-Then evaluate that expression by placing the cursor after it
-and typing \\[eval-last-sexp].
-
-Once you have done that, you have to explicitly upgrade `seq':
-
-  \\[package-upgrade] seq \\`RET'
-
-Then you also must make sure the updated version is loaded,
-by evaluating this form:
-
-  (progn (unload-feature 'seq t) (require 'seq))
-
-Until you do this, you will get random errors about `seq-keep'
-being undefined while using Transient.
-
-If you don't use the `package' package manager but still get
-this warning, then your chosen package manager likely has a
-similar defect.") :emergency))
-
-(eval-when-compile (require 'subr-x))
-
-(declare-function info "info" (&optional file-or-node buffer))
-(declare-function Man-find-section "man" (section))
-(declare-function Man-next-section "man" (n))
-(declare-function Man-getpage-in-background "man" (topic))
-
-(defvar Man-notify-method)
-(defvar pp-default-function) ; since Emacs 29.1
-
-(eval-and-compile
-  (when (< emacs-major-version 28)
-    (pcase-defmacro cl-type (type)
-      "Pcase pattern that matches objects of TYPE.
-TYPE is a type descriptor as accepted by `cl-typep', which see."
-      (static-if (< emacs-major-version 30)
-          `(pred (pcase--flip cl-typep ',type))
-        `(pred (cl-typep _ ',type))))))
-
-(defmacro transient--with-emergency-exit (id &rest body)
-  (declare (indent defun))
-  (unless (keywordp id)
-    (setq body (cons id body))
-    (setq id nil))
-  `(condition-case err
-       (let ((debugger #'transient--exit-and-debug))
-         ,(macroexp-progn body))
-     ((debug error)
-      (transient--emergency-exit ,id)
-      (signal (car err) (cdr err)))))
-
-(defun transient--exit-and-debug (&rest args)
-  (transient--emergency-exit :debugger)
-  (apply #'debug args))
-
-;;; Options
-
-(defgroup transient nil
-  "Transient commands."
-  :group 'extensions)
-
-(defcustom transient-show-popup t
-  "Whether to show the current transient in a popup buffer.
-\\<transient-map>
-- If t, then show the popup as soon as a transient prefix command
-  is invoked.
-
-- If nil, then do not show the popup unless the user explicitly
-  requests it, by pressing \\[transient-show] or a prefix key.
-
-- If a number, then delay displaying the popup and instead show
-  a brief one-line summary.  If zero or negative, then suppress
-  even showing that summary and display the pressed key only.
-
-  Show the popup when the user explicitly requests it by pressing
-  \\[transient-show] or a prefix key.  Unless zero, then also show the popup
-  after that many seconds of inactivity (using the absolute value)."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type '(choice (const  :tag "instantly" t)
-                 (const  :tag "on demand" nil)
-                 (const  :tag "on demand (no summary)" 0)
-                 (number :tag "after delay" 1)))
-
-(defcustom transient-enable-popup-navigation 'verbose
-  "Whether navigation commands are enabled in the transient popup.
-
-If the value is `verbose', additionally show brief documentation
-about the command under point in the echo area.
-
-While a transient is active the transient popup buffer is not the
-current buffer, making it necessary to use dedicated commands to
-act on that buffer itself.  If this is non-nil, then the following
-bindings are available:
-
-\\<transient-popup-navigation-map>\
-- \\[transient-backward-button] moves the cursor to the previous suffix.
-- \\[transient-forward-button] moves the cursor to the next suffix.
-- \\[transient-push-button] invokes the suffix the cursor is on.
-\\<transient-button-map>\
-- \\`<mouse-1>' and \\`<mouse-2>' invoke the clicked on suffix.
-\\<transient-popup-navigation-map>\
-- \\[transient-isearch-backward]\
- and \\[transient-isearch-forward] start isearch in the popup buffer.
-
-\\`<mouse-1>' and \\`<mouse-2>' are bound in `transient-push-button'.
-All other bindings are in `transient-popup-navigation-map'.
-
-By default \\`M-RET' is bound to `transient-push-button', instead of
-\\`RET', because if a transient allows the invocation of non-suffixes,
-then it is likely, that you would want \\`RET' to do what it would do
-if no transient were active."
-  :package-version '(transient . "0.7.8")
-  :group 'transient
-  :type '(choice (const :tag "enable navigation and echo summary" verbose)
-                 (const :tag "enable navigation commands" t)
-                 (const :tag "disable navigation commands" nil)))
-
-(defcustom transient-display-buffer-action
-  '(display-buffer-in-side-window
-    (side . bottom)
-    (dedicated . t)
-    (inhibit-same-window . t))
-  "The action used to display the transient popup buffer.
-
-The transient popup buffer is displayed in a window using
-
-  (display-buffer BUFFER transient-display-buffer-action)
-
-The value of this option has the form (FUNCTION . ALIST),
-where FUNCTION is a function or a list of functions.  Each such
-function should accept two arguments: a buffer to display and an
-alist of the same form as ALIST.  See info node `(elisp)Choosing
-Window' for details.
-
-The default is:
-
-  (display-buffer-in-side-window
-    (side . bottom)
-    (dedicated . t)
-    (inhibit-same-window . t))
-
-This displays the window at the bottom of the selected frame.
-Another useful FUNCTION is `display-buffer-below-selected', which
-is what `magit-popup' used by default.  For more alternatives see
-info node `(elisp)Display Action Functions' and info node
-`(elisp)Buffer Display Action Alists'.
-
-Note that the buffer that was current before the transient buffer
-is shown should remain the current buffer.  Many suffix commands
-act on the thing at point, if appropriate, and if the transient
-buffer became the current buffer, then that would change what is
-at point.  To that effect `inhibit-same-window' ensures that the
-selected window is not used to show the transient buffer.
-
-It may be possible to display the window in another frame, but
-whether that works in practice depends on the window-manager.
-If the window manager selects the new window (Emacs frame),
-then that unfortunately changes which buffer is current.
-
-If you change the value of this option, then you might also
-want to change the value of `transient-mode-line-format'."
-  :package-version '(transient . "0.7.5")
-  :group 'transient
-  :type '(cons (choice function (repeat :tag "Functions" function))
-               alist))
-
-(defcustom transient-mode-line-format 'line
-  "The mode-line format for the transient popup buffer.
-
-If nil, then the buffer has no mode-line.  If the buffer is not
-displayed right above the echo area, then this probably is not
-a good value.
-
-If `line' (the default) or a natural number, then the buffer has no
-mode-line, but a line is drawn in its place.  If a number is used,
-that specifies the thickness of the line.  On termcap frames we
-cannot draw lines, so there `line' and numbers are synonyms for nil.
-
-The color of the line is used to indicate if non-suffixes are
-allowed and whether they exit the transient.  The foreground
-color of `transient-key-noop' (if non-suffixes are disallowed),
-`transient-key-stay' (if allowed and transient stays active), or
-`transient-key-exit' (if allowed and they exit the transient) is
-used to draw the line.
-
-Otherwise this can be any mode-line format.
-See `mode-line-format' for details."
-  :package-version '(transient . "0.2.0")
-  :group 'transient
-  :type '(choice (const  :tag "hide mode-line" nil)
-                 (const  :tag "substitute thin line" line)
-                 (number :tag "substitute line with thickness")
-                 (const  :tag "name of prefix command"
-                         ("%e" mode-line-front-space
-                          mode-line-buffer-identification))
-                 (sexp   :tag "custom mode-line format")))
-
-(defcustom transient-show-common-commands nil
-  "Whether to show common transient suffixes in the popup buffer.
-
-These commands are always shown after typing the prefix key
-\"C-x\" when a transient command is active.  To toggle the value
-of this variable use \"C-x t\" when a transient is active."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-read-with-initial-input nil
-  "Whether to use the last history element as initial minibuffer input."
-  :package-version '(transient . "0.2.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-highlight-mismatched-keys nil
-  "Whether to highlight keys that do not match their argument.
-
-This only affects infix arguments that represent command-line
-arguments.  When this option is non-nil, then the key binding
-for infix argument are highlighted when only a long argument
-\(e.g., \"--verbose\") is specified but no shorthand (e.g., \"-v\").
-In the rare case that a short-hand is specified but does not
-match the key binding, then it is highlighted differently.
-
-The highlighting is done using `transient-mismatched-key'
-and `transient-nonstandard-key'."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-highlight-higher-levels nil
-  "Whether to highlight suffixes on higher levels.
-
-This is primarily intended for package authors.
-
-When non-nil then highlight the description of suffixes whose
-level is above 4, the default of `transient-default-level'.
-Assuming you have set that variable to 7, this highlights all
-suffixes that won't be available to users without them making
-the same customization."
-  :package-version '(transient . "0.3.6")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-substitute-key-function nil
-  "Function used to modify key bindings.
-
-This function is called with one argument, the prefix object,
-and must return a key binding description, either the existing
-key description it finds in the `key' slot, or a substitution.
-
-This is intended to let users replace certain prefix keys.  It
-could also be used to make other substitutions, but that is
-discouraged.
-
-For example, \"=\" is hard to reach using my custom keyboard
-layout, so I substitute \"(\" for that, which is easy to reach
-using a layout optimized for Lisp.
-
-  (setq transient-substitute-key-function
-        (lambda (obj)
-          (let ((key (oref obj key)))
-            (if (string-match \"\\\\`\\\\(=\\\\)[a-zA-Z]\" key)
-                (replace-match \"(\" t t key 1)
-              key)))))"
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type '(choice (const :tag "Transform no keys (nil)" nil) function))
-
-(defcustom transient-semantic-coloring t
-  "Whether to use colors to indicate transient behavior.
-
-If non-nil, then the key binding of each suffix is colorized to
-indicate whether it exits the transient state or not, and the
-line that is drawn below the transient popup buffer is used to
-indicate the behavior of non-suffix commands."
-  :package-version '(transient . "0.5.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-detect-key-conflicts nil
-  "Whether to detect key binding conflicts.
-
-Conflicts are detected when a transient prefix command is invoked
-and results in an error, which prevents the transient from being
-used."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-align-variable-pitch nil
-  "Whether to align columns pixel-wise in the popup buffer.
-
-If this is non-nil, then columns are aligned pixel-wise to
-support variable-pitch fonts.  Keys are not aligned, so you
-should use a fixed-pitch font for the `transient-key' face.
-Other key faces inherit from that face unless a theme is
-used that breaks that relationship.
-
-This option is intended for users who use a variable-pitch
-font for the `default' face.
-
-Also see `transient-force-fixed-pitch'."
-  :package-version '(transient . "0.4.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-force-fixed-pitch nil
-  "Whether to force use of monospaced font in the popup buffer.
-
-Even if you use a proportional font for the `default' face,
-you might still want to use a monospaced font in transient's
-popup buffer.  Setting this option to t causes `default' to
-be remapped to `fixed-pitch' in that buffer.
-
-Also see `transient-align-variable-pitch'."
-  :package-version '(transient . "0.2.0")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-force-single-column nil
-  "Whether to force use of a single column to display suffixes.
-
-This might be useful for users with low vision who use large
-text and might otherwise have to scroll in two dimensions."
-  :package-version '(transient . "0.3.6")
-  :group 'transient
-  :type 'boolean)
-
-(defcustom transient-hide-during-minibuffer-read nil
-  "Whether to hide the transient buffer while reading in the minibuffer."
-  :package-version '(transient . "0.4.0")
-  :group 'transient
-  :type 'boolean)
-
-(defconst transient--max-level 7)
-(defconst transient--default-child-level 1)
-(defconst transient--default-prefix-level 4)
-
-(defcustom transient-default-level transient--default-prefix-level
-  "Control what suffix levels are made available by default.
-
-Each suffix command is placed on a level and each prefix command
-has a level, which controls which suffix commands are available.
-Integers between 1 and 7 (inclusive) are valid levels.
-
-The levels of individual transients and/or their individual
-suffixes can be changed individually, by invoking the prefix and
-then pressing \"C-x l\".
-
-The default level for both transients and their suffixes is 4.
-This option only controls the default for transients.  The default
-suffix level is always 4.  The author of a transient should place
-certain suffixes on a higher level if they expect that it won't be
-of use to most users, and they should place very important suffixes
-on a lower level so that they remain available even if the user
-lowers the transient level.
-
-\(Magit currently places nearly all suffixes on level 4 and lower
-levels are not used at all yet.  So for the time being you should
-not set a lower level here and using a higher level might not
-give you as many additional suffixes as you hoped.)"
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type '(choice (const :tag "1 - fewest suffixes" 1)
-                 (const 2)
-                 (const 3)
-                 (const :tag "4 - default" 4)
-                 (const 5)
-                 (const 6)
-                 (const :tag "7 - most suffixes" 7)))
-
-(defcustom transient-levels-file
-  (locate-user-emacs-file "transient/levels.el")
-  "File used to save levels of transients and their suffixes."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'file)
-
-(defcustom transient-values-file
-  (locate-user-emacs-file "transient/values.el")
-  "File used to save values of transients."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'file)
-
-(defcustom transient-history-file
-  (locate-user-emacs-file "transient/history.el")
-  "File used to save history of transients and their infixes."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'file)
-
-(defcustom transient-history-limit 10
-  "Number of history elements to keep when saving to file."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'integer)
-
-(defcustom transient-save-history t
-  "Whether to save history of transient commands when exiting Emacs."
-  :package-version '(transient . "0.1.0")
-  :group 'transient
-  :type 'boolean)
-
-;;; Faces
-
-(defgroup transient-faces nil
-  "Faces used by Transient."
-  :group 'transient)
-
-(defface transient-heading '((t :inherit font-lock-keyword-face))
-  "Face used for headings."
-  :group 'transient-faces)
-
-(defface transient-argument '((t :inherit font-lock-string-face :weight bold))
-  "Face used for enabled arguments."
-  :group 'transient-faces)
-
-(defface transient-inactive-argument '((t :inherit shadow))
-  "Face used for inactive arguments."
-  :group 'transient-faces)
-
-(defface transient-value '((t :inherit font-lock-string-face :weight bold))
-  "Face used for values."
-  :group 'transient-faces)
-
-(defface transient-inactive-value '((t :inherit shadow))
-  "Face used for inactive values."
-  :group 'transient-faces)
-
-(defface transient-unreachable '((t :inherit shadow))
-  "Face used for suffixes unreachable from the current prefix sequence."
-  :group 'transient-faces)
-
-(defface transient-inapt-suffix '((t :inherit shadow :italic t))
-  "Face used for suffixes that are inapt at this time."
-  :group 'transient-faces)
-
-(defface transient-active-infix '((t :inherit highlight))
-  "Face used for the infix for which the value is being read."
-  :group 'transient-faces)
-
-(defface transient-enabled-suffix
-  '((t :background "green" :foreground "black" :weight bold))
-  "Face used for enabled levels while editing suffix levels.
-See info node `(transient)Enabling and Disabling Suffixes'."
-  :group 'transient-faces)
-
-(defface transient-disabled-suffix
-  '((t :background "red" :foreground "black" :weight bold))
-  "Face used for disabled levels while editing suffix levels.
-See info node `(transient)Enabling and Disabling Suffixes'."
-  :group 'transient-faces)
-
-(defface transient-higher-level
-  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
-              :color ,(let ((color (face-attribute 'shadow :foreground nil t)))
-                        (or (and (not (eq color 'unspecified)) color)
-                            "grey60")))))
-  "Face optionally used to highlight suffixes on higher levels.
-Also see option `transient-highlight-higher-levels'."
-  :group 'transient-faces)
-
-(defface transient-delimiter '((t :inherit shadow))
-  "Face used for delimiters and separators.
-This includes the parentheses around values and the pipe
-character used to separate possible values from each other."
-  :group 'transient-faces)
-
-(defface transient-key '((t :inherit font-lock-builtin-face))
-  "Face used for keys."
-  :group 'transient-faces)
-
-(defface transient-key-stay
-  `((((class color) (background light))
-     :inherit transient-key
-     :foreground "#22aa22")
-    (((class color) (background dark))
-     :inherit transient-key
-     :foreground "#ddffdd"))
-  "Face used for keys of suffixes that don't exit transient state."
-  :group 'transient-faces)
-
-(defface transient-key-noop
-  `((((class color) (background light))
-     :inherit transient-key
-     :foreground "grey80")
-    (((class color) (background dark))
-     :inherit transient-key
-     :foreground "grey30"))
-  "Face used for keys of suffixes that currently cannot be invoked."
-  :group 'transient-faces)
-
-(defface transient-key-return
-  `((((class color) (background light))
-     :inherit transient-key
-     :foreground "#aaaa11")
-    (((class color) (background dark))
-     :inherit transient-key
-     :foreground "#ffffcc"))
-  "Face used for keys of suffixes that return to the parent transient."
-  :group 'transient-faces)
-
-(defface transient-key-exit
-  `((((class color) (background light))
-     :inherit transient-key
-     :foreground "#aa2222")
-    (((class color) (background dark))
-     :inherit transient-key
-     :foreground "#ffdddd"))
-  "Face used for keys of suffixes that exit transient state."
-  :group 'transient-faces)
-
-(defface transient-unreachable-key
-  '((t :inherit (shadow transient-key) :weight normal))
-  "Face used for keys unreachable from the current prefix sequence."
-  :group 'transient-faces)
-
-(defface transient-nonstandard-key
-  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
-              :color "cyan")))
-  "Face optionally used to highlight keys conflicting with short-argument.
-Also see option `transient-highlight-mismatched-keys'."
-  :group 'transient-faces)
-
-(defface transient-mismatched-key
-  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
-              :color "magenta")))
-  "Face optionally used to highlight keys without a short-argument.
-Also see option `transient-highlight-mismatched-keys'."
-  :group 'transient-faces)
-
-;;; Persistence
-
-(defun transient--read-file-contents (file)
-  (with-demoted-errors "Transient error: %S"
-    (and (file-exists-p file)
-         (with-temp-buffer
-           (insert-file-contents file)
-           (read (current-buffer))))))
-
-(defun transient--pp-to-file (list file)
-  (make-directory (file-name-directory file) t)
-  (setq list (cl-sort (copy-sequence list) #'string< :key #'car))
-  (with-temp-file file
-    (let ((print-level nil)
-          (print-length nil)
-          (pp-default-function 'pp-28)
-          (fill-column 999))
-      (pp list (current-buffer)))))
-
-(defvar transient-values
-  (transient--read-file-contents transient-values-file)
-  "Values of transient commands.
-The value of this variable persists between Emacs sessions
-and you usually should not change it manually.")
-
-(defun transient-save-values ()
-  (transient--pp-to-file transient-values transient-values-file))
-
-(defvar transient-levels
-  (transient--read-file-contents transient-levels-file)
-  "Levels of transient commands.
-The value of this variable persists between Emacs sessions
-and you usually should not change it manually.")
-
-(defun transient-save-levels ()
-  (transient--pp-to-file transient-levels transient-levels-file))
-
-(defvar transient-history
-  (transient--read-file-contents transient-history-file)
-  "History of transient commands and infix arguments.
-The value of this variable persists between Emacs sessions
-\(unless `transient-save-history' is nil) and you usually
-should not change it manually.")
-
-(defun transient-save-history ()
-  (setq transient-history
-        (cl-sort (mapcar (pcase-lambda (`(,key . ,val))
-                           (cons key (seq-take (delete-dups val)
-                                               transient-history-limit)))
-                         transient-history)
-                 #'string< :key #'car))
-  (transient--pp-to-file transient-history transient-history-file))
-
-(defun transient-maybe-save-history ()
-  "Save the value of `transient-history'.
-If `transient-save-history' is nil, then do nothing."
-  (when transient-save-history
-    (transient-save-history)))
-
-(unless noninteractive
-  (add-hook 'kill-emacs-hook #'transient-maybe-save-history))
-
-;;; Classes
-;;;; Prefix
-
-(defclass transient-prefix ()
-  ((prototype   :initarg :prototype)
-   (command     :initarg :command)
-   (level       :initarg :level)
-   (variable    :initarg :variable    :initform nil)
-   (init-value  :initarg :init-value)
-   (value) (default-value :initarg :value)
-   (scope       :initarg :scope       :initform nil)
-   (history     :initarg :history     :initform nil)
-   (history-pos :initarg :history-pos :initform 0)
-   (history-key :initarg :history-key :initform nil)
-   (show-help   :initarg :show-help   :initform nil)
-   (info-manual :initarg :info-manual :initform nil)
-   (man-page    :initarg :man-page    :initform nil)
-   (transient-suffix     :initarg :transient-suffix     :initform nil)
-   (transient-non-suffix :initarg :transient-non-suffix :initform nil)
-   (transient-switch-frame :initarg :transient-switch-frame)
-   (refresh-suffixes     :initarg :refresh-suffixes     :initform nil)
-   (environment          :initarg :environment          :initform nil)
-   (incompatible         :initarg :incompatible         :initform nil)
-   (suffix-description   :initarg :suffix-description)
-   (variable-pitch       :initarg :variable-pitch       :initform nil)
-   (column-widths        :initarg :column-widths        :initform nil)
-   (unwind-suffix        :documentation "Internal use." :initform nil))
-  "Transient prefix command.
-
-Each transient prefix command consists of a command, which is
-stored in a symbol's function slot and an object, which is
-stored in the `transient--prefix' property of the same symbol.
-
-When a transient prefix command is invoked, then a clone of that
-object is stored in the global variable `transient--prefix' and
-the prototype is stored in the clone's `prototype' slot.")
-
-;;;; Suffix
-
-(defclass transient-child ()
-  ((level
-    :initarg :level
-    :initform (symbol-value 'transient--default-child-level)
-    :documentation "Enable if level of prefix is equal or greater.")
-   (if
-    :initarg :if
-    :initform nil
-    :documentation "Enable if predicate returns non-nil.")
-   (if-not
-    :initarg :if-not
-    :initform nil
-    :documentation "Enable if predicate returns nil.")
-   (if-non-nil
-    :initarg :if-non-nil
-    :initform nil
-    :documentation "Enable if variable's value is non-nil.")
-   (if-nil
-    :initarg :if-nil
-    :initform nil
-    :documentation "Enable if variable's value is nil.")
-   (if-mode
-    :initarg :if-mode
-    :initform nil
-    :documentation "Enable if major-mode matches value.")
-   (if-not-mode
-    :initarg :if-not-mode
-    :initform nil
-    :documentation "Enable if major-mode does not match value.")
-   (if-derived
-    :initarg :if-derived
-    :initform nil
-    :documentation "Enable if major-mode derives from value.")
-   (if-not-derived
-    :initarg :if-not-derived
-    :initform nil
-    :documentation "Enable if major-mode does not derive from value.")
-   (inapt
-    :initform nil)
-   (inapt-face
-    :initarg :inapt-face
-    :initform 'transient-inapt-suffix)
-   (inapt-if
-    :initarg :inapt-if
-    :initform nil
-    :documentation "Inapt if predicate returns non-nil.")
-   (inapt-if-not
-    :initarg :inapt-if-not
-    :initform nil
-    :documentation "Inapt if predicate returns nil.")
-   (inapt-if-non-nil
-    :initarg :inapt-if-non-nil
-    :initform nil
-    :documentation "Inapt if variable's value is non-nil.")
-   (inapt-if-nil
-    :initarg :inapt-if-nil
-    :initform nil
-    :documentation "Inapt if variable's value is nil.")
-   (inapt-if-mode
-    :initarg :inapt-if-mode
-    :initform nil
-    :documentation "Inapt if major-mode matches value.")
-   (inapt-if-not-mode
-    :initarg :inapt-if-not-mode
-    :initform nil
-    :documentation "Inapt if major-mode does not match value.")
-   (inapt-if-derived
-    :initarg :inapt-if-derived
-    :initform nil
-    :documentation "Inapt if major-mode derives from value.")
-   (inapt-if-not-derived
-    :initarg :inapt-if-not-derived
-    :initform nil
-    :documentation "Inapt if major-mode does not derive from value."))
-  "Abstract superclass for group and suffix classes.
-
-It is undefined which predicates are used if more than one `if*'
-predicate slots or more than one `inapt-if*' slots are non-nil."
-  :abstract t)
-
-(defclass transient-suffix (transient-child)
-  ((definition  :allocation :class    :initform nil)
-   (key         :initarg :key)
-   (command     :initarg :command)
-   (transient   :initarg :transient)
-   (format      :initarg :format      :initform " %k %d")
-   (description :initarg :description :initform nil)
-   (face        :initarg :face        :initform nil)
-   (show-help   :initarg :show-help   :initform nil)
-   (summary     :initarg :summary     :initform nil))
-  "Superclass for suffix command.")
-
-(defclass transient-information (transient-suffix)
-  ((format :initform " %k %d")
-   (key    :initform " "))
-  "Display-only information, aligned with suffix keys.
-Technically a suffix object with no associated command.")
-
-(defclass transient-information* (transient-information)
-  ((format :initform " %d"))
-  "Display-only information, aligned with suffix descriptions.
-Technically a suffix object with no associated command.")
-
-(defclass transient-infix (transient-suffix)
-  ((transient                         :initform t)
-   (argument    :initarg :argument)
-   (shortarg    :initarg :shortarg)
-   (value                             :initform nil)
-   (init-value  :initarg :init-value)
-   (unsavable   :initarg :unsavable   :initform nil)
-   (multi-value :initarg :multi-value :initform nil)
-   (always-read :initarg :always-read :initform nil)
-   (allow-empty :initarg :allow-empty :initform nil)
-   (history-key :initarg :history-key :initform nil)
-   (reader      :initarg :reader      :initform nil)
-   (prompt      :initarg :prompt      :initform nil)
-   (choices     :initarg :choices     :initform nil)
-   (format                            :initform " %k %d (%v)"))
-  "Transient infix command."
-  :abstract t)
-
-(defclass transient-argument (transient-infix) ()
-  "Abstract superclass for infix arguments."
-  :abstract t)
-
-(defclass transient-switch (transient-argument) ()
-  "Class used for command-line argument that can be turned on and off.")
-
-(defclass transient-option (transient-argument) ()
-  "Class used for command-line argument that can take a value.")
-
-(defclass transient-variable (transient-infix)
-  ((variable    :initarg :variable)
-   (format                            :initform " %k %d %v"))
-  "Abstract superclass for infix commands that set a variable."
-  :abstract t)
-
-(defclass transient-switches (transient-argument)
-  ((argument-format  :initarg :argument-format)
-   (argument-regexp  :initarg :argument-regexp))
-  "Class used for sets of mutually exclusive command-line switches.")
-
-(defclass transient-files (transient-option) ()
-  ((key         :initform "--")
-   (argument    :initform "--")
-   (multi-value :initform rest)
-   (reader      :initform transient-read-files))
-  "Class used for the \"--\" argument or similar.
-All remaining arguments are treated as files.
-They become the value of this argument.")
-
-(defclass transient-value-preset (transient-suffix)
-  ((transient :initform t)
-   (set :initarg := :initform nil))
-  "Class used by the `transient-preset' suffix command.")
-
-;;;; Group
-
-(defclass transient-group (transient-child)
-  ((suffixes       :initarg :suffixes       :initform nil)
-   (hide           :initarg :hide           :initform nil)
-   (description    :initarg :description    :initform nil)
-   (pad-keys       :initarg :pad-keys       :initform nil)
-   (info-format    :initarg :info-format    :initform nil)
-   (setup-children :initarg :setup-children))
-  "Abstract superclass of all group classes."
-  :abstract t)
-
-(defclass transient-column (transient-group) ()
-  "Group class that displays each element on a separate line.")
-
-(defclass transient-row (transient-group) ()
-  "Group class that displays all elements on a single line.")
-
-(defclass transient-columns (transient-group) ()
-  "Group class that displays elements organized in columns.
-Direct elements have to be groups whose elements have to be
-commands or strings.  Each subgroup represents a column.
-This class takes care of inserting the subgroups' elements.")
-
-(defclass transient-subgroups (transient-group) ()
-  "Group class that wraps other groups.
-
-Direct elements have to be groups whose elements have to be
-commands or strings.  This group inserts an empty line between
-subgroups.  The subgroups are responsible for displaying their
-elements themselves.")
-
-;;; Define
-
-(defmacro transient-define-prefix (name arglist &rest args)
-  "Define NAME as a transient prefix command.
-
-ARGLIST are the arguments that command takes.
-DOCSTRING is the documentation string and is optional.
-
-These arguments can optionally be followed by key-value pairs.
-Each key has to be a keyword symbol, either `:class' or a keyword
-argument supported by the constructor of that class.  The
-`transient-prefix' class is used if the class is not specified
-explicitly.
-
-GROUPs add key bindings for infix and suffix commands and specify
-how these bindings are presented in the popup buffer.  At least
-one GROUP has to be specified.  See info node `(transient)Binding
-Suffix and Infix Commands'.
-
-The BODY is optional.  If it is omitted, then ARGLIST is also
-ignored and the function definition becomes:
-
-  (lambda ()
-    (interactive)
-    (transient-setup \\='NAME))
-
-If BODY is specified, then it must begin with an `interactive'
-form that matches ARGLIST, and it must call `transient-setup'.
-It may however call that function only when some condition is
-satisfied; that is one of the reason why you might want to use
-an explicit BODY.
-
-All transients have a (possibly nil) value, which is exported
-when suffix commands are called, so that they can consume that
-value.  For some transients it might be necessary to have a sort
-of secondary value, called a scope.  Such a scope would usually
-be set in the commands `interactive' form and has to be passed
-to the setup function:
-
-  (transient-setup \\='NAME nil nil :scope SCOPE)
-
-\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... GROUP... [BODY...])"
-  (declare (debug ( &define name lambda-list
-                    [&optional lambda-doc]
-                    [&rest keywordp sexp]
-                    [&rest vectorp]
-                    [&optional ("interactive" interactive) def-body]))
-           (indent defun)
-           (doc-string 3))
-  (pcase-let
-      ((`(,class ,slots ,suffixes ,docstr ,body ,interactive-only)
-        (transient--expand-define-args args arglist 'transient-define-prefix)))
-    `(progn
-       (defalias ',name
-         ,(if body
-              `(lambda ,arglist ,@body)
-            `(lambda ()
-               (interactive)
-               (transient-setup ',name))))
-       (put ',name 'interactive-only ,interactive-only)
-       (put ',name 'function-documentation ,docstr)
-       (put ',name 'transient--prefix
-            (,(or class 'transient-prefix) :command ',name ,@slots))
-       (put ',name 'transient--layout
-            (list ,@(cl-mapcan (lambda (s) (transient--parse-child name s))
-                               suffixes))))))
-
-(defmacro transient-define-suffix (name arglist &rest args)
-  "Define NAME as a transient suffix command.
-
-ARGLIST are the arguments that the command takes.
-DOCSTRING is the documentation string and is optional.
-
-These arguments can optionally be followed by key-value pairs.
-Each key has to be a keyword symbol, either `:class' or a
-keyword argument supported by the constructor of that class.
-The `transient-suffix' class is used if the class is not
-specified explicitly.
-
-The BODY must begin with an `interactive' form that matches
-ARGLIST.  The infix arguments are usually accessed by using
-`transient-args' inside `interactive'.
-
-\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... [BODY...])"
-  (declare (debug ( &define name lambda-list
-                    [&optional lambda-doc]
-                    [&rest keywordp sexp]
-                    [&optional ("interactive" interactive) def-body]))
-           (indent defun)
-           (doc-string 3))
-  (pcase-let
-      ((`(,class ,slots ,_ ,docstr ,body ,interactive-only)
-        (transient--expand-define-args args arglist 'transient-define-suffix)))
-    `(progn
-       (defalias ',name
-         ,(if (and (not body) class (oref-default class definition))
-              `(oref-default ',class definition)
-            `(lambda ,arglist ,@body)))
-       (put ',name 'interactive-only ,interactive-only)
-       (put ',name 'function-documentation ,docstr)
-       (put ',name 'transient--suffix
-            (,(or class 'transient-suffix) :command ',name ,@slots)))))
-
-(defmacro transient-augment-suffix (name &rest args)
-  "Augment existing command NAME with a new transient suffix object.
-Similar to `transient-define-suffix' but define a suffix object only.
-\n\(fn NAME [KEYWORD VALUE]...)"
-  (declare (debug (&define name [&rest keywordp sexp]))
-           (indent defun))
-  (pcase-let
-      ((`(,class ,slots)
-        (transient--expand-define-args args nil 'transient-augment-suffix t)))
-    `(put ',name 'transient--suffix
-          (,(or class 'transient-suffix) :command ',name ,@slots))))
-
-(defmacro transient-define-infix (name arglist &rest args)
-  "Define NAME as a transient infix command.
-
-ARGLIST is always ignored and reserved for future use.
-DOCSTRING is the documentation string and is optional.
-
-At least one key-value pair is required.  All transient infix
-commands are equal to each other (but not eq).  It is meaning-
-less to define an infix command, without providing at least one
-keyword argument (usually `:argument' or `:variable', depending
-on the class).  The suffix class defaults to `transient-switch'
-and can be set using the `:class' keyword.
-
-The function definitions is always:
-
-  (lambda ()
-    (interactive)
-    (let ((obj (transient-suffix-object)))
-      (transient-infix-set obj (transient-infix-read obj)))
-    (transient--show))
-
-`transient-infix-read' and `transient-infix-set' are generic
-functions.  Different infix commands behave differently because
-the concrete methods are different for different infix command
-classes.  In rare case the above command function might not be
-suitable, even if you define your own infix command class.  In
-that case you have to use `transient-define-suffix' to define
-the infix command and use t as the value of the `:transient'
-keyword.
-
-\(fn NAME ARGLIST [DOCSTRING] KEYWORD VALUE [KEYWORD VALUE]...)"
-  (declare (debug ( &define name lambda-list
-                    [&optional lambda-doc]
-                    keywordp sexp
-                    [&rest keywordp sexp]))
-           (indent defun)
-           (doc-string 3))
-  (pcase-let
-      ((`(,class ,slots ,_ ,docstr ,_ ,interactive-only)
-        (transient--expand-define-args args arglist 'transient-define-infix t)))
-    `(progn
-       (defalias ',name #'transient--default-infix-command)
-       (put ',name 'interactive-only ,interactive-only)
-       (put ',name 'completion-predicate #'transient--suffix-only)
-       (put ',name 'function-documentation ,docstr)
-       (put ',name 'transient--suffix
-            (,(or class 'transient-switch) :command ',name ,@slots)))))
-
-(defalias 'transient-define-argument #'transient-define-infix
-  "Define NAME as a transient infix command.
-
-Only use this alias to define an infix command that actually
-sets an infix argument.  To define a infix command that, for
-example, sets a variable, use `transient-define-infix' instead.
-
-\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)")
-
-(defun transient--default-infix-command ()
-  ;; Most infix commands are but an alias for this command.
-  "Cannot show any documentation for this transient infix command.
-
-When you request help for an infix command using `transient-help', that
-usually shows the respective man-page and tries to jump to the location
-where the respective argument is being described.
-
-If no man-page is specified for the containing transient menu, then the
-docstring is displayed instead, if any.
-
-If the infix command doesn't have a docstring, as is the case here, then
-this docstring is displayed instead, because technically infix commands
-are aliases for `transient--default-infix-command'.
-
-`describe-function' also shows the docstring of the infix command,
-falling back to that of the same aliased command."
-  (interactive)
-  (let ((obj (transient-suffix-object)))
-    (transient-infix-set obj (transient-infix-read obj)))
-  (transient--show))
-(put 'transient--default-infix-command 'interactive-only t)
-(put 'transient--default-infix-command 'completion-predicate
-     #'transient--suffix-only)
-
-(define-advice find-function-advised-original
-    (:around (fn func) transient-default-infix)
-  "Return nil instead of `transient--default-infix-command'.
-When using `find-function' to jump to the definition of a transient
-infix command/argument, then we want to actually jump to that, not to
-the definition of `transient--default-infix-command', which all infix
-commands are aliases for."
-  (let ((val (funcall fn func)))
-    (and val (not (eq val 'transient--default-infix-command)) val)))
-
-(eval-and-compile ;transient--expand-define-args
-  (defun transient--expand-define-args (args &optional arglist form nobody)
-    ;; ARGLIST and FORM are only optional for backward compatibility.
-    ;; This is necessary because "emoji.el" from Emacs 29 calls this
-    ;; function directly, with just one argument.
-    (unless (listp arglist)
-      (error "Mandatory ARGLIST is missing"))
-    (let (class keys suffixes docstr declare (interactive-only t))
-      (when (stringp (car args))
-        (setq docstr (pop args)))
-      (while (keywordp (car args))
-        (let ((k (pop args))
-              (v (pop args)))
-          (if (eq k :class)
-              (setq class v)
-            (push k keys)
-            (push v keys))))
-      (while (let ((arg (car args)))
-               (or (vectorp arg)
-                   (and arg (symbolp arg))))
-        (push (pop args) suffixes))
-      (when (eq (car-safe (car args)) 'declare)
-        (setq declare (car args))
-        (setq args (cdr args))
-        (when-let ((int (assq 'interactive-only declare)))
-          (setq interactive-only (cadr int))
-          (delq int declare))
-        (unless (cdr declare)
-          (setq declare nil)))
-      (cond
-       ((not args))
-       (nobody
-        (error "%s: No function body allowed" form))
-       ((not (eq (car-safe (nth (if declare 1 0) args)) 'interactive))
-        (error "%s: Interactive form missing" form)))
-      (list (if (eq (car-safe class) 'quote)
-                (cadr class)
-              class)
-            (nreverse keys)
-            (nreverse suffixes)
-            docstr
-            (if declare (cons declare args) args)
-            interactive-only))))
-
-(defun transient--parse-child (prefix spec)
-  (cl-typecase spec
-    (null    (error "Invalid transient--parse-child spec: %s" spec))
-    (symbol  (let ((value (symbol-value spec)))
-               (if (and (listp value)
-                        (or (listp (car value))
-                            (vectorp (car value))))
-                   (cl-mapcan (lambda (s) (transient--parse-child prefix s)) value)
-                 (transient--parse-child prefix value))))
-    (vector  (and-let* ((c (transient--parse-group  prefix spec))) (list c)))
-    (list    (and-let* ((c (transient--parse-suffix prefix spec))) (list c)))
-    (string  (list spec))
-    (t       (error "Invalid transient--parse-child spec: %s" spec))))
-
-(defun transient--parse-group (prefix spec)
-  (let ((spec (append spec nil))
-        level class args)
-    (when (integerp (car spec))
-      (setq level (pop spec)))
-    (when (stringp (car spec))
-      (setq args (plist-put args :description (pop spec))))
-    (while (keywordp (car spec))
-      (let* ((key (pop spec))
-             (val (if spec (pop spec) (error "No value for `%s'" key))))
-        (cond ((eq key :class)
-               (setq class val))
-              ((or (symbolp val)
-                   (and (listp val) (not (eq (car val) 'lambda))))
-               (setq args (plist-put args key (macroexp-quote val))))
-              ((setq args (plist-put args key val))))))
-    (unless (or spec class (not (plist-get args :setup-children)))
-      (message "WARNING: %s: When %s is used, %s must also be specified"
-               'transient-define-prefix :setup-children :class))
-    (list 'vector
-          (or level transient--default-child-level)
-          (list 'quote
-                (cond (class)
-                      ((cl-typep (car spec)
-                                 '(or vector (and symbol (not null))))
-                       'transient-columns)
-                      ('transient-column)))
-          (and args (cons 'list args))
-          (cons 'list
-                (cl-mapcan (lambda (s) (transient--parse-child prefix s))
-                           spec)))))
-
-(defun transient--parse-suffix (prefix spec)
-  (let (level class args)
-    (cl-flet ((use (prop value)
-                (setq args (plist-put args prop value))))
-      (pcase (car spec)
-        ((cl-type integer)
-         (setq level (pop spec))))
-      (pcase (car spec)
-        ((cl-type (or string vector))
-         (use :key (pop spec))))
-      (pcase (car spec)
-        ((guard (or (stringp (car spec))
-                    (and (eq (car-safe (car spec)) 'lambda)
-                         (not (commandp (car spec))))))
-         (use :description (pop spec)))
-        ((and (cl-type (and symbol (not keyword) (not command)))
-              (guard (commandp (cadr spec))))
-         (use :description (macroexp-quote (pop spec)))))
-      (pcase (car spec)
-        ((or :info :info*))
-        ((and (cl-type keyword) invalid)
-         (error "Need command, argument, `:info' or `:info*'; got `%s'" invalid))
-        ((cl-type symbol)
-         (use :command (macroexp-quote (pop spec))))
-        ;; During macro-expansion this is expected to be a `lambda'
-        ;; expression (i.e., source code).  When this is called from a
-        ;; `:setup-children' function, it may also be a function object
-        ;; (a.k.a a function value).  However, we never treat a string
-        ;; as a command, so we have to check for that explicitly.
-        ((cl-type (and command (not string)))
-         (let ((cmd (pop spec))
-               (sym (intern
-                     (format
-                      "transient:%s:%s:%d" prefix
-                      (replace-regexp-in-string (plist-get args :key) " " "")
-                      (prog1 gensym-counter (cl-incf gensym-counter))))))
-           (use :command
-                `(prog1 ',sym
-                   (put ',sym 'interactive-only t)
-                   (put ',sym 'completion-predicate #'transient--suffix-only)
-                   (defalias ',sym ,cmd)))))
-        ((cl-type (or string (and list (not null))))
-         (let ((arg (pop spec)))
-           (cl-typecase arg
-             (list
-              (use :shortarg (car arg))
-              (use :argument (cadr arg))
-              (setq arg (cadr arg)))
-             (string
-              (when-let ((shortarg (transient--derive-shortarg arg)))
-                (use :shortarg shortarg))
-              (use :argument arg)))
-           (use :command
-                (let ((sym (intern (format "transient:%s:%s" prefix arg))))
-                  `(prog1 ',sym
-                     (put ',sym 'interactive-only t)
-                     (put ',sym 'completion-predicate #'transient--suffix-only)
-                     (defalias ',sym #'transient--default-infix-command))))
-           (pcase (car spec)
-             ((cl-type (and (not null) (not keyword)))
-              (setq class 'transient-option)
-              (use :reader (macroexp-quote (pop spec))))
-             ((guard (string-suffix-p "=" arg))
-              (setq class 'transient-option))
-             (_ (setq class 'transient-switch)))))
-        (invalid
-         (error "Need command, argument, `:info' or `:info*'; got %s" invalid)))
-      (while (keywordp (car spec))
-        (let* ((key (pop spec))
-               (val (if spec (pop spec) (error "No value for `%s'" key))))
-          (pcase key
-            (:class (setq class val))
-            (:level (setq level val))
-            (:info  (setq class 'transient-information)
-                    (use :description val))
-            (:info* (setq class 'transient-information*)
-                    (use :description val))
-            ((guard (eq (car-safe val) '\,))
-             (use key (cadr val)))
-            ((guard (or (symbolp val)
-                        (and (listp val) (not (eq (car val) 'lambda)))))
-             (use key (macroexp-quote val)))
-            (_ (use key val)))))
-      (when spec
-        (error "Need keyword, got %S" (car spec)))
-      (when-let* (((not (plist-get args :key)))
-                  (shortarg (plist-get args :shortarg)))
-        (use :key shortarg)))
-    (list 'list
-          (or level transient--default-child-level)
-          (macroexp-quote (or class 'transient-suffix))
-          (cons 'list args))))
-
-(defun transient--derive-shortarg (arg)
-  (save-match-data
-    (and (string-match "\\`\\(-[a-zA-Z]\\)\\(\\'\\|=\\)" arg)
-         (match-string 1 arg))))
-
-(defun transient-command-completion-not-suffix-only-p (symbol _buffer)
-  "Say whether SYMBOL should be offered as a completion.
-If the value of SYMBOL's `completion-predicate' property is
-`transient--suffix-only', then return nil, otherwise return t.
-This is the case when a command should only ever be used as a
-suffix of a transient prefix command (as opposed to bindings
-in regular keymaps or by using `execute-extended-command')."
-  (not (eq (get symbol 'completion-predicate) 'transient--suffix-only)))
-
-(defalias 'transient--suffix-only #'ignore
-  "Ignore ARGUMENTS, do nothing, and return nil.
-Also see `transient-command-completion-not-suffix-only-p'.
-Only use this alias as the value of the `completion-predicate'
-symbol property.")
-
-(when (and (boundp 'read-extended-command-predicate) ; since Emacs 28.1
-           (not read-extended-command-predicate))
-  (setq read-extended-command-predicate
-        #'transient-command-completion-not-suffix-only-p))
-
-(defun transient-parse-suffix (prefix suffix)
-  "Parse SUFFIX, to be added to PREFIX.
-PREFIX is a prefix command, a symbol.
-SUFFIX is a suffix command or a group specification (of
-  the same forms as expected by `transient-define-prefix').
-Intended for use in a group's `:setup-children' function."
-  (cl-assert (and prefix (symbolp prefix)))
-  (eval (car (transient--parse-child prefix suffix)) t))
-
-(defun transient-parse-suffixes (prefix suffixes)
-  "Parse SUFFIXES, to be added to PREFIX.
-PREFIX is a prefix command, a symbol.
-SUFFIXES is a list of suffix command or a group specification
-  (of the same forms as expected by `transient-define-prefix').
-Intended for use in a group's `:setup-children' function."
-  (cl-assert (and prefix (symbolp prefix)))
-  (mapcar (apply-partially #'transient-parse-suffix prefix) suffixes))
-
-;;; Edit
-
-(defun transient--insert-suffix (prefix loc suffix action &optional keep-other)
-  (let* ((suf (cl-etypecase suffix
-                (vector (transient--parse-group  prefix suffix))
-                (list   (transient--parse-suffix prefix suffix))
-                (string suffix)))
-         (mem (transient--layout-member loc prefix))
-         (elt (car mem)))
-    (setq suf (eval suf t))
-    (cond
-     ((not mem)
-      (message "Cannot insert %S into %s; %s not found"
-               suffix prefix loc))
-     ((or (and (vectorp suffix) (not (vectorp elt)))
-          (and (listp   suffix) (vectorp elt))
-          (and (stringp suffix) (vectorp elt)))
-      (message "Cannot place %S into %s at %s; %s"
-               suffix prefix loc
-               "suffixes and groups cannot be siblings"))
-     (t
-      (when-let* ((bindingp (listp suf))
-                  (key (transient--spec-key suf))
-                  (conflict (car (transient--layout-member key prefix)))
-                  (conflictp
-                   (and (not (and (eq action 'replace)
-                                  (eq conflict elt)))
-                        (or (not keep-other)
-                            (eq (plist-get (nth 2 suf) :command)
-                                (plist-get (nth 2 conflict) :command)))
-                        (equal (transient--suffix-predicate suf)
-                               (transient--suffix-predicate conflict)))))
-        (transient-remove-suffix prefix key))
-      (pcase-exhaustive action
-        ('insert  (setcdr mem (cons elt (cdr mem)))
-                  (setcar mem suf))
-        ('append  (setcdr mem (cons suf (cdr mem))))
-        ('replace (setcar mem suf)))))))
-
-;;;###autoload
-(defun transient-insert-suffix (prefix loc suffix &optional keep-other)
-  "Insert a SUFFIX into PREFIX before LOC.
-PREFIX is a prefix command, a symbol.
-SUFFIX is a suffix command or a group specification (of
-  the same forms as expected by `transient-define-prefix').
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-Remove a conflicting binding unless optional KEEP-OTHER is
-  non-nil.
-See info node `(transient)Modifying Existing Transients'."
-  (declare (indent defun))
-  (transient--insert-suffix prefix loc suffix 'insert keep-other))
-
-;;;###autoload
-(defun transient-append-suffix (prefix loc suffix &optional keep-other)
-  "Insert a SUFFIX into PREFIX after LOC.
-PREFIX is a prefix command, a symbol.
-SUFFIX is a suffix command or a group specification (of
-  the same forms as expected by `transient-define-prefix').
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-Remove a conflicting binding unless optional KEEP-OTHER is
-  non-nil.
-See info node `(transient)Modifying Existing Transients'."
-  (declare (indent defun))
-  (transient--insert-suffix prefix loc suffix 'append keep-other))
-
-;;;###autoload
-(defun transient-replace-suffix (prefix loc suffix)
-  "Replace the suffix at LOC in PREFIX with SUFFIX.
-PREFIX is a prefix command, a symbol.
-SUFFIX is a suffix command or a group specification (of
-  the same forms as expected by `transient-define-prefix').
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-See info node `(transient)Modifying Existing Transients'."
-  (declare (indent defun))
-  (transient--insert-suffix prefix loc suffix 'replace))
-
-;;;###autoload
-(defun transient-remove-suffix (prefix loc)
-  "Remove the suffix or group at LOC in PREFIX.
-PREFIX is a prefix command, a symbol.
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-See info node `(transient)Modifying Existing Transients'."
-  (declare (indent defun))
-  (transient--layout-member loc prefix 'remove))
-
-(defun transient-get-suffix (prefix loc)
-  "Return the suffix or group at LOC in PREFIX.
-PREFIX is a prefix command, a symbol.
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-See info node `(transient)Modifying Existing Transients'."
-  (if-let ((mem (transient--layout-member loc prefix)))
-      (car mem)
-    (error "%s not found in %s" loc prefix)))
-
-(defun transient-suffix-put (prefix loc prop value)
-  "Edit the suffix at LOC in PREFIX, setting PROP to VALUE.
-PREFIX is a prefix command, a symbol.
-SUFFIX is a suffix command or a group specification (of
-  the same forms as expected by `transient-define-prefix').
-LOC is a command, a key vector, a key description (a string
-  as returned by `key-description'), or a coordination list
-  (whose last element may also be a command or key).
-See info node `(transient)Modifying Existing Transients'."
-  (let ((suf (transient-get-suffix prefix loc)))
-    (setf (elt suf 2)
-          (plist-put (elt suf 2) prop value))))
-
-(defun transient--layout-member (loc prefix &optional remove)
-  (let ((val (or (get prefix 'transient--layout)
-                 (error "%s is not a transient command" prefix))))
-    (when (listp loc)
-      (while (integerp (car loc))
-        (let* ((children (if (vectorp val) (aref val 3) val))
-               (mem (transient--nthcdr (pop loc) children)))
-          (if (and remove (not loc))
-              (let ((rest (delq (car mem) children)))
-                (if (vectorp val)
-                    (aset val 3 rest)
-                  (put prefix 'transient--layout rest))
-                (setq val nil))
-            (setq val (if loc (car mem) mem)))))
-      (setq loc (car loc)))
-    (if loc
-        (transient--layout-member-1 (transient--kbd loc) val remove)
-      val)))
-
-(defun transient--layout-member-1 (loc layout remove)
-  (cond ((listp layout)
-         (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove))
-                   layout))
-        ((vectorp (car (aref layout 3)))
-         (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove))
-                   (aref layout 3)))
-        (remove
-         (aset layout 3
-               (delq (car (transient--group-member loc layout))
-                     (aref layout 3)))
-         nil)
-        ((transient--group-member loc layout))))
-
-(defun transient--group-member (loc group)
-  (cl-member-if (lambda (suffix)
-                  (and (listp suffix)
-                       (let* ((def (nth 2 suffix))
-                              (cmd (plist-get def :command)))
-                         (if (symbolp loc)
-                             (eq cmd loc)
-                           (equal (transient--kbd
-                                   (or (plist-get def :key)
-                                       (transient--command-key cmd)))
-                                  loc)))))
-                (aref group 3)))
-
-(defun transient--kbd (keys)
-  (when (vectorp keys)
-    (setq keys (key-description keys)))
-  (when (stringp keys)
-    (setq keys (kbd keys)))
-  keys)
-
-(defun transient--spec-key (spec)
-  (let ((plist (nth 2 spec)))
-    (or (plist-get plist :key)
-        (transient--command-key
-         (plist-get plist :command)))))
-
-(defun transient--command-key (cmd)
-  (and-let* ((obj (transient--suffix-prototype cmd)))
-    (cond ((slot-boundp obj 'key)
-           (oref obj key))
-          ((slot-exists-p obj 'shortarg)
-           (if (slot-boundp obj 'shortarg)
-               (oref obj shortarg)
-             (transient--derive-shortarg (oref obj argument)))))))
-
-(defun transient--nthcdr (n list)
-  (nthcdr (if (< n 0) (- (length list) (abs n)) n) list))
-
-;;; Variables
-
-(defvar transient-current-prefix nil
-  "The transient from which this suffix command was invoked.
-This is an object representing that transient, use
-`transient-current-command' to get the respective command.")
-
-(defvar transient-current-command nil
-  "The transient from which this suffix command was invoked.
-This is a symbol representing that transient, use
-`transient-current-prefix' to get the respective object.")
-
-(defvar transient-current-suffixes nil
-  "The suffixes of the transient from which this suffix command was invoked.
-This is a list of objects.  Usually it is sufficient to instead
-use the function `transient-args', which returns a list of
-values.  In complex cases it might be necessary to use this
-variable instead.")
-
-(defvar transient-exit-hook nil
-  "Hook run after exiting a transient.")
-
-(defvar transient-setup-buffer-hook nil
-  "Hook run when setting up the transient buffer.
-That buffer is current and empty when this hook runs.")
-
-(defvar transient--prefix nil)
-(defvar transient--layout nil)
-(defvar transient--suffixes nil)
-
-(defconst transient--stay t   "Do not exit the transient.")
-(defconst transient--exit nil "Do exit the transient.")
-
-(defvar transient--exitp nil "Whether to exit the transient.")
-(defvar transient--showp nil "Whether to show the transient popup buffer.")
-(defvar transient--helpp nil "Whether help-mode is active.")
-(defvar transient--editp nil "Whether edit-mode is active.")
-
-(defvar transient--refreshp nil
-  "Whether to refresh the transient completely.")
-
-(defvar transient--all-levels-p nil
-  "Whether temporary display of suffixes on all levels is active.")
-
-(defvar transient--timer nil)
-
-(defvar transient--stack nil)
-
-(defvar transient--minibuffer-depth 0)
-
-(defvar transient--buffer-name " *transient*"
-  "Name of the transient buffer.")
-
-(defvar transient--buffer nil
-  "The transient menu buffer.")
-
-(defvar transient--window nil
-  "The window used to display the transient popup buffer.")
-
-(defvar transient--original-window nil
-  "The window that was selected before the transient was invoked.
-Usually it remains selected while the transient is active.")
-
-(defvar transient--original-buffer nil
-  "The buffer that was current before the transient was invoked.
-Usually it remains current while the transient is active.")
-
-(defvar transient--restore-winconf nil
-  "Window configuration to restore after exiting help.")
-
-(defvar transient--shadowed-buffer nil
-  "The buffer that is temporarily shadowed by the transient buffer.
-This is bound while the suffix predicate is being evaluated and while
-drawing in the transient buffer.")
-
-(defvar transient--pending-suffix nil
-  "The suffix that is currently being processed.
-This is bound while the suffix predicate is being evaluated,
-and while functions that return faces are being evaluated.")
-
-(defvar transient--pending-group nil
-  "The group that is currently being processed.
-This is bound while the suffixes are drawn in the transient buffer.")
-
-(defvar transient--debug nil
-  "Whether to put debug information into *Messages*.")
-
-(defvar transient--history nil)
-
-(defvar transient--scroll-commands
-  '(transient-scroll-up
-    transient-scroll-down
-    mwheel-scroll
-    scroll-bar-toolkit-scroll))
-
-;;; Identities
-
-(defun transient-active-prefix (&optional prefixes)
-  "Return the active transient object.
-
-Return nil if there is no active transient, if the transient buffer
-isn't shown, and while the active transient is suspended (e.g., while
-the minibuffer is in use).
-
-Unlike `transient-current-prefix', which is only ever non-nil in code
-that is run directly by a command that is invoked while a transient
-is current, this function is also suitable for use in asynchronous
-code, such as timers and callbacks (this function's main use-case).
-
-If optional PREFIXES is non-nil, it must be a prefix command symbol
-or a list of symbols, in which case the active transient object is
-only returned if it matches one of PREFIXES."
-  (and transient--showp
-       transient--prefix
-       (or (not prefixes)
-           (memq (oref transient--prefix command) (ensure-list prefixes)))
-       (or (memq 'transient--pre-command pre-command-hook)
-           (and (memq t pre-command-hook)
-                (memq 'transient--pre-command
-                      (default-value 'pre-command-hook))))
-       transient--prefix))
-
-(defun transient-prefix-object ()
-  "Return the current prefix as an object.
-
-While a transient is being setup or refreshed (which involves
-preparing its suffixes) the variable `transient--prefix' can be
-used to access the prefix object.  Thus this is what has to be
-used in suffix methods such as `transient-format-description',
-and in object-specific functions that are stored in suffix slots
-such as `description'.
-
-When a suffix command is invoked (i.e., in its `interactive' form
-and function body) then the variable `transient-current-prefix'
-has to be used instead.
-
-Two distinct variables are needed, because any prefix may itself
-be used as a suffix of another prefix, and such sub-prefixes have
-to be able to tell themselves apart from the prefix they were
-invoked from.
-
-Regular suffix commands, which are not prefixes, do not have to
-concern themselves with this distinction, so they can use this
-function instead.  In the context of a plain suffix, it always
-returns the value of the appropriate variable."
-  (or transient--prefix transient-current-prefix))
-
-(defun transient-suffix-object (&optional command)
-  "Return the object associated with the current suffix command.
-
-Each suffix commands is associated with an object, which holds
-additional information about the suffix, such as its value (in
-the case of an infix command, which is a kind of suffix command).
-
-This function is intended to be called by infix commands, which
-are usually aliases of `transient--default-infix-command', which
-is defined like this:
-
-  (defun transient--default-infix-command ()
-    (interactive)
-    (let ((obj (transient-suffix-object)))
-      (transient-infix-set obj (transient-infix-read obj)))
-    (transient--show))
-
-\(User input is read outside of `interactive' to prevent the
-command from being added to `command-history'.  See #23.)
-
-Such commands need to be able to access their associated object
-to guide how `transient-infix-read' reads the new value and to
-store the read value.  Other suffix commands (including non-infix
-commands) may also need the object to guide their behavior.
-
-This function attempts to return the object associated with the
-current suffix command even if the suffix command was not invoked
-from a transient.  (For some suffix command that is a valid thing
-to do, for others it is not.)  In that case nil may be returned,
-if the command was not defined using one of the macros intended
-to define such commands.
-
-The optional argument COMMAND is intended for internal use.  If
-you are contemplating using it in your own code, then you should
-probably use this instead:
-
-  (get COMMAND \\='transient--suffix)"
-  (when command
-    (cl-check-type command command))
-  (cond
-   (transient--pending-suffix)
-   ((or transient--prefix
-        transient-current-prefix)
-    (let ((suffixes
-           (cl-remove-if-not
-            (lambda (obj)
-              (eq (oref obj command)
-                  (or command
-                      (if (eq this-command 'transient-set-level)
-                          ;; This is how it can look up for which
-                          ;; command it is setting the level.
-                          this-original-command
-                        this-command))))
-            (or transient--suffixes
-                transient-current-suffixes))))
-      (or (if (cdr suffixes)
-              (cl-find-if
-               (lambda (obj)
-                 (equal (listify-key-sequence (transient--kbd (oref obj key)))
-                        (listify-key-sequence (this-command-keys))))
-               suffixes)
-            (car suffixes))
-          ;; COMMAND is only provided if `this-command' is meaningless, in
-          ;; which case `this-command-keys' is also meaningless, making it
-          ;; impossible to disambiguate redundant bindings.
-          (if command
-              (car suffixes)
-            (error "BUG: Cannot determine suffix object")))))
-   ((and-let* ((obj (transient--suffix-prototype (or command this-command)))
-               (obj (clone obj)))
-      (progn ; work around debbugs#31840
-        (transient-init-scope obj)
-        (transient-init-value obj)
-        obj)))))
-
-(defun transient--suffix-prototype (command)
-  (or (get command 'transient--suffix)
-      (seq-some (lambda (cmd) (get cmd 'transient--suffix))
-                (function-alias-p command))))
-
-;;; Keymaps
-
-(defvar-keymap transient-base-map
-  :doc "Parent of other keymaps used by Transient.
-
-This is the parent keymap of all the keymaps that are used in
-all transients: `transient-map' (which in turn is the parent
-of the transient-specific keymaps), `transient-edit-map' and
-`transient-sticky-map'.
-
-If you change a binding here, then you might also have to edit
-`transient-sticky-map' and `transient-common-commands'.  While
-the latter isn't a proper transient prefix command, it can be
-edited using the same functions as used for transients.
-
-If you add a new command here, then you must also add a binding
-to `transient-predicate-map'."
-  "ESC ESC ESC" #'transient-quit-all
-  "C-g"     #'transient-quit-one
-  "C-q"     #'transient-quit-all
-  "C-z"     #'transient-suspend
-  "C-v"     #'transient-scroll-up
-  "C-M-v"   #'transient-scroll-down
-  "<next>"  #'transient-scroll-up
-  "<prior>" #'transient-scroll-down)
-
-(defvar transient-map
-  (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map transient-base-map)
-    (keymap-set map "C-u"   #'universal-argument)
-    (keymap-set map "C--"   #'negative-argument)
-    (keymap-set map "C-t"   #'transient-show)
-    (keymap-set map "?"     #'transient-help)
-    (keymap-set map "C-h"   #'transient-help)
-    ;; Also bound to "C-x p" and "C-x n" in transient-common-commands.
-    (keymap-set map "C-M-p" #'transient-history-prev)
-    (keymap-set map "C-M-n" #'transient-history-next)
-    (when (fboundp 'other-frame-prefix) ;Emacs >= 28.1
-      (keymap-set map "C-x 5 5" 'other-frame-prefix)
-      (keymap-set map "C-x 4 4" 'other-window-prefix))
-    map)
-  "Top-level keymap used by all transients.
-
-If you add a new command here, then you must also add a binding
-to `transient-predicate-map'.  Also see `transient-base-map'.")
-
-(defvar-keymap transient-edit-map
-  :doc "Keymap that is active while a transient in is in \"edit mode\"."
-  :parent transient-base-map
-  "?"     #'transient-help
-  "C-h"   #'transient-help
-  "C-x l" #'transient-set-level)
-
-(defvar-keymap transient-sticky-map
-  :doc "Keymap that is active while an incomplete key sequence is active."
-  :parent transient-base-map
-  "C-g" #'transient-quit-seq)
-
-(defvar transient--common-command-prefixes '(?\C-x))
-
-(put 'transient-common-commands
-     'transient--layout
-     (list
-      (eval
-       (car (transient--parse-child
-             'transient-common-commands
-             (vector
-              :hide
-              (lambda ()
-                (and (not (memq
-                           (car (bound-and-true-p transient--redisplay-key))
-                           transient--common-command-prefixes))
-                     (not transient-show-common-commands)))
-              (vector
-               "Value commands"
-               (list "C-x s  " "Set"            #'transient-set)
-               (list "C-x C-s" "Save"           #'transient-save)
-               (list "C-x C-k" "Reset"          #'transient-reset)
-               (list "C-x p  " "Previous value" #'transient-history-prev)
-               (list "C-x n  " "Next value"     #'transient-history-next))
-              (vector
-               "Sticky commands"
-               ;; Like `transient-sticky-map' except that
-               ;; "C-g" has to be bound to a different command.
-               (list "C-g" "Quit prefix or transient" #'transient-quit-one)
-               (list "C-q" "Quit transient stack"     #'transient-quit-all)
-               (list "C-z" "Suspend transient stack"  #'transient-suspend))
-              (vector
-               "Customize"
-               (list "C-x t" 'transient-toggle-common :description
-                     (lambda ()
-                       (if transient-show-common-commands
-                           "Hide common commands"
-                         "Show common permanently")))
-               (list "C-x l" "Show/hide suffixes" #'transient-set-level)
-               (list "C-x a" #'transient-toggle-level-limit)))))
-       t)))
-
-(defvar-keymap transient-popup-navigation-map
-  :doc "One of the keymaps used when popup navigation is enabled.
-See `transient-enable-popup-navigation'."
-  "<down-mouse-1>" #'transient-noop
-  "<up>"   #'transient-backward-button
-  "<down>" #'transient-forward-button
-  "C-r"    #'transient-isearch-backward
-  "C-s"    #'transient-isearch-forward
-  "M-RET"  #'transient-push-button)
-
-(defvar-keymap transient-button-map
-  :doc "One of the keymaps used when popup navigation is enabled.
-See `transient-enable-popup-navigation'."
-  "<mouse-1>" #'transient-push-button
-  "<mouse-2>" #'transient-push-button)
-
-(defvar-keymap transient-resume-mode-map
-  :doc "Keymap for `transient-resume-mode'.
-
-This keymap remaps every command that would usually just quit the
-documentation buffer to `transient-resume', which additionally
-resumes the suspended transient."
-  "<remap> <Man-quit>"    #'transient-resume
-  "<remap> <Info-exit>"   #'transient-resume
-  "<remap> <quit-window>" #'transient-resume)
-
-(defvar-keymap transient-predicate-map
-  :doc "Base keymap used to map common commands to their transient behavior.
-
-The \"transient behavior\" of a command controls, among other
-things, whether invoking the command causes the transient to be
-exited or not, and whether infix arguments are exported before
-doing so.
-
-Each \"key\" is a command that is common to all transients and
-that is bound in `transient-map', `transient-edit-map',
-`transient-sticky-map' and/or `transient-common-command'.
-
-Each binding is a \"pre-command\", a function that controls the
-transient behavior of the respective command.
-
-For transient commands that are bound in individual transients,
-the transient behavior is specified using the `:transient' slot
-of the corresponding object."
-  "<transient-suspend>"           #'transient--do-suspend
-  "<transient-help>"              #'transient--do-stay
-  "<transient-set-level>"         #'transient--do-stay
-  "<transient-history-prev>"      #'transient--do-stay
-  "<transient-history-next>"      #'transient--do-stay
-  "<universal-argument>"          #'transient--do-stay
-  "<universal-argument-more>"     #'transient--do-stay
-  "<negative-argument>"           #'transient--do-minus
-  "<digit-argument>"              #'transient--do-stay
-  "<other-frame-prefix>"          #'transient--do-stay
-  "<other-window-prefix>"         #'transient--do-stay
-  "<top-level>"                   #'transient--do-quit-all
-  "<transient-quit-all>"          #'transient--do-quit-all
-  "<transient-quit-one>"          #'transient--do-quit-one
-  "<transient-quit-seq>"          #'transient--do-stay
-  "<transient-show>"              #'transient--do-stay
-  "<transient-update>"            #'transient--do-stay
-  "<transient-toggle-common>"     #'transient--do-stay
-  "<transient-set>"               #'transient--do-call
-  "<transient-set-and-exit>"      #'transient--do-exit
-  "<transient-save>"              #'transient--do-call
-  "<transient-save-and-exit>"     #'transient--do-exit
-  "<transient-reset>"             #'transient--do-call
-  "<describe-key-briefly>"        #'transient--do-stay
-  "<describe-key>"                #'transient--do-stay
-  "<transient-scroll-up>"         #'transient--do-stay
-  "<transient-scroll-down>"       #'transient--do-stay
-  "<mwheel-scroll>"               #'transient--do-stay
-  "<scroll-bar-toolkit-scroll>"   #'transient--do-stay
-  "<transient-noop>"              #'transient--do-noop
-  "<transient-mouse-push-button>" #'transient--do-move
-  "<transient-push-button>"       #'transient--do-push-button
-  "<transient-backward-button>"   #'transient--do-move
-  "<transient-forward-button>"    #'transient--do-move
-  "<transient-isearch-backward>"  #'transient--do-move
-  "<transient-isearch-forward>"   #'transient--do-move
-  ;; If a valid but incomplete prefix sequence is followed by
-  ;; an unbound key, then Emacs calls the `undefined' command
-  ;; but does not set `this-command', `this-original-command'
-  ;; or `real-this-command' accordingly.  Instead they are nil.
-  "<nil>"                         #'transient--do-warn
-  ;; Bound to the `mouse-movement' event, this command is similar
-  ;; to `ignore'.
-  "<ignore-preserving-kill-region>" #'transient--do-noop)
-
-(defvar transient--transient-map nil)
-(defvar transient--predicate-map nil)
-(defvar transient--redisplay-map nil)
-(defvar transient--redisplay-key nil)
-
-(defun transient--push-keymap (var)
-  (let ((map (symbol-value var)))
-    (transient--debug "     push %s%s" var (if map "" " VOID"))
-    (when map
-      (with-demoted-errors "transient--push-keymap: %S"
-        (internal-push-keymap map 'overriding-terminal-local-map)))))
-
-(defun transient--pop-keymap (var)
-  (let ((map (symbol-value var)))
-    (when map
-      (transient--debug "     pop  %s" var)
-      (with-demoted-errors "transient--pop-keymap: %S"
-        (internal-pop-keymap map 'overriding-terminal-local-map)))))
-
-(defun transient--make-transient-map ()
-  (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map (if transient--editp
-                               transient-edit-map
-                             transient-map))
-    (dolist (obj transient--suffixes)
-      (let ((key (oref obj key)))
-        (when (vectorp key)
-          (setq key (key-description key))
-          (oset obj key key))
-        (when transient-substitute-key-function
-          (setq key (save-match-data
-                      (funcall transient-substitute-key-function obj)))
-          (oset obj key key))
-        (let* ((kbd (kbd key))
-               (cmd (oref obj command))
-               (alt (transient--lookup-key map kbd)))
-          (cond ((not alt)
-                 (define-key map kbd cmd))
-                ((eq alt cmd))
-                ((transient--inapt-suffix-p obj))
-                ((and-let* ((obj (transient-suffix-object alt)))
-                   (transient--inapt-suffix-p obj))
-                 (define-key map kbd cmd))
-                (transient-detect-key-conflicts
-                 (error "Cannot bind %S to %s and also %s"
-                        (string-trim key) cmd alt))
-                ((define-key map kbd cmd))))))
-    (when-let ((b (keymap-lookup map "-"))) (keymap-set map "<kp-subtract>" b))
-    (when-let ((b (keymap-lookup map "="))) (keymap-set map "<kp-equal>" b))
-    (when-let ((b (keymap-lookup map "+"))) (keymap-set map "<kp-add>" b))
-    (when transient-enable-popup-navigation
-      ;; `transient--make-redisplay-map' maps only over bindings that are
-      ;; directly in the base keymap, so that cannot be a composed keymap.
-      (set-keymap-parent
-       map (make-composed-keymap
-            (keymap-parent map)
-            transient-popup-navigation-map)))
-    map))
-
-(defun transient--make-predicate-map ()
-  (let* ((default (transient--resolve-pre-command
-                   (oref transient--prefix transient-suffix)))
-         (return (and transient--stack (eq default t)))
-         (map (make-sparse-keymap)))
-    (set-keymap-parent map transient-predicate-map)
-    (when (or (and (slot-boundp transient--prefix 'transient-switch-frame)
-                   (transient--resolve-pre-command
-                    (not (oref transient--prefix transient-switch-frame))))
-              (memq (transient--resolve-pre-command
-                     (oref transient--prefix transient-non-suffix))
-                    '(nil transient--do-warn transient--do-noop)))
-      (define-key map [handle-switch-frame] #'transient--do-suspend))
-    (dolist (obj transient--suffixes)
-      (let* ((cmd (oref obj command))
-             (kind (cond ((get cmd 'transient--prefix)    'prefix)
-                         ((cl-typep obj 'transient-infix) 'infix)
-                         (t                               'suffix))))
-        (cond
-         ((oref obj inapt)
-          (define-key map (vector cmd) #'transient--do-warn-inapt))
-         ((slot-boundp obj 'transient)
-          (define-key map (vector cmd)
-            (pcase (list kind
-                         (transient--resolve-pre-command (oref obj transient))
-                         return)
-              (`(prefix   t ,_) #'transient--do-recurse)
-              (`(prefix nil ,_) #'transient--do-stack)
-              (`(infix    t ,_) #'transient--do-stay)
-              (`(suffix   t ,_) #'transient--do-call)
-              ('(suffix nil  t) #'transient--do-return)
-              (`(,_     nil ,_) #'transient--do-exit)
-              (`(,_     ,do ,_) do))))
-         ((not (lookup-key transient-predicate-map (vector cmd)))
-          (define-key map (vector cmd)
-            (pcase (list kind default return)
-              (`(prefix ,(or 'transient--do-stay 'transient--do-call) ,_)
-               #'transient--do-recurse)
-              (`(prefix   t ,_) #'transient--do-recurse)
-              (`(prefix  ,_ ,_) #'transient--do-stack)
-              (`(infix   ,_ ,_) #'transient--do-stay)
-              (`(suffix   t ,_) #'transient--do-call)
-              ('(suffix nil  t) #'transient--do-return)
-              (`(suffix nil ,_) #'transient--do-exit)
-              (`(suffix ,do ,_) do)))))))
-    map))
-
-(defun transient--make-redisplay-map ()
-  (setq transient--redisplay-key
-        (pcase this-command
-          ('transient-update
-           (setq transient--showp t)
-           (let ((keys (listify-key-sequence (this-single-command-raw-keys))))
-             (setq unread-command-events (mapcar (lambda (key) (cons t key)) keys))
-             keys))
-          ('transient-quit-seq
-           (setq unread-command-events
-                 (butlast (listify-key-sequence
-                           (this-single-command-raw-keys))
-                          2))
-           (butlast transient--redisplay-key))
-          (_ nil)))
-  (let ((topmap (make-sparse-keymap))
-        (submap (make-sparse-keymap)))
-    (when transient--redisplay-key
-      (define-key topmap (vconcat transient--redisplay-key) submap)
-      (set-keymap-parent submap transient-sticky-map))
-    (map-keymap-internal
-     (lambda (key def)
-       (when (and (not (eq key ?\e))
-                  (listp def)
-                  (keymapp def))
-         (define-key topmap (vconcat transient--redisplay-key (list key))
-           #'transient-update)))
-     (if transient--redisplay-key
-         (let ((key (vconcat transient--redisplay-key)))
-           (or (lookup-key transient--transient-map key)
-               (and-let* ((regular (lookup-key local-function-key-map key)))
-                 (lookup-key transient--transient-map (vconcat regular)))))
-       transient--transient-map))
-    topmap))
-
-;;; Setup
-
-(defun transient-setup (&optional name layout edit &rest params)
-  "Setup the transient specified by NAME.
-
-This function is called by transient prefix commands to setup the
-transient.  In that case NAME is mandatory, LAYOUT and EDIT must
-be nil and PARAMS may be (but usually is not) used to set, e.g.,
-the \"scope\" of the transient (see `transient-define-prefix').
-
-This function is also called internally, in which case LAYOUT and
-EDIT may be non-nil."
-  (transient--debug 'setup)
-  (transient--with-emergency-exit :setup
-    (cond
-     ((not name)
-      ;; Switching between regular and edit mode.
-      (transient--pop-keymap 'transient--transient-map)
-      (transient--pop-keymap 'transient--redisplay-map)
-      (setq name (oref transient--prefix command))
-      (setq params (list :scope (oref transient--prefix scope))))
-     (transient--prefix
-      ;; Invoked as a ":transient-non-suffix 'transient--do-{stay,call}"
-      ;; of an outer prefix.  Unlike the usual `transient--do-stack',
-      ;; these predicates fail to clean up after the outer prefix.
-      (transient--pop-keymap 'transient--transient-map)
-      (transient--pop-keymap 'transient--redisplay-map))
-     ((not (or layout                      ; resuming parent/suspended prefix
-               transient-current-command)) ; entering child prefix
-      (transient--stack-zap))              ; replace suspended prefix, if any
-     (edit
-      ;; Returning from help to edit.
-      (setq transient--editp t)))
-    (transient--env-apply
-     (lambda ()
-       (transient--init-transient name layout params)
-       (transient--history-init transient--prefix)
-       (setq transient--original-window (selected-window))
-       (setq transient--original-buffer (current-buffer))
-       (setq transient--minibuffer-depth (minibuffer-depth))
-       (transient--redisplay))
-     (get name 'transient--prefix))
-    (transient--setup-transient)
-    (transient--suspend-which-key-mode)))
-
-(cl-defgeneric transient-setup-children (group children)
-  "Setup the CHILDREN of GROUP.
-If the value of the `setup-children' slot is non-nil, then call
-that function with CHILDREN as the only argument and return the
-value.  Otherwise return CHILDREN as is."
-  (if (slot-boundp group 'setup-children)
-      (funcall (oref group setup-children) children)
-    children))
-
-(defun transient--env-apply (fn &optional prefix)
-  (if-let ((env (oref (or prefix transient--prefix) environment)))
-      (funcall env fn)
-    (funcall fn)))
-
-(defun transient--init-transient (&optional name layout params)
-  (unless name
-    ;; Re-init.
-    (if (eq transient--refreshp 'updated-value)
-        ;; Preserve the prefix value this once, because the
-        ;; invoked suffix indicates that it has updated that.
-        (setq transient--refreshp (oref transient--prefix refresh-suffixes))
-      ;; Otherwise update the prefix value from suffix values.
-      (oset transient--prefix value (transient-get-value))))
-  (transient--init-objects name layout params)
-  (transient--init-keymaps))
-
-(defun transient--init-keymaps ()
-  (setq transient--predicate-map (transient--make-predicate-map))
-  (setq transient--transient-map (transient--make-transient-map))
-  (setq transient--redisplay-map (transient--make-redisplay-map)))
-
-(defun transient--init-objects (&optional name layout params)
-  (if name
-      (setq transient--prefix (transient--init-prefix name params))
-    (setq name (oref transient--prefix command)))
-  (setq transient--refreshp (oref transient--prefix refresh-suffixes))
-  (setq transient--layout (or (and (not transient--refreshp) layout)
-                              (transient--init-suffixes name)))
-  (setq transient--suffixes (transient--flatten-suffixes transient--layout)))
-
-(defun transient--init-prefix (name &optional params)
-  (let ((obj (let ((proto (get name 'transient--prefix)))
-               (apply #'clone proto
-                      :prototype proto
-                      :level (or (alist-get t (alist-get name transient-levels))
-                                 transient-default-level)
-                      params))))
-    (transient--setup-recursion obj)
-    (transient-init-value obj)
-    obj))
-
-(defun transient--init-suffixes (name)
-  (let ((levels (alist-get name transient-levels)))
-    (cl-mapcan (lambda (c) (transient--init-child levels c nil))
-               (append (get name 'transient--layout)
-                       (and (not transient--editp)
-                            (get 'transient-common-commands
-                                 'transient--layout))))))
-
-(defun transient--flatten-suffixes (layout)
-  (cl-labels ((s (def)
-                (cond
-                 ((stringp def) nil)
-                 ((cl-typep def 'transient-information) nil)
-                 ((listp def) (cl-mapcan #'s def))
-                 ((cl-typep def 'transient-group)
-                  (cl-mapcan #'s (oref def suffixes)))
-                 ((cl-typep def 'transient-suffix)
-                  (list def)))))
-    (cl-mapcan #'s layout)))
-
-(defun transient--init-child (levels spec parent)
-  (cl-etypecase spec
-    (vector  (transient--init-group  levels spec parent))
-    (list    (transient--init-suffix levels spec parent))
-    (string  (list spec))))
-
-(defun transient--init-group (levels spec parent)
-  (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
-    (and-let* (((transient--use-level-p level))
-               (obj (apply class :level level args))
-               ((transient--use-suffix-p obj))
-               ((prog1 t
-                  (when (or (and parent (oref parent inapt))
-                            (transient--inapt-suffix-p obj))
-                    (oset obj inapt t))))
-               (suffixes (cl-mapcan
-                          (lambda (c) (transient--init-child levels c obj))
-                          (transient-setup-children obj children))))
-      (progn ; work around debbugs#31840
-        (oset obj suffixes suffixes)
-        (list obj)))))
-
-(defun transient--init-suffix (levels spec parent)
-  (pcase-let* ((`(,level ,class ,args) spec)
-               (cmd (plist-get args :command))
-               (key (transient--kbd (plist-get args :key)))
-               (level (or (alist-get (cons cmd key) levels nil nil #'equal)
-                          (alist-get cmd levels)
-                          level)))
-    (let ((fn (and (symbolp cmd)
-                   (symbol-function cmd))))
-      (when (autoloadp fn)
-        (transient--debug "   autoload %s" cmd)
-        (autoload-do-load fn)))
-    (when (transient--use-level-p level)
-      (let ((obj (if (child-of-class-p class 'transient-information)
-                     (apply class :level level args)
-                   (unless (and cmd (symbolp cmd))
-                     (error "BUG: Non-symbolic suffix command: %s" cmd))
-                   (if-let ((proto (and cmd (transient--suffix-prototype cmd))))
-                       (apply #'clone proto :level level args)
-                     (apply class :command cmd :level level args)))))
-        (cond ((not cmd))
-              ((commandp cmd))
-              ((or (cl-typep obj 'transient-switch)
-                   (cl-typep obj 'transient-option))
-               ;; As a temporary special case, if the package was compiled
-               ;; with an older version of Transient, then we must define
-               ;; "anonymous" switch and option commands here.
-               (defalias cmd #'transient--default-infix-command))
-              ((transient--use-suffix-p obj)
-               (error "Suffix command %s is not defined or autoloaded" cmd)))
-        (unless (cl-typep obj 'transient-information)
-          (transient--init-suffix-key obj))
-        (when (transient--use-suffix-p obj)
-          (if (or (and parent (oref parent inapt))
-                  (transient--inapt-suffix-p obj))
-              (oset obj inapt t)
-            (transient-init-scope obj)
-            (transient-init-value obj))
-          (list obj))))))
-
-(cl-defmethod transient--init-suffix-key ((obj transient-suffix))
-  (unless (slot-boundp obj 'key)
-    (error "No key for %s" (oref obj command))))
-
-(cl-defmethod transient--init-suffix-key ((obj transient-argument))
-  (if (transient-switches--eieio-childp obj)
-      (cl-call-next-method obj)
-    (when-let* (((not (slot-boundp obj 'shortarg)))
-                (shortarg (transient--derive-shortarg (oref obj argument))))
-      (oset obj shortarg shortarg))
-    (unless (slot-boundp obj 'key)
-      (if (slot-boundp obj 'shortarg)
-          (oset obj key (oref obj shortarg))
-        (error "No key for %s" (oref obj command))))))
-
-(defun transient--use-level-p (level &optional edit)
-  (or transient--all-levels-p
-      (and transient--editp (not edit))
-      (and (>= level 1)
-           (<= level (oref transient--prefix level)))))
-
-(defun transient--use-suffix-p (obj)
-  (let ((transient--shadowed-buffer (current-buffer))
-        (transient--pending-suffix obj))
-    (transient--do-suffix-p
-     (oref obj if)
-     (oref obj if-not)
-     (oref obj if-nil)
-     (oref obj if-non-nil)
-     (oref obj if-mode)
-     (oref obj if-not-mode)
-     (oref obj if-derived)
-     (oref obj if-not-derived)
-     t)))
-
-(defun transient--inapt-suffix-p (obj)
-  (let ((transient--shadowed-buffer (current-buffer))
-        (transient--pending-suffix obj))
-    (transient--do-suffix-p
-     (oref obj inapt-if)
-     (oref obj inapt-if-not)
-     (oref obj inapt-if-nil)
-     (oref obj inapt-if-non-nil)
-     (oref obj inapt-if-mode)
-     (oref obj inapt-if-not-mode)
-     (oref obj inapt-if-derived)
-     (oref obj inapt-if-not-derived)
-     nil)))
-
-(defun transient--do-suffix-p
-    (if if-not if-nil if-non-nil if-mode if-not-mode if-derived if-not-derived
-        default)
-  (cond
-   (if                  (funcall if))
-   (if-not         (not (funcall if-not)))
-   (if-non-nil          (symbol-value if-non-nil))
-   (if-nil         (not (symbol-value if-nil)))
-   (if-mode             (if (atom if-mode)
-                            (eq major-mode if-mode)
-                          (memq major-mode if-mode)))
-   (if-not-mode    (not (if (atom if-not-mode)
-                            (eq major-mode if-not-mode)
-                          (memq major-mode if-not-mode))))
-   (if-derived          (if (or (atom if-derived)
-                                (>= emacs-major-version 30))
-                            (derived-mode-p if-derived)
-                          (apply #'derived-mode-p if-derived)))
-   (if-not-derived (not (if (or (atom if-not-derived)
-                                (>= emacs-major-version 30))
-                            (derived-mode-p if-not-derived)
-                          (apply #'derived-mode-p if-not-derived))))
-   (default)))
-
-(defun transient--suffix-predicate (spec)
-  (let ((plist (nth 2 spec)))
-    (seq-some (lambda (prop)
-                (and-let* ((pred (plist-get plist prop)))
-                  (list prop pred)))
-              '( :if :if-not
-                 :if-nil :if-non-nil
-                 :if-mode :if-not-mode
-                 :if-derived :if-not-derived
-                 :inapt-if :inapt-if-not
-                 :inapt-if-nil :inapt-if-non-nil
-                 :inapt-if-mode :inapt-if-not-mode
-                 :inapt-if-derived :inapt-if-not-derived))))
-
-;;; Flow-Control
-
-(defun transient--setup-transient ()
-  (transient--debug 'setup-transient)
-  (transient--push-keymap 'transient--transient-map)
-  (transient--push-keymap 'transient--redisplay-map)
-  (add-hook 'pre-command-hook  #'transient--pre-command)
-  (add-hook 'post-command-hook #'transient--post-command)
-  (advice-add 'recursive-edit :around #'transient--recursive-edit)
-  (when transient--exitp
-    ;; This prefix command was invoked as the suffix of another.
-    ;; Prevent `transient--post-command' from removing the hooks
-    ;; that we just added.
-    (setq transient--exitp 'replace)))
-
-(defun transient--refresh-transient ()
-  (transient--debug 'refresh-transient)
-  (transient--pop-keymap 'transient--predicate-map)
-  (transient--pop-keymap 'transient--transient-map)
-  (transient--pop-keymap 'transient--redisplay-map)
-  (transient--init-transient)
-  (transient--push-keymap 'transient--transient-map)
-  (transient--push-keymap 'transient--redisplay-map)
-  (transient--redisplay))
-
-(defun transient--pre-command ()
-  (transient--debug 'pre-command)
-  (transient--with-emergency-exit :pre-command
-    ;; The use of `overriding-terminal-local-map' does not prevent the
-    ;; lookup of command remappings in the overridden maps, which can
-    ;; lead to a suffix being remapped to a non-suffix.  We have to undo
-    ;; the remapping in that case.  However, remapping a non-suffix to
-    ;; another should remain possible.
-    (when (and (transient--get-pre-command this-original-command 'suffix)
-               (not (transient--get-pre-command this-command 'suffix)))
-      (setq this-command this-original-command))
-    (cond
-     ((memq this-command '(transient-update transient-quit-seq))
-      (transient--pop-keymap 'transient--redisplay-map))
-     ((and transient--helpp
-           (not (memq this-command '(transient-quit-one
-                                     transient-quit-all))))
-      (cond
-       ((transient-help)
-        (transient--do-suspend)
-        (setq this-command 'transient-suspend)
-        (transient--pre-exit))
-       ((not (transient--edebug-command-p))
-        (setq this-command 'transient-undefined))))
-     ((and transient--editp
-           (transient-suffix-object)
-           (not (memq this-command '(transient-quit-one
-                                     transient-quit-all
-                                     transient-help))))
-      (setq this-command 'transient-set-level)
-      (transient--wrap-command))
-     (t
-      (setq transient--exitp nil)
-      (let ((exitp (eq (transient--call-pre-command) transient--exit)))
-        (transient--wrap-command)
-        (when exitp
-          (transient--pre-exit)))))))
-
-(defun transient--pre-exit ()
-  (transient--debug 'pre-exit)
-  (transient--delete-window)
-  (transient--timer-cancel)
-  (transient--pop-keymap 'transient--transient-map)
-  (transient--pop-keymap 'transient--redisplay-map)
-  (unless transient--showp
-    (let ((message-log-max nil))
-      (message "")))
-  (setq transient--transient-map nil)
-  (setq transient--predicate-map nil)
-  (setq transient--redisplay-map nil)
-  (setq transient--redisplay-key nil)
-  (setq transient--helpp nil)
-  (setq transient--editp nil)
-  (setq transient--prefix nil)
-  (setq transient--layout nil)
-  (setq transient--suffixes nil)
-  (setq transient--original-window nil)
-  (setq transient--original-buffer nil)
-  (setq transient--window nil))
-
-(defun transient--delete-window ()
-  (when (window-live-p transient--window)
-    (let ((win transient--window)
-          (remain-in-minibuffer-window
-           (and (minibuffer-selected-window)
-                (selected-window))))
-      (cond
-       ((eq (car (window-parameter win 'quit-restore)) 'other)
-        ;; Window used to display another buffer.
-        (set-window-parameter win 'no-other-window
-                              (window-parameter win 'prev--no-other-window))
-        (set-window-parameter win 'prev--no-other-window nil))
-       ((with-demoted-errors "Error while exiting transient: %S"
-          (delete-window win))))
-      (when (buffer-live-p transient--buffer)
-        (kill-buffer transient--buffer))
-      (setq transient--buffer nil)
-      (when remain-in-minibuffer-window
-        (select-window remain-in-minibuffer-window)))))
-
-(defun transient--export ()
-  (setq transient-current-prefix transient--prefix)
-  (setq transient-current-command (oref transient--prefix command))
-  (setq transient-current-suffixes transient--suffixes)
-  (transient--history-push transient--prefix))
-
-(defun transient--suspend-override (&optional nohide)
-  (transient--debug 'suspend-override)
-  (transient--timer-cancel)
-  (cond ((and (not nohide) transient-hide-during-minibuffer-read)
-         (transient--delete-window))
-        ((and transient--prefix transient--redisplay-key)
-         (setq transient--redisplay-key nil)
-         (when transient--showp
-           (if-let ((win (minibuffer-selected-window)))
-               (with-selected-window win
-                 (transient--show))
-             (transient--show)))))
-  (transient--pop-keymap 'transient--transient-map)
-  (transient--pop-keymap 'transient--redisplay-map)
-  (remove-hook 'pre-command-hook  #'transient--pre-command)
-  (remove-hook 'post-command-hook #'transient--post-command))
-
-(defun transient--resume-override (&optional _ignore)
-  (transient--debug 'resume-override)
-  (when (and transient--showp transient-hide-during-minibuffer-read)
-    (transient--show))
-  (transient--push-keymap 'transient--transient-map)
-  (transient--push-keymap 'transient--redisplay-map)
-  (add-hook 'pre-command-hook  #'transient--pre-command)
-  (add-hook 'post-command-hook #'transient--post-command))
-
-(defun transient--recursive-edit (fn)
-  (transient--debug 'recursive-edit)
-  (if (not transient--prefix)
-      (funcall fn)
-    (transient--suspend-override (bound-and-true-p edebug-active))
-    (funcall fn) ; Already unwind protected.
-    (cond ((memq this-command '(top-level abort-recursive-edit))
-           (setq transient--exitp t)
-           (transient--post-exit this-command)
-           (transient--delete-window))
-          (transient--prefix
-           (transient--resume-override)))))
-
-(defmacro transient--with-suspended-override (&rest body)
-  (let ((depth (make-symbol "depth"))
-        (setup (make-symbol "setup"))
-        (exit  (make-symbol "exit")))
-    `(if (and transient--transient-map
-              (memq transient--transient-map
-                    overriding-terminal-local-map))
-         (let ((,depth (1+ (minibuffer-depth))) ,setup ,exit)
-           (setq ,setup
-                 (lambda () "@transient--with-suspended-override"
-                   (transient--debug 'minibuffer-setup)
-                   (remove-hook 'minibuffer-setup-hook ,setup)
-                   (transient--suspend-override)))
-           (setq ,exit
-                 (lambda () "@transient--with-suspended-override"
-                   (transient--debug 'minibuffer-exit)
-                   (when (= (minibuffer-depth) ,depth)
-                     (transient--resume-override))))
-           (unwind-protect
-               (progn
-                 (add-hook 'minibuffer-setup-hook ,setup)
-                 (add-hook 'minibuffer-exit-hook ,exit)
-                 ,@body)
-             (remove-hook 'minibuffer-setup-hook ,setup)
-             (remove-hook 'minibuffer-exit-hook ,exit)))
-       ,@body)))
-
-(defun transient--wrap-command ()
-  (static-if (>= emacs-major-version 30)
-      (letrec
-          ((prefix transient--prefix)
-           (suffix this-command)
-           (advice
-            (lambda (fn &rest args)
-              (interactive
-               (lambda (spec)
-                 (let ((abort t))
-                   (unwind-protect
-                       (prog1 (let ((debugger #'transient--exit-and-debug))
-                                (advice-eval-interactive-spec spec))
-                         (setq abort nil))
-                     (when abort
-                       (when-let ((unwind (oref prefix unwind-suffix)))
-                         (transient--debug 'unwind-interactive)
-                         (funcall unwind suffix))
-                       (advice-remove suffix advice)
-                       (oset prefix unwind-suffix nil))))))
-              (unwind-protect
-                  (let ((debugger #'transient--exit-and-debug))
-                    (apply fn args))
-                (when-let ((unwind (oref prefix unwind-suffix)))
-                  (transient--debug 'unwind-command)
-                  (funcall unwind suffix))
-                (advice-remove suffix advice)
-                (oset prefix unwind-suffix nil)))))
-        (when (symbolp this-command)
-          (advice-add suffix :around advice '((depth . -99))))
-        (cl-assert
-         (>= emacs-major-version 30) nil
-         "Emacs was downgraded, making it necessary to recompile Transient"))
-    ;; (< emacs-major-version 30)
-    (let* ((prefix transient--prefix)
-           (suffix this-command)
-           (advice nil)
-           (advice-interactive
-            (lambda (spec)
-              (let ((abort t))
-                (unwind-protect
-                    (prog1 (let ((debugger #'transient--exit-and-debug))
-                             (advice-eval-interactive-spec spec))
-                      (setq abort nil))
-                  (when abort
-                    (when-let ((unwind (oref prefix unwind-suffix)))
-                      (transient--debug 'unwind-interactive)
-                      (funcall unwind suffix))
-                    (advice-remove suffix advice)
-                    (oset prefix unwind-suffix nil))))))
-           (advice-body
-            (lambda (fn &rest args)
-              (unwind-protect
-                  (let ((debugger #'transient--exit-and-debug))
-                    (apply fn args))
-                (when-let ((unwind (oref prefix unwind-suffix)))
-                  (transient--debug 'unwind-command)
-                  (funcall unwind suffix))
-                (advice-remove suffix advice)
-                (oset prefix unwind-suffix nil)))))
-      (setq advice `(lambda (fn &rest args)
-                      (interactive ,advice-interactive)
-                      (apply ',advice-body fn args)))
-      (when (symbolp this-command)
-        (advice-add suffix :around advice '((depth . -99)))))))
-
-(defun transient--premature-post-command ()
-  (and (equal (this-command-keys-vector) [])
-       (= (minibuffer-depth)
-          (1+ transient--minibuffer-depth))
-       (progn
-         (transient--debug 'premature-post-command)
-         (transient--suspend-override)
-         (oset (or transient--prefix transient-current-prefix)
-               unwind-suffix
-               (if transient--exitp
-                   #'transient--post-exit
-                 #'transient--resume-override))
-         t)))
-
-(defun transient--post-command ()
-  (unless (transient--premature-post-command)
-    (transient--debug 'post-command)
-    (transient--with-emergency-exit :post-command
-      (cond (transient--exitp (transient--post-exit))
-            ;; If `this-command' is the current transient prefix, then we
-            ;; have already taken care of updating the transient buffer...
-            ((and (eq this-command (oref transient--prefix command))
-                  ;; ... but if `prefix-arg' is non-nil, then the values
-                  ;; of `this-command' and `real-this-command' are untrue
-                  ;; because `prefix-command-preserve-state' changes them.
-                  ;; We cannot use `current-prefix-arg' because it is set
-                  ;; too late (in `command-execute'), and if it were set
-                  ;; earlier, then we likely still would not be able to
-                  ;; rely on it, and `prefix-command-preserve-state-hook'
-                  ;; would have to be used to record that a universal
-                  ;; argument is in effect.
-                  (not prefix-arg)))
-            (transient--refreshp
-             (transient--env-apply #'transient--refresh-transient))
-            ((let ((old transient--redisplay-map)
-                   (new (transient--make-redisplay-map)))
-               (unless (equal old new)
-                 (transient--pop-keymap 'transient--redisplay-map)
-                 (setq transient--redisplay-map new)
-                 (transient--push-keymap 'transient--redisplay-map))
-               (transient--env-apply #'transient--redisplay)))))
-    (setq transient-current-prefix nil)
-    (setq transient-current-command nil)
-    (setq transient-current-suffixes nil)))
-
-(defun transient--post-exit (&optional command)
-  (transient--debug 'post-exit)
-  (unless (and (eq transient--exitp 'replace)
-               (or transient--prefix
-                   ;; The current command could act as a prefix,
-                   ;; but decided not to call `transient-setup',
-                   ;; or it is prevented from doing so because it
-                   ;; uses the minibuffer and the user aborted
-                   ;; that.
-                   (prog1 nil
-                     (if (let ((obj (transient-suffix-object command)))
-                           (and (slot-boundp obj 'transient)
-                                (oref obj transient)))
-                         ;; This sub-prefix is a transient suffix;
-                         ;; go back to outer prefix, by calling
-                         ;; `transient--stack-pop' further down.
-                         (setq transient--exitp nil)
-                       (transient--stack-zap)))))
-    (remove-hook 'pre-command-hook  #'transient--pre-command)
-    (remove-hook 'post-command-hook #'transient--post-command)
-    (advice-remove 'recursive-edit #'transient--recursive-edit))
-  (let ((resume (and transient--stack
-                     (not (memq transient--exitp '(replace suspend))))))
-    (unless (or resume (eq transient--exitp 'replace))
-      (setq transient--showp nil))
-    (setq transient--exitp nil)
-    (setq transient--helpp nil)
-    (setq transient--editp nil)
-    (setq transient--all-levels-p nil)
-    (setq transient--minibuffer-depth 0)
-    (run-hooks 'transient-exit-hook)
-    (when command
-      (setq transient-current-prefix nil)
-      (setq transient-current-command nil)
-      (setq transient-current-suffixes nil))
-    (when resume
-      (transient--stack-pop))))
-
-(defun transient--stack-push ()
-  (transient--debug 'stack-push)
-  (push (list (oref transient--prefix command)
-              transient--layout
-              transient--editp
-              :transient-suffix (oref transient--prefix transient-suffix)
-              :scope (oref transient--prefix scope))
-        transient--stack))
-
-(defun transient--stack-pop ()
-  (transient--debug 'stack-pop)
-  (and transient--stack
-       (prog1 t (apply #'transient-setup (pop transient--stack)))))
-
-(defun transient--stack-zap ()
-  (transient--debug 'stack-zap)
-  (setq transient--stack nil))
-
-(defun transient--redisplay ()
-  (if (or (eq transient-show-popup t)
-          transient--showp)
-      (unless
-          (or (memq this-command transient--scroll-commands)
-              (and (or (memq this-command '(mouse-drag-region
-                                            mouse-set-region))
-                       (equal (key-description (this-command-keys-vector))
-                              "<mouse-movement>"))
-                   (and (eq (current-buffer) transient--buffer))))
-        (transient--show))
-    (when (and (numberp transient-show-popup)
-               (not (zerop transient-show-popup))
-               (not transient--timer))
-      (transient--timer-start))
-    (transient--show-brief)))
-
-(defun transient--timer-start ()
-  (setq transient--timer
-        (run-at-time (abs transient-show-popup) nil
-                     (lambda ()
-                       (transient--timer-cancel)
-                       (transient--show)
-                       (let ((message-log-max nil))
-                         (message ""))))))
-
-(defun transient--timer-cancel ()
-  (when transient--timer
-    (cancel-timer transient--timer)
-    (setq transient--timer nil)))
-
-(defun transient--debug (arg &rest args)
-  (when transient--debug
-    (let ((inhibit-message (not (eq transient--debug 'message))))
-      (if (symbolp arg)
-          (message "-- %-22s (cmd: %s, event: %S, exit: %s%s)"
-                   arg
-                   (cond ((and (symbolp this-command) this-command))
-                         ((fboundp 'help-fns-function-name)
-                          (help-fns-function-name this-command))
-                         ((byte-code-function-p this-command)
-                          "#[...]")
-                         (this-command))
-                   (key-description (this-command-keys-vector))
-                   transient--exitp
-                   (cond ((keywordp (car args))
-                          (format ", from: %s"
-                                  (substring (symbol-name (car args)) 1)))
-                         ((stringp (car args))
-                          (concat ", " (apply #'format args)))
-                         ((functionp (car args))
-                          (concat ", " (apply (car args) (cdr args))))
-                         ("")))
-        (apply #'message arg args)))))
-
-(defun transient--emergency-exit (&optional id)
-  "Exit the current transient command after an error occurred.
-When no transient is active (i.e., when `transient--prefix' is
-nil) then do nothing.  Optional ID is a keyword identifying the
-exit."
-  (transient--debug 'emergency-exit id)
-  (when transient--prefix
-    (setq transient--stack nil)
-    (setq transient--exitp t)
-    (transient--pre-exit)
-    (transient--post-exit this-command)))
-
-;;; Pre-Commands
-
-(defun transient--call-pre-command ()
-  (if-let ((fn (transient--get-pre-command this-command)))
-      (let ((action (funcall fn)))
-        (when (eq action transient--exit)
-          (setq transient--exitp (or transient--exitp t)))
-        action)
-    (if (let ((keys (this-command-keys-vector)))
-          (eq (aref keys (1- (length keys))) ?\C-g))
-        (setq this-command 'transient-noop)
-      (unless (transient--edebug-command-p)
-        (setq this-command 'transient-undefined)))
-    transient--stay))
-
-(defun transient--get-pre-command (&optional cmd enforce-type)
-  (or (and (not (eq enforce-type 'non-suffix))
-           (symbolp cmd)
-           (lookup-key transient--predicate-map (vector cmd)))
-      (and (not (eq enforce-type 'suffix))
-           (transient--resolve-pre-command
-            (oref transient--prefix transient-non-suffix)
-            t))))
-
-(defun transient--resolve-pre-command (pre &optional resolve-boolean)
-  (cond ((booleanp pre)
-         (if resolve-boolean
-             (if pre #'transient--do-stay #'transient--do-warn)
-           pre))
-        ((string-match-p "--do-" (symbol-name pre)) pre)
-        ((let ((sym (intern (format "transient--do-%s" pre))))
-           (if (functionp sym) sym pre)))))
-
-(defun transient--do-stay ()
-  "Call the command without exporting variables and stay transient."
-  transient--stay)
-
-(defun transient--do-noop ()
-  "Call `transient-noop' and stay transient."
-  (setq this-command 'transient-noop)
-  transient--stay)
-
-(defun transient--do-warn ()
-  "Call `transient-undefined' and stay transient."
-  (setq this-command 'transient-undefined)
-  transient--stay)
-
-(defun transient--do-warn-inapt ()
-  "Call `transient-inapt' and stay transient."
-  (setq this-command 'transient-inapt)
-  transient--stay)
-
-(defun transient--do-call ()
-  "Call the command after exporting variables and stay transient."
-  (transient--export)
-  transient--stay)
-
-(defun transient--do-return ()
-  "Call the command after exporting variables and return to parent prefix.
-If there is no parent prefix, then behave like `transient--do-exit'."
-  (if (not transient--stack)
-      (transient--do-exit)
-    (transient--export)
-    transient--exit))
-
-(defun transient--do-exit ()
-  "Call the command after exporting variables and exit the transient."
-  (transient--export)
-  (transient--stack-zap)
-  transient--exit)
-
-(defun transient--do-leave ()
-  "Call the command without exporting variables and exit the transient."
-  (transient--stack-zap)
-  transient--exit)
-
-(defun transient--do-push-button ()
-  "Call the command represented by the activated button.
-Use that command's pre-command to determine transient behavior."
-  (if (and (mouse-event-p last-command-event)
-           (not (eq (posn-window (event-start last-command-event))
-                    transient--window)))
-      transient--stay
-    (setq this-command
-          (with-selected-window transient--window
-            (get-text-property (if (mouse-event-p last-command-event)
-                                   (posn-point (event-start last-command-event))
-                                 (point))
-                               'command)))
-    (transient--call-pre-command)))
-
-(defun transient--do-recurse ()
-  "Call the transient prefix command, preparing for return to active transient.
-If there is no parent prefix, then just call the command."
-  (transient--do-stack))
-
-(defun transient--setup-recursion (prefix-obj)
-  (when transient--stack
-    (let ((command (oref prefix-obj command)))
-      (when-let ((suffix-obj (transient-suffix-object command)))
-        (when (memq (if (slot-boundp suffix-obj 'transient)
-                        (oref suffix-obj transient)
-                      (oref transient-current-prefix transient-suffix))
-                    (list t #'transient--do-recurse))
-          (oset prefix-obj transient-suffix t))))))
-
-(defun transient--do-stack ()
-  "Call the transient prefix command, stacking the active transient.
-Push the active transient to the transient stack."
-  (transient--export)
-  (transient--stack-push)
-  (setq transient--exitp 'replace)
-  transient--exit)
-
-(defun transient--do-replace ()
-  "Call the transient prefix command, replacing the active transient.
-Do not push the active transient to the transient stack."
-  (transient--export)
-  (setq transient--exitp 'replace)
-  transient--exit)
-
-(defun transient--do-suspend ()
-  "Suspend the active transient, saving the transient stack."
-  (transient--stack-push)
-  (setq transient--exitp 'suspend)
-  transient--exit)
-
-(defun transient--do-quit-one ()
-  "If active, quit help or edit mode, else exit the active transient."
-  (cond (transient--helpp
-         (setq transient--helpp nil)
-         transient--stay)
-        (transient--editp
-         (setq transient--editp nil)
-         (transient-setup)
-         transient--stay)
-        (prefix-arg
-         transient--stay)
-        (transient--exit)))
-
-(defun transient--do-quit-all ()
-  "Exit all transients without saving the transient stack."
-  (transient--stack-zap)
-  transient--exit)
-
-(defun transient--do-move ()
-  "Call the command if `transient-enable-popup-navigation' is non-nil.
-In that case behave like `transient--do-stay', otherwise similar
-to `transient--do-warn'."
-  (unless transient-enable-popup-navigation
-    (setq this-command 'transient-inhibit-move))
-  transient--stay)
-
-(defun transient--do-minus ()
-  "Call `negative-argument' or pivot to `transient-update'.
-If `negative-argument' is invoked using \"-\" then preserve the
-prefix argument and pivot to `transient-update'."
-  (when (equal (this-command-keys) "-")
-    (setq this-command 'transient-update))
-  transient--stay)
-
-(put 'transient--do-stay       'transient-face 'transient-key-stay)
-(put 'transient--do-noop       'transient-face 'transient-key-noop)
-(put 'transient--do-warn       'transient-face 'transient-key-noop)
-(put 'transient--do-warn-inapt 'transient-face 'transient-key-noop)
-(put 'transient--do-call       'transient-face 'transient-key-stay)
-(put 'transient--do-return     'transient-face 'transient-key-return)
-(put 'transient--do-exit       'transient-face 'transient-key-exit)
-(put 'transient--do-leave      'transient-face 'transient-key-exit)
-
-(put 'transient--do-recurse    'transient-face 'transient-key-stay)
-(put 'transient--do-stack      'transient-face 'transient-key-stay)
-(put 'transient--do-replace    'transient-face 'transient-key-exit)
-(put 'transient--do-suspend    'transient-face 'transient-key-exit)
-
-(put 'transient--do-quit-one   'transient-face 'transient-key-return)
-(put 'transient--do-quit-all   'transient-face 'transient-key-exit)
-(put 'transient--do-move       'transient-face 'transient-key-stay)
-(put 'transient--do-minus      'transient-face 'transient-key-stay)
-
-;;; Commands
-;;;; Noop
-
-(defun transient-noop ()
-  "Do nothing at all."
-  (interactive))
-
-(defun transient-undefined ()
-  "Warn the user that the pressed key is not bound to any suffix."
-  (interactive)
-  (transient--invalid "Unbound suffix"))
-
-(defun transient-inapt ()
-  "Warn the user that the invoked command is inapt."
-  (interactive)
-  (transient--invalid "Inapt command"))
-
-(defun transient--invalid (msg)
-  (ding)
-  (message "%s: `%s' (Use `%s' to abort, `%s' for help)%s"
-           msg
-           (propertize (key-description (this-single-command-keys))
-                       'face 'font-lock-warning-face)
-           (propertize "C-g" 'face 'transient-key)
-           (propertize "?"   'face 'transient-key)
-           ;; `this-command' is `transient-undefined' or `transient-inapt'.
-           ;; Show the command (`this-original-command') the user actually
-           ;; tried to invoke.
-           (if-let ((cmd (or (ignore-errors (symbol-name this-original-command))
-                             (ignore-errors (symbol-name this-command)))))
-               (format " [%s]" (propertize cmd 'face 'font-lock-warning-face))
-             ""))
-  (unless (and transient--transient-map
-               (memq transient--transient-map overriding-terminal-local-map))
-    (let ((transient--prefix (or transient--prefix 'sic)))
-      (transient--emergency-exit))
-    (view-lossage)
-    (other-window 1)
-    (display-warning 'transient "Inconsistent transient state detected.
-This should never happen.
-Please open an issue and post the shown command log." :error)))
-
-(defun transient-inhibit-move ()
-  "Warn the user that popup navigation is disabled."
-  (interactive)
-  (message "To enable use of `%s', please customize `%s'"
-           this-original-command
-           'transient-enable-popup-navigation))
-
-;;;; Core
-
-(defun transient-quit-all ()
-  "Exit all transients without saving the transient stack."
-  (interactive))
-
-(defun transient-quit-one ()
-  "Exit the current transients, returning to outer transient, if any."
-  (interactive))
-
-(defun transient-quit-seq ()
-  "Abort the current incomplete key sequence."
-  (interactive))
-
-(defun transient-update ()
-  "Redraw the transient's state in the popup buffer."
-  (interactive)
-  (setq prefix-arg current-prefix-arg))
-
-(defun transient-show ()
-  "Show the transient's state in the popup buffer."
-  (interactive)
-  (setq transient--showp t))
-
-(defun transient-push-button ()
-  "Invoke the suffix command represented by this button."
-  (interactive))
-
-;;;; Suspend
-
-(defun transient-suspend ()
-  "Suspend the current transient.
-It can later be resumed using `transient-resume', while no other
-transient is active."
-  (interactive))
-
-(define-minor-mode transient-resume-mode
-  "Auxiliary minor-mode used to resume a transient after viewing help.")
-
-(defun transient-resume ()
-  "Resume a previously suspended stack of transients."
-  (interactive)
-  (cond (transient--stack
-         (let ((winconf transient--restore-winconf))
-           (kill-local-variable 'transient--restore-winconf)
-           (when transient-resume-mode
-             (transient-resume-mode -1)
-             (quit-window))
-           (when winconf
-             (set-window-configuration winconf)))
-         (transient--stack-pop))
-        (transient-resume-mode
-         (kill-local-variable 'transient--restore-winconf)
-         (transient-resume-mode -1)
-         (quit-window))
-        (t
-         (message "No suspended transient command"))))
-
-;;;; Help
-
-(defun transient-help (&optional interactive)
-  "Show help for the active transient or one of its suffixes.\n\n(fn)"
-  (interactive (list t))
-  (if interactive
-      (setq transient--helpp t)
-    (with-demoted-errors "transient-help: %S"
-      (when (lookup-key transient--transient-map
-                        (this-single-command-raw-keys))
-        (setq transient--helpp nil)
-        (let ((winconf (current-window-configuration)))
-          (transient-show-help
-           (if (eq this-original-command 'transient-help)
-               transient--prefix
-             (or (transient-suffix-object)
-                 this-original-command)))
-          (setq-local transient--restore-winconf winconf))
-        (fit-window-to-buffer nil (frame-height) (window-height))
-        (transient-resume-mode)
-        (message (substitute-command-keys
-                  "Type \\`q' to resume transient command."))
-        t))))
-
-;;;; Level
-
-(defun transient-set-level (&optional command level)
-  "Set the level of the transient or one of its suffix commands."
-  (interactive
-   (let ((command this-original-command)
-         (prefix (oref transient--prefix command)))
-     (and (or (not (eq command 'transient-set-level))
-              (and transient--editp
-                   (setq command prefix)))
-          (list command
-                (let ((keys (this-single-command-raw-keys)))
-                  (and (lookup-key transient--transient-map keys)
-                       (progn
-                         (transient--show)
-                         (string-to-number
-                          (transient--read-number-N
-                           (format "Set level for `%s': " command)
-                           nil nil (not (eq command prefix)))))))))))
-  (cond
-   ((not command)
-    (setq transient--editp t)
-    (transient-setup))
-   (level
-    (let* ((prefix (oref transient--prefix command))
-           (alist (alist-get prefix transient-levels))
-           (akey command))
-      (cond ((eq command prefix)
-             (oset transient--prefix level level)
-             (setq akey t))
-            (t
-             (oset (transient-suffix-object command) level level)
-             (when (cdr (cl-remove-if-not (lambda (obj)
-                                            (eq (oref obj command) command))
-                                          transient--suffixes))
-               (setq akey (cons command (this-command-keys))))))
-      (setf (alist-get akey alist) level)
-      (setf (alist-get prefix transient-levels) alist))
-    (transient-save-levels)
-    (transient--show))
-   (t
-    (transient-undefined))))
-
-(transient-define-suffix transient-toggle-level-limit ()
-  "Toggle whether to temporarily displayed suffixes on all levels."
-  :description
-  (lambda ()
-    (cond
-     ((= transient-default-level transient--max-level)
-      "Always displaying all levels")
-     (transient--all-levels-p
-      (format "Hide suffix %s"
-              (propertize
-               (format "levels > %s" (oref (transient-prefix-object) level))
-               'face 'transient-higher-level)))
-     ("Show all suffix levels")))
-  :inapt-if (lambda () (= transient-default-level transient--max-level))
-  :transient t
-  (interactive)
-  (setq transient--all-levels-p (not transient--all-levels-p))
-  (setq transient--refreshp t))
-
-;;;; Value
-
-(defun transient-set ()
-  "Set active transient's value for this Emacs session."
-  (interactive)
-  (transient-set-value (transient-prefix-object)))
-
-(defalias 'transient-set-and-exit #'transient-set
-  "Set active transient's value for this Emacs session and exit.")
-
-(defun transient-save ()
-  "Save active transient's value for this and future Emacs sessions."
-  (interactive)
-  (transient-save-value (transient-prefix-object)))
-
-(defalias 'transient-save-and-exit #'transient-save
-  "Save active transient's value for this and future Emacs sessions and exit.")
-
-(defun transient-reset ()
-  "Clear the set and saved values of the active transient."
-  (interactive)
-  (transient-reset-value (transient-prefix-object)))
-
-(defun transient-history-next ()
-  "Switch to the next value used for the active transient."
-  (interactive)
-  (let* ((obj transient--prefix)
-         (pos (1- (oref obj history-pos)))
-         (hst (oref obj history)))
-    (if (< pos 0)
-        (user-error "End of history")
-      (oset obj history-pos pos)
-      (oset obj value (nth pos hst))
-      (mapc #'transient-init-value transient--suffixes))))
-
-(defun transient-history-prev ()
-  "Switch to the previous value used for the active transient."
-  (interactive)
-  (let* ((obj transient--prefix)
-         (pos (1+ (oref obj history-pos)))
-         (hst (oref obj history))
-         (len (length hst)))
-    (if (> pos (1- len))
-        (user-error "End of history")
-      (oset obj history-pos pos)
-      (oset obj value (nth pos hst))
-      (mapc #'transient-init-value transient--suffixes))))
-
-(transient-define-suffix transient-preset ()
-  "Put this preset into action."
-  :class transient-value-preset
-  (interactive)
-  (transient-prefix-set (oref (transient-suffix-object) set)))
-
-;;;; Auxiliary
-
-(defun transient-toggle-common ()
-  "Toggle whether common commands are permanently shown."
-  (interactive)
-  (setq transient-show-common-commands (not transient-show-common-commands)))
-
-(defun transient-toggle-debug ()
-  "Toggle debugging statements for transient commands."
-  (interactive)
-  (setq transient--debug (not transient--debug))
-  (message "Debugging transient %s"
-           (if transient--debug "enabled" "disabled")))
-
-(transient-define-suffix transient-echo-arguments (arguments)
-  "Show the transient's active ARGUMENTS in the echo area.
-Intended for use in prefixes used for demonstration purposes,
-such as when suggesting a new feature or reporting an issue."
-  :transient t
-  :description "Echo arguments"
-  :key "x"
-  (interactive (list (transient-args transient-current-command)))
-  (message "%s: %s"
-           (key-description (this-command-keys))
-           (mapconcat (lambda (arg)
-                        (propertize (if (string-match-p " " arg)
-                                        (format "%S" arg)
-                                      arg)
-                                    'face 'transient-argument))
-                      arguments " ")))
-
-;;; Value
-;;;; Init
-
-(cl-defgeneric transient-init-scope (obj)
-  "Set the scope of the suffix object OBJ.
-
-The scope is actually a property of the transient prefix, not of
-individual suffixes.  However it is possible to invoke a suffix
-command directly instead of from a transient.  In that case, if
-the suffix expects a scope, then it has to determine that itself
-and store it in its `scope' slot.
-
-This function is called for all suffix commands, but unless a
-concrete method is implemented this falls through to the default
-implementation, which is a noop.")
-
-(cl-defmethod transient-init-scope ((_   transient-suffix))
-  "Noop." nil)
-
-(cl-defgeneric transient-init-value (_)
-  "Set the initial value of the object OBJ.
-
-This function is called for all prefix and suffix commands.
-
-For suffix commands (including infix argument commands) the
-default implementation is a noop.  Classes derived from the
-abstract `transient-infix' class must implement this function.
-Non-infix suffix commands usually don't have a value."
-  nil)
-
-(cl-defmethod transient-init-value :around ((obj transient-prefix))
-  "If bound, then call OBJ's `init-value' function.
-Otherwise call the primary method according to object's class."
-  (if (slot-boundp obj 'init-value)
-      (funcall (oref obj init-value) obj)
-    (cl-call-next-method obj)))
-
-(cl-defmethod transient-init-value :around ((obj transient-infix))
-  "If bound, then call OBJ's `init-value' function.
-Otherwise call the primary method according to object's class."
-  (if (slot-boundp obj 'init-value)
-      (funcall (oref obj init-value) obj)
-    (cl-call-next-method obj)))
-
-(cl-defmethod transient-init-value ((obj transient-prefix))
-  (if (slot-boundp obj 'value)
-      (oref obj value)
-    (oset obj value
-          (if-let ((saved (assq (oref obj command) transient-values)))
-              (cdr saved)
-            (transient-default-value obj)))))
-
-(cl-defmethod transient-init-value ((obj transient-argument))
-  (oset obj value
-        (let ((value (oref transient--prefix value))
-              (argument (and (slot-boundp obj 'argument)
-                             (oref obj argument)))
-              (multi-value (oref obj multi-value))
-              (case-fold-search nil)
-              (regexp (if (slot-exists-p obj 'argument-regexp)
-                          (oref obj argument-regexp)
-                        (format "\\`%s\\(.*\\)" (oref obj argument)))))
-          (if (memq multi-value '(t rest))
-              (cdr (assoc argument value))
-            (let ((match (lambda (v)
-                           (and (stringp v)
-                                (string-match regexp v)
-                                (match-string 1 v)))))
-              (if multi-value
-                  (delq nil (mapcar match value))
-                (cl-some match value)))))))
-
-(cl-defmethod transient-init-value ((obj transient-switch))
-  (oset obj value
-        (car (member (oref obj argument)
-                     (oref transient--prefix value)))))
-
-;;;; Default
-
-(cl-defgeneric transient-default-value (_)
-  "Return the default value."
-  nil)
-
-(cl-defmethod transient-default-value ((obj transient-prefix))
-  (if-let ((default (and (slot-boundp obj 'default-value)
-                         (oref obj default-value))))
-      (if (functionp default)
-          (funcall default)
-        default)
-    nil))
-
-;;;; Read
-
-(cl-defgeneric transient-infix-read (obj)
-  "Determine the new value of the infix object OBJ.
-
-This function merely determines the value; `transient-infix-set'
-is used to actually store the new value in the object.
-
-For most infix classes this is done by reading a value from the
-user using the reader specified by the `reader' slot (using the
-`transient-infix' method described below).
-
-For some infix classes the value is changed without reading
-anything in the minibuffer, i.e., the mere act of invoking the
-infix command determines what the new value should be, based
-on the previous value.")
-
-(cl-defmethod transient-infix-read :around ((obj transient-infix))
-  "Refresh the transient buffer and call the next method.
-
-Also wrap `cl-call-next-method' with two macros:
-- `transient--with-suspended-override' allows use of minibuffer.
-- `transient--with-emergency-exit' arranges for the transient to
-  be exited in case of an error."
-  (transient--show)
-  (transient--with-emergency-exit :infix-read
-    (transient--with-suspended-override
-     (cl-call-next-method obj))))
-
-(cl-defmethod transient-infix-read ((obj transient-infix))
-  "Read a value while taking care of history.
-
-This method is suitable for a wide variety of infix commands,
-including but not limited to inline arguments and variables.
-
-If you do not use this method for your own infix class, then
-you should likely replicate a lot of the behavior of this
-method.  If you fail to do so, then users might not appreciate
-the lack of history, for example.
-
-Only for very simple classes that toggle or cycle through a very
-limited number of possible values should you replace this with a
-simple method that does not handle history.  (E.g., for a command
-line switch the only possible values are \"use it\" and \"don't use
-it\", in which case it is pointless to preserve history.)"
-  (with-slots (value multi-value always-read allow-empty choices) obj
-    (if (and value
-             (not multi-value)
-             (not always-read)
-             transient--prefix)
-        (oset obj value nil)
-      (let* ((enable-recursive-minibuffers t)
-             (reader (oref obj reader))
-             (choices (if (functionp choices) (funcall choices) choices))
-             (prompt (transient-prompt obj))
-             (value (if multi-value (string-join value ",") value))
-             (history-key (or (oref obj history-key)
-                              (oref obj command)))
-             (transient--history (alist-get history-key transient-history))
-             (transient--history (if (or (null value)
-                                         (eq value (car transient--history)))
-                                     transient--history
-                                   (cons value transient--history)))
-             (initial-input (and transient-read-with-initial-input
-                                 (car transient--history)))
-             (history (if initial-input
-                          (cons 'transient--history 1)
-                        'transient--history))
-             (value
-              (cond
-               (reader (funcall reader prompt initial-input history))
-               (multi-value
-                (completing-read-multiple prompt choices nil nil
-                                          initial-input history))
-               (choices
-                (completing-read prompt choices nil t initial-input history))
-               ((read-string prompt initial-input history)))))
-        (cond ((and (equal value "") (not allow-empty))
-               (setq value nil))
-              ((and (equal value "\"\"") allow-empty)
-               (setq value "")))
-        (when value
-          (when (and (bound-and-true-p ivy-mode)
-                     (stringp (car transient--history)))
-            (set-text-properties 0 (length (car transient--history)) nil
-                                 (car transient--history)))
-          (setf (alist-get history-key transient-history)
-                (delete-dups transient--history)))
-        value))))
-
-(cl-defmethod transient-infix-read ((obj transient-switch))
-  "Toggle the switch on or off."
-  (if (oref obj value) nil (oref obj argument)))
-
-(cl-defmethod transient-infix-read ((obj transient-switches))
-  "Cycle through the mutually exclusive switches.
-The last value is \"don't use any of these switches\"."
-  (let ((choices (mapcar (apply-partially #'format (oref obj argument-format))
-                         (oref obj choices))))
-    (if-let ((value (oref obj value)))
-        (cadr (member value choices))
-      (car choices))))
-
-(cl-defmethod transient-infix-read ((command symbol))
-  "Elsewhere use the reader of the infix command COMMAND.
-Use this if you want to share an infix's history with a regular
-stand-alone command."
-  (if-let ((obj (transient--suffix-prototype command)))
-      (cl-letf (((symbol-function #'transient--show) #'ignore))
-        (transient-infix-read obj))
-    (error "Not a suffix command: `%s'" command)))
-
-;;;; Readers
-
-(defun transient-read-file (prompt _initial-input _history)
-  "Read a file."
-  (file-local-name (expand-file-name (read-file-name prompt))))
-
-(defun transient-read-existing-file (prompt _initial-input _history)
-  "Read an existing file."
-  (file-local-name (expand-file-name (read-file-name prompt nil nil t))))
-
-(defun transient-read-directory (prompt _initial-input _history)
-  "Read a directory."
-  (file-local-name (expand-file-name (read-directory-name prompt))))
-
-(defun transient-read-existing-directory (prompt _initial-input _history)
-  "Read an existing directory."
-  (file-local-name (expand-file-name (read-directory-name prompt nil nil t))))
-
-(defun transient-read-number-N0 (prompt initial-input history)
-  "Read a natural number (including zero) and return it as a string."
-  (transient--read-number-N prompt initial-input history t))
-
-(defun transient-read-number-N+ (prompt initial-input history)
-  "Read a natural number (excluding zero) and return it as a string."
-  (transient--read-number-N prompt initial-input history nil))
-
-(defun transient--read-number-N (prompt initial-input history include-zero)
-  (save-match-data
-    (cl-block nil
-      (while t
-        (let ((str (read-from-minibuffer prompt initial-input nil nil history)))
-          (when (or (string-equal str "")
-                    (string-match-p (if include-zero
-                                        "\\`\\(0\\|[1-9][0-9]*\\)\\'"
-                                      "\\`[1-9][0-9]*\\'")
-                                    str))
-            (cl-return str)))
-        (message "Please enter a natural number (%s zero)."
-                 (if include-zero "including" "excluding"))
-        (sit-for 1)))))
-
-(defun transient-read-date (prompt default-time _history)
-  "Read a date using `org-read-date' (which see)."
-  (require 'org)
-  (when (fboundp 'org-read-date)
-    (org-read-date 'with-time nil nil prompt default-time)))
-
-;;;; Prompt
-
-(cl-defgeneric transient-prompt (obj)
-  "Return the prompt to be used to read infix object OBJ's value.")
-
-(cl-defmethod transient-prompt ((obj transient-infix))
-  "Return the prompt to be used to read infix object OBJ's value.
-
-This implementation should be suitable for almost all infix
-commands.
-
-If the value of OBJ's `prompt' slot is non-nil, then it must be
-a string or a function.  If it is a string, then use that.  If
-it is a function, then call that with OBJ as the only argument.
-That function must return a string, which is then used as the
-prompt.
-
-Otherwise, if the value of either the `argument' or `variable'
-slot of OBJ is a string, then base the prompt on that (preferring
-the former), appending either \"=\" (if it appears to be a
-command-line option) or \": \".
-
-Finally fall through to using \"(BUG: no prompt): \" as the
-prompt."
-  (if-let ((prompt (oref obj prompt)))
-      (let ((prompt (if (functionp prompt)
-                        (funcall prompt obj)
-                      prompt)))
-        (if (stringp prompt)
-            prompt
-          "(BUG: no prompt): "))
-    (or (and-let* ((arg (and (slot-boundp obj 'argument) (oref obj argument))))
-          (if (and (stringp arg) (string-suffix-p "=" arg))
-              arg
-            (concat arg ": ")))
-        (and-let* ((var (and (slot-boundp obj 'variable) (oref obj variable))))
-          (and (stringp var)
-               (concat var ": ")))
-        "(BUG: no prompt): ")))
-
-;;;; Set
-
-(cl-defgeneric transient-infix-set (obj value)
-  "Set the value of infix object OBJ to VALUE.")
-
-(cl-defmethod transient-infix-set ((obj transient-infix) value)
-  "Set the value of infix object OBJ to VALUE."
-  (oset obj value value))
-
-(cl-defmethod transient-infix-set :after ((obj transient-argument) value)
-  "Unset incompatible infix arguments."
-  (when-let* ((value)
-              (val (transient-infix-value obj))
-              (arg (if (slot-boundp obj 'argument)
-                       (oref obj argument)
-                     (oref obj argument-format)))
-              (spec (oref transient--prefix incompatible))
-              (filter (lambda (x rule)
-                        (and (member x rule)
-                             (remove x rule))))
-              (incomp (nconc
-                       (cl-mapcan (apply-partially filter arg) spec)
-                       (and (not (equal val arg))
-                            (cl-mapcan (apply-partially filter val) spec)))))
-    (dolist (obj transient--suffixes)
-      (when-let* (((cl-typep obj 'transient-argument))
-                  (val (transient-infix-value obj))
-                  (arg (if (slot-boundp obj 'argument)
-                           (oref obj argument)
-                         (oref obj argument-format)))
-                  ((if (equal val arg)
-                       (member arg incomp)
-                     (or (member val incomp)
-                         (member arg incomp)))))
-        (transient-infix-set obj nil)))))
-
-(defun transient-prefix-set (value)
-  "Set the value of the active transient prefix to VALUE.
-Intended for use by transient suffix commands."
-  (oset transient--prefix value value)
-  (setq transient--refreshp 'updated-value))
-
-(cl-defgeneric transient-set-value (obj)
-  "Persist the value of the transient prefix OBJ.
-Only intended for use by `transient-set'.
-Also see `transient-prefix-set'.")
-
-(cl-defmethod transient-set-value ((obj transient-prefix))
-  (oset (oref obj prototype) value (transient-get-value))
-  (transient--history-push obj))
-
-;;;; Save
-
-(cl-defgeneric transient-save-value (obj)
-  "Save the value of the transient prefix OBJ.")
-
-(cl-defmethod transient-save-value ((obj transient-prefix))
-  (let ((value (transient-get-value)))
-    (oset (oref obj prototype) value value)
-    (setf (alist-get (oref obj command) transient-values) value)
-    (transient-save-values))
-  (transient--history-push obj))
-
-;;;; Reset
-
-(cl-defgeneric transient-reset-value (obj)
-  "Clear the set and saved values of the transient prefix OBJ.")
-
-(cl-defmethod transient-reset-value ((obj transient-prefix))
-  (let ((value (transient-default-value obj)))
-    (oset obj value value)
-    (oset (oref obj prototype) value value)
-    (setf (alist-get (oref obj command) transient-values nil 'remove) nil)
-    (transient-save-values))
-  (transient--history-push obj)
-  (mapc #'transient-init-value transient--suffixes))
-
-;;;; Get
-
-(defun transient-args (prefix)
-  "Return the value of the transient prefix command PREFIX.
-If the current command was invoked from the transient prefix
-command PREFIX, then return the active infix arguments.  If
-the current command was not invoked from PREFIX, then return
-the set, saved or default value for PREFIX."
-  (cl-mapcan #'transient--get-wrapped-value (transient-suffixes prefix)))
-
-(defun transient-suffixes (prefix)
-  "Return the suffix objects of the transient prefix command PREFIX."
-  (if (eq transient-current-command prefix)
-      transient-current-suffixes
-    (let ((transient--prefix (transient--init-prefix prefix)))
-      (transient--flatten-suffixes
-       (transient--init-suffixes prefix)))))
-
-(defun transient-get-value ()
-  (transient--with-emergency-exit :get-value
-    (cl-mapcan (lambda (obj)
-                 (and (or (not (slot-exists-p obj 'unsavable))
-                          (not (oref obj unsavable)))
-                      (transient--get-wrapped-value obj)))
-               (or transient--suffixes transient-current-suffixes))))
-
-(defun transient--get-wrapped-value (obj)
-  (and-let* ((value (transient-infix-value obj)))
-    (pcase-exhaustive (and (slot-exists-p obj 'multi-value)
-                           (oref obj multi-value))
-      ('nil          (list value))
-      ((or 't 'rest) (list value))
-      ('repeat       value))))
-
-(cl-defgeneric transient-infix-value (obj)
-  "Return the value of the suffix object OBJ.
-
-This function is called by `transient-args' (which see), meaning
-this function is how the value of a transient is determined so
-that the invoked suffix command can use it.
-
-Currently most values are strings, but that is not set in stone.
-Nil is not a value, it means \"no value\".
-
-Usually only infixes have a value, but see the method for
-`transient-suffix'.")
-
-(cl-defmethod transient-infix-value ((_   transient-suffix))
-  "Return nil, which means \"no value\".
-
-Infix arguments contribute the transient's value while suffix
-commands consume it.  This function is called for suffixes anyway
-because a command that both contributes to the transient's value
-and also consumes it is not completely unconceivable.
-
-If you define such a command, then you must define a derived
-class and implement this function because this default method
-does nothing." nil)
-
-(cl-defmethod transient-infix-value ((obj transient-infix))
-  "Return the value of OBJ's `value' slot."
-  (oref obj value))
-
-(cl-defmethod transient-infix-value ((obj transient-option))
-  "Return ARGUMENT and VALUE as a unit or nil if the latter is nil."
-  (and-let* ((value (oref obj value)))
-    (let ((arg (oref obj argument)))
-      (pcase-exhaustive (oref obj multi-value)
-        ('nil          (concat arg value))
-        ((or 't 'rest) (cons arg value))
-        ('repeat       (mapcar (lambda (v) (concat arg v)) value))))))
-
-(cl-defmethod transient-infix-value ((_   transient-variable))
-  "Return nil, which means \"no value\".
-
-Setting the value of a variable is done by, well, setting the
-value of the variable.  I.e., this is a side-effect and does
-not contribute to the value of the transient."
-  nil)
-
-;;;; Utilities
-
-(defun transient-arg-value (arg args)
-  "Return the value of ARG as it appears in ARGS.
-
-For a switch return a boolean.  For an option return the value as
-a string, using the empty string for the empty value, or nil if
-the option does not appear in ARGS."
-  (if (string-suffix-p "=" arg)
-      (save-match-data
-        (and-let* ((match (let ((case-fold-search nil)
-                                (re (format "\\`%s\\(?:=\\(.+\\)\\)?\\'"
-                                            (substring arg 0 -1))))
-                            (cl-find-if (lambda (a)
-                                          (and (stringp a)
-                                               (string-match re a)))
-                                        args))))
-          (or (match-string 1 match) "")))
-    (and (member arg args) t)))
-
-(defun transient-scope ()
-  "Return the value of the `scope' slot of the current prefix."
-  (oref (transient-prefix-object) scope))
-
-;;; History
-
-(cl-defgeneric transient--history-key (obj)
-  "Return OBJ's history key.
-If the value of the `history-key' slot is non-nil, then return
-that.  Otherwise return the value of the `command' slot."
-  (or (oref obj history-key)
-      (oref obj command)))
-
-(cl-defgeneric transient--history-push (obj)
-  "Push the current value of OBJ to its entry in `transient-history'."
-  (let ((key (transient--history-key obj)))
-    (setf (alist-get key transient-history)
-          (let ((args (transient-get-value)))
-            (cons args (delete args (alist-get key transient-history)))))))
-
-(cl-defgeneric transient--history-init (obj)
-  "Initialize OBJ's `history' slot.
-This is the transient-wide history; many individual infixes also
-have a history of their own.")
-
-(cl-defmethod transient--history-init ((obj transient-prefix))
-  "Initialize OBJ's `history' slot from the variable `transient-history'."
-  (let ((val (oref obj value)))
-    (oset obj history
-          (cons val (delete val (alist-get (transient--history-key obj)
-                                           transient-history))))))
-
-;;; Draw
-
-(defun transient--show-brief ()
-  (let ((message-log-max nil))
-    (if (and transient-show-popup (<= transient-show-popup 0))
-        (message "%s-" (key-description (this-command-keys)))
-      (message
-       "%s- [%s] %s"
-       (key-description (this-command-keys))
-       (oref transient--prefix command)
-       (mapconcat
-        #'identity
-        (sort
-         (cl-mapcan
-          (lambda (suffix)
-            (let ((key (kbd (oref suffix key))))
-              ;; Don't list any common commands.
-              (and (not (memq (oref suffix command)
-                              `(,(lookup-key transient-map key)
-                                ,(lookup-key transient-sticky-map key)
-                                ;; From transient-common-commands:
-                                transient-set
-                                transient-save
-                                transient-history-prev
-                                transient-history-next
-                                transient-quit-one
-                                transient-toggle-common
-                                transient-set-level)))
-                   (list (propertize (oref suffix key) 'face 'transient-key)))))
-          transient--suffixes)
-         #'string<)
-        (propertize "|" 'face 'transient-delimiter))))))
-
-(defun transient--show ()
-  (transient--timer-cancel)
-  (setq transient--showp t)
-  (let ((transient--shadowed-buffer (current-buffer))
-        (focus nil))
-    (setq transient--buffer (get-buffer-create transient--buffer-name))
-    (with-current-buffer transient--buffer
-      (when transient-enable-popup-navigation
-        (setq focus (or (button-get (point) 'command)
-                        (and (not (bobp))
-                             (button-get (1- (point)) 'command))
-                        (transient--heading-at-point))))
-      (erase-buffer)
-      (run-hooks 'transient-setup-buffer-hook)
-      (when transient-force-fixed-pitch
-        (transient--force-fixed-pitch))
-      (setq window-size-fixed (if (window-full-height-p) 'width t))
-      (when (bound-and-true-p tab-line-format)
-        (setq tab-line-format nil))
-      (setq header-line-format nil)
-      (setq mode-line-format
-            (if (or (natnump transient-mode-line-format)
-                    (eq transient-mode-line-format 'line))
-                nil
-              transient-mode-line-format))
-      (setq mode-line-buffer-identification
-            (symbol-name (oref transient--prefix command)))
-      (if transient-enable-popup-navigation
-          (setq-local cursor-in-non-selected-windows 'box)
-        (setq cursor-type nil))
-      (setq display-line-numbers nil)
-      (setq show-trailing-whitespace nil)
-      (transient--insert-groups)
-      (when (or transient--helpp transient--editp)
-        (transient--insert-help))
-      (when-let ((line (transient--separator-line)))
-        (insert line)))
-    (unless (window-live-p transient--window)
-      (setq transient--window
-            (display-buffer transient--buffer
-                            transient-display-buffer-action)))
-    (when (window-live-p transient--window)
-      (with-selected-window transient--window
-        (set-window-parameter nil 'prev--no-other-window
-                              (window-parameter nil 'no-other-window))
-        (set-window-parameter nil 'no-other-window t)
-        (goto-char (point-min))
-        (when transient-enable-popup-navigation
-          (transient--goto-button focus))
-        (transient--fit-window-to-buffer transient--window)))))
-
-(defun transient--fit-window-to-buffer (window)
-  (let ((window-resize-pixelwise t)
-        (window-size-fixed nil))
-    (if (eq (car (window-parameter window 'quit-restore)) 'other)
-        ;; Grow but never shrink window that previously displayed
-        ;; another buffer and is going to display that again.
-        (fit-window-to-buffer window nil (window-height window))
-      (fit-window-to-buffer window nil 1))))
-
-(defun transient--separator-line ()
-  (and-let* ((height (cond ((not window-system) nil)
-                           ((natnump transient-mode-line-format)
-                            transient-mode-line-format)
-                           ((eq transient-mode-line-format 'line) 1)))
-             (face `(,@(and (>= emacs-major-version 27) '(:extend t))
-                     :background
-                     ,(or (face-foreground (transient--key-face nil 'non-suffix)
-                                           nil t)
-                          "#gray60"))))
-    (concat (propertize "__" 'face face 'display `(space :height (,height)))
-            (propertize "\n" 'face face 'line-height t))))
-
-(defmacro transient-with-shadowed-buffer (&rest body)
-  "While in the transient buffer, temporarily make the shadowed buffer current."
-  (declare (indent 0) (debug t))
-  `(with-current-buffer (or transient--shadowed-buffer (current-buffer))
-     ,@body))
-
-(defun transient--insert-groups ()
-  (let ((groups (cl-mapcan (lambda (group)
-                             (let ((hide (oref group hide)))
-                               (and (not (and (functionp hide)
-                                              (transient-with-shadowed-buffer
-                                                (funcall hide))))
-                                    (list group))))
-                           transient--layout)))
-    (while-let ((group (pop groups)))
-      (transient--insert-group group)
-      (when groups
-        (insert ?\n)))))
-
-(defvar transient--max-group-level 1)
-
-(cl-defgeneric transient--insert-group (group)
-  "Format GROUP and its elements and insert the result.")
-
-(cl-defmethod transient--insert-group :around ((group transient-group))
-  "Insert GROUP's description, if any."
-  (when-let ((desc (transient-with-shadowed-buffer
-                     (transient-format-description group))))
-    (insert desc ?\n))
-  (let ((transient--max-group-level
-         (max (oref group level) transient--max-group-level))
-        (transient--pending-group group))
-    (cl-call-next-method group)))
-
-(cl-defmethod transient--insert-group ((group transient-row))
-  (transient--maybe-pad-keys group)
-  (dolist (suffix (oref group suffixes))
-    (insert (transient-with-shadowed-buffer (transient-format suffix)))
-    (insert "   "))
-  (insert ?\n))
-
-(cl-defmethod transient--insert-group ((group transient-column)
-                                       &optional skip-empty)
-  (transient--maybe-pad-keys group)
-  (dolist (suffix (oref group suffixes))
-    (let ((str (transient-with-shadowed-buffer (transient-format suffix))))
-      (unless (and (not skip-empty) (equal str ""))
-        (insert str)
-        (unless (string-match-p ".\n\\'" str)
-          (insert ?\n))))))
-
-(cl-defmethod transient--insert-group ((group transient-columns))
-  (if transient-force-single-column
-      (dolist (group (oref group suffixes))
-        (transient--insert-group group t))
-    (let* ((columns
-            (mapcar
-             (lambda (column)
-               (transient--maybe-pad-keys column group)
-               (transient-with-shadowed-buffer
-                 `(,@(and-let* ((desc (transient-format-description column)))
-                       (list desc))
-                   ,@(let ((transient--pending-group column))
-                       (mapcar #'transient-format (oref column suffixes))))))
-             (oref group suffixes)))
-           (stops (transient--column-stops columns)))
-      (dolist (row (apply #'transient--mapn #'list columns))
-        (let ((stops stops))
-          (dolist (cell row)
-            (let ((stop (pop stops)))
-              (when cell
-                (transient--align-to stop)
-                (insert cell)))))
-        (insert ?\n)))))
-
-(cl-defmethod transient--insert-group ((group transient-subgroups))
-  (let ((subgroups (oref group suffixes)))
-    (while-let ((subgroup (pop subgroups)))
-      (transient--maybe-pad-keys subgroup group)
-      (transient--insert-group subgroup)
-      (when subgroups
-        (insert ?\n)))))
-
-(cl-defgeneric transient-format (obj)
-  "Format and return OBJ for display.
-
-When this function is called, then the current buffer is some
-temporary buffer.  If you need the buffer from which the prefix
-command was invoked to be current, then do so by temporarily
-making `transient--original-buffer' current.")
-
-(cl-defmethod transient-format ((arg string))
-  "Return the string ARG after applying the `transient-heading' face."
-  (propertize arg 'face 'transient-heading))
-
-(cl-defmethod transient-format ((_   null))
-  "Return a string containing just the newline character."
-  "\n")
-
-(cl-defmethod transient-format ((arg integer))
-  "Return a string containing just the ARG character."
-  (char-to-string arg))
-
-(cl-defmethod transient-format :around ((obj transient-suffix))
-  "Add additional formatting if appropriate.
-When reading user input for this infix, then highlight it.
-When edit-mode is enabled, then prepend the level information.
-When `transient-enable-popup-navigation' is non-nil then format
-as a button."
-  (let ((str (cl-call-next-method obj)))
-    (when (and (cl-typep obj 'transient-infix)
-               (eq (oref obj command) this-original-command)
-               (active-minibuffer-window))
-      (setq str (transient--add-face str 'transient-active-infix)))
-    (when transient--editp
-      (setq str (concat (let ((level (oref obj level)))
-                          (propertize (format " %s " level)
-                                      'face (if (transient--use-level-p level t)
-                                                'transient-enabled-suffix
-                                              'transient-disabled-suffix)))
-                        str)))
-    (when (and transient-enable-popup-navigation
-               (slot-boundp obj 'command))
-      (setq str (make-text-button str nil
-                                  'type 'transient
-                                  'suffix obj
-                                  'command (oref obj command))))
-    str))
-
-(cl-defmethod transient-format ((obj transient-infix))
-  "Return a string generated using OBJ's `format'.
-%k is formatted using `transient-format-key'.
-%d is formatted using `transient-format-description'.
-%v is formatted using `transient-format-value'."
-  (format-spec (oref obj format)
-               `((?k . ,(transient-format-key obj))
-                 (?d . ,(transient-format-description obj))
-                 (?v . ,(transient-format-value obj)))))
-
-(cl-defmethod transient-format ((obj transient-suffix))
-  "Return a string generated using OBJ's `format'.
-%k is formatted using `transient-format-key'.
-%d is formatted using `transient-format-description'."
-  (format-spec (oref obj format)
-               `((?k . ,(transient-format-key obj))
-                 (?d . ,(transient-format-description obj)))))
-
-(cl-defgeneric transient-format-key (obj)
-  "Format OBJ's `key' for display and return the result.")
-
-(cl-defmethod transient-format-key :around ((obj transient-suffix))
-  "Add `transient-inapt-suffix' face if suffix is inapt."
-  (let ((str (cl-call-next-method)))
-    (if (oref obj inapt)
-        (transient--add-face str 'transient-inapt-suffix)
-      str)))
-
-(cl-defmethod transient-format-key ((obj transient-suffix))
-  "Format OBJ's `key' for display and return the result."
-  (let ((key (if (slot-boundp obj 'key) (oref obj key) ""))
-        (cmd (and (slot-boundp obj 'command) (oref obj command))))
-    (when-let ((width (oref transient--pending-group pad-keys)))
-      (setq key (truncate-string-to-width key width nil ?\s)))
-    (if transient--redisplay-key
-        (let ((len (length transient--redisplay-key))
-              (seq (cl-coerce (edmacro-parse-keys key t) 'list)))
-          (cond
-           ((member (seq-take seq len)
-                    (list transient--redisplay-key
-                          (thread-last transient--redisplay-key
-                            (cl-substitute ?- 'kp-subtract)
-                            (cl-substitute ?= 'kp-equal)
-                            (cl-substitute ?+ 'kp-add))))
-            (let ((pre (key-description (vconcat (seq-take seq len))))
-                  (suf (key-description (vconcat (seq-drop seq len)))))
-              (setq pre (string-replace "RET" "C-m" pre))
-              (setq pre (string-replace "TAB" "C-i" pre))
-              (setq suf (string-replace "RET" "C-m" suf))
-              (setq suf (string-replace "TAB" "C-i" suf))
-              ;; We use e.g., "-k" instead of the more correct "- k",
-              ;; because the former is prettier.  If we did that in
-              ;; the definition, then we want to drop the space that
-              ;; is reinserted above.  False-positives are possible
-              ;; for silly bindings like "-C-c C-c".
-              (unless (string-search " " key)
-                (setq pre (string-replace " " "" pre))
-                (setq suf (string-replace " " "" suf)))
-              (concat (propertize pre 'face 'transient-unreachable-key)
-                      (and (string-prefix-p (concat pre " ") key) " ")
-                      (propertize suf 'face (transient--key-face cmd))
-                      (save-excursion
-                        (and (string-match " +\\'" key)
-                             (propertize (match-string 0 key)
-                                         'face 'fixed-pitch))))))
-           ((transient--lookup-key transient-sticky-map (kbd key))
-            (propertize key 'face (transient--key-face cmd)))
-           (t
-            (propertize key 'face 'transient-unreachable-key))))
-      (propertize key 'face (transient--key-face cmd)))))
-
-(cl-defmethod transient-format-key :around ((obj transient-argument))
-  "Handle `transient-highlight-mismatched-keys'."
-  (let ((key (cl-call-next-method obj)))
-    (cond
-     ((not transient-highlight-mismatched-keys) key)
-     ((not (slot-boundp obj 'shortarg))
-      (transient--add-face key 'transient-nonstandard-key))
-     ((not (string-equal key (oref obj shortarg)))
-      (transient--add-face key 'transient-mismatched-key))
-     (key))))
-
-(cl-defgeneric transient-format-description (obj)
-  "Format OBJ's `description' for display and return the result.")
-
-(cl-defmethod transient-format-description ((obj transient-suffix))
-  "The `description' slot may be a function, in which case that is
-called inside the correct buffer (see `transient--insert-group')
-and its value is returned to the caller."
-  (transient--get-description obj))
-
-(cl-defmethod transient-format-description ((obj transient-value-preset))
-  (pcase-let* (((eieio description key set) obj)
-               ((eieio value) transient--prefix)
-               (active (seq-set-equal-p set value)))
-    (format
-     "%s %s"
-     (propertize (or description (format "Preset %s" key))
-                 'face (and active 'transient-argument))
-     (format (propertize "(%s)" 'face 'transient-delimiter)
-             (mapconcat (lambda (arg)
-                          (propertize
-                           arg 'face (cond (active 'transient-argument)
-                                           ((member arg value)
-                                            '((:weight demibold)
-                                              transient-inactive-argument))
-                                           ('transient-inactive-argument))))
-                        set " ")))))
-
-(cl-defmethod transient-format-description ((obj transient-group))
-  "Format the description by calling the next method.
-If the result doesn't use the `face' property at all, then apply the
-face `transient-heading' to the complete string."
-  (and-let* ((desc (transient--get-description obj)))
-    (cond ((oref obj inapt)
-           (propertize desc 'face 'transient-inapt-suffix))
-          ((text-property-not-all 0 (length desc) 'face nil desc)
-           desc)
-          ((propertize desc 'face 'transient-heading)))))
-
-(cl-defmethod transient-format-description :around ((obj transient-suffix))
-  "Format the description by calling the next method.
-If the result is nil, then use \"(BUG: no description)\" as the
-description.  If the OBJ's `key' is currently unreachable, then
-apply the face `transient-unreachable' to the complete string."
-  (let ((desc (or (cl-call-next-method obj)
-                  (and (slot-boundp transient--prefix 'suffix-description)
-                       (funcall (oref transient--prefix suffix-description)
-                                obj)))))
-    (if desc
-        (when-let ((face (transient--get-face obj 'face)))
-          (setq desc (transient--add-face desc face t)))
-      (setq desc (propertize "(BUG: no description)" 'face 'error)))
-    (when (if transient--all-levels-p
-              (> (oref obj level) transient--default-prefix-level)
-            (and transient-highlight-higher-levels
-                 (> (max (oref obj level) transient--max-group-level)
-                    transient--default-prefix-level)))
-      (setq desc (transient--add-face desc 'transient-higher-level)))
-    (when-let ((inapt-face (and (oref obj inapt)
-                                (transient--get-face obj 'inapt-face))))
-      (setq desc (transient--add-face desc inapt-face)))
-    (when (and (slot-boundp obj 'key)
-               (transient--key-unreachable-p obj))
-      (setq desc (transient--add-face desc 'transient-unreachable)))
-    desc))
-
-(cl-defgeneric transient-format-value (obj)
-  "Format OBJ's value for display and return the result.")
-
-(cl-defmethod transient-format-value ((obj transient-suffix))
-  (propertize (oref obj argument)
-              'face (if (oref obj value)
-                        'transient-argument
-                      'transient-inactive-argument)))
-
-(cl-defmethod transient-format-value ((obj transient-option))
-  (let ((argument (oref obj argument)))
-    (if-let ((value (oref obj value)))
-        (pcase-exhaustive (oref obj multi-value)
-          ('nil
-           (concat (propertize argument 'face 'transient-argument)
-                   (propertize value    'face 'transient-value)))
-          ((or 't 'rest)
-           (concat (propertize (if (string-suffix-p " " argument)
-                                   argument
-                                 (concat argument " "))
-                               'face 'transient-argument)
-                   (propertize (mapconcat #'prin1-to-string value " ")
-                               'face 'transient-value)))
-          ('repeat
-           (mapconcat (lambda (value)
-                        (concat (propertize argument 'face 'transient-argument)
-                                (propertize value    'face 'transient-value)))
-                      value " ")))
-      (propertize argument 'face 'transient-inactive-argument))))
-
-(cl-defmethod transient-format-value ((obj transient-switches))
-  (with-slots (value argument-format choices) obj
-    (format (propertize argument-format
-                        'face (if value
-                                  'transient-argument
-                                'transient-inactive-argument))
-            (format
-             (propertize "[%s]" 'face 'transient-delimiter)
-             (mapconcat
-              (lambda (choice)
-                (propertize choice 'face
-                            (if (equal (format argument-format choice) value)
-                                'transient-value
-                              'transient-inactive-value)))
-              choices
-              (propertize "|" 'face 'transient-delimiter))))))
-
-(cl-defmethod transient--get-description ((obj transient-child))
-  (and-let* ((desc (oref obj description)))
-    (if (functionp desc)
-        (if (= (car (transient--func-arity desc)) 1)
-            (funcall desc obj)
-          (funcall desc))
-      desc)))
-
-(cl-defmethod transient--get-face ((obj transient-suffix) slot)
-  (and-let* (((slot-boundp obj slot))
-             (face (slot-value obj slot)))
-    (if (and (not (facep face))
-             (functionp face))
-        (let ((transient--pending-suffix obj))
-          (if (= (car (transient--func-arity face)) 1)
-              (funcall face obj)
-            (funcall face)))
-      face)))
-
-(defun transient--add-face (string face &optional append beg end)
-  (let ((str (copy-sequence string)))
-    (add-face-text-property (or beg 0) (or end (length str)) face append str)
-    str))
-
-(defun transient--key-face (&optional cmd enforce-type)
-  (or (and transient-semantic-coloring
-           (not transient--helpp)
-           (not transient--editp)
-           (or (and cmd (get cmd 'transient-face))
-               (get (transient--get-pre-command cmd enforce-type)
-                    'transient-face)))
-      (if cmd 'transient-key 'transient-key-noop)))
-
-(defun transient--key-unreachable-p (obj)
-  (and transient--redisplay-key
-       (let ((key (oref obj key)))
-         (not (or (equal (seq-take (cl-coerce (edmacro-parse-keys key t) 'list)
-                                   (length transient--redisplay-key))
-                         transient--redisplay-key)
-                  (transient--lookup-key transient-sticky-map (kbd key)))))))
-
-(defun transient--lookup-key (keymap key)
-  (let ((val (lookup-key keymap key)))
-    (and val (not (integerp val)) val)))
-
-(defun transient--maybe-pad-keys (group &optional parent)
-  (when-let ((pad (or (oref group pad-keys)
-                      (and parent (oref parent pad-keys)))))
-    (oset group pad-keys
-          (apply #'max
-                 (if (integerp pad) pad 0)
-                 (seq-keep (lambda (suffix)
-                             (and (eieio-object-p suffix)
-                                  (slot-boundp suffix 'key)
-                                  (length (oref suffix key))))
-                           (oref group suffixes))))))
-
-(defun transient--pixel-width (string)
-  (save-window-excursion
-    (with-temp-buffer
-      (insert string)
-      (set-window-dedicated-p nil nil)
-      (set-window-buffer nil (current-buffer))
-      (car (window-text-pixel-size
-            nil (line-beginning-position) (point))))))
-
-(defun transient--column-stops (columns)
-  (let* ((var-pitch (or transient-align-variable-pitch
-                        (oref transient--prefix variable-pitch)))
-         (char-width (and var-pitch (transient--pixel-width " "))))
-    (transient--seq-reductions-from
-     (apply-partially #'+ (* 2 (if var-pitch char-width 1)))
-     (transient--mapn
-      (lambda (cells min)
-        (apply #'max
-               (if min (if var-pitch (* min char-width) min) 0)
-               (mapcar (if var-pitch #'transient--pixel-width #'length) cells)))
-      columns
-      (oref transient--prefix column-widths))
-     0)))
-
-(defun transient--align-to (stop)
-  (unless (zerop stop)
-    (insert (if (or transient-align-variable-pitch
-                    (oref transient--prefix variable-pitch))
-                (propertize " " 'display `(space :align-to (,stop)))
-              (make-string (max 0 (- stop (current-column))) ?\s)))))
-
-(defun transient-command-summary-or-name (obj)
-  "Return the summary or name of the command represented by OBJ.
-
-If the command has a doc-string, then return the first line of
-that, else its name.
-
-Intended to be temporarily used as the `:suffix-description' of
-a prefix command, while porting a regular keymap to a transient."
-  (let ((command (oref obj command)))
-    (if-let ((doc (documentation command)))
-        (propertize (car (split-string doc "\n")) 'face 'font-lock-doc-face)
-      (propertize (symbol-name command) 'face 'font-lock-function-name-face))))
-
-;;; Help
-
-(cl-defgeneric transient-show-help (obj)
-  "Show documentation for the command represented by OBJ.")
-
-(cl-defmethod transient-show-help ((obj transient-prefix))
-  "Call `show-help' if non-nil, else show `info-manual',
-if non-nil, else show the `man-page' if non-nil, else use
-`describe-function'."
-  (with-slots (show-help info-manual man-page command) obj
-    (cond (show-help (funcall show-help obj))
-          (info-manual (transient--show-manual info-manual))
-          (man-page (transient--show-manpage man-page))
-          ((transient--describe-function command)))))
-
-(cl-defmethod transient-show-help ((obj transient-suffix))
-  "Call `show-help' if non-nil, else use `describe-function'.
-Also used to dispatch showing documentation for the current
-prefix.  If the suffix is a sub-prefix, then also call the
-prefix method."
-  (cond
-   ((eq this-command 'transient-help)
-    (transient-show-help transient--prefix))
-   ((let ((prefix (get (oref obj command)
-                       'transient--prefix)))
-      (and prefix (not (eq (oref transient--prefix command) this-command))
-           (prog1 t (transient-show-help prefix)))))
-   ((if-let ((show-help (oref obj show-help)))
-        (funcall show-help obj)
-      (transient--describe-function this-command)))))
-
-(cl-defmethod transient-show-help ((obj transient-infix))
-  "Call `show-help' if non-nil, else show the `man-page'
-if non-nil, else use `describe-function'.  When showing the
-manpage, then try to jump to the correct location."
-  (if-let ((show-help (oref obj show-help)))
-      (funcall show-help obj)
-    (if-let ((man-page (oref transient--prefix man-page))
-             (argument (and (slot-boundp obj 'argument)
-                            (oref obj argument))))
-        (transient--show-manpage man-page argument)
-      (transient--describe-function this-command))))
-
-;; `cl-generic-generalizers' doesn't support `command' et al.
-(cl-defmethod transient-show-help (cmd)
-  "Show the command doc-string."
-  (transient--describe-function cmd))
-
-(defmacro transient-with-help-window (&rest body)
-  "Evaluate BODY, send output to *Help* buffer, and display it in a window.
-Select the help window, and make the help buffer current and return it."
-  (declare (indent 0))
-  `(let ((buffer nil)
-         (help-window-select t))
-     (with-help-window (help-buffer)
-       ,@body
-       (setq buffer (current-buffer)))
-     (set-buffer buffer)))
-
-(defun transient--describe-function (fn)
-  (let* ((buffer nil)
-         (help-window-select t)
-         (temp-buffer-window-setup-hook
-          (cons (lambda () (setq buffer (current-buffer)))
-                temp-buffer-window-setup-hook)))
-    (describe-function fn)
-    (set-buffer buffer)))
-
-(defun transient--show-manual (manual)
-  (info manual))
-
-(defun transient--show-manpage (manpage &optional argument)
-  (require 'man)
-  (let* ((Man-notify-method 'meek)
-         (buf (Man-getpage-in-background manpage))
-         (proc (get-buffer-process buf)))
-    (while (and proc (eq (process-status proc) 'run))
-      (accept-process-output proc))
-    (switch-to-buffer buf)
-    (when argument
-      (transient--goto-argument-description argument))))
-
-(defun transient--goto-argument-description (arg)
-  (goto-char (point-min))
-  (let ((case-fold-search nil)
-        ;; This matches preceding/proceeding options.  Options
-        ;; such as "-a", "-S[<keyid>]", and "--grep=<pattern>"
-        ;; are matched by this regex without the shy group.
-        ;; The ". " in the shy group is for options such as
-        ;; "-m parent-number", and the "-[^[:space:]]+ " is
-        ;; for options such as "--mainline parent-number"
-        (others "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+"))
-    (when (re-search-forward
-           (if (equal arg "--")
-               ;; Special case.
-               "^[\t\s]+\\(--\\(?: \\|$\\)\\|\\[--\\]\\)"
-             ;; Should start with whitespace and may have
-             ;; any number of options before and/or after.
-             (format
-              "^[\t\s]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$"
-              others
-              ;; Options don't necessarily end in an "="
-              ;; (e.g., "--gpg-sign[=<keyid>]")
-              (string-remove-suffix "=" arg)
-              ;; Simple options don't end in an "=".  Splitting this
-              ;; into 2 cases should make getting false positives
-              ;; less likely.
-              (if (string-suffix-p "=" arg)
-                  ;; "[^[:space:]]*[^.[:space:]]" matches the option
-                  ;; value, which is usually after the option name
-                  ;; and either '=' or '[='.  The value can't end in
-                  ;; a period, as that means it's being used at the
-                  ;; end of a sentence.  The space is for options
-                  ;; such as '--mainline parent-number'.
-                  "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]"
-                ;; Either this doesn't match anything (e.g., "-a"),
-                ;; or the option is followed by a value delimited
-                ;; by a "[", "<", or ":".  A space might appear
-                ;; before this value, as in "-f <file>".  The
-                ;; space alternative is for options such as
-                ;; "-m parent-number".
-                "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?")
-              others))
-           nil t)
-      (goto-char (match-beginning 1)))))
-
-(defun transient--insert-help ()
-  (unless (looking-back "\n\n" 2)
-    (insert "\n"))
-  (when transient--helpp
-    (insert
-     (format (propertize "\
-Type a %s to show help for that suffix command, or %s to show manual.
-Type %s to exit help.\n"
-                         'face 'transient-heading)
-             (propertize "<KEY>" 'face 'transient-key)
-             (propertize "?"     'face 'transient-key)
-             (propertize "C-g"   'face 'transient-key))))
-  (when transient--editp
-    (unless transient--helpp
-      (insert
-       (format (propertize "\
-Type a %s to set level for that suffix command.
-Type %s to set what levels are available for this prefix command.\n"
-                           'face 'transient-heading)
-               (propertize "<KEY>" 'face 'transient-key)
-               (propertize "C-x l" 'face 'transient-key))))
-    (with-slots (level) transient--prefix
-      (insert
-       (format (propertize "
-Suffixes on levels %s are available.
-Suffixes on levels %s and %s are unavailable.\n"
-                           'face 'transient-heading)
-               (propertize (format "1-%s" level)
-                           'face 'transient-enabled-suffix)
-               (propertize " 0 "
-                           'face 'transient-disabled-suffix)
-               (propertize (format ">=%s" (1+ level))
-                           'face 'transient-disabled-suffix))))))
-
-(cl-defgeneric transient-show-summary (obj &optional return)
-  "Show brief summary about the command at point in the echo area.
-
-If OBJ's `summary' slot is a string, use that.  If it is a function,
-call that with OBJ as the only argument and use the returned string.
-If `summary' is or returns something other than a string or nil,
-show no summary.  If `summary' is or returns nil, use the first line
-of the documentation string, if any.
-
-If RETURN is non-nil, return the summary instead of showing it.
-This is used when a tooltip is needed.")
-
-(cl-defmethod transient-show-summary ((obj transient-suffix) &optional return)
-  (with-slots (command summary) obj
-    (when-let*
-        ((doc (cond ((functionp summary)
-                     (funcall summary obj))
-                    (summary)
-                    ((car (split-string (documentation command) "\n")))))
-         ((stringp doc))
-         ((not (equal doc
-                      (car (split-string (documentation
-                                          'transient--default-infix-command)
-                                         "\n"))))))
-      (when (string-suffix-p "." doc)
-        (setq doc (substring doc 0 -1)))
-      (if return
-          doc
-        (let ((message-log-max nil))
-          (message "%s" doc))))))
-
-;;; Popup Navigation
-
-(defun transient-scroll-up (&optional arg)
-  "Scroll text of transient popup window upward ARG lines.
-If ARG is nil scroll near full screen.  This is a wrapper
-around `scroll-up-command' (which see)."
-  (interactive "^P")
-  (with-selected-window transient--window
-    (scroll-up-command arg)))
-
-(defun transient-scroll-down (&optional arg)
-  "Scroll text of transient popup window down ARG lines.
-If ARG is nil scroll near full screen.  This is a wrapper
-around `scroll-down-command' (which see)."
-  (interactive "^P")
-  (with-selected-window transient--window
-    (scroll-down-command arg)))
-
-(defun transient-backward-button (n)
-  "Move to the previous button in the transient popup buffer.
-See `backward-button' for information about N."
-  (interactive "p")
-  (with-selected-window transient--window
-    (backward-button n t)
-    (when (eq transient-enable-popup-navigation 'verbose)
-      (transient-show-summary (get-text-property (point) 'suffix)))))
-
-(defun transient-forward-button (n)
-  "Move to the next button in the transient popup buffer.
-See `forward-button' for information about N."
-  (interactive "p")
-  (with-selected-window transient--window
-    (forward-button n t)
-    (when (eq transient-enable-popup-navigation 'verbose)
-      (transient-show-summary (get-text-property (point) 'suffix)))))
-
-(define-button-type 'transient
-  'face nil
-  'keymap transient-button-map
-  'help-echo (lambda (win buf pos)
-               (with-selected-window win
-                 (with-current-buffer buf
-                   (transient-show-summary
-                    (get-text-property pos 'suffix) t)))))
-
-(defun transient--goto-button (command)
-  (cond
-   ((stringp command)
-    (when (re-search-forward (concat "^" (regexp-quote command)) nil t)
-      (goto-char (match-beginning 0))))
-   (command
-    (cl-flet ((found () (eq (button-get (button-at (point)) 'command) command)))
-      (while (and (ignore-errors (forward-button 1))
-                  (not (found))))
-      (unless (found)
-        (goto-char (point-min))
-        (ignore-errors (forward-button 1))
-        (unless (found)
-          (goto-char (point-min))))))))
-
-(defun transient--heading-at-point ()
-  (and (eq (get-text-property (point) 'face) 'transient-heading)
-       (let ((beg (line-beginning-position)))
-         (buffer-substring-no-properties
-          beg (next-single-property-change
-               beg 'face nil (line-end-position))))))
-
-;;; Compatibility
-;;;; Popup Isearch
-
-(defvar-keymap transient--isearch-mode-map
-  :parent isearch-mode-map
-  "<remap> <isearch-exit>"   #'transient-isearch-exit
-  "<remap> <isearch-cancel>" #'transient-isearch-cancel
-  "<remap> <isearch-abort>"  #'transient-isearch-abort)
-
-(defun transient-isearch-backward (&optional regexp-p)
-  "Do incremental search backward.
-With a prefix argument, do an incremental regular expression
-search instead."
-  (interactive "P")
-  (transient--isearch-setup)
-  (let ((isearch-mode-map transient--isearch-mode-map))
-    (isearch-mode nil regexp-p)))
-
-(defun transient-isearch-forward (&optional regexp-p)
-  "Do incremental search forward.
-With a prefix argument, do an incremental regular expression
-search instead."
-  (interactive "P")
-  (transient--isearch-setup)
-  (let ((isearch-mode-map transient--isearch-mode-map))
-    (isearch-mode t regexp-p)))
-
-(defun transient-isearch-exit ()
-  "Like `isearch-exit' but adapted for `transient'."
-  (interactive)
-  (isearch-exit)
-  (transient--isearch-exit))
-
-(defun transient-isearch-cancel ()
-  "Like `isearch-cancel' but adapted for `transient'."
-  (interactive)
-  (condition-case nil (isearch-cancel) (quit))
-  (transient--isearch-exit))
-
-(defun transient-isearch-abort ()
-  "Like `isearch-abort' but adapted for `transient'."
-  (interactive)
-  (let ((around (lambda (fn)
-                  (condition-case nil (funcall fn) (quit))
-                  (transient--isearch-exit))))
-    (advice-add 'isearch-cancel :around around)
-    (unwind-protect
-        (isearch-abort)
-      (advice-remove 'isearch-cancel around))))
-
-(defun transient--isearch-setup ()
-  (select-window transient--window)
-  (transient--suspend-override t))
-
-(defun transient--isearch-exit ()
-  (select-window transient--original-window)
-  (transient--resume-override))
-
-;;;; Edebug
-
-(defun transient--edebug-command-p ()
-  (and (bound-and-true-p edebug-active)
-       (or (memq this-command '(top-level abort-recursive-edit))
-           (string-prefix-p "edebug" (symbol-name this-command)))))
-
-;;;; Miscellaneous
-
-(cl-pushnew (list nil (concat "^\\s-*("
-                              (eval-when-compile
-                                (regexp-opt
-                                 '("transient-define-prefix"
-                                   "transient-define-suffix"
-                                   "transient-define-infix"
-                                   "transient-define-argument")
-                                 t))
-                              "\\s-+\\(" lisp-mode-symbol-regexp "\\)")
-                  2)
-            lisp-imenu-generic-expression :test #'equal)
-
-(declare-function which-key-mode "ext:which-key" (&optional arg))
-
-(defun transient--suspend-which-key-mode ()
-  (when (bound-and-true-p which-key-mode)
-    (which-key-mode -1)
-    (add-hook 'transient-exit-hook #'transient--resume-which-key-mode)))
-
-(defun transient--resume-which-key-mode ()
-  (unless transient--prefix
-    (which-key-mode 1)
-    (remove-hook 'transient-exit-hook #'transient--resume-which-key-mode)))
-
-(defun transient-bind-q-to-quit ()
-  "Modify some keymaps to bind \"q\" to the appropriate quit command.
-
-\"C-g\" is the default binding for such commands now, but Transient's
-predecessor Magit-Popup used \"q\" instead.  If you would like to get
-that binding back, then call this function in your init file like so:
-
-  (with-eval-after-load \\='transient
-    (transient-bind-q-to-quit))
-
-Individual transients may already bind \"q\" to something else
-and such a binding would shadow the quit binding.  If that is the
-case then \"Q\" is bound to whatever \"q\" would have been bound
-to by setting `transient-substitute-key-function' to a function
-that does that.  Of course \"Q\" may already be bound to something
-else, so that function binds \"M-q\" to that command instead.
-Of course \"M-q\" may already be bound to something else, but
-we stop there."
-  (keymap-set transient-base-map   "q" #'transient-quit-one)
-  (keymap-set transient-sticky-map "q" #'transient-quit-seq)
-  (setq transient-substitute-key-function
-        #'transient-rebind-quit-commands))
-
-(defun transient-rebind-quit-commands (obj)
-  "See `transient-bind-q-to-quit'."
-  (let ((key (oref obj key)))
-    (cond ((string-equal key "q") "Q")
-          ((string-equal key "Q") "M-q")
-          (key))))
-
-(defun transient--force-fixed-pitch ()
-  (require 'face-remap)
-  (face-remap-reset-base 'default)
-  (face-remap-add-relative 'default 'fixed-pitch))
-
-(defun transient--func-arity (fn)
-  (func-arity (advice--cd*r (if (symbolp fn) (symbol-function fn) fn))))
-
-(defun transient--seq-reductions-from (function sequence initial-value)
-  (let ((acc (list initial-value)))
-    (seq-doseq (elt sequence)
-      (push (funcall function (car acc) elt) acc))
-    (nreverse acc)))
-
-(defun transient--mapn (function &rest lists)
-  "Apply FUNCTION to elements of LISTS.
-Like `cl-mapcar' but while that stops when the shortest list
-is exhausted, continue until the longest list is, using nil
-as stand-in for elements of exhausted lists."
-  (let (result)
-    (while (catch 'more (mapc (lambda (l) (and l (throw 'more t))) lists) nil)
-      (push (apply function (mapcar #'car-safe lists)) result)
-      (setq lists (mapcar #'cdr lists)))
-    (nreverse result)))
-
-;;; Font-Lock
-
-(defconst transient-font-lock-keywords
-  (eval-when-compile
-    `((,(concat "("
-                (regexp-opt (list "transient-define-prefix"
-                                  "transient-define-infix"
-                                  "transient-define-argument"
-                                  "transient-define-suffix")
-                            t)
-                "\\_>[ \t'(]*"
-                "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
-       (1 'font-lock-keyword-face)
-       (2 'font-lock-function-name-face nil t)))))
-
-(font-lock-add-keywords 'emacs-lisp-mode transient-font-lock-keywords)
-
-;;; Auxiliary Classes
-;;;; `transient-lisp-variable'
-
-(defclass transient-lisp-variable (transient-variable)
-  ((reader :initform #'transient-lisp-variable--reader)
-   (always-read :initform t)
-   (set-value :initarg :set-value :initform #'set))
-  "[Experimental] Class used for Lisp variables.")
-
-(cl-defmethod transient-init-value ((obj transient-lisp-variable))
-  (oset obj value (symbol-value (oref obj variable))))
-
-(cl-defmethod transient-infix-set ((obj transient-lisp-variable) value)
-  (funcall (oref obj set-value)
-           (oref obj variable)
-           (oset obj value value)))
-
-(cl-defmethod transient-format-description ((obj transient-lisp-variable))
-  (or (cl-call-next-method obj)
-      (symbol-name (oref obj variable))))
-
-(cl-defmethod transient-format-value ((obj transient-lisp-variable))
-  (propertize (prin1-to-string (oref obj value))
-              'face 'transient-value))
-
-(cl-defmethod transient-prompt ((obj transient-lisp-variable))
-  (if (and (slot-boundp obj 'prompt)
-           (oref obj prompt))
-      (cl-call-next-method obj)
-    (format "Set %s: " (oref obj variable))))
-
-(defun transient-lisp-variable--reader (prompt initial-input _history)
-  (read--expression prompt initial-input))
-
-;;; _
-(provide 'transient)
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; checkdoc-symbol-words: ("command-line" "edit-mode" "help-mode")
-;; End:
-;;; transient.el ends here
diff --git a/emacs/elpa/transient-20241115.2034/transient.elc b/emacs/elpa/transient-20241115.2034/transient.elc
Binary files differ.
diff --git a/emacs/elpa/transient-20241115.2034/transient.info b/emacs/elpa/transient-20241115.2034/transient.info
@@ -1,3383 +0,0 @@
-This is transient.info, produced by makeinfo version 6.8 from
-transient.texi.
-
-     Copyright (C) 2018–2024 Free Software Foundation, Inc.
-
-     You can redistribute this document and/or modify it under the terms
-     of the GNU General Public License as published by the Free Software
-     Foundation, either version 3 of the License, or (at your option)
-     any later version.
-
-     This document is distributed in the hope that it will be useful,
-     but WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-     General Public License for more details.
-
-INFO-DIR-SECTION Emacs misc features
-START-INFO-DIR-ENTRY
-* Transient: (transient). Transient Commands.
-END-INFO-DIR-ENTRY
-
-
-File: transient.info,  Node: Top,  Next: Introduction,  Up: (dir)
-
-Transient User and Developer Manual
-***********************************
-
-Transient is the library used to implement the keyboard-driven “menus”
-in Magit.  It is distributed as a separate package, so that it can be
-used to implement similar menus in other packages.
-
-   This manual can be bit hard to digest when getting started.  A useful
-resource to get over that hurdle is Psionic K’s interactive tutorial,
-available at <https://github.com/positron-solutions/transient-showcase>.
-
-This manual is for Transient version 0.7.9.
-
-     Copyright (C) 2018–2024 Free Software Foundation, Inc.
-
-     You can redistribute this document and/or modify it under the terms
-     of the GNU General Public License as published by the Free Software
-     Foundation, either version 3 of the License, or (at your option)
-     any later version.
-
-     This document is distributed in the hope that it will be useful,
-     but WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-     General Public License for more details.
-
-* Menu:
-
-* Introduction::
-* Usage::
-* Modifying Existing Transients::
-* Defining New Commands::
-* Classes and Methods::
-* FAQ::
-* Keystroke Index::
-* Command and Function Index::
-* Variable Index::
-* Concept Index::
-* GNU General Public License::
-
-— The Detailed Node Listing —
-
-Usage
-
-* Invoking Transients::
-* Aborting and Resuming Transients::
-* Common Suffix Commands::
-* Saving Values::
-* Using History::
-* Getting Help for Suffix Commands::
-* Enabling and Disabling Suffixes::
-* Other Commands::
-* Configuration::
-
-Defining New Commands
-
-* Technical Introduction::
-* Defining Transients::
-* Binding Suffix and Infix Commands::
-* Defining Suffix and Infix Commands::
-* Using Infix Arguments::
-* Transient State::
-
-Binding Suffix and Infix Commands
-
-* Group Specifications::
-* Suffix Specifications::
-
-
-Classes and Methods
-
-* Group Classes::
-* Group Methods::
-* Prefix Classes::
-* Suffix Classes::
-* Suffix Methods::
-* Prefix Slots::
-* Suffix Slots::
-* Predicate Slots::
-
-Suffix Methods
-
-* Suffix Value Methods::
-* Suffix Format Methods::
-
-
-
-
-File: transient.info,  Node: Introduction,  Next: Usage,  Prev: Top,  Up: Top
-
-1 Introduction
-**************
-
-Transient is the library used to implement the keyboard-driven “menus”
-in Magit.  It is distributed as a separate package, so that it can be
-used to implement similar menus in other packages.
-
-   This manual can be bit hard to digest when getting started.  A useful
-resource to get over that hurdle is Psionic K’s interactive tutorial,
-available at <https://github.com/positron-solutions/transient-showcase>.
-
-Some things that Transient can do
-=================================
-
-   • Display current state of arguments
-   • Display and manage lifecycle of modal bindings
-   • Contextual user interface
-   • Flow control for wizard-like composition of interactive forms
-   • History & persistence
-   • Rendering arguments for controlling CLI programs
-
-Complexity in CLI programs
-==========================
-
-Complexity tends to grow with time.  How do you manage the complexity of
-commands?  Consider the humble shell command ‘ls’.  It now has over
-_fifty_ command line options.  Some of these are boolean flags (‘ls
--l’).  Some take arguments (‘ls --sort=s’).  Some have no effect unless
-paired with other flags (‘ls -lh’).  Some are mutually exclusive.  Some
-shell commands even have so many options that they introduce
-_subcommands_ (‘git branch’, ‘git commit’), each with their own rich set
-of options (‘git branch -f’).
-
-Using Transient for composing interactive commands
-==================================================
-
-What about Emacs commands used interactively?  How do these handle
-options?  One solution is to make many versions of the same command, so
-you don’t need to!  Consider: ‘delete-other-windows’ vs.
-‘delete-other-windows-vertically’ (among many similar examples).
-
-   Some Emacs commands will simply prompt you for the next "argument"
-(‘M-x switch-to-buffer’).  Another common solution is to use prefix
-arguments which usually start with ‘C-u’.  Sometimes these are sensibly
-numerical in nature (‘C-u 4 M-x forward-paragraph’ to move forward 4
-paragraphs).  But sometimes they function instead as boolean "switches"
-(‘C-u C-SPACE’ to jump to the last mark instead of just setting it, ‘C-u
-C-u C-SPACE’ to unconditionally set the mark).  Since there aren’t many
-standards for the use of prefix options, you have to read the command’s
-documentation to find out what the possibilities are.
-
-   But when an Emacs command grows to have a truly large set of options
-and arguments, with dependencies between them, lots of option values,
-etc., these simple approaches just don’t scale.  Transient is designed
-to solve this issue.  Think of it as the humble prefix argument ‘C-u’,
-_raised to the power of 10_.  Like ‘C-u’, it is key driven.  Like the
-shell, it supports boolean "flag" options, options that take arguments,
-and even "sub-commands", with their own options.  But instead of
-searching through a man page or command documentation, well-designed
-transients _guide_ their users to the relevant set of options (and even
-their possible values!)  directly, taking into account any important
-pre-existing Emacs settings.  And while for shell commands like ‘ls’,
-there is only one way to "execute" (hit ‘Return’!), transients can
-"execute" using multiple different keys tied to one of many
-self-documenting _actions_ (imagine having 5 different colored return
-keys on your keyboard!).  Transients make navigating and setting large,
-complex groups of command options and arguments easy.  Fun even.  Once
-you’ve tried it, it’s hard to go back to the ‘C-u what can I do here
-again?’ way.
-
-
-File: transient.info,  Node: Usage,  Next: Modifying Existing Transients,  Prev: Introduction,  Up: Top
-
-2 Usage
-*******
-
-* Menu:
-
-* Invoking Transients::
-* Aborting and Resuming Transients::
-* Common Suffix Commands::
-* Saving Values::
-* Using History::
-* Getting Help for Suffix Commands::
-* Enabling and Disabling Suffixes::
-* Other Commands::
-* Configuration::
-
-
-File: transient.info,  Node: Invoking Transients,  Next: Aborting and Resuming Transients,  Up: Usage
-
-2.1 Invoking Transients
-=======================
-
-A transient prefix command is invoked like any other command by pressing
-the key that is bound to that command.  The main difference to other
-commands is that a transient prefix command activates a transient
-keymap, which temporarily binds the transient’s infix and suffix
-commands.  Bindings from other keymaps may, or may not, be disabled
-while the transient state is in effect.
-
-   There are two kinds of commands that are available after invoking a
-transient prefix command; infix and suffix commands.  Infix commands set
-some value (which is then shown in a popup buffer), without leaving the
-transient.  Suffix commands, on the other hand, usually quit the
-transient and they may use the values set by the infix commands, i.e.,
-the infix *arguments*.
-
-   Instead of setting arguments to be used by a suffix command, infix
-commands may also set some value by side-effect, e.g., by setting the
-value of some variable.
-
-
-File: transient.info,  Node: Aborting and Resuming Transients,  Next: Common Suffix Commands,  Prev: Invoking Transients,  Up: Usage
-
-2.2 Aborting and Resuming Transients
-====================================
-
-To quit the transient without invoking a suffix command press ‘C-g’.
-
-   Key bindings in transient keymaps may be longer than a single event.
-After pressing a valid prefix key, all commands whose bindings do not
-begin with that prefix key are temporarily unavailable and grayed out.
-To abort the prefix key press ‘C-g’ (which in this case only quits the
-prefix key, but not the complete transient).
-
-   A transient prefix command can be bound as a suffix of another
-transient.  Invoking such a suffix replaces the current transient state
-with a new transient state, i.e., the available bindings change and the
-information displayed in the popup buffer is updated accordingly.
-Pressing ‘C-g’ while a nested transient is active only quits the
-innermost transient, causing a return to the previous transient.
-
-   ‘C-q’ or ‘C-z’ on the other hand always exits all transients.  If you
-use the latter, then you can later resume the stack of transients using
-‘M-x transient-resume’.
-
-‘C-g’ (‘transient-quit-seq’)
-‘C-g’ (‘transient-quit-one’)
-     This key quits the currently active incomplete key sequence, if
-     any, or else the current transient.  When quitting the current
-     transient, it returns to the previous transient, if any.
-
-   Transient’s predecessor bound ‘q’ instead of ‘C-g’ to the quit
-command.  To learn how to get that binding back see
-‘transient-bind-q-to-quit’’s documentation string.
-
-‘C-q’ (‘transient-quit-all’)
-     This command quits the currently active incomplete key sequence, if
-     any, and all transients, including the active transient and all
-     suspended transients, if any.
-
-‘C-z’ (‘transient-suspend’)
-     Like ‘transient-quit-all’, this command quits an incomplete key
-     sequence, if any, and all transients.  Additionally, it saves the
-     stack of transients so that it can easily be resumed (which is
-     particularly useful if you quickly need to do “something else” and
-     the stack is deeper than a single transient, and/or you have
-     already changed the values of some infix arguments).
-
-     Note that only a single stack of transients can be saved at a time.
-     If another stack is already saved, then saving a new stack discards
-     the previous stack.
-
-‘M-x transient-resume’
-     This command resumes the previously suspended stack of transients,
-     if any.
-
-
-File: transient.info,  Node: Common Suffix Commands,  Next: Saving Values,  Prev: Aborting and Resuming Transients,  Up: Usage
-
-2.3 Common Suffix Commands
-==========================
-
-A few shared suffix commands are available in all transients.  These
-suffix commands are not shown in the popup buffer by default.
-
-   This includes the aborting commands mentioned in the previous
-section, as well as some other commands that are all bound to ‘C-x KEY’.
-After ‘C-x’ is pressed, a section featuring all these common commands is
-temporarily shown in the popup buffer.  After invoking one of them, the
-section disappears again.  Note, however, that one of these commands is
-described as “Show common permanently”; invoke that if you want the
-common commands to always be shown for all transients.
-
-‘C-x t’ (‘transient-toggle-common’)
-     This command toggles whether the generic commands that are common
-     to all transients are always displayed or only after typing the
-     incomplete prefix key sequence ‘C-x’.  This only affects the
-     current Emacs session.
-
- -- User Option: transient-show-common-commands
-     This option controls whether shared suffix commands are shown
-     alongside the transient-specific infix and suffix commands.  By
-     default, the shared commands are not shown to avoid overwhelming
-     the user with too many options.
-
-     While a transient is active, pressing ‘C-x’ always shows the common
-     commands.  The value of this option can be changed for the current
-     Emacs session by typing ‘C-x t’ while a transient is active.
-
-   The other common commands are described in either the previous or in
-one of the following sections.
-
-   Some of Transient’s key bindings differ from the respective bindings
-of Magit-Popup; see *note FAQ:: for more information.
-
-
-File: transient.info,  Node: Saving Values,  Next: Using History,  Prev: Common Suffix Commands,  Up: Usage
-
-2.4 Saving Values
-=================
-
-After setting the infix arguments in a transient, the user can save
-those arguments for future invocations.
-
-   Most transients will start out with the saved arguments when they are
-invoked.  There are a few exceptions, though.  Some transients are
-designed so that the value that they use is stored externally as the
-buffer-local value of some variable.  Invoking such a transient again
-uses the buffer-local value.  (1)
-
-   If the user does not save the value and just exits using a regular
-suffix command, then the value is merely saved to the transient’s
-history.  That value won’t be used when the transient is next invoked,
-but it is easily accessible (see *note Using History::).
-
-‘C-x s’ (‘transient-set’)
-     This command saves the value of the active transient for this Emacs
-     session.
-
-‘C-x C-s’ (‘transient-save’)
-     Save the value of the active transient persistently across Emacs
-     sessions.
-
-‘C-x C-k’ (‘transient-reset’)
-     Clear the set and saved values of the active transient.
-
- -- User Option: transient-values-file
-     This option names the file that is used to persist the values of
-     transients between Emacs sessions.
-
-   ---------- Footnotes ----------
-
-   (1) ‘magit-diff’ and ‘magit-log’ are two prominent examples, and
-their handling of buffer-local values is actually a bit more complicated
-than outlined above and even customizable.
-
-
-File: transient.info,  Node: Using History,  Next: Getting Help for Suffix Commands,  Prev: Saving Values,  Up: Usage
-
-2.5 Using History
-=================
-
-Every time the user invokes a suffix command the transient’s current
-value is saved to its history.  These values can be cycled through the
-same way one can cycle through the history of commands that read
-user-input in the minibuffer.
-
-‘C-M-p’ (‘transient-history-prev’)
-‘C-x p’
-     This command switches to the previous value used for the active
-     transient.
-
-‘C-M-n’ (‘transient-history-next’)
-‘C-x n’
-     This command switches to the next value used for the active
-     transient.
-
-   In addition to the transient-wide history, Transient of course
-supports per-infix history.  When an infix reads user-input using the
-minibuffer, the user can use the regular minibuffer history commands to
-cycle through previously used values.  Usually the same keys as those
-mentioned above are bound to those commands.
-
-   Authors of transients should arrange for different infix commands
-that read the same kind of value to also use the same history key (see
-*note Suffix Slots::).
-
-   Both kinds of history are saved to a file when Emacs is exited.
-
- -- User Option: transient-history-file
-     This option names the file that is used to persist the history of
-     transients and their infixes between Emacs sessions.
-
- -- User Option: transient-history-limit
-     This option controls how many history elements are kept at the time
-     the history is saved in ‘transient-history-file’.
-
-
-File: transient.info,  Node: Getting Help for Suffix Commands,  Next: Enabling and Disabling Suffixes,  Prev: Using History,  Up: Usage
-
-2.6 Getting Help for Suffix Commands
-====================================
-
-Transients can have many suffixes and infixes that the user might not be
-familiar with.  To make it trivial to get help for these, Transient
-provides access to the documentation directly from the active transient.
-
-‘C-h’ (‘transient-help’)
-     This command enters help mode.  When help mode is active, typing a
-     key shows information about the suffix command that the key
-     normally is bound to (instead of invoking it).  Pressing ‘C-h’ a
-     second time shows information about the _prefix_ command.
-
-     After typing a key, the stack of transient states is suspended and
-     information about the suffix command is shown instead.  Typing ‘q’
-     in the help buffer buries that buffer and resumes the transient
-     state.
-
-   What sort of documentation is shown depends on how the transient was
-defined.  For infix commands that represent command-line arguments this
-ideally shows the appropriate manpage.  ‘transient-help’ then tries to
-jump to the correct location within that.  Info manuals are also
-supported.  The fallback is to show the command’s documentation string,
-for non-infix suffixes this is usually appropriate.
-
-
-File: transient.info,  Node: Enabling and Disabling Suffixes,  Next: Other Commands,  Prev: Getting Help for Suffix Commands,  Up: Usage
-
-2.7 Enabling and Disabling Suffixes
-===================================
-
-The user base of a package that uses transients can be very diverse.
-This is certainly the case for Magit; some users have been using it and
-Git for a decade, while others are just getting started now.
-
-   For that reason a mechanism is needed that authors can use to
-classify a transient’s infixes and suffixes along the
-essentials...everything spectrum.  We use the term “levels” to describe
-that mechanism.
-
-   Each suffix command is placed on a level and each transient has a
-level (called “transient-level”), which controls which suffix commands
-are available.  Integers between 1 and 7 (inclusive) are valid levels.
-For suffixes, 0 is also valid; it means that the suffix is not displayed
-at any level.
-
-   The levels of individual transients and/or their individual suffixes
-can be changed interactively, by invoking the transient and then
-pressing ‘C-x l’ to enter the “edit” mode, see below.
-
-   The default level for both transients and their suffixes is 4.  The
-‘transient-default-level’ option only controls the default for
-transients.  The default suffix level is always 4.  The authors of
-transients should place certain suffixes on a higher level, if they
-expect that it won’t be of use to most users, and they should place very
-important suffixes on a lower level, so that they remain available even
-if the user lowers the transient level.
-
- -- User Option: transient-default-level
-     This option controls which suffix levels are made available by
-     default.  It sets the transient-level for transients for which the
-     user has not set that individually.
-
- -- User Option: transient-levels-file
-     This option names the file that is used to persist the levels of
-     transients and their suffixes between Emacs sessions.
-
-‘C-x l’ (‘transient-set-level’)
-     This command enters edit mode.  When edit mode is active, then all
-     infixes and suffixes that are currently usable are displayed along
-     with their levels.  The colors of the levels indicate whether they
-     are enabled or not.  The level of the transient is also displayed
-     along with some usage information.
-
-     In edit mode, pressing the key that would usually invoke a certain
-     suffix instead prompts the user for the level that suffix should be
-     placed on.
-
-     Help mode is available in edit mode.
-
-     To change the transient level press ‘C-x l’ again.
-
-     To exit edit mode press ‘C-g’.
-
-     Note that edit mode does not display any suffixes that are not
-     currently usable.  ‘magit-rebase’, for example, shows different
-     suffixes depending on whether a rebase is already in progress or
-     not.  The predicates also apply in edit mode.
-
-     Therefore, to control which suffixes are available given a certain
-     state, you have to make sure that that state is currently active.
-
-‘C-x a’ (‘transient-toggle-level-limit’)
-     This command toggle whether suffixes that are on levels higher than
-     the level specified by ‘transient-default-level’ are temporarily
-     available anyway.
-
-
-File: transient.info,  Node: Other Commands,  Next: Configuration,  Prev: Enabling and Disabling Suffixes,  Up: Usage
-
-2.8 Other Commands
-==================
-
-When invoking a transient in a small frame, the transient window may not
-show the complete buffer, making it necessary to scroll, using the
-following commands.  These commands are never shown in the transient
-window, and the key bindings are the same as for ‘scroll-up-command’ and
-‘scroll-down-command’ in other buffers.
-
- -- Command: transient-scroll-up arg
-     This command scrolls text of transient popup window upward ARG
-     lines.  If ARG is ‘nil’, then it scrolls near full screen.  This is
-     a wrapper around ‘scroll-up-command’ (which see).
-
- -- Command: transient-scroll-down arg
-     This command scrolls text of transient popup window down ARG lines.
-     If ARG is ‘nil’, then it scrolls near full screen.  This is a
-     wrapper around ‘scroll-down-command’ (which see).
-
-
-File: transient.info,  Node: Configuration,  Prev: Other Commands,  Up: Usage
-
-2.9 Configuration
-=================
-
-More options are described in *note Common Suffix Commands::, in *note
-Saving Values::, in *note Using History:: and in *note Enabling and
-Disabling Suffixes::.
-
-Essential Options
------------------
-
-Also see *note Common Suffix Commands::.
-
- -- User Option: transient-show-popup
-     This option controls whether the current transient’s infix and
-     suffix commands are shown in the popup buffer.
-
-        • If ‘t’ (the default) then the popup buffer is shown as soon as
-          a transient prefix command is invoked.
-
-        • If ‘nil’, then the popup buffer is not shown unless the user
-          explicitly requests it, by pressing an incomplete prefix key
-          sequence.
-
-        • If a number, then the a brief one-line summary is shown
-          instead of the popup buffer.  If zero or negative, then not
-          even that summary is shown; only the pressed key itself is
-          shown.
-
-          The popup is shown when the user explicitly requests it by
-          pressing an incomplete prefix key sequence.  Unless this is
-          zero, the popup is shown after that many seconds of inactivity
-          (using the absolute value).
-
- -- User Option: transient-enable-popup-navigation
-     This option controls whether navigation commands are enabled in the
-     transient popup buffer.  If the value is ‘verbose’, additionally
-     show brief documentation about the command under point in the echo
-     area.
-
-     While a transient is active the transient popup buffer is not the
-     current buffer, making it necessary to use dedicated commands to
-     act on that buffer itself.  This is disabled by default.  If this
-     option is non-‘nil’, then the following features are available:
-
-        • ‘<UP>’ moves the cursor to the previous suffix.
-        • ‘<DOWN>’ moves the cursor to the next suffix.
-        • ‘M-<RET>’ invokes the suffix the cursor is on.
-        • ‘mouse-1’ invokes the clicked on suffix.
-        • ‘C-s’ and ‘C-r’ start isearch in the popup buffer.
-
-     By default ‘M-<RET>’ is bound to ‘transient-push-button’, instead
-     of ‘<RET>’, because if a transient allows the invocation of
-     non-suffixes, then it is likely, that you would want ‘<RET>’ to do
-     what it would do if no transient were active."
-
- -- User Option: transient-display-buffer-action
-     This option specifies the action used to display the transient
-     popup buffer.  The transient popup buffer is displayed in a window
-     using ‘(display-buffer BUFFER transient-display-buffer-action)’.
-
-     The value of this option has the form ‘(FUNCTION . ALIST)’, where
-     FUNCTION is a function or a list of functions.  Each such function
-     should accept two arguments: a buffer to display and an alist of
-     the same form as ALIST.  See *note (elisp)Choosing Window::, for
-     details.
-
-     The default is:
-
-          (display-buffer-in-side-window
-            (side . bottom)
-            (inhibit-same-window . t)
-            (window-parameters (no-other-window . t)))
-
-     This displays the window at the bottom of the selected frame.
-     Another useful FUNCTION is ‘display-buffer-below-selected’, which
-     is what ‘magit-popup’ used by default.  For more alternatives see
-     *note (elisp)Buffer Display Action Functions::, and *note
-     (elisp)Buffer Display Action Alists::.
-
-     Note that the buffer that was current before the transient buffer
-     is shown should remain the current buffer.  Many suffix commands
-     act on the thing at point, if appropriate, and if the transient
-     buffer became the current buffer, then that would change what is at
-     point.  To that effect ‘inhibit-same-window’ ensures that the
-     selected window is not used to show the transient buffer.
-
-     It may be possible to display the window in another frame, but
-     whether that works in practice depends on the window-manager.  If
-     the window manager selects the new window (Emacs frame), then that
-     unfortunately changes which buffer is current.
-
-     If you change the value of this option, then you might also want to
-     change the value of ‘transient-mode-line-format’.
-
-Accessibility Options
----------------------
-
- -- User Option: transient-force-single-column
-     This option controls whether the use of a single column to display
-     suffixes is enforced.  This might be useful for users with low
-     vision who use large text and might otherwise have to scroll in two
-     dimensions.
-
-Auxiliary Options
------------------
-
- -- User Option: transient-mode-line-format
-     This option controls whether the transient popup buffer has a
-     mode-line, separator line, or neither.
-
-     If ‘nil’, then the buffer has no mode-line.  If the buffer is not
-     displayed right above the echo area, then this probably is not a
-     good value.
-
-     If ‘line’ (the default) or a natural number, then the buffer has no
-     mode-line, but a line is drawn in its place.  If a number is used,
-     that specifies the thickness of the line.  On termcap frames we
-     cannot draw lines, so there ‘line’ and numbers are synonyms for
-     ‘nil’.
-
-     The color of the line is used to indicate if non-suffixes are
-     allowed and whether they exit the transient.  The foreground color
-     of ‘transient-key-noop’ (if non-suffixes are disallowed),
-     ‘transient-key-stay’ (if allowed and transient stays active), or
-     ‘transient-key-exit’ (if allowed and they exit the transient) is
-     used to draw the line.
-
-     Otherwise this can be any mode-line format.  See *note (elisp)Mode
-     Line Format::, for details.
-
- -- User Option: transient-semantic-coloring
-     This option controls whether colors are used to indicate the
-     transient behavior of commands.
-
-     If non-‘nil’, then the key binding of each suffix is colorized to
-     indicate whether it exits the transient state or not.  The color of
-     the prefix is indicated using the line that is drawn when the value
-     of ‘transient-mode-line-format’ is ‘line’.
-
- -- User Option: transient-highlight-mismatched-keys
-     This option controls whether key bindings of infix commands that do
-     not match the respective command-line argument should be
-     highlighted.  For other infix commands this option has no effect.
-
-     When this option is non-‘nil’, the key binding for an infix
-     argument is highlighted when only a long argument (e.g.,
-     ‘--verbose’) is specified but no shorthand (e.g., ‘-v’).  In the
-     rare case that a shorthand is specified but the key binding does
-     not match, then it is highlighted differently.
-
-     Highlighting mismatched key bindings is useful when learning the
-     arguments of the underlying command-line tool; you wouldn’t want to
-     learn any short-hands that do not actually exist.
-
-     The highlighting is done using one of the faces
-     ‘transient-mismatched-key’ and ‘transient-nonstandard-key’.
-
- -- User Option: transient-substitute-key-function
-     This function is used to modify key bindings.  If the value of this
-     option is ‘nil’ (the default), then no substitution is performed.
-
-     This function is called with one argument, the prefix object, and
-     must return a key binding description, either the existing key
-     description it finds in the ‘key’ slot, or the key description that
-     replaces the prefix key.  It could be used to make other
-     substitutions, but that is discouraged.
-
-     For example, ‘=’ is hard to reach using my custom keyboard layout,
-     so I substitute ‘(’ for that, which is easy to reach using a layout
-     optimized for lisp.
-
-          (setq transient-substitute-key-function
-                (lambda (obj)
-                  (let ((key (oref obj key)))
-                    (if (string-match "\\`\\(=\\)[a-zA-Z]" key)
-                        (replace-match "(" t t key 1)
-                      key))))
-
- -- User Option: transient-read-with-initial-input
-     This option controls whether the last history element is used as
-     the initial minibuffer input when reading the value of an infix
-     argument from the user.  If ‘nil’, there is no initial input and
-     the first element has to be accessed the same way as the older
-     elements.
-
- -- User Option: transient-hide-during-minibuffer-read
-     This option controls whether the transient buffer is hidden while
-     user input is being read in the minibuffer.
-
- -- User Option: transient-align-variable-pitch
-     This option controls whether columns are aligned pixel-wise in the
-     popup buffer.
-
-     If this is non-‘nil’, then columns are aligned pixel-wise to
-     support variable-pitch fonts.  Keys are not aligned, so you should
-     use a fixed-pitch font for the ‘transient-key’ face.  Other key
-     faces inherit from that face unless a theme is used that breaks
-     that relationship.
-
-     This option is intended for users who use a variable-pitch font for
-     the ‘default’ face.
-
- -- User Option: transient-force-fixed-pitch
-     This option controls whether to force the use of a monospaced font
-     in popup buffer.  Even if you use a proportional font for the
-     ‘default’ face, you might still want to use a monospaced font in
-     transient’s popup buffer.  Setting this option to ‘t’ causes
-     ‘default’ to be remapped to ‘fixed-pitch’ in that buffer.
-
-Developer Options
------------------
-
-These options are mainly intended for developers.
-
- -- User Option: transient-detect-key-conflicts
-     This option controls whether key binding conflicts should be
-     detected at the time the transient is invoked.  If so, this results
-     in an error, which prevents the transient from being used.  Because
-     of that, conflicts are ignored by default.
-
-     Conflicts cannot be determined earlier, i.e., when the transient is
-     being defined and when new suffixes are being added, because at
-     that time there can be false-positives.  It is actually valid for
-     multiple suffixes to share a common key binding, provided the
-     predicates of those suffixes prevent that more than one of them is
-     enabled at a time.
-
- -- User Option: transient-highlight-higher-levels
-     This option controls whether suffixes that would not be available
-     by default are highlighted.
-
-     When non-‘nil’ then the descriptions of suffixes are highlighted if
-     their level is above 4, the default of ‘transient-default-level’.
-     Assuming you have set that variable to 7, this highlights all
-     suffixes that won’t be available to users without them making the
-     same customization.
-
-
-File: transient.info,  Node: Modifying Existing Transients,  Next: Defining New Commands,  Prev: Usage,  Up: Top
-
-3 Modifying Existing Transients
-*******************************
-
-To an extent, transients can be customized interactively, see *note
-Enabling and Disabling Suffixes::.  This section explains how existing
-transients can be further modified non-interactively.  Let’s begin with
-an example:
-
-     (transient-append-suffix 'magit-patch-apply "-3"
-       '("-R" "Apply in reverse" "--reverse"))
-
-   This inserts a new infix argument to toggle the ‘--reverse’ argument
-after the infix argument that toggles ‘-3’ in ‘magit-patch-apply’.
-
-   The following functions share a few arguments:
-
-   • PREFIX is a transient prefix command, a symbol.
-
-   • SUFFIX is a transient infix or suffix specification in the same
-     form as expected by ‘transient-define-prefix’.  Note that an infix
-     is a special kind of suffix.  Depending on context “suffixes” means
-     “suffixes (including infixes)” or “non-infix suffixes”.  Here it
-     means the former.  See *note Suffix Specifications::.
-
-     SUFFIX may also be a group in the same form as expected by
-     ‘transient-define-prefix’.  See *note Group Specifications::.
-
-   • LOC is a command, a key vector, a key description (a string as
-     returned by ‘key-description’), or a list specifying coordinates
-     (the last element may also be a command or key).  For example ‘(1 0
-     -1)’ identifies the last suffix (‘-1’) of the first subgroup (‘0’)
-     of the second group (‘1’).
-
-     If LOC is a list of coordinates, then it can be used to identify a
-     group, not just an individual suffix command.
-
-     The function ‘transient-get-suffix’ can be useful to determine
-     whether a certain coordination list identifies the suffix or group
-     that you expect it to identify.  In hairy cases it may be necessary
-     to look at the definition of the transient prefix command.
-
-   These functions operate on the information stored in the
-‘transient--layout’ property of the PREFIX symbol.  Suffix entries in
-that tree are not objects but have the form ‘(LEVEL CLASS PLIST)’, where
-PLIST should set at least ‘:key’, ‘:description’ and ‘:command’.
-
- -- Function: transient-insert-suffix prefix loc suffix &optional
-          keep-other
- -- Function: transient-append-suffix prefix loc suffix &optional
-          keep-other
-     These functions insert the suffix or group SUFFIX into PREFIX
-     before or after LOC.
-
-     Conceptually adding a binding to a transient prefix is similar to
-     adding a binding to a keymap, but this is complicated by the fact
-     that multiple suffix commands can be bound to the same key,
-     provided they are never active at the same time, see *note
-     Predicate Slots::.
-
-     Unfortunately both false-positives and false-negatives are
-     possible.  To deal with the former use non-‘nil’ KEEP-OTHER.  To
-     deal with the latter remove the conflicting binding explicitly.
-
- -- Function: transient-replace-suffix prefix loc suffix
-     This function replaces the suffix or group at LOC in PREFIX with
-     suffix or group SUFFIX.
-
- -- Function: transient-remove-suffix prefix loc
-     This function removes the suffix or group at LOC in PREFIX.
-
- -- Function: transient-get-suffix prefix loc
-     This function returns the suffix or group at LOC in PREFIX.  The
-     returned value has the form mentioned above.
-
- -- Function: transient-suffix-put prefix loc prop value
-     This function edits the suffix or group at LOC in PREFIX, by
-     setting the PROP of its plist to VALUE.
-
-   Most of these functions do not signal an error if they cannot perform
-the requested modification.  The functions that insert new suffixes show
-a warning if LOC cannot be found in PREFIX without signaling an error.
-The reason for doing it like this is that establishing a key binding
-(and that is what we essentially are trying to do here) should not
-prevent the rest of the configuration from loading.  Among these
-functions only ‘transient-get-suffix’ and ‘transient-suffix-put’ may
-signal an error.
-
-
-File: transient.info,  Node: Defining New Commands,  Next: Classes and Methods,  Prev: Modifying Existing Transients,  Up: Top
-
-4 Defining New Commands
-***********************
-
-* Menu:
-
-* Technical Introduction::
-* Defining Transients::
-* Binding Suffix and Infix Commands::
-* Defining Suffix and Infix Commands::
-* Using Infix Arguments::
-* Transient State::
-
-
-File: transient.info,  Node: Technical Introduction,  Next: Defining Transients,  Up: Defining New Commands
-
-4.1 Technical Introduction
-==========================
-
-Taking inspiration from prefix keys and prefix arguments, Transient
-implements a similar abstraction involving a prefix command, infix
-arguments and suffix commands.
-
-   When the user calls a transient prefix command, a transient
-(temporary) keymap is activated, which binds the transient’s infix and
-suffix commands, and functions that control the transient state are
-added to ‘pre-command-hook’ and ‘post-command-hook’.  The available
-suffix and infix commands and their state are shown in a popup buffer
-until the transient state is exited by invoking a suffix command.
-
-   Calling an infix command causes its value to be changed.  How that is
-done depends on the type of the infix command.  The simplest case is an
-infix command that represents a command-line argument that does not take
-a value.  Invoking such an infix command causes the switch to be toggled
-on or off.  More complex infix commands may read a value from the user,
-using the minibuffer.
-
-   Calling a suffix command usually causes the transient to be exited;
-the transient keymaps and hook functions are removed, the popup buffer
-no longer shows information about the (no longer bound) suffix commands,
-the values of some public global variables are set, while some internal
-global variables are unset, and finally the command is actually called.
-Suffix commands can also be configured to not exit the transient.
-
-   A suffix command can, but does not have to, use the infix arguments
-in much the same way any command can choose to use or ignore the prefix
-arguments.  For a suffix command that was invoked from a transient, the
-variable ‘transient-current-suffixes’ and the function ‘transient-args’
-serve about the same purpose as the variables ‘prefix-arg’ and
-‘current-prefix-arg’ do for any command that was called after the prefix
-arguments have been set using a command such as ‘universal-argument’.
-
-   Transient can be used to implement simple “command dispatchers”.  The
-main benefit then is that the user can see all the available commands in
-a popup buffer, which can be thought of as a “menus”.  That is useful by
-itself because it frees the user from having to remember all the keys
-that are valid after a certain prefix key or command.  Magit’s
-‘magit-dispatch’ (on ‘C-x M-g’) command is an example of using Transient
-to merely implement a command dispatcher.
-
-   In addition to that, Transient also allows users to interactively
-pass arguments to commands.  These arguments can be much more complex
-than what is reasonable when using prefix arguments.  There is a limit
-to how many aspects of a command can be controlled using prefix
-arguments.  Furthermore, what a certain prefix argument means for
-different commands can be completely different, and users have to read
-documentation to learn and then commit to memory what a certain prefix
-argument means to a certain command.
-
-   Transient suffix commands, on the other hand, can accept dozens of
-different arguments without the user having to remember anything.  When
-using Transient, one can call a command with arguments that are just as
-complex as when calling the same function non-interactively from Lisp.
-
-   Invoking a transient suffix command with arguments is similar to
-invoking a command in a shell with command-line completion and history
-enabled.  One benefit of the Transient interface is that it remembers
-history not only on a global level (“this command was invoked using
-these arguments, and previously it was invoked using those other
-arguments”), but also remembers the values of individual arguments
-independently.  See *note Using History::.
-
-   After a transient prefix command is invoked, ‘C-h KEY’ can be used to
-show the documentation for the infix or suffix command that ‘KEY’ is
-bound to (see *note Getting Help for Suffix Commands::), and infixes and
-suffixes can be removed from the transient using ‘C-x l KEY’.  Infixes
-and suffixes that are disabled by default can be enabled the same way.
-See *note Enabling and Disabling Suffixes::.
-
-   Transient ships with support for a few different types of specialized
-infix commands.  A command that sets a command line option, for example,
-has different needs than a command that merely toggles a boolean flag.
-Additionally, Transient provides abstractions for defining new types,
-which the author of Transient did not anticipate (or didn’t get around
-to implementing yet).
-
-   Note that suffix commands also support regular prefix arguments.  A
-suffix command may even be called with both infix and prefix arguments
-at the same time.  If you invoke a command as a suffix of a transient
-prefix command, but also want to pass prefix arguments to it, then first
-invoke the prefix command, and only after doing that invoke the prefix
-arguments, before finally invoking the suffix command.  If you instead
-began by providing the prefix arguments, then those would apply to the
-prefix command, not the suffix command.  Likewise, if you want to change
-infix arguments before invoking a suffix command with prefix arguments,
-then change the infix arguments before invoking the prefix arguments.
-In other words, regular prefix arguments always apply to the next
-command, and since transient prefix, infix and suffix commands are just
-regular commands, the same applies to them.  (Regular prefix keys behave
-differently because they are not commands at all, instead they are just
-incomplete key sequences, and those cannot be interrupted with prefix
-commands.)
-
-
-File: transient.info,  Node: Defining Transients,  Next: Binding Suffix and Infix Commands,  Prev: Technical Introduction,  Up: Defining New Commands
-
-4.2 Defining Transients
-=======================
-
-A transient consists of a prefix command and at least one suffix
-command, though usually a transient has several infix and suffix
-commands.  The below macro defines the transient prefix command *and*
-binds the transient’s infix and suffix commands.  In other words, it
-defines the complete transient, not just the transient prefix command
-that is used to invoke that transient.
-
- -- Macro: transient-define-prefix name arglist [docstring] [keyword
-          value]... group... [body...]
-     This macro defines NAME as a transient prefix command and binds the
-     transient’s infix and suffix commands.
-
-     ARGLIST are the arguments that the prefix command takes.  DOCSTRING
-     is the documentation string and is optional.
-
-     These arguments can optionally be followed by keyword-value pairs.
-     Each key has to be a keyword symbol, either ‘:class’ or a keyword
-     argument supported by the constructor of that class.  The
-     ‘transient-prefix’ class is used if the class is not specified
-     explicitly.
-
-     GROUPs add key bindings for infix and suffix commands and specify
-     how these bindings are presented in the popup buffer.  At least one
-     GROUP has to be specified.  See *note Binding Suffix and Infix
-     Commands::.
-
-     The BODY is optional.  If it is omitted, then ARGLIST is ignored
-     and the function definition becomes:
-
-          (lambda ()
-            (interactive)
-            (transient-setup 'NAME))
-
-     If BODY is specified, then it must begin with an ‘interactive’ form
-     that matches ARGLIST, and it must call ‘transient-setup’.  It may,
-     however, call that function only when some condition is satisfied.
-
-     All transients have a (possibly ‘nil’) value, which is exported
-     when suffix commands are called, so that they can consume that
-     value.  For some transients it might be necessary to have a sort of
-     secondary value, called a “scope”.  Such a scope would usually be
-     set in the command’s ‘interactive’ form and has to be passed to the
-     setup function:
-
-          (transient-setup 'NAME nil nil :scope SCOPE)
-
-     For example, the scope of the ‘magit-branch-configure’ transient is
-     the branch whose variables are being configured.
-
-
-File: transient.info,  Node: Binding Suffix and Infix Commands,  Next: Defining Suffix and Infix Commands,  Prev: Defining Transients,  Up: Defining New Commands
-
-4.3 Binding Suffix and Infix Commands
-=====================================
-
-The macro ‘transient-define-prefix’ is used to define a transient.  This
-defines the actual transient prefix command (see *note Defining
-Transients::) and adds the transient’s infix and suffix bindings, as
-described below.
-
-   Users and third-party packages can add additional bindings using
-functions such as ‘transient-insert-suffix’ (see *note Modifying
-Existing Transients::).  These functions take a “suffix specification”
-as one of their arguments, which has the same form as the specifications
-used in ‘transient-define-prefix’.
-
-* Menu:
-
-* Group Specifications::
-* Suffix Specifications::
-
-
-File: transient.info,  Node: Group Specifications,  Next: Suffix Specifications,  Up: Binding Suffix and Infix Commands
-
-4.3.1 Group Specifications
---------------------------
-
-The suffix and infix commands of a transient are organized in groups.
-The grouping controls how the descriptions of the suffixes are outlined
-visually but also makes it possible to set certain properties for a set
-of suffixes.
-
-   Several group classes exist, some of which organize suffixes in
-subgroups.  In most cases the class does not have to be specified
-explicitly, but see *note Group Classes::.
-
-   Groups are specified in the call to ‘transient-define-prefix’, using
-vectors.  Because groups are represented using vectors, we cannot use
-square brackets to indicate an optional element and instead use curly
-brackets to do the latter.
-
-   Group specifications then have this form:
-
-     [{LEVEL} {DESCRIPTION} {KEYWORD VALUE}... ELEMENT...]
-
-   The LEVEL is optional and defaults to 4.  See *note Enabling and
-Disabling Suffixes::.
-
-   The DESCRIPTION is optional.  If present, it is used as the heading
-of the group.
-
-   The KEYWORD-VALUE pairs are optional.  Each keyword has to be a
-keyword symbol, either ‘:class’ or a keyword argument supported by the
-constructor of that class.
-
-   • One of these keywords, ‘:description’, is equivalent to specifying
-     DESCRIPTION at the very beginning of the vector.  The
-     recommendation is to use ‘:description’ if some other keyword is
-     also used, for consistency, or DESCRIPTION otherwise, because it
-     looks better.
-
-   • Likewise ‘:level’ is equivalent to LEVEL.
-
-   • Other important keywords include the ‘:if...’ and ‘:inapt-if...’
-     keywords.  These keywords control whether the group is available in
-     a certain situation.
-
-     For example, one group of the ‘magit-rebase’ transient uses ‘:if
-     magit-rebase-in-progress-p’, which contains the suffixes that are
-     useful while rebase is already in progress; and another that uses
-     ‘:if-not magit-rebase-in-progress-p’, which contains the suffixes
-     that initiate a rebase.
-
-     These predicates can also be used on individual suffixes and are
-     only documented once, see *note Predicate Slots::.
-
-   • The value of ‘:hide’, if non-‘nil’, is a predicate that controls
-     whether the group is hidden by default.  The key bindings for
-     suffixes of a hidden group should all use the same prefix key.
-     Pressing that prefix key should temporarily show the group and its
-     suffixes, which assumes that a predicate like this is used:
-
-          (lambda ()
-            (eq (car transient--redisplay-key)
-                ?\C-c)) ; the prefix key shared by all bindings
-
-   • The value of ‘:setup-children’, if non-‘nil’, is a function that
-     takes one argument, a potentially list of children, and must return
-     a list of children or an empty list.  This can either be used to
-     somehow transform the group’s children that were defined the normal
-     way, or to dynamically create the children from scratch.
-
-     The returned children must have the same form as stored in the
-     prefix’s ‘transient--layout’ property, but it is often more
-     convenient to use the same form as understood by
-     ‘transient-define-prefix’, described below.  If you use the latter
-     approach, you can use the ‘transient-parse-suffixes’ and
-     ‘transient-parse-suffix’ functions to transform them from the
-     convenient to the expected form.  Depending on the used group
-     class, ‘transient-parse-suffixes’’s SUFFIXES must be a list of
-     group vectors (for ‘transient-columns’) or a list of suffix lists
-     (for all other group classes).
-
-     If you explicitly specify children and then transform them using
-     ‘:setup-children’, then the class of the group is determined as
-     usual, based on explicitly specified children.
-
-     If you do not explicitly specify children and thus rely solely on
-     ‘:setup-children’, then you must specify the class using ‘:class’.
-     For backward compatibility, if you fail to do so,
-     ‘transient-column’ is used and a warning is displayed.  This
-     warning will eventually be replaced with an error.
-
-          (transient-define-prefix my-finder-by-keyword ()
-            "Select a keyword and list matching packages."
-            ;; The real `finder-by-keyword' is more convenient
-            ;; of course, but that is not the point here.
-            [:class transient-columns
-             :setup-children
-             (lambda (_)
-               (transient-parse-suffixes
-                'my-finder-by-keyword
-                (let ((char (1- ?A)))
-                  (mapcar                  ; a list ...
-                   (lambda (partition)
-                     (vconcat              ; of group vectors ...
-                      (mapcar (lambda (elt)
-                                (let ((keyword (symbol-name (car elt))))
-                                           ; ... where each suffix is a list
-                                  (list (format "%c" (cl-incf char))
-                                        keyword
-                                        (lambda ()
-                                          (interactive)
-                                          (finder-list-matches keyword)))))
-                              partition)))
-                   (seq-partition finder-known-keywords 7)))))])
-
-   • The boolean ‘:pad-keys’ argument controls whether keys of all
-     suffixes contained in a group are right padded, effectively
-     aligning the descriptions.
-
-   The ELEMENTs are either all subgroups, or all suffixes and strings.
-(At least currently no group type exists that would allow mixing
-subgroups with commands at the same level, though in principle there is
-nothing that prevents that.)
-
-   If the ELEMENTs are not subgroups, then they can be a mixture of
-lists, which specify commands, and strings.  Strings are inserted
-verbatim into the buffer.  The empty string can be used to insert gaps
-between suffixes, which is particularly useful if the suffixes are
-outlined as a table.
-
-   Inside group specifications, including inside contained suffix
-specifications, nothing has to be quoted and quoting anyway is invalid.
-The value following a keyword, can be explicitly unquoted using ‘,’.
-This feature is experimental and should be avoided.
-
-   The form of suffix specifications is documented in the next node.
-
-
-File: transient.info,  Node: Suffix Specifications,  Prev: Group Specifications,  Up: Binding Suffix and Infix Commands
-
-4.3.2 Suffix Specifications
----------------------------
-
-A transient’s suffix and infix commands are bound when the transient
-prefix command is defined using ‘transient-define-prefix’, see *note
-Defining Transients::.  The commands are organized into groups, see
-*note Group Specifications::.  Here we describe the form used to bind an
-individual suffix command.
-
-   The same form is also used when later binding additional commands
-using functions such as ‘transient-insert-suffix’, see *note Modifying
-Existing Transients::.
-
-   Note that an infix is a special kind of suffix.  Depending on context
-“suffixes” means “suffixes (including infixes)” or “non-infix suffixes”.
-Here it means the former.
-
-   Suffix specifications have this form:
-
-     ([LEVEL] [KEY [DESCRIPTION]] COMMAND|ARGUMENT [KEYWORD VALUE]...)
-
-   LEVEL, KEY and DESCRIPTION can also be specified using the KEYWORDs
-‘:level’, ‘:key’ and ‘:description’.  If the object that is associated
-with COMMAND sets these properties, then they do not have to be
-specified here.  You can however specify them here anyway, possibly
-overriding the object’s values just for the binding inside this
-transient.
-
-   • LEVEL is the suffix level, an integer between 1 and 7.  See *note
-     Enabling and Disabling Suffixes::.
-
-   • KEY is the key binding, either a vector or key description string.
-
-   • DESCRIPTION is the description, either a string or a function that
-     takes zero or one arguments (the suffix object) and returns a
-     string.  The function should be a lambda expression to avoid
-     ambiguity.  In some cases a symbol that is bound as a function
-     would also work but to be safe you should use ‘:description’ in
-     that case.
-
-   The next element is either a command or an argument.  This is the
-only argument that is mandatory in all cases.
-
-   • COMMAND should be a symbol that is bound as a function, which has
-     to be defined or at least autoloaded as a command by the time the
-     containing prefix command is invoked.
-
-     Any command will do; it does not need to have an object associated
-     with it (as would be the case if ‘transient-define-suffix’ or
-     ‘transient-define-infix’ were used to define it).
-
-     COMMAND can also be a ‘lambda’ expression.
-
-     As mentioned above, the object that is associated with a command
-     can be used to set the default for certain values that otherwise
-     have to be set in the suffix specification.  Therefore if there is
-     no object, then you have to make sure to specify the KEY and the
-     DESCRIPTION.
-
-     As a special case, if you want to add a command that might be
-     neither defined nor autoloaded, you can use a workaround like:
-
-          (transient-insert-suffix 'some-prefix "k"
-            '("!" "Ceci n'est pas une commande" no-command
-              :if (lambda () (featurep 'no-library))))
-
-     Instead of ‘featurep’ you could also use ‘require’ with a non-‘nil’
-     value for NOERROR.
-
-   • The mandatory argument can also be a command-line argument, a
-     string.  In that case an anonymous command is defined and bound.
-
-     Instead of a string, this can also be a list of two strings, in
-     which case the first string is used as the short argument (which
-     can also be specified using ‘:shortarg’) and the second as the long
-     argument (which can also be specified using ‘:argument’).
-
-     Only the long argument is displayed in the popup buffer.  See
-     ‘transient-detect-key-conflicts’ for how the short argument may be
-     used.
-
-     Unless the class is specified explicitly, the appropriate class is
-     guessed based on the long argument.  If the argument ends with ‘=’
-     (e.g., ‘--format=’) then ‘transient-option’ is used, otherwise
-     ‘transient-switch’.
-
-   Finally, details can be specified using optional KEYWORD-VALUE pairs.
-Each keyword has to be a keyword symbol, either ‘:class’ or a keyword
-argument supported by the constructor of that class.  See *note Suffix
-Slots::.
-
-
-File: transient.info,  Node: Defining Suffix and Infix Commands,  Next: Using Infix Arguments,  Prev: Binding Suffix and Infix Commands,  Up: Defining New Commands
-
-4.4 Defining Suffix and Infix Commands
-======================================
-
-Note that an infix is a special kind of suffix.  Depending on context
-“suffixes” means “suffixes (including infixes)” or “non-infix suffixes”.
-
- -- Macro: transient-define-suffix name arglist [docstring] [keyword
-          value]... body...
-     This macro defines NAME as a transient suffix command.
-
-     ARGLIST are the arguments that the command takes.  DOCSTRING is the
-     documentation string and is optional.
-
-     These arguments can optionally be followed by keyword-value pairs.
-     Each keyword has to be a keyword symbol, either ‘:class’ or a
-     keyword argument supported by the constructor of that class.  The
-     ‘transient-suffix’ class is used if the class is not specified
-     explicitly.
-
-     The BODY must begin with an ‘interactive’ form that matches
-     ARGLIST.  The infix arguments are usually accessed by using
-     ‘transient-args’ inside ‘interactive’.
-
- -- Macro: transient-define-infix name arglist [docstring] [keyword
-          value]...
-     This macro defines NAME as a transient infix command.
-
-     ARGLIST is always ignored (but mandatory never-the-less) and
-     reserved for future use.  DOCSTRING is the documentation string and
-     is optional.
-
-     At least one key-value pair is required.  All transient infix
-     commands are ‘equal’ to each other (but not ‘eq’).  It is
-     meaningless to define an infix command, without providing at least
-     one keyword argument (usually ‘:argument’ or ‘:variable’, depending
-     on the class).  The suffix class defaults to ‘transient-switch’ and
-     can be set using the ‘:class’ keyword.
-
-     The function definition is always:
-
-          (lambda ()
-            (interactive)
-            (let ((obj (transient-suffix-object)))
-              (transient-infix-set obj (transient-infix-read obj)))
-            (transient--show))
-
-     ‘transient-infix-read’ and ‘transient-infix-set’ are generic
-     functions.  Different infix commands behave differently because the
-     concrete methods are different for different infix command classes.
-     In rare cases the above command function might not be suitable,
-     even if you define your own infix command class.  In that case you
-     have to use ‘transient-define-suffix’ to define the infix command
-     and use ‘t’ as the value of the ‘:transient’ keyword.
-
- -- Macro: transient-define-argument name arglist [docstring] [keyword
-          value]...
-     This macro defines NAME as a transient infix command.
-
-     This is an alias for ‘transient-define-infix’.  Only use this alias
-     to define an infix command that actually sets an infix argument.
-     To define an infix command that, for example, sets a variable, use
-     ‘transient-define-infix’ instead.
-
-
-File: transient.info,  Node: Using Infix Arguments,  Next: Transient State,  Prev: Defining Suffix and Infix Commands,  Up: Defining New Commands
-
-4.5 Using Infix Arguments
-=========================
-
-The functions and the variables described below allow suffix commands to
-access the value of the transient from which they were invoked; which is
-the value of its infix arguments.  These variables are set when the user
-invokes a suffix command that exits the transient, but before actually
-calling the command.
-
-   When returning to the command-loop after calling the suffix command,
-the arguments are reset to ‘nil’ (which causes the function to return
-‘nil’ too).
-
-   Like for Emacs’s prefix arguments, it is advisable, but not
-mandatory, to access the infix arguments inside the command’s
-‘interactive’ form.  The preferred way of doing that is to call the
-‘transient-args’ function, which for infix arguments serves about the
-same purpose as ‘prefix-arg’ serves for prefix arguments.
-
- -- Function: transient-args prefix
-     This function returns the value of the transient prefix command
-     PREFIX.
-
-     If the current command was invoked from the transient prefix
-     command PREFIX, then it returns the active infix arguments.  If the
-     current command was not invoked from PREFIX, then it returns the
-     set, saved or default value for PREFIX.
-
- -- Function: transient-arg-value arg args
-     This function return the value of ARG as it appears in ARGS.
-
-     For a switch a boolean is returned.  For an option the value is
-     returned as a string, using the empty string for the empty value,
-     or ‘nil’ if the option does not appear in ARGS.
-
- -- Function: transient-suffixes prefix
-     This function returns the suffixes of the transient prefix command
-     PREFIX.  This is a list of objects.  This function should only be
-     used if you need the objects (as opposed to just their values) and
-     if the current command is not being invoked from PREFIX.
-
- -- Variable: transient-current-suffixes
-     The suffixes of the transient from which this suffix command was
-     invoked.  This is a list of objects.  Usually it is sufficient to
-     instead use the function ‘transient-args’, which returns a list of
-     values.  In complex cases it might be necessary to use this
-     variable instead, i.e., if you need access to information beside
-     the value.
-
- -- Variable: transient-current-command
-     The transient from which this suffix command was invoked.  The
-     returned value is a symbol, the transient prefix command.
-
- -- Variable: transient-current-prefix
-     The transient from which this suffix command was invoked.  The
-     returned value is a ‘transient-prefix’ object, which holds
-     information associated with the transient prefix command.
-
- -- Function: transient-active-prefix
-     This function returns the active transient object.  Return ‘nil’ if
-     there is no active transient, if the transient buffer isn’t shown,
-     and while the active transient is suspended (e.g., while the
-     minibuffer is in use).
-
-     Unlike ‘transient-current-prefix’, which is only ever non-‘nil’ in
-     code that is run directly by a command that is invoked while a
-     transient is current, this function is also suitable for use in
-     asynchronous code, such as timers and callbacks (this function’s
-     main use-case).
-
-     If optional PREFIXES is non-‘nil’, it must be a prefix command
-     symbol or a list of symbols, in which case the active transient
-     object is only returned if it matches one of the PREFIXES.
-
-
-File: transient.info,  Node: Transient State,  Prev: Using Infix Arguments,  Up: Defining New Commands
-
-4.6 Transient State
-===================
-
-Invoking a transient prefix command “activates” the respective
-transient, i.e., it puts a transient keymap into effect, which binds the
-transient’s infix and suffix commands.
-
-   The default behavior while a transient is active is as follows:
-
-   • Invoking an infix command does not affect the transient state; the
-     transient remains active.
-
-   • Invoking a (non-infix) suffix command “deactivates” the transient
-     state by removing the transient keymap and performing some
-     additional cleanup.
-
-   • Invoking a command that is bound in a keymap other than the
-     transient keymap is disallowed and trying to do so results in a
-     warning.  This does not “deactivate” the transient.
-
-   The behavior can be changed for all suffixes of a particular prefix
-and/or for individual suffixes.  The values should nearly always be
-booleans, but certain functions, called “pre-commands”, can also be
-used.  These functions are named ‘transient--do-VERB’, and the symbol
-‘VERB’ can be used as a shorthand.
-
-   A boolean is interpreted as answering the question "does the
-transient stay active, when this command is invoked?"  ‘t’ means that
-the transient stays active, while ‘nil’ means that invoking the command
-exits the transient.
-
-   Note that when the suffix is a “sub-prefix”, invoking that command
-always activates that sub-prefix, causing the outer prefix to no longer
-be active and displayed.  Here ‘t’ means that when you exit the inner
-prefix, then the outer prefix becomes active again, while ‘nil’ means
-that all outer prefixes are exited at once.
-
-   • The behavior for non-suffixes can be set for a particular prefix,
-     by the prefix’s ‘transient-non-suffix’ slot to a boolean, a
-     suitable pre-command function, or a shorthand for such a function.
-     See *note Pre-commands for Non-Suffixes::.
-
-   • The common behavior for the suffixes of a particular prefix can be
-     set using the prefix’s ‘transient-suffixes’ slot.
-
-     The value specified in this slot does *not* affect infixes.
-     Because it affects both regular suffixes as well as sub-prefixes,
-     which have different needs, it is best to avoid explicitly
-     specifying a function.
-
-   • The behavior of an individual suffix can be changed using its
-     ‘transient’ slot.  While it is usually best to use a boolean, for
-     this slot it can occasionally make sense to specify a function
-     explicitly.
-
-     Note that this slot can be set when defining a suffix command using
-     ‘transient-define-suffix’ and/or in the definition of the prefix.
-     If set in both places, then the latter takes precedence, as usual.
-
-   The available pre-command functions are documented in the following
-sub-sections.  They are called by ‘transient--pre-command’, a function
-on ‘pre-command-hook’, and the value that they return determines whether
-the transient is exited.  To do so the value of one of the constants
-‘transient--exit’ or ‘transient--stay’ is used (that way we don’t have
-to remember if ‘t’ means “exit” or “stay”).
-
-   Additionally, these functions may change the value of ‘this-command’
-(which explains why they have to be called using ‘pre-command-hook’),
-call ‘transient-export’, ‘transient--stack-zap’ or
-‘transient--stack-push’; and set the values of ‘transient--exitp’,
-‘transient--helpp’ or ‘transient--editp’.
-
-   For completeness sake, some notes about complications:
-
-   • The transient-ness of certain built-in suffix commands is specified
-     using ‘transient-predicate-map’.  This is a special keymap, which
-     binds commands to pre-commands (as opposed to keys to commands) and
-     takes precedence over the prefix’s ‘transient-suffix’ slot, but not
-     the suffix’s ‘transient’ slot.
-
-   • While a sub-prefix is active we nearly always want ‘C-g’ to take
-     the user back to the “super-prefix”, even when the other suffixes
-     don’t do that.  However, in rare cases this may not be desirable,
-     and that makes the following complication necessary:
-
-     For ‘transient-suffix’ objects the ‘transient’ slot is unbound.  We
-     can ignore that for the most part because ‘nil’ and the slot being
-     unbound are treated as equivalent, and mean “do exit”.  That isn’t
-     actually true for suffixes that are sub-prefixes though.  For such
-     suffixes unbound means “do exit but allow going back”, which is the
-     default, while ‘nil’ means “do exit permanently”, which requires
-     that slot to be explicitly set to that value.
-
-Pre-commands for Infixes
-------------------------
-
-The default for infixes is ‘transient--do-stay’.  This is also the only
-function that makes sense for infixes, which is why this predicate is
-used even if the value of the prefix’s ‘transient-suffix’ slot is ‘t’.
-In extremely rare cases, one might want to use something else, which can
-be done by setting the infix’s ‘transient’ slot directly.
-
- -- Function: transient--do-stay
-     Call the command without exporting variables and stay transient.
-
-Pre-commands for Suffixes
--------------------------
-
-By default, invoking a suffix causes the transient to be exited.
-
-   The behavior for an individual suffix command can be changed by
-setting its ‘transient’ slot to a boolean (which is highly recommended),
-or to one of the following pre-commands.
-
- -- Function: transient--do-exit
-     Call the command after exporting variables and exit the transient.
-
- -- Function: transient--do-return
-     Call the command after exporting variables and return to the parent
-     prefix.  If there is no parent prefix, then call
-     ‘transient--do-exit’.
-
- -- Function: transient--do-call
-     Call the command after exporting variables and stay transient.
-
-   The following pre-commands are only suitable for sub-prefixes.  It is
-not necessary to explicitly use these predicates because the correct
-predicate is automatically picked based on the value of the ‘transient’
-slot for the sub-prefix itself.
-
- -- Function: transient--do-recurse
-     Call the transient prefix command, preparing for return to active
-     transient.
-
-     Whether we actually return to the parent transient is ultimately
-     under the control of each invoked suffix.  The difference between
-     this pre-command and ‘transient--do-stack’ is that it changes the
-     value of the ‘transient-suffix’ slot to ‘t’.
-
-     If there is no parent transient, then only call this command and
-     skip the second step.
-
- -- Function: transient--do-stack
-     Call the transient prefix command, stacking the active transient.
-     Push the active transient to the transient stack.
-
-     Unless ‘transient--do-recurse’ is explicitly used, this pre-command
-     is automatically used for suffixes that are prefixes themselves,
-     i.e., for sub-prefixes.
-
- -- Function: transient--do-replace
-     Call the transient prefix command, replacing the active transient.
-     Do not push the active transient to the transient stack.
-
-     Unless ‘transient--do-recurse’ is explicitly used, this pre-command
-     is automatically used for suffixes that are prefixes themselves,
-     i.e., for sub-prefixes.
-
- -- Function: transient--do-suspend
-     Suspend the active transient, saving the transient stack.
-
-     This is used by the command ‘transient-suspend’ and optionally also
-     by “external events” such as ‘handle-switch-frame’.  Such bindings
-     should be added to ‘transient-predicate-map’.
-
-Pre-commands for Non-Suffixes
------------------------------
-
-By default, non-suffixes (commands that are bound in other keymaps
-beside the transient keymap) cannot be invoked.  Trying to invoke such a
-command results in a warning and the transient stays active.
-
-   If you want a different behavior, then set the ‘transient-non-suffix’
-slot of the transient prefix command.  The value should be a boolean,
-answering the question, "is it allowed to invoke non-suffix commands?, a
-pre-command function, or a shorthand for such a function.
-
-   If the value is ‘t’, then non-suffixes can be invoked, when it is
-‘nil’ (the default) then they cannot be invoked.
-
-   The only other recommended value is ‘leave’.  If that is used, then
-non-suffixes can be invoked, but if one is invoked, then that exits the
-transient.
-
- -- Function: transient--do-warn
-     Call ‘transient-undefined’ and stay transient.
-
- -- Function: transient--do-stay
-     Call the command without exporting variables and stay transient.
-
- -- Function: transient--do-leave
-     Call the command without exporting variables and exit the
-     transient.
-
-Special Pre-Commands
---------------------
-
- -- Function: transient--do-quit-one
-     If active, quit help or edit mode, else exit the active transient.
-
-     This is used when the user pressed ‘C-g’.
-
- -- Function: transient--do-quit-all
-     Exit all transients without saving the transient stack.
-
-     This is used when the user pressed ‘C-q’.
-
- -- Function: transient--do-suspend
-     Suspend the active transient, saving the transient stack.
-
-     This is used when the user pressed ‘C-z’.
-
-
-File: transient.info,  Node: Classes and Methods,  Next: FAQ,  Prev: Defining New Commands,  Up: Top
-
-5 Classes and Methods
-*********************
-
-Transient uses classes and generic functions to make it possible to
-define new types of suffix commands that are similar to existing types,
-but behave differently in some aspects.  It does the same for groups and
-prefix commands, though at least for prefix commands that *currently*
-appears to be less important.
-
-   Every prefix, infix and suffix command is associated with an object,
-which holds information that controls certain aspects of its behavior.
-This happens in two ways.
-
-   • Associating a command with a certain class gives the command a
-     type.  This makes it possible to use generic functions to do
-     certain things that have to be done differently depending on what
-     type of command it acts on.
-
-     That in turn makes it possible for third-parties to add new types
-     without having to convince the maintainer of Transient that that
-     new type is important enough to justify adding a special case to a
-     dozen or so functions.
-
-   • Associating a command with an object makes it possible to easily
-     store information that is specific to that particular command.
-
-     Two commands may have the same type, but obviously their key
-     bindings and descriptions still have to be different, for example.
-
-     The values of some slots are functions.  The ‘reader’ slot for
-     example holds a function that is used to read a new value for an
-     infix command.  The values of such slots are regular functions.
-
-     Generic functions are used when a function should do something
-     different based on the type of the command, i.e., when all commands
-     of a certain type should behave the same way but different from the
-     behavior for other types.  Object slots that hold a regular
-     function as value are used when the task that they perform is
-     likely to differ even between different commands of the same type.
-
-* Menu:
-
-* Group Classes::
-* Group Methods::
-* Prefix Classes::
-* Suffix Classes::
-* Suffix Methods::
-* Prefix Slots::
-* Suffix Slots::
-* Predicate Slots::
-
-
-File: transient.info,  Node: Group Classes,  Next: Group Methods,  Up: Classes and Methods
-
-5.1 Group Classes
-=================
-
-The type of a group can be specified using the ‘:class’ property at the
-beginning of the class specification, e.g., ‘[:class transient-columns
-...]’ in a call to ‘transient-define-prefix’.
-
-   • The abstract ‘transient-child’ class is the base class of both
-     ‘transient-group’ (and therefore all groups) as well as of
-     ‘transient-suffix’ (and therefore all suffix and infix commands).
-
-     This class exists because the elements (or “children”) of certain
-     groups can be other groups instead of suffix and infix commands.
-
-   • The abstract ‘transient-group’ class is the superclass of all other
-     group classes.
-
-   • The ‘transient-column’ class is the simplest group.
-
-     This is the default “flat” group.  If the class is not specified
-     explicitly and the first element is not a vector (i.e., not a
-     group), then this class is used.
-
-     This class displays each element on a separate line.
-
-   • The ‘transient-row’ class displays all elements on a single line.
-
-   • The ‘transient-columns’ class displays commands organized in
-     columns.
-
-     Direct elements have to be groups whose elements have to be
-     commands or strings.  Each subgroup represents a column.  This
-     class takes care of inserting the subgroups’ elements.
-
-     This is the default “nested” group.  If the class is not specified
-     explicitly and the first element is a vector (i.e., a group), then
-     this class is used.
-
-   • The ‘transient-subgroups’ class wraps other groups.
-
-     Direct elements have to be groups whose elements have to be
-     commands or strings.  This group inserts an empty line between
-     subgroups.  The subgroups themselves are responsible for displaying
-     their elements.
-
-
-File: transient.info,  Node: Group Methods,  Next: Prefix Classes,  Prev: Group Classes,  Up: Classes and Methods
-
-5.2 Group Methods
-=================
-
- -- Function: transient-setup-children group children
-     This generic function can be used to setup the children or a group.
-
-     The default implementation usually just returns the children
-     unchanged, but if the ‘setup-children’ slot of GROUP is non-‘nil’,
-     then it calls that function with CHILDREN as the only argument and
-     returns the value.
-
-     The children are given as a (potentially empty) list consisting of
-     either group or suffix specifications.  These functions can make
-     arbitrary changes to the children including constructing new
-     children from scratch.
-
- -- Function: transient--insert-group group
-     This generic function formats the group and its elements and
-     inserts the result into the current buffer, which is a temporary
-     buffer.  The contents of that buffer are later inserted into the
-     popup buffer.
-
-     Functions that are called by this function may need to operate in
-     the buffer from which the transient was called.  To do so they can
-     temporarily make the ‘transient--source-buffer’ the current buffer.
-
-
-File: transient.info,  Node: Prefix Classes,  Next: Suffix Classes,  Prev: Group Methods,  Up: Classes and Methods
-
-5.3 Prefix Classes
-==================
-
-Currently the ‘transient-prefix’ class is being used for all prefix
-commands and there is only a single generic function that can be
-specialized based on the class of a prefix command.
-
- -- Function: transient--history-init obj
-     This generic function is called while setting up the transient and
-     is responsible for initializing the ‘history’ slot.  This is the
-     transient-wide history; many individual infixes also have a history
-     of their own.
-
-     The default (and currently only) method extracts the value from the
-     global variable ‘transient-history’.
-
-   A transient prefix command’s object is stored in the
-‘transient--prefix’ property of the command symbol.  While a transient
-is active, a clone of that object is stored in the variable
-‘transient--prefix’.  A clone is used because some changes that are made
-to the active transient’s object should not affect later invocations.
-
-
-File: transient.info,  Node: Suffix Classes,  Next: Suffix Methods,  Prev: Prefix Classes,  Up: Classes and Methods
-
-5.4 Suffix Classes
-==================
-
-   • All suffix and infix classes derive from ‘transient-suffix’, which
-     in turn derives from ‘transient-child’, from which
-     ‘transient-group’ also derives (see *note Group Classes::).
-
-   • All infix classes derive from the abstract ‘transient-infix’ class,
-     which in turn derives from the ‘transient-suffix’ class.
-
-     Infixes are a special type of suffixes.  The primary difference is
-     that infixes always use the ‘transient--do-stay’ pre-command, while
-     non-infix suffixes use a variety of pre-commands (see *note
-     Transient State::).  Doing that is most easily achieved by using
-     this class, though theoretically it would be possible to define an
-     infix class that does not do so.  If you do that then you get to
-     implement many methods.
-
-     Also, infixes and non-infix suffixes are usually defined using
-     different macros (see *note Defining Suffix and Infix Commands::).
-
-   • Classes used for infix commands that represent arguments should be
-     derived from the abstract ‘transient-argument’ class.
-
-   • The ‘transient-switch’ class (or a derived class) is used for infix
-     arguments that represent command-line switches (arguments that do
-     not take a value).
-
-   • The ‘transient-option’ class (or a derived class) is used for infix
-     arguments that represent command-line options (arguments that do
-     take a value).
-
-   • The ‘transient-switches’ class can be used for a set of mutually
-     exclusive command-line switches.
-
-   • The ‘transient-files’ class can be used for a ‘--’ argument that
-     indicates that all remaining arguments are files.
-
-   • Classes used for infix commands that represent variables should
-     derived from the abstract ‘transient-variable’ class.
-
-   • The ‘transient-information’ class is special in that suffixes that
-     use this class are not associated with a command and thus also not
-     with any key binding.  Such suffixes are only used to display
-     arbitrary information, and that anywhere a suffix can appear.
-     Display-only suffix specifications take this form:
-
-          ([LEVEL] :info DESCRIPTION [KEYWORD VALUE]...)
-
-     The ‘:info’ keyword argument replaces the ‘:description’ keyword
-     used for other suffix classes.  Other keyword arguments that you
-     might want to set, include ‘:face’, predicate keywords (such as
-     ‘:if’ and ‘:inapt-if’), and ‘:format’.  By default the value of
-     ‘:format’ includes ‘%k’, which for this class is replaced with the
-     empty string or spaces, if keys are being padded in the containing
-     group.
-
-   Magit defines additional classes, which can serve as examples for the
-fancy things you can do without modifying Transient.  Some of these
-classes will likely get generalized and added to Transient.  For now
-they are very much subject to change and not documented.
-
-
-File: transient.info,  Node: Suffix Methods,  Next: Prefix Slots,  Prev: Suffix Classes,  Up: Classes and Methods
-
-5.5 Suffix Methods
-==================
-
-To get information about the methods implementing these generic
-functions use ‘describe-function’.
-
-* Menu:
-
-* Suffix Value Methods::
-* Suffix Format Methods::
-
-
-File: transient.info,  Node: Suffix Value Methods,  Next: Suffix Format Methods,  Up: Suffix Methods
-
-5.5.1 Suffix Value Methods
---------------------------
-
- -- Function: transient-init-value obj
-     This generic function sets the initial value of the object OBJ.
-
-     This function is called for all suffix commands, but unless a
-     concrete method is implemented this falls through to the default
-     implementation, which is a noop.  In other words this usually only
-     does something for infix commands, but note that this is not
-     implemented for the abstract class ‘transient-infix’, so if your
-     class derives from that directly, then you must implement a method.
-
- -- Function: transient-infix-read obj
-     This generic function determines the new value of the infix object
-     OBJ.
-
-     This function merely determines the value; ‘transient-infix-set’ is
-     used to actually store the new value in the object.
-
-     For most infix classes this is done by reading a value from the
-     user using the reader specified by the ‘reader’ slot (using the
-     ‘transient-infix-value’ method described below).
-
-     For some infix classes the value is changed without reading
-     anything in the minibuffer, i.e., the mere act of invoking the
-     infix command determines what the new value should be, based on the
-     previous value.
-
- -- Function: transient-prompt obj
-     This generic function returns the prompt to be used to read infix
-     object OBJ’s value.
-
- -- Function: transient-infix-set obj value
-     This generic function sets the value of infix object OBJ to VALUE.
-
- -- Function: transient-infix-value obj
-     This generic function returns the value of the suffix object OBJ.
-
-     This function is called by ‘transient-args’ (which see), meaning
-     this function is how the value of a transient is determined so that
-     the invoked suffix command can use it.
-
-     Currently most values are strings, but that is not set in stone.
-     ‘nil’ is not a value, it means “no value”.
-
-     Usually only infixes have a value, but see the method for
-     ‘transient-suffix’.
-
- -- Function: transient-init-scope obj
-     This generic function sets the scope of the suffix object OBJ.
-
-     The scope is actually a property of the transient prefix, not of
-     individual suffixes.  However it is possible to invoke a suffix
-     command directly instead of from a transient.  In that case, if the
-     suffix expects a scope, then it has to determine that itself and
-     store it in its ‘scope’ slot.
-
-     This function is called for all suffix commands, but unless a
-     concrete method is implemented this falls through to the default
-     implementation, which is a noop.
-
-
-File: transient.info,  Node: Suffix Format Methods,  Prev: Suffix Value Methods,  Up: Suffix Methods
-
-5.5.2 Suffix Format Methods
----------------------------
-
- -- Function: transient-format obj
-     This generic function formats and returns OBJ for display.
-
-     When this function is called, then the current buffer is some
-     temporary buffer.  If you need the buffer from which the prefix
-     command was invoked to be current, then do so by temporarily making
-     ‘transient--source-buffer’ current.
-
- -- Function: transient-format-key obj
-     This generic function formats OBJ’s ‘key’ for display and returns
-     the result.
-
- -- Function: transient-format-description obj
-     This generic function formats OBJ’s ‘description’ for display and
-     returns the result.
-
- -- Function: transient-format-value obj
-     This generic function formats OBJ’s value for display and returns
-     the result.
-
- -- Function: transient-show-help obj
-     Show help for the prefix, infix or suffix command represented by
-     OBJ.
-
-     Regardless of OBJ’s type, if its ‘show-help’ slot is non-nil, that
-     must be a function, which takes OBJ is its only argument.  It must
-     prepare, display and return a buffer, and select the window used to
-     display it.  The ‘transient-show-help-window’ macro is intended for
-     use in such functions.
-
-     For prefixes, show the info manual, if that is specified using the
-     ‘info-manual’ slot.  Otherwise, show the manpage if that is
-     specified using the ‘man-page’ slot.  Otherwise, show the command’s
-     documentation string.
-
-     For suffixes, show the command’s documentation string.
-
-     For infixes, show the manpage if that is specified.  Otherwise show
-     the command’s documentation string.
-
- -- Macro: transient-with-help-window &rest body
-     Evaluate BODY, send output to ‘*Help*’ buffer, and display it in a
-     window.  Select the help window, and make the help buffer current
-     and return it.
-
- -- Function: transient-show-summary obj &optional return
-     This generic function shows or, if optional RETURN is non-‘nil’,
-     returns a brief summary about the command at point or hovered with
-     the mouse.
-
-     This function is called when the mouse is moved over a command and
-     (if the value of ‘transient-enable-popup-navigation’ is ‘verbose’)
-     when the user navigates to a command using the keyboard.
-
-     If OBJ’s ‘summary’ slot is a string, that is used.  If ‘summary’ is
-     a function, that is called with OBJ as the only argument and the
-     returned string is used.  If ‘summary’ is or returns something
-     other than a string or nil, no summary is shown.  If ‘summary’ is
-     or returns ‘nil’, the first line of the documentation string is
-     used, if any.
-
-     If RETURN is non-‘nil’, this function returns the summary instead
-     of showing it.  This is used when a tooltip is needed.
-
-
-File: transient.info,  Node: Prefix Slots,  Next: Suffix Slots,  Prev: Suffix Methods,  Up: Classes and Methods
-
-5.6 Prefix Slots
-================
-
-   • ‘show-help’, ‘man-page’ or ‘info-manual’ can be used to specify the
-     documentation for the prefix and its suffixes.  The command
-     ‘transient-help’ uses the function ‘transient-show-help’ (which
-     see) to lookup and use these values.
-
-   • ‘history-key’ If multiple prefix commands should share a single
-     value, then this slot has to be set to the same value for all of
-     them.  You probably don’t want that.
-
-   • ‘transient-suffix’ and ‘transient-non-suffix’ play a part when
-     determining whether the currently active transient prefix command
-     remains active/transient when a suffix or arbitrary non-suffix
-     command is invoked.  See *note Transient State::.
-
-   • ‘refresh-suffixes’ Normally suffix objects and keymaps are only
-     setup once, when the prefix is invoked.  Setting this to ‘t’,
-     causes them to be recreated after every command.  This is useful
-     when using ‘:if...’ predicates, and those need to be rerun for some
-     reason.  Doing this is somewhat costly, and there is a risk of
-     losing state, so this is disabled by default and still considered
-     experimental.
-
-   • ‘incompatible’ A list of lists.  Each sub-list specifies a set of
-     mutually exclusive arguments.  Enabling one of these arguments
-     causes the others to be disabled.  An argument may appear in
-     multiple sub-lists.  Arguments must me given in the same form as
-     used in the ‘argument’ or ‘argument-format’ slot of the respective
-     suffix objects, usually something like ‘--switch’ or ‘--option=%s’.
-     For options and ‘transient-switches’ suffixes it is also possible
-     to match against a specific value, as returned by
-     ‘transient-infix-value’, for example, ‘--option=one’.
-
-   • ‘scope’ For some transients it might be necessary to have a sort of
-     secondary value, called a “scope”.  See ‘transient-define-prefix’.
-
-Internal Prefix Slots
----------------------
-
-These slots are mostly intended for internal use.  They should not be
-set in calls to ‘transient-define-prefix’.
-
-   • ‘prototype’ When a transient prefix command is invoked, then a
-     clone of that object is stored in the global variable
-     ‘transient--prefix’ and the prototype is stored in the clone’s
-     ‘prototype’ slot.
-
-   • ‘command’ The command, a symbol.  Each transient prefix command
-     consists of a command, which is stored in a symbol’s function slot
-     and an object, which is stored in the ‘transient--prefix’ property
-     of the same symbol.
-
-   • ‘level’ The level of the prefix commands.  The suffix commands
-     whose layer is equal or lower are displayed.  See *note Enabling
-     and Disabling Suffixes::.
-
-   • ‘value’ The likely outdated value of the prefix.  Instead of
-     accessing this slot directly you should use the function
-     ‘transient-get-value’, which is guaranteed to return the up-to-date
-     value.
-
-   • ‘history’ and ‘history-pos’ are used to keep track of historic
-     values.  Unless you implement your own ‘transient-infix-read’
-     method you should not have to deal with these slots.
-
-
-File: transient.info,  Node: Suffix Slots,  Next: Predicate Slots,  Prev: Prefix Slots,  Up: Classes and Methods
-
-5.7 Suffix Slots
-================
-
-Here we document most of the slots that are only available for suffix
-objects.  Some slots are shared by suffix and group objects, they are
-documented in *note Predicate Slots::.
-
-   Also see *note Suffix Classes::.
-
-Slots of ‘transient-suffix’
----------------------------
-
-   • ‘key’ The key, a key vector or a key description string.
-
-   • ‘command’ The command, a symbol.
-
-   • ‘transient’ Whether to stay transient.  See *note Transient
-     State::.
-
-   • ‘format’ The format used to display the suffix in the popup buffer.
-     It must contain the following %-placeholders:
-
-        • ‘%k’ For the key.
-        • ‘%d’ For the description.
-        • ‘%v’ For the infix value.  Non-infix suffixes don’t have a
-          value.
-
-   • ‘description’ The description, either a string or a function, which
-     is called with zero or one argument (the suffix object), and
-     returns a string.
-
-   • ‘face’ Face used for the description.  In simple cases it is easier
-     to use this instead of using a function as ‘description’ and adding
-     the styling there.  ‘face’ is appended using
-     ‘add-face-text-property’.
-
-   • ‘show-help’ A function used to display help for the suffix.  If
-     unspecified, the prefix controls how help is displayed for its
-     suffixes.  See also function ‘transient-show-help’.
-
-   • ‘summary’ The summary displayed in the echo area, or as a tooltip.
-     If this is ‘nil’, which it usually should be, the first line of the
-     documentation string is used instead.  See ‘transient-show-summary’
-     for details.
-
-Slots of ‘transient-infix’
---------------------------
-
-Some of these slots are only meaningful for some of the subclasses.
-They are defined here anyway to allow sharing certain methods.
-
-   • ‘argument’ The long argument, e.g., ‘--verbose’.
-
-   • ‘shortarg’ The short argument, e.g., ‘-v’.
-
-   • ‘value’ The value.  Should not be accessed directly.
-
-   • ‘init-value’ Function that is responsible for setting the object’s
-     value.  If bound, then this is called with the object as the only
-     argument.  Usually this is not bound, in which case the object’s
-     primary ‘transient-init-value’ method is called instead.
-
-   • ‘unsavable’ Whether the value of the suffix is not saved as part of
-     the prefixes.
-
-   • ‘multi-value’ For options, whether the option can have multiple
-     values.  If this is non-‘nil’, then the values are read using
-     ‘completing-read-multiple’ by default and if you specify your own
-     reader, then it should read the values using that function or
-     similar.
-
-     Supported non-‘nil’ values are:
-
-        • Use ‘rest’ for an option that can have multiple values.  This
-          is useful e.g., for an ‘--’ argument that indicates that all
-          remaining arguments are files (such as ‘git log -- file1
-          file2’).
-
-          In the list returned by ‘transient-args’ such an option and
-          its values are represented by a single list of the form
-          ‘(ARGUMENT . VALUES)’.
-
-        • Use ‘repeat’ for an option that can be specified multiple
-          times.
-
-          In the list returned by ‘transient-args’ each instance of the
-          option and its value appears separately in the usual from, for
-          example: ‘("--another-argument" "--option=first"
-          "--option=second")’.
-
-     In both cases the option’s values have to be specified in the
-     default value of a prefix using the same format as returned by
-     ‘transient-args’, e.g., ‘("--other" "--o=1" "--o=2" ("--" "f1"
-     "f2"))’.
-
-   • ‘always-read’ For options, whether to read a value on every
-     invocation.  If this is ‘nil’, then options that have a value are
-     simply unset and have to be invoked a second time to set a new
-     value.
-
-   • ‘allow-empty’ For options, whether the empty string is a valid
-     value.
-
-   • ‘history-key’ The key used to store the history.  This defaults to
-     the command name.  This is useful when multiple infixes should
-     share the same history because their values are of the same kind.
-
-   • ‘reader’ The function used to read the value of an infix.  Not used
-     for switches.  The function takes three arguments, PROMPT,
-     INITIAL-INPUT and HISTORY, and must return a string.
-
-   • ‘prompt’ The prompt used when reading the value, either a string or
-     a function that takes the object as the only argument and which
-     returns a prompt string.
-
-   • ‘choices’ A list of valid values, or a function that returns such a
-     list.  The latter is not implemented for ‘transient-switches’,
-     because I couldn’t think of a use-case.  How exactly the choices
-     are used varies depending on the class of the suffix.
-
-Slots of ‘transient-variable’
------------------------------
-
-   • ‘variable’ The variable.
-
-Slots of ‘transient-switches’
------------------------------
-
-   • ‘argument-format’ The display format.  Must contain ‘%s’, one of
-     the ‘choices’ is substituted for that.  E.g., ‘--%s-order’.
-
-   • ‘argument-regexp’ The regexp used to match any one of the switches.
-     E.g., ‘\\(--\\(topo\\|author-date\\|date\\)-order\\)’.
-
-
-File: transient.info,  Node: Predicate Slots,  Prev: Suffix Slots,  Up: Classes and Methods
-
-5.8 Predicate Slots
-===================
-
-Suffix and group objects share two sets of predicate slots that control
-whether a group or suffix should be available depending on some state.
-Only one slot from each set can be used at the same time.  It is
-undefined which slot is honored if you use more than one.
-
-   Predicates from the first group control whether the suffix is present
-in the menu at all.
-
-   • ‘if’ Enable if predicate returns non-‘nil’.
-   • ‘if-not’ Enable if predicate returns ‘nil’.
-   • ‘if-non-nil’ Enable if variable’s value is non-‘nil’.
-   • ‘if-nil’ Enable if variable’s value is ‘nil’.
-   • ‘if-mode’ Enable if major-mode matches value.
-   • ‘if-not-mode’ Enable if major-mode does not match value.
-   • ‘if-derived’ Enable if major-mode derives from value.
-   • ‘if-not-derived’ Enable if major-mode does not derive from value.
-
-   Predicates from the second group control whether the suffix can be
-invoked.  The suffix is shown in the menu regardless, but when it is
-considered "inapt", then it is grayed out to indicated that it currently
-cannot be invoked.
-
-   • ‘inapt-if’ Inapt if predicate returns non-‘nil’.
-   • ‘inapt-if-not’ Inapt if predicate returns ‘nil’.
-   • ‘inapt-if-non-nil’ Inapt if variable’s value is non-‘nil’.
-   • ‘inapt-if-nil’ Inapt if variable’s value is ‘nil’.
-   • ‘inapt-if-mode’ Inapt if major-mode matches value.
-   • ‘inapt-if-not-mode’ Inapt if major-mode does not match value.
-   • ‘inapt-if-derived’ Inapt if major-mode derives from value.
-   • ‘inapt-if-not-derived’ Inapt if major-mode does not derive from
-     value.
-
-   By default these predicates run when the prefix command is invoked,
-but this can be changes, using the ‘refresh-suffixes’ prefix slot.  See
-*note Prefix Slots::.
-
-   One more slot is shared between group and suffix classes, ‘level’.
-Like the slots documented above, it is a predicate, but it is used for a
-different purpose.  The value has to be an integer between 1 and 7.
-‘level’ controls whether a suffix or a group should be available
-depending on user preference.  See *note Enabling and Disabling
-Suffixes::.
-
-
-File: transient.info,  Node: FAQ,  Next: Keystroke Index,  Prev: Classes and Methods,  Up: Top
-
-Appendix A FAQ
-**************
-
-A.1 Can I control how the popup buffer is displayed?
-====================================================
-
-Yes, see ‘transient-display-buffer-action’ in *note Configuration::.
-
-A.2 How can I copy text from the popup buffer?
-==============================================
-
-To be able to mark text in Transient’s popup buffer using the mouse, you
-have to add the below binding.  Note that for technical reasons, the
-region won’t be visualized, while doing so.  After you have quit the
-transient popup, you will be able to yank it in another buffer.
-
-     (keymap-set transient-predicate-map
-                 "<mouse-set-region>"
-                 #'transient--do-stay)
-
-A.3 How can I autoload prefix and suffix commands?
-==================================================
-
-If your package only supports Emacs 30, just prefix the definition with
-‘;;;###autoload’.  If your package supports released versions of Emacs,
-you unfortunately have to use a long form autoload comment as described
-in *note (elisp)Autoload::.
-
-     ;;;###autoload (autoload 'magit-dispatch "magit" nil t)
-     (transient-define-prefix magit-dispatch ()
-       ...)
-
-A.4 How does Transient compare to prefix keys and universal arguments?
-======================================================================
-
-See
-<https://github.com/magit/transient/wiki/Comparison-with-prefix-keys-and-universal-arguments>.
-
-A.5 How does Transient compare to Magit-Popup and Hydra?
-========================================================
-
-See
-<https://github.com/magit/transient/wiki/Comparison-with-other-packages>.
-
-A.6 Why did some of the key bindings change?
-============================================
-
-You may have noticed that the bindings for some of the common commands
-do *not* have the prefix ‘C-x’ and that furthermore some of these
-commands are grayed out while others are not.  That unfortunately is a
-bit confusing if the section of common commands is not shown
-permanently, making the following explanation necessary.
-
-   The purpose of usually hiding that section but showing it after the
-user pressed the respective prefix key is to conserve space and not
-overwhelm users with too much noise, while allowing the user to quickly
-list common bindings on demand.
-
-   That however should not keep us from using the best possible key
-bindings.  The bindings that do use a prefix do so to avoid wasting too
-many non-prefix bindings, keeping them available for use in individual
-transients.  The bindings that do not use a prefix and that are *not*
-grayed out are very important bindings that are *always* available, even
-when invoking the “common command key prefix” or *any other*
-transient-specific prefix.  The non-prefix keys that *are* grayed out
-however, are not available when any incomplete prefix key sequence is
-active.  They do not use the “common command key prefix” because it is
-likely that users want to invoke them several times in a row and e.g.,
-‘M-p M-p M-p’ is much more convenient than ‘C-x M-p C-x M-p C-x M-p’.
-
-   You may also have noticed that the “Set” command is bound to ‘C-x s’,
-while Magit-Popup used to bind ‘C-c C-c’ instead.  I have seen several
-users praise the latter binding (sic), so I did not change it
-willy-nilly.  The reason that I changed it is that using different
-prefix keys for different common commands, would have made the temporary
-display of the common commands even more confusing, i.e., after pressing
-‘C-c’ all the bindings that begin with the ‘C-x’ prefix would be grayed
-out.
-
-   Using a single prefix for common commands key means that all other
-potential prefix keys can be used for transient-specific commands
-*without* the section of common commands also popping up.  ‘C-c’ in
-particular is a prefix that I want to (and already do) use for Magit,
-and also using that for a common command would prevent me from doing so.
-
-   (Also see the next question.)
-
-A.7 Why does ‘q’ not quit popups anymore?
-=========================================
-
-I agree that ‘q’ is a good binding for commands that quit something.
-This includes quitting whatever transient is currently active, but it
-also includes quitting whatever it is that some specific transient is
-controlling.  The transient ‘magit-blame’ for example binds ‘q’ to the
-command that turns ‘magit-blame-mode’ off.
-
-   So I had to decide if ‘q’ should quit the active transient (like
-Magit-Popup used to) or whether ‘C-g’ should do that instead, so that
-‘q’ could be bound in individual transient to whatever commands make
-sense for them.  Because all other letters are already reserved for use
-by individual transients, I have decided to no longer make an exception
-for ‘q’.
-
-   If you want to get ‘q’’s old binding back then you can do so.  Doing
-that is a bit more complicated than changing a single key binding, so I
-have implemented a function, ‘transient-bind-q-to-quit’ that makes the
-necessary changes.  See its documentation string for more information.
-
-
-File: transient.info,  Node: Keystroke Index,  Next: Command and Function Index,  Prev: FAQ,  Up: Top
-
-Appendix B Keystroke Index
-**************************
-
-
-* Menu:
-
-* C-g:                                   Aborting and Resuming Transients.
-                                                               (line 27)
-* C-g <1>:                               Aborting and Resuming Transients.
-                                                               (line 27)
-* C-h:                                   Getting Help for Suffix Commands.
-                                                               (line 11)
-* C-M-n:                                 Using History.        (line 18)
-* C-M-p:                                 Using History.        (line 13)
-* C-q:                                   Aborting and Resuming Transients.
-                                                               (line 36)
-* C-x a:                                 Enabling and Disabling Suffixes.
-                                                               (line 68)
-* C-x C-k:                               Saving Values.        (line 29)
-* C-x C-s:                               Saving Values.        (line 25)
-* C-x l:                                 Enabling and Disabling Suffixes.
-                                                               (line 43)
-* C-x n:                                 Using History.        (line 18)
-* C-x p:                                 Using History.        (line 13)
-* C-x s:                                 Saving Values.        (line 21)
-* C-x t:                                 Common Suffix Commands.
-                                                               (line 18)
-* C-z:                                   Aborting and Resuming Transients.
-                                                               (line 41)
-
-
-File: transient.info,  Node: Command and Function Index,  Next: Variable Index,  Prev: Keystroke Index,  Up: Top
-
-Appendix C Command and Function Index
-*************************************
-
-
-* Menu:
-
-* transient--do-call:                    Transient State.     (line 125)
-* transient--do-exit:                    Transient State.     (line 117)
-* transient--do-leave:                   Transient State.     (line 193)
-* transient--do-quit-all:                Transient State.     (line 205)
-* transient--do-quit-one:                Transient State.     (line 200)
-* transient--do-recurse:                 Transient State.     (line 133)
-* transient--do-replace:                 Transient State.     (line 153)
-* transient--do-return:                  Transient State.     (line 120)
-* transient--do-stack:                   Transient State.     (line 145)
-* transient--do-stay:                    Transient State.     (line 105)
-* transient--do-stay <1>:                Transient State.     (line 190)
-* transient--do-suspend:                 Transient State.     (line 161)
-* transient--do-suspend <1>:             Transient State.     (line 210)
-* transient--do-warn:                    Transient State.     (line 187)
-* transient--history-init:               Prefix Classes.      (line  10)
-* transient--insert-group:               Group Methods.       (line  19)
-* transient-active-prefix:               Using Infix Arguments.
-                                                              (line  61)
-* transient-append-suffix:               Modifying Existing Transients.
-                                                              (line  51)
-* transient-arg-value:                   Using Infix Arguments.
-                                                              (line  31)
-* transient-args:                        Using Infix Arguments.
-                                                              (line  22)
-* transient-define-argument:             Defining Suffix and Infix Commands.
-                                                              (line  57)
-* transient-define-infix:                Defining Suffix and Infix Commands.
-                                                              (line  26)
-* transient-define-prefix:               Defining Transients. (line  13)
-* transient-define-suffix:               Defining Suffix and Infix Commands.
-                                                              (line   9)
-* transient-format:                      Suffix Format Methods.
-                                                              (line   6)
-* transient-format-description:          Suffix Format Methods.
-                                                              (line  18)
-* transient-format-key:                  Suffix Format Methods.
-                                                              (line  14)
-* transient-format-value:                Suffix Format Methods.
-                                                              (line  22)
-* transient-get-suffix:                  Modifying Existing Transients.
-                                                              (line  73)
-* transient-help:                        Getting Help for Suffix Commands.
-                                                              (line  11)
-* transient-history-next:                Using History.       (line  18)
-* transient-history-prev:                Using History.       (line  13)
-* transient-infix-read:                  Suffix Value Methods.
-                                                              (line  16)
-* transient-infix-set:                   Suffix Value Methods.
-                                                              (line  36)
-* transient-infix-value:                 Suffix Value Methods.
-                                                              (line  39)
-* transient-init-scope:                  Suffix Value Methods.
-                                                              (line  52)
-* transient-init-value:                  Suffix Value Methods.
-                                                              (line   6)
-* transient-insert-suffix:               Modifying Existing Transients.
-                                                              (line  49)
-* transient-prompt:                      Suffix Value Methods.
-                                                              (line  32)
-* transient-quit-all:                    Aborting and Resuming Transients.
-                                                              (line  36)
-* transient-quit-one:                    Aborting and Resuming Transients.
-                                                              (line  27)
-* transient-quit-seq:                    Aborting and Resuming Transients.
-                                                              (line  27)
-* transient-remove-suffix:               Modifying Existing Transients.
-                                                              (line  70)
-* transient-replace-suffix:              Modifying Existing Transients.
-                                                              (line  66)
-* transient-reset:                       Saving Values.       (line  29)
-* transient-resume:                      Aborting and Resuming Transients.
-                                                              (line  53)
-* transient-save:                        Saving Values.       (line  25)
-* transient-scroll-down:                 Other Commands.      (line  17)
-* transient-scroll-up:                   Other Commands.      (line  12)
-* transient-set:                         Saving Values.       (line  21)
-* transient-set-level:                   Enabling and Disabling Suffixes.
-                                                              (line  43)
-* transient-setup-children:              Group Methods.       (line   6)
-* transient-show-help:                   Suffix Format Methods.
-                                                              (line  26)
-* transient-show-summary:                Suffix Format Methods.
-                                                              (line  51)
-* transient-suffix-put:                  Modifying Existing Transients.
-                                                              (line  77)
-* transient-suffixes:                    Using Infix Arguments.
-                                                              (line  38)
-* transient-suspend:                     Aborting and Resuming Transients.
-                                                              (line  41)
-* transient-toggle-common:               Common Suffix Commands.
-                                                              (line  18)
-* transient-toggle-level-limit:          Enabling and Disabling Suffixes.
-                                                              (line  68)
-* transient-with-help-window:            Suffix Format Methods.
-                                                              (line  46)
-
-
-File: transient.info,  Node: Variable Index,  Next: Concept Index,  Prev: Command and Function Index,  Up: Top
-
-Appendix D Variable Index
-*************************
-
-
-* Menu:
-
-* transient-align-variable-pitch:        Configuration.       (line 192)
-* transient-current-command:             Using Infix Arguments.
-                                                              (line  52)
-* transient-current-prefix:              Using Infix Arguments.
-                                                              (line  56)
-* transient-current-suffixes:            Using Infix Arguments.
-                                                              (line  44)
-* transient-default-level:               Enabling and Disabling Suffixes.
-                                                              (line  33)
-* transient-detect-key-conflicts:        Configuration.       (line 217)
-* transient-display-buffer-action:       Configuration.       (line  58)
-* transient-enable-popup-navigation:     Configuration.       (line  36)
-* transient-force-fixed-pitch:           Configuration.       (line 205)
-* transient-force-single-column:         Configuration.       (line 100)
-* transient-hide-during-minibuffer-read: Configuration.       (line 188)
-* transient-highlight-higher-levels:     Configuration.       (line 230)
-* transient-highlight-mismatched-keys:   Configuration.       (line 142)
-* transient-history-file:                Using History.       (line  33)
-* transient-history-limit:               Using History.       (line  37)
-* transient-levels-file:                 Enabling and Disabling Suffixes.
-                                                              (line  38)
-* transient-mode-line-format:            Configuration.       (line 109)
-* transient-read-with-initial-input:     Configuration.       (line 181)
-* transient-semantic-coloring:           Configuration.       (line 133)
-* transient-show-common-commands:        Common Suffix Commands.
-                                                              (line  23)
-* transient-show-popup:                  Configuration.       (line  15)
-* transient-substitute-key-function:     Configuration.       (line 160)
-* transient-values-file:                 Saving Values.       (line  31)
-
-
-File: transient.info,  Node: Concept Index,  Next: GNU General Public License,  Prev: Variable Index,  Up: Top
-
-Appendix E Concept Index
-************************
-
-
-* Menu:
-
-* aborting transients:                   Aborting and Resuming Transients.
-                                                               (line  6)
-* classes and methods:                   Classes and Methods.  (line  6)
-* command dispatchers:                   Technical Introduction.
-                                                               (line 39)
-* common suffix commands:                Common Suffix Commands.
-                                                               (line  6)
-* defining infix commands:               Defining Suffix and Infix Commands.
-                                                               (line  6)
-* defining suffix commands:              Defining Suffix and Infix Commands.
-                                                               (line  6)
-* disabling suffixes:                    Enabling and Disabling Suffixes.
-                                                               (line  6)
-* enabling suffixes:                     Enabling and Disabling Suffixes.
-                                                               (line  6)
-* getting help:                          Getting Help for Suffix Commands.
-                                                               (line  6)
-* group specifications:                  Group Specifications. (line  6)
-* invoking transients:                   Invoking Transients.  (line  6)
-* levels:                                Enabling and Disabling Suffixes.
-                                                               (line 10)
-* modifying existing transients:         Modifying Existing Transients.
-                                                               (line  6)
-* quit transient:                        Aborting and Resuming Transients.
-                                                               (line  6)
-* resuming transients:                   Aborting and Resuming Transients.
-                                                               (line  6)
-* saving values of arguments:            Saving Values.        (line  6)
-* scope of a transient:                  Defining Transients.  (line 43)
-* suffix specifications:                 Suffix Specifications.
-                                                               (line  6)
-* transient state:                       Transient State.      (line  6)
-* transient-level:                       Enabling and Disabling Suffixes.
-                                                               (line 15)
-* value history:                         Using History.        (line  6)
-
-
-File: transient.info,  Node: GNU General Public License,  Prev: Concept Index,  Up: Top
-
-Appendix F GNU General Public License
-*************************************
-
-                        Version 3, 29 June 2007
-
-     Copyright © 2007 Free Software Foundation, Inc. <https://fsf.org/>
-
-     Everyone is permitted to copy and distribute verbatim copies of this
-     license document, but changing it is not allowed.
-
-Preamble
-========
-
-The GNU General Public License is a free, copyleft license for software
-and other kinds of works.
-
-   The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works.  By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program—to make sure it remains free
-software for all its users.  We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors.  You can apply it to
-your programs, too.
-
-   When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
-   To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights.  Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
-   For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received.  You must make sure that they, too, receive
-or can get the source code.  And you must show them these terms so they
-know their rights.
-
-   Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
-   For the developers’ and authors’ protection, the GPL clearly explains
-that there is no warranty for this free software.  For both users’ and
-authors’ sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
-   Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so.  This is fundamentally incompatible with the aim of
-protecting users’ freedom to change the software.  The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable.  Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products.  If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
-   Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary.  To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
-   The precise terms and conditions for copying, distribution and
-modification follow.
-
-TERMS AND CONDITIONS
-====================
-
-  0. Definitions.
-
-     “This License” refers to version 3 of the GNU General Public
-     License.
-
-     “Copyright” also means copyright-like laws that apply to other
-     kinds of works, such as semiconductor masks.
-
-     “The Program” refers to any copyrightable work licensed under this
-     License.  Each licensee is addressed as “you”.  “Licensees” and
-     “recipients” may be individuals or organizations.
-
-     To “modify” a work means to copy from or adapt all or part of the
-     work in a fashion requiring copyright permission, other than the
-     making of an exact copy.  The resulting work is called a “modified
-     version” of the earlier work or a work “based on” the earlier work.
-
-     A “covered work” means either the unmodified Program or a work
-     based on the Program.
-
-     To “propagate” a work means to do anything with it that, without
-     permission, would make you directly or secondarily liable for
-     infringement under applicable copyright law, except executing it on
-     a computer or modifying a private copy.  Propagation includes
-     copying, distribution (with or without modification), making
-     available to the public, and in some countries other activities as
-     well.
-
-     To “convey” a work means any kind of propagation that enables other
-     parties to make or receive copies.  Mere interaction with a user
-     through a computer network, with no transfer of a copy, is not
-     conveying.
-
-     An interactive user interface displays “Appropriate Legal Notices”
-     to the extent that it includes a convenient and prominently visible
-     feature that (1) displays an appropriate copyright notice, and (2)
-     tells the user that there is no warranty for the work (except to
-     the extent that warranties are provided), that licensees may convey
-     the work under this License, and how to view a copy of this
-     License.  If the interface presents a list of user commands or
-     options, such as a menu, a prominent item in the list meets this
-     criterion.
-
-  1. Source Code.
-
-     The “source code” for a work means the preferred form of the work
-     for making modifications to it.  “Object code” means any non-source
-     form of a work.
-
-     A “Standard Interface” means an interface that either is an
-     official standard defined by a recognized standards body, or, in
-     the case of interfaces specified for a particular programming
-     language, one that is widely used among developers working in that
-     language.
-
-     The “System Libraries” of an executable work include anything,
-     other than the work as a whole, that (a) is included in the normal
-     form of packaging a Major Component, but which is not part of that
-     Major Component, and (b) serves only to enable use of the work with
-     that Major Component, or to implement a Standard Interface for
-     which an implementation is available to the public in source code
-     form.  A “Major Component”, in this context, means a major
-     essential component (kernel, window system, and so on) of the
-     specific operating system (if any) on which the executable work
-     runs, or a compiler used to produce the work, or an object code
-     interpreter used to run it.
-
-     The “Corresponding Source” for a work in object code form means all
-     the source code needed to generate, install, and (for an executable
-     work) run the object code and to modify the work, including scripts
-     to control those activities.  However, it does not include the
-     work’s System Libraries, or general-purpose tools or generally
-     available free programs which are used unmodified in performing
-     those activities but which are not part of the work.  For example,
-     Corresponding Source includes interface definition files associated
-     with source files for the work, and the source code for shared
-     libraries and dynamically linked subprograms that the work is
-     specifically designed to require, such as by intimate data
-     communication or control flow between those subprograms and other
-     parts of the work.
-
-     The Corresponding Source need not include anything that users can
-     regenerate automatically from other parts of the Corresponding
-     Source.
-
-     The Corresponding Source for a work in source code form is that
-     same work.
-
-  2. Basic Permissions.
-
-     All rights granted under this License are granted for the term of
-     copyright on the Program, and are irrevocable provided the stated
-     conditions are met.  This License explicitly affirms your unlimited
-     permission to run the unmodified Program.  The output from running
-     a covered work is covered by this License only if the output, given
-     its content, constitutes a covered work.  This License acknowledges
-     your rights of fair use or other equivalent, as provided by
-     copyright law.
-
-     You may make, run and propagate covered works that you do not
-     convey, without conditions so long as your license otherwise
-     remains in force.  You may convey covered works to others for the
-     sole purpose of having them make modifications exclusively for you,
-     or provide you with facilities for running those works, provided
-     that you comply with the terms of this License in conveying all
-     material for which you do not control copyright.  Those thus making
-     or running the covered works for you must do so exclusively on your
-     behalf, under your direction and control, on terms that prohibit
-     them from making any copies of your copyrighted material outside
-     their relationship with you.
-
-     Conveying under any other circumstances is permitted solely under
-     the conditions stated below.  Sublicensing is not allowed; section
-     10 makes it unnecessary.
-
-  3. Protecting Users’ Legal Rights From Anti-Circumvention Law.
-
-     No covered work shall be deemed part of an effective technological
-     measure under any applicable law fulfilling obligations under
-     article 11 of the WIPO copyright treaty adopted on 20 December
-     1996, or similar laws prohibiting or restricting circumvention of
-     such measures.
-
-     When you convey a covered work, you waive any legal power to forbid
-     circumvention of technological measures to the extent such
-     circumvention is effected by exercising rights under this License
-     with respect to the covered work, and you disclaim any intention to
-     limit operation or modification of the work as a means of
-     enforcing, against the work’s users, your or third parties’ legal
-     rights to forbid circumvention of technological measures.
-
-  4. Conveying Verbatim Copies.
-
-     You may convey verbatim copies of the Program’s source code as you
-     receive it, in any medium, provided that you conspicuously and
-     appropriately publish on each copy an appropriate copyright notice;
-     keep intact all notices stating that this License and any
-     non-permissive terms added in accord with section 7 apply to the
-     code; keep intact all notices of the absence of any warranty; and
-     give all recipients a copy of this License along with the Program.
-
-     You may charge any price or no price for each copy that you convey,
-     and you may offer support or warranty protection for a fee.
-
-  5. Conveying Modified Source Versions.
-
-     You may convey a work based on the Program, or the modifications to
-     produce it from the Program, in the form of source code under the
-     terms of section 4, provided that you also meet all of these
-     conditions:
-
-       a. The work must carry prominent notices stating that you
-          modified it, and giving a relevant date.
-
-       b. The work must carry prominent notices stating that it is
-          released under this License and any conditions added under
-          section 7.  This requirement modifies the requirement in
-          section 4 to “keep intact all notices”.
-
-       c. You must license the entire work, as a whole, under this
-          License to anyone who comes into possession of a copy.  This
-          License will therefore apply, along with any applicable
-          section 7 additional terms, to the whole of the work, and all
-          its parts, regardless of how they are packaged.  This License
-          gives no permission to license the work in any other way, but
-          it does not invalidate such permission if you have separately
-          received it.
-
-       d. If the work has interactive user interfaces, each must display
-          Appropriate Legal Notices; however, if the Program has
-          interactive interfaces that do not display Appropriate Legal
-          Notices, your work need not make them do so.
-
-     A compilation of a covered work with other separate and independent
-     works, which are not by their nature extensions of the covered
-     work, and which are not combined with it such as to form a larger
-     program, in or on a volume of a storage or distribution medium, is
-     called an “aggregate” if the compilation and its resulting
-     copyright are not used to limit the access or legal rights of the
-     compilation’s users beyond what the individual works permit.
-     Inclusion of a covered work in an aggregate does not cause this
-     License to apply to the other parts of the aggregate.
-
-  6. Conveying Non-Source Forms.
-
-     You may convey a covered work in object code form under the terms
-     of sections 4 and 5, provided that you also convey the
-     machine-readable Corresponding Source under the terms of this
-     License, in one of these ways:
-
-       a. Convey the object code in, or embodied in, a physical product
-          (including a physical distribution medium), accompanied by the
-          Corresponding Source fixed on a durable physical medium
-          customarily used for software interchange.
-
-       b. Convey the object code in, or embodied in, a physical product
-          (including a physical distribution medium), accompanied by a
-          written offer, valid for at least three years and valid for as
-          long as you offer spare parts or customer support for that
-          product model, to give anyone who possesses the object code
-          either (1) a copy of the Corresponding Source for all the
-          software in the product that is covered by this License, on a
-          durable physical medium customarily used for software
-          interchange, for a price no more than your reasonable cost of
-          physically performing this conveying of source, or (2) access
-          to copy the Corresponding Source from a network server at no
-          charge.
-
-       c. Convey individual copies of the object code with a copy of the
-          written offer to provide the Corresponding Source.  This
-          alternative is allowed only occasionally and noncommercially,
-          and only if you received the object code with such an offer,
-          in accord with subsection 6b.
-
-       d. Convey the object code by offering access from a designated
-          place (gratis or for a charge), and offer equivalent access to
-          the Corresponding Source in the same way through the same
-          place at no further charge.  You need not require recipients
-          to copy the Corresponding Source along with the object code.
-          If the place to copy the object code is a network server, the
-          Corresponding Source may be on a different server (operated by
-          you or a third party) that supports equivalent copying
-          facilities, provided you maintain clear directions next to the
-          object code saying where to find the Corresponding Source.
-          Regardless of what server hosts the Corresponding Source, you
-          remain obligated to ensure that it is available for as long as
-          needed to satisfy these requirements.
-
-       e. Convey the object code using peer-to-peer transmission,
-          provided you inform other peers where the object code and
-          Corresponding Source of the work are being offered to the
-          general public at no charge under subsection 6d.
-
-     A separable portion of the object code, whose source code is
-     excluded from the Corresponding Source as a System Library, need
-     not be included in conveying the object code work.
-
-     A “User Product” is either (1) a “consumer product”, which means
-     any tangible personal property which is normally used for personal,
-     family, or household purposes, or (2) anything designed or sold for
-     incorporation into a dwelling.  In determining whether a product is
-     a consumer product, doubtful cases shall be resolved in favor of
-     coverage.  For a particular product received by a particular user,
-     “normally used” refers to a typical or common use of that class of
-     product, regardless of the status of the particular user or of the
-     way in which the particular user actually uses, or expects or is
-     expected to use, the product.  A product is a consumer product
-     regardless of whether the product has substantial commercial,
-     industrial or non-consumer uses, unless such uses represent the
-     only significant mode of use of the product.
-
-     “Installation Information” for a User Product means any methods,
-     procedures, authorization keys, or other information required to
-     install and execute modified versions of a covered work in that
-     User Product from a modified version of its Corresponding Source.
-     The information must suffice to ensure that the continued
-     functioning of the modified object code is in no case prevented or
-     interfered with solely because modification has been made.
-
-     If you convey an object code work under this section in, or with,
-     or specifically for use in, a User Product, and the conveying
-     occurs as part of a transaction in which the right of possession
-     and use of the User Product is transferred to the recipient in
-     perpetuity or for a fixed term (regardless of how the transaction
-     is characterized), the Corresponding Source conveyed under this
-     section must be accompanied by the Installation Information.  But
-     this requirement does not apply if neither you nor any third party
-     retains the ability to install modified object code on the User
-     Product (for example, the work has been installed in ROM).
-
-     The requirement to provide Installation Information does not
-     include a requirement to continue to provide support service,
-     warranty, or updates for a work that has been modified or installed
-     by the recipient, or for the User Product in which it has been
-     modified or installed.  Access to a network may be denied when the
-     modification itself materially and adversely affects the operation
-     of the network or violates the rules and protocols for
-     communication across the network.
-
-     Corresponding Source conveyed, and Installation Information
-     provided, in accord with this section must be in a format that is
-     publicly documented (and with an implementation available to the
-     public in source code form), and must require no special password
-     or key for unpacking, reading or copying.
-
-  7. Additional Terms.
-
-     “Additional permissions” are terms that supplement the terms of
-     this License by making exceptions from one or more of its
-     conditions.  Additional permissions that are applicable to the
-     entire Program shall be treated as though they were included in
-     this License, to the extent that they are valid under applicable
-     law.  If additional permissions apply only to part of the Program,
-     that part may be used separately under those permissions, but the
-     entire Program remains governed by this License without regard to
-     the additional permissions.
-
-     When you convey a copy of a covered work, you may at your option
-     remove any additional permissions from that copy, or from any part
-     of it.  (Additional permissions may be written to require their own
-     removal in certain cases when you modify the work.)  You may place
-     additional permissions on material, added by you to a covered work,
-     for which you have or can give appropriate copyright permission.
-
-     Notwithstanding any other provision of this License, for material
-     you add to a covered work, you may (if authorized by the copyright
-     holders of that material) supplement the terms of this License with
-     terms:
-
-       a. Disclaiming warranty or limiting liability differently from
-          the terms of sections 15 and 16 of this License; or
-
-       b. Requiring preservation of specified reasonable legal notices
-          or author attributions in that material or in the Appropriate
-          Legal Notices displayed by works containing it; or
-
-       c. Prohibiting misrepresentation of the origin of that material,
-          or requiring that modified versions of such material be marked
-          in reasonable ways as different from the original version; or
-
-       d. Limiting the use for publicity purposes of names of licensors
-          or authors of the material; or
-
-       e. Declining to grant rights under trademark law for use of some
-          trade names, trademarks, or service marks; or
-
-       f. Requiring indemnification of licensors and authors of that
-          material by anyone who conveys the material (or modified
-          versions of it) with contractual assumptions of liability to
-          the recipient, for any liability that these contractual
-          assumptions directly impose on those licensors and authors.
-
-     All other non-permissive additional terms are considered “further
-     restrictions” within the meaning of section 10.  If the Program as
-     you received it, or any part of it, contains a notice stating that
-     it is governed by this License along with a term that is a further
-     restriction, you may remove that term.  If a license document
-     contains a further restriction but permits relicensing or conveying
-     under this License, you may add to a covered work material governed
-     by the terms of that license document, provided that the further
-     restriction does not survive such relicensing or conveying.
-
-     If you add terms to a covered work in accord with this section, you
-     must place, in the relevant source files, a statement of the
-     additional terms that apply to those files, or a notice indicating
-     where to find the applicable terms.
-
-     Additional terms, permissive or non-permissive, may be stated in
-     the form of a separately written license, or stated as exceptions;
-     the above requirements apply either way.
-
-  8. Termination.
-
-     You may not propagate or modify a covered work except as expressly
-     provided under this License.  Any attempt otherwise to propagate or
-     modify it is void, and will automatically terminate your rights
-     under this License (including any patent licenses granted under the
-     third paragraph of section 11).
-
-     However, if you cease all violation of this License, then your
-     license from a particular copyright holder is reinstated (a)
-     provisionally, unless and until the copyright holder explicitly and
-     finally terminates your license, and (b) permanently, if the
-     copyright holder fails to notify you of the violation by some
-     reasonable means prior to 60 days after the cessation.
-
-     Moreover, your license from a particular copyright holder is
-     reinstated permanently if the copyright holder notifies you of the
-     violation by some reasonable means, this is the first time you have
-     received notice of violation of this License (for any work) from
-     that copyright holder, and you cure the violation prior to 30 days
-     after your receipt of the notice.
-
-     Termination of your rights under this section does not terminate
-     the licenses of parties who have received copies or rights from you
-     under this License.  If your rights have been terminated and not
-     permanently reinstated, you do not qualify to receive new licenses
-     for the same material under section 10.
-
-  9. Acceptance Not Required for Having Copies.
-
-     You are not required to accept this License in order to receive or
-     run a copy of the Program.  Ancillary propagation of a covered work
-     occurring solely as a consequence of using peer-to-peer
-     transmission to receive a copy likewise does not require
-     acceptance.  However, nothing other than this License grants you
-     permission to propagate or modify any covered work.  These actions
-     infringe copyright if you do not accept this License.  Therefore,
-     by modifying or propagating a covered work, you indicate your
-     acceptance of this License to do so.
-
-  10. Automatic Licensing of Downstream Recipients.
-
-     Each time you convey a covered work, the recipient automatically
-     receives a license from the original licensors, to run, modify and
-     propagate that work, subject to this License.  You are not
-     responsible for enforcing compliance by third parties with this
-     License.
-
-     An “entity transaction” is a transaction transferring control of an
-     organization, or substantially all assets of one, or subdividing an
-     organization, or merging organizations.  If propagation of a
-     covered work results from an entity transaction, each party to that
-     transaction who receives a copy of the work also receives whatever
-     licenses to the work the party’s predecessor in interest had or
-     could give under the previous paragraph, plus a right to possession
-     of the Corresponding Source of the work from the predecessor in
-     interest, if the predecessor has it or can get it with reasonable
-     efforts.
-
-     You may not impose any further restrictions on the exercise of the
-     rights granted or affirmed under this License.  For example, you
-     may not impose a license fee, royalty, or other charge for exercise
-     of rights granted under this License, and you may not initiate
-     litigation (including a cross-claim or counterclaim in a lawsuit)
-     alleging that any patent claim is infringed by making, using,
-     selling, offering for sale, or importing the Program or any portion
-     of it.
-
-  11. Patents.
-
-     A “contributor” is a copyright holder who authorizes use under this
-     License of the Program or a work on which the Program is based.
-     The work thus licensed is called the contributor’s “contributor
-     version”.
-
-     A contributor’s “essential patent claims” are all patent claims
-     owned or controlled by the contributor, whether already acquired or
-     hereafter acquired, that would be infringed by some manner,
-     permitted by this License, of making, using, or selling its
-     contributor version, but do not include claims that would be
-     infringed only as a consequence of further modification of the
-     contributor version.  For purposes of this definition, “control”
-     includes the right to grant patent sublicenses in a manner
-     consistent with the requirements of this License.
-
-     Each contributor grants you a non-exclusive, worldwide,
-     royalty-free patent license under the contributor’s essential
-     patent claims, to make, use, sell, offer for sale, import and
-     otherwise run, modify and propagate the contents of its contributor
-     version.
-
-     In the following three paragraphs, a “patent license” is any
-     express agreement or commitment, however denominated, not to
-     enforce a patent (such as an express permission to practice a
-     patent or covenant not to sue for patent infringement).  To “grant”
-     such a patent license to a party means to make such an agreement or
-     commitment not to enforce a patent against the party.
-
-     If you convey a covered work, knowingly relying on a patent
-     license, and the Corresponding Source of the work is not available
-     for anyone to copy, free of charge and under the terms of this
-     License, through a publicly available network server or other
-     readily accessible means, then you must either (1) cause the
-     Corresponding Source to be so available, or (2) arrange to deprive
-     yourself of the benefit of the patent license for this particular
-     work, or (3) arrange, in a manner consistent with the requirements
-     of this License, to extend the patent license to downstream
-     recipients.  “Knowingly relying” means you have actual knowledge
-     that, but for the patent license, your conveying the covered work
-     in a country, or your recipient’s use of the covered work in a
-     country, would infringe one or more identifiable patents in that
-     country that you have reason to believe are valid.
-
-     If, pursuant to or in connection with a single transaction or
-     arrangement, you convey, or propagate by procuring conveyance of, a
-     covered work, and grant a patent license to some of the parties
-     receiving the covered work authorizing them to use, propagate,
-     modify or convey a specific copy of the covered work, then the
-     patent license you grant is automatically extended to all
-     recipients of the covered work and works based on it.
-
-     A patent license is “discriminatory” if it does not include within
-     the scope of its coverage, prohibits the exercise of, or is
-     conditioned on the non-exercise of one or more of the rights that
-     are specifically granted under this License.  You may not convey a
-     covered work if you are a party to an arrangement with a third
-     party that is in the business of distributing software, under which
-     you make payment to the third party based on the extent of your
-     activity of conveying the work, and under which the third party
-     grants, to any of the parties who would receive the covered work
-     from you, a discriminatory patent license (a) in connection with
-     copies of the covered work conveyed by you (or copies made from
-     those copies), or (b) primarily for and in connection with specific
-     products or compilations that contain the covered work, unless you
-     entered into that arrangement, or that patent license was granted,
-     prior to 28 March 2007.
-
-     Nothing in this License shall be construed as excluding or limiting
-     any implied license or other defenses to infringement that may
-     otherwise be available to you under applicable patent law.
-
-  12. No Surrender of Others’ Freedom.
-
-     If conditions are imposed on you (whether by court order, agreement
-     or otherwise) that contradict the conditions of this License, they
-     do not excuse you from the conditions of this License.  If you
-     cannot convey a covered work so as to satisfy simultaneously your
-     obligations under this License and any other pertinent obligations,
-     then as a consequence you may not convey it at all.  For example,
-     if you agree to terms that obligate you to collect a royalty for
-     further conveying from those to whom you convey the Program, the
-     only way you could satisfy both those terms and this License would
-     be to refrain entirely from conveying the Program.
-
-  13. Use with the GNU Affero General Public License.
-
-     Notwithstanding any other provision of this License, you have
-     permission to link or combine any covered work with a work licensed
-     under version 3 of the GNU Affero General Public License into a
-     single combined work, and to convey the resulting work.  The terms
-     of this License will continue to apply to the part which is the
-     covered work, but the special requirements of the GNU Affero
-     General Public License, section 13, concerning interaction through
-     a network will apply to the combination as such.
-
-  14. Revised Versions of this License.
-
-     The Free Software Foundation may publish revised and/or new
-     versions of the GNU General Public License from time to time.  Such
-     new versions will be similar in spirit to the present version, but
-     may differ in detail to address new problems or concerns.
-
-     Each version is given a distinguishing version number.  If the
-     Program specifies that a certain numbered version of the GNU
-     General Public License “or any later version” applies to it, you
-     have the option of following the terms and conditions either of
-     that numbered version or of any later version published by the Free
-     Software Foundation.  If the Program does not specify a version
-     number of the GNU General Public License, you may choose any
-     version ever published by the Free Software Foundation.
-
-     If the Program specifies that a proxy can decide which future
-     versions of the GNU General Public License can be used, that
-     proxy’s public statement of acceptance of a version permanently
-     authorizes you to choose that version for the Program.
-
-     Later license versions may give you additional or different
-     permissions.  However, no additional obligations are imposed on any
-     author or copyright holder as a result of your choosing to follow a
-     later version.
-
-  15. Disclaimer of Warranty.
-
-     THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-     APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE
-     COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM “AS IS”
-     WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
-     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE
-     RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.
-     SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
-     NECESSARY SERVICING, REPAIR OR CORRECTION.
-
-  16. Limitation of Liability.
-
-     IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
-     WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES
-     AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR
-     DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
-     CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
-     THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA
-     BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-     PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-     PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF
-     THE POSSIBILITY OF SUCH DAMAGES.
-
-  17. Interpretation of Sections 15 and 16.
-
-     If the disclaimer of warranty and limitation of liability provided
-     above cannot be given local legal effect according to their terms,
-     reviewing courts shall apply local law that most closely
-     approximates an absolute waiver of all civil liability in
-     connection with the Program, unless a warranty or assumption of
-     liability accompanies a copy of the Program in return for a fee.
-
-END OF TERMS AND CONDITIONS
-===========================
-
-How to Apply These Terms to Your New Programs
-=============================================
-
-If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these
-terms.
-
-   To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least the
-“copyright” line and a pointer to where the full notice is found.
-
-     ONE LINE TO GIVE THE PROGRAM'S NAME AND A BRIEF IDEA OF WHAT IT DOES.
-     Copyright (C) YEAR NAME OF AUTHOR
-
-     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
-     the Free Software Foundation, either version 3 of the License, or (at
-     your option) any later version.
-
-     This program is distributed in the hope that it will be useful, but
-     WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-     General Public License for more details.
-
-     You should have received a copy of the GNU General Public License
-     along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-   Also add information on how to contact you by electronic and paper
-mail.
-
-   If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
-     PROGRAM Copyright (C) YEAR NAME OF AUTHOR
-     This program comes with ABSOLUTELY NO WARRANTY; for details type ‘show w’.
-     This is free software, and you are welcome to redistribute it
-     under certain conditions; type ‘show c’ for details.
-
-   The hypothetical commands ‘show w’ and ‘show c’ should show the
-appropriate parts of the General Public License.  Of course, your
-program’s commands might be different; for a GUI interface, you would
-use an “about box”.
-
-   You should also get your employer (if you work as a programmer) or
-school, if any, to sign a “copyright disclaimer” for the program, if
-necessary.  For more information on this, and how to apply and follow
-the GNU GPL, see <https://www.gnu.org/licenses/>.
-
-   The GNU General Public License does not permit incorporating your
-program into proprietary programs.  If your program is a subroutine
-library, you may consider it more useful to permit linking proprietary
-applications with the library.  If this is what you want to do, use the
-GNU Lesser General Public License instead of this License.  But first,
-please read <https://www.gnu.org/licenses/why-not-lgpl.html>.
-
-
-
-Tag Table:
-Node: Top763
-Node: Introduction2976
-Ref: Some things that Transient can do3504
-Ref: Complexity in CLI programs3857
-Ref: Using Transient for composing interactive commands4458
-Node: Usage6700
-Node: Invoking Transients7068
-Node: Aborting and Resuming Transients8147
-Node: Common Suffix Commands10768
-Node: Saving Values12604
-Ref: Saving Values-Footnote-113975
-Node: Using History14168
-Node: Getting Help for Suffix Commands15742
-Node: Enabling and Disabling Suffixes17120
-Node: Other Commands20408
-Node: Configuration21384
-Ref: Essential Options21664
-Ref: Accessibility Options25732
-Ref: Auxiliary Options26055
-Ref: Developer Options31011
-Node: Modifying Existing Transients32259
-Node: Defining New Commands36451
-Node: Technical Introduction36814
-Node: Defining Transients42515
-Node: Binding Suffix and Infix Commands44982
-Node: Group Specifications45840
-Node: Suffix Specifications52391
-Node: Defining Suffix and Infix Commands56604
-Node: Using Infix Arguments59652
-Node: Transient State63289
-Ref: Pre-commands for Infixes68104
-Ref: Pre-commands for Suffixes68624
-Ref: Pre-commands for Non-Suffixes71078
-Ref: Special Pre-Commands72214
-Node: Classes and Methods72722
-Node: Group Classes74906
-Node: Group Methods76833
-Node: Prefix Classes78086
-Node: Suffix Classes79177
-Node: Suffix Methods82289
-Node: Suffix Value Methods82610
-Node: Suffix Format Methods85368
-Node: Prefix Slots88358
-Ref: Internal Prefix Slots90495
-Node: Suffix Slots91752
-Ref: Slots of transient-suffix92120
-Ref: Slots of transient-infix93554
-Ref: Slots of transient-variable96850
-Ref: Slots of transient-switches96952
-Node: Predicate Slots97315
-Node: FAQ99660
-Ref: Can I control how the popup buffer is displayed?99789
-Ref: How can I copy text from the popup buffer?99970
-Ref: How can I autoload prefix and suffix commands?100464
-Ref: How does Transient compare to prefix keys and universal arguments?100938
-Ref: How does Transient compare to Magit-Popup and Hydra?101181
-Ref: Why did some of the key bindings change?101375
-Ref: Why does q not quit popups anymore?103728
-Node: Keystroke Index104831
-Node: Command and Function Index106696
-Node: Variable Index113699
-Node: Concept Index115972
-Node: GNU General Public License118708
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/emacs/elpa/transient-20241115.2034/dir b/emacs/elpa/transient-20241123.1834/dir
diff --git a/emacs/elpa/transient-20241115.2034/gpl.info b/emacs/elpa/transient-20241123.1834/gpl.info
diff --git a/emacs/elpa/transient-20241115.2034/transient-autoloads.el b/emacs/elpa/transient-20241123.1834/transient-autoloads.el
diff --git a/emacs/elpa/transient-20241123.1834/transient-pkg.el b/emacs/elpa/transient-20241123.1834/transient-pkg.el
@@ -0,0 +1,12 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "transient" "20241123.1834"
+  "Transient commands."
+  '((emacs  "26.1")
+    (compat "30.0.0.0")
+    (seq    "2.24"))
+  :url "https://github.com/magit/transient"
+  :commit "7e50a8fa8ee71f9ada1e9065ba7b1a079c9f3ba8"
+  :revdesc "7e50a8fa8ee7"
+  :keywords '("extensions")
+  :authors '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev"))
+  :maintainers '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")))
diff --git a/emacs/elpa/transient-20241123.1834/transient.el b/emacs/elpa/transient-20241123.1834/transient.el
@@ -0,0 +1,4780 @@
+;;; transient.el --- Transient commands  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2018-2024 Free Software Foundation, Inc.
+
+;; Author: Jonas Bernoulli <emacs.transient@jonas.bernoulli.dev>
+;; Homepage: https://github.com/magit/transient
+;; Keywords: extensions
+
+;; Package-Version: 20241123.1834
+;; Package-Revision: 7e50a8fa8ee7
+;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0") (seq "2.24"))
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Transient is the library used to implement the keyboard-driven menus
+;; in Magit.  It is distributed as a separate package, so that it can be
+;; used to implement similar menus in other packages.
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'compat)
+(require 'eieio)
+(require 'edmacro)
+(require 'format-spec)
+(require 'pcase)
+
+(eval-and-compile
+  (when (and (featurep 'seq)
+             (not (fboundp 'seq-keep)))
+    (unload-feature 'seq 'force)))
+(require 'seq)
+(unless (fboundp 'seq-keep)
+  (display-warning 'transient (substitute-command-keys "\
+Transient requires `seq' >= 2.24,
+but due to bad defaults, Emacs's package manager, refuses to
+upgrade this and other built-in packages to higher releases
+from GNU Elpa, when a package specifies that this is needed.
+
+To fix this, you have to add this to your init file:
+
+  (setq package-install-upgrade-built-in t)
+
+Then evaluate that expression by placing the cursor after it
+and typing \\[eval-last-sexp].
+
+Once you have done that, you have to explicitly upgrade `seq':
+
+  \\[package-upgrade] seq \\`RET'
+
+Then you also must make sure the updated version is loaded,
+by evaluating this form:
+
+  (progn (unload-feature 'seq t) (require 'seq))
+
+Until you do this, you will get random errors about `seq-keep'
+being undefined while using Transient.
+
+If you don't use the `package' package manager but still get
+this warning, then your chosen package manager likely has a
+similar defect.") :emergency))
+
+(eval-when-compile (require 'subr-x))
+
+(declare-function info "info" (&optional file-or-node buffer))
+(declare-function Man-find-section "man" (section))
+(declare-function Man-next-section "man" (n))
+(declare-function Man-getpage-in-background "man" (topic))
+
+(defvar Man-notify-method)
+(defvar pp-default-function) ; since Emacs 29.1
+
+(eval-and-compile
+  (when (< emacs-major-version 28)
+    (pcase-defmacro cl-type (type)
+      "Pcase pattern that matches objects of TYPE.
+TYPE is a type descriptor as accepted by `cl-typep', which see."
+      (static-if (< emacs-major-version 30)
+          `(pred (pcase--flip cl-typep ',type))
+        `(pred (cl-typep _ ',type))))))
+
+(defmacro transient--with-emergency-exit (id &rest body)
+  (declare (indent defun))
+  (unless (keywordp id)
+    (setq body (cons id body))
+    (setq id nil))
+  `(condition-case err
+       (let ((debugger #'transient--exit-and-debug))
+         ,(macroexp-progn body))
+     ((debug error)
+      (transient--emergency-exit ,id)
+      (signal (car err) (cdr err)))))
+
+(defun transient--exit-and-debug (&rest args)
+  (transient--emergency-exit :debugger)
+  (apply #'debug args))
+
+;;; Options
+
+(defgroup transient nil
+  "Transient commands."
+  :group 'extensions)
+
+(defcustom transient-show-popup t
+  "Whether to show the current transient in a popup buffer.
+\\<transient-map>
+- If t, then show the popup as soon as a transient prefix command
+  is invoked.
+
+- If nil, then do not show the popup unless the user explicitly
+  requests it, by pressing \\[transient-show] or a prefix key.
+
+- If a number, then delay displaying the popup and instead show
+  a brief one-line summary.  If zero or negative, then suppress
+  even showing that summary and display the pressed key only.
+
+  Show the popup when the user explicitly requests it by pressing
+  \\[transient-show] or a prefix key.  Unless zero, then also show the popup
+  after that many seconds of inactivity (using the absolute value)."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type '(choice (const  :tag "instantly" t)
+                 (const  :tag "on demand" nil)
+                 (const  :tag "on demand (no summary)" 0)
+                 (number :tag "after delay" 1)))
+
+(defcustom transient-enable-popup-navigation 'verbose
+  "Whether navigation commands are enabled in the transient popup.
+
+If the value is `verbose', additionally show brief documentation
+about the command under point in the echo area.
+
+While a transient is active the transient popup buffer is not the
+current buffer, making it necessary to use dedicated commands to
+act on that buffer itself.  If this is non-nil, then the following
+bindings are available:
+
+\\<transient-popup-navigation-map>\
+- \\[transient-backward-button] moves the cursor to the previous suffix.
+- \\[transient-forward-button] moves the cursor to the next suffix.
+- \\[transient-push-button] invokes the suffix the cursor is on.
+\\<transient-button-map>\
+- \\`<mouse-1>' and \\`<mouse-2>' invoke the clicked on suffix.
+\\<transient-popup-navigation-map>\
+- \\[transient-isearch-backward]\
+ and \\[transient-isearch-forward] start isearch in the popup buffer.
+
+\\`<mouse-1>' and \\`<mouse-2>' are bound in `transient-push-button'.
+All other bindings are in `transient-popup-navigation-map'.
+
+By default \\`M-RET' is bound to `transient-push-button', instead of
+\\`RET', because if a transient allows the invocation of non-suffixes,
+then it is likely, that you would want \\`RET' to do what it would do
+if no transient were active."
+  :package-version '(transient . "0.7.8")
+  :group 'transient
+  :type '(choice (const :tag "enable navigation and echo summary" verbose)
+                 (const :tag "enable navigation commands" t)
+                 (const :tag "disable navigation commands" nil)))
+
+(defcustom transient-display-buffer-action
+  '(display-buffer-in-side-window
+    (side . bottom)
+    (dedicated . t)
+    (inhibit-same-window . t))
+  "The action used to display the transient popup buffer.
+
+The transient popup buffer is displayed in a window using
+
+  (display-buffer BUFFER transient-display-buffer-action)
+
+The value of this option has the form (FUNCTION . ALIST),
+where FUNCTION is a function or a list of functions.  Each such
+function should accept two arguments: a buffer to display and an
+alist of the same form as ALIST.  See info node `(elisp)Choosing
+Window' for details.
+
+The default is:
+
+  (display-buffer-in-side-window
+    (side . bottom)
+    (dedicated . t)
+    (inhibit-same-window . t))
+
+This displays the window at the bottom of the selected frame.
+Another useful FUNCTION is `display-buffer-below-selected', which
+is what `magit-popup' used by default.  For more alternatives see
+info node `(elisp)Display Action Functions' and info node
+`(elisp)Buffer Display Action Alists'.
+
+Note that the buffer that was current before the transient buffer
+is shown should remain the current buffer.  Many suffix commands
+act on the thing at point, if appropriate, and if the transient
+buffer became the current buffer, then that would change what is
+at point.  To that effect `inhibit-same-window' ensures that the
+selected window is not used to show the transient buffer.
+
+The use of a horizonal split to display the menu window can lead
+to incompatibilities and is thus discouraged.  Transient tries to
+mitigate such issue but cannot proactively deal with all possible
+configurations and combinations of third-party packages.
+
+It may be possible to display the window in another frame, but
+whether that works in practice depends on the window-manager.
+If the window manager selects the new window (Emacs frame),
+then that unfortunately changes which buffer is current.
+
+If you change the value of this option, then you might also
+want to change the value of `transient-mode-line-format'."
+  :package-version '(transient . "0.7.5")
+  :group 'transient
+  :type '(cons (choice function (repeat :tag "Functions" function))
+               alist))
+
+(defcustom transient-mode-line-format 'line
+  "The mode-line format for the transient popup buffer.
+
+If nil, then the buffer has no mode-line.  If the buffer is not
+displayed right above the echo area, then this probably is not
+a good value.
+
+If `line' (the default) or a natural number, then the buffer has no
+mode-line, but a line is drawn in its place.  If a number is used,
+that specifies the thickness of the line.  On termcap frames we
+cannot draw lines, so there `line' and numbers are synonyms for nil.
+
+The color of the line is used to indicate if non-suffixes are
+allowed and whether they exit the transient.  The foreground
+color of `transient-key-noop' (if non-suffixes are disallowed),
+`transient-key-stay' (if allowed and transient stays active), or
+`transient-key-exit' (if allowed and they exit the transient) is
+used to draw the line.
+
+Otherwise this can be any mode-line format.
+See `mode-line-format' for details."
+  :package-version '(transient . "0.2.0")
+  :group 'transient
+  :type '(choice (const  :tag "hide mode-line" nil)
+                 (const  :tag "substitute thin line" line)
+                 (number :tag "substitute line with thickness")
+                 (const  :tag "name of prefix command"
+                         ("%e" mode-line-front-space
+                          mode-line-buffer-identification))
+                 (sexp   :tag "custom mode-line format")))
+
+(defcustom transient-show-common-commands nil
+  "Whether to show common transient suffixes in the popup buffer.
+
+These commands are always shown after typing the prefix key
+\"C-x\" when a transient command is active.  To toggle the value
+of this variable use \"C-x t\" when a transient is active."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-read-with-initial-input nil
+  "Whether to use the last history element as initial minibuffer input."
+  :package-version '(transient . "0.2.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-highlight-mismatched-keys nil
+  "Whether to highlight keys that do not match their argument.
+
+This only affects infix arguments that represent command-line
+arguments.  When this option is non-nil, then the key binding
+for infix argument are highlighted when only a long argument
+\(e.g., \"--verbose\") is specified but no shorthand (e.g., \"-v\").
+In the rare case that a short-hand is specified but does not
+match the key binding, then it is highlighted differently.
+
+The highlighting is done using `transient-mismatched-key'
+and `transient-nonstandard-key'."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-highlight-higher-levels nil
+  "Whether to highlight suffixes on higher levels.
+
+This is primarily intended for package authors.
+
+When non-nil then highlight the description of suffixes whose
+level is above 4, the default of `transient-default-level'.
+Assuming you have set that variable to 7, this highlights all
+suffixes that won't be available to users without them making
+the same customization."
+  :package-version '(transient . "0.3.6")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-substitute-key-function nil
+  "Function used to modify key bindings.
+
+This function is called with one argument, the prefix object,
+and must return a key binding description, either the existing
+key description it finds in the `key' slot, or a substitution.
+
+This is intended to let users replace certain prefix keys.  It
+could also be used to make other substitutions, but that is
+discouraged.
+
+For example, \"=\" is hard to reach using my custom keyboard
+layout, so I substitute \"(\" for that, which is easy to reach
+using a layout optimized for Lisp.
+
+  (setq transient-substitute-key-function
+        (lambda (obj)
+          (let ((key (oref obj key)))
+            (if (string-match \"\\\\`\\\\(=\\\\)[a-zA-Z]\" key)
+                (replace-match \"(\" t t key 1)
+              key)))))"
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type '(choice (const :tag "Transform no keys (nil)" nil) function))
+
+(defcustom transient-semantic-coloring t
+  "Whether to use colors to indicate transient behavior.
+
+If non-nil, then the key binding of each suffix is colorized to
+indicate whether it exits the transient state or not, and the
+line that is drawn below the transient popup buffer is used to
+indicate the behavior of non-suffix commands."
+  :package-version '(transient . "0.5.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-detect-key-conflicts nil
+  "Whether to detect key binding conflicts.
+
+Conflicts are detected when a transient prefix command is invoked
+and results in an error, which prevents the transient from being
+used."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-align-variable-pitch nil
+  "Whether to align columns pixel-wise in the popup buffer.
+
+If this is non-nil, then columns are aligned pixel-wise to
+support variable-pitch fonts.  Keys are not aligned, so you
+should use a fixed-pitch font for the `transient-key' face.
+Other key faces inherit from that face unless a theme is
+used that breaks that relationship.
+
+This option is intended for users who use a variable-pitch
+font for the `default' face.
+
+See also `transient-force-fixed-pitch'."
+  :package-version '(transient . "0.4.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-force-fixed-pitch nil
+  "Whether to force use of monospaced font in the popup buffer.
+
+Even if you use a proportional font for the `default' face,
+you might still want to use a monospaced font in transient's
+popup buffer.  Setting this option to t causes `default' to
+be remapped to `fixed-pitch' in that buffer.
+
+See also `transient-align-variable-pitch'."
+  :package-version '(transient . "0.2.0")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-force-single-column nil
+  "Whether to force use of a single column to display suffixes.
+
+This might be useful for users with low vision who use large
+text and might otherwise have to scroll in two dimensions."
+  :package-version '(transient . "0.3.6")
+  :group 'transient
+  :type 'boolean)
+
+(defcustom transient-hide-during-minibuffer-read t
+  "Whether to hide the transient buffer while reading in the minibuffer.
+
+This is only relevant to commands that do not close the menu, such
+as commands that set infix arguments.  If a command exits the menu,
+and uses the minibuffer, then the menu is always closed before the
+minibuffer is entered, irrespective of the value of this option."
+  :package-version '(transient . "0.8.0")
+  :group 'transient
+  :type 'boolean)
+
+(defconst transient--max-level 7)
+(defconst transient--default-child-level 1)
+(defconst transient--default-prefix-level 4)
+
+(defcustom transient-default-level transient--default-prefix-level
+  "Control what suffix levels are made available by default.
+
+Each suffix command is placed on a level and each prefix command
+has a level, which controls which suffix commands are available.
+Integers between 1 and 7 (inclusive) are valid levels.
+
+The levels of individual transients and/or their individual
+suffixes can be changed individually, by invoking the prefix and
+then pressing \"C-x l\".
+
+The default level for both transients and their suffixes is 4.
+This option only controls the default for transients.  The default
+suffix level is always 4.  The author of a transient should place
+certain suffixes on a higher level if they expect that it won't be
+of use to most users, and they should place very important suffixes
+on a lower level so that they remain available even if the user
+lowers the transient level.
+
+\(Magit currently places nearly all suffixes on level 4 and lower
+levels are not used at all yet.  So for the time being you should
+not set a lower level here and using a higher level might not
+give you as many additional suffixes as you hoped.)"
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type '(choice (const :tag "1 - fewest suffixes" 1)
+                 (const 2)
+                 (const 3)
+                 (const :tag "4 - default" 4)
+                 (const 5)
+                 (const 6)
+                 (const :tag "7 - most suffixes" 7)))
+
+(defcustom transient-levels-file
+  (locate-user-emacs-file "transient/levels.el")
+  "File used to save levels of transients and their suffixes."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'file)
+
+(defcustom transient-values-file
+  (locate-user-emacs-file "transient/values.el")
+  "File used to save values of transients."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'file)
+
+(defcustom transient-history-file
+  (locate-user-emacs-file "transient/history.el")
+  "File used to save history of transients and their infixes."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'file)
+
+(defcustom transient-history-limit 10
+  "Number of history elements to keep when saving to file."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'integer)
+
+(defcustom transient-save-history t
+  "Whether to save history of transient commands when exiting Emacs."
+  :package-version '(transient . "0.1.0")
+  :group 'transient
+  :type 'boolean)
+
+;;; Faces
+
+(defgroup transient-faces nil
+  "Faces used by Transient."
+  :group 'transient)
+
+(defface transient-heading '((t :inherit font-lock-keyword-face))
+  "Face used for headings."
+  :group 'transient-faces)
+
+(defface transient-argument '((t :inherit font-lock-string-face :weight bold))
+  "Face used for enabled arguments."
+  :group 'transient-faces)
+
+(defface transient-inactive-argument '((t :inherit shadow))
+  "Face used for inactive arguments."
+  :group 'transient-faces)
+
+(defface transient-value '((t :inherit font-lock-string-face :weight bold))
+  "Face used for values."
+  :group 'transient-faces)
+
+(defface transient-inactive-value '((t :inherit shadow))
+  "Face used for inactive values."
+  :group 'transient-faces)
+
+(defface transient-unreachable '((t :inherit shadow))
+  "Face used for suffixes unreachable from the current prefix sequence."
+  :group 'transient-faces)
+
+(defface transient-inapt-suffix '((t :inherit shadow :italic t))
+  "Face used for suffixes that are inapt at this time."
+  :group 'transient-faces)
+
+(defface transient-active-infix '((t :inherit highlight))
+  "Face used for the infix for which the value is being read."
+  :group 'transient-faces)
+
+(defface transient-enabled-suffix
+  '((t :background "green" :foreground "black" :weight bold))
+  "Face used for enabled levels while editing suffix levels.
+See info node `(transient)Enabling and Disabling Suffixes'."
+  :group 'transient-faces)
+
+(defface transient-disabled-suffix
+  '((t :background "red" :foreground "black" :weight bold))
+  "Face used for disabled levels while editing suffix levels.
+See info node `(transient)Enabling and Disabling Suffixes'."
+  :group 'transient-faces)
+
+(defface transient-higher-level
+  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
+              :color ,(let ((color (face-attribute 'shadow :foreground nil t)))
+                        (or (and (not (eq color 'unspecified)) color)
+                            "grey60")))))
+  "Face optionally used to highlight suffixes on higher levels.
+See also option `transient-highlight-higher-levels'."
+  :group 'transient-faces)
+
+(defface transient-delimiter '((t :inherit shadow))
+  "Face used for delimiters and separators.
+This includes the parentheses around values and the pipe
+character used to separate possible values from each other."
+  :group 'transient-faces)
+
+(defface transient-key '((t :inherit font-lock-builtin-face))
+  "Face used for keys."
+  :group 'transient-faces)
+
+(defface transient-key-stay
+  `((((class color) (background light))
+     :inherit transient-key
+     :foreground "#22aa22")
+    (((class color) (background dark))
+     :inherit transient-key
+     :foreground "#ddffdd"))
+  "Face used for keys of suffixes that don't exit transient state."
+  :group 'transient-faces)
+
+(defface transient-key-noop
+  `((((class color) (background light))
+     :inherit transient-key
+     :foreground "grey80")
+    (((class color) (background dark))
+     :inherit transient-key
+     :foreground "grey30"))
+  "Face used for keys of suffixes that currently cannot be invoked."
+  :group 'transient-faces)
+
+(defface transient-key-return
+  `((((class color) (background light))
+     :inherit transient-key
+     :foreground "#aaaa11")
+    (((class color) (background dark))
+     :inherit transient-key
+     :foreground "#ffffcc"))
+  "Face used for keys of suffixes that return to the parent transient."
+  :group 'transient-faces)
+
+(defface transient-key-exit
+  `((((class color) (background light))
+     :inherit transient-key
+     :foreground "#aa2222")
+    (((class color) (background dark))
+     :inherit transient-key
+     :foreground "#ffdddd"))
+  "Face used for keys of suffixes that exit transient state."
+  :group 'transient-faces)
+
+(defface transient-unreachable-key
+  '((t :inherit (shadow transient-key) :weight normal))
+  "Face used for keys unreachable from the current prefix sequence."
+  :group 'transient-faces)
+
+(defface transient-nonstandard-key
+  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
+              :color "cyan")))
+  "Face optionally used to highlight keys conflicting with short-argument.
+See also option `transient-highlight-mismatched-keys'."
+  :group 'transient-faces)
+
+(defface transient-mismatched-key
+  `((t :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1)
+              :color "magenta")))
+  "Face optionally used to highlight keys without a short-argument.
+See also option `transient-highlight-mismatched-keys'."
+  :group 'transient-faces)
+
+;;; Persistence
+
+(defun transient--read-file-contents (file)
+  (with-demoted-errors "Transient error: %S"
+    (and (file-exists-p file)
+         (with-temp-buffer
+           (insert-file-contents file)
+           (read (current-buffer))))))
+
+(defun transient--pp-to-file (list file)
+  (make-directory (file-name-directory file) t)
+  (setq list (cl-sort (copy-sequence list) #'string< :key #'car))
+  (with-temp-file file
+    (let ((print-level nil)
+          (print-length nil)
+          (pp-default-function 'pp-28)
+          (fill-column 999))
+      (pp list (current-buffer)))))
+
+(defvar transient-values
+  (transient--read-file-contents transient-values-file)
+  "Values of transient commands.
+The value of this variable persists between Emacs sessions
+and you usually should not change it manually.")
+
+(defun transient-save-values ()
+  (transient--pp-to-file transient-values transient-values-file))
+
+(defvar transient-levels
+  (transient--read-file-contents transient-levels-file)
+  "Levels of transient commands.
+The value of this variable persists between Emacs sessions
+and you usually should not change it manually.")
+
+(defun transient-save-levels ()
+  (transient--pp-to-file transient-levels transient-levels-file))
+
+(defvar transient-history
+  (transient--read-file-contents transient-history-file)
+  "History of transient commands and infix arguments.
+The value of this variable persists between Emacs sessions
+\(unless `transient-save-history' is nil) and you usually
+should not change it manually.")
+
+(defun transient-save-history ()
+  (setq transient-history
+        (cl-sort (mapcar (pcase-lambda (`(,key . ,val))
+                           (cons key (seq-take (delete-dups val)
+                                               transient-history-limit)))
+                         transient-history)
+                 #'string< :key #'car))
+  (transient--pp-to-file transient-history transient-history-file))
+
+(defun transient-maybe-save-history ()
+  "Save the value of `transient-history'.
+If `transient-save-history' is nil, then do nothing."
+  (when transient-save-history
+    (transient-save-history)))
+
+(unless noninteractive
+  (add-hook 'kill-emacs-hook #'transient-maybe-save-history))
+
+;;; Classes
+;;;; Prefix
+
+(defclass transient-prefix ()
+  ((prototype   :initarg :prototype)
+   (command     :initarg :command)
+   (level       :initarg :level)
+   (variable    :initarg :variable    :initform nil)
+   (init-value  :initarg :init-value)
+   (value) (default-value :initarg :value)
+   (scope       :initarg :scope       :initform nil)
+   (history     :initarg :history     :initform nil)
+   (history-pos :initarg :history-pos :initform 0)
+   (history-key :initarg :history-key :initform nil)
+   (show-help   :initarg :show-help   :initform nil)
+   (info-manual :initarg :info-manual :initform nil)
+   (man-page    :initarg :man-page    :initform nil)
+   (transient-suffix     :initarg :transient-suffix     :initform nil)
+   (transient-non-suffix :initarg :transient-non-suffix :initform nil)
+   (transient-switch-frame :initarg :transient-switch-frame)
+   (refresh-suffixes     :initarg :refresh-suffixes     :initform nil)
+   (environment          :initarg :environment          :initform nil)
+   (incompatible         :initarg :incompatible         :initform nil)
+   (suffix-description   :initarg :suffix-description)
+   (variable-pitch       :initarg :variable-pitch       :initform nil)
+   (column-widths        :initarg :column-widths        :initform nil)
+   (unwind-suffix        :documentation "Internal use." :initform nil))
+  "Transient prefix command.
+
+Each transient prefix command consists of a command, which is
+stored in a symbol's function slot and an object, which is
+stored in the `transient--prefix' property of the same symbol.
+
+When a transient prefix command is invoked, then a clone of that
+object is stored in the global variable `transient--prefix' and
+the prototype is stored in the clone's `prototype' slot.")
+
+;;;; Suffix
+
+(defclass transient-child ()
+  ((level
+    :initarg :level
+    :initform (symbol-value 'transient--default-child-level)
+    :documentation "Enable if level of prefix is equal or greater.")
+   (if
+    :initarg :if
+    :initform nil
+    :documentation "Enable if predicate returns non-nil.")
+   (if-not
+    :initarg :if-not
+    :initform nil
+    :documentation "Enable if predicate returns nil.")
+   (if-non-nil
+    :initarg :if-non-nil
+    :initform nil
+    :documentation "Enable if variable's value is non-nil.")
+   (if-nil
+    :initarg :if-nil
+    :initform nil
+    :documentation "Enable if variable's value is nil.")
+   (if-mode
+    :initarg :if-mode
+    :initform nil
+    :documentation "Enable if major-mode matches value.")
+   (if-not-mode
+    :initarg :if-not-mode
+    :initform nil
+    :documentation "Enable if major-mode does not match value.")
+   (if-derived
+    :initarg :if-derived
+    :initform nil
+    :documentation "Enable if major-mode derives from value.")
+   (if-not-derived
+    :initarg :if-not-derived
+    :initform nil
+    :documentation "Enable if major-mode does not derive from value.")
+   (inapt
+    :initform nil)
+   (inapt-face
+    :initarg :inapt-face
+    :initform 'transient-inapt-suffix)
+   (inapt-if
+    :initarg :inapt-if
+    :initform nil
+    :documentation "Inapt if predicate returns non-nil.")
+   (inapt-if-not
+    :initarg :inapt-if-not
+    :initform nil
+    :documentation "Inapt if predicate returns nil.")
+   (inapt-if-non-nil
+    :initarg :inapt-if-non-nil
+    :initform nil
+    :documentation "Inapt if variable's value is non-nil.")
+   (inapt-if-nil
+    :initarg :inapt-if-nil
+    :initform nil
+    :documentation "Inapt if variable's value is nil.")
+   (inapt-if-mode
+    :initarg :inapt-if-mode
+    :initform nil
+    :documentation "Inapt if major-mode matches value.")
+   (inapt-if-not-mode
+    :initarg :inapt-if-not-mode
+    :initform nil
+    :documentation "Inapt if major-mode does not match value.")
+   (inapt-if-derived
+    :initarg :inapt-if-derived
+    :initform nil
+    :documentation "Inapt if major-mode derives from value.")
+   (inapt-if-not-derived
+    :initarg :inapt-if-not-derived
+    :initform nil
+    :documentation "Inapt if major-mode does not derive from value."))
+  "Abstract superclass for group and suffix classes.
+
+It is undefined which predicates are used if more than one `if*'
+predicate slots or more than one `inapt-if*' slots are non-nil."
+  :abstract t)
+
+(defclass transient-suffix (transient-child)
+  ((definition  :allocation :class    :initform nil)
+   (key         :initarg :key)
+   (command     :initarg :command)
+   (transient   :initarg :transient)
+   (format      :initarg :format      :initform " %k %d")
+   (description :initarg :description :initform nil)
+   (face        :initarg :face        :initform nil)
+   (show-help   :initarg :show-help   :initform nil)
+   (summary     :initarg :summary     :initform nil))
+  "Superclass for suffix command.")
+
+(defclass transient-information (transient-suffix)
+  ((format :initform " %k %d")
+   (key    :initform " "))
+  "Display-only information, aligned with suffix keys.
+Technically a suffix object with no associated command.")
+
+(defclass transient-information* (transient-information)
+  ((format :initform " %d"))
+  "Display-only information, aligned with suffix descriptions.
+Technically a suffix object with no associated command.")
+
+(defclass transient-infix (transient-suffix)
+  ((transient                         :initform t)
+   (argument    :initarg :argument)
+   (shortarg    :initarg :shortarg)
+   (value                             :initform nil)
+   (init-value  :initarg :init-value)
+   (unsavable   :initarg :unsavable   :initform nil)
+   (multi-value :initarg :multi-value :initform nil)
+   (always-read :initarg :always-read :initform nil)
+   (allow-empty :initarg :allow-empty :initform nil)
+   (history-key :initarg :history-key :initform nil)
+   (reader      :initarg :reader      :initform nil)
+   (prompt      :initarg :prompt      :initform nil)
+   (choices     :initarg :choices     :initform nil)
+   (format                            :initform " %k %d (%v)"))
+  "Transient infix command."
+  :abstract t)
+
+(defclass transient-argument (transient-infix) ()
+  "Abstract superclass for infix arguments."
+  :abstract t)
+
+(defclass transient-switch (transient-argument) ()
+  "Class used for command-line argument that can be turned on and off.")
+
+(defclass transient-option (transient-argument) ()
+  "Class used for command-line argument that can take a value.")
+
+(defclass transient-variable (transient-infix)
+  ((variable    :initarg :variable)
+   (format                            :initform " %k %d %v"))
+  "Abstract superclass for infix commands that set a variable."
+  :abstract t)
+
+(defclass transient-switches (transient-argument)
+  ((argument-format  :initarg :argument-format)
+   (argument-regexp  :initarg :argument-regexp))
+  "Class used for sets of mutually exclusive command-line switches.")
+
+(defclass transient-files (transient-option) ()
+  ((key         :initform "--")
+   (argument    :initform "--")
+   (multi-value :initform rest)
+   (reader      :initform transient-read-files))
+  "Class used for the \"--\" argument or similar.
+All remaining arguments are treated as files.
+They become the value of this argument.")
+
+(defclass transient-value-preset (transient-suffix)
+  ((transient :initform t)
+   (set :initarg := :initform nil))
+  "Class used by the `transient-preset' suffix command.")
+
+;;;; Group
+
+(defclass transient-group (transient-child)
+  ((suffixes       :initarg :suffixes       :initform nil)
+   (hide           :initarg :hide           :initform nil)
+   (description    :initarg :description    :initform nil)
+   (pad-keys       :initarg :pad-keys       :initform nil)
+   (info-format    :initarg :info-format    :initform nil)
+   (setup-children :initarg :setup-children))
+  "Abstract superclass of all group classes."
+  :abstract t)
+
+(defclass transient-column (transient-group) ()
+  "Group class that displays each element on a separate line.")
+
+(defclass transient-row (transient-group) ()
+  "Group class that displays all elements on a single line.")
+
+(defclass transient-columns (transient-group) ()
+  "Group class that displays elements organized in columns.
+Direct elements have to be groups whose elements have to be
+commands or strings.  Each subgroup represents a column.
+This class takes care of inserting the subgroups' elements.")
+
+(defclass transient-subgroups (transient-group) ()
+  "Group class that wraps other groups.
+
+Direct elements have to be groups whose elements have to be
+commands or strings.  This group inserts an empty line between
+subgroups.  The subgroups are responsible for displaying their
+elements themselves.")
+
+;;; Define
+
+(defmacro transient-define-prefix (name arglist &rest args)
+  "Define NAME as a transient prefix command.
+
+ARGLIST are the arguments that command takes.
+DOCSTRING is the documentation string and is optional.
+
+These arguments can optionally be followed by key-value pairs.
+Each key has to be a keyword symbol, either `:class' or a keyword
+argument supported by the constructor of that class.  The
+`transient-prefix' class is used if the class is not specified
+explicitly.
+
+GROUPs add key bindings for infix and suffix commands and specify
+how these bindings are presented in the popup buffer.  At least
+one GROUP has to be specified.  See info node `(transient)Binding
+Suffix and Infix Commands'.
+
+The BODY is optional.  If it is omitted, then ARGLIST is also
+ignored and the function definition becomes:
+
+  (lambda ()
+    (interactive)
+    (transient-setup \\='NAME))
+
+If BODY is specified, then it must begin with an `interactive'
+form that matches ARGLIST, and it must call `transient-setup'.
+It may however call that function only when some condition is
+satisfied; that is one of the reason why you might want to use
+an explicit BODY.
+
+All transients have a (possibly nil) value, which is exported
+when suffix commands are called, so that they can consume that
+value.  For some transients it might be necessary to have a sort
+of secondary value, called a scope.  Such a scope would usually
+be set in the commands `interactive' form and has to be passed
+to the setup function:
+
+  (transient-setup \\='NAME nil nil :scope SCOPE)
+
+\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... GROUP... [BODY...])"
+  (declare (debug ( &define name lambda-list
+                    [&optional lambda-doc]
+                    [&rest keywordp sexp]
+                    [&rest vectorp]
+                    [&optional ("interactive" interactive) def-body]))
+           (indent defun)
+           (doc-string 3))
+  (pcase-let
+      ((`(,class ,slots ,suffixes ,docstr ,body ,interactive-only)
+        (transient--expand-define-args args arglist 'transient-define-prefix)))
+    `(progn
+       (defalias ',name
+         ,(if body
+              `(lambda ,arglist ,@body)
+            `(lambda ()
+               (interactive)
+               (transient-setup ',name))))
+       (put ',name 'interactive-only ,interactive-only)
+       (put ',name 'function-documentation ,docstr)
+       (put ',name 'transient--prefix
+            (,(or class 'transient-prefix) :command ',name ,@slots))
+       (put ',name 'transient--layout
+            (list ,@(mapcan (lambda (s) (transient--parse-child name s))
+                            suffixes))))))
+
+(defmacro transient-define-suffix (name arglist &rest args)
+  "Define NAME as a transient suffix command.
+
+ARGLIST are the arguments that the command takes.
+DOCSTRING is the documentation string and is optional.
+
+These arguments can optionally be followed by key-value pairs.
+Each key has to be a keyword symbol, either `:class' or a
+keyword argument supported by the constructor of that class.
+The `transient-suffix' class is used if the class is not
+specified explicitly.
+
+The BODY must begin with an `interactive' form that matches
+ARGLIST.  The infix arguments are usually accessed by using
+`transient-args' inside `interactive'.
+
+\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]... [BODY...])"
+  (declare (debug ( &define name lambda-list
+                    [&optional lambda-doc]
+                    [&rest keywordp sexp]
+                    [&optional ("interactive" interactive) def-body]))
+           (indent defun)
+           (doc-string 3))
+  (pcase-let
+      ((`(,class ,slots ,_ ,docstr ,body ,interactive-only)
+        (transient--expand-define-args args arglist 'transient-define-suffix)))
+    `(progn
+       (defalias ',name
+         ,(if (and (not body) class (oref-default class definition))
+              `(oref-default ',class definition)
+            `(lambda ,arglist ,@body)))
+       (put ',name 'interactive-only ,interactive-only)
+       (put ',name 'function-documentation ,docstr)
+       (put ',name 'transient--suffix
+            (,(or class 'transient-suffix) :command ',name ,@slots)))))
+
+(defmacro transient-augment-suffix (name &rest args)
+  "Augment existing command NAME with a new transient suffix object.
+Similar to `transient-define-suffix' but define a suffix object only.
+\n\(fn NAME [KEYWORD VALUE]...)"
+  (declare (debug (&define name [&rest keywordp sexp]))
+           (indent defun))
+  (pcase-let
+      ((`(,class ,slots)
+        (transient--expand-define-args args nil 'transient-augment-suffix t)))
+    `(put ',name 'transient--suffix
+          (,(or class 'transient-suffix) :command ',name ,@slots))))
+
+(defmacro transient-define-infix (name arglist &rest args)
+  "Define NAME as a transient infix command.
+
+ARGLIST is always ignored and reserved for future use.
+DOCSTRING is the documentation string and is optional.
+
+At least one key-value pair is required.  All transient infix
+commands are equal to each other (but not eq).  It is meaning-
+less to define an infix command, without providing at least one
+keyword argument (usually `:argument' or `:variable', depending
+on the class).  The suffix class defaults to `transient-switch'
+and can be set using the `:class' keyword.
+
+The function definitions is always:
+
+  (lambda ()
+    (interactive)
+    (let ((obj (transient-suffix-object)))
+      (transient-infix-set obj (transient-infix-read obj)))
+    (transient--show))
+
+`transient-infix-read' and `transient-infix-set' are generic
+functions.  Different infix commands behave differently because
+the concrete methods are different for different infix command
+classes.  In rare case the above command function might not be
+suitable, even if you define your own infix command class.  In
+that case you have to use `transient-define-suffix' to define
+the infix command and use t as the value of the `:transient'
+keyword.
+
+\(fn NAME ARGLIST [DOCSTRING] KEYWORD VALUE [KEYWORD VALUE]...)"
+  (declare (debug ( &define name lambda-list
+                    [&optional lambda-doc]
+                    keywordp sexp
+                    [&rest keywordp sexp]))
+           (indent defun)
+           (doc-string 3))
+  (pcase-let
+      ((`(,class ,slots ,_ ,docstr ,_ ,interactive-only)
+        (transient--expand-define-args args arglist 'transient-define-infix t)))
+    `(progn
+       (defalias ',name #'transient--default-infix-command)
+       (put ',name 'interactive-only ,interactive-only)
+       (put ',name 'completion-predicate #'transient--suffix-only)
+       (put ',name 'function-documentation ,docstr)
+       (put ',name 'transient--suffix
+            (,(or class 'transient-switch) :command ',name ,@slots)))))
+
+(defalias 'transient-define-argument #'transient-define-infix
+  "Define NAME as a transient infix command.
+
+Only use this alias to define an infix command that actually
+sets an infix argument.  To define a infix command that, for
+example, sets a variable, use `transient-define-infix' instead.
+
+\(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)")
+
+(defun transient--default-infix-command ()
+  ;; Most infix commands are but an alias for this command.
+  "Cannot show any documentation for this transient infix command.
+
+When you request help for an infix command using `transient-help', that
+usually shows the respective man-page and tries to jump to the location
+where the respective argument is being described.
+
+If no man-page is specified for the containing transient menu, then the
+docstring is displayed instead, if any.
+
+If the infix command doesn't have a docstring, as is the case here, then
+this docstring is displayed instead, because technically infix commands
+are aliases for `transient--default-infix-command'.
+
+`describe-function' also shows the docstring of the infix command,
+falling back to that of the same aliased command."
+  (interactive)
+  (let ((obj (transient-suffix-object)))
+    (transient-infix-set obj (transient-infix-read obj)))
+  (transient--show))
+(put 'transient--default-infix-command 'interactive-only t)
+(put 'transient--default-infix-command 'completion-predicate
+     #'transient--suffix-only)
+
+(define-advice find-function-advised-original
+    (:around (fn func) transient-default-infix)
+  "Return nil instead of `transient--default-infix-command'.
+When using `find-function' to jump to the definition of a transient
+infix command/argument, then we want to actually jump to that, not to
+the definition of `transient--default-infix-command', which all infix
+commands are aliases for."
+  (let ((val (funcall fn func)))
+    (and val (not (eq val 'transient--default-infix-command)) val)))
+
+(eval-and-compile ;transient--expand-define-args
+  (defun transient--expand-define-args (args &optional arglist form nobody)
+    ;; ARGLIST and FORM are only optional for backward compatibility.
+    ;; This is necessary because "emoji.el" from Emacs 29 calls this
+    ;; function directly, with just one argument.
+    (unless (listp arglist)
+      (error "Mandatory ARGLIST is missing"))
+    (let (class keys suffixes docstr declare (interactive-only t))
+      (when (stringp (car args))
+        (setq docstr (pop args)))
+      (while (keywordp (car args))
+        (let ((k (pop args))
+              (v (pop args)))
+          (if (eq k :class)
+              (setq class v)
+            (push k keys)
+            (push v keys))))
+      (while (let ((arg (car args)))
+               (or (vectorp arg)
+                   (and arg (symbolp arg))))
+        (push (pop args) suffixes))
+      (when (eq (car-safe (car args)) 'declare)
+        (setq declare (car args))
+        (setq args (cdr args))
+        (when-let ((int (assq 'interactive-only declare)))
+          (setq interactive-only (cadr int))
+          (delq int declare))
+        (unless (cdr declare)
+          (setq declare nil)))
+      (cond
+       ((not args))
+       (nobody
+        (error "%s: No function body allowed" form))
+       ((not (eq (car-safe (nth (if declare 1 0) args)) 'interactive))
+        (error "%s: Interactive form missing" form)))
+      (list (if (eq (car-safe class) 'quote)
+                (cadr class)
+              class)
+            (nreverse keys)
+            (nreverse suffixes)
+            docstr
+            (if declare (cons declare args) args)
+            interactive-only))))
+
+(defun transient--parse-child (prefix spec)
+  (cl-typecase spec
+    (null    (error "Invalid transient--parse-child spec: %s" spec))
+    (symbol  (let ((value (symbol-value spec)))
+               (if (and (listp value)
+                        (or (listp (car value))
+                            (vectorp (car value))))
+                   (mapcan (lambda (s) (transient--parse-child prefix s)) value)
+                 (transient--parse-child prefix value))))
+    (vector  (and-let* ((c (transient--parse-group  prefix spec))) (list c)))
+    (list    (and-let* ((c (transient--parse-suffix prefix spec))) (list c)))
+    (string  (list spec))
+    (t       (error "Invalid transient--parse-child spec: %s" spec))))
+
+(defun transient--parse-group (prefix spec)
+  (let ((spec (append spec nil))
+        level class args)
+    (when (integerp (car spec))
+      (setq level (pop spec)))
+    (when (stringp (car spec))
+      (setq args (plist-put args :description (pop spec))))
+    (while (keywordp (car spec))
+      (let* ((key (pop spec))
+             (val (if spec (pop spec) (error "No value for `%s'" key))))
+        (cond ((eq key :class)
+               (setq class val))
+              ((or (symbolp val)
+                   (and (listp val) (not (eq (car val) 'lambda))))
+               (setq args (plist-put args key (macroexp-quote val))))
+              ((setq args (plist-put args key val))))))
+    (unless (or spec class (not (plist-get args :setup-children)))
+      (message "WARNING: %s: When %s is used, %s must also be specified"
+               'transient-define-prefix :setup-children :class))
+    (list 'vector
+          (or level transient--default-child-level)
+          (list 'quote
+                (cond (class)
+                      ((cl-typep (car spec)
+                                 '(or vector (and symbol (not null))))
+                       'transient-columns)
+                      ('transient-column)))
+          (and args (cons 'list args))
+          (cons 'list
+                (mapcan (lambda (s) (transient--parse-child prefix s)) spec)))))
+
+(defun transient--parse-suffix (prefix spec)
+  (let (level class args)
+    (cl-flet ((use (prop value)
+                (setq args (plist-put args prop value))))
+      (pcase (car spec)
+        ((cl-type integer)
+         (setq level (pop spec))))
+      (pcase (car spec)
+        ((cl-type (or string vector))
+         (use :key (pop spec))))
+      (pcase (car spec)
+        ((guard (or (stringp (car spec))
+                    (and (eq (car-safe (car spec)) 'lambda)
+                         (not (commandp (car spec))))))
+         (use :description (pop spec)))
+        ((and (cl-type (and symbol (not keyword) (not command)))
+              (guard (commandp (cadr spec))))
+         (use :description (macroexp-quote (pop spec)))))
+      (pcase (car spec)
+        ((or :info :info*))
+        ((and (cl-type keyword) invalid)
+         (error "Need command, argument, `:info' or `:info*'; got `%s'" invalid))
+        ((cl-type symbol)
+         (use :command (macroexp-quote (pop spec))))
+        ;; During macro-expansion this is expected to be a `lambda'
+        ;; expression (i.e., source code).  When this is called from a
+        ;; `:setup-children' function, it may also be a function object
+        ;; (a.k.a a function value).  However, we never treat a string
+        ;; as a command, so we have to check for that explicitly.
+        ((cl-type (and command (not string)))
+         (let ((cmd (pop spec))
+               (sym (intern
+                     (format
+                      "transient:%s:%s:%d" prefix
+                      (replace-regexp-in-string (plist-get args :key) " " "")
+                      (prog1 gensym-counter (cl-incf gensym-counter))))))
+           (use :command
+                `(prog1 ',sym
+                   (put ',sym 'interactive-only t)
+                   (put ',sym 'completion-predicate #'transient--suffix-only)
+                   (defalias ',sym ,cmd)))))
+        ((cl-type (or string (and list (not null))))
+         (let ((arg (pop spec)))
+           (cl-typecase arg
+             (list
+              (use :shortarg (car arg))
+              (use :argument (cadr arg))
+              (setq arg (cadr arg)))
+             (string
+              (when-let ((shortarg (transient--derive-shortarg arg)))
+                (use :shortarg shortarg))
+              (use :argument arg)))
+           (use :command
+                (let ((sym (intern (format "transient:%s:%s" prefix arg))))
+                  `(prog1 ',sym
+                     (put ',sym 'interactive-only t)
+                     (put ',sym 'completion-predicate #'transient--suffix-only)
+                     (defalias ',sym #'transient--default-infix-command))))
+           (pcase (car spec)
+             ((cl-type (and (not null) (not keyword)))
+              (setq class 'transient-option)
+              (use :reader (macroexp-quote (pop spec))))
+             ((guard (string-suffix-p "=" arg))
+              (setq class 'transient-option))
+             (_ (setq class 'transient-switch)))))
+        (invalid
+         (error "Need command, argument, `:info' or `:info*'; got %s" invalid)))
+      (while (keywordp (car spec))
+        (let* ((key (pop spec))
+               (val (if spec (pop spec) (error "No value for `%s'" key))))
+          (pcase key
+            (:class (setq class val))
+            (:level (setq level val))
+            (:info  (setq class 'transient-information)
+                    (use :description val))
+            (:info* (setq class 'transient-information*)
+                    (use :description val))
+            ((guard (eq (car-safe val) '\,))
+             (use key (cadr val)))
+            ((guard (or (symbolp val)
+                        (and (listp val) (not (eq (car val) 'lambda)))))
+             (use key (macroexp-quote val)))
+            (_ (use key val)))))
+      (when spec
+        (error "Need keyword, got %S" (car spec)))
+      (when-let* (((not (plist-get args :key)))
+                  (shortarg (plist-get args :shortarg)))
+        (use :key shortarg)))
+    (list 'list
+          (or level transient--default-child-level)
+          (macroexp-quote (or class 'transient-suffix))
+          (cons 'list args))))
+
+(defun transient--derive-shortarg (arg)
+  (save-match-data
+    (and (string-match "\\`\\(-[a-zA-Z]\\)\\(\\'\\|=\\)" arg)
+         (match-string 1 arg))))
+
+(defun transient-command-completion-not-suffix-only-p (symbol _buffer)
+  "Say whether SYMBOL should be offered as a completion.
+If the value of SYMBOL's `completion-predicate' property is
+`transient--suffix-only', then return nil, otherwise return t.
+This is the case when a command should only ever be used as a
+suffix of a transient prefix command (as opposed to bindings
+in regular keymaps or by using `execute-extended-command')."
+  (not (eq (get symbol 'completion-predicate) 'transient--suffix-only)))
+
+(defalias 'transient--suffix-only #'ignore
+  "Ignore ARGUMENTS, do nothing, and return nil.
+See also `transient-command-completion-not-suffix-only-p'.
+Only use this alias as the value of the `completion-predicate'
+symbol property.")
+
+(when (and (boundp 'read-extended-command-predicate) ; since Emacs 28.1
+           (not read-extended-command-predicate))
+  (setq read-extended-command-predicate
+        #'transient-command-completion-not-suffix-only-p))
+
+(defun transient-parse-suffix (prefix suffix)
+  "Parse SUFFIX, to be added to PREFIX.
+PREFIX is a prefix command, a symbol.
+SUFFIX is a suffix command or a group specification (of
+  the same forms as expected by `transient-define-prefix').
+Intended for use in a group's `:setup-children' function."
+  (cl-assert (and prefix (symbolp prefix)))
+  (eval (car (transient--parse-child prefix suffix)) t))
+
+(defun transient-parse-suffixes (prefix suffixes)
+  "Parse SUFFIXES, to be added to PREFIX.
+PREFIX is a prefix command, a symbol.
+SUFFIXES is a list of suffix command or a group specification
+  (of the same forms as expected by `transient-define-prefix').
+Intended for use in a group's `:setup-children' function."
+  (cl-assert (and prefix (symbolp prefix)))
+  (mapcar (apply-partially #'transient-parse-suffix prefix) suffixes))
+
+;;; Edit
+
+(defun transient--insert-suffix (prefix loc suffix action &optional keep-other)
+  (let* ((suf (cl-etypecase suffix
+                (vector (transient--parse-group  prefix suffix))
+                (list   (transient--parse-suffix prefix suffix))
+                (string suffix)))
+         (mem (transient--layout-member loc prefix))
+         (elt (car mem)))
+    (setq suf (eval suf t))
+    (cond
+     ((not mem)
+      (message "Cannot insert %S into %s; %s not found"
+               suffix prefix loc))
+     ((or (and (vectorp suffix) (not (vectorp elt)))
+          (and (listp   suffix) (vectorp elt))
+          (and (stringp suffix) (vectorp elt)))
+      (message "Cannot place %S into %s at %s; %s"
+               suffix prefix loc
+               "suffixes and groups cannot be siblings"))
+     (t
+      (when-let* ((bindingp (listp suf))
+                  (key (transient--spec-key suf))
+                  (conflict (car (transient--layout-member key prefix)))
+                  (conflictp
+                   (and (not (and (eq action 'replace)
+                                  (eq conflict elt)))
+                        (or (not keep-other)
+                            (eq (plist-get (nth 2 suf) :command)
+                                (plist-get (nth 2 conflict) :command)))
+                        (equal (transient--suffix-predicate suf)
+                               (transient--suffix-predicate conflict)))))
+        (transient-remove-suffix prefix key))
+      (pcase-exhaustive action
+        ('insert  (setcdr mem (cons elt (cdr mem)))
+                  (setcar mem suf))
+        ('append  (setcdr mem (cons suf (cdr mem))))
+        ('replace (setcar mem suf)))))))
+
+;;;###autoload
+(defun transient-insert-suffix (prefix loc suffix &optional keep-other)
+  "Insert a SUFFIX into PREFIX before LOC.
+PREFIX is a prefix command, a symbol.
+SUFFIX is a suffix command or a group specification (of
+  the same forms as expected by `transient-define-prefix').
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+Remove a conflicting binding unless optional KEEP-OTHER is
+  non-nil.
+See info node `(transient)Modifying Existing Transients'."
+  (declare (indent defun))
+  (transient--insert-suffix prefix loc suffix 'insert keep-other))
+
+;;;###autoload
+(defun transient-append-suffix (prefix loc suffix &optional keep-other)
+  "Insert a SUFFIX into PREFIX after LOC.
+PREFIX is a prefix command, a symbol.
+SUFFIX is a suffix command or a group specification (of
+  the same forms as expected by `transient-define-prefix').
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+Remove a conflicting binding unless optional KEEP-OTHER is
+  non-nil.
+See info node `(transient)Modifying Existing Transients'."
+  (declare (indent defun))
+  (transient--insert-suffix prefix loc suffix 'append keep-other))
+
+;;;###autoload
+(defun transient-replace-suffix (prefix loc suffix)
+  "Replace the suffix at LOC in PREFIX with SUFFIX.
+PREFIX is a prefix command, a symbol.
+SUFFIX is a suffix command or a group specification (of
+  the same forms as expected by `transient-define-prefix').
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+See info node `(transient)Modifying Existing Transients'."
+  (declare (indent defun))
+  (transient--insert-suffix prefix loc suffix 'replace))
+
+;;;###autoload
+(defun transient-remove-suffix (prefix loc)
+  "Remove the suffix or group at LOC in PREFIX.
+PREFIX is a prefix command, a symbol.
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+See info node `(transient)Modifying Existing Transients'."
+  (declare (indent defun))
+  (transient--layout-member loc prefix 'remove))
+
+(defun transient-get-suffix (prefix loc)
+  "Return the suffix or group at LOC in PREFIX.
+PREFIX is a prefix command, a symbol.
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+See info node `(transient)Modifying Existing Transients'."
+  (if-let ((mem (transient--layout-member loc prefix)))
+      (car mem)
+    (error "%s not found in %s" loc prefix)))
+
+(defun transient-suffix-put (prefix loc prop value)
+  "Edit the suffix at LOC in PREFIX, setting PROP to VALUE.
+PREFIX is a prefix command, a symbol.
+SUFFIX is a suffix command or a group specification (of
+  the same forms as expected by `transient-define-prefix').
+LOC is a command, a key vector, a key description (a string
+  as returned by `key-description'), or a coordination list
+  (whose last element may also be a command or key).
+See info node `(transient)Modifying Existing Transients'."
+  (let ((suf (transient-get-suffix prefix loc)))
+    (setf (elt suf 2)
+          (plist-put (elt suf 2) prop value))))
+
+(defun transient--layout-member (loc prefix &optional remove)
+  (let ((val (or (get prefix 'transient--layout)
+                 (error "%s is not a transient command" prefix))))
+    (when (listp loc)
+      (while (integerp (car loc))
+        (let* ((children (if (vectorp val) (aref val 3) val))
+               (mem (transient--nthcdr (pop loc) children)))
+          (if (and remove (not loc))
+              (let ((rest (delq (car mem) children)))
+                (if (vectorp val)
+                    (aset val 3 rest)
+                  (put prefix 'transient--layout rest))
+                (setq val nil))
+            (setq val (if loc (car mem) mem)))))
+      (setq loc (car loc)))
+    (if loc
+        (transient--layout-member-1 (transient--kbd loc) val remove)
+      val)))
+
+(defun transient--layout-member-1 (loc layout remove)
+  (cond ((listp layout)
+         (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove))
+                   layout))
+        ((vectorp (car (aref layout 3)))
+         (seq-some (lambda (elt) (transient--layout-member-1 loc elt remove))
+                   (aref layout 3)))
+        (remove
+         (aset layout 3
+               (delq (car (transient--group-member loc layout))
+                     (aref layout 3)))
+         nil)
+        ((transient--group-member loc layout))))
+
+(defun transient--group-member (loc group)
+  (cl-member-if (lambda (suffix)
+                  (and (listp suffix)
+                       (let* ((def (nth 2 suffix))
+                              (cmd (plist-get def :command)))
+                         (if (symbolp loc)
+                             (eq cmd loc)
+                           (equal (transient--kbd
+                                   (or (plist-get def :key)
+                                       (transient--command-key cmd)))
+                                  loc)))))
+                (aref group 3)))
+
+(defun transient--kbd (keys)
+  (when (vectorp keys)
+    (setq keys (key-description keys)))
+  (when (stringp keys)
+    (setq keys (kbd keys)))
+  keys)
+
+(defun transient--spec-key (spec)
+  (let ((plist (nth 2 spec)))
+    (or (plist-get plist :key)
+        (transient--command-key
+         (plist-get plist :command)))))
+
+(defun transient--command-key (cmd)
+  (and-let* ((obj (transient--suffix-prototype cmd)))
+    (cond ((slot-boundp obj 'key)
+           (oref obj key))
+          ((slot-exists-p obj 'shortarg)
+           (if (slot-boundp obj 'shortarg)
+               (oref obj shortarg)
+             (transient--derive-shortarg (oref obj argument)))))))
+
+(defun transient--nthcdr (n list)
+  (nthcdr (if (< n 0) (- (length list) (abs n)) n) list))
+
+;;; Variables
+
+(defvar transient-current-prefix nil
+  "The transient from which this suffix command was invoked.
+This is an object representing that transient, use
+`transient-current-command' to get the respective command.")
+
+(defvar transient-current-command nil
+  "The transient from which this suffix command was invoked.
+This is a symbol representing that transient, use
+`transient-current-prefix' to get the respective object.")
+
+(defvar transient-current-suffixes nil
+  "The suffixes of the transient from which this suffix command was invoked.
+This is a list of objects.  Usually it is sufficient to instead
+use the function `transient-args', which returns a list of
+values.  In complex cases it might be necessary to use this
+variable instead.")
+
+(defvar transient-exit-hook nil
+  "Hook run after exiting a transient.")
+
+(defvar transient-setup-buffer-hook nil
+  "Hook run when setting up the transient buffer.
+That buffer is current and empty when this hook runs.")
+
+(defvar transient--prefix nil)
+(defvar transient--layout nil)
+(defvar transient--suffixes nil)
+
+(defconst transient--stay t   "Do not exit the transient.")
+(defconst transient--exit nil "Do exit the transient.")
+
+(defvar transient--exitp nil "Whether to exit the transient.")
+(defvar transient--showp nil "Whether to show the transient popup buffer.")
+(defvar transient--helpp nil "Whether help-mode is active.")
+(defvar transient--editp nil "Whether edit-mode is active.")
+
+(defvar transient--refreshp nil
+  "Whether to refresh the transient completely.")
+
+(defvar transient--all-levels-p nil
+  "Whether temporary display of suffixes on all levels is active.")
+
+(defvar transient--timer nil)
+
+(defvar transient--stack nil)
+
+(defvar transient--minibuffer-depth 0)
+
+(defvar transient--buffer-name " *transient*"
+  "Name of the transient buffer.")
+
+(defvar transient--buffer nil
+  "The transient menu buffer.")
+
+(defvar transient--window nil
+  "The window used to display the transient popup buffer.")
+
+(defvar transient--original-window nil
+  "The window that was selected before the transient was invoked.
+Usually it remains selected while the transient is active.")
+
+(defvar transient--original-buffer nil
+  "The buffer that was current before the transient was invoked.
+Usually it remains current while the transient is active.")
+
+(defvar transient--restore-winconf nil
+  "Window configuration to restore after exiting help.")
+
+(defvar transient--shadowed-buffer nil
+  "The buffer that is temporarily shadowed by the transient buffer.
+This is bound while the suffix predicate is being evaluated and while
+drawing in the transient buffer.")
+
+(defvar transient--pending-suffix nil
+  "The suffix that is currently being processed.
+This is bound while the suffix predicate is being evaluated,
+and while functions that return faces are being evaluated.")
+
+(defvar transient--pending-group nil
+  "The group that is currently being processed.
+This is bound while the suffixes are drawn in the transient buffer.")
+
+(defvar transient--debug nil
+  "Whether to put debug information into *Messages*.")
+
+(defvar transient--history nil)
+
+(defvar transient--scroll-commands
+  '(transient-scroll-up
+    transient-scroll-down
+    mwheel-scroll
+    scroll-bar-toolkit-scroll))
+
+;;; Identities
+
+(defun transient-active-prefix (&optional prefixes)
+  "Return the active transient object.
+
+Return nil if there is no active transient, if the transient buffer
+isn't shown, and while the active transient is suspended (e.g., while
+the minibuffer is in use).
+
+Unlike `transient-current-prefix', which is only ever non-nil in code
+that is run directly by a command that is invoked while a transient
+is current, this function is also suitable for use in asynchronous
+code, such as timers and callbacks (this function's main use-case).
+
+If optional PREFIXES is non-nil, it must be a prefix command symbol
+or a list of symbols, in which case the active transient object is
+only returned if it matches one of PREFIXES."
+  (and transient--showp
+       transient--prefix
+       (or (not prefixes)
+           (memq (oref transient--prefix command) (ensure-list prefixes)))
+       (or (memq 'transient--pre-command pre-command-hook)
+           (and (memq t pre-command-hook)
+                (memq 'transient--pre-command
+                      (default-value 'pre-command-hook))))
+       transient--prefix))
+
+(defun transient-prefix-object ()
+  "Return the current prefix as an object.
+
+While a transient is being setup or refreshed (which involves
+preparing its suffixes) the variable `transient--prefix' can be
+used to access the prefix object.  Thus this is what has to be
+used in suffix methods such as `transient-format-description',
+and in object-specific functions that are stored in suffix slots
+such as `description'.
+
+When a suffix command is invoked (i.e., in its `interactive' form
+and function body) then the variable `transient-current-prefix'
+has to be used instead.
+
+Two distinct variables are needed, because any prefix may itself
+be used as a suffix of another prefix, and such sub-prefixes have
+to be able to tell themselves apart from the prefix they were
+invoked from.
+
+Regular suffix commands, which are not prefixes, do not have to
+concern themselves with this distinction, so they can use this
+function instead.  In the context of a plain suffix, it always
+returns the value of the appropriate variable."
+  (or transient--prefix transient-current-prefix))
+
+(defun transient-suffix-object (&optional command)
+  "Return the object associated with the current suffix command.
+
+Each suffix commands is associated with an object, which holds
+additional information about the suffix, such as its value (in
+the case of an infix command, which is a kind of suffix command).
+
+This function is intended to be called by infix commands, which
+are usually aliases of `transient--default-infix-command', which
+is defined like this:
+
+  (defun transient--default-infix-command ()
+    (interactive)
+    (let ((obj (transient-suffix-object)))
+      (transient-infix-set obj (transient-infix-read obj)))
+    (transient--show))
+
+\(User input is read outside of `interactive' to prevent the
+command from being added to `command-history'.  See #23.)
+
+Such commands need to be able to access their associated object
+to guide how `transient-infix-read' reads the new value and to
+store the read value.  Other suffix commands (including non-infix
+commands) may also need the object to guide their behavior.
+
+This function attempts to return the object associated with the
+current suffix command even if the suffix command was not invoked
+from a transient.  (For some suffix command that is a valid thing
+to do, for others it is not.)  In that case nil may be returned,
+if the command was not defined using one of the macros intended
+to define such commands.
+
+The optional argument COMMAND is intended for internal use.  If
+you are contemplating using it in your own code, then you should
+probably use this instead:
+
+  (get COMMAND \\='transient--suffix)"
+  (when command
+    (cl-check-type command command))
+  (cond
+   (transient--pending-suffix)
+   ((or transient--prefix
+        transient-current-prefix)
+    (let ((suffixes
+           (cl-remove-if-not
+            (lambda (obj)
+              (eq (oref obj command)
+                  (or command
+                      (if (eq this-command 'transient-set-level)
+                          ;; This is how it can look up for which
+                          ;; command it is setting the level.
+                          this-original-command
+                        this-command))))
+            (or transient--suffixes
+                transient-current-suffixes))))
+      (or (if (cdr suffixes)
+              (cl-find-if
+               (lambda (obj)
+                 (equal (listify-key-sequence (transient--kbd (oref obj key)))
+                        (listify-key-sequence (this-command-keys))))
+               suffixes)
+            (car suffixes))
+          ;; COMMAND is only provided if `this-command' is meaningless, in
+          ;; which case `this-command-keys' is also meaningless, making it
+          ;; impossible to disambiguate redundant bindings.
+          (if command
+              (car suffixes)
+            (error "BUG: Cannot determine suffix object")))))
+   ((and-let* ((obj (transient--suffix-prototype (or command this-command)))
+               (obj (clone obj)))
+      (progn
+        (transient-init-scope obj)
+        (transient-init-value obj)
+        obj)))))
+
+(defun transient--suffix-prototype (command)
+  (or (get command 'transient--suffix)
+      (seq-some (lambda (cmd) (get cmd 'transient--suffix))
+                (function-alias-p command))))
+
+;;; Keymaps
+
+(defvar-keymap transient-base-map
+  :doc "Parent of other keymaps used by Transient.
+
+This is the parent keymap of all the keymaps that are used in
+all transients: `transient-map' (which in turn is the parent
+of the transient-specific keymaps), `transient-edit-map' and
+`transient-sticky-map'.
+
+If you change a binding here, then you might also have to edit
+`transient-sticky-map' and `transient-common-commands'.  While
+the latter isn't a proper transient prefix command, it can be
+edited using the same functions as used for transients.
+
+If you add a new command here, then you must also add a binding
+to `transient-predicate-map'."
+  "ESC ESC ESC" #'transient-quit-all
+  "C-g"     #'transient-quit-one
+  "C-q"     #'transient-quit-all
+  "C-z"     #'transient-suspend
+  "C-v"     #'transient-scroll-up
+  "C-M-v"   #'transient-scroll-down
+  "<next>"  #'transient-scroll-up
+  "<prior>" #'transient-scroll-down)
+
+(defvar transient-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map transient-base-map)
+    (keymap-set map "C-u"   #'universal-argument)
+    (keymap-set map "C--"   #'negative-argument)
+    (keymap-set map "C-t"   #'transient-show)
+    (keymap-set map "?"     #'transient-help)
+    (keymap-set map "C-h"   #'transient-help)
+    ;; Also bound to "C-x p" and "C-x n" in transient-common-commands.
+    (keymap-set map "C-M-p" #'transient-history-prev)
+    (keymap-set map "C-M-n" #'transient-history-next)
+    (when (fboundp 'other-frame-prefix) ;Emacs >= 28.1
+      (keymap-set map "C-x 5 5" 'other-frame-prefix)
+      (keymap-set map "C-x 4 4" 'other-window-prefix))
+    map)
+  "Top-level keymap used by all transients.
+
+If you add a new command here, then you must also add a binding
+to `transient-predicate-map'.  See also `transient-base-map'.")
+
+(defvar-keymap transient-edit-map
+  :doc "Keymap that is active while a transient in is in \"edit mode\"."
+  :parent transient-base-map
+  "?"     #'transient-help
+  "C-h"   #'transient-help
+  "C-x l" #'transient-set-level)
+
+(defvar-keymap transient-sticky-map
+  :doc "Keymap that is active while an incomplete key sequence is active."
+  :parent transient-base-map
+  "C-g" #'transient-quit-seq)
+
+(defvar transient--common-command-prefixes '(?\C-x))
+
+(put 'transient-common-commands
+     'transient--layout
+     (list
+      (eval
+       (car (transient--parse-child
+             'transient-common-commands
+             (vector
+              :hide
+              (lambda ()
+                (and (not (memq
+                           (car (bound-and-true-p transient--redisplay-key))
+                           transient--common-command-prefixes))
+                     (not transient-show-common-commands)))
+              (vector
+               "Value commands"
+               (list "C-x s  " "Set"            #'transient-set)
+               (list "C-x C-s" "Save"           #'transient-save)
+               (list "C-x C-k" "Reset"          #'transient-reset)
+               (list "C-x p  " "Previous value" #'transient-history-prev)
+               (list "C-x n  " "Next value"     #'transient-history-next))
+              (vector
+               "Sticky commands"
+               ;; Like `transient-sticky-map' except that
+               ;; "C-g" has to be bound to a different command.
+               (list "C-g" "Quit prefix or transient" #'transient-quit-one)
+               (list "C-q" "Quit transient stack"     #'transient-quit-all)
+               (list "C-z" "Suspend transient stack"  #'transient-suspend))
+              (vector
+               "Customize"
+               (list "C-x t" 'transient-toggle-common :description
+                     (lambda ()
+                       (if transient-show-common-commands
+                           "Hide common commands"
+                         "Show common permanently")))
+               (list "C-x l" "Show/hide suffixes" #'transient-set-level)
+               (list "C-x a" #'transient-toggle-level-limit)))))
+       t)))
+
+(defvar-keymap transient-popup-navigation-map
+  :doc "One of the keymaps used when popup navigation is enabled.
+See `transient-enable-popup-navigation'."
+  "<down-mouse-1>" #'transient-noop
+  "<up>"   #'transient-backward-button
+  "<down>" #'transient-forward-button
+  "C-r"    #'transient-isearch-backward
+  "C-s"    #'transient-isearch-forward
+  "M-RET"  #'transient-push-button)
+
+(defvar-keymap transient-button-map
+  :doc "One of the keymaps used when popup navigation is enabled.
+See `transient-enable-popup-navigation'."
+  "<mouse-1>" #'transient-push-button
+  "<mouse-2>" #'transient-push-button)
+
+(defvar-keymap transient-resume-mode-map
+  :doc "Keymap for `transient-resume-mode'.
+
+This keymap remaps every command that would usually just quit the
+documentation buffer to `transient-resume', which additionally
+resumes the suspended transient."
+  "<remap> <Man-quit>"    #'transient-resume
+  "<remap> <Info-exit>"   #'transient-resume
+  "<remap> <quit-window>" #'transient-resume)
+
+(defvar-keymap transient-predicate-map
+  :doc "Base keymap used to map common commands to their transient behavior.
+
+The \"transient behavior\" of a command controls, among other
+things, whether invoking the command causes the transient to be
+exited or not, and whether infix arguments are exported before
+doing so.
+
+Each \"key\" is a command that is common to all transients and
+that is bound in `transient-map', `transient-edit-map',
+`transient-sticky-map' and/or `transient-common-command'.
+
+Each binding is a \"pre-command\", a function that controls the
+transient behavior of the respective command.
+
+For transient commands that are bound in individual transients,
+the transient behavior is specified using the `:transient' slot
+of the corresponding object."
+  "<transient-suspend>"           #'transient--do-suspend
+  "<transient-help>"              #'transient--do-stay
+  "<transient-set-level>"         #'transient--do-stay
+  "<transient-history-prev>"      #'transient--do-stay
+  "<transient-history-next>"      #'transient--do-stay
+  "<universal-argument>"          #'transient--do-stay
+  "<universal-argument-more>"     #'transient--do-stay
+  "<negative-argument>"           #'transient--do-minus
+  "<digit-argument>"              #'transient--do-stay
+  "<other-frame-prefix>"          #'transient--do-stay
+  "<other-window-prefix>"         #'transient--do-stay
+  "<top-level>"                   #'transient--do-quit-all
+  "<transient-quit-all>"          #'transient--do-quit-all
+  "<transient-quit-one>"          #'transient--do-quit-one
+  "<transient-quit-seq>"          #'transient--do-stay
+  "<transient-show>"              #'transient--do-stay
+  "<transient-update>"            #'transient--do-stay
+  "<transient-toggle-common>"     #'transient--do-stay
+  "<transient-set>"               #'transient--do-call
+  "<transient-set-and-exit>"      #'transient--do-exit
+  "<transient-save>"              #'transient--do-call
+  "<transient-save-and-exit>"     #'transient--do-exit
+  "<transient-reset>"             #'transient--do-call
+  "<describe-key-briefly>"        #'transient--do-stay
+  "<describe-key>"                #'transient--do-stay
+  "<transient-scroll-up>"         #'transient--do-stay
+  "<transient-scroll-down>"       #'transient--do-stay
+  "<mwheel-scroll>"               #'transient--do-stay
+  "<scroll-bar-toolkit-scroll>"   #'transient--do-stay
+  "<transient-noop>"              #'transient--do-noop
+  "<transient-mouse-push-button>" #'transient--do-move
+  "<transient-push-button>"       #'transient--do-push-button
+  "<transient-backward-button>"   #'transient--do-move
+  "<transient-forward-button>"    #'transient--do-move
+  "<transient-isearch-backward>"  #'transient--do-move
+  "<transient-isearch-forward>"   #'transient--do-move
+  ;; If a valid but incomplete prefix sequence is followed by
+  ;; an unbound key, then Emacs calls the `undefined' command
+  ;; but does not set `this-command', `this-original-command'
+  ;; or `real-this-command' accordingly.  Instead they are nil.
+  "<nil>"                         #'transient--do-warn
+  ;; Bound to the `mouse-movement' event, this command is similar
+  ;; to `ignore'.
+  "<ignore-preserving-kill-region>" #'transient--do-noop)
+
+(defvar transient--transient-map nil)
+(defvar transient--predicate-map nil)
+(defvar transient--redisplay-map nil)
+(defvar transient--redisplay-key nil)
+
+(defun transient--push-keymap (var)
+  (let ((map (symbol-value var)))
+    (transient--debug "     push %s%s" var (if map "" " VOID"))
+    (when map
+      (with-demoted-errors "transient--push-keymap: %S"
+        (internal-push-keymap map 'overriding-terminal-local-map)))))
+
+(defun transient--pop-keymap (var)
+  (let ((map (symbol-value var)))
+    (when map
+      (transient--debug "     pop  %s" var)
+      (with-demoted-errors "transient--pop-keymap: %S"
+        (internal-pop-keymap map 'overriding-terminal-local-map)))))
+
+(defun transient--make-transient-map ()
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map (if transient--editp
+                               transient-edit-map
+                             transient-map))
+    (dolist (obj transient--suffixes)
+      (let ((key (oref obj key)))
+        (when (vectorp key)
+          (setq key (key-description key))
+          (oset obj key key))
+        (when transient-substitute-key-function
+          (setq key (save-match-data
+                      (funcall transient-substitute-key-function obj)))
+          (oset obj key key))
+        (let* ((kbd (kbd key))
+               (cmd (oref obj command))
+               (alt (transient--lookup-key map kbd)))
+          (cond ((not alt)
+                 (define-key map kbd cmd))
+                ((eq alt cmd))
+                ((transient--inapt-suffix-p obj))
+                ((and-let* ((obj (transient-suffix-object alt)))
+                   (transient--inapt-suffix-p obj))
+                 (define-key map kbd cmd))
+                (transient-detect-key-conflicts
+                 (error "Cannot bind %S to %s and also %s"
+                        (string-trim key) cmd alt))
+                ((define-key map kbd cmd))))))
+    (when-let ((b (keymap-lookup map "-"))) (keymap-set map "<kp-subtract>" b))
+    (when-let ((b (keymap-lookup map "="))) (keymap-set map "<kp-equal>" b))
+    (when-let ((b (keymap-lookup map "+"))) (keymap-set map "<kp-add>" b))
+    (when transient-enable-popup-navigation
+      ;; `transient--make-redisplay-map' maps only over bindings that are
+      ;; directly in the base keymap, so that cannot be a composed keymap.
+      (set-keymap-parent
+       map (make-composed-keymap
+            (keymap-parent map)
+            transient-popup-navigation-map)))
+    map))
+
+(defun transient--make-predicate-map ()
+  (let* ((default (transient--resolve-pre-command
+                   (oref transient--prefix transient-suffix)))
+         (return (and transient--stack (eq default t)))
+         (map (make-sparse-keymap)))
+    (set-keymap-parent map transient-predicate-map)
+    (when (or (and (slot-boundp transient--prefix 'transient-switch-frame)
+                   (transient--resolve-pre-command
+                    (not (oref transient--prefix transient-switch-frame))))
+              (memq (transient--resolve-pre-command
+                     (oref transient--prefix transient-non-suffix))
+                    '(nil transient--do-warn transient--do-noop)))
+      (define-key map [handle-switch-frame] #'transient--do-suspend))
+    (dolist (obj transient--suffixes)
+      (let* ((cmd (oref obj command))
+             (kind (cond ((get cmd 'transient--prefix)    'prefix)
+                         ((cl-typep obj 'transient-infix) 'infix)
+                         (t                               'suffix))))
+        (cond
+         ((oref obj inapt)
+          (define-key map (vector cmd) #'transient--do-warn-inapt))
+         ((slot-boundp obj 'transient)
+          (define-key map (vector cmd)
+            (pcase (list kind
+                         (transient--resolve-pre-command (oref obj transient))
+                         return)
+              (`(prefix   t ,_) #'transient--do-recurse)
+              (`(prefix nil ,_) #'transient--do-stack)
+              (`(infix    t ,_) #'transient--do-stay)
+              (`(suffix   t ,_) #'transient--do-call)
+              ('(suffix nil  t) #'transient--do-return)
+              (`(,_     nil ,_) #'transient--do-exit)
+              (`(,_     ,do ,_) do))))
+         ((not (lookup-key transient-predicate-map (vector cmd)))
+          (define-key map (vector cmd)
+            (pcase (list kind default return)
+              (`(prefix ,(or 'transient--do-stay 'transient--do-call) ,_)
+               #'transient--do-recurse)
+              (`(prefix   t ,_) #'transient--do-recurse)
+              (`(prefix  ,_ ,_) #'transient--do-stack)
+              (`(infix   ,_ ,_) #'transient--do-stay)
+              (`(suffix   t ,_) #'transient--do-call)
+              ('(suffix nil  t) #'transient--do-return)
+              (`(suffix nil ,_) #'transient--do-exit)
+              (`(suffix ,do ,_) do)))))))
+    map))
+
+(defun transient--make-redisplay-map ()
+  (setq transient--redisplay-key
+        (pcase this-command
+          ('transient-update
+           (setq transient--showp t)
+           (let ((keys (listify-key-sequence (this-single-command-raw-keys))))
+             (setq unread-command-events (mapcar (lambda (key) (cons t key)) keys))
+             keys))
+          ('transient-quit-seq
+           (setq unread-command-events
+                 (butlast (listify-key-sequence
+                           (this-single-command-raw-keys))
+                          2))
+           (butlast transient--redisplay-key))
+          (_ nil)))
+  (let ((topmap (make-sparse-keymap))
+        (submap (make-sparse-keymap)))
+    (when transient--redisplay-key
+      (define-key topmap (vconcat transient--redisplay-key) submap)
+      (set-keymap-parent submap transient-sticky-map))
+    (map-keymap-internal
+     (lambda (key def)
+       (when (and (not (eq key ?\e))
+                  (listp def)
+                  (keymapp def))
+         (define-key topmap (vconcat transient--redisplay-key (list key))
+           #'transient-update)))
+     (if transient--redisplay-key
+         (let ((key (vconcat transient--redisplay-key)))
+           (or (lookup-key transient--transient-map key)
+               (and-let* ((regular (lookup-key local-function-key-map key)))
+                 (lookup-key transient--transient-map (vconcat regular)))))
+       transient--transient-map))
+    topmap))
+
+;;; Setup
+
+(defun transient-setup (&optional name layout edit &rest params)
+  "Setup the transient specified by NAME.
+
+This function is called by transient prefix commands to setup the
+transient.  In that case NAME is mandatory, LAYOUT and EDIT must
+be nil and PARAMS may be (but usually is not) used to set, e.g.,
+the \"scope\" of the transient (see `transient-define-prefix').
+
+This function is also called internally, in which case LAYOUT and
+EDIT may be non-nil."
+  (transient--debug 'setup)
+  (transient--with-emergency-exit :setup
+    (cond
+     ((not name)
+      ;; Switching between regular and edit mode.
+      (transient--pop-keymap 'transient--transient-map)
+      (transient--pop-keymap 'transient--redisplay-map)
+      (setq name (oref transient--prefix command))
+      (setq params (list :scope (oref transient--prefix scope))))
+     (transient--prefix
+      ;; Invoked as a ":transient-non-suffix 'transient--do-{stay,call}"
+      ;; of an outer prefix.  Unlike the usual `transient--do-stack',
+      ;; these predicates fail to clean up after the outer prefix.
+      (transient--pop-keymap 'transient--transient-map)
+      (transient--pop-keymap 'transient--redisplay-map))
+     ((not (or layout                      ; resuming parent/suspended prefix
+               transient-current-command)) ; entering child prefix
+      (transient--stack-zap))              ; replace suspended prefix, if any
+     (edit
+      ;; Returning from help to edit.
+      (setq transient--editp t)))
+    (transient--env-apply
+     (lambda ()
+       (transient--init-transient name layout params)
+       (transient--history-init transient--prefix)
+       (setq transient--original-window (selected-window))
+       (setq transient--original-buffer (current-buffer))
+       (setq transient--minibuffer-depth (minibuffer-depth))
+       (transient--redisplay))
+     (get name 'transient--prefix))
+    (transient--setup-transient)
+    (transient--suspend-which-key-mode)))
+
+(cl-defgeneric transient-setup-children (group children)
+  "Setup the CHILDREN of GROUP.
+If the value of the `setup-children' slot is non-nil, then call
+that function with CHILDREN as the only argument and return the
+value.  Otherwise return CHILDREN as is."
+  (if (slot-boundp group 'setup-children)
+      (funcall (oref group setup-children) children)
+    children))
+
+(defun transient--env-apply (fn &optional prefix)
+  (if-let ((env (oref (or prefix transient--prefix) environment)))
+      (funcall env fn)
+    (funcall fn)))
+
+(defun transient--init-transient (&optional name layout params)
+  (unless name
+    ;; Re-init.
+    (if (eq transient--refreshp 'updated-value)
+        ;; Preserve the prefix value this once, because the
+        ;; invoked suffix indicates that it has updated that.
+        (setq transient--refreshp (oref transient--prefix refresh-suffixes))
+      ;; Otherwise update the prefix value from suffix values.
+      (oset transient--prefix value (transient-get-value))))
+  (transient--init-objects name layout params)
+  (transient--init-keymaps))
+
+(defun transient--init-keymaps ()
+  (setq transient--predicate-map (transient--make-predicate-map))
+  (setq transient--transient-map (transient--make-transient-map))
+  (setq transient--redisplay-map (transient--make-redisplay-map)))
+
+(defun transient--init-objects (&optional name layout params)
+  (if name
+      (setq transient--prefix (transient--init-prefix name params))
+    (setq name (oref transient--prefix command)))
+  (setq transient--refreshp (oref transient--prefix refresh-suffixes))
+  (setq transient--layout (or (and (not transient--refreshp) layout)
+                              (transient--init-suffixes name)))
+  (setq transient--suffixes (transient--flatten-suffixes transient--layout)))
+
+(defun transient--init-prefix (name &optional params)
+  (let ((obj (let ((proto (get name 'transient--prefix)))
+               (apply #'clone proto
+                      :prototype proto
+                      :level (or (alist-get t (alist-get name transient-levels))
+                                 transient-default-level)
+                      params))))
+    (transient--setup-recursion obj)
+    (transient-init-scope obj)
+    (transient-init-value obj)
+    obj))
+
+(defun transient--init-suffixes (name)
+  (let ((levels (alist-get name transient-levels)))
+    (mapcan (lambda (c) (transient--init-child levels c nil))
+            (append (get name 'transient--layout)
+                    (and (not transient--editp)
+                         (get 'transient-common-commands
+                              'transient--layout))))))
+
+(defun transient--flatten-suffixes (layout)
+  (cl-labels ((s (def)
+                (cond
+                 ((stringp def) nil)
+                 ((cl-typep def 'transient-information) nil)
+                 ((listp def) (mapcan #'s def))
+                 ((cl-typep def 'transient-group)
+                  (mapcan #'s (oref def suffixes)))
+                 ((cl-typep def 'transient-suffix)
+                  (list def)))))
+    (mapcan #'s layout)))
+
+(defun transient--init-child (levels spec parent)
+  (cl-etypecase spec
+    (vector  (transient--init-group  levels spec parent))
+    (list    (transient--init-suffix levels spec parent))
+    (string  (list spec))))
+
+(defun transient--init-group (levels spec parent)
+  (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
+    (and-let* (((transient--use-level-p level))
+               (obj (apply class :level level args))
+               ((transient--use-suffix-p obj))
+               ((prog1 t
+                  (when (or (and parent (oref parent inapt))
+                            (transient--inapt-suffix-p obj))
+                    (oset obj inapt t))))
+               (suffixes (mapcan (lambda (c) (transient--init-child levels c obj))
+                                 (transient-setup-children obj children))))
+      (progn
+        (oset obj suffixes suffixes)
+        (list obj)))))
+
+(defun transient--init-suffix (levels spec parent)
+  (pcase-let* ((`(,level ,class ,args) spec)
+               (cmd (plist-get args :command))
+               (key (transient--kbd (plist-get args :key)))
+               (level (or (alist-get (cons cmd key) levels nil nil #'equal)
+                          (alist-get cmd levels)
+                          level)))
+    (let ((fn (and (symbolp cmd)
+                   (symbol-function cmd))))
+      (when (autoloadp fn)
+        (transient--debug "   autoload %s" cmd)
+        (autoload-do-load fn)))
+    (when (transient--use-level-p level)
+      (let ((obj (if (child-of-class-p class 'transient-information)
+                     (apply class :level level args)
+                   (unless (and cmd (symbolp cmd))
+                     (error "BUG: Non-symbolic suffix command: %s" cmd))
+                   (if-let ((proto (and cmd (transient--suffix-prototype cmd))))
+                       (apply #'clone proto :level level args)
+                     (apply class :command cmd :level level args)))))
+        (cond ((not cmd))
+              ((commandp cmd))
+              ((or (cl-typep obj 'transient-switch)
+                   (cl-typep obj 'transient-option))
+               ;; As a temporary special case, if the package was compiled
+               ;; with an older version of Transient, then we must define
+               ;; "anonymous" switch and option commands here.
+               (defalias cmd #'transient--default-infix-command))
+              ((transient--use-suffix-p obj)
+               (error "Suffix command %s is not defined or autoloaded" cmd)))
+        (unless (cl-typep obj 'transient-information)
+          (transient--init-suffix-key obj))
+        (when (transient--use-suffix-p obj)
+          (if (or (and parent (oref parent inapt))
+                  (transient--inapt-suffix-p obj))
+              (oset obj inapt t)
+            (transient-init-scope obj)
+            (transient-init-value obj))
+          (list obj))))))
+
+(cl-defmethod transient--init-suffix-key ((obj transient-suffix))
+  (unless (slot-boundp obj 'key)
+    (error "No key for %s" (oref obj command))))
+
+(cl-defmethod transient--init-suffix-key ((obj transient-argument))
+  (if (transient-switches--eieio-childp obj)
+      (cl-call-next-method obj)
+    (when-let* (((not (slot-boundp obj 'shortarg)))
+                (shortarg (transient--derive-shortarg (oref obj argument))))
+      (oset obj shortarg shortarg))
+    (unless (slot-boundp obj 'key)
+      (if (slot-boundp obj 'shortarg)
+          (oset obj key (oref obj shortarg))
+        (error "No key for %s" (oref obj command))))))
+
+(defun transient--use-level-p (level &optional edit)
+  (or transient--all-levels-p
+      (and transient--editp (not edit))
+      (and (>= level 1)
+           (<= level (oref transient--prefix level)))))
+
+(defun transient--use-suffix-p (obj)
+  (let ((transient--shadowed-buffer (current-buffer))
+        (transient--pending-suffix obj))
+    (transient--do-suffix-p
+     (oref obj if)
+     (oref obj if-not)
+     (oref obj if-nil)
+     (oref obj if-non-nil)
+     (oref obj if-mode)
+     (oref obj if-not-mode)
+     (oref obj if-derived)
+     (oref obj if-not-derived)
+     t)))
+
+(defun transient--inapt-suffix-p (obj)
+  (let ((transient--shadowed-buffer (current-buffer))
+        (transient--pending-suffix obj))
+    (transient--do-suffix-p
+     (oref obj inapt-if)
+     (oref obj inapt-if-not)
+     (oref obj inapt-if-nil)
+     (oref obj inapt-if-non-nil)
+     (oref obj inapt-if-mode)
+     (oref obj inapt-if-not-mode)
+     (oref obj inapt-if-derived)
+     (oref obj inapt-if-not-derived)
+     nil)))
+
+(defun transient--do-suffix-p
+    (if if-not if-nil if-non-nil if-mode if-not-mode if-derived if-not-derived
+        default)
+  (cond
+   (if                  (funcall if))
+   (if-not         (not (funcall if-not)))
+   (if-non-nil          (symbol-value if-non-nil))
+   (if-nil         (not (symbol-value if-nil)))
+   (if-mode             (if (atom if-mode)
+                            (eq major-mode if-mode)
+                          (memq major-mode if-mode)))
+   (if-not-mode    (not (if (atom if-not-mode)
+                            (eq major-mode if-not-mode)
+                          (memq major-mode if-not-mode))))
+   (if-derived          (if (or (atom if-derived)
+                                (>= emacs-major-version 30))
+                            (derived-mode-p if-derived)
+                          (apply #'derived-mode-p if-derived)))
+   (if-not-derived (not (if (or (atom if-not-derived)
+                                (>= emacs-major-version 30))
+                            (derived-mode-p if-not-derived)
+                          (apply #'derived-mode-p if-not-derived))))
+   (default)))
+
+(defun transient--suffix-predicate (spec)
+  (let ((plist (nth 2 spec)))
+    (seq-some (lambda (prop)
+                (and-let* ((pred (plist-get plist prop)))
+                  (list prop pred)))
+              '( :if :if-not
+                 :if-nil :if-non-nil
+                 :if-mode :if-not-mode
+                 :if-derived :if-not-derived
+                 :inapt-if :inapt-if-not
+                 :inapt-if-nil :inapt-if-non-nil
+                 :inapt-if-mode :inapt-if-not-mode
+                 :inapt-if-derived :inapt-if-not-derived))))
+
+;;; Flow-Control
+
+(defun transient--setup-transient ()
+  (transient--debug 'setup-transient)
+  (transient--push-keymap 'transient--transient-map)
+  (transient--push-keymap 'transient--redisplay-map)
+  (add-hook 'pre-command-hook  #'transient--pre-command)
+  (add-hook 'post-command-hook #'transient--post-command)
+  (advice-add 'recursive-edit :around #'transient--recursive-edit)
+  (when transient--exitp
+    ;; This prefix command was invoked as the suffix of another.
+    ;; Prevent `transient--post-command' from removing the hooks
+    ;; that we just added.
+    (setq transient--exitp 'replace)))
+
+(defun transient--refresh-transient ()
+  (transient--debug 'refresh-transient)
+  (transient--pop-keymap 'transient--predicate-map)
+  (transient--pop-keymap 'transient--transient-map)
+  (transient--pop-keymap 'transient--redisplay-map)
+  (transient--init-transient)
+  (transient--push-keymap 'transient--transient-map)
+  (transient--push-keymap 'transient--redisplay-map)
+  (transient--redisplay))
+
+(defun transient--pre-command ()
+  (transient--debug 'pre-command)
+  (transient--with-emergency-exit :pre-command
+    ;; The use of `overriding-terminal-local-map' does not prevent the
+    ;; lookup of command remappings in the overridden maps, which can
+    ;; lead to a suffix being remapped to a non-suffix.  We have to undo
+    ;; the remapping in that case.  However, remapping a non-suffix to
+    ;; another should remain possible.
+    (when (and (transient--get-pre-command this-original-command 'suffix)
+               (not (transient--get-pre-command this-command 'suffix)))
+      (setq this-command this-original-command))
+    (cond
+     ((memq this-command '(transient-update transient-quit-seq))
+      (transient--pop-keymap 'transient--redisplay-map))
+     ((and transient--helpp
+           (not (memq this-command '(transient-quit-one
+                                     transient-quit-all))))
+      (cond
+       ((transient-help)
+        (transient--do-suspend)
+        (setq this-command 'transient-suspend)
+        (transient--pre-exit))
+       ((not (transient--edebug-command-p))
+        (setq this-command 'transient-undefined))))
+     ((and transient--editp
+           (transient-suffix-object)
+           (not (memq this-command '(transient-quit-one
+                                     transient-quit-all
+                                     transient-help))))
+      (setq this-command 'transient-set-level)
+      (transient--wrap-command))
+     (t
+      (setq transient--exitp nil)
+      (let ((exitp (eq (transient--call-pre-command) transient--exit)))
+        (transient--wrap-command)
+        (when exitp
+          (transient--pre-exit)))))))
+
+(defun transient--pre-exit ()
+  (transient--debug 'pre-exit)
+  (transient--delete-window)
+  (transient--timer-cancel)
+  (transient--pop-keymap 'transient--transient-map)
+  (transient--pop-keymap 'transient--redisplay-map)
+  (unless transient--showp
+    (let ((message-log-max nil))
+      (message "")))
+  (setq transient--transient-map nil)
+  (setq transient--predicate-map nil)
+  (setq transient--redisplay-map nil)
+  (setq transient--redisplay-key nil)
+  (setq transient--helpp nil)
+  (setq transient--editp nil)
+  (setq transient--prefix nil)
+  (setq transient--layout nil)
+  (setq transient--suffixes nil)
+  (setq transient--original-window nil)
+  (setq transient--original-buffer nil)
+  (setq transient--window nil))
+
+(defun transient--delete-window ()
+  (when (window-live-p transient--window)
+    (let ((win transient--window)
+          (remain-in-minibuffer-window
+           (and (minibuffer-selected-window)
+                (selected-window))))
+      (cond
+       ((eq (car (window-parameter win 'quit-restore)) 'other)
+        ;; Window used to display another buffer.
+        (set-window-parameter win 'no-other-window
+                              (window-parameter win 'prev--no-other-window))
+        (set-window-parameter win 'prev--no-other-window nil))
+       ((with-demoted-errors "Error while exiting transient: %S"
+          (delete-window win))))
+      (when (buffer-live-p transient--buffer)
+        (kill-buffer transient--buffer))
+      (setq transient--buffer nil)
+      (when remain-in-minibuffer-window
+        (select-window remain-in-minibuffer-window)))))
+
+(defun transient--export ()
+  (setq transient-current-prefix transient--prefix)
+  (setq transient-current-command (oref transient--prefix command))
+  (setq transient-current-suffixes transient--suffixes)
+  (transient--history-push transient--prefix))
+
+(defun transient--suspend-override (&optional nohide)
+  (transient--debug 'suspend-override)
+  (transient--timer-cancel)
+  (cond ((and (not nohide) transient-hide-during-minibuffer-read)
+         (transient--delete-window))
+        ((and transient--prefix transient--redisplay-key)
+         (setq transient--redisplay-key nil)
+         (when transient--showp
+           (if-let ((win (minibuffer-selected-window)))
+               (with-selected-window win
+                 (transient--show))
+             (transient--show)))))
+  (transient--pop-keymap 'transient--transient-map)
+  (transient--pop-keymap 'transient--redisplay-map)
+  (remove-hook 'pre-command-hook  #'transient--pre-command)
+  (remove-hook 'post-command-hook #'transient--post-command))
+
+(defun transient--resume-override (&optional _ignore)
+  (transient--debug 'resume-override)
+  (when (and transient--showp transient-hide-during-minibuffer-read)
+    (transient--show))
+  (transient--push-keymap 'transient--transient-map)
+  (transient--push-keymap 'transient--redisplay-map)
+  (add-hook 'pre-command-hook  #'transient--pre-command)
+  (add-hook 'post-command-hook #'transient--post-command))
+
+(defun transient--recursive-edit (fn)
+  (transient--debug 'recursive-edit)
+  (if (not transient--prefix)
+      (funcall fn)
+    (transient--suspend-override (bound-and-true-p edebug-active))
+    (funcall fn) ; Already unwind protected.
+    (cond ((memq this-command '(top-level abort-recursive-edit))
+           (setq transient--exitp t)
+           (transient--post-exit this-command)
+           (transient--delete-window))
+          (transient--prefix
+           (transient--resume-override)))))
+
+(defmacro transient--with-suspended-override (&rest body)
+  (let ((depth (make-symbol "depth"))
+        (setup (make-symbol "setup"))
+        (exit  (make-symbol "exit")))
+    `(if (and transient--transient-map
+              (memq transient--transient-map
+                    overriding-terminal-local-map))
+         (let ((,depth (1+ (minibuffer-depth))) ,setup ,exit)
+           (setq ,setup
+                 (lambda () "@transient--with-suspended-override"
+                   (transient--debug 'minibuffer-setup)
+                   (remove-hook 'minibuffer-setup-hook ,setup)
+                   (transient--suspend-override)))
+           (setq ,exit
+                 (lambda () "@transient--with-suspended-override"
+                   (transient--debug 'minibuffer-exit)
+                   (when (= (minibuffer-depth) ,depth)
+                     (transient--resume-override))))
+           (unwind-protect
+               (progn
+                 (add-hook 'minibuffer-setup-hook ,setup)
+                 (add-hook 'minibuffer-exit-hook ,exit)
+                 ,@body)
+             (remove-hook 'minibuffer-setup-hook ,setup)
+             (remove-hook 'minibuffer-exit-hook ,exit)))
+       ,@body)))
+
+(defun transient--wrap-command ()
+  (static-if (>= emacs-major-version 30)
+      (letrec
+          ((prefix transient--prefix)
+           (suffix this-command)
+           (advice
+            (lambda (fn &rest args)
+              (interactive
+               (lambda (spec)
+                 (let ((abort t))
+                   (unwind-protect
+                       (prog1 (let ((debugger #'transient--exit-and-debug))
+                                (advice-eval-interactive-spec spec))
+                         (setq abort nil))
+                     (when abort
+                       (when-let ((unwind (oref prefix unwind-suffix)))
+                         (transient--debug 'unwind-interactive)
+                         (funcall unwind suffix))
+                       (advice-remove suffix advice)
+                       (oset prefix unwind-suffix nil))))))
+              (unwind-protect
+                  (let ((debugger #'transient--exit-and-debug))
+                    (apply fn args))
+                (when-let ((unwind (oref prefix unwind-suffix)))
+                  (transient--debug 'unwind-command)
+                  (funcall unwind suffix))
+                (advice-remove suffix advice)
+                (oset prefix unwind-suffix nil)))))
+        (when (symbolp this-command)
+          (advice-add suffix :around advice '((depth . -99))))
+        (cl-assert
+         (>= emacs-major-version 30) nil
+         "Emacs was downgraded, making it necessary to recompile Transient"))
+    ;; (< emacs-major-version 30)
+    (let* ((prefix transient--prefix)
+           (suffix this-command)
+           (advice nil)
+           (advice-interactive
+            (lambda (spec)
+              (let ((abort t))
+                (unwind-protect
+                    (prog1 (let ((debugger #'transient--exit-and-debug))
+                             (advice-eval-interactive-spec spec))
+                      (setq abort nil))
+                  (when abort
+                    (when-let ((unwind (oref prefix unwind-suffix)))
+                      (transient--debug 'unwind-interactive)
+                      (funcall unwind suffix))
+                    (advice-remove suffix advice)
+                    (oset prefix unwind-suffix nil))))))
+           (advice-body
+            (lambda (fn &rest args)
+              (unwind-protect
+                  (let ((debugger #'transient--exit-and-debug))
+                    (apply fn args))
+                (when-let ((unwind (oref prefix unwind-suffix)))
+                  (transient--debug 'unwind-command)
+                  (funcall unwind suffix))
+                (advice-remove suffix advice)
+                (oset prefix unwind-suffix nil)))))
+      (setq advice `(lambda (fn &rest args)
+                      (interactive ,advice-interactive)
+                      (apply ',advice-body fn args)))
+      (when (symbolp this-command)
+        (advice-add suffix :around advice '((depth . -99)))))))
+
+(defun transient--premature-post-command ()
+  (and (equal (this-command-keys-vector) [])
+       (= (minibuffer-depth)
+          (1+ transient--minibuffer-depth))
+       (progn
+         (transient--debug 'premature-post-command)
+         (transient--suspend-override)
+         (oset (or transient--prefix transient-current-prefix)
+               unwind-suffix
+               (if transient--exitp
+                   #'transient--post-exit
+                 #'transient--resume-override))
+         t)))
+
+(defun transient--post-command ()
+  (unless (transient--premature-post-command)
+    (transient--debug 'post-command)
+    (transient--with-emergency-exit :post-command
+      (cond (transient--exitp (transient--post-exit))
+            ;; If `this-command' is the current transient prefix, then we
+            ;; have already taken care of updating the transient buffer...
+            ((and (eq this-command (oref transient--prefix command))
+                  ;; ... but if `prefix-arg' is non-nil, then the values
+                  ;; of `this-command' and `real-this-command' are untrue
+                  ;; because `prefix-command-preserve-state' changes them.
+                  ;; We cannot use `current-prefix-arg' because it is set
+                  ;; too late (in `command-execute'), and if it were set
+                  ;; earlier, then we likely still would not be able to
+                  ;; rely on it, and `prefix-command-preserve-state-hook'
+                  ;; would have to be used to record that a universal
+                  ;; argument is in effect.
+                  (not prefix-arg)))
+            (transient--refreshp
+             (transient--env-apply #'transient--refresh-transient))
+            ((let ((old transient--redisplay-map)
+                   (new (transient--make-redisplay-map)))
+               (unless (equal old new)
+                 (transient--pop-keymap 'transient--redisplay-map)
+                 (setq transient--redisplay-map new)
+                 (transient--push-keymap 'transient--redisplay-map))
+               (transient--env-apply #'transient--redisplay)))))
+    (setq transient-current-prefix nil)
+    (setq transient-current-command nil)
+    (setq transient-current-suffixes nil)))
+
+(defun transient--post-exit (&optional command)
+  (transient--debug 'post-exit)
+  (unless (and (eq transient--exitp 'replace)
+               (or transient--prefix
+                   ;; The current command could act as a prefix,
+                   ;; but decided not to call `transient-setup',
+                   ;; or it is prevented from doing so because it
+                   ;; uses the minibuffer and the user aborted
+                   ;; that.
+                   (prog1 nil
+                     (if (let ((obj (transient-suffix-object command)))
+                           (and (slot-boundp obj 'transient)
+                                (oref obj transient)))
+                         ;; This sub-prefix is a transient suffix;
+                         ;; go back to outer prefix, by calling
+                         ;; `transient--stack-pop' further down.
+                         (setq transient--exitp nil)
+                       (transient--stack-zap)))))
+    (remove-hook 'pre-command-hook  #'transient--pre-command)
+    (remove-hook 'post-command-hook #'transient--post-command)
+    (advice-remove 'recursive-edit #'transient--recursive-edit))
+  (let ((resume (and transient--stack
+                     (not (memq transient--exitp '(replace suspend))))))
+    (unless (or resume (eq transient--exitp 'replace))
+      (setq transient--showp nil))
+    (setq transient--exitp nil)
+    (setq transient--helpp nil)
+    (setq transient--editp nil)
+    (setq transient--all-levels-p nil)
+    (setq transient--minibuffer-depth 0)
+    (run-hooks 'transient-exit-hook)
+    (when command
+      (setq transient-current-prefix nil)
+      (setq transient-current-command nil)
+      (setq transient-current-suffixes nil))
+    (when resume
+      (transient--stack-pop))))
+
+(defun transient--stack-push ()
+  (transient--debug 'stack-push)
+  (push (list (oref transient--prefix command)
+              transient--layout
+              transient--editp
+              :transient-suffix (oref transient--prefix transient-suffix)
+              :scope (oref transient--prefix scope))
+        transient--stack))
+
+(defun transient--stack-pop ()
+  (transient--debug 'stack-pop)
+  (and transient--stack
+       (prog1 t (apply #'transient-setup (pop transient--stack)))))
+
+(defun transient--stack-zap ()
+  (transient--debug 'stack-zap)
+  (setq transient--stack nil))
+
+(defun transient--redisplay ()
+  (if (or (eq transient-show-popup t)
+          transient--showp)
+      (unless
+          (or (memq this-command transient--scroll-commands)
+              (and (or (memq this-command '(mouse-drag-region
+                                            mouse-set-region))
+                       (equal (key-description (this-command-keys-vector))
+                              "<mouse-movement>"))
+                   (and (eq (current-buffer) transient--buffer))))
+        (transient--show))
+    (when (and (numberp transient-show-popup)
+               (not (zerop transient-show-popup))
+               (not transient--timer))
+      (transient--timer-start))
+    (transient--show-brief)))
+
+(defun transient--timer-start ()
+  (setq transient--timer
+        (run-at-time (abs transient-show-popup) nil
+                     (lambda ()
+                       (transient--timer-cancel)
+                       (transient--show)
+                       (let ((message-log-max nil))
+                         (message ""))))))
+
+(defun transient--timer-cancel ()
+  (when transient--timer
+    (cancel-timer transient--timer)
+    (setq transient--timer nil)))
+
+(defun transient--debug (arg &rest args)
+  (when transient--debug
+    (let ((inhibit-message (not (eq transient--debug 'message))))
+      (if (symbolp arg)
+          (message "-- %-22s (cmd: %s, event: %S, exit: %s%s)"
+                   arg
+                   (cond ((and (symbolp this-command) this-command))
+                         ((fboundp 'help-fns-function-name)
+                          (help-fns-function-name this-command))
+                         ((byte-code-function-p this-command)
+                          "#[...]")
+                         (this-command))
+                   (key-description (this-command-keys-vector))
+                   transient--exitp
+                   (cond ((keywordp (car args))
+                          (format ", from: %s"
+                                  (substring (symbol-name (car args)) 1)))
+                         ((stringp (car args))
+                          (concat ", " (apply #'format args)))
+                         ((functionp (car args))
+                          (concat ", " (apply (car args) (cdr args))))
+                         ("")))
+        (apply #'message arg args)))))
+
+(defun transient--emergency-exit (&optional id)
+  "Exit the current transient command after an error occurred.
+When no transient is active (i.e., when `transient--prefix' is
+nil) then do nothing.  Optional ID is a keyword identifying the
+exit."
+  (transient--debug 'emergency-exit id)
+  (when transient--prefix
+    (setq transient--stack nil)
+    (setq transient--exitp t)
+    (transient--pre-exit)
+    (transient--post-exit this-command)))
+
+;;; Pre-Commands
+
+(defun transient--call-pre-command ()
+  (if-let ((fn (transient--get-pre-command this-command)))
+      (let ((action (funcall fn)))
+        (when (eq action transient--exit)
+          (setq transient--exitp (or transient--exitp t)))
+        action)
+    (if (let ((keys (this-command-keys-vector)))
+          (eq (aref keys (1- (length keys))) ?\C-g))
+        (setq this-command 'transient-noop)
+      (unless (transient--edebug-command-p)
+        (setq this-command 'transient-undefined)))
+    transient--stay))
+
+(defun transient--get-pre-command (&optional cmd enforce-type)
+  (or (and (not (eq enforce-type 'non-suffix))
+           (symbolp cmd)
+           (lookup-key transient--predicate-map (vector cmd)))
+      (and (not (eq enforce-type 'suffix))
+           (transient--resolve-pre-command
+            (oref transient--prefix transient-non-suffix)
+            t))))
+
+(defun transient--resolve-pre-command (pre &optional resolve-boolean)
+  (cond ((booleanp pre)
+         (if resolve-boolean
+             (if pre #'transient--do-stay #'transient--do-warn)
+           pre))
+        ((string-match-p "--do-" (symbol-name pre)) pre)
+        ((let ((sym (intern (format "transient--do-%s" pre))))
+           (if (functionp sym) sym pre)))))
+
+(defun transient--do-stay ()
+  "Call the command without exporting variables and stay transient."
+  transient--stay)
+
+(defun transient--do-noop ()
+  "Call `transient-noop' and stay transient."
+  (setq this-command 'transient-noop)
+  transient--stay)
+
+(defun transient--do-warn ()
+  "Call `transient-undefined' and stay transient."
+  (setq this-command 'transient-undefined)
+  transient--stay)
+
+(defun transient--do-warn-inapt ()
+  "Call `transient-inapt' and stay transient."
+  (setq this-command 'transient-inapt)
+  transient--stay)
+
+(defun transient--do-call ()
+  "Call the command after exporting variables and stay transient."
+  (transient--export)
+  transient--stay)
+
+(defun transient--do-return ()
+  "Call the command after exporting variables and return to parent prefix.
+If there is no parent prefix, then behave like `transient--do-exit'."
+  (if (not transient--stack)
+      (transient--do-exit)
+    (transient--export)
+    transient--exit))
+
+(defun transient--do-exit ()
+  "Call the command after exporting variables and exit the transient."
+  (transient--export)
+  (transient--stack-zap)
+  transient--exit)
+
+(defun transient--do-leave ()
+  "Call the command without exporting variables and exit the transient."
+  (transient--stack-zap)
+  transient--exit)
+
+(defun transient--do-push-button ()
+  "Call the command represented by the activated button.
+Use that command's pre-command to determine transient behavior."
+  (if (and (mouse-event-p last-command-event)
+           (not (eq (posn-window (event-start last-command-event))
+                    transient--window)))
+      transient--stay
+    (setq this-command
+          (with-selected-window transient--window
+            (get-text-property (if (mouse-event-p last-command-event)
+                                   (posn-point (event-start last-command-event))
+                                 (point))
+                               'command)))
+    (transient--call-pre-command)))
+
+(defun transient--do-recurse ()
+  "Call the transient prefix command, preparing for return to active transient.
+If there is no parent prefix, then just call the command."
+  (transient--do-stack))
+
+(defun transient--setup-recursion (prefix-obj)
+  (when transient--stack
+    (let ((command (oref prefix-obj command)))
+      (when-let ((suffix-obj (transient-suffix-object command)))
+        (when (memq (if (slot-boundp suffix-obj 'transient)
+                        (oref suffix-obj transient)
+                      (oref transient-current-prefix transient-suffix))
+                    (list t #'transient--do-recurse))
+          (oset prefix-obj transient-suffix t))))))
+
+(defun transient--do-stack ()
+  "Call the transient prefix command, stacking the active transient.
+Push the active transient to the transient stack."
+  (transient--export)
+  (transient--stack-push)
+  (setq transient--exitp 'replace)
+  transient--exit)
+
+(defun transient--do-replace ()
+  "Call the transient prefix command, replacing the active transient.
+Do not push the active transient to the transient stack."
+  (transient--export)
+  (setq transient--exitp 'replace)
+  transient--exit)
+
+(defun transient--do-suspend ()
+  "Suspend the active transient, saving the transient stack."
+  (transient--stack-push)
+  (setq transient--exitp 'suspend)
+  transient--exit)
+
+(defun transient--do-quit-one ()
+  "If active, quit help or edit mode, else exit the active transient."
+  (cond (transient--helpp
+         (setq transient--helpp nil)
+         transient--stay)
+        (transient--editp
+         (setq transient--editp nil)
+         (transient-setup)
+         transient--stay)
+        (prefix-arg
+         transient--stay)
+        (transient--exit)))
+
+(defun transient--do-quit-all ()
+  "Exit all transients without saving the transient stack."
+  (transient--stack-zap)
+  transient--exit)
+
+(defun transient--do-move ()
+  "Call the command if `transient-enable-popup-navigation' is non-nil.
+In that case behave like `transient--do-stay', otherwise similar
+to `transient--do-warn'."
+  (unless transient-enable-popup-navigation
+    (setq this-command 'transient-inhibit-move))
+  transient--stay)
+
+(defun transient--do-minus ()
+  "Call `negative-argument' or pivot to `transient-update'.
+If `negative-argument' is invoked using \"-\" then preserve the
+prefix argument and pivot to `transient-update'."
+  (when (equal (this-command-keys) "-")
+    (setq this-command 'transient-update))
+  transient--stay)
+
+(put 'transient--do-stay       'transient-face 'transient-key-stay)
+(put 'transient--do-noop       'transient-face 'transient-key-noop)
+(put 'transient--do-warn       'transient-face 'transient-key-noop)
+(put 'transient--do-warn-inapt 'transient-face 'transient-key-noop)
+(put 'transient--do-call       'transient-face 'transient-key-stay)
+(put 'transient--do-return     'transient-face 'transient-key-return)
+(put 'transient--do-exit       'transient-face 'transient-key-exit)
+(put 'transient--do-leave      'transient-face 'transient-key-exit)
+
+(put 'transient--do-recurse    'transient-face 'transient-key-stay)
+(put 'transient--do-stack      'transient-face 'transient-key-stay)
+(put 'transient--do-replace    'transient-face 'transient-key-exit)
+(put 'transient--do-suspend    'transient-face 'transient-key-exit)
+
+(put 'transient--do-quit-one   'transient-face 'transient-key-return)
+(put 'transient--do-quit-all   'transient-face 'transient-key-exit)
+(put 'transient--do-move       'transient-face 'transient-key-stay)
+(put 'transient--do-minus      'transient-face 'transient-key-stay)
+
+;;; Commands
+;;;; Noop
+
+(defun transient-noop ()
+  "Do nothing at all."
+  (interactive))
+
+(defun transient-undefined ()
+  "Warn the user that the pressed key is not bound to any suffix."
+  (interactive)
+  (transient--invalid "Unbound suffix"))
+
+(defun transient-inapt ()
+  "Warn the user that the invoked command is inapt."
+  (interactive)
+  (transient--invalid "Inapt command"))
+
+(defun transient--invalid (msg)
+  (ding)
+  (message "%s: `%s' (Use `%s' to abort, `%s' for help)%s"
+           msg
+           (propertize (key-description (this-single-command-keys))
+                       'face 'font-lock-warning-face)
+           (propertize "C-g" 'face 'transient-key)
+           (propertize "?"   'face 'transient-key)
+           ;; `this-command' is `transient-undefined' or `transient-inapt'.
+           ;; Show the command (`this-original-command') the user actually
+           ;; tried to invoke.
+           (if-let ((cmd (or (ignore-errors (symbol-name this-original-command))
+                             (ignore-errors (symbol-name this-command)))))
+               (format " [%s]" (propertize cmd 'face 'font-lock-warning-face))
+             ""))
+  (unless (and transient--transient-map
+               (memq transient--transient-map overriding-terminal-local-map))
+    (let ((transient--prefix (or transient--prefix 'sic)))
+      (transient--emergency-exit))
+    (view-lossage)
+    (other-window 1)
+    (display-warning 'transient "Inconsistent transient state detected.
+This should never happen.
+Please open an issue and post the shown command log." :error)))
+
+(defun transient-inhibit-move ()
+  "Warn the user that popup navigation is disabled."
+  (interactive)
+  (message "To enable use of `%s', please customize `%s'"
+           this-original-command
+           'transient-enable-popup-navigation))
+
+;;;; Core
+
+(defun transient-quit-all ()
+  "Exit all transients without saving the transient stack."
+  (interactive))
+
+(defun transient-quit-one ()
+  "Exit the current transients, returning to outer transient, if any."
+  (interactive))
+
+(defun transient-quit-seq ()
+  "Abort the current incomplete key sequence."
+  (interactive))
+
+(defun transient-update ()
+  "Redraw the transient's state in the popup buffer."
+  (interactive)
+  (setq prefix-arg current-prefix-arg))
+
+(defun transient-show ()
+  "Show the transient's state in the popup buffer."
+  (interactive)
+  (setq transient--showp t))
+
+(defun transient-push-button ()
+  "Invoke the suffix command represented by this button."
+  (interactive))
+
+;;;; Suspend
+
+(defun transient-suspend ()
+  "Suspend the current transient.
+It can later be resumed using `transient-resume', while no other
+transient is active."
+  (interactive))
+
+(define-minor-mode transient-resume-mode
+  "Auxiliary minor-mode used to resume a transient after viewing help.")
+
+(defun transient-resume ()
+  "Resume a previously suspended stack of transients."
+  (interactive)
+  (cond (transient--stack
+         (let ((winconf transient--restore-winconf))
+           (kill-local-variable 'transient--restore-winconf)
+           (when transient-resume-mode
+             (transient-resume-mode -1)
+             (quit-window))
+           (when winconf
+             (set-window-configuration winconf)))
+         (transient--stack-pop))
+        (transient-resume-mode
+         (kill-local-variable 'transient--restore-winconf)
+         (transient-resume-mode -1)
+         (quit-window))
+        (t
+         (message "No suspended transient command"))))
+
+;;;; Help
+
+(defun transient-help (&optional interactive)
+  "Show help for the active transient or one of its suffixes.\n\n(fn)"
+  (interactive (list t))
+  (if interactive
+      (setq transient--helpp t)
+    (with-demoted-errors "transient-help: %S"
+      (when (lookup-key transient--transient-map
+                        (this-single-command-raw-keys))
+        (setq transient--helpp nil)
+        (let ((winconf (current-window-configuration)))
+          (transient-show-help
+           (if (eq this-original-command 'transient-help)
+               transient--prefix
+             (or (transient-suffix-object)
+                 this-original-command)))
+          (setq-local transient--restore-winconf winconf))
+        (fit-window-to-buffer nil (frame-height) (window-height))
+        (transient-resume-mode)
+        (message (substitute-command-keys
+                  "Type \\`q' to resume transient command."))
+        t))))
+
+;;;; Level
+
+(defun transient-set-level (&optional command level)
+  "Set the level of the transient or one of its suffix commands."
+  (interactive
+   (let ((command this-original-command)
+         (prefix (oref transient--prefix command)))
+     (and (or (not (eq command 'transient-set-level))
+              (and transient--editp
+                   (setq command prefix)))
+          (list command
+                (let ((keys (this-single-command-raw-keys)))
+                  (and (lookup-key transient--transient-map keys)
+                       (progn
+                         (transient--show)
+                         (string-to-number
+                          (transient--read-number-N
+                           (format "Set level for `%s': " command)
+                           nil nil (not (eq command prefix)))))))))))
+  (cond
+   ((not command)
+    (setq transient--editp t)
+    (transient-setup))
+   (level
+    (let* ((prefix (oref transient--prefix command))
+           (alist (alist-get prefix transient-levels))
+           (akey command))
+      (cond ((eq command prefix)
+             (oset transient--prefix level level)
+             (setq akey t))
+            (t
+             (oset (transient-suffix-object command) level level)
+             (when (cdr (cl-remove-if-not (lambda (obj)
+                                            (eq (oref obj command) command))
+                                          transient--suffixes))
+               (setq akey (cons command (this-command-keys))))))
+      (setf (alist-get akey alist) level)
+      (setf (alist-get prefix transient-levels) alist))
+    (transient-save-levels)
+    (transient--show))
+   (t
+    (transient-undefined))))
+
+(transient-define-suffix transient-toggle-level-limit ()
+  "Toggle whether to temporarily displayed suffixes on all levels."
+  :description
+  (lambda ()
+    (cond
+     ((= transient-default-level transient--max-level)
+      "Always displaying all levels")
+     (transient--all-levels-p
+      (format "Hide suffix %s"
+              (propertize
+               (format "levels > %s" (oref (transient-prefix-object) level))
+               'face 'transient-higher-level)))
+     ("Show all suffix levels")))
+  :inapt-if (lambda () (= transient-default-level transient--max-level))
+  :transient t
+  (interactive)
+  (setq transient--all-levels-p (not transient--all-levels-p))
+  (setq transient--refreshp t))
+
+;;;; Value
+
+(defun transient-set ()
+  "Set active transient's value for this Emacs session."
+  (interactive)
+  (transient-set-value (transient-prefix-object)))
+
+(defalias 'transient-set-and-exit #'transient-set
+  "Set active transient's value for this Emacs session and exit.")
+
+(defun transient-save ()
+  "Save active transient's value for this and future Emacs sessions."
+  (interactive)
+  (transient-save-value (transient-prefix-object)))
+
+(defalias 'transient-save-and-exit #'transient-save
+  "Save active transient's value for this and future Emacs sessions and exit.")
+
+(defun transient-reset ()
+  "Clear the set and saved values of the active transient."
+  (interactive)
+  (transient-reset-value (transient-prefix-object)))
+
+(defun transient-history-next ()
+  "Switch to the next value used for the active transient."
+  (interactive)
+  (let* ((obj transient--prefix)
+         (pos (1- (oref obj history-pos)))
+         (hst (oref obj history)))
+    (if (< pos 0)
+        (user-error "End of history")
+      (oset obj history-pos pos)
+      (oset obj value (nth pos hst))
+      (mapc #'transient-init-value transient--suffixes))))
+
+(defun transient-history-prev ()
+  "Switch to the previous value used for the active transient."
+  (interactive)
+  (let* ((obj transient--prefix)
+         (pos (1+ (oref obj history-pos)))
+         (hst (oref obj history))
+         (len (length hst)))
+    (if (> pos (1- len))
+        (user-error "End of history")
+      (oset obj history-pos pos)
+      (oset obj value (nth pos hst))
+      (mapc #'transient-init-value transient--suffixes))))
+
+(transient-define-suffix transient-preset ()
+  "Put this preset into action."
+  :class transient-value-preset
+  (interactive)
+  (transient-prefix-set (oref (transient-suffix-object) set)))
+
+;;;; Auxiliary
+
+(defun transient-toggle-common ()
+  "Toggle whether common commands are permanently shown."
+  (interactive)
+  (setq transient-show-common-commands (not transient-show-common-commands)))
+
+(defun transient-toggle-debug ()
+  "Toggle debugging statements for transient commands."
+  (interactive)
+  (setq transient--debug (not transient--debug))
+  (message "Debugging transient %s"
+           (if transient--debug "enabled" "disabled")))
+
+(transient-define-suffix transient-echo-arguments (arguments)
+  "Show the transient's active ARGUMENTS in the echo area.
+Intended for use in prefixes used for demonstration purposes,
+such as when suggesting a new feature or reporting an issue."
+  :transient t
+  :description "Echo arguments"
+  :key "x"
+  (interactive (list (transient-args transient-current-command)))
+  (message "%s: %s"
+           (key-description (this-command-keys))
+           (mapconcat (lambda (arg)
+                        (propertize (if (string-match-p " " arg)
+                                        (format "%S" arg)
+                                      arg)
+                                    'face 'transient-argument))
+                      arguments " ")))
+
+;;; Value
+;;;; Init
+
+(cl-defgeneric transient-init-value (obj)
+  "Set the initial value of the prefix or suffix object OBJ.
+
+This function is called for all prefix and suffix commands.
+
+Third-party subclasses of `transient-infix' must implement a primary
+method.")
+
+(cl-defmethod transient-init-value :around ((obj transient-prefix))
+  "If bound, use the value returned by OBJ' `init-value' function.
+If the value of OBJ's `init-value' is non-nil, call that function to
+determine the value.  Otherwise call the primary method according to
+OBJ's class."
+  (if (slot-boundp obj 'init-value)
+      (funcall (oref obj init-value) obj)
+    (cl-call-next-method obj)))
+
+(cl-defmethod transient-init-value :around ((obj transient-infix))
+  "If bound, use the value returned by OBJ's `init-value' function.
+If the value of OBJ's `init-value' is non-nil, call that function to
+determine the value.  Otherwise call the primary method according to
+OBJ's class."
+  (if (slot-boundp obj 'init-value)
+      (funcall (oref obj init-value) obj)
+    (cl-call-next-method obj)))
+
+(cl-defmethod transient-init-value ((obj transient-prefix))
+  "Set OBJ's initial value to the set, saved or default value.
+Use `transient-default-value' to determine the default value."
+  (if (slot-boundp obj 'value)
+      ;; Already set because the live object is cloned from
+      ;; the prototype, were the set (if any) value is stored.
+      (oref obj value)
+    (oset obj value
+          (if-let ((saved (assq (oref obj command) transient-values)))
+              (cdr saved)
+            (transient-default-value obj)))))
+
+(cl-defmethod transient-init-value ((_   transient-suffix))
+  "Non-infix suffixes usually don't have a value, so this is a noop."
+  nil)
+
+(cl-defmethod transient-init-value ((obj transient-argument))
+  "Extract OBJ's value from the value of the prefix object."
+  (oset obj value
+        (let ((value (oref transient--prefix value))
+              (argument (and (slot-boundp obj 'argument)
+                             (oref obj argument)))
+              (multi-value (oref obj multi-value))
+              (case-fold-search nil)
+              (regexp (if (slot-exists-p obj 'argument-regexp)
+                          (oref obj argument-regexp)
+                        (format "\\`%s\\(.*\\)" (oref obj argument)))))
+          (if (memq multi-value '(t rest))
+              (cdr (assoc argument value))
+            (let ((match (lambda (v)
+                           (and (stringp v)
+                                (string-match regexp v)
+                                (match-string 1 v)))))
+              (if multi-value
+                  (delq nil (mapcar match value))
+                (cl-some match value)))))))
+
+(cl-defmethod transient-init-value ((obj transient-switch))
+  "Extract OBJ's value from the value of the prefix object."
+  (oset obj value
+        (car (member (oref obj argument)
+                     (oref transient--prefix value)))))
+
+;;;; Default
+
+(cl-defgeneric transient-default-value (_)
+  "Return the default value."
+  nil)
+
+(cl-defmethod transient-default-value ((obj transient-prefix))
+  "Return the default value as specified by the `default-value' slot.
+If the value of the `default-value' slot is a function, call it to
+determine the value.  If the slot's value isn't a function, return
+that.  If the slot is unbound, return nil."
+  (if-let ((default (and (slot-boundp obj 'default-value)
+                         (oref obj default-value))))
+      (if (functionp default)
+          (funcall default)
+        default)
+    nil))
+
+;;;; Read
+
+(cl-defgeneric transient-infix-read (obj)
+  "Determine the new value of the infix object OBJ.
+
+This function merely determines the value; `transient-infix-set'
+is used to actually store the new value in the object.
+
+For most infix classes this is done by reading a value from the
+user using the reader specified by the `reader' slot (using the
+method for `transient-infix', described below).
+
+For some infix classes the value is changed without reading
+anything in the minibuffer, i.e., the mere act of invoking the
+infix command determines what the new value should be, based
+on the previous value.")
+
+(cl-defmethod transient-infix-read :around ((obj transient-infix))
+  "Refresh the transient buffer and call the next method.
+
+Also wrap `cl-call-next-method' with two macros:
+- `transient--with-suspended-override' allows use of minibuffer.
+- `transient--with-emergency-exit' arranges for the transient to
+  be exited in case of an error."
+  (transient--show)
+  (transient--with-emergency-exit :infix-read
+    (transient--with-suspended-override
+     (cl-call-next-method obj))))
+
+(cl-defmethod transient-infix-read ((obj transient-infix))
+  "Read a value while taking care of history.
+
+This method is suitable for a wide variety of infix commands,
+including but not limited to inline arguments and variables.
+
+If you do not use this method for your own infix class, then
+you should likely replicate a lot of the behavior of this
+method.  If you fail to do so, then users might not appreciate
+the lack of history, for example.
+
+Only for very simple classes that toggle or cycle through a very
+limited number of possible values should you replace this with a
+simple method that does not handle history.  (E.g., for a command
+line switch the only possible values are \"use it\" and \"don't use
+it\", in which case it is pointless to preserve history.)"
+  (with-slots (value multi-value always-read allow-empty choices) obj
+    (if (and value
+             (not multi-value)
+             (not always-read)
+             transient--prefix)
+        (oset obj value nil)
+      (let* ((enable-recursive-minibuffers t)
+             (reader (oref obj reader))
+             (choices (if (functionp choices) (funcall choices) choices))
+             (prompt (transient-prompt obj))
+             (value (if multi-value (string-join value ",") value))
+             (history-key (or (oref obj history-key)
+                              (oref obj command)))
+             (transient--history (alist-get history-key transient-history))
+             (transient--history (if (or (null value)
+                                         (eq value (car transient--history)))
+                                     transient--history
+                                   (cons value transient--history)))
+             (initial-input (and transient-read-with-initial-input
+                                 (car transient--history)))
+             (history (if initial-input
+                          (cons 'transient--history 1)
+                        'transient--history))
+             (value
+              (cond
+               (reader (funcall reader prompt initial-input history))
+               (multi-value
+                (completing-read-multiple prompt choices nil nil
+                                          initial-input history))
+               (choices
+                (completing-read prompt choices nil t initial-input history))
+               ((read-string prompt initial-input history)))))
+        (cond ((and (equal value "") (not allow-empty))
+               (setq value nil))
+              ((and (equal value "\"\"") allow-empty)
+               (setq value "")))
+        (when value
+          (when (and (bound-and-true-p ivy-mode)
+                     (stringp (car transient--history)))
+            (set-text-properties 0 (length (car transient--history)) nil
+                                 (car transient--history)))
+          (setf (alist-get history-key transient-history)
+                (delete-dups transient--history)))
+        value))))
+
+(cl-defmethod transient-infix-read ((obj transient-switch))
+  "Toggle the switch on or off."
+  (if (oref obj value) nil (oref obj argument)))
+
+(cl-defmethod transient-infix-read ((obj transient-switches))
+  "Cycle through the mutually exclusive switches.
+The last value is \"don't use any of these switches\"."
+  (let ((choices (mapcar (apply-partially #'format (oref obj argument-format))
+                         (oref obj choices))))
+    (if-let ((value (oref obj value)))
+        (cadr (member value choices))
+      (car choices))))
+
+(cl-defmethod transient-infix-read ((command symbol))
+  "Elsewhere use the reader of the infix command COMMAND.
+Use this if you want to share an infix's history with a regular
+stand-alone command."
+  (if-let ((obj (transient--suffix-prototype command)))
+      (cl-letf (((symbol-function #'transient--show) #'ignore))
+        (transient-infix-read obj))
+    (error "Not a suffix command: `%s'" command)))
+
+;;;; Readers
+
+(defun transient-read-file (prompt _initial-input _history)
+  "Read a file."
+  (file-local-name (expand-file-name (read-file-name prompt))))
+
+(defun transient-read-existing-file (prompt _initial-input _history)
+  "Read an existing file."
+  (file-local-name (expand-file-name (read-file-name prompt nil nil t))))
+
+(defun transient-read-directory (prompt _initial-input _history)
+  "Read a directory."
+  (file-local-name (expand-file-name (read-directory-name prompt))))
+
+(defun transient-read-existing-directory (prompt _initial-input _history)
+  "Read an existing directory."
+  (file-local-name (expand-file-name (read-directory-name prompt nil nil t))))
+
+(defun transient-read-number-N0 (prompt initial-input history)
+  "Read a natural number (including zero) and return it as a string."
+  (transient--read-number-N prompt initial-input history t))
+
+(defun transient-read-number-N+ (prompt initial-input history)
+  "Read a natural number (excluding zero) and return it as a string."
+  (transient--read-number-N prompt initial-input history nil))
+
+(defun transient--read-number-N (prompt initial-input history include-zero)
+  (save-match-data
+    (cl-block nil
+      (while t
+        (let ((str (read-from-minibuffer prompt initial-input nil nil history)))
+          (when (or (string-equal str "")
+                    (string-match-p (if include-zero
+                                        "\\`\\(0\\|[1-9][0-9]*\\)\\'"
+                                      "\\`[1-9][0-9]*\\'")
+                                    str))
+            (cl-return str)))
+        (message "Please enter a natural number (%s zero)."
+                 (if include-zero "including" "excluding"))
+        (sit-for 1)))))
+
+(defun transient-read-date (prompt default-time _history)
+  "Read a date using `org-read-date' (which see)."
+  (require 'org)
+  (when (fboundp 'org-read-date)
+    (org-read-date 'with-time nil nil prompt default-time)))
+
+;;;; Prompt
+
+(cl-defgeneric transient-prompt (obj)
+  "Return the prompt to be used to read infix object OBJ's value.")
+
+(cl-defmethod transient-prompt ((obj transient-infix))
+  "Return the prompt to be used to read infix object OBJ's value.
+
+This implementation should be suitable for almost all infix
+commands.
+
+If the value of OBJ's `prompt' slot is non-nil, then it must be
+a string or a function.  If it is a string, then use that.  If
+it is a function, then call that with OBJ as the only argument.
+That function must return a string, which is then used as the
+prompt.
+
+Otherwise, if the value of either the `argument' or `variable'
+slot of OBJ is a string, then base the prompt on that (preferring
+the former), appending either \"=\" (if it appears to be a
+command-line option) or \": \".
+
+Finally fall through to using \"(BUG: no prompt): \" as the
+prompt."
+  (if-let ((prompt (oref obj prompt)))
+      (let ((prompt (if (functionp prompt)
+                        (funcall prompt obj)
+                      prompt)))
+        (if (stringp prompt)
+            prompt
+          "(BUG: no prompt): "))
+    (or (and-let* ((arg (and (slot-boundp obj 'argument) (oref obj argument))))
+          (if (and (stringp arg) (string-suffix-p "=" arg))
+              arg
+            (concat arg ": ")))
+        (and-let* ((var (and (slot-boundp obj 'variable) (oref obj variable))))
+          (and (stringp var)
+               (concat var ": ")))
+        "(BUG: no prompt): ")))
+
+;;;; Set
+
+(cl-defgeneric transient-infix-set (obj value)
+  "Set the value of infix object OBJ to VALUE.")
+
+(cl-defmethod transient-infix-set ((obj transient-infix) value)
+  "Set the value of infix object OBJ to VALUE."
+  (oset obj value value))
+
+(cl-defmethod transient-infix-set :after ((obj transient-argument) value)
+  "Unset incompatible infix arguments."
+  (when-let* ((value)
+              (val (transient-infix-value obj))
+              (arg (if (slot-boundp obj 'argument)
+                       (oref obj argument)
+                     (oref obj argument-format)))
+              (spec (oref transient--prefix incompatible))
+              (filter (lambda (x rule)
+                        (and (member x rule)
+                             (remove x rule))))
+              (incomp (nconc
+                       (mapcan (apply-partially filter arg) spec)
+                       (and (not (equal val arg))
+                            (mapcan (apply-partially filter val) spec)))))
+    (dolist (obj transient--suffixes)
+      (when-let* (((cl-typep obj 'transient-argument))
+                  (val (transient-infix-value obj))
+                  (arg (if (slot-boundp obj 'argument)
+                           (oref obj argument)
+                         (oref obj argument-format)))
+                  ((if (equal val arg)
+                       (member arg incomp)
+                     (or (member val incomp)
+                         (member arg incomp)))))
+        (transient-infix-set obj nil)))))
+
+(defun transient-prefix-set (value)
+  "Set the value of the active transient prefix to VALUE.
+Intended for use by transient suffix commands."
+  (oset transient--prefix value value)
+  (setq transient--refreshp 'updated-value))
+
+(cl-defgeneric transient-set-value (obj)
+  "Persist the value of the transient prefix OBJ.
+Only intended for use by `transient-set'.
+See also `transient-prefix-set'.")
+
+(cl-defmethod transient-set-value ((obj transient-prefix))
+  (oset (oref obj prototype) value (transient-get-value))
+  (transient--history-push obj))
+
+;;;; Save
+
+(cl-defgeneric transient-save-value (obj)
+  "Save the value of the transient prefix OBJ.")
+
+(cl-defmethod transient-save-value ((obj transient-prefix))
+  (let ((value (transient-get-value)))
+    (oset (oref obj prototype) value value)
+    (setf (alist-get (oref obj command) transient-values) value)
+    (transient-save-values))
+  (transient--history-push obj))
+
+;;;; Reset
+
+(cl-defgeneric transient-reset-value (obj)
+  "Clear the set and saved values of the transient prefix OBJ.")
+
+(cl-defmethod transient-reset-value ((obj transient-prefix))
+  (let ((value (transient-default-value obj)))
+    (oset obj value value)
+    (oset (oref obj prototype) value value)
+    (setf (alist-get (oref obj command) transient-values nil 'remove) nil)
+    (transient-save-values))
+  (transient--history-push obj)
+  (mapc #'transient-init-value transient--suffixes))
+
+;;;; Get
+
+(defun transient-args (prefix)
+  "Return the value of the transient prefix command PREFIX.
+
+If the current command was invoked from the transient prefix command
+PREFIX, then return the active infix arguments.  If the current command
+was not invoked from PREFIX, then return the set, saved or default value
+for PREFIX.
+
+PREFIX may also be a list of prefixes.  If no prefix is active, the
+fallback value of the first of these prefixes is used.
+
+The generic function `transient-prefix-value' is used to determine the
+returned value."
+  (when (listp prefix)
+    (setq prefix (car (or (memq transient-current-command prefix) prefix))))
+  (if-let ((obj (get prefix 'transient--prefix)))
+      (transient-prefix-value obj)
+    (error "Not a transient prefix: %s" prefix)))
+
+(cl-defgeneric transient-prefix-value (obj)
+  "Return the value of the prefix object OBJ.
+This function is used by `transient-args'.")
+
+(cl-defmethod transient-prefix-value ((obj transient-prefix))
+  "Return a list of the values of the suffixes the prefix object OBJ.
+Use `transient-infix-value' to collect the values of individual suffix
+objects."
+  (mapcan #'transient--get-wrapped-value
+          (transient-suffixes (oref obj command))))
+
+(defun transient-suffixes (prefix)
+  "Return the suffix objects of the transient prefix command PREFIX.
+
+If PREFIX is not the current prefix, initialize the suffixes so that
+they can be returned.  Doing so doesn't have any side-effects."
+  (if (eq transient-current-command prefix)
+      transient-current-suffixes
+    (let ((transient--prefix (transient--init-prefix prefix)))
+      (transient--flatten-suffixes
+       (transient--init-suffixes prefix)))))
+
+(defun transient-get-value ()
+  "Return the value of the current prefix.
+
+This is mostly intended for internal use, but may also be of use
+in `transient-set-value' and `transient-save-value' methods.  Unlike
+`transient-args', this does not include the values of suffixes whose
+`unsavable' slot is non-nil."
+  (transient--with-emergency-exit :get-value
+    (mapcan (lambda (obj)
+              (and (or (not (slot-exists-p obj 'unsavable))
+                       (not (oref obj unsavable)))
+                   (transient--get-wrapped-value obj)))
+            (or transient--suffixes transient-current-suffixes))))
+
+(defun transient--get-wrapped-value (obj)
+  "Return a list of the value(s) of suffix object OBJ.
+
+Internally a suffix only ever has one value, stored in its `value'
+slot, but callers of `transient-args', wish to treat the values of
+certain suffixes as multiple values.  That translation is handled
+here.  The object's `multi-value' slot specifies whether and how
+to interpret the `value' as multiple values."
+  (and-let* ((value (transient-infix-value obj)))
+    (pcase-exhaustive (and (slot-exists-p obj 'multi-value)
+                           (oref obj multi-value))
+      ('nil          (list value))
+      ((or 't 'rest) (list value))
+      ('repeat       value))))
+
+(cl-defgeneric transient-infix-value (obj)
+  "Return the value of the suffix object OBJ.
+
+By default this function is involved when determining the prefix's
+overall value, returned by `transient-args' (which see),  so that
+the invoked suffix command can use that.
+
+Currently most values are strings, but that is not set in stone.
+Nil is not a value, it means \"no value\".
+
+Usually only infixes have a value, but see the method for
+`transient-suffix'.")
+
+(cl-defmethod transient-infix-value ((_   transient-suffix))
+  "Return nil, which means \"no value\".
+
+Infix arguments contribute the transient's value while suffix
+commands consume it.  This function is called for suffixes anyway
+because a command that both contributes to the transient's value
+and also consumes it is not completely unconceivable.
+
+If you define such a command, then you must define a derived
+class and implement this function because this default method
+does nothing." nil)
+
+(cl-defmethod transient-infix-value ((obj transient-infix))
+  "Return the value of OBJ's `value' slot."
+  (oref obj value))
+
+(cl-defmethod transient-infix-value ((obj transient-option))
+  "Return ARGUMENT and VALUE as a unit or nil if the latter is nil."
+  (and-let* ((value (oref obj value)))
+    (let ((arg (oref obj argument)))
+      (pcase-exhaustive (oref obj multi-value)
+        ('nil          (concat arg value))
+        ((or 't 'rest) (cons arg value))
+        ('repeat       (mapcar (lambda (v) (concat arg v)) value))))))
+
+(cl-defmethod transient-infix-value ((_   transient-variable))
+  "Return nil, which means \"no value\".
+
+Setting the value of a variable is done by, well, setting the
+value of the variable.  I.e., this is a side-effect and does
+not contribute to the value of the transient."
+  nil)
+
+;;;; Utilities
+
+(defun transient-arg-value (arg args)
+  "Return the value of ARG as it appears in ARGS.
+
+For a switch return a boolean.  For an option return the value as
+a string, using the empty string for the empty value, or nil if
+the option does not appear in ARGS.
+
+Append \"=\ to ARG to indicate that it is an option."
+  (if (string-suffix-p "=" arg)
+      (save-match-data
+        (and-let* ((match (let ((case-fold-search nil)
+                                (re (format "\\`%s\\(?:=\\(.+\\)\\)?\\'"
+                                            (substring arg 0 -1))))
+                            (cl-find-if (lambda (a)
+                                          (and (stringp a)
+                                               (string-match re a)))
+                                        args))))
+          (or (match-string 1 match) "")))
+    (and (member arg args) t)))
+
+;;; Scope
+;;;; Init
+
+(cl-defgeneric transient-init-scope (obj)
+  "Set the scope of the prefix or suffix object OBJ.
+
+The scope is actually a property of the transient prefix, not of
+individual suffixes.  However it is possible to invoke a suffix
+command directly instead of from a transient.  In that case, if
+the suffix expects a scope, then it has to determine that itself
+and store it in its `scope' slot.
+
+This function is called for all prefix and suffix commands, but
+unless a concrete method is implemented, this falls through to
+a default implementation, which is a noop.")
+
+(cl-defmethod transient-init-scope ((_   transient-prefix))
+  "Noop." nil)
+
+(cl-defmethod transient-init-scope ((_   transient-suffix))
+  "Noop." nil)
+
+;;;; Get
+
+(defun transient-scope (&optional prefix)
+  "Return the scope of the transient prefix command PREFIX, or nil.
+
+If the current command wasn't invoked from any prefix, return nil.
+
+If PREFIX is non-nil, it must a single prefix or a list of prefixes.
+If, and only if, the current prefix is one of these prefixes, return
+its scope, otherwise return nil.
+
+If PREFIX is nil (for backward compatibility it may also be omitted),
+return the scope of the current prefix, regardless of which prefix it
+is.  This usage is rarely appropriate; it is better to be explicit.
+
+Return the value of the corresponding object's `scope' slot."
+  (declare (advertised-calling-convention (prefix) "0.8.0"))
+  (and transient-current-command
+       (or (not prefix)
+           (memq transient-current-command (ensure-list prefix)))
+       (oref (transient-prefix-object) scope)))
+
+;;; History
+
+(cl-defgeneric transient--history-key (obj)
+  "Return OBJ's history key.
+If the value of the `history-key' slot is non-nil, then return
+that.  Otherwise return the value of the `command' slot."
+  (or (oref obj history-key)
+      (oref obj command)))
+
+(cl-defgeneric transient--history-push (obj)
+  "Push the current value of OBJ to its entry in `transient-history'."
+  (let ((key (transient--history-key obj)))
+    (setf (alist-get key transient-history)
+          (let ((args (transient-get-value)))
+            (cons args (delete args (alist-get key transient-history)))))))
+
+(cl-defgeneric transient--history-init (obj)
+  "Initialize OBJ's `history' slot.
+This is the transient-wide history; many individual infixes also
+have a history of their own.")
+
+(cl-defmethod transient--history-init ((obj transient-prefix))
+  "Initialize OBJ's `history' slot from the variable `transient-history'."
+  (let ((val (oref obj value)))
+    (oset obj history
+          (cons val (delete val (alist-get (transient--history-key obj)
+                                           transient-history))))))
+
+;;; Draw
+
+(defun transient--show-brief ()
+  (let ((message-log-max nil))
+    (if (and transient-show-popup (<= transient-show-popup 0))
+        (message "%s-" (key-description (this-command-keys)))
+      (message
+       "%s- [%s] %s"
+       (key-description (this-command-keys))
+       (oref transient--prefix command)
+       (mapconcat
+        #'identity
+        (sort
+         (mapcan
+          (lambda (suffix)
+            (let ((key (kbd (oref suffix key))))
+              ;; Don't list any common commands.
+              (and (not (memq (oref suffix command)
+                              `(,(lookup-key transient-map key)
+                                ,(lookup-key transient-sticky-map key)
+                                ;; From transient-common-commands:
+                                transient-set
+                                transient-save
+                                transient-history-prev
+                                transient-history-next
+                                transient-quit-one
+                                transient-toggle-common
+                                transient-set-level)))
+                   (list (propertize (oref suffix key) 'face 'transient-key)))))
+          transient--suffixes)
+         #'string<)
+        (propertize "|" 'face 'transient-delimiter))))))
+
+(defun transient--show ()
+  (transient--timer-cancel)
+  (setq transient--showp t)
+  (let ((transient--shadowed-buffer (current-buffer))
+        (focus nil))
+    (setq transient--buffer (get-buffer-create transient--buffer-name))
+    (with-current-buffer transient--buffer
+      (when transient-enable-popup-navigation
+        (setq focus (or (button-get (point) 'command)
+                        (and (not (bobp))
+                             (button-get (1- (point)) 'command))
+                        (transient--heading-at-point))))
+      (erase-buffer)
+      (when transient-force-fixed-pitch
+        (transient--force-fixed-pitch))
+      (setq window-size-fixed
+            ;; If necessary, make sure the height of the minibuffer
+            ;; can be increased to display completion candidates.
+            ;; See https://github.com/minad/vertico/issues/532.
+            (if (and (not transient-hide-during-minibuffer-read)
+                     (window-full-height-p))
+                'width
+              t))
+      (when (bound-and-true-p tab-line-format)
+        (setq tab-line-format nil))
+      (setq header-line-format nil)
+      (setq mode-line-format
+            (if (or (natnump transient-mode-line-format)
+                    (eq transient-mode-line-format 'line))
+                nil
+              transient-mode-line-format))
+      (setq mode-line-buffer-identification
+            (symbol-name (oref transient--prefix command)))
+      (if transient-enable-popup-navigation
+          (setq-local cursor-in-non-selected-windows 'box)
+        (setq cursor-type nil))
+      (setq display-line-numbers nil)
+      (setq show-trailing-whitespace nil)
+      (run-hooks 'transient-setup-buffer-hook)
+      (transient--insert-groups)
+      (when (or transient--helpp transient--editp)
+        (transient--insert-help))
+      (when-let ((line (transient--separator-line)))
+        (insert line)))
+    (unless (window-live-p transient--window)
+      (when (eq (car transient-display-buffer-action)
+                'display-buffer-full-frame)
+        (user-error "Invalid value for `transient-display-buffer-action'"))
+      (setq transient--window
+            (display-buffer transient--buffer
+                            transient-display-buffer-action)))
+    (when (window-live-p transient--window)
+      (with-selected-window transient--window
+        (set-window-parameter nil 'prev--no-other-window
+                              (window-parameter nil 'no-other-window))
+        (set-window-parameter nil 'no-other-window t)
+        (goto-char (point-min))
+        (when transient-enable-popup-navigation
+          (transient--goto-button focus))
+        (transient--fit-window-to-buffer transient--window)))))
+
+(defun transient--fit-window-to-buffer (window)
+  (let ((window-resize-pixelwise t)
+        (window-size-fixed nil))
+    (if (eq (car (window-parameter window 'quit-restore)) 'other)
+        ;; Grow but never shrink window that previously displayed
+        ;; another buffer and is going to display that again.
+        (fit-window-to-buffer window nil (window-height window))
+      (fit-window-to-buffer window nil 1))))
+
+(defun transient--separator-line ()
+  (and-let* ((height (cond ((not window-system) nil)
+                           ((natnump transient-mode-line-format)
+                            transient-mode-line-format)
+                           ((eq transient-mode-line-format 'line) 1)))
+             (face `(,@(and (>= emacs-major-version 27) '(:extend t))
+                     :background
+                     ,(or (face-foreground (transient--key-face nil 'non-suffix)
+                                           nil t)
+                          "#gray60"))))
+    (concat (propertize "__" 'face face 'display `(space :height (,height)))
+            (propertize "\n" 'face face 'line-height t))))
+
+(defmacro transient-with-shadowed-buffer (&rest body)
+  "While in the transient buffer, temporarily make the shadowed buffer current."
+  (declare (indent 0) (debug t))
+  `(with-current-buffer (or transient--shadowed-buffer (current-buffer))
+     ,@body))
+
+(defun transient--insert-groups ()
+  (let ((groups (mapcan (lambda (group)
+                          (let ((hide (oref group hide)))
+                            (and (not (and (functionp hide)
+                                           (transient-with-shadowed-buffer
+                                             (funcall hide))))
+                                 (list group))))
+                        transient--layout)))
+    (while-let ((group (pop groups)))
+      (transient--insert-group group)
+      (when groups
+        (insert ?\n)))))
+
+(defvar transient--max-group-level 1)
+
+(cl-defgeneric transient--insert-group (group)
+  "Format GROUP and its elements and insert the result.")
+
+(cl-defmethod transient--insert-group :around ((group transient-group))
+  "Insert GROUP's description, if any."
+  (when-let ((desc (transient-with-shadowed-buffer
+                     (transient-format-description group))))
+    (insert desc ?\n))
+  (let ((transient--max-group-level
+         (max (oref group level) transient--max-group-level))
+        (transient--pending-group group))
+    (cl-call-next-method group)))
+
+(cl-defmethod transient--insert-group ((group transient-row))
+  (transient--maybe-pad-keys group)
+  (dolist (suffix (oref group suffixes))
+    (insert (transient-with-shadowed-buffer (transient-format suffix)))
+    (insert "   "))
+  (insert ?\n))
+
+(cl-defmethod transient--insert-group ((group transient-column)
+                                       &optional skip-empty)
+  (transient--maybe-pad-keys group)
+  (dolist (suffix (oref group suffixes))
+    (let ((str (transient-with-shadowed-buffer (transient-format suffix))))
+      (unless (and (not skip-empty) (equal str ""))
+        (insert str)
+        (unless (string-match-p ".\n\\'" str)
+          (insert ?\n))))))
+
+(cl-defmethod transient--insert-group ((group transient-columns))
+  (if transient-force-single-column
+      (dolist (group (oref group suffixes))
+        (transient--insert-group group t))
+    (let* ((columns
+            (mapcar
+             (lambda (column)
+               (transient--maybe-pad-keys column group)
+               (transient-with-shadowed-buffer
+                 `(,@(and-let* ((desc (transient-format-description column)))
+                       (list desc))
+                   ,@(let ((transient--pending-group column))
+                       (mapcar #'transient-format (oref column suffixes))))))
+             (oref group suffixes)))
+           (stops (transient--column-stops columns)))
+      (dolist (row (apply #'transient--mapn #'list columns))
+        (let ((stops stops))
+          (dolist (cell row)
+            (let ((stop (pop stops)))
+              (when cell
+                (transient--align-to stop)
+                (insert cell)))))
+        (insert ?\n)))))
+
+(cl-defmethod transient--insert-group ((group transient-subgroups))
+  (let ((subgroups (oref group suffixes)))
+    (while-let ((subgroup (pop subgroups)))
+      (transient--maybe-pad-keys subgroup group)
+      (transient--insert-group subgroup)
+      (when subgroups
+        (insert ?\n)))))
+
+(cl-defgeneric transient-format (obj)
+  "Format and return OBJ for display.
+
+When this function is called, then the current buffer is some
+temporary buffer.  If you need the buffer from which the prefix
+command was invoked to be current, then do so by temporarily
+making `transient--original-buffer' current.")
+
+(cl-defmethod transient-format ((arg string))
+  "Return the string ARG after applying the `transient-heading' face."
+  (propertize arg 'face 'transient-heading))
+
+(cl-defmethod transient-format ((_   null))
+  "Return a string containing just the newline character."
+  "\n")
+
+(cl-defmethod transient-format ((arg integer))
+  "Return a string containing just the ARG character."
+  (char-to-string arg))
+
+(cl-defmethod transient-format :around ((obj transient-suffix))
+  "Add additional formatting if appropriate.
+When reading user input for this infix, then highlight it.
+When edit-mode is enabled, then prepend the level information.
+When `transient-enable-popup-navigation' is non-nil then format
+as a button."
+  (let ((str (cl-call-next-method obj)))
+    (when (and (cl-typep obj 'transient-infix)
+               (eq (oref obj command) this-original-command)
+               (active-minibuffer-window))
+      (setq str (transient--add-face str 'transient-active-infix)))
+    (when transient--editp
+      (setq str (concat (let ((level (oref obj level)))
+                          (propertize (format " %s " level)
+                                      'face (if (transient--use-level-p level t)
+                                                'transient-enabled-suffix
+                                              'transient-disabled-suffix)))
+                        str)))
+    (when (and transient-enable-popup-navigation
+               (slot-boundp obj 'command))
+      (setq str (make-text-button str nil
+                                  'type 'transient
+                                  'suffix obj
+                                  'command (oref obj command))))
+    str))
+
+(cl-defmethod transient-format ((obj transient-infix))
+  "Return a string generated using OBJ's `format'.
+%k is formatted using `transient-format-key'.
+%d is formatted using `transient-format-description'.
+%v is formatted using `transient-format-value'."
+  (format-spec (oref obj format)
+               `((?k . ,(transient-format-key obj))
+                 (?d . ,(transient-format-description obj))
+                 (?v . ,(transient-format-value obj)))))
+
+(cl-defmethod transient-format ((obj transient-suffix))
+  "Return a string generated using OBJ's `format'.
+%k is formatted using `transient-format-key'.
+%d is formatted using `transient-format-description'."
+  (format-spec (oref obj format)
+               `((?k . ,(transient-format-key obj))
+                 (?d . ,(transient-format-description obj)))))
+
+(cl-defgeneric transient-format-key (obj)
+  "Format OBJ's `key' for display and return the result.")
+
+(cl-defmethod transient-format-key :around ((obj transient-suffix))
+  "Add `transient-inapt-suffix' face if suffix is inapt."
+  (let ((str (cl-call-next-method)))
+    (if (oref obj inapt)
+        (transient--add-face str 'transient-inapt-suffix)
+      str)))
+
+(cl-defmethod transient-format-key ((obj transient-suffix))
+  "Format OBJ's `key' for display and return the result."
+  (let ((key (if (slot-boundp obj 'key) (oref obj key) ""))
+        (cmd (and (slot-boundp obj 'command) (oref obj command))))
+    (when-let ((width (oref transient--pending-group pad-keys)))
+      (setq key (truncate-string-to-width key width nil ?\s)))
+    (if transient--redisplay-key
+        (let ((len (length transient--redisplay-key))
+              (seq (cl-coerce (edmacro-parse-keys key t) 'list)))
+          (cond
+           ((member (seq-take seq len)
+                    (list transient--redisplay-key
+                          (thread-last transient--redisplay-key
+                            (cl-substitute ?- 'kp-subtract)
+                            (cl-substitute ?= 'kp-equal)
+                            (cl-substitute ?+ 'kp-add))))
+            (let ((pre (key-description (vconcat (seq-take seq len))))
+                  (suf (key-description (vconcat (seq-drop seq len)))))
+              (setq pre (string-replace "RET" "C-m" pre))
+              (setq pre (string-replace "TAB" "C-i" pre))
+              (setq suf (string-replace "RET" "C-m" suf))
+              (setq suf (string-replace "TAB" "C-i" suf))
+              ;; We use e.g., "-k" instead of the more correct "- k",
+              ;; because the former is prettier.  If we did that in
+              ;; the definition, then we want to drop the space that
+              ;; is reinserted above.  False-positives are possible
+              ;; for silly bindings like "-C-c C-c".
+              (unless (string-search " " key)
+                (setq pre (string-replace " " "" pre))
+                (setq suf (string-replace " " "" suf)))
+              (concat (propertize pre 'face 'transient-unreachable-key)
+                      (and (string-prefix-p (concat pre " ") key) " ")
+                      (propertize suf 'face (transient--key-face cmd))
+                      (save-excursion
+                        (and (string-match " +\\'" key)
+                             (propertize (match-string 0 key)
+                                         'face 'fixed-pitch))))))
+           ((transient--lookup-key transient-sticky-map (kbd key))
+            (propertize key 'face (transient--key-face cmd)))
+           (t
+            (propertize key 'face 'transient-unreachable-key))))
+      (propertize key 'face (transient--key-face cmd)))))
+
+(cl-defmethod transient-format-key :around ((obj transient-argument))
+  "Handle `transient-highlight-mismatched-keys'."
+  (let ((key (cl-call-next-method obj)))
+    (cond
+     ((not transient-highlight-mismatched-keys) key)
+     ((not (slot-boundp obj 'shortarg))
+      (transient--add-face key 'transient-nonstandard-key))
+     ((not (string-equal key (oref obj shortarg)))
+      (transient--add-face key 'transient-mismatched-key))
+     (key))))
+
+(cl-defgeneric transient-format-description (obj)
+  "Format OBJ's `description' for display and return the result.")
+
+(cl-defmethod transient-format-description ((obj transient-suffix))
+  "The `description' slot may be a function, in which case that is
+called inside the correct buffer (see `transient--insert-group')
+and its value is returned to the caller."
+  (transient--get-description obj))
+
+(cl-defmethod transient-format-description ((obj transient-value-preset))
+  (pcase-let* (((eieio description key set) obj)
+               ((eieio value) transient--prefix)
+               (active (seq-set-equal-p set value)))
+    (format
+     "%s %s"
+     (propertize (or description (format "Preset %s" key))
+                 'face (and active 'transient-argument))
+     (format (propertize "(%s)" 'face 'transient-delimiter)
+             (mapconcat (lambda (arg)
+                          (propertize
+                           arg 'face (cond (active 'transient-argument)
+                                           ((member arg value)
+                                            '((:weight demibold)
+                                              transient-inactive-argument))
+                                           ('transient-inactive-argument))))
+                        set " ")))))
+
+(cl-defmethod transient-format-description ((obj transient-group))
+  "Format the description by calling the next method.
+If the result doesn't use the `face' property at all, then apply the
+face `transient-heading' to the complete string."
+  (and-let* ((desc (transient--get-description obj)))
+    (cond ((oref obj inapt)
+           (propertize desc 'face 'transient-inapt-suffix))
+          ((text-property-not-all 0 (length desc) 'face nil desc)
+           desc)
+          ((propertize desc 'face 'transient-heading)))))
+
+(cl-defmethod transient-format-description :around ((obj transient-suffix))
+  "Format the description by calling the next method.
+If the result is nil, then use \"(BUG: no description)\" as the
+description.  If the OBJ's `key' is currently unreachable, then
+apply the face `transient-unreachable' to the complete string."
+  (let ((desc (or (cl-call-next-method obj)
+                  (and (slot-boundp transient--prefix 'suffix-description)
+                       (funcall (oref transient--prefix suffix-description)
+                                obj)))))
+    (if desc
+        (when-let ((face (transient--get-face obj 'face)))
+          (setq desc (transient--add-face desc face t)))
+      (setq desc (propertize "(BUG: no description)" 'face 'error)))
+    (when (if transient--all-levels-p
+              (> (oref obj level) transient--default-prefix-level)
+            (and transient-highlight-higher-levels
+                 (> (max (oref obj level) transient--max-group-level)
+                    transient--default-prefix-level)))
+      (setq desc (transient--add-face desc 'transient-higher-level)))
+    (when-let ((inapt-face (and (oref obj inapt)
+                                (transient--get-face obj 'inapt-face))))
+      (setq desc (transient--add-face desc inapt-face)))
+    (when (and (slot-boundp obj 'key)
+               (transient--key-unreachable-p obj))
+      (setq desc (transient--add-face desc 'transient-unreachable)))
+    desc))
+
+(cl-defgeneric transient-format-value (obj)
+  "Format OBJ's value for display and return the result.")
+
+(cl-defmethod transient-format-value ((obj transient-suffix))
+  (propertize (oref obj argument)
+              'face (if (oref obj value)
+                        'transient-argument
+                      'transient-inactive-argument)))
+
+(cl-defmethod transient-format-value ((obj transient-option))
+  (let ((argument (oref obj argument)))
+    (if-let ((value (oref obj value)))
+        (pcase-exhaustive (oref obj multi-value)
+          ('nil
+           (concat (propertize argument 'face 'transient-argument)
+                   (propertize value    'face 'transient-value)))
+          ((or 't 'rest)
+           (concat (propertize (if (string-suffix-p " " argument)
+                                   argument
+                                 (concat argument " "))
+                               'face 'transient-argument)
+                   (propertize (mapconcat #'prin1-to-string value " ")
+                               'face 'transient-value)))
+          ('repeat
+           (mapconcat (lambda (value)
+                        (concat (propertize argument 'face 'transient-argument)
+                                (propertize value    'face 'transient-value)))
+                      value " ")))
+      (propertize argument 'face 'transient-inactive-argument))))
+
+(cl-defmethod transient-format-value ((obj transient-switches))
+  (with-slots (value argument-format choices) obj
+    (format (propertize argument-format
+                        'face (if value
+                                  'transient-argument
+                                'transient-inactive-argument))
+            (format
+             (propertize "[%s]" 'face 'transient-delimiter)
+             (mapconcat
+              (lambda (choice)
+                (propertize choice 'face
+                            (if (equal (format argument-format choice) value)
+                                'transient-value
+                              'transient-inactive-value)))
+              choices
+              (propertize "|" 'face 'transient-delimiter))))))
+
+(cl-defmethod transient--get-description ((obj transient-child))
+  (and-let* ((desc (oref obj description)))
+    (if (functionp desc)
+        (if (= (car (transient--func-arity desc)) 1)
+            (funcall desc obj)
+          (funcall desc))
+      desc)))
+
+(cl-defmethod transient--get-face ((obj transient-suffix) slot)
+  (and-let* (((slot-boundp obj slot))
+             (face (slot-value obj slot)))
+    (if (and (not (facep face))
+             (functionp face))
+        (let ((transient--pending-suffix obj))
+          (if (= (car (transient--func-arity face)) 1)
+              (funcall face obj)
+            (funcall face)))
+      face)))
+
+(defun transient--add-face (string face &optional append beg end)
+  (let ((str (copy-sequence string)))
+    (add-face-text-property (or beg 0) (or end (length str)) face append str)
+    str))
+
+(defun transient--key-face (&optional cmd enforce-type)
+  (or (and transient-semantic-coloring
+           (not transient--helpp)
+           (not transient--editp)
+           (or (and cmd (get cmd 'transient-face))
+               (get (transient--get-pre-command cmd enforce-type)
+                    'transient-face)))
+      (if cmd 'transient-key 'transient-key-noop)))
+
+(defun transient--key-unreachable-p (obj)
+  (and transient--redisplay-key
+       (let ((key (oref obj key)))
+         (not (or (equal (seq-take (cl-coerce (edmacro-parse-keys key t) 'list)
+                                   (length transient--redisplay-key))
+                         transient--redisplay-key)
+                  (transient--lookup-key transient-sticky-map (kbd key)))))))
+
+(defun transient--lookup-key (keymap key)
+  (let ((val (lookup-key keymap key)))
+    (and val (not (integerp val)) val)))
+
+(defun transient--maybe-pad-keys (group &optional parent)
+  (when-let ((pad (or (oref group pad-keys)
+                      (and parent (oref parent pad-keys)))))
+    (oset group pad-keys
+          (apply #'max
+                 (if (integerp pad) pad 0)
+                 (seq-keep (lambda (suffix)
+                             (and (eieio-object-p suffix)
+                                  (slot-boundp suffix 'key)
+                                  (length (oref suffix key))))
+                           (oref group suffixes))))))
+
+(defun transient--pixel-width (string)
+  (save-window-excursion
+    (with-temp-buffer
+      (insert string)
+      (set-window-dedicated-p nil nil)
+      (set-window-buffer nil (current-buffer))
+      (car (window-text-pixel-size
+            nil (line-beginning-position) (point))))))
+
+(defun transient--column-stops (columns)
+  (let* ((var-pitch (or transient-align-variable-pitch
+                        (oref transient--prefix variable-pitch)))
+         (char-width (and var-pitch (transient--pixel-width " "))))
+    (transient--seq-reductions-from
+     (apply-partially #'+ (* 2 (if var-pitch char-width 1)))
+     (transient--mapn
+      (lambda (cells min)
+        (apply #'max
+               (if min (if var-pitch (* min char-width) min) 0)
+               (mapcar (if var-pitch #'transient--pixel-width #'length) cells)))
+      columns
+      (oref transient--prefix column-widths))
+     0)))
+
+(defun transient--align-to (stop)
+  (unless (zerop stop)
+    (insert (if (or transient-align-variable-pitch
+                    (oref transient--prefix variable-pitch))
+                (propertize " " 'display `(space :align-to (,stop)))
+              (make-string (max 0 (- stop (current-column))) ?\s)))))
+
+(defun transient-command-summary-or-name (obj)
+  "Return the summary or name of the command represented by OBJ.
+
+If the command has a doc-string, then return the first line of
+that, else its name.
+
+Intended to be temporarily used as the `:suffix-description' of
+a prefix command, while porting a regular keymap to a transient."
+  (let ((command (oref obj command)))
+    (if-let ((doc (documentation command)))
+        (propertize (car (split-string doc "\n")) 'face 'font-lock-doc-face)
+      (propertize (symbol-name command) 'face 'font-lock-function-name-face))))
+
+;;; Help
+
+(cl-defgeneric transient-show-help (obj)
+  "Show documentation for the command represented by OBJ.")
+
+(cl-defmethod transient-show-help ((obj transient-prefix))
+  "Call `show-help' if non-nil, else show `info-manual',
+if non-nil, else show the `man-page' if non-nil, else use
+`describe-function'."
+  (with-slots (show-help info-manual man-page command) obj
+    (cond (show-help (funcall show-help obj))
+          (info-manual (transient--show-manual info-manual))
+          (man-page (transient--show-manpage man-page))
+          ((transient--describe-function command)))))
+
+(cl-defmethod transient-show-help ((obj transient-suffix))
+  "Call `show-help' if non-nil, else use `describe-function'.
+Also used to dispatch showing documentation for the current
+prefix.  If the suffix is a sub-prefix, then also call the
+prefix method."
+  (cond
+   ((eq this-command 'transient-help)
+    (transient-show-help transient--prefix))
+   ((let ((prefix (get (oref obj command)
+                       'transient--prefix)))
+      (and prefix (not (eq (oref transient--prefix command) this-command))
+           (prog1 t (transient-show-help prefix)))))
+   ((if-let ((show-help (oref obj show-help)))
+        (funcall show-help obj)
+      (transient--describe-function this-command)))))
+
+(cl-defmethod transient-show-help ((obj transient-infix))
+  "Call `show-help' if non-nil, else show the `man-page'
+if non-nil, else use `describe-function'.  When showing the
+manpage, then try to jump to the correct location."
+  (if-let ((show-help (oref obj show-help)))
+      (funcall show-help obj)
+    (if-let ((man-page (oref transient--prefix man-page))
+             (argument (and (slot-boundp obj 'argument)
+                            (oref obj argument))))
+        (transient--show-manpage man-page argument)
+      (transient--describe-function this-command))))
+
+;; `cl-generic-generalizers' doesn't support `command' et al.
+(cl-defmethod transient-show-help (cmd)
+  "Show the command doc-string."
+  (transient--describe-function cmd))
+
+(defmacro transient-with-help-window (&rest body)
+  "Evaluate BODY, send output to *Help* buffer, and display it in a window.
+Select the help window, and make the help buffer current and return it."
+  (declare (indent 0))
+  `(let ((buffer nil)
+         (help-window-select t))
+     (with-help-window (help-buffer)
+       ,@body
+       (setq buffer (current-buffer)))
+     (set-buffer buffer)))
+
+(defun transient--describe-function (fn)
+  (let* ((buffer nil)
+         (help-window-select t)
+         (temp-buffer-window-setup-hook
+          (cons (lambda () (setq buffer (current-buffer)))
+                temp-buffer-window-setup-hook)))
+    (describe-function fn)
+    (set-buffer buffer)))
+
+(defun transient--show-manual (manual)
+  (info manual))
+
+(defun transient--show-manpage (manpage &optional argument)
+  (require 'man)
+  (let* ((Man-notify-method 'meek)
+         (buf (Man-getpage-in-background manpage))
+         (proc (get-buffer-process buf)))
+    (while (and proc (eq (process-status proc) 'run))
+      (accept-process-output proc))
+    (switch-to-buffer buf)
+    (when argument
+      (transient--goto-argument-description argument))))
+
+(defun transient--goto-argument-description (arg)
+  (goto-char (point-min))
+  (let ((case-fold-search nil)
+        ;; This matches preceding/proceeding options.  Options
+        ;; such as "-a", "-S[<keyid>]", and "--grep=<pattern>"
+        ;; are matched by this regex without the shy group.
+        ;; The ". " in the shy group is for options such as
+        ;; "-m parent-number", and the "-[^[:space:]]+ " is
+        ;; for options such as "--mainline parent-number"
+        (others "-\\(?:. \\|-[^[:space:]]+ \\)?[^[:space:]]+"))
+    (when (re-search-forward
+           (if (equal arg "--")
+               ;; Special case.
+               "^[\t\s]+\\(--\\(?: \\|$\\)\\|\\[--\\]\\)"
+             ;; Should start with whitespace and may have
+             ;; any number of options before and/or after.
+             (format
+              "^[\t\s]+\\(?:%s, \\)*?\\(?1:%s\\)%s\\(?:, %s\\)*$"
+              others
+              ;; Options don't necessarily end in an "="
+              ;; (e.g., "--gpg-sign[=<keyid>]")
+              (string-remove-suffix "=" arg)
+              ;; Simple options don't end in an "=".  Splitting this
+              ;; into 2 cases should make getting false positives
+              ;; less likely.
+              (if (string-suffix-p "=" arg)
+                  ;; "[^[:space:]]*[^.[:space:]]" matches the option
+                  ;; value, which is usually after the option name
+                  ;; and either '=' or '[='.  The value can't end in
+                  ;; a period, as that means it's being used at the
+                  ;; end of a sentence.  The space is for options
+                  ;; such as '--mainline parent-number'.
+                  "\\(?: \\|\\[?=\\)[^[:space:]]*[^.[:space:]]"
+                ;; Either this doesn't match anything (e.g., "-a"),
+                ;; or the option is followed by a value delimited
+                ;; by a "[", "<", or ":".  A space might appear
+                ;; before this value, as in "-f <file>".  The
+                ;; space alternative is for options such as
+                ;; "-m parent-number".
+                "\\(?:\\(?: \\| ?[\\[<:]\\)[^[:space:]]*[^.[:space:]]\\)?")
+              others))
+           nil t)
+      (goto-char (match-beginning 1)))))
+
+(defun transient--insert-help ()
+  (unless (looking-back "\n\n" 2)
+    (insert "\n"))
+  (when transient--helpp
+    (insert
+     (format (propertize "\
+Type a %s to show help for that suffix command, or %s to show manual.
+Type %s to exit help.\n"
+                         'face 'transient-heading)
+             (propertize "<KEY>" 'face 'transient-key)
+             (propertize "?"     'face 'transient-key)
+             (propertize "C-g"   'face 'transient-key))))
+  (when transient--editp
+    (unless transient--helpp
+      (insert
+       (format (propertize "\
+Type a %s to set level for that suffix command.
+Type %s to set what levels are available for this prefix command.\n"
+                           'face 'transient-heading)
+               (propertize "<KEY>" 'face 'transient-key)
+               (propertize "C-x l" 'face 'transient-key))))
+    (with-slots (level) transient--prefix
+      (insert
+       (format (propertize "
+Suffixes on levels %s are available.
+Suffixes on levels %s and %s are unavailable.\n"
+                           'face 'transient-heading)
+               (propertize (format "1-%s" level)
+                           'face 'transient-enabled-suffix)
+               (propertize " 0 "
+                           'face 'transient-disabled-suffix)
+               (propertize (format ">=%s" (1+ level))
+                           'face 'transient-disabled-suffix))))))
+
+(cl-defgeneric transient-show-summary (obj &optional return)
+  "Show brief summary about the command at point in the echo area.
+
+If OBJ's `summary' slot is a string, use that.  If it is a function,
+call that with OBJ as the only argument and use the returned string.
+If `summary' is or returns something other than a string or nil,
+show no summary.  If `summary' is or returns nil, use the first line
+of the documentation string, if any.
+
+If RETURN is non-nil, return the summary instead of showing it.
+This is used when a tooltip is needed.")
+
+(cl-defmethod transient-show-summary ((obj transient-suffix) &optional return)
+  (with-slots (command summary) obj
+    (when-let*
+        ((doc (cond ((functionp summary)
+                     (funcall summary obj))
+                    (summary)
+                    ((car (split-string (documentation command) "\n")))))
+         ((stringp doc))
+         ((not (equal doc
+                      (car (split-string (documentation
+                                          'transient--default-infix-command)
+                                         "\n"))))))
+      (when (string-suffix-p "." doc)
+        (setq doc (substring doc 0 -1)))
+      (if return
+          doc
+        (let ((message-log-max nil))
+          (message "%s" doc))))))
+
+;;; Popup Navigation
+
+(defun transient-scroll-up (&optional arg)
+  "Scroll text of transient popup window upward ARG lines.
+If ARG is nil scroll near full screen.  This is a wrapper
+around `scroll-up-command' (which see)."
+  (interactive "^P")
+  (with-selected-window transient--window
+    (scroll-up-command arg)))
+
+(defun transient-scroll-down (&optional arg)
+  "Scroll text of transient popup window down ARG lines.
+If ARG is nil scroll near full screen.  This is a wrapper
+around `scroll-down-command' (which see)."
+  (interactive "^P")
+  (with-selected-window transient--window
+    (scroll-down-command arg)))
+
+(defun transient-backward-button (n)
+  "Move to the previous button in the transient popup buffer.
+See `backward-button' for information about N."
+  (interactive "p")
+  (with-selected-window transient--window
+    (backward-button n t)
+    (when (eq transient-enable-popup-navigation 'verbose)
+      (transient-show-summary (get-text-property (point) 'suffix)))))
+
+(defun transient-forward-button (n)
+  "Move to the next button in the transient popup buffer.
+See `forward-button' for information about N."
+  (interactive "p")
+  (with-selected-window transient--window
+    (forward-button n t)
+    (when (eq transient-enable-popup-navigation 'verbose)
+      (transient-show-summary (get-text-property (point) 'suffix)))))
+
+(define-button-type 'transient
+  'face nil
+  'keymap transient-button-map
+  'help-echo (lambda (win buf pos)
+               (with-selected-window win
+                 (with-current-buffer buf
+                   (transient-show-summary
+                    (get-text-property pos 'suffix) t)))))
+
+(defun transient--goto-button (command)
+  (cond
+   ((stringp command)
+    (when (re-search-forward (concat "^" (regexp-quote command)) nil t)
+      (goto-char (match-beginning 0))))
+   (command
+    (cl-flet ((found () (eq (button-get (button-at (point)) 'command) command)))
+      (while (and (ignore-errors (forward-button 1))
+                  (not (found))))
+      (unless (found)
+        (goto-char (point-min))
+        (ignore-errors (forward-button 1))
+        (unless (found)
+          (goto-char (point-min))))))))
+
+(defun transient--heading-at-point ()
+  (and (eq (get-text-property (point) 'face) 'transient-heading)
+       (let ((beg (line-beginning-position)))
+         (buffer-substring-no-properties
+          beg (next-single-property-change
+               beg 'face nil (line-end-position))))))
+
+;;; Compatibility
+;;;; Popup Isearch
+
+(defvar-keymap transient--isearch-mode-map
+  :parent isearch-mode-map
+  "<remap> <isearch-exit>"   #'transient-isearch-exit
+  "<remap> <isearch-cancel>" #'transient-isearch-cancel
+  "<remap> <isearch-abort>"  #'transient-isearch-abort)
+
+(defun transient-isearch-backward (&optional regexp-p)
+  "Do incremental search backward.
+With a prefix argument, do an incremental regular expression
+search instead."
+  (interactive "P")
+  (transient--isearch-setup)
+  (let ((isearch-mode-map transient--isearch-mode-map))
+    (isearch-mode nil regexp-p)))
+
+(defun transient-isearch-forward (&optional regexp-p)
+  "Do incremental search forward.
+With a prefix argument, do an incremental regular expression
+search instead."
+  (interactive "P")
+  (transient--isearch-setup)
+  (let ((isearch-mode-map transient--isearch-mode-map))
+    (isearch-mode t regexp-p)))
+
+(defun transient-isearch-exit ()
+  "Like `isearch-exit' but adapted for `transient'."
+  (interactive)
+  (isearch-exit)
+  (transient--isearch-exit))
+
+(defun transient-isearch-cancel ()
+  "Like `isearch-cancel' but adapted for `transient'."
+  (interactive)
+  (condition-case nil (isearch-cancel) (quit))
+  (transient--isearch-exit))
+
+(defun transient-isearch-abort ()
+  "Like `isearch-abort' but adapted for `transient'."
+  (interactive)
+  (let ((around (lambda (fn)
+                  (condition-case nil (funcall fn) (quit))
+                  (transient--isearch-exit))))
+    (advice-add 'isearch-cancel :around around)
+    (unwind-protect
+        (isearch-abort)
+      (advice-remove 'isearch-cancel around))))
+
+(defun transient--isearch-setup ()
+  (select-window transient--window)
+  (transient--suspend-override t))
+
+(defun transient--isearch-exit ()
+  (select-window transient--original-window)
+  (transient--resume-override))
+
+;;;; Edebug
+
+(defun transient--edebug-command-p ()
+  (and (bound-and-true-p edebug-active)
+       (or (memq this-command '(top-level abort-recursive-edit))
+           (string-prefix-p "edebug" (symbol-name this-command)))))
+
+;;;; Miscellaneous
+
+(cl-pushnew (list nil (concat "^\\s-*("
+                              (eval-when-compile
+                                (regexp-opt
+                                 '("transient-define-prefix"
+                                   "transient-define-suffix"
+                                   "transient-define-infix"
+                                   "transient-define-argument")
+                                 t))
+                              "\\s-+\\(" lisp-mode-symbol-regexp "\\)")
+                  2)
+            lisp-imenu-generic-expression :test #'equal)
+
+(declare-function which-key-mode "ext:which-key" (&optional arg))
+
+(defun transient--suspend-which-key-mode ()
+  (when (bound-and-true-p which-key-mode)
+    (which-key-mode -1)
+    (add-hook 'transient-exit-hook #'transient--resume-which-key-mode)))
+
+(defun transient--resume-which-key-mode ()
+  (unless transient--prefix
+    (which-key-mode 1)
+    (remove-hook 'transient-exit-hook #'transient--resume-which-key-mode)))
+
+(defun transient-bind-q-to-quit ()
+  "Modify some keymaps to bind \"q\" to the appropriate quit command.
+
+\"C-g\" is the default binding for such commands now, but Transient's
+predecessor Magit-Popup used \"q\" instead.  If you would like to get
+that binding back, then call this function in your init file like so:
+
+  (with-eval-after-load \\='transient
+    (transient-bind-q-to-quit))
+
+Individual transients may already bind \"q\" to something else
+and such a binding would shadow the quit binding.  If that is the
+case then \"Q\" is bound to whatever \"q\" would have been bound
+to by setting `transient-substitute-key-function' to a function
+that does that.  Of course \"Q\" may already be bound to something
+else, so that function binds \"M-q\" to that command instead.
+Of course \"M-q\" may already be bound to something else, but
+we stop there."
+  (keymap-set transient-base-map   "q" #'transient-quit-one)
+  (keymap-set transient-sticky-map "q" #'transient-quit-seq)
+  (setq transient-substitute-key-function
+        #'transient-rebind-quit-commands))
+
+(defun transient-rebind-quit-commands (obj)
+  "See `transient-bind-q-to-quit'."
+  (let ((key (oref obj key)))
+    (cond ((string-equal key "q") "Q")
+          ((string-equal key "Q") "M-q")
+          (key))))
+
+(defun transient--force-fixed-pitch ()
+  (require 'face-remap)
+  (face-remap-reset-base 'default)
+  (face-remap-add-relative 'default 'fixed-pitch))
+
+(defun transient--func-arity (fn)
+  (func-arity (advice--cd*r (if (symbolp fn) (symbol-function fn) fn))))
+
+(defun transient--seq-reductions-from (function sequence initial-value)
+  (let ((acc (list initial-value)))
+    (seq-doseq (elt sequence)
+      (push (funcall function (car acc) elt) acc))
+    (nreverse acc)))
+
+(defun transient--mapn (function &rest lists)
+  "Apply FUNCTION to elements of LISTS.
+Like `cl-mapcar' but while that stops when the shortest list
+is exhausted, continue until the longest list is, using nil
+as stand-in for elements of exhausted lists."
+  (let (result)
+    (while (catch 'more (mapc (lambda (l) (and l (throw 'more t))) lists) nil)
+      (push (apply function (mapcar #'car-safe lists)) result)
+      (setq lists (mapcar #'cdr lists)))
+    (nreverse result)))
+
+;;; Font-Lock
+
+(defconst transient-font-lock-keywords
+  (eval-when-compile
+    `((,(concat "("
+                (regexp-opt (list "transient-define-prefix"
+                                  "transient-define-infix"
+                                  "transient-define-argument"
+                                  "transient-define-suffix")
+                            t)
+                "\\_>[ \t'(]*"
+                "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
+       (1 'font-lock-keyword-face)
+       (2 'font-lock-function-name-face nil t)))))
+
+(font-lock-add-keywords 'emacs-lisp-mode transient-font-lock-keywords)
+
+;;; Auxiliary Classes
+;;;; `transient-lisp-variable'
+
+(defclass transient-lisp-variable (transient-variable)
+  ((reader :initform #'transient-lisp-variable--reader)
+   (always-read :initform t)
+   (set-value :initarg :set-value :initform #'set))
+  "[Experimental] Class used for Lisp variables.")
+
+(cl-defmethod transient-init-value ((obj transient-lisp-variable))
+  (oset obj value (symbol-value (oref obj variable))))
+
+(cl-defmethod transient-infix-set ((obj transient-lisp-variable) value)
+  (funcall (oref obj set-value)
+           (oref obj variable)
+           (oset obj value value)))
+
+(cl-defmethod transient-format-description ((obj transient-lisp-variable))
+  (or (cl-call-next-method obj)
+      (symbol-name (oref obj variable))))
+
+(cl-defmethod transient-format-value ((obj transient-lisp-variable))
+  (propertize (prin1-to-string (oref obj value))
+              'face 'transient-value))
+
+(cl-defmethod transient-prompt ((obj transient-lisp-variable))
+  (if (and (slot-boundp obj 'prompt)
+           (oref obj prompt))
+      (cl-call-next-method obj)
+    (format "Set %s: " (oref obj variable))))
+
+(defun transient-lisp-variable--reader (prompt initial-input _history)
+  (read--expression prompt initial-input))
+
+;;; _
+(provide 'transient)
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; checkdoc-symbol-words: ("command-line" "edit-mode" "help-mode")
+;; End:
+;;; transient.el ends here
diff --git a/emacs/elpa/transient-20241123.1834/transient.elc b/emacs/elpa/transient-20241123.1834/transient.elc
Binary files differ.
diff --git a/emacs/elpa/transient-20241123.1834/transient.info b/emacs/elpa/transient-20241123.1834/transient.info
@@ -0,0 +1,3383 @@
+This is transient.info, produced by makeinfo version 6.8 from
+transient.texi.
+
+     Copyright (C) 2018–2024 Free Software Foundation, Inc.
+
+     You can redistribute this document and/or modify it under the terms
+     of the GNU General Public License as published by the Free Software
+     Foundation, either version 3 of the License, or (at your option)
+     any later version.
+
+     This document is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     General Public License for more details.
+
+INFO-DIR-SECTION Emacs misc features
+START-INFO-DIR-ENTRY
+* Transient: (transient). Transient Commands.
+END-INFO-DIR-ENTRY
+
+
+File: transient.info,  Node: Top,  Next: Introduction,  Up: (dir)
+
+Transient User and Developer Manual
+***********************************
+
+Transient is the library used to implement the keyboard-driven “menus”
+in Magit.  It is distributed as a separate package, so that it can be
+used to implement similar menus in other packages.
+
+   This manual can be bit hard to digest when getting started.  A useful
+resource to get over that hurdle is Psionic K’s interactive tutorial,
+available at <https://github.com/positron-solutions/transient-showcase>.
+
+This manual is for Transient version 0.7.9.
+
+     Copyright (C) 2018–2024 Free Software Foundation, Inc.
+
+     You can redistribute this document and/or modify it under the terms
+     of the GNU General Public License as published by the Free Software
+     Foundation, either version 3 of the License, or (at your option)
+     any later version.
+
+     This document is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     General Public License for more details.
+
+* Menu:
+
+* Introduction::
+* Usage::
+* Modifying Existing Transients::
+* Defining New Commands::
+* Classes and Methods::
+* FAQ::
+* Keystroke Index::
+* Command and Function Index::
+* Variable Index::
+* Concept Index::
+* GNU General Public License::
+
+— The Detailed Node Listing —
+
+Usage
+
+* Invoking Transients::
+* Aborting and Resuming Transients::
+* Common Suffix Commands::
+* Saving Values::
+* Using History::
+* Getting Help for Suffix Commands::
+* Enabling and Disabling Suffixes::
+* Other Commands::
+* Configuration::
+
+Defining New Commands
+
+* Technical Introduction::
+* Defining Transients::
+* Binding Suffix and Infix Commands::
+* Defining Suffix and Infix Commands::
+* Using Infix Arguments::
+* Transient State::
+
+Binding Suffix and Infix Commands
+
+* Group Specifications::
+* Suffix Specifications::
+
+
+Classes and Methods
+
+* Group Classes::
+* Group Methods::
+* Prefix Classes::
+* Suffix Classes::
+* Suffix Methods::
+* Prefix Slots::
+* Suffix Slots::
+* Predicate Slots::
+
+Suffix Methods
+
+* Suffix Value Methods::
+* Suffix Format Methods::
+
+
+
+
+File: transient.info,  Node: Introduction,  Next: Usage,  Prev: Top,  Up: Top
+
+1 Introduction
+**************
+
+Transient is the library used to implement the keyboard-driven “menus”
+in Magit.  It is distributed as a separate package, so that it can be
+used to implement similar menus in other packages.
+
+   This manual can be bit hard to digest when getting started.  A useful
+resource to get over that hurdle is Psionic K’s interactive tutorial,
+available at <https://github.com/positron-solutions/transient-showcase>.
+
+Some things that Transient can do
+=================================
+
+   • Display current state of arguments
+   • Display and manage lifecycle of modal bindings
+   • Contextual user interface
+   • Flow control for wizard-like composition of interactive forms
+   • History & persistence
+   • Rendering arguments for controlling CLI programs
+
+Complexity in CLI programs
+==========================
+
+Complexity tends to grow with time.  How do you manage the complexity of
+commands?  Consider the humble shell command ‘ls’.  It now has over
+_fifty_ command line options.  Some of these are boolean flags (‘ls
+-l’).  Some take arguments (‘ls --sort=s’).  Some have no effect unless
+paired with other flags (‘ls -lh’).  Some are mutually exclusive.  Some
+shell commands even have so many options that they introduce
+_subcommands_ (‘git branch’, ‘git commit’), each with their own rich set
+of options (‘git branch -f’).
+
+Using Transient for composing interactive commands
+==================================================
+
+What about Emacs commands used interactively?  How do these handle
+options?  One solution is to make many versions of the same command, so
+you don’t need to!  Consider: ‘delete-other-windows’ vs.
+‘delete-other-windows-vertically’ (among many similar examples).
+
+   Some Emacs commands will simply prompt you for the next "argument"
+(‘M-x switch-to-buffer’).  Another common solution is to use prefix
+arguments which usually start with ‘C-u’.  Sometimes these are sensibly
+numerical in nature (‘C-u 4 M-x forward-paragraph’ to move forward 4
+paragraphs).  But sometimes they function instead as boolean "switches"
+(‘C-u C-SPACE’ to jump to the last mark instead of just setting it, ‘C-u
+C-u C-SPACE’ to unconditionally set the mark).  Since there aren’t many
+standards for the use of prefix options, you have to read the command’s
+documentation to find out what the possibilities are.
+
+   But when an Emacs command grows to have a truly large set of options
+and arguments, with dependencies between them, lots of option values,
+etc., these simple approaches just don’t scale.  Transient is designed
+to solve this issue.  Think of it as the humble prefix argument ‘C-u’,
+_raised to the power of 10_.  Like ‘C-u’, it is key driven.  Like the
+shell, it supports boolean "flag" options, options that take arguments,
+and even "sub-commands", with their own options.  But instead of
+searching through a man page or command documentation, well-designed
+transients _guide_ their users to the relevant set of options (and even
+their possible values!)  directly, taking into account any important
+pre-existing Emacs settings.  And while for shell commands like ‘ls’,
+there is only one way to "execute" (hit ‘Return’!), transients can
+"execute" using multiple different keys tied to one of many
+self-documenting _actions_ (imagine having 5 different colored return
+keys on your keyboard!).  Transients make navigating and setting large,
+complex groups of command options and arguments easy.  Fun even.  Once
+you’ve tried it, it’s hard to go back to the ‘C-u what can I do here
+again?’ way.
+
+
+File: transient.info,  Node: Usage,  Next: Modifying Existing Transients,  Prev: Introduction,  Up: Top
+
+2 Usage
+*******
+
+* Menu:
+
+* Invoking Transients::
+* Aborting and Resuming Transients::
+* Common Suffix Commands::
+* Saving Values::
+* Using History::
+* Getting Help for Suffix Commands::
+* Enabling and Disabling Suffixes::
+* Other Commands::
+* Configuration::
+
+
+File: transient.info,  Node: Invoking Transients,  Next: Aborting and Resuming Transients,  Up: Usage
+
+2.1 Invoking Transients
+=======================
+
+A transient prefix command is invoked like any other command by pressing
+the key that is bound to that command.  The main difference to other
+commands is that a transient prefix command activates a transient
+keymap, which temporarily binds the transient’s infix and suffix
+commands.  Bindings from other keymaps may, or may not, be disabled
+while the transient state is in effect.
+
+   There are two kinds of commands that are available after invoking a
+transient prefix command; infix and suffix commands.  Infix commands set
+some value (which is then shown in a popup buffer), without leaving the
+transient.  Suffix commands, on the other hand, usually quit the
+transient and they may use the values set by the infix commands, i.e.,
+the infix *arguments*.
+
+   Instead of setting arguments to be used by a suffix command, infix
+commands may also set some value by side-effect, e.g., by setting the
+value of some variable.
+
+
+File: transient.info,  Node: Aborting and Resuming Transients,  Next: Common Suffix Commands,  Prev: Invoking Transients,  Up: Usage
+
+2.2 Aborting and Resuming Transients
+====================================
+
+To quit the transient without invoking a suffix command press ‘C-g’.
+
+   Key bindings in transient keymaps may be longer than a single event.
+After pressing a valid prefix key, all commands whose bindings do not
+begin with that prefix key are temporarily unavailable and grayed out.
+To abort the prefix key press ‘C-g’ (which in this case only quits the
+prefix key, but not the complete transient).
+
+   A transient prefix command can be bound as a suffix of another
+transient.  Invoking such a suffix replaces the current transient state
+with a new transient state, i.e., the available bindings change and the
+information displayed in the popup buffer is updated accordingly.
+Pressing ‘C-g’ while a nested transient is active only quits the
+innermost transient, causing a return to the previous transient.
+
+   ‘C-q’ or ‘C-z’ on the other hand always exits all transients.  If you
+use the latter, then you can later resume the stack of transients using
+‘M-x transient-resume’.
+
+‘C-g’ (‘transient-quit-seq’)
+‘C-g’ (‘transient-quit-one’)
+     This key quits the currently active incomplete key sequence, if
+     any, or else the current transient.  When quitting the current
+     transient, it returns to the previous transient, if any.
+
+   Transient’s predecessor bound ‘q’ instead of ‘C-g’ to the quit
+command.  To learn how to get that binding back see
+‘transient-bind-q-to-quit’’s documentation string.
+
+‘C-q’ (‘transient-quit-all’)
+     This command quits the currently active incomplete key sequence, if
+     any, and all transients, including the active transient and all
+     suspended transients, if any.
+
+‘C-z’ (‘transient-suspend’)
+     Like ‘transient-quit-all’, this command quits an incomplete key
+     sequence, if any, and all transients.  Additionally, it saves the
+     stack of transients so that it can easily be resumed (which is
+     particularly useful if you quickly need to do “something else” and
+     the stack is deeper than a single transient, and/or you have
+     already changed the values of some infix arguments).
+
+     Note that only a single stack of transients can be saved at a time.
+     If another stack is already saved, then saving a new stack discards
+     the previous stack.
+
+‘M-x transient-resume’
+     This command resumes the previously suspended stack of transients,
+     if any.
+
+
+File: transient.info,  Node: Common Suffix Commands,  Next: Saving Values,  Prev: Aborting and Resuming Transients,  Up: Usage
+
+2.3 Common Suffix Commands
+==========================
+
+A few shared suffix commands are available in all transients.  These
+suffix commands are not shown in the popup buffer by default.
+
+   This includes the aborting commands mentioned in the previous
+section, as well as some other commands that are all bound to ‘C-x KEY’.
+After ‘C-x’ is pressed, a section featuring all these common commands is
+temporarily shown in the popup buffer.  After invoking one of them, the
+section disappears again.  Note, however, that one of these commands is
+described as “Show common permanently”; invoke that if you want the
+common commands to always be shown for all transients.
+
+‘C-x t’ (‘transient-toggle-common’)
+     This command toggles whether the generic commands that are common
+     to all transients are always displayed or only after typing the
+     incomplete prefix key sequence ‘C-x’.  This only affects the
+     current Emacs session.
+
+ -- User Option: transient-show-common-commands
+     This option controls whether shared suffix commands are shown
+     alongside the transient-specific infix and suffix commands.  By
+     default, the shared commands are not shown to avoid overwhelming
+     the user with too many options.
+
+     While a transient is active, pressing ‘C-x’ always shows the common
+     commands.  The value of this option can be changed for the current
+     Emacs session by typing ‘C-x t’ while a transient is active.
+
+   The other common commands are described in either the previous or in
+one of the following sections.
+
+   Some of Transient’s key bindings differ from the respective bindings
+of Magit-Popup; see *note FAQ:: for more information.
+
+
+File: transient.info,  Node: Saving Values,  Next: Using History,  Prev: Common Suffix Commands,  Up: Usage
+
+2.4 Saving Values
+=================
+
+After setting the infix arguments in a transient, the user can save
+those arguments for future invocations.
+
+   Most transients will start out with the saved arguments when they are
+invoked.  There are a few exceptions, though.  Some transients are
+designed so that the value that they use is stored externally as the
+buffer-local value of some variable.  Invoking such a transient again
+uses the buffer-local value.  (1)
+
+   If the user does not save the value and just exits using a regular
+suffix command, then the value is merely saved to the transient’s
+history.  That value won’t be used when the transient is next invoked,
+but it is easily accessible (see *note Using History::).
+
+‘C-x s’ (‘transient-set’)
+     This command saves the value of the active transient for this Emacs
+     session.
+
+‘C-x C-s’ (‘transient-save’)
+     Save the value of the active transient persistently across Emacs
+     sessions.
+
+‘C-x C-k’ (‘transient-reset’)
+     Clear the set and saved values of the active transient.
+
+ -- User Option: transient-values-file
+     This option names the file that is used to persist the values of
+     transients between Emacs sessions.
+
+   ---------- Footnotes ----------
+
+   (1) ‘magit-diff’ and ‘magit-log’ are two prominent examples, and
+their handling of buffer-local values is actually a bit more complicated
+than outlined above and even customizable.
+
+
+File: transient.info,  Node: Using History,  Next: Getting Help for Suffix Commands,  Prev: Saving Values,  Up: Usage
+
+2.5 Using History
+=================
+
+Every time the user invokes a suffix command the transient’s current
+value is saved to its history.  These values can be cycled through the
+same way one can cycle through the history of commands that read
+user-input in the minibuffer.
+
+‘C-M-p’ (‘transient-history-prev’)
+‘C-x p’
+     This command switches to the previous value used for the active
+     transient.
+
+‘C-M-n’ (‘transient-history-next’)
+‘C-x n’
+     This command switches to the next value used for the active
+     transient.
+
+   In addition to the transient-wide history, Transient of course
+supports per-infix history.  When an infix reads user-input using the
+minibuffer, the user can use the regular minibuffer history commands to
+cycle through previously used values.  Usually the same keys as those
+mentioned above are bound to those commands.
+
+   Authors of transients should arrange for different infix commands
+that read the same kind of value to also use the same history key (see
+*note Suffix Slots::).
+
+   Both kinds of history are saved to a file when Emacs is exited.
+
+ -- User Option: transient-history-file
+     This option names the file that is used to persist the history of
+     transients and their infixes between Emacs sessions.
+
+ -- User Option: transient-history-limit
+     This option controls how many history elements are kept at the time
+     the history is saved in ‘transient-history-file’.
+
+
+File: transient.info,  Node: Getting Help for Suffix Commands,  Next: Enabling and Disabling Suffixes,  Prev: Using History,  Up: Usage
+
+2.6 Getting Help for Suffix Commands
+====================================
+
+Transients can have many suffixes and infixes that the user might not be
+familiar with.  To make it trivial to get help for these, Transient
+provides access to the documentation directly from the active transient.
+
+‘C-h’ (‘transient-help’)
+     This command enters help mode.  When help mode is active, typing a
+     key shows information about the suffix command that the key
+     normally is bound to (instead of invoking it).  Pressing ‘C-h’ a
+     second time shows information about the _prefix_ command.
+
+     After typing a key, the stack of transient states is suspended and
+     information about the suffix command is shown instead.  Typing ‘q’
+     in the help buffer buries that buffer and resumes the transient
+     state.
+
+   What sort of documentation is shown depends on how the transient was
+defined.  For infix commands that represent command-line arguments this
+ideally shows the appropriate manpage.  ‘transient-help’ then tries to
+jump to the correct location within that.  Info manuals are also
+supported.  The fallback is to show the command’s documentation string,
+for non-infix suffixes this is usually appropriate.
+
+
+File: transient.info,  Node: Enabling and Disabling Suffixes,  Next: Other Commands,  Prev: Getting Help for Suffix Commands,  Up: Usage
+
+2.7 Enabling and Disabling Suffixes
+===================================
+
+The user base of a package that uses transients can be very diverse.
+This is certainly the case for Magit; some users have been using it and
+Git for a decade, while others are just getting started now.
+
+   For that reason a mechanism is needed that authors can use to
+classify a transient’s infixes and suffixes along the
+essentials...everything spectrum.  We use the term “levels” to describe
+that mechanism.
+
+   Each suffix command is placed on a level and each transient has a
+level (called “transient-level”), which controls which suffix commands
+are available.  Integers between 1 and 7 (inclusive) are valid levels.
+For suffixes, 0 is also valid; it means that the suffix is not displayed
+at any level.
+
+   The levels of individual transients and/or their individual suffixes
+can be changed interactively, by invoking the transient and then
+pressing ‘C-x l’ to enter the “edit” mode, see below.
+
+   The default level for both transients and their suffixes is 4.  The
+‘transient-default-level’ option only controls the default for
+transients.  The default suffix level is always 4.  The authors of
+transients should place certain suffixes on a higher level, if they
+expect that it won’t be of use to most users, and they should place very
+important suffixes on a lower level, so that they remain available even
+if the user lowers the transient level.
+
+ -- User Option: transient-default-level
+     This option controls which suffix levels are made available by
+     default.  It sets the transient-level for transients for which the
+     user has not set that individually.
+
+ -- User Option: transient-levels-file
+     This option names the file that is used to persist the levels of
+     transients and their suffixes between Emacs sessions.
+
+‘C-x l’ (‘transient-set-level’)
+     This command enters edit mode.  When edit mode is active, then all
+     infixes and suffixes that are currently usable are displayed along
+     with their levels.  The colors of the levels indicate whether they
+     are enabled or not.  The level of the transient is also displayed
+     along with some usage information.
+
+     In edit mode, pressing the key that would usually invoke a certain
+     suffix instead prompts the user for the level that suffix should be
+     placed on.
+
+     Help mode is available in edit mode.
+
+     To change the transient level press ‘C-x l’ again.
+
+     To exit edit mode press ‘C-g’.
+
+     Note that edit mode does not display any suffixes that are not
+     currently usable.  ‘magit-rebase’, for example, shows different
+     suffixes depending on whether a rebase is already in progress or
+     not.  The predicates also apply in edit mode.
+
+     Therefore, to control which suffixes are available given a certain
+     state, you have to make sure that that state is currently active.
+
+‘C-x a’ (‘transient-toggle-level-limit’)
+     This command toggle whether suffixes that are on levels higher than
+     the level specified by ‘transient-default-level’ are temporarily
+     available anyway.
+
+
+File: transient.info,  Node: Other Commands,  Next: Configuration,  Prev: Enabling and Disabling Suffixes,  Up: Usage
+
+2.8 Other Commands
+==================
+
+When invoking a transient in a small frame, the transient window may not
+show the complete buffer, making it necessary to scroll, using the
+following commands.  These commands are never shown in the transient
+window, and the key bindings are the same as for ‘scroll-up-command’ and
+‘scroll-down-command’ in other buffers.
+
+ -- Command: transient-scroll-up arg
+     This command scrolls text of transient popup window upward ARG
+     lines.  If ARG is ‘nil’, then it scrolls near full screen.  This is
+     a wrapper around ‘scroll-up-command’ (which see).
+
+ -- Command: transient-scroll-down arg
+     This command scrolls text of transient popup window down ARG lines.
+     If ARG is ‘nil’, then it scrolls near full screen.  This is a
+     wrapper around ‘scroll-down-command’ (which see).
+
+
+File: transient.info,  Node: Configuration,  Prev: Other Commands,  Up: Usage
+
+2.9 Configuration
+=================
+
+More options are described in *note Common Suffix Commands::, in *note
+Saving Values::, in *note Using History:: and in *note Enabling and
+Disabling Suffixes::.
+
+Essential Options
+-----------------
+
+Also see *note Common Suffix Commands::.
+
+ -- User Option: transient-show-popup
+     This option controls whether the current transient’s infix and
+     suffix commands are shown in the popup buffer.
+
+        • If ‘t’ (the default) then the popup buffer is shown as soon as
+          a transient prefix command is invoked.
+
+        • If ‘nil’, then the popup buffer is not shown unless the user
+          explicitly requests it, by pressing an incomplete prefix key
+          sequence.
+
+        • If a number, then the a brief one-line summary is shown
+          instead of the popup buffer.  If zero or negative, then not
+          even that summary is shown; only the pressed key itself is
+          shown.
+
+          The popup is shown when the user explicitly requests it by
+          pressing an incomplete prefix key sequence.  Unless this is
+          zero, the popup is shown after that many seconds of inactivity
+          (using the absolute value).
+
+ -- User Option: transient-enable-popup-navigation
+     This option controls whether navigation commands are enabled in the
+     transient popup buffer.  If the value is ‘verbose’, additionally
+     show brief documentation about the command under point in the echo
+     area.
+
+     While a transient is active the transient popup buffer is not the
+     current buffer, making it necessary to use dedicated commands to
+     act on that buffer itself.  This is disabled by default.  If this
+     option is non-‘nil’, then the following features are available:
+
+        • ‘<UP>’ moves the cursor to the previous suffix.
+        • ‘<DOWN>’ moves the cursor to the next suffix.
+        • ‘M-<RET>’ invokes the suffix the cursor is on.
+        • ‘mouse-1’ invokes the clicked on suffix.
+        • ‘C-s’ and ‘C-r’ start isearch in the popup buffer.
+
+     By default ‘M-<RET>’ is bound to ‘transient-push-button’, instead
+     of ‘<RET>’, because if a transient allows the invocation of
+     non-suffixes, then it is likely, that you would want ‘<RET>’ to do
+     what it would do if no transient were active."
+
+ -- User Option: transient-display-buffer-action
+     This option specifies the action used to display the transient
+     popup buffer.  The transient popup buffer is displayed in a window
+     using ‘(display-buffer BUFFER transient-display-buffer-action)’.
+
+     The value of this option has the form ‘(FUNCTION . ALIST)’, where
+     FUNCTION is a function or a list of functions.  Each such function
+     should accept two arguments: a buffer to display and an alist of
+     the same form as ALIST.  See *note (elisp)Choosing Window::, for
+     details.
+
+     The default is:
+
+          (display-buffer-in-side-window
+            (side . bottom)
+            (inhibit-same-window . t)
+            (window-parameters (no-other-window . t)))
+
+     This displays the window at the bottom of the selected frame.
+     Another useful FUNCTION is ‘display-buffer-below-selected’, which
+     is what ‘magit-popup’ used by default.  For more alternatives see
+     *note (elisp)Buffer Display Action Functions::, and *note
+     (elisp)Buffer Display Action Alists::.
+
+     Note that the buffer that was current before the transient buffer
+     is shown should remain the current buffer.  Many suffix commands
+     act on the thing at point, if appropriate, and if the transient
+     buffer became the current buffer, then that would change what is at
+     point.  To that effect ‘inhibit-same-window’ ensures that the
+     selected window is not used to show the transient buffer.
+
+     It may be possible to display the window in another frame, but
+     whether that works in practice depends on the window-manager.  If
+     the window manager selects the new window (Emacs frame), then that
+     unfortunately changes which buffer is current.
+
+     If you change the value of this option, then you might also want to
+     change the value of ‘transient-mode-line-format’.
+
+Accessibility Options
+---------------------
+
+ -- User Option: transient-force-single-column
+     This option controls whether the use of a single column to display
+     suffixes is enforced.  This might be useful for users with low
+     vision who use large text and might otherwise have to scroll in two
+     dimensions.
+
+Auxiliary Options
+-----------------
+
+ -- User Option: transient-mode-line-format
+     This option controls whether the transient popup buffer has a
+     mode-line, separator line, or neither.
+
+     If ‘nil’, then the buffer has no mode-line.  If the buffer is not
+     displayed right above the echo area, then this probably is not a
+     good value.
+
+     If ‘line’ (the default) or a natural number, then the buffer has no
+     mode-line, but a line is drawn in its place.  If a number is used,
+     that specifies the thickness of the line.  On termcap frames we
+     cannot draw lines, so there ‘line’ and numbers are synonyms for
+     ‘nil’.
+
+     The color of the line is used to indicate if non-suffixes are
+     allowed and whether they exit the transient.  The foreground color
+     of ‘transient-key-noop’ (if non-suffixes are disallowed),
+     ‘transient-key-stay’ (if allowed and transient stays active), or
+     ‘transient-key-exit’ (if allowed and they exit the transient) is
+     used to draw the line.
+
+     Otherwise this can be any mode-line format.  See *note (elisp)Mode
+     Line Format::, for details.
+
+ -- User Option: transient-semantic-coloring
+     This option controls whether colors are used to indicate the
+     transient behavior of commands.
+
+     If non-‘nil’, then the key binding of each suffix is colorized to
+     indicate whether it exits the transient state or not.  The color of
+     the prefix is indicated using the line that is drawn when the value
+     of ‘transient-mode-line-format’ is ‘line’.
+
+ -- User Option: transient-highlight-mismatched-keys
+     This option controls whether key bindings of infix commands that do
+     not match the respective command-line argument should be
+     highlighted.  For other infix commands this option has no effect.
+
+     When this option is non-‘nil’, the key binding for an infix
+     argument is highlighted when only a long argument (e.g.,
+     ‘--verbose’) is specified but no shorthand (e.g., ‘-v’).  In the
+     rare case that a shorthand is specified but the key binding does
+     not match, then it is highlighted differently.
+
+     Highlighting mismatched key bindings is useful when learning the
+     arguments of the underlying command-line tool; you wouldn’t want to
+     learn any short-hands that do not actually exist.
+
+     The highlighting is done using one of the faces
+     ‘transient-mismatched-key’ and ‘transient-nonstandard-key’.
+
+ -- User Option: transient-substitute-key-function
+     This function is used to modify key bindings.  If the value of this
+     option is ‘nil’ (the default), then no substitution is performed.
+
+     This function is called with one argument, the prefix object, and
+     must return a key binding description, either the existing key
+     description it finds in the ‘key’ slot, or the key description that
+     replaces the prefix key.  It could be used to make other
+     substitutions, but that is discouraged.
+
+     For example, ‘=’ is hard to reach using my custom keyboard layout,
+     so I substitute ‘(’ for that, which is easy to reach using a layout
+     optimized for lisp.
+
+          (setq transient-substitute-key-function
+                (lambda (obj)
+                  (let ((key (oref obj key)))
+                    (if (string-match "\\`\\(=\\)[a-zA-Z]" key)
+                        (replace-match "(" t t key 1)
+                      key))))
+
+ -- User Option: transient-read-with-initial-input
+     This option controls whether the last history element is used as
+     the initial minibuffer input when reading the value of an infix
+     argument from the user.  If ‘nil’, there is no initial input and
+     the first element has to be accessed the same way as the older
+     elements.
+
+ -- User Option: transient-hide-during-minibuffer-read
+     This option controls whether the transient buffer is hidden while
+     user input is being read in the minibuffer.
+
+ -- User Option: transient-align-variable-pitch
+     This option controls whether columns are aligned pixel-wise in the
+     popup buffer.
+
+     If this is non-‘nil’, then columns are aligned pixel-wise to
+     support variable-pitch fonts.  Keys are not aligned, so you should
+     use a fixed-pitch font for the ‘transient-key’ face.  Other key
+     faces inherit from that face unless a theme is used that breaks
+     that relationship.
+
+     This option is intended for users who use a variable-pitch font for
+     the ‘default’ face.
+
+ -- User Option: transient-force-fixed-pitch
+     This option controls whether to force the use of a monospaced font
+     in popup buffer.  Even if you use a proportional font for the
+     ‘default’ face, you might still want to use a monospaced font in
+     transient’s popup buffer.  Setting this option to ‘t’ causes
+     ‘default’ to be remapped to ‘fixed-pitch’ in that buffer.
+
+Developer Options
+-----------------
+
+These options are mainly intended for developers.
+
+ -- User Option: transient-detect-key-conflicts
+     This option controls whether key binding conflicts should be
+     detected at the time the transient is invoked.  If so, this results
+     in an error, which prevents the transient from being used.  Because
+     of that, conflicts are ignored by default.
+
+     Conflicts cannot be determined earlier, i.e., when the transient is
+     being defined and when new suffixes are being added, because at
+     that time there can be false-positives.  It is actually valid for
+     multiple suffixes to share a common key binding, provided the
+     predicates of those suffixes prevent that more than one of them is
+     enabled at a time.
+
+ -- User Option: transient-highlight-higher-levels
+     This option controls whether suffixes that would not be available
+     by default are highlighted.
+
+     When non-‘nil’ then the descriptions of suffixes are highlighted if
+     their level is above 4, the default of ‘transient-default-level’.
+     Assuming you have set that variable to 7, this highlights all
+     suffixes that won’t be available to users without them making the
+     same customization.
+
+
+File: transient.info,  Node: Modifying Existing Transients,  Next: Defining New Commands,  Prev: Usage,  Up: Top
+
+3 Modifying Existing Transients
+*******************************
+
+To an extent, transients can be customized interactively, see *note
+Enabling and Disabling Suffixes::.  This section explains how existing
+transients can be further modified non-interactively.  Let’s begin with
+an example:
+
+     (transient-append-suffix 'magit-patch-apply "-3"
+       '("-R" "Apply in reverse" "--reverse"))
+
+   This inserts a new infix argument to toggle the ‘--reverse’ argument
+after the infix argument that toggles ‘-3’ in ‘magit-patch-apply’.
+
+   The following functions share a few arguments:
+
+   • PREFIX is a transient prefix command, a symbol.
+
+   • SUFFIX is a transient infix or suffix specification in the same
+     form as expected by ‘transient-define-prefix’.  Note that an infix
+     is a special kind of suffix.  Depending on context “suffixes” means
+     “suffixes (including infixes)” or “non-infix suffixes”.  Here it
+     means the former.  See *note Suffix Specifications::.
+
+     SUFFIX may also be a group in the same form as expected by
+     ‘transient-define-prefix’.  See *note Group Specifications::.
+
+   • LOC is a command, a key vector, a key description (a string as
+     returned by ‘key-description’), or a list specifying coordinates
+     (the last element may also be a command or key).  For example ‘(1 0
+     -1)’ identifies the last suffix (‘-1’) of the first subgroup (‘0’)
+     of the second group (‘1’).
+
+     If LOC is a list of coordinates, then it can be used to identify a
+     group, not just an individual suffix command.
+
+     The function ‘transient-get-suffix’ can be useful to determine
+     whether a certain coordination list identifies the suffix or group
+     that you expect it to identify.  In hairy cases it may be necessary
+     to look at the definition of the transient prefix command.
+
+   These functions operate on the information stored in the
+‘transient--layout’ property of the PREFIX symbol.  Suffix entries in
+that tree are not objects but have the form ‘(LEVEL CLASS PLIST)’, where
+PLIST should set at least ‘:key’, ‘:description’ and ‘:command’.
+
+ -- Function: transient-insert-suffix prefix loc suffix &optional
+          keep-other
+ -- Function: transient-append-suffix prefix loc suffix &optional
+          keep-other
+     These functions insert the suffix or group SUFFIX into PREFIX
+     before or after LOC.
+
+     Conceptually adding a binding to a transient prefix is similar to
+     adding a binding to a keymap, but this is complicated by the fact
+     that multiple suffix commands can be bound to the same key,
+     provided they are never active at the same time, see *note
+     Predicate Slots::.
+
+     Unfortunately both false-positives and false-negatives are
+     possible.  To deal with the former use non-‘nil’ KEEP-OTHER.  To
+     deal with the latter remove the conflicting binding explicitly.
+
+ -- Function: transient-replace-suffix prefix loc suffix
+     This function replaces the suffix or group at LOC in PREFIX with
+     suffix or group SUFFIX.
+
+ -- Function: transient-remove-suffix prefix loc
+     This function removes the suffix or group at LOC in PREFIX.
+
+ -- Function: transient-get-suffix prefix loc
+     This function returns the suffix or group at LOC in PREFIX.  The
+     returned value has the form mentioned above.
+
+ -- Function: transient-suffix-put prefix loc prop value
+     This function edits the suffix or group at LOC in PREFIX, by
+     setting the PROP of its plist to VALUE.
+
+   Most of these functions do not signal an error if they cannot perform
+the requested modification.  The functions that insert new suffixes show
+a warning if LOC cannot be found in PREFIX without signaling an error.
+The reason for doing it like this is that establishing a key binding
+(and that is what we essentially are trying to do here) should not
+prevent the rest of the configuration from loading.  Among these
+functions only ‘transient-get-suffix’ and ‘transient-suffix-put’ may
+signal an error.
+
+
+File: transient.info,  Node: Defining New Commands,  Next: Classes and Methods,  Prev: Modifying Existing Transients,  Up: Top
+
+4 Defining New Commands
+***********************
+
+* Menu:
+
+* Technical Introduction::
+* Defining Transients::
+* Binding Suffix and Infix Commands::
+* Defining Suffix and Infix Commands::
+* Using Infix Arguments::
+* Transient State::
+
+
+File: transient.info,  Node: Technical Introduction,  Next: Defining Transients,  Up: Defining New Commands
+
+4.1 Technical Introduction
+==========================
+
+Taking inspiration from prefix keys and prefix arguments, Transient
+implements a similar abstraction involving a prefix command, infix
+arguments and suffix commands.
+
+   When the user calls a transient prefix command, a transient
+(temporary) keymap is activated, which binds the transient’s infix and
+suffix commands, and functions that control the transient state are
+added to ‘pre-command-hook’ and ‘post-command-hook’.  The available
+suffix and infix commands and their state are shown in a popup buffer
+until the transient state is exited by invoking a suffix command.
+
+   Calling an infix command causes its value to be changed.  How that is
+done depends on the type of the infix command.  The simplest case is an
+infix command that represents a command-line argument that does not take
+a value.  Invoking such an infix command causes the switch to be toggled
+on or off.  More complex infix commands may read a value from the user,
+using the minibuffer.
+
+   Calling a suffix command usually causes the transient to be exited;
+the transient keymaps and hook functions are removed, the popup buffer
+no longer shows information about the (no longer bound) suffix commands,
+the values of some public global variables are set, while some internal
+global variables are unset, and finally the command is actually called.
+Suffix commands can also be configured to not exit the transient.
+
+   A suffix command can, but does not have to, use the infix arguments
+in much the same way any command can choose to use or ignore the prefix
+arguments.  For a suffix command that was invoked from a transient, the
+variable ‘transient-current-suffixes’ and the function ‘transient-args’
+serve about the same purpose as the variables ‘prefix-arg’ and
+‘current-prefix-arg’ do for any command that was called after the prefix
+arguments have been set using a command such as ‘universal-argument’.
+
+   Transient can be used to implement simple “command dispatchers”.  The
+main benefit then is that the user can see all the available commands in
+a popup buffer, which can be thought of as a “menus”.  That is useful by
+itself because it frees the user from having to remember all the keys
+that are valid after a certain prefix key or command.  Magit’s
+‘magit-dispatch’ (on ‘C-x M-g’) command is an example of using Transient
+to merely implement a command dispatcher.
+
+   In addition to that, Transient also allows users to interactively
+pass arguments to commands.  These arguments can be much more complex
+than what is reasonable when using prefix arguments.  There is a limit
+to how many aspects of a command can be controlled using prefix
+arguments.  Furthermore, what a certain prefix argument means for
+different commands can be completely different, and users have to read
+documentation to learn and then commit to memory what a certain prefix
+argument means to a certain command.
+
+   Transient suffix commands, on the other hand, can accept dozens of
+different arguments without the user having to remember anything.  When
+using Transient, one can call a command with arguments that are just as
+complex as when calling the same function non-interactively from Lisp.
+
+   Invoking a transient suffix command with arguments is similar to
+invoking a command in a shell with command-line completion and history
+enabled.  One benefit of the Transient interface is that it remembers
+history not only on a global level (“this command was invoked using
+these arguments, and previously it was invoked using those other
+arguments”), but also remembers the values of individual arguments
+independently.  See *note Using History::.
+
+   After a transient prefix command is invoked, ‘C-h KEY’ can be used to
+show the documentation for the infix or suffix command that ‘KEY’ is
+bound to (see *note Getting Help for Suffix Commands::), and infixes and
+suffixes can be removed from the transient using ‘C-x l KEY’.  Infixes
+and suffixes that are disabled by default can be enabled the same way.
+See *note Enabling and Disabling Suffixes::.
+
+   Transient ships with support for a few different types of specialized
+infix commands.  A command that sets a command line option, for example,
+has different needs than a command that merely toggles a boolean flag.
+Additionally, Transient provides abstractions for defining new types,
+which the author of Transient did not anticipate (or didn’t get around
+to implementing yet).
+
+   Note that suffix commands also support regular prefix arguments.  A
+suffix command may even be called with both infix and prefix arguments
+at the same time.  If you invoke a command as a suffix of a transient
+prefix command, but also want to pass prefix arguments to it, then first
+invoke the prefix command, and only after doing that invoke the prefix
+arguments, before finally invoking the suffix command.  If you instead
+began by providing the prefix arguments, then those would apply to the
+prefix command, not the suffix command.  Likewise, if you want to change
+infix arguments before invoking a suffix command with prefix arguments,
+then change the infix arguments before invoking the prefix arguments.
+In other words, regular prefix arguments always apply to the next
+command, and since transient prefix, infix and suffix commands are just
+regular commands, the same applies to them.  (Regular prefix keys behave
+differently because they are not commands at all, instead they are just
+incomplete key sequences, and those cannot be interrupted with prefix
+commands.)
+
+
+File: transient.info,  Node: Defining Transients,  Next: Binding Suffix and Infix Commands,  Prev: Technical Introduction,  Up: Defining New Commands
+
+4.2 Defining Transients
+=======================
+
+A transient consists of a prefix command and at least one suffix
+command, though usually a transient has several infix and suffix
+commands.  The below macro defines the transient prefix command *and*
+binds the transient’s infix and suffix commands.  In other words, it
+defines the complete transient, not just the transient prefix command
+that is used to invoke that transient.
+
+ -- Macro: transient-define-prefix name arglist [docstring] [keyword
+          value]... group... [body...]
+     This macro defines NAME as a transient prefix command and binds the
+     transient’s infix and suffix commands.
+
+     ARGLIST are the arguments that the prefix command takes.  DOCSTRING
+     is the documentation string and is optional.
+
+     These arguments can optionally be followed by keyword-value pairs.
+     Each key has to be a keyword symbol, either ‘:class’ or a keyword
+     argument supported by the constructor of that class.  The
+     ‘transient-prefix’ class is used if the class is not specified
+     explicitly.
+
+     GROUPs add key bindings for infix and suffix commands and specify
+     how these bindings are presented in the popup buffer.  At least one
+     GROUP has to be specified.  See *note Binding Suffix and Infix
+     Commands::.
+
+     The BODY is optional.  If it is omitted, then ARGLIST is ignored
+     and the function definition becomes:
+
+          (lambda ()
+            (interactive)
+            (transient-setup 'NAME))
+
+     If BODY is specified, then it must begin with an ‘interactive’ form
+     that matches ARGLIST, and it must call ‘transient-setup’.  It may,
+     however, call that function only when some condition is satisfied.
+
+     All transients have a (possibly ‘nil’) value, which is exported
+     when suffix commands are called, so that they can consume that
+     value.  For some transients it might be necessary to have a sort of
+     secondary value, called a “scope”.  Such a scope would usually be
+     set in the command’s ‘interactive’ form and has to be passed to the
+     setup function:
+
+          (transient-setup 'NAME nil nil :scope SCOPE)
+
+     For example, the scope of the ‘magit-branch-configure’ transient is
+     the branch whose variables are being configured.
+
+
+File: transient.info,  Node: Binding Suffix and Infix Commands,  Next: Defining Suffix and Infix Commands,  Prev: Defining Transients,  Up: Defining New Commands
+
+4.3 Binding Suffix and Infix Commands
+=====================================
+
+The macro ‘transient-define-prefix’ is used to define a transient.  This
+defines the actual transient prefix command (see *note Defining
+Transients::) and adds the transient’s infix and suffix bindings, as
+described below.
+
+   Users and third-party packages can add additional bindings using
+functions such as ‘transient-insert-suffix’ (see *note Modifying
+Existing Transients::).  These functions take a “suffix specification”
+as one of their arguments, which has the same form as the specifications
+used in ‘transient-define-prefix’.
+
+* Menu:
+
+* Group Specifications::
+* Suffix Specifications::
+
+
+File: transient.info,  Node: Group Specifications,  Next: Suffix Specifications,  Up: Binding Suffix and Infix Commands
+
+4.3.1 Group Specifications
+--------------------------
+
+The suffix and infix commands of a transient are organized in groups.
+The grouping controls how the descriptions of the suffixes are outlined
+visually but also makes it possible to set certain properties for a set
+of suffixes.
+
+   Several group classes exist, some of which organize suffixes in
+subgroups.  In most cases the class does not have to be specified
+explicitly, but see *note Group Classes::.
+
+   Groups are specified in the call to ‘transient-define-prefix’, using
+vectors.  Because groups are represented using vectors, we cannot use
+square brackets to indicate an optional element and instead use curly
+brackets to do the latter.
+
+   Group specifications then have this form:
+
+     [{LEVEL} {DESCRIPTION} {KEYWORD VALUE}... ELEMENT...]
+
+   The LEVEL is optional and defaults to 4.  See *note Enabling and
+Disabling Suffixes::.
+
+   The DESCRIPTION is optional.  If present, it is used as the heading
+of the group.
+
+   The KEYWORD-VALUE pairs are optional.  Each keyword has to be a
+keyword symbol, either ‘:class’ or a keyword argument supported by the
+constructor of that class.
+
+   • One of these keywords, ‘:description’, is equivalent to specifying
+     DESCRIPTION at the very beginning of the vector.  The
+     recommendation is to use ‘:description’ if some other keyword is
+     also used, for consistency, or DESCRIPTION otherwise, because it
+     looks better.
+
+   • Likewise ‘:level’ is equivalent to LEVEL.
+
+   • Other important keywords include the ‘:if...’ and ‘:inapt-if...’
+     keywords.  These keywords control whether the group is available in
+     a certain situation.
+
+     For example, one group of the ‘magit-rebase’ transient uses ‘:if
+     magit-rebase-in-progress-p’, which contains the suffixes that are
+     useful while rebase is already in progress; and another that uses
+     ‘:if-not magit-rebase-in-progress-p’, which contains the suffixes
+     that initiate a rebase.
+
+     These predicates can also be used on individual suffixes and are
+     only documented once, see *note Predicate Slots::.
+
+   • The value of ‘:hide’, if non-‘nil’, is a predicate that controls
+     whether the group is hidden by default.  The key bindings for
+     suffixes of a hidden group should all use the same prefix key.
+     Pressing that prefix key should temporarily show the group and its
+     suffixes, which assumes that a predicate like this is used:
+
+          (lambda ()
+            (eq (car transient--redisplay-key)
+                ?\C-c)) ; the prefix key shared by all bindings
+
+   • The value of ‘:setup-children’, if non-‘nil’, is a function that
+     takes one argument, a potentially list of children, and must return
+     a list of children or an empty list.  This can either be used to
+     somehow transform the group’s children that were defined the normal
+     way, or to dynamically create the children from scratch.
+
+     The returned children must have the same form as stored in the
+     prefix’s ‘transient--layout’ property, but it is often more
+     convenient to use the same form as understood by
+     ‘transient-define-prefix’, described below.  If you use the latter
+     approach, you can use the ‘transient-parse-suffixes’ and
+     ‘transient-parse-suffix’ functions to transform them from the
+     convenient to the expected form.  Depending on the used group
+     class, ‘transient-parse-suffixes’’s SUFFIXES must be a list of
+     group vectors (for ‘transient-columns’) or a list of suffix lists
+     (for all other group classes).
+
+     If you explicitly specify children and then transform them using
+     ‘:setup-children’, then the class of the group is determined as
+     usual, based on explicitly specified children.
+
+     If you do not explicitly specify children and thus rely solely on
+     ‘:setup-children’, then you must specify the class using ‘:class’.
+     For backward compatibility, if you fail to do so,
+     ‘transient-column’ is used and a warning is displayed.  This
+     warning will eventually be replaced with an error.
+
+          (transient-define-prefix my-finder-by-keyword ()
+            "Select a keyword and list matching packages."
+            ;; The real `finder-by-keyword' is more convenient
+            ;; of course, but that is not the point here.
+            [:class transient-columns
+             :setup-children
+             (lambda (_)
+               (transient-parse-suffixes
+                'my-finder-by-keyword
+                (let ((char (1- ?A)))
+                  (mapcar                  ; a list ...
+                   (lambda (partition)
+                     (vconcat              ; of group vectors ...
+                      (mapcar (lambda (elt)
+                                (let ((keyword (symbol-name (car elt))))
+                                           ; ... where each suffix is a list
+                                  (list (format "%c" (cl-incf char))
+                                        keyword
+                                        (lambda ()
+                                          (interactive)
+                                          (finder-list-matches keyword)))))
+                              partition)))
+                   (seq-partition finder-known-keywords 7)))))])
+
+   • The boolean ‘:pad-keys’ argument controls whether keys of all
+     suffixes contained in a group are right padded, effectively
+     aligning the descriptions.
+
+   The ELEMENTs are either all subgroups, or all suffixes and strings.
+(At least currently no group type exists that would allow mixing
+subgroups with commands at the same level, though in principle there is
+nothing that prevents that.)
+
+   If the ELEMENTs are not subgroups, then they can be a mixture of
+lists, which specify commands, and strings.  Strings are inserted
+verbatim into the buffer.  The empty string can be used to insert gaps
+between suffixes, which is particularly useful if the suffixes are
+outlined as a table.
+
+   Inside group specifications, including inside contained suffix
+specifications, nothing has to be quoted and quoting anyway is invalid.
+The value following a keyword, can be explicitly unquoted using ‘,’.
+This feature is experimental and should be avoided.
+
+   The form of suffix specifications is documented in the next node.
+
+
+File: transient.info,  Node: Suffix Specifications,  Prev: Group Specifications,  Up: Binding Suffix and Infix Commands
+
+4.3.2 Suffix Specifications
+---------------------------
+
+A transient’s suffix and infix commands are bound when the transient
+prefix command is defined using ‘transient-define-prefix’, see *note
+Defining Transients::.  The commands are organized into groups, see
+*note Group Specifications::.  Here we describe the form used to bind an
+individual suffix command.
+
+   The same form is also used when later binding additional commands
+using functions such as ‘transient-insert-suffix’, see *note Modifying
+Existing Transients::.
+
+   Note that an infix is a special kind of suffix.  Depending on context
+“suffixes” means “suffixes (including infixes)” or “non-infix suffixes”.
+Here it means the former.
+
+   Suffix specifications have this form:
+
+     ([LEVEL] [KEY [DESCRIPTION]] COMMAND|ARGUMENT [KEYWORD VALUE]...)
+
+   LEVEL, KEY and DESCRIPTION can also be specified using the KEYWORDs
+‘:level’, ‘:key’ and ‘:description’.  If the object that is associated
+with COMMAND sets these properties, then they do not have to be
+specified here.  You can however specify them here anyway, possibly
+overriding the object’s values just for the binding inside this
+transient.
+
+   • LEVEL is the suffix level, an integer between 1 and 7.  See *note
+     Enabling and Disabling Suffixes::.
+
+   • KEY is the key binding, either a vector or key description string.
+
+   • DESCRIPTION is the description, either a string or a function that
+     takes zero or one arguments (the suffix object) and returns a
+     string.  The function should be a lambda expression to avoid
+     ambiguity.  In some cases a symbol that is bound as a function
+     would also work but to be safe you should use ‘:description’ in
+     that case.
+
+   The next element is either a command or an argument.  This is the
+only argument that is mandatory in all cases.
+
+   • COMMAND should be a symbol that is bound as a function, which has
+     to be defined or at least autoloaded as a command by the time the
+     containing prefix command is invoked.
+
+     Any command will do; it does not need to have an object associated
+     with it (as would be the case if ‘transient-define-suffix’ or
+     ‘transient-define-infix’ were used to define it).
+
+     COMMAND can also be a ‘lambda’ expression.
+
+     As mentioned above, the object that is associated with a command
+     can be used to set the default for certain values that otherwise
+     have to be set in the suffix specification.  Therefore if there is
+     no object, then you have to make sure to specify the KEY and the
+     DESCRIPTION.
+
+     As a special case, if you want to add a command that might be
+     neither defined nor autoloaded, you can use a workaround like:
+
+          (transient-insert-suffix 'some-prefix "k"
+            '("!" "Ceci n'est pas une commande" no-command
+              :if (lambda () (featurep 'no-library))))
+
+     Instead of ‘featurep’ you could also use ‘require’ with a non-‘nil’
+     value for NOERROR.
+
+   • The mandatory argument can also be a command-line argument, a
+     string.  In that case an anonymous command is defined and bound.
+
+     Instead of a string, this can also be a list of two strings, in
+     which case the first string is used as the short argument (which
+     can also be specified using ‘:shortarg’) and the second as the long
+     argument (which can also be specified using ‘:argument’).
+
+     Only the long argument is displayed in the popup buffer.  See
+     ‘transient-detect-key-conflicts’ for how the short argument may be
+     used.
+
+     Unless the class is specified explicitly, the appropriate class is
+     guessed based on the long argument.  If the argument ends with ‘=’
+     (e.g., ‘--format=’) then ‘transient-option’ is used, otherwise
+     ‘transient-switch’.
+
+   Finally, details can be specified using optional KEYWORD-VALUE pairs.
+Each keyword has to be a keyword symbol, either ‘:class’ or a keyword
+argument supported by the constructor of that class.  See *note Suffix
+Slots::.
+
+
+File: transient.info,  Node: Defining Suffix and Infix Commands,  Next: Using Infix Arguments,  Prev: Binding Suffix and Infix Commands,  Up: Defining New Commands
+
+4.4 Defining Suffix and Infix Commands
+======================================
+
+Note that an infix is a special kind of suffix.  Depending on context
+“suffixes” means “suffixes (including infixes)” or “non-infix suffixes”.
+
+ -- Macro: transient-define-suffix name arglist [docstring] [keyword
+          value]... body...
+     This macro defines NAME as a transient suffix command.
+
+     ARGLIST are the arguments that the command takes.  DOCSTRING is the
+     documentation string and is optional.
+
+     These arguments can optionally be followed by keyword-value pairs.
+     Each keyword has to be a keyword symbol, either ‘:class’ or a
+     keyword argument supported by the constructor of that class.  The
+     ‘transient-suffix’ class is used if the class is not specified
+     explicitly.
+
+     The BODY must begin with an ‘interactive’ form that matches
+     ARGLIST.  The infix arguments are usually accessed by using
+     ‘transient-args’ inside ‘interactive’.
+
+ -- Macro: transient-define-infix name arglist [docstring] [keyword
+          value]...
+     This macro defines NAME as a transient infix command.
+
+     ARGLIST is always ignored (but mandatory never-the-less) and
+     reserved for future use.  DOCSTRING is the documentation string and
+     is optional.
+
+     At least one key-value pair is required.  All transient infix
+     commands are ‘equal’ to each other (but not ‘eq’).  It is
+     meaningless to define an infix command, without providing at least
+     one keyword argument (usually ‘:argument’ or ‘:variable’, depending
+     on the class).  The suffix class defaults to ‘transient-switch’ and
+     can be set using the ‘:class’ keyword.
+
+     The function definition is always:
+
+          (lambda ()
+            (interactive)
+            (let ((obj (transient-suffix-object)))
+              (transient-infix-set obj (transient-infix-read obj)))
+            (transient--show))
+
+     ‘transient-infix-read’ and ‘transient-infix-set’ are generic
+     functions.  Different infix commands behave differently because the
+     concrete methods are different for different infix command classes.
+     In rare cases the above command function might not be suitable,
+     even if you define your own infix command class.  In that case you
+     have to use ‘transient-define-suffix’ to define the infix command
+     and use ‘t’ as the value of the ‘:transient’ keyword.
+
+ -- Macro: transient-define-argument name arglist [docstring] [keyword
+          value]...
+     This macro defines NAME as a transient infix command.
+
+     This is an alias for ‘transient-define-infix’.  Only use this alias
+     to define an infix command that actually sets an infix argument.
+     To define an infix command that, for example, sets a variable, use
+     ‘transient-define-infix’ instead.
+
+
+File: transient.info,  Node: Using Infix Arguments,  Next: Transient State,  Prev: Defining Suffix and Infix Commands,  Up: Defining New Commands
+
+4.5 Using Infix Arguments
+=========================
+
+The functions and the variables described below allow suffix commands to
+access the value of the transient from which they were invoked; which is
+the value of its infix arguments.  These variables are set when the user
+invokes a suffix command that exits the transient, but before actually
+calling the command.
+
+   When returning to the command-loop after calling the suffix command,
+the arguments are reset to ‘nil’ (which causes the function to return
+‘nil’ too).
+
+   Like for Emacs’s prefix arguments, it is advisable, but not
+mandatory, to access the infix arguments inside the command’s
+‘interactive’ form.  The preferred way of doing that is to call the
+‘transient-args’ function, which for infix arguments serves about the
+same purpose as ‘prefix-arg’ serves for prefix arguments.
+
+ -- Function: transient-args prefix
+     This function returns the value of the transient prefix command
+     PREFIX.
+
+     If the current command was invoked from the transient prefix
+     command PREFIX, then it returns the active infix arguments.  If the
+     current command was not invoked from PREFIX, then it returns the
+     set, saved or default value for PREFIX.
+
+ -- Function: transient-arg-value arg args
+     This function return the value of ARG as it appears in ARGS.
+
+     For a switch a boolean is returned.  For an option the value is
+     returned as a string, using the empty string for the empty value,
+     or ‘nil’ if the option does not appear in ARGS.
+
+ -- Function: transient-suffixes prefix
+     This function returns the suffixes of the transient prefix command
+     PREFIX.  This is a list of objects.  This function should only be
+     used if you need the objects (as opposed to just their values) and
+     if the current command is not being invoked from PREFIX.
+
+ -- Variable: transient-current-suffixes
+     The suffixes of the transient from which this suffix command was
+     invoked.  This is a list of objects.  Usually it is sufficient to
+     instead use the function ‘transient-args’, which returns a list of
+     values.  In complex cases it might be necessary to use this
+     variable instead, i.e., if you need access to information beside
+     the value.
+
+ -- Variable: transient-current-command
+     The transient from which this suffix command was invoked.  The
+     returned value is a symbol, the transient prefix command.
+
+ -- Variable: transient-current-prefix
+     The transient from which this suffix command was invoked.  The
+     returned value is a ‘transient-prefix’ object, which holds
+     information associated with the transient prefix command.
+
+ -- Function: transient-active-prefix
+     This function returns the active transient object.  Return ‘nil’ if
+     there is no active transient, if the transient buffer isn’t shown,
+     and while the active transient is suspended (e.g., while the
+     minibuffer is in use).
+
+     Unlike ‘transient-current-prefix’, which is only ever non-‘nil’ in
+     code that is run directly by a command that is invoked while a
+     transient is current, this function is also suitable for use in
+     asynchronous code, such as timers and callbacks (this function’s
+     main use-case).
+
+     If optional PREFIXES is non-‘nil’, it must be a prefix command
+     symbol or a list of symbols, in which case the active transient
+     object is only returned if it matches one of the PREFIXES.
+
+
+File: transient.info,  Node: Transient State,  Prev: Using Infix Arguments,  Up: Defining New Commands
+
+4.6 Transient State
+===================
+
+Invoking a transient prefix command “activates” the respective
+transient, i.e., it puts a transient keymap into effect, which binds the
+transient’s infix and suffix commands.
+
+   The default behavior while a transient is active is as follows:
+
+   • Invoking an infix command does not affect the transient state; the
+     transient remains active.
+
+   • Invoking a (non-infix) suffix command “deactivates” the transient
+     state by removing the transient keymap and performing some
+     additional cleanup.
+
+   • Invoking a command that is bound in a keymap other than the
+     transient keymap is disallowed and trying to do so results in a
+     warning.  This does not “deactivate” the transient.
+
+   The behavior can be changed for all suffixes of a particular prefix
+and/or for individual suffixes.  The values should nearly always be
+booleans, but certain functions, called “pre-commands”, can also be
+used.  These functions are named ‘transient--do-VERB’, and the symbol
+‘VERB’ can be used as a shorthand.
+
+   A boolean is interpreted as answering the question "does the
+transient stay active, when this command is invoked?"  ‘t’ means that
+the transient stays active, while ‘nil’ means that invoking the command
+exits the transient.
+
+   Note that when the suffix is a “sub-prefix”, invoking that command
+always activates that sub-prefix, causing the outer prefix to no longer
+be active and displayed.  Here ‘t’ means that when you exit the inner
+prefix, then the outer prefix becomes active again, while ‘nil’ means
+that all outer prefixes are exited at once.
+
+   • The behavior for non-suffixes can be set for a particular prefix,
+     by the prefix’s ‘transient-non-suffix’ slot to a boolean, a
+     suitable pre-command function, or a shorthand for such a function.
+     See *note Pre-commands for Non-Suffixes::.
+
+   • The common behavior for the suffixes of a particular prefix can be
+     set using the prefix’s ‘transient-suffixes’ slot.
+
+     The value specified in this slot does *not* affect infixes.
+     Because it affects both regular suffixes as well as sub-prefixes,
+     which have different needs, it is best to avoid explicitly
+     specifying a function.
+
+   • The behavior of an individual suffix can be changed using its
+     ‘transient’ slot.  While it is usually best to use a boolean, for
+     this slot it can occasionally make sense to specify a function
+     explicitly.
+
+     Note that this slot can be set when defining a suffix command using
+     ‘transient-define-suffix’ and/or in the definition of the prefix.
+     If set in both places, then the latter takes precedence, as usual.
+
+   The available pre-command functions are documented in the following
+sub-sections.  They are called by ‘transient--pre-command’, a function
+on ‘pre-command-hook’, and the value that they return determines whether
+the transient is exited.  To do so the value of one of the constants
+‘transient--exit’ or ‘transient--stay’ is used (that way we don’t have
+to remember if ‘t’ means “exit” or “stay”).
+
+   Additionally, these functions may change the value of ‘this-command’
+(which explains why they have to be called using ‘pre-command-hook’),
+call ‘transient-export’, ‘transient--stack-zap’ or
+‘transient--stack-push’; and set the values of ‘transient--exitp’,
+‘transient--helpp’ or ‘transient--editp’.
+
+   For completeness sake, some notes about complications:
+
+   • The transient-ness of certain built-in suffix commands is specified
+     using ‘transient-predicate-map’.  This is a special keymap, which
+     binds commands to pre-commands (as opposed to keys to commands) and
+     takes precedence over the prefix’s ‘transient-suffix’ slot, but not
+     the suffix’s ‘transient’ slot.
+
+   • While a sub-prefix is active we nearly always want ‘C-g’ to take
+     the user back to the “super-prefix”, even when the other suffixes
+     don’t do that.  However, in rare cases this may not be desirable,
+     and that makes the following complication necessary:
+
+     For ‘transient-suffix’ objects the ‘transient’ slot is unbound.  We
+     can ignore that for the most part because ‘nil’ and the slot being
+     unbound are treated as equivalent, and mean “do exit”.  That isn’t
+     actually true for suffixes that are sub-prefixes though.  For such
+     suffixes unbound means “do exit but allow going back”, which is the
+     default, while ‘nil’ means “do exit permanently”, which requires
+     that slot to be explicitly set to that value.
+
+Pre-commands for Infixes
+------------------------
+
+The default for infixes is ‘transient--do-stay’.  This is also the only
+function that makes sense for infixes, which is why this predicate is
+used even if the value of the prefix’s ‘transient-suffix’ slot is ‘t’.
+In extremely rare cases, one might want to use something else, which can
+be done by setting the infix’s ‘transient’ slot directly.
+
+ -- Function: transient--do-stay
+     Call the command without exporting variables and stay transient.
+
+Pre-commands for Suffixes
+-------------------------
+
+By default, invoking a suffix causes the transient to be exited.
+
+   The behavior for an individual suffix command can be changed by
+setting its ‘transient’ slot to a boolean (which is highly recommended),
+or to one of the following pre-commands.
+
+ -- Function: transient--do-exit
+     Call the command after exporting variables and exit the transient.
+
+ -- Function: transient--do-return
+     Call the command after exporting variables and return to the parent
+     prefix.  If there is no parent prefix, then call
+     ‘transient--do-exit’.
+
+ -- Function: transient--do-call
+     Call the command after exporting variables and stay transient.
+
+   The following pre-commands are only suitable for sub-prefixes.  It is
+not necessary to explicitly use these predicates because the correct
+predicate is automatically picked based on the value of the ‘transient’
+slot for the sub-prefix itself.
+
+ -- Function: transient--do-recurse
+     Call the transient prefix command, preparing for return to active
+     transient.
+
+     Whether we actually return to the parent transient is ultimately
+     under the control of each invoked suffix.  The difference between
+     this pre-command and ‘transient--do-stack’ is that it changes the
+     value of the ‘transient-suffix’ slot to ‘t’.
+
+     If there is no parent transient, then only call this command and
+     skip the second step.
+
+ -- Function: transient--do-stack
+     Call the transient prefix command, stacking the active transient.
+     Push the active transient to the transient stack.
+
+     Unless ‘transient--do-recurse’ is explicitly used, this pre-command
+     is automatically used for suffixes that are prefixes themselves,
+     i.e., for sub-prefixes.
+
+ -- Function: transient--do-replace
+     Call the transient prefix command, replacing the active transient.
+     Do not push the active transient to the transient stack.
+
+     Unless ‘transient--do-recurse’ is explicitly used, this pre-command
+     is automatically used for suffixes that are prefixes themselves,
+     i.e., for sub-prefixes.
+
+ -- Function: transient--do-suspend
+     Suspend the active transient, saving the transient stack.
+
+     This is used by the command ‘transient-suspend’ and optionally also
+     by “external events” such as ‘handle-switch-frame’.  Such bindings
+     should be added to ‘transient-predicate-map’.
+
+Pre-commands for Non-Suffixes
+-----------------------------
+
+By default, non-suffixes (commands that are bound in other keymaps
+beside the transient keymap) cannot be invoked.  Trying to invoke such a
+command results in a warning and the transient stays active.
+
+   If you want a different behavior, then set the ‘transient-non-suffix’
+slot of the transient prefix command.  The value should be a boolean,
+answering the question, "is it allowed to invoke non-suffix commands?, a
+pre-command function, or a shorthand for such a function.
+
+   If the value is ‘t’, then non-suffixes can be invoked, when it is
+‘nil’ (the default) then they cannot be invoked.
+
+   The only other recommended value is ‘leave’.  If that is used, then
+non-suffixes can be invoked, but if one is invoked, then that exits the
+transient.
+
+ -- Function: transient--do-warn
+     Call ‘transient-undefined’ and stay transient.
+
+ -- Function: transient--do-stay
+     Call the command without exporting variables and stay transient.
+
+ -- Function: transient--do-leave
+     Call the command without exporting variables and exit the
+     transient.
+
+Special Pre-Commands
+--------------------
+
+ -- Function: transient--do-quit-one
+     If active, quit help or edit mode, else exit the active transient.
+
+     This is used when the user pressed ‘C-g’.
+
+ -- Function: transient--do-quit-all
+     Exit all transients without saving the transient stack.
+
+     This is used when the user pressed ‘C-q’.
+
+ -- Function: transient--do-suspend
+     Suspend the active transient, saving the transient stack.
+
+     This is used when the user pressed ‘C-z’.
+
+
+File: transient.info,  Node: Classes and Methods,  Next: FAQ,  Prev: Defining New Commands,  Up: Top
+
+5 Classes and Methods
+*********************
+
+Transient uses classes and generic functions to make it possible to
+define new types of suffix commands that are similar to existing types,
+but behave differently in some aspects.  It does the same for groups and
+prefix commands, though at least for prefix commands that *currently*
+appears to be less important.
+
+   Every prefix, infix and suffix command is associated with an object,
+which holds information that controls certain aspects of its behavior.
+This happens in two ways.
+
+   • Associating a command with a certain class gives the command a
+     type.  This makes it possible to use generic functions to do
+     certain things that have to be done differently depending on what
+     type of command it acts on.
+
+     That in turn makes it possible for third-parties to add new types
+     without having to convince the maintainer of Transient that that
+     new type is important enough to justify adding a special case to a
+     dozen or so functions.
+
+   • Associating a command with an object makes it possible to easily
+     store information that is specific to that particular command.
+
+     Two commands may have the same type, but obviously their key
+     bindings and descriptions still have to be different, for example.
+
+     The values of some slots are functions.  The ‘reader’ slot for
+     example holds a function that is used to read a new value for an
+     infix command.  The values of such slots are regular functions.
+
+     Generic functions are used when a function should do something
+     different based on the type of the command, i.e., when all commands
+     of a certain type should behave the same way but different from the
+     behavior for other types.  Object slots that hold a regular
+     function as value are used when the task that they perform is
+     likely to differ even between different commands of the same type.
+
+* Menu:
+
+* Group Classes::
+* Group Methods::
+* Prefix Classes::
+* Suffix Classes::
+* Suffix Methods::
+* Prefix Slots::
+* Suffix Slots::
+* Predicate Slots::
+
+
+File: transient.info,  Node: Group Classes,  Next: Group Methods,  Up: Classes and Methods
+
+5.1 Group Classes
+=================
+
+The type of a group can be specified using the ‘:class’ property at the
+beginning of the class specification, e.g., ‘[:class transient-columns
+...]’ in a call to ‘transient-define-prefix’.
+
+   • The abstract ‘transient-child’ class is the base class of both
+     ‘transient-group’ (and therefore all groups) as well as of
+     ‘transient-suffix’ (and therefore all suffix and infix commands).
+
+     This class exists because the elements (or “children”) of certain
+     groups can be other groups instead of suffix and infix commands.
+
+   • The abstract ‘transient-group’ class is the superclass of all other
+     group classes.
+
+   • The ‘transient-column’ class is the simplest group.
+
+     This is the default “flat” group.  If the class is not specified
+     explicitly and the first element is not a vector (i.e., not a
+     group), then this class is used.
+
+     This class displays each element on a separate line.
+
+   • The ‘transient-row’ class displays all elements on a single line.
+
+   • The ‘transient-columns’ class displays commands organized in
+     columns.
+
+     Direct elements have to be groups whose elements have to be
+     commands or strings.  Each subgroup represents a column.  This
+     class takes care of inserting the subgroups’ elements.
+
+     This is the default “nested” group.  If the class is not specified
+     explicitly and the first element is a vector (i.e., a group), then
+     this class is used.
+
+   • The ‘transient-subgroups’ class wraps other groups.
+
+     Direct elements have to be groups whose elements have to be
+     commands or strings.  This group inserts an empty line between
+     subgroups.  The subgroups themselves are responsible for displaying
+     their elements.
+
+
+File: transient.info,  Node: Group Methods,  Next: Prefix Classes,  Prev: Group Classes,  Up: Classes and Methods
+
+5.2 Group Methods
+=================
+
+ -- Function: transient-setup-children group children
+     This generic function can be used to setup the children or a group.
+
+     The default implementation usually just returns the children
+     unchanged, but if the ‘setup-children’ slot of GROUP is non-‘nil’,
+     then it calls that function with CHILDREN as the only argument and
+     returns the value.
+
+     The children are given as a (potentially empty) list consisting of
+     either group or suffix specifications.  These functions can make
+     arbitrary changes to the children including constructing new
+     children from scratch.
+
+ -- Function: transient--insert-group group
+     This generic function formats the group and its elements and
+     inserts the result into the current buffer, which is a temporary
+     buffer.  The contents of that buffer are later inserted into the
+     popup buffer.
+
+     Functions that are called by this function may need to operate in
+     the buffer from which the transient was called.  To do so they can
+     temporarily make the ‘transient--source-buffer’ the current buffer.
+
+
+File: transient.info,  Node: Prefix Classes,  Next: Suffix Classes,  Prev: Group Methods,  Up: Classes and Methods
+
+5.3 Prefix Classes
+==================
+
+Currently the ‘transient-prefix’ class is being used for all prefix
+commands and there is only a single generic function that can be
+specialized based on the class of a prefix command.
+
+ -- Function: transient--history-init obj
+     This generic function is called while setting up the transient and
+     is responsible for initializing the ‘history’ slot.  This is the
+     transient-wide history; many individual infixes also have a history
+     of their own.
+
+     The default (and currently only) method extracts the value from the
+     global variable ‘transient-history’.
+
+   A transient prefix command’s object is stored in the
+‘transient--prefix’ property of the command symbol.  While a transient
+is active, a clone of that object is stored in the variable
+‘transient--prefix’.  A clone is used because some changes that are made
+to the active transient’s object should not affect later invocations.
+
+
+File: transient.info,  Node: Suffix Classes,  Next: Suffix Methods,  Prev: Prefix Classes,  Up: Classes and Methods
+
+5.4 Suffix Classes
+==================
+
+   • All suffix and infix classes derive from ‘transient-suffix’, which
+     in turn derives from ‘transient-child’, from which
+     ‘transient-group’ also derives (see *note Group Classes::).
+
+   • All infix classes derive from the abstract ‘transient-infix’ class,
+     which in turn derives from the ‘transient-suffix’ class.
+
+     Infixes are a special type of suffixes.  The primary difference is
+     that infixes always use the ‘transient--do-stay’ pre-command, while
+     non-infix suffixes use a variety of pre-commands (see *note
+     Transient State::).  Doing that is most easily achieved by using
+     this class, though theoretically it would be possible to define an
+     infix class that does not do so.  If you do that then you get to
+     implement many methods.
+
+     Also, infixes and non-infix suffixes are usually defined using
+     different macros (see *note Defining Suffix and Infix Commands::).
+
+   • Classes used for infix commands that represent arguments should be
+     derived from the abstract ‘transient-argument’ class.
+
+   • The ‘transient-switch’ class (or a derived class) is used for infix
+     arguments that represent command-line switches (arguments that do
+     not take a value).
+
+   • The ‘transient-option’ class (or a derived class) is used for infix
+     arguments that represent command-line options (arguments that do
+     take a value).
+
+   • The ‘transient-switches’ class can be used for a set of mutually
+     exclusive command-line switches.
+
+   • The ‘transient-files’ class can be used for a ‘--’ argument that
+     indicates that all remaining arguments are files.
+
+   • Classes used for infix commands that represent variables should
+     derived from the abstract ‘transient-variable’ class.
+
+   • The ‘transient-information’ class is special in that suffixes that
+     use this class are not associated with a command and thus also not
+     with any key binding.  Such suffixes are only used to display
+     arbitrary information, and that anywhere a suffix can appear.
+     Display-only suffix specifications take this form:
+
+          ([LEVEL] :info DESCRIPTION [KEYWORD VALUE]...)
+
+     The ‘:info’ keyword argument replaces the ‘:description’ keyword
+     used for other suffix classes.  Other keyword arguments that you
+     might want to set, include ‘:face’, predicate keywords (such as
+     ‘:if’ and ‘:inapt-if’), and ‘:format’.  By default the value of
+     ‘:format’ includes ‘%k’, which for this class is replaced with the
+     empty string or spaces, if keys are being padded in the containing
+     group.
+
+   Magit defines additional classes, which can serve as examples for the
+fancy things you can do without modifying Transient.  Some of these
+classes will likely get generalized and added to Transient.  For now
+they are very much subject to change and not documented.
+
+
+File: transient.info,  Node: Suffix Methods,  Next: Prefix Slots,  Prev: Suffix Classes,  Up: Classes and Methods
+
+5.5 Suffix Methods
+==================
+
+To get information about the methods implementing these generic
+functions use ‘describe-function’.
+
+* Menu:
+
+* Suffix Value Methods::
+* Suffix Format Methods::
+
+
+File: transient.info,  Node: Suffix Value Methods,  Next: Suffix Format Methods,  Up: Suffix Methods
+
+5.5.1 Suffix Value Methods
+--------------------------
+
+ -- Function: transient-init-value obj
+     This generic function sets the initial value of the object OBJ.
+
+     This function is called for all suffix commands, but unless a
+     concrete method is implemented this falls through to the default
+     implementation, which is a noop.  In other words this usually only
+     does something for infix commands, but note that this is not
+     implemented for the abstract class ‘transient-infix’, so if your
+     class derives from that directly, then you must implement a method.
+
+ -- Function: transient-infix-read obj
+     This generic function determines the new value of the infix object
+     OBJ.
+
+     This function merely determines the value; ‘transient-infix-set’ is
+     used to actually store the new value in the object.
+
+     For most infix classes this is done by reading a value from the
+     user using the reader specified by the ‘reader’ slot (using the
+     ‘transient-infix-value’ method described below).
+
+     For some infix classes the value is changed without reading
+     anything in the minibuffer, i.e., the mere act of invoking the
+     infix command determines what the new value should be, based on the
+     previous value.
+
+ -- Function: transient-prompt obj
+     This generic function returns the prompt to be used to read infix
+     object OBJ’s value.
+
+ -- Function: transient-infix-set obj value
+     This generic function sets the value of infix object OBJ to VALUE.
+
+ -- Function: transient-infix-value obj
+     This generic function returns the value of the suffix object OBJ.
+
+     This function is called by ‘transient-args’ (which see), meaning
+     this function is how the value of a transient is determined so that
+     the invoked suffix command can use it.
+
+     Currently most values are strings, but that is not set in stone.
+     ‘nil’ is not a value, it means “no value”.
+
+     Usually only infixes have a value, but see the method for
+     ‘transient-suffix’.
+
+ -- Function: transient-init-scope obj
+     This generic function sets the scope of the suffix object OBJ.
+
+     The scope is actually a property of the transient prefix, not of
+     individual suffixes.  However it is possible to invoke a suffix
+     command directly instead of from a transient.  In that case, if the
+     suffix expects a scope, then it has to determine that itself and
+     store it in its ‘scope’ slot.
+
+     This function is called for all suffix commands, but unless a
+     concrete method is implemented this falls through to the default
+     implementation, which is a noop.
+
+
+File: transient.info,  Node: Suffix Format Methods,  Prev: Suffix Value Methods,  Up: Suffix Methods
+
+5.5.2 Suffix Format Methods
+---------------------------
+
+ -- Function: transient-format obj
+     This generic function formats and returns OBJ for display.
+
+     When this function is called, then the current buffer is some
+     temporary buffer.  If you need the buffer from which the prefix
+     command was invoked to be current, then do so by temporarily making
+     ‘transient--source-buffer’ current.
+
+ -- Function: transient-format-key obj
+     This generic function formats OBJ’s ‘key’ for display and returns
+     the result.
+
+ -- Function: transient-format-description obj
+     This generic function formats OBJ’s ‘description’ for display and
+     returns the result.
+
+ -- Function: transient-format-value obj
+     This generic function formats OBJ’s value for display and returns
+     the result.
+
+ -- Function: transient-show-help obj
+     Show help for the prefix, infix or suffix command represented by
+     OBJ.
+
+     Regardless of OBJ’s type, if its ‘show-help’ slot is non-nil, that
+     must be a function, which takes OBJ is its only argument.  It must
+     prepare, display and return a buffer, and select the window used to
+     display it.  The ‘transient-show-help-window’ macro is intended for
+     use in such functions.
+
+     For prefixes, show the info manual, if that is specified using the
+     ‘info-manual’ slot.  Otherwise, show the manpage if that is
+     specified using the ‘man-page’ slot.  Otherwise, show the command’s
+     documentation string.
+
+     For suffixes, show the command’s documentation string.
+
+     For infixes, show the manpage if that is specified.  Otherwise show
+     the command’s documentation string.
+
+ -- Macro: transient-with-help-window &rest body
+     Evaluate BODY, send output to ‘*Help*’ buffer, and display it in a
+     window.  Select the help window, and make the help buffer current
+     and return it.
+
+ -- Function: transient-show-summary obj &optional return
+     This generic function shows or, if optional RETURN is non-‘nil’,
+     returns a brief summary about the command at point or hovered with
+     the mouse.
+
+     This function is called when the mouse is moved over a command and
+     (if the value of ‘transient-enable-popup-navigation’ is ‘verbose’)
+     when the user navigates to a command using the keyboard.
+
+     If OBJ’s ‘summary’ slot is a string, that is used.  If ‘summary’ is
+     a function, that is called with OBJ as the only argument and the
+     returned string is used.  If ‘summary’ is or returns something
+     other than a string or nil, no summary is shown.  If ‘summary’ is
+     or returns ‘nil’, the first line of the documentation string is
+     used, if any.
+
+     If RETURN is non-‘nil’, this function returns the summary instead
+     of showing it.  This is used when a tooltip is needed.
+
+
+File: transient.info,  Node: Prefix Slots,  Next: Suffix Slots,  Prev: Suffix Methods,  Up: Classes and Methods
+
+5.6 Prefix Slots
+================
+
+   • ‘show-help’, ‘man-page’ or ‘info-manual’ can be used to specify the
+     documentation for the prefix and its suffixes.  The command
+     ‘transient-help’ uses the function ‘transient-show-help’ (which
+     see) to lookup and use these values.
+
+   • ‘history-key’ If multiple prefix commands should share a single
+     value, then this slot has to be set to the same value for all of
+     them.  You probably don’t want that.
+
+   • ‘transient-suffix’ and ‘transient-non-suffix’ play a part when
+     determining whether the currently active transient prefix command
+     remains active/transient when a suffix or arbitrary non-suffix
+     command is invoked.  See *note Transient State::.
+
+   • ‘refresh-suffixes’ Normally suffix objects and keymaps are only
+     setup once, when the prefix is invoked.  Setting this to ‘t’,
+     causes them to be recreated after every command.  This is useful
+     when using ‘:if...’ predicates, and those need to be rerun for some
+     reason.  Doing this is somewhat costly, and there is a risk of
+     losing state, so this is disabled by default and still considered
+     experimental.
+
+   • ‘incompatible’ A list of lists.  Each sub-list specifies a set of
+     mutually exclusive arguments.  Enabling one of these arguments
+     causes the others to be disabled.  An argument may appear in
+     multiple sub-lists.  Arguments must me given in the same form as
+     used in the ‘argument’ or ‘argument-format’ slot of the respective
+     suffix objects, usually something like ‘--switch’ or ‘--option=%s’.
+     For options and ‘transient-switches’ suffixes it is also possible
+     to match against a specific value, as returned by
+     ‘transient-infix-value’, for example, ‘--option=one’.
+
+   • ‘scope’ For some transients it might be necessary to have a sort of
+     secondary value, called a “scope”.  See ‘transient-define-prefix’.
+
+Internal Prefix Slots
+---------------------
+
+These slots are mostly intended for internal use.  They should not be
+set in calls to ‘transient-define-prefix’.
+
+   • ‘prototype’ When a transient prefix command is invoked, then a
+     clone of that object is stored in the global variable
+     ‘transient--prefix’ and the prototype is stored in the clone’s
+     ‘prototype’ slot.
+
+   • ‘command’ The command, a symbol.  Each transient prefix command
+     consists of a command, which is stored in a symbol’s function slot
+     and an object, which is stored in the ‘transient--prefix’ property
+     of the same symbol.
+
+   • ‘level’ The level of the prefix commands.  The suffix commands
+     whose layer is equal or lower are displayed.  See *note Enabling
+     and Disabling Suffixes::.
+
+   • ‘value’ The likely outdated value of the prefix.  Instead of
+     accessing this slot directly you should use the function
+     ‘transient-get-value’, which is guaranteed to return the up-to-date
+     value.
+
+   • ‘history’ and ‘history-pos’ are used to keep track of historic
+     values.  Unless you implement your own ‘transient-infix-read’
+     method you should not have to deal with these slots.
+
+
+File: transient.info,  Node: Suffix Slots,  Next: Predicate Slots,  Prev: Prefix Slots,  Up: Classes and Methods
+
+5.7 Suffix Slots
+================
+
+Here we document most of the slots that are only available for suffix
+objects.  Some slots are shared by suffix and group objects, they are
+documented in *note Predicate Slots::.
+
+   Also see *note Suffix Classes::.
+
+Slots of ‘transient-suffix’
+---------------------------
+
+   • ‘key’ The key, a key vector or a key description string.
+
+   • ‘command’ The command, a symbol.
+
+   • ‘transient’ Whether to stay transient.  See *note Transient
+     State::.
+
+   • ‘format’ The format used to display the suffix in the popup buffer.
+     It must contain the following %-placeholders:
+
+        • ‘%k’ For the key.
+        • ‘%d’ For the description.
+        • ‘%v’ For the infix value.  Non-infix suffixes don’t have a
+          value.
+
+   • ‘description’ The description, either a string or a function, which
+     is called with zero or one argument (the suffix object), and
+     returns a string.
+
+   • ‘face’ Face used for the description.  In simple cases it is easier
+     to use this instead of using a function as ‘description’ and adding
+     the styling there.  ‘face’ is appended using
+     ‘add-face-text-property’.
+
+   • ‘show-help’ A function used to display help for the suffix.  If
+     unspecified, the prefix controls how help is displayed for its
+     suffixes.  See also function ‘transient-show-help’.
+
+   • ‘summary’ The summary displayed in the echo area, or as a tooltip.
+     If this is ‘nil’, which it usually should be, the first line of the
+     documentation string is used instead.  See ‘transient-show-summary’
+     for details.
+
+Slots of ‘transient-infix’
+--------------------------
+
+Some of these slots are only meaningful for some of the subclasses.
+They are defined here anyway to allow sharing certain methods.
+
+   • ‘argument’ The long argument, e.g., ‘--verbose’.
+
+   • ‘shortarg’ The short argument, e.g., ‘-v’.
+
+   • ‘value’ The value.  Should not be accessed directly.
+
+   • ‘init-value’ Function that is responsible for setting the object’s
+     value.  If bound, then this is called with the object as the only
+     argument.  Usually this is not bound, in which case the object’s
+     primary ‘transient-init-value’ method is called instead.
+
+   • ‘unsavable’ Whether the value of the suffix is not saved as part of
+     the prefixes.
+
+   • ‘multi-value’ For options, whether the option can have multiple
+     values.  If this is non-‘nil’, then the values are read using
+     ‘completing-read-multiple’ by default and if you specify your own
+     reader, then it should read the values using that function or
+     similar.
+
+     Supported non-‘nil’ values are:
+
+        • Use ‘rest’ for an option that can have multiple values.  This
+          is useful e.g., for an ‘--’ argument that indicates that all
+          remaining arguments are files (such as ‘git log -- file1
+          file2’).
+
+          In the list returned by ‘transient-args’ such an option and
+          its values are represented by a single list of the form
+          ‘(ARGUMENT . VALUES)’.
+
+        • Use ‘repeat’ for an option that can be specified multiple
+          times.
+
+          In the list returned by ‘transient-args’ each instance of the
+          option and its value appears separately in the usual from, for
+          example: ‘("--another-argument" "--option=first"
+          "--option=second")’.
+
+     In both cases the option’s values have to be specified in the
+     default value of a prefix using the same format as returned by
+     ‘transient-args’, e.g., ‘("--other" "--o=1" "--o=2" ("--" "f1"
+     "f2"))’.
+
+   • ‘always-read’ For options, whether to read a value on every
+     invocation.  If this is ‘nil’, then options that have a value are
+     simply unset and have to be invoked a second time to set a new
+     value.
+
+   • ‘allow-empty’ For options, whether the empty string is a valid
+     value.
+
+   • ‘history-key’ The key used to store the history.  This defaults to
+     the command name.  This is useful when multiple infixes should
+     share the same history because their values are of the same kind.
+
+   • ‘reader’ The function used to read the value of an infix.  Not used
+     for switches.  The function takes three arguments, PROMPT,
+     INITIAL-INPUT and HISTORY, and must return a string.
+
+   • ‘prompt’ The prompt used when reading the value, either a string or
+     a function that takes the object as the only argument and which
+     returns a prompt string.
+
+   • ‘choices’ A list of valid values, or a function that returns such a
+     list.  The latter is not implemented for ‘transient-switches’,
+     because I couldn’t think of a use-case.  How exactly the choices
+     are used varies depending on the class of the suffix.
+
+Slots of ‘transient-variable’
+-----------------------------
+
+   • ‘variable’ The variable.
+
+Slots of ‘transient-switches’
+-----------------------------
+
+   • ‘argument-format’ The display format.  Must contain ‘%s’, one of
+     the ‘choices’ is substituted for that.  E.g., ‘--%s-order’.
+
+   • ‘argument-regexp’ The regexp used to match any one of the switches.
+     E.g., ‘\\(--\\(topo\\|author-date\\|date\\)-order\\)’.
+
+
+File: transient.info,  Node: Predicate Slots,  Prev: Suffix Slots,  Up: Classes and Methods
+
+5.8 Predicate Slots
+===================
+
+Suffix and group objects share two sets of predicate slots that control
+whether a group or suffix should be available depending on some state.
+Only one slot from each set can be used at the same time.  It is
+undefined which slot is honored if you use more than one.
+
+   Predicates from the first group control whether the suffix is present
+in the menu at all.
+
+   • ‘if’ Enable if predicate returns non-‘nil’.
+   • ‘if-not’ Enable if predicate returns ‘nil’.
+   • ‘if-non-nil’ Enable if variable’s value is non-‘nil’.
+   • ‘if-nil’ Enable if variable’s value is ‘nil’.
+   • ‘if-mode’ Enable if major-mode matches value.
+   • ‘if-not-mode’ Enable if major-mode does not match value.
+   • ‘if-derived’ Enable if major-mode derives from value.
+   • ‘if-not-derived’ Enable if major-mode does not derive from value.
+
+   Predicates from the second group control whether the suffix can be
+invoked.  The suffix is shown in the menu regardless, but when it is
+considered "inapt", then it is grayed out to indicated that it currently
+cannot be invoked.
+
+   • ‘inapt-if’ Inapt if predicate returns non-‘nil’.
+   • ‘inapt-if-not’ Inapt if predicate returns ‘nil’.
+   • ‘inapt-if-non-nil’ Inapt if variable’s value is non-‘nil’.
+   • ‘inapt-if-nil’ Inapt if variable’s value is ‘nil’.
+   • ‘inapt-if-mode’ Inapt if major-mode matches value.
+   • ‘inapt-if-not-mode’ Inapt if major-mode does not match value.
+   • ‘inapt-if-derived’ Inapt if major-mode derives from value.
+   • ‘inapt-if-not-derived’ Inapt if major-mode does not derive from
+     value.
+
+   By default these predicates run when the prefix command is invoked,
+but this can be changes, using the ‘refresh-suffixes’ prefix slot.  See
+*note Prefix Slots::.
+
+   One more slot is shared between group and suffix classes, ‘level’.
+Like the slots documented above, it is a predicate, but it is used for a
+different purpose.  The value has to be an integer between 1 and 7.
+‘level’ controls whether a suffix or a group should be available
+depending on user preference.  See *note Enabling and Disabling
+Suffixes::.
+
+
+File: transient.info,  Node: FAQ,  Next: Keystroke Index,  Prev: Classes and Methods,  Up: Top
+
+Appendix A FAQ
+**************
+
+A.1 Can I control how the popup buffer is displayed?
+====================================================
+
+Yes, see ‘transient-display-buffer-action’ in *note Configuration::.
+
+A.2 How can I copy text from the popup buffer?
+==============================================
+
+To be able to mark text in Transient’s popup buffer using the mouse, you
+have to add the below binding.  Note that for technical reasons, the
+region won’t be visualized, while doing so.  After you have quit the
+transient popup, you will be able to yank it in another buffer.
+
+     (keymap-set transient-predicate-map
+                 "<mouse-set-region>"
+                 #'transient--do-stay)
+
+A.3 How can I autoload prefix and suffix commands?
+==================================================
+
+If your package only supports Emacs 30, just prefix the definition with
+‘;;;###autoload’.  If your package supports released versions of Emacs,
+you unfortunately have to use a long form autoload comment as described
+in *note (elisp)Autoload::.
+
+     ;;;###autoload (autoload 'magit-dispatch "magit" nil t)
+     (transient-define-prefix magit-dispatch ()
+       ...)
+
+A.4 How does Transient compare to prefix keys and universal arguments?
+======================================================================
+
+See
+<https://github.com/magit/transient/wiki/Comparison-with-prefix-keys-and-universal-arguments>.
+
+A.5 How does Transient compare to Magit-Popup and Hydra?
+========================================================
+
+See
+<https://github.com/magit/transient/wiki/Comparison-with-other-packages>.
+
+A.6 Why did some of the key bindings change?
+============================================
+
+You may have noticed that the bindings for some of the common commands
+do *not* have the prefix ‘C-x’ and that furthermore some of these
+commands are grayed out while others are not.  That unfortunately is a
+bit confusing if the section of common commands is not shown
+permanently, making the following explanation necessary.
+
+   The purpose of usually hiding that section but showing it after the
+user pressed the respective prefix key is to conserve space and not
+overwhelm users with too much noise, while allowing the user to quickly
+list common bindings on demand.
+
+   That however should not keep us from using the best possible key
+bindings.  The bindings that do use a prefix do so to avoid wasting too
+many non-prefix bindings, keeping them available for use in individual
+transients.  The bindings that do not use a prefix and that are *not*
+grayed out are very important bindings that are *always* available, even
+when invoking the “common command key prefix” or *any other*
+transient-specific prefix.  The non-prefix keys that *are* grayed out
+however, are not available when any incomplete prefix key sequence is
+active.  They do not use the “common command key prefix” because it is
+likely that users want to invoke them several times in a row and e.g.,
+‘M-p M-p M-p’ is much more convenient than ‘C-x M-p C-x M-p C-x M-p’.
+
+   You may also have noticed that the “Set” command is bound to ‘C-x s’,
+while Magit-Popup used to bind ‘C-c C-c’ instead.  I have seen several
+users praise the latter binding (sic), so I did not change it
+willy-nilly.  The reason that I changed it is that using different
+prefix keys for different common commands, would have made the temporary
+display of the common commands even more confusing, i.e., after pressing
+‘C-c’ all the bindings that begin with the ‘C-x’ prefix would be grayed
+out.
+
+   Using a single prefix for common commands key means that all other
+potential prefix keys can be used for transient-specific commands
+*without* the section of common commands also popping up.  ‘C-c’ in
+particular is a prefix that I want to (and already do) use for Magit,
+and also using that for a common command would prevent me from doing so.
+
+   (See also the next question.)
+
+A.7 Why does ‘q’ not quit popups anymore?
+=========================================
+
+I agree that ‘q’ is a good binding for commands that quit something.
+This includes quitting whatever transient is currently active, but it
+also includes quitting whatever it is that some specific transient is
+controlling.  The transient ‘magit-blame’ for example binds ‘q’ to the
+command that turns ‘magit-blame-mode’ off.
+
+   So I had to decide if ‘q’ should quit the active transient (like
+Magit-Popup used to) or whether ‘C-g’ should do that instead, so that
+‘q’ could be bound in individual transient to whatever commands make
+sense for them.  Because all other letters are already reserved for use
+by individual transients, I have decided to no longer make an exception
+for ‘q’.
+
+   If you want to get ‘q’’s old binding back then you can do so.  Doing
+that is a bit more complicated than changing a single key binding, so I
+have implemented a function, ‘transient-bind-q-to-quit’ that makes the
+necessary changes.  See its documentation string for more information.
+
+
+File: transient.info,  Node: Keystroke Index,  Next: Command and Function Index,  Prev: FAQ,  Up: Top
+
+Appendix B Keystroke Index
+**************************
+
+
+* Menu:
+
+* C-g:                                   Aborting and Resuming Transients.
+                                                               (line 27)
+* C-g <1>:                               Aborting and Resuming Transients.
+                                                               (line 27)
+* C-h:                                   Getting Help for Suffix Commands.
+                                                               (line 11)
+* C-M-n:                                 Using History.        (line 18)
+* C-M-p:                                 Using History.        (line 13)
+* C-q:                                   Aborting and Resuming Transients.
+                                                               (line 36)
+* C-x a:                                 Enabling and Disabling Suffixes.
+                                                               (line 68)
+* C-x C-k:                               Saving Values.        (line 29)
+* C-x C-s:                               Saving Values.        (line 25)
+* C-x l:                                 Enabling and Disabling Suffixes.
+                                                               (line 43)
+* C-x n:                                 Using History.        (line 18)
+* C-x p:                                 Using History.        (line 13)
+* C-x s:                                 Saving Values.        (line 21)
+* C-x t:                                 Common Suffix Commands.
+                                                               (line 18)
+* C-z:                                   Aborting and Resuming Transients.
+                                                               (line 41)
+
+
+File: transient.info,  Node: Command and Function Index,  Next: Variable Index,  Prev: Keystroke Index,  Up: Top
+
+Appendix C Command and Function Index
+*************************************
+
+
+* Menu:
+
+* transient--do-call:                    Transient State.     (line 125)
+* transient--do-exit:                    Transient State.     (line 117)
+* transient--do-leave:                   Transient State.     (line 193)
+* transient--do-quit-all:                Transient State.     (line 205)
+* transient--do-quit-one:                Transient State.     (line 200)
+* transient--do-recurse:                 Transient State.     (line 133)
+* transient--do-replace:                 Transient State.     (line 153)
+* transient--do-return:                  Transient State.     (line 120)
+* transient--do-stack:                   Transient State.     (line 145)
+* transient--do-stay:                    Transient State.     (line 105)
+* transient--do-stay <1>:                Transient State.     (line 190)
+* transient--do-suspend:                 Transient State.     (line 161)
+* transient--do-suspend <1>:             Transient State.     (line 210)
+* transient--do-warn:                    Transient State.     (line 187)
+* transient--history-init:               Prefix Classes.      (line  10)
+* transient--insert-group:               Group Methods.       (line  19)
+* transient-active-prefix:               Using Infix Arguments.
+                                                              (line  61)
+* transient-append-suffix:               Modifying Existing Transients.
+                                                              (line  51)
+* transient-arg-value:                   Using Infix Arguments.
+                                                              (line  31)
+* transient-args:                        Using Infix Arguments.
+                                                              (line  22)
+* transient-define-argument:             Defining Suffix and Infix Commands.
+                                                              (line  57)
+* transient-define-infix:                Defining Suffix and Infix Commands.
+                                                              (line  26)
+* transient-define-prefix:               Defining Transients. (line  13)
+* transient-define-suffix:               Defining Suffix and Infix Commands.
+                                                              (line   9)
+* transient-format:                      Suffix Format Methods.
+                                                              (line   6)
+* transient-format-description:          Suffix Format Methods.
+                                                              (line  18)
+* transient-format-key:                  Suffix Format Methods.
+                                                              (line  14)
+* transient-format-value:                Suffix Format Methods.
+                                                              (line  22)
+* transient-get-suffix:                  Modifying Existing Transients.
+                                                              (line  73)
+* transient-help:                        Getting Help for Suffix Commands.
+                                                              (line  11)
+* transient-history-next:                Using History.       (line  18)
+* transient-history-prev:                Using History.       (line  13)
+* transient-infix-read:                  Suffix Value Methods.
+                                                              (line  16)
+* transient-infix-set:                   Suffix Value Methods.
+                                                              (line  36)
+* transient-infix-value:                 Suffix Value Methods.
+                                                              (line  39)
+* transient-init-scope:                  Suffix Value Methods.
+                                                              (line  52)
+* transient-init-value:                  Suffix Value Methods.
+                                                              (line   6)
+* transient-insert-suffix:               Modifying Existing Transients.
+                                                              (line  49)
+* transient-prompt:                      Suffix Value Methods.
+                                                              (line  32)
+* transient-quit-all:                    Aborting and Resuming Transients.
+                                                              (line  36)
+* transient-quit-one:                    Aborting and Resuming Transients.
+                                                              (line  27)
+* transient-quit-seq:                    Aborting and Resuming Transients.
+                                                              (line  27)
+* transient-remove-suffix:               Modifying Existing Transients.
+                                                              (line  70)
+* transient-replace-suffix:              Modifying Existing Transients.
+                                                              (line  66)
+* transient-reset:                       Saving Values.       (line  29)
+* transient-resume:                      Aborting and Resuming Transients.
+                                                              (line  53)
+* transient-save:                        Saving Values.       (line  25)
+* transient-scroll-down:                 Other Commands.      (line  17)
+* transient-scroll-up:                   Other Commands.      (line  12)
+* transient-set:                         Saving Values.       (line  21)
+* transient-set-level:                   Enabling and Disabling Suffixes.
+                                                              (line  43)
+* transient-setup-children:              Group Methods.       (line   6)
+* transient-show-help:                   Suffix Format Methods.
+                                                              (line  26)
+* transient-show-summary:                Suffix Format Methods.
+                                                              (line  51)
+* transient-suffix-put:                  Modifying Existing Transients.
+                                                              (line  77)
+* transient-suffixes:                    Using Infix Arguments.
+                                                              (line  38)
+* transient-suspend:                     Aborting and Resuming Transients.
+                                                              (line  41)
+* transient-toggle-common:               Common Suffix Commands.
+                                                              (line  18)
+* transient-toggle-level-limit:          Enabling and Disabling Suffixes.
+                                                              (line  68)
+* transient-with-help-window:            Suffix Format Methods.
+                                                              (line  46)
+
+
+File: transient.info,  Node: Variable Index,  Next: Concept Index,  Prev: Command and Function Index,  Up: Top
+
+Appendix D Variable Index
+*************************
+
+
+* Menu:
+
+* transient-align-variable-pitch:        Configuration.       (line 192)
+* transient-current-command:             Using Infix Arguments.
+                                                              (line  52)
+* transient-current-prefix:              Using Infix Arguments.
+                                                              (line  56)
+* transient-current-suffixes:            Using Infix Arguments.
+                                                              (line  44)
+* transient-default-level:               Enabling and Disabling Suffixes.
+                                                              (line  33)
+* transient-detect-key-conflicts:        Configuration.       (line 217)
+* transient-display-buffer-action:       Configuration.       (line  58)
+* transient-enable-popup-navigation:     Configuration.       (line  36)
+* transient-force-fixed-pitch:           Configuration.       (line 205)
+* transient-force-single-column:         Configuration.       (line 100)
+* transient-hide-during-minibuffer-read: Configuration.       (line 188)
+* transient-highlight-higher-levels:     Configuration.       (line 230)
+* transient-highlight-mismatched-keys:   Configuration.       (line 142)
+* transient-history-file:                Using History.       (line  33)
+* transient-history-limit:               Using History.       (line  37)
+* transient-levels-file:                 Enabling and Disabling Suffixes.
+                                                              (line  38)
+* transient-mode-line-format:            Configuration.       (line 109)
+* transient-read-with-initial-input:     Configuration.       (line 181)
+* transient-semantic-coloring:           Configuration.       (line 133)
+* transient-show-common-commands:        Common Suffix Commands.
+                                                              (line  23)
+* transient-show-popup:                  Configuration.       (line  15)
+* transient-substitute-key-function:     Configuration.       (line 160)
+* transient-values-file:                 Saving Values.       (line  31)
+
+
+File: transient.info,  Node: Concept Index,  Next: GNU General Public License,  Prev: Variable Index,  Up: Top
+
+Appendix E Concept Index
+************************
+
+
+* Menu:
+
+* aborting transients:                   Aborting and Resuming Transients.
+                                                               (line  6)
+* classes and methods:                   Classes and Methods.  (line  6)
+* command dispatchers:                   Technical Introduction.
+                                                               (line 39)
+* common suffix commands:                Common Suffix Commands.
+                                                               (line  6)
+* defining infix commands:               Defining Suffix and Infix Commands.
+                                                               (line  6)
+* defining suffix commands:              Defining Suffix and Infix Commands.
+                                                               (line  6)
+* disabling suffixes:                    Enabling and Disabling Suffixes.
+                                                               (line  6)
+* enabling suffixes:                     Enabling and Disabling Suffixes.
+                                                               (line  6)
+* getting help:                          Getting Help for Suffix Commands.
+                                                               (line  6)
+* group specifications:                  Group Specifications. (line  6)
+* invoking transients:                   Invoking Transients.  (line  6)
+* levels:                                Enabling and Disabling Suffixes.
+                                                               (line 10)
+* modifying existing transients:         Modifying Existing Transients.
+                                                               (line  6)
+* quit transient:                        Aborting and Resuming Transients.
+                                                               (line  6)
+* resuming transients:                   Aborting and Resuming Transients.
+                                                               (line  6)
+* saving values of arguments:            Saving Values.        (line  6)
+* scope of a transient:                  Defining Transients.  (line 43)
+* suffix specifications:                 Suffix Specifications.
+                                                               (line  6)
+* transient state:                       Transient State.      (line  6)
+* transient-level:                       Enabling and Disabling Suffixes.
+                                                               (line 15)
+* value history:                         Using History.        (line  6)
+
+
+File: transient.info,  Node: GNU General Public License,  Prev: Concept Index,  Up: Top
+
+Appendix F GNU General Public License
+*************************************
+
+                        Version 3, 29 June 2007
+
+     Copyright © 2007 Free Software Foundation, Inc. <https://fsf.org/>
+
+     Everyone is permitted to copy and distribute verbatim copies of this
+     license document, but changing it is not allowed.
+
+Preamble
+========
+
+The GNU General Public License is a free, copyleft license for software
+and other kinds of works.
+
+   The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program—to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+   When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+   To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+   For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+   Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+   For the developers’ and authors’ protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users’ and
+authors’ sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+   Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users’ freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+   Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+   The precise terms and conditions for copying, distribution and
+modification follow.
+
+TERMS AND CONDITIONS
+====================
+
+  0. Definitions.
+
+     “This License” refers to version 3 of the GNU General Public
+     License.
+
+     “Copyright” also means copyright-like laws that apply to other
+     kinds of works, such as semiconductor masks.
+
+     “The Program” refers to any copyrightable work licensed under this
+     License.  Each licensee is addressed as “you”.  “Licensees” and
+     “recipients” may be individuals or organizations.
+
+     To “modify” a work means to copy from or adapt all or part of the
+     work in a fashion requiring copyright permission, other than the
+     making of an exact copy.  The resulting work is called a “modified
+     version” of the earlier work or a work “based on” the earlier work.
+
+     A “covered work” means either the unmodified Program or a work
+     based on the Program.
+
+     To “propagate” a work means to do anything with it that, without
+     permission, would make you directly or secondarily liable for
+     infringement under applicable copyright law, except executing it on
+     a computer or modifying a private copy.  Propagation includes
+     copying, distribution (with or without modification), making
+     available to the public, and in some countries other activities as
+     well.
+
+     To “convey” a work means any kind of propagation that enables other
+     parties to make or receive copies.  Mere interaction with a user
+     through a computer network, with no transfer of a copy, is not
+     conveying.
+
+     An interactive user interface displays “Appropriate Legal Notices”
+     to the extent that it includes a convenient and prominently visible
+     feature that (1) displays an appropriate copyright notice, and (2)
+     tells the user that there is no warranty for the work (except to
+     the extent that warranties are provided), that licensees may convey
+     the work under this License, and how to view a copy of this
+     License.  If the interface presents a list of user commands or
+     options, such as a menu, a prominent item in the list meets this
+     criterion.
+
+  1. Source Code.
+
+     The “source code” for a work means the preferred form of the work
+     for making modifications to it.  “Object code” means any non-source
+     form of a work.
+
+     A “Standard Interface” means an interface that either is an
+     official standard defined by a recognized standards body, or, in
+     the case of interfaces specified for a particular programming
+     language, one that is widely used among developers working in that
+     language.
+
+     The “System Libraries” of an executable work include anything,
+     other than the work as a whole, that (a) is included in the normal
+     form of packaging a Major Component, but which is not part of that
+     Major Component, and (b) serves only to enable use of the work with
+     that Major Component, or to implement a Standard Interface for
+     which an implementation is available to the public in source code
+     form.  A “Major Component”, in this context, means a major
+     essential component (kernel, window system, and so on) of the
+     specific operating system (if any) on which the executable work
+     runs, or a compiler used to produce the work, or an object code
+     interpreter used to run it.
+
+     The “Corresponding Source” for a work in object code form means all
+     the source code needed to generate, install, and (for an executable
+     work) run the object code and to modify the work, including scripts
+     to control those activities.  However, it does not include the
+     work’s System Libraries, or general-purpose tools or generally
+     available free programs which are used unmodified in performing
+     those activities but which are not part of the work.  For example,
+     Corresponding Source includes interface definition files associated
+     with source files for the work, and the source code for shared
+     libraries and dynamically linked subprograms that the work is
+     specifically designed to require, such as by intimate data
+     communication or control flow between those subprograms and other
+     parts of the work.
+
+     The Corresponding Source need not include anything that users can
+     regenerate automatically from other parts of the Corresponding
+     Source.
+
+     The Corresponding Source for a work in source code form is that
+     same work.
+
+  2. Basic Permissions.
+
+     All rights granted under this License are granted for the term of
+     copyright on the Program, and are irrevocable provided the stated
+     conditions are met.  This License explicitly affirms your unlimited
+     permission to run the unmodified Program.  The output from running
+     a covered work is covered by this License only if the output, given
+     its content, constitutes a covered work.  This License acknowledges
+     your rights of fair use or other equivalent, as provided by
+     copyright law.
+
+     You may make, run and propagate covered works that you do not
+     convey, without conditions so long as your license otherwise
+     remains in force.  You may convey covered works to others for the
+     sole purpose of having them make modifications exclusively for you,
+     or provide you with facilities for running those works, provided
+     that you comply with the terms of this License in conveying all
+     material for which you do not control copyright.  Those thus making
+     or running the covered works for you must do so exclusively on your
+     behalf, under your direction and control, on terms that prohibit
+     them from making any copies of your copyrighted material outside
+     their relationship with you.
+
+     Conveying under any other circumstances is permitted solely under
+     the conditions stated below.  Sublicensing is not allowed; section
+     10 makes it unnecessary.
+
+  3. Protecting Users’ Legal Rights From Anti-Circumvention Law.
+
+     No covered work shall be deemed part of an effective technological
+     measure under any applicable law fulfilling obligations under
+     article 11 of the WIPO copyright treaty adopted on 20 December
+     1996, or similar laws prohibiting or restricting circumvention of
+     such measures.
+
+     When you convey a covered work, you waive any legal power to forbid
+     circumvention of technological measures to the extent such
+     circumvention is effected by exercising rights under this License
+     with respect to the covered work, and you disclaim any intention to
+     limit operation or modification of the work as a means of
+     enforcing, against the work’s users, your or third parties’ legal
+     rights to forbid circumvention of technological measures.
+
+  4. Conveying Verbatim Copies.
+
+     You may convey verbatim copies of the Program’s source code as you
+     receive it, in any medium, provided that you conspicuously and
+     appropriately publish on each copy an appropriate copyright notice;
+     keep intact all notices stating that this License and any
+     non-permissive terms added in accord with section 7 apply to the
+     code; keep intact all notices of the absence of any warranty; and
+     give all recipients a copy of this License along with the Program.
+
+     You may charge any price or no price for each copy that you convey,
+     and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+     You may convey a work based on the Program, or the modifications to
+     produce it from the Program, in the form of source code under the
+     terms of section 4, provided that you also meet all of these
+     conditions:
+
+       a. The work must carry prominent notices stating that you
+          modified it, and giving a relevant date.
+
+       b. The work must carry prominent notices stating that it is
+          released under this License and any conditions added under
+          section 7.  This requirement modifies the requirement in
+          section 4 to “keep intact all notices”.
+
+       c. You must license the entire work, as a whole, under this
+          License to anyone who comes into possession of a copy.  This
+          License will therefore apply, along with any applicable
+          section 7 additional terms, to the whole of the work, and all
+          its parts, regardless of how they are packaged.  This License
+          gives no permission to license the work in any other way, but
+          it does not invalidate such permission if you have separately
+          received it.
+
+       d. If the work has interactive user interfaces, each must display
+          Appropriate Legal Notices; however, if the Program has
+          interactive interfaces that do not display Appropriate Legal
+          Notices, your work need not make them do so.
+
+     A compilation of a covered work with other separate and independent
+     works, which are not by their nature extensions of the covered
+     work, and which are not combined with it such as to form a larger
+     program, in or on a volume of a storage or distribution medium, is
+     called an “aggregate” if the compilation and its resulting
+     copyright are not used to limit the access or legal rights of the
+     compilation’s users beyond what the individual works permit.
+     Inclusion of a covered work in an aggregate does not cause this
+     License to apply to the other parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+     You may convey a covered work in object code form under the terms
+     of sections 4 and 5, provided that you also convey the
+     machine-readable Corresponding Source under the terms of this
+     License, in one of these ways:
+
+       a. Convey the object code in, or embodied in, a physical product
+          (including a physical distribution medium), accompanied by the
+          Corresponding Source fixed on a durable physical medium
+          customarily used for software interchange.
+
+       b. Convey the object code in, or embodied in, a physical product
+          (including a physical distribution medium), accompanied by a
+          written offer, valid for at least three years and valid for as
+          long as you offer spare parts or customer support for that
+          product model, to give anyone who possesses the object code
+          either (1) a copy of the Corresponding Source for all the
+          software in the product that is covered by this License, on a
+          durable physical medium customarily used for software
+          interchange, for a price no more than your reasonable cost of
+          physically performing this conveying of source, or (2) access
+          to copy the Corresponding Source from a network server at no
+          charge.
+
+       c. Convey individual copies of the object code with a copy of the
+          written offer to provide the Corresponding Source.  This
+          alternative is allowed only occasionally and noncommercially,
+          and only if you received the object code with such an offer,
+          in accord with subsection 6b.
+
+       d. Convey the object code by offering access from a designated
+          place (gratis or for a charge), and offer equivalent access to
+          the Corresponding Source in the same way through the same
+          place at no further charge.  You need not require recipients
+          to copy the Corresponding Source along with the object code.
+          If the place to copy the object code is a network server, the
+          Corresponding Source may be on a different server (operated by
+          you or a third party) that supports equivalent copying
+          facilities, provided you maintain clear directions next to the
+          object code saying where to find the Corresponding Source.
+          Regardless of what server hosts the Corresponding Source, you
+          remain obligated to ensure that it is available for as long as
+          needed to satisfy these requirements.
+
+       e. Convey the object code using peer-to-peer transmission,
+          provided you inform other peers where the object code and
+          Corresponding Source of the work are being offered to the
+          general public at no charge under subsection 6d.
+
+     A separable portion of the object code, whose source code is
+     excluded from the Corresponding Source as a System Library, need
+     not be included in conveying the object code work.
+
+     A “User Product” is either (1) a “consumer product”, which means
+     any tangible personal property which is normally used for personal,
+     family, or household purposes, or (2) anything designed or sold for
+     incorporation into a dwelling.  In determining whether a product is
+     a consumer product, doubtful cases shall be resolved in favor of
+     coverage.  For a particular product received by a particular user,
+     “normally used” refers to a typical or common use of that class of
+     product, regardless of the status of the particular user or of the
+     way in which the particular user actually uses, or expects or is
+     expected to use, the product.  A product is a consumer product
+     regardless of whether the product has substantial commercial,
+     industrial or non-consumer uses, unless such uses represent the
+     only significant mode of use of the product.
+
+     “Installation Information” for a User Product means any methods,
+     procedures, authorization keys, or other information required to
+     install and execute modified versions of a covered work in that
+     User Product from a modified version of its Corresponding Source.
+     The information must suffice to ensure that the continued
+     functioning of the modified object code is in no case prevented or
+     interfered with solely because modification has been made.
+
+     If you convey an object code work under this section in, or with,
+     or specifically for use in, a User Product, and the conveying
+     occurs as part of a transaction in which the right of possession
+     and use of the User Product is transferred to the recipient in
+     perpetuity or for a fixed term (regardless of how the transaction
+     is characterized), the Corresponding Source conveyed under this
+     section must be accompanied by the Installation Information.  But
+     this requirement does not apply if neither you nor any third party
+     retains the ability to install modified object code on the User
+     Product (for example, the work has been installed in ROM).
+
+     The requirement to provide Installation Information does not
+     include a requirement to continue to provide support service,
+     warranty, or updates for a work that has been modified or installed
+     by the recipient, or for the User Product in which it has been
+     modified or installed.  Access to a network may be denied when the
+     modification itself materially and adversely affects the operation
+     of the network or violates the rules and protocols for
+     communication across the network.
+
+     Corresponding Source conveyed, and Installation Information
+     provided, in accord with this section must be in a format that is
+     publicly documented (and with an implementation available to the
+     public in source code form), and must require no special password
+     or key for unpacking, reading or copying.
+
+  7. Additional Terms.
+
+     “Additional permissions” are terms that supplement the terms of
+     this License by making exceptions from one or more of its
+     conditions.  Additional permissions that are applicable to the
+     entire Program shall be treated as though they were included in
+     this License, to the extent that they are valid under applicable
+     law.  If additional permissions apply only to part of the Program,
+     that part may be used separately under those permissions, but the
+     entire Program remains governed by this License without regard to
+     the additional permissions.
+
+     When you convey a copy of a covered work, you may at your option
+     remove any additional permissions from that copy, or from any part
+     of it.  (Additional permissions may be written to require their own
+     removal in certain cases when you modify the work.)  You may place
+     additional permissions on material, added by you to a covered work,
+     for which you have or can give appropriate copyright permission.
+
+     Notwithstanding any other provision of this License, for material
+     you add to a covered work, you may (if authorized by the copyright
+     holders of that material) supplement the terms of this License with
+     terms:
+
+       a. Disclaiming warranty or limiting liability differently from
+          the terms of sections 15 and 16 of this License; or
+
+       b. Requiring preservation of specified reasonable legal notices
+          or author attributions in that material or in the Appropriate
+          Legal Notices displayed by works containing it; or
+
+       c. Prohibiting misrepresentation of the origin of that material,
+          or requiring that modified versions of such material be marked
+          in reasonable ways as different from the original version; or
+
+       d. Limiting the use for publicity purposes of names of licensors
+          or authors of the material; or
+
+       e. Declining to grant rights under trademark law for use of some
+          trade names, trademarks, or service marks; or
+
+       f. Requiring indemnification of licensors and authors of that
+          material by anyone who conveys the material (or modified
+          versions of it) with contractual assumptions of liability to
+          the recipient, for any liability that these contractual
+          assumptions directly impose on those licensors and authors.
+
+     All other non-permissive additional terms are considered “further
+     restrictions” within the meaning of section 10.  If the Program as
+     you received it, or any part of it, contains a notice stating that
+     it is governed by this License along with a term that is a further
+     restriction, you may remove that term.  If a license document
+     contains a further restriction but permits relicensing or conveying
+     under this License, you may add to a covered work material governed
+     by the terms of that license document, provided that the further
+     restriction does not survive such relicensing or conveying.
+
+     If you add terms to a covered work in accord with this section, you
+     must place, in the relevant source files, a statement of the
+     additional terms that apply to those files, or a notice indicating
+     where to find the applicable terms.
+
+     Additional terms, permissive or non-permissive, may be stated in
+     the form of a separately written license, or stated as exceptions;
+     the above requirements apply either way.
+
+  8. Termination.
+
+     You may not propagate or modify a covered work except as expressly
+     provided under this License.  Any attempt otherwise to propagate or
+     modify it is void, and will automatically terminate your rights
+     under this License (including any patent licenses granted under the
+     third paragraph of section 11).
+
+     However, if you cease all violation of this License, then your
+     license from a particular copyright holder is reinstated (a)
+     provisionally, unless and until the copyright holder explicitly and
+     finally terminates your license, and (b) permanently, if the
+     copyright holder fails to notify you of the violation by some
+     reasonable means prior to 60 days after the cessation.
+
+     Moreover, your license from a particular copyright holder is
+     reinstated permanently if the copyright holder notifies you of the
+     violation by some reasonable means, this is the first time you have
+     received notice of violation of this License (for any work) from
+     that copyright holder, and you cure the violation prior to 30 days
+     after your receipt of the notice.
+
+     Termination of your rights under this section does not terminate
+     the licenses of parties who have received copies or rights from you
+     under this License.  If your rights have been terminated and not
+     permanently reinstated, you do not qualify to receive new licenses
+     for the same material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+     You are not required to accept this License in order to receive or
+     run a copy of the Program.  Ancillary propagation of a covered work
+     occurring solely as a consequence of using peer-to-peer
+     transmission to receive a copy likewise does not require
+     acceptance.  However, nothing other than this License grants you
+     permission to propagate or modify any covered work.  These actions
+     infringe copyright if you do not accept this License.  Therefore,
+     by modifying or propagating a covered work, you indicate your
+     acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+     Each time you convey a covered work, the recipient automatically
+     receives a license from the original licensors, to run, modify and
+     propagate that work, subject to this License.  You are not
+     responsible for enforcing compliance by third parties with this
+     License.
+
+     An “entity transaction” is a transaction transferring control of an
+     organization, or substantially all assets of one, or subdividing an
+     organization, or merging organizations.  If propagation of a
+     covered work results from an entity transaction, each party to that
+     transaction who receives a copy of the work also receives whatever
+     licenses to the work the party’s predecessor in interest had or
+     could give under the previous paragraph, plus a right to possession
+     of the Corresponding Source of the work from the predecessor in
+     interest, if the predecessor has it or can get it with reasonable
+     efforts.
+
+     You may not impose any further restrictions on the exercise of the
+     rights granted or affirmed under this License.  For example, you
+     may not impose a license fee, royalty, or other charge for exercise
+     of rights granted under this License, and you may not initiate
+     litigation (including a cross-claim or counterclaim in a lawsuit)
+     alleging that any patent claim is infringed by making, using,
+     selling, offering for sale, or importing the Program or any portion
+     of it.
+
+  11. Patents.
+
+     A “contributor” is a copyright holder who authorizes use under this
+     License of the Program or a work on which the Program is based.
+     The work thus licensed is called the contributor’s “contributor
+     version”.
+
+     A contributor’s “essential patent claims” are all patent claims
+     owned or controlled by the contributor, whether already acquired or
+     hereafter acquired, that would be infringed by some manner,
+     permitted by this License, of making, using, or selling its
+     contributor version, but do not include claims that would be
+     infringed only as a consequence of further modification of the
+     contributor version.  For purposes of this definition, “control”
+     includes the right to grant patent sublicenses in a manner
+     consistent with the requirements of this License.
+
+     Each contributor grants you a non-exclusive, worldwide,
+     royalty-free patent license under the contributor’s essential
+     patent claims, to make, use, sell, offer for sale, import and
+     otherwise run, modify and propagate the contents of its contributor
+     version.
+
+     In the following three paragraphs, a “patent license” is any
+     express agreement or commitment, however denominated, not to
+     enforce a patent (such as an express permission to practice a
+     patent or covenant not to sue for patent infringement).  To “grant”
+     such a patent license to a party means to make such an agreement or
+     commitment not to enforce a patent against the party.
+
+     If you convey a covered work, knowingly relying on a patent
+     license, and the Corresponding Source of the work is not available
+     for anyone to copy, free of charge and under the terms of this
+     License, through a publicly available network server or other
+     readily accessible means, then you must either (1) cause the
+     Corresponding Source to be so available, or (2) arrange to deprive
+     yourself of the benefit of the patent license for this particular
+     work, or (3) arrange, in a manner consistent with the requirements
+     of this License, to extend the patent license to downstream
+     recipients.  “Knowingly relying” means you have actual knowledge
+     that, but for the patent license, your conveying the covered work
+     in a country, or your recipient’s use of the covered work in a
+     country, would infringe one or more identifiable patents in that
+     country that you have reason to believe are valid.
+
+     If, pursuant to or in connection with a single transaction or
+     arrangement, you convey, or propagate by procuring conveyance of, a
+     covered work, and grant a patent license to some of the parties
+     receiving the covered work authorizing them to use, propagate,
+     modify or convey a specific copy of the covered work, then the
+     patent license you grant is automatically extended to all
+     recipients of the covered work and works based on it.
+
+     A patent license is “discriminatory” if it does not include within
+     the scope of its coverage, prohibits the exercise of, or is
+     conditioned on the non-exercise of one or more of the rights that
+     are specifically granted under this License.  You may not convey a
+     covered work if you are a party to an arrangement with a third
+     party that is in the business of distributing software, under which
+     you make payment to the third party based on the extent of your
+     activity of conveying the work, and under which the third party
+     grants, to any of the parties who would receive the covered work
+     from you, a discriminatory patent license (a) in connection with
+     copies of the covered work conveyed by you (or copies made from
+     those copies), or (b) primarily for and in connection with specific
+     products or compilations that contain the covered work, unless you
+     entered into that arrangement, or that patent license was granted,
+     prior to 28 March 2007.
+
+     Nothing in this License shall be construed as excluding or limiting
+     any implied license or other defenses to infringement that may
+     otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others’ Freedom.
+
+     If conditions are imposed on you (whether by court order, agreement
+     or otherwise) that contradict the conditions of this License, they
+     do not excuse you from the conditions of this License.  If you
+     cannot convey a covered work so as to satisfy simultaneously your
+     obligations under this License and any other pertinent obligations,
+     then as a consequence you may not convey it at all.  For example,
+     if you agree to terms that obligate you to collect a royalty for
+     further conveying from those to whom you convey the Program, the
+     only way you could satisfy both those terms and this License would
+     be to refrain entirely from conveying the Program.
+
+  13. Use with the GNU Affero General Public License.
+
+     Notwithstanding any other provision of this License, you have
+     permission to link or combine any covered work with a work licensed
+     under version 3 of the GNU Affero General Public License into a
+     single combined work, and to convey the resulting work.  The terms
+     of this License will continue to apply to the part which is the
+     covered work, but the special requirements of the GNU Affero
+     General Public License, section 13, concerning interaction through
+     a network will apply to the combination as such.
+
+  14. Revised Versions of this License.
+
+     The Free Software Foundation may publish revised and/or new
+     versions of the GNU General Public License from time to time.  Such
+     new versions will be similar in spirit to the present version, but
+     may differ in detail to address new problems or concerns.
+
+     Each version is given a distinguishing version number.  If the
+     Program specifies that a certain numbered version of the GNU
+     General Public License “or any later version” applies to it, you
+     have the option of following the terms and conditions either of
+     that numbered version or of any later version published by the Free
+     Software Foundation.  If the Program does not specify a version
+     number of the GNU General Public License, you may choose any
+     version ever published by the Free Software Foundation.
+
+     If the Program specifies that a proxy can decide which future
+     versions of the GNU General Public License can be used, that
+     proxy’s public statement of acceptance of a version permanently
+     authorizes you to choose that version for the Program.
+
+     Later license versions may give you additional or different
+     permissions.  However, no additional obligations are imposed on any
+     author or copyright holder as a result of your choosing to follow a
+     later version.
+
+  15. Disclaimer of Warranty.
+
+     THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+     APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE
+     COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM “AS IS”
+     WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
+     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE
+     RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.
+     SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
+     NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+     IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+     WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES
+     AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR
+     DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+     CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
+     THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA
+     BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+     PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+     PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF
+     THE POSSIBILITY OF SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+     If the disclaimer of warranty and limitation of liability provided
+     above cannot be given local legal effect according to their terms,
+     reviewing courts shall apply local law that most closely
+     approximates an absolute waiver of all civil liability in
+     connection with the Program, unless a warranty or assumption of
+     liability accompanies a copy of the Program in return for a fee.
+
+END OF TERMS AND CONDITIONS
+===========================
+
+How to Apply These Terms to Your New Programs
+=============================================
+
+If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these
+terms.
+
+   To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least the
+“copyright” line and a pointer to where the full notice is found.
+
+     ONE LINE TO GIVE THE PROGRAM'S NAME AND A BRIEF IDEA OF WHAT IT DOES.
+     Copyright (C) YEAR NAME OF AUTHOR
+
+     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
+     the Free Software Foundation, either version 3 of the License, or (at
+     your option) any later version.
+
+     This program is distributed in the hope that it will be useful, but
+     WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+     General Public License for more details.
+
+     You should have received a copy of the GNU General Public License
+     along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+   Also add information on how to contact you by electronic and paper
+mail.
+
+   If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+     PROGRAM Copyright (C) YEAR NAME OF AUTHOR
+     This program comes with ABSOLUTELY NO WARRANTY; for details type ‘show w’.
+     This is free software, and you are welcome to redistribute it
+     under certain conditions; type ‘show c’ for details.
+
+   The hypothetical commands ‘show w’ and ‘show c’ should show the
+appropriate parts of the General Public License.  Of course, your
+program’s commands might be different; for a GUI interface, you would
+use an “about box”.
+
+   You should also get your employer (if you work as a programmer) or
+school, if any, to sign a “copyright disclaimer” for the program, if
+necessary.  For more information on this, and how to apply and follow
+the GNU GPL, see <https://www.gnu.org/licenses/>.
+
+   The GNU General Public License does not permit incorporating your
+program into proprietary programs.  If your program is a subroutine
+library, you may consider it more useful to permit linking proprietary
+applications with the library.  If this is what you want to do, use the
+GNU Lesser General Public License instead of this License.  But first,
+please read <https://www.gnu.org/licenses/why-not-lgpl.html>.
+
+
+
+Tag Table:
+Node: Top763
+Node: Introduction2976
+Ref: Some things that Transient can do3504
+Ref: Complexity in CLI programs3857
+Ref: Using Transient for composing interactive commands4458
+Node: Usage6700
+Node: Invoking Transients7068
+Node: Aborting and Resuming Transients8147
+Node: Common Suffix Commands10768
+Node: Saving Values12604
+Ref: Saving Values-Footnote-113975
+Node: Using History14168
+Node: Getting Help for Suffix Commands15742
+Node: Enabling and Disabling Suffixes17120
+Node: Other Commands20408
+Node: Configuration21384
+Ref: Essential Options21664
+Ref: Accessibility Options25732
+Ref: Auxiliary Options26055
+Ref: Developer Options31011
+Node: Modifying Existing Transients32259
+Node: Defining New Commands36451
+Node: Technical Introduction36814
+Node: Defining Transients42515
+Node: Binding Suffix and Infix Commands44982
+Node: Group Specifications45840
+Node: Suffix Specifications52391
+Node: Defining Suffix and Infix Commands56604
+Node: Using Infix Arguments59652
+Node: Transient State63289
+Ref: Pre-commands for Infixes68104
+Ref: Pre-commands for Suffixes68624
+Ref: Pre-commands for Non-Suffixes71078
+Ref: Special Pre-Commands72214
+Node: Classes and Methods72722
+Node: Group Classes74906
+Node: Group Methods76833
+Node: Prefix Classes78086
+Node: Suffix Classes79177
+Node: Suffix Methods82289
+Node: Suffix Value Methods82610
+Node: Suffix Format Methods85368
+Node: Prefix Slots88358
+Ref: Internal Prefix Slots90495
+Node: Suffix Slots91752
+Ref: Slots of transient-suffix92120
+Ref: Slots of transient-infix93554
+Ref: Slots of transient-variable96850
+Ref: Slots of transient-switches96952
+Node: Predicate Slots97315
+Node: FAQ99660
+Ref: Can I control how the popup buffer is displayed?99789
+Ref: How can I copy text from the popup buffer?99970
+Ref: How can I autoload prefix and suffix commands?100464
+Ref: How does Transient compare to prefix keys and universal arguments?100938
+Ref: How does Transient compare to Magit-Popup and Hydra?101181
+Ref: Why did some of the key bindings change?101375
+Ref: Why does q not quit popups anymore?103728
+Node: Keystroke Index104831
+Node: Command and Function Index106696
+Node: Variable Index113699
+Node: Concept Index115972
+Node: GNU General Public License118708
+
+End Tag Table
+
+
+Local Variables:
+coding: utf-8
+End:
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeCache.txt b/emacs/elpa/vterm-20241118.1627/build/CMakeCache.txt
@@ -0,0 +1,357 @@
+# This is the CMakeCache file.
+# For build in directory: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+# It was generated by CMake: /usr/bin/cmake
+# You can edit this file to change values found and used by cmake.
+# If you do not want to change any of the values, simply exit the editor.
+# If you do want to change a value, simply edit, save, and exit the editor.
+# The syntax for the file is as follows:
+# KEY:TYPE=VALUE
+# KEY is the name of a variable in the cache.
+# TYPE is a hint to GUIs for the type of VALUE, DO NOT EDIT TYPE!.
+# VALUE is the current value for the KEY.
+
+########################
+# EXTERNAL cache entries
+########################
+
+//Path to a program.
+CMAKE_ADDR2LINE:FILEPATH=/usr/bin/addr2line
+
+//Path to a program.
+CMAKE_AR:FILEPATH=/usr/bin/ar
+
+//Build type (default RelWithDebInfo)
+CMAKE_BUILD_TYPE:STRING=RelWithDebInfo
+
+//Enable/Disable color output during build.
+CMAKE_COLOR_MAKEFILE:BOOL=ON
+
+//C compiler
+CMAKE_C_COMPILER:FILEPATH=/usr/bin/cc
+
+//A wrapper around 'ar' adding the appropriate '--plugin' option
+// for the GCC compiler
+CMAKE_C_COMPILER_AR:FILEPATH=/usr/bin/gcc-ar
+
+//A wrapper around 'ranlib' adding the appropriate '--plugin' option
+// for the GCC compiler
+CMAKE_C_COMPILER_RANLIB:FILEPATH=/usr/bin/gcc-ranlib
+
+//Flags used by the C compiler during all build types.
+CMAKE_C_FLAGS:STRING=
+
+//Flags used by the C compiler during DEBUG builds.
+CMAKE_C_FLAGS_DEBUG:STRING=-g
+
+//Flags used by the C compiler during MINSIZEREL builds.
+CMAKE_C_FLAGS_MINSIZEREL:STRING=-Os -DNDEBUG
+
+//Flags used by the C compiler during RELEASE builds.
+CMAKE_C_FLAGS_RELEASE:STRING=-O3 -DNDEBUG
+
+//Flags used by the C compiler during RELWITHDEBINFO builds.
+CMAKE_C_FLAGS_RELWITHDEBINFO:STRING=-O2 -g -DNDEBUG
+
+//Path to a program.
+CMAKE_DLLTOOL:FILEPATH=CMAKE_DLLTOOL-NOTFOUND
+
+//Flags used by the linker during all build types.
+CMAKE_EXE_LINKER_FLAGS:STRING=
+
+//Flags used by the linker during DEBUG builds.
+CMAKE_EXE_LINKER_FLAGS_DEBUG:STRING=
+
+//Flags used by the linker during MINSIZEREL builds.
+CMAKE_EXE_LINKER_FLAGS_MINSIZEREL:STRING=
+
+//Flags used by the linker during RELEASE builds.
+CMAKE_EXE_LINKER_FLAGS_RELEASE:STRING=
+
+//Flags used by the linker during RELWITHDEBINFO builds.
+CMAKE_EXE_LINKER_FLAGS_RELWITHDEBINFO:STRING=
+
+//Enable/Disable output of compile commands during generation.
+CMAKE_EXPORT_COMPILE_COMMANDS:BOOL=
+
+//Value Computed by CMake.
+CMAKE_FIND_PACKAGE_REDIRECTS_DIR:STATIC=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/pkgRedirects
+
+//Install path prefix, prepended onto install directories.
+CMAKE_INSTALL_PREFIX:PATH=/usr/local
+
+//Path to a program.
+CMAKE_LINKER:FILEPATH=/usr/bin/ld
+
+//Path to a program.
+CMAKE_MAKE_PROGRAM:FILEPATH=/usr/bin/make
+
+//Flags used by the linker during the creation of modules during
+// all build types.
+CMAKE_MODULE_LINKER_FLAGS:STRING=
+
+//Flags used by the linker during the creation of modules during
+// DEBUG builds.
+CMAKE_MODULE_LINKER_FLAGS_DEBUG:STRING=
+
+//Flags used by the linker during the creation of modules during
+// MINSIZEREL builds.
+CMAKE_MODULE_LINKER_FLAGS_MINSIZEREL:STRING=
+
+//Flags used by the linker during the creation of modules during
+// RELEASE builds.
+CMAKE_MODULE_LINKER_FLAGS_RELEASE:STRING=
+
+//Flags used by the linker during the creation of modules during
+// RELWITHDEBINFO builds.
+CMAKE_MODULE_LINKER_FLAGS_RELWITHDEBINFO:STRING=
+
+//Path to a program.
+CMAKE_NM:FILEPATH=/usr/bin/nm
+
+//Path to a program.
+CMAKE_OBJCOPY:FILEPATH=/usr/bin/objcopy
+
+//Path to a program.
+CMAKE_OBJDUMP:FILEPATH=/usr/bin/objdump
+
+//Value Computed by CMake
+CMAKE_PROJECT_DESCRIPTION:STATIC=
+
+//Value Computed by CMake
+CMAKE_PROJECT_HOMEPAGE_URL:STATIC=
+
+//Value Computed by CMake
+CMAKE_PROJECT_NAME:STATIC=emacs-libvterm
+
+//Path to a program.
+CMAKE_RANLIB:FILEPATH=/usr/bin/ranlib
+
+//Path to a program.
+CMAKE_READELF:FILEPATH=/usr/bin/readelf
+
+//Flags used by the linker during the creation of shared libraries
+// during all build types.
+CMAKE_SHARED_LINKER_FLAGS:STRING=
+
+//Flags used by the linker during the creation of shared libraries
+// during DEBUG builds.
+CMAKE_SHARED_LINKER_FLAGS_DEBUG:STRING=
+
+//Flags used by the linker during the creation of shared libraries
+// during MINSIZEREL builds.
+CMAKE_SHARED_LINKER_FLAGS_MINSIZEREL:STRING=
+
+//Flags used by the linker during the creation of shared libraries
+// during RELEASE builds.
+CMAKE_SHARED_LINKER_FLAGS_RELEASE:STRING=
+
+//Flags used by the linker during the creation of shared libraries
+// during RELWITHDEBINFO builds.
+CMAKE_SHARED_LINKER_FLAGS_RELWITHDEBINFO:STRING=
+
+//If set, runtime paths are not added when installing shared libraries,
+// but are added when building.
+CMAKE_SKIP_INSTALL_RPATH:BOOL=NO
+
+//If set, runtime paths are not added when using shared libraries.
+CMAKE_SKIP_RPATH:BOOL=NO
+
+//Flags used by the linker during the creation of static libraries
+// during all build types.
+CMAKE_STATIC_LINKER_FLAGS:STRING=
+
+//Flags used by the linker during the creation of static libraries
+// during DEBUG builds.
+CMAKE_STATIC_LINKER_FLAGS_DEBUG:STRING=
+
+//Flags used by the linker during the creation of static libraries
+// during MINSIZEREL builds.
+CMAKE_STATIC_LINKER_FLAGS_MINSIZEREL:STRING=
+
+//Flags used by the linker during the creation of static libraries
+// during RELEASE builds.
+CMAKE_STATIC_LINKER_FLAGS_RELEASE:STRING=
+
+//Flags used by the linker during the creation of static libraries
+// during RELWITHDEBINFO builds.
+CMAKE_STATIC_LINKER_FLAGS_RELWITHDEBINFO:STRING=
+
+//Path to a program.
+CMAKE_STRIP:FILEPATH=/usr/bin/strip
+
+//Path to a program.
+CMAKE_TAPI:FILEPATH=CMAKE_TAPI-NOTFOUND
+
+//If this value is on, makefiles will be generated without the
+// .SILENT directive, and all commands will be echoed to the console
+// during the make.  This is useful for debugging only. With Visual
+// Studio IDE projects all commands are done without /nologo.
+CMAKE_VERBOSE_MAKEFILE:BOOL=FALSE
+
+//Git command line client
+GIT_EXECUTABLE:FILEPATH=/usr/bin/git
+
+//Path to a program.
+LIBTOOL:FILEPATH=/usr/bin/libtool
+
+//Path to a file.
+LIBVTERM_INCLUDE_DIR:PATH=LIBVTERM_INCLUDE_DIR-NOTFOUND
+
+//Use system libvterm instead of the vendored version.
+USE_SYSTEM_LIBVTERM:BOOL=ON
+
+//Value Computed by CMake
+emacs-libvterm_BINARY_DIR:STATIC=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+//Value Computed by CMake
+emacs-libvterm_IS_TOP_LEVEL:STATIC=ON
+
+//Value Computed by CMake
+emacs-libvterm_SOURCE_DIR:STATIC=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+//Dependencies for the target
+vterm-module_LIB_DEPENDS:STATIC=general;vterm;
+
+
+########################
+# INTERNAL cache entries
+########################
+
+//ADVANCED property for variable: CMAKE_ADDR2LINE
+CMAKE_ADDR2LINE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_AR
+CMAKE_AR-ADVANCED:INTERNAL=1
+//This is the directory where this CMakeCache.txt was created
+CMAKE_CACHEFILE_DIR:INTERNAL=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+//Major version of cmake used to create the current loaded cache
+CMAKE_CACHE_MAJOR_VERSION:INTERNAL=3
+//Minor version of cmake used to create the current loaded cache
+CMAKE_CACHE_MINOR_VERSION:INTERNAL=31
+//Patch version of cmake used to create the current loaded cache
+CMAKE_CACHE_PATCH_VERSION:INTERNAL=0
+//ADVANCED property for variable: CMAKE_COLOR_MAKEFILE
+CMAKE_COLOR_MAKEFILE-ADVANCED:INTERNAL=1
+//Path to CMake executable.
+CMAKE_COMMAND:INTERNAL=/usr/bin/cmake
+//Path to cpack program executable.
+CMAKE_CPACK_COMMAND:INTERNAL=/usr/bin/cpack
+//Path to ctest program executable.
+CMAKE_CTEST_COMMAND:INTERNAL=/usr/bin/ctest
+//ADVANCED property for variable: CMAKE_C_COMPILER
+CMAKE_C_COMPILER-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_COMPILER_AR
+CMAKE_C_COMPILER_AR-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_COMPILER_RANLIB
+CMAKE_C_COMPILER_RANLIB-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_FLAGS
+CMAKE_C_FLAGS-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_FLAGS_DEBUG
+CMAKE_C_FLAGS_DEBUG-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_FLAGS_MINSIZEREL
+CMAKE_C_FLAGS_MINSIZEREL-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_FLAGS_RELEASE
+CMAKE_C_FLAGS_RELEASE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_C_FLAGS_RELWITHDEBINFO
+CMAKE_C_FLAGS_RELWITHDEBINFO-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_DLLTOOL
+CMAKE_DLLTOOL-ADVANCED:INTERNAL=1
+//Path to cache edit program executable.
+CMAKE_EDIT_COMMAND:INTERNAL=/usr/bin/ccmake
+//Executable file format
+CMAKE_EXECUTABLE_FORMAT:INTERNAL=ELF
+//ADVANCED property for variable: CMAKE_EXE_LINKER_FLAGS
+CMAKE_EXE_LINKER_FLAGS-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_EXE_LINKER_FLAGS_DEBUG
+CMAKE_EXE_LINKER_FLAGS_DEBUG-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_EXE_LINKER_FLAGS_MINSIZEREL
+CMAKE_EXE_LINKER_FLAGS_MINSIZEREL-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_EXE_LINKER_FLAGS_RELEASE
+CMAKE_EXE_LINKER_FLAGS_RELEASE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_EXE_LINKER_FLAGS_RELWITHDEBINFO
+CMAKE_EXE_LINKER_FLAGS_RELWITHDEBINFO-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_EXPORT_COMPILE_COMMANDS
+CMAKE_EXPORT_COMPILE_COMMANDS-ADVANCED:INTERNAL=1
+//Name of external makefile project generator.
+CMAKE_EXTRA_GENERATOR:INTERNAL=
+//Name of generator.
+CMAKE_GENERATOR:INTERNAL=Unix Makefiles
+//Generator instance identifier.
+CMAKE_GENERATOR_INSTANCE:INTERNAL=
+//Name of generator platform.
+CMAKE_GENERATOR_PLATFORM:INTERNAL=
+//Name of generator toolset.
+CMAKE_GENERATOR_TOOLSET:INTERNAL=
+//Source directory with the top level CMakeLists.txt file for this
+// project
+CMAKE_HOME_DIRECTORY:INTERNAL=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+//Install .so files without execute permission.
+CMAKE_INSTALL_SO_NO_EXE:INTERNAL=0
+//ADVANCED property for variable: CMAKE_LINKER
+CMAKE_LINKER-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MAKE_PROGRAM
+CMAKE_MAKE_PROGRAM-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MODULE_LINKER_FLAGS
+CMAKE_MODULE_LINKER_FLAGS-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MODULE_LINKER_FLAGS_DEBUG
+CMAKE_MODULE_LINKER_FLAGS_DEBUG-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MODULE_LINKER_FLAGS_MINSIZEREL
+CMAKE_MODULE_LINKER_FLAGS_MINSIZEREL-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MODULE_LINKER_FLAGS_RELEASE
+CMAKE_MODULE_LINKER_FLAGS_RELEASE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_MODULE_LINKER_FLAGS_RELWITHDEBINFO
+CMAKE_MODULE_LINKER_FLAGS_RELWITHDEBINFO-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_NM
+CMAKE_NM-ADVANCED:INTERNAL=1
+//number of local generators
+CMAKE_NUMBER_OF_MAKEFILES:INTERNAL=1
+//ADVANCED property for variable: CMAKE_OBJCOPY
+CMAKE_OBJCOPY-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_OBJDUMP
+CMAKE_OBJDUMP-ADVANCED:INTERNAL=1
+//Platform information initialized
+CMAKE_PLATFORM_INFO_INITIALIZED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_RANLIB
+CMAKE_RANLIB-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_READELF
+CMAKE_READELF-ADVANCED:INTERNAL=1
+//Path to CMake installation.
+CMAKE_ROOT:INTERNAL=/usr/share/cmake
+//ADVANCED property for variable: CMAKE_SHARED_LINKER_FLAGS
+CMAKE_SHARED_LINKER_FLAGS-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SHARED_LINKER_FLAGS_DEBUG
+CMAKE_SHARED_LINKER_FLAGS_DEBUG-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SHARED_LINKER_FLAGS_MINSIZEREL
+CMAKE_SHARED_LINKER_FLAGS_MINSIZEREL-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SHARED_LINKER_FLAGS_RELEASE
+CMAKE_SHARED_LINKER_FLAGS_RELEASE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SHARED_LINKER_FLAGS_RELWITHDEBINFO
+CMAKE_SHARED_LINKER_FLAGS_RELWITHDEBINFO-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SKIP_INSTALL_RPATH
+CMAKE_SKIP_INSTALL_RPATH-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_SKIP_RPATH
+CMAKE_SKIP_RPATH-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STATIC_LINKER_FLAGS
+CMAKE_STATIC_LINKER_FLAGS-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STATIC_LINKER_FLAGS_DEBUG
+CMAKE_STATIC_LINKER_FLAGS_DEBUG-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STATIC_LINKER_FLAGS_MINSIZEREL
+CMAKE_STATIC_LINKER_FLAGS_MINSIZEREL-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STATIC_LINKER_FLAGS_RELEASE
+CMAKE_STATIC_LINKER_FLAGS_RELEASE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STATIC_LINKER_FLAGS_RELWITHDEBINFO
+CMAKE_STATIC_LINKER_FLAGS_RELWITHDEBINFO-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_STRIP
+CMAKE_STRIP-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: CMAKE_TAPI
+CMAKE_TAPI-ADVANCED:INTERNAL=1
+//uname command
+CMAKE_UNAME:INTERNAL=/usr/bin/uname
+//ADVANCED property for variable: CMAKE_VERBOSE_MAKEFILE
+CMAKE_VERBOSE_MAKEFILE-ADVANCED:INTERNAL=1
+//ADVANCED property for variable: GIT_EXECUTABLE
+GIT_EXECUTABLE-ADVANCED:INTERNAL=1
+//linker supports push/pop state
+_CMAKE_C_LINKER_PUSHPOP_STATE_SUPPORTED:INTERNAL=TRUE
+//linker supports push/pop state
+_CMAKE_LINKER_PUSHPOP_STATE_SUPPORTED:INTERNAL=TRUE
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeCCompiler.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeCCompiler.cmake
@@ -0,0 +1,81 @@
+set(CMAKE_C_COMPILER "/usr/bin/cc")
+set(CMAKE_C_COMPILER_ARG1 "")
+set(CMAKE_C_COMPILER_ID "GNU")
+set(CMAKE_C_COMPILER_VERSION "14.2.1")
+set(CMAKE_C_COMPILER_VERSION_INTERNAL "")
+set(CMAKE_C_COMPILER_WRAPPER "")
+set(CMAKE_C_STANDARD_COMPUTED_DEFAULT "17")
+set(CMAKE_C_EXTENSIONS_COMPUTED_DEFAULT "ON")
+set(CMAKE_C_STANDARD_LATEST "23")
+set(CMAKE_C_COMPILE_FEATURES "c_std_90;c_function_prototypes;c_std_99;c_restrict;c_variadic_macros;c_std_11;c_static_assert;c_std_17;c_std_23")
+set(CMAKE_C90_COMPILE_FEATURES "c_std_90;c_function_prototypes")
+set(CMAKE_C99_COMPILE_FEATURES "c_std_99;c_restrict;c_variadic_macros")
+set(CMAKE_C11_COMPILE_FEATURES "c_std_11;c_static_assert")
+set(CMAKE_C17_COMPILE_FEATURES "c_std_17")
+set(CMAKE_C23_COMPILE_FEATURES "c_std_23")
+
+set(CMAKE_C_PLATFORM_ID "Linux")
+set(CMAKE_C_SIMULATE_ID "")
+set(CMAKE_C_COMPILER_FRONTEND_VARIANT "GNU")
+set(CMAKE_C_SIMULATE_VERSION "")
+
+
+
+
+set(CMAKE_AR "/usr/bin/ar")
+set(CMAKE_C_COMPILER_AR "/usr/bin/gcc-ar")
+set(CMAKE_RANLIB "/usr/bin/ranlib")
+set(CMAKE_C_COMPILER_RANLIB "/usr/bin/gcc-ranlib")
+set(CMAKE_LINKER "/usr/bin/ld")
+set(CMAKE_LINKER_LINK "")
+set(CMAKE_LINKER_LLD "")
+set(CMAKE_C_COMPILER_LINKER "/usr/bin/ld")
+set(CMAKE_C_COMPILER_LINKER_ID "GNU")
+set(CMAKE_C_COMPILER_LINKER_VERSION 2.43.0)
+set(CMAKE_C_COMPILER_LINKER_FRONTEND_VARIANT GNU)
+set(CMAKE_MT "")
+set(CMAKE_TAPI "CMAKE_TAPI-NOTFOUND")
+set(CMAKE_COMPILER_IS_GNUCC 1)
+set(CMAKE_C_COMPILER_LOADED 1)
+set(CMAKE_C_COMPILER_WORKS TRUE)
+set(CMAKE_C_ABI_COMPILED TRUE)
+
+set(CMAKE_C_COMPILER_ENV_VAR "CC")
+
+set(CMAKE_C_COMPILER_ID_RUN 1)
+set(CMAKE_C_SOURCE_FILE_EXTENSIONS c;m)
+set(CMAKE_C_IGNORE_EXTENSIONS h;H;o;O;obj;OBJ;def;DEF;rc;RC)
+set(CMAKE_C_LINKER_PREFERENCE 10)
+set(CMAKE_C_LINKER_DEPFILE_SUPPORTED )
+
+# Save compiler ABI information.
+set(CMAKE_C_SIZEOF_DATA_PTR "8")
+set(CMAKE_C_COMPILER_ABI "ELF")
+set(CMAKE_C_BYTE_ORDER "LITTLE_ENDIAN")
+set(CMAKE_C_LIBRARY_ARCHITECTURE "")
+
+if(CMAKE_C_SIZEOF_DATA_PTR)
+  set(CMAKE_SIZEOF_VOID_P "${CMAKE_C_SIZEOF_DATA_PTR}")
+endif()
+
+if(CMAKE_C_COMPILER_ABI)
+  set(CMAKE_INTERNAL_PLATFORM_ABI "${CMAKE_C_COMPILER_ABI}")
+endif()
+
+if(CMAKE_C_LIBRARY_ARCHITECTURE)
+  set(CMAKE_LIBRARY_ARCHITECTURE "")
+endif()
+
+set(CMAKE_C_CL_SHOWINCLUDES_PREFIX "")
+if(CMAKE_C_CL_SHOWINCLUDES_PREFIX)
+  set(CMAKE_CL_SHOWINCLUDES_PREFIX "${CMAKE_C_CL_SHOWINCLUDES_PREFIX}")
+endif()
+
+
+
+
+
+set(CMAKE_C_IMPLICIT_INCLUDE_DIRECTORIES "/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include;/usr/local/include;/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed;/usr/include")
+set(CMAKE_C_IMPLICIT_LINK_LIBRARIES "gcc;gcc_s;c;gcc;gcc_s")
+set(CMAKE_C_IMPLICIT_LINK_DIRECTORIES "/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1;/usr/lib;/lib")
+set(CMAKE_C_IMPLICIT_LINK_FRAMEWORK_DIRECTORIES "")
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeDetermineCompilerABI_C.bin b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeDetermineCompilerABI_C.bin
Binary files differ.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeSystem.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CMakeSystem.cmake
@@ -0,0 +1,15 @@
+set(CMAKE_HOST_SYSTEM "Linux-6.11.9-arch1-1")
+set(CMAKE_HOST_SYSTEM_NAME "Linux")
+set(CMAKE_HOST_SYSTEM_VERSION "6.11.9-arch1-1")
+set(CMAKE_HOST_SYSTEM_PROCESSOR "x86_64")
+
+
+
+set(CMAKE_SYSTEM "Linux-6.11.9-arch1-1")
+set(CMAKE_SYSTEM_NAME "Linux")
+set(CMAKE_SYSTEM_VERSION "6.11.9-arch1-1")
+set(CMAKE_SYSTEM_PROCESSOR "x86_64")
+
+set(CMAKE_CROSSCOMPILING "FALSE")
+
+set(CMAKE_SYSTEM_LOADED 1)
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/CMakeCCompilerId.c b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/CMakeCCompilerId.c
@@ -0,0 +1,904 @@
+#ifdef __cplusplus
+# error "A C++ compiler has been selected for C."
+#endif
+
+#if defined(__18CXX)
+# define ID_VOID_MAIN
+#endif
+#if defined(__CLASSIC_C__)
+/* cv-qualifiers did not exist in K&R C */
+# define const
+# define volatile
+#endif
+
+#if !defined(__has_include)
+/* If the compiler does not have __has_include, pretend the answer is
+   always no.  */
+#  define __has_include(x) 0
+#endif
+
+
+/* Version number components: V=Version, R=Revision, P=Patch
+   Version date components:   YYYY=Year, MM=Month,   DD=Day  */
+
+#if defined(__INTEL_COMPILER) || defined(__ICC)
+# define COMPILER_ID "Intel"
+# if defined(_MSC_VER)
+#  define SIMULATE_ID "MSVC"
+# endif
+# if defined(__GNUC__)
+#  define SIMULATE_ID "GNU"
+# endif
+  /* __INTEL_COMPILER = VRP prior to 2021, and then VVVV for 2021 and later,
+     except that a few beta releases use the old format with V=2021.  */
+# if __INTEL_COMPILER < 2021 || __INTEL_COMPILER == 202110 || __INTEL_COMPILER == 202111
+#  define COMPILER_VERSION_MAJOR DEC(__INTEL_COMPILER/100)
+#  define COMPILER_VERSION_MINOR DEC(__INTEL_COMPILER/10 % 10)
+#  if defined(__INTEL_COMPILER_UPDATE)
+#   define COMPILER_VERSION_PATCH DEC(__INTEL_COMPILER_UPDATE)
+#  else
+#   define COMPILER_VERSION_PATCH DEC(__INTEL_COMPILER   % 10)
+#  endif
+# else
+#  define COMPILER_VERSION_MAJOR DEC(__INTEL_COMPILER)
+#  define COMPILER_VERSION_MINOR DEC(__INTEL_COMPILER_UPDATE)
+   /* The third version component from --version is an update index,
+      but no macro is provided for it.  */
+#  define COMPILER_VERSION_PATCH DEC(0)
+# endif
+# if defined(__INTEL_COMPILER_BUILD_DATE)
+   /* __INTEL_COMPILER_BUILD_DATE = YYYYMMDD */
+#  define COMPILER_VERSION_TWEAK DEC(__INTEL_COMPILER_BUILD_DATE)
+# endif
+# if defined(_MSC_VER)
+   /* _MSC_VER = VVRR */
+#  define SIMULATE_VERSION_MAJOR DEC(_MSC_VER / 100)
+#  define SIMULATE_VERSION_MINOR DEC(_MSC_VER % 100)
+# endif
+# if defined(__GNUC__)
+#  define SIMULATE_VERSION_MAJOR DEC(__GNUC__)
+# elif defined(__GNUG__)
+#  define SIMULATE_VERSION_MAJOR DEC(__GNUG__)
+# endif
+# if defined(__GNUC_MINOR__)
+#  define SIMULATE_VERSION_MINOR DEC(__GNUC_MINOR__)
+# endif
+# if defined(__GNUC_PATCHLEVEL__)
+#  define SIMULATE_VERSION_PATCH DEC(__GNUC_PATCHLEVEL__)
+# endif
+
+#elif (defined(__clang__) && defined(__INTEL_CLANG_COMPILER)) || defined(__INTEL_LLVM_COMPILER)
+# define COMPILER_ID "IntelLLVM"
+#if defined(_MSC_VER)
+# define SIMULATE_ID "MSVC"
+#endif
+#if defined(__GNUC__)
+# define SIMULATE_ID "GNU"
+#endif
+/* __INTEL_LLVM_COMPILER = VVVVRP prior to 2021.2.0, VVVVRRPP for 2021.2.0 and
+ * later.  Look for 6 digit vs. 8 digit version number to decide encoding.
+ * VVVV is no smaller than the current year when a version is released.
+ */
+#if __INTEL_LLVM_COMPILER < 1000000L
+# define COMPILER_VERSION_MAJOR DEC(__INTEL_LLVM_COMPILER/100)
+# define COMPILER_VERSION_MINOR DEC(__INTEL_LLVM_COMPILER/10 % 10)
+# define COMPILER_VERSION_PATCH DEC(__INTEL_LLVM_COMPILER    % 10)
+#else
+# define COMPILER_VERSION_MAJOR DEC(__INTEL_LLVM_COMPILER/10000)
+# define COMPILER_VERSION_MINOR DEC(__INTEL_LLVM_COMPILER/100 % 100)
+# define COMPILER_VERSION_PATCH DEC(__INTEL_LLVM_COMPILER     % 100)
+#endif
+#if defined(_MSC_VER)
+  /* _MSC_VER = VVRR */
+# define SIMULATE_VERSION_MAJOR DEC(_MSC_VER / 100)
+# define SIMULATE_VERSION_MINOR DEC(_MSC_VER % 100)
+#endif
+#if defined(__GNUC__)
+# define SIMULATE_VERSION_MAJOR DEC(__GNUC__)
+#elif defined(__GNUG__)
+# define SIMULATE_VERSION_MAJOR DEC(__GNUG__)
+#endif
+#if defined(__GNUC_MINOR__)
+# define SIMULATE_VERSION_MINOR DEC(__GNUC_MINOR__)
+#endif
+#if defined(__GNUC_PATCHLEVEL__)
+# define SIMULATE_VERSION_PATCH DEC(__GNUC_PATCHLEVEL__)
+#endif
+
+#elif defined(__PATHCC__)
+# define COMPILER_ID "PathScale"
+# define COMPILER_VERSION_MAJOR DEC(__PATHCC__)
+# define COMPILER_VERSION_MINOR DEC(__PATHCC_MINOR__)
+# if defined(__PATHCC_PATCHLEVEL__)
+#  define COMPILER_VERSION_PATCH DEC(__PATHCC_PATCHLEVEL__)
+# endif
+
+#elif defined(__BORLANDC__) && defined(__CODEGEARC_VERSION__)
+# define COMPILER_ID "Embarcadero"
+# define COMPILER_VERSION_MAJOR HEX(__CODEGEARC_VERSION__>>24 & 0x00FF)
+# define COMPILER_VERSION_MINOR HEX(__CODEGEARC_VERSION__>>16 & 0x00FF)
+# define COMPILER_VERSION_PATCH DEC(__CODEGEARC_VERSION__     & 0xFFFF)
+
+#elif defined(__BORLANDC__)
+# define COMPILER_ID "Borland"
+  /* __BORLANDC__ = 0xVRR */
+# define COMPILER_VERSION_MAJOR HEX(__BORLANDC__>>8)
+# define COMPILER_VERSION_MINOR HEX(__BORLANDC__ & 0xFF)
+
+#elif defined(__WATCOMC__) && __WATCOMC__ < 1200
+# define COMPILER_ID "Watcom"
+   /* __WATCOMC__ = VVRR */
+# define COMPILER_VERSION_MAJOR DEC(__WATCOMC__ / 100)
+# define COMPILER_VERSION_MINOR DEC((__WATCOMC__ / 10) % 10)
+# if (__WATCOMC__ % 10) > 0
+#  define COMPILER_VERSION_PATCH DEC(__WATCOMC__ % 10)
+# endif
+
+#elif defined(__WATCOMC__)
+# define COMPILER_ID "OpenWatcom"
+   /* __WATCOMC__ = VVRP + 1100 */
+# define COMPILER_VERSION_MAJOR DEC((__WATCOMC__ - 1100) / 100)
+# define COMPILER_VERSION_MINOR DEC((__WATCOMC__ / 10) % 10)
+# if (__WATCOMC__ % 10) > 0
+#  define COMPILER_VERSION_PATCH DEC(__WATCOMC__ % 10)
+# endif
+
+#elif defined(__SUNPRO_C)
+# define COMPILER_ID "SunPro"
+# if __SUNPRO_C >= 0x5100
+   /* __SUNPRO_C = 0xVRRP */
+#  define COMPILER_VERSION_MAJOR HEX(__SUNPRO_C>>12)
+#  define COMPILER_VERSION_MINOR HEX(__SUNPRO_C>>4 & 0xFF)
+#  define COMPILER_VERSION_PATCH HEX(__SUNPRO_C    & 0xF)
+# else
+   /* __SUNPRO_CC = 0xVRP */
+#  define COMPILER_VERSION_MAJOR HEX(__SUNPRO_C>>8)
+#  define COMPILER_VERSION_MINOR HEX(__SUNPRO_C>>4 & 0xF)
+#  define COMPILER_VERSION_PATCH HEX(__SUNPRO_C    & 0xF)
+# endif
+
+#elif defined(__HP_cc)
+# define COMPILER_ID "HP"
+  /* __HP_cc = VVRRPP */
+# define COMPILER_VERSION_MAJOR DEC(__HP_cc/10000)
+# define COMPILER_VERSION_MINOR DEC(__HP_cc/100 % 100)
+# define COMPILER_VERSION_PATCH DEC(__HP_cc     % 100)
+
+#elif defined(__DECC)
+# define COMPILER_ID "Compaq"
+  /* __DECC_VER = VVRRTPPPP */
+# define COMPILER_VERSION_MAJOR DEC(__DECC_VER/10000000)
+# define COMPILER_VERSION_MINOR DEC(__DECC_VER/100000  % 100)
+# define COMPILER_VERSION_PATCH DEC(__DECC_VER         % 10000)
+
+#elif defined(__IBMC__) && defined(__COMPILER_VER__)
+# define COMPILER_ID "zOS"
+  /* __IBMC__ = VRP */
+# define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
+# define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
+# define COMPILER_VERSION_PATCH DEC(__IBMC__    % 10)
+
+#elif defined(__open_xl__) && defined(__clang__)
+# define COMPILER_ID "IBMClang"
+# define COMPILER_VERSION_MAJOR DEC(__open_xl_version__)
+# define COMPILER_VERSION_MINOR DEC(__open_xl_release__)
+# define COMPILER_VERSION_PATCH DEC(__open_xl_modification__)
+# define COMPILER_VERSION_TWEAK DEC(__open_xl_ptf_fix_level__)
+
+
+#elif defined(__ibmxl__) && defined(__clang__)
+# define COMPILER_ID "XLClang"
+# define COMPILER_VERSION_MAJOR DEC(__ibmxl_version__)
+# define COMPILER_VERSION_MINOR DEC(__ibmxl_release__)
+# define COMPILER_VERSION_PATCH DEC(__ibmxl_modification__)
+# define COMPILER_VERSION_TWEAK DEC(__ibmxl_ptf_fix_level__)
+
+
+#elif defined(__IBMC__) && !defined(__COMPILER_VER__) && __IBMC__ >= 800
+# define COMPILER_ID "XL"
+  /* __IBMC__ = VRP */
+# define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
+# define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
+# define COMPILER_VERSION_PATCH DEC(__IBMC__    % 10)
+
+#elif defined(__IBMC__) && !defined(__COMPILER_VER__) && __IBMC__ < 800
+# define COMPILER_ID "VisualAge"
+  /* __IBMC__ = VRP */
+# define COMPILER_VERSION_MAJOR DEC(__IBMC__/100)
+# define COMPILER_VERSION_MINOR DEC(__IBMC__/10 % 10)
+# define COMPILER_VERSION_PATCH DEC(__IBMC__    % 10)
+
+#elif defined(__NVCOMPILER)
+# define COMPILER_ID "NVHPC"
+# define COMPILER_VERSION_MAJOR DEC(__NVCOMPILER_MAJOR__)
+# define COMPILER_VERSION_MINOR DEC(__NVCOMPILER_MINOR__)
+# if defined(__NVCOMPILER_PATCHLEVEL__)
+#  define COMPILER_VERSION_PATCH DEC(__NVCOMPILER_PATCHLEVEL__)
+# endif
+
+#elif defined(__PGI)
+# define COMPILER_ID "PGI"
+# define COMPILER_VERSION_MAJOR DEC(__PGIC__)
+# define COMPILER_VERSION_MINOR DEC(__PGIC_MINOR__)
+# if defined(__PGIC_PATCHLEVEL__)
+#  define COMPILER_VERSION_PATCH DEC(__PGIC_PATCHLEVEL__)
+# endif
+
+#elif defined(__clang__) && defined(__cray__)
+# define COMPILER_ID "CrayClang"
+# define COMPILER_VERSION_MAJOR DEC(__cray_major__)
+# define COMPILER_VERSION_MINOR DEC(__cray_minor__)
+# define COMPILER_VERSION_PATCH DEC(__cray_patchlevel__)
+# define COMPILER_VERSION_INTERNAL_STR __clang_version__
+
+
+#elif defined(_CRAYC)
+# define COMPILER_ID "Cray"
+# define COMPILER_VERSION_MAJOR DEC(_RELEASE_MAJOR)
+# define COMPILER_VERSION_MINOR DEC(_RELEASE_MINOR)
+
+#elif defined(__TI_COMPILER_VERSION__)
+# define COMPILER_ID "TI"
+  /* __TI_COMPILER_VERSION__ = VVVRRRPPP */
+# define COMPILER_VERSION_MAJOR DEC(__TI_COMPILER_VERSION__/1000000)
+# define COMPILER_VERSION_MINOR DEC(__TI_COMPILER_VERSION__/1000   % 1000)
+# define COMPILER_VERSION_PATCH DEC(__TI_COMPILER_VERSION__        % 1000)
+
+#elif defined(__CLANG_FUJITSU)
+# define COMPILER_ID "FujitsuClang"
+# define COMPILER_VERSION_MAJOR DEC(__FCC_major__)
+# define COMPILER_VERSION_MINOR DEC(__FCC_minor__)
+# define COMPILER_VERSION_PATCH DEC(__FCC_patchlevel__)
+# define COMPILER_VERSION_INTERNAL_STR __clang_version__
+
+
+#elif defined(__FUJITSU)
+# define COMPILER_ID "Fujitsu"
+# if defined(__FCC_version__)
+#   define COMPILER_VERSION __FCC_version__
+# elif defined(__FCC_major__)
+#   define COMPILER_VERSION_MAJOR DEC(__FCC_major__)
+#   define COMPILER_VERSION_MINOR DEC(__FCC_minor__)
+#   define COMPILER_VERSION_PATCH DEC(__FCC_patchlevel__)
+# endif
+# if defined(__fcc_version)
+#   define COMPILER_VERSION_INTERNAL DEC(__fcc_version)
+# elif defined(__FCC_VERSION)
+#   define COMPILER_VERSION_INTERNAL DEC(__FCC_VERSION)
+# endif
+
+
+#elif defined(__ghs__)
+# define COMPILER_ID "GHS"
+/* __GHS_VERSION_NUMBER = VVVVRP */
+# ifdef __GHS_VERSION_NUMBER
+# define COMPILER_VERSION_MAJOR DEC(__GHS_VERSION_NUMBER / 100)
+# define COMPILER_VERSION_MINOR DEC(__GHS_VERSION_NUMBER / 10 % 10)
+# define COMPILER_VERSION_PATCH DEC(__GHS_VERSION_NUMBER      % 10)
+# endif
+
+#elif defined(__TASKING__)
+# define COMPILER_ID "Tasking"
+  # define COMPILER_VERSION_MAJOR DEC(__VERSION__/1000)
+  # define COMPILER_VERSION_MINOR DEC(__VERSION__ % 100)
+# define COMPILER_VERSION_INTERNAL DEC(__VERSION__)
+
+#elif defined(__ORANGEC__)
+# define COMPILER_ID "OrangeC"
+# define COMPILER_VERSION_MAJOR DEC(__ORANGEC_MAJOR__)
+# define COMPILER_VERSION_MINOR DEC(__ORANGEC_MINOR__)
+# define COMPILER_VERSION_PATCH DEC(__ORANGEC_PATCHLEVEL__)
+
+#elif defined(__TINYC__)
+# define COMPILER_ID "TinyCC"
+
+#elif defined(__BCC__)
+# define COMPILER_ID "Bruce"
+
+#elif defined(__SCO_VERSION__)
+# define COMPILER_ID "SCO"
+
+#elif defined(__ARMCC_VERSION) && !defined(__clang__)
+# define COMPILER_ID "ARMCC"
+#if __ARMCC_VERSION >= 1000000
+  /* __ARMCC_VERSION = VRRPPPP */
+  # define COMPILER_VERSION_MAJOR DEC(__ARMCC_VERSION/1000000)
+  # define COMPILER_VERSION_MINOR DEC(__ARMCC_VERSION/10000 % 100)
+  # define COMPILER_VERSION_PATCH DEC(__ARMCC_VERSION     % 10000)
+#else
+  /* __ARMCC_VERSION = VRPPPP */
+  # define COMPILER_VERSION_MAJOR DEC(__ARMCC_VERSION/100000)
+  # define COMPILER_VERSION_MINOR DEC(__ARMCC_VERSION/10000 % 10)
+  # define COMPILER_VERSION_PATCH DEC(__ARMCC_VERSION    % 10000)
+#endif
+
+
+#elif defined(__clang__) && defined(__apple_build_version__)
+# define COMPILER_ID "AppleClang"
+# if defined(_MSC_VER)
+#  define SIMULATE_ID "MSVC"
+# endif
+# define COMPILER_VERSION_MAJOR DEC(__clang_major__)
+# define COMPILER_VERSION_MINOR DEC(__clang_minor__)
+# define COMPILER_VERSION_PATCH DEC(__clang_patchlevel__)
+# if defined(_MSC_VER)
+   /* _MSC_VER = VVRR */
+#  define SIMULATE_VERSION_MAJOR DEC(_MSC_VER / 100)
+#  define SIMULATE_VERSION_MINOR DEC(_MSC_VER % 100)
+# endif
+# define COMPILER_VERSION_TWEAK DEC(__apple_build_version__)
+
+#elif defined(__clang__) && defined(__ARMCOMPILER_VERSION)
+# define COMPILER_ID "ARMClang"
+  # define COMPILER_VERSION_MAJOR DEC(__ARMCOMPILER_VERSION/1000000)
+  # define COMPILER_VERSION_MINOR DEC(__ARMCOMPILER_VERSION/10000 % 100)
+  # define COMPILER_VERSION_PATCH DEC(__ARMCOMPILER_VERSION/100   % 100)
+# define COMPILER_VERSION_INTERNAL DEC(__ARMCOMPILER_VERSION)
+
+#elif defined(__clang__) && defined(__ti__)
+# define COMPILER_ID "TIClang"
+  # define COMPILER_VERSION_MAJOR DEC(__ti_major__)
+  # define COMPILER_VERSION_MINOR DEC(__ti_minor__)
+  # define COMPILER_VERSION_PATCH DEC(__ti_patchlevel__)
+# define COMPILER_VERSION_INTERNAL DEC(__ti_version__)
+
+#elif defined(__clang__)
+# define COMPILER_ID "Clang"
+# if defined(_MSC_VER)
+#  define SIMULATE_ID "MSVC"
+# endif
+# define COMPILER_VERSION_MAJOR DEC(__clang_major__)
+# define COMPILER_VERSION_MINOR DEC(__clang_minor__)
+# define COMPILER_VERSION_PATCH DEC(__clang_patchlevel__)
+# if defined(_MSC_VER)
+   /* _MSC_VER = VVRR */
+#  define SIMULATE_VERSION_MAJOR DEC(_MSC_VER / 100)
+#  define SIMULATE_VERSION_MINOR DEC(_MSC_VER % 100)
+# endif
+
+#elif defined(__LCC__) && (defined(__GNUC__) || defined(__GNUG__) || defined(__MCST__))
+# define COMPILER_ID "LCC"
+# define COMPILER_VERSION_MAJOR DEC(__LCC__ / 100)
+# define COMPILER_VERSION_MINOR DEC(__LCC__ % 100)
+# if defined(__LCC_MINOR__)
+#  define COMPILER_VERSION_PATCH DEC(__LCC_MINOR__)
+# endif
+# if defined(__GNUC__) && defined(__GNUC_MINOR__)
+#  define SIMULATE_ID "GNU"
+#  define SIMULATE_VERSION_MAJOR DEC(__GNUC__)
+#  define SIMULATE_VERSION_MINOR DEC(__GNUC_MINOR__)
+#  if defined(__GNUC_PATCHLEVEL__)
+#   define SIMULATE_VERSION_PATCH DEC(__GNUC_PATCHLEVEL__)
+#  endif
+# endif
+
+#elif defined(__GNUC__)
+# define COMPILER_ID "GNU"
+# define COMPILER_VERSION_MAJOR DEC(__GNUC__)
+# if defined(__GNUC_MINOR__)
+#  define COMPILER_VERSION_MINOR DEC(__GNUC_MINOR__)
+# endif
+# if defined(__GNUC_PATCHLEVEL__)
+#  define COMPILER_VERSION_PATCH DEC(__GNUC_PATCHLEVEL__)
+# endif
+
+#elif defined(_MSC_VER)
+# define COMPILER_ID "MSVC"
+  /* _MSC_VER = VVRR */
+# define COMPILER_VERSION_MAJOR DEC(_MSC_VER / 100)
+# define COMPILER_VERSION_MINOR DEC(_MSC_VER % 100)
+# if defined(_MSC_FULL_VER)
+#  if _MSC_VER >= 1400
+    /* _MSC_FULL_VER = VVRRPPPPP */
+#   define COMPILER_VERSION_PATCH DEC(_MSC_FULL_VER % 100000)
+#  else
+    /* _MSC_FULL_VER = VVRRPPPP */
+#   define COMPILER_VERSION_PATCH DEC(_MSC_FULL_VER % 10000)
+#  endif
+# endif
+# if defined(_MSC_BUILD)
+#  define COMPILER_VERSION_TWEAK DEC(_MSC_BUILD)
+# endif
+
+#elif defined(_ADI_COMPILER)
+# define COMPILER_ID "ADSP"
+#if defined(__VERSIONNUM__)
+  /* __VERSIONNUM__ = 0xVVRRPPTT */
+#  define COMPILER_VERSION_MAJOR DEC(__VERSIONNUM__ >> 24 & 0xFF)
+#  define COMPILER_VERSION_MINOR DEC(__VERSIONNUM__ >> 16 & 0xFF)
+#  define COMPILER_VERSION_PATCH DEC(__VERSIONNUM__ >> 8 & 0xFF)
+#  define COMPILER_VERSION_TWEAK DEC(__VERSIONNUM__ & 0xFF)
+#endif
+
+#elif defined(__IAR_SYSTEMS_ICC__) || defined(__IAR_SYSTEMS_ICC)
+# define COMPILER_ID "IAR"
+# if defined(__VER__) && defined(__ICCARM__)
+#  define COMPILER_VERSION_MAJOR DEC((__VER__) / 1000000)
+#  define COMPILER_VERSION_MINOR DEC(((__VER__) / 1000) % 1000)
+#  define COMPILER_VERSION_PATCH DEC((__VER__) % 1000)
+#  define COMPILER_VERSION_INTERNAL DEC(__IAR_SYSTEMS_ICC__)
+# elif defined(__VER__) && (defined(__ICCAVR__) || defined(__ICCRX__) || defined(__ICCRH850__) || defined(__ICCRL78__) || defined(__ICC430__) || defined(__ICCRISCV__) || defined(__ICCV850__) || defined(__ICC8051__) || defined(__ICCSTM8__))
+#  define COMPILER_VERSION_MAJOR DEC((__VER__) / 100)
+#  define COMPILER_VERSION_MINOR DEC((__VER__) - (((__VER__) / 100)*100))
+#  define COMPILER_VERSION_PATCH DEC(__SUBVERSION__)
+#  define COMPILER_VERSION_INTERNAL DEC(__IAR_SYSTEMS_ICC__)
+# endif
+
+#elif defined(__SDCC_VERSION_MAJOR) || defined(SDCC)
+# define COMPILER_ID "SDCC"
+# if defined(__SDCC_VERSION_MAJOR)
+#  define COMPILER_VERSION_MAJOR DEC(__SDCC_VERSION_MAJOR)
+#  define COMPILER_VERSION_MINOR DEC(__SDCC_VERSION_MINOR)
+#  define COMPILER_VERSION_PATCH DEC(__SDCC_VERSION_PATCH)
+# else
+  /* SDCC = VRP */
+#  define COMPILER_VERSION_MAJOR DEC(SDCC/100)
+#  define COMPILER_VERSION_MINOR DEC(SDCC/10 % 10)
+#  define COMPILER_VERSION_PATCH DEC(SDCC    % 10)
+# endif
+
+
+/* These compilers are either not known or too old to define an
+  identification macro.  Try to identify the platform and guess that
+  it is the native compiler.  */
+#elif defined(__hpux) || defined(__hpua)
+# define COMPILER_ID "HP"
+
+#else /* unknown compiler */
+# define COMPILER_ID ""
+#endif
+
+/* Construct the string literal in pieces to prevent the source from
+   getting matched.  Store it in a pointer rather than an array
+   because some compilers will just produce instructions to fill the
+   array rather than assigning a pointer to a static array.  */
+char const* info_compiler = "INFO" ":" "compiler[" COMPILER_ID "]";
+#ifdef SIMULATE_ID
+char const* info_simulate = "INFO" ":" "simulate[" SIMULATE_ID "]";
+#endif
+
+#ifdef __QNXNTO__
+char const* qnxnto = "INFO" ":" "qnxnto[]";
+#endif
+
+#if defined(__CRAYXT_COMPUTE_LINUX_TARGET)
+char const *info_cray = "INFO" ":" "compiler_wrapper[CrayPrgEnv]";
+#endif
+
+#define STRINGIFY_HELPER(X) #X
+#define STRINGIFY(X) STRINGIFY_HELPER(X)
+
+/* Identify known platforms by name.  */
+#if defined(__linux) || defined(__linux__) || defined(linux)
+# define PLATFORM_ID "Linux"
+
+#elif defined(__MSYS__)
+# define PLATFORM_ID "MSYS"
+
+#elif defined(__CYGWIN__)
+# define PLATFORM_ID "Cygwin"
+
+#elif defined(__MINGW32__)
+# define PLATFORM_ID "MinGW"
+
+#elif defined(__APPLE__)
+# define PLATFORM_ID "Darwin"
+
+#elif defined(_WIN32) || defined(__WIN32__) || defined(WIN32)
+# define PLATFORM_ID "Windows"
+
+#elif defined(__FreeBSD__) || defined(__FreeBSD)
+# define PLATFORM_ID "FreeBSD"
+
+#elif defined(__NetBSD__) || defined(__NetBSD)
+# define PLATFORM_ID "NetBSD"
+
+#elif defined(__OpenBSD__) || defined(__OPENBSD)
+# define PLATFORM_ID "OpenBSD"
+
+#elif defined(__sun) || defined(sun)
+# define PLATFORM_ID "SunOS"
+
+#elif defined(_AIX) || defined(__AIX) || defined(__AIX__) || defined(__aix) || defined(__aix__)
+# define PLATFORM_ID "AIX"
+
+#elif defined(__hpux) || defined(__hpux__)
+# define PLATFORM_ID "HP-UX"
+
+#elif defined(__HAIKU__)
+# define PLATFORM_ID "Haiku"
+
+#elif defined(__BeOS) || defined(__BEOS__) || defined(_BEOS)
+# define PLATFORM_ID "BeOS"
+
+#elif defined(__QNX__) || defined(__QNXNTO__)
+# define PLATFORM_ID "QNX"
+
+#elif defined(__tru64) || defined(_tru64) || defined(__TRU64__)
+# define PLATFORM_ID "Tru64"
+
+#elif defined(__riscos) || defined(__riscos__)
+# define PLATFORM_ID "RISCos"
+
+#elif defined(__sinix) || defined(__sinix__) || defined(__SINIX__)
+# define PLATFORM_ID "SINIX"
+
+#elif defined(__UNIX_SV__)
+# define PLATFORM_ID "UNIX_SV"
+
+#elif defined(__bsdos__)
+# define PLATFORM_ID "BSDOS"
+
+#elif defined(_MPRAS) || defined(MPRAS)
+# define PLATFORM_ID "MP-RAS"
+
+#elif defined(__osf) || defined(__osf__)
+# define PLATFORM_ID "OSF1"
+
+#elif defined(_SCO_SV) || defined(SCO_SV) || defined(sco_sv)
+# define PLATFORM_ID "SCO_SV"
+
+#elif defined(__ultrix) || defined(__ultrix__) || defined(_ULTRIX)
+# define PLATFORM_ID "ULTRIX"
+
+#elif defined(__XENIX__) || defined(_XENIX) || defined(XENIX)
+# define PLATFORM_ID "Xenix"
+
+#elif defined(__WATCOMC__)
+# if defined(__LINUX__)
+#  define PLATFORM_ID "Linux"
+
+# elif defined(__DOS__)
+#  define PLATFORM_ID "DOS"
+
+# elif defined(__OS2__)
+#  define PLATFORM_ID "OS2"
+
+# elif defined(__WINDOWS__)
+#  define PLATFORM_ID "Windows3x"
+
+# elif defined(__VXWORKS__)
+#  define PLATFORM_ID "VxWorks"
+
+# else /* unknown platform */
+#  define PLATFORM_ID
+# endif
+
+#elif defined(__INTEGRITY)
+# if defined(INT_178B)
+#  define PLATFORM_ID "Integrity178"
+
+# else /* regular Integrity */
+#  define PLATFORM_ID "Integrity"
+# endif
+
+# elif defined(_ADI_COMPILER)
+#  define PLATFORM_ID "ADSP"
+
+#else /* unknown platform */
+# define PLATFORM_ID
+
+#endif
+
+/* For windows compilers MSVC and Intel we can determine
+   the architecture of the compiler being used.  This is because
+   the compilers do not have flags that can change the architecture,
+   but rather depend on which compiler is being used
+*/
+#if defined(_WIN32) && defined(_MSC_VER)
+# if defined(_M_IA64)
+#  define ARCHITECTURE_ID "IA64"
+
+# elif defined(_M_ARM64EC)
+#  define ARCHITECTURE_ID "ARM64EC"
+
+# elif defined(_M_X64) || defined(_M_AMD64)
+#  define ARCHITECTURE_ID "x64"
+
+# elif defined(_M_IX86)
+#  define ARCHITECTURE_ID "X86"
+
+# elif defined(_M_ARM64)
+#  define ARCHITECTURE_ID "ARM64"
+
+# elif defined(_M_ARM)
+#  if _M_ARM == 4
+#   define ARCHITECTURE_ID "ARMV4I"
+#  elif _M_ARM == 5
+#   define ARCHITECTURE_ID "ARMV5I"
+#  else
+#   define ARCHITECTURE_ID "ARMV" STRINGIFY(_M_ARM)
+#  endif
+
+# elif defined(_M_MIPS)
+#  define ARCHITECTURE_ID "MIPS"
+
+# elif defined(_M_SH)
+#  define ARCHITECTURE_ID "SHx"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+#elif defined(__WATCOMC__)
+# if defined(_M_I86)
+#  define ARCHITECTURE_ID "I86"
+
+# elif defined(_M_IX86)
+#  define ARCHITECTURE_ID "X86"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+#elif defined(__IAR_SYSTEMS_ICC__) || defined(__IAR_SYSTEMS_ICC)
+# if defined(__ICCARM__)
+#  define ARCHITECTURE_ID "ARM"
+
+# elif defined(__ICCRX__)
+#  define ARCHITECTURE_ID "RX"
+
+# elif defined(__ICCRH850__)
+#  define ARCHITECTURE_ID "RH850"
+
+# elif defined(__ICCRL78__)
+#  define ARCHITECTURE_ID "RL78"
+
+# elif defined(__ICCRISCV__)
+#  define ARCHITECTURE_ID "RISCV"
+
+# elif defined(__ICCAVR__)
+#  define ARCHITECTURE_ID "AVR"
+
+# elif defined(__ICC430__)
+#  define ARCHITECTURE_ID "MSP430"
+
+# elif defined(__ICCV850__)
+#  define ARCHITECTURE_ID "V850"
+
+# elif defined(__ICC8051__)
+#  define ARCHITECTURE_ID "8051"
+
+# elif defined(__ICCSTM8__)
+#  define ARCHITECTURE_ID "STM8"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+#elif defined(__ghs__)
+# if defined(__PPC64__)
+#  define ARCHITECTURE_ID "PPC64"
+
+# elif defined(__ppc__)
+#  define ARCHITECTURE_ID "PPC"
+
+# elif defined(__ARM__)
+#  define ARCHITECTURE_ID "ARM"
+
+# elif defined(__x86_64__)
+#  define ARCHITECTURE_ID "x64"
+
+# elif defined(__i386__)
+#  define ARCHITECTURE_ID "X86"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+#elif defined(__clang__) && defined(__ti__)
+# if defined(__ARM_ARCH)
+#  define ARCHITECTURE_ID "Arm"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+#elif defined(__TI_COMPILER_VERSION__)
+# if defined(__TI_ARM__)
+#  define ARCHITECTURE_ID "ARM"
+
+# elif defined(__MSP430__)
+#  define ARCHITECTURE_ID "MSP430"
+
+# elif defined(__TMS320C28XX__)
+#  define ARCHITECTURE_ID "TMS320C28x"
+
+# elif defined(__TMS320C6X__) || defined(_TMS320C6X)
+#  define ARCHITECTURE_ID "TMS320C6x"
+
+# else /* unknown architecture */
+#  define ARCHITECTURE_ID ""
+# endif
+
+# elif defined(__ADSPSHARC__)
+#  define ARCHITECTURE_ID "SHARC"
+
+# elif defined(__ADSPBLACKFIN__)
+#  define ARCHITECTURE_ID "Blackfin"
+
+#elif defined(__TASKING__)
+
+# if defined(__CTC__) || defined(__CPTC__)
+#  define ARCHITECTURE_ID "TriCore"
+
+# elif defined(__CMCS__)
+#  define ARCHITECTURE_ID "MCS"
+
+# elif defined(__CARM__)
+#  define ARCHITECTURE_ID "ARM"
+
+# elif defined(__CARC__)
+#  define ARCHITECTURE_ID "ARC"
+
+# elif defined(__C51__)
+#  define ARCHITECTURE_ID "8051"
+
+# elif defined(__CPCP__)
+#  define ARCHITECTURE_ID "PCP"
+
+# else
+#  define ARCHITECTURE_ID ""
+# endif
+
+#else
+#  define ARCHITECTURE_ID
+#endif
+
+/* Convert integer to decimal digit literals.  */
+#define DEC(n)                   \
+  ('0' + (((n) / 10000000)%10)), \
+  ('0' + (((n) / 1000000)%10)),  \
+  ('0' + (((n) / 100000)%10)),   \
+  ('0' + (((n) / 10000)%10)),    \
+  ('0' + (((n) / 1000)%10)),     \
+  ('0' + (((n) / 100)%10)),      \
+  ('0' + (((n) / 10)%10)),       \
+  ('0' +  ((n) % 10))
+
+/* Convert integer to hex digit literals.  */
+#define HEX(n)             \
+  ('0' + ((n)>>28 & 0xF)), \
+  ('0' + ((n)>>24 & 0xF)), \
+  ('0' + ((n)>>20 & 0xF)), \
+  ('0' + ((n)>>16 & 0xF)), \
+  ('0' + ((n)>>12 & 0xF)), \
+  ('0' + ((n)>>8  & 0xF)), \
+  ('0' + ((n)>>4  & 0xF)), \
+  ('0' + ((n)     & 0xF))
+
+/* Construct a string literal encoding the version number. */
+#ifdef COMPILER_VERSION
+char const* info_version = "INFO" ":" "compiler_version[" COMPILER_VERSION "]";
+
+/* Construct a string literal encoding the version number components. */
+#elif defined(COMPILER_VERSION_MAJOR)
+char const info_version[] = {
+  'I', 'N', 'F', 'O', ':',
+  'c','o','m','p','i','l','e','r','_','v','e','r','s','i','o','n','[',
+  COMPILER_VERSION_MAJOR,
+# ifdef COMPILER_VERSION_MINOR
+  '.', COMPILER_VERSION_MINOR,
+#  ifdef COMPILER_VERSION_PATCH
+   '.', COMPILER_VERSION_PATCH,
+#   ifdef COMPILER_VERSION_TWEAK
+    '.', COMPILER_VERSION_TWEAK,
+#   endif
+#  endif
+# endif
+  ']','\0'};
+#endif
+
+/* Construct a string literal encoding the internal version number. */
+#ifdef COMPILER_VERSION_INTERNAL
+char const info_version_internal[] = {
+  'I', 'N', 'F', 'O', ':',
+  'c','o','m','p','i','l','e','r','_','v','e','r','s','i','o','n','_',
+  'i','n','t','e','r','n','a','l','[',
+  COMPILER_VERSION_INTERNAL,']','\0'};
+#elif defined(COMPILER_VERSION_INTERNAL_STR)
+char const* info_version_internal = "INFO" ":" "compiler_version_internal[" COMPILER_VERSION_INTERNAL_STR "]";
+#endif
+
+/* Construct a string literal encoding the version number components. */
+#ifdef SIMULATE_VERSION_MAJOR
+char const info_simulate_version[] = {
+  'I', 'N', 'F', 'O', ':',
+  's','i','m','u','l','a','t','e','_','v','e','r','s','i','o','n','[',
+  SIMULATE_VERSION_MAJOR,
+# ifdef SIMULATE_VERSION_MINOR
+  '.', SIMULATE_VERSION_MINOR,
+#  ifdef SIMULATE_VERSION_PATCH
+   '.', SIMULATE_VERSION_PATCH,
+#   ifdef SIMULATE_VERSION_TWEAK
+    '.', SIMULATE_VERSION_TWEAK,
+#   endif
+#  endif
+# endif
+  ']','\0'};
+#endif
+
+/* Construct the string literal in pieces to prevent the source from
+   getting matched.  Store it in a pointer rather than an array
+   because some compilers will just produce instructions to fill the
+   array rather than assigning a pointer to a static array.  */
+char const* info_platform = "INFO" ":" "platform[" PLATFORM_ID "]";
+char const* info_arch = "INFO" ":" "arch[" ARCHITECTURE_ID "]";
+
+
+
+#define C_STD_99 199901L
+#define C_STD_11 201112L
+#define C_STD_17 201710L
+#define C_STD_23 202311L
+
+#ifdef __STDC_VERSION__
+#  define C_STD __STDC_VERSION__
+#endif
+
+#if !defined(__STDC__) && !defined(__clang__)
+# if defined(_MSC_VER) || defined(__ibmxl__) || defined(__IBMC__)
+#  define C_VERSION "90"
+# else
+#  define C_VERSION
+# endif
+#elif C_STD > C_STD_17
+# define C_VERSION "23"
+#elif C_STD > C_STD_11
+# define C_VERSION "17"
+#elif C_STD > C_STD_99
+# define C_VERSION "11"
+#elif C_STD >= C_STD_99
+# define C_VERSION "99"
+#else
+# define C_VERSION "90"
+#endif
+const char* info_language_standard_default =
+  "INFO" ":" "standard_default[" C_VERSION "]";
+
+const char* info_language_extensions_default = "INFO" ":" "extensions_default["
+#if (defined(__clang__) || defined(__GNUC__) || defined(__xlC__) ||           \
+     defined(__TI_COMPILER_VERSION__)) &&                                     \
+  !defined(__STRICT_ANSI__)
+  "ON"
+#else
+  "OFF"
+#endif
+"]";
+
+/*--------------------------------------------------------------------------*/
+
+#ifdef ID_VOID_MAIN
+void main() {}
+#else
+# if defined(__CLASSIC_C__)
+int main(argc, argv) int argc; char *argv[];
+# else
+int main(int argc, char* argv[])
+# endif
+{
+  int require = 0;
+  require += info_compiler[argc];
+  require += info_platform[argc];
+  require += info_arch[argc];
+#ifdef COMPILER_VERSION_MAJOR
+  require += info_version[argc];
+#endif
+#ifdef COMPILER_VERSION_INTERNAL
+  require += info_version_internal[argc];
+#endif
+#ifdef SIMULATE_ID
+  require += info_simulate[argc];
+#endif
+#ifdef SIMULATE_VERSION_MAJOR
+  require += info_simulate_version[argc];
+#endif
+#if defined(__CRAYXT_COMPUTE_LINUX_TARGET)
+  require += info_cray[argc];
+#endif
+  require += info_language_standard_default[argc];
+  require += info_language_extensions_default[argc];
+  (void)argv;
+  return require;
+}
+#endif
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/a.out b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/a.out
Binary files differ.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeConfigureLog.yaml b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeConfigureLog.yaml
@@ -0,0 +1,260 @@
+
+---
+events:
+  -
+    kind: "message-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/CMakeDetermineSystem.cmake:205 (message)"
+      - "CMakeLists.txt:4 (project)"
+    message: |
+      The system is: Linux - 6.11.9-arch1-1 - x86_64
+  -
+    kind: "message-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerId.cmake:17 (message)"
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerId.cmake:64 (__determine_compiler_id_test)"
+      - "/usr/share/cmake/Modules/CMakeDetermineCCompiler.cmake:123 (CMAKE_DETERMINE_COMPILER_ID)"
+      - "CMakeLists.txt:4 (project)"
+    message: |
+      Compiling the C compiler identification source file "CMakeCCompilerId.c" succeeded.
+      Compiler: /usr/bin/cc 
+      Build flags: 
+      Id flags:  
+      
+      The output was:
+      0
+      
+      
+      Compilation of the C compiler identification source "CMakeCCompilerId.c" produced "a.out"
+      
+      The C compiler identification is GNU, found in:
+        /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/3.31.0/CompilerIdC/a.out
+      
+  -
+    kind: "try_compile-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerABI.cmake:74 (try_compile)"
+      - "/usr/share/cmake/Modules/CMakeTestCCompiler.cmake:26 (CMAKE_DETERMINE_COMPILER_ABI)"
+      - "CMakeLists.txt:4 (project)"
+    checks:
+      - "Detecting C compiler ABI info"
+    directories:
+      source: "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9"
+      binary: "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9"
+    cmakeVariables:
+      CMAKE_C_FLAGS: ""
+      CMAKE_C_FLAGS_DEBUG: "-g"
+      CMAKE_EXE_LINKER_FLAGS: ""
+    buildResult:
+      variable: "CMAKE_C_ABI_COMPILED"
+      cached: true
+      stdout: |
+        Change Dir: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9'
+        
+        Run Build Command(s): /usr/bin/cmake -E env VERBOSE=1 /usr/bin/make -f Makefile cmTC_e8152/fast
+        /usr/bin/make  -f CMakeFiles/cmTC_e8152.dir/build.make CMakeFiles/cmTC_e8152.dir/build
+        make[1]: Entering directory '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9'
+        Building C object CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o
+        /usr/bin/cc   -v -o CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -c /usr/share/cmake/Modules/CMakeCCompilerABI.c
+        Using built-in specs.
+        COLLECT_GCC=/usr/bin/cc
+        Target: x86_64-pc-linux-gnu
+        Configured with: /build/gcc/src/gcc/configure --enable-languages=ada,c,c++,d,fortran,go,lto,m2,objc,obj-c++,rust --enable-bootstrap --prefix=/usr --libdir=/usr/lib --libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=https://gitlab.archlinux.org/archlinux/packaging/packages/gcc/-/issues --with-build-config=bootstrap-lto --with-linker-hash-style=gnu --with-system-zlib --enable-__cxa_atexit --enable-cet=auto --enable-checking=release --enable-clocale=gnu --enable-default-pie --enable-default-ssp --enable-gnu-indirect-function --enable-gnu-unique-object --enable-libstdcxx-backtrace --enable-link-serialization=1 --enable-linker-build-id --enable-lto --enable-multilib --enable-plugin --enable-shared --enable-threads=posix --disable-libssp --disable-libstdcxx-pch --disable-werror
+        Thread model: posix
+        Supported LTO compression algorithms: zlib zstd
+        gcc version 14.2.1 20240910 (GCC) 
+        COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/'
+         /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/cc1 -quiet -v /usr/share/cmake/Modules/CMakeCCompilerABI.c -quiet -dumpdir CMakeFiles/cmTC_e8152.dir/ -dumpbase CMakeCCompilerABI.c.c -dumpbase-ext .c -mtune=generic -march=x86-64 -version -o /tmp/ccp1tlOe.s
+        GNU C17 (GCC) version 14.2.1 20240910 (x86_64-pc-linux-gnu)
+        	compiled by GNU C version 14.2.1 20240910, GMP version 6.3.0, MPFR version 4.2.1, MPC version 1.3.1, isl version isl-0.27-GMP
+        
+        GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
+        ignoring nonexistent directory "/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../x86_64-pc-linux-gnu/include"
+        #include "..." search starts here:
+        #include <...> search starts here:
+         /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include
+         /usr/local/include
+         /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed
+         /usr/include
+        End of search list.
+        Compiler executable checksum: 91e980a230f7d2e39f93577991713edd
+        COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/'
+         as -v --64 -o CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o /tmp/ccp1tlOe.s
+        GNU assembler version 2.43.0 (x86_64-pc-linux-gnu) using BFD version (GNU Binutils) 2.43.0
+        COMPILER_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/
+        LIBRARY_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/:/lib/../lib/:/usr/lib/../lib/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../:/lib/:/usr/lib/
+        COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.'
+        Linking C executable cmTC_e8152
+        /usr/bin/cmake -E cmake_link_script CMakeFiles/cmTC_e8152.dir/link.txt --verbose=1
+        Using built-in specs.
+        COLLECT_GCC=/usr/bin/cc
+        COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper
+        Target: x86_64-pc-linux-gnu
+        Configured with: /build/gcc/src/gcc/configure --enable-languages=ada,c,c++,d,fortran,go,lto,m2,objc,obj-c++,rust --enable-bootstrap --prefix=/usr --libdir=/usr/lib --libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=https://gitlab.archlinux.org/archlinux/packaging/packages/gcc/-/issues --with-build-config=bootstrap-lto --with-linker-hash-style=gnu --with-system-zlib --enable-__cxa_atexit --enable-cet=auto --enable-checking=release --enable-clocale=gnu --enable-default-pie --enable-default-ssp --enable-gnu-indirect-function --enable-gnu-unique-object --enable-libstdcxx-backtrace --enable-link-serialization=1 --enable-linker-build-id --enable-lto --enable-multilib --enable-plugin --enable-shared --enable-threads=posix --disable-libssp --disable-libstdcxx-pch --disable-werror
+        Thread model: posix
+        Supported LTO compression algorithms: zlib zstd
+        gcc version 14.2.1 20240910 (GCC) 
+        COMPILER_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/
+        LIBRARY_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/:/lib/../lib/:/usr/lib/../lib/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../:/lib/:/usr/lib/
+        COLLECT_GCC_OPTIONS='-v' '-o' 'cmTC_e8152' '-mtune=generic' '-march=x86-64' '-dumpdir' 'cmTC_e8152.'
+         /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/collect2 -plugin /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/liblto_plugin.so -plugin-opt=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper -plugin-opt=-fresolution=/tmp/cctICz4q.res -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s -plugin-opt=-pass-through=-lc -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s --build-id --eh-frame-hdr --hash-style=gnu -m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 -pie -o cmTC_e8152 /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1 -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../.. -v CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -lgcc --push-state --as-needed -lgcc_s --pop-state -lc -lgcc --push-state --as-needed -lgcc_s --pop-state /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o
+        collect2 version 14.2.1 20240910
+        /usr/bin/ld -plugin /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/liblto_plugin.so -plugin-opt=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper -plugin-opt=-fresolution=/tmp/cctICz4q.res -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s -plugin-opt=-pass-through=-lc -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s --build-id --eh-frame-hdr --hash-style=gnu -m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 -pie -o cmTC_e8152 /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1 -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../.. -v CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -lgcc --push-state --as-needed -lgcc_s --pop-state -lc -lgcc --push-state --as-needed -lgcc_s --pop-state /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o
+        GNU ld (GNU Binutils) 2.43.0
+        COLLECT_GCC_OPTIONS='-v' '-o' 'cmTC_e8152' '-mtune=generic' '-march=x86-64' '-dumpdir' 'cmTC_e8152.'
+        /usr/bin/cc  -v -Wl,-v CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -o cmTC_e8152
+        make[1]: Leaving directory '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9'
+        
+      exitCode: 0
+  -
+    kind: "message-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerABI.cmake:182 (message)"
+      - "/usr/share/cmake/Modules/CMakeTestCCompiler.cmake:26 (CMAKE_DETERMINE_COMPILER_ABI)"
+      - "CMakeLists.txt:4 (project)"
+    message: |
+      Parsed C implicit include dir info: rv=done
+        found start of include info
+        found start of implicit include info
+          add: [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include]
+          add: [/usr/local/include]
+          add: [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed]
+          add: [/usr/include]
+        end of search list found
+        collapse include dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include] ==> [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include]
+        collapse include dir [/usr/local/include] ==> [/usr/local/include]
+        collapse include dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed] ==> [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed]
+        collapse include dir [/usr/include] ==> [/usr/include]
+        implicit include dirs: [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include;/usr/local/include;/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed;/usr/include]
+      
+      
+  -
+    kind: "message-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerABI.cmake:218 (message)"
+      - "/usr/share/cmake/Modules/CMakeTestCCompiler.cmake:26 (CMAKE_DETERMINE_COMPILER_ABI)"
+      - "CMakeLists.txt:4 (project)"
+    message: |
+      Parsed C implicit link information:
+        link line regex: [^( *|.*[/\\])(ld[0-9]*(\\.[a-z]+)?|CMAKE_LINK_STARTFILE-NOTFOUND|([^/\\]+-)?ld|collect2)[^/\\]*( |$)]
+        linker tool regex: [^[ 	]*(->|")?[ 	]*(([^"]*[/\\])?(ld[0-9]*(\\.[a-z]+)?))("|,| |$)]
+        ignore line: [Change Dir: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9']
+        ignore line: []
+        ignore line: [Run Build Command(s): /usr/bin/cmake -E env VERBOSE=1 /usr/bin/make -f Makefile cmTC_e8152/fast]
+        ignore line: [/usr/bin/make  -f CMakeFiles/cmTC_e8152.dir/build.make CMakeFiles/cmTC_e8152.dir/build]
+        ignore line: [make[1]: Entering directory '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeScratch/TryCompile-omrBX9']
+        ignore line: [Building C object CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o]
+        ignore line: [/usr/bin/cc   -v -o CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -c /usr/share/cmake/Modules/CMakeCCompilerABI.c]
+        ignore line: [Using built-in specs.]
+        ignore line: [COLLECT_GCC=/usr/bin/cc]
+        ignore line: [Target: x86_64-pc-linux-gnu]
+        ignore line: [Configured with: /build/gcc/src/gcc/configure --enable-languages=ada c c++ d fortran go lto m2 objc obj-c++ rust --enable-bootstrap --prefix=/usr --libdir=/usr/lib --libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=https://gitlab.archlinux.org/archlinux/packaging/packages/gcc/-/issues --with-build-config=bootstrap-lto --with-linker-hash-style=gnu --with-system-zlib --enable-__cxa_atexit --enable-cet=auto --enable-checking=release --enable-clocale=gnu --enable-default-pie --enable-default-ssp --enable-gnu-indirect-function --enable-gnu-unique-object --enable-libstdcxx-backtrace --enable-link-serialization=1 --enable-linker-build-id --enable-lto --enable-multilib --enable-plugin --enable-shared --enable-threads=posix --disable-libssp --disable-libstdcxx-pch --disable-werror]
+        ignore line: [Thread model: posix]
+        ignore line: [Supported LTO compression algorithms: zlib zstd]
+        ignore line: [gcc version 14.2.1 20240910 (GCC) ]
+        ignore line: [COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/']
+        ignore line: [ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/cc1 -quiet -v /usr/share/cmake/Modules/CMakeCCompilerABI.c -quiet -dumpdir CMakeFiles/cmTC_e8152.dir/ -dumpbase CMakeCCompilerABI.c.c -dumpbase-ext .c -mtune=generic -march=x86-64 -version -o /tmp/ccp1tlOe.s]
+        ignore line: [GNU C17 (GCC) version 14.2.1 20240910 (x86_64-pc-linux-gnu)]
+        ignore line: [	compiled by GNU C version 14.2.1 20240910  GMP version 6.3.0  MPFR version 4.2.1  MPC version 1.3.1  isl version isl-0.27-GMP]
+        ignore line: []
+        ignore line: [GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072]
+        ignore line: [ignoring nonexistent directory "/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../x86_64-pc-linux-gnu/include"]
+        ignore line: [#include "..." search starts here:]
+        ignore line: [#include <...> search starts here:]
+        ignore line: [ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include]
+        ignore line: [ /usr/local/include]
+        ignore line: [ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include-fixed]
+        ignore line: [ /usr/include]
+        ignore line: [End of search list.]
+        ignore line: [Compiler executable checksum: 91e980a230f7d2e39f93577991713edd]
+        ignore line: [COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/']
+        ignore line: [ as -v --64 -o CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o /tmp/ccp1tlOe.s]
+        ignore line: [GNU assembler version 2.43.0 (x86_64-pc-linux-gnu) using BFD version (GNU Binutils) 2.43.0]
+        ignore line: [COMPILER_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/]
+        ignore line: [LIBRARY_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/:/lib/../lib/:/usr/lib/../lib/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../:/lib/:/usr/lib/]
+        ignore line: [COLLECT_GCC_OPTIONS='-v' '-o' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o' '-c' '-mtune=generic' '-march=x86-64' '-dumpdir' 'CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.']
+        ignore line: [Linking C executable cmTC_e8152]
+        ignore line: [/usr/bin/cmake -E cmake_link_script CMakeFiles/cmTC_e8152.dir/link.txt --verbose=1]
+        ignore line: [Using built-in specs.]
+        ignore line: [COLLECT_GCC=/usr/bin/cc]
+        ignore line: [COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper]
+        ignore line: [Target: x86_64-pc-linux-gnu]
+        ignore line: [Configured with: /build/gcc/src/gcc/configure --enable-languages=ada c c++ d fortran go lto m2 objc obj-c++ rust --enable-bootstrap --prefix=/usr --libdir=/usr/lib --libexecdir=/usr/lib --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=https://gitlab.archlinux.org/archlinux/packaging/packages/gcc/-/issues --with-build-config=bootstrap-lto --with-linker-hash-style=gnu --with-system-zlib --enable-__cxa_atexit --enable-cet=auto --enable-checking=release --enable-clocale=gnu --enable-default-pie --enable-default-ssp --enable-gnu-indirect-function --enable-gnu-unique-object --enable-libstdcxx-backtrace --enable-link-serialization=1 --enable-linker-build-id --enable-lto --enable-multilib --enable-plugin --enable-shared --enable-threads=posix --disable-libssp --disable-libstdcxx-pch --disable-werror]
+        ignore line: [Thread model: posix]
+        ignore line: [Supported LTO compression algorithms: zlib zstd]
+        ignore line: [gcc version 14.2.1 20240910 (GCC) ]
+        ignore line: [COMPILER_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/]
+        ignore line: [LIBRARY_PATH=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/:/lib/../lib/:/usr/lib/../lib/:/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../:/lib/:/usr/lib/]
+        ignore line: [COLLECT_GCC_OPTIONS='-v' '-o' 'cmTC_e8152' '-mtune=generic' '-march=x86-64' '-dumpdir' 'cmTC_e8152.']
+        link line: [ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/collect2 -plugin /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/liblto_plugin.so -plugin-opt=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper -plugin-opt=-fresolution=/tmp/cctICz4q.res -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s -plugin-opt=-pass-through=-lc -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s --build-id --eh-frame-hdr --hash-style=gnu -m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 -pie -o cmTC_e8152 /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1 -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../.. -v CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -lgcc --push-state --as-needed -lgcc_s --pop-state -lc -lgcc --push-state --as-needed -lgcc_s --pop-state /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o]
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/collect2] ==> ignore
+          arg [-plugin] ==> ignore
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/liblto_plugin.so] ==> ignore
+          arg [-plugin-opt=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper] ==> ignore
+          arg [-plugin-opt=-fresolution=/tmp/cctICz4q.res] ==> ignore
+          arg [-plugin-opt=-pass-through=-lgcc] ==> ignore
+          arg [-plugin-opt=-pass-through=-lgcc_s] ==> ignore
+          arg [-plugin-opt=-pass-through=-lc] ==> ignore
+          arg [-plugin-opt=-pass-through=-lgcc] ==> ignore
+          arg [-plugin-opt=-pass-through=-lgcc_s] ==> ignore
+          arg [--build-id] ==> ignore
+          arg [--eh-frame-hdr] ==> ignore
+          arg [--hash-style=gnu] ==> ignore
+          arg [-m] ==> ignore
+          arg [elf_x86_64] ==> ignore
+          arg [-dynamic-linker] ==> ignore
+          arg [/lib64/ld-linux-x86-64.so.2] ==> ignore
+          arg [-pie] ==> ignore
+          arg [-o] ==> ignore
+          arg [cmTC_e8152] ==> ignore
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o] ==> obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o]
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o] ==> obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o]
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o] ==> obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o]
+          arg [-L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1] ==> dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1]
+          arg [-L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib] ==> dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib]
+          arg [-L/lib/../lib] ==> dir [/lib/../lib]
+          arg [-L/usr/lib/../lib] ==> dir [/usr/lib/../lib]
+          arg [-L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../..] ==> dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../..]
+          arg [-v] ==> ignore
+          arg [CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o] ==> ignore
+          arg [-lgcc] ==> lib [gcc]
+          arg [--push-state] ==> ignore
+          arg [--as-needed] ==> ignore
+          arg [-lgcc_s] ==> lib [gcc_s]
+          arg [--pop-state] ==> ignore
+          arg [-lc] ==> lib [c]
+          arg [-lgcc] ==> lib [gcc]
+          arg [--push-state] ==> ignore
+          arg [--as-needed] ==> ignore
+          arg [-lgcc_s] ==> lib [gcc_s]
+          arg [--pop-state] ==> ignore
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o] ==> obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o]
+          arg [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o] ==> obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o]
+        ignore line: [collect2 version 14.2.1 20240910]
+        ignore line: [/usr/bin/ld -plugin /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/liblto_plugin.so -plugin-opt=/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/lto-wrapper -plugin-opt=-fresolution=/tmp/cctICz4q.res -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s -plugin-opt=-pass-through=-lc -plugin-opt=-pass-through=-lgcc -plugin-opt=-pass-through=-lgcc_s --build-id --eh-frame-hdr --hash-style=gnu -m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 -pie -o cmTC_e8152 /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1 -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../.. -v CMakeFiles/cmTC_e8152.dir/CMakeCCompilerABI.c.o -lgcc --push-state --as-needed -lgcc_s --pop-state -lc -lgcc --push-state --as-needed -lgcc_s --pop-state /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o]
+        linker tool for 'C': /usr/bin/ld
+        collapse obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/Scrt1.o] ==> [/usr/lib/Scrt1.o]
+        collapse obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crti.o] ==> [/usr/lib/crti.o]
+        collapse obj [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/crtn.o] ==> [/usr/lib/crtn.o]
+        collapse library dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1] ==> [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1]
+        collapse library dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib] ==> [/usr/lib]
+        collapse library dir [/lib/../lib] ==> [/lib]
+        collapse library dir [/usr/lib/../lib] ==> [/usr/lib]
+        collapse library dir [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../..] ==> [/usr/lib]
+        implicit libs: [gcc;gcc_s;c;gcc;gcc_s]
+        implicit objs: [/usr/lib/Scrt1.o;/usr/lib/crti.o;/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtbeginS.o;/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/crtendS.o;/usr/lib/crtn.o]
+        implicit dirs: [/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1;/usr/lib;/lib]
+        implicit fwks: []
+      
+      
+  -
+    kind: "message-v1"
+    backtrace:
+      - "/usr/share/cmake/Modules/Internal/CMakeDetermineLinkerId.cmake:40 (message)"
+      - "/usr/share/cmake/Modules/CMakeDetermineCompilerABI.cmake:255 (cmake_determine_linker_id)"
+      - "/usr/share/cmake/Modules/CMakeTestCCompiler.cmake:26 (CMAKE_DETERMINE_COMPILER_ABI)"
+      - "CMakeLists.txt:4 (project)"
+    message: |
+      Running the C compiler's linker: "/usr/bin/ld" "-v"
+      GNU ld (GNU Binutils) 2.43.0
+...
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeDirectoryInformation.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeDirectoryInformation.cmake
@@ -0,0 +1,16 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Relative path conversion top directories.
+set(CMAKE_RELATIVE_PATH_TOP_SOURCE "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627")
+set(CMAKE_RELATIVE_PATH_TOP_BINARY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build")
+
+# Force unix paths in dependencies.
+set(CMAKE_FORCE_UNIX_PATHS 1)
+
+
+# The C and CXX include file regular expressions for this directory.
+set(CMAKE_C_INCLUDE_REGEX_SCAN "^.*$")
+set(CMAKE_C_INCLUDE_REGEX_COMPLAIN "^$")
+set(CMAKE_CXX_INCLUDE_REGEX_SCAN ${CMAKE_C_INCLUDE_REGEX_SCAN})
+set(CMAKE_CXX_INCLUDE_REGEX_COMPLAIN ${CMAKE_C_INCLUDE_REGEX_COMPLAIN})
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeRuleHashes.txt b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/CMakeRuleHashes.txt
@@ -0,0 +1,11 @@
+# Hashes of file build rules.
+dfc7913e13c731b308c3ca1beb5edf63 CMakeFiles/libvterm
+dec6adeb6bd6ef2c97bfa5fce28780da CMakeFiles/libvterm-complete
+562576bedaaa7f16b69fadc97a662e22 CMakeFiles/run
+5018508a1f9a40b65fbd4679a480e853 libvterm-prefix/src/libvterm-stamp/libvterm-build
+b041cb979fd6a837b3fee3a5407e3598 libvterm-prefix/src/libvterm-stamp/libvterm-configure
+5a4864bcbaf1c024d14a61108fc426c1 libvterm-prefix/src/libvterm-stamp/libvterm-download
+58432d5e1dbc491cadfd6673743c91a1 libvterm-prefix/src/libvterm-stamp/libvterm-install
+dfb912dce5a267709ff06c1f5ba2f0e7 libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
+d75c47368a76e9a14e81d4b4534c8c4f libvterm-prefix/src/libvterm-stamp/libvterm-patch
+1b1187951ee3e2f9b6ec544c58e7756e libvterm-prefix/src/libvterm-stamp/libvterm-update
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile.cmake
@@ -0,0 +1,138 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# The generator used is:
+set(CMAKE_DEPENDS_GENERATOR "Unix Makefiles")
+
+# The top level Makefile was generated from the following files:
+set(CMAKE_MAKEFILE_DEPENDS
+  "CMakeCache.txt"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/CMakeLists.txt"
+  "CMakeFiles/3.31.0/CMakeCCompiler.cmake"
+  "CMakeFiles/3.31.0/CMakeSystem.cmake"
+  "libvterm-prefix/tmp/libvterm-mkdirs.cmake"
+  "/usr/share/cmake/Modules/CMakeCCompiler.cmake.in"
+  "/usr/share/cmake/Modules/CMakeCCompilerABI.c"
+  "/usr/share/cmake/Modules/CMakeCInformation.cmake"
+  "/usr/share/cmake/Modules/CMakeCommonLanguageInclude.cmake"
+  "/usr/share/cmake/Modules/CMakeCompilerIdDetection.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineCCompiler.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineCompilerABI.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineCompilerId.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineCompilerSupport.cmake"
+  "/usr/share/cmake/Modules/CMakeDetermineSystem.cmake"
+  "/usr/share/cmake/Modules/CMakeFindBinUtils.cmake"
+  "/usr/share/cmake/Modules/CMakeGenericSystem.cmake"
+  "/usr/share/cmake/Modules/CMakeInitializeConfigs.cmake"
+  "/usr/share/cmake/Modules/CMakeLanguageInformation.cmake"
+  "/usr/share/cmake/Modules/CMakeParseImplicitIncludeInfo.cmake"
+  "/usr/share/cmake/Modules/CMakeParseImplicitLinkInfo.cmake"
+  "/usr/share/cmake/Modules/CMakeParseLibraryArchitecture.cmake"
+  "/usr/share/cmake/Modules/CMakeSystem.cmake.in"
+  "/usr/share/cmake/Modules/CMakeSystemSpecificInformation.cmake"
+  "/usr/share/cmake/Modules/CMakeSystemSpecificInitialize.cmake"
+  "/usr/share/cmake/Modules/CMakeTestCCompiler.cmake"
+  "/usr/share/cmake/Modules/CMakeTestCompilerCommon.cmake"
+  "/usr/share/cmake/Modules/CMakeUnixFindMake.cmake"
+  "/usr/share/cmake/Modules/Compiler/ADSP-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/ARMCC-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/ARMClang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/AppleClang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Borland-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Bruce-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/CMakeCommonCompilerMacros.cmake"
+  "/usr/share/cmake/Modules/Compiler/Clang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Clang-DetermineCompilerInternal.cmake"
+  "/usr/share/cmake/Modules/Compiler/Compaq-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Cray-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/CrayClang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Embarcadero-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Fujitsu-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/FujitsuClang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/GHS-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/GNU-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/GNU-C.cmake"
+  "/usr/share/cmake/Modules/Compiler/GNU-FindBinUtils.cmake"
+  "/usr/share/cmake/Modules/Compiler/GNU.cmake"
+  "/usr/share/cmake/Modules/Compiler/HP-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/IAR-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/IBMCPP-C-DetermineVersionInternal.cmake"
+  "/usr/share/cmake/Modules/Compiler/IBMClang-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Intel-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/IntelLLVM-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/LCC-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/MSVC-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/NVHPC-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/NVIDIA-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/OpenWatcom-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/OrangeC-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/PGI-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/PathScale-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/SCO-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/SDCC-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/SunPro-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/TI-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/TIClang-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Tasking-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/TinyCC-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/VisualAge-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/Watcom-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/XL-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/XLClang-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/Compiler/zOS-C-DetermineCompiler.cmake"
+  "/usr/share/cmake/Modules/ExternalProject.cmake"
+  "/usr/share/cmake/Modules/ExternalProject/PatchInfo.txt.in"
+  "/usr/share/cmake/Modules/ExternalProject/RepositoryInfo.txt.in"
+  "/usr/share/cmake/Modules/ExternalProject/UpdateInfo.txt.in"
+  "/usr/share/cmake/Modules/ExternalProject/cfgcmd.txt.in"
+  "/usr/share/cmake/Modules/ExternalProject/gitclone.cmake.in"
+  "/usr/share/cmake/Modules/ExternalProject/gitupdate.cmake.in"
+  "/usr/share/cmake/Modules/ExternalProject/mkdirs.cmake.in"
+  "/usr/share/cmake/Modules/ExternalProject/shared_internal_commands.cmake"
+  "/usr/share/cmake/Modules/FindGit.cmake"
+  "/usr/share/cmake/Modules/FindPackageHandleStandardArgs.cmake"
+  "/usr/share/cmake/Modules/FindPackageMessage.cmake"
+  "/usr/share/cmake/Modules/Internal/CMakeCLinkerInformation.cmake"
+  "/usr/share/cmake/Modules/Internal/CMakeCommonLinkerInformation.cmake"
+  "/usr/share/cmake/Modules/Internal/CMakeDetermineLinkerId.cmake"
+  "/usr/share/cmake/Modules/Internal/FeatureTesting.cmake"
+  "/usr/share/cmake/Modules/Linker/GNU-C.cmake"
+  "/usr/share/cmake/Modules/Linker/GNU.cmake"
+  "/usr/share/cmake/Modules/Platform/Linker/GNU.cmake"
+  "/usr/share/cmake/Modules/Platform/Linker/Linux-GNU-C.cmake"
+  "/usr/share/cmake/Modules/Platform/Linker/Linux-GNU.cmake"
+  "/usr/share/cmake/Modules/Platform/Linux-GNU-C.cmake"
+  "/usr/share/cmake/Modules/Platform/Linux-GNU.cmake"
+  "/usr/share/cmake/Modules/Platform/Linux-Initialize.cmake"
+  "/usr/share/cmake/Modules/Platform/Linux.cmake"
+  "/usr/share/cmake/Modules/Platform/UnixPaths.cmake"
+  )
+
+# The corresponding makefile is:
+set(CMAKE_MAKEFILE_OUTPUTS
+  "Makefile"
+  "CMakeFiles/cmake.check_cache"
+  )
+
+# Byproducts of CMake generate step:
+set(CMAKE_MAKEFILE_PRODUCTS
+  "CMakeFiles/3.31.0/CMakeSystem.cmake"
+  "CMakeFiles/3.31.0/CMakeCCompiler.cmake"
+  "CMakeFiles/3.31.0/CMakeCCompiler.cmake"
+  "libvterm-prefix/tmp/libvterm-mkdirs.cmake"
+  "libvterm-prefix/tmp/libvterm-gitclone.cmake"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt"
+  "libvterm-prefix/tmp/libvterm-gitupdate.cmake"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-update-info.txt"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-patch-info.txt"
+  "libvterm-prefix/tmp/libvterm-cfgcmd.txt"
+  "CMakeFiles/CMakeDirectoryInformation.cmake"
+  )
+
+# Dependency information for all targets:
+set(CMAKE_DEPEND_INFO_FILES
+  "CMakeFiles/vterm-module.dir/DependInfo.cmake"
+  "CMakeFiles/libvterm.dir/DependInfo.cmake"
+  "CMakeFiles/run.dir/DependInfo.cmake"
+  )
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile2 b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/Makefile2
@@ -0,0 +1,187 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Default target executed when no arguments are given to make.
+default_target: all
+.PHONY : default_target
+
+#=============================================================================
+# Special targets provided by cmake.
+
+# Disable implicit rules so canonical targets will work.
+.SUFFIXES:
+
+# Disable VCS-based implicit rules.
+% : %,v
+
+# Disable VCS-based implicit rules.
+% : RCS/%
+
+# Disable VCS-based implicit rules.
+% : RCS/%,v
+
+# Disable VCS-based implicit rules.
+% : SCCS/s.%
+
+# Disable VCS-based implicit rules.
+% : s.%
+
+.SUFFIXES: .hpux_make_needs_suffix_list
+
+# Command-line flag to silence nested $(MAKE).
+$(VERBOSE)MAKESILENT = -s
+
+#Suppress display of executed commands.
+$(VERBOSE).SILENT:
+
+# A target that is always out of date.
+cmake_force:
+.PHONY : cmake_force
+
+#=============================================================================
+# Set environment variables for the build.
+
+# The shell in which to execute make rules.
+SHELL = /bin/sh
+
+# The CMake executable.
+CMAKE_COMMAND = /usr/bin/cmake
+
+# The command to remove a file.
+RM = /usr/bin/cmake -E rm -f
+
+# Escaping for special characters.
+EQUALS = =
+
+# The top-level source directory on which CMake was run.
+CMAKE_SOURCE_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# The top-level build directory on which CMake was run.
+CMAKE_BINARY_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+#=============================================================================
+# Directory level rules for the build root directory
+
+# The main recursive "all" target.
+all: CMakeFiles/vterm-module.dir/all
+all: CMakeFiles/libvterm.dir/all
+.PHONY : all
+
+# The main recursive "codegen" target.
+codegen: CMakeFiles/vterm-module.dir/codegen
+codegen: CMakeFiles/libvterm.dir/codegen
+.PHONY : codegen
+
+# The main recursive "preinstall" target.
+preinstall:
+.PHONY : preinstall
+
+# The main recursive "clean" target.
+clean: CMakeFiles/vterm-module.dir/clean
+clean: CMakeFiles/libvterm.dir/clean
+clean: CMakeFiles/run.dir/clean
+.PHONY : clean
+
+#=============================================================================
+# Target rules for target CMakeFiles/vterm-module.dir
+
+# All Build rule for target.
+CMakeFiles/vterm-module.dir/all: CMakeFiles/libvterm.dir/all
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/depend
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/build
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=9,10,11,12 "Built target vterm-module"
+.PHONY : CMakeFiles/vterm-module.dir/all
+
+# Build rule for subdir invocation for target.
+CMakeFiles/vterm-module.dir/rule: cmake_check_build_system
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 12
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 CMakeFiles/vterm-module.dir/all
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 0
+.PHONY : CMakeFiles/vterm-module.dir/rule
+
+# Convenience name for target.
+vterm-module: CMakeFiles/vterm-module.dir/rule
+.PHONY : vterm-module
+
+# codegen rule for target.
+CMakeFiles/vterm-module.dir/codegen: CMakeFiles/libvterm.dir/all
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/codegen
+.PHONY : CMakeFiles/vterm-module.dir/codegen
+
+# clean rule for target.
+CMakeFiles/vterm-module.dir/clean:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/clean
+.PHONY : CMakeFiles/vterm-module.dir/clean
+
+#=============================================================================
+# Target rules for target CMakeFiles/libvterm.dir
+
+# All Build rule for target.
+CMakeFiles/libvterm.dir/all:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/libvterm.dir/build.make CMakeFiles/libvterm.dir/depend
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/libvterm.dir/build.make CMakeFiles/libvterm.dir/build
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=1,2,3,4,5,6,7,8 "Built target libvterm"
+.PHONY : CMakeFiles/libvterm.dir/all
+
+# Build rule for subdir invocation for target.
+CMakeFiles/libvterm.dir/rule: cmake_check_build_system
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 8
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 CMakeFiles/libvterm.dir/all
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 0
+.PHONY : CMakeFiles/libvterm.dir/rule
+
+# Convenience name for target.
+libvterm: CMakeFiles/libvterm.dir/rule
+.PHONY : libvterm
+
+# codegen rule for target.
+CMakeFiles/libvterm.dir/codegen:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/libvterm.dir/build.make CMakeFiles/libvterm.dir/codegen
+.PHONY : CMakeFiles/libvterm.dir/codegen
+
+# clean rule for target.
+CMakeFiles/libvterm.dir/clean:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/libvterm.dir/build.make CMakeFiles/libvterm.dir/clean
+.PHONY : CMakeFiles/libvterm.dir/clean
+
+#=============================================================================
+# Target rules for target CMakeFiles/run.dir
+
+# All Build rule for target.
+CMakeFiles/run.dir/all: CMakeFiles/vterm-module.dir/all
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/run.dir/build.make CMakeFiles/run.dir/depend
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/run.dir/build.make CMakeFiles/run.dir/build
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num= "Built target run"
+.PHONY : CMakeFiles/run.dir/all
+
+# Build rule for subdir invocation for target.
+CMakeFiles/run.dir/rule: cmake_check_build_system
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 12
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 CMakeFiles/run.dir/all
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 0
+.PHONY : CMakeFiles/run.dir/rule
+
+# Convenience name for target.
+run: CMakeFiles/run.dir/rule
+.PHONY : run
+
+# codegen rule for target.
+CMakeFiles/run.dir/codegen: CMakeFiles/vterm-module.dir/all
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/run.dir/build.make CMakeFiles/run.dir/codegen
+.PHONY : CMakeFiles/run.dir/codegen
+
+# clean rule for target.
+CMakeFiles/run.dir/clean:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/run.dir/build.make CMakeFiles/run.dir/clean
+.PHONY : CMakeFiles/run.dir/clean
+
+#=============================================================================
+# Special targets to cleanup operation of make.
+
+# Special rule to run CMake to check the build system integrity.
+# No rule that depends on this can have commands that come from listfiles
+# because they might be regenerated.
+cmake_check_build_system:
+	$(CMAKE_COMMAND) -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR) --check-build-system CMakeFiles/Makefile.cmake 0
+.PHONY : cmake_check_build_system
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/TargetDirectories.txt b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/TargetDirectories.txt
@@ -0,0 +1,5 @@
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/edit_cache.dir
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/rebuild_cache.dir
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/cmake.check_cache b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/cmake.check_cache
@@ -0,0 +1 @@
+# This file is generated by cmake for dependency checking of the CMakeCache.txt file
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/DependInfo.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/DependInfo.cmake
@@ -0,0 +1,22 @@
+
+# Consider dependencies only in project.
+set(CMAKE_DEPENDS_IN_PROJECT_ONLY OFF)
+
+# The set of languages for which implicit dependencies are needed:
+set(CMAKE_DEPENDS_LANGUAGES
+  )
+
+# The set of dependency files which are needed:
+set(CMAKE_DEPENDS_DEPENDENCY_FILES
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_LINKED_INFO_FILES
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_FORWARD_LINKED_INFO_FILES
+  )
+
+# Fortran module output directory.
+set(CMAKE_Fortran_TARGET_MODULE_DIR "")
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.json b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.json
@@ -0,0 +1,43 @@
+{
+	"sources" : 
+	[
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch.rule"
+		},
+		{
+			"file" : "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-update.rule"
+		}
+	],
+	"target" : 
+	{
+		"labels" : 
+		[
+			"libvterm"
+		],
+		"name" : "libvterm"
+	}
+}
+\ No newline at end of file
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.txt b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/Labels.txt
@@ -0,0 +1,13 @@
+# Target labels
+ libvterm
+# Source files and their labels
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch.rule
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-update.rule
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/build.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/build.make
@@ -0,0 +1,149 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Delete rule output on recipe failure.
+.DELETE_ON_ERROR:
+
+#=============================================================================
+# Special targets provided by cmake.
+
+# Disable implicit rules so canonical targets will work.
+.SUFFIXES:
+
+# Disable VCS-based implicit rules.
+% : %,v
+
+# Disable VCS-based implicit rules.
+% : RCS/%
+
+# Disable VCS-based implicit rules.
+% : RCS/%,v
+
+# Disable VCS-based implicit rules.
+% : SCCS/s.%
+
+# Disable VCS-based implicit rules.
+% : s.%
+
+.SUFFIXES: .hpux_make_needs_suffix_list
+
+# Command-line flag to silence nested $(MAKE).
+$(VERBOSE)MAKESILENT = -s
+
+#Suppress display of executed commands.
+$(VERBOSE).SILENT:
+
+# A target that is always out of date.
+cmake_force:
+.PHONY : cmake_force
+
+#=============================================================================
+# Set environment variables for the build.
+
+# The shell in which to execute make rules.
+SHELL = /bin/sh
+
+# The CMake executable.
+CMAKE_COMMAND = /usr/bin/cmake
+
+# The command to remove a file.
+RM = /usr/bin/cmake -E rm -f
+
+# Escaping for special characters.
+EQUALS = =
+
+# The top-level source directory on which CMake was run.
+CMAKE_SOURCE_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# The top-level build directory on which CMake was run.
+CMAKE_BINARY_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+# Utility rule file for libvterm.
+
+# Include any custom commands dependencies for this target.
+include CMakeFiles/libvterm.dir/compiler_depend.make
+
+# Include the progress variables for this target.
+include CMakeFiles/libvterm.dir/progress.make
+
+CMakeFiles/libvterm: CMakeFiles/libvterm-complete
+
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-install
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-download
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-update
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-patch
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-configure
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-build
+CMakeFiles/libvterm-complete: libvterm-prefix/src/libvterm-stamp/libvterm-install
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_1) "Completed 'libvterm'"
+	/usr/bin/cmake -E make_directory /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles
+	/usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm-complete
+	/usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-done
+
+libvterm-prefix/src/libvterm-stamp/libvterm-build: libvterm-prefix/src/libvterm-stamp/libvterm-configure
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_2) "Performing build step for 'libvterm'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && make "CFLAGS='-fPIC'" "LDFLAGS='-static'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build
+
+libvterm-prefix/src/libvterm-stamp/libvterm-configure: libvterm-prefix/tmp/libvterm-cfgcmd.txt
+libvterm-prefix/src/libvterm-stamp/libvterm-configure: libvterm-prefix/src/libvterm-stamp/libvterm-patch
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_3) "No configure step for 'libvterm'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -E echo_append
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure
+
+libvterm-prefix/src/libvterm-stamp/libvterm-download: libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt
+libvterm-prefix/src/libvterm-stamp/libvterm-download: libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_4) "Performing download step (git clone) for 'libvterm'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src && /usr/bin/cmake -DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE -P /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src && /usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download
+
+libvterm-prefix/src/libvterm-stamp/libvterm-install: libvterm-prefix/src/libvterm-stamp/libvterm-build
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_5) "No install step for 'libvterm'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -E echo_append
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install
+
+libvterm-prefix/src/libvterm-stamp/libvterm-mkdir:
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_6) "Creating directories for 'libvterm'"
+	/usr/bin/cmake -Dcfgdir= -P /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-mkdirs.cmake
+	/usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
+
+libvterm-prefix/src/libvterm-stamp/libvterm-patch: libvterm-prefix/src/libvterm-stamp/libvterm-patch-info.txt
+libvterm-prefix/src/libvterm-stamp/libvterm-patch: libvterm-prefix/src/libvterm-stamp/libvterm-update
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_7) "No patch step for 'libvterm'"
+	/usr/bin/cmake -E echo_append
+	/usr/bin/cmake -E touch /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch
+
+libvterm-prefix/src/libvterm-stamp/libvterm-update: libvterm-prefix/tmp/libvterm-gitupdate.cmake
+libvterm-prefix/src/libvterm-stamp/libvterm-update: libvterm-prefix/src/libvterm-stamp/libvterm-update-info.txt
+libvterm-prefix/src/libvterm-stamp/libvterm-update: libvterm-prefix/src/libvterm-stamp/libvterm-download
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --blue --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_8) "Performing update step for 'libvterm'"
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm && /usr/bin/cmake -Dcan_fetch=YES -DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE -P /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake
+
+CMakeFiles/libvterm.dir/codegen:
+.PHONY : CMakeFiles/libvterm.dir/codegen
+
+libvterm: CMakeFiles/libvterm
+libvterm: CMakeFiles/libvterm-complete
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-build
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-configure
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-download
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-install
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-patch
+libvterm: libvterm-prefix/src/libvterm-stamp/libvterm-update
+libvterm: CMakeFiles/libvterm.dir/build.make
+.PHONY : libvterm
+
+# Rule to build all files generated by this target.
+CMakeFiles/libvterm.dir/build: libvterm
+.PHONY : CMakeFiles/libvterm.dir/build
+
+CMakeFiles/libvterm.dir/clean:
+	$(CMAKE_COMMAND) -P CMakeFiles/libvterm.dir/cmake_clean.cmake
+.PHONY : CMakeFiles/libvterm.dir/clean
+
+CMakeFiles/libvterm.dir/depend:
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build && $(CMAKE_COMMAND) -E cmake_depends "Unix Makefiles" /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/DependInfo.cmake "--color=$(COLOR)"
+.PHONY : CMakeFiles/libvterm.dir/depend
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/cmake_clean.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/cmake_clean.cmake
@@ -0,0 +1,16 @@
+file(REMOVE_RECURSE
+  "CMakeFiles/libvterm"
+  "CMakeFiles/libvterm-complete"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-build"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-configure"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-download"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-install"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-mkdir"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-patch"
+  "libvterm-prefix/src/libvterm-stamp/libvterm-update"
+)
+
+# Per-language clean rules from dependency scanning.
+foreach(lang )
+  include(CMakeFiles/libvterm.dir/cmake_clean_${lang}.cmake OPTIONAL)
+endforeach()
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.make
@@ -0,0 +1,2 @@
+# Empty custom commands generated dependencies file for libvterm.
+# This may be replaced when dependencies are built.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.ts b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/compiler_depend.ts
@@ -0,0 +1,2 @@
+# CMAKE generated file: DO NOT EDIT!
+# Timestamp file for custom commands dependencies management for libvterm.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/progress.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/libvterm.dir/progress.make
@@ -0,0 +1,9 @@
+CMAKE_PROGRESS_1 = 1
+CMAKE_PROGRESS_2 = 2
+CMAKE_PROGRESS_3 = 3
+CMAKE_PROGRESS_4 = 4
+CMAKE_PROGRESS_5 = 5
+CMAKE_PROGRESS_6 = 6
+CMAKE_PROGRESS_7 = 7
+CMAKE_PROGRESS_8 = 8
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/progress.marks b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/progress.marks
@@ -0,0 +1 @@
+12
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/DependInfo.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/DependInfo.cmake
@@ -0,0 +1,22 @@
+
+# Consider dependencies only in project.
+set(CMAKE_DEPENDS_IN_PROJECT_ONLY OFF)
+
+# The set of languages for which implicit dependencies are needed:
+set(CMAKE_DEPENDS_LANGUAGES
+  )
+
+# The set of dependency files which are needed:
+set(CMAKE_DEPENDS_DEPENDENCY_FILES
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_LINKED_INFO_FILES
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_FORWARD_LINKED_INFO_FILES
+  )
+
+# Fortran module output directory.
+set(CMAKE_Fortran_TARGET_MODULE_DIR "")
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/build.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/build.make
@@ -0,0 +1,90 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Delete rule output on recipe failure.
+.DELETE_ON_ERROR:
+
+#=============================================================================
+# Special targets provided by cmake.
+
+# Disable implicit rules so canonical targets will work.
+.SUFFIXES:
+
+# Disable VCS-based implicit rules.
+% : %,v
+
+# Disable VCS-based implicit rules.
+% : RCS/%
+
+# Disable VCS-based implicit rules.
+% : RCS/%,v
+
+# Disable VCS-based implicit rules.
+% : SCCS/s.%
+
+# Disable VCS-based implicit rules.
+% : s.%
+
+.SUFFIXES: .hpux_make_needs_suffix_list
+
+# Command-line flag to silence nested $(MAKE).
+$(VERBOSE)MAKESILENT = -s
+
+#Suppress display of executed commands.
+$(VERBOSE).SILENT:
+
+# A target that is always out of date.
+cmake_force:
+.PHONY : cmake_force
+
+#=============================================================================
+# Set environment variables for the build.
+
+# The shell in which to execute make rules.
+SHELL = /bin/sh
+
+# The CMake executable.
+CMAKE_COMMAND = /usr/bin/cmake
+
+# The command to remove a file.
+RM = /usr/bin/cmake -E rm -f
+
+# Escaping for special characters.
+EQUALS = =
+
+# The top-level source directory on which CMake was run.
+CMAKE_SOURCE_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# The top-level build directory on which CMake was run.
+CMAKE_BINARY_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+# Utility rule file for run.
+
+# Include any custom commands dependencies for this target.
+include CMakeFiles/run.dir/compiler_depend.make
+
+# Include the progress variables for this target.
+include CMakeFiles/run.dir/progress.make
+
+CMakeFiles/run: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so
+	emacs -Q -L /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 -L /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build --eval \(require\ \'vterm\) --eval \(vterm\)
+
+CMakeFiles/run.dir/codegen:
+.PHONY : CMakeFiles/run.dir/codegen
+
+run: CMakeFiles/run
+run: CMakeFiles/run.dir/build.make
+.PHONY : run
+
+# Rule to build all files generated by this target.
+CMakeFiles/run.dir/build: run
+.PHONY : CMakeFiles/run.dir/build
+
+CMakeFiles/run.dir/clean:
+	$(CMAKE_COMMAND) -P CMakeFiles/run.dir/cmake_clean.cmake
+.PHONY : CMakeFiles/run.dir/clean
+
+CMakeFiles/run.dir/depend:
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build && $(CMAKE_COMMAND) -E cmake_depends "Unix Makefiles" /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/DependInfo.cmake "--color=$(COLOR)"
+.PHONY : CMakeFiles/run.dir/depend
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/cmake_clean.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/cmake_clean.cmake
@@ -0,0 +1,8 @@
+file(REMOVE_RECURSE
+  "CMakeFiles/run"
+)
+
+# Per-language clean rules from dependency scanning.
+foreach(lang )
+  include(CMakeFiles/run.dir/cmake_clean_${lang}.cmake OPTIONAL)
+endforeach()
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.make
@@ -0,0 +1,2 @@
+# Empty custom commands generated dependencies file for run.
+# This may be replaced when dependencies are built.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.ts b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/compiler_depend.ts
@@ -0,0 +1,2 @@
+# CMAKE generated file: DO NOT EDIT!
+# Timestamp file for custom commands dependencies management for run.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/progress.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/run.dir/progress.make
@@ -0,0 +1 @@
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/DependInfo.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/DependInfo.cmake
@@ -0,0 +1,26 @@
+
+# Consider dependencies only in project.
+set(CMAKE_DEPENDS_IN_PROJECT_ONLY OFF)
+
+# The set of languages for which implicit dependencies are needed:
+set(CMAKE_DEPENDS_LANGUAGES
+  )
+
+# The set of dependency files which are needed:
+set(CMAKE_DEPENDS_DEPENDENCY_FILES
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c" "CMakeFiles/vterm-module.dir/elisp.c.o" "gcc" "CMakeFiles/vterm-module.dir/elisp.c.o.d"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c" "CMakeFiles/vterm-module.dir/utf8.c.o" "gcc" "CMakeFiles/vterm-module.dir/utf8.c.o.d"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c" "CMakeFiles/vterm-module.dir/vterm-module.c.o" "gcc" "CMakeFiles/vterm-module.dir/vterm-module.c.o.d"
+  "" "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so" "gcc" "CMakeFiles/vterm-module.dir/link.d"
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_LINKED_INFO_FILES
+  )
+
+# Targets to which this target links which contain Fortran sources.
+set(CMAKE_Fortran_TARGET_FORWARD_LINKED_INFO_FILES
+  )
+
+# Fortran module output directory.
+set(CMAKE_Fortran_TARGET_MODULE_DIR "")
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/build.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/build.make
@@ -0,0 +1,147 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Delete rule output on recipe failure.
+.DELETE_ON_ERROR:
+
+#=============================================================================
+# Special targets provided by cmake.
+
+# Disable implicit rules so canonical targets will work.
+.SUFFIXES:
+
+# Disable VCS-based implicit rules.
+% : %,v
+
+# Disable VCS-based implicit rules.
+% : RCS/%
+
+# Disable VCS-based implicit rules.
+% : RCS/%,v
+
+# Disable VCS-based implicit rules.
+% : SCCS/s.%
+
+# Disable VCS-based implicit rules.
+% : s.%
+
+.SUFFIXES: .hpux_make_needs_suffix_list
+
+# Command-line flag to silence nested $(MAKE).
+$(VERBOSE)MAKESILENT = -s
+
+#Suppress display of executed commands.
+$(VERBOSE).SILENT:
+
+# A target that is always out of date.
+cmake_force:
+.PHONY : cmake_force
+
+#=============================================================================
+# Set environment variables for the build.
+
+# The shell in which to execute make rules.
+SHELL = /bin/sh
+
+# The CMake executable.
+CMAKE_COMMAND = /usr/bin/cmake
+
+# The command to remove a file.
+RM = /usr/bin/cmake -E rm -f
+
+# Escaping for special characters.
+EQUALS = =
+
+# The top-level source directory on which CMake was run.
+CMAKE_SOURCE_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# The top-level build directory on which CMake was run.
+CMAKE_BINARY_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+# Include any dependencies generated for this target.
+include CMakeFiles/vterm-module.dir/depend.make
+# Include any dependencies generated by the compiler for this target.
+include CMakeFiles/vterm-module.dir/compiler_depend.make
+
+# Include the progress variables for this target.
+include CMakeFiles/vterm-module.dir/progress.make
+
+# Include the compile flags for this target's objects.
+include CMakeFiles/vterm-module.dir/flags.make
+
+CMakeFiles/vterm-module.dir/codegen:
+.PHONY : CMakeFiles/vterm-module.dir/codegen
+
+CMakeFiles/vterm-module.dir/vterm-module.c.o: CMakeFiles/vterm-module.dir/flags.make
+CMakeFiles/vterm-module.dir/vterm-module.c.o: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c
+CMakeFiles/vterm-module.dir/vterm-module.c.o: CMakeFiles/vterm-module.dir/compiler_depend.ts
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_1) "Building C object CMakeFiles/vterm-module.dir/vterm-module.c.o"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -MD -MT CMakeFiles/vterm-module.dir/vterm-module.c.o -MF CMakeFiles/vterm-module.dir/vterm-module.c.o.d -o CMakeFiles/vterm-module.dir/vterm-module.c.o -c /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c
+
+CMakeFiles/vterm-module.dir/vterm-module.c.i: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Preprocessing C source to CMakeFiles/vterm-module.dir/vterm-module.c.i"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -E /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c > CMakeFiles/vterm-module.dir/vterm-module.c.i
+
+CMakeFiles/vterm-module.dir/vterm-module.c.s: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Compiling C source to assembly CMakeFiles/vterm-module.dir/vterm-module.c.s"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -S /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c -o CMakeFiles/vterm-module.dir/vterm-module.c.s
+
+CMakeFiles/vterm-module.dir/utf8.c.o: CMakeFiles/vterm-module.dir/flags.make
+CMakeFiles/vterm-module.dir/utf8.c.o: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c
+CMakeFiles/vterm-module.dir/utf8.c.o: CMakeFiles/vterm-module.dir/compiler_depend.ts
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_2) "Building C object CMakeFiles/vterm-module.dir/utf8.c.o"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -MD -MT CMakeFiles/vterm-module.dir/utf8.c.o -MF CMakeFiles/vterm-module.dir/utf8.c.o.d -o CMakeFiles/vterm-module.dir/utf8.c.o -c /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c
+
+CMakeFiles/vterm-module.dir/utf8.c.i: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Preprocessing C source to CMakeFiles/vterm-module.dir/utf8.c.i"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -E /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c > CMakeFiles/vterm-module.dir/utf8.c.i
+
+CMakeFiles/vterm-module.dir/utf8.c.s: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Compiling C source to assembly CMakeFiles/vterm-module.dir/utf8.c.s"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -S /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c -o CMakeFiles/vterm-module.dir/utf8.c.s
+
+CMakeFiles/vterm-module.dir/elisp.c.o: CMakeFiles/vterm-module.dir/flags.make
+CMakeFiles/vterm-module.dir/elisp.c.o: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c
+CMakeFiles/vterm-module.dir/elisp.c.o: CMakeFiles/vterm-module.dir/compiler_depend.ts
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_3) "Building C object CMakeFiles/vterm-module.dir/elisp.c.o"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -MD -MT CMakeFiles/vterm-module.dir/elisp.c.o -MF CMakeFiles/vterm-module.dir/elisp.c.o.d -o CMakeFiles/vterm-module.dir/elisp.c.o -c /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c
+
+CMakeFiles/vterm-module.dir/elisp.c.i: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Preprocessing C source to CMakeFiles/vterm-module.dir/elisp.c.i"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -E /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c > CMakeFiles/vterm-module.dir/elisp.c.i
+
+CMakeFiles/vterm-module.dir/elisp.c.s: cmake_force
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green "Compiling C source to assembly CMakeFiles/vterm-module.dir/elisp.c.s"
+	/usr/bin/cc $(C_DEFINES) $(C_INCLUDES) $(C_FLAGS) -S /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c -o CMakeFiles/vterm-module.dir/elisp.c.s
+
+# Object files for target vterm-module
+vterm__module_OBJECTS = \
+"CMakeFiles/vterm-module.dir/vterm-module.c.o" \
+"CMakeFiles/vterm-module.dir/utf8.c.o" \
+"CMakeFiles/vterm-module.dir/elisp.c.o"
+
+# External object files for target vterm-module
+vterm__module_EXTERNAL_OBJECTS =
+
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/vterm-module.c.o
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/utf8.c.o
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/elisp.c.o
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/build.make
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/compiler_depend.ts
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: libvterm-prefix/src/libvterm/.libs/libvterm.a
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: CMakeFiles/vterm-module.dir/link.txt
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --green --bold --progress-dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles --progress-num=$(CMAKE_PROGRESS_4) "Linking C shared module /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so"
+	$(CMAKE_COMMAND) -E cmake_link_script CMakeFiles/vterm-module.dir/link.txt --verbose=$(VERBOSE)
+
+# Rule to build all files generated by this target.
+CMakeFiles/vterm-module.dir/build: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so
+.PHONY : CMakeFiles/vterm-module.dir/build
+
+CMakeFiles/vterm-module.dir/clean:
+	$(CMAKE_COMMAND) -P CMakeFiles/vterm-module.dir/cmake_clean.cmake
+.PHONY : CMakeFiles/vterm-module.dir/clean
+
+CMakeFiles/vterm-module.dir/depend:
+	cd /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build && $(CMAKE_COMMAND) -E cmake_depends "Unix Makefiles" /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627 /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/DependInfo.cmake "--color=$(COLOR)"
+.PHONY : CMakeFiles/vterm-module.dir/depend
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/cmake_clean.cmake b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/cmake_clean.cmake
@@ -0,0 +1,16 @@
+file(REMOVE_RECURSE
+  "CMakeFiles/vterm-module.dir/link.d"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.pdb"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so"
+  "CMakeFiles/vterm-module.dir/elisp.c.o"
+  "CMakeFiles/vterm-module.dir/elisp.c.o.d"
+  "CMakeFiles/vterm-module.dir/utf8.c.o"
+  "CMakeFiles/vterm-module.dir/utf8.c.o.d"
+  "CMakeFiles/vterm-module.dir/vterm-module.c.o"
+  "CMakeFiles/vterm-module.dir/vterm-module.c.o.d"
+)
+
+# Per-language clean rules from dependency scanning.
+foreach(lang C)
+  include(CMakeFiles/vterm-module.dir/cmake_clean_${lang}.cmake OPTIONAL)
+endforeach()
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.make
@@ -0,0 +1,2 @@
+# Empty compiler generated dependencies file for vterm-module.
+# This may be replaced when dependencies are built.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.ts b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/compiler_depend.ts
@@ -0,0 +1,2 @@
+# CMAKE generated file: DO NOT EDIT!
+# Timestamp file for compiler generated dependencies management for vterm-module.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/depend.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/depend.make
@@ -0,0 +1,2 @@
+# Empty dependencies file for vterm-module.
+# This may be replaced when dependencies are built.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o
Binary files differ.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o.d b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/elisp.c.o.d
@@ -0,0 +1,43 @@
+CMakeFiles/vterm-module.dir/elisp.c.o: \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.c \
+ /usr/include/stdc-predef.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/emacs-module.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stddef.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdint.h \
+ /usr/include/stdint.h /usr/include/bits/libc-header-start.h \
+ /usr/include/features.h /usr/include/features-time64.h \
+ /usr/include/bits/wordsize.h /usr/include/bits/timesize.h \
+ /usr/include/sys/cdefs.h /usr/include/bits/long-double.h \
+ /usr/include/gnu/stubs.h /usr/include/gnu/stubs-64.h \
+ /usr/include/bits/types.h /usr/include/bits/typesizes.h \
+ /usr/include/bits/time64.h /usr/include/bits/wchar.h \
+ /usr/include/bits/stdint-intn.h /usr/include/bits/stdint-uintn.h \
+ /usr/include/bits/stdint-least.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdbool.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm/include/vterm.h \
+ /usr/include/stdlib.h /usr/include/bits/waitflags.h \
+ /usr/include/bits/waitstatus.h /usr/include/bits/floatn.h \
+ /usr/include/bits/floatn-common.h /usr/include/sys/types.h \
+ /usr/include/bits/types/clock_t.h /usr/include/bits/types/clockid_t.h \
+ /usr/include/bits/types/time_t.h /usr/include/bits/types/timer_t.h \
+ /usr/include/endian.h /usr/include/bits/endian.h \
+ /usr/include/bits/endianness.h /usr/include/bits/byteswap.h \
+ /usr/include/bits/uintn-identity.h /usr/include/sys/select.h \
+ /usr/include/bits/select.h /usr/include/bits/types/sigset_t.h \
+ /usr/include/bits/types/__sigset_t.h \
+ /usr/include/bits/types/struct_timeval.h \
+ /usr/include/bits/types/struct_timespec.h \
+ /usr/include/bits/pthreadtypes.h /usr/include/bits/thread-shared-types.h \
+ /usr/include/bits/pthreadtypes-arch.h \
+ /usr/include/bits/atomic_wide_counter.h /usr/include/bits/struct_mutex.h \
+ /usr/include/bits/struct_rwlock.h /usr/include/alloca.h \
+ /usr/include/bits/stdlib-bsearch.h /usr/include/bits/stdlib-float.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm/include/vterm_keycodes.h \
+ /usr/include/stdio.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdarg.h \
+ /usr/include/bits/types/__fpos_t.h /usr/include/bits/types/__mbstate_t.h \
+ /usr/include/bits/types/__fpos64_t.h /usr/include/bits/types/__FILE.h \
+ /usr/include/bits/types/FILE.h /usr/include/bits/types/struct_FILE.h \
+ /usr/include/bits/types/cookie_io_functions_t.h \
+ /usr/include/bits/stdio_lim.h /usr/include/bits/stdio.h
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/flags.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/flags.make
@@ -0,0 +1,10 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# compile C with /usr/bin/cc
+C_DEFINES = -Dvterm_module_EXPORTS
+
+C_INCLUDES = -isystem /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm/include
+
+C_FLAGS = -O2 -g -DNDEBUG -std=gnu99 -fPIC -fvisibility=hidden
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.d b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.d
@@ -0,0 +1,19 @@
+/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so: \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libc.so \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libc.so \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so \
+  /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so:
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so:
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libc.so:
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libc.so:
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so:
+
+/usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/../../../../lib/libgcc_s.so:
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.txt b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/link.txt
@@ -0,0 +1 @@
+/usr/bin/cc -fPIC -O2 -g -DNDEBUG -Wl,--dependency-file,CMakeFiles/vterm-module.dir/link.d -shared  -o /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.so "CMakeFiles/vterm-module.dir/vterm-module.c.o" "CMakeFiles/vterm-module.dir/utf8.c.o" "CMakeFiles/vterm-module.dir/elisp.c.o"  libvterm-prefix/src/libvterm/.libs/libvterm.a
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/progress.make b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/progress.make
@@ -0,0 +1,5 @@
+CMAKE_PROGRESS_1 = 9
+CMAKE_PROGRESS_2 = 10
+CMAKE_PROGRESS_3 = 11
+CMAKE_PROGRESS_4 = 12
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o
Binary files differ.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o.d b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/utf8.c.o.d
@@ -0,0 +1,16 @@
+CMakeFiles/vterm-module.dir/utf8.c.o: \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.c \
+ /usr/include/stdc-predef.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdbool.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stddef.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdint.h \
+ /usr/include/stdint.h /usr/include/bits/libc-header-start.h \
+ /usr/include/features.h /usr/include/features-time64.h \
+ /usr/include/bits/wordsize.h /usr/include/bits/timesize.h \
+ /usr/include/sys/cdefs.h /usr/include/bits/long-double.h \
+ /usr/include/gnu/stubs.h /usr/include/gnu/stubs-64.h \
+ /usr/include/bits/types.h /usr/include/bits/typesizes.h \
+ /usr/include/bits/time64.h /usr/include/bits/wchar.h \
+ /usr/include/bits/stdint-intn.h /usr/include/bits/stdint-uintn.h \
+ /usr/include/bits/stdint-least.h
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o
Binary files differ.
diff --git a/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o.d b/emacs/elpa/vterm-20241118.1627/build/CMakeFiles/vterm-module.dir/vterm-module.c.o.d
@@ -0,0 +1,67 @@
+CMakeFiles/vterm-module.dir/vterm-module.c.o: \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.c \
+ /usr/include/stdc-predef.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/vterm-module.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/emacs-module.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stddef.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdint.h \
+ /usr/include/stdint.h /usr/include/bits/libc-header-start.h \
+ /usr/include/features.h /usr/include/features-time64.h \
+ /usr/include/bits/wordsize.h /usr/include/bits/timesize.h \
+ /usr/include/sys/cdefs.h /usr/include/bits/long-double.h \
+ /usr/include/gnu/stubs.h /usr/include/gnu/stubs-64.h \
+ /usr/include/bits/types.h /usr/include/bits/typesizes.h \
+ /usr/include/bits/time64.h /usr/include/bits/wchar.h \
+ /usr/include/bits/stdint-intn.h /usr/include/bits/stdint-uintn.h \
+ /usr/include/bits/stdint-least.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdbool.h \
+ /usr/include/inttypes.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm/include/vterm.h \
+ /usr/include/stdlib.h /usr/include/bits/waitflags.h \
+ /usr/include/bits/waitstatus.h /usr/include/bits/floatn.h \
+ /usr/include/bits/floatn-common.h /usr/include/sys/types.h \
+ /usr/include/bits/types/clock_t.h /usr/include/bits/types/clockid_t.h \
+ /usr/include/bits/types/time_t.h /usr/include/bits/types/timer_t.h \
+ /usr/include/endian.h /usr/include/bits/endian.h \
+ /usr/include/bits/endianness.h /usr/include/bits/byteswap.h \
+ /usr/include/bits/uintn-identity.h /usr/include/sys/select.h \
+ /usr/include/bits/select.h /usr/include/bits/types/sigset_t.h \
+ /usr/include/bits/types/__sigset_t.h \
+ /usr/include/bits/types/struct_timeval.h \
+ /usr/include/bits/types/struct_timespec.h \
+ /usr/include/bits/pthreadtypes.h /usr/include/bits/thread-shared-types.h \
+ /usr/include/bits/pthreadtypes-arch.h \
+ /usr/include/bits/atomic_wide_counter.h /usr/include/bits/struct_mutex.h \
+ /usr/include/bits/struct_rwlock.h /usr/include/alloca.h \
+ /usr/include/bits/stdlib-bsearch.h /usr/include/bits/stdlib-float.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm/include/vterm_keycodes.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/elisp.h \
+ /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/utf8.h \
+ /usr/include/assert.h /usr/include/fcntl.h /usr/include/bits/fcntl.h \
+ /usr/include/bits/fcntl-linux.h /usr/include/bits/stat.h \
+ /usr/include/bits/struct_stat.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/limits.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/syslimits.h \
+ /usr/include/limits.h /usr/include/bits/posix1_lim.h \
+ /usr/include/bits/local_lim.h /usr/include/linux/limits.h \
+ /usr/include/bits/pthread_stack_min-dynamic.h \
+ /usr/include/bits/pthread_stack_min.h /usr/include/bits/posix2_lim.h \
+ /usr/include/stdio.h \
+ /usr/lib/gcc/x86_64-pc-linux-gnu/14.2.1/include/stdarg.h \
+ /usr/include/bits/types/__fpos_t.h /usr/include/bits/types/__mbstate_t.h \
+ /usr/include/bits/types/__fpos64_t.h /usr/include/bits/types/__FILE.h \
+ /usr/include/bits/types/FILE.h /usr/include/bits/types/struct_FILE.h \
+ /usr/include/bits/types/cookie_io_functions_t.h \
+ /usr/include/bits/stdio_lim.h /usr/include/bits/stdio.h \
+ /usr/include/string.h /usr/include/bits/types/locale_t.h \
+ /usr/include/bits/types/__locale_t.h /usr/include/strings.h \
+ /usr/include/termios.h /usr/include/bits/termios.h \
+ /usr/include/bits/termios-struct.h /usr/include/bits/termios-c_cc.h \
+ /usr/include/bits/termios-c_iflag.h /usr/include/bits/termios-c_oflag.h \
+ /usr/include/bits/termios-baud.h /usr/include/bits/termios-c_cflag.h \
+ /usr/include/bits/termios-c_lflag.h /usr/include/bits/termios-tcflow.h \
+ /usr/include/bits/termios-misc.h /usr/include/sys/ttydefaults.h \
+ /usr/include/unistd.h /usr/include/bits/posix_opt.h \
+ /usr/include/bits/environments.h /usr/include/bits/confname.h \
+ /usr/include/bits/getopt_posix.h /usr/include/bits/getopt_core.h \
+ /usr/include/bits/unistd_ext.h
diff --git a/emacs/elpa/vterm-20241118.1627/build/Makefile b/emacs/elpa/vterm-20241118.1627/build/Makefile
@@ -0,0 +1,263 @@
+# CMAKE generated file: DO NOT EDIT!
+# Generated by "Unix Makefiles" Generator, CMake Version 3.31
+
+# Default target executed when no arguments are given to make.
+default_target: all
+.PHONY : default_target
+
+# Allow only one "make -f Makefile2" at a time, but pass parallelism.
+.NOTPARALLEL:
+
+#=============================================================================
+# Special targets provided by cmake.
+
+# Disable implicit rules so canonical targets will work.
+.SUFFIXES:
+
+# Disable VCS-based implicit rules.
+% : %,v
+
+# Disable VCS-based implicit rules.
+% : RCS/%
+
+# Disable VCS-based implicit rules.
+% : RCS/%,v
+
+# Disable VCS-based implicit rules.
+% : SCCS/s.%
+
+# Disable VCS-based implicit rules.
+% : s.%
+
+.SUFFIXES: .hpux_make_needs_suffix_list
+
+# Command-line flag to silence nested $(MAKE).
+$(VERBOSE)MAKESILENT = -s
+
+#Suppress display of executed commands.
+$(VERBOSE).SILENT:
+
+# A target that is always out of date.
+cmake_force:
+.PHONY : cmake_force
+
+#=============================================================================
+# Set environment variables for the build.
+
+# The shell in which to execute make rules.
+SHELL = /bin/sh
+
+# The CMake executable.
+CMAKE_COMMAND = /usr/bin/cmake
+
+# The command to remove a file.
+RM = /usr/bin/cmake -E rm -f
+
+# Escaping for special characters.
+EQUALS = =
+
+# The top-level source directory on which CMake was run.
+CMAKE_SOURCE_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# The top-level build directory on which CMake was run.
+CMAKE_BINARY_DIR = /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build
+
+#=============================================================================
+# Targets provided globally by CMake.
+
+# Special rule for the target edit_cache
+edit_cache:
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --cyan "Running CMake cache editor..."
+	/usr/bin/ccmake -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR)
+.PHONY : edit_cache
+
+# Special rule for the target edit_cache
+edit_cache/fast: edit_cache
+.PHONY : edit_cache/fast
+
+# Special rule for the target rebuild_cache
+rebuild_cache:
+	@$(CMAKE_COMMAND) -E cmake_echo_color "--switch=$(COLOR)" --cyan "Running CMake to regenerate build system..."
+	/usr/bin/cmake --regenerate-during-build -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR)
+.PHONY : rebuild_cache
+
+# Special rule for the target rebuild_cache
+rebuild_cache/fast: rebuild_cache
+.PHONY : rebuild_cache/fast
+
+# The main all target
+all: cmake_check_build_system
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build//CMakeFiles/progress.marks
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 all
+	$(CMAKE_COMMAND) -E cmake_progress_start /home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/CMakeFiles 0
+.PHONY : all
+
+# The main clean target
+clean:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 clean
+.PHONY : clean
+
+# The main clean target
+clean/fast: clean
+.PHONY : clean/fast
+
+# Prepare targets for installation.
+preinstall: all
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 preinstall
+.PHONY : preinstall
+
+# Prepare targets for installation.
+preinstall/fast:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 preinstall
+.PHONY : preinstall/fast
+
+# clear depends
+depend:
+	$(CMAKE_COMMAND) -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR) --check-build-system CMakeFiles/Makefile.cmake 1
+.PHONY : depend
+
+#=============================================================================
+# Target rules for targets named vterm-module
+
+# Build rule for target.
+vterm-module: cmake_check_build_system
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 vterm-module
+.PHONY : vterm-module
+
+# fast build rule for target.
+vterm-module/fast:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/build
+.PHONY : vterm-module/fast
+
+#=============================================================================
+# Target rules for targets named libvterm
+
+# Build rule for target.
+libvterm: cmake_check_build_system
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 libvterm
+.PHONY : libvterm
+
+# fast build rule for target.
+libvterm/fast:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/libvterm.dir/build.make CMakeFiles/libvterm.dir/build
+.PHONY : libvterm/fast
+
+#=============================================================================
+# Target rules for targets named run
+
+# Build rule for target.
+run: cmake_check_build_system
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/Makefile2 run
+.PHONY : run
+
+# fast build rule for target.
+run/fast:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/run.dir/build.make CMakeFiles/run.dir/build
+.PHONY : run/fast
+
+elisp.o: elisp.c.o
+.PHONY : elisp.o
+
+# target to build an object file
+elisp.c.o:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/elisp.c.o
+.PHONY : elisp.c.o
+
+elisp.i: elisp.c.i
+.PHONY : elisp.i
+
+# target to preprocess a source file
+elisp.c.i:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/elisp.c.i
+.PHONY : elisp.c.i
+
+elisp.s: elisp.c.s
+.PHONY : elisp.s
+
+# target to generate assembly for a file
+elisp.c.s:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/elisp.c.s
+.PHONY : elisp.c.s
+
+utf8.o: utf8.c.o
+.PHONY : utf8.o
+
+# target to build an object file
+utf8.c.o:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/utf8.c.o
+.PHONY : utf8.c.o
+
+utf8.i: utf8.c.i
+.PHONY : utf8.i
+
+# target to preprocess a source file
+utf8.c.i:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/utf8.c.i
+.PHONY : utf8.c.i
+
+utf8.s: utf8.c.s
+.PHONY : utf8.s
+
+# target to generate assembly for a file
+utf8.c.s:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/utf8.c.s
+.PHONY : utf8.c.s
+
+vterm-module.o: vterm-module.c.o
+.PHONY : vterm-module.o
+
+# target to build an object file
+vterm-module.c.o:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/vterm-module.c.o
+.PHONY : vterm-module.c.o
+
+vterm-module.i: vterm-module.c.i
+.PHONY : vterm-module.i
+
+# target to preprocess a source file
+vterm-module.c.i:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/vterm-module.c.i
+.PHONY : vterm-module.c.i
+
+vterm-module.s: vterm-module.c.s
+.PHONY : vterm-module.s
+
+# target to generate assembly for a file
+vterm-module.c.s:
+	$(MAKE) $(MAKESILENT) -f CMakeFiles/vterm-module.dir/build.make CMakeFiles/vterm-module.dir/vterm-module.c.s
+.PHONY : vterm-module.c.s
+
+# Help Target
+help:
+	@echo "The following are some of the valid targets for this Makefile:"
+	@echo "... all (the default if no target is provided)"
+	@echo "... clean"
+	@echo "... depend"
+	@echo "... edit_cache"
+	@echo "... rebuild_cache"
+	@echo "... libvterm"
+	@echo "... run"
+	@echo "... vterm-module"
+	@echo "... elisp.o"
+	@echo "... elisp.i"
+	@echo "... elisp.s"
+	@echo "... utf8.o"
+	@echo "... utf8.i"
+	@echo "... utf8.s"
+	@echo "... vterm-module.o"
+	@echo "... vterm-module.i"
+	@echo "... vterm-module.s"
+.PHONY : help
+
+
+
+#=============================================================================
+# Special targets to cleanup operation of make.
+
+# Special rule to run CMake to check the build system integrity.
+# No rule that depends on this can have commands that come from listfiles
+# because they might be regenerated.
+cmake_check_build_system:
+	$(CMAKE_COMMAND) -S$(CMAKE_SOURCE_DIR) -B$(CMAKE_BINARY_DIR) --check-build-system CMakeFiles/Makefile.cmake 0
+.PHONY : cmake_check_build_system
+
diff --git a/emacs/elpa/vterm-20241118.1627/build/cmake_install.cmake b/emacs/elpa/vterm-20241118.1627/build/cmake_install.cmake
@@ -0,0 +1,66 @@
+# Install script for directory: /home/dwrz/.config/emacs/elpa/vterm-20241118.1627
+
+# Set the install prefix
+if(NOT DEFINED CMAKE_INSTALL_PREFIX)
+  set(CMAKE_INSTALL_PREFIX "/usr/local")
+endif()
+string(REGEX REPLACE "/$" "" CMAKE_INSTALL_PREFIX "${CMAKE_INSTALL_PREFIX}")
+
+# Set the install configuration name.
+if(NOT DEFINED CMAKE_INSTALL_CONFIG_NAME)
+  if(BUILD_TYPE)
+    string(REGEX REPLACE "^[^A-Za-z0-9_]+" ""
+           CMAKE_INSTALL_CONFIG_NAME "${BUILD_TYPE}")
+  else()
+    set(CMAKE_INSTALL_CONFIG_NAME "RelWithDebInfo")
+  endif()
+  message(STATUS "Install configuration: \"${CMAKE_INSTALL_CONFIG_NAME}\"")
+endif()
+
+# Set the component getting installed.
+if(NOT CMAKE_INSTALL_COMPONENT)
+  if(COMPONENT)
+    message(STATUS "Install component: \"${COMPONENT}\"")
+    set(CMAKE_INSTALL_COMPONENT "${COMPONENT}")
+  else()
+    set(CMAKE_INSTALL_COMPONENT)
+  endif()
+endif()
+
+# Install shared libraries without execute permission?
+if(NOT DEFINED CMAKE_INSTALL_SO_NO_EXE)
+  set(CMAKE_INSTALL_SO_NO_EXE "0")
+endif()
+
+# Is this installation the result of a crosscompile?
+if(NOT DEFINED CMAKE_CROSSCOMPILING)
+  set(CMAKE_CROSSCOMPILING "FALSE")
+endif()
+
+# Set path to fallback-tool for dependency-resolution.
+if(NOT DEFINED CMAKE_OBJDUMP)
+  set(CMAKE_OBJDUMP "/usr/bin/objdump")
+endif()
+
+string(REPLACE ";" "\n" CMAKE_INSTALL_MANIFEST_CONTENT
+       "${CMAKE_INSTALL_MANIFEST_FILES}")
+if(CMAKE_INSTALL_LOCAL_ONLY)
+  file(WRITE "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/install_local_manifest.txt"
+     "${CMAKE_INSTALL_MANIFEST_CONTENT}")
+endif()
+if(CMAKE_INSTALL_COMPONENT)
+  if(CMAKE_INSTALL_COMPONENT MATCHES "^[a-zA-Z0-9_.+-]+$")
+    set(CMAKE_INSTALL_MANIFEST "install_manifest_${CMAKE_INSTALL_COMPONENT}.txt")
+  else()
+    string(MD5 CMAKE_INST_COMP_HASH "${CMAKE_INSTALL_COMPONENT}")
+    set(CMAKE_INSTALL_MANIFEST "install_manifest_${CMAKE_INST_COMP_HASH}.txt")
+    unset(CMAKE_INST_COMP_HASH)
+  endif()
+else()
+  set(CMAKE_INSTALL_MANIFEST "install_manifest.txt")
+endif()
+
+if(NOT CMAKE_INSTALL_LOCAL_ONLY)
+  file(WRITE "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/${CMAKE_INSTALL_MANIFEST}"
+     "${CMAKE_INSTALL_MANIFEST_CONTENT}")
+endif()
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm
@@ -0,0 +1 @@
+Subproject commit 64f1775952dbe001e989f2ab679563b54f2fca55
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-build
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-configure
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-done b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-done
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-download
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt
@@ -0,0 +1,15 @@
+# This is a generated file and its contents are an internal implementation detail.
+# The download step will be re-executed if anything in this file changes.
+# No other meaning or use of this file is supported.
+
+method=git
+command=/usr/bin/cmake;-DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE;-P;/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake
+source_dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm
+work_dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src
+repository=https://github.com/Sbozzolo/libvterm-mirror.git
+remote=origin
+init_submodules=TRUE
+recurse_submodules=--recursive
+submodules=
+CMP0097=
+      
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt
@@ -0,0 +1,15 @@
+# This is a generated file and its contents are an internal implementation detail.
+# The download step will be re-executed if anything in this file changes.
+# No other meaning or use of this file is supported.
+
+method=git
+command=/usr/bin/cmake;-DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE;-P;/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake
+source_dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm
+work_dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src
+repository=https://github.com/Sbozzolo/libvterm-mirror.git
+remote=origin
+init_submodules=TRUE
+recurse_submodules=--recursive
+submodules=
+CMP0097=
+      
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-install
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-mkdir
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch-info.txt b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-patch-info.txt
@@ -0,0 +1,6 @@
+# This is a generated file and its contents are an internal implementation detail.
+# The update step will be re-executed if anything in this file changes.
+# No other meaning or use of this file is supported.
+
+command=
+work_dir=
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-update-info.txt b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-update-info.txt
@@ -0,0 +1,7 @@
+# This is a generated file and its contents are an internal implementation detail.
+# The patch step will be re-executed if anything in this file changes.
+# No other meaning or use of this file is supported.
+
+command (connected)=/usr/bin/cmake;-Dcan_fetch=YES;-DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE;-P;/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake
+command (disconnected)=/usr/bin/cmake;-Dcan_fetch=NO;-DCMAKE_MESSAGE_LOG_LEVEL=VERBOSE;-P;/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake
+work_dir=/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-cfgcmd.txt b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-cfgcmd.txt
@@ -0,0 +1 @@
+cmd=''
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitclone.cmake
@@ -0,0 +1,87 @@
+# Distributed under the OSI-approved BSD 3-Clause License.  See accompanying
+# file Copyright.txt or https://cmake.org/licensing for details.
+
+cmake_minimum_required(VERSION ${CMAKE_VERSION}) # this file comes with cmake
+
+if(EXISTS "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt" AND EXISTS "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt" AND
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt" IS_NEWER_THAN "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt")
+  message(VERBOSE
+    "Avoiding repeated git clone, stamp file is up to date: "
+    "'/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt'"
+  )
+  return()
+endif()
+
+# Even at VERBOSE level, we don't want to see the commands executed, but
+# enabling them to be shown for DEBUG may be useful to help diagnose problems.
+cmake_language(GET_MESSAGE_LOG_LEVEL active_log_level)
+if(active_log_level MATCHES "DEBUG|TRACE")
+  set(maybe_show_command COMMAND_ECHO STDOUT)
+else()
+  set(maybe_show_command "")
+endif()
+
+execute_process(
+  COMMAND ${CMAKE_COMMAND} -E rm -rf "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+  RESULT_VARIABLE error_code
+  ${maybe_show_command}
+)
+if(error_code)
+  message(FATAL_ERROR "Failed to remove directory: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm'")
+endif()
+
+# try the clone 3 times in case there is an odd git clone issue
+set(error_code 1)
+set(number_of_tries 0)
+while(error_code AND number_of_tries LESS 3)
+  execute_process(
+    COMMAND "/usr/bin/git"
+            clone --no-checkout --config "advice.detachedHead=false" "https://github.com/Sbozzolo/libvterm-mirror.git" "libvterm"
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src"
+    RESULT_VARIABLE error_code
+    ${maybe_show_command}
+  )
+  math(EXPR number_of_tries "${number_of_tries} + 1")
+endwhile()
+if(number_of_tries GREATER 1)
+  message(NOTICE "Had to git clone more than once: ${number_of_tries} times.")
+endif()
+if(error_code)
+  message(FATAL_ERROR "Failed to clone repository: 'https://github.com/Sbozzolo/libvterm-mirror.git'")
+endif()
+
+execute_process(
+  COMMAND "/usr/bin/git"
+          checkout "64f1775952dbe001e989f2ab679563b54f2fca55" --
+  WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+  RESULT_VARIABLE error_code
+  ${maybe_show_command}
+)
+if(error_code)
+  message(FATAL_ERROR "Failed to checkout tag: '64f1775952dbe001e989f2ab679563b54f2fca55'")
+endif()
+
+set(init_submodules TRUE)
+if(init_submodules)
+  execute_process(
+    COMMAND "/usr/bin/git" 
+            submodule update --recursive --init 
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    RESULT_VARIABLE error_code
+    ${maybe_show_command}
+  )
+endif()
+if(error_code)
+  message(FATAL_ERROR "Failed to update submodules in: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm'")
+endif()
+
+# Complete success, update the script-last-run stamp file:
+#
+execute_process(
+  COMMAND ${CMAKE_COMMAND} -E copy "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitinfo.txt" "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt"
+  RESULT_VARIABLE error_code
+  ${maybe_show_command}
+)
+if(error_code)
+  message(FATAL_ERROR "Failed to copy script-last-run stamp file: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/libvterm-gitclone-lastrun.txt'")
+endif()
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-gitupdate.cmake
@@ -0,0 +1,317 @@
+# Distributed under the OSI-approved BSD 3-Clause License.  See accompanying
+# file Copyright.txt or https://cmake.org/licensing for details.
+
+cmake_minimum_required(VERSION ${CMAKE_VERSION}) # this file comes with cmake
+
+# Even at VERBOSE level, we don't want to see the commands executed, but
+# enabling them to be shown for DEBUG may be useful to help diagnose problems.
+cmake_language(GET_MESSAGE_LOG_LEVEL active_log_level)
+if(active_log_level MATCHES "DEBUG|TRACE")
+  set(maybe_show_command COMMAND_ECHO STDOUT)
+else()
+  set(maybe_show_command "")
+endif()
+
+function(do_fetch)
+  message(VERBOSE "Fetching latest from the remote origin")
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git fetch --tags --force "origin"
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    COMMAND_ERROR_IS_FATAL LAST
+    ${maybe_show_command}
+  )
+endfunction()
+
+function(get_hash_for_ref ref out_var err_var)
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git rev-parse "${ref}^0"
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    RESULT_VARIABLE error_code
+    OUTPUT_VARIABLE ref_hash
+    ERROR_VARIABLE error_msg
+    OUTPUT_STRIP_TRAILING_WHITESPACE
+  )
+  if(error_code)
+    set(${out_var} "" PARENT_SCOPE)
+  else()
+    set(${out_var} "${ref_hash}" PARENT_SCOPE)
+  endif()
+  set(${err_var} "${error_msg}" PARENT_SCOPE)
+endfunction()
+
+get_hash_for_ref(HEAD head_sha error_msg)
+if(head_sha STREQUAL "")
+  message(FATAL_ERROR "Failed to get the hash for HEAD:\n${error_msg}")
+endif()
+
+if("${can_fetch}" STREQUAL "")
+  set(can_fetch "YES")
+endif()
+
+execute_process(
+  COMMAND "/usr/bin/git" --git-dir=.git show-ref "64f1775952dbe001e989f2ab679563b54f2fca55"
+  WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+  OUTPUT_VARIABLE show_ref_output
+)
+if(show_ref_output MATCHES "^[a-z0-9]+[ \\t]+refs/remotes/")
+  # Given a full remote/branch-name and we know about it already. Since
+  # branches can move around, we should always fetch, if permitted.
+  if(can_fetch)
+    do_fetch()
+  endif()
+  set(checkout_name "64f1775952dbe001e989f2ab679563b54f2fca55")
+
+elseif(show_ref_output MATCHES "^[a-z0-9]+[ \\t]+refs/tags/")
+  # Given a tag name that we already know about. We don't know if the tag we
+  # have matches the remote though (tags can move), so we should fetch. As a
+  # special case to preserve backward compatibility, if we are already at the
+  # same commit as the tag we hold locally, don't do a fetch and assume the tag
+  # hasn't moved on the remote.
+  # FIXME: We should provide an option to always fetch for this case
+  get_hash_for_ref("64f1775952dbe001e989f2ab679563b54f2fca55" tag_sha error_msg)
+  if(tag_sha STREQUAL head_sha)
+    message(VERBOSE "Already at requested tag: 64f1775952dbe001e989f2ab679563b54f2fca55")
+    return()
+  endif()
+
+  if(can_fetch)
+    do_fetch()
+  endif()
+  set(checkout_name "64f1775952dbe001e989f2ab679563b54f2fca55")
+
+elseif(show_ref_output MATCHES "^[a-z0-9]+[ \\t]+refs/heads/")
+  # Given a branch name without any remote and we already have a branch by that
+  # name. We might already have that branch checked out or it might be a
+  # different branch. It isn't fully safe to use a bare branch name without the
+  # remote, so do a fetch (if allowed) and replace the ref with one that
+  # includes the remote.
+  if(can_fetch)
+    do_fetch()
+  endif()
+  set(checkout_name "origin/64f1775952dbe001e989f2ab679563b54f2fca55")
+
+else()
+  get_hash_for_ref("64f1775952dbe001e989f2ab679563b54f2fca55" tag_sha error_msg)
+  if(tag_sha STREQUAL head_sha)
+    # Have the right commit checked out already
+    message(VERBOSE "Already at requested ref: ${tag_sha}")
+    return()
+
+  elseif(tag_sha STREQUAL "")
+    # We don't know about this ref yet, so we have no choice but to fetch.
+    if(NOT can_fetch)
+      message(FATAL_ERROR
+        "Requested git ref \"64f1775952dbe001e989f2ab679563b54f2fca55\" is not present locally, and not "
+        "allowed to contact remote due to UPDATE_DISCONNECTED setting."
+      )
+    endif()
+
+    # We deliberately swallow any error message at the default log level
+    # because it can be confusing for users to see a failed git command.
+    # That failure is being handled here, so it isn't an error.
+    if(NOT error_msg STREQUAL "")
+      message(DEBUG "${error_msg}")
+    endif()
+    do_fetch()
+    set(checkout_name "64f1775952dbe001e989f2ab679563b54f2fca55")
+
+  else()
+    # We have the commit, so we know we were asked to find a commit hash
+    # (otherwise it would have been handled further above), but we don't
+    # have that commit checked out yet. We don't need to fetch from the remote.
+    set(checkout_name "64f1775952dbe001e989f2ab679563b54f2fca55")
+    if(NOT error_msg STREQUAL "")
+      message(WARNING "${error_msg}")
+    endif()
+
+  endif()
+endif()
+
+set(git_update_strategy "REBASE")
+if(git_update_strategy STREQUAL "")
+  # Backward compatibility requires REBASE as the default behavior
+  set(git_update_strategy REBASE)
+endif()
+
+if(git_update_strategy MATCHES "^REBASE(_CHECKOUT)?$")
+  # Asked to potentially try to rebase first, maybe with fallback to checkout.
+  # We can't if we aren't already on a branch and we shouldn't if that local
+  # branch isn't tracking the one we want to checkout.
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git symbolic-ref -q HEAD
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    OUTPUT_VARIABLE current_branch
+    OUTPUT_STRIP_TRAILING_WHITESPACE
+    # Don't test for an error. If this isn't a branch, we get a non-zero error
+    # code but empty output.
+  )
+
+  if(current_branch STREQUAL "")
+    # Not on a branch, checkout is the only sensible option since any rebase
+    # would always fail (and backward compatibility requires us to checkout in
+    # this situation)
+    set(git_update_strategy CHECKOUT)
+
+  else()
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git for-each-ref "--format=%(upstream:short)" "${current_branch}"
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      OUTPUT_VARIABLE upstream_branch
+      OUTPUT_STRIP_TRAILING_WHITESPACE
+      COMMAND_ERROR_IS_FATAL ANY  # There is no error if no upstream is set
+    )
+    if(NOT upstream_branch STREQUAL checkout_name)
+      # Not safe to rebase when asked to checkout a different branch to the one
+      # we are tracking. If we did rebase, we could end up with arbitrary
+      # commits added to the ref we were asked to checkout if the current local
+      # branch happens to be able to rebase onto the target branch. There would
+      # be no error message and the user wouldn't know this was occurring.
+      set(git_update_strategy CHECKOUT)
+    endif()
+
+  endif()
+elseif(NOT git_update_strategy STREQUAL "CHECKOUT")
+  message(FATAL_ERROR "Unsupported git update strategy: ${git_update_strategy}")
+endif()
+
+
+# Check if stash is needed
+execute_process(
+  COMMAND "/usr/bin/git" --git-dir=.git status --porcelain
+  WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+  RESULT_VARIABLE error_code
+  OUTPUT_VARIABLE repo_status
+)
+if(error_code)
+  message(FATAL_ERROR "Failed to get the status")
+endif()
+string(LENGTH "${repo_status}" need_stash)
+
+# If not in clean state, stash changes in order to be able to perform a
+# rebase or checkout without losing those changes permanently
+if(need_stash)
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git stash save --quiet;--include-untracked
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    COMMAND_ERROR_IS_FATAL ANY
+    ${maybe_show_command}
+  )
+endif()
+
+if(git_update_strategy STREQUAL "CHECKOUT")
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git checkout "${checkout_name}"
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    COMMAND_ERROR_IS_FATAL ANY
+    ${maybe_show_command}
+  )
+else()
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git rebase "${checkout_name}"
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    RESULT_VARIABLE error_code
+    OUTPUT_VARIABLE rebase_output
+    ERROR_VARIABLE  rebase_output
+  )
+  if(error_code)
+    # Rebase failed, undo the rebase attempt before continuing
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git rebase --abort
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      ${maybe_show_command}
+    )
+
+    if(NOT git_update_strategy STREQUAL "REBASE_CHECKOUT")
+      # Not allowed to do a checkout as a fallback, so cannot proceed
+      if(need_stash)
+        execute_process(
+          COMMAND "/usr/bin/git" --git-dir=.git stash pop --index --quiet
+          WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+          ${maybe_show_command}
+          )
+      endif()
+      message(FATAL_ERROR "\nFailed to rebase in: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm'."
+                          "\nOutput from the attempted rebase follows:"
+                          "\n${rebase_output}"
+                          "\n\nYou will have to resolve the conflicts manually")
+    endif()
+
+    # Fall back to checkout. We create an annotated tag so that the user
+    # can manually inspect the situation and revert if required.
+    # We can't log the failed rebase output because MSVC sees it and
+    # intervenes, causing the build to fail even though it completes.
+    # Write it to a file instead.
+    string(TIMESTAMP tag_timestamp "%Y%m%dT%H%M%S" UTC)
+    set(tag_name _cmake_ExternalProject_moved_from_here_${tag_timestamp}Z)
+    set(error_log_file ${CMAKE_CURRENT_LIST_DIR}/rebase_error_${tag_timestamp}Z.log)
+    file(WRITE ${error_log_file} "${rebase_output}")
+    message(WARNING "Rebase failed, output has been saved to ${error_log_file}"
+                    "\nFalling back to checkout, previous commit tagged as ${tag_name}")
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git tag -a
+              -m "ExternalProject attempting to move from here to ${checkout_name}"
+              ${tag_name}
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      COMMAND_ERROR_IS_FATAL ANY
+      ${maybe_show_command}
+    )
+
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git checkout "${checkout_name}"
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      COMMAND_ERROR_IS_FATAL ANY
+      ${maybe_show_command}
+    )
+  endif()
+endif()
+
+if(need_stash)
+  # Put back the stashed changes
+  execute_process(
+    COMMAND "/usr/bin/git" --git-dir=.git stash pop --index --quiet
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    RESULT_VARIABLE error_code
+    ${maybe_show_command}
+    )
+  if(error_code)
+    # Stash pop --index failed: Try again dropping the index
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git reset --hard --quiet
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      ${maybe_show_command}
+    )
+    execute_process(
+      COMMAND "/usr/bin/git" --git-dir=.git stash pop --quiet
+      WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+      RESULT_VARIABLE error_code
+      ${maybe_show_command}
+    )
+    if(error_code)
+      # Stash pop failed: Restore previous state.
+      execute_process(
+        COMMAND "/usr/bin/git" --git-dir=.git reset --hard --quiet ${head_sha}
+        WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+        ${maybe_show_command}
+      )
+      execute_process(
+        COMMAND "/usr/bin/git" --git-dir=.git stash pop --index --quiet
+        WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+        ${maybe_show_command}
+      )
+      message(FATAL_ERROR "\nFailed to unstash changes in: '/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm'."
+                          "\nYou will have to resolve the conflicts manually")
+    endif()
+  endif()
+endif()
+
+set(init_submodules "TRUE")
+if(init_submodules)
+  execute_process(
+    COMMAND "/usr/bin/git"
+            --git-dir=.git 
+            submodule update --recursive --init 
+    WORKING_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm"
+    COMMAND_ERROR_IS_FATAL ANY
+    ${maybe_show_command}
+  )
+endif()
diff --git a/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-mkdirs.cmake b/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp/libvterm-mkdirs.cmake
@@ -0,0 +1,27 @@
+# Distributed under the OSI-approved BSD 3-Clause License.  See accompanying
+# file Copyright.txt or https://cmake.org/licensing for details.
+
+cmake_minimum_required(VERSION ${CMAKE_VERSION}) # this file comes with cmake
+
+# If CMAKE_DISABLE_SOURCE_CHANGES is set to true and the source directory is an
+# existing directory in our source tree, calling file(MAKE_DIRECTORY) on it
+# would cause a fatal error, even though it would be a no-op.
+if(NOT EXISTS "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm")
+  file(MAKE_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm")
+endif()
+file(MAKE_DIRECTORY
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-build"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/tmp"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src"
+  "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp"
+)
+
+set(configSubDirs )
+foreach(subDir IN LISTS configSubDirs)
+    file(MAKE_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp/${subDir}")
+endforeach()
+if(cfgdir)
+  file(MAKE_DIRECTORY "/home/dwrz/.config/emacs/elpa/vterm-20241118.1627/build/libvterm-prefix/src/libvterm-stamp${cfgdir}") # cfgdir has leading slash
+endif()
diff --git a/emacs/elpa/vterm-20241118.1627/vterm-module.so b/emacs/elpa/vterm-20241118.1627/vterm-module.so
Binary files differ.
diff --git a/emacs/elpa/with-editor-20240831.2230/with-editor-pkg.el b/emacs/elpa/with-editor-20240831.2230/with-editor-pkg.el
@@ -1,15 +0,0 @@
-(define-package "with-editor" "20240831.2230" "Use the Emacsclient as $EDITOR"
-  '((emacs "26.1")
-    (compat "30.0.0.0"))
-  :commit "77cb2403158cfea9d8bfb8adad81b84d1d6d7c6a" :authors
-  '(("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev"))
-  :maintainers
-  '(("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev"))
-  :maintainer
-  '("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")
-  :keywords
-  '("processes" "terminals")
-  :url "https://github.com/magit/with-editor")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
diff --git a/emacs/elpa/with-editor-20240831.2230/with-editor.el b/emacs/elpa/with-editor-20240831.2230/with-editor.el
@@ -1,987 +0,0 @@
-;;; with-editor.el --- Use the Emacsclient as $EDITOR  -*- lexical-binding:t -*-
-
-;; Copyright (C) 2014-2024 The Magit Project Contributors
-
-;; Author: Jonas Bernoulli <emacs.with-editor@jonas.bernoulli.dev>
-;; Homepage: https://github.com/magit/with-editor
-;; Keywords: processes terminals
-
-;; Package-Version: 3.4.2
-;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0"))
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; This file is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published
-;; by the Free Software Foundation, either version 3 of the License,
-;; or (at your option) any later version.
-;;
-;; This file is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this file.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This library makes it possible to reliably use the Emacsclient as
-;; the `$EDITOR' of child processes.  It makes sure that they know how
-;; to call home.  For remote processes a substitute is provided, which
-;; communicates with Emacs on standard output/input instead of using a
-;; socket as the Emacsclient does.
-
-;; It provides the commands `with-editor-async-shell-command' and
-;; `with-editor-shell-command', which are intended as replacements
-;; for `async-shell-command' and `shell-command'.  They automatically
-;; export `$EDITOR' making sure the executed command uses the current
-;; Emacs instance as "the editor".  With a prefix argument these
-;; commands prompt for an alternative environment variable such as
-;; `$GIT_EDITOR'.  To always use these variants add this to your init
-;; file:
-;;
-;;   (keymap-global-set "<remap> <async-shell-command>"
-;;                      #'with-editor-async-shell-command)
-;;   (keymap-global-set "<remap> <shell-command>"
-;;                      #'with-editor-shell-command)
-
-;; Alternatively use the global `shell-command-with-editor-mode',
-;; which always sets `$EDITOR' for all Emacs commands which ultimately
-;; use `shell-command' to asynchronously run some shell command.
-
-;; The command `with-editor-export-editor' exports `$EDITOR' or
-;; another such environment variable in `shell-mode', `eshell-mode',
-;; `term-mode' and `vterm-mode' buffers.  Use this Emacs command
-;; before executing a shell command which needs the editor set, or
-;; always arrange for the current Emacs instance to be used as editor
-;; by adding it to the appropriate mode hooks:
-;;
-;;   (add-hook 'shell-mode-hook  #'with-editor-export-editor)
-;;   (add-hook 'eshell-mode-hook #'with-editor-export-editor)
-;;   (add-hook 'term-exec-hook   #'with-editor-export-editor)
-;;   (add-hook 'vterm-mode-hook  #'with-editor-export-editor)
-
-;; Some variants of this function exist, these two forms are
-;; equivalent:
-;;
-;;   (add-hook 'shell-mode-hook
-;;             (apply-partially #'with-editor-export-editor "GIT_EDITOR"))
-;;   (add-hook 'shell-mode-hook #'with-editor-export-git-editor)
-
-;; This library can also be used by other packages which need to use
-;; the current Emacs instance as editor.  In fact this library was
-;; written for Magit and its `git-commit-mode' and `git-rebase-mode'.
-;; Consult `git-rebase.el' and the related code in `magit-sequence.el'
-;; for a simple example.
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'compat)
-(require 'server)
-(require 'shell)
-(eval-when-compile (require 'subr-x))
-
-(declare-function dired-get-filename "dired"
-                  (&optional localp no-error-if-not-filep))
-(declare-function term-emulate-terminal "term" (proc str))
-(defvar eshell-preoutput-filter-functions)
-(defvar git-commit-post-finish-hook)
-(defvar vterm--process)
-(defvar warning-minimum-level)
-(defvar warning-minimum-log-level)
-
-;;; Options
-
-(defgroup with-editor nil
-  "Use the Emacsclient as $EDITOR."
-  :group 'external
-  :group 'server)
-
-(defun with-editor-locate-emacsclient ()
-  "Search for a suitable Emacsclient executable."
-  (or (with-editor-locate-emacsclient-1
-       (with-editor-emacsclient-path)
-       (length (split-string emacs-version "\\.")))
-      (prog1 nil (display-warning 'with-editor "\
-Cannot determine a suitable Emacsclient
-
-Determining an Emacsclient executable suitable for the
-current Emacs instance failed.  For more information
-please see https://github.com/magit/magit/wiki/Emacsclient."))))
-
-(defun with-editor-locate-emacsclient-1 (path depth)
-  (let* ((version-lst (cl-subseq (split-string emacs-version "\\.") 0 depth))
-         (version-reg (concat "^" (string-join version-lst "\\."))))
-    (or (locate-file
-         (cond ((equal (downcase invocation-name) "remacs")
-                "remacsclient")
-               ((bound-and-true-p emacsclient-program-name))
-               ("emacsclient"))
-         path
-         (cl-mapcan
-          (lambda (v) (cl-mapcar (lambda (e) (concat v e)) exec-suffixes))
-          (nconc (and (boundp 'debian-emacs-flavor)
-                      (list (format ".%s" debian-emacs-flavor)))
-                 (cl-mapcon (lambda (v)
-                              (setq v (string-join (reverse v) "."))
-                              (list v (concat "-" v) (concat ".emacs" v)))
-                            (reverse version-lst))
-                 (list "" "-snapshot" ".emacs-snapshot")))
-         (lambda (exec)
-           (ignore-errors
-             (string-match-p version-reg
-                             (with-editor-emacsclient-version exec)))))
-        (and (> depth 1)
-             (with-editor-locate-emacsclient-1 path (1- depth))))))
-
-(defun with-editor-emacsclient-version (exec)
-  (let ((default-directory (file-name-directory exec)))
-    (ignore-errors
-      (cadr (split-string (car (process-lines exec "--version")))))))
-
-(defun with-editor-emacsclient-path ()
-  (let ((path exec-path))
-    (when invocation-directory
-      (push (directory-file-name invocation-directory) path)
-      (let* ((linkname (expand-file-name invocation-name invocation-directory))
-             (truename (file-chase-links linkname)))
-        (unless (equal truename linkname)
-          (push (directory-file-name (file-name-directory truename)) path)))
-      (when (eq system-type 'darwin)
-        (let ((dir (expand-file-name "bin" invocation-directory)))
-          (when (file-directory-p dir)
-            (push dir path)))
-        (when (string-search "Cellar" invocation-directory)
-          (let ((dir (expand-file-name "../../../bin" invocation-directory)))
-            (when (file-directory-p dir)
-              (push dir path))))))
-    (cl-remove-duplicates path :test #'equal)))
-
-(defcustom with-editor-emacsclient-executable (with-editor-locate-emacsclient)
-  "The Emacsclient executable used by the `with-editor' macro."
-  :group 'with-editor
-  :type '(choice (string :tag "Executable")
-                 (const  :tag "Don't use Emacsclient" nil)))
-
-(defcustom with-editor-sleeping-editor "\
-sh -c '\
-printf \"\\nWITH-EDITOR: $$ OPEN $0\\037$1\\037 IN $(pwd)\\n\"; \
-sleep 604800 & sleep=$!; \
-trap \"kill $sleep; exit 0\" USR1; \
-trap \"kill $sleep; exit 1\" USR2; \
-wait $sleep'"
-  "The sleeping editor, used when the Emacsclient cannot be used.
-
-This fallback is used for asynchronous processes started inside
-the macro `with-editor', when the process runs on a remote machine
-or for local processes when `with-editor-emacsclient-executable'
-is nil (i.e., when no suitable Emacsclient was found, or the user
-decided not to use it).
-
-Where the latter uses a socket to communicate with Emacs' server,
-this substitute prints edit requests to its standard output on
-which a process filter listens for such requests.  As such it is
-not a complete substitute for a proper Emacsclient, it can only
-be used as $EDITOR of child process of the current Emacs instance.
-
-Some shells do not execute traps immediately when waiting for a
-child process, but by default we do use such a blocking child
-process.
-
-If you use such a shell (e.g., `csh' on FreeBSD, but not Debian),
-then you have to edit this option.  You can either replace \"sh\"
-with \"bash\" (and install that), or you can use the older, less
-performant implementation:
-
-  \"sh -c '\\
-  echo -e \\\"\\nWITH-EDITOR: $$ OPEN $0$1 IN $(pwd)\\n\\\"; \\
-  trap \\\"exit 0\\\" USR1; \\
-  trap \\\"exit 1\" USR2; \\
-  while true; do sleep 1; done'\"
-
-Note that the two unit separator characters () right after $0
-and $1 are required.  Normally $0 is the file name and $1 is
-missing or else gets ignored.  But if $0 has the form \"+N[:N]\",
-then it is treated as a position in the file and $1 is expected
-to be the file.
-
-Also note that using this alternative implementation leads to a
-delay of up to a second.  The delay can be shortened by replacing
-\"sleep 1\" with \"sleep 0.01\", or if your implementation does
-not support floats, then by using \"nanosleep\" instead."
-  :package-version '(with-editor . "2.8.0")
-  :group 'with-editor
-  :type 'string)
-
-(defcustom with-editor-finish-query-functions nil
-  "List of functions called to query before finishing session.
-
-The buffer in question is current while the functions are called.
-If any of them returns nil, then the session is not finished and
-the buffer is not killed.  The user should then fix the issue and
-try again.  The functions are called with one argument.  If it is
-non-nil then that indicates that the user used a prefix argument
-to force finishing the session despite issues.  Functions should
-usually honor that and return non-nil."
-  :group 'with-editor
-  :type 'hook)
-(put 'with-editor-finish-query-functions 'permanent-local t)
-
-(defcustom with-editor-cancel-query-functions nil
-  "List of functions called to query before canceling session.
-
-The buffer in question is current while the functions are called.
-If any of them returns nil, then the session is not canceled and
-the buffer is not killed.  The user should then fix the issue and
-try again.  The functions are called with one argument.  If it is
-non-nil then that indicates that the user used a prefix argument
-to force canceling the session despite issues.  Functions should
-usually honor that and return non-nil."
-  :group 'with-editor
-  :type 'hook)
-(put 'with-editor-cancel-query-functions 'permanent-local t)
-
-(defcustom with-editor-mode-lighter " WE"
-  "The mode-line lighter of the With-Editor mode."
-  :group 'with-editor
-  :type '(choice (const :tag "No lighter" "") string))
-
-(defvar with-editor-server-window-alist nil
-  "Alist of filename patterns vs corresponding `server-window'.
-
-Each element looks like (REGEXP . FUNCTION).  Files matching
-REGEXP are selected using FUNCTION instead of the default in
-`server-window'.
-
-Note that when a package adds an entry here then it probably
-has a reason to disrespect `server-window' and it likely is
-not a good idea to change such entries.")
-
-(defvar with-editor-file-name-history-exclude nil
-  "List of regexps for filenames `server-visit' should not remember.
-When a filename matches any of the regexps, then `server-visit'
-does not add it to the variable `file-name-history', which is
-used when reading a filename in the minibuffer.")
-
-(defcustom with-editor-shell-command-use-emacsclient t
-  "Whether to use the emacsclient when running shell commands.
-
-This affects `with-editor-async-shell-command' and, if the input
-ends with \"&\" `with-editor-shell-command' .
-
-If `shell-command-with-editor-mode' is enabled, then it also
-affects `shell-command-async' and, if the input ends with \"&\"
-`shell-command'.
-
-This is a temporary kludge that lets you choose between two
-possible defects, the ones described in the issues #23 and #40.
-
-When t, then use the emacsclient.  This has the disadvantage that
-`with-editor-mode' won't be enabled because we don't know whether
-this package was involved at all in the call to the emacsclient,
-and when it is not, then we really should.  The problem is that
-the emacsclient doesn't pass along any environment variables to
-the server.  This will hopefully be fixed in Emacs eventually.
-
-When nil, then use the sleeping editor.  Because in this case we
-know that this package is involved, we can enable the mode.  But
-this makes it necessary that you invoke $EDITOR in shell scripts
-like so:
-
-  eval \"$EDITOR\" file
-
-And some tools that do not handle $EDITOR properly also break."
-  :package-version '(with-editor . "2.7.1")
-  :group 'with-editor
-  :type 'boolean)
-
-;;; Mode Commands
-
-(defvar with-editor-pre-finish-hook nil)
-(defvar with-editor-pre-cancel-hook nil)
-(defvar with-editor-post-finish-hook nil)
-(defvar with-editor-post-finish-hook-1 nil)
-(defvar with-editor-post-cancel-hook nil)
-(defvar with-editor-post-cancel-hook-1 nil)
-(defvar with-editor-cancel-alist nil)
-(put 'with-editor-pre-finish-hook 'permanent-local t)
-(put 'with-editor-pre-cancel-hook 'permanent-local t)
-(put 'with-editor-post-finish-hook 'permanent-local t)
-(put 'with-editor-post-cancel-hook 'permanent-local t)
-
-(defvar-local with-editor-show-usage t)
-(defvar-local with-editor-cancel-message nil)
-(defvar-local with-editor-previous-winconf nil)
-(put 'with-editor-cancel-message 'permanent-local t)
-(put 'with-editor-previous-winconf 'permanent-local t)
-
-(defvar-local with-editor--pid nil "For internal use.")
-(put 'with-editor--pid 'permanent-local t)
-
-(defun with-editor-finish (force)
-  "Finish the current edit session."
-  (interactive "P")
-  (when (run-hook-with-args-until-failure
-         'with-editor-finish-query-functions force)
-    (let ((post-finish-hook with-editor-post-finish-hook)
-          (post-commit-hook (bound-and-true-p git-commit-post-finish-hook))
-          (dir default-directory))
-      (run-hooks 'with-editor-pre-finish-hook)
-      (with-editor-return nil)
-      (accept-process-output nil 0.1)
-      (with-temp-buffer
-        (setq default-directory dir)
-        (setq-local with-editor-post-finish-hook post-finish-hook)
-        (when post-commit-hook
-          (setq-local git-commit-post-finish-hook post-commit-hook))
-        (run-hooks 'with-editor-post-finish-hook)))))
-
-(defun with-editor-cancel (force)
-  "Cancel the current edit session."
-  (interactive "P")
-  (when (run-hook-with-args-until-failure
-         'with-editor-cancel-query-functions force)
-    (let ((message with-editor-cancel-message))
-      (when (functionp message)
-        (setq message (funcall message)))
-      (let ((post-cancel-hook with-editor-post-cancel-hook)
-            (with-editor-cancel-alist nil)
-            (dir default-directory))
-        (run-hooks 'with-editor-pre-cancel-hook)
-        (with-editor-return t)
-        (accept-process-output nil 0.1)
-        (with-temp-buffer
-          (setq default-directory dir)
-          (setq-local with-editor-post-cancel-hook post-cancel-hook)
-          (run-hooks 'with-editor-post-cancel-hook)))
-      (message (or message "Canceled by user")))))
-
-(defun with-editor-return (cancel)
-  (let ((winconf with-editor-previous-winconf)
-        (clients server-buffer-clients)
-        (dir default-directory)
-        (pid with-editor--pid))
-    (remove-hook 'kill-buffer-query-functions
-                 #'with-editor-kill-buffer-noop t)
-    (cond (cancel
-           (save-buffer)
-           (if clients
-               (let ((buf (current-buffer)))
-                 (dolist (client clients)
-                   (message "client %S" client)
-                   (ignore-errors
-                     (server-send-string client "-error Canceled by user"))
-                   (delete-process client))
-                 (when (buffer-live-p buf)
-                   (kill-buffer buf)))
-             ;; Fallback for when emacs was used as $EDITOR
-             ;; instead of emacsclient or the sleeping editor.
-             ;; See https://github.com/magit/magit/issues/2258.
-             (ignore-errors (delete-file buffer-file-name))
-             (kill-buffer)))
-          (t
-           (save-buffer)
-           (if clients
-               ;; Don't use `server-edit' because we do not want to
-               ;; show another buffer belonging to another client.
-               ;; See https://github.com/magit/magit/issues/2197.
-               (server-done)
-             (kill-buffer))))
-    (when pid
-      (let ((default-directory dir))
-        (process-file "kill" nil nil nil
-                      "-s" (if cancel "USR2" "USR1") pid)))
-    (when (and winconf (eq (window-configuration-frame winconf)
-                           (selected-frame)))
-      (set-window-configuration winconf))))
-
-;;; Mode
-
-(defvar-keymap with-editor-mode-map
-  "C-c C-c"                                #'with-editor-finish
-  "<remap> <server-edit>"                  #'with-editor-finish
-  "<remap> <evil-save-and-close>"          #'with-editor-finish
-  "<remap> <evil-save-modified-and-close>" #'with-editor-finish
-  "C-c C-k"                                #'with-editor-cancel
-  "<remap> <kill-buffer>"                  #'with-editor-cancel
-  "<remap> <ido-kill-buffer>"              #'with-editor-cancel
-  "<remap> <iswitchb-kill-buffer>"         #'with-editor-cancel
-  "<remap> <evil-quit>"                    #'with-editor-cancel)
-
-(define-minor-mode with-editor-mode
-  "Edit a file as the $EDITOR of an external process."
-  :lighter with-editor-mode-lighter
-  ;; Protect the user from enabling or disabling the mode interactively.
-  ;; Manually enabling the mode is dangerous because canceling the buffer
-  ;; deletes the visited file.  The mode must not be disabled manually,
-  ;; either `with-editor-finish' or `with-editor-cancel' must be used.
-  :interactive nil                    ; >= 28.1
-  (when (called-interactively-p 'any) ; <  28.1
-    (setq with-editor-mode (not with-editor-mode))
-    (user-error "With-Editor mode is not intended for interactive use"))
-  ;; The buffer must also not be killed using regular kill commands.
-  (add-hook 'kill-buffer-query-functions
-            #'with-editor-kill-buffer-noop nil t)
-  ;; `server-execute' displays a message which is not
-  ;; correct when using this mode.
-  (when with-editor-show-usage
-    (with-editor-usage-message)))
-
-(put 'with-editor-mode 'permanent-local t)
-
-(defun with-editor-kill-buffer-noop ()
-  ;; We started doing this in response to #64, but it is not safe
-  ;; to do so, because the client has already been killed, causing
-  ;; `with-editor-return' (called by `with-editor-cancel') to delete
-  ;; the file, see #66.  The reason we delete the file in the first
-  ;; place are https://github.com/magit/magit/issues/2258 and
-  ;; https://github.com/magit/magit/issues/2248.
-  ;; (if (memq this-command '(save-buffers-kill-terminal
-  ;;                          save-buffers-kill-emacs))
-  ;;     (let ((with-editor-cancel-query-functions nil))
-  ;;       (with-editor-cancel nil)
-  ;;       t)
-  ;;   ...)
-  ;; So go back to always doing this instead:
-  (user-error (substitute-command-keys (format "\
-Don't kill this buffer %S.  Instead cancel using \\[with-editor-cancel]"
-                                               (current-buffer)))))
-
-(defvar-local with-editor-usage-message "\
-Type \\[with-editor-finish] to finish, \
-or \\[with-editor-cancel] to cancel")
-
-(defun with-editor-usage-message ()
-  ;; Run after `server-execute', which is run using
-  ;; a timer which starts immediately.
-  (let ((buffer (current-buffer)))
-    (run-with-timer
-     0.05 nil
-     (lambda ()
-       (with-current-buffer buffer
-         (message (substitute-command-keys with-editor-usage-message)))))))
-
-;;; Wrappers
-
-(defvar with-editor--envvar nil "For internal use.")
-
-(defmacro with-editor (&rest body)
-  "Use the Emacsclient as $EDITOR while evaluating BODY.
-Modify the `process-environment' for processes started in BODY,
-instructing them to use the Emacsclient as $EDITOR.  If optional
-ENVVAR is a literal string then bind that environment variable
-instead.
-\n(fn [ENVVAR] BODY...)"
-  (declare (indent defun) (debug (body)))
-  `(let ((with-editor--envvar ,(if (stringp (car body))
-                                   (pop body)
-                                 '(or with-editor--envvar "EDITOR")))
-         (process-environment process-environment))
-     (with-editor--setup)
-     ,@body))
-
-(defmacro with-editor* (envvar &rest body)
-  "Use the Emacsclient as the editor while evaluating BODY.
-Modify the `process-environment' for processes started in BODY,
-instructing them to use the Emacsclient as editor.  ENVVAR is the
-environment variable that is exported to do so, it is evaluated
-at run-time.
-\n(fn ENVVAR BODY...)"
-  (declare (indent defun) (debug (sexp body)))
-  `(let ((with-editor--envvar ,envvar)
-         (process-environment process-environment))
-     (with-editor--setup)
-     ,@body))
-
-(defun with-editor--setup ()
-  (if (or (not with-editor-emacsclient-executable)
-          (file-remote-p default-directory))
-      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
-            process-environment)
-    ;; Make sure server-use-tcp's value is valid.
-    (unless (featurep 'make-network-process '(:family local))
-      (setq server-use-tcp t))
-    ;; Make sure the server is running.
-    (unless (process-live-p server-process)
-      (when (server-running-p server-name)
-        (setq server-name (format "server%s" (emacs-pid)))
-        (when (server-running-p server-name)
-          (server-force-delete server-name)))
-      (server-start))
-    ;; Tell $EDITOR to use the Emacsclient.
-    (push (concat with-editor--envvar "="
-                  ;; Quoting is the right thing to do.  Applications that
-                  ;; fail because of that, are the ones that need fixing,
-                  ;; e.g., by using 'eval "$EDITOR" file'.  See #121.
-                  (shell-quote-argument
-                   ;; If users set the executable manually, they might
-                   ;; begin the path with "~", which would get quoted.
-                   (if (string-prefix-p "~" with-editor-emacsclient-executable)
-                       (concat (expand-file-name "~")
-                               (substring with-editor-emacsclient-executable 1))
-                     with-editor-emacsclient-executable))
-                  ;; Tell the process where the server file is.
-                  (and (not server-use-tcp)
-                       (concat " --socket-name="
-                               (shell-quote-argument
-                                (expand-file-name server-name
-                                                  server-socket-dir)))))
-          process-environment)
-    (when server-use-tcp
-      (push (concat "EMACS_SERVER_FILE="
-                    (expand-file-name server-name server-auth-dir))
-            process-environment))
-    ;; As last resort fallback to the sleeping editor.
-    (push (concat "ALTERNATE_EDITOR=" with-editor-sleeping-editor)
-          process-environment)))
-
-(defun with-editor-server-window ()
-  (or (and buffer-file-name
-           (cdr (cl-find-if (lambda (cons)
-                              (string-match-p (car cons) buffer-file-name))
-                            with-editor-server-window-alist)))
-      server-window))
-
-(define-advice server-switch-buffer
-    (:around (fn &optional next-buffer &rest args)
-             with-editor-server-window-alist)
-  "Honor `with-editor-server-window-alist' (which see)."
-  (let ((server-window (with-current-buffer
-                           (or next-buffer (current-buffer))
-                         (when with-editor-mode
-                           (setq with-editor-previous-winconf
-                                 (current-window-configuration)))
-                         (with-editor-server-window))))
-    (apply fn next-buffer args)))
-
-(define-advice start-file-process
-    (:around (fn name buffer program &rest program-args)
-             with-editor-process-filter)
-  "When called inside a `with-editor' form and the Emacsclient
-cannot be used, then give the process the filter function
-`with-editor-process-filter'.  To avoid overriding the filter
-being added here you should use `with-editor-set-process-filter'
-instead of `set-process-filter' inside `with-editor' forms.
-
-When the `default-directory' is located on a remote machine,
-then also manipulate PROGRAM and PROGRAM-ARGS in order to set
-the appropriate editor environment variable."
-  (if (not with-editor--envvar)
-      (apply fn name buffer program program-args)
-    (when (file-remote-p default-directory)
-      (unless (equal program "env")
-        (push program program-args)
-        (setq program "env"))
-      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
-            program-args))
-    (let ((process (apply fn name buffer program program-args)))
-      (set-process-filter process #'with-editor-process-filter)
-      (process-put process 'default-dir default-directory)
-      process)))
-
-(advice-add #'make-process :around
-            #'make-process@with-editor-process-filter)
-(cl-defun make-process@with-editor-process-filter
-    (fn &rest keys &key name buffer command coding noquery stop
-        connection-type filter sentinel stderr file-handler
-        &allow-other-keys)
-  "When called inside a `with-editor' form and the Emacsclient
-cannot be used, then give the process the filter function
-`with-editor-process-filter'.  To avoid overriding the filter
-being added here you should use `with-editor-set-process-filter'
-instead of `set-process-filter' inside `with-editor' forms.
-
-When the `default-directory' is located on a remote machine and
-FILE-HANDLER is non-nil, then also manipulate COMMAND in order
-to set the appropriate editor environment variable."
-  (if (or (not file-handler) (not with-editor--envvar))
-      (apply fn keys)
-    (when (file-remote-p default-directory)
-      (unless (equal (car command) "env")
-        (push "env" command))
-      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
-            (cdr command)))
-    (let* ((filter (if filter
-                       (lambda (process output)
-                         (funcall filter process output)
-                         (with-editor-process-filter process output t))
-                     #'with-editor-process-filter))
-           (process (funcall fn
-                             :name name
-                             :buffer buffer
-                             :command command
-                             :coding coding
-                             :noquery noquery
-                             :stop stop
-                             :connection-type connection-type
-                             :filter filter
-                             :sentinel sentinel
-                             :stderr stderr
-                             :file-handler file-handler)))
-      (process-put process 'default-dir default-directory)
-      process)))
-
-(defun with-editor-set-process-filter (process filter)
-  "Like `set-process-filter' but keep `with-editor-process-filter'.
-Give PROCESS the new FILTER but keep `with-editor-process-filter'
-if that was added earlier by the advised `start-file-process'.
-
-Do so by wrapping the two filter functions using a lambda, which
-becomes the actual filter.  It calls FILTER first, which may or
-may not insert the text into the PROCESS's buffer.  Then it calls
-`with-editor-process-filter', passing t as NO-STANDARD-FILTER."
-  (set-process-filter
-   process
-   (if (eq (process-filter process) 'with-editor-process-filter)
-       `(lambda (proc str)
-          (,filter proc str)
-          (with-editor-process-filter proc str t))
-     filter)))
-
-(defvar with-editor-filter-visit-hook nil)
-
-(defconst with-editor-sleeping-editor-regexp "^\
-WITH-EDITOR: \\([0-9]+\\) \
-OPEN \\([^]+?\\)\
-\\(?:\\([^]*\\)\\)?\
-\\(?: IN \\([^\r]+?\\)\\)?\r?$")
-
-(defvar with-editor--max-incomplete-length 1000)
-
-(defun with-editor-sleeping-editor-filter (process string)
-  (when-let ((incomplete (and process (process-get process 'incomplete))))
-    (setq string (concat incomplete string)))
-  (save-match-data
-    (cond
-     ((and process (not (string-suffix-p "\n" string)))
-      (let ((length (length string)))
-        (when (> length with-editor--max-incomplete-length)
-          (setq string
-                (substring string
-                           (- length with-editor--max-incomplete-length)))))
-      (process-put process 'incomplete string)
-      nil)
-     ((string-match with-editor-sleeping-editor-regexp string)
-      (when process
-        (process-put process 'incomplete nil))
-      (let ((pid  (match-string 1 string))
-            (arg0 (match-string 2 string))
-            (arg1 (match-string 3 string))
-            (dir  (match-string 4 string))
-            file line column)
-        (cond ((string-match "\\`\\+\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?\\'" arg0)
-               (setq file arg1)
-               (setq line (string-to-number (match-string 1 arg0)))
-               (setq column (match-string 2 arg0))
-               (setq column (and column (string-to-number column))))
-              ((setq file arg0)))
-        (unless (file-name-absolute-p file)
-          (setq file (expand-file-name file dir)))
-        (when default-directory
-          (setq file (concat (file-remote-p default-directory) file)))
-        (with-current-buffer (find-file-noselect file)
-          (with-editor-mode 1)
-          (setq with-editor--pid pid)
-          (setq with-editor-previous-winconf
-                (current-window-configuration))
-          (when line
-            (let ((pos (save-excursion
-                         (save-restriction
-                           (goto-char (point-min))
-                           (forward-line (1- line))
-                           (when column
-                             (move-to-column column))
-                           (point)))))
-              (when (and (buffer-narrowed-p)
-                         widen-automatically
-                         (not (<= (point-min) pos (point-max))))
-                (widen))
-              (goto-char pos)))
-          (run-hooks 'with-editor-filter-visit-hook)
-          (funcall (or (with-editor-server-window) #'switch-to-buffer)
-                   (current-buffer))
-          (kill-local-variable 'server-window)))
-      nil)
-     (t string))))
-
-(defun with-editor-process-filter
-    (process string &optional no-default-filter)
-  "Listen for edit requests by child processes."
-  (let ((default-directory (process-get process 'default-dir)))
-    (with-editor-sleeping-editor-filter process string))
-  (unless no-default-filter
-    (internal-default-process-filter process string)))
-
-(define-advice server-visit-files
-    (:after (files _proc &optional _nowait)
-            with-editor-file-name-history-exclude)
-  "Prevent certain files from being added to `file-name-history'.
-Files matching a regexp in `with-editor-file-name-history-exclude'
-are prevented from being added to that list."
-  (pcase-dolist (`(,file . ,_) files)
-    (when (cl-find-if (lambda (regexp)
-                        (string-match-p regexp file))
-                      with-editor-file-name-history-exclude)
-      (setq file-name-history
-            (delete (abbreviate-file-name file) file-name-history)))))
-
-;;; Augmentations
-
-;;;###autoload
-(cl-defun with-editor-export-editor (&optional (envvar "EDITOR"))
-  "Teach subsequent commands to use current Emacs instance as editor.
-
-Set and export the environment variable ENVVAR, by default
-\"EDITOR\".  The value is automatically generated to teach
-commands to use the current Emacs instance as \"the editor\".
-
-This works in `shell-mode', `term-mode', `eshell-mode' and
-`vterm'."
-  (interactive (list (with-editor-read-envvar)))
-  (cond
-   ((derived-mode-p 'comint-mode 'term-mode)
-    (when-let ((process (get-buffer-process (current-buffer))))
-      (goto-char (process-mark process))
-      (process-send-string
-       process (format " export %s=%s\n" envvar
-                       (shell-quote-argument with-editor-sleeping-editor)))
-      (while (accept-process-output process 1 nil t))
-      (if (derived-mode-p 'term-mode)
-          (with-editor-set-process-filter process #'with-editor-emulate-terminal)
-        (add-hook 'comint-output-filter-functions #'with-editor-output-filter
-                  nil t))))
-   ((derived-mode-p 'eshell-mode)
-    (add-to-list 'eshell-preoutput-filter-functions
-                 #'with-editor-output-filter)
-    (setenv envvar with-editor-sleeping-editor))
-   ((and (derived-mode-p 'vterm-mode)
-         (fboundp 'vterm-send-return)
-         (fboundp 'vterm-send-string))
-    (if with-editor-emacsclient-executable
-        (let ((with-editor--envvar envvar)
-              (process-environment process-environment))
-          (with-editor--setup)
-          (while (accept-process-output vterm--process 1 nil t))
-          (when-let ((v (getenv envvar)))
-            (vterm-send-string (format " export %s=%S" envvar v))
-            (vterm-send-return))
-          (when-let ((v (getenv "EMACS_SERVER_FILE")))
-            (vterm-send-string (format " export EMACS_SERVER_FILE=%S" v))
-            (vterm-send-return))
-          (vterm-send-string "clear")
-          (vterm-send-return))
-      (error "Cannot use sleeping editor in this buffer")))
-   (t
-    (error "Cannot export environment variables in this buffer")))
-  (message "Successfully exported %s" envvar))
-
-;;;###autoload
-(defun with-editor-export-git-editor ()
-  "Like `with-editor-export-editor' but always set `$GIT_EDITOR'."
-  (interactive)
-  (with-editor-export-editor "GIT_EDITOR"))
-
-;;;###autoload
-(defun with-editor-export-hg-editor ()
-  "Like `with-editor-export-editor' but always set `$HG_EDITOR'."
-  (interactive)
-  (with-editor-export-editor "HG_EDITOR"))
-
-(defun with-editor-output-filter (string)
-  "Handle edit requests on behalf of `comint-mode' and `eshell-mode'."
-  (with-editor-sleeping-editor-filter nil string))
-
-(defun with-editor-emulate-terminal (process string)
-  "Like `term-emulate-terminal' but also handle edit requests."
-  (let ((with-editor-sleeping-editor-regexp
-         (substring with-editor-sleeping-editor-regexp 1)))
-    (with-editor-sleeping-editor-filter process string))
-  (term-emulate-terminal process string))
-
-(defvar with-editor-envvars '("EDITOR" "GIT_EDITOR" "HG_EDITOR"))
-
-(cl-defun with-editor-read-envvar
-    (&optional (prompt  "Set environment variable")
-               (default "EDITOR"))
-  (let ((reply (completing-read (if default
-                                    (format "%s (%s): " prompt default)
-                                  (concat prompt ": "))
-                                with-editor-envvars nil nil nil nil default)))
-    (if (string= reply "") (user-error "Nothing selected") reply)))
-
-;;;###autoload
-(define-minor-mode shell-command-with-editor-mode
-  "Teach `shell-command' to use current Emacs instance as editor.
-
-Teach `shell-command', and all commands that ultimately call that
-command, to use the current Emacs instance as editor by executing
-\"EDITOR=CLIENT COMMAND&\" instead of just \"COMMAND&\".
-
-CLIENT is automatically generated; EDITOR=CLIENT instructs
-COMMAND to use to the current Emacs instance as \"the editor\",
-assuming no other variable overrides the effect of \"$EDITOR\".
-CLIENT may be the path to an appropriate emacsclient executable
-with arguments, or a script which also works over Tramp.
-
-Alternatively you can use the `with-editor-async-shell-command',
-which also allows the use of another variable instead of
-\"EDITOR\"."
-  :global t)
-
-;;;###autoload
-(defun with-editor-async-shell-command
-    (command &optional output-buffer error-buffer envvar)
-  "Like `async-shell-command' but with `$EDITOR' set.
-
-Execute string \"ENVVAR=CLIENT COMMAND\" in an inferior shell;
-display output, if any.  With a prefix argument prompt for an
-environment variable, otherwise the default \"EDITOR\" variable
-is used.  With a negative prefix argument additionally insert
-the COMMAND's output at point.
-
-CLIENT is automatically generated; ENVVAR=CLIENT instructs
-COMMAND to use to the current Emacs instance as \"the editor\",
-assuming it respects ENVVAR as an \"EDITOR\"-like variable.
-CLIENT may be the path to an appropriate emacsclient executable
-with arguments, or a script which also works over Tramp.
-
-Also see `async-shell-command' and `shell-command'."
-  (interactive (with-editor-shell-command-read-args "Async shell command: " t))
-  (let ((with-editor--envvar envvar))
-    (with-editor
-      (async-shell-command command output-buffer error-buffer))))
-
-;;;###autoload
-(defun with-editor-shell-command
-    (command &optional output-buffer error-buffer envvar)
-  "Like `shell-command' or `with-editor-async-shell-command'.
-If COMMAND ends with \"&\" behave like the latter,
-else like the former."
-  (interactive (with-editor-shell-command-read-args "Shell command: "))
-  (if (string-match "&[ \t]*\\'" command)
-      (with-editor-async-shell-command
-       command output-buffer error-buffer envvar)
-    (shell-command command output-buffer error-buffer)))
-
-(defun with-editor-shell-command-read-args (prompt &optional async)
-  (let ((command (read-shell-command
-                  prompt nil nil
-                  (let ((filename (or buffer-file-name
-                                      (and (eq major-mode 'dired-mode)
-                                           (dired-get-filename nil t)))))
-                    (and filename (file-relative-name filename))))))
-    (list command
-          (if (or async (setq async (string-match-p "&[ \t]*\\'" command)))
-              (< (prefix-numeric-value current-prefix-arg) 0)
-            current-prefix-arg)
-          shell-command-default-error-buffer
-          (and async current-prefix-arg (with-editor-read-envvar)))))
-
-(define-advice shell-command
-    (:around (fn command &optional output-buffer error-buffer)
-             shell-command-with-editor-mode)
-  "Set editor envvar, if `shell-command-with-editor-mode' is enabled.
-Also take care of that for `with-editor-[async-]shell-command'."
-  ;; `shell-mode' and its hook are intended for buffers in which an
-  ;; interactive shell is running, but `shell-command' also turns on
-  ;; that mode, even though it only runs the shell to run a single
-  ;; command.  The `with-editor-export-editor' hook function is only
-  ;; intended to be used in buffers in which an interactive shell is
-  ;; running, so it has to be removed here.
-  (let ((shell-mode-hook (remove 'with-editor-export-editor shell-mode-hook)))
-    (cond
-     ;; If `with-editor-async-shell-command' was used, then `with-editor'
-     ;; was used, and `with-editor--envvar'.  `with-editor-shell-command'
-     ;; only goes down that path if the command ends with "&".  We might
-     ;; still have to use `with-editor' here, for `async-shell-command'
-     ;; or `shell-command', if the mode is enabled.
-     ((and (string-suffix-p "&" command)
-           (or with-editor--envvar
-               shell-command-with-editor-mode))
-      (if with-editor--envvar
-          (funcall fn command output-buffer error-buffer)
-        (with-editor (funcall fn command output-buffer error-buffer)))
-      ;; The comint filter was overridden with our filter.  Use both.
-      (and-let* ((process (get-buffer-process
-                           (or output-buffer
-                               (get-buffer "*Async Shell Command*")))))
-        (prog1 process
-          (set-process-filter process
-                              (lambda (proc str)
-                                (comint-output-filter proc str)
-                                (with-editor-process-filter proc str t))))))
-     ((funcall fn command output-buffer error-buffer)))))
-
-;;; _
-
-(defun with-editor-debug ()
-  "Debug configuration issues.
-See info node `(with-editor)Debugging' for instructions."
-  (interactive)
-  (require 'warnings)
-  (with-current-buffer (get-buffer-create "*with-editor-debug*")
-    (pop-to-buffer (current-buffer))
-    (erase-buffer)
-    (ignore-errors (with-editor))
-    (insert
-     (format "with-editor: %s\n" (locate-library "with-editor.el"))
-     (format "emacs: %s (%s)\n"
-             (expand-file-name invocation-name invocation-directory)
-             emacs-version)
-     "system:\n"
-     (format "  system-type: %s\n" system-type)
-     (format "  system-configuration: %s\n" system-configuration)
-     (format "  system-configuration-options: %s\n" system-configuration-options)
-     "server:\n"
-     (format "  server-running-p: %s\n" (server-running-p))
-     (format "  server-process: %S\n" server-process)
-     (format "  server-use-tcp: %s\n" server-use-tcp)
-     (format "  server-name: %s\n" server-name)
-     (format "  server-socket-dir: %s\n" server-socket-dir))
-    (if (and server-socket-dir (file-accessible-directory-p server-socket-dir))
-        (dolist (file (directory-files server-socket-dir nil "^[^.]"))
-          (insert (format "    %s\n" file)))
-      (insert (format "    %s: not an accessible directory\n"
-                      (if server-use-tcp "WARNING" "ERROR"))))
-    (insert (format "  server-auth-dir: %s\n" server-auth-dir))
-    (if (file-accessible-directory-p server-auth-dir)
-        (dolist (file (directory-files server-auth-dir nil "^[^.]"))
-          (insert (format "    %s\n" file)))
-      (insert (format "    %s: not an accessible directory\n"
-                      (if server-use-tcp "ERROR" "WARNING"))))
-    (let ((val with-editor-emacsclient-executable)
-          (def (default-value 'with-editor-emacsclient-executable))
-          (fun (let ((warning-minimum-level :error)
-                     (warning-minimum-log-level :error))
-                 (with-editor-locate-emacsclient))))
-      (insert "with-editor-emacsclient-executable:\n"
-              (format " value:   %s (%s)\n" val
-                      (and val (with-editor-emacsclient-version val)))
-              (format " default: %s (%s)\n" def
-                      (and def (with-editor-emacsclient-version def)))
-              (format " funcall: %s (%s)\n" fun
-                      (and fun (with-editor-emacsclient-version fun)))))
-    (insert "path:\n"
-            (format "  $PATH:     %s\n" (split-string (getenv "PATH") ":"))
-            (format "  exec-path: %s\n" exec-path))
-    (insert (format "  with-editor-emacsclient-path:\n"))
-    (dolist (dir (with-editor-emacsclient-path))
-      (insert (format "    %s (%s)\n" dir (car (file-attributes dir))))
-      (when (file-directory-p dir)
-        ;; Don't match emacsclientw.exe, it makes popup windows.
-        (dolist (exec (directory-files dir t "emacsclient\\(?:[^w]\\|\\'\\)"))
-          (insert (format "      %s (%s)\n" exec
-                          (with-editor-emacsclient-version exec))))))))
-
-(defconst with-editor-font-lock-keywords
-  '(("(\\(with-\\(?:git-\\)?editor\\)\\_>" (1 'font-lock-keyword-face))))
-(font-lock-add-keywords 'emacs-lisp-mode with-editor-font-lock-keywords)
-
-(provide 'with-editor)
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; byte-compile-warnings: (not docstrings-control-chars)
-;; End:
-;;; with-editor.el ends here
diff --git a/emacs/elpa/with-editor-20240831.2230/with-editor.elc b/emacs/elpa/with-editor-20240831.2230/with-editor.elc
Binary files differ.
diff --git a/emacs/elpa/with-editor-20240831.2230/dir b/emacs/elpa/with-editor-20241123.2137/dir
diff --git a/emacs/elpa/with-editor-20240831.2230/with-editor-autoloads.el b/emacs/elpa/with-editor-20241123.2137/with-editor-autoloads.el
diff --git a/emacs/elpa/with-editor-20241123.2137/with-editor-pkg.el b/emacs/elpa/with-editor-20241123.2137/with-editor-pkg.el
@@ -0,0 +1,11 @@
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "with-editor" "20241123.2137"
+  "Use the Emacsclient as $EDITOR."
+  '((emacs  "26.1")
+    (compat "30.0.0.0"))
+  :url "https://github.com/magit/with-editor"
+  :commit "57f20bdb0d50256acdd12019aaa42b609204699b"
+  :revdesc "57f20bdb0d50"
+  :keywords '("processes" "terminals")
+  :authors '(("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev"))
+  :maintainers '(("Jonas Bernoulli" . "emacs.with-editor@jonas.bernoulli.dev")))
diff --git a/emacs/elpa/with-editor-20241123.2137/with-editor.el b/emacs/elpa/with-editor-20241123.2137/with-editor.el
@@ -0,0 +1,993 @@
+;;; with-editor.el --- Use the Emacsclient as $EDITOR  -*- lexical-binding:t -*-
+
+;; Copyright (C) 2014-2024 The Magit Project Contributors
+
+;; Author: Jonas Bernoulli <emacs.with-editor@jonas.bernoulli.dev>
+;; Homepage: https://github.com/magit/with-editor
+;; Keywords: processes terminals
+
+;; Package-Version: 20241123.2137
+;; Package-Revision: 57f20bdb0d50
+;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0"))
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; This file is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this file.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This library makes it possible to reliably use the Emacsclient as
+;; the `$EDITOR' of child processes.  It makes sure that they know how
+;; to call home.  For remote processes a substitute is provided, which
+;; communicates with Emacs on standard output/input instead of using a
+;; socket as the Emacsclient does.
+
+;; It provides the commands `with-editor-async-shell-command' and
+;; `with-editor-shell-command', which are intended as replacements
+;; for `async-shell-command' and `shell-command'.  They automatically
+;; export `$EDITOR' making sure the executed command uses the current
+;; Emacs instance as "the editor".  With a prefix argument these
+;; commands prompt for an alternative environment variable such as
+;; `$GIT_EDITOR'.  To always use these variants add this to your init
+;; file:
+;;
+;;   (keymap-global-set "<remap> <async-shell-command>"
+;;                      #'with-editor-async-shell-command)
+;;   (keymap-global-set "<remap> <shell-command>"
+;;                      #'with-editor-shell-command)
+
+;; Alternatively use the global `shell-command-with-editor-mode',
+;; which always sets `$EDITOR' for all Emacs commands which ultimately
+;; use `shell-command' to asynchronously run some shell command.
+
+;; The command `with-editor-export-editor' exports `$EDITOR' or
+;; another such environment variable in `shell-mode', `eshell-mode',
+;; `term-mode' and `vterm-mode' buffers.  Use this Emacs command
+;; before executing a shell command which needs the editor set, or
+;; always arrange for the current Emacs instance to be used as editor
+;; by adding it to the appropriate mode hooks:
+;;
+;;   (add-hook 'shell-mode-hook  #'with-editor-export-editor)
+;;   (add-hook 'eshell-mode-hook #'with-editor-export-editor)
+;;   (add-hook 'term-exec-hook   #'with-editor-export-editor)
+;;   (add-hook 'vterm-mode-hook  #'with-editor-export-editor)
+
+;; Some variants of this function exist, these two forms are
+;; equivalent:
+;;
+;;   (add-hook 'shell-mode-hook
+;;             (apply-partially #'with-editor-export-editor "GIT_EDITOR"))
+;;   (add-hook 'shell-mode-hook #'with-editor-export-git-editor)
+
+;; This library can also be used by other packages which need to use
+;; the current Emacs instance as editor.  In fact this library was
+;; written for Magit and its `git-commit-mode' and `git-rebase-mode'.
+;; Consult `git-rebase.el' and the related code in `magit-sequence.el'
+;; for a simple example.
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'compat)
+(require 'server)
+(require 'shell)
+(eval-when-compile (require 'subr-x))
+
+(declare-function dired-get-filename "dired"
+                  (&optional localp no-error-if-not-filep))
+(declare-function term-emulate-terminal "term" (proc str))
+(defvar eshell-preoutput-filter-functions)
+(defvar git-commit-post-finish-hook)
+(defvar vterm--process)
+(defvar warning-minimum-level)
+(defvar warning-minimum-log-level)
+
+;;; Options
+
+(defgroup with-editor nil
+  "Use the Emacsclient as $EDITOR."
+  :group 'external
+  :group 'server)
+
+(defun with-editor-locate-emacsclient ()
+  "Search for a suitable Emacsclient executable."
+  (or (with-editor-locate-emacsclient-1
+       (with-editor-emacsclient-path)
+       (length (split-string emacs-version "\\.")))
+      (prog1 nil (display-warning 'with-editor "\
+Cannot determine a suitable Emacsclient
+
+Determining an Emacsclient executable suitable for the
+current Emacs instance failed.  For more information
+please see https://github.com/magit/magit/wiki/Emacsclient."))))
+
+(defvar with-editor-emacsclient-program-suffixes
+  (list "-snapshot" ".emacs-snapshot")
+  "Suffixes to append to append when looking for a Emacsclient executables.")
+
+(defun with-editor-locate-emacsclient-1 (path depth)
+  (let* ((version-lst (cl-subseq (split-string emacs-version "\\.") 0 depth))
+         (version-reg (concat "^" (string-join version-lst "\\."))))
+    (or (locate-file
+         (cond ((equal (downcase invocation-name) "remacs")
+                "remacsclient")
+               ((bound-and-true-p emacsclient-program-name))
+               ("emacsclient"))
+         path
+         (mapcan (lambda (v) (cl-mapcar (lambda (e) (concat v e)) exec-suffixes))
+                 (nconc (and (boundp 'debian-emacs-flavor)
+                             (list (format ".%s" debian-emacs-flavor)))
+                        (cl-mapcon (lambda (v)
+                                     (setq v (string-join (reverse v) "."))
+                                     (list v
+                                           (concat "-" v)
+                                           (concat ".emacs" v)))
+                                   (reverse version-lst))
+                        (cons "" with-editor-emacsclient-program-suffixes)))
+         (lambda (exec)
+           (ignore-errors
+             (string-match-p version-reg
+                             (with-editor-emacsclient-version exec)))))
+        (and (> depth 1)
+             (with-editor-locate-emacsclient-1 path (1- depth))))))
+
+(defun with-editor-emacsclient-version (exec)
+  (let ((default-directory (file-name-directory exec)))
+    (ignore-errors
+      (cadr (split-string (car (process-lines exec "--version")))))))
+
+(defun with-editor-emacsclient-path ()
+  (let ((path exec-path))
+    (when invocation-directory
+      (push (directory-file-name invocation-directory) path)
+      (let* ((linkname (expand-file-name invocation-name invocation-directory))
+             (truename (file-chase-links linkname)))
+        (unless (equal truename linkname)
+          (push (directory-file-name (file-name-directory truename)) path)))
+      (when (eq system-type 'darwin)
+        (let ((dir (expand-file-name "bin" invocation-directory)))
+          (when (file-directory-p dir)
+            (push dir path)))
+        (when (string-search "Cellar" invocation-directory)
+          (let ((dir (expand-file-name "../../../bin" invocation-directory)))
+            (when (file-directory-p dir)
+              (push dir path))))))
+    (cl-remove-duplicates path :test #'equal)))
+
+(defcustom with-editor-emacsclient-executable (with-editor-locate-emacsclient)
+  "The Emacsclient executable used by the `with-editor' macro."
+  :group 'with-editor
+  :type '(choice (string :tag "Executable")
+                 (const  :tag "Don't use Emacsclient" nil)))
+
+(defcustom with-editor-sleeping-editor "\
+sh -c '\
+printf \"\\nWITH-EDITOR: $$ OPEN $0\\037$1\\037 IN $(pwd)\\n\"; \
+sleep 604800 & sleep=$!; \
+trap \"kill $sleep; exit 0\" USR1; \
+trap \"kill $sleep; exit 1\" USR2; \
+wait $sleep'"
+  "The sleeping editor, used when the Emacsclient cannot be used.
+
+This fallback is used for asynchronous processes started inside
+the macro `with-editor', when the process runs on a remote machine
+or for local processes when `with-editor-emacsclient-executable'
+is nil (i.e., when no suitable Emacsclient was found, or the user
+decided not to use it).
+
+Where the latter uses a socket to communicate with Emacs' server,
+this substitute prints edit requests to its standard output on
+which a process filter listens for such requests.  As such it is
+not a complete substitute for a proper Emacsclient, it can only
+be used as $EDITOR of child process of the current Emacs instance.
+
+Some shells do not execute traps immediately when waiting for a
+child process, but by default we do use such a blocking child
+process.
+
+If you use such a shell (e.g., `csh' on FreeBSD, but not Debian),
+then you have to edit this option.  You can either replace \"sh\"
+with \"bash\" (and install that), or you can use the older, less
+performant implementation:
+
+  \"sh -c '\\
+  echo -e \\\"\\nWITH-EDITOR: $$ OPEN $0$1 IN $(pwd)\\n\\\"; \\
+  trap \\\"exit 0\\\" USR1; \\
+  trap \\\"exit 1\" USR2; \\
+  while true; do sleep 1; done'\"
+
+Note that the two unit separator characters () right after $0
+and $1 are required.  Normally $0 is the file name and $1 is
+missing or else gets ignored.  But if $0 has the form \"+N[:N]\",
+then it is treated as a position in the file and $1 is expected
+to be the file.
+
+Also note that using this alternative implementation leads to a
+delay of up to a second.  The delay can be shortened by replacing
+\"sleep 1\" with \"sleep 0.01\", or if your implementation does
+not support floats, then by using \"nanosleep\" instead."
+  :package-version '(with-editor . "2.8.0")
+  :group 'with-editor
+  :type 'string)
+
+(defcustom with-editor-finish-query-functions nil
+  "List of functions called to query before finishing session.
+
+The buffer in question is current while the functions are called.
+If any of them returns nil, then the session is not finished and
+the buffer is not killed.  The user should then fix the issue and
+try again.  The functions are called with one argument.  If it is
+non-nil then that indicates that the user used a prefix argument
+to force finishing the session despite issues.  Functions should
+usually honor that and return non-nil."
+  :group 'with-editor
+  :type 'hook)
+(put 'with-editor-finish-query-functions 'permanent-local t)
+
+(defcustom with-editor-cancel-query-functions nil
+  "List of functions called to query before canceling session.
+
+The buffer in question is current while the functions are called.
+If any of them returns nil, then the session is not canceled and
+the buffer is not killed.  The user should then fix the issue and
+try again.  The functions are called with one argument.  If it is
+non-nil then that indicates that the user used a prefix argument
+to force canceling the session despite issues.  Functions should
+usually honor that and return non-nil."
+  :group 'with-editor
+  :type 'hook)
+(put 'with-editor-cancel-query-functions 'permanent-local t)
+
+(defcustom with-editor-mode-lighter " WE"
+  "The mode-line lighter of the With-Editor mode."
+  :group 'with-editor
+  :type '(choice (const :tag "No lighter" "") string))
+
+(defvar with-editor-server-window-alist nil
+  "Alist of filename patterns vs corresponding `server-window'.
+
+Each element looks like (REGEXP . FUNCTION).  Files matching
+REGEXP are selected using FUNCTION instead of the default in
+`server-window'.
+
+Note that when a package adds an entry here then it probably
+has a reason to disrespect `server-window' and it likely is
+not a good idea to change such entries.")
+
+(defvar with-editor-file-name-history-exclude nil
+  "List of regexps for filenames `server-visit' should not remember.
+When a filename matches any of the regexps, then `server-visit'
+does not add it to the variable `file-name-history', which is
+used when reading a filename in the minibuffer.")
+
+(defcustom with-editor-shell-command-use-emacsclient t
+  "Whether to use the emacsclient when running shell commands.
+
+This affects `with-editor-async-shell-command' and, if the input
+ends with \"&\" `with-editor-shell-command' .
+
+If `shell-command-with-editor-mode' is enabled, then it also
+affects `shell-command-async' and, if the input ends with \"&\"
+`shell-command'.
+
+This is a temporary kludge that lets you choose between two
+possible defects, the ones described in the issues #23 and #40.
+
+When t, then use the emacsclient.  This has the disadvantage that
+`with-editor-mode' won't be enabled because we don't know whether
+this package was involved at all in the call to the emacsclient,
+and when it is not, then we really should.  The problem is that
+the emacsclient doesn't pass along any environment variables to
+the server.  This will hopefully be fixed in Emacs eventually.
+
+When nil, then use the sleeping editor.  Because in this case we
+know that this package is involved, we can enable the mode.  But
+this makes it necessary that you invoke $EDITOR in shell scripts
+like so:
+
+  eval \"$EDITOR\" file
+
+And some tools that do not handle $EDITOR properly also break."
+  :package-version '(with-editor . "2.7.1")
+  :group 'with-editor
+  :type 'boolean)
+
+;;; Mode Commands
+
+(defvar with-editor-pre-finish-hook nil)
+(defvar with-editor-pre-cancel-hook nil)
+(defvar with-editor-post-finish-hook nil)
+(defvar with-editor-post-finish-hook-1 nil)
+(defvar with-editor-post-cancel-hook nil)
+(defvar with-editor-post-cancel-hook-1 nil)
+(defvar with-editor-cancel-alist nil)
+(put 'with-editor-pre-finish-hook 'permanent-local t)
+(put 'with-editor-pre-cancel-hook 'permanent-local t)
+(put 'with-editor-post-finish-hook 'permanent-local t)
+(put 'with-editor-post-cancel-hook 'permanent-local t)
+
+(defvar-local with-editor-show-usage t)
+(defvar-local with-editor-cancel-message nil)
+(defvar-local with-editor-previous-winconf nil)
+(put 'with-editor-cancel-message 'permanent-local t)
+(put 'with-editor-previous-winconf 'permanent-local t)
+
+(defvar-local with-editor--pid nil "For internal use.")
+(put 'with-editor--pid 'permanent-local t)
+
+(defun with-editor-finish (force)
+  "Finish the current edit session."
+  (interactive "P")
+  (when (run-hook-with-args-until-failure
+         'with-editor-finish-query-functions force)
+    (let ((post-finish-hook with-editor-post-finish-hook)
+          (post-commit-hook (bound-and-true-p git-commit-post-finish-hook))
+          (dir default-directory))
+      (run-hooks 'with-editor-pre-finish-hook)
+      (with-editor-return nil)
+      (accept-process-output nil 0.1)
+      (with-temp-buffer
+        (setq default-directory dir)
+        (setq-local with-editor-post-finish-hook post-finish-hook)
+        (when post-commit-hook
+          (setq-local git-commit-post-finish-hook post-commit-hook))
+        (run-hooks 'with-editor-post-finish-hook)))))
+
+(defun with-editor-cancel (force)
+  "Cancel the current edit session."
+  (interactive "P")
+  (when (run-hook-with-args-until-failure
+         'with-editor-cancel-query-functions force)
+    (let ((message with-editor-cancel-message))
+      (when (functionp message)
+        (setq message (funcall message)))
+      (let ((post-cancel-hook with-editor-post-cancel-hook)
+            (with-editor-cancel-alist nil)
+            (dir default-directory))
+        (run-hooks 'with-editor-pre-cancel-hook)
+        (with-editor-return t)
+        (accept-process-output nil 0.1)
+        (with-temp-buffer
+          (setq default-directory dir)
+          (setq-local with-editor-post-cancel-hook post-cancel-hook)
+          (run-hooks 'with-editor-post-cancel-hook)))
+      (message (or message "Canceled by user")))))
+
+(defun with-editor-return (cancel)
+  (let ((winconf with-editor-previous-winconf)
+        (clients server-buffer-clients)
+        (dir default-directory)
+        (pid with-editor--pid))
+    (remove-hook 'kill-buffer-query-functions
+                 #'with-editor-kill-buffer-noop t)
+    (cond (cancel
+           (save-buffer)
+           (if clients
+               (let ((buf (current-buffer)))
+                 (dolist (client clients)
+                   (message "client %S" client)
+                   (ignore-errors
+                     (server-send-string client "-error Canceled by user"))
+                   (delete-process client))
+                 (when (buffer-live-p buf)
+                   (kill-buffer buf)))
+             ;; Fallback for when emacs was used as $EDITOR
+             ;; instead of emacsclient or the sleeping editor.
+             ;; See https://github.com/magit/magit/issues/2258.
+             (ignore-errors (delete-file buffer-file-name))
+             (kill-buffer)))
+          (t
+           (save-buffer)
+           (if clients
+               ;; Don't use `server-edit' because we do not want to
+               ;; show another buffer belonging to another client.
+               ;; See https://github.com/magit/magit/issues/2197.
+               (server-done)
+             (kill-buffer))))
+    (when pid
+      (let ((default-directory dir))
+        (process-file "kill" nil nil nil
+                      "-s" (if cancel "USR2" "USR1") pid)))
+    (when (and winconf (eq (window-configuration-frame winconf)
+                           (selected-frame)))
+      (set-window-configuration winconf))))
+
+;;; Mode
+
+(defvar-keymap with-editor-mode-map
+  "C-c C-c"                                #'with-editor-finish
+  "<remap> <server-edit>"                  #'with-editor-finish
+  "<remap> <evil-save-and-close>"          #'with-editor-finish
+  "<remap> <evil-save-modified-and-close>" #'with-editor-finish
+  "C-c C-k"                                #'with-editor-cancel
+  "<remap> <kill-buffer>"                  #'with-editor-cancel
+  "<remap> <ido-kill-buffer>"              #'with-editor-cancel
+  "<remap> <iswitchb-kill-buffer>"         #'with-editor-cancel
+  "<remap> <evil-quit>"                    #'with-editor-cancel)
+
+(define-minor-mode with-editor-mode
+  "Edit a file as the $EDITOR of an external process."
+  :lighter with-editor-mode-lighter
+  ;; Protect the user from enabling or disabling the mode interactively.
+  ;; Manually enabling the mode is dangerous because canceling the buffer
+  ;; deletes the visited file.  The mode must not be disabled manually,
+  ;; either `with-editor-finish' or `with-editor-cancel' must be used.
+  :interactive nil                    ; >= 28.1
+  (when (called-interactively-p 'any) ; <  28.1
+    (setq with-editor-mode (not with-editor-mode))
+    (user-error "With-Editor mode is not intended for interactive use"))
+  ;; The buffer must also not be killed using regular kill commands.
+  (add-hook 'kill-buffer-query-functions
+            #'with-editor-kill-buffer-noop nil t)
+  ;; `server-execute' displays a message which is not
+  ;; correct when using this mode.
+  (when with-editor-show-usage
+    (with-editor-usage-message)))
+
+(put 'with-editor-mode 'permanent-local t)
+
+(defun with-editor-kill-buffer-noop ()
+  ;; We started doing this in response to #64, but it is not safe
+  ;; to do so, because the client has already been killed, causing
+  ;; `with-editor-return' (called by `with-editor-cancel') to delete
+  ;; the file, see #66.  The reason we delete the file in the first
+  ;; place are https://github.com/magit/magit/issues/2258 and
+  ;; https://github.com/magit/magit/issues/2248.
+  ;; (if (memq this-command '(save-buffers-kill-terminal
+  ;;                          save-buffers-kill-emacs))
+  ;;     (let ((with-editor-cancel-query-functions nil))
+  ;;       (with-editor-cancel nil)
+  ;;       t)
+  ;;   ...)
+  ;; So go back to always doing this instead:
+  (user-error (substitute-command-keys (format "\
+Don't kill this buffer %S.  Instead cancel using \\[with-editor-cancel]"
+                                               (current-buffer)))))
+
+(defvar-local with-editor-usage-message "\
+Type \\[with-editor-finish] to finish, \
+or \\[with-editor-cancel] to cancel")
+
+(defun with-editor-usage-message ()
+  ;; Run after `server-execute', which is run using
+  ;; a timer which starts immediately.
+  (let ((buffer (current-buffer)))
+    (run-with-timer
+     0.05 nil
+     (lambda ()
+       (with-current-buffer buffer
+         (message (substitute-command-keys with-editor-usage-message)))))))
+
+;;; Wrappers
+
+(defvar with-editor--envvar nil "For internal use.")
+
+(defmacro with-editor (&rest body)
+  "Use the Emacsclient as $EDITOR while evaluating BODY.
+Modify the `process-environment' for processes started in BODY,
+instructing them to use the Emacsclient as $EDITOR.  If optional
+ENVVAR is a literal string then bind that environment variable
+instead.
+\n(fn [ENVVAR] BODY...)"
+  (declare (indent defun) (debug (body)))
+  `(let ((with-editor--envvar ,(if (stringp (car body))
+                                   (pop body)
+                                 '(or with-editor--envvar "EDITOR")))
+         (process-environment process-environment))
+     (with-editor--setup)
+     ,@body))
+
+(defmacro with-editor* (envvar &rest body)
+  "Use the Emacsclient as the editor while evaluating BODY.
+Modify the `process-environment' for processes started in BODY,
+instructing them to use the Emacsclient as editor.  ENVVAR is the
+environment variable that is exported to do so, it is evaluated
+at run-time.
+\n(fn ENVVAR BODY...)"
+  (declare (indent defun) (debug (sexp body)))
+  `(let ((with-editor--envvar ,envvar)
+         (process-environment process-environment))
+     (with-editor--setup)
+     ,@body))
+
+(defun with-editor--setup ()
+  (if (or (not with-editor-emacsclient-executable)
+          (file-remote-p default-directory))
+      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
+            process-environment)
+    ;; Make sure server-use-tcp's value is valid.
+    (unless (featurep 'make-network-process '(:family local))
+      (setq server-use-tcp t))
+    ;; Make sure the server is running.
+    (unless (process-live-p server-process)
+      (when (server-running-p server-name)
+        (setq server-name (format "server%s" (emacs-pid)))
+        (when (server-running-p server-name)
+          (server-force-delete server-name)))
+      (server-start))
+    ;; Tell $EDITOR to use the Emacsclient.
+    (push (concat with-editor--envvar "="
+                  ;; Quoting is the right thing to do.  Applications that
+                  ;; fail because of that, are the ones that need fixing,
+                  ;; e.g., by using 'eval "$EDITOR" file'.  See #121.
+                  (shell-quote-argument
+                   ;; If users set the executable manually, they might
+                   ;; begin the path with "~", which would get quoted.
+                   (if (string-prefix-p "~" with-editor-emacsclient-executable)
+                       (concat (expand-file-name "~")
+                               (substring with-editor-emacsclient-executable 1))
+                     with-editor-emacsclient-executable))
+                  ;; Tell the process where the server file is.
+                  (and (not server-use-tcp)
+                       (concat " --socket-name="
+                               (shell-quote-argument
+                                (expand-file-name server-name
+                                                  server-socket-dir)))))
+          process-environment)
+    (when server-use-tcp
+      (push (concat "EMACS_SERVER_FILE="
+                    (expand-file-name server-name server-auth-dir))
+            process-environment))
+    ;; As last resort fallback to the sleeping editor.
+    (push (concat "ALTERNATE_EDITOR=" with-editor-sleeping-editor)
+          process-environment)))
+
+(defun with-editor-server-window ()
+  (or (and buffer-file-name
+           (cdr (cl-find-if (lambda (cons)
+                              (string-match-p (car cons) buffer-file-name))
+                            with-editor-server-window-alist)))
+      server-window))
+
+(define-advice server-switch-buffer
+    (:around (fn &optional next-buffer &rest args)
+             with-editor-server-window-alist)
+  "Honor `with-editor-server-window-alist' (which see)."
+  (let ((server-window (with-current-buffer
+                           (or next-buffer (current-buffer))
+                         (when with-editor-mode
+                           (setq with-editor-previous-winconf
+                                 (current-window-configuration)))
+                         (with-editor-server-window))))
+    (apply fn next-buffer args)))
+
+(define-advice start-file-process
+    (:around (fn name buffer program &rest program-args)
+             with-editor-process-filter)
+  "When called inside a `with-editor' form and the Emacsclient
+cannot be used, then give the process the filter function
+`with-editor-process-filter'.  To avoid overriding the filter
+being added here you should use `with-editor-set-process-filter'
+instead of `set-process-filter' inside `with-editor' forms.
+
+When the `default-directory' is located on a remote machine,
+then also manipulate PROGRAM and PROGRAM-ARGS in order to set
+the appropriate editor environment variable."
+  (if (not with-editor--envvar)
+      (apply fn name buffer program program-args)
+    (when (file-remote-p default-directory)
+      (unless (equal program "env")
+        (push program program-args)
+        (setq program "env"))
+      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
+            program-args))
+    (let ((process (apply fn name buffer program program-args)))
+      (set-process-filter process #'with-editor-process-filter)
+      (process-put process 'default-dir default-directory)
+      process)))
+
+(advice-add #'make-process :around
+            #'make-process@with-editor-process-filter)
+(cl-defun make-process@with-editor-process-filter
+    (fn &rest keys &key name buffer command coding noquery stop
+        connection-type filter sentinel stderr file-handler
+        &allow-other-keys)
+  "When called inside a `with-editor' form and the Emacsclient
+cannot be used, then give the process the filter function
+`with-editor-process-filter'.  To avoid overriding the filter
+being added here you should use `with-editor-set-process-filter'
+instead of `set-process-filter' inside `with-editor' forms.
+
+When the `default-directory' is located on a remote machine and
+FILE-HANDLER is non-nil, then also manipulate COMMAND in order
+to set the appropriate editor environment variable."
+  (if (or (not file-handler) (not with-editor--envvar))
+      (apply fn keys)
+    (when (file-remote-p default-directory)
+      (unless (equal (car command) "env")
+        (push "env" command))
+      (push (concat with-editor--envvar "=" with-editor-sleeping-editor)
+            (cdr command)))
+    (let* ((filter (if filter
+                       (lambda (process output)
+                         (funcall filter process output)
+                         (with-editor-process-filter process output t))
+                     #'with-editor-process-filter))
+           (process (funcall fn
+                             :name name
+                             :buffer buffer
+                             :command command
+                             :coding coding
+                             :noquery noquery
+                             :stop stop
+                             :connection-type connection-type
+                             :filter filter
+                             :sentinel sentinel
+                             :stderr stderr
+                             :file-handler file-handler)))
+      (process-put process 'default-dir default-directory)
+      process)))
+
+(defun with-editor-set-process-filter (process filter)
+  "Like `set-process-filter' but keep `with-editor-process-filter'.
+Give PROCESS the new FILTER but keep `with-editor-process-filter'
+if that was added earlier by the advised `start-file-process'.
+
+Do so by wrapping the two filter functions using a lambda, which
+becomes the actual filter.  It calls FILTER first, which may or
+may not insert the text into the PROCESS's buffer.  Then it calls
+`with-editor-process-filter', passing t as NO-STANDARD-FILTER."
+  (set-process-filter
+   process
+   (if (eq (process-filter process) 'with-editor-process-filter)
+       `(lambda (proc str)
+          (,filter proc str)
+          (with-editor-process-filter proc str t))
+     filter)))
+
+(defvar with-editor-filter-visit-hook nil)
+
+(defconst with-editor-sleeping-editor-regexp "^\
+WITH-EDITOR: \\([0-9]+\\) \
+OPEN \\([^]+?\\)\
+\\(?:\\([^]*\\)\\)?\
+\\(?: IN \\([^\r]+?\\)\\)?\r?$")
+
+(defvar with-editor--max-incomplete-length 1000)
+
+(defun with-editor-sleeping-editor-filter (process string)
+  (when-let ((incomplete (and process (process-get process 'incomplete))))
+    (setq string (concat incomplete string)))
+  (save-match-data
+    (cond
+     ((and process (not (string-suffix-p "\n" string)))
+      (let ((length (length string)))
+        (when (> length with-editor--max-incomplete-length)
+          (setq string
+                (substring string
+                           (- length with-editor--max-incomplete-length)))))
+      (process-put process 'incomplete string)
+      nil)
+     ((string-match with-editor-sleeping-editor-regexp string)
+      (when process
+        (process-put process 'incomplete nil))
+      (let ((pid  (match-string 1 string))
+            (arg0 (match-string 2 string))
+            (arg1 (match-string 3 string))
+            (dir  (match-string 4 string))
+            file line column)
+        (cond ((string-match "\\`\\+\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?\\'" arg0)
+               (setq file arg1)
+               (setq line (string-to-number (match-string 1 arg0)))
+               (setq column (match-string 2 arg0))
+               (setq column (and column (string-to-number column))))
+              ((setq file arg0)))
+        (unless (file-name-absolute-p file)
+          (setq file (expand-file-name file dir)))
+        (when default-directory
+          (setq file (concat (file-remote-p default-directory) file)))
+        (with-current-buffer (find-file-noselect file)
+          (with-editor-mode 1)
+          (setq with-editor--pid pid)
+          (setq with-editor-previous-winconf
+                (current-window-configuration))
+          (when line
+            (let ((pos (save-excursion
+                         (save-restriction
+                           (goto-char (point-min))
+                           (forward-line (1- line))
+                           (when column
+                             (move-to-column column))
+                           (point)))))
+              (when (and (buffer-narrowed-p)
+                         widen-automatically
+                         (not (<= (point-min) pos (point-max))))
+                (widen))
+              (goto-char pos)))
+          (run-hooks 'with-editor-filter-visit-hook)
+          (funcall (or (with-editor-server-window) #'switch-to-buffer)
+                   (current-buffer))
+          (kill-local-variable 'server-window)))
+      nil)
+     (t string))))
+
+(defun with-editor-process-filter
+    (process string &optional no-default-filter)
+  "Listen for edit requests by child processes."
+  (let ((default-directory (process-get process 'default-dir)))
+    (with-editor-sleeping-editor-filter process string))
+  (unless no-default-filter
+    (internal-default-process-filter process string)))
+
+(define-advice server-visit-files
+    (:after (files _proc &optional _nowait)
+            with-editor-file-name-history-exclude)
+  "Prevent certain files from being added to `file-name-history'.
+Files matching a regexp in `with-editor-file-name-history-exclude'
+are prevented from being added to that list."
+  (pcase-dolist (`(,file . ,_) files)
+    (when (cl-find-if (lambda (regexp)
+                        (string-match-p regexp file))
+                      with-editor-file-name-history-exclude)
+      (setq file-name-history
+            (delete (abbreviate-file-name file) file-name-history)))))
+
+;;; Augmentations
+
+;;;###autoload
+(cl-defun with-editor-export-editor (&optional (envvar "EDITOR"))
+  "Teach subsequent commands to use current Emacs instance as editor.
+
+Set and export the environment variable ENVVAR, by default
+\"EDITOR\".  The value is automatically generated to teach
+commands to use the current Emacs instance as \"the editor\".
+
+This works in `shell-mode', `term-mode', `eshell-mode' and
+`vterm'."
+  (interactive (list (with-editor-read-envvar)))
+  (cond
+   ((derived-mode-p 'comint-mode 'term-mode)
+    (when-let ((process (get-buffer-process (current-buffer))))
+      (goto-char (process-mark process))
+      (process-send-string
+       process (format " export %s=%s\n" envvar
+                       (shell-quote-argument with-editor-sleeping-editor)))
+      (while (accept-process-output process 1 nil t))
+      (if (derived-mode-p 'term-mode)
+          (with-editor-set-process-filter process #'with-editor-emulate-terminal)
+        (add-hook 'comint-output-filter-functions #'with-editor-output-filter
+                  nil t))))
+   ((derived-mode-p 'eshell-mode)
+    (add-to-list 'eshell-preoutput-filter-functions
+                 #'with-editor-output-filter)
+    (setenv envvar with-editor-sleeping-editor))
+   ((and (derived-mode-p 'vterm-mode)
+         (fboundp 'vterm-send-return)
+         (fboundp 'vterm-send-string))
+    (if with-editor-emacsclient-executable
+        (let ((with-editor--envvar envvar)
+              (process-environment process-environment))
+          (with-editor--setup)
+          (while (accept-process-output vterm--process 1 nil t))
+          (when-let ((v (getenv envvar)))
+            (vterm-send-string (format " export %s=%S" envvar v))
+            (vterm-send-return))
+          (when-let ((v (getenv "EMACS_SERVER_FILE")))
+            (vterm-send-string (format " export EMACS_SERVER_FILE=%S" v))
+            (vterm-send-return))
+          (vterm-send-string "clear")
+          (vterm-send-return))
+      (error "Cannot use sleeping editor in this buffer")))
+   (t
+    (error "Cannot export environment variables in this buffer")))
+  (message "Successfully exported %s" envvar))
+
+;;;###autoload
+(defun with-editor-export-git-editor ()
+  "Like `with-editor-export-editor' but always set `$GIT_EDITOR'."
+  (interactive)
+  (with-editor-export-editor "GIT_EDITOR"))
+
+;;;###autoload
+(defun with-editor-export-hg-editor ()
+  "Like `with-editor-export-editor' but always set `$HG_EDITOR'."
+  (interactive)
+  (with-editor-export-editor "HG_EDITOR"))
+
+(defun with-editor-output-filter (string)
+  "Handle edit requests on behalf of `comint-mode' and `eshell-mode'."
+  (with-editor-sleeping-editor-filter nil string))
+
+(defun with-editor-emulate-terminal (process string)
+  "Like `term-emulate-terminal' but also handle edit requests."
+  (let ((with-editor-sleeping-editor-regexp
+         (substring with-editor-sleeping-editor-regexp 1)))
+    (with-editor-sleeping-editor-filter process string))
+  (term-emulate-terminal process string))
+
+(defvar with-editor-envvars '("EDITOR" "GIT_EDITOR" "HG_EDITOR"))
+
+(cl-defun with-editor-read-envvar
+    (&optional (prompt  "Set environment variable")
+               (default "EDITOR"))
+  (let ((reply (completing-read (if default
+                                    (format "%s (%s): " prompt default)
+                                  (concat prompt ": "))
+                                with-editor-envvars nil nil nil nil default)))
+    (if (string= reply "") (user-error "Nothing selected") reply)))
+
+;;;###autoload
+(define-minor-mode shell-command-with-editor-mode
+  "Teach `shell-command' to use current Emacs instance as editor.
+
+Teach `shell-command', and all commands that ultimately call that
+command, to use the current Emacs instance as editor by executing
+\"EDITOR=CLIENT COMMAND&\" instead of just \"COMMAND&\".
+
+CLIENT is automatically generated; EDITOR=CLIENT instructs
+COMMAND to use to the current Emacs instance as \"the editor\",
+assuming no other variable overrides the effect of \"$EDITOR\".
+CLIENT may be the path to an appropriate emacsclient executable
+with arguments, or a script which also works over Tramp.
+
+Alternatively you can use the `with-editor-async-shell-command',
+which also allows the use of another variable instead of
+\"EDITOR\"."
+  :global t)
+
+;;;###autoload
+(defun with-editor-async-shell-command
+    (command &optional output-buffer error-buffer envvar)
+  "Like `async-shell-command' but with `$EDITOR' set.
+
+Execute string \"ENVVAR=CLIENT COMMAND\" in an inferior shell;
+display output, if any.  With a prefix argument prompt for an
+environment variable, otherwise the default \"EDITOR\" variable
+is used.  With a negative prefix argument additionally insert
+the COMMAND's output at point.
+
+CLIENT is automatically generated; ENVVAR=CLIENT instructs
+COMMAND to use to the current Emacs instance as \"the editor\",
+assuming it respects ENVVAR as an \"EDITOR\"-like variable.
+CLIENT may be the path to an appropriate emacsclient executable
+with arguments, or a script which also works over Tramp.
+
+Also see `async-shell-command' and `shell-command'."
+  (interactive (with-editor-shell-command-read-args "Async shell command: " t))
+  (let ((with-editor--envvar envvar))
+    (with-editor
+      (async-shell-command command output-buffer error-buffer))))
+
+;;;###autoload
+(defun with-editor-shell-command
+    (command &optional output-buffer error-buffer envvar)
+  "Like `shell-command' or `with-editor-async-shell-command'.
+If COMMAND ends with \"&\" behave like the latter,
+else like the former."
+  (interactive (with-editor-shell-command-read-args "Shell command: "))
+  (if (string-match "&[ \t]*\\'" command)
+      (with-editor-async-shell-command
+       command output-buffer error-buffer envvar)
+    (shell-command command output-buffer error-buffer)))
+
+(defun with-editor-shell-command-read-args (prompt &optional async)
+  (let ((command (read-shell-command
+                  prompt nil nil
+                  (let ((filename (or buffer-file-name
+                                      (and (eq major-mode 'dired-mode)
+                                           (dired-get-filename nil t)))))
+                    (and filename (file-relative-name filename))))))
+    (list command
+          (if (or async (setq async (string-match-p "&[ \t]*\\'" command)))
+              (< (prefix-numeric-value current-prefix-arg) 0)
+            current-prefix-arg)
+          shell-command-default-error-buffer
+          (and async current-prefix-arg (with-editor-read-envvar)))))
+
+(define-advice shell-command
+    (:around (fn command &optional output-buffer error-buffer)
+             shell-command-with-editor-mode)
+  "Set editor envvar, if `shell-command-with-editor-mode' is enabled.
+Also take care of that for `with-editor-[async-]shell-command'."
+  ;; `shell-mode' and its hook are intended for buffers in which an
+  ;; interactive shell is running, but `shell-command' also turns on
+  ;; that mode, even though it only runs the shell to run a single
+  ;; command.  The `with-editor-export-editor' hook function is only
+  ;; intended to be used in buffers in which an interactive shell is
+  ;; running, so it has to be removed here.
+  (let ((shell-mode-hook (remove 'with-editor-export-editor shell-mode-hook)))
+    (cond
+     ;; If `with-editor-async-shell-command' was used, then `with-editor'
+     ;; was used, and `with-editor--envvar'.  `with-editor-shell-command'
+     ;; only goes down that path if the command ends with "&".  We might
+     ;; still have to use `with-editor' here, for `async-shell-command'
+     ;; or `shell-command', if the mode is enabled.
+     ((and (string-suffix-p "&" command)
+           (or with-editor--envvar
+               shell-command-with-editor-mode))
+      (if with-editor--envvar
+          (funcall fn command output-buffer error-buffer)
+        (with-editor (funcall fn command output-buffer error-buffer)))
+      ;; The comint filter was overridden with our filter.  Use both.
+      (and-let* ((process (get-buffer-process
+                           (or output-buffer
+                               (get-buffer "*Async Shell Command*")))))
+        (prog1 process
+          (set-process-filter process
+                              (lambda (proc str)
+                                (comint-output-filter proc str)
+                                (with-editor-process-filter proc str t))))))
+     ((funcall fn command output-buffer error-buffer)))))
+
+;;; _
+
+(defun with-editor-debug ()
+  "Debug configuration issues.
+See info node `(with-editor)Debugging' for instructions."
+  (interactive)
+  (require 'warnings)
+  (with-current-buffer (get-buffer-create "*with-editor-debug*")
+    (pop-to-buffer (current-buffer))
+    (erase-buffer)
+    (ignore-errors (with-editor))
+    (insert
+     (format "with-editor: %s\n" (locate-library "with-editor.el"))
+     (format "emacs: %s (%s)\n"
+             (expand-file-name invocation-name invocation-directory)
+             emacs-version)
+     "system:\n"
+     (format "  system-type: %s\n" system-type)
+     (format "  system-configuration: %s\n" system-configuration)
+     (format "  system-configuration-options: %s\n" system-configuration-options)
+     "server:\n"
+     (format "  server-running-p: %s\n" (server-running-p))
+     (format "  server-process: %S\n" server-process)
+     (format "  server-use-tcp: %s\n" server-use-tcp)
+     (format "  server-name: %s\n" server-name)
+     (format "  server-socket-dir: %s\n" server-socket-dir))
+    (if (and server-socket-dir (file-accessible-directory-p server-socket-dir))
+        (dolist (file (directory-files server-socket-dir nil "^[^.]"))
+          (insert (format "    %s\n" file)))
+      (insert (format "    %s: not an accessible directory\n"
+                      (if server-use-tcp "WARNING" "ERROR"))))
+    (insert (format "  server-auth-dir: %s\n" server-auth-dir))
+    (if (file-accessible-directory-p server-auth-dir)
+        (dolist (file (directory-files server-auth-dir nil "^[^.]"))
+          (insert (format "    %s\n" file)))
+      (insert (format "    %s: not an accessible directory\n"
+                      (if server-use-tcp "ERROR" "WARNING"))))
+    (let ((val with-editor-emacsclient-executable)
+          (def (default-value 'with-editor-emacsclient-executable))
+          (fun (let ((warning-minimum-level :error)
+                     (warning-minimum-log-level :error))
+                 (with-editor-locate-emacsclient))))
+      (insert "with-editor-emacsclient-executable:\n"
+              (format " value:   %s (%s)\n" val
+                      (and val (with-editor-emacsclient-version val)))
+              (format " default: %s (%s)\n" def
+                      (and def (with-editor-emacsclient-version def)))
+              (format " funcall: %s (%s)\n" fun
+                      (and fun (with-editor-emacsclient-version fun)))))
+    (insert "path:\n"
+            (format "  $PATH:     %s\n" (split-string (getenv "PATH") ":"))
+            (format "  exec-path: %s\n" exec-path))
+    (insert (format "  with-editor-emacsclient-path:\n"))
+    (dolist (dir (with-editor-emacsclient-path))
+      (insert (format "    %s (%s)\n" dir (car (file-attributes dir))))
+      (when (file-directory-p dir)
+        ;; Don't match emacsclientw.exe, it makes popup windows.
+        (dolist (exec (directory-files dir t "emacsclient\\(?:[^w]\\|\\'\\)"))
+          (insert (format "      %s (%s)\n" exec
+                          (with-editor-emacsclient-version exec))))))))
+
+(defconst with-editor-font-lock-keywords
+  '(("(\\(with-\\(?:git-\\)?editor\\)\\_>" (1 'font-lock-keyword-face))))
+(font-lock-add-keywords 'emacs-lisp-mode with-editor-font-lock-keywords)
+
+(provide 'with-editor)
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; byte-compile-warnings: (not docstrings-control-chars)
+;; End:
+;;; with-editor.el ends here
diff --git a/emacs/elpa/with-editor-20241123.2137/with-editor.elc b/emacs/elpa/with-editor-20241123.2137/with-editor.elc
Binary files differ.
diff --git a/emacs/elpa/with-editor-20240831.2230/with-editor.info b/emacs/elpa/with-editor-20241123.2137/with-editor.info