[elpa] externals/modus-themes 1963b6b874: Update the repository url in the CHANGELOG

[ELPA Syncer]

branch: externals/modus-themes
commit 1963b6b87462755fa7ed2b6009ee50478520a3fd
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update the repository url in the CHANGELOG

Thanks to Morgan Willcock for bringing this matter to my attention. It
was done via a private channel. This is shared with permission.
---
 CHANGELOG.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 17b4c7cf22..7137fb74b7 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -5,7 +5,7 @@
 
 This document contains the release notes that are included in each
 tagged commit on the project's main git repository:
-.
+.
 
 The newest release is at the top.  Since the notes are meant to be in
 plain text format, I copy them verbatim.

[nongnu] elpa/helm a1fd23ff2f 1/2: suppress dired-async-processes being void

[ELPA Syncer]

branch: elpa/helm
commit a1fd23ff2f676ac16db603e78a27ce4deeddc8c0
Author: Kiso Katsuyuki 
Commit: Kiso Katsuyuki 

suppress dired-async-processes being void
---
 helm-files.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-files.el b/helm-files.el
index 5f5fd93435..6b99b9162b 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1533,6 +1533,7 @@ This reproduce the behavior of \"cp --backup=numbered 
from to\"."
 
 (defun helm-ff-compress-marked-files (_candidate)
   "Compress or uncompress marked files with `dired-compress-file'."
+  (require 'dired-async)
   (let* ((files (helm-marked-candidates :with-wildcard t)))
 (if (not (with-helm-display-marked-candidates
helm-marked-buffer-name

[nongnu] elpa/helm 45224ceb82 2/2: Merge pull request #2647 from kkatsuyuki/load-dired-async

[ELPA Syncer]

branch: elpa/helm
commit 45224ceb82b96267d12085f0cb116124b041e8bd
Merge: 990d810c4d a1fd23ff2f
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #2647 from kkatsuyuki/load-dired-async

suppress dired-async-processes being void
---
 helm-files.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-files.el b/helm-files.el
index 5f5fd93435..6b99b9162b 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1533,6 +1533,7 @@ This reproduce the behavior of \"cp --backup=numbered 
from to\"."
 
 (defun helm-ff-compress-marked-files (_candidate)
   "Compress or uncompress marked files with `dired-compress-file'."
+  (require 'dired-async)
   (let* ((files (helm-marked-candidates :with-wildcard t)))
 (if (not (with-helm-display-marked-candidates
helm-marked-buffer-name

[nongnu] elpa/helm-core updated (990d810c4d -> 45224ceb82)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  990d810c4d Merge branch 'devel'
  adds  a1fd23ff2f suppress dired-async-processes being void
  adds  45224ceb82 Merge pull request #2647 from kkatsuyuki/load-dired-async

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 1 +
 1 file changed, 1 insertion(+)

[nongnu] elpa/meow c693c48a2f: meow-shims: add shim for ddskk (meow-prev)

[ELPA Syncer]

branch: elpa/meow
commit c693c48a2fa106790389015673a7b01526862b00
Author: eshrh 
Commit: eshrh 

meow-shims: add shim for ddskk (meow-prev)

Adds a shim for ddskk so that meow-prev works.
meow-prev calls C-p which is overriden by ddskk.
Fixes #540. See this issue for details.
---
 meow-shims.el | 27 +--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/meow-shims.el b/meow-shims.el
index c2f277f7a8..fdc6b09d2f 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -302,6 +302,27 @@ Argument ENABLE non-nil means turn on."
   (advice-add 'quail-input-method :around 'meow--input-method-advice)
 (advice-remove 'quail-input-method 'meow--input-method-advice)))
 
+;;;
+;; ddskk
+
+(defvar meow--ddskk-setup nil)
+(defun meow--ddskk-skk-previous-candidate-advice (fnc &optional arg)
+  (if (and (not (eq skk-henkan-mode 'active))
+   (not (eq last-command 'skk-kakutei-henkan))
+   last-command-event
+   (eq last-command-event
+   (seq-first (car (where-is-internal
+'meow-prev
+meow-normal-state-keymap)
+  (previous-line)
+(funcall func arg)))
+
+(defun meow--setup-ddskk (enable)
+  (setq meow--ddskk-setup enable)
+  (if enable
+  (advice-add 'skk-previous-candidate :around
+  'meow--ddskk-skk-previous-candidate-advice)))
+
 ;;;
 ;; polymode
 
@@ -348,7 +369,8 @@ Argument ENABLE non-nil means turn on."
   (eval-after-load "which-key" (lambda () (meow--setup-which-key t)))
   (eval-after-load "undo-tree" (lambda () (meow--setup-undo-tree t)))
   (eval-after-load "diff-hl" (lambda () (meow--setup-diff-hl t)))
-  (eval-after-load "quail" (lambda () (meow--setup-input-method t
+  (eval-after-load "quail" (lambda () (meow--setup-input-method t)))
+  (eval-after-load "skk" (lambda () (meow--setup-ddskk t
 
 (defun meow--disable-shims ()
   "Remove shim setups."
@@ -363,7 +385,8 @@ Argument ENABLE non-nil means turn on."
   (when meow--cider-setup (meow--setup-cider nil))
   (when meow--which-key-setup (meow--setup-which-key nil))
   (when meow--diff-hl-setup (meow--setup-diff-hl nil))
-  (when meow--input-method-setup (meow--setup-input-method nil)))
+  (when meow--input-method-setup (meow--setup-input-method nil))
+  (when meow--ddskk-setup (meow--setup-ddskk nil)))
 
 ;;; meow-shims.el ends here
 (provide 'meow-shims)

[elpa] externals/corfu 46c5ec84e0: README: Update configuration

[ELPA Syncer]

branch: externals/corfu
commit 46c5ec84e096b852229b32f054462f0a63abfeb5
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update configuration
---
 README.org | 16 ++--
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 9376d435a6..8a94d1bf28 100644
--- a/README.org
+++ b/README.org
@@ -137,14 +137,18 @@ Here is an example configuration:
   ;; TAB cycle if there are only few candidates
   (setq completion-cycle-threshold 3)
 
-  ;; Emacs 28: Hide commands in M-x which do not apply to the current mode.
-  ;; Corfu commands are hidden, since they are not supposed to be used via M-x.
-  ;; (setq read-extended-command-predicate
-  ;;   #'command-completion-default-include-p)
-
   ;; Enable indentation+completion using the TAB key.
   ;; `completion-at-point' is often bound to M-TAB.
-  (setq tab-always-indent 'complete))
+  (setq tab-always-indent 'complete)
+
+  ;; Emacs 30 and newer: Disable Ispell completion function. As an alternative,
+  ;; try `cape-dict'.
+  (setq text-mode-ispell-word-completion nil)
+
+  ;; Emacs 28 and newer: Hide commands in M-x which do not apply to the current
+  ;; mode.  Corfu commands are hidden, since they are not used via M-x. This
+  ;; setting is useful beyond Corfu.
+  (setq read-extended-command-predicate 
#'command-completion-default-include-p))
 #+end_src
 
 Dabbrev completion is based on =completion-in-region= and can be used with 
Corfu.

[elpa] externals/listen updated (e79b1e5994 -> 7f88ccd04b)

[ELPA Syncer]

elpasync pushed a change to branch externals/listen.

  from  e79b1e5994 Fix: (listen-queue--add-track-durations) Increase 
minimum timeout
   new  2205e61f68 Change: (listen-mode-lighter) Truncate title by 
-max-length
   new  7f88ccd04b Tidy: Docstring


Summary of changes:
 README.org  |  3 +++
 docs/README.org |  3 +++
 listen.el   | 17 -
 3 files changed, 18 insertions(+), 5 deletions(-)

[elpa] externals/listen 2205e61f68 1/2: Change: (listen-mode-lighter) Truncate title by -max-length

[ELPA Syncer]

branch: externals/listen
commit 2205e61f688d211f503bbfc8ba381541f42f31d3
Author: Adam Porter 
Commit: Adam Porter 

Change: (listen-mode-lighter) Truncate title by -max-length
---
 README.org  |  3 +++
 docs/README.org |  3 +++
 listen.el   | 15 +++
 3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 7d5bdf45b4..672ff70e3c 100644
--- a/README.org
+++ b/README.org
@@ -230,6 +230,9 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 - Queue buffers showing the currently playing queue indicate so in the mode 
line.
 - Support for ~mood~ metadata tag in MP3 files (added in ID3v2.4; other 
filetypes need no specific support).
 
+*Changes*
+- Truncate track titles for display using option 
~listen-lighter-title-max-length~ (because the ~format-spec~ specifier used in 
~listen-lighter-format~ does not add an ellipsis where truncation occurs).
+
 *Fixes*
 - Command ~listen-queue-add-from-mpd~.
 - Indication of currently playing queue in queue list.
diff --git a/docs/README.org b/docs/README.org
index 267672f0a3..4db4738baf 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -242,6 +242,9 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 + Queue buffers showing the currently playing queue indicate so in the mode 
line.
 + Support for ~mood~ metadata tag in MP3 files (added in ID3v2.4; other 
filetypes need no specific support).
 
+*Changes*
++ Truncate track titles for display using option 
~listen-lighter-title-max-length~ (because the ~format-spec~ specifier used in 
~listen-lighter-format~ does not add an ellipsis where truncation occurs).
+
 *Fixes*
 + Command ~listen-queue-add-from-mpd~.
 + Indication of currently playing queue in queue list.
diff --git a/listen.el b/listen.el
index 1311be1dfc..7dc4878684 100755
--- a/listen.el
+++ b/listen.el
@@ -80,12 +80,16 @@
   "Default music directory."
   :type 'directory)
 
-(defcustom listen-lighter-title-max-length 15
+(defcustom listen-lighter-title-max-length 19
   "Truncate track titles to this many characters.
-Used for mode line lighter and transient menu."
+Used for mode line lighter and transient menu.  Since the
+truncation precision specifier that may be used in
+`listen-lighter-format' can't add an ellipsis where truncation
+happens, this option truncates before that format spec is applied
+and adds an ellipsis where it occurs."
   :type 'natnum)
 
-(defcustom listen-lighter-format "🎵:%s %a: %>.15t (%r)%E "
+(defcustom listen-lighter-format "🎵:%s %a: %t (%r)%E "
   "Format for mode line lighter.
 Uses `format-spec', which see.  These format specs are available:
 
@@ -237,7 +241,10 @@ According to `listen-lighter-format', which see."
(?A . ,(lambda ()
 (or (alist-get "album" info nil nil #'equal) "")))
(?t . ,(lambda ()
-(or (alist-get "title" info nil nil #'equal) "")))
+(if-let ((title (alist-get "title" info nil nil 
#'equal)))
+(truncate-string-to-width title 
listen-lighter-title-max-length
+  nil nil t)
+  "")))
(?e . ,(lambda ()
 (listen-format-seconds (listen--elapsed 
listen-player
(?r . ,(lambda ()

[elpa] externals/listen 7f88ccd04b 2/2: Tidy: Docstring

[ELPA Syncer]

branch: externals/listen
commit 7f88ccd04bcf18d01891215fff1f33a4700c4824
Author: Adam Porter 
Commit: Adam Porter 

Tidy: Docstring
---
 listen.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/listen.el b/listen.el
index 7dc4878684..ca446a9e3a 100755
--- a/listen.el
+++ b/listen.el
@@ -102,7 +102,7 @@ Uses `format-spec', which see.  These format specs are 
available:
 %s: Player status icon
 
 %E: Extra data specified in `listen-lighter-extra-functions',
- which see."
+which see."
   :type 'string)
 
 (defcustom listen-lighter-extra-functions nil

[elpa] externals/vertico d158124ec8 3/5: Update README

[ELPA Syncer]

branch: externals/vertico
commit d158124ec8a1499b417b60101517580df762cc73
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update README
---
 README.org | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index ac3a74f6bb..b65e53029a 100644
--- a/README.org
+++ b/README.org
@@ -497,7 +497,7 @@ There are other interactive completion UIs, which follow a 
similar philosophy:
 If you want to learn more about Vertico and minibuffer completion, check out 
the
 following resources:
 
-- 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]: Vertico is Doom's default completion system.
+- 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]: Vertico and Corfu are used for completion.
 - 
[[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted
 Emacs Completion Module]]: Vertico and Corfu are used for completion.
 - 
[[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's
 Emacs configuration]]: Vertico and Corfu are used for completion.
 - [[https://www.youtube.com/watch?v=fnE0lXoe7Y0][Emacs Completion Explained]] 
(2022-07-19) by Andrew Tropin.
@@ -506,6 +506,8 @@ following resources:
 - [[https://youtu.be/5ffb2at2d7w][Using Emacs Episode 80 - Vertico, 
Marginalia, Consult and Embark]] (2021-10-26) by Mike Zamansky.
 - [[https://www.youtube.com/watch?v=UtqE-lR2HCA][System Crafters Live! - 
Replacing Ivy and Counsel with Vertico and Consult]] (2021-05-21) by David 
Wilson.
 - [[https://www.youtube.com/watch?v=J0OaRy85MOo][Streamline Your Emacs 
Completions with Vertico]] (2021-05-17) by David Wilson.
+- [[https://www.youtube.com/watch?v=SOxlQ7ogplA&t=1952s][Modern Emacs: all 
those new tools that make Emacs better and faster]]
+  (2024-03-06) by Marie-Hélène Burle.
 
 * Contributions
 

[elpa] externals/vertico b896502ed1 4/5: Update README

[ELPA Syncer]

branch: externals/vertico
commit b896502ed1ff89844a56f4b3158fdababc7ee2b1
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update README
---
 README.org | 23 ---
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index b65e53029a..f9b7fd7fff 100644
--- a/README.org
+++ b/README.org
@@ -497,17 +497,18 @@ There are other interactive completion UIs, which follow 
a similar philosophy:
 If you want to learn more about Vertico and minibuffer completion, check out 
the
 following resources:
 
-- 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]: Vertico and Corfu are used for completion.
-- 
[[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted
 Emacs Completion Module]]: Vertico and Corfu are used for completion.
-- 
[[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's
 Emacs configuration]]: Vertico and Corfu are used for completion.
-- [[https://www.youtube.com/watch?v=fnE0lXoe7Y0][Emacs Completion Explained]] 
(2022-07-19) by Andrew Tropin.
-- [[https://www.youtube.com/watch?v=w9hHMDyF9V4][Emacs Minibuffer 
Completions]] (2022-02-12) by Greg Yut.
-- [[https://www.youtube.com/watch?v=hPwDbx--Waw][Vertico Extensions for 
Emacs]] (2022-01-08) by Karthik Chikmagalur.
-- [[https://youtu.be/5ffb2at2d7w][Using Emacs Episode 80 - Vertico, 
Marginalia, Consult and Embark]] (2021-10-26) by Mike Zamansky.
-- [[https://www.youtube.com/watch?v=UtqE-lR2HCA][System Crafters Live! - 
Replacing Ivy and Counsel with Vertico and Consult]] (2021-05-21) by David 
Wilson.
-- [[https://www.youtube.com/watch?v=J0OaRy85MOo][Streamline Your Emacs 
Completions with Vertico]] (2021-05-17) by David Wilson.
-- [[https://www.youtube.com/watch?v=SOxlQ7ogplA&t=1952s][Modern Emacs: all 
those new tools that make Emacs better and faster]]
-  (2024-03-06) by Marie-Hélène Burle.
+- Configurations:
+  + 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]: Vertico and Corfu are used for completion.
+  + 
[[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted
 Emacs Completion Module]]: Vertico and Corfu are used for completion.
+  + 
[[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's
 Emacs configuration]]: Vertico and Corfu are used for completion.
+- Videos:
+  + [[https://www.youtube.com/watch?v=fnE0lXoe7Y0][Emacs Completion 
Explained]] (2022-07-19) by Andrew Tropin.
+  + [[https://www.youtube.com/watch?v=w9hHMDyF9V4][Emacs Minibuffer 
Completions]] (2022-02-12) by Greg Yut.
+  + [[https://www.youtube.com/watch?v=hPwDbx--Waw][Vertico Extensions for 
Emacs]] (2022-01-08) by Karthik Chikmagalur.
+  + [[https://youtu.be/5ffb2at2d7w][Using Emacs Episode 80 - Vertico, 
Marginalia, Consult and Embark]] (2021-10-26) by Mike Zamansky.
+  + [[https://www.youtube.com/watch?v=UtqE-lR2HCA][System Crafters Live! - 
Replacing Ivy and Counsel with Vertico and Consult]] (2021-05-21) by David 
Wilson.
+  + [[https://www.youtube.com/watch?v=J0OaRy85MOo][Streamline Your Emacs 
Completions with Vertico]] (2021-05-17) by David Wilson.
+  + [[https://www.youtube.com/watch?v=SOxlQ7ogplA&t=1952s][Modern Emacs: all 
those new tools that make Emacs better and faster]] (2024-03-06) by 
Marie-Hélène Burle.
 
 * Contributions
 

[elpa] externals/vertico 2a40153108 1/5: README: Formatting

[ELPA Syncer]

branch: externals/vertico
commit 2a401531081f8b401bf8399236ffa39e7f0b6f1d
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Formatting
---
 README.org | 14 --
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index d70acede76..a924c64b18 100644
--- a/README.org
+++ b/README.org
@@ -68,12 +68,14 @@ intact and remaps and binds only a handful of commands.
 
 Note in particular the binding of =TAB= to ~vertico-insert~, which inserts the
 currently selected candidate, and the binding of =RET= and =M-RET= to 
~vertico-exit~
-and ~vertico-exit-input~ respectively. ~vertico-exit~ exits with the currently
-selected candidate, while ~vertico-exit-input~ exits with the minibuffer input
-instead. You should exit with the current input for example when you want to
-create a new buffer or a new file with ~find-file~ or ~switch-to-buffer~. As an
-alternative to pressing =M-RET=, move the selection first to the input prompt 
by
-pressing the =up= arrow key and then press =RET=.
+and ~vertico-exit-input~ respectively.
+
+~vertico-exit~ exits with the currently selected candidate, while
+~vertico-exit-input~ exits with the minibuffer input instead. Exiting with the
+current input is needed when you want to create a new buffer or a new file with
+~find-file~ or ~switch-to-buffer~. As an alternative to pressing =M-RET=, move 
the
+selection up to the input prompt by pressing the =up= arrow key and then press
+=RET=.
 
 * Configuration
 

[elpa] externals/vertico updated (68cbd47589 -> 453b548625)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico.

  from  68cbd47589 Update changelog
   new  2a40153108 README: Formatting
   new  c7bfae789b README: Update configuration
   new  d158124ec8 Update README
   new  b896502ed1 Update README
   new  453b548625 Update README


Summary of changes:
 README.org | 47 ++-
 1 file changed, 26 insertions(+), 21 deletions(-)

[elpa] externals/vertico c7bfae789b 2/5: README: Update configuration

[ELPA Syncer]

branch: externals/vertico
commit c7bfae789bea848293acb95cd3403dfff215876d
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update configuration
---
 README.org | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index a924c64b18..ac3a74f6bb 100644
--- a/README.org
+++ b/README.org
@@ -125,13 +125,13 @@ to take advantage of ~use-package~. Here is an example 
configuration:
 '(read-only t cursor-intangible t face minibuffer-prompt))
   (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
 
-  ;; Emacs 28: Hide commands in M-x which do not work in the current mode.
-  ;; Vertico commands are hidden in normal buffers.
-  ;; (setq read-extended-command-predicate
-  ;;   #'command-completion-default-include-p)
+  ;; Support opening new minibuffers from inside existing minibuffers.
+  (setq enable-recursive-minibuffers t)
 
-  ;; Enable recursive minibuffers
-  (setq enable-recursive-minibuffers t))
+  ;; Emacs 28 and newer: Hide commands in M-x which do not work in the current
+  ;; mode.  Vertico commands are hidden in normal buffers. This setting is
+  ;; useful beyond Vertico.
+  (setq read-extended-command-predicate 
#'command-completion-default-include-p))
 #+end_src
 
 I recommend to give Orderless completion a try, which is different from the

[elpa] externals/vertico 453b548625 5/5: Update README

[ELPA Syncer]

branch: externals/vertico
commit 453b548625149f76fadcfc936e3943fd26b2cb32
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update README
---
 README.org | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index f9b7fd7fff..e45d254526 100644
--- a/README.org
+++ b/README.org
@@ -497,10 +497,10 @@ There are other interactive completion UIs, which follow 
a similar philosophy:
 If you want to learn more about Vertico and minibuffer completion, check out 
the
 following resources:
 
-- Configurations:
-  + 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]: Vertico and Corfu are used for completion.
-  + 
[[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted
 Emacs Completion Module]]: Vertico and Corfu are used for completion.
-  + 
[[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's
 Emacs configuration]]: Vertico and Corfu are used for completion.
+- Configurations which use Vertico and Corfu for completion:
+  + 
[[https://github.com/doomemacs/doomemacs/tree/master/modules/completion/vertico][Doom
 Emacs Vertico Module]]
+  + 
[[https://github.com/SystemCrafters/crafted-emacs/blob/master/modules/crafted-completion.el][Crafted
 Emacs Completion Module]]
+  + 
[[https://git.sr.ht/~protesilaos/dotfiles/tree/master/item/emacs/.emacs.d/][Prot's
 Emacs configuration]]
 - Videos:
   + [[https://www.youtube.com/watch?v=fnE0lXoe7Y0][Emacs Completion 
Explained]] (2022-07-19) by Andrew Tropin.
   + [[https://www.youtube.com/watch?v=w9hHMDyF9V4][Emacs Minibuffer 
Completions]] (2022-02-12) by Greg Yut.

[elpa] externals/embark-consult updated (194c042ef4 -> 30910d48e5)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark-consult.

  from  194c042ef4 Allow scrolling embark action list in 
pixel-scroll-precision-mode
  adds  30910d48e5 Strip text properties in embark-insert

No new revisions were added by this update.

Summary of changes:
 embark.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

[elpa] externals/embark 30910d48e5: Strip text properties in embark-insert

[ELPA Syncer]

branch: externals/embark
commit 30910d48e5779343c5c8c204b1a5ae63e8468354
Author: Omar Antolin Camarena 
Commit: Omar Antolin Camarena 

Strip text properties in embark-insert

This fixes a behavior change inadvertently introduced when
embark-insert became a multitarget action.
---
 embark.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 4856966238..f8879a9daf 100644
--- a/embark.el
+++ b/embark.el
@@ -3651,7 +3651,8 @@ its own."
   (if multiline (maybe-newline) (maybe-space)))
 (ins-string ()
   (let ((start (point)))
-(insert (string-join strings separator))
+(insert
+ (mapconcat #'substring-no-properties strings separator))
 (save-excursion (goto-char start) (maybe-whitespace))
 (when (looking-back "\n" 1) (delete-char -1))
 (save-excursion (maybe-whitespace)

[nongnu] elpa/annotate 0f6064f162 08/14: - updated docstrings.

[ELPA Syncer]

branch: elpa/annotate
commit 0f6064f162867490652057c92e51c0722fe908a8
Author: cage 
Commit: cage 

- updated docstrings.
---
 annotate.el | 20 +++-
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/annotate.el b/annotate.el
index 065fe42597..257857812e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -444,18 +444,24 @@ position (so that it is unchanged after this function is 
called)."
   (overlay-get annotation 'annotation-face))
 
 (defun annotate-annotation-set-annotation-text (annotation annotation-text)
+  "Set the annotation's content for `ANNOTATION` to `ANNOTATION-TEXT`."
   (overlay-put annotation 'annotation annotation-text))
 
 (defun annotate-annotation-get-annotation-text (annotation)
+  "Get the annotation's content for `ANNOTATION`."
   (overlay-get annotation 'annotation))
 
 (defun annotate-annotation-set-position (annotation position)
+  "Set the annotation's position policy for `ANNOTATION` to the value bound to 
`POSITION`."
   (overlay-put annotation 'annotate-position position))
 
 (defun annotate-annotation-get-position (annotation)
+  "Get the annotation's position policy for `ANNOTATION`."
   (overlay-get annotation 'annotate-position))
 
 (defun annotate-overlay-maybe-set-position (overlay position)
+  "Set the annotation's position policy for `ANNOTATION` to the value bound to 
`POSITION`,
+but only if the value of the property 'position is not null."
   (when position
 (annotate-annotation-set-position overlay position)))
 
@@ -939,6 +945,7 @@ and
 (annotate-goto-previous-annotation :startingp t)
 
 (defun annotate-change-annotation-text-position ()
+  "Change the policy positioning for the annotation under point."
   (interactive)
   (when-let ((annotation (annotate-annotation-at (point
 (let ((current-position (annotate-annotation-get-position annotation)))
@@ -957,6 +964,7 @@ and
 (font-lock-flush)))
 
 (defun annotate-change-annotation-colors ()
+  "Change the colors for the annotation under point."
   (interactive)
   (cl-flet ((new-color-index (annotation)
   (let ((current-annotation-face 
(annotate-annotation-property-annotation-face annotation)))
@@ -2184,14 +2192,14 @@ that is underlined.
 
 If this function is called from procedure
 \"annotate-load-annotations\" the argument `ANNOTATED-TEXT'
-should be not null. In this case we know that an annotation
+should be not null.  In this case we know that an annotation
 existed in a text interval defined in the database
 metadata (the database located in the file specified by the
 variable \"annotate-file\") and should just be
-restored. Sometimes the annotated text (see above) can not be
+restored.  Sometimes the annotated text (see above) can not be
 found in said interval because the annotated file's content
 changed and `annotate-mode' could not track the
-changes (e.g. save the file when annotate-mode was not
+changes (e.g. save the file when `annotate-mode' was not
 active/loaded) in this case the matching
 text (\"annotated-text\") is searched in a region surrounding the
 interval and, if found, the buffer is annotated right there.
@@ -2199,9 +2207,11 @@ interval and, if found, the buffer is annotated right 
there.
 The searched interval can be customized setting the variable:
 \"annotate-search-region-lines-delta\".
 
-Finally `COLOR-INDEX`, if non-null (default nil), is used as index to address
+`COLOR-INDEX`, if non-null (default nil), is used as index to address
 elements both in `annotate-color-index-from-dump'
-and `annotate-color-index-from-dump' to specify annotation appearance."
+and `annotate-color-index-from-dump' to specify annotation appearance.
+
+Finally `POSITION` indicates the positioning policy for the annotation, if 
null the value bound to `annotate-annotation-position-policy` is used."
   (cl-labels ((face-annotation-shifting-point (position 
shifting-direction-function)
 (when-let* ((annotation   (funcall 
shifting-direction-function
position))

[nongnu] elpa/annotate 782c5f7dca 09/14: - updated README.

[ELPA Syncer]

branch: elpa/annotate
commit 782c5f7dca73367d3cb83c4670411efa0178112b
Author: cage 
Commit: cage 

- updated README.
---
 README.org | 12 
 1 file changed, 12 insertions(+)

diff --git a/README.org b/README.org
index fb9d886e2d..65121e4c44 100644
--- a/README.org
+++ b/README.org
@@ -131,6 +131,18 @@ The annotation text can be pressed to and will open the 
annotated file, placing
  related customizable variable
  - ~annotate-summary-ask-query~.
 
+*** ~C-c C-c~ (function annotate-change-annotation-colors)
+
+Change the color of the annotation below point (both higlight and annotation 
text colors are changed).
+
+These changes are kept after the buffer is killed.
+
+*** ~C-c C-p~ (function annotate-change-annotation-text-position)
+
+Change the policy positioning the annotation below point, a message with the 
new policy is printed.
+
+These changes are kept after the buffer is killed.
+
 * Exporting
 
 Annotations can be exported ~annotate-export-annotations~ as commented unified 
diffs, like this:

[nongnu] elpa/annotate 201e1c7e96 13/14: - updated NEWS.

[ELPA Syncer]

branch: elpa/annotate
commit 201e1c7e963c33a78669548c257305a86123f1a7
Author: cage 
Commit: cage 

- updated NEWS.
---
 NEWS.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/NEWS.org b/NEWS.org
index 5936b372fd..0666225ced 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,3 +1,12 @@
+- 2023-10-10 v2.2.0 cage ::
+
+  This version adds two new commands:
+
+  - annotate-change-annotation-text-position;
+  - annotate-change-annotation-colors.
+
+  To force positioning or color, respectively, for a single annotation.
+
 - 2023-10-10 v2.1.0 cage ::
 
   This version ensures that the color theme for each annotation (both 
underline color of the annotated text and colors of the annotation), is saved 
when a an annotated file (or Emacs) is closed. The same color theme will be 
restored together with the annotations when, for example, the annotated file 
will be visited again.

[nongnu] elpa/annotate dd6165ba32 05/14: - fixed wrapping of annotation in a 'box'.

[ELPA Syncer]

branch: elpa/annotate
commit dd6165ba32f34f0bef5074e5519cd9214e2e3a33
Author: cage 
Commit: cage 

- fixed wrapping of annotation in a 'box'.
---
 annotate.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 107b789370..9d12e2d4be 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1379,10 +1379,11 @@ aa**"
 :new-line
   :margin)
   position)))
-(let* ((multiline-annotation (annotate-wrap-annotation-in-box ov
+(let* ((wrap-in-a-new-line   (eq new-position-policy :new-line))
+   (multiline-annotation (annotate-wrap-annotation-in-box ov
   bol
   eol
-  
new-position-policy))
+  
wrap-in-a-new-line))
(annotation-stopper   (if (not (eq new-position-policy
   :margin))
  (if (= overlays-counter

[nongnu] elpa/annotate 955b875112 01/14: - preferred wrapping functions instead of call to 'overlay-put' and 'overlay-get'.

[ELPA Syncer]

branch: elpa/annotate
commit 955b8751127448ea2507f9801980d516ae4d030a
Author: cage 
Commit: cage 

- preferred wrapping functions instead of call to 'overlay-put' and 
'overlay-get'.
---
 annotate.el | 38 ++
 1 file changed, 22 insertions(+), 16 deletions(-)

diff --git a/annotate.el b/annotate.el
index eb124b21d2..1de7c4f7c8 100644
--- a/annotate.el
+++ b/annotate.el
@@ -451,6 +451,12 @@ See: `ANNOTATE-ANNOTATION-POSITION-POLICY'."
   "Get property annotation-face from `ANNOTATION'."
   (overlay-get annotation 'annotation-face))
 
+(defun annotate-annotation-set-annotation-text (annotation annotation-text)
+  (overlay-put annotation 'annotation annotation-text))
+
+(defun annotate-annotation-get-annotation-text (annotation)
+  (overlay-get annotation 'annotation))
+
 (defun annotate-chain-last-ring (chain)
   "Get the last ring of `CHAIN'."
   (car (last chain)))
@@ -555,7 +561,7 @@ See also the customizable variables: 
`annotate-echo-annotation-timer' and
   (when-let ((annotation (annotate-annotation-at (point
 (message "%s%s"
  annotate-print-annotation-under-cursor-prefix
- (overlay-get annotation 'annotation))
+ (annotate-annotation-get-annotation-text annotation))
 
 (defun annotate-print-annotation-under-cursor-p ()
   "Non nil if the user configured the package to print
@@ -623,7 +629,7 @@ Used when the mode is deactivated."
   "Does this `OVERLAY' contains an \"annotation\" property?"
   (and overlay
(overlayp overlay)
-   (overlay-get overlay 'annotation)))
+   (annotate-annotation-get-annotation-text overlay)))
 
 (defun annotationp (overlay)
   "Is `OVERLAY' an annotation?"
@@ -1028,8 +1034,8 @@ annotate-actual-comment-end."
  (padding (if (<= (1- relative-start) 0)
   ""
 (make-string (1- 
relative-start) ? )))
- (annotated-lines (annotate--split-lines 
(overlay-get overlay
-   
   'annotation)))
+ (annotated-lines (annotate--split-lines
+   
(annotate-annotation-get-annotation-text overlay)))
  (ov-length   (- relative-end relative-start))
  (underline   (make-string ov-length

annotate-integrate-highlight)))
@@ -1265,7 +1271,7 @@ with spaces so that a \"box\" surround the text without 
seams, e.g:
 aaa  aaa
 aa   ->  aa*
 aa**"
-  (let ((annotation-text (overlay-get annotation-overlay 'annotation)))
+  (let ((annotation-text (annotate-annotation-get-annotation-text 
annotation-overlay)))
 (cl-labels ((boxify-multiline (raw-annotation-text &optional 
add-space-at-end)
   (let* ((lines (annotate--split-lines 
raw-annotation-text))
  (lines-widths  (mapcar #'string-width lines))
@@ -1336,9 +1342,9 @@ aa**"
 ;; variable: `annotate-annotation-position-policy'.
 (dolist (ov overlays)
   (let* ((last-ring-p  (annotate-chain-last-p ov))
- (annotation-face  (overlay-get ov 'face)) ; added by 
annotate-create-annotation
- (annotation-text-face (overlay-get ov 'annotation-face)) ; 
added by annotate-create-annotation
- (annotation-long-p   (> (string-width (overlay-get ov 
'annotation))
+ (annotation-face  (annotate-annotation-face ov)) ; added 
by annotate-create-annotation
+ (annotation-text-face 
(annotate-annotation-property-annotation-face ov)) ; added by 
annotate-create-annotation
+ (annotation-long-p   (> (string-width 
(annotate-annotation-get-annotation-text ov))
  
annotate-annotation-max-size-not-place-new-line))
  (position-new-line-p (cl-case 
annotate-annotation-position-policy
 (:new-line
@@ -1362,8 +1368,8 @@ aa**"
 (annotate-tail-overlay-hide-text-p 
ov
 (setf hidden-text tail-hidden-text-p)
 (cl-incf overlays-counter)
-(overlay-put ov 'face annotation-face)
-(overlay-put ov 'annotation-face annotation-text-face)
+(annotate-annotation-set-face ov annotation-face)
+(annotate-annotation-set-annotation-face ov annotation-text-face)
 (when (and (not annotate-use-echo-area)
(not hidden-text)
(annotate-chain-last-p ov))
@@ -2177,9 +2183,9 @@ and `annotate-color-index-from-dump' to specify 
annotation appearance."
 

[nongnu] elpa/annotate 666fb32177 04/14: - fixed position policy layout in builder.

[ELPA Syncer]

branch: elpa/annotate
commit 666fb321779b09a33fbece69a10641d85f1f5bf2
Author: cage 
Commit: cage 

- fixed position policy layout in builder.
---
 annotate.el | 52 +---
 1 file changed, 25 insertions(+), 27 deletions(-)

diff --git a/annotate.el b/annotate.el
index ee89bdb7a5..107b789370 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1361,33 +1361,30 @@ aa**"
  (annotation-face  (annotate-annotation-face ov)) ; added 
by annotate-create-annotation
  (annotation-text-face 
(annotate-annotation-property-annotation-face ov)) ; added by 
annotate-create-annotation
  (position (annotate-annotation-get-position ov))
- (position-new-line-p  nil))
-(if position
-(progn
-  (cl-case position
-(:new-line
- (setf position-new-line-p t))
-(:by-length
- (setf position-new-line-p nil))
-(:margin
- (setf position-new-line-p :margin))
-(otherwise
- nil)))
-  (let* ((annotation-long-p  (> (string-width 
(annotate-annotation-get-annotation-text ov))
-
annotate-annotation-max-size-not-place-new-line)))
-(setf position-new-line-p (cl-case 
annotate-annotation-position-policy
-(:new-line
- t)
-(:by-length
- annotation-long-p)
-(otherwise
- nil)
+ (annotation-long-p  (> (string-width 
(annotate-annotation-get-annotation-text ov))
+
annotate-annotation-max-size-not-place-new-line))
+ (new-position-policy  position))
+(if (null position)
+(setf new-position-policy
+  (if (eq annotate-annotation-position-policy
+  :by-length)
+  (if annotation-long-p
+  :new-line
+:margin)
+annotate-annotation-position-policy))
+  (setf new-position-policy
+(if (eq position
+:by-length)
+(if annotation-long-p
+:new-line
+  :margin)
+  position)))
 (let* ((multiline-annotation (annotate-wrap-annotation-in-box ov
   bol
   eol
-  
position-new-line-p))
-   (annotation-stopper   (if (and position-new-line-p
-  (not (eq position-new-line-p 
:margin)))
+  
new-position-policy))
+   (annotation-stopper   (if (not (eq new-position-policy
+  :margin))
  (if (= overlays-counter
 (length overlays))
  "\n"
@@ -1402,8 +1399,8 @@ aa**"
   (when (and (not annotate-use-echo-area)
  (not hidden-text)
  (annotate-chain-last-p ov))
-(when (and position-new-line-p
-   (not (eq position-new-line-p :margin)))
+(when (and new-position-policy
+   (not (eq new-position-policy :margin)))
   (setf prefix-first " \n"))
 (dolist (l multiline-annotation)
   (setq annotation-text
@@ -1412,7 +1409,8 @@ aa**"
 (propertize l 'face annotation-text-face)
 annotation-stopper))
   ;; white space before for all but the first annotation line
-  (if position-new-line-p
+  (if (eq new-position-policy
+  :new-line)
   (setq prefix-first (concat prefix-first prefix-rest))
 (setq prefix-first prefix-rest)))
 (when (not annotate-use-echo-area)

[nongnu] elpa/annotate 3268944bbd 03/14: - added command 'annotate-change-annotation-text-position'.

[ELPA Syncer]

branch: elpa/annotate
commit 3268944bbd2835805e53c5f012b2c38020555cc1
Author: cage 
Commit: cage 

- added command 'annotate-change-annotation-text-position'.
---
 annotate.el | 33 -
 1 file changed, 28 insertions(+), 5 deletions(-)

diff --git a/annotate.el b/annotate.el
index c0a5a66e47..ee89bdb7a5 100644
--- a/annotate.el
+++ b/annotate.el
@@ -179,6 +179,9 @@ placed on the right margin of the window instead of its own 
line
  after the annotated text."
   :type  'number)
 
+(defconst annotate-allowed-positioning-policy
+  '(:by-length :margin :new-line))
+
 (defcustom annotate-annotation-position-policy :by-length
   "Policy for annotation's position:
 - :new-line
@@ -933,6 +936,22 @@ and
 (goto-char (overlay-end chain-last)))
 (annotate-goto-previous-annotation :startingp t)
 
+(defun annotate-change-annotation-text-position ()
+  (interactive)
+  (when-let ((annotation (annotate-annotation-at (point
+(let ((current-position (annotate-annotation-get-position annotation)))
+  (if (null current-position)
+  (annotate-annotation-set-position annotation
+(cl-first 
annotate-allowed-positioning-policy))
+(when-let ((current-position-index (cl-position current-position
+
annotate-allowed-positioning-policy))
+   (next-position-index(mod (1+ current-position-index)
+(length 
annotate-allowed-positioning-policy
+  (annotate-annotation-set-position annotation
+(elt 
annotate-allowed-positioning-policy
+ next-position-index)
+(font-lock-flush)))
+
 (defun annotate-actual-comment-start ()
   "String for comment start related to current buffer's major
 mode."
@@ -1334,7 +1353,7 @@ aa**"
 (lambda (x y)
   (< (overlay-end x) (overlay-end y)
 ;; configure each annotation's properties and place it on the
-;; the window. The actual position of the annotation (newline
+;; the window. The default position of the annotation (newline
 ;; or right margin) is indicated by the value of the
 ;; variable: `annotate-annotation-position-policy'.
 (dolist (ov overlays)
@@ -1350,6 +1369,8 @@ aa**"
  (setf position-new-line-p t))
 (:by-length
  (setf position-new-line-p nil))
+(:margin
+ (setf position-new-line-p :margin))
 (otherwise
  nil)))
   (let* ((annotation-long-p  (> (string-width 
(annotate-annotation-get-annotation-text ov))
@@ -1365,7 +1386,8 @@ aa**"
   bol
   eol
   
position-new-line-p))
-   (annotation-stopper   (if position-new-line-p
+   (annotation-stopper   (if (and position-new-line-p
+  (not (eq position-new-line-p 
:margin)))
  (if (= overlays-counter
 (length overlays))
  "\n"
@@ -1380,7 +1402,8 @@ aa**"
   (when (and (not annotate-use-echo-area)
  (not hidden-text)
  (annotate-chain-last-p ov))
-(when position-new-line-p
+(when (and position-new-line-p
+   (not (eq position-new-line-p :margin)))
   (setf prefix-first " \n"))
 (dolist (l multiline-annotation)
   (setq annotation-text
@@ -2275,7 +2298,7 @@ and `annotate-color-index-from-dump' to specify 
annotation appearance."
   all-faces-height))
 (when force-newline-p
   (annotate-annotation-set-position annotation :new-line)))
-annotation
+annotation)))
 (if (annotate-string-empty-p annotation-text)
 (signal 'annotate-empty-annotation-text-error t)
   (progn
@@ -2285,7 +2308,7 @@ and `annotate-color-index-from-dump' to specify 
annotation appearance."
   (if (and text-to-match
(string= text-to-match annotated-text))
   (create-annotation start end annotation-text)
-(let* ((starting-point-matching (go-backward start))
+(let* ((starting-point-macthing (go-backward start))
(ending-point-match   

[nongnu] elpa/annotate 9aa27cadf7 11/14: - increased version number.

[ELPA Syncer]

branch: elpa/annotate
commit 9aa27cadf7b4b2b579d322f540b85c6846b70022
Author: cage 
Commit: cage 

- increased version number.
---
 annotate.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index b74bafaee4..7e6c6e31bd 100644
--- a/annotate.el
+++ b/annotate.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Bastian Bechtold , cage 

 ;; URL: https://github.com/bastibe/annotate.el
 ;; Created: 2015-06-10
-;; Version: 2.1.0
+;; Version: 2.2.0
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -58,7 +58,7 @@
 ;;;###autoload
 (defgroup annotate nil
   "Annotate files without changing them."
-  :version "2.1.0"
+  :version "2.2.0"
   :group 'text)
 
 (defvar annotate-mode-map

[nongnu] elpa/annotate 6ee1d936db 07/14: - fixed variable name.

[ELPA Syncer]

branch: elpa/annotate
commit 6ee1d936db8d9b33d9cc13c3974da9314bf55e55
Author: cage 
Commit: cage 

- fixed variable name.
---
 annotate.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 83125aaa4e..065fe42597 100644
--- a/annotate.el
+++ b/annotate.el
@@ -66,7 +66,7 @@
 (define-key map (kbd "C-c C-a") #'annotate-annotate)
 (define-key map (kbd "C-c C-d") #'annotate-delete-annotation)
 (define-key map (kbd "C-c C-.") #'annotate-change-annotation-text-position)
-(define-key map (kbd "C-c C-c")  #'annotate-change-annotation-colors)
+(define-key map (kbd "C-c C-c") #'annotate-change-annotation-colors)
 (define-key map (kbd "C-c C-s") #'annotate-show-annotation-summary)
 (define-key map (kbd "C-c ]")   #'annotate-goto-next-annotation)
 (define-key map (kbd "C-c [")   #'annotate-goto-previous-annotation)
@@ -2334,7 +2334,7 @@ and `annotate-color-index-from-dump' to specify 
annotation appearance."
   (if (and text-to-match
(string= text-to-match annotated-text))
   (create-annotation start end annotation-text)
-(let* ((starting-point-macthing (go-backward start))
+(let* ((starting-point-matching (go-backward start))
(ending-point-match  (go-forward  start))
(length-match(- end start))
(new-match   (guess-match-and-add 
starting-point-matching

[nongnu] elpa/annotate 5b63a89874 10/14: - changed keybinding for 'annotate-change-annotation-text-position';

[ELPA Syncer]

branch: elpa/annotate
commit 5b63a8987419d8258a24b752fbe7a50b6edf5ec2
Author: cage 
Commit: cage 

- changed keybinding for 'annotate-change-annotation-text-position';

- added missing docstring.
---
 annotate.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 257857812e..b74bafaee4 100644
--- a/annotate.el
+++ b/annotate.el
@@ -65,7 +65,7 @@
   (let ((map (make-sparse-keymap)))
 (define-key map (kbd "C-c C-a") #'annotate-annotate)
 (define-key map (kbd "C-c C-d") #'annotate-delete-annotation)
-(define-key map (kbd "C-c C-.") #'annotate-change-annotation-text-position)
+(define-key map (kbd "C-c C-p") #'annotate-change-annotation-text-position)
 (define-key map (kbd "C-c C-c") #'annotate-change-annotation-colors)
 (define-key map (kbd "C-c C-s") #'annotate-show-annotation-summary)
 (define-key map (kbd "C-c ]")   #'annotate-goto-next-annotation)
@@ -182,7 +182,8 @@ placed on the right margin of the window instead of its own 
line
   :type  'number)
 
 (defconst annotate-allowed-positioning-policy
-  '(:by-length :margin :new-line))
+  '(:by-length :margin :new-line)
+  "The allowed values for annotation positioning")
 
 (defcustom annotate-annotation-position-policy :by-length
   "Policy for annotation's position:

[nongnu] elpa/annotate 8a8e2cd282 12/14: - updated changelog.

[ELPA Syncer]

branch: elpa/annotate
commit 8a8e2cd282f9920af45128b887f38faa135bf10f
Author: cage 
Commit: cage 

- updated changelog.
---
 Changelog | 66 +++
 1 file changed, 54 insertions(+), 12 deletions(-)

diff --git a/Changelog b/Changelog
index 26dd050ef9..375277dcc7 100644
--- a/Changelog
+++ b/Changelog
@@ -1,17 +1,59 @@
+2024-03-13 cage
+
+   * README.org,
+   * annotate.el:
+
+   - added new command 'annotate-change-annotation-color';
+   - printed message with current policy for annotation when changing
+   positioning. using 'annotate-change-annotation-text-position';
+   - update keymap to accomodate new commands.
+   - fixed variable name.
+   - updated docstrings.
+   - updated README.
+   - changed keybinding for 'annotate-change-annotation-text-position';
+   - added missing docstring.
+   - increased version number.
+
+2024-03-07 cage
+
+   * annotate.el:
+
+   - allowed different positioning of annotated text on the same buffer.
+   - added command 'annotate-change-annotation-text-position'.
+   - fixed position policy layout in builder.
+   - fixed wrapping of annotation in a 'box'.
+
+2024-03-05 cage
+
+   * annotate.el:
+
+   - preferred wrapping functions instead of call to 'overlay-put' and
+   'overlay-get'.
+
+2023-11-02 cage
+
+
+   Merge pull request #159 from cage2/master
+
 2023-10-10 cage
 
-* NEWS.org,
-* annotate.el:
+   * Changelog,
+   * NEWS.org,
+   * README.org,
+   * annotate.el:
 
-- fixed procedure for coloring annotations (adjacent annotations with
-  the same colors was still possible).
-- removed warning about unused parameter in function
-  'on-window-size-change';
-- removed warnings about escaping in docstrings;
-- used accented character instead of apostrophe.
-- added saving of annotation face on the database.
-- increased version number.
-- updated NEWS file.
+   - fixed procedure for coloring annotations (adjacent annotations with
+   the same colors was still possible).
+   - removed warning about unused parameter in function
+   'on-window-size-change';
+   - removed warnings about escaping in docstrings;
+   - used accented character instead of apostrophe.
+   - added saving of annotation face on the database.
+   - increased version number.
+   - updated NEWS file.
+   - updated Changelog.
+   - rephrased NEWS file entry.
+   - fixed README.
 
 2023-09-30 cage2
 
@@ -105,7 +147,7 @@
 
 Merge pull request #150 from cage2/hide-annotation-text
 
-2023-02-22 cage 
+2023-02-22 cage
 
 * Changelog,
 * NEWS.org,

[nongnu] elpa/annotate updated (dfe0d7c990 -> 9d88cc7ffe)

[ELPA Syncer]

elpasync pushed a change to branch elpa/annotate.

  from  dfe0d7c990 Merge pull request #159 from cage2/master
   new  955b875112 - preferred wrapping functions instead of call to 
'overlay-put' and 'overlay-get'.
   new  44577f237c - allowed different positioning of annotated text on the 
same buffer.
   new  3268944bbd - added command 
'annotate-change-annotation-text-position'.
   new  666fb32177 - fixed position policy layout in builder.
   new  dd6165ba32 - fixed wrapping of annotation in a 'box'.
   new  9e885741f5 - added new command 'annotate-change-annotation-color';
   new  6ee1d936db - fixed variable name.
   new  0f6064f162 - updated docstrings.
   new  782c5f7dca - updated README.
   new  5b63a89874 - changed keybinding for 
'annotate-change-annotation-text-position';
   new  9aa27cadf7 - increased version number.
   new  8a8e2cd282 - updated changelog.
   new  201e1c7e96 - updated NEWS.
   new  9d88cc7ffe Merge pull request #160 from cage2/master


Summary of changes:
 Changelog   |  66 +
 NEWS.org|   9 +++
 README.org  |  12 
 annotate.el | 232 +---
 4 files changed, 233 insertions(+), 86 deletions(-)

[nongnu] elpa/annotate 9e885741f5 06/14: - added new command 'annotate-change-annotation-color';

[ELPA Syncer]

branch: elpa/annotate
commit 9e885741f5c4067f792fcfcac6d71ad87ea2c76b
Author: cage 
Commit: cage 

- added new command 'annotate-change-annotation-color';

- printed message with current policy for annotation when changing 
positioning. using 'annotate-change-annotation-text-position';

- update keymap to accomodate new commands.
---
 annotate.el | 27 +++
 1 file changed, 27 insertions(+)

diff --git a/annotate.el b/annotate.el
index 9d12e2d4be..83125aaa4e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -65,6 +65,8 @@
   (let ((map (make-sparse-keymap)))
 (define-key map (kbd "C-c C-a") #'annotate-annotate)
 (define-key map (kbd "C-c C-d") #'annotate-delete-annotation)
+(define-key map (kbd "C-c C-.") #'annotate-change-annotation-text-position)
+(define-key map (kbd "C-c C-c")  #'annotate-change-annotation-colors)
 (define-key map (kbd "C-c C-s") #'annotate-show-annotation-summary)
 (define-key map (kbd "C-c ]")   #'annotate-goto-next-annotation)
 (define-key map (kbd "C-c [")   #'annotate-goto-previous-annotation)
@@ -950,8 +952,33 @@ and
   (annotate-annotation-set-position annotation
 (elt 
annotate-allowed-positioning-policy
  next-position-index)
+(message "New position policy for this annotation is %s"
+ (annotate-annotation-get-position annotation))
 (font-lock-flush)))
 
+(defun annotate-change-annotation-colors ()
+  (interactive)
+  (cl-flet ((new-color-index (annotation)
+  (let ((current-annotation-face 
(annotate-annotation-property-annotation-face annotation)))
+(if current-annotation-face
+(let* ((current-color-index (cl-position-if (lambda (a)
+  (cl-equalp 
current-annotation-face
+ 
a))
+
annotate-annotation-text-faces))
+   (new-color-index (mod (1+ current-color-index)
+ (length 
annotate-annotation-text-faces
+  new-color-index)
+  0
+  (when-let ((annotation (annotate-annotation-at (point
+(let ((new-color-index (new-color-index annotation)))
+  (annotate-annotation-set-annotation-face annotation
+   (elt 
annotate-annotation-text-faces
+new-color-index))
+  (annotate-annotation-set-face annotation
+(elt annotate-highlight-faces
+ new-color-index))
+  (font-lock-flush)
+
 (defun annotate-actual-comment-start ()
   "String for comment start related to current buffer's major
 mode."

[nongnu] elpa/annotate 44577f237c 02/14: - allowed different positioning of annotated text on the same buffer.

[ELPA Syncer]

branch: elpa/annotate
commit 44577f237cee25d7e86e0cc28b9a838d8814e6aa
Author: cage 
Commit: cage 

- allowed different positioning of annotated text on the same buffer.
---
 annotate.el | 118 ++--
 1 file changed, 68 insertions(+), 50 deletions(-)

diff --git a/annotate.el b/annotate.el
index 1de7c4f7c8..c0a5a66e47 100644
--- a/annotate.el
+++ b/annotate.el
@@ -422,19 +422,6 @@ position (so that it is unchanged after this function is 
called)."
   (= (overlay-start annotation)
  (overlay-end   annotation)))
 
-(defun annotate-annotation-force-newline-policy (annotation)
-  "Force annotate to place `ANNOTATION' on the line after the annotated text.
-
-See: `ANNOTATE-ANNOTATION-POSITION-POLICY'."
-  (overlay-put annotation 'force-newline-policy t))
-
-(defun annotate-annotation-newline-policy-forced-p (annotation)
-  "Is `ANNOTATION' forced to place annotation on the line after the
-annotated text?
-
-See: `ANNOTATE-ANNOTATION-POSITION-POLICY'."
-  (overlay-get annotation 'force-newline-policy))
-
 (defun annotate-annotation-set-face (annotation face)
   "Set property face to `FACE' for `ANNOTATION'."
   (overlay-put annotation 'face face))
@@ -457,6 +444,16 @@ See: `ANNOTATE-ANNOTATION-POSITION-POLICY'."
 (defun annotate-annotation-get-annotation-text (annotation)
   (overlay-get annotation 'annotation))
 
+(defun annotate-annotation-set-position (annotation position)
+  (overlay-put annotation 'annotate-position position))
+
+(defun annotate-annotation-get-position (annotation)
+  (overlay-get annotation 'annotate-position))
+
+(defun annotate-overlay-maybe-set-position (overlay position)
+  (when position
+(annotate-annotation-set-position overlay position)))
+
 (defun annotate-chain-last-ring (chain)
   "Get the last ring of `CHAIN'."
   (car (last chain)))
@@ -1315,7 +1312,7 @@ aa**"
 \"facespec\" with the annotation in its \"display\" property."
   (save-excursion
 ;; (let ((newline-position (point)))
-  (goto-char (1- (point))) ; we start at the start of the previous line
+(goto-char (1- (point))) ; we start at the start of the previous line
   ;; find overlays in the preceding line
   (let ((prefix-first   (annotate-make-prefix)) ; white spaces
 ; before first
@@ -1344,35 +1341,45 @@ aa**"
   (let* ((last-ring-p  (annotate-chain-last-p ov))
  (annotation-face  (annotate-annotation-face ov)) ; added 
by annotate-create-annotation
  (annotation-text-face 
(annotate-annotation-property-annotation-face ov)) ; added by 
annotate-create-annotation
- (annotation-long-p   (> (string-width 
(annotate-annotation-get-annotation-text ov))
- 
annotate-annotation-max-size-not-place-new-line))
- (position-new-line-p (cl-case 
annotate-annotation-position-policy
-(:new-line
- t)
-(:by-length
- (or 
(annotate-annotation-newline-policy-forced-p ov)
- annotation-long-p))
-(otherwise
- nil)))
- (multiline-annotation (annotate-wrap-annotation-in-box ov
-bol
-eol
-
position-new-line-p))
- (annotation-stopper   (if position-new-line-p
-   (if (= overlays-counter
-  (length overlays))
-   "\n"
- "")
- "\n"))
- (tail-hidden-text-p   (and last-ring-p
-(annotate-tail-overlay-hide-text-p 
ov
-(setf hidden-text tail-hidden-text-p)
-(cl-incf overlays-counter)
-(annotate-annotation-set-face ov annotation-face)
-(annotate-annotation-set-annotation-face ov annotation-text-face)
-(when (and (not annotate-use-echo-area)
-   (not hidden-text)
-   (annotate-chain-last-p ov))
+ (position (annotate-annotation-get-position ov))
+ (position-new-line-p  nil))
+(if position
+(progn
+  (cl-case position
+(:new-line
+ (setf position-new-line-p t))
+(:by-length
+ (setf position-new-line-p nil))
+

[nongnu] elpa/annotate 9d88cc7ffe 14/14: Merge pull request #160 from cage2/master

[ELPA Syncer]

branch: elpa/annotate
commit 9d88cc7ffed6f79f81a83a914554e264e35a575c
Merge: dfe0d7c990 201e1c7e96
Author: cage2 <1257703+ca...@users.noreply.github.com>
Commit: GitHub 

Merge pull request #160 from cage2/master

Added commands to force positioning and color of an annotation
---
 Changelog   |  66 +
 NEWS.org|   9 +++
 README.org  |  12 
 annotate.el | 232 +---
 4 files changed, 233 insertions(+), 86 deletions(-)

diff --git a/Changelog b/Changelog
index 26dd050ef9..375277dcc7 100644
--- a/Changelog
+++ b/Changelog
@@ -1,17 +1,59 @@
+2024-03-13 cage
+
+   * README.org,
+   * annotate.el:
+
+   - added new command 'annotate-change-annotation-color';
+   - printed message with current policy for annotation when changing
+   positioning. using 'annotate-change-annotation-text-position';
+   - update keymap to accomodate new commands.
+   - fixed variable name.
+   - updated docstrings.
+   - updated README.
+   - changed keybinding for 'annotate-change-annotation-text-position';
+   - added missing docstring.
+   - increased version number.
+
+2024-03-07 cage
+
+   * annotate.el:
+
+   - allowed different positioning of annotated text on the same buffer.
+   - added command 'annotate-change-annotation-text-position'.
+   - fixed position policy layout in builder.
+   - fixed wrapping of annotation in a 'box'.
+
+2024-03-05 cage
+
+   * annotate.el:
+
+   - preferred wrapping functions instead of call to 'overlay-put' and
+   'overlay-get'.
+
+2023-11-02 cage
+
+
+   Merge pull request #159 from cage2/master
+
 2023-10-10 cage
 
-* NEWS.org,
-* annotate.el:
+   * Changelog,
+   * NEWS.org,
+   * README.org,
+   * annotate.el:
 
-- fixed procedure for coloring annotations (adjacent annotations with
-  the same colors was still possible).
-- removed warning about unused parameter in function
-  'on-window-size-change';
-- removed warnings about escaping in docstrings;
-- used accented character instead of apostrophe.
-- added saving of annotation face on the database.
-- increased version number.
-- updated NEWS file.
+   - fixed procedure for coloring annotations (adjacent annotations with
+   the same colors was still possible).
+   - removed warning about unused parameter in function
+   'on-window-size-change';
+   - removed warnings about escaping in docstrings;
+   - used accented character instead of apostrophe.
+   - added saving of annotation face on the database.
+   - increased version number.
+   - updated NEWS file.
+   - updated Changelog.
+   - rephrased NEWS file entry.
+   - fixed README.
 
 2023-09-30 cage2
 
@@ -105,7 +147,7 @@
 
 Merge pull request #150 from cage2/hide-annotation-text
 
-2023-02-22 cage 
+2023-02-22 cage
 
 * Changelog,
 * NEWS.org,
diff --git a/NEWS.org b/NEWS.org
index 5936b372fd..0666225ced 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,3 +1,12 @@
+- 2023-10-10 v2.2.0 cage ::
+
+  This version adds two new commands:
+
+  - annotate-change-annotation-text-position;
+  - annotate-change-annotation-colors.
+
+  To force positioning or color, respectively, for a single annotation.
+
 - 2023-10-10 v2.1.0 cage ::
 
   This version ensures that the color theme for each annotation (both 
underline color of the annotated text and colors of the annotation), is saved 
when a an annotated file (or Emacs) is closed. The same color theme will be 
restored together with the annotations when, for example, the annotated file 
will be visited again.
diff --git a/README.org b/README.org
index fb9d886e2d..65121e4c44 100644
--- a/README.org
+++ b/README.org
@@ -131,6 +131,18 @@ The annotation text can be pressed to and will open the 
annotated file, placing
  related customizable variable
  - ~annotate-summary-ask-query~.
 
+*** ~C-c C-c~ (function annotate-change-annotation-colors)
+
+Change the color of the annotation below point (both higlight and annotation 
text colors are changed).
+
+These changes are kept after the buffer is killed.
+
+*** ~C-c C-p~ (function annotate-change-annotation-text-position)
+
+Change the policy positioning the annotation below point, a message with the 
new policy is printed.
+
+These changes are kept after the buffer is killed.
+
 * Exporting
 
 Annotations can be exported ~annotate-export-annotations~ as commented unified 
diffs, like this:
diff --git a/annotate.el b/annotate.el
index eb124b21d2..7e6c6e31bd 100644
--- a/annotate.el
+++ b/annotate.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Bastian Bechtold , cage 

 ;; URL: https://github.com/bastibe/annotate.el
 ;; Created: 2015-06-10
-;; Version: 2.1.0
+;; Version: 2.2.0
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -58,13 +58,15 @@
 ;;;###autoload
 (defgroup ann

[nongnu] elpa/oblivion-theme 8b7ed6627e: Correct color for eglot type hint face

[ELPA Syncer]

branch: elpa/oblivion-theme
commit 8b7ed6627ee3c838acd2ec9bfd5a6fb02228edfb
Author: Campbell Barton 
Commit: Campbell Barton 

Correct color for eglot type hint face
---
 oblivion-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/oblivion-theme.el b/oblivion-theme.el
index 49f6bd03d9..593004ffd4 100644
--- a/oblivion-theme.el
+++ b/oblivion-theme.el
@@ -146,7 +146,7 @@
 
;; `eglot`.
`(eglot-inlay-hint-face ((t (:foreground ,ob-aluminium4 :background 
,ob-aluminium6-5
-   `(eglot-type-hint-face ((t (:foreground ,ob-aluminium4 :background 
,ob-chameleon1
+   `(eglot-type-hint-face ((t (:foreground ,ob-chameleon1 :background 
,ob-aluminium6-5
`(eglot-parameter-hint-face ((t (:foreground ,ob-aluminium4 :background 
,ob-aluminium6-5
 
;; xref mode.

[nongnu] elpa/smartparens d22df4b6d9 3/4: refactor(test): generate an ert test per testcase to simplify review

[ELPA Syncer]

branch: elpa/smartparens
commit d22df4b6d99643630e2940e3c662582ea5637af1
Author: Matus Goljer 
Commit: Matus Goljer 

refactor(test): generate an ert test per testcase to simplify review
---
 test/smartparens-commands-test.el | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/test/smartparens-commands-test.el 
b/test/smartparens-commands-test.el
index 150db7a77b..bae9de2fa9 100644
--- a/test/smartparens-commands-test.el
+++ b/test/smartparens-commands-test.el
@@ -705,19 +705,19 @@ be."
 
 (defun sp-test--sp-backward-delete-char-textmode (initial expected &optional n)
   (setq n (or n 1))
-  (sp-test-with-temp-buffer initial
-  (text-mode)
-(sp-backward-delete-char n)
-(sp-buffer-equals expected)))
-
-(ert-deftest sp-test-command-sp-backward-delete-char-textmode ()
   (let ((sp-pairs '((t . ((:open "\"" :close "\"" :actions (insert wrap 
autoskip navigate))
   (:open "'" :close "'" :actions (insert wrap autoskip 
navigate)))
-(sp-test--sp-backward-delete-char-textmode "foo \"it'| OK\" baz" "foo 
\"it| OK\" baz")
-(sp-test--sp-backward-delete-char-textmode "foo \"|OK\" baz" "foo \"|OK\" 
baz")
-(sp-test--sp-backward-delete-char-textmode "foo \"it's OK\"| baz" "foo 
\"it's OK|\" baz")
-(sp-test--sp-backward-delete-char-textmode "\"this\" doesn'|" "\"this\" 
doesn|")
-(sp-test--sp-backward-delete-char-textmode "\"don't\"|" "|" 7)))
+(sp-test-with-temp-buffer initial
+(text-mode)
+  (sp-backward-delete-char n)
+  (sp-buffer-equals expected
+
+(sp-ert-deftest sp-test-command-sp-backward-delete-char-textmode
+  (sp-test--sp-backward-delete-char-textmode "foo \"it'| OK\" baz" "foo \"it| 
OK\" baz")
+  (sp-test--sp-backward-delete-char-textmode "foo \"|OK\" baz" "foo \"|OK\" 
baz")
+  (sp-test--sp-backward-delete-char-textmode "foo \"it's OK\"| baz" "foo 
\"it's OK|\" baz")
+  (sp-test--sp-backward-delete-char-textmode "\"this\" doesn'|" "\"this\" 
doesn|")
+  (sp-test--sp-backward-delete-char-textmode "\"don't\"|" "|" 7))
 
 (ert-deftest sp-test-command-sp-backward-delete-pair-with-skip-match ()
   (let ((sp-pairs '((t . ((:open "`" :close "'" :actions (insert wrap autoskip 
navigate)

[nongnu] elpa/smartparens updated (ce1b3b9ff8 -> 1d59608a6e)

[ELPA Syncer]

elpasync pushed a change to branch elpa/smartparens.

  from  ce1b3b9ff8 feat(org): code marker should prevent nested pairs
   new  9902e5b1b3 fix: fix debug declaration
   new  35cc10094c fix(company): only run smartparens logic if there was 
any candidate returned
   new  d22df4b6d9 refactor(test): generate an ert test per testcase to 
simplify review
   new  1d59608a6e chore: add some dot directories to .gitignore


Summary of changes:
 .gitignore|  3 +++
 smartparens.el|  6 +++---
 test/smartparens-commands-test.el | 22 +++---
 3 files changed, 17 insertions(+), 14 deletions(-)

[nongnu] elpa/smartparens 35cc10094c 2/4: fix(company): only run smartparens logic if there was any candidate returned

[ELPA Syncer]

branch: elpa/smartparens
commit 35cc10094c5f2f4937a7ab10e7bc76fdcca987db
Author: Matus Goljer 
Commit: Matus Goljer 

fix(company): only run smartparens logic if there was any candidate returned
---
 smartparens.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/smartparens.el b/smartparens.el
index 5616e230f2..7184773def 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -9711,7 +9711,7 @@ has been created."
 (defadvice company--insert-candidate (after sp-company--insert-candidate 
activate)
   "If `smartparens-mode' is active, we check if the completed string
 has a pair definition.  If so, we insert the closing pair."
-  (when smartparens-mode
+  (when (and ad-return-value smartparens-mode)
 (sp-insert-pair))
   ad-return-value)
 

[nongnu] elpa/smartparens 9902e5b1b3 1/4: fix: fix debug declaration

[ELPA Syncer]

branch: elpa/smartparens
commit 9902e5b1b3ebe937a940e508635e14d2a37684e4
Author: Matus Goljer 
Commit: Matus Goljer 

fix: fix debug declaration
---
 smartparens.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/smartparens.el b/smartparens.el
index ccdafceb14..5616e230f2 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -3223,7 +3223,7 @@ this value during execution of the handler."
 
 If ACTION is nil, evaluate FORMS and set it to the value of the
 last form; otherwise do nothing."
-  (declare (debug (form body)))
+  (declare (debug (symbolp body)))
   `(unless ,action
  (setq ,action (progn ,@forms
 
@@ -3236,7 +3236,7 @@ last form; otherwise do nothing."
 (when smartparens-mode
   (sp--with-case-sensitive
 (catch 'done
-  (let (action)
+  (let ((action nil))
 (when (region-active-p)
   (condition-case err
   (sp-wrap--initialize)

[nongnu] elpa/smartparens 1d59608a6e 4/4: chore: add some dot directories to .gitignore

[ELPA Syncer]

branch: elpa/smartparens
commit 1d59608a6ed73a3546ec9f9526d11f78e4fd318e
Author: Matus Goljer 
Commit: Matus Goljer 

chore: add some dot directories to .gitignore
---
 .gitignore | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/.gitignore b/.gitignore
index 179f3a9621..64bc594f5a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,3 +3,6 @@ elpa
 *~*
 docs/_build
 .dir-locals-2.el
+.eask
+.cask
+.elsa

[elpa] externals/orderless updated (dc7a781acf -> 3847f31107)

[ELPA Syncer]

elpasync pushed a change to branch externals/orderless.

  from  dc7a781acf orderless-literal: Go back to regexp-quote
   new  963844b1cf Add myself as co-maintainer
   new  3847f31107 Version 1.1


Summary of changes:
 orderless.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/orderless 963844b1cf 1/2: Add myself as co-maintainer

[ELPA Syncer]

branch: externals/orderless
commit 963844b1cf2e79c354f0f22d0bca69740a21ef74
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add myself as co-maintainer
---
 orderless.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orderless.el b/orderless.el
index 98748a6972..b675786fe7 100644
--- a/orderless.el
+++ b/orderless.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2021-2024 Free Software Foundation, Inc.
 
 ;; Author: Omar Antolín Camarena 
-;; Maintainer: Omar Antolín Camarena 
+;; Maintainer: Omar Antolín Camarena , Daniel Mendler 

 ;; Keywords: extensions
 ;; Version: 1.0
 ;; Homepage: https://github.com/oantolin/orderless

[elpa] externals/orderless 3847f31107 2/2: Version 1.1

[ELPA Syncer]

branch: externals/orderless
commit 3847f311077efa17951a786d2759f2639c5f43c8
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 1.1
---
 orderless.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orderless.el b/orderless.el
index b675786fe7..c71e82a208 100644
--- a/orderless.el
+++ b/orderless.el
@@ -5,7 +5,7 @@
 ;; Author: Omar Antolín Camarena 
 ;; Maintainer: Omar Antolín Camarena , Daniel Mendler 

 ;; Keywords: extensions
-;; Version: 1.0
+;; Version: 1.1
 ;; Homepage: https://github.com/oantolin/orderless
 ;; Package-Requires: ((emacs "27.1"))
 

[nongnu] elpa/helm updated (45224ceb82 -> eae4f5a24a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  45224ceb82 Merge pull request #2647 from kkatsuyuki/load-dired-async
   new  d74e182470 Improve helm-acase docstring
   new  eae4f5a24a Use 'exact in exit-function only when string ends with / 
(#2646)


Summary of changes:
 helm-lib.el  | 32 +++-
 helm-mode.el | 14 +++---
 2 files changed, 30 insertions(+), 16 deletions(-)

[nongnu] elpa/helm eae4f5a24a 2/2: Use 'exact in exit-function only when string ends with / (#2646)

[ELPA Syncer]

branch: elpa/helm
commit eae4f5a24a2a5d9fac0ec1a9200362bf9efa911b
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use 'exact in exit-function only when string ends with / (#2646)
---
 helm-mode.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 2d8eb94720..b5792af18e 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2648,16 +2648,16 @@ Can be used for `completion-in-region-function' by 
advicing it with an
  result start point end base-size))
 ;; Allow running extra property `:exit-function' (Bug#2265,
 ;; Bug#2356). Function is called with 'exact if the return value of
-;; `try-completion' is a string (possibly a directory Bug#2274 if the
-;; string ends with /), otherwise it is always called with 'finished.
-;; However it is still not clear what to use, the documentation on this
-;; beeing really bad (bug#2646).
+;; `try-completion' is a string ending with / (possibly a directory
+;; Bug#2274), otherwise it is always called with 'finished.  However it
+;; is still not clear what to use, the documentation on this beeing
+;; really bad (see bug#2646).
 (when (and (stringp string) exit-fun)
   (funcall exit-fun string
(helm-acase (try-completion initial-input collection 
predicate)
- ;; FIXME: Should I limit 'exact only for strings ending
- ;; with / ?
- ((guard (stringp it)) 'exact)
+ ((guard (and (stringp it)
+  (string-match "/\\'" it)))
+  'exact)
  (t 'finished
 (remove-hook 'helm-before-action-hook 
'helm-completion-in-region--selection)
 (customize-set-variable 'helm-completion-style 
old--helm-completion-style)

[nongnu] elpa/helm-core updated (45224ceb82 -> eae4f5a24a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  45224ceb82 Merge pull request #2647 from kkatsuyuki/load-dired-async
  adds  d74e182470 Improve helm-acase docstring
  adds  eae4f5a24a Use 'exact in exit-function only when string ends with / 
(#2646)

No new revisions were added by this update.

Summary of changes:
 helm-lib.el  | 32 +++-
 helm-mode.el | 14 +++---
 2 files changed, 30 insertions(+), 16 deletions(-)

[nongnu] elpa/helm d74e182470 1/2: Improve helm-acase docstring

[ELPA Syncer]

branch: elpa/helm
commit d74e1824706dcc519a7c4d9fd5787ca360be6fb1
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Improve helm-acase docstring
---
 helm-lib.el | 32 +++-
 1 file changed, 23 insertions(+), 9 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index 72159184ce..babb35115f 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -566,19 +566,33 @@ is usable in next condition."
 (helm-aand ,@(cdr conditions))
 
 (defmacro helm-acase (expr &rest clauses)
-  "A simple anaphoric case implementation.
+  "Check if EXPR match KEYLIST and then execute BODY.
 
-The car of each clause can be any object that will be compared
-with `equal' or an expression starting with `guard' which is
-evaluated.  Once evaluated `guard' is bound to the returned value
-that can be used in the cdr of clause.
+`helm-acase' is a small macro mixing the features of `cl-case'
+and `cond'.
 
-NOTE: `guard' as a temp var is reserved for helm-acase, so if you
-let-bind a local var outside the helm-acase body, it will be
-overriden deliberately by helm-acase.
+KEYLIST can be any object that will be compared with `equal' or
+an expression starting with `guard' which is then evaluated.
+Once evaluated `guard' is bound to the returned value that can be
+used in the cdr of clause.  When KEYLIST match EXPR, BODY is
+executed and `helm-acase' exited with its value.
+
+If KEYLIST is a non-quoted list, each elements of the list are
+checked with `member' to see if one match EXPR.  To compare a
+whole list with EXPR, you have to quote it.
+
+The last clause can use `t' as KEYLIST to specify a fallback
+clause when previous clause didn't match, if such a clause
+starting with `t' is specified before last clause it will
+override all next clauses, if you want to match an EXPR value
+equal to `t' in any clauses quote `t', i.e. `'t'.
+
+NOTE: `guard' as a temp var is reserved for `helm-acase', so if
+you let-bind a local var outside the `helm-acase' body, it will
+be overriden deliberately by `helm-acase'.
 
 EXPR is bound to a temporary variable called `it' which is
-usable in CLAUSES to refer to EXPR.
+usable in all clauses to refer to EXPR.
 
 \(fn EXPR (KEYLIST BODY...)...)"
   (declare (indent 1) (debug (form &rest ([&or (symbolp form) sexp] body

[nongnu] elpa/buttercup be25a149fc 2/2: Do not print stacktraces for certain file load errors

[ELPA Syncer]

branch: elpa/buttercup
commit be25a149fcec1a33d1dfbdf42b265a9f0a958ef5
Author: Ola Nilsson 
Commit: Ola Nilsson 

Do not print stacktraces for certain file load errors

The stacktraces for buttercup-dynamic-binding-error and end-of-file
are not interesting.
---
 buttercup.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 15806da6ea..733b1add29 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1531,7 +1531,7 @@ current directory."
 (setq args (cdr args)
 (setq command-line-args-left nil)
 (setq failed-files-suite (make-buttercup-suite
-  :description "File failed to load completely: "))
+  :description "File failed to load correctly:"))
 (dolist (dir (or dirs '(".")))
   (dolist (file (directory-files-recursively
  dir "\\`test-.*\\.el\\'\\|-tests?\\.el\\'"))
@@ -1554,9 +1554,12 @@ spec and add it to FAILURE-SUITE."
   (cl-destructuring-bind (status description stack)
   (buttercup--funcall #'load file nil t)
 (when (eq status 'failed)
+  (if (memq (cl-caadr description)
+'(buttercup-dynamic-binding-error end-of-file))
+  (setq stack nil)
   ;; Skip all of stack until load is called
   (while (not (eq (nth 1 (car stack)) 'load))
-(pop stack))
+(pop stack)))
   (buttercup-suite-add-child
failure-suite
(make-buttercup-spec

[nongnu] elpa/buttercup updated (2cb6d0cc1a -> be25a149fc)

[ELPA Syncer]

elpasync pushed a change to branch elpa/buttercup.

  from  2cb6d0cc1a Revert "signal buttercup-dynamic-binding-error when 
lexical-binding != t"
   new  48d75047ac signal buttercup-dynamic-binding-error when 
lexical-binding != t
   new  be25a149fc Do not print stacktraces for certain file load errors


Summary of changes:
 buttercup.el| 13 +--
 tests/test-buttercup.el | 95 +++--
 2 files changed, 64 insertions(+), 44 deletions(-)

[nongnu] elpa/buttercup 48d75047ac 1/2: signal buttercup-dynamic-binding-error when lexical-binding != t

[ELPA Syncer]

branch: elpa/buttercup
commit 48d75047ac5e100558cdf198b38a88af5ac1b9c0
Author: Ola Nilsson 
Commit: Ola Nilsson 

signal buttercup-dynamic-binding-error when lexical-binding != t

The describe macro will signal buttercup-dynamic-binding-error if it
is expanded when lexical-binding it not t.
This should prevent test files without `lexical-binding: t' from being
loaded.
buttercup-run-discover will report the file error in the same way as
other errors encountered while loading files.
---
 buttercup.el|  6 
 tests/test-buttercup.el | 95 +++--
 2 files changed, 59 insertions(+), 42 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 541f33b513..15806da6ea 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -56,6 +56,9 @@
 ;; inconsistencies.
 (define-error 'buttercup-internals-error "Internal buttercup error"
   'buttercup-error-base)
+;; Raised when expanding `describe` macros whithout lexical-binding: t
+(define-error 'buttercup-dynamic-binding-error "Lexical binding is not enabled"
+  'buttercup-error-base)
 
 ;
 ;;; wrapper function manipulation
@@ -952,6 +955,9 @@ form.")
 DESCRIPTION is a string. BODY is a sequence of instructions,
 mainly calls to `describe', `it' and `before-each'."
   (declare (indent 1) (debug (&define sexp def-body)))
+  (unless lexical-binding
+(signal 'buttercup-dynamic-binding-error
+"buttercup requires `lexical-binding' to be t"))
   (let ((new-body
  (cond
   ((eq (elt body 0) :var)
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 804c223336..a805870689 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1025,29 +1025,38 @@ before it's processed by other functions."
 
 (describe "The `describe' macro"
   (it "should expand to a simple call to the buttercup-describe function"
-(expect (macroexpand '(describe "description" (+ 1 1)))
-:to-equal
-'(buttercup-describe "description" (lambda () (+ 1 1)
+(let ((lexical-binding t))  ; Emacs < 27 needs this?
+  (expect (macroexpand '(describe "description" (+ 1 1)))
+  :to-equal
+  '(buttercup-describe "description" (lambda () (+ 1 1))
 
   (it "should support the :var argument"
-(expect (macroexpand '(describe "description" :var (foo bar) (+ foo bar)))
-:to-equal
-'(buttercup-describe "description"
- (lambda () (let (foo bar) (+ foo bar))
+(let ((lexical-binding t))  ; Emacs < 27 needs this?
+  (expect (macroexpand '(describe "description" :var (foo bar) (+ foo 
bar)))
+  :to-equal
+  '(buttercup-describe "description"
+   (lambda () (let (foo bar) (+ foo bar)))
   (it "should support the :var* argument"
-(expect (macroexpand '(describe "description" :var* (foo bar) (+ foo bar)))
-:to-equal
-'(buttercup-describe "description"
- (lambda () (let* (foo bar) (+ foo bar))
+(let ((lexical-binding t))  ; Emacs < 27 needs this?
+  (expect (macroexpand '(describe "description" :var* (foo bar) (+ foo 
bar)))
+  :to-equal
+  '(buttercup-describe "description"
+   (lambda () (let* (foo bar) (+ foo bar)))
   (describe "should error when "
 (it ":var is not first"
-  (expect (macroexpand '(describe "description" (it "foo") :var (x)))
-  :to-equal
-  '(error "buttercup: :var(*) found in invalid position of 
describe form \"%s\"" "description")))
+  (let ((lexical-binding t))  ; Emacs < 27 needs this?
+(expect (macroexpand '(describe "description" (it "foo") :var (x)))
+:to-equal
+'(error "buttercup: :var(*) found in invalid position of 
describe form \"%s\"" "description"
 (it ":var* is not first"
-  (expect (macroexpand '(describe "description" (it "foo") :var* (x)))
-  :to-equal
-  '(error "buttercup: :var(*) found in invalid position of 
describe form \"%s\"" "description")
+  (let ((lexical-binding t))  ; Emacs < 27 needs this?
+(expect (macroexpand '(describe "description" (it "foo") :var* (x)))
+:to-equal
+'(error "buttercup: :var(*) found in invalid position of 
describe form \"%s\"" "description"
+(it "is expanded with `lexical-binding' nil"
+  (let (lexical-binding)
+(expect (macroexpand '(describe "lexical-binding" (it "nil" (ignore
+:to-throw 'buttercup-dynamic-binding-error)
 
 (describe "The `buttercup-describe' function"
   (it "should run the enclosing body"
@@ -1193,33 +1202,35 @@ before it's processed by other functions."
 
 (describe "The `xdescribe' macro"
   (it "expands directly to a fu

[nongnu] elpa/git-commit 7f1723bfd3 1/4: git-commit-setup: Cleanup comments

[ELPA Syncer]

branch: elpa/git-commit
commit 7f1723bfd367f81391d3d1926e09e162053911bf
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

git-commit-setup: Cleanup comments
---
 lisp/git-commit.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 405634557e..affafc08af 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -547,9 +547,9 @@ Used as the local value of `header-line-format', in buffer 
using
 
 (defun git-commit-setup ()
   (when (fboundp 'magit-toplevel)
-;; `magit-toplevel' is autoloaded and defined in magit-git.el,
-;; That library declares this functions without loading
-;; magit-process.el, which defines it.
+;; `magit-toplevel' is autoloaded and defined in magit-git.el.  That
+;; library declares this function without loading magit-process.el,
+;; which defines it.
 (require 'magit-process nil t))
   ;; Pretend that git-commit-mode is a major-mode,
   ;; so that directory-local settings can be used.
@@ -560,7 +560,7 @@ Used as the local value of `header-line-format', in buffer 
using
   ;; because the maintainer can use the latter
   ;; to enforce conventions, while s/he has no
   ;; control over the former.
-  (fboundp 'magit-toplevel)  ; silence byte-compiler
+  (fboundp 'magit-toplevel)
   (magit-toplevel))
  default-directory)))
 (let ((buffer-file-name nil) ; trick hack-dir-local-variables

[nongnu] elpa/git-commit updated (0963697f24 -> 0e8f25a8d8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  0963697f24 magit-diff-wash-submodule: Delay inserting module commits
   new  7f1723bfd3 git-commit-setup: Cleanup comments
   new  3fbaf734ca git-commit-setup: Let-bind gitdir to default-directory
   new  4d378d91d2 git-commit-cd-to-toplevel: New option
   new  0e8f25a8d8 magit--git-wash: Support commands whose non-zero status 
isn't an error


Summary of changes:
 lisp/git-commit.el | 71 ++
 lisp/magit-diff.el |  4 ++-
 lisp/magit-git.el  |  3 ++-
 3 files changed, 55 insertions(+), 23 deletions(-)

[nongnu] elpa/git-commit 3fbaf734ca 2/4: git-commit-setup: Let-bind gitdir to default-directory

[ELPA Syncer]

branch: elpa/git-commit
commit 3fbaf734ca90b7dc101e18c34b371b12aa3e09f9
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

git-commit-setup: Let-bind gitdir to default-directory

At this point this makes no difference, but it makes the diff for
the next commit more readable.
---
 lisp/git-commit.el | 44 +++-
 1 file changed, 23 insertions(+), 21 deletions(-)

diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index affafc08af..3a578b6193 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -546,27 +546,29 @@ Used as the local value of `header-line-format', in 
buffer using
   (setq git-commit-usage-message nil) ; show a shorter message")
 
 (defun git-commit-setup ()
-  (when (fboundp 'magit-toplevel)
-;; `magit-toplevel' is autoloaded and defined in magit-git.el.  That
-;; library declares this function without loading magit-process.el,
-;; which defines it.
-(require 'magit-process nil t))
-  ;; Pretend that git-commit-mode is a major-mode,
-  ;; so that directory-local settings can be used.
-  (let ((default-directory
- (or (and (not (file-exists-p ".dir-locals.el"))
-  ;; When $GIT_DIR/.dir-locals.el doesn't exist,
-  ;; fallback to $GIT_WORK_TREE/.dir-locals.el,
-  ;; because the maintainer can use the latter
-  ;; to enforce conventions, while s/he has no
-  ;; control over the former.
-  (fboundp 'magit-toplevel)
-  (magit-toplevel))
- default-directory)))
-(let ((buffer-file-name nil) ; trick hack-dir-local-variables
-  (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables
-  (hack-dir-local-variables)
-  (hack-local-variables-apply)))
+  (let ((gitdir default-directory))
+(when (fboundp 'magit-toplevel)
+  ;; `magit-toplevel' is autoloaded and defined in magit-git.el.  That
+  ;; library declares this function without loading magit-process.el,
+  ;; which defines it.
+  (require 'magit-process nil t))
+;; Pretend that git-commit-mode is a major-mode,
+;; so that directory-local settings can be used.
+(let ((default-directory
+   (or (and (not (file-exists-p
+  (expand-file-name ".dir-locals.el" gitdir)))
+;; When $GIT_DIR/.dir-locals.el doesn't exist,
+;; fallback to $GIT_WORK_TREE/.dir-locals.el,
+;; because the maintainer can use the latter
+;; to enforce conventions, while s/he has no
+;; control over the former.
+(fboundp 'magit-toplevel)
+(magit-toplevel))
+   gitdir)))
+  (let ((buffer-file-name nil) ; trick hack-dir-local-variables
+(major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables
+(hack-dir-local-variables)
+(hack-local-variables-apply
   (when git-commit-major-mode
 (let ((auto-mode-alist
;; `set-auto-mode--apply-alist' removes the remote part from

[nongnu] elpa/git-commit 4d378d91d2 3/4: git-commit-cd-to-toplevel: New option

[ELPA Syncer]

branch: elpa/git-commit
commit 4d378d91d245f68a972626c4076a6558d1c19dce
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

git-commit-cd-to-toplevel: New option

Closes #4973.
---
 lisp/git-commit.el | 37 -
 1 file changed, 32 insertions(+), 5 deletions(-)

diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 3a578b6193..b6a940a899 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -334,6 +334,26 @@ no effect."
   :safe 'booleanp
   :type 'boolean)
 
+(defcustom git-commit-cd-to-toplevel nil
+  "Whether to set `default-directory' to the worktree in message buffer.
+
+Editing a commit message is done by visiting a file located in the git
+directory, usually \"COMMIT_EDITMSG\".  As is done when visiting any
+file, the local value of `default-directory' is set to the directory
+that contains the file.
+
+If this option is non-nil, then the local `default-directory' is changed
+to the working tree from which the commit command was invoked.  You may
+wish to do that, to make it easier to open a file that is located in the
+working tree, directly from the commit message buffer.
+
+If the git variable `safe.bareRepository' is set to \"explicit\", then
+you have to enable this, to be able to commit at all.  See issue #5100.
+
+This option only has an effect if the commit was initiated from Magit."
+  :group 'git-commit
+  :type 'boolean)
+
  Faces
 
 (defgroup git-commit-faces nil
@@ -546,12 +566,17 @@ Used as the local value of `header-line-format', in 
buffer using
   (setq git-commit-usage-message nil) ; show a shorter message")
 
 (defun git-commit-setup ()
-  (let ((gitdir default-directory))
-(when (fboundp 'magit-toplevel)
+  (let ((gitdir default-directory)
+(cd nil))
+(when (and (fboundp 'magit-toplevel)
+   (boundp 'magit--separated-gitdirs))
   ;; `magit-toplevel' is autoloaded and defined in magit-git.el.  That
   ;; library declares this function without loading magit-process.el,
   ;; which defines it.
-  (require 'magit-process nil t))
+  (require 'magit-process nil t)
+  (when git-commit-cd-to-toplevel
+(setq cd (or (car (rassoc default-directory magit--separated-gitdirs))
+ (magit-toplevel)
 ;; Pretend that git-commit-mode is a major-mode,
 ;; so that directory-local settings can be used.
 (let ((default-directory
@@ -563,12 +588,14 @@ Used as the local value of `header-line-format', in 
buffer using
 ;; to enforce conventions, while s/he has no
 ;; control over the former.
 (fboundp 'magit-toplevel)
-(magit-toplevel))
+(or cd (magit-toplevel)))
gitdir)))
   (let ((buffer-file-name nil) ; trick hack-dir-local-variables
 (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables
 (hack-dir-local-variables)
-(hack-local-variables-apply
+(hack-local-variables-apply)))
+(when cd
+  (setq default-directory cd)))
   (when git-commit-major-mode
 (let ((auto-mode-alist
;; `set-auto-mode--apply-alist' removes the remote part from

[nongnu] elpa/git-commit 0e8f25a8d8 4/4: magit--git-wash: Support commands whose non-zero status isn't an error

[ELPA Syncer]

branch: elpa/git-commit
commit 0e8f25a8d8011328f2bf082232c720b24c2a12c2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit--git-wash: Support commands whose non-zero status isn't an error

This fixes a regression introduced by [1: 78a979fde5], which did not
take into account that "git diff --no-index" exits with 1 if there
are differences (like "diff" does).

Closes #5094.

1: 2023-03-18 78a979fde52815242b165f083d171259db28e0b4
   Support displaying errors that occur when washing a section
---
 lisp/magit-diff.el | 4 +++-
 lisp/magit-git.el  | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 35c28bd600..3ada2f5ba0 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -2170,7 +2170,9 @@ keymap is the parent of their keymaps."
   (setq magit-git-global-arguments
 (append magit-diff--reset-non-color-moved
 magit-git-global-arguments)))
-(magit--git-wash #'magit-diff-wash-diffs keep-error cmd args)))
+(magit--git-wash #'magit-diff-wash-diffs
+(if (member "--no-index" args) 'wash-anyway keep-error)
+  cmd args)))
 
 (defun magit-diff--maybe-add-stat-arguments (args)
   (if (member "--stat" args)
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 65b3075e19..4d8144eba1 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -597,7 +597,8 @@ call function WASHER with ARGS as its sole argument."
 (magit-cancel-section)
   (unless (bolp)
 (insert "\n"))
-  (when (equal exit 0)
+  (when (or (equal exit 0)
+(eq keep-error 'wash-anyway))
 (save-restriction
   (narrow-to-region beg (point))
   (goto-char beg)

[nongnu] elpa/magit updated (0963697f24 -> 0e8f25a8d8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  0963697f24 magit-diff-wash-submodule: Delay inserting module commits
  adds  7f1723bfd3 git-commit-setup: Cleanup comments
  adds  3fbaf734ca git-commit-setup: Let-bind gitdir to default-directory
  adds  4d378d91d2 git-commit-cd-to-toplevel: New option
  adds  0e8f25a8d8 magit--git-wash: Support commands whose non-zero status 
isn't an error

No new revisions were added by this update.

Summary of changes:
 lisp/git-commit.el | 71 ++
 lisp/magit-diff.el |  4 ++-
 lisp/magit-git.el  |  3 ++-
 3 files changed, 55 insertions(+), 23 deletions(-)

[nongnu] elpa/magit-section updated (0963697f24 -> 0e8f25a8d8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  0963697f24 magit-diff-wash-submodule: Delay inserting module commits
  adds  7f1723bfd3 git-commit-setup: Cleanup comments
  adds  3fbaf734ca git-commit-setup: Let-bind gitdir to default-directory
  adds  4d378d91d2 git-commit-cd-to-toplevel: New option
  adds  0e8f25a8d8 magit--git-wash: Support commands whose non-zero status 
isn't an error

No new revisions were added by this update.

Summary of changes:
 lisp/git-commit.el | 71 ++
 lisp/magit-diff.el |  4 ++-
 lisp/magit-git.el  |  3 ++-
 3 files changed, 55 insertions(+), 23 deletions(-)

[elpa] externals/listen 2f54bc61d0 4/4: Tidy: (listen-queue-list) Use alist-get

[ELPA Syncer]

branch: externals/listen
commit 2f54bc61d015c12dbb95045096d7a87e1d501f7c
Author: Adam Porter 
Commit: Adam Porter 

Tidy: (listen-queue-list) Use alist-get

Slightly faster than map-elt here.
---
 listen-queue.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/listen-queue.el b/listen-queue.el
index 4ddaa3e9c4..9b3dc6c414 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -930,7 +930,7 @@ Delay according to `listen-queue-delay-time-range', which 
see."
(length (listen-queue-tracks queue
(list :name "Duration" :align 'right
  :getter (lambda (queue _table)
-   (when-let ((duration (map-elt (listen-queue-etc 
queue) :duration)))
+   (when-let ((duration (alist-get :duration 
(listen-queue-etc queue
  (listen-format-seconds duration)
  :objects-function (lambda ()
  listen-queues)

[elpa] externals/listen a4ef3e676e 3/4: Fix: (listen-queue-list) Currently playing column

[ELPA Syncer]

branch: externals/listen
commit a4ef3e676ee6ce47f04abffee2e2d3223de2c663
Author: Adam Porter 
Commit: Adam Porter 

Fix: (listen-queue-list) Currently playing column

It was showing "nil" without a current player.
---
 README.org  | 3 ++-
 docs/README.org | 3 ++-
 listen-queue.el | 7 ---
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index e46b4f7aed..d7ee63dc3e 100644
--- a/README.org
+++ b/README.org
@@ -225,7 +225,8 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 ** v0.9-pre
 
-Nothing new yet.
+*Fixes*
+- Currently playing column in queue list buffer.
 
 ** v0.8
 
diff --git a/docs/README.org b/docs/README.org
index 7f2ea5a2e0..e52b14f182 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -237,7 +237,8 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 ** v0.9-pre
 
-Nothing new yet.
+*Fixes*
++ Currently playing column in queue list buffer.
 
 ** v0.8
 
diff --git a/listen-queue.el b/listen-queue.el
index 4cb69c5e06..4ddaa3e9c4 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -918,9 +918,10 @@ Delay according to `listen-queue-delay-time-range', which 
see."
  :columns
  (list (list :name "▶" :primary 'descend
  :getter (lambda (queue _table)
-   (when-let ((player listen-player))
- (if (eq queue (map-elt (listen-player-etc 
player) :queue))
- "▶" " "
+   (if-let ((player listen-player)
+((eq queue (alist-get :queue 
(listen-player-etc player)
+   "▶"
+ " ")))
(list :name "Name" :primary 'ascend
  :getter (lambda (queue _table)
(listen-queue-name queue)))

[elpa] externals/listen 372a2fe873 1/4: Release: v0.8

[ELPA Syncer]

branch: externals/listen
commit 372a2fe873fb7082e6e5afd682c4ee7cfdc920f5
Author: Adam Porter 
Commit: Adam Porter 

Release: v0.8
---
 README.org  | 2 +-
 docs/README.org | 2 +-
 listen.el   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 672ff70e3c..ccea7726da 100644
--- a/README.org
+++ b/README.org
@@ -223,7 +223,7 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 * Changelog
 
-** v0.8-pre
+** v0.8
 
 *Additions*
 - The ~listen-queue-list~ buffer can be bookmarked.
diff --git a/docs/README.org b/docs/README.org
index 4db4738baf..cd19f75f02 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -235,7 +235,7 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
   
 * Changelog
 
-** v0.8-pre
+** v0.8
 
 *Additions*
 + The ~listen-queue-list~ buffer can be bookmarked.
diff --git a/listen.el b/listen.el
index ca446a9e3a..9e6aea94fe 100755
--- a/listen.el
+++ b/listen.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Adam Porter 
 ;; Keywords: multimedia
 ;; Package-Requires: ((emacs "29.1") (persist "0.6") (taxy "0.10") 
(taxy-magit-section "0.13") (transient "0.5.3"))
-;; Version: 0.8-pre
+;; Version: 0.8
 ;; URL: https://github.com/alphapapa/listen.el
 
 ;; This program is free software; you can redistribute it and/or modify

[elpa] externals/listen 6bca5d6c76 2/4: Meta: v0.9-pre

[ELPA Syncer]

branch: externals/listen
commit 6bca5d6c764ef69b4a66ee9dc74bed678fe8cb87
Author: Adam Porter 
Commit: Adam Porter 

Meta: v0.9-pre
---
 README.org  | 4 
 docs/README.org | 4 
 listen.el   | 2 +-
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index ccea7726da..e46b4f7aed 100644
--- a/README.org
+++ b/README.org
@@ -223,6 +223,10 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 * Changelog
 
+** v0.9-pre
+
+Nothing new yet.
+
 ** v0.8
 
 *Additions*
diff --git a/docs/README.org b/docs/README.org
index cd19f75f02..7f2ea5a2e0 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -235,6 +235,10 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
   
 * Changelog
 
+** v0.9-pre
+
+Nothing new yet.
+
 ** v0.8
 
 *Additions*
diff --git a/listen.el b/listen.el
index 9e6aea94fe..2e70583202 100755
--- a/listen.el
+++ b/listen.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Adam Porter 
 ;; Keywords: multimedia
 ;; Package-Requires: ((emacs "29.1") (persist "0.6") (taxy "0.10") 
(taxy-magit-section "0.13") (transient "0.5.3"))
-;; Version: 0.8
+;; Version: 0.9-pre
 ;; URL: https://github.com/alphapapa/listen.el
 
 ;; This program is free software; you can redistribute it and/or modify

[elpa] externals/listen updated (7f88ccd04b -> 2f54bc61d0)

[ELPA Syncer]

elpasync pushed a change to branch externals/listen.

  from  7f88ccd04b Tidy: Docstring
   new  372a2fe873 Release: v0.8
   new  6bca5d6c76 Meta: v0.9-pre
   new  a4ef3e676e Fix: (listen-queue-list) Currently playing column
   new  2f54bc61d0 Tidy: (listen-queue-list) Use alist-get


Summary of changes:
 README.org  | 7 ++-
 docs/README.org | 7 ++-
 listen-queue.el | 9 +
 listen.el   | 2 +-
 4 files changed, 18 insertions(+), 7 deletions(-)