[elpa] externals/nano-modeline 055433de8e 1/2: Workaround eldoc showing information in the mode-line

[ELPA Syncer]

branch: externals/nano-modeline
commit 055433de8ed126a458729cc471b6a7b7bc5662b0
Author: Damien Cassou 
Commit: Damien Cassou 

Workaround eldoc showing information in the mode-line
---
 nano-modeline.el | 9 -
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index 7b3aaf8ff3..05a72427e3 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -1044,7 +1044,14 @@ below or a buffer local variable 'no-mode-line'."
   ;;  -> see https://github.com/rougier/nano-modeline/issues/24
   ;; (add-hook 'window-configuration-change-hook 
#'nano-modeline-update-windows)
 
-  (force-mode-line-update t))
+  (force-mode-line-update t)
+
+  ;; `eldoc-minibuffer-message' changes `mode-line-format' but
+  ;; nano-modeline when `nano-modeline-position' is `top' only displays
+  ;; the header-line.
+  ;; -> see https://github.com/rougier/nano-modeline/issues/36
+  (when (eq nano-modeline-position 'top)
+(setq eldoc-message-function #'message)))
 
 (defun nano-modeline-mode--inactivate ()
   "Inactivate nano mode line and restored default mode-line"

[elpa] externals/nano-modeline c16bbd452b 2/2: Merge pull request #38 from DamienCassou/fix-eldoc-message

[ELPA Syncer]

branch: externals/nano-modeline
commit c16bbd452bbdc9fa4e790ff19e0f0de3f5c21d8b
Merge: ec617231a6 055433de8e
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #38 from DamienCassou/fix-eldoc-message

Workaround eldoc showing information in the mode-line
---
 nano-modeline.el | 9 -
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index 7b3aaf8ff3..05a72427e3 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -1044,7 +1044,14 @@ below or a buffer local variable 'no-mode-line'."
   ;;  -> see https://github.com/rougier/nano-modeline/issues/24
   ;; (add-hook 'window-configuration-change-hook 
#'nano-modeline-update-windows)
 
-  (force-mode-line-update t))
+  (force-mode-line-update t)
+
+  ;; `eldoc-minibuffer-message' changes `mode-line-format' but
+  ;; nano-modeline when `nano-modeline-position' is `top' only displays
+  ;; the header-line.
+  ;; -> see https://github.com/rougier/nano-modeline/issues/36
+  (when (eq nano-modeline-position 'top)
+(setq eldoc-message-function #'message)))
 
 (defun nano-modeline-mode--inactivate ()
   "Inactivate nano mode line and restored default mode-line"

[elpa] externals/transient 19cf9bef5d 02/19: Revert "transient--insert-group: Support multi-row cells"

[Jonas Bernoulli]

branch: externals/transient
commit 19cf9bef5d5c70fdd636ea021a0d26f0104a473d
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Revert "transient--insert-group: Support multi-row cells"

This reverts commit c088aaccbb4942d8770c89f15a43b52243be9e97.

This has to wait a few days until we depend on the compat package.

Closes #196.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 2f9a2e1406..ae8e1e6522 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3273,7 +3273,7 @@ have a history of their own.")
  (let ((rows (mapcar #'transient-format (oref column suffixes
(when-let ((desc (transient-format-description column)))
  (push desc rows))
-   (flatten-tree rows)))
+   rows))
(oref group suffixes)))
  (vp (or (oref transient--prefix variable-pitch)
  transient-align-variable-pitch))

[elpa] externals/transient updated (81b2b912de -> 84f2d12ef3)

[Jonas Bernoulli]

tarsius pushed a change to branch externals/transient.

  from  81b2b912de Use this-original-command again
   new  c088aaccbb transient--insert-group: Support multi-row cells
   new  19cf9bef5d Revert "transient--insert-group: Support multi-row cells"
   new  2c7b4d7f2a Use string-suffix-p instead of string-match-p
   new  158d023bd0 Use pcase's quote upattern
   new  5ae3c4014e Depend on compat package from GNU Elpa
   new  cf37817bb5 Use string-replace instead of replace-regexp-in-string
   new  22ef906b5a Use string-search instead of string-match-p
   new  f704f2a341 Use and-let* for side-effects
   new  682fe574fe Silence older byte-compilers
   new  35c4b73419 Refresh library header
   new  62ba30e7d8 make: Right-align target verbs
   new  8c0d827319 make: Improve creation of autoloads file
   new  2ef62fac89 transient--insert-group: Support multi-row cells
   new  fabd8c9b61 Put eval-when-compile and require on one line
   new  d4fb853d49 transient--show: Also hide the header-line
   new  ed2febd005 Support use of an infix argument following a prefix 
argument
   new  71de86e8ea Fix invoking the suffix the cursor is on in the 
transient buffer
   new  d02b4f23e0 Change key binding for invoking the current suffix
   new  84f2d12ef3 Fix doc-string typo


Summary of changes:
 default.mk|   2 +-
 docs/Makefile |   2 +-
 lisp/Makefile |  40 ++--
 lisp/transient.el | 137 +++---
 4 files changed, 95 insertions(+), 86 deletions(-)

[elpa] externals/transient 158d023bd0 04/19: Use pcase's quote upattern

[Jonas Bernoulli]

branch: externals/transient
commit 158d023bd0e604f957109e0cfedf4e47cfda2f85
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use pcase's quote upattern
---
 lisp/transient.el | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 2e426766cd..dab09486d7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1719,12 +1719,12 @@ of the corresponding object.")
   (define-key map (vector sym)
 (let ((do (oref obj transient)))
   (pcase (list do sub-prefix)
-(`(t t) #'transient--do-recurse)
-(`(t   nil) (if (cl-typep obj 'transient-infix)
+('(t t) #'transient--do-recurse)
+('(t   nil) (if (cl-typep obj 'transient-infix)
 #'transient--do-stay
   #'transient--do-call))
-(`(nil   t) #'transient--do-replace)
-(`(nil nil) #'transient--do-exit)
+('(nil   t) #'transient--do-replace)
+('(nil nil) #'transient--do-exit)
 (_  do)
  ((not (lookup-key transient-predicate-map (vector sym)))
   (define-key map (vector sym)
@@ -2045,8 +2045,8 @@ value.  Otherwise return CHILDREN as is."
   (and (not suffix-only)
(let ((pred (oref transient--prefix transient-non-suffix)))
  (pcase pred
-   (`t   #'transient--do-stay)
-   (`nil #'transient--do-warn)
+   ('t   #'transient--do-stay)
+   ('nil #'transient--do-warn)
(_pred))
 
 (defun transient--pre-exit ()
@@ -3882,11 +3882,11 @@ search instead."
  'transient-blue
 (pcase (list suffix nonsuf)
   (`(transient-purple ,_)   'transient-purple)
-  (`(transient-red  disallow)   'transient-amaranth)
-  (`(transient-blue disallow)   'transient-teal)
-  (`(transient-red  transient-red)  'transient-pink)
-  (`(transient-red  transient-blue) 'transient-red)
-  (`(transient-blue transient-blue) 'transient-blue
+  ('(transient-red  disallow)   'transient-amaranth)
+  ('(transient-blue disallow)   'transient-teal)
+  ('(transient-red  transient-red)  'transient-pink)
+  ('(transient-red  transient-blue) 'transient-red)
+  ('(transient-blue transient-blue) 'transient-blue
 
  Edebug
 

[elpa] externals/transient 2c7b4d7f2a 03/19: Use string-suffix-p instead of string-match-p

[Jonas Bernoulli]

branch: externals/transient
commit 2c7b4d7f2a4673e32353a111251516f7e7011643
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use string-suffix-p instead of string-match-p
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ae8e1e6522..2e426766cd 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3094,7 +3094,7 @@ contribute to the value of the transient."
 For a switch return a boolean.  For an option return the value as
 a string, using the empty string for the empty value, or nil if
 the option does not appear in ARGS."
-  (if (string-match-p "=\\'" arg)
+  (if (string-suffix-p "=" arg)
   (save-match-data
 (when-let ((match (let ((case-fold-search nil)
 (re (format "\\`%s\\(?:=\\(.+\\)\\)?\\'"

[elpa] externals/transient c088aaccbb 01/19: transient--insert-group: Support multi-row cells

[Jonas Bernoulli]

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

transient--insert-group: Support multi-row cells

See #193 for why we might want that.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ae8e1e6522..2f9a2e1406 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3273,7 +3273,7 @@ have a history of their own.")
  (let ((rows (mapcar #'transient-format (oref column suffixes
(when-let ((desc (transient-format-description column)))
  (push desc rows))
-   rows))
+   (flatten-tree rows)))
(oref group suffixes)))
  (vp (or (oref transient--prefix variable-pitch)
  transient-align-variable-pitch))

[elpa] externals/transient 8c0d827319 12/19: make: Improve creation of autoloads file

[Jonas Bernoulli]

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

make: Improve creation of autoloads file
---
 lisp/Makefile | 36 +++-
 1 file changed, 11 insertions(+), 25 deletions(-)

diff --git a/lisp/Makefile b/lisp/Makefile
index 8166fbe663..c2cbd78241 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -15,30 +15,16 @@ clean:
@printf " Cleaning lisp/*...\n"
@rm -rf $(CLEAN)
 
-define LOADDEFS_TMPL
-;;; $(PKG)-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-(add-to-list 'load-path (directory-file-name \
-(or (file-name-directory #$$) (car load-path
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; End:
-;;; $(PKG)-autoloads.el ends here
-endef
-export LOADDEFS_TMPL
-#'
-
 $(PKG)-autoloads.el: $(ELS)
@printf " Creating $@\n"
-   @printf "%s" "$$LOADDEFS_TMPL" > $@
-   @$(EMACS) -Q --batch --eval "(progn\
-   (setq make-backup-files nil)\
-   (setq vc-handled-backends nil)\
-   (setq default-directory (file-truename default-directory))\
-   (setq generated-autoload-file (expand-file-name \"$@\"))\
-   (setq find-file-visit-truename t)\
-   (update-directory-autoloads default-directory))"
+   @$(EMACS) -Q --batch -l autoload -l cl-lib --eval "\
+(let ((file (expand-file-name \"$@\"))\
+  (autoload-timestamps nil) \
+  (backup-inhibited t)\
+  (version-control 'never)\
+  (coding-system-for-write 'utf-8-emacs-unix))\
+  (write-region (autoload-rubric file \"package\" nil) nil file nil 'silent)\
+  (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest 
_)))\
+((symbol-function 'progress-reporter-done) (lambda (_\
+(let ((generated-autoload-file file))\
+  (update-directory-autoloads default-directory"

[elpa] externals/transient cf37817bb5 06/19: Use string-replace instead of replace-regexp-in-string

[Jonas Bernoulli]

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

Use string-replace instead of replace-regexp-in-string
---
 lisp/transient.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ee37ce7081..30a1a224b1 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3413,18 +3413,18 @@ Optional support for popup buttons is also implemented 
here."
((equal (seq-take seq len) transient--redisplay-key)
 (let ((pre (key-description (vconcat (seq-take seq len
   (suf (key-description (vconcat (seq-drop seq len)
-  (setq pre (replace-regexp-in-string "RET" "C-m" pre t))
-  (setq pre (replace-regexp-in-string "TAB" "C-i" pre t))
-  (setq suf (replace-regexp-in-string "RET" "C-m" suf t))
-  (setq suf (replace-regexp-in-string "TAB" "C-i" suf t))
+  (setq pre (string-replace "RET" "C-m" pre))
+  (setq pre (string-replace "TAB" "C-i" pre))
+  (setq suf (string-replace "RET" "C-m" suf))
+  (setq suf (string-replace "TAB" "C-i" suf))
   ;; We use e.g. "-k" instead of the more correct "- k",
   ;; because the former is prettier.  If we did that in
   ;; the definition, then we want to drop the space that
   ;; is reinserted above.  False-positives are possible
   ;; for silly bindings like "-C-c C-c".
   (unless (string-match-p " " key)
-(setq pre (replace-regexp-in-string " " "" pre))
-(setq suf (replace-regexp-in-string " " "" suf)))
+(setq pre (string-replace " " "" pre))
+(setq suf (string-replace " " "" suf)))
   (concat (propertize pre 'face 'transient-unreachable-key)
   (and (string-prefix-p (concat pre " ") key) " ")
   (transient--colorize-key suf cmd)

[elpa] externals/transient f704f2a341 08/19: Use and-let* for side-effects

[Jonas Bernoulli]

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

Use and-let* for side-effects
---
 lisp/transient.el | 43 ++-
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f73787e5e6..8813fb0df5 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1016,8 +1016,8 @@ example, sets a variable use `transient-define-infix' 
instead.
 (vectorp (car value
(cl-mapcan (lambda (s) (transient--parse-child prefix s)) 
value)
  (transient--parse-child prefix value
-(vector  (when-let ((c (transient--parse-group  prefix spec))) (list c)))
-(list(when-let ((c (transient--parse-suffix prefix spec))) (list c)))
+(vector  (and-let* ((c (transient--parse-group  prefix spec))) (list c)))
+(list(and-let* ((c (transient--parse-suffix prefix spec))) (list c)))
 (string  (list spec
 
 (defun transient--parse-group (prefix spec)
@@ -1314,7 +1314,7 @@ See info node `(transient)Modifying Existing Transients'."
  (plist-get plist :command)
 
 (defun transient--command-key (cmd)
-  (when-let ((obj (get cmd 'transient--suffix)))
+  (and-let* ((obj (get cmd 'transient--suffix)))
 (cond ((slot-boundp obj 'key)
(oref obj key))
   ((slot-exists-p obj 'shortarg)
@@ -1450,8 +1450,9 @@ probably use this instead:
 (or command this-command)))
   (or transient--suffixes
   transient-current-suffixes))
-(when-let ((obj (get (or command this-command) 'transient--suffix))
-   (obj (clone obj)))
+(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)))
@@ -1863,14 +1864,14 @@ value.  Otherwise return CHILDREN as is."
 
 (defun transient--init-group (levels spec)
   (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
-(when (transient--use-level-p level)
-  (let ((obj (apply class :level level args)))
-(when (transient--use-suffix-p obj)
-  (when-let ((suffixes
-  (cl-mapcan (lambda (c) (transient--init-child levels c))
- (transient-setup-children obj children
-(oset obj suffixes suffixes)
-(list obj)))
+(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
 
 (defun transient--init-suffix (levels spec)
   (pcase-let* ((`(,level ,class ,args) spec)
@@ -1966,7 +1967,7 @@ value.  Otherwise return CHILDREN as is."
 (defun transient--suffix-predicate (spec)
   (let ((plist (nth 2 spec)))
 (seq-some (lambda (prop)
-(when-let ((pred (plist-get plist prop)))
+(and-let* ((pred (plist-get plist prop)))
   (list prop pred)))
   '( :if :if-not
  :if-nil :if-non-nil
@@ -2932,11 +2933,11 @@ prompt."
 (if (stringp prompt)
 prompt
   "(BUG: no prompt): "))
-(or (when-let ((arg (and (slot-boundp obj 'argument) (oref obj argument
+(or (and-let* ((arg (and (slot-boundp obj 'argument) (oref obj argument
   (if (and (stringp arg) (string-suffix-p "=" arg))
   arg
 (concat arg ": ")))
-(when-let ((var (and (slot-boundp obj 'variable) (oref obj variable
+(and-let* ((var (and (slot-boundp obj 'variable) (oref obj variable
   (and (stringp var)
(concat var ": ")))
 "(BUG: no prompt): ")))
@@ -3034,7 +3035,7 @@ the set, saved or default value for PREFIX."
transient-current-suffixes)))
 
 (defun transient--get-wrapped-value (obj)
-  (when-let ((value (transient-infix-value obj)))
+  (and-let* ((value (transient-infix-value obj)))
 (cl-ecase (and (slot-exists-p obj 'multi-value)
(oref obj multi-value))
   ((nil)(list value))
@@ -3072,7 +3073,7 @@ does nothing." nil)
 
 (cl-defmethod transient-infix-value ((obj transient-option))
   "Return ARGUMENT and VALUE as a unit or nil if the latter is nil."
-  (when-let ((value (oref obj value)))
+  (and-let* ((value (oref obj value)))
 (let ((arg (oref obj argument)))
   (cl-ecase (oref obj multi-value)
 ((nil)(concat arg value))
@@ -3097,7 +3098,7 @@ a string, using the empty string for the empt

[elpa] externals/transient 84f2d12ef3 19/19: Fix doc-string typo

[Jonas Bernoulli]

branch: externals/transient
commit 84f2d12ef31ec74c85e616283926780532fed13f
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix doc-string typo
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 264aaa6be2..e76c0aa5bc 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -148,7 +148,7 @@ bindings are available:
 - \\`' and \\`' invoke the clicked on suffix.
 \\\
 - \\[transient-isearch-backward]\
- and \\[transient-isearch-forward] starts isearch in the popup buffer.
+ and \\[transient-isearch-forward] start isearch in the popup buffer.
 
 \\`' and \\`' are bound in `transient-push-button'.
 All other bindings are in `transient-popup-navigation-map'.

[elpa] externals/transient 22ef906b5a 07/19: Use string-search instead of string-match-p

[Jonas Bernoulli]

branch: externals/transient
commit 22ef906b5a982cd5e9565104f42bc6f655af0e82
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use string-search instead of string-match-p
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 30a1a224b1..f73787e5e6 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3422,7 +3422,7 @@ Optional support for popup buttons is also implemented 
here."
   ;; the definition, then we want to drop the space that
   ;; is reinserted above.  False-positives are possible
   ;; for silly bindings like "-C-c C-c".
-  (unless (string-match-p " " key)
+  (unless (string-search " " key)
 (setq pre (string-replace " " "" pre))
 (setq suf (string-replace " " "" suf)))
   (concat (propertize pre 'face 'transient-unreachable-key)

[elpa] externals/transient d02b4f23e0 18/19: Change key binding for invoking the current suffix

[Jonas Bernoulli]

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

Change key binding for invoking the current suffix

The binding is in `transient-popup-navigation-map', which means that
it is always available (provided popup navigation is enabled of).

Some transient prefixes allow arbitrary non-suffix commands to be
invoked, unless of course a binding of a suffix command conflicts.
Whatever non-suffix command "RET" would invoked, that's very likely
one that we should not shadow.  So bind "M-RET", which in most cases
should be bound to a command that is at least less frequently used
than whatever "RET" is bound to.
---
 lisp/transient.el | 9 +++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 926806eae4..264aaa6be2 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -151,7 +151,12 @@ bindings are available:
  and \\[transient-isearch-forward] starts isearch in the popup buffer.
 
 \\`' and \\`' are bound in `transient-push-button'.
-All other bindings are in `transient-popup-navigation-map'."
+All other bindings are in `transient-popup-navigation-map'.
+
+By default \\`M-RET' is bound to `transient-push-button', instead of
+\\`RET', because if a transient allows the invocation of non-suffixes
+then it is likely that you would want \\`RET' to do what it would do
+if no transient were active."
   :package-version '(transient . "0.4.0")
   :group 'transient
   :type 'boolean)
@@ -1588,7 +1593,7 @@ to `transient-predicate-map'.  Also see 
`transient-base-map'.")
 (define-key map (kbd "") #'transient-forward-button)
 (define-key map (kbd "C-r")#'transient-isearch-backward)
 (define-key map (kbd "C-s")#'transient-isearch-forward)
-(define-key map (kbd "RET")#'transient-push-button)
+(define-key map (kbd "M-RET")  #'transient-push-button)
 map)
   "One of the keymaps used when popup navigation is enabled.
 See `transient-enable-popup-navigation'.")

[elpa] externals/transient 2ef62fac89 13/19: transient--insert-group: Support multi-row cells

[Jonas Bernoulli]

branch: externals/transient
commit 2ef62fac897a434650df8a01bea613425ef1aa9e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--insert-group: Support multi-row cells

See #193 for why we might want that.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 3dee728253..ee90b540c1 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3276,7 +3276,7 @@ have a history of their own.")
  (let ((rows (mapcar #'transient-format (oref column suffixes
(when-let ((desc (transient-format-description column)))
  (push desc rows))
-   rows))
+   (flatten-tree rows)))
(oref group suffixes)))
  (vp (or (oref transient--prefix variable-pitch)
  transient-align-variable-pitch))

[elpa] externals/transient fabd8c9b61 14/19: Put eval-when-compile and require on one line

[Jonas Bernoulli]

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

Put eval-when-compile and require on one line

I like that when grepping for such usage.
---
 lisp/transient.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ee90b540c1..73f19e09cf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -59,8 +59,7 @@
 (require 'format-spec)
 (require 'seq)
 
-(eval-when-compile
-  (require 'subr-x))
+(eval-when-compile (require 'subr-x))
 
 (declare-function info 'info)
 (declare-function Man-find-section 'man)

[elpa] externals/transient 71de86e8ea 17/19: Fix invoking the suffix the cursor is on in the transient buffer

[Jonas Bernoulli]

branch: externals/transient
commit 71de86e8eae4b8eb972356b924a2fc4273559165
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix invoking the suffix the cursor is on in the transient buffer

In [1: bb056e71] we changed how suffix commands are invoked when a
button is activated because the old way resulted in the transient
buffer being current when the suffix command is invoked, which messes
things up.

Clicking on a button in the transient buffer now only temporarily
makes the transient buffer current.  Other bindings had to be moved
from `transient-button-map' to `transient-popup-navigation'.  The
binding for invoking the suffix "under the cursor" was overlooked.

Closes #197.

1: 2022-03-25 bb056e7156b3d88f42770ec55e1a7447a95aca96
   Invoke suffix commands directly when a button is pushed
---
 lisp/transient.el | 18 +++---
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 6213ccebaf..926806eae4 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -143,15 +143,15 @@ bindings are available:
 \\\
 - \\[transient-backward-button] moves the cursor to the previous suffix.
 - \\[transient-forward-button] moves the cursor to the next suffix.
-\\\
 - \\[transient-push-button] invokes the suffix the cursor is on.
+\\\
 - \\`' and \\`' invoke the clicked on suffix.
 \\\
 - \\[transient-isearch-backward]\
- and \\[transient-isearch-forward] start isearch in the popup buffer.
+ and \\[transient-isearch-forward] starts isearch in the popup buffer.
 
-Each of these bindings is defined in either `transient-button-map'
-or `transient-popup-navigation-map'."
+\\`' and \\`' are bound in `transient-push-button'.
+All other bindings are in `transient-popup-navigation-map'."
   :package-version '(transient . "0.4.0")
   :group 'transient
   :type 'boolean)
@@ -1588,14 +1588,18 @@ to `transient-predicate-map'.  Also see 
`transient-base-map'.")
 (define-key map (kbd "") #'transient-forward-button)
 (define-key map (kbd "C-r")#'transient-isearch-backward)
 (define-key map (kbd "C-s")#'transient-isearch-forward)
-map))
+(define-key map (kbd "RET")#'transient-push-button)
+map)
+  "One of the keymaps used when popup navigation is enabled.
+See `transient-enable-popup-navigation'.")
 
 (defvar transient-button-map
   (let ((map (make-sparse-keymap)))
 (define-key map (kbd "") #'transient-push-button)
 (define-key map (kbd "") #'transient-push-button)
-(define-key map (kbd "RET")   #'transient-push-button)
-map))
+map)
+  "One of the keymaps used when popup navigation is enabled.
+See `transient-enable-popup-navigation'.")
 
 (defvar transient-predicate-map
   (let ((map (make-sparse-keymap)))

[elpa] externals/transient 62ba30e7d8 11/19: make: Right-align target verbs

[Jonas Bernoulli]

branch: externals/transient
commit 62ba30e7d8fb670680b6e6b673a20790c511a2a9
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

make: Right-align target verbs
---
 docs/Makefile | 2 +-
 lisp/Makefile | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/docs/Makefile b/docs/Makefile
index c0b03ded5f..254813d204 100644
--- a/docs/Makefile
+++ b/docs/Makefile
@@ -97,5 +97,5 @@ stats-upload:
 CLEAN = $(PKG).info dir $(PKG) $(PKG).html $(PKG).pdf
 
 clean:
-   @printf "Cleaning docs/*...\n"
+   @printf " Cleaning docs/*...\n"
@rm -rf $(CLEAN)
diff --git a/lisp/Makefile b/lisp/Makefile
index ba0c4c1992..8166fbe663 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -12,7 +12,7 @@ loaddefs: $(PKG)-autoloads.el
 CLEAN = $(ELCS) $(PKG)-autoloads.el
 
 clean:
-   @printf "Cleaning lisp/*...\n"
+   @printf " Cleaning lisp/*...\n"
@rm -rf $(CLEAN)
 
 define LOADDEFS_TMPL
@@ -33,7 +33,7 @@ export LOADDEFS_TMPL
 #'
 
 $(PKG)-autoloads.el: $(ELS)
-   @printf "Generating $@\n"
+   @printf " Creating $@\n"
@printf "%s" "$$LOADDEFS_TMPL" > $@
@$(EMACS) -Q --batch --eval "(progn\
(setq make-backup-files nil)\

[elpa] externals/transient 35c4b73419 10/19: Refresh library header

[Jonas Bernoulli]

branch: externals/transient
commit 35c4b73419c23a4e91af7f551520d9b132508761
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Refresh library header
---
 lisp/transient.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e0eadbba42..3dee728253 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1,16 +1,18 @@
-;;; transient.el --- Transient commands  -*- lexical-binding: t; -*-
+;;; transient.el --- Transient commands  -*- lexical-binding:t -*-
 
-;; Copyright (C) 2018-2022  Free Software Foundation, Inc.
+;; Copyright (C) 2018-2022 Free Software Foundation, Inc.
 
 ;; Author: Jonas Bernoulli 
 ;; Homepage: https://github.com/magit/transient
-;; Keywords: bindings
+;; Keywords: extensions
 
-;; Package-Requires: ((emacs "25.1") (compat "28.1.1.0"))
 ;; Package-Version: 0.3.7-git
+;; Package-Requires: ((emacs "25.1") (compat "28.1.1.0"))
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
+;; This file is part of GNU Emacs.
+
 ;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published
 ;; by the Free Software Foundation, either version 3 of the License,
@@ -24,8 +26,6 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see .
 
-;; This file is part of GNU Emacs.
-
 ;;; Commentary:
 
 ;; Taking inspiration from prefix keys and prefix arguments, Transient

[elpa] externals/transient 5ae3c4014e 05/19: Depend on compat package from GNU Elpa

[Jonas Bernoulli]

branch: externals/transient
commit 5ae3c4014eae8e45247a4e4033beb19176cf19ad
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Depend on compat package from GNU Elpa
---
 default.mk| 2 +-
 lisp/transient.el | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/default.mk b/default.mk
index 1a6ad9ee66..9645e96071 100644
--- a/default.mk
+++ b/default.mk
@@ -5,7 +5,7 @@ PKG = transient
 ELS   = $(PKG).el
 ELCS  = $(ELS:.el=.elc)
 
-DEPS  =
+DEPS  = compat
 
 DOMAIN  ?= magit.vc
 CFRONT_DIST ?= E2LUHBKU1FBV02
diff --git a/lisp/transient.el b/lisp/transient.el
index dab09486d7..ee37ce7081 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -6,7 +6,7 @@
 ;; Homepage: https://github.com/magit/transient
 ;; Keywords: bindings
 
-;; Package-Requires: ((emacs "25.1"))
+;; Package-Requires: ((emacs "25.1") (compat "28.1.1.0"))
 ;; Package-Version: 0.3.7-git
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
@@ -53,6 +53,7 @@
 ;;; Code:
 
 (require 'cl-lib)
+(require 'compat)
 (require 'eieio)
 (require 'edmacro)
 (require 'format-spec)

[elpa] externals/transient ed2febd005 16/19: Support use of an infix argument following a prefix argument

[Jonas Bernoulli]

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

Support use of an infix argument following a prefix argument

Using a prefix argument activates `universal-argument--mode' whose
keymap, `universal-argument-map', binds "-" to `negative-argument'.
That binding conflicts with the prefix key used for most infix
arguments.

Counter that by "remapping" `negative-argument' to `transient-update',
using a dedicated pre-command, but only if `negative-argument' was
invoked using "-".  "C--", own binding for that command, remains
functional.

When remapped from `negative-argument', `transient-update' has to
preserve the prefix argument for the next command.  This cannot happen
earlier in the pre-command, because Emacs consumes `prefix-arg' in
between `pre-command-hook' and the actual invocation of the command
itself.

`prefix-arg' has to be set directly because the function normally used
to do so, `prefix-command-preserve-state', sets `this-command' to
`last-command', which would mess with `transient--post-command'.
Otherwise if the sequence of commands is (1) transient prefix command,
(2) prefix argument, (3) infix argument, then `transient--post-command'
would then act as if the prefix and infix arguments were never invoked.
---
 lisp/transient.el | 15 +--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index c740c4779f..6213ccebaf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1605,7 +1605,7 @@ to `transient-predicate-map'.  Also see 
`transient-base-map'.")
 (define-key map [transient-history-prev]  #'transient--do-stay)
 (define-key map [transient-history-next]  #'transient--do-stay)
 (define-key map [universal-argument]  #'transient--do-stay)
-(define-key map [negative-argument]   #'transient--do-stay)
+(define-key map [negative-argument]   #'transient--do-minus)
 (define-key map [digit-argument]  #'transient--do-stay)
 (define-key map [transient-quit-all]  #'transient--do-quit-all)
 (define-key map [transient-quit-one]  #'transient--do-quit-one)
@@ -2416,6 +2416,14 @@ to `transient--do-warn'."
 (setq this-command 'transient-popup-navigation-help))
   transient--stay)
 
+(defun transient--do-minus ()
+  "Call `negative-argument' or pivot to `transient-update'.
+If `negative-argument' is invoked using \"-\" then preserve the
+prefix argument and pivot to `transient-update'."
+  (when (equal (this-command-keys) "-")
+(setq this-command 'transient-update))
+  transient--stay)
+
 (put 'transient--do-stay   'transient-color 'transient-red)
 (put 'transient--do-noop   'transient-color 'transient-red)
 (put 'transient--do-warn   'transient-color 'transient-red)
@@ -2429,6 +2437,7 @@ to `transient--do-warn'."
 (put 'transient--do-quit-one   'transient-color 'transient-blue)
 (put 'transient--do-quit-all   'transient-color 'transient-blue)
 (put 'transient--do-move   'transient-color 'transient-red)
+(put 'transient--do-minus  'transient-color 'transient-red)
 
 ;;; Commands
 
@@ -2496,7 +2505,9 @@ transient is active."
 
 (defun transient-update ()
   "Redraw the transient's state in the popup buffer."
-  (interactive))
+  (interactive)
+  (when (equal this-original-command 'negative-argument)
+(setq prefix-arg current-prefix-arg)))
 
 (defun transient-show ()
   "Show the transient's state in the popup buffer."

[elpa] externals/transient d4fb853d49 15/19: transient--show: Also hide the header-line

[Jonas Bernoulli]

branch: externals/transient
commit d4fb853d49196081269d9cdd267a53c1c0757f23
Author: Damien Cassou 
Commit: Damien Cassou 

transient--show: Also hide the header-line

Some Emacs users move the content of the mode-line to the
header-line. This is also what nano-modeline [1] does by
default. `transient--show` hides the mode-line and the tab-line but
not the header-line. As a result, the last line of transient buffers
are invisible for these users. Hiding the header-line fixes the issue.

https://github.com/rougier/nano-modeline
---
 lisp/transient.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/transient.el b/lisp/transient.el
index 73f19e09cf..c740c4779f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3182,6 +3182,7 @@ have a history of their own.")
   (setq window-size-fixed t)
   (when (bound-and-true-p tab-line-format)
 (setq tab-line-format nil))
+  (setq header-line-format nil)
   (setq mode-line-format (if (eq transient-mode-line-format 'line)
  nil
transient-mode-line-format))

[elpa] externals/transient 682fe574fe 09/19: Silence older byte-compilers

[Jonas Bernoulli]

branch: externals/transient
commit 682fe574fe2c324b4bf2c6a5b099aaf884e45482
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Silence older byte-compilers
---
 lisp/transient.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/transient.el b/lisp/transient.el
index 8813fb0df5..e0eadbba42 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -67,6 +67,7 @@
 (declare-function Man-next-section 'man)
 (declare-function Man-getpage-in-background 'man)
 
+(defvar display-line-numbers) ; since Emacs 26.1
 (defvar Man-notify-method)
 
 (define-obsolete-function-alias 'define-transient-command

[elpa] externals/eev baa25581c2: Added the section "5.1. Subtitles" to `(find-video-links-intro)'.

[ELPA Syncer]

branch: externals/eev
commit baa25581c23aff0b088913fc9fd0c3d1509acca5
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Added the section "5.1. Subtitles" to `(find-video-links-intro)'.
---
 ChangeLog |  6 ++
 VERSION   |  4 ++--
 eev-intro.el  | 50 +-
 eev-tlinks.el |  1 +
 eev-videolinks.el |  3 ++-
 5 files changed, 60 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb0c54f4b2..6aef55c237 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2022-05-02  Eduardo Ochs  
 
+   * eev-intro.el (find-video-links-intro): new section: "5.1.
+   Subtitles".
+
+   * eev-videolinks.el (ee-1stclassvideos-info): indicate that the
+   video "2022findelispintro" has subtitles.
+
* eev-blinks.el (find-customizeoption): new function.
(find-customizevariable): new function.
(find-customizeapropos): new function.
diff --git a/VERSION b/VERSION
index 0008e3c485..f77b848ca5 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon May  2 04:14:55 GMT 2022
-Mon May  2 01:14:55 -03 2022
+Mon May  2 09:27:35 GMT 2022
+Mon May  2 06:27:35 -03 2022
diff --git a/eev-intro.el b/eev-intro.el
index 07d7d43c25..207197d412 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -11516,6 +11516,52 @@ The local copy will be played with Mpv, with:
 
 
 
+5.1. Subtitles
+--
+Some video have subtitles. If you run this sexp
+
+  (find-wgeteevsubtitles-links \"2022-pict2e-lua\" \".vtt\")
+
+it will create a temporary buffer with this eepitch block:
+
+ (eepitch-shell2)
+ (eepitch-kill)
+ (eepitch-shell2)
+  mkdir -p $S/http/angg.twu.net/eev-videos/
+  cd   $S/http/angg.twu.net/eev-videos/
+  wget -nc  http://angg.twu.net/eev-videos/2022-pict2e-lua.mp4
+  wget -N   http://angg.twu.net/eev-videos/2022-pict2e-lua.vtt
+
+The \"-nc\" says to wget that if the .mp4 (the video) is already
+downloaded then it shouldn't try to download it again; the \"-N\" says
+to wget that if the version of the .vtt (the subtitles) at
+angg.twu.net is newer than the local copy then wget should download
+the newer version, and replace the local copy with the newer version.
+
+When a video has subtitles its `find-1stclassvideo-links' page
+contains a section titled \"Download subtitles:\". Compare:
+
+  (find-1stclassvideo-links \"2022pict2elua\")
+  (find-1stclassvideo-links \"2021workshop6\")
+
+The video \"2022pict2elua\" has subtitles, and \"2021workshop6\" doesn't.
+
+When both the .mp4 and .vtt files are present mpv plays the local copy
+with subtitles. Try:
+
+  (find-video \"$S/http/angg.twu.net/eev-videos/2022-pict2e-lua.mp4\")
+  (find-fline \"$S/http/angg.twu.net/eev-videos/\" \"2022-pict2e-lua\")
+  (find-2022pict2eluavideo \"7:12\")
+
+The process of downloading or updating subtitles is not well
+integrated in the rest of eev yet, and at this moment the \"right\" way
+to download subtitles is with `find-1stclassvideo-links' and with the
+link in its \"Download subtitles\" section.
+
+
+
+
+
 6. Configuring Mpv
 ==
 After installing Mpv you may have to configure its path. On
@@ -11671,7 +11717,9 @@ videos is by running `M-x find-1stclassvideos', or:
 
 That function displays a temporary buffer with a list of all
 first-class videos, with a `find-1stclassvideo-links' sexp for
-each one.
+each one. Here is a screenshot:
+
+  http://angg.twu.net/IMAGES/2022find-1stclassvideos.png
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 3c8e3d4d48..16ddf5e7b4 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -1941,6 +1941,7 @@ http://angg.twu.net/ are newer than the local copy."
  `((find-wgeteevsubtitles-links ,stem ,exts ,@pos-spec-list)
;; Convention: the first sexp always regenerates the buffer.
(find-efunction 'find-wgeteevsubtitles-links)
+   (find-video-links-intro "5.1. Subtitles")
""
,(ee-template0 "\
  (eepitch-shell2)
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 497be53dc1..3328f40608 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20220501
+;; Version:20220502
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -874,6 +874,7 @@ For more info on this particular video, run:
  :page  "http://angg.twu.net/find-elisp-intro.html";
  :date"2022jan23"
  :length  "21:12"
+ :subs".vtt"
  :comment "A very good video on the design decisions behind 
`(find-elisp-intro)'.")
 ;;
 ;; «2022pict2elua»  (to ".2022pict2elua")

[nongnu] elpa/cider b2cee7fc30 1/3: Release CIDER 1.4 ("Kyiv")

[ELPA Syncer]

branch: elpa/cider
commit b2cee7fc301735b403920583cc2c23dcf70990a3
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Release CIDER 1.4 ("Kyiv")
---
 CHANGELOG.md   | 2 ++
 cider.el   | 4 ++--
 doc/antora.yml | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 6bb72a6029..532809bb56 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,8 @@
 
 ## master (unreleased)
 
+## 1.4.0 (2022-05-02)
+
 ## New features
 
 * [#3188](https://github.com/clojure-emacs/cider/pull/3188): Add support for 
`undef-all` op, for removing stale vars and conflicting aliases.
diff --git a/cider.el b/cider.el
index 95ac9ce74b..63b875dba6 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.4.0-snapshot
+;; Version: 1.4.0
 ;; Package-Requires: ((emacs "26") (clojure-mode "5.14") (parseedn "1.0.6") 
(queue "0.2") (spinner "1.7") (seq "2.22") (sesman "0.3.2"))
 ;; Keywords: languages, clojure, cider
 
@@ -92,7 +92,7 @@
 (require 'sesman)
 (require 'package)
 
-(defconst cider-version "1.4.0-snapshot"
+(defconst cider-version "1.4.0"
   "The current version of CIDER.")
 
 (defconst cider-codename "Kyiv"
diff --git a/doc/antora.yml b/doc/antora.yml
index fd9dacd593..93812afc9c 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: ~
+version: 1.4
 nav:
 - modules/ROOT/nav.adoc

[nongnu] elpa/cider 4ecf553baf 3/3: Fix a changelog entry

[ELPA Syncer]

branch: elpa/cider
commit 4ecf553baf40df0b956b2ce84d49a03654883829
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Fix a changelog entry
---
 CHANGELOG.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 532809bb56..2eb304294d 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -27,7 +27,7 @@
 * [#3172](https://github.com/clojure-emacs/cider/issues/3172): Restore the 
long-lost (but critical) inspirational message on connect.
 * [#3186](https://github.com/clojure-emacs/cider/pull/3186): An assortment of 
small fixes.
 
-## 1.3.0 (2021-03-07)
+## 1.3.0 (2022-03-07)
 
 ### New features
 

[nongnu] elpa/cider updated (23ccdf9ec3 -> 4ecf553baf)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  23ccdf9ec3 Fix custom-declare-variable wider than 80 chars warning
   new  b2cee7fc30 Release CIDER 1.4 ("Kyiv")
   new  c29594b942 Switch back the docs version
   new  4ecf553baf Fix a changelog entry


Summary of changes:
 CHANGELOG.md | 4 +++-
 cider.el | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

[nongnu] elpa/cider c29594b942 2/3: Switch back the docs version

[ELPA Syncer]

branch: elpa/cider
commit c29594b942fe28f215af6fdd5cf9a235af06aedb
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Switch back the docs version
---
 doc/antora.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/antora.yml b/doc/antora.yml
index 93812afc9c..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.4
+version: ~
 nav:
 - modules/ROOT/nav.adoc

[elpa] externals/cape d836397d9c: Fix cape-super-capf (See #18)

[ELPA Syncer]

branch: externals/cape
commit d836397d9c025f03125fb4321abd48d557518bb6
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix cape-super-capf (See #18)
---
 cape.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cape.el b/cape.el
index 4100cd7c8b..0fb0bcc8e6 100644
--- a/cape.el
+++ b/cape.el
@@ -559,7 +559,7 @@ If INTERACTIVE is nil the function acts like a Capf."
(copy-sequence cache-candidates))
   (_
(completion--some
-(lambda (table)
+(pcase-lambda (`(,table . ,_plist))
   (complete-with-action action table str pred))
 tables
   :exclusive 'no

[nongnu] elpa/elpher eb650bff13: Updated welcome page documentation to also mention non-GNU elpa.

[ELPA Syncer]

branch: elpa/elpher
commit eb650bff13f8ec7c9504c0937b4395617cfdfd53
Author: plugd 
Commit: plugd 

Updated welcome page documentation to also mention non-GNU elpa.
---
 elpher.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/elpher.el b/elpher.el
index b264dccc41..4498c6c639 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1879,8 +1879,9 @@ Assumes UTF-8 encoding for all text files."
'help-echo help-string))
(insert "\n")
(insert (propertize
-(concat "(These documents should be available if you have 
installed Elpher \n"
-" using MELPA. Otherwise you may have to install the 
manual yourself.)\n")
+(concat "(These documents should be available if you have 
installed Elpher\n"
+" from MELPA or non-GNU ELPA. Otherwise you may have to 
install the\n"
+" manual yourself.)\n")
 'face 'shadow))
(elpher-restore-pos)))
 

[elpa] externals/embark a26044888e 1/9: Fix doc string warnings

[ELPA Syncer]

branch: externals/embark
commit a26044888e4b2d279fd29834e36099dbaf5643b0
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix doc string warnings
---
 embark.el | 17 -
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/embark.el b/embark.el
index 7faad21dea..d1e7540ff9 100644
--- a/embark.el
+++ b/embark.el
@@ -381,14 +381,13 @@ wre obtained from a `delete-file' prompt.  In that case 
you can
 configure that by adding an entry to this variable pairing `file'
 with `find-file'.
 
-In addition to target types, you can also use as keys in this
-alist, pairs of a target type and a command name.  Such a pair
-indicates that the override only applies if the target was
-obtained from minibuffer completion from that command.  For
-example adding an entry '((file . delete-file) . find-file) to
-this alist would indicate that for files at the prompt of the
-`delete-file' command, `find-file' should be used as the default
-action."
+In addition to target types, you can also use as keys in this alist,
+pairs of a target type and a command name. Such a pair indicates that
+the override only applies if the target was obtained from minibuffer
+completion from that command. For example adding an
+entry (cons (cons 'file 'delete-file) 'find-file) to this alist would
+indicate that for files at the prompt of the `delete-file' command,
+`find-file' should be used as the default action."
   :type '(alist :key-type (choice (symbol :tag "Type")
   (cons (symbol :tag "Type")
 (symbol :tag "Command")))
@@ -3313,7 +3312,7 @@ With a prefix argument, prompt the user (unless STRINGS 
has 0 or
 "\n"))
 
 (defun embark-copy-as-kill (strings)
-  "Join STRINGS and save on the kill-ring.
+  "Join STRINGS and save on the `kill-ring'.
 With a prefix argument, prompt for the separator to join the
 STRINGS, which defaults to a newline."
   (kill-new (string-join strings (embark--separator strings

[elpa] externals/embark e6a991c322 5/9: Let's not be embarrased about advising an internal Embark function

[ELPA Syncer]

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

Let's not be embarrased about advising an internal Embark function
---
 embark-consult.el | 2 --
 1 file changed, 2 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 898cde0281..72cb479f1a 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -395,8 +395,6 @@ Meant as :after-until advice for 
`embark-collect--metadatum'."
  (transform cand)
  (type (car (alist-get type config
 
-;; TODO can we find a better solution than the advice here?
-;; Can we hook more directly into `embark-collect--metadatum'?
 (advice-add #'embark-collect--metadatum :after-until
 #'embark-consult--imenu-group-function)
 

[elpa] externals/embark updated (7a2487f5bb -> a8bc5d602d)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  7a2487f5bb TOC = imenu items in prog mode buffers, else outline 
headings
   new  a26044888e Fix doc string warnings
   new  25217ccddf outline-minor-mode is autoloaded
   new  a3f418154d Use a more localized advice only for 
embark-collect--metadatum
   new  2d017739a0 Remap paragraph commands to outline heading commands
   new  e6a991c322 Let's not be embarrased about advising an internal 
Embark function
   new  fa0ef92a96 Add {, } for outline navigation in collect buffers
   new  4f2770a4b3 Merge pull request #498 from minad/outline-review
   new  a3e2a186ec Make the group title format configurable (fix #497)
   new  a8bc5d602d Make the collect group headers normal-sized


Summary of changes:
 embark-consult.el | 26 --
 embark.el | 65 +++
 2 files changed, 57 insertions(+), 34 deletions(-)

[elpa] externals/embark 2d017739a0 4/9: Remap paragraph commands to outline heading commands

[ELPA Syncer]

branch: externals/embark
commit 2d017739a04e59bae4f4a717ffc92ecb312ddf02
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remap paragraph commands to outline heading commands

Not sure if you like this but I prefer to use remapping here for consistency
with paragraph jumping in other modes. I also use remapping in Vertico. The
paragraph commands are bound to M-{ and M-} by default, but users may have 
bound
them to other convenient keys anway. However using remapping may go against 
a
bit of the current Embark style, where we seem to use mostly explicit 
bindings.
---
 embark.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 4f0ba68288..5872070dec 100644
--- a/embark.el
+++ b/embark.el
@@ -2685,8 +2685,8 @@ If NESTED is non-nil subkeymaps are not flattened."
   ("b" backward-button)
   ("" forward-button)
   ("" backward-button)
-  ("M-n" 'outline-next-heading)
-  ("M-p" 'outline-previous-heading))
+  ([remap forward-paragraph] 'outline-next-heading)
+  ([remap backward-paragraph] 'outline-previous-heading))
 
 (define-derived-mode embark-collect-mode tabulated-list-mode "Embark Collect"
   "List of candidates to be acted on.

[elpa] externals/embark-consult updated (7a2487f5bb -> a8bc5d602d)

[ELPA Syncer]

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

  from  7a2487f5bb TOC = imenu items in prog mode buffers, else outline 
headings
  adds  a26044888e Fix doc string warnings
  adds  25217ccddf outline-minor-mode is autoloaded
  adds  a3f418154d Use a more localized advice only for 
embark-collect--metadatum
  adds  2d017739a0 Remap paragraph commands to outline heading commands
  adds  e6a991c322 Let's not be embarrased about advising an internal 
Embark function
  adds  fa0ef92a96 Add {, } for outline navigation in collect buffers
  adds  4f2770a4b3 Merge pull request #498 from minad/outline-review
  adds  a3e2a186ec Make the group title format configurable (fix #497)
  adds  a8bc5d602d Make the collect group headers normal-sized

No new revisions were added by this update.

Summary of changes:
 embark-consult.el | 26 --
 embark.el | 65 +++
 2 files changed, 57 insertions(+), 34 deletions(-)

[elpa] externals/embark 4f2770a4b3 7/9: Merge pull request #498 from minad/outline-review

[ELPA Syncer]

branch: externals/embark
commit 4f2770a4b3f591359a1e1178f2b3dc9587f41ee4
Merge: 7a2487f5bb fa0ef92a96
Author: Omar Antolín Camarena 
Commit: GitHub 

Merge pull request #498 from minad/outline-review

Outline review
---
 embark-consult.el | 26 +++---
 embark.el | 35 +--
 2 files changed, 32 insertions(+), 29 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 503da3e93f..72cb479f1a 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -7,7 +7,7 @@
 ;; Keywords: convenience
 ;; Version: 0.5
 ;; Homepage: https://github.com/oantolin/embark
-;; Package-Requires: ((emacs "26.1") (embark "0.12") (consult "0.10"))
+;; Package-Requires: ((emacs "27.1") (embark "0.12") (consult "0.10"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -216,6 +216,7 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
 
 (declare-function xref--show-xref-buffer "ext:xref")
 (declare-function consult-xref "ext:consult-xref")
+(defvar xref-auto-jump-to-first-xref)
 (defvar consult-xref--fetcher)
 
 (defun embark-consult-export-xref (items)
@@ -281,8 +282,8 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
   "Keymap for Consult sync search commands"
   :parent nil
   ("o" consult-outline)
-  ("i" consult-imenu)
-  ("I" consult-imenu-multi)
+  ("i" 'consult-imenu)
+  ("I" 'consult-imenu-multi)
   ("l" consult-line)
   ("L" consult-line-multi))
 
@@ -373,15 +374,18 @@ for any action that is a Consult async command."
   (cons 'imenu (mapcar #'car (consult-imenu--items
 
 (defvar consult-imenu-config)
-(defun embark-consult--imenu-group-function (metadata prop)
-  "Return a suitable group-function for imenu METADATA.
-Meant as :after-until advice for `completion-metadata-get'."
-  (when-let (((eq (alist-get 'category metadata) 'imenu))
+(defun embark-consult--imenu-group-function (type prop)
+  "Return a suitable group-function for imenu.
+TYPE is the completion category.
+PROP is the metadata property.
+Meant as :after-until advice for `embark-collect--metadatum'."
+  (when-let (((and (eq type 'imenu) (eq prop 'group-function)))
  (config (plist-get
   (cdr (seq-find (lambda (x) (derived-mode-p (car x)))
  consult-imenu-config))
   :types)))
 ;; taken from consult-imenu
+;; TODO extract the function from consult-imenu, reuse it here.
 (lambda (cand transform)
   (let ((type (get-text-property 0 'consult--type cand)))
 (cond
@@ -391,16 +395,16 @@ Meant as :after-until advice for 
`completion-metadata-get'."
  (transform cand)
  (type (car (alist-get type config
 
+(advice-add #'embark-collect--metadatum :after-until
+#'embark-consult--imenu-group-function)
+
 (defun embark-consult-imenu-or-outline-candidates ()
   "Collect imenu items in prog modes buffer or outline headings otherwise."
   (if (derived-mode-p 'prog-mode)
   (embark-consult-imenu-candidates)
 (embark-consult-outline-candidates)))
 
-(advice-add 'completion-metadata-get :after-until
-#'embark-consult--imenu-group-function)
-
-(setf (alist-get 'imenu embark-default-action-overrides) #'consult-imenu)
+(setf (alist-get 'imenu embark-default-action-overrides) 'consult-imenu)
 
 (add-to-list 'embark-candidate-collectors
  #'embark-consult-imenu-or-outline-candidates
diff --git a/embark.el b/embark.el
index 7faad21dea..f207730ec8 100644
--- a/embark.el
+++ b/embark.el
@@ -113,8 +113,7 @@
 
 (eval-when-compile (require 'subr-x))
 
-(require 'ffap); used to recognize file and url targets
-(require 'outline) ; used for group-function support in collect buffers
+(require 'ffap) ; used to recognize file and url targets
 
 ;;; User facing options
 
@@ -381,14 +380,13 @@ wre obtained from a `delete-file' prompt.  In that case 
you can
 configure that by adding an entry to this variable pairing `file'
 with `find-file'.
 
-In addition to target types, you can also use as keys in this
-alist, pairs of a target type and a command name.  Such a pair
-indicates that the override only applies if the target was
-obtained from minibuffer completion from that command.  For
-example adding an entry '((file . delete-file) . find-file) to
-this alist would indicate that for files at the prompt of the
-`delete-file' command, `find-file' should be used as the default
-action."
+In addition to target types, you can also use as keys in this alist,
+pairs of a target type and a command name. Such a pair indicates that
+the override only applies if the target was obtained from minibuffer
+completion from that command. For example adding an
+entry (cons (cons 'file 'delete-file) 'find-file) to this alist would
+indicate that for files at the prompt of the `delete-file' command,
+`find-fil

[elpa] externals/embark a3f418154d 3/9: Use a more localized advice only for embark-collect--metadatum

[ELPA Syncer]

branch: externals/embark
commit a3f418154da2c979ba85a482bded9096b2477e9b
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use a more localized advice only for embark-collect--metadatum
---
 embark-consult.el | 28 +---
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 503da3e93f..898cde0281 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -7,7 +7,7 @@
 ;; Keywords: convenience
 ;; Version: 0.5
 ;; Homepage: https://github.com/oantolin/embark
-;; Package-Requires: ((emacs "26.1") (embark "0.12") (consult "0.10"))
+;; Package-Requires: ((emacs "27.1") (embark "0.12") (consult "0.10"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -216,6 +216,7 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
 
 (declare-function xref--show-xref-buffer "ext:xref")
 (declare-function consult-xref "ext:consult-xref")
+(defvar xref-auto-jump-to-first-xref)
 (defvar consult-xref--fetcher)
 
 (defun embark-consult-export-xref (items)
@@ -281,8 +282,8 @@ This function is meant to be added to 
`embark-collect-mode-hook'."
   "Keymap for Consult sync search commands"
   :parent nil
   ("o" consult-outline)
-  ("i" consult-imenu)
-  ("I" consult-imenu-multi)
+  ("i" 'consult-imenu)
+  ("I" 'consult-imenu-multi)
   ("l" consult-line)
   ("L" consult-line-multi))
 
@@ -373,15 +374,18 @@ for any action that is a Consult async command."
   (cons 'imenu (mapcar #'car (consult-imenu--items
 
 (defvar consult-imenu-config)
-(defun embark-consult--imenu-group-function (metadata prop)
-  "Return a suitable group-function for imenu METADATA.
-Meant as :after-until advice for `completion-metadata-get'."
-  (when-let (((eq (alist-get 'category metadata) 'imenu))
+(defun embark-consult--imenu-group-function (type prop)
+  "Return a suitable group-function for imenu.
+TYPE is the completion category.
+PROP is the metadata property.
+Meant as :after-until advice for `embark-collect--metadatum'."
+  (when-let (((and (eq type 'imenu) (eq prop 'group-function)))
  (config (plist-get
   (cdr (seq-find (lambda (x) (derived-mode-p (car x)))
  consult-imenu-config))
   :types)))
 ;; taken from consult-imenu
+;; TODO extract the function from consult-imenu, reuse it here.
 (lambda (cand transform)
   (let ((type (get-text-property 0 'consult--type cand)))
 (cond
@@ -391,16 +395,18 @@ Meant as :after-until advice for 
`completion-metadata-get'."
  (transform cand)
  (type (car (alist-get type config
 
+;; TODO can we find a better solution than the advice here?
+;; Can we hook more directly into `embark-collect--metadatum'?
+(advice-add #'embark-collect--metadatum :after-until
+#'embark-consult--imenu-group-function)
+
 (defun embark-consult-imenu-or-outline-candidates ()
   "Collect imenu items in prog modes buffer or outline headings otherwise."
   (if (derived-mode-p 'prog-mode)
   (embark-consult-imenu-candidates)
 (embark-consult-outline-candidates)))
 
-(advice-add 'completion-metadata-get :after-until
-#'embark-consult--imenu-group-function)
-
-(setf (alist-get 'imenu embark-default-action-overrides) #'consult-imenu)
+(setf (alist-get 'imenu embark-default-action-overrides) 'consult-imenu)
 
 (add-to-list 'embark-candidate-collectors
  #'embark-consult-imenu-or-outline-candidates

[elpa] externals/embark 25217ccddf 2/9: outline-minor-mode is autoloaded

[ELPA Syncer]

branch: externals/embark
commit 25217ccddf3a7cc58378c71cf41843c631cc94d2
Author: Daniel Mendler 
Commit: Daniel Mendler 

outline-minor-mode is autoloaded
---
 embark.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index d1e7540ff9..4f0ba68288 100644
--- a/embark.el
+++ b/embark.el
@@ -113,8 +113,7 @@
 
 (eval-when-compile (require 'subr-x))
 
-(require 'ffap); used to recognize file and url targets
-(require 'outline) ; used for group-function support in collect buffers
+(require 'ffap) ; used to recognize file and url targets
 
 ;;; User facing options
 
@@ -2643,6 +2642,7 @@ If NESTED is non-nil subkeymaps are not flattened."
   'face 'embark-collect-candidate
   'action 'embark-collect-choose)
 
+(declare-function outline-toggle-children "outline")
 (define-button-type 'embark-collect-group
   'face 'embark-collect-group-title
   'action (lambda (_) (outline-toggle-children)))
@@ -2685,8 +2685,8 @@ If NESTED is non-nil subkeymaps are not flattened."
   ("b" backward-button)
   ("" forward-button)
   ("" backward-button)
-  ("M-n" outline-next-heading)
-  ("M-p" outline-previous-heading))
+  ("M-n" 'outline-next-heading)
+  ("M-p" 'outline-previous-heading))
 
 (define-derived-mode embark-collect-mode tabulated-list-mode "Embark Collect"
   "List of candidates to be acted on.

[elpa] externals/embark fa0ef92a96 6/9: Add {, } for outline navigation in collect buffers

[ELPA Syncer]

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

Add {, } for outline navigation in collect buffers

Also, fix the old grid-view era bindings for {forward,backward}-button
and E for export (e was a typo!).
---
 embark.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/embark.el b/embark.el
index 5872070dec..f207730ec8 100644
--- a/embark.el
+++ b/embark.el
@@ -2675,18 +2675,18 @@ If NESTED is non-nil subkeymaps are not flattened."
   ("A" embark-act-all)
   ("M-a" embark-collect-direct-action-minor-mode)
   ("z" embark-collect-zebra-minor-mode)
-  ("e" embark-export)
+  ("E" embark-export)
   ("t" embark-collect-toggle-marks)
   ("m" embark-collect-mark)
   ("u" embark-collect-unmark)
   ("U" embark-collect-unmark-all)
   ("s" isearch-forward)
-  ("f" forward-button)
-  ("b" backward-button)
-  ("" forward-button)
-  ("" backward-button)
+  ("n" forward-button)
+  ("p" backward-button)
   ([remap forward-paragraph] 'outline-next-heading)
-  ([remap backward-paragraph] 'outline-previous-heading))
+  ("}" 'outline-next-heading)
+  ([remap backward-paragraph] 'outline-previous-heading)
+  ("{" 'outline-previous-heading))
 
 (define-derived-mode embark-collect-mode tabulated-list-mode "Embark Collect"
   "List of candidates to be acted on.

[elpa] externals/embark a3e2a186ec 8/9: Make the group title format configurable (fix #497)

[ELPA Syncer]

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

Make the group title format configurable (fix #497)
---
 embark.el | 28 
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index f207730ec8..df10d1d303 100644
--- a/embark.el
+++ b/embark.el
@@ -2427,11 +2427,24 @@ The commands that prompt for a string separator are
 `embark-insert' and `embark-copy-as-kill'.")
 
 (defface embark-collect-candidate '((t :inherit default))
-  "Face for candidates in Embark Collect.")
+  "Face for candidates in Embark Collect buffers.")
 
 (defface embark-collect-group-title
   '((t :inherit shadow :slant italic :height 1.1))
-  "Face for candidates in Embark Collect.")
+  "Face for group titles in Embark Collect buffers.")
+
+(defface embark-collect-group-separator
+  '((t :inherit shadow :strike-through t italic :height 1.1))
+  "Face for group titles in Embark Collect buffers.")
+
+(defcustom embark-collect-group-format
+  (concat
+   (propertize "" 'face 'embark-collect-group-separator)
+   (propertize " %s " 'face 'embark-collect-group-title)
+   (propertize " " 'face 'completions-group-separator
+   'display '(space :align-to right)))
+  "Format string used for the group title in Embark Collect buffers."
+  :type 'string)
 
 (defface embark-collect-zebra-highlight
   '((default :extend t)
@@ -2688,6 +2701,10 @@ If NESTED is non-nil subkeymaps are not flattened."
   ([remap backward-paragraph] 'outline-previous-heading)
   ("{" 'outline-previous-heading))
 
+(defconst embark-collect--outline-string (string #x21)
+  "Special string used for outine headings in Embark Collect buffers.
+Chosen to be extremely unlikely to appear in a candidate.")
+
 (define-derived-mode embark-collect-mode tabulated-list-mode "Embark Collect"
   "List of candidates to be acted on.
 The command `embark-act' is bound `embark-collect-mode-map', but
@@ -2705,7 +2722,7 @@ opened the minibuffer is run again and the minibuffer 
contents
 restored.  You can then interact normally with the command,
 perhaps editing the minibuffer contents, and, if you wish, you
 can rerun `embark-collect' to get an updated buffer."
-  (setq-local outline-regexp "● ")
+  (setq-local outline-regexp embark-collect--outline-string)
   (outline-minor-mode))
 
 (defun embark-collect--remove-zebra-stripes ()
@@ -2845,7 +2862,10 @@ example)."
   (mapcan
(lambda (group)
  (cons
-  `(nil [(,(concat "● " (car group)) type embark-collect-group)
+  `(nil [(,(concat (propertize embark-collect--outline-string
+   'invisible t)
+   (format embark-collect-group-format (car 
group)))
+  type embark-collect-group)
  ("" skip t)])
   (mapcar
(pcase-lambda (`(,cand ,prefix ,annotation))

[elpa] externals/embark a8bc5d602d 9/9: Make the collect group headers normal-sized

[ELPA Syncer]

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

Make the collect group headers normal-sized
---
 embark.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index df10d1d303..314c12f49c 100644
--- a/embark.el
+++ b/embark.el
@@ -2430,11 +2430,11 @@ The commands that prompt for a string separator are
   "Face for candidates in Embark Collect buffers.")
 
 (defface embark-collect-group-title
-  '((t :inherit shadow :slant italic :height 1.1))
+  '((t :inherit shadow :slant italic))
   "Face for group titles in Embark Collect buffers.")
 
 (defface embark-collect-group-separator
-  '((t :inherit shadow :strike-through t italic :height 1.1))
+  '((t :inherit shadow :strike-through t italic))
   "Face for group titles in Embark Collect buffers.")
 
 (defcustom embark-collect-group-format

[elpa] externals/consult 87a9499c7b: Extract consult-imenu--group for use in embark-consult

[ELPA Syncer]

branch: externals/consult
commit 87a9499c7b11fe230ee38b88a1606554132824dd
Author: Daniel Mendler 
Commit: Daniel Mendler 

Extract consult-imenu--group for use in embark-consult

See https://github.com/oantolin/embark/pull/498
cc @oantolin
---
 consult-imenu.el | 80 +---
 1 file changed, 42 insertions(+), 38 deletions(-)

diff --git a/consult-imenu.el b/consult-imenu.el
index e7878c4b0f..667ae25cd3 100644
--- a/consult-imenu.el
+++ b/consult-imenu.el
@@ -153,7 +153,6 @@ TYPES is the mode-specific types configuration."
 
 (defun consult-imenu--jump (item)
   "Jump to imenu ITEM via `consult--jump'.
-
 In contrast to the builtin `imenu' jump function,
 this function can jump across buffers."
   (pcase item
@@ -161,45 +160,50 @@ this function can jump across buffers."
 (`(,_ . ,pos) (consult--jump pos))
 (_ (error "Unknown imenu item: %S" item
 
+(defun consult-imenu--narrow ()
+  "Return narrowing configuration for the current buffer."
+  (mapcar (lambda (x) (cons (car x) (cadr x)))
+  (plist-get (cdr (seq-find (lambda (x) (derived-mode-p (car x)))
+consult-imenu-config))
+ :types)))
+
+(defun consult-imenu--group ()
+  "Create a imenu group function for the current buffer."
+  (when-let (narrow (consult-imenu--narrow))
+(lambda (cand transform)
+  (let ((type (get-text-property 0 'consult--type cand)))
+(cond
+ ((and transform type)
+  (substring cand (1+ (next-single-property-change 0 'consult--type 
cand
+ (transform cand)
+ (type (alist-get type narrow)))
+
 (defun consult-imenu--select (prompt items)
   "Select from imenu ITEMS given PROMPT string."
-  (let ((narrow
- (mapcar (lambda (x) (cons (car x) (cadr x)))
- (plist-get (cdr (seq-find (lambda (x) (derived-mode-p (car 
x)))
-   consult-imenu-config))
-:types
-(consult-imenu--deduplicate items)
-(consult-imenu--jump
- (consult--read
-  (or items (user-error "Imenu is empty"))
-  :prompt prompt
-  :state
-  (let ((preview (consult--jump-preview)))
-(lambda (action cand)
-  ;; Only preview simple menu items which are markers,
-  ;; in order to avoid any bad side effects.
-  (funcall preview action (and (markerp (cdr cand)) (cdr cand)
-  :require-match t
-  :group
-  (when narrow
-(lambda (cand transform)
-  (let ((type (get-text-property 0 'consult--type cand)))
-(cond
- ((and transform type)
-  (substring cand (1+ (next-single-property-change 0 
'consult--type cand
- (transform cand)
- (type (alist-get type narrow))
-  :narrow
-  (when narrow
-(list :predicate
-  (lambda (cand)
-(eq (get-text-property 0 'consult--type (car cand)) 
consult--narrow))
-  :keys narrow))
-  :category 'imenu
-  :lookup #'consult--lookup-cons
-  :history 'consult-imenu--history
-  :add-history (thing-at-point 'symbol)
-  :sort nil
+  (consult-imenu--deduplicate items)
+  (consult-imenu--jump
+   (consult--read
+(or items (user-error "Imenu is empty"))
+:state
+(let ((preview (consult--jump-preview)))
+  (lambda (action cand)
+;; Only preview simple menu items which are markers,
+;; in order to avoid any bad side effects.
+(funcall preview action (and (markerp (cdr cand)) (cdr cand)
+:narrow
+(when-let (narrow (consult-imenu--narrow))
+  (list :predicate
+(lambda (cand)
+  (eq (get-text-property 0 'consult--type (car cand)) 
consult--narrow))
+:keys narrow))
+:group (consult-imenu--group)
+:prompt prompt
+:require-match t
+:category 'imenu
+:lookup #'consult--lookup-cons
+:history 'consult-imenu--history
+:add-history (thing-at-point 'symbol)
+:sort nil)))
 
 ;;;###autoload
 (defun consult-imenu ()

[nongnu] elpa/evil 25885ddc07: Improve on evil-append's determination of eolp

[ELPA Syncer]

branch: elpa/evil
commit 25885ddc07d4cf09c600b2b71f226cfcf3a5746d
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Improve on evil-append's determination of eolp

Fixes #1617
---
 evil-commands.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/evil-commands.el b/evil-commands.el
index c371accdf7..2bb14baa0b 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -2603,7 +2603,10 @@ the lines."
 (evil-visual-rotate 'lower-right)
 (backward-char)
 (evil-append count)))
-(unless (eolp) (forward-char))
+(unless (= (current-column)
+   (save-excursion (end-of-line) (current-column)))
+  ;; Subtly different from `(eolp)' - see issue #1617
+  (forward-char))
 (evil-insert count vcount skip-empty-lines)
 (add-hook 'post-command-hook #'evil-maybe-remove-spaces)))
 

[nongnu] elpa/elpher aa75538a71: Removed preformatted-specific face.

[ELPA Syncer]

branch: elpa/elpher
commit aa75538a7139278c120ccc4361fff634d1b2a715
Author: plugd 
Commit: plugd 

Removed preformatted-specific face.

This was causing multiple issues, including (a) conflicts with the
ANSI interpreter and (b) producing non-monospaced output even with the
face set to inherit from fixed-pitch due (I think?) to Unicode font
rendering wierdness.
---
 elpher.el | 5 -
 1 file changed, 5 deletions(-)

diff --git a/elpher.el b/elpher.el
index 4498c6c639..e7b37ba017 100644
--- a/elpher.el
+++ b/elpher.el
@@ -310,10 +310,6 @@ meaningfully."
   '((t :inherit bold :height 1.2))
   "Face used for gemini heading level 3.")
 
-(defface elpher-gemini-preformatted
-  '((t :inherit fixed-pitch))
-  "Face used for pre-formatted gemini text blocks.")
-
 (defface elpher-gemini-quoted
   '((t :inherit font-lock-doc-face))
   "Face used for gemini quoted texts.")
@@ -1642,7 +1638,6 @@ If non-nil, ALT-TEXT is displayed alongside the button."
 PREF-ID is the value assigned to the \"invisible\" text attribute, which
 can be used to toggle the display of the preformatted text."
   (insert (propertize (concat (elpher-process-text-for-display line) "\n")
-  'face 'elpher-gemini-preformatted
   'invisible pref-id
   'rear-nonsticky t)))
 

[elpa] externals/gtags-mode f108a46c6c: Release version as not alpha anymore.

[ELPA Syncer]

branch: externals/gtags-mode
commit f108a46c6c03eb5e18c73a908c655071aa153a14
Author: Jimmy Aguilar Mena 
Commit: Jimmy Aguilar Mena 

Release version as not alpha anymore.

The code is stable and fully functional; so errors from now on will be
considered bugs and will be fixed in consequences. There are not
implementations features pending either.
---
 gtags-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gtags-mode.el b/gtags-mode.el
index d822e70cea..1cfe41e3d7 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -5,7 +5,7 @@
 ;; Author: Jimmy Aguilar Mena
 ;; URL: https://github.com/Ergus/gtags-mode
 ;; Keywords: xref, project, imenu, gtags, global
-;; Version: 1.0-alpha
+;; Version: 1.0
 ;; Package-Requires: ((emacs "28"))
 
 ;; This program is free software: you can redistribute it and/or modify

[elpa] externals/embark updated (a8bc5d602d -> 5bdf21c0b5)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  a8bc5d602d Make the collect group headers normal-sized
   new  3f496d47a3 Delay loading outline-minor-mode until non-nil 
group-function
   new  5bdf21c0b5 Use the new consult-imenu--group function


Summary of changes:
 embark-consult.el | 21 +
 embark.el |  9 +
 2 files changed, 10 insertions(+), 20 deletions(-)

[elpa] externals/embark 3f496d47a3 1/2: Delay loading outline-minor-mode until non-nil group-function

[ELPA Syncer]

branch: externals/embark
commit 3f496d47a32ea2346d91a20489389c78ecea9e24
Author: Omar Antolín 
Commit: Omar Antolín 

Delay loading outline-minor-mode until non-nil group-function
---
 embark.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index 314c12f49c..4b2c1d6040 100644
--- a/embark.el
+++ b/embark.el
@@ -2721,9 +2721,7 @@ just restarts the completion session, that is, the 
command that
 opened the minibuffer is run again and the minibuffer contents
 restored.  You can then interact normally with the command,
 perhaps editing the minibuffer contents, and, if you wish, you
-can rerun `embark-collect' to get an updated buffer."
-  (setq-local outline-regexp embark-collect--outline-string)
-  (outline-minor-mode))
+can rerun `embark-collect' to get an updated buffer.")
 
 (defun embark-collect--remove-zebra-stripes ()
   "Remove highlighting of alternate rows."
@@ -2889,7 +2887,10 @@ example)."
(seq-group-by (lambda (item) (funcall grouper (car item) nil))
  candidates)
  (list (cons "" candidates)
-(unless grouper (pop tabulated-list-entries))
+(if (null grouper)
+(pop tabulated-list-entries)
+  (setq-local outline-regexp embark-collect--outline-string)
+  (outline-minor-mode))
 (setq tabulated-list-format
   `[("Candidate" ,max-width t) ("Annotation" 0 t)])))
 

[elpa] externals/embark 5bdf21c0b5 2/2: Use the new consult-imenu--group function

[ELPA Syncer]

branch: externals/embark
commit 5bdf21c0b5841af86f9508929e8463474dd822fd
Author: Omar Antolín 
Commit: Omar Antolín 

Use the new consult-imenu--group function
---
 embark-consult.el | 21 +
 1 file changed, 5 insertions(+), 16 deletions(-)

diff --git a/embark-consult.el b/embark-consult.el
index 72cb479f1a..24add01c16 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -369,31 +369,20 @@ for any action that is a Consult async command."
   (cons 'consult-location (consult--outline-candidates)))
 
 (autoload 'consult-imenu--items "consult-imenu")
+
 (defun embark-consult-imenu-candidates ()
   "Collect all imenu items in the current buffer."
   (cons 'imenu (mapcar #'car (consult-imenu--items
 
-(defvar consult-imenu-config)
+(declare-function consult-imenu--group "ext:consult-imenu")
+
 (defun embark-consult--imenu-group-function (type prop)
   "Return a suitable group-function for imenu.
 TYPE is the completion category.
 PROP is the metadata property.
 Meant as :after-until advice for `embark-collect--metadatum'."
-  (when-let (((and (eq type 'imenu) (eq prop 'group-function)))
- (config (plist-get
-  (cdr (seq-find (lambda (x) (derived-mode-p (car x)))
- consult-imenu-config))
-  :types)))
-;; taken from consult-imenu
-;; TODO extract the function from consult-imenu, reuse it here.
-(lambda (cand transform)
-  (let ((type (get-text-property 0 'consult--type cand)))
-(cond
- ((and transform type)
-  (substring
-   cand (1+ (next-single-property-change 0 'consult--type cand
- (transform cand)
- (type (car (alist-get type config
+  (when (and (eq type 'imenu) (eq prop 'group-function))
+(consult-imenu--group)))
 
 (advice-add #'embark-collect--metadatum :after-until
 #'embark-consult--imenu-group-function)

[elpa] externals/embark-consult updated (a8bc5d602d -> 5bdf21c0b5)

[ELPA Syncer]

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

  from  a8bc5d602d Make the collect group headers normal-sized
  adds  3f496d47a3 Delay loading outline-minor-mode until non-nil 
group-function
  adds  5bdf21c0b5 Use the new consult-imenu--group function

No new revisions were added by this update.

Summary of changes:
 embark-consult.el | 21 +
 embark.el |  9 +
 2 files changed, 10 insertions(+), 20 deletions(-)

[nongnu] elpa/git-commit c080f124d7 2/4: magit-git-debug: Extend documentation

[ELPA Syncer]

branch: elpa/git-commit
commit c080f124d7932a6de5b209c1535dd6f0b6daf634
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-git-debug: Extend documentation
---
 docs/magit.org| 9 +
 docs/magit.texi   | 9 +
 lisp/magit-git.el | 8 +++-
 3 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/docs/magit.org b/docs/magit.org
index ed7dfb8ed0..b894855dbb 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -1840,6 +1840,15 @@ sections are available.  There is one additional command.
   This is only intended for debugging purposes.  Do not enable this
   permanently, that would negatively affect performance.
 
+  This is only intended for debugging purposes.  Do not enable this
+  permanently, that would negatively affect performance.  Also note
+  that just because git exits with a non-zero exit status and prints
+  an error message that usually doesn't mean that it is an error as
+  far as Magit is concerned, which is another reason we usually hide
+  these error messages.  Whether some error message is relevant in
+  the context of some unexpected behavior has to be judged on a case
+  by case basis.
+
 - Variable: magit-process-extreme-logging ::
 
   This option controls whether ~magit-process-file~ logs to the
diff --git a/docs/magit.texi b/docs/magit.texi
index 86dbf3e154..b28d823a4f 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -2379,6 +2379,15 @@ then at least its standard error is inserted into this 
buffer.
 
 This is only intended for debugging purposes.  Do not enable this
 permanently, that would negatively affect performance.
+
+This is only intended for debugging purposes.  Do not enable this
+permanently, that would negatively affect performance.  Also note
+that just because git exits with a non-zero exit status and prints
+an error message that usually doesn't mean that it is an error as
+far as Magit is concerned, which is another reason we usually hide
+these error messages.  Whether some error message is relevant in
+the context of some unexpected behavior has to be judged on a case
+by case basis.
 @end defvar
 
 @defvar magit-process-extreme-logging
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 773ef6111b..82617a246e 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -276,7 +276,13 @@ option is non-nil and git returns with a non-zero exit 
status,
 then at least its standard error is inserted into this buffer.
 
 This is only intended for debugging purposes.  Do not enable this
-permanently, that would negatively affect performance.
+permanently, that would negatively affect performance.  Also note
+that just because git exits with a non-zero exit status and prints
+an error message that usually doesn't mean that it is an error as
+far as Magit is concerned, which is another reason we usually hide
+these error messages.  Whether some error message is relevant in
+the context of some unexpected behavior has to be judged on a case
+by case basis.
 
 Also see `magit-process-extreme-logging'.")
 

[nongnu] elpa/git-commit updated (2235876dd8 -> 437dfe95e9)

[ELPA Syncer]

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

  from  2235876dd8 No longer use -if-let
   new  4f5e791446 magit-git-debug: Move definition
   new  c080f124d7 magit-git-debug: Extend documentation
   new  2ed5a06d08 magit-toggle-git-debug: New command
   new  437dfe95e9 magit-current-blame-chunk: Don't error at eob


Summary of changes:
 docs/magit.org  | 36 +
 docs/magit.texi | 36 +
 lisp/magit-blame.el |  5 -
 lisp/magit-git.el   | 57 ++---
 4 files changed, 113 insertions(+), 21 deletions(-)

[nongnu] elpa/git-commit 2ed5a06d08 3/4: magit-toggle-git-debug: New command

[ELPA Syncer]

branch: elpa/git-commit
commit 2ed5a06d089021f6f5c88203174bda89a1a70b5e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-toggle-git-debug: New command
---
 docs/magit.org| 27 +++
 docs/magit.texi   | 27 +++
 lisp/magit-git.el | 11 +++
 3 files changed, 65 insertions(+)

diff --git a/docs/magit.org b/docs/magit.org
index b894855dbb..b5f489903b 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -1849,6 +1849,9 @@ sections are available.  There is one additional command.
   the context of some unexpected behavior has to be judged on a case
   by case basis.
 
+  The command ~magit-toggle-git-debug~ changes the value of this
+  variable.
+
 - Variable: magit-process-extreme-logging ::
 
   This option controls whether ~magit-process-file~ logs to the
@@ -9090,6 +9093,30 @@ issue.
   If you run Magit from its Git repository, then you should be able to
   use ~make emacs-Q~ instead of the output of this command.
 
+- Key: M-x magit-toggle-verbose-refresh ::
+
+  This command toggles whether additional git errors are reported.
+
+  Magit basically calls git for one of these two reasons: for
+  side-effects or to do something with its standard output.
+
+  When git is run for side-effects then its output, including error
+  messages, go into the process buffer which is shown when using ~$~.
+
+  When git's output is consumed in some way, then it would be too
+  expensive to also insert it into this buffer, but when this
+  option is non-nil and git returns with a non-zero exit status,
+  then at least its standard error is inserted into this buffer.
+
+  This is only intended for debugging purposes.  Do not enable this
+  permanently, that would negatively affect performance.  Also note
+  that just because git exits with a non-zero exit status and prints
+  an error message that usually doesn't mean that it is an error as
+  far as Magit is concerned, which is another reason we usually hide
+  these error messages.  Whether some error message is relevant in
+  the context of some unexpected behavior has to be judged on a case
+  by case basis.
+
 - Key: M-x magit-toggle-verbose-refresh ::
 
   This command toggles whether Magit refreshes buffers verbosely.
diff --git a/docs/magit.texi b/docs/magit.texi
index b28d823a4f..779e02d88e 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -2388,6 +2388,9 @@ far as Magit is concerned, which is another reason we 
usually hide
 these error messages.  Whether some error message is relevant in
 the context of some unexpected behavior has to be judged on a case
 by case basis.
+
+The command @code{magit-toggle-git-debug} changes the value of this
+variable.
 @end defvar
 
 @defvar magit-process-extreme-logging
@@ -11089,6 +11092,30 @@ issue lays with Magit or something else.
 If you run Magit from its Git repository, then you should be able to
 use @code{make emacs-Q} instead of the output of this command.
 
+@item @kbd{M-x magit-toggle-verbose-refresh}
+@findex magit-toggle-verbose-refresh
+This command toggles whether additional git errors are reported.
+
+Magit basically calls git for one of these two reasons: for
+side-effects or to do something with its standard output.
+
+When git is run for side-effects then its output, including error
+messages, go into the process buffer which is shown when using @code{$}.
+
+When git's output is consumed in some way, then it would be too
+expensive to also insert it into this buffer, but when this
+option is non-nil and git returns with a non-zero exit status,
+then at least its standard error is inserted into this buffer.
+
+This is only intended for debugging purposes.  Do not enable this
+permanently, that would negatively affect performance.  Also note
+that just because git exits with a non-zero exit status and prints
+an error message that usually doesn't mean that it is an error as
+far as Magit is concerned, which is another reason we usually hide
+these error messages.  Whether some error message is relevant in
+the context of some unexpected behavior has to be judged on a case
+by case basis.
+
 @item @kbd{M-x magit-toggle-verbose-refresh}
 @findex magit-toggle-verbose-refresh
 This command toggles whether Magit refreshes buffers verbosely.
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 82617a246e..b238fe5bc2 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -284,8 +284,19 @@ these error messages.  Whether some error message is 
relevant in
 the context of some unexpected behavior has to be judged on a case
 by case basis.
 
+The command `magit-toggle-git-debug' changes the value of this
+variable.
+
 Also see `magit-process-extreme-logging'.")
 
+(defun magit-toggle-git-debug ()
+  "Toggle whether additional git errors are reported.
+See info node `(magit)Debugging Tools' for more information."
+  (interactive)
+  (setq magit-git-debug (not magit-git-debug))
+  (message "Additional reporting of Git errors %s"
+   (if magit

[nongnu] elpa/magit updated (2235876dd8 -> 437dfe95e9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  2235876dd8 No longer use -if-let
  adds  4f5e791446 magit-git-debug: Move definition
  adds  c080f124d7 magit-git-debug: Extend documentation
  adds  2ed5a06d08 magit-toggle-git-debug: New command
  adds  437dfe95e9 magit-current-blame-chunk: Don't error at eob

No new revisions were added by this update.

Summary of changes:
 docs/magit.org  | 36 +
 docs/magit.texi | 36 +
 lisp/magit-blame.el |  5 -
 lisp/magit-git.el   | 57 ++---
 4 files changed, 113 insertions(+), 21 deletions(-)

[nongnu] elpa/git-commit 4f5e791446 1/4: magit-git-debug: Move definition

[ELPA Syncer]

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

magit-git-debug: Move definition
---
 lisp/magit-git.el | 40 
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index ea702e0dd3..773ef6111b 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -205,26 +205,6 @@ purpose."
   :group 'magit-process
   :type '(repeat string))
 
-(defvar magit-git-debug nil
-  "Whether to enable additional reporting of git errors.
-
-Magit basically calls git for one of these two reasons: for
-side-effects or to do something with its standard output.
-
-When git is run for side-effects then its output, including error
-messages, go into the process buffer which is shown when using \
-[magit-process].
-
-When git's output is consumed in some way, then it would be too
-expensive to also insert it into this buffer, but when this
-option is non-nil and git returns with a non-zero exit status,
-then at least its standard error is inserted into this buffer.
-
-This is only intended for debugging purposes.  Do not enable this
-permanently, that would negatively affect performance.
-
-Also see `magit-process-extreme-logging'.")
-
 (defcustom magit-prefer-remote-upstream nil
   "Whether to favor remote branches when reading the upstream branch.
 
@@ -280,6 +260,26 @@ framework ultimately determines how the collection is 
displayed."
 
 ;;; Git
 
+(defvar magit-git-debug nil
+  "Whether to enable additional reporting of git errors.
+
+Magit basically calls git for one of these two reasons: for
+side-effects or to do something with its standard output.
+
+When git is run for side-effects then its output, including error
+messages, go into the process buffer which is shown when using \
+[magit-process].
+
+When git's output is consumed in some way, then it would be too
+expensive to also insert it into this buffer, but when this
+option is non-nil and git returns with a non-zero exit status,
+then at least its standard error is inserted into this buffer.
+
+This is only intended for debugging purposes.  Do not enable this
+permanently, that would negatively affect performance.
+
+Also see `magit-process-extreme-logging'.")
+
 (defvar magit--refresh-cache nil)
 
 (defmacro magit--with-refresh-cache (key &rest body)

[nongnu] elpa/git-commit 437dfe95e9 4/4: magit-current-blame-chunk: Don't error at eob

[ELPA Syncer]

branch: elpa/git-commit
commit 437dfe95e92a2619f73f66355bdcdad5a77545f4
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-current-blame-chunk: Don't error at eob

Unless requested, and then gracefully.
---
 lisp/magit-blame.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-blame.el b/lisp/magit-blame.el
index 83e44f1ff5..d26765b551 100644
--- a/lisp/magit-blame.el
+++ b/lisp/magit-blame.el
@@ -255,7 +255,10 @@ Also see option `magit-blame-styles'."
 (magit-blame-arguments))
   "-L" line rev "--" file)
  (goto-char (point-min))
- (car (magit-blame--parse-chunk type)
+ (if (eobp)
+ (unless noerror
+   (error "Cannot get blame chunk at eob"))
+   (car (magit-blame--parse-chunk type))
(noerror nil)
(t (error "Buffer does not visit a tracked file")))
 

[nongnu] elpa/magit-section updated (2235876dd8 -> 437dfe95e9)

[ELPA Syncer]

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

  from  2235876dd8 No longer use -if-let
  adds  4f5e791446 magit-git-debug: Move definition
  adds  c080f124d7 magit-git-debug: Extend documentation
  adds  2ed5a06d08 magit-toggle-git-debug: New command
  adds  437dfe95e9 magit-current-blame-chunk: Don't error at eob

No new revisions were added by this update.

Summary of changes:
 docs/magit.org  | 36 +
 docs/magit.texi | 36 +
 lisp/magit-blame.el |  5 -
 lisp/magit-git.el   | 57 ++---
 4 files changed, 113 insertions(+), 21 deletions(-)

[nongnu] elpa/git-commit 547ad9e393: Fix a single typo

[ELPA Syncer]

branch: elpa/git-commit
commit 547ad9e39341c9a9dc37b2c88acb487d737a8e3b
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix a single typo

But it sure was copied to a lot of places. ;P
---
 docs/magit-section.org  | 6 +++---
 docs/magit-section.texi | 6 +++---
 lisp/magit-section.el   | 8 
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/docs/magit-section.org b/docs/magit-section.org
index 20397c3883..a75fa30145 100644
--- a/docs/magit-section.org
+++ b/docs/magit-section.org
@@ -152,7 +152,7 @@ source for suitable examples before asking me for help.  
Thanks!
   Return the section at point or where the context menu was invoked.
   When using the context menu, return the section that the user
   clicked on, provided the current buffer is the buffer in which
-  the click occured.  Otherwise return the section at point.
+  the click occurred.  Otherwise return the section at point.
 
 - Function magit-section-at &optional position ::
 
@@ -207,14 +207,14 @@ when appropriate.
   Return point or the position where the context menu was invoked.
   When using the context menu, return the position the user clicked
   on, provided the current buffer is the buffer in which the click
-  occured.  Otherwise return the same value as ~point~.
+  occurred.  Otherwise return the same value as ~point~.
 
 - Function magit-thing-at-point thing &optional no-properties ::
 
   Return the THING at point or where the context menu was invoked.
   When using the context menu, return the thing the user clicked
   on, provided the current buffer is the buffer in which the click
-  occured.  Otherwise return the same value as ~thing-at-point~.
+  occurred.  Otherwise return the same value as ~thing-at-point~.
   For the meaning of THING and NO-PROPERTIES see that function.
 
 * Matching Functions
diff --git a/docs/magit-section.texi b/docs/magit-section.texi
index 41fe361d97..029cfbf971 100644
--- a/docs/magit-section.texi
+++ b/docs/magit-section.texi
@@ -196,7 +196,7 @@ buffer is reached.  FUNCTION has to move point forward or 
return
 Return the section at point or where the context menu was invoked.
 When using the context menu, return the section that the user
 clicked on, provided the current buffer is the buffer in which
-the click occured.  Otherwise return the section at point.
+the click occurred.  Otherwise return the section at point.
 @end defun
 
 @table @asis
@@ -253,13 +253,13 @@ when appropriate.
 Return point or the position where the context menu was invoked.
 When using the context menu, return the position the user clicked
 on, provided the current buffer is the buffer in which the click
-occured.  Otherwise return the same value as @code{point}.
+occurred.  Otherwise return the same value as @code{point}.
 
 @item Function magit-thing-at-point thing &optional no-properties
 Return the THING at point or where the context menu was invoked.
 When using the context menu, return the thing the user clicked
 on, provided the current buffer is the buffer in which the click
-occured.  Otherwise return the same value as @code{thing-at-point}.
+occurred.  Otherwise return the same value as @code{thing-at-point}.
 For the meaning of THING and NO-PROPERTIES see that function.
 @end table
 
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index e5383ff424..239b3f4637 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -445,7 +445,7 @@ never modify it.")
   "Return point or the position where the context menu was invoked.
 When using the context menu, return the position the user clicked
 on, provided the current buffer is the buffer in which the click
-occured.  Otherwise return the same value as `point'."
+occurred.  Otherwise return the same value as `point'."
   (if magit--context-menu-section
   (magit-menu-position)
 (point)))
@@ -454,7 +454,7 @@ occured.  Otherwise return the same value as `point'."
   "Return the THING at point or where the context menu was invoked.
 When using the context menu, return the thing the user clicked
 on, provided the current buffer is the buffer in which the click
-occured.  Otherwise return the same value as `thing-at-point'.
+occurred.  Otherwise return the same value as `thing-at-point'.
 For the meaning of THING and NO-PROPERTIES see that function."
   (if-let ((pos (magit-menu-position)))
   (save-excursion
@@ -466,7 +466,7 @@ For the meaning of THING and NO-PROPERTIES see that 
function."
   "Return the section at point or where the context menu was invoked.
 When using the context menu, return the section that the user
 clicked on, provided the current buffer is the buffer in which
-the click occured.  Otherwise return the section at point."
+the click occurred.  Otherwise return the section at point."
   (or magit--context-menu-section
   (magit-section-at)
   magit-root-section))
@@ -634,7 +634,7 @@ the expression (magit-menu-format-desc DESC) for that.  See
   (define-key-after keymap key
 

[nongnu] elpa/magit updated (437dfe95e9 -> 547ad9e393)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  437dfe95e9 magit-current-blame-chunk: Don't error at eob
  adds  547ad9e393 Fix a single typo

No new revisions were added by this update.

Summary of changes:
 docs/magit-section.org  | 6 +++---
 docs/magit-section.texi | 6 +++---
 lisp/magit-section.el   | 8 
 3 files changed, 10 insertions(+), 10 deletions(-)

[nongnu] elpa/magit-section updated (437dfe95e9 -> 547ad9e393)

[ELPA Syncer]

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

  from  437dfe95e9 magit-current-blame-chunk: Don't error at eob
  adds  547ad9e393 Fix a single typo

No new revisions were added by this update.

Summary of changes:
 docs/magit-section.org  | 6 +++---
 docs/magit-section.texi | 6 +++---
 lisp/magit-section.el   | 8 
 3 files changed, 10 insertions(+), 10 deletions(-)

[elpa] externals/embark 254609cb6c: Fix #206

[ELPA Syncer]

branch: externals/embark
commit 254609cb6c685e65ec276140ad6aa7c96cff9509
Author: Omar Antolín 
Commit: Omar Antolín 

Fix #206
---
 embark.el | 60 ++--
 1 file changed, 42 insertions(+), 18 deletions(-)

diff --git a/embark.el b/embark.el
index 4b2c1d6040..2581ec216f 100644
--- a/embark.el
+++ b/embark.el
@@ -2604,15 +2604,23 @@ This makes `embark-export' work in Embark Collect 
buffers."
 (forward-line))
   (nreverse symbols))
 
+
+(defun embark-collect--target ()
+  "Return the Embark Collect candidate at point.
+This takes into account `embark-transformer-alist'."
+  (let ((embark-target-finders '(embark-target-collect-candidate)))
+(car (embark--targets
+
 (defun embark--action-command (action)
   "Turn an ACTION into a command to perform the action.
 Returns the name of the command."
   (let ((name (intern (format "embark-action--%s"
-  (embark--command-name action)
-(fset name (lambda ()
- (interactive)
- (when-let (target (car (embark--targets)))
-   (embark--act action target
+  (embark--command-name action) 
+(fset name (lambda (arg)
+ (interactive "P")
+ (when-let (target (embark-collect--target))
+   (let ((prefix-arg arg))
+ (embark--act action target)
 (put name 'function-documentation (documentation action))
 name))
 
@@ -2627,29 +2635,45 @@ If NESTED is non-nil subkeymaps are not flattened."
  (if nested
  (push (cons (vector key) def) maps)
(dolist (bind (embark--all-bindings def))
- (push (cons (vconcat (vector key) (car bind))
- (cdr bind))
+ (push (cons (vconcat (vector key) (car bind)) (cdr bind))
maps
 (def (push (cons (vector key) def) bindings
  (keymap-canonicalize keymap))
 (nconc (nreverse bindings) (nreverse maps
 
-(defvar embark-collect-direct-action-minor-mode-map (make-sparse-keymap)
-  "Keymap for direct bindings to embark actions.")
+(defun embark-collect--direct-action-map (type)
+  "Return a direct action keymap for targets of given TYPE."
+  (let* ((actions (embark--action-keymap type nil))
+ (map (make-sparse-keymap)))
+(set-keymap-parent map button-map)
+(pcase-dolist (`(,key . ,cmd) (embark--all-bindings actions))
+  (unless (or (equal key [13])
+  (memq cmd '(digit-argument negative-argument)))
+(define-key map key (if (eq cmd 'embark-keymap-help)
+#'embark-bindings-at-point
+  (embark--action-command cmd)
+map))
 
 (define-minor-mode embark-collect-direct-action-minor-mode
   "Bind type-specific actions directly (without need for `embark-act')."
   :init-value nil
   :lighter " Act"
-  :keymap embark-collect-direct-action-minor-mode-map
-  (when embark-collect-direct-action-minor-mode
-;; must mutate keymap, not make new one
-(let ((map embark-collect-direct-action-minor-mode-map))
-  (setcdr map nil)
-  (cl-loop for (key . cmd) in (embark--all-bindings
-   (embark--action-keymap embark--type nil))
-   unless (eq cmd 'embark-keymap-help)
-   do (define-key map key (embark--action-command cmd))
+  (unless (derived-mode-p 'embark-collect-mode)
+(user-error "Not in an Embark Collect buffer"))
+  (save-excursion
+(goto-char (point-min))
+(let ((inhibit-read-only t) maps)
+  (while (progn
+   (when (tabulated-list-get-id)
+ (put-text-property
+  (point) (button-end (point)) 'keymap
+  (if embark-collect-direct-action-minor-mode
+  (when-let ((target (embark-collect--target))
+ (type (plist-get target :type)))
+(or (alist-get type maps)
+(setf (alist-get type maps)
+  (embark-collect--direct-action-map 
type)))
+   (forward-button 1 nil nil t))
 
 (define-button-type 'embark-collect-entry
   'face 'embark-collect-candidate

[elpa] externals/embark-consult updated (5bdf21c0b5 -> 254609cb6c)

[ELPA Syncer]

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

  from  5bdf21c0b5 Use the new consult-imenu--group function
  adds  254609cb6c Fix #206

No new revisions were added by this update.

Summary of changes:
 embark.el | 60 ++--
 1 file changed, 42 insertions(+), 18 deletions(-)

[elpa] externals/embark updated (254609cb6c -> d4e4498c87)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  254609cb6c Fix #206
   new  2eac4d2b4a (documentation fn) fails if fn is still unbound
   new  d4e4498c87 Improve formatting of help in direct action mode


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

[elpa] externals/embark 2eac4d2b4a 1/2: (documentation fn) fails if fn is still unbound

[ELPA Syncer]

branch: externals/embark
commit 2eac4d2b4a75d12b327a49328c8fed85e8b70e91
Author: Omar Antolín 
Commit: Omar Antolín 

(documentation fn) fails if fn is still unbound
---
 embark.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 2581ec216f..90576fa3d0 100644
--- a/embark.el
+++ b/embark.el
@@ -2621,7 +2621,8 @@ Returns the name of the command."
  (when-let (target (embark-collect--target))
(let ((prefix-arg arg))
  (embark--act action target)
-(put name 'function-documentation (documentation action))
+(when (fboundp action)
+  (put name 'function-documentation (documentation action)))
 name))
 
 (defun embark--all-bindings (keymap &optional nested)

[elpa] externals/embark-consult updated (254609cb6c -> d4e4498c87)

[ELPA Syncer]

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

  from  254609cb6c Fix #206
  adds  2eac4d2b4a (documentation fn) fails if fn is still unbound
  adds  d4e4498c87 Improve formatting of help in direct action mode

No new revisions were added by this update.

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

[elpa] externals/embark d4e4498c87 2/2: Improve formatting of help in direct action mode

[ELPA Syncer]

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

Improve formatting of help in direct action mode
---
 embark.el | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 90576fa3d0..1f1cbc24d4 100644
--- a/embark.el
+++ b/embark.el
@@ -1164,7 +1164,11 @@ first line of the documentation string; otherwise use 
the word
 ((keymapp cmd)
  (propertize (if (symbolp cmd) (format "+%s" cmd) "")
  'face 'embark-keymap))
-((symbolp cmd) (symbol-name cmd))
+((symbolp cmd)
+ (let ((name (symbol-name cmd)))
+   (if (string-prefix-p "embark-action--" name) ; direct action mode
+   (format "(%s)" (string-remove-prefix "embark-action--" name))
+ name)))
 ((when-let (doc (and (functionp cmd) (ignore-errors (documentation cmd
(save-match-data
  (when (string-match "^\\(.*\\)$" doc)

[elpa] externals/org 5d3173cb04: org-compile-prefix-format: Document argument

[ELPA Syncer]

branch: externals/org
commit 5d3173cb040d39286ea9aa45a5007b41d120aa66
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-compile-prefix-format: Document argument

* lisp/org-agenda.el (org-compile-prefix-format): Document the KEY
argument in the docstring.

Reported in 
https://orgmode.org/list/CAJ1MqVGR0w93wYi7r0NNmDJxBKeY8vh2=f307u1jegbouc5...@mail.gmail.com
---
 lisp/org-agenda.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index cb7f31d201..0479a0e1f7 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7376,6 +7376,7 @@ TODAYP is t when the current agenda view is on today."
 
 (defun org-compile-prefix-format (key)
   "Compile the prefix format into a Lisp form that can be evaluated.
+KEY is the agenda type (see `org-agenda-prefix-format').
 The resulting form and associated variable bindings is returned
 and stored in the variable `org-prefix-format-compiled'."
   (setq org-prefix-has-time nil

[elpa] externals/org ebbef7b30c: org-fold-save-outline-visibility: Make it work with 'text-properties

[ELPA Syncer]

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

org-fold-save-outline-visibility: Make it work with 'text-properties

*
lisp/org-fold.el (org-fold-save-outline-visibility--text-properties):
Do not expand list of specs on compile time.  Simplify saving and
re-applying folds.

* lisp/org-fold.el (org-fold-save-outline-visibility): Fix typo when
-> if.
---
 lisp/org-fold.el | 37 +++--
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/lisp/org-fold.el b/lisp/org-fold.el
index 0d8f7f9045..64492f6042 100644
--- a/lisp/org-fold.el
+++ b/lisp/org-fold.el
@@ -298,27 +298,28 @@ means that the buffer should stay alive during the 
operation,
 because otherwise all these markers will point to nowhere."
   (declare (debug (form body)) (indent 1))
   (org-with-gensyms (data specs markers?)
-`(let* ((,specs ',(org-fold-core-folding-spec-list))
+`(let* ((,specs (org-fold-core-folding-spec-list))
(,markers? ,use-markers)
(,data
  (org-with-wide-buffer
-  (let ((pos (point-min))
-   data-val)
-   (while (< pos (point-max))
-  (dolist (spec (org-fold-get-folding-spec 'all pos))
-(let ((region (org-fold-get-region-at-point spec pos)))
- (if ,markers?
- (push (list (copy-marker (car region))
- (copy-marker (cdr region) t)
-  spec)
-data-val)
-(push (list (car region) (cdr region) spec)
- data-val
-  (setq pos (org-fold-next-folding-state-change nil pos)))
+  (let (data-val)
+(dolist (spec ,specs)
+  (let ((pos (point-min)))
+   (while (< pos (point-max))
+  (when (org-fold-get-folding-spec spec pos)
+(let ((region (org-fold-get-region-at-point spec pos)))
+ (if ,markers?
+ (push (list (copy-marker (car region))
+ (copy-marker (cdr region) t)
+  spec)
+data-val)
+(push (list (car region) (cdr region) spec)
+ data-val
+  (setq pos (org-fold-next-folding-state-change spec 
pos)
+data-val
(unwind-protect (progn ,@body)
 (org-with-wide-buffer
- (dolist (spec ,specs)
-   (org-fold-region (point-min) (point-max) nil spec))
+ (org-fold-region (point-min) (point-max) nil)
  (pcase-dolist (`(,beg ,end ,spec) (delq nil ,data))
(org-fold-region beg end t spec)
(when ,markers?
@@ -331,8 +332,8 @@ means that the buffer may change while running BODY, but it 
also
 means that the buffer should stay alive during the operation,
 because otherwise all these markers will point to nowhere."
   (declare (debug (form body)) (indent 1))
-  `(when (eq org-fold-core-style 'text-properties)
- (org-fold-save-outline-visibility--text-properties ,use-markers ,@body)
+  `(if (eq org-fold-core-style 'text-properties)
+   (org-fold-save-outline-visibility--text-properties ,use-markers ,@body)
  (org-fold-save-outline-visibility--overlays ,use-markers ,@body)))
 
  Changing visibility (regions, blocks, drawers, headlines)

[nongnu] elpa/helm 24d6d92646 3/3: Fix wdired advice for emacs-28+

[ELPA Syncer]

branch: elpa/helm
commit 24d6d9264689b7cb9fcedecde50c8f6eb5751538
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix wdired advice for emacs-28+

wdired-old-marks has been removed in emacs-28+.
---
 helm-lib.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/helm-lib.el b/helm-lib.el
index e3e9211d2a..591067a037 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -198,6 +198,9 @@ available APPEND is ignored."
 (defun helm--advice-wdired-finish-edit ()
   (interactive)
   (wdired-change-to-dired-mode)
+  ;; `wdired-old-marks' has been removed in emacs-28+.
+  (unless (boundp 'wdired-old-marks)
+(setq-local wdired-old-marks nil))
   (let ((changes nil)
(errors 0)
files-deleted

[nongnu] elpa/helm updated (45ab83ee6e -> 24d6d92646)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  45ab83ee6e Fix emacs-29 incompatible change with current-time
   new  e9777e926e Truncate shortdoc when needed
   new  09adee900c Prevent error in helm-get-first-line-documentation if 
NAME is not specified
   new  24d6d92646 Fix wdired advice for emacs-28+


Summary of changes:
 helm-elisp.el | 14 ++
 helm-lib.el   |  3 +++
 2 files changed, 13 insertions(+), 4 deletions(-)

[nongnu] elpa/helm 09adee900c 2/3: Prevent error in helm-get-first-line-documentation if NAME is not specified

[ELPA Syncer]

branch: elpa/helm
commit 09adee900c7d089ae0b93b260322c4192f81741f
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Prevent error in helm-get-first-line-documentation if NAME is not specified
---
 helm-elisp.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 95d773aa95..1f82a20fcb 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -406,7 +406,9 @@ the same time to variable and a function."
 collect (cons (concat c spaces annot) c) into lst
 finally return (sort lst #'helm-generic-sort-fn)))
 
-(cl-defun helm-get-first-line-documentation (sym &optional name (end-column 
72))
+(cl-defun helm-get-first-line-documentation (sym &optional
+   (name "describe-function")
+   (end-column 72))
   "Return first line documentation of symbol SYM truncated at END-COLUMN.
 If SYM is not documented, return \"Not documented\".
 Argument NAME allows specifiying what function to use to display

[nongnu] elpa/helm e9777e926e 1/3: Truncate shortdoc when needed

[ELPA Syncer]

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

Truncate shortdoc when needed
---
 helm-elisp.el | 12 
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 59814e4143..95d773aa95 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -406,9 +406,11 @@ the same time to variable and a function."
 collect (cons (concat c spaces annot) c) into lst
 finally return (sort lst #'helm-generic-sort-fn)))
 
-(defun helm-get-first-line-documentation (sym &optional name)
-  "Return first line documentation of symbol SYM.
-If SYM is not documented, return \"Not documented\"."
+(cl-defun helm-get-first-line-documentation (sym &optional name (end-column 
72))
+  "Return first line documentation of symbol SYM truncated at END-COLUMN.
+If SYM is not documented, return \"Not documented\".
+Argument NAME allows specifiying what function to use to display
+documentation when SYM name is the same for function and variable."
   (let ((doc (cl-typecase sym
((and fboundp boundp)
 (cond ((string= name "describe-function")
@@ -424,7 +426,9 @@ If SYM is not documented, return \"Not documented\"."
  ;; for CL-style functions.
  (not (string-match-p "^\n\n" doc)))
 ;; Some commands specify key bindings in their first line.
-(substitute-command-keys (car (split-string doc "\n")))
+(truncate-string-to-width
+ (substitute-command-keys (car (split-string doc "\n")))
+ end-column nil nil t)
   "Not documented")))
 
 ;;; File completion.

[nongnu] elpa/helm-core updated (45ab83ee6e -> 24d6d92646)

[ELPA Syncer]

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

  from  45ab83ee6e Fix emacs-29 incompatible change with current-time
  adds  e9777e926e Truncate shortdoc when needed
  adds  09adee900c Prevent error in helm-get-first-line-documentation if 
NAME is not specified
  adds  24d6d92646 Fix wdired advice for emacs-28+

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el | 14 ++
 helm-lib.el   |  3 +++
 2 files changed, 13 insertions(+), 4 deletions(-)