[elpa] externals/url-http-ntlm 2c76d94913: url-http-ntlm.el: Bump version to 2.0.5

[Thomas Fitzsimmons]

branch: externals/url-http-ntlm
commit 2c76d9491304e485a91c9d457fc25130279e1324
Author: Thomas Fitzsimmons 
Commit: Thomas Fitzsimmons 

url-http-ntlm.el: Bump version to 2.0.5

* packages/url-http-ntlm/url-http-ntlm.el: Bump version to 2.0.5.
---
 url-http-ntlm.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/url-http-ntlm.el b/url-http-ntlm.el
index b9ce2ba5cc..f7453316d5 100644
--- a/url-http-ntlm.el
+++ b/url-http-ntlm.el
@@ -4,7 +4,7 @@
 
 ;; Author: Tom Schutzer-Weissmann 
 ;; Maintainer: Thomas Fitzsimmons 
-;; Version: 2.0.4
+;; Version: 2.0.5
 ;; Keywords: comm, data, processes, hypermedia
 ;; Homepage: https://code.google.com/p/url-http-ntlm/
 ;; Package-Requires: ((cl-lib "0.5") (ntlm "2.1.0") (nadvice "0.3"))

[elpa] externals/denote 48da159666 2/5: Merge pull request #178 from jeanphilippegg/refactor

[ELPA Syncer]

branch: externals/denote
commit 48da159666e2d44719bf807f6d0a5090fa6859fd
Merge: c6f4f87796 92ffc365e9
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #178 from jeanphilippegg/refactor

Refactor denote-link--map-over-notes
---
 denote.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 85d3c0ec21..759ac9155b 100644
--- a/denote.el
+++ b/denote.el
@@ -3529,11 +3529,8 @@ inserts links with just the identifier."
 
 (defun denote-link--map-over-notes ()
   "Return list of `denote-file-is-note-p' from Dired marked items."
-  (seq-filter
-   (lambda (f)
- (and (denote-file-is-note-p f)
-  (denote--dir-in-denote-directory-p default-directory)))
-   (dired-get-marked-files)))
+  (when (denote--dir-in-denote-directory-p default-directory)
+(seq-filter #'denote-file-is-note-p (dired-get-marked-files
 
 ;;;###autoload
 (defun denote-link-dired-marked-notes (files buffer &optional id-only)

[elpa] externals/denote 85d34f0fba 5/5: Mention 'denote-sluggify-signature' in 'denote-signature-prompt'

[ELPA Syncer]

branch: externals/denote
commit 85d34f0fba960d05494979d33a3a65e9a9ca6c31
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Mention 'denote-sluggify-signature' in 'denote-signature-prompt'
---
 README.org | 13 -
 denote.el  |  2 +-
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index f7b5447b8d..5aa72082a3 100644
--- a/README.org
+++ b/README.org
@@ -3840,11 +3840,14 @@ might change them without further notice.
   from =FILE= front matter per =FILE-TYPE=.
 
 #+findex: denote-signature-prompt
-+ Function ~denote-signature-prompt~ :: Prompt for signature string.
-  With optional =DEFAULT-SIGNATURE= use it as the default minibuffer
-  value. With optional =PROMPT-TEXT= use it in the minibuffer instead
-  of the default prompt. [ The =DEFAULT-SIGNATURE= and =PROMPT-TEXT=
-  arguments are added as part of {{{development-version}}}. ]
++ Function ~denote-signature-prompt~ :: Prompt for signature string
+  and apply ~denote-sluggify-signature~ to it. With optional
+  =DEFAULT-SIGNATURE= use it as the default minibuffer value. With
+  optional =PROMPT-TEXT= use it in the minibuffer instead of the
+  default prompt. [ The =DEFAULT-SIGNATURE= and =PROMPT-TEXT=
+  arguments are added as part of {{{development-version}}}. Same for
+  the parsing application of ~denote-sluggify-signature~ to the user
+  input (this was always the intent). ]
 
 #+findex: denote-file-prompt
 + Function ~denote-file-prompt~ :: Prompt for file with identifier in
diff --git a/denote.el b/denote.el
index cc32f09af4..a88f4b8469 100644
--- a/denote.el
+++ b/denote.el
@@ -1849,7 +1849,7 @@ packages such as `marginalia' and `embark')."
   "Minibuffer history of `denote-signature-prompt'.")
 
 (defun denote-signature-prompt (&optional default-signature prompt-text)
-  "Prompt for signature string.
+  "Prompt for signature string and apply `denote-sluggify-signature' to it.
 With optional DEFAULT-SIGNATURE use it as the default minibuffer
 value.  With optional PROMPT-TEXT use it in the minibuffer
 instead of the default prompt."

[elpa] externals/denote 92ffc365e9 1/5: Refactor denote-link--map-over-notes

[ELPA Syncer]

branch: externals/denote
commit 92ffc365e93a9ff15cb1baea2dd63ceab215fe87
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Refactor denote-link--map-over-notes
---
 denote.el | 7 ++-
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 642e9b7e31..8dba54f46b 100644
--- a/denote.el
+++ b/denote.el
@@ -3464,11 +3464,8 @@ inserts links with just the identifier."
 
 (defun denote-link--map-over-notes ()
   "Return list of `denote-file-is-note-p' from Dired marked items."
-  (seq-filter
-   (lambda (f)
- (and (denote-file-is-note-p f)
-  (denote--dir-in-denote-directory-p default-directory)))
-   (dired-get-marked-files)))
+  (when (denote--dir-in-denote-directory-p default-directory)
+(seq-filter #'denote-file-is-note-p (dired-get-marked-files
 
 ;;;###autoload
 (defun denote-link-dired-marked-notes (files buffer &optional id-only)

[elpa] externals/denote updated (c6f4f87796 -> 85d34f0fba)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  c6f4f87796 Make denote-rename-file prompt for a signature
   new  92ffc365e9 Refactor denote-link--map-over-notes
   new  48da159666 Merge pull request #178 from jeanphilippegg/refactor
   new  ee517a5c8e Add FIXME about a desired optimisation
   new  a4e08bd4f5 Make 'denote-signature-prompt' sluggify the input
   new  85d34f0fba Mention 'denote-sluggify-signature' in 
'denote-signature-prompt'


Summary of changes:
 README.org | 13 -
 denote.el  | 18 +-
 2 files changed, 17 insertions(+), 14 deletions(-)

[elpa] externals/denote a4e08bd4f5 4/5: Make 'denote-signature-prompt' sluggify the input

[ELPA Syncer]

branch: externals/denote
commit a4e08bd4f5e0822e1d4a5ccff4349cba8589a375
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make 'denote-signature-prompt' sluggify the input

Thanks to Suhail Singh for bringing this matter to my attention. It
was done on the mailing list:

.
---
 denote.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 3cad5c68f4..cc32f09af4 100644
--- a/denote.el
+++ b/denote.el
@@ -1853,9 +1853,10 @@ packages such as `marginalia' and `embark')."
 With optional DEFAULT-SIGNATURE use it as the default minibuffer
 value.  With optional PROMPT-TEXT use it in the minibuffer
 instead of the default prompt."
-  (read-string
-   (format-prompt (or prompt-text "Provide signature") nil)
-   nil 'denote--signature-history default-signature))
+  (denote-sluggify-signature
+   (read-string
+(format-prompt (or prompt-text "Provide signature") nil)
+nil 'denote--signature-history default-signature)))
 
 ; Convenience commands as `denote' variants
 

[elpa] externals/denote ee517a5c8e 3/5: Add FIXME about a desired optimisation

[ELPA Syncer]

branch: externals/denote
commit ee517a5c8e01a56aa0b75b016e94f067e22e4d0e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add FIXME about a desired optimisation
---
 denote.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/denote.el b/denote.el
index 759ac9155b..3cad5c68f4 100644
--- a/denote.el
+++ b/denote.el
@@ -2431,6 +2431,8 @@ the changes made to the file: perform them outright."
(not (denote-retrieve-filename-identifier m 
:no-error)))
  marks)
 (denote--get-all-used-ids
+;; FIXME 2023-10-24: There is repetition between this and
+;; `denote-rename-file'.  We better avoid it.
 (dolist (file marks)
   (let* ((file-type (denote-filetype-heuristics file))
  (file-in-prompt (propertize file 'face 'error))

[elpa] externals/org updated (098f081591 -> c7db1c0981)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  098f081591 org-open-at-point: Preserve point unless opening link 
moves the point
   new  84fa57ad1f org-babel-insert-result: Do not modify RESULT for side 
effects
   new  e03402b931 Merge branch 'bugfix'
   new  c7db1c0981 * lisp/org-clock.el (org-clock-menu): Add docstring


Summary of changes:
 lisp/ob-core.el   | 2 +-
 lisp/org-clock.el | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

[elpa] externals-release/org 84fa57ad1f: org-babel-insert-result: Do not modify RESULT for side effects

[ELPA Syncer]

branch: externals-release/org
commit 84fa57ad1f89fea675d0353043f3c0d4c402
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-babel-insert-result: Do not modify RESULT for side effects

* lisp/ob-core.el (org-babel-insert-result): In some scenarios, result
of evaluation is a mutable Elisp string.  Avoid modifying it for side
effects as it may affect side effects of Elisp code blocks.

Reported-by: Jeff Trull 
Link: 
https://orgmode.org/list/CAF_DUeEYVMytS=v2_agjlyhddvzapd7fwg_5sbys6qcb0zg...@mail.gmail.com
---
 lisp/ob-core.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index b111ce86c8..2df3396ee7 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2358,7 +2358,7 @@ INFO may provide the values of these header arguments (in 
the
   using the argument supplied to specify the export block
   or snippet type."
   (cond ((stringp result)
-(setq result (org-no-properties result))
+(setq result (substring-no-properties result))
 (when (member "file" result-params)
   (setq result
  (org-babel-result-to-file

[elpa] externals/org e03402b931 1/2: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit e03402b931f49765dc414eb8dda2d0b903dace1c
Merge: 098f081591 84fa57ad1f
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/ob-core.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 54dcf400ea..f7e4e255fa 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2441,7 +2441,7 @@ INFO may provide the values of these header arguments (in 
the
   using the argument supplied to specify the export block
   or snippet type."
   (cond ((stringp result)
-(setq result (org-no-properties result))
+(setq result (substring-no-properties result))
 (when (member "file" result-params)
   (setq result
  (org-babel-result-to-file

[elpa] externals/org c7db1c0981 2/2: * lisp/org-clock.el (org-clock-menu): Add docstring

[ELPA Syncer]

branch: externals/org
commit c7db1c09814788a231c1e8781c58c0a6a8b1b373
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/org-clock.el (org-clock-menu): Add docstring
---
 lisp/org-clock.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index ba96207600..cd1fdb951b 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -585,6 +585,7 @@ cannot be translated."
(org-no-properties (org-get-heading t t t t))
 
 (defun org-clock-menu ()
+  "Pop up org-clock menu."
   (interactive)
   (popup-menu
'("Clock"

[nongnu] elpa/org-contrib 6ab347d4f3: * lisp/ob-fomus.el: Switch to lexical binding, fix compiler warnings

[ELPA Syncer]

branch: elpa/org-contrib
commit 6ab347d4f35113fb48a0956dd52393443efac56f
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ob-fomus.el: Switch to lexical binding, fix compiler warnings

(org-babel-execute:fomus): Remove unused let-binding.
(org-babel-prep-session:fomus): Mark function arguments as unused.
---
 lisp/ob-fomus.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/ob-fomus.el b/lisp/ob-fomus.el
index 8d834f853d..ef43945df4 100644
--- a/lisp/ob-fomus.el
+++ b/lisp/ob-fomus.el
@@ -1,4 +1,4 @@
-;;; ob-fomus.el --- Org-babel functions for fomus evaluation
+;;; ob-fomus.el --- Org-babel functions for fomus evaluation  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2011-2014, 2021 Torsten Anders
 
@@ -64,8 +64,7 @@
 (defun org-babel-execute:fomus (body params)
   "Execute a block of Fomus code with org-babel.
 This function is called by `org-babel-execute-src-block'."
-  (let* ((result-params (cdr (assq :result-params params)))
-(out-file (cdr (assq :file params)))
+  (let* ((out-file (cdr (assq :file params)))
 (cmdline (cdr (assq :cmdline params)))
 (cmd (or (cdr (assq :cmd params)) "fomus"))
 (in-file (org-babel-temp-file "fomus-" ".fms")))
@@ -83,7 +82,7 @@ This function is called by `org-babel-execute-src-block'."
 " -o " (org-babel-process-file-name out-file)) "")
 nil)) ;; signal that output has already been written to file
 
-(defun org-babel-prep-session:fomus (session params)
+(defun org-babel-prep-session:fomus (_session _params)
   "Return an error because Fomus does not support sessions."
   (error "Fomus does not support sessions"))
 

[elpa] externals/embark 690d187c3c: repunctuate-sentences works on a region in Emacs 29.1

[ELPA Syncer]

branch: externals/embark
commit 690d187c3cf6d02901e94a463e7665d361c30e58
Author: Omar Antolín 
Commit: Omar Antolín 

repunctuate-sentences works on a region in Emacs 29.1
---
 embark.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 17820492cf..28bdbd7d0a 100644
--- a/embark.el
+++ b/embark.el
@@ -457,8 +457,6 @@ arguments and more details."
   '(;; use directory of target as default-directory
 (shell embark--cd)
 (eshell embark--cd)
-;; narrow to target for duration of action
-(repunctuate-sentences embark--narrow-to-target)
 ;; mark the target preserving point and previous mark
 (kill-region embark--mark-target)
 (kill-ring-save embark--mark-target)
@@ -502,6 +500,11 @@ used for other types of action hooks, for more details see
 (const :tag "Always" :always))
 :value-type hook))
 
+(when (version-list-< (version-to-list emacs-version) '(29 1))
+  ;; narrow to target for duration of action
+  (setf (alist-get 'repunctuate-sentences embark-around-action-hooks)
+'(embark--narrow-to-target)))
+
 (defcustom embark-multitarget-actions '(embark-insert embark-copy-as-kill)
   "Commands for which `embark-act-all' should pass a list of targets.
 Normally `embark-act-all' runs the same action on each candidate

[elpa] externals/embark-consult updated (b22bcc42c7 -> 690d187c3c)

[ELPA Syncer]

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

  from  b22bcc42c7 Rename some functions for greater consistency (fixes 
#671)
  adds  690d187c3c repunctuate-sentences works on a region in Emacs 29.1

No new revisions were added by this update.

Summary of changes:
 embark.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

[elpa] externals/boxy a8afcf6821: Updated contact details

[ELPA Syncer]

branch: externals/boxy
commit a8afcf68216a67325138e09f8678e2c2d5d0e599
Author: Amy Grinn 
Commit: Amy Grinn 

Updated contact details
---
 boxy.el| 4 ++--
 tests/boxy-test-chinese.el | 4 ++--
 tests/boxy-test-edge.el| 4 ++--
 tests/boxy-test-margin.el  | 4 ++--
 tests/boxy-test-padding.el | 4 ++--
 tests/boxy-test-setup.el   | 4 ++--
 tests/boxy-test-smoke.el   | 4 ++--
 tests/boxy-test-visual.el  | 4 ++--
 8 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/boxy.el b/boxy.el
index 393f88fb03..c562d852df 100644
--- a/boxy.el
+++ b/boxy.el
@@ -1,8 +1,8 @@
 ;;; boxy.el --- A boxy layout framework -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 ;; Version: 1.1.3
 ;; File: boxy.el
 ;; Package-Requires: ((emacs "26.1"))
diff --git a/tests/boxy-test-chinese.el b/tests/boxy-test-chinese.el
index b1c9e6f1e2..c14cefe87c 100644
--- a/tests/boxy-test-chinese.el
+++ b/tests/boxy-test-chinese.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-chinese.el --- Chinese test cases for boxy -*- lexical-binding: 
t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-edge.el b/tests/boxy-test-edge.el
index 574c163dd3..504fca25ab 100644
--- a/tests/boxy-test-edge.el
+++ b/tests/boxy-test-edge.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-edge-cases.el --- Edge cases for boxy -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-margin.el b/tests/boxy-test-margin.el
index 6a4f364066..132eaf9413 100644
--- a/tests/boxy-test-margin.el
+++ b/tests/boxy-test-margin.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-margin.el -- Margin tests for boxy -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-padding.el b/tests/boxy-test-padding.el
index 7247174fab..d8dec1c64a 100644
--- a/tests/boxy-test-padding.el
+++ b/tests/boxy-test-padding.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-padding.el -- Padding tests for boxy -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-setup.el b/tests/boxy-test-setup.el
index 0245268377..8064233c87 100644
--- a/tests/boxy-test-setup.el
+++ b/tests/boxy-test-setup.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-setup.el --- Set up for boxy tests -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-smoke.el b/tests/boxy-test-smoke.el
index bde970ab88..7e12c07319 100644
--- a/tests/boxy-test-smoke.el
+++ b/tests/boxy-test-smoke.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-smoke.el -- Smoke tests for boxy -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Code:
 
diff --git a/tests/boxy-test-visual.el b/tests/boxy-test-visual.el
index d67fb70463..8f3a81b390 100644
--- a/tests/boxy-test-visual.el
+++ b/tests/boxy-test-visual.el
@@ -1,8 +1,8 @@
 ;;; boxy-test-visual.el --- Visual tests for boxy -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 
 ;;; Commentary:
 ;;

[elpa] externals/boxy-headings updated (a1f288fb67 -> 698432b831)

[ELPA Syncer]

elpasync pushed a change to branch externals/boxy-headings.

  from  a1f288fb67 Updated dependencies
   new  0c710addaf Updated dependencies
   new  698432b831 Updated contact details


Summary of changes:
 boxy-headings.el | 6 +++---
 deps/boxy| 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

[elpa] externals/boxy-headings 0c710addaf 1/2: Updated dependencies

[ELPA Syncer]

branch: externals/boxy-headings
commit 0c710addafa03315848ec6062b5778f7867f9c6f
Author: Amy Grinn 
Commit: Amy Grinn 

Updated dependencies
---
 boxy-headings.el | 2 +-
 deps/boxy| 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/boxy-headings.el b/boxy-headings.el
index 3818644169..762e8f000b 100644
--- a/boxy-headings.el
+++ b/boxy-headings.el
@@ -5,7 +5,7 @@
 ;; Author: Taylor Grinn 
 ;; Version: 2.1.4
 ;; File: boxy-headings.el
-;; Package-Requires: ((emacs "26.1") (boxy "1.0") (org "9.4"))
+;; Package-Requires: ((emacs "26.1") (boxy "1.1") (org "9.4"))
 ;; Keywords: tools
 ;; URL: https://gitlab.com/tygrdev/boxy-headings
 
diff --git a/deps/boxy b/deps/boxy
index f6477177f7..a8afcf6821 16
--- a/deps/boxy
+++ b/deps/boxy
@@ -1 +1 @@
-Subproject commit f6477177f7a4b335decea379b147981a8ee58a19
+Subproject commit a8afcf68216a67325138e09f8678e2c2d5d0e599

[elpa] externals/boxy-headings 698432b831 2/2: Updated contact details

[ELPA Syncer]

branch: externals/boxy-headings
commit 698432b8310bf29bae883a738de542bc5838f25d
Author: Amy Grinn 
Commit: Amy Grinn 

Updated contact details
---
 boxy-headings.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/boxy-headings.el b/boxy-headings.el
index 762e8f000b..aa3edb3705 100644
--- a/boxy-headings.el
+++ b/boxy-headings.el
@@ -1,8 +1,8 @@
 ;;; boxy-headings.el --- View org files in a boxy diagram -*- lexical-binding: 
t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 ;; Version: 2.1.4
 ;; File: boxy-headings.el
 ;; Package-Requires: ((emacs "26.1") (boxy "1.1") (org "9.4"))

[elpa] externals/org-real 48ecf592ee 3/5: Updated dependencies

[ELPA Syncer]

branch: externals/org-real
commit 48ecf592eed22f4eb5d1b534882ff36b6db0c665
Author: Amy Grinn 
Commit: Amy Grinn 

Updated dependencies
---
 deps/boxy   | 2 +-
 org-real.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/deps/boxy b/deps/boxy
index f6477177f7..6567d846a0 16
--- a/deps/boxy
+++ b/deps/boxy
@@ -1 +1 @@
-Subproject commit f6477177f7a4b335decea379b147981a8ee58a19
+Subproject commit 6567d846a06cdc75da8e88a5a961172cb3f77519
diff --git a/org-real.el b/org-real.el
index c4a8d516f8..1d094df937 100644
--- a/org-real.el
+++ b/org-real.el
@@ -5,7 +5,7 @@
 ;; Author: Amy Grinn 
 ;; Version: 1.0.6
 ;; File: org-real.el
-;; Package-Requires: ((emacs "26.1") (boxy "1.0") (org "9.3"))
+;; Package-Requires: ((emacs "26.1") (boxy "1.1") (org "9.3"))
 ;; Keywords: tools
 ;; URL: https://gitlab.com/tygrdev/org-real
 

[elpa] externals/org-real f88f005fc9 5/5: Updated version

[ELPA Syncer]

branch: externals/org-real
commit f88f005fc9527fb318ec802d7bb31aadf0c71c26
Author: Amy Grinn 
Commit: Amy Grinn 

Updated version
---
 org-real.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-real.el b/org-real.el
index 1d094df937..fc68a7879b 100644
--- a/org-real.el
+++ b/org-real.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
 ;; Author: Amy Grinn 
-;; Version: 1.0.6
+;; Version: 1.0.7
 ;; File: org-real.el
 ;; Package-Requires: ((emacs "26.1") (boxy "1.1") (org "9.3"))
 ;; Keywords: tools

[elpa] externals/org-real 22562394a6 4/5: Remove package linter

[ELPA Syncer]

branch: externals/org-real
commit 22562394a6f2fe066cf4ce55a4fa064377310989
Author: Amy Grinn 
Commit: Amy Grinn 

Remove package linter
---
 .gitlab-ci.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml
index 50d886adb6..bd6bf666c7 100644
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -11,7 +11,7 @@ package:
 - curl -fsSL https://raw.github.com/doublep/eldev/master/webinstall/eldev 
| sh
 - export PATH=$PATH:/root/.local/bin
   script:
-- eldev lint
+- eldev lint doc re
 - eldev compile -W
 - eldev test
 - eldev package

[elpa] externals/org-real updated (27ea5d8b9b -> f88f005fc9)

[ELPA Syncer]

elpasync pushed a change to branch externals/org-real.

  from  27ea5d8b9b Updated dependencies
   new  93642c9065 Remove org autoload
   new  d1be2c1256 Updated contact details
   new  48ecf592ee Updated dependencies
   new  22562394a6 Remove package linter
   new  f88f005fc9 Updated version


Summary of changes:
 .gitlab-ci.yml |  2 +-
 deps/boxy  |  2 +-
 org-real.el| 16 
 3 files changed, 10 insertions(+), 10 deletions(-)

[elpa] externals/org-real 93642c9065 1/5: Remove org autoload

[ELPA Syncer]

branch: externals/org-real
commit 93642c906509ad71e96875290513d4a0adf7d0f0
Author: Amy Grinn 
Commit: Amy Grinn 

Remove org autoload

Contributed by Stefan Monnier 
---
 org-real.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-real.el b/org-real.el
index 35604ed7f1..9c45d0e0d8 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1,6 +1,6 @@
 ;;; org-real.el --- Keep track of real things as org-mode links -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
 ;; Author: Taylor Grinn 
 ;; Version: 1.0.6
@@ -49,7 +49,6 @@
 
  Requirements
 
-;;;###autoload
 (require 'ol)
 
 (require 'boxy)
@@ -333,9 +332,10 @@ diagram."
  `org-insert-link' configuration
 
 ;;;###autoload
-(org-link-set-parameters "real"
- :follow #'org-real-follow
- :complete #'org-real-complete)
+(with-eval-after-load 'ol
+  (org-link-set-parameters "real"
+   :follow #'org-real-follow
+   :complete #'org-real-complete))
 
 ;;;###autoload
 (defun org-real-follow (url &rest _)

[elpa] externals/org-real d1be2c1256 2/5: Updated contact details

[ELPA Syncer]

branch: externals/org-real
commit d1be2c1256441d784d9293edfa2b6c6fdf55fc19
Author: Amy Grinn 
Commit: Amy Grinn 

Updated contact details
---
 org-real.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-real.el b/org-real.el
index 9c45d0e0d8..c4a8d516f8 100644
--- a/org-real.el
+++ b/org-real.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
-;; Author: Taylor Grinn 
+;; Author: Amy Grinn 
 ;; Version: 1.0.6
 ;; File: org-real.el
 ;; Package-Requires: ((emacs "26.1") (boxy "1.0") (org "9.3"))

[nongnu] elpa/cider e650b60dc6 2/4: Adapt `cider--inspector-java-headers` to the changes introduced in Orchard

[ELPA Syncer]

branch: elpa/cider
commit e650b60dc67bfc6cb3b1f2b77490af064a19e1d7
Author: vemv 
Commit: vemv 

Adapt `cider--inspector-java-headers` to the changes introduced in Orchard

See https://github.com/clojure-emacs/orchard/pull/197
---
 cider-inspector.el | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/cider-inspector.el b/cider-inspector.el
index 4952e75b06..ffe0b484dc 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -436,7 +436,13 @@ MAX-COLL-SIZE if non nil."
 (cider-inspector-render-el* el)))
 
 (defconst cider--inspector-java-headers
-  '("--- Interfaces:" "--- Constructors:" "--- Fields:" "--- Methods:" "--- 
Imports:"))
+  ;; NOTE "--- Static fields:" "--- Instance fields:" are for objects,
+  ;; and don't deserve Java syntax highlighting (they can contain a Clojure 
value like `:foo/bar`, for instance)
+  '("--- Interfaces:"
+"--- Fields:" ;; rendered only for Class objects (and not other objects) - 
see previous comment
+"--- Constructors:"
+"--- Methods:"
+"--- Imports:"))
 
 (defun cider-inspector-render-el* (el)
   "Render EL."

[nongnu] elpa/cider updated (ded24d8929 -> 1203129ba2)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  ded24d8929 Inspector: render Java items using `java-mode` syntax 
coloring (#3547)
   new  896edd277e Use cider-nrepl 0.41.0
   new  e650b60dc6 Adapt `cider--inspector-java-headers` to the changes 
introduced in Orchard
   new  12ac771447 Inspector: don't render non-inspectable values
   new  1203129ba2 Inspector: Introduce jump to previous/next sibling 
commands


Summary of changes:
 CHANGELOG.md   |  6 +++
 cider-inspector.el | 52 +++---
 cider.el   |  2 +-
 dev/docker-sample-project/project.clj  |  2 +-
 dev/tramp-sample-project/project.clj   |  2 +-
 .../ROOT/pages/basics/middleware_setup.adoc| 10 ++---
 doc/modules/ROOT/pages/basics/up_and_running.adoc  |  4 +-
 doc/modules/ROOT/pages/cljs/shadow-cljs.adoc   |  2 +-
 doc/modules/ROOT/pages/debugging/inspector.adoc| 23 +-
 test/cider-tests.el| 44 +-
 10 files changed, 107 insertions(+), 40 deletions(-)

[nongnu] elpa/cider 12ac771447 3/4: Inspector: don't render non-inspectable values

[ELPA Syncer]

branch: elpa/cider
commit 12ac77144735d7535c68287e8dabb49d092f2798
Author: vemv 
Commit: vemv 

Inspector: don't render non-inspectable values

Those are conveyed by Orchard/cider-nrepl for representing values that 
cannot be inspected (i.e. private, inaccessible fields).

See https://github.com/clojure-emacs/orchard/pull/197

Fixes https://github.com/clojure-emacs/cider/issues/3542
---
 cider-inspector.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/cider-inspector.el b/cider-inspector.el
index ffe0b484dc..ef538faa6e 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -456,9 +456,12 @@ MAX-COLL-SIZE if non nil."
 (cond ((symbolp el) (insert (symbol-name el)))
   ((stringp el) (insert (if cider-inspector-looking-at-java-p
 (cider-font-lock-as 'java-mode el)
-  (propertize el 'font-lock-face (if header-p
- 
'font-lock-comment-face
-   
'font-lock-keyword-face)
+  (let ((trimmed-el (replace-regexp-in-string 
(regexp-quote "")
+  
""
+  
el)))
+(propertize trimmed-el 'font-lock-face (if 
header-p
+   
'font-lock-comment-face
+ 
'font-lock-keyword-face))
   ((and (consp el) (eq (car el) :newline))
(insert "\n"))
   ((and (consp el) (eq (car el) :value))

[nongnu] elpa/cider 896edd277e 1/4: Use cider-nrepl 0.41.0

[ELPA Syncer]

branch: elpa/cider
commit 896edd277ec6a2f668578a05a97584a8a59b4f45
Author: vemv 
Commit: vemv 

Use cider-nrepl 0.41.0

Fixes https://github.com/clojure-emacs/cider/issues/3528
---
 CHANGELOG.md   |  2 +
 cider.el   |  2 +-
 dev/docker-sample-project/project.clj  |  2 +-
 dev/tramp-sample-project/project.clj   |  2 +-
 .../ROOT/pages/basics/middleware_setup.adoc| 10 ++---
 doc/modules/ROOT/pages/basics/up_and_running.adoc  |  4 +-
 doc/modules/ROOT/pages/cljs/shadow-cljs.adoc   |  2 +-
 test/cider-tests.el| 44 +++---
 8 files changed, 35 insertions(+), 33 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ebb5569a76..ecbb5cb992 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,6 +5,8 @@
 ### Changes
 
 - [#3546](https://github.com/clojure-emacs/cider/issues/3546): Inspector: 
render Java items using `java-mode` syntax coloring.
+- [#3528](https://github.com/clojure-emacs/cider/issues/3528): Bump the 
injected `cider-nrepl` to 
[0.41.0](https://github.com/clojure-emacs/cider-nrepl/blob/v0.41.0/CHANGELOG.md#0410-2023-10-24).
+  - Updates 
[Orchard](https://github.com/clojure-emacs/orchard/blob/v0.17.0/CHANGELOG.md#0170-2023-10-24),
 providing misc presentational improvements for the CIDER Inspector.
 
 ### Bugs fixed
 
diff --git a/cider.el b/cider.el
index 8346e31893..a89f4f6020 100644
--- a/cider.el
+++ b/cider.el
@@ -527,7 +527,7 @@ the artifact.")
 (defconst cider-latest-clojure-version "1.10.1"
   "Latest supported version of Clojure.")
 
-(defconst cider-required-middleware-version "0.40.0"
+(defconst cider-required-middleware-version "0.41.0"
   "The CIDER nREPL version that's known to work properly with CIDER.")
 
 (defcustom cider-injected-middleware-version cider-required-middleware-version
diff --git a/dev/docker-sample-project/project.clj 
b/dev/docker-sample-project/project.clj
index c162f3b960..a9c3d935f6 100644
--- a/dev/docker-sample-project/project.clj
+++ b/dev/docker-sample-project/project.clj
@@ -2,4 +2,4 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.40.0"]])
+  :plugins [[cider/cider-nrepl "0.41.0"]])
diff --git a/dev/tramp-sample-project/project.clj 
b/dev/tramp-sample-project/project.clj
index 9ad7a681f1..53438176df 100644
--- a/dev/tramp-sample-project/project.clj
+++ b/dev/tramp-sample-project/project.clj
@@ -2,5 +2,5 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.40.0"]
+  :plugins [[cider/cider-nrepl "0.41.0"]
 [refactor-nrepl "3.9.0"]])
diff --git a/doc/modules/ROOT/pages/basics/middleware_setup.adoc 
b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
index cc986b46c6..852ab48a85 100644
--- a/doc/modules/ROOT/pages/basics/middleware_setup.adoc
+++ b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
@@ -32,14 +32,14 @@ Use the convenient plugin for defaults, either in your 
project's
 
 [source,clojure]
 
-:plugins [[cider/cider-nrepl "0.40.0"]]
+:plugins [[cider/cider-nrepl "0.41.0"]]
 
 
 A minimal `profiles.clj` for CIDER would be:
 
 [source,clojure]
 
-{:repl {:plugins [[cider/cider-nrepl "0.40.0"]]}}
+{:repl {:plugins [[cider/cider-nrepl "0.41.0"]]}}
 
 
 WARNING: Be careful not to place this in the `:user` profile, as this way 
CIDER's
@@ -59,7 +59,7 @@ all of their projects using a `~/.boot/profile.boot` file 
like so:
 (require 'boot.repl)
 
 (swap! boot.repl/*default-dependencies*
-   concat '[[cider/cider-nrepl "0.40.0"]])
+   concat '[[cider/cider-nrepl "0.41.0"]])
 
 (swap! boot.repl/*default-middleware*
conj 'cider.nrepl/cider-middleware)
@@ -76,11 +76,11 @@ run `cider-connect` or `cider-connect-cljs`.
 
 [source,clojure]
 
-  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.40.0"}}
+  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.41.0"}}
   :main-opts ["-m" "nrepl.cmdline" "--middleware" 
"[cider.nrepl/cider-middleware]"]}
 
   :cider-cljs {:extra-deps {org.clojure/clojurescript {:mvn/version "1.10.339"}
-cider/cider-nrepl {:mvn/version "0.40.0"}
+cider/cider-nrepl {:mvn/version "0.41.0"}
 cider/piggieback {:mvn/version "0.5.3"}}
:main-opts ["-m" "nrepl.cmdline" "--middleware"

"[cider.nrepl/cider-middleware,cider.piggieback/wrap-cljs-repl]"]}
diff --git a/doc/modules/ROOT/pages/basics/up_and_running.adoc 
b/doc/modules/ROOT/pages/basics/up_and_running.adoc
index 4cabb1c4ad..75e0981bdd 100644
--- a/doc/modules/ROOT/pages/basics/up_and_running.adoc
+++ b/doc/modules/ROOT/pages/basics/up_and_running.adoc
@@ -67,7 +67,7 @@ simple - CIDER simply passes the extra dependenci

[nongnu] elpa/cider 1203129ba2 4/4: Inspector: Introduce jump to previous/next sibling commands

[ELPA Syncer]

branch: elpa/cider
commit 1203129ba24aaa85b54914eebc96daf896229b22
Author: vemv 
Commit: vemv 

Inspector: Introduce jump to previous/next sibling commands

Fixes https://github.com/clojure-emacs/cider/issues/3529
---
 CHANGELOG.md|  4 +++
 cider-inspector.el  | 35 -
 doc/modules/ROOT/pages/debugging/inspector.adoc | 23 ++--
 3 files changed, 59 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ecbb5cb992..dbf1dfe035 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,10 @@
 
 ## master (unreleased)
 
+### New features
+
+- [#3529](https://github.com/clojure-emacs/cider/issues/3529): CIDER 
inspector: introduce `cider-inspector-previous-sibling`, 
`cider-inspector-next-sibling` commands 
([doc](https://docs.cider.mx/cider/debugging/inspector.html#usage)).
+
 ### Changes
 
 - [#3546](https://github.com/clojure-emacs/cider/issues/3546): Inspector: 
render Java items using `java-mode` syntax coloring.
diff --git a/cider-inspector.el b/cider-inspector.el
index ef538faa6e..fedca2e496 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -113,6 +113,8 @@ by clicking or navigating to them by other means."
 (define-key map "p" #'cider-inspector-previous-inspectable-object)
 (define-key map "f" #'forward-char)
 (define-key map "b" #'backward-char)
+(define-key map "9" #'cider-inspector-previous-sibling)
+(define-key map "0" #'cider-inspector-next-sibling)
 ;; Emacs translates S-TAB to BACKTAB on X.
 (define-key map [backtab] #'cider-inspector-previous-inspectable-object)
 (easy-menu-define cider-inspector-mode-menu map
@@ -223,8 +225,27 @@ See `cider-sync-request:inspect-pop' and 
`cider-inspector--render-value'."
 (defun cider-inspector-push (idx)
   "Inspect the value at IDX in the inspector stack and render it.
 See `cider-sync-request:inspect-push' and `cider-inspector--render-value'"
-  (push (point) cider-inspector-location-stack)
+  (interactive)
   (when-let* ((value (cider-sync-request:inspect-push idx)))
+(push (point) cider-inspector-location-stack)
+(cider-inspector--render-value value)
+(cider-inspector-next-inspectable-object 1)))
+
+(defun cider-inspector-previous-sibling ()
+  "Inspect the previous sibling value within a sequential parent.
+See `cider-sync-request:inspect-previous-sibling' and 
`cider-inspector--render-value'"
+  (interactive)
+  (when-let* ((value (cider-sync-request:inspect-previous-sibling)))
+(push (point) cider-inspector-location-stack)
+(cider-inspector--render-value value)
+(cider-inspector-next-inspectable-object 1)))
+
+(defun cider-inspector-next-sibling ()
+  "Inspect the next sibling value within a sequential parent.
+See `cider-sync-request:inspect-next-sibling' and 
`cider-inspector--render-value'"
+  (interactive)
+  (when-let* ((value (cider-sync-request:inspect-next-sibling)))
+(push (point) cider-inspector-location-stack)
 (cider-inspector--render-value value)
 (cider-inspector-next-inspectable-object 1)))
 
@@ -321,6 +342,18 @@ current-namespace."
 (cider-nrepl-send-sync-request cider-inspector--current-repl)
 (nrepl-dict-get "value")))
 
+(defun cider-sync-request:inspect-previous-sibling ()
+  "Inspect the previous sibling value within a sequential parent."
+  (thread-first `("op" "inspect-previous-sibling")
+(cider-nrepl-send-sync-request cider-inspector--current-repl)
+(nrepl-dict-get "value")))
+
+(defun cider-sync-request:inspect-next-sibling ()
+  "Inspect the next sibling value within a sequential parent."
+  (thread-first `("op" "inspect-next-sibling")
+(cider-nrepl-send-sync-request cider-inspector--current-repl)
+(nrepl-dict-get "value")))
+
 (defun cider-sync-request:inspect-refresh ()
   "Re-render the currently inspected value."
   (thread-first '("op" "inspect-refresh")
diff --git a/doc/modules/ROOT/pages/debugging/inspector.adoc 
b/doc/modules/ROOT/pages/debugging/inspector.adoc
index 3a6509afa2..400e22d4e1 100644
--- a/doc/modules/ROOT/pages/debugging/inspector.adoc
+++ b/doc/modules/ROOT/pages/debugging/inspector.adoc
@@ -26,40 +26,59 @@ You'll have access to additional keybindings in the 
inspector buffer
 (which is internally using `cider-inspector-mode`):
 
 |===
-| Keyboard shortcut | Description
+| Keyboard shortcut | Command | Description
 
-| kbd:[Tab] and kbd:[Shift-Tab] / kdb:[n] and kbd:[p]
+| kbd:[Tab] and kbd:[Shift-Tab] / kbd:[n] and kbd:[p]
+| `cider-inspector-next-inspectable-object`
 | Navigate inspectable sub-objects
 
 | kbd:[f] and kbd:[b]
+| `forward-char`, `backward-char`
 | Navigate across characters on a line
 
 | kbd:[Return]
+| `cider-inspector-operate-on-point`
 | Inspect sub-objects
 
 | kbd:[l]
+| `cider-inspector-pop`
 | Pop to the parent object
 
 | kbd:[g]
+| `cider-inspector-refresh`
 | Refresh the inspecto

[elpa] externals/transient fb191f8cf3 08/20: Optionally refresh suffixes and keymaps after every command

[Jonas Bernoulli via]

branch: externals/transient
commit fb191f8cf369a741a26d40456ca7291fda4ff3cc
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Optionally refresh suffixes and keymaps after every command

Closes #157.
---
 docs/transient.org  | 11 +++
 docs/transient.texi | 12 
 lisp/transient.el   | 29 -
 3 files changed, 47 insertions(+), 5 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 1228f853a4..e034e0fb33 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -1746,6 +1746,13 @@ functions use ~describe-function~.
   remains active/transient when a suffix or arbitrary non-suffix
   command is invoked.  See [[*Transient State]].
 
+- ~refresh-suffixes~ Normally suffix objects and keymaps are only setup
+  once, when the prefix is invoked.  Setting this to ~t~, causes them to
+  be recreated after every command.  This is useful when using ~:if...~
+  predicates, and those need to be rerun for some reason.  Doing this
+  is somewhat costly, and there is a risk of losing state, so this is
+  disabled by default and still considered experimental.
+
 - ~incompatible~ A list of lists.  Each sub-list specifies a set of
   mutually exclusive arguments.  Enabling one of these arguments
   causes the others to be disabled.  An argument may appear in
@@ -1919,6 +1926,10 @@ what happens if you use more than one.
 - ~if-derived~ Enable if major-mode derives from value.
 - ~if-not-derived~ Enable if major-mode does not derive from value.
 
+By default these predicates run when the prefix command is invoked,
+but this can be changes, using the ~refresh-suffixes~ prefix slot.
+See [[*Prefix Slots]].
+
 One more slot is shared between group and suffix classes, ~level~.  Like
 the slots documented above, it is a predicate, but it is used for a
 different purpose.  The value has to be an integer between 1
diff --git a/docs/transient.texi b/docs/transient.texi
index 637c5d1e3d..f2dcb14c91 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -1990,6 +1990,14 @@ determining whether the currently active transient 
prefix command
 remains active/transient when a suffix or arbitrary non-suffix
 command is invoked.  See @ref{Transient State}.
 
+@item
+@code{refresh-suffixes} Normally suffix objects and keymaps are only setup
+once, when the prefix is invoked.  Setting this to @code{t}, causes them to
+be recreated after every command.  This is useful when using @code{:if...}
+predicates, and those need to be rerun for some reason.  Doing this
+is somewhat costly, and there is a risk of losing state, so this is
+disabled by default and still considered experimental.
+
 @item
 @code{incompatible} A list of lists.  Each sub-list specifies a set of
 mutually exclusive arguments.  Enabling one of these arguments
@@ -2212,6 +2220,10 @@ what happens if you use more than one.
 @code{if-not-derived} Enable if major-mode does not derive from value.
 @end itemize
 
+By default these predicates run when the prefix command is invoked,
+but this can be changes, using the @code{refresh-suffixes} prefix slot.
+See @ref{Prefix Slots}.
+
 One more slot is shared between group and suffix classes, @code{level}.  Like
 the slots documented above, it is a predicate, but it is used for a
 different purpose.  The value has to be an integer between 1
diff --git a/lisp/transient.el b/lisp/transient.el
index 6d7abea42e..4542f2bf5e 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -634,6 +634,7 @@ If `transient-save-history' is nil, then do nothing."
(man-page:initarg :man-page:initform nil)
(transient-suffix :initarg :transient-suffix :initform nil)
(transient-non-suffix :initarg :transient-non-suffix :initform nil)
+   (refresh-suffixes :initarg :refresh-suffixes :initform nil)
(incompatible :initarg :incompatible :initform nil)
(suffix-description   :initarg :suffix-description)
(variable-pitch   :initarg :variable-pitch   :initform nil)
@@ -1811,10 +1812,8 @@ EDIT may be non-nil."
   ;; Returning from help to edit.
   (setq transient--editp t)))
 (transient--init-objects name layout params)
+(transient--init-keymaps)
 (transient--history-init transient--prefix)
-(setq transient--predicate-map (transient--make-predicate-map))
-(setq transient--transient-map (transient--make-transient-map))
-(setq transient--redisplay-map (transient--make-redisplay-map))
 (setq transient--original-window (selected-window))
 (setq transient--original-buffer (current-buffer))
 (setq transient--minibuffer-depth (minibuffer-depth))
@@ -1831,8 +1830,15 @@ value.  Otherwise return CHILDREN as is."
   (funcall (oref group setup-children) children)
 children))
 
-(defun transient--init-objects (name layout params)
-  (setq transient--prefix (transient--init-prefix name params))
+(defun transient--init-keymaps ()
+  (setq transient--predicate-map (transient--make-pre

[elpa] externals/transient 3e43f1fd90 04/20: transient--pixel-width: Move definition

[Jonas Bernoulli via]

branch: externals/transient
commit 3e43f1fd90c2c4d2e752481f3955d3699b6f65a7
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--pixel-width: Move definition
---
 lisp/transient.el | 18 +-
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 4f04cb958f..e771e7e7ce 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3416,15 +3416,6 @@ have a history of their own.")
 (when (= c (1- cs))
   (insert ?\n
 
-(defun transient--pixel-width (string)
-  (save-window-excursion
-(with-temp-buffer
-  (insert string)
-  (set-window-dedicated-p nil nil)
-  (set-window-buffer nil (current-buffer))
-  (car (window-text-pixel-size
-nil (line-beginning-position) (point))
-
 (cl-defmethod transient--insert-group ((group transient-subgroups))
   (let* ((subgroups (oref group suffixes))
  (n (length subgroups)))
@@ -3674,6 +3665,15 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
 (oset suffix key
   (truncate-string-to-width (oref suffix key) width nil ?\s))
 
+(defun transient--pixel-width (string)
+  (save-window-excursion
+(with-temp-buffer
+  (insert string)
+  (set-window-dedicated-p nil nil)
+  (set-window-buffer nil (current-buffer))
+  (car (window-text-pixel-size
+nil (line-beginning-position) (point))
+
 (defun transient-command-summary-or-name (obj)
   "Return the summary or name of the command represented by OBJ.
 

[elpa] externals/transient updated (04f87b4ab3 -> 4f67a033fd)

[Jonas Bernoulli via]

tarsius pushed a change to branch externals/transient.

  from  04f87b4ab3 transient-{set,save}-and-exit: New commands
   new  dd7ed3869b Indent code blocks in docstrings consistently
   new  d3e735f2d0 transient--post-command: Fix typo in docstring
   new  8b988fc4bd Use the other variant of the and-let* kludge
   new  3e43f1fd90 transient--pixel-width: Move definition
   new  a19c0bda1d transient--window: Tweak docstring
   new  a80307c7ce transient--current-buffer: New variable
   new  0717589a62 transient--pending-suffix: New variable
   new  fb191f8cf3 Optionally refresh suffixes and keymaps after every 
command
   new  aee5f23447 Improve docstrings
   new  c63558aaa9 transient--delete-window: Shorten long line
   new  a81eff942b transient-font-lock-keywords: Remove 
transient-define-groups
   new  777d95e86d transient-set-level: Cosmetics
   new  49a61fb905 Support setting per-suffix level for duplicated commands
   new  c2a75880ae transient-suffix: Add FACE slot
   new  f8209cc8f4 transient--maybe-pad-keys: Ignore raw strings
   new  2776dbc07c transient--flatten-suffixes: Cosmetics
   new  70e8dc80b2 transient--pending-group: New variable
   new  ae4ac656b1 transient-group: Always bind PAD-KEYS slot
   new  ae5aba367c transient--maybe-pad-keys: Delay actually padding
   new  4f67a033fd Support display-only information in place of a suffix


Summary of changes:
 docs/transient.org  |  32 ++
 docs/transient.texi |  35 +++
 lisp/transient.el   | 279 
 3 files changed, 239 insertions(+), 107 deletions(-)

[elpa] externals/transient 8b988fc4bd 03/20: Use the other variant of the and-let* kludge

[Jonas Bernoulli via]

branch: externals/transient
commit 8b988fc4bd9031f25964b09853277c325703b504
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use the other variant of the and-let* kludge
---
 lisp/transient.el | 28 ++--
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f860aea16b..4f04cb958f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1477,12 +1477,12 @@ probably use this instead:
(listify-key-sequence (this-command-keys
   suffixes))
 (car suffixes)))
-(when-let* ((obj (get (or command this-command) 'transient--suffix))
-(obj (clone obj)))
-  ;; Cannot use and-let* because of debbugs#31840.
-  (transient-init-scope obj)
-  (transient-init-value obj)
-  obj)))
+(and-let* ((obj (get (or command this-command) 'transient--suffix))
+   (obj (clone obj)))
+  (progn ; work around debbugs#31840
+(transient-init-scope obj)
+(transient-init-value obj)
+obj
 
 ;;; Keymaps
 
@@ -1865,14 +1865,14 @@ value.  Otherwise return CHILDREN as is."
 
 (defun transient--init-group (levels spec)
   (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
-(when-let* ((- (transient--use-level-p level))
-(obj (apply class :level level args))
-(- (transient--use-suffix-p obj))
-(suffixes (cl-mapcan (lambda (c) (transient--init-child levels 
c))
- (transient-setup-children obj children
-  ;; Cannot use and-let* because of debbugs#31840.
-  (oset obj suffixes suffixes)
-  (list obj
+(and-let* ((- (transient--use-level-p level))
+   (obj (apply class :level level args))
+   (- (transient--use-suffix-p obj))
+   (suffixes (cl-mapcan (lambda (c) (transient--init-child levels 
c))
+(transient-setup-children obj children
+  (progn ; work around debbugs#31840
+(oset obj suffixes suffixes)
+(list obj)
 
 (defun transient--init-suffix (levels spec)
   (pcase-let* ((`(,level ,class ,args) spec)

[elpa] externals/transient c2a75880ae 14/20: transient-suffix: Add FACE slot

[Jonas Bernoulli via]

branch: externals/transient
commit c2a75880ae7cc9f11963cc8b4f9b7ff63b7f5883
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-suffix: Add FACE slot
---
 docs/transient.org  |  4 
 docs/transient.texi |  5 +
 lisp/transient.el   | 13 +
 3 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index e034e0fb33..8351af28bd 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -1819,6 +1819,10 @@ Also see [[*Suffix Classes]].
 - ~description~ The description, either a string or a function that is
   called with no argument and returns a string.
 
+- ~face~ Face used for the description.  In simple cases it is easier
+  to use this instead of using a function as ~description~ and adding
+  the styling there.  ~face~ is appended using ~add-face-text-property~.
+
 - ~show-help~ A function used to display help for the suffix.  If
   unspecified, the prefix controls how help is displayed for its
   suffixes.
diff --git a/docs/transient.texi b/docs/transient.texi
index f2dcb14c91..c20f56d799 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -2081,6 +2081,11 @@ It must contain the following %-placeholders:
 @code{description} The description, either a string or a function that is
 called with no argument and returns a string.
 
+@item
+@code{face} Face used for the description.  In simple cases it is easier
+to use this instead of using a function as @code{description} and adding
+the styling there.  @code{face} is appended using 
@code{add-face-text-property}.
+
 @item
 @code{show-help} A function used to display help for the suffix.  If
 unspecified, the prefix controls how help is displayed for its
diff --git a/lisp/transient.el b/lisp/transient.el
index d446b43551..dfb738f7ad 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -700,6 +700,7 @@ slot is non-nil."
(transient   :initarg :transient)
(format  :initarg :format  :initform " %k %d")
(description :initarg :description :initform nil)
+   (face:initarg :face:initform nil)
(show-help   :initarg :show-help   :initform nil)
(inapt :initform nil)
(inapt-if
@@ -3605,10 +3606,14 @@ Optional support for popup buttons is also implemented 
here."
   "The `description' slot may be a function, in which case that is
 called inside the correct buffer (see `transient--insert-group')
 and its value is returned to the caller."
-  (and-let* ((desc (oref obj description)))
-(if (functionp desc)
-(with-current-buffer transient--original-buffer
-  (funcall desc))
+  (and-let* ((desc (oref obj description))
+ (desc (if (functionp desc)
+   (with-current-buffer transient--original-buffer
+ (funcall desc))
+ desc)))
+(progn ; work around debbugs#31840
+  (when-let ((face (and (slot-exists-p obj 'face) (oref obj face
+(add-face-text-property 0 (length desc) face t desc))
   desc)))
 
 (cl-defmethod transient-format-description ((obj transient-group))

[elpa] externals/transient ae5aba367c 19/20: transient--maybe-pad-keys: Delay actually padding

[Jonas Bernoulli via]

branch: externals/transient
commit ae5aba367c3ff83d2457e725781290b6810b4e1a
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--maybe-pad-keys: Delay actually padding
---
 lisp/transient.el | 19 +--
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e87d145230..83ddefaf6d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3550,6 +3550,8 @@ Optional support for popup buttons is also implemented 
here."
   "Format OBJ's `key' for display and return the result."
   (let ((key (oref obj key))
 (cmd (oref obj command)))
+(when-let ((width (oref transient--pending-group pad-keys)))
+  (setq key (truncate-string-to-width key width nil ?\s)))
 (if transient--redisplay-key
 (let ((len (length transient--redisplay-key))
   (seq (cl-coerce (edmacro-parse-keys key t) 'list)))
@@ -3706,16 +3708,13 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
 (defun transient--maybe-pad-keys (group &optional parent)
   (when-let ((pad (or (oref group pad-keys)
   (and parent (oref parent pad-keys)
-(let ((width (apply #'max
-(cons (if (integerp pad) pad 0)
-  (seq-keep (lambda (suffix)
-  (and (not (stringp suffix))
-   (length (oref suffix key
-(oref group suffixes))
-  (dolist (suffix (oref group suffixes))
-(unless (stringp suffix)
-  (oset suffix key
-(truncate-string-to-width (oref suffix key) width nil 
?\s)))
+(oset group pad-keys
+  (apply #'max (cons (if (integerp pad) pad 0)
+ (seq-keep (lambda (suffix)
+ (and (eieio-object-p suffix)
+  (slot-boundp suffix 'key)
+  (length (oref suffix key
+   (oref group suffixes)))
 
 (defun transient--pixel-width (string)
   (save-window-excursion

[elpa] externals/transient 2776dbc07c 16/20: transient--flatten-suffixes: Cosmetics

[Jonas Bernoulli via]

branch: externals/transient
commit 2776dbc07c4b9afd6673e6145df2a5030dd897ea
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--flatten-suffixes: Cosmetics
---
 lisp/transient.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e712e2fac1..dc1f9b79dc 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1868,9 +1868,9 @@ value.  Otherwise return CHILDREN as is."
 (cond
  ((stringp def) nil)
  ((listp def) (cl-mapcan #'s def))
- ((transient-group--eieio-childp def)
+ ((cl-typep def 'transient-group)
   (cl-mapcan #'s (oref def suffixes)))
- ((transient-suffix--eieio-childp def)
+ ((cl-typep def 'transient-suffix)
   (list def)
 (cl-mapcan #'s layout)))
 

[elpa] externals/transient 70e8dc80b2 17/20: transient--pending-group: New variable

[Jonas Bernoulli via]

branch: externals/transient
commit 70e8dc80b293707166ae95e916aea8c0293c837e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--pending-group: New variable

Doing like this has the drawback that primary methods cannot
use this variable to access their group's respective parent.
---
 lisp/transient.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index dc1f9b79dc..cf5f9e3658 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1416,6 +1416,10 @@ drawing in the transient buffer.")
   "The suffix that is currently being processed.
 This is bound while the suffix predicate is being evaluated.")
 
+(defvar transient--pending-group nil
+  "The group that is currently being processed.
+This is bound while the suffixes are drawn in the transient buffer.")
+
 (defvar transient--debug nil
   "Whether to put debug information into *Messages*.")
 
@@ -3394,7 +3398,8 @@ have a history of their own.")
   (when-let ((desc (transient-format-description group)))
 (insert desc ?\n))
   (let ((transient--max-group-level
- (max (oref group level) transient--max-group-level)))
+ (max (oref group level) transient--max-group-level))
+(transient--pending-group group))
 (cl-call-next-method group)))
 
 (cl-defmethod transient--insert-group ((group transient-row))

[elpa] externals/transient a80307c7ce 06/20: transient--current-buffer: New variable

[Jonas Bernoulli via]

branch: externals/transient
commit a80307c7ceb645ef9f9f29650ca5bf1f9e708c5b
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--current-buffer: New variable
---
 lisp/transient.el | 50 +-
 1 file changed, 29 insertions(+), 21 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 273060f760..1b87c615a9 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1405,6 +1405,11 @@ Usually it remains selected while the transient is 
active.")
   "The buffer that was current before the transient was invoked.
 Usually it remains current while the transient is active.")
 
+(defvar transient--current-buffer nil
+  "The buffer that is temporarily shadowed by the transient buffer.
+This is bound while the suffix predicate is being evaluated and while
+drawing in the transient buffer.")
+
 (defvar transient--debug nil "Whether put debug information into *Messages*.")
 
 (defvar transient--history nil)
@@ -1927,28 +1932,30 @@ value.  Otherwise return CHILDREN as is."
(<= level (oref transient--prefix level)
 
 (defun transient--use-suffix-p (obj)
-  (transient--do-suffix-p
-   (oref obj if)
-   (oref obj if-not)
-   (oref obj if-nil)
-   (oref obj if-non-nil)
-   (oref obj if-mode)
-   (oref obj if-not-mode)
-   (oref obj if-derived)
-   (oref obj if-not-derived)
-   t))
+  (let ((transient--current-buffer (current-buffer)))
+(transient--do-suffix-p
+ (oref obj if)
+ (oref obj if-not)
+ (oref obj if-nil)
+ (oref obj if-non-nil)
+ (oref obj if-mode)
+ (oref obj if-not-mode)
+ (oref obj if-derived)
+ (oref obj if-not-derived)
+ t)))
 
 (defun transient--inapt-suffix-p (obj)
-  (transient--do-suffix-p
-   (oref obj inapt-if)
-   (oref obj inapt-if-not)
-   (oref obj inapt-if-nil)
-   (oref obj inapt-if-non-nil)
-   (oref obj inapt-if-mode)
-   (oref obj inapt-if-not-mode)
-   (oref obj inapt-if-derived)
-   (oref obj inapt-if-not-derived)
-   nil))
+  (let ((transient--current-buffer (current-buffer)))
+(transient--do-suffix-p
+ (oref obj inapt-if)
+ (oref obj inapt-if-not)
+ (oref obj inapt-if-nil)
+ (oref obj inapt-if-non-nil)
+ (oref obj inapt-if-mode)
+ (oref obj inapt-if-not-mode)
+ (oref obj inapt-if-derived)
+ (oref obj inapt-if-not-derived)
+ nil)))
 
 (defun transient--do-suffix-p
 (if if-not if-nil if-non-nil if-mode if-not-mode if-derived if-not-derived
@@ -3270,7 +3277,8 @@ have a history of their own.")
 (defun transient--show ()
   (transient--timer-cancel)
   (setq transient--showp t)
-  (let ((buf (get-buffer-create transient--buffer-name))
+  (let ((transient--current-buffer (current-buffer))
+(buf (get-buffer-create transient--buffer-name))
 (focus nil))
 (with-current-buffer buf
   (when transient-enable-popup-navigation

[elpa] externals/transient 4f67a033fd 20/20: Support display-only information in place of a suffix

[Jonas Bernoulli via]

branch: externals/transient
commit 4f67a033fd547e8bcf6a35520c9b0df367de9ed6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Support display-only information in place of a suffix

Group headings are also display-only information and raw strings
can be used anywhere a suffix can appear, but this class makes it
possible to display arbitrary information anywhere *and* to style
it in any way one fancies.

By inheriting from `transient-suffix' (instead of `transient-child')
we avoid having to implement many new methods, but semantically this
is a bit questionable.  Leaving the `command' and `key' slots
undefined, means that we have to use `slot-boundp' in a few places,
but on the other hand that helps dealing the semantic inconsistency.

Closes #226.
---
 docs/transient.org  | 17 +
 docs/transient.texi | 18 ++
 lisp/transient.el   | 37 ++---
 3 files changed, 61 insertions(+), 11 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 8351af28bd..1ddc011e1c 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -1612,6 +1612,23 @@ object should not affect later invocations.
 - Classes used for infix commands that represent variables should
   derived from the abstract ~transient-variable~ class.
 
+- The ~transient-information~ class is special in that suffixes that use
+  this class are not associated with a command and thus also not with
+  any key binding.  Such suffixes are only used to display arbitrary
+  information, and that anywhere a suffix can appear.  Display-only
+  suffix specifications take this form:
+
+  #+begin_src emacs-lisp
+([LEVEL] :info DESCRIPTION [KEYWORD VALUE]...)
+  #+end_src
+
+  The ~:info~ keyword argument replaces the ~:description~ keyword used for
+  other suffix classes.  Other keyword arguments that you might want to
+  set, include ~:face~, predicate keywords (such as ~:if~), and ~:format~.
+  By default the value of ~:format~ includes ~%k~, which for this class is
+  replaced with the empty string or spaces, if keys are being padded in
+  the containing group.
+
 Magit defines additional classes, which can serve as examples for the
 fancy things you can do without modifying Transient.  Some of these
 classes will likely get generalized and added to Transient.  For now
diff --git a/docs/transient.texi b/docs/transient.texi
index c20f56d799..b03f540ae0 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -1841,6 +1841,24 @@ indicates that all remaining arguments are files.
 @item
 Classes used for infix commands that represent variables should
 derived from the abstract @code{transient-variable} class.
+
+@item
+The @code{transient-information} class is special in that suffixes that use
+this class are not associated with a command and thus also not with
+any key binding.  Such suffixes are only used to display arbitrary
+information, and that anywhere a suffix can appear.  Display-only
+suffix specifications take this form:
+
+@lisp
+([LEVEL] :info DESCRIPTION [KEYWORD VALUE]...)
+@end lisp
+
+The @code{:info} keyword argument replaces the @code{:description} keyword 
used for
+other suffix classes.  Other keyword arguments that you might want to
+set, include @code{:face}, predicate keywords (such as @code{:if}), and 
@code{:format}.
+By default the value of @code{:format} includes @code{%k}, which for this 
class is
+replaced with the empty string or spaces, if keys are being padded in
+the containing group.
 @end itemize
 
 Magit defines additional classes, which can serve as examples for the
diff --git a/lisp/transient.el b/lisp/transient.el
index 83ddefaf6d..142fe9ebd1 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -737,6 +737,11 @@ slot is non-nil."
 :documentation "Inapt if major-mode does not derive from value."))
   "Superclass for suffix command.")
 
+(defclass transient-information (transient-suffix)
+  ((format :initform " %k %d"))
+  "Display-only information.
+A suffix object with no associated command.")
+
 (defclass transient-infix (transient-suffix)
   ((transient :initform t)
(argument:initarg :argument)
@@ -1071,8 +1076,9 @@ example, sets a variable, use `transient-define-infix' 
instead.
  (commandp (cadr spec)))
 (setq args (plist-put args :description (macroexp-quote pop)
   (cond
+   ((eq car :info))
((keywordp car)
-(error "Need command, got `%s'" car))
+(error "Need command or `:info', got `%s'" car))
((symbolp car)
 (setq args (plist-put args :command (macroexp-quote pop
((and (commandp car)
@@ -1128,6 +1134,9 @@ example, sets a variable, use `transient-define-infix' 
instead.
   (val pop))
   (cond ((eq key :class) (setq class val))
 ((eq key :level) (setq level val))
+((eq key :info)
+ (setq class 

[elpa] externals/transient a19c0bda1d 05/20: transient--window: Tweak docstring

[Jonas Bernoulli via]

branch: externals/transient
commit a19c0bda1de6db9d22bed8b410f17336d2928447
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--window: Tweak docstring
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e771e7e7ce..273060f760 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1395,7 +1395,7 @@ variable instead.")
   "Name of the transient buffer.")
 
 (defvar transient--window nil
-  "The window used to display the transient popup.")
+  "The window used to display the transient popup buffer.")
 
 (defvar transient--original-window nil
   "The window that was selected before the transient was invoked.

[elpa] externals/transient c63558aaa9 10/20: transient--delete-window: Shorten long line

[Jonas Bernoulli via]

branch: externals/transient
commit c63558aaa96416a27a239c9b85b3517e4d1f7ac3
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--delete-window: Shorten long line

Tweak a comment while at it.
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f1d8ac6999..8b86e2ce0b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2121,8 +2121,9 @@ value.  Otherwise return CHILDREN as is."
(and (minibuffer-selected-window)
 (selected-window)))
   (buf (window-buffer transient--window)))
-  ;; Only delete the window if it never showed another buffer.
-  (unless (eq (car (window-parameter transient--window 'quit-restore)) 
'other)
+  ;; Only delete the window if it has never shown another buffer.
+  (unless (eq (car (window-parameter transient--window 'quit-restore))
+  'other)
 (with-demoted-errors "Error while exiting transient: %S"
   (delete-window transient--window)))
   (kill-buffer buf)

[elpa] externals/transient aee5f23447 09/20: Improve docstrings

[Jonas Bernoulli via]

branch: externals/transient
commit aee5f234471976482f9cc3158b18c897e4b64909
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Improve docstrings
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 4542f2bf5e..f1d8ac6999 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1380,7 +1380,7 @@ variable instead.")
 (defconst transient--exit nil "Do exit the transient.")
 
 (defvar transient--exitp nil "Whether to exit the transient.")
-(defvar transient--showp nil "Whether the transient is show in a popup 
buffer.")
+(defvar transient--showp nil "Whether to show the transient popup buffer.")
 (defvar transient--helpp nil "Whether help-mode is active.")
 (defvar transient--editp nil "Whether edit-mode is active.")
 
@@ -1415,7 +1415,8 @@ drawing in the transient buffer.")
   "The suffix that is currently being processed.
 This is bound while the suffix predicate is being evaluated.")
 
-(defvar transient--debug nil "Whether put debug information into *Messages*.")
+(defvar transient--debug nil
+  "Whether to put debug information into *Messages*.")
 
 (defvar transient--history nil)
 

[elpa] externals/transient dd7ed3869b 01/20: Indent code blocks in docstrings consistently

[Jonas Bernoulli via]

branch: externals/transient
commit dd7ed3869b935630995d98f74e70fa17be133c9a
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Indent code blocks in docstrings consistently
---
 lisp/transient.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 38b044d06f..214b65c063 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -932,11 +932,11 @@ explicitly.
 
 The function definitions is always:
 
-   (lambda ()
- (interactive)
- (let ((obj (transient-suffix-object)))
-   (transient-infix-set obj (transient-infix-read obj)))
- (transient--show))
+  (lambda ()
+(interactive)
+(let ((obj (transient-suffix-object)))
+  (transient-infix-set obj (transient-infix-read obj)))
+(transient--show))
 
 `transient-infix-read' and `transient-infix-set' are generic
 functions.  Different infix commands behave differently because
@@ -1428,11 +1428,11 @@ This function is intended to be called by infix 
commands, which
 are usually aliases of `transient--default-infix-command', which
 is defined like this:
 
-   (defun transient--default-infix-command ()
- (interactive)
- (let ((obj (transient-suffix-object)))
-   (transient-infix-set obj (transient-infix-read obj)))
- (transient--show))
+  (defun transient--default-infix-command ()
+(interactive)
+(let ((obj (transient-suffix-object)))
+  (transient-infix-set obj (transient-infix-read obj)))
+(transient--show))
 
 \(User input is read outside of `interactive' to prevent the
 command from being added to `command-history'.  See #23.)

[elpa] externals/transient 49a61fb905 13/20: Support setting per-suffix level for duplicated commands

[Jonas Bernoulli via]

branch: externals/transient
commit 49a61fb905f647a4635595cf20e394e5e8868858
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Support setting per-suffix level for duplicated commands

Re #153.
---
 lisp/transient.el | 17 -
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 30083d79a7..d446b43551 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1893,7 +1893,10 @@ value.  Otherwise return CHILDREN as is."
 (defun transient--init-suffix (levels spec)
   (pcase-let* ((`(,level ,class ,args) spec)
(cmd (plist-get args :command))
-   (level (or (alist-get cmd levels) level)))
+   (key (transient--kbd (plist-get args :key)))
+   (level (or (alist-get (cons cmd key) levels nil nil #'equal)
+  (alist-get cmd levels)
+  level)))
 (let ((fn (and (symbolp cmd)
(symbol-function cmd
   (when (autoloadp fn)
@@ -2678,13 +2681,17 @@ transient is active."
(level
 (let* ((prefix (oref transient--prefix command))
(alist (alist-get prefix transient-levels))
-   (sym command))
+   (akey command))
   (cond ((eq command prefix)
  (oset transient--prefix level level)
- (setq sym t))
+ (setq akey t))
 (t
- (oset (transient-suffix-object command) level level)))
-  (setf (alist-get sym alist) level)
+ (oset (transient-suffix-object command) level level)
+ (when (cdr (cl-remove-if-not (lambda (obj)
+(eq (oref obj command) command))
+  transient--suffixes))
+   (setq akey (cons command (this-command-keys))
+  (setf (alist-get akey alist) level)
   (setf (alist-get prefix transient-levels) alist))
 (transient-save-levels)
 (transient--show))

[elpa] externals/transient 0717589a62 07/20: transient--pending-suffix: New variable

[Jonas Bernoulli via]

branch: externals/transient
commit 0717589a620e61737d339bdd85ad7dcef70dcbba
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--pending-suffix: New variable
---
 lisp/transient.el | 10 --
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 1b87c615a9..6d7abea42e 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1410,6 +1410,10 @@ Usually it remains current while the transient is 
active.")
 This is bound while the suffix predicate is being evaluated and while
 drawing in the transient buffer.")
 
+(defvar transient--pending-suffix nil
+  "The suffix that is currently being processed.
+This is bound while the suffix predicate is being evaluated.")
+
 (defvar transient--debug nil "Whether put debug information into *Messages*.")
 
 (defvar transient--history nil)
@@ -1932,7 +1936,8 @@ value.  Otherwise return CHILDREN as is."
(<= level (oref transient--prefix level)
 
 (defun transient--use-suffix-p (obj)
-  (let ((transient--current-buffer (current-buffer)))
+  (let ((transient--current-buffer (current-buffer))
+(transient--pending-suffix obj))
 (transient--do-suffix-p
  (oref obj if)
  (oref obj if-not)
@@ -1945,7 +1950,8 @@ value.  Otherwise return CHILDREN as is."
  t)))
 
 (defun transient--inapt-suffix-p (obj)
-  (let ((transient--current-buffer (current-buffer)))
+  (let ((transient--current-buffer (current-buffer))
+(transient--pending-suffix obj))
 (transient--do-suffix-p
  (oref obj inapt-if)
  (oref obj inapt-if-not)

[elpa] externals/transient ae4ac656b1 18/20: transient-group: Always bind PAD-KEYS slot

[Jonas Bernoulli via]

branch: externals/transient
commit ae4ac656b173f782866fc7860cd05cb7b31a5cf9
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-group: Always bind PAD-KEYS slot

By not making a distinction between padding being disabled and padding
not being specified, subgroups loose the ability to disable padding
that was enabled in a parent group.

But that doesn't seem useful anyway; if one sibling group should not
use padding, while the others do, then it seems more reasonable to
just enable the padding individually.

This change also enables the next commit.
---
 lisp/transient.el | 11 ---
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index cf5f9e3658..e87d145230 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -791,8 +791,8 @@ They become the value of this argument.")
   ((suffixes   :initarg :suffixes   :initform nil)
(hide   :initarg :hide   :initform nil)
(description:initarg :description:initform nil)
-   (setup-children :initarg :setup-children)
-   (pad-keys   :initarg :pad-keys))
+   (pad-keys   :initarg :pad-keys   :initform nil)
+   (setup-children :initarg :setup-children))
   "Abstract superclass of all group classes."
   :abstract t)
 
@@ -3704,11 +3704,8 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
 (and val (not (integerp val)) val)))
 
 (defun transient--maybe-pad-keys (group &optional parent)
-  (when-let ((pad (if (slot-boundp group 'pad-keys)
-  (oref group pad-keys)
-(and parent
- (slot-boundp parent 'pad-keys)
- (oref parent pad-keys)
+  (when-let ((pad (or (oref group pad-keys)
+  (and parent (oref parent pad-keys)
 (let ((width (apply #'max
 (cons (if (integerp pad) pad 0)
   (seq-keep (lambda (suffix)

[elpa] externals/transient a81eff942b 11/20: transient-font-lock-keywords: Remove transient-define-groups

[Jonas Bernoulli via]

branch: externals/transient
commit a81eff942bb2cd5bb5b6450dcf7db78c876abd1f
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-font-lock-keywords: Remove transient-define-groups

This macro existed briefly and might make a comeback, but
currently it does not exist.
---
 lisp/transient.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 8b86e2ce0b..879af1bf97 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4137,8 +4137,7 @@ we stop there."
 (regexp-opt (list "transient-define-prefix"
   "transient-define-infix"
   "transient-define-argument"
-  "transient-define-suffix"
-  "transient-define-groups")
+  "transient-define-suffix")
 t)
 "\\_>[ \t'(]*"
 "\\(\\(?:\\sw\\|\\s_\\)+\\)?")

[elpa] externals/transient d3e735f2d0 02/20: transient--post-command: Fix typo in docstring

[Jonas Bernoulli via]

branch: externals/transient
commit d3e735f2d0b4ad1582b6746560b3a565201dbabf
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--post-command: Fix typo in docstring
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 214b65c063..f860aea16b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2257,7 +2257,7 @@ value.  Otherwise return CHILDREN as is."
   ;; too late (in `command-execute'), and if it were set
   ;; earlier, then we likely still would not be able to
   ;; rely on it and `prefix-command-preserve-state-hook'
-  ;; would have to be used record that a universal
+  ;; would have to be used to record that a universal
   ;; argument is in effect.
   (not prefix-arg)))
 ((let ((old transient--redisplay-map)

[elpa] externals/transient 777d95e86d 12/20: transient-set-level: Cosmetics

[Jonas Bernoulli via]

branch: externals/transient
commit 777d95e86d242c593da28948adad45f59855a53d
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-set-level: Cosmetics
---
 lisp/transient.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 879af1bf97..30083d79a7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2679,10 +2679,11 @@ transient is active."
 (let* ((prefix (oref transient--prefix command))
(alist (alist-get prefix transient-levels))
(sym command))
-  (if (eq command prefix)
-  (progn (oset transient--prefix level level)
- (setq sym t))
-(oset (transient-suffix-object command) level level))
+  (cond ((eq command prefix)
+ (oset transient--prefix level level)
+ (setq sym t))
+(t
+ (oset (transient-suffix-object command) level level)))
   (setf (alist-get sym alist) level)
   (setf (alist-get prefix transient-levels) alist))
 (transient-save-levels)

[elpa] externals/transient f8209cc8f4 15/20: transient--maybe-pad-keys: Ignore raw strings

[Jonas Bernoulli via]

branch: externals/transient
commit f8209cc8f48cb47902a86d1708d5c008cc4d9e88
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--maybe-pad-keys: Ignore raw strings

Previously combining raw string with `:pad-keys' would have resulted
in an error.
---
 lisp/transient.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index dfb738f7ad..e712e2fac1 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3706,12 +3706,14 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
  (oref parent pad-keys)
 (let ((width (apply #'max
 (cons (if (integerp pad) pad 0)
-  (mapcar (lambda (suffix)
-(length (oref suffix key)))
-  (oref group suffixes))
+  (seq-keep (lambda (suffix)
+  (and (not (stringp suffix))
+   (length (oref suffix key
+(oref group suffixes))
   (dolist (suffix (oref group suffixes))
-(oset suffix key
-  (truncate-string-to-width (oref suffix key) width nil ?\s))
+(unless (stringp suffix)
+  (oset suffix key
+(truncate-string-to-width (oref suffix key) width nil 
?\s)))
 
 (defun transient--pixel-width (string)
   (save-window-excursion

[elpa] externals/transient 59fbb2d4f2 1/2: Require seq-2.24

[Jonas Bernoulli via]

branch: externals/transient
commit 59fbb2d4f22b0de5306b05e8a48078c6b9f71702
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Require seq-2.24
---
 default.mk| 1 +
 lisp/transient.el | 7 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/default.mk b/default.mk
index f186129428..3d23abba75 100644
--- a/default.mk
+++ b/default.mk
@@ -6,6 +6,7 @@ ELS   = $(PKG).el
 ELCS  = $(ELS:.el=.elc)
 
 DEPS  = compat
+DEPS += seq
 # Optional:
 DEPS += which-key
 
diff --git a/lisp/transient.el b/lisp/transient.el
index 142fe9ebd1..3d095630ac 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -7,7 +7,7 @@
 ;; Keywords: extensions
 
 ;; Package-Version: 0.4.3
-;; Package-Requires: ((emacs "25.1") (compat "29.1.4.1"))
+;; Package-Requires: ((emacs "25.1") (compat "29.1.4.1") (seq "2.24"))
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
@@ -57,6 +57,11 @@
 (require 'eieio)
 (require 'edmacro)
 (require 'format-spec)
+
+(eval-and-compile
+  (when (and (featurep' seq)
+ (not (fboundp 'seq-keep)))
+(unload-feature 'seq 'force)))
 (require 'seq)
 
 (eval-when-compile (require 'subr-x))

[elpa] externals/transient 74b0d7446e 2/2: Drop support for Emacs-25

[Jonas Bernoulli via]

branch: externals/transient
commit 74b0d7446ef6c014097bcf15b61aa5d400c1123c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Drop support for Emacs-25
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 3d095630ac..65f507be34 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -7,7 +7,7 @@
 ;; Keywords: extensions
 
 ;; Package-Version: 0.4.3
-;; Package-Requires: ((emacs "25.1") (compat "29.1.4.1") (seq "2.24"))
+;; Package-Requires: ((emacs "26.1") (compat "29.1.4.1") (seq "2.24"))
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 

[elpa] externals/transient updated (4f67a033fd -> 74b0d7446e)

[Jonas Bernoulli via]

tarsius pushed a change to branch externals/transient.

  from  4f67a033fd Support display-only information in place of a suffix
   new  59fbb2d4f2 Require seq-2.24
   new  74b0d7446e Drop support for Emacs-25


Summary of changes:
 default.mk| 1 +
 lisp/transient.el | 7 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

[nongnu] elpa/cider updated (1203129ba2 -> 65ab78c732)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  1203129ba2 Inspector: Introduce jump to previous/next sibling 
commands
   new  966cae463c Inspector: introduce `cider-inspector-tap-current-val` 
command
   new  65ab78c732 1.9.0


Summary of changes:
 CHANGELOG.md| 15 ---
 cider-inspector.el  | 18 ++
 cider.el|  6 +++---
 doc/antora.yml  |  2 +-
 doc/modules/ROOT/pages/about/compatibility.adoc | 14 ++
 doc/modules/ROOT/pages/debugging/inspector.adoc |  9 +
 6 files changed, 53 insertions(+), 11 deletions(-)

[nongnu] elpa/cider 65ab78c732 2/2: 1.9.0

[ELPA Syncer]

branch: elpa/cider
commit 65ab78c7321f1084922653c33b5085ba6633a100
Author: vemv 
Commit: vemv 

1.9.0
---
 CHANGELOG.md| 14 +++---
 cider-inspector.el  |  4 ++--
 cider.el|  6 +++---
 doc/antora.yml  |  2 +-
 doc/modules/ROOT/pages/about/compatibility.adoc | 14 ++
 5 files changed, 27 insertions(+), 13 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 547cc9f38b..04af0944c5 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,13 @@
 ### Changes
 
 - [#3546](https://github.com/clojure-emacs/cider/issues/3546): Inspector: 
render Java items using `java-mode` syntax coloring.
+- [#3521](https://github.com/clojure-emacs/cider/issues/3521): Expand 
`cider-clojure-compilation-regexp` to also match e.g. `Unexpected error 
(ExceptionInfo) macroexpanding defmulti at (src/ns.clj:1:1).`.
+- Remove module info from the [CIDER error 
overlay](https://docs.cider.mx/cider/usage/dealing_with_errors.html#configuration).
+  - Example string that is now trimmed away: `(java.lang.Long is in module 
java.base of loader 'bootstrap'; clojure.lang.IObj is in unnamed module of 
loader 'app')`
+- [#3522](https://github.com/clojure-emacs/cider/issues/3522): Introduce a new 
possible value for 
[`cider-use-overlays`](https://docs.cider.mx/cider/usage/code_evaluation.html#overlays):
 `errors-only`.
+  - If specified, only errors will result in an overlay being shown.
+- [#3527](https://github.com/clojure-emacs/cider/issues/3527): Preserve the 
font size as one navigates through the CIDER inspector.
+- [#3525](https://github.com/clojure-emacs/cider/issues/3525): Introduce 
[`cider-inline-error-message-function`](https://docs.cider.mx/cider/usage/code_evaluation.html#overlays)
 customization option.
 - [#3528](https://github.com/clojure-emacs/cider/issues/3528): Bump the 
injected `cider-nrepl` to 
[0.41.0](https://github.com/clojure-emacs/cider-nrepl/blob/v0.41.0/CHANGELOG.md#0410-2023-10-24).
   - Updates 
[Orchard](https://github.com/clojure-emacs/orchard/blob/v0.17.0/CHANGELOG.md#0170-2023-10-24),
 providing misc presentational improvements for the CIDER Inspector.
 
@@ -21,13 +28,6 @@
 
 ### Changes
 
-- [#3521](https://github.com/clojure-emacs/cider/issues/3521): Expand 
`cider-clojure-compilation-regexp` to also match e.g. `Unexpected error 
(ExceptionInfo) macroexpanding defmulti at (src/ns.clj:1:1).`.
-- Remove module info from the [CIDER error 
overlay](https://docs.cider.mx/cider/usage/dealing_with_errors.html#configuration).
-  - Example string that is now trimmed away: `(java.lang.Long is in module 
java.base of loader 'bootstrap'; clojure.lang.IObj is in unnamed module of 
loader 'app')`
-- [#3522](https://github.com/clojure-emacs/cider/issues/3522): Introduce a new 
possible value for 
[`cider-use-overlays`](https://docs.cider.mx/cider/usage/code_evaluation.html#overlays):
 `errors-only`.
-  - If specified, only errors will result in an overlay being shown.
-- [#3527](https://github.com/clojure-emacs/cider/issues/3527): Preserve the 
font size as one navigates through the CIDER inspector.
-- [#3525](https://github.com/clojure-emacs/cider/issues/3525): Introduce 
[`cider-inline-error-message-function`](https://docs.cider.mx/cider/usage/code_evaluation.html#overlays)
 customization option.
 - [#2903](https://github.com/clojure-emacs/cider/issues/2903): Avoid `No 
comment syntax is defined` prompts.
 - Bump the `clojure-mode` required version to 
[5.18.0](https://github.com/clojure-emacs/clojure-mode/blob/v5.18.0/CHANGELOG.md#5180-2023-10-18)
 
diff --git a/cider-inspector.el b/cider-inspector.el
index 563b2c661f..d267e50a99 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -338,8 +338,8 @@ current-namespace."
   (let ((response (cider-sync-request:inspect-tap-current-val)))
 (nrepl-dbind-response response (value err)
   (if value
-  (message "Successully tapped the current Inspector value")
-(error"Could not tap the current Inspector value: %s" err
+  (message "Successfully tapped the current Inspector value")
+(error "Could not tap the current Inspector value: %s" err
 (user-error "No CIDER session found")))
 
 ;; nREPL interactions
diff --git a/cider.el b/cider.el
index a89f4f6020..3d97db0d61 100644
--- a/cider.el
+++ b/cider.el
@@ -11,7 +11,7 @@
 ;; Steve Purcell 
 ;; Maintainer: Bozhidar Batsov 
 ;; URL: http://www.github.com/clojure-emacs/cider
-;; Version: 1.8.3
+;; Version: 1.9.0
 ;; Package-Requires: ((emacs "26") (clojure-mode "5.18.0") (parseedn "1.2.0") 
(queue "0.2") (spinner "1.7") (seq "2.22") (sesman "0.3.2") (transient "0.4.1"))
 ;; Keywords: languages, clojure, cider
 
@@ -93,10 +93,10 @@
 (require 'sesman)
 (require 'package)
 
-(defconst cider-version "1.8.4-snapshot"
+(defconst cider-version "1.9.0"
   "The current version of CIDER.")

[nongnu] elpa/cider 966cae463c 1/2: Inspector: introduce `cider-inspector-tap-current-val` command

[ELPA Syncer]

branch: elpa/cider
commit 966cae463c65d0392d1148eb252912f31c03c881
Author: behrica 
Commit: vemv 

Inspector: introduce `cider-inspector-tap-current-val` command

Fixes https://github.com/clojure-emacs/cider/issues/3548
---
 CHANGELOG.md|  1 +
 cider-inspector.el  | 18 ++
 doc/modules/ROOT/pages/debugging/inspector.adoc |  9 +
 3 files changed, 28 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index dbf1dfe035..547cc9f38b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,6 +5,7 @@
 ### New features
 
 - [#3529](https://github.com/clojure-emacs/cider/issues/3529): CIDER 
inspector: introduce `cider-inspector-previous-sibling`, 
`cider-inspector-next-sibling` commands 
([doc](https://docs.cider.mx/cider/debugging/inspector.html#usage)).
+- [#3548](https://github.com/clojure-emacs/cider/issues/3548): CIDER 
inspector: introduce `cider-inspector-tap-current-val` command 
([doc](https://docs.cider.mx/cider/debugging/inspector.html#usage)).
 
 ### Changes
 
diff --git a/cider-inspector.el b/cider-inspector.el
index fedca2e496..563b2c661f 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -106,6 +106,7 @@ by clicking or navigating to them by other means."
 (define-key map "a" #'cider-inspector-set-max-atom-length)
 (define-key map "c" #'cider-inspector-set-max-coll-size)
 (define-key map "d" #'cider-inspector-def-current-val)
+(define-key map "t" #'cider-inspector-tap-current-val)
 (define-key map [tab] #'cider-inspector-next-inspectable-object)
 (define-key map "\C-i" #'cider-inspector-next-inspectable-object)
 (define-key map "n" #'cider-inspector-next-inspectable-object)
@@ -328,6 +329,19 @@ current-namespace."
 (cider-inspector--render-value value)
 (message "%s#'%s/%s = %s" cider-eval-result-prefix ns var-name value)))
 
+(defun cider-inspector-tap-current-val ()
+  "Sends the current Inspector current value to `tap>'."
+  (interactive)
+  ;; NOTE: we don't set `cider-inspector--current-repl', because we mean to 
tap the current value of an existing Inspector,
+  ;; so whatever repl was used for it, should be used here.
+  (if cider-inspector--current-repl
+  (let ((response (cider-sync-request:inspect-tap-current-val)))
+(nrepl-dbind-response response (value err)
+  (if value
+  (message "Successully tapped the current Inspector value")
+(error"Could not tap the current Inspector value: %s" err
+(user-error "No CIDER session found")))
+
 ;; nREPL interactions
 (defun cider-sync-request:inspect-pop ()
   "Move one level up in the inspector stack."
@@ -402,6 +416,10 @@ MAX-SIZE is the new value."
 (cider-nrepl-send-sync-request cider-inspector--current-repl)
 (nrepl-dict-get "value")))
 
+(defun cider-sync-request:inspect-tap-current-val ()
+  "Sends current inspector value to tap>."
+  (cider-nrepl-send-sync-request '("op" "inspect-tap-current-value") 
cider-inspector--current-repl))
+
 (defun cider-sync-request:inspect-expr (expr ns page-size max-atom-length 
max-coll-size)
   "Evaluate EXPR in context of NS and inspect its result.
 Set the page size in paginated view to PAGE-SIZE, maximum length of atomic
diff --git a/doc/modules/ROOT/pages/debugging/inspector.adoc 
b/doc/modules/ROOT/pages/debugging/inspector.adoc
index 400e22d4e1..e3b79c96bd 100644
--- a/doc/modules/ROOT/pages/debugging/inspector.adoc
+++ b/doc/modules/ROOT/pages/debugging/inspector.adoc
@@ -22,6 +22,10 @@ the last result. This behavior can be controlled with the 
variable
 TIP: The inspector can also be invoked in the middle of a debugging
 session, see xref:debugging/debugger.adoc[here] for more details.
 
+TIP: The current value of the debugger can be as sent as well to Clojure's
+`tap>` facility. This can be used to integrate CIDER with various external
+tools which render tapped values in a web browser, for example.
+
 You'll have access to additional keybindings in the inspector buffer
 (which is internally using `cider-inspector-mode`):
 
@@ -79,6 +83,11 @@ You'll have access to additional keybindings in the 
inspector buffer
 | kbd:[0]
 | `cider-inspector-next-sibling`
 | Navigates to the next sibling, within a sequential collection.
+
+| kbd:[t]
+| `cider-inspector-tap-current-val`
+| Performs `tap>` using the inspector's current value as it argument.
+
 |===
 
 == Configuration

[nongnu] elpa/git-commit 51eaa9fbe2: magit-cygwin-mount-points: Cosmetics

[ELPA Syncer]

branch: elpa/git-commit
commit 51eaa9fbe2c8426d4eeed76752fe55297cc552ea
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-cygwin-mount-points: Cosmetics
---
 lisp/magit-git.el | 33 +
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index a74acf7d99..d78d7daf0b 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1188,22 +1188,23 @@ or if no rename is detected."
   status)))
 
 (defcustom magit-cygwin-mount-points
-  (when (eq system-type 'windows-nt)
-(cl-sort (--map (if (string-match "^\\(.*\\) on \\(.*\\) type" it)
-(cons (file-name-as-directory (match-string 2 it))
-  (file-name-as-directory (match-string 1 it)))
-  (lwarn '(magit) :error
- "Failed to parse Cygwin mount: %S" it))
-;; If --exec-path is not a native Windows path,
-;; then we probably have a cygwin git.
-(let ((process-environment
-   (append magit-git-environment process-environment)))
-  (and (not (string-match-p
- "\\`[a-zA-Z]:"
- (car (process-lines
-   magit-git-executable "--exec-path"
-   (ignore-errors (process-lines "mount")
- #'> :key (pcase-lambda (`(,cyg . ,_win)) (length cyg
+  (and (eq system-type 'windows-nt)
+   (cl-sort (--map (if (string-match "^\\(.*\\) on \\(.*\\) type" it)
+   (cons (file-name-as-directory (match-string 2 it))
+ (file-name-as-directory (match-string 1 it)))
+ (lwarn '(magit) :error
+"Failed to parse Cygwin mount: %S" it))
+   ;; If --exec-path is not a native Windows path,
+   ;; then we probably have a cygwin git.
+   (let ((process-environment
+  (append magit-git-environment
+  process-environment)))
+ (and (not (string-match-p
+"\\`[a-zA-Z]:"
+(car (process-lines
+  magit-git-executable 
"--exec-path"
+  (ignore-errors (process-lines "mount")
+#'> :key (pcase-lambda (`(,cyg . ,_win)) (length cyg
   "Alist of (CYGWIN . WIN32) directory names.
 Sorted from longest to shortest CYGWIN name."
   :package-version '(magit . "2.3.0")

[nongnu] elpa/magit updated (fbb32ee30f -> 51eaa9fbe2)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  fbb32ee30f magit-insert-am-sequence: Account for already applied 
patches
  adds  51eaa9fbe2 magit-cygwin-mount-points: Cosmetics

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 33 +
 1 file changed, 17 insertions(+), 16 deletions(-)

[nongnu] elpa/magit-section updated (fbb32ee30f -> 51eaa9fbe2)

[ELPA Syncer]

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

  from  fbb32ee30f magit-insert-am-sequence: Account for already applied 
patches
  adds  51eaa9fbe2 magit-cygwin-mount-points: Cosmetics

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 33 +
 1 file changed, 17 insertions(+), 16 deletions(-)

[nongnu] elpa/smartparens 96fccc0816 1/2: Add support for js-ts-mode and typescript-ts-mode

[ELPA Syncer]

branch: elpa/smartparens
commit 96fccc0816093aaad4b904a20802ec306c6da420
Author: Alex Kreisher 
Commit: Alex Kreisher 

Add support for js-ts-mode and typescript-ts-mode
---
 smartparens-config.el |  2 +-
 smartparens-javascript.el | 11 ++-
 smartparens.el|  1 +
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/smartparens-config.el b/smartparens-config.el
index af2ee3a71a..d354d11255 100644
--- a/smartparens-config.el
+++ b/smartparens-config.el
@@ -148,7 +148,7 @@ ID, ACTION, CONTEXT."
 (eval-after-load 'tuareg   '(require 'smartparens-ml))
 (eval-after-load 'fsharp-mode  '(require 'smartparens-ml))
 (eval-after-load 'unisonlang-mode  '(require 'smartparens-unison))
-(--each '(js js2-mode)
+(--each '(js js2-mode typescript-ts-mode)
   (eval-after-load it  '(require 'smartparens-javascript)))
 (provide 'smartparens-config)
 
diff --git a/smartparens-javascript.el b/smartparens-javascript.el
index 95e6e5dc08..968694ad69 100644
--- a/smartparens-javascript.el
+++ b/smartparens-javascript.el
@@ -48,7 +48,16 @@
 
 ;; (|sys).path.append---the dot should not travel with the closing
 ;; paren
-(--each '(js-mode javascript-mode js2-mode typescript-mode rjsx-mode)
+(--each '(
+  js-mode
+  javascript-mode
+  js2-mode
+  typescript-mode
+  rjsx-mode
+  js-ts-mode
+  typescript-ts-mode
+  tsx-ts-mode
+  )
   (add-to-list 'sp-sexp-suffix (list it 'regexp "")))
 
 (provide 'smartparens-javascript)
diff --git a/smartparens.el b/smartparens.el
index d3661116a2..cc720d97f7 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -642,6 +642,7 @@ Symbol is defined as a chunk of text recognized by
  js-jsx-mode
  js2-jsx-mode
  rjsx-mode
+ tsx-ts-mode
  )
   "List of HTML modes.")
 

[nongnu] elpa/smartparens 0778a8a840 2/2: Merge pull request #1174 from akreisher/add-js-typescript-ts-modes

[ELPA Syncer]

branch: elpa/smartparens
commit 0778a8a84064cf2bc3a9857bd0e7a4619cc1e5c3
Merge: 37f91720fe 96fccc0816
Author: Matus Goljer 
Commit: GitHub 

Merge pull request #1174 from akreisher/add-js-typescript-ts-modes

Add support for js-ts-mode and typescript-ts-mode
---
 smartparens-config.el |  2 +-
 smartparens-javascript.el | 11 ++-
 smartparens.el|  1 +
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/smartparens-config.el b/smartparens-config.el
index af2ee3a71a..d354d11255 100644
--- a/smartparens-config.el
+++ b/smartparens-config.el
@@ -148,7 +148,7 @@ ID, ACTION, CONTEXT."
 (eval-after-load 'tuareg   '(require 'smartparens-ml))
 (eval-after-load 'fsharp-mode  '(require 'smartparens-ml))
 (eval-after-load 'unisonlang-mode  '(require 'smartparens-unison))
-(--each '(js js2-mode)
+(--each '(js js2-mode typescript-ts-mode)
   (eval-after-load it  '(require 'smartparens-javascript)))
 (provide 'smartparens-config)
 
diff --git a/smartparens-javascript.el b/smartparens-javascript.el
index 95e6e5dc08..968694ad69 100644
--- a/smartparens-javascript.el
+++ b/smartparens-javascript.el
@@ -48,7 +48,16 @@
 
 ;; (|sys).path.append---the dot should not travel with the closing
 ;; paren
-(--each '(js-mode javascript-mode js2-mode typescript-mode rjsx-mode)
+(--each '(
+  js-mode
+  javascript-mode
+  js2-mode
+  typescript-mode
+  rjsx-mode
+  js-ts-mode
+  typescript-ts-mode
+  tsx-ts-mode
+  )
   (add-to-list 'sp-sexp-suffix (list it 'regexp "")))
 
 (provide 'smartparens-javascript)
diff --git a/smartparens.el b/smartparens.el
index d3661116a2..cc720d97f7 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -642,6 +642,7 @@ Symbol is defined as a chunk of text recognized by
  js-jsx-mode
  js2-jsx-mode
  rjsx-mode
+ tsx-ts-mode
  )
   "List of HTML modes.")
 

[nongnu] elpa/cider e012c3dcc1: `defconst cider-version "1.10.0-snapshot"`

[ELPA Syncer]

branch: elpa/cider
commit e012c3dcc13896ba93a9ad40f81e2e43827af04b
Author: vemv 
Commit: vemv 

`defconst cider-version "1.10.0-snapshot"`
---
 CHANGELOG.md   | 2 ++
 cider.el   | 2 +-
 doc/antora.yml | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 04af0944c5..1eadd30fbc 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,8 @@
 
 ## master (unreleased)
 
+## 1.9.0 (2023-10-24)
+
 ### New features
 
 - [#3529](https://github.com/clojure-emacs/cider/issues/3529): CIDER 
inspector: introduce `cider-inspector-previous-sibling`, 
`cider-inspector-next-sibling` commands 
([doc](https://docs.cider.mx/cider/debugging/inspector.html#usage)).
diff --git a/cider.el b/cider.el
index 3d97db0d61..86a5f5c3f1 100644
--- a/cider.el
+++ b/cider.el
@@ -93,7 +93,7 @@
 (require 'sesman)
 (require 'package)
 
-(defconst cider-version "1.9.0"
+(defconst cider-version "1.10.0-snapshot"
   "The current version of CIDER.")
 
 (defconst cider-codename "Barcelona"
diff --git a/doc/antora.yml b/doc/antora.yml
index cfbe5f1b01..fd9dacd593 100644
--- a/doc/antora.yml
+++ b/doc/antora.yml
@@ -2,6 +2,6 @@ name: cider
 title: CIDER
 # We always provide version without patch here (e.g. 1.1),
 # as patch versions should not appear in the docs.
-version: 1.9
+version: ~
 nav:
 - modules/ROOT/nav.adoc

[elpa] externals/llm updated (8b7faa68e2 -> b69b6e8480)

[ELPA Syncer]

elpasync pushed a change to branch externals/llm.

  from  8b7faa68e2 Add ability to set the ollama host
   new  b0556a7d0d Fix incorrectly named private function in llm-vertex
   new  b69b6e8480 Remove auto-compression-mode for callbacks, which was 
unnecessary


Summary of changes:
 llm-request.el | 5 ++---
 llm-vertex.el  | 4 ++--
 2 files changed, 4 insertions(+), 5 deletions(-)

[elpa] externals/llm b0556a7d0d 1/2: Fix incorrectly named private function in llm-vertex

[ELPA Syncer]

branch: externals/llm
commit b0556a7d0d3aad21e4437c3adcc09118b4b080ce
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Fix incorrectly named private function in llm-vertex
---
 llm-vertex.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/llm-vertex.el b/llm-vertex.el
index 775d51317f..9443a6a1fc 100644
--- a/llm-vertex.el
+++ b/llm-vertex.el
@@ -152,7 +152,7 @@ If nothing needs to be set, return nil."
   (stringVal (aref (cdr (assoc 'stringVal content)) 0)))
  stringVal
 
-(defun llm--vertex--get-partial-chat-ui-repsonse (response)
+(defun llm-vertex--get-partial-chat-ui-repsonse (response)
   "Return the partial response from as much of RESPONSE as we can parse.
 If the response is not parseable, return nil."
   (with-temp-buffer
@@ -288,7 +288,7 @@ If STREAMING is non-nil, use the URL for the streaming API."
  :headers `(("Authorization" . ,(format "Bearer %s" 
(llm-vertex-key provider
  :data (llm-vertex--chat-request-ui prompt)
  :on-partial (lambda (partial)
-   (when-let ((response 
(llm--vertex--get-partial-chat-ui-repsonse partial)))
+   (when-let ((response 
(llm-vertex--get-partial-chat-ui-repsonse partial)))
  (funcall partial-callback response)))
  :on-success (lambda (data)
(funcall response-callback 
(llm-vertex--get-chat-response-ui data)))

[elpa] externals/llm b69b6e8480 2/2: Remove auto-compression-mode for callbacks, which was unnecessary

[ELPA Syncer]

branch: externals/llm
commit b69b6e8480afdf127bba80cd1716939d024b6a89
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Remove auto-compression-mode for callbacks, which was unnecessary
---
 llm-request.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/llm-request.el b/llm-request.el
index a1b24756e8..a69924c508 100644
--- a/llm-request.el
+++ b/llm-request.el
@@ -79,9 +79,8 @@ TIMEOUT is the number of seconds to wait for a response."
   "Handle new content in the current buffer."
   (save-match-data
 (save-excursion
-  (with-auto-compression-mode
-(when llm-request--partial-callback
-  (funcall llm-request--partial-callback (llm-request--content)))
+  (when llm-request--partial-callback
+  (funcall llm-request--partial-callback (llm-request--content))
 
 (cl-defun llm-request-async (url &key headers data on-success on-success-raw 
on-error on-partial)
   "Make a request to URL.

[elpa] externals/urgrep e0a22c598d: Fix name of function in comment

[ELPA Syncer]

branch: externals/urgrep
commit e0a22c598d4fb8f91bbe2e53db86f7bd3b2e8f22
Author: Jim Porter 
Commit: Jim Porter 

Fix name of function in comment
---
 urgrep.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/urgrep.el b/urgrep.el
index f4322e18ed..58112114fa 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -120,7 +120,7 @@ The currently-used tool can be inspected from the hook via
 
 ;; Urgrep utility functions
 
-;; `format-prompt' was added in Emacs 28.1.
+;; `split-string-shell-command' was added in Emacs 28.1.
 (defalias 'urgrep--split-string-shell-command
   (if (fboundp 'split-string-shell-command)
   #'split-string-shell-command

[elpa] main a9ece7474d: * elpa-packages (boxy, boxy-headings, org-real): Update URL

[Philip Kaludercic]

branch: main
commit a9ece7474d3f9d48ea4422698724235697b0fc95
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

* elpa-packages (boxy,boxy-headings,org-real): Update URL
---
 elpa-packages | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index 97174cc591..28e0ac3525 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -96,8 +96,8 @@
   :readme "README.org")
  (bluetooth:url "https://gitlab.com/rstocker/emacs-bluetooth";)
  (bnf-mode :url "https://github.com/sergeyklay/bnf-mode";)
- (boxy :url "https://gitlab.com/tygrdev/boxy";)
- (boxy-headings:url "https://gitlab.com/tygrdev/boxy-headings";)
+ (boxy :url "https://gitlab.com/grinn.amy/boxy";)
+ (boxy-headings:url 
"https://gitlab.com/grinn.amy/boxy-headings";)
  (breadcrumb   :url "https://github.com/joaotavora/breadcrumb";)
  (brief:url nil)
  (buffer-env   :url "https://github.com/astoff/buffer-env";)
@@ -505,7 +505,7 @@
   ;; FIXME: Upstream diverged; https://github.com/p-m/org-notify/issues/9
   ;; :merge t
   )
- (org-real :url "https://gitlab.com/tygrdev/org-real";
+ (org-real :url "https://gitlab.com/grinn.amy/org-real";
   :ignored-files ("LICENSE"))
  (org-remark   :url "https://github.com/nobiot/org-remark";
   :readme "README.org"