[elpa] externals/cape 30133e41cc: Add cape-file-prefix customization variable

[ELPA Syncer]

branch: externals/cape
commit 30133e41ccc5a4bb72998b19c26a664e3c3bfc65
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add cape-file-prefix customization variable
---
 CHANGELOG.org |  5 +
 cape.el   | 27 ---
 2 files changed, 25 insertions(+), 7 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index e74f68aa01..f3738fb79b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,11 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Development
+
+- ~cape-file-prefix~: New variable to customize file name completion prefix. If
+  the input matches one of the configured prefixes, file completion is started.
+
 * Version 1.4 (2024-03-08)
 
 - =cape-char=: Look back from point, instead of using the match at point. This
diff --git a/cape.el b/cape.el
index 71fdaffbc3..caa9d58102 100644
--- a/cape.el
+++ b/cape.el
@@ -108,6 +108,13 @@ Any other non-nil value only checks some other buffers, as 
per
   "Base directory used by `cape-file."
   :type '(choice (const nil) string function))
 
+(defcustom cape-file-prefix "file:"
+  "File completion trigger prefixes.
+The value can be a string or a list of strings.  The default
+`file:' is the prefix of Org file links which work in arbitrary
+buffers via `org-open-at-point-global'."
+  :type '(choice string (repeat string)))
+
 (defcustom cape-file-directory-must-exist t
   "The parent directory must exist for file completion."
   :type 'boolean)
@@ -402,13 +409,19 @@ If INTERACTIVE is nil the function acts like a Capf."
   ('nil default-directory)
   ((pred stringp) cape-file-directory)
   (_ (funcall cape-file-directory
- (`(,beg . ,end) (cape--bounds 'filename))
+ (prefix (and cape-file-prefix
+  (looking-back
+   (concat
+(regexp-opt (ensure-list cape-file-prefix) t)
+"[^ \n\t]*")
+   (pos-bol))
+  (match-end 1)))
+ (`(,beg . ,end) (if prefix
+ (cons prefix (point))
+   (cape--bounds 'filename)))
  (non-essential t)
- (file (buffer-substring-no-properties beg end))
- ;; Support org links globally, see `org-open-at-point-global'.
- (org (string-prefix-p "file:" file)))
-  (when org (setq beg (+ 5 beg)))
-  (when (or org
+ (file (buffer-substring-no-properties beg end)))
+  (when (or prefix
 (not cape-file-directory-must-exist)
 (and (string-search "/" file)
  (file-exists-p (file-name-directory file
@@ -420,7 +433,7 @@ If INTERACTIVE is nil the function acts like a Capf."
  comint-unquote-function
  comint-requote-function)
   #'read-file-name-internal))
-  ,@(when (or org (string-match-p "./" file))
+  ,@(when (or prefix (string-match-p "./" file))
   '(:company-prefix-length t))
   ,@cape--file-properties)
 

[elpa] externals/listen 259e9772b5 1/2: Comment: Add TODO

[ELPA Syncer]

branch: externals/listen
commit 259e9772b52402c39015d24aeb6797d85afba9e7
Author: Adam Porter 
Commit: Adam Porter 

Comment: Add TODO
---
 listen-queue.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/listen-queue.el b/listen-queue.el
index e8611635b1..1b2ee5a409 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -636,6 +636,7 @@ queue buffer."
   "Revert QUEUE's buffer.
 When RELOADP (interactively, with prefix), reload tracks from
 disk."
+  ;; TODO: Revise the terminology (i.e. "revert" should mean to revert from 
disk).
   (interactive (list listen-queue :reloadp current-prefix-arg))
   (when reloadp
 (listen-queue-reload queue))

[elpa] externals/listen e9ea67350c 2/2: Fix: (listen-queue-revert) Update current track by filename

[ELPA Syncer]

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

Fix: (listen-queue-revert) Update current track by filename
---
 README.org  | 3 +++
 listen-queue.el | 7 ++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index c81b2566d9..a558636e05 100644
--- a/README.org
+++ b/README.org
@@ -86,6 +86,9 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 + Optimize updating of individual tracks in queue buffer.
 + Improve handling of maximum volume with VLC (allowing boosting over 100%).
 
+*Fixes*
++ When reverting a queue's tracks from disk, re-detect the currently playing 
track by filename.
+
 ** v0.6
 
 *Additions*
diff --git a/listen-queue.el b/listen-queue.el
index 1b2ee5a409..7804c0fd52 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -639,7 +639,12 @@ disk."
   ;; TODO: Revise the terminology (i.e. "revert" should mean to revert from 
disk).
   (interactive (list listen-queue :reloadp current-prefix-arg))
   (when reloadp
-(listen-queue-reload queue))
+(listen-queue-reload queue)
+(when (listen-queue-current queue)
+  ;; Update current track by filename.
+  (setf (listen-queue-current queue)
+(cl-find (listen-track-filename (listen-queue-current queue))
+ (listen-queue-tracks queue) :key #'listen-track-filename 
:test #'equal
   (listen-queue--update-buffer queue))
 
 (defun listen-queue-reload (queue)

[elpa] externals/listen updated (5083dc108d -> e9ea67350c)

[ELPA Syncer]

elpasync pushed a change to branch externals/listen.

  from  5083dc108d Change: Improve max-volume, especially with VLC
   new  259e9772b5 Comment: Add TODO
   new  e9ea67350c Fix: (listen-queue-revert) Update current track by 
filename


Summary of changes:
 README.org  | 3 +++
 listen-queue.el | 8 +++-
 2 files changed, 10 insertions(+), 1 deletion(-)

[elpa] externals/spacious-padding updated (227e6144cd -> 21be66a829)

[ELPA Syncer]

elpasync pushed a change to branch externals/spacious-padding.

  from  227e6144cd Update spacious-padding to version 0.4.0
   new  21e785b044 Allow specifying 0 padding for mode-line, header-line, 
etc.
   new  ea2175b36a Merge pull request #7 from Sorixelle/allow-zero-padding
   new  352ba3fb7a Acknowledge Ruby Iris Juric for commit 21e785b
   new  21be66a829 Bump version to trigger GNU ELPA package rebuild


Summary of changes:
 README.org  |  3 ++-
 spacious-padding.el | 15 +--
 2 files changed, 11 insertions(+), 7 deletions(-)

[elpa] externals/spacious-padding 21e785b044 1/4: Allow specifying 0 padding for mode-line, header-line, etc.

[ELPA Syncer]

branch: externals/spacious-padding
commit 21e785b044b17f4015a8d51d1eb0ce2aa1a0450a
Author: Ruby Iris Juric 
Commit: Ruby Iris Juric 

Allow specifying 0 padding for mode-line, header-line, etc.
---
 spacious-padding.el | 13 -
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 41df203c92..c6514a9bd3 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -241,15 +241,18 @@ overline."
 (let* ((original-bg (face-background face nil fallback))
(subtle-bg (face-background 'default))
(subtlep (and subtle-key spacious-padding-subtle-mode-line))
-   (bg (if subtlep subtle-bg original-bg)))
+   (bg (if subtlep subtle-bg original-bg))
+   (face-width (spacious-padding--get-face-width face)))
   `(,@(when subtlep
 (list
  :background bg
  :overline (spacious-padding--get-face-overline-color face 
fallback subtle-key)))
-:box
-( :line-width ,(spacious-padding--get-face-width face)
-  :color ,bg
-  :style nil)
+,@(unless (eq face-width 0)
+(list
+ :box
+ `( :line-width ,face-width
+:color ,bg
+:style nil)))
 
 (defun spacious-padding-set-window-divider (face color)
   "Set window divider FACE to COLOR its width is greater than 1."

[elpa] externals/spacious-padding 21be66a829 4/4: Bump version to trigger GNU ELPA package rebuild

[ELPA Syncer]

branch: externals/spacious-padding
commit 21be66a8293292234a7e4624c35f6645a044f7fa
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version to trigger GNU ELPA package rebuild

This is to include commit 21e785b.
---
 spacious-padding.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index c6514a9bd3..2c198bf1ba 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -5,7 +5,7 @@
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou 
 ;; URL: https://github.com/protesilaos/spacious-padding
-;; Version: 0.4.0
+;; Version: 0.4.1
 ;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: convenience, focus, writing, presentation
 

[elpa] externals/spacious-padding ea2175b36a 2/4: Merge pull request #7 from Sorixelle/allow-zero-padding

[ELPA Syncer]

branch: externals/spacious-padding
commit ea2175b36a2d7fe0633cb3f8cf6dc6d71f5914ae
Merge: 227e6144cd 21e785b044
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #7 from Sorixelle/allow-zero-padding

Allow specifying 0 padding for mode-line, header-line, etc.
---
 spacious-padding.el | 13 -
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 41df203c92..c6514a9bd3 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -241,15 +241,18 @@ overline."
 (let* ((original-bg (face-background face nil fallback))
(subtle-bg (face-background 'default))
(subtlep (and subtle-key spacious-padding-subtle-mode-line))
-   (bg (if subtlep subtle-bg original-bg)))
+   (bg (if subtlep subtle-bg original-bg))
+   (face-width (spacious-padding--get-face-width face)))
   `(,@(when subtlep
 (list
  :background bg
  :overline (spacious-padding--get-face-overline-color face 
fallback subtle-key)))
-:box
-( :line-width ,(spacious-padding--get-face-width face)
-  :color ,bg
-  :style nil)
+,@(unless (eq face-width 0)
+(list
+ :box
+ `( :line-width ,face-width
+:color ,bg
+:style nil)))
 
 (defun spacious-padding-set-window-divider (face color)
   "Set window divider FACE to COLOR its width is greater than 1."

[elpa] externals/spacious-padding 352ba3fb7a 3/4: Acknowledge Ruby Iris Juric for commit 21e785b

[ELPA Syncer]

branch: externals/spacious-padding
commit 352ba3fb7a7e9fc4ecba24feb0ec15252ad3
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Ruby Iris Juric for commit 21e785b

The change was done in pull request 7:
.
---
 README.org | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 2e41544b7a..307156cf20 100644
--- a/README.org
+++ b/README.org
@@ -277,7 +277,8 @@ help matters.
 
 + Author/maintainer :: Protesilaos Stavrou.
 
-+ Contributions to code or the manual :: Lucas Gruss, Neo Dim.
++ Contributions to code or the manual :: Lucas Gruss, Neo Dim, Ruby
+  Iris Juric.
 
 + Ideas and/or user feedback :: Aronne Raimondi, Damien Cassou, Lucas
   Gruss, Nicolas Semrau, Tomasz Hołubowicz.

[nongnu] elpa/helm 3f8c40ed91 4/4: Simplify helm-open-file-with-default-tool

[ELPA Syncer]

branch: elpa/helm
commit 3f8c40ed912aa4fe47338a92e5d6106f987dd494
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Simplify helm-open-file-with-default-tool
---
 helm-utils.el | 11 ---
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/helm-utils.el b/helm-utils.el
index 49c3034688..2099963a79 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -1052,13 +1052,10 @@ Assume regexp is a pcre based regexp."
 (helm-w32-shell-execute-open-file file)
   (start-process "helm-open-file-with-default-tool"
  nil
- (cond ((eq system-type 'gnu/linux)
-"xdg-open")
-   ((or (eq system-type 'darwin) ;; Mac OS X
-(eq system-type 'macos)) ;; Mac OS 9
-"open")
-  ((eq system-type 'cygwin)
-   "cygstart"))
+ (helm-acase system-type
+   (gnu/linux "xdg-open")
+   ((darwin macos) "open")
+   (cygwin "cygstart"))
  file
 
 (defun helm-open-dired (file)

[nongnu] elpa/helm-core updated (8c4561d366 -> 3f8c40ed91)

[ELPA Syncer]

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

  from  8c4561d366 Use helm-acase in helm-M-x-read-extended-command
  adds  733e67c6f9 'norecord argument and display-buffer instead of 
switch-to buffer in helm-buffers-list-persistent-action
  adds  1dffc0914f Merge pull request #2644 from 
karbiv/buffer-list_order_fix
  adds  76d962d0ec Use helm-acase in helm-highlight-current-line
  adds  3f8c40ed91 Simplify helm-open-file-with-default-tool

No new revisions were added by this update.

Summary of changes:
 helm-buffers.el |  2 +-
 helm-core.el|  3 ++-
 helm-utils.el   | 62 +++--
 3 files changed, 24 insertions(+), 43 deletions(-)

[nongnu] elpa/helm 76d962d0ec 3/4: Use helm-acase in helm-highlight-current-line

[ELPA Syncer]

branch: elpa/helm
commit 76d962d0ecbdccae4470f4360cd43f7243ddc981
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use helm-acase in helm-highlight-current-line
---
 helm-utils.el | 51 +--
 1 file changed, 17 insertions(+), 34 deletions(-)

diff --git a/helm-utils.el b/helm-utils.el
index 4265cdb73f..49c3034688 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -888,40 +888,23 @@ Optional arguments START, END and FACE are only here for 
debugging purpose."
 ;; Now highlight matches only if we are in helm session, we are
 ;; maybe coming from helm-grep-mode or helm-moccur-mode buffers.
 (when helm-alive-p
-  (cond (;; These 2 clauses have to be the first otherwise
- ;; `helm-highlight-matches-around-point-max-lines' is
- ;; compared as a number by other clauses and return an error.
- (eq helm-highlight-matches-around-point-max-lines 'never)
- (cl-return-from helm-highlight-current-line))
-((consp helm-highlight-matches-around-point-max-lines)
- (setq start-match
-   (save-excursion
- (forward-line
-  (- (car helm-highlight-matches-around-point-max-lines)))
- (pos-bol))
-   end-match
-   (save-excursion
- (forward-line
-  (cdr helm-highlight-matches-around-point-max-lines))
- (pos-bol
-((or (null helm-highlight-matches-around-point-max-lines)
- (zerop helm-highlight-matches-around-point-max-lines))
- (setq start-match start
-   end-match   end))
-((< helm-highlight-matches-around-point-max-lines 0)
- (setq start-match
-   (save-excursion
- (forward-line
-  helm-highlight-matches-around-point-max-lines)
- (pos-bol))
-   end-match start))
-((> helm-highlight-matches-around-point-max-lines 0)
- (setq start-match start
-   end-match
-   (save-excursion
- (forward-line
-  helm-highlight-matches-around-point-max-lines)
- (pos-bol)
+  (helm-acase helm-highlight-matches-around-point-max-lines
+;; Next 2 clauses must precede others otherwise
+;; `helm-highlight-matches-around-point-max-lines' is
+;; compared as a number by other clauses and return an error.
+(never (cl-return-from helm-highlight-current-line))
+((guard (consp it))
+ (setq start-match (save-excursion (forward-line (- (car it))) 
(pos-bol))
+   end-match   (save-excursion (forward-line (cdr it)) (pos-bol
+((guard (or (null it) (zerop it)))
+ (setq start-match start
+   end-match   end))
+((guard (< it 0))
+ (setq start-match (save-excursion (forward-line it) (pos-bol))
+   end-match   start))
+((guard (> it 0))
+ (setq start-match start
+   end-match   (save-excursion (forward-line it) (pos-bol)
   (catch 'empty-line
 (let* ((regex-list (helm-remove-if-match
 "\\`!" (helm-mm-split-pattern

[nongnu] elpa/helm 733e67c6f9 1/4: 'norecord argument and display-buffer instead of switch-to buffer in helm-buffers-list-persistent-action

[ELPA Syncer]

branch: elpa/helm
commit 733e67c6f977a4b005fa93263d3c8b80362a39ee
Author: AlexK 
Commit: AlexK 

'norecord argument and display-buffer instead of switch-to buffer in 
helm-buffers-list-persistent-action
---
 helm-buffers.el | 2 +-
 helm-core.el| 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/helm-buffers.el b/helm-buffers.el
index 109544c98d..e8f3c50c0d 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -1028,7 +1028,7 @@ vertically."
 (if (or (helm-follow-mode-p)
 (eql current (get-buffer helm-current-buffer))
 (not (eql current (get-buffer candidate
-(switch-to-buffer candidate)
+(display-buffer candidate)
   (if (and helm-persistent-action-display-window
(window-dedicated-p
 (next-window helm-persistent-action-display-window 1)))
diff --git a/helm-core.el b/helm-core.el
index 8348682cc9..f633c282f1 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7344,7 +7344,8 @@ See `helm-persistent-action-display-window' for how to 
use SPLIT."
   (prog1
   (select-window
(setq minibuffer-scroll-window
- (helm-persistent-action-display-window :split split)))
+ (helm-persistent-action-display-window :split split))
+   'norecord)
 (helm-log "helm-select-persistent-action-window"
   "Selected window is %S" minibuffer-scroll-window)))
 

[nongnu] elpa/helm 1dffc0914f 2/4: Merge pull request #2644 from karbiv/buffer-list_order_fix

[ELPA Syncer]

branch: elpa/helm
commit 1dffc0914f7e108ee04b3a75b1e6407deb43707d
Merge: 8c4561d366 733e67c6f9
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #2644 from karbiv/buffer-list_order_fix

'norecord argument and display-buffer instead of switch-to buffer in …
---
 helm-buffers.el | 2 +-
 helm-core.el| 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/helm-buffers.el b/helm-buffers.el
index 109544c98d..e8f3c50c0d 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -1028,7 +1028,7 @@ vertically."
 (if (or (helm-follow-mode-p)
 (eql current (get-buffer helm-current-buffer))
 (not (eql current (get-buffer candidate
-(switch-to-buffer candidate)
+(display-buffer candidate)
   (if (and helm-persistent-action-display-window
(window-dedicated-p
 (next-window helm-persistent-action-display-window 1)))
diff --git a/helm-core.el b/helm-core.el
index 8348682cc9..f633c282f1 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7344,7 +7344,8 @@ See `helm-persistent-action-display-window' for how to 
use SPLIT."
   (prog1
   (select-window
(setq minibuffer-scroll-window
- (helm-persistent-action-display-window :split split)))
+ (helm-persistent-action-display-window :split split))
+   'norecord)
 (helm-log "helm-select-persistent-action-window"
   "Selected window is %S" minibuffer-scroll-window)))
 

[nongnu] elpa/helm updated (8c4561d366 -> 3f8c40ed91)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  8c4561d366 Use helm-acase in helm-M-x-read-extended-command
   new  733e67c6f9 'norecord argument and display-buffer instead of 
switch-to buffer in helm-buffers-list-persistent-action
   new  1dffc0914f Merge pull request #2644 from 
karbiv/buffer-list_order_fix
   new  76d962d0ec Use helm-acase in helm-highlight-current-line
   new  3f8c40ed91 Simplify helm-open-file-with-default-tool


Summary of changes:
 helm-buffers.el |  2 +-
 helm-core.el|  3 ++-
 helm-utils.el   | 62 +++--
 3 files changed, 24 insertions(+), 43 deletions(-)

[elpa] externals/denote 928c1b4a8c 2/4: Allow safe buffer-local values for denote-infer-keywords

[ELPA Syncer]

branch: externals/denote
commit 928c1b4a8c74b701c063a141c74e789a99710f37
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Allow safe buffer-local values for denote-infer-keywords
---
 denote.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/denote.el b/denote.el
index 4ea2b5cd2e..3127a53895 100644
--- a/denote.el
+++ b/denote.el
@@ -164,6 +164,7 @@ Also see user options: `denote-infer-keywords',
   :package-version '(denote . "0.1.0")
   :type '(repeat string))
 
+;;;###autoload (put 'denote-infer-keywords 'safe-local-variable (lambda (val) 
(or val (null val
 (defcustom denote-infer-keywords t
   "Whether to infer keywords from existing notes' file names.
 
@@ -189,6 +190,7 @@ are specific to the given silo.
 For advanced Lisp usage, the function `denote-keywords' returns
 the appropriate list of strings."
   :group 'denote
+  :safe (lambda (val) (or val (null val)))
   :package-version '(denote . "0.1.0")
   :type 'boolean)
 

[elpa] externals/denote 5f7e8f50da 3/4: Allow safe buffer-local values for denote-known-keywords

[ELPA Syncer]

branch: externals/denote
commit 5f7e8f50da9724da27e242aead9993689b57f24e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Allow safe buffer-local values for denote-known-keywords
---
 denote.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/denote.el b/denote.el
index 3127a53895..19f0ee20b9 100644
--- a/denote.el
+++ b/denote.el
@@ -155,12 +155,14 @@ saved automatically."
   :package-version '(denote . "2.3.0")
   :type 'boolean)
 
+;;;###autoload (put 'denote-known-keywords 'safe-local-variable (lambda (val) 
(or (listp val) (null val
 (defcustom denote-known-keywords
   '("emacs" "philosophy" "politics" "economics")
   "List of strings with predefined keywords for `denote'.
 Also see user options: `denote-infer-keywords',
 `denote-sort-keywords', `denote-file-name-slug-functions'."
   :group 'denote
+  :safe (lambda (val) (or (listp val) (null val)))
   :package-version '(denote . "0.1.0")
   :type '(repeat string))
 

[elpa] externals/denote 88c80736fa 1/4: Fix docstring of denote-retrieve-filename-title

[ELPA Syncer]

branch: externals/denote
commit 88c80736faf75d97bb1735a0e8b478f0a364d9ed
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix docstring of denote-retrieve-filename-title

Other mentions of this are correct, as is the intent expressed in the
code.

Thanks to mentalisttraceur for bringing this matter to my attention in
issue 275: .
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 6c5f528341..4ea2b5cd2e 100644
--- a/denote.el
+++ b/denote.el
@@ -1693,7 +1693,7 @@ Return matched keywords as a single string."
   (match-string 1 filename
 
 (defun denote-retrieve-filename-title (file)
-  "Extract Denote title component from FILE name, else return an empty string."
+  "Extract Denote title component from FILE name, else return nil."
   (let ((filename (file-name-nondirectory file)))
 (when (string-match denote-title-regexp filename)
   (match-string 1 filename

[elpa] externals/denote e9f418968b 4/4: Define more faces for fine-grained control of the identifier in Dired

[ELPA Syncer]

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

Define more faces for fine-grained control of the identifier in Dired

Thanks to mentalisttraceur for suggesting the idea in issue 276:
.
---
 README.org | 16 
 denote.el  | 51 ---
 2 files changed, 64 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index c25d568677..30575e0805 100644
--- a/README.org
+++ b/README.org
@@ -2585,6 +2585,22 @@ The faces we define for this purpose are:
 + ~denote-faces-time~
 + ~denote-faces-title~
 
+As part of {{{development-version}}} we also provide these faces for
+more fine-grained colouration:
+
+#+vindex denote-faces-year
+#+vindex denote-faces-month
+#+vindex denote-faces-day
+#+vindex denote-faces-hour
+#+vindex denote-faces-minute
+#+vindex denote-faces-second
++ ~denote-faces-year~
++ ~denote-faces-month~
++ ~denote-faces-day~
++ ~denote-faces-hour~
++ ~denote-faces-minute~
++ ~denote-faces-second~
+
 For the time being, the =diredfl= package is not compatible with this
 facility.
 
diff --git a/denote.el b/denote.el
index 19f0ee20b9..0cb8ae7081 100644
--- a/denote.el
+++ b/denote.el
@@ -3267,6 +3267,45 @@ and seconds."
   :group 'denote-faces
   :package-version '(denote . "0.1.0"))
 
+(defface denote-faces-year '((t :inherit denote-faces-date))
+  "Face for file name year in Dired buffers.
+This is the part of the identifier that covers the year, month, and day."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
+(defface denote-faces-month '((t :inherit denote-faces-date))
+  "Face for file name month in Dired buffers.
+This is the part of the identifier that covers the year, month, and day."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
+(defface denote-faces-day '((t :inherit denote-faces-date))
+  "Face for file name day in Dired buffers.
+This is the part of the identifier that covers the year, month, and day."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
+(defface denote-faces-hour '((t :inherit denote-faces-date))
+  "Face for file name hours in Dired buffers.
+This is the part of the identifier that covers the hours, minutes,
+and seconds."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
+(defface denote-faces-minute '((t :inherit denote-faces-date))
+  "Face for file name minutes in Dired buffers.
+This is the part of the identifier that covers the hours, minutes,
+and seconds."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
+(defface denote-faces-second '((t :inherit denote-faces-date))
+  "Face for file name seconds in Dired buffers.
+This is the part of the identifier that covers the hours, minutes,
+and seconds."
+  :group 'denote-faces
+  :package-version '(denote . "2.3.0"))
+
 (defface denote-faces-extension '((t :inherit shadow))
   "Face for file extension type in Dired buffers."
   :group 'denote-faces
@@ -3299,7 +3338,9 @@ and seconds."
 
 (defvar denote-faces--file-name-regexp
   (concat "\\(?11:[\t\s]+\\|.*/\\)?"
-  "\\(?1:[0-9]\\{8\\}\\)\\(?10:T\\)\\(?2:[0-9]\\{6\\}\\)"
+  "\\(?1:[0-9]\\{4\\}\\)\\(?12:[0-9]\\{2\\}\\)\\(?13:[0-9]\\{2\\}\\)"
+  "\\(?10:T\\)"
+  "\\(?2:[0-9]\\{2\\}\\)\\(?14:[0-9]\\{2\\}\\)\\(?15:[0-9]\\{2\\}\\)"
   "\\(?:\\(?3:==\\)\\(?4:[^.]*?\\)\\)?"
   "\\(?:\\(?5:--\\)\\(?6:[^.]*?\\)\\)?"
   "\\(?:\\(?7:__\\)\\(?8:[^.]*?\\)\\)?"
@@ -3309,9 +3350,13 @@ and seconds."
 (defconst denote-faces-file-name-keywords
   `((,denote-faces--file-name-regexp
  (11 'denote-faces-subdirectory nil t)
- (1 'denote-faces-date)
+ (1 'denote-faces-year nil t)
+ (12 'denote-faces-month nil t)
+ (13 'denote-faces-day nil t)
  (10 'denote-faces-time-delimiter nil t)
- (2 'denote-faces-time)
+ (2 'denote-faces-hour nil t)
+ (14 'denote-faces-minute nil t)
+ (15 'denote-faces-second nil t)
  (3 'denote-faces-delimiter nil t)
  (4 'denote-faces-signature nil t)
  (5 'denote-faces-delimiter nil t)

[elpa] externals/denote updated (abbe7721de -> e9f418968b)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  abbe7721de Prevent mutation of keywords
   new  88c80736fa Fix docstring of denote-retrieve-filename-title
   new  928c1b4a8c Allow safe buffer-local values for denote-infer-keywords
   new  5f7e8f50da Allow safe buffer-local values for denote-known-keywords
   new  e9f418968b Define more faces for fine-grained control of the 
identifier in Dired


Summary of changes:
 README.org | 16 
 denote.el  | 57 +
 2 files changed, 69 insertions(+), 4 deletions(-)

[elpa] externals/jinx b09efcb85b: jinx-mod: Add global ref Qcons

[ELPA Syncer]

branch: externals/jinx
commit b09efcb85b1a8db8054a3d5a298e8d9516836f16
Author: Daniel Mendler 
Commit: Daniel Mendler 

jinx-mod: Add global ref Qcons
---
 jinx-mod.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/jinx-mod.c b/jinx-mod.c
index ee534cd522..0e6a4e66f4 100644
--- a/jinx-mod.c
+++ b/jinx-mod.c
@@ -27,7 +27,7 @@ along with GNU Emacs.  If not, see 
.  */
 int plugin_is_GPL_compatible;
 
 static EnchantBroker* broker = 0;
-static emacs_value Qt, Qnil;
+static emacs_value Qt, Qnil, Qcons;
 
 static EnchantBroker* jinx_broker(void) {
 return broker ? broker : (broker = enchant_broker_init());
@@ -42,7 +42,7 @@ static emacs_value jinx_str(emacs_env* env, const char* str) {
 }
 
 static emacs_value jinx_cons(emacs_env* env, emacs_value a, emacs_value b) {
-return env->funcall(env, env->intern(env, "cons"), 2, (emacs_value[]){a, 
b});
+return env->funcall(env, Qcons, 2, (emacs_value[]){a, b});
 }
 
 static char* jinx_cstr(emacs_env* env, emacs_value val) {
@@ -186,6 +186,7 @@ int emacs_module_init(struct emacs_runtime *runtime) {
  });
 Qt = env->make_global_ref(env, env->intern(env, "t"));
 Qnil = env->make_global_ref(env, env->intern(env, "nil"));
+Qcons = env->make_global_ref(env, env->intern(env, "cons"));
 jinx_defun(env, "jinx--mod-suggest", 2, 2, jinx_suggest);
 jinx_defun(env, "jinx--mod-check", 2, 2, jinx_check);
 jinx_defun(env, "jinx--mod-add", 2, 2, jinx_add);

[elpa] externals/mpdired 3b01af9d4d 2/3: fix progress

[ELPA Syncer]

branch: externals/mpdired
commit 3b01af9d4d129e37881953532dbb867c9bdb264b
Author: Manuel Giraud 
Commit: Manuel Giraud 

fix progress
---
 mpdired.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mpdired.el b/mpdired.el
index cd909349b2..3a4dd5f986 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -513,7 +513,8 @@ used for mark followed by a space."
(let* ((bol (mpdired--bol))
   (eol (line-end-position))
   (x (/ (* elapsed (- eol bol)) duration)))
- (put-text-property (+ bol x) eol 'face 'mpdired-progress
+ (when (> eol (+ bol x))
+   (put-text-property (+ bol x) eol 'face 'mpdired-progress)
;; Go to bol no matter what
(goto-char (mpdired--bol))
;; Restore point and memorize stuff

[elpa] externals/mpdired ec8fb11203 1/3: use `define-derived-mode'

[ELPA Syncer]

branch: externals/mpdired
commit ec8fb11203fc64134fe5113bec61e8a0ba182a7a
Author: Manuel Giraud 
Commit: Manuel Giraud 

use `define-derived-mode'
---
 mpdired.el | 18 --
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index 8ebac519a9..cd909349b2 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -297,13 +297,10 @@
 (when file (push (list id file time) result))
 (reverse result)))
 
-(defun mpdired-mode ()
+(define-derived-mode mpdired-mode special-mode "MPDired"
   "Major mode for MPDired."
-  (use-local-map mpdired-mode-map)
   (set-buffer-modified-p nil)
-  (setq major-mode 'mpdired-mode
-   mode-name "MPDired"
-   truncate-lines t
+  (setq truncate-lines t
buffer-read-only t))
 
 (defun mpdired--hostname (host service localp)
@@ -458,8 +455,7 @@ used for mark followed by a space."
  (when (stringp top)
(insert (propertize top 'face 'mpdired-currdir) ":\n"))
  (mapc #'mpdired--insert-entry data))
-   ;; Set mode and memorize stuff
-   (mpdired-mode)
+   ;; Memorize stuff
(if ascending-p (setq from mpdired--directory))
(setq mpdired--directory (when top top)
  mpdired--comm-buffer (process-buffer proc)
@@ -520,8 +516,7 @@ used for mark followed by a space."
  (put-text-property (+ bol x) eol 'face 'mpdired-progress
;; Go to bol no matter what
(goto-char (mpdired--bol))
-   ;; Set mode, restore point and memorize stuff
-   (mpdired-mode)
+   ;; Restore point and memorize stuff
(when mpdired--songid-point
  (mpdired--goto-id mpdired--songid-point))
(setq mpdired--comm-buffer (process-buffer proc)
@@ -593,10 +588,13 @@ used for mark followed by a space."
:family (if localp 'local)
:coding 'utf-8
:filter #'mpdired--filter)))
+ ;; Save communication buffer's state and set its process.
  (setq mpdired--network-params params
mpdired--main-buffer (mpdired--main-name host service localp))
  (set-process-buffer (apply 'make-network-process params)
- (current-buffer)))
+ (current-buffer))
+ ;; Set mode in main buffer.
+ (with-current-buffer (get-buffer-create mpdired--main-buffer) 
(mpdired-mode)))
 
 (defmacro mpdired--with-comm-buffer (process buffer &rest body)
   "Helper macro when sending a command via the communication buffer.

[elpa] externals/mpdired updated (a1d613a6d5 -> d138bc81ac)

[ELPA Syncer]

elpasync pushed a change to branch externals/mpdired.

  from  a1d613a6d5 invert progression
   new  ec8fb11203 use `define-derived-mode'
   new  3b01af9d4d fix progress
   new  d138bc81ac split a long line


Summary of changes:
 mpdired.el | 22 +++---
 1 file changed, 11 insertions(+), 11 deletions(-)

[elpa] externals/mpdired d138bc81ac 3/3: split a long line

[ELPA Syncer]

branch: externals/mpdired
commit d138bc81ac0ecc28bed9bf41557c98d6edabd70c
Author: Manuel Giraud 
Commit: Manuel Giraud 

split a long line
---
 mpdired.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mpdired.el b/mpdired.el
index 3a4dd5f986..ef27f9a939 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -595,7 +595,8 @@ used for mark followed by a space."
  (set-process-buffer (apply 'make-network-process params)
  (current-buffer))
  ;; Set mode in main buffer.
- (with-current-buffer (get-buffer-create mpdired--main-buffer) 
(mpdired-mode)))
+ (with-current-buffer (get-buffer-create mpdired--main-buffer)
+   (mpdired-mode)))
 
 (defmacro mpdired--with-comm-buffer (process buffer &rest body)
   "Helper macro when sending a command via the communication buffer.

[elpa] externals/org-contacts 6660db078f: Fix error: symbol’s function definition is void: `erc-server-buffer-live-p`

[ELPA Syncer]

branch: externals/org-contacts
commit 6660db078f7687af3bc31f702e3e957d4d7654bd
Author: stardiviner 
Commit: stardiviner 

Fix error: symbol’s function definition is void: `erc-server-buffer-live-p`
---
 org-contacts.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index e2b67ac7ff..dd09d077e0 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1076,7 +1076,7 @@ Return a org-contacts \"NICKNAME\" as property's value 
after completion."
  (contact-nick (substring-no-properties
 (org-completing-read (or prompt "org-contacts 
NICKNAME: ")
  (append 
org-contacts-candidates-propertized collection
- (when (or (featurep 'erc)
+ (when (or (require 'erc 
nil t)

(erc-server-buffer-live-p)

(erc-server-process-alive)

erc-server-processing-p)

[nongnu] elpa/package-lint fce93b7edf 2/2: Merge pull request #264 from purcell/dependabot/github_actions/cachix/install-nix-action-26

[ELPA Syncer]

branch: elpa/package-lint
commit fce93b7edf4e971b2cbe3425c1d773ffe0aa8a62
Merge: eeb585eace d87629499e
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #264 from 
purcell/dependabot/github_actions/cachix/install-nix-action-26

chore(deps): bump cachix/install-nix-action from 25 to 26
---
 .github/workflows/stdlib-changes.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/stdlib-changes.yml 
b/.github/workflows/stdlib-changes.yml
index 524ceff0c8..409a9b897e 100644
--- a/.github/workflows/stdlib-changes.yml
+++ b/.github/workflows/stdlib-changes.yml
@@ -9,7 +9,7 @@ jobs:
 runs-on: ubuntu-latest
 steps:
 - uses: actions/checkout@v4
-- uses: cachix/install-nix-action@v25
+- uses: cachix/install-nix-action@v26
 - run: tools/sym-dump-all
 - uses: stefanzweifel/git-auto-commit-action@v5
   with:

[nongnu] elpa/package-lint d87629499e 1/2: chore(deps): bump cachix/install-nix-action from 25 to 26

[ELPA Syncer]

branch: elpa/package-lint
commit d87629499e94581adb5406c023fc1635ddbb3dad
Author: dependabot[bot] <49699333+dependabot[bot]@users.noreply.github.com>
Commit: GitHub 

chore(deps): bump cachix/install-nix-action from 25 to 26

Bumps 
[cachix/install-nix-action](https://github.com/cachix/install-nix-action) from 
25 to 26.
- [Release notes](https://github.com/cachix/install-nix-action/releases)
- [Commits](https://github.com/cachix/install-nix-action/compare/v25...v26)

---
updated-dependencies:
- dependency-name: cachix/install-nix-action
  dependency-type: direct:production
  update-type: version-update:semver-major
...

Signed-off-by: dependabot[bot] 
---
 .github/workflows/stdlib-changes.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/stdlib-changes.yml 
b/.github/workflows/stdlib-changes.yml
index 524ceff0c8..409a9b897e 100644
--- a/.github/workflows/stdlib-changes.yml
+++ b/.github/workflows/stdlib-changes.yml
@@ -9,7 +9,7 @@ jobs:
 runs-on: ubuntu-latest
 steps:
 - uses: actions/checkout@v4
-- uses: cachix/install-nix-action@v25
+- uses: cachix/install-nix-action@v26
 - run: tools/sym-dump-all
 - uses: stefanzweifel/git-auto-commit-action@v5
   with:

[nongnu] elpa/page-break-lines e33426ae7f 2/2: Merge pull request #43 from timhillgit/reenable-max-width

[ELPA Syncer]

branch: elpa/page-break-lines
commit e33426ae7f10c60253afe4850450902919fc87fd
Merge: 1b85352b0b 2dd4af3b4b
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #43 from timhillgit/reenable-max-width

Re-enable page-break-lines-max-width
---
 page-break-lines.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/page-break-lines.el b/page-break-lines.el
index 92c917fe1a..934c97e2a0 100644
--- a/page-break-lines.el
+++ b/page-break-lines.el
@@ -130,6 +130,9 @@ its display table will be modified as necessary."
  (string-pixel-width 
(make-string 100 ?a)))
 (char-width 
page-break-lines-char)))
  (width (floor (window-max-chars-per-line) 
char-relative-width))
+ (width (if page-break-lines-max-width
+(min width page-break-lines-max-width)
+  width))
  (glyph (make-glyph-code page-break-lines-char 
'page-break-lines))
  (new-display-entry (vconcat (make-list width glyph
 (unless (equal new-display-entry (elt buffer-display-table 
?\^L))

[nongnu] elpa/page-break-lines 2dd4af3b4b 1/2: Re-enable page-break-lines-max-width

[ELPA Syncer]

branch: elpa/page-break-lines
commit 2dd4af3b4b2b7353c1861c9d4a50e5bd4ae69ab2
Author: Tim Hill 
Commit: Tim Hill 

Re-enable page-break-lines-max-width
---
 page-break-lines.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/page-break-lines.el b/page-break-lines.el
index 92c917fe1a..934c97e2a0 100644
--- a/page-break-lines.el
+++ b/page-break-lines.el
@@ -130,6 +130,9 @@ its display table will be modified as necessary."
  (string-pixel-width 
(make-string 100 ?a)))
 (char-width 
page-break-lines-char)))
  (width (floor (window-max-chars-per-line) 
char-relative-width))
+ (width (if page-break-lines-max-width
+(min width page-break-lines-max-width)
+  width))
  (glyph (make-glyph-code page-break-lines-char 
'page-break-lines))
  (new-display-entry (vconcat (make-list width glyph
 (unless (equal new-display-entry (elt buffer-display-table 
?\^L))

[nongnu] elpa/reformatter bcc0c51dfd 1/3: Use nix profile instead of nix-env

[ELPA Syncer]

branch: elpa/reformatter
commit bcc0c51dfdc638739d8e86c8f68871d9e41a8629
Author: Steve Purcell 
Commit: GitHub 

Use nix profile instead of nix-env
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index dd6ea8addf..9ddce5091c 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -43,6 +43,6 @@ jobs:
 version: ${{ matrix.emacs_version }}
 - uses: actions/checkout@v4
 - name: Install deps for tests
-  run: nix-env -i shfmt -f ''
+  run: nix profile install 'nixpkgs#shfmt'
 - name: Run tests
   run: make compile test

[nongnu] elpa/reformatter updated (76315e32a1 -> a0d4ce7219)

[ELPA Syncer]

elpasync pushed a change to branch elpa/reformatter.

  from  76315e32a1 Merge pull request #48 from 
purcell/dependabot/github_actions/cachix/install-nix-action-25
   new  bcc0c51dfd Use nix profile instead of nix-env
   new  6b63d9cae5 chore(deps): bump cachix/install-nix-action from 25 to 26
   new  a0d4ce7219 Merge pull request #50 from 
purcell/dependabot/github_actions/cachix/install-nix-action-26


Summary of changes:
 .github/workflows/test.yml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/reformatter 6b63d9cae5 2/3: chore(deps): bump cachix/install-nix-action from 25 to 26

[ELPA Syncer]

branch: elpa/reformatter
commit 6b63d9cae5737226f6eaf9467949fd9f88f37aef
Author: dependabot[bot] <49699333+dependabot[bot]@users.noreply.github.com>
Commit: GitHub 

chore(deps): bump cachix/install-nix-action from 25 to 26

Bumps 
[cachix/install-nix-action](https://github.com/cachix/install-nix-action) from 
25 to 26.
- [Release notes](https://github.com/cachix/install-nix-action/releases)
- [Commits](https://github.com/cachix/install-nix-action/compare/v25...v26)

---
updated-dependencies:
- dependency-name: cachix/install-nix-action
  dependency-type: direct:production
  update-type: version-update:semver-major
...

Signed-off-by: dependabot[bot] 
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 9ddce5091c..ce25a3cdd0 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -35,7 +35,7 @@ jobs:
   - 29.1
   - snapshot
 steps:
-- uses: cachix/install-nix-action@v25
+- uses: cachix/install-nix-action@v26
   with:
 nix_path: nixpkgs=channel:nixos-unstable
 - uses: purcell/setup-emacs@master

[nongnu] elpa/reformatter a0d4ce7219 3/3: Merge pull request #50 from purcell/dependabot/github_actions/cachix/install-nix-action-26

[ELPA Syncer]

branch: elpa/reformatter
commit a0d4ce721942c801e39e8620d92f2d537778d460
Merge: bcc0c51dfd 6b63d9cae5
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #50 from 
purcell/dependabot/github_actions/cachix/install-nix-action-26

chore(deps): bump cachix/install-nix-action from 25 to 26
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 9ddce5091c..ce25a3cdd0 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -35,7 +35,7 @@ jobs:
   - 29.1
   - snapshot
 steps:
-- uses: cachix/install-nix-action@v25
+- uses: cachix/install-nix-action@v26
   with:
 nix_path: nixpkgs=channel:nixos-unstable
 - uses: purcell/setup-emacs@master

[elpa] externals/dape 0b6fd667a9: Add node typescript batteries included #87

[ELPA Syncer]

branch: externals/dape
commit 0b6fd667a99cd2cfed105319500c8083b613f562
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add node typescript batteries included #87

Clean up js-debug-* configuration with otherwise default values.
---
 dape.el | 40 
 1 file changed, 24 insertions(+), 16 deletions(-)

diff --git a/dape.el b/dape.el
index ead865684c..4d71388085 100644
--- a/dape.el
+++ b/dape.el
@@ -198,9 +198,11 @@
  :type "server"
  :cwd dape-cwd)
 ,@(let ((js-debug
- `(modes (js-mode js-ts-mode typescript-mode typescript-ts-mode)
-   ensure ,(lambda (config)
+ `(ensure ,(lambda (config)
  (dape-ensure-command config)
+ (when-let ((runtime-executable
+ (dape-config-get config 
:runtimeExecutable)))
+   (dape--ensure-executable runtime-executable))
  (let ((dap-debug-server-path
 (car (plist-get config 'command-args
(unless (file-exists-p dap-debug-server-path)
@@ -214,22 +216,26 @@
  :autoport)
port :autoport)))
 `((js-debug-node
+   modes (js-mode js-ts-mode)
,@js-debug
:type "pwa-node"
:cwd dape-cwd
:program dape-buffer-default
-   :outputCapture "console"
-   :sourceMapRenames t
-   :pauseForSourceMap nil
-   :autoAttachChildProcesses t
-   :console "internalConsole"
-   :killBehavior "forceful")
+   :console "internalConsole")
+  (js-debug-ts-node
+   modes (typescript-mode typescript-ts-mode)
+   ,@js-debug
+   :type "pwa-node"
+   :runtimeExecutable "ts-node"
+   :cwd dape-cwd
+   :program dape-buffer-default
+   :console "internalConsole")
   (js-debug-chrome
+   modes (js-mode js-ts-mode typescript-mode typescript-ts-mode)
,@js-debug
:type "pwa-chrome"
:url "http://localhost:3000";
-   :webRoot dape-cwd
-   :outputCapture "console")))
+   :webRoot dape-cwd)))
 (lldb-vscode
  modes (c-mode c-ts-mode c++-mode c++-ts-mode rust-mode rust-ts-mode)
  ensure dape-ensure-command
@@ -905,14 +911,16 @@ as is."
 (plist-put config 'host host
   config)
 
+(defun dape--ensure-executable (executable)
+  "Ensure that EXECUTABLE exist on system."
+  (unless (or (file-executable-p executable)
+  (executable-find executable t))
+(user-error "Unable to locate %S (default-directory %s)"
+executable default-directory)))
+
 (defun dape-ensure-command (config)
   "Ensure that `command' from CONFIG exist system."
-  (let ((command
- (dape-config-get config 'command)))
-(unless (or (file-executable-p command)
-(executable-find command t))
-  (user-error "Unable to locate %S with default-directory %s"
-  command default-directory
+  (dape--ensure-executable (dape-config-get config 'command)))
 
 (defun dape--overlay-region (&optional extended)
   "List of beg and end of current line.

[nongnu] elpa/symbol-overlay a505a10bb1 1/3: Separate lint and compile steps in CI

[ELPA Syncer]

branch: elpa/symbol-overlay
commit a505a10bb1675bf5a7fbfab8a2a0a29bf21c10df
Author: Steve Purcell 
Commit: Steve Purcell 

Separate lint and compile steps in CI

package-lint no longer works on Emacs 24.3, so we run it
separately (and just once) using a newer Emacs version.
---
 .github/workflows/test.yml | 19 ++-
 Makefile   |  8 
 2 files changed, 18 insertions(+), 9 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index e95f8b7444..5dde1230b4 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -7,6 +7,16 @@ on:
 - '**.md'
 
 jobs:
+  lint:
+runs-on: ubuntu-latest
+steps:
+- uses: purcell/setup-emacs@master
+  with:
+version: 29.2
+- uses: actions/checkout@v4
+- name: Run tests
+  run: make package-lint
+
   build:
 runs-on: ubuntu-latest
 strategy:
@@ -18,16 +28,15 @@ jobs:
   - 25.3
   - 26.1
   - 26.3
-  - 27.1
   - 27.2
-  - 28.1
   - 28.2
+  - 29.2
   - snapshot
 steps:
 - uses: purcell/setup-emacs@master
   with:
 version: ${{ matrix.emacs_version }}
 
-- uses: actions/checkout@v2
-- name: Run tests
-  run: make
+- uses: actions/checkout@v4
+- name: Check byte compilation
+  run: make compile
diff --git a/Makefile b/Makefile
index 9bb1cd306f..9e8c82d2b7 100644
--- a/Makefile
+++ b/Makefile
@@ -1,13 +1,13 @@
 EMACS ?= emacs
 
 # A space-separated list of required package names
-NEEDED_PACKAGES = package-lint seq
+DEPS = seq
 
 INIT_PACKAGES="(progn \
   (require 'package) \
   (push '(\"melpa\" . \"https://melpa.org/packages/\";) package-archives) \
   (package-initialize) \
-  (dolist (pkg '(${NEEDED_PACKAGES})) \
+  (dolist (pkg '(PACKAGES)) \
 (unless (package-installed-p pkg) \
   (unless (assoc pkg package-archive-contents) \
 (package-refresh-contents)) \
@@ -17,10 +17,10 @@ INIT_PACKAGES="(progn \
 all: compile package-lint clean-elc
 
 package-lint:
-   ${EMACS} -Q --eval ${INIT_PACKAGES} -batch -f 
package-lint-batch-and-exit symbol-overlay.el
+   ${EMACS} -Q --eval $(subst PACKAGES,package-lint,${INIT_PACKAGES}) 
-batch -f package-lint-batch-and-exit symbol-overlay.el
 
 compile: clean-elc
-   ${EMACS} -Q --eval ${INIT_PACKAGES} -L . -batch -f batch-byte-compile 
*.el
+   ${EMACS} -Q --eval $(subst PACKAGES,${DEPS},${INIT_PACKAGES}) -L . 
-batch -f batch-byte-compile *.el
 
 clean-elc:
rm -f f.elc

[nongnu] elpa/symbol-overlay updated (8dc9d19299 -> de215fff39)

[ELPA Syncer]

elpasync pushed a change to branch elpa/symbol-overlay.

  from  8dc9d19299 Merge pull request #106 from VlachJosef/master
   new  a505a10bb1 Separate lint and compile steps in CI
   new  a892fdbc47 Fix incorrect behavior of symbol-overlay-switch-backward
   new  de215fff39 Merge pull request #108 from roife/wolray


Summary of changes:
 .github/workflows/test.yml | 19 ++-
 Makefile   |  8 
 symbol-overlay.el  |  2 +-
 3 files changed, 19 insertions(+), 10 deletions(-)

[nongnu] elpa/symbol-overlay a892fdbc47 2/3: Fix incorrect behavior of symbol-overlay-switch-backward

[ELPA Syncer]

branch: elpa/symbol-overlay
commit a892fdbc478addf4c0662e08c56eaee92dd0e04b
Author: roife 
Commit: roife 

Fix incorrect behavior of symbol-overlay-switch-backward
---
 symbol-overlay.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 453128a25f..e1be4789dd 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -255,7 +255,7 @@ If SYMBOL is non-nil, get the overlays that belong to it.
 DIR is an integer.
 If EXCLUDE is non-nil, get all overlays excluding those belong to SYMBOL."
   (let ((overlays (cond ((= dir 0) (overlays-in (point-min) (point-max)))
-((< dir 0) (overlays-in (point-min) (point)))
+((< dir 0) (nreverse (overlays-in (point-min) 
(point
 ((> dir 0) (overlays-in
 (if (looking-at-p "\\_>") (1- (point)) 
(point))
 (point-max))

[nongnu] elpa/symbol-overlay de215fff39 3/3: Merge pull request #108 from roife/wolray

[ELPA Syncer]

branch: elpa/symbol-overlay
commit de215fff392c916ffab01950fcb6daf6fd18be4f
Merge: a505a10bb1 a892fdbc47
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #108 from roife/wolray

Fix incorrect behavior of symbol-overlay-switch-backward
---
 symbol-overlay.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 453128a25f..e1be4789dd 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -255,7 +255,7 @@ If SYMBOL is non-nil, get the overlays that belong to it.
 DIR is an integer.
 If EXCLUDE is non-nil, get all overlays excluding those belong to SYMBOL."
   (let ((overlays (cond ((= dir 0) (overlays-in (point-min) (point-max)))
-((< dir 0) (overlays-in (point-min) (point)))
+((< dir 0) (nreverse (overlays-in (point-min) 
(point
 ((> dir 0) (overlays-in
 (if (looking-at-p "\\_>") (1- (point)) 
(point))
 (point-max))

[elpa] externals/transient 3e30f5bff6: Revert "transient--show: Fix only window height"

[Jonas Bernoulli via]

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

Revert "transient--show: Fix only window height"

This reverts commit 03997dcba8d5301b6eb26754773297f23ba3eca2.

This avoids an issue for the `transient-posframe' package, mentioned
at https://github.com/magit/transient/commit/03997dcba8d5301b6eb2675.

It is unknown why fixing only the height caused the height to be
reduced, but since we fixed both the height and width for a long time,
without *that* causing any issues, just go back to doing that.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index c9b24d6206..80620cfad3 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3590,7 +3590,7 @@ have a history of their own.")
  (button-get (1- (point)) 'command))
 (transient--heading-at-point
   (erase-buffer)
-  (setq window-size-fixed 'height)
+  (setq window-size-fixed t)
   (when (bound-and-true-p tab-line-format)
 (setq tab-line-format nil))
   (setq header-line-format nil)

[elpa] externals/dape 990f86f7ce: Add fixme for moving buffer point in timer context

[ELPA Syncer]

branch: externals/dape
commit 990f86f7cef95841eedafb35884f5d16793219de
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add fixme for moving buffer point in timer context
---
 dape.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/dape.el b/dape.el
index 4d71388085..05fafee5a8 100644
--- a/dape.el
+++ b/dape.el
@@ -2890,6 +2890,9 @@ If SKIP-DISPLAY is non nil refrain from going to selected 
stack."
 (pulse-momentary-highlight-region (line-beginning-position)
   (line-beginning-position 
2)
   'next-error))
+;; FIXME Should be called with idle-timer as to
+;;   guarantee that we are not in `save-excursion'
+;;   context.  But this makes tests hard write.
   (with-current-buffer (marker-buffer marker)
 (dape--add-eldoc-hook)
 (save-excursion

[elpa] externals/mpdired updated (d138bc81ac -> c2fb656038)

[ELPA Syncer]

elpasync pushed a change to branch externals/mpdired.

  from  d138bc81ac split a long line
   new  558206b2a1 create main buffer in one place only
   new  ea22c6797f tweak some comments
   new  c1a4f1b883 remove ideas.org as it is obsolete now
   new  3ac080839f use `eobp'
   new  c2fb656038 release version 1


Summary of changes:
 ideas.org  |  16 -
 mpdired.el | 119 +
 2 files changed, 56 insertions(+), 79 deletions(-)
 delete mode 100644 ideas.org

[elpa] externals/ess updated (cf23725304 -> e7b25b6119)

[ELPA Syncer]

elpasync pushed a change to branch externals/ess.

  from  cf23725304 + \dontdiff{.} (#1281)
   new  5a3667ad27 upload: ensure tarballs are world readable on webpage
   new  e7b25b6119 tweak


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

[elpa] externals/mpdired c1a4f1b883 3/5: remove ideas.org as it is obsolete now

[ELPA Syncer]

branch: externals/mpdired
commit c1a4f1b8832da08478c6254554b153b504927d44
Author: Manuel Giraud 
Commit: Manuel Giraud 

remove ideas.org as it is obsolete now
---
 ideas.org | 16 
 1 file changed, 16 deletions(-)

diff --git a/ideas.org b/ideas.org
deleted file mode 100644
index a2f261406c..00
--- a/ideas.org
+++ /dev/null
@@ -1,16 +0,0 @@
-* 2 vue : selection et queue (currently playing songs)
-* interface dired-like
-** vue queue
-   - d x : select, remove file
-   - D
-   - % m : with playlistfind
-* mode déconnecté au maximum
-* don't mess with the mode-line
-
-
-* Observations
-The mpd documentation do not recommend to use the "listall" command
-and use it to rebuild your temporary own "database".  I don't
-understand why because it seems to me that mpd does not offer any
-other interface to deal with directories and files from your music
-directory.

[elpa] externals/mpdired 558206b2a1 1/5: create main buffer in one place only

[ELPA Syncer]

branch: externals/mpdired
commit 558206b2a13031c20e85c0b949d5b10cc15edaf5
Author: Manuel Giraud 
Commit: Manuel Giraud 

create main buffer in one place only

Also, do not reset its mode if the buffer already exists.
---
 mpdired.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index ef27f9a939..584930fbcb 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -440,7 +440,7 @@ used for mark followed by a space."
 (with-current-buffer (process-buffer proc)
   (setq ascending-p mpdired--ascending-p
playlist mpdired--playlist))
-(with-current-buffer (get-buffer-create main-buffer)
+(with-current-buffer main-buffer
   (let* ((inhibit-read-only t)
 ;; `content' is always of the form ("" rest...) so if
 ;; there is only one element in rest use it as content.
@@ -491,7 +491,7 @@ used for mark followed by a space."
 (elapsed (cadr data))
 (duration (caddr data))
 (songs (cdddr data)))
-(with-current-buffer (get-buffer-create main-buffer)
+(with-current-buffer main-buffer
   (let ((inhibit-read-only t))
(erase-buffer)
;; Insert content
@@ -593,10 +593,11 @@ used for mark followed by a space."
  (setq mpdired--network-params params
mpdired--main-buffer (mpdired--main-name host service localp))
  (set-process-buffer (apply 'make-network-process params)
- (current-buffer))
- ;; Set mode in main buffer.
- (with-current-buffer (get-buffer-create mpdired--main-buffer)
-   (mpdired-mode)))
+ (current-buffer
+  ;; Set mode in main buffer if it does not already exist.
+  (unless (get-buffer mpdired--main-buffer)
+   (with-current-buffer (get-buffer-create mpdired--main-buffer)
+ (mpdired-mode))
 
 (defmacro mpdired--with-comm-buffer (process buffer &rest body)
   "Helper macro when sending a command via the communication buffer.

[elpa] externals/ess e7b25b6119 2/2: tweak

[ELPA Syncer]

branch: externals/ess
commit e7b25b6119626101b933bd6e8fc12d6033a33741
Author: Martin Maechler 
Commit: Martin Maechler 

tweak
---
 Makefile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 0a01ed3b5e..c851f3ba6b 100644
--- a/Makefile
+++ b/Makefile
@@ -198,8 +198,8 @@ homepage:
 upload:
[ x$$USER = xmaechler ] || (echo 'must be maechler'; exit 1 )
@echo "** Placing .tgz and .zip files and their .sig's **"
-   chmod a+r $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig
-   cp -p $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig $(UPLOAD_DIR)
+   @chmod a+r $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig
+   cp -p  $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig $(UPLOAD_DIR)
@echo "** Creating LATEST.IS. file **"
rm -f $(UPLOAD_DIR)/LATEST.IS.*
touch $(UPLOAD_DIR)/LATEST.IS.$(ESSDIR)

[elpa] externals/ess 5a3667ad27 1/2: upload: ensure tarballs are world readable on webpage

[ELPA Syncer]

branch: externals/ess
commit 5a3667ad272252f900d7e41cc9f11a1353d122c8
Author: Martin Maechler 
Commit: Martin Maechler 

upload: ensure tarballs are world readable on webpage
---
 Makefile | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 182094a36e..0a01ed3b5e 100644
--- a/Makefile
+++ b/Makefile
@@ -198,7 +198,8 @@ homepage:
 upload:
[ x$$USER = xmaechler ] || (echo 'must be maechler'; exit 1 )
@echo "** Placing .tgz and .zip files and their .sig's **"
-   cp -p $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip $(ESSDIR).zip.sig 
$(UPLOAD_DIR)
+   chmod a+r $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig
+   cp -p $(ESSDIR).tgz $(ESSDIR).tgz.sig $(ESSDIR).zip 
$(ESSDIR).zip.sig $(UPLOAD_DIR)
@echo "** Creating LATEST.IS. file **"
rm -f $(UPLOAD_DIR)/LATEST.IS.*
touch $(UPLOAD_DIR)/LATEST.IS.$(ESSDIR)

[elpa] externals/mpdired ea22c6797f 2/5: tweak some comments

[ELPA Syncer]

branch: externals/mpdired
commit ea22c6797f06d7c616ff1b67f512850327c006c9
Author: Manuel Giraud 
Commit: Manuel Giraud 

tweak some comments
---
 mpdired.el | 19 ++-
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index 584930fbcb..f9eaec63d9 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -31,7 +31,8 @@
 ;;
 ;; In those view, most of the interactions are mimic after Dired mode
 ;; with marks and action on them.  For example, in the queue view, you
-;; could flag songs for removal with `d' and then execute with `x'.
+;; could flag songs for removal with `d' and then issue the deletion
+;; from the queue with `x'.
 ;;
 ;; MPDired connects to a MPD server using two customs: `mpdired-host'
 ;; and `mpdired-port'.  Once connected, the handle to the server is
@@ -56,10 +57,10 @@
 ;; filenames, I prefer to use this interface rather then to rely on
 ;; files' tags.
 ;;
-;; If your music collection consists of just a set of not very well
-;; named files into one big directory and that you rely on tags such
-;; as "Genre", "Album", "Artist" to find your way through it then,
-;; maybe, MPDired is not the right client for you.
+;; Be aware that if your music collection consists of just a set of
+;; not very well named files into one big directory and that you rely
+;; on tags such as "Genre", "Album", "Artist" to find your way through
+;; it then, maybe, MPDired is not the right client for you.
 
 ;;; Bugs & Funs:
 ;;
@@ -218,8 +219,8 @@
   ;; works with `mpdired--subdir-p'.
   (mpdired--parse-listall-1 "" (list "")))
 
-;; All my functions are called *-queue but they are using the correct
-;; "playlistid" MPD interface.
+;; All functions dealing with the queue are called *-queue but they
+;; are using the correct "playlistid" MPD interface.
 (defun mpdired--parse-queue ()
   ;; Called from the communication buffer.
   (goto-char (point-min))
@@ -257,7 +258,7 @@
  duration (string-to-number (match-string 2)
;; When we enconter our first "file:" the status parsing is
;; done so store what we've discovered so far and do not try
-   ;; to parse status anymore.
+   ;; to parse the status anymore.
(when (and in-status-p
   (save-excursion (re-search-forward "^file: .*$" eol t 1)))
  (setq in-status-p nil)
@@ -284,7 +285,7 @@
(when (re-search-forward "^Id: \\(.*\\)$" eol t 1)
  (setq id (string-to-number (match-string 1)
   (forward-line))
-;; There was only status but no songs
+;; There was only a status but no songs
 (when in-status-p
   ;; Save status in main buffer
   (with-current-buffer mpdired--main-buffer

[elpa] externals/mpdired c2fb656038 5/5: release version 1

[ELPA Syncer]

branch: externals/mpdired
commit c2fb656038e779c010353ecce1623c4b935dbf69
Author: Manuel Giraud 
Commit: Manuel Giraud 

release version 1
---
 mpdired.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mpdired.el b/mpdired.el
index 9a68138d83..710d33ecce 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2024  Free Software Foundation, Inc.
 
-;; Version: 1-pre
+;; Version: 1
 ;; Package-Requires: ((emacs "29"))
 
 ;; Author: Manuel Giraud 

[elpa] externals/mpdired 3ac080839f 4/5: use `eobp'

[ELPA Syncer]

branch: externals/mpdired
commit 3ac080839fdce66f1aefd4c92a16e08bd21da8a6
Author: Manuel Giraud 
Commit: Manuel Giraud 

use `eobp'

Convert "(< (point) (point-max))" to "(not (eobp))".
---
 mpdired.el | 85 --
 1 file changed, 38 insertions(+), 47 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index f9eaec63d9..9a68138d83 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -421,12 +421,11 @@ used for mark followed by a space."
 (insert "\n")))
 
 (defun mpdired--goto-id (songid)
-  (let ((max (point-max)))
-(while (and (< (point) max)
-   (let ((id (get-text-property (mpdired--bol) 'id)))
- (or (null id)
- (and id (/= songid id)
-  (mpdired--next-line
+  (while (and (not (eobp))
+ (let ((id (get-text-property (mpdired--bol) 'id)))
+   (or (null id)
+   (and id (/= songid id)
+(mpdired--next-line)))
 
 (defun mpdired--present-list (proc)
   ;; Called by filter of the communication buffer.
@@ -464,12 +463,11 @@ used for mark followed by a space."
;; Finally move point to the correct place.
(cond ((and ascending-p from)
   (goto-char (point-min))
-  (let ((max (point-max)))
-(while (and (< (point) max)
-(let ((uri (get-text-property (mpdired--bol) 
'uri)))
-  (or (null uri)
-  (and uri (not (string= from uri))
-  (forward-line)))
+  (while (and (not (eobp))
+  (let ((uri (get-text-property (mpdired--bol) 'uri)))
+(or (null uri)
+(and uri (not (string= from uri))
+(forward-line))
   (goto-char (mpdired--bol))
   (setq mpdired--browser-point (point)))
  (mpdired--browser-point
@@ -505,12 +503,11 @@ used for mark followed by a space."
;; different face on its URI.
(save-excursion
  (when songid
-   (let ((max (point-max)))
- (while (and (< (point) max)
- (let ((id (get-text-property (mpdired--bol) 'id)))
-   (or (null id)
-   (and id (/= songid id)
-   (forward-line)))
+   (while (and (not (eobp))
+   (let ((id (get-text-property (mpdired--bol) 'id)))
+ (or (null id)
+ (and id (/= songid id)
+ (forward-line))
(let* ((bol (mpdired--bol))
   (eol (line-end-position))
   (x (/ (* elapsed (- eol bol)) duration)))
@@ -931,13 +928,12 @@ SEPARATOR string."
   (interactive)
   (save-excursion
 (goto-char (point-min))
-(let ((max (point-max)))
-  (while (< (point) max)
-   (let ((mark (get-text-property (mpdired--bol) 'mark)))
- (if (and mark (char-equal mark ?*))
- (mpdired--clear-mark)
-   (mpdired--mark ?*)))
-   (forward-line)
+(while (not (eobp))
+  (let ((mark (get-text-property (mpdired--bol) 'mark)))
+   (if (and mark (char-equal mark ?*))
+   (mpdired--clear-mark)
+ (mpdired--mark ?*)))
+  (forward-line
 
 (defun mpdired-change-marks (&optional old new)
   "Changes mark from OLD to NEW.  It asks the user for OLD and NEW."
@@ -949,12 +945,11 @@ SEPARATOR string."
   (let ((inhibit-read-only t))
 (save-excursion
   (goto-char (point-min))
-  (let ((max (point-max)))
-   (while (< (point) max)
- (let ((mark (get-text-property (mpdired--bol) 'mark)))
-   (when (and mark (char-equal mark old))
- (mpdired--mark new)))
- (forward-line))
+  (while (not (eobp))
+   (let ((mark (get-text-property (mpdired--bol) 'mark)))
+ (when (and mark (char-equal mark old))
+   (mpdired--mark new)))
+   (forward-line)
 
 (defun mpdired-unmark-at-point ()
   "Removes any mark at point."
@@ -974,18 +969,16 @@ SEPARATOR string."
   (let ((inhibit-read-only t))
 (save-excursion
   (goto-char (point-min))
-  (let ((max (point-max)))
-   (while (< (point) max)
- (mpdired--clear-mark)
- (forward-line))
+  (while (not (eobp))
+   (mpdired--clear-mark)
+   (forward-line)
 
 (defun mpdired--collect-marked (want)
   "Collects entries marked with WANT."
-  (let ((max (point-max))
-   result)
+  (let (result)
 (save-excursion
   (goto-char (point-min))
-  (while (< (point) max)
+  (while (not (eobp))
(let* ((bol (mpdired--bol))
   (mark (get-text-property bol 'mark))
   (id (get-text-property bol 'id))
@@ -1008,9 +1001,8 @@ SEPARATOR string."
   (interactive (list (read-regexp "Mark (regexp): ")))
   (save-excurs

[elpa] externals/window-commander 04d2ebaf4b 3/5: ; Improve? menu bar command labels

[ELPA Syncer]

branch: externals/window-commander
commit 04d2ebaf4bfb94592e91780a7a599f4c3f76d10b
Author: Daniel Semyonov 
Commit: Daniel Semyonov 

; Improve? menu bar command labels
---
 window-commander.el | 18 +++---
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/window-commander.el b/window-commander.el
index ed74373ab4..50bb65d2e7 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -496,21 +496,25 @@ selection.")
 (defvar wincom-mode-menu
   (let ((map (make-sparse-keymap "Windows")))
 (define-key map [swap]
-'("Swap with current..." . wincom-swap))
+'("Select Window to Swap with the Current Window..."
+  . wincom-swap))
 (when (fboundp 'display-buffer-override-next-command)
   (define-key map [prefix]
-  '("Redirect buffer of next command..."
+  '("Select Window to Show Buffer of Next Command in..."
 . wincom-selected-window-prefix)))
 (define-key map [split-right]
-'("New on right..." . wincom-split-window-right))
+'("Select Window to Split Vertically..."
+  . wincom-split-window-right))
 (define-key map [split-below]
-'("New below..." . wincom-split-window-below))
+'("Select Window to Split Horizontally..."
+  . wincom-split-window-below))
 (define-key map [delete-other]
-'("Remove others..." . wincom-delete-other))
+'("Select Window to Occupy Whole Frame..."
+  . wincom-delete-other))
 (define-key map [delete]
-'("Remove..." . wincom-delete))
+'("Select Window to Delete..." . wincom-delete))
 (define-key map [select]
-'("Select..." . wincom-select))
+'("Select Window..." . wincom-select))
 map)
   "Menu for window commands.")
 

[elpa] externals/window-commander 35a9a6a9bd 1/5: Remove interactive mode tag for commands which are useful on their own

[ELPA Syncer]

branch: externals/window-commander
commit 35a9a6a9bde3d040822db41e8e5465e517d8b937
Author: Daniel Semyonov 
Commit: Daniel Semyonov 

Remove interactive mode tag for commands which are useful on their own

* window-commander.el (wincom-select-minibuffer)
(wincom-select-most-recently-used): Remove interactive mode tag.
---
 window-commander.el | 2 --
 1 file changed, 2 deletions(-)

diff --git a/window-commander.el b/window-commander.el
index 4ae01dd822..cd49219e63 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -463,14 +463,12 @@ indirectly called by the latter."
 
 (defun wincom-select-minibuffer ()
   "Select the active minibuffer window (if it exists)."
-  (declare (modes wincom-mode))
   (interactive)
   (select-window (or (active-minibuffer-window)
  (user-error "There is no active minibuffer window"
 
 (defun wincom-select-most-recently-used ()
   "Select the most recently used window."
-  (declare (modes wincom-mode))
   (interactive)
   (when-let ((w (get-mru-window (wincom--get-scope) t t)))
 (select-window w)))

[elpa] externals/window-commander f2c883306b 2/5: ; Define `overriding-text-conversion-style' to avoid warning

[ELPA Syncer]

branch: externals/window-commander
commit f2c883306b9deadde6fd0b2b8698f62c81dedb34
Author: Daniel Semyonov 
Commit: Daniel Semyonov 

; Define `overriding-text-conversion-style' to avoid warning
---
 window-commander.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/window-commander.el b/window-commander.el
index cd49219e63..ed74373ab4 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -82,6 +82,7 @@
 (eval-when-compile
   (require 'subr-x)
   ;; Avoid byte-compilation warnings.
+  (defvar overriding-text-conversion-style)
   (defvar wincom-mode)
   (defvar wincom-command-map)
   (declare-function wincom-selected-window-prefix nil))

[elpa] externals/window-commander updated (617903f9ac -> 6e668c186c)

[ELPA Syncer]

elpasync pushed a change to branch externals/window-commander.

  from  617903f9ac Add a command for selecting the most recently used window
   new  35a9a6a9bd Remove interactive mode tag for commands which are 
useful on their own
   new  f2c883306b ; Define `overriding-text-conversion-style' to avoid 
warning
   new  04d2ebaf4b ; Improve? menu bar command labels
   new  3a583b740c ; Avoid checkdoc warning and slightly improve docstring
   new  6e668c186c ; Update and improve documentation


Summary of changes:
 NEWS  |  9 
 README| 40 +++-
 window-commander.el   | 57 ---
 window-commander.texi | 56 +-
 4 files changed, 94 insertions(+), 68 deletions(-)

[elpa] externals/window-commander 6e668c186c 5/5: ; Update and improve documentation

[ELPA Syncer]

branch: externals/window-commander
commit 6e668c186c34d1aa084c24fee1d662b11383f425
Author: Daniel Semyonov 
Commit: Daniel Semyonov 

; Update and improve documentation
---
 NEWS  |  9 +
 README| 40 +++-
 window-commander.el   | 24 --
 window-commander.texi | 56 ++-
 4 files changed, 76 insertions(+), 53 deletions(-)

diff --git a/NEWS b/NEWS
index 24491b7d15..ace2ed474b 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,15 @@
 Window Commander NEWS -- history of user-visible changes. -*- mode: outline -*-
 See the end of the file for an explanation of the versioning scheme.
 
+* 3.0.3 (wip)
+
+** Add support for software keyboards which use 'text-conversion'.
+Full functionality should now be available using software keyboards on
+Android (if they have modifier keys).
+** Add minor mode menu for window commands.
+** Add command for selecting the most recently used window.
+** Fix window selection when less than 'wincom-minimum' windows are tracked.
+
 * 3.0.2
 
 ** Fix info manual.
diff --git a/README b/README
index d1e490135d..6be5c133eb 100644
--- a/README
+++ b/README
@@ -29,24 +29,26 @@ When `wincom-mode' is active:
   the minibuffer (by default, see `wincom-scope').
 - `other-window' (C-x o by default) is remapped to `wincom-select'.
 
-C-x o ID   switches focus to the window which corresponds to ID.
-
-C-x o 0 ID deletes the window which corresponds to ID.
-
-C-x o 1 ID makes the window which corresponds to ID the sole
-   window of its frame.
-
-C-x o 2 ID splits the window which corresponds to ID from below.
-
-C-x o 3 ID splits the window which corresponds to ID from the right.
-
-C-x 0 4 ID displays the buffer of the next command in the window
-   which corresponds to ID.
-
-C-x 0 t ID swaps the states of the current window and the window
-   which corresponds to ID.
-
-C-x o mswitches focus to the minibuffer if it's active.
+C-x o IDswitches focus to the window which corresponds to ID.
+
+C-x o 0 ID  deletes the window which corresponds to ID.
+
+C-x o 1 ID  makes the window which corresponds to ID the sole
+window of its frame.
+
+C-x o 2 ID  splits the window which corresponds to ID from below.
+
+C-x o 3 ID  splits the window which corresponds to ID from the right.
+
+C-x o 4 ID  displays the buffer of the next command in the window
+which corresponds to ID.
+
+C-x o t ID  swaps the states of the current window and the window
+which corresponds to ID.
+
+C-x o m switches focus to the minibuffer if it's active.
+
+C-x o r switches focus to the most recently used window.
 
 More commands can be added through `wincom-command-map':
 
@@ -60,5 +62,5 @@ For more information see info node (Window Commander).
 
 Copyright:
 
-Copyright © 2023 Free Software Foundation, Inc.
+Copyright © 2023-2024 Free Software Foundation, Inc.
 Licensed under GPLv3 or later.
diff --git a/window-commander.el b/window-commander.el
index 0ac585f547..76bc629d4f 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -48,24 +48,26 @@
 ;;   the minibuffer (by default, see `wincom-scope').
 ;; - `other-window' (C-x o by default) is remapped to `wincom-select'.
 ;;
-;; C-x o IDswitches focus to the window which corresponds to ID.
+;; C-x o IDswitches focus to the window which corresponds to ID.
 ;;
-;; C-x o 0 ID  deletes the window which corresponds to ID.
+;; C-x o 0 ID  deletes the window which corresponds to ID.
 ;;
-;; C-x o 1 ID  makes the window which corresponds to ID the sole
-;; window of its frame.
+;; C-x o 1 ID  makes the window which corresponds to ID the sole
+;; window of its frame.
 ;;
-;; C-x o 2 ID  splits the window which corresponds to ID from below.
+;; C-x o 2 ID  splits the window which corresponds to ID from below.
 ;;
-;; C-x o 3 ID  splits the window which corresponds to ID from the right.
+;; C-x o 3 ID  splits the window which corresponds to ID from the right.
 ;;
-;; C-x 0 4 ID  displays the buffer of the next command in the window
-;; which corresponds to ID.
+;; C-x o 4 ID  displays the buffer of the next command in the window
+;; which corresponds to ID.
 ;;
-;; C-x 0 t ID  swaps the states of the current window and the window
-;; which corresponds to ID.
+;; C-x o t ID  swaps the states of the current window and the window
+;; which corresponds to ID.
 ;;
-;; C-x o m switches focus to the minibuffer if it's active.
+;; C-x o m switches focus to the minibuffer if it's active.
+;;
+;; C-x o r switches focus to the most recently used window.
 ;;
 ;; More commands can be added through `wincom-command-map':
 ;;
diff --git a/window-commander.t

[elpa] externals/window-commander 3a583b740c 4/5: ; Avoid checkdoc warning and slightly improve docstring

[ELPA Syncer]

branch: externals/window-commander
commit 3a583b740ce2a49b3ae51011beab4809086eb47a
Author: Daniel Semyonov 
Commit: Daniel Semyonov 

; Avoid checkdoc warning and slightly improve docstring
---
 window-commander.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/window-commander.el b/window-commander.el
index 50bb65d2e7..0ac585f547 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -1,6 +1,6 @@
 ;;; window-commander.el --- Simply execute commands on windows -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2023 Free Software Foundation, Inc.
+;; Copyright (C) 2023-2024 Free Software Foundation, Inc.
 
 ;; Author: Daniel Semyonov 
 ;; Maintainer: Daniel Semyonov 
@@ -337,7 +337,7 @@ exit."
(with-current-buffer ,b (funcall ',set ',s)))
   (run-hooks 'wincom-after-command-hook)
 
-(defmacro wincom-define-window-command (name args &rest body)
+(defmacro wincom-define-window-command (name arg &rest body)
   "Define NAME as a window command with DOCSTRING as its documentation string.
 
 Inside BODY, WINDOW and PREFIX (symbols) are bound to the selected
@@ -345,9 +345,9 @@ window and the raw prefix argument, respectively.
 If PREFIX is omitted or nil, the resulting command will not accept a
 prefix argument.
 
-Currently, only a single KEYWORD-ARG is recognized, `:minibuffer':
-When it's non-nil, allow the minibuffer to be selected by
-`next-window' (when there are less than `wincom-minimum' tracked windows).
+Currently, only a single KEYWORD ARG pair is recognized, `:minibuffer':
+When it's non-nil, allow the minibuffer to be selected by `next-window'
+\(when there are less than `wincom-minimum' tracked windows).
 
 For more information, see info node `(window-commander) Window Commands'.
 
@@ -355,7 +355,7 @@ For more information, see info node `(window-commander) 
Window Commands'.
   (declare (debug (&define name lambda-list [&optional stringp]
[&rest (gate keywordp form)] def-body))
(doc-string 3) (indent defun))
-  (let* ((window (car args)) (prefix (cadr args))
+  (let* ((window (car arg)) (prefix (cadr arg))
  (docstring (car body))
  (kargs (if (keywordp (car body)) body (cdr body)))
  (minibuffer (plist-get kargs :minibuffer)))

[nongnu] elpa/git-commit 8a3c1ccdda 1/3: magit-section-cycle: Pivot to tab-next if there is a binding conflict

[ELPA Syncer]

branch: elpa/git-commit
commit 8a3c1ccdda8185255ce76adc2ba41b9a43f18b8c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-section-cycle: Pivot to tab-next if there is a binding conflict

If `tab-bar-mode' is enable, then "C-" is bound to `tab-next'
in the global map.  That conflicts with our local (and much older)
binding for `magit-section-cycle'.

Address this conflict by teaching `magit-section-cycle' to pivot to
`tab-next', but only if `tab-bar-mode' is enabled.  That way, users
who do not use `tab-bar-mode' (i.e., the majority), are not affected
by this unfortunate conflict.

`tab-bar-mode' users will have to get used to the much less convenient
"C-c TAB" binding to cycle section visibility.  Alternatively they can
advice `tab-bar--define-keys' to bind another key to `tab-next'.  It
would be nice if `tab-bar-mode', instead of modifying the global map,
used a mode map, and thus didn't make it so very hard to change its
key bindings.
---
 docs/magit.org| 11 +++
 docs/magit.texi   | 14 +-
 lisp/magit-section.el | 29 ++---
 3 files changed, 46 insertions(+), 8 deletions(-)

diff --git a/docs/magit.org b/docs/magit.org
index e7bb447d33..f0d93e5add 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -1011,10 +1011,21 @@ but all you need to get started are the next two.
 
   Toggle the visibility of the body of the current section.
 
+- Key: C-c TAB (magit-section-cycle) ::
 - Key: C- (magit-section-cycle) ::
 
   Cycle the visibility of current section and its children.
 
+  If this command is invoked using ~C-~ and that is globally bound
+  to ~tab-next~, then this command pivots to behave like that command,
+  and you must instead use ~C-c TAB~ to cycle section visibility.
+
+  If you would like to keep using ~C-~ to cycle section visibility
+  but also want to use ~tab-bar-mode~, then you have to prevent that mode
+  from using this key and instead bind another key to ~tab-next~.  Because
+  ~tab-bar-mode~ does not use a mode map but instead manipulates the
+  global map, this involves advising ~tab-bar--define-keys~.
+
 - Key: M- (magit-section-cycle-diffs) ::
 
   Cycle the visibility of diff-related sections in the current buffer.
diff --git a/docs/magit.texi b/docs/magit.texi
index 8e869df2da..be07b2352e 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -1410,11 +1410,23 @@ but all you need to get started are the next two.
 @findex magit-section-toggle
 Toggle the visibility of the body of the current section.
 
-@item @kbd{C-} (@code{magit-section-cycle})
+@item @kbd{C-c @key{TAB}} (@code{magit-section-cycle})
+@itemx @kbd{C-} (@code{magit-section-cycle})
+@kindex C-c TAB
 @kindex C-
 @findex magit-section-cycle
 Cycle the visibility of current section and its children.
 
+If this command is invoked using @code{C-} and that is globally bound
+to @code{tab-next}, then this command pivots to behave like that command,
+and you must instead use @code{C-c TAB} to cycle section visibility.
+
+If you would like to keep using @code{C-} to cycle section visibility
+but also want to use @code{tab-bar-mode}, then you have to prevent that mode
+from using this key and instead bind another key to @code{tab-next}.  Because
+@code{tab-bar-mode} does not use a mode map but instead manipulates the
+global map, this involves advising @code{tab-bar--define-keys}.
+
 @item @kbd{M-} (@code{magit-section-cycle-diffs})
 @kindex M-
 @findex magit-section-cycle-diffs
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 33109e383d..c782ea6a59 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -423,6 +423,7 @@ if any."
 (keymap-set map " " #'magit-mouse-toggle-section)
 (keymap-set map " " #'magit-mouse-toggle-section)
 (keymap-set map "TAB"   #'magit-section-toggle)
+(keymap-set map "C-c TAB"   #'magit-section-cycle)
 (keymap-set map "C-"   #'magit-section-cycle)
 (keymap-set map "M-"   #'magit-section-cycle)
 ;;  is the most portable binding for Shift+Tab.
@@ -1005,19 +1006,33 @@ hidden."
   (magit-section-show-headings-1 child
 
 (defun magit-section-cycle (section)
-  "Cycle visibility of current section and its children."
+  "Cycle visibility of current section and its children.
+
+If this command is invoked using \\`C-' and that is globally bound
+to `tab-next', then this command pivots to behave like that command, and
+you must instead use \\`C-c TAB' to cycle section visibility.
+
+If you would like to keep using \\`C-' to cycle section visibility
+but also want to use `tab-bar-mode', then you have to prevent that mode
+from using this key and instead bind another key to `tab-next'.  Because
+`tab-bar-mode' does not use a mode map but instead manipulates the
+global map, this involves advising `tab-bar--define-keys'."
   (interactive (list (magit-current-section)))
-  (if (oref section hidden)
-  (progn (magit-secti

[nongnu] elpa/git-commit updated (eca60f310d -> 28bcd29db5)

[ELPA Syncer]

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

  from  eca60f310d Move imenu functionality from magit-mode to magit-section
   new  8a3c1ccdda magit-section-cycle: Pivot to tab-next if there is a 
binding conflict
   new  4e5bd4fa58 magit--with-connection-local-variables: Use suitable 
indentation
   new  28bcd29db5 magit--shell-command: Use magit-with-editor


Summary of changes:
 docs/magit.org| 11 +++
 docs/magit.texi   | 14 +-
 lisp/magit-base.el|  2 ++
 lisp/magit-bisect.el  |  4 ++--
 lisp/magit-git.el | 12 ++--
 lisp/magit-section.el | 29 ++---
 lisp/magit.el |  5 +++--
 7 files changed, 59 insertions(+), 18 deletions(-)

[nongnu] elpa/git-commit 28bcd29db5 3/3: magit--shell-command: Use magit-with-editor

[ELPA Syncer]

branch: elpa/git-commit
commit 28bcd29db547ab73002fb81b05579e4a2e90f048
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit--shell-command: Use magit-with-editor

Closes #5107.
---
 lisp/magit.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/magit.el b/lisp/magit.el
index 96ccff0742..8f1bfe269c 100644
--- a/lisp/magit.el
+++ b/lisp/magit.el
@@ -483,8 +483,9 @@ is run in the top-level directory of the current working 
tree."
   (let ((default-directory (or directory default-directory)))
 (with-environment-variables (("GIT_PAGER" "cat"))
   (magit--with-connection-local-variables
-(magit-start-process shell-file-name nil
- shell-command-switch command
+(magit-with-editor
+  (magit-start-process shell-file-name nil
+   shell-command-switch command)
   (magit-process-buffer))
 
 (defun magit-read-shell-command (&optional toplevel initial-input)

[nongnu] elpa/magit updated (eca60f310d -> 28bcd29db5)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  eca60f310d Move imenu functionality from magit-mode to magit-section
  adds  8a3c1ccdda magit-section-cycle: Pivot to tab-next if there is a 
binding conflict
  adds  4e5bd4fa58 magit--with-connection-local-variables: Use suitable 
indentation
  adds  28bcd29db5 magit--shell-command: Use magit-with-editor

No new revisions were added by this update.

Summary of changes:
 docs/magit.org| 11 +++
 docs/magit.texi   | 14 +-
 lisp/magit-base.el|  2 ++
 lisp/magit-bisect.el  |  4 ++--
 lisp/magit-git.el | 12 ++--
 lisp/magit-section.el | 29 ++---
 lisp/magit.el |  5 +++--
 7 files changed, 59 insertions(+), 18 deletions(-)

[nongnu] elpa/git-commit 4e5bd4fa58 2/3: magit--with-connection-local-variables: Use suitable indentation

[ELPA Syncer]

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

magit--with-connection-local-variables: Use suitable indentation

It's a "with-something" macro, so indent the body accordingly.
---
 lisp/magit-base.el   |  2 ++
 lisp/magit-bisect.el |  4 ++--
 lisp/magit-git.el| 12 ++--
 lisp/magit.el|  4 ++--
 4 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 98bc17e036..0059e48a45 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -1228,6 +1228,8 @@ Magit."
,@body)
,@body)))
 
+(put 'magit--with-connection-local-variables 'lisp-indent-function 'defun)
+
 ;;; Miscellaneous
 
 (defun magit-message (format-string &rest args)
diff --git a/lisp/magit-bisect.el b/lisp/magit-bisect.el
index 8daac3c9d9..b6dfd6bffc 100644
--- a/lisp/magit-bisect.el
+++ b/lisp/magit-bisect.el
@@ -210,8 +210,8 @@ bisect run'."
 (list "bisect" "start" bad good args)))
   (magit-refresh)))
   (magit--with-connection-local-variables
-   (magit-git-bisect "run" (list shell-file-name
- shell-command-switch cmdline
+(magit-git-bisect "run" (list shell-file-name
+  shell-command-switch cmdline
 
 (defun magit-git-bisect (subcommand &optional args no-assert)
   (unless (or no-assert (magit-bisect-in-progress-p))
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index bb84b1d0b8..65b3075e19 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2281,12 +2281,12 @@ If `first-parent' is set, traverse only first parents."
 
 (defun magit-patch-id (rev)
   (magit--with-connection-local-variables
-   (magit--with-temp-process-buffer
- (magit-process-file
-  shell-file-name nil '(t nil) nil shell-command-switch
-  (let ((exec (shell-quote-argument (magit-git-executable
-(format "%s diff-tree -u %s | %s patch-id" exec rev exec)))
- (car (split-string (buffer-string))
+(magit--with-temp-process-buffer
+  (magit-process-file
+   shell-file-name nil '(t nil) nil shell-command-switch
+   (let ((exec (shell-quote-argument (magit-git-executable
+ (format "%s diff-tree -u %s | %s patch-id" exec rev exec)))
+  (car (split-string (buffer-string))
 
 (defun magit-rev-format (format &optional rev args)
   ;; Prefer `git log --no-walk' to `git show --no-patch' because it
diff --git a/lisp/magit.el b/lisp/magit.el
index 1d982cdbb8..96ccff0742 100644
--- a/lisp/magit.el
+++ b/lisp/magit.el
@@ -483,8 +483,8 @@ is run in the top-level directory of the current working 
tree."
   (let ((default-directory (or directory default-directory)))
 (with-environment-variables (("GIT_PAGER" "cat"))
   (magit--with-connection-local-variables
-   (magit-start-process shell-file-name nil
-shell-command-switch command
+(magit-start-process shell-file-name nil
+ shell-command-switch command
   (magit-process-buffer))
 
 (defun magit-read-shell-command (&optional toplevel initial-input)

[nongnu] elpa/magit-section updated (eca60f310d -> 28bcd29db5)

[ELPA Syncer]

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

  from  eca60f310d Move imenu functionality from magit-mode to magit-section
  adds  8a3c1ccdda magit-section-cycle: Pivot to tab-next if there is a 
binding conflict
  adds  4e5bd4fa58 magit--with-connection-local-variables: Use suitable 
indentation
  adds  28bcd29db5 magit--shell-command: Use magit-with-editor

No new revisions were added by this update.

Summary of changes:
 docs/magit.org| 11 +++
 docs/magit.texi   | 14 +-
 lisp/magit-base.el|  2 ++
 lisp/magit-bisect.el  |  4 ++--
 lisp/magit-git.el | 12 ++--
 lisp/magit-section.el | 29 ++---
 lisp/magit.el |  5 +++--
 7 files changed, 59 insertions(+), 18 deletions(-)

[elpa] externals/company updated (42c2aa60b8 -> b0a522ac5b)

[ELPA Syncer]

elpasync pushed a change to branch externals/company.

  from  42c2aa60b8 Merge pull request #1459 from whatacold/master
   new  311442d58c company: replace `string-match` with `string-match-p` if 
match data unused
   new  eae259bbcb treewide: replace (string= … "") comparisons with 
(string-empty-p …)
   new  06e9a9782a treewide: replace (equal= … "") comparisons with 
(string-empty-p …)
   new  b0a522ac5b Merge pull request #1462 from 
Hi-Angel/dont-change-match-data


Summary of changes:
 company-dabbrev-code.el |  2 +-
 company-files.el|  2 +-
 company-ispell.el   |  2 +-
 company-semantic.el |  4 ++--
 company.el  | 20 ++--
 5 files changed, 15 insertions(+), 15 deletions(-)

[elpa] externals/company eae259bbcb 2/4: treewide: replace (string= … "") comparisons with (string-empty-p …)

[ELPA Syncer]

branch: externals/company
commit eae259bbcb2aa59859cd0b7ad44cb619e77c0691
Author: Konstantin Kharlamov 
Commit: Konstantin Kharlamov 

treewide: replace (string= … "") comparisons with (string-empty-p …)
---
 company-ispell.el | 2 +-
 company.el| 8 
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/company-ispell.el b/company-ispell.el
index d40d8c6eb4..2699d30bed 100644
--- a/company-ispell.el
+++ b/company-ispell.el
@@ -81,7 +81,7 @@ If nil, use `ispell-complete-word-dict' or 
`ispell-alternate-dictionary'."
   (lambda () (ispell-lookup-words "" dict))
   :check-tag dict))
 (completion-ignore-case t))
-   (if (string= arg "")
+   (if (string-empty-p arg)
;; Small optimization.
all-words
  (company-substitute-prefix
diff --git a/company.el b/company.el
index 638bba88df..3c5bcea94e 100644
--- a/company.el
+++ b/company.el
@@ -2506,7 +2506,7 @@ each one wraps a part of the input string."
 (defun company--search-update-predicate (ss)
   (let* ((re (funcall company-search-regexp-function ss))
  (company-candidates-predicate
-  (and (not (string= re ""))
+  (and (not (string-empty-p re))
company-search-filtering
(lambda (candidate) (string-match-p re candidate
  (cc (company-calculate-candidates company-prefix
@@ -2524,7 +2524,7 @@ each one wraps a part of the input string."
 
 (defun company--search-assert-input ()
   (company--search-assert-enabled)
-  (when (string= company-search-string "")
+  (when (string-empty-p company-search-string)
 (user-error "Empty search string")))
 
 (defun company-search-repeat-forward ()
@@ -2577,7 +2577,7 @@ each one wraps a part of the input string."
 (defun company-search-delete-char ()
   (interactive)
   (company--search-assert-enabled)
-  (if (string= company-search-string "")
+  (if (string-empty-p company-search-string)
   (ding)
 (let ((ss (substring company-search-string 0 -1)))
   (when company-search-filtering
@@ -3427,7 +3427,7 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
 nil line))
 (when (let ((re (funcall company-search-regexp-function
  company-search-string)))
-(and (not (string= re ""))
+(and (not (string-empty-p re))
  (string-match re value)))
   (pcase-dolist (`(,mbeg . ,mend) (company--search-chunks))
 (let ((beg (+ margin mbeg))

[elpa] externals/company 06e9a9782a 3/4: treewide: replace (equal= … "") comparisons with (string-empty-p …)

[ELPA Syncer]

branch: externals/company
commit 06e9a9782a5ab0d3ea15fcf07d8330594b8bbd64
Author: Konstantin Kharlamov 
Commit: Konstantin Kharlamov 

treewide: replace (equal= … "") comparisons with (string-empty-p …)

Due to `equal` accepting an arg of different type than a string, each
replacement was manually examined to make sure the parameter is
expected to be a string.
---
 company-dabbrev-code.el | 2 +-
 company-files.el| 2 +-
 company-semantic.el | 4 ++--
 company.el  | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index cf435f28b2..5d7bf66475 100644
--- a/company-dabbrev-code.el
+++ b/company-dabbrev-code.el
@@ -78,7 +78,7 @@ also `company-dabbrev-code-time-limit'."
 (defun company-dabbrev-code--make-regexp (prefix)
   (let ((prefix-re
  (cond
-  ((equal prefix "")
+  ((string-empty-p prefix)
"\\([a-zA-Z]\\|\\s_\\)")
   ((not company-dabbrev-code-completion-styles)
(regexp-quote prefix))
diff --git a/company-files.el b/company-files.el
index 6a53ada5f8..ebe3a6a28a 100644
--- a/company-files.el
+++ b/company-files.el
@@ -53,7 +53,7 @@ Set this to nil to disable that behavior."
 (lambda (s1 s2) (string-lessp (downcase s1) (downcase 
s2))
 (when company-files-exclusions
   (setq comp (company-files--exclusions-filtered comp)))
-(if (equal prefix "")
+(if (string-empty-p prefix)
 (delete "../" (delete "./" comp))
   comp))
 (file-error nil)))
diff --git a/company-semantic.el b/company-semantic.el
index 53b11c0320..df20e6260e 100644
--- a/company-semantic.el
+++ b/company-semantic.el
@@ -140,7 +140,7 @@ and `c-electric-colon', for automatic completion right 
after \">\" and
  (memq major-mode company-semantic-modes)
  (not (company-in-string-or-comment))
  (or (company-semantic--prefix) 'stop)))
-(candidates (if (and (equal arg "")
+(candidates (if (and (string-empty-p arg)
  (not (looking-back "->\\|\\.\\|::" (- (point) 2
 (company-semantic-completions-raw arg)
   (company-semantic-completions arg)))
@@ -151,7 +151,7 @@ and `c-electric-colon', for automatic completion right 
after \">\" and
 (doc-buffer (company-semantic-doc-buffer
  (assoc arg company-semantic--current-tags)))
 ;; Because "" is an empty context and doesn't return local variables.
-(no-cache (equal arg ""))
+(no-cache (string-empty-p arg))
 (duplicates t)
 (location (let ((tag (assoc arg company-semantic--current-tags)))
 (when (buffer-live-p (semantic-tag-buffer tag))
diff --git a/company.el b/company.el
index 3c5bcea94e..2f3a24f55f 100644
--- a/company.el
+++ b/company.el
@@ -1991,7 +1991,7 @@ Keywords and function definition names are ignored."
 (cl-delete-if
  (lambda (candidate)
(goto-char w-start)
-   (when (and (not (equal candidate ""))
+   (when (and (not (string-empty-p candidate))
   (search-forward candidate w-end t)
   ;; ^^^ optimize for large lists where most elements
   ;; won't have a match.
@@ -4111,7 +4111,7 @@ Delay is determined by `company-tooltip-idle-delay'."
(substring completion 1
 
 (and (equal pos (point))
- (not (equal completion ""))
+ (not (string-empty-p completion))
  (add-text-properties 0 1 '(cursor 1) completion))
 
 (let* ((beg pos)
@@ -4298,7 +4298,7 @@ Delay is determined by `company-tooltip-idle-delay'."
   "}"
 
 (defun company-echo-hide ()
-  (unless (equal company-echo-last-msg "")
+  (unless (string-empty-p company-echo-last-msg)
 (setq company-echo-last-msg "")
 (company-echo-show)))
 

[elpa] externals/company b0a522ac5b 4/4: Merge pull request #1462 from Hi-Angel/dont-change-match-data

[ELPA Syncer]

branch: externals/company
commit b0a522ac5bf8ba3d2f4f22e3aa846a4f82978a16
Merge: 42c2aa60b8 06e9a9782a
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1462 from Hi-Angel/dont-change-match-data

Replace `string-match` with `string-match-p` when appropriate and use 
`string-empty-p` helper
---
 company-dabbrev-code.el |  2 +-
 company-files.el|  2 +-
 company-ispell.el   |  2 +-
 company-semantic.el |  4 ++--
 company.el  | 20 ++--
 5 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index cf435f28b2..5d7bf66475 100644
--- a/company-dabbrev-code.el
+++ b/company-dabbrev-code.el
@@ -78,7 +78,7 @@ also `company-dabbrev-code-time-limit'."
 (defun company-dabbrev-code--make-regexp (prefix)
   (let ((prefix-re
  (cond
-  ((equal prefix "")
+  ((string-empty-p prefix)
"\\([a-zA-Z]\\|\\s_\\)")
   ((not company-dabbrev-code-completion-styles)
(regexp-quote prefix))
diff --git a/company-files.el b/company-files.el
index 6a53ada5f8..ebe3a6a28a 100644
--- a/company-files.el
+++ b/company-files.el
@@ -53,7 +53,7 @@ Set this to nil to disable that behavior."
 (lambda (s1 s2) (string-lessp (downcase s1) (downcase 
s2))
 (when company-files-exclusions
   (setq comp (company-files--exclusions-filtered comp)))
-(if (equal prefix "")
+(if (string-empty-p prefix)
 (delete "../" (delete "./" comp))
   comp))
 (file-error nil)))
diff --git a/company-ispell.el b/company-ispell.el
index d40d8c6eb4..2699d30bed 100644
--- a/company-ispell.el
+++ b/company-ispell.el
@@ -81,7 +81,7 @@ If nil, use `ispell-complete-word-dict' or 
`ispell-alternate-dictionary'."
   (lambda () (ispell-lookup-words "" dict))
   :check-tag dict))
 (completion-ignore-case t))
-   (if (string= arg "")
+   (if (string-empty-p arg)
;; Small optimization.
all-words
  (company-substitute-prefix
diff --git a/company-semantic.el b/company-semantic.el
index 53b11c0320..df20e6260e 100644
--- a/company-semantic.el
+++ b/company-semantic.el
@@ -140,7 +140,7 @@ and `c-electric-colon', for automatic completion right 
after \">\" and
  (memq major-mode company-semantic-modes)
  (not (company-in-string-or-comment))
  (or (company-semantic--prefix) 'stop)))
-(candidates (if (and (equal arg "")
+(candidates (if (and (string-empty-p arg)
  (not (looking-back "->\\|\\.\\|::" (- (point) 2
 (company-semantic-completions-raw arg)
   (company-semantic-completions arg)))
@@ -151,7 +151,7 @@ and `c-electric-colon', for automatic completion right 
after \">\" and
 (doc-buffer (company-semantic-doc-buffer
  (assoc arg company-semantic--current-tags)))
 ;; Because "" is an empty context and doesn't return local variables.
-(no-cache (equal arg ""))
+(no-cache (string-empty-p arg))
 (duplicates t)
 (location (let ((tag (assoc arg company-semantic--current-tags)))
 (when (buffer-live-p (semantic-tag-buffer tag))
diff --git a/company.el b/company.el
index 2764bbff09..2f3a24f55f 100644
--- a/company.el
+++ b/company.el
@@ -1991,7 +1991,7 @@ Keywords and function definition names are ignored."
 (cl-delete-if
  (lambda (candidate)
(goto-char w-start)
-   (when (and (not (equal candidate ""))
+   (when (and (not (string-empty-p candidate))
   (search-forward candidate w-end t)
   ;; ^^^ optimize for large lists where most elements
   ;; won't have a match.
@@ -2145,8 +2145,8 @@ For more details see `company-insertion-on-trigger' and
  (if (consp company-insertion-triggers)
  (memq (char-syntax (string-to-char input))
company-insertion-triggers)
-   (string-match (regexp-quote (substring input 0 1))
- company-insertion-triggers)
+   (string-match-p (regexp-quote (substring input 0 1))
+   company-insertion-triggers)
 
 (defun company--incremental-p ()
   (and (> (point) company-point)
@@ -2506,9 +2506,9 @@ each one wraps a part of the input string."
 (defun company--search-update-predicate (ss)
   (let* ((re (funcall company-search-regexp-function ss))
  (company-candidates-predicate
-  (and (not (string= re ""))
+  (and (not (string-empty-p re))
company-search-filtering
-   (lambda (candidate) (string-match re candidate
+   (lambda (candidate) (string-match-p re candidate
  (cc (company-calculate-candidates company-pref

[elpa] externals/company 311442d58c 1/4: company: replace `string-match` with `string-match-p` if match data unused

[ELPA Syncer]

branch: externals/company
commit 311442d58c8657d1a7915d4b52a886321d0ac89d
Author: Konstantin Kharlamov 
Commit: Konstantin Kharlamov 

company: replace `string-match` with `string-match-p` if match data unused
---
 company.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/company.el b/company.el
index 2764bbff09..638bba88df 100644
--- a/company.el
+++ b/company.el
@@ -2145,8 +2145,8 @@ For more details see `company-insertion-on-trigger' and
  (if (consp company-insertion-triggers)
  (memq (char-syntax (string-to-char input))
company-insertion-triggers)
-   (string-match (regexp-quote (substring input 0 1))
- company-insertion-triggers)
+   (string-match-p (regexp-quote (substring input 0 1))
+   company-insertion-triggers)
 
 (defun company--incremental-p ()
   (and (> (point) company-point)
@@ -2508,7 +2508,7 @@ each one wraps a part of the input string."
  (company-candidates-predicate
   (and (not (string= re ""))
company-search-filtering
-   (lambda (candidate) (string-match re candidate
+   (lambda (candidate) (string-match-p re candidate
  (cc (company-calculate-candidates company-prefix
(company-call-backend 
'ignore-case
 (unless cc (user-error "No match"))

[elpa] externals/gtags-mode 7d7ade72b7: Fix project-switch-project

[ELPA Syncer]

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

Fix project-switch-project

This fixes #5
---
 gtags-mode.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gtags-mode.el b/gtags-mode.el
index 529c8c9bf0..9904e44e5b 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -314,6 +314,7 @@ Return as a list of xref location objects."
 (cl-defmethod project-files ((project (head :gtagsroot)) &optional dirs)
   "List files inside all the PROJECT or in DIRS if specified."
   (let* ((root (project-root project))
+(default-directory root)
 (results (mapcan
   (lambda (dir)
 (when (string-prefix-p root dir)

[elpa] externals/activities 2353877456 2/2: Change: (activities--bookmark-buffer) Improve error

[ELPA Syncer]

branch: externals/activities
commit 235387745673bbcd8a1b9eccd9d211fdc53cc548
Author: Adam Porter 
Commit: Adam Porter 

Change: (activities--bookmark-buffer) Improve error

This is much better.
---
 README.org| 1 +
 activities.el | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 81eb4333df..fdbfb6a4d1 100644
--- a/README.org
+++ b/README.org
@@ -151,6 +151,7 @@ When option ~activities-bookmark-store~ is enabled, an 
Emacs bookmark is stored
 
 *Changes*
 + Command ~activities-new~ renamed to ~activities-define~, with new binding 
~C-x C-a C-d~.  (See 
[[https://github.com/alphapapa/activities.el/issues/46][#46]].)
++ Improve error message when jumping to a buffer's bookmark signals an error.
 
 *Fixes*
 + Suspending/killing an activity when only one frame/tab is open.
diff --git a/activities.el b/activities.el
index 34443a2334..2e591718c3 100644
--- a/activities.el
+++ b/activities.el
@@ -750,6 +750,7 @@ activity's name is NAME."
   (with-temp-buffer
 (pcase-let* (((cl-struct activities-buffer bookmark) struct)
  (temp-buffer (current-buffer))
+ (error)
  (jumped-to-buffer
   (save-window-excursion
 (condition-case err
@@ -759,8 +760,7 @@ activity's name is NAME."
   (bookmark-prop-get bookmark 
'activities-buffer-local-variables)))
 (cl-loop for (variable . value) in 
local-variable-map
  do (setf (buffer-local-value variable 
(current-buffer)) value
-  (error (delay-warning 'activity
-(format "Error while opening 
bookmark: ERROR:%S  RECORD:%S" err struct
+  (error (setf error (format "Error while opening 
bookmark: ERROR:%S  RECORD:%S" err struct
 (current-buffer
   (if (not (eq temp-buffer jumped-to-buffer))
   ;; Bookmark appears to have been jumped to: return that buffer.
@@ -770,6 +770,7 @@ activity's name is NAME."
  (format "%s:%s" (car bookmark) (bookmark-prop-get bookmark 'filename))
  (list "Activities was unable to get a buffer for bookmark:\n\n"
   (prin1-to-string bookmark) "\n\n"
+   "Error: " (prin1-to-string error) "\n\n"
   "It's likely that the bookmark's file no longer exists, in which 
case you may need to relocate it and redefine this activity.\n\n"
"If this is not the case, please report this error to the 
`activities' maintainer.\n\n"
"In the meantime, you may ignore this error and use the other 
buffers in the activity.\n\n"))

[elpa] externals/activities updated (3c19abbf44 -> 2353877456)

[ELPA Syncer]

elpasync pushed a change to branch externals/activities.

  from  3c19abbf44 Docs: Update workflow
   new  7bfc8c114d Comment: Add TODO
   new  2353877456 Change: (activities--bookmark-buffer) Improve error


Summary of changes:
 README.org| 1 +
 activities.el | 9 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

[elpa] externals/activities 7bfc8c114d 1/2: Comment: Add TODO

[ELPA Syncer]

branch: externals/activities
commit 7bfc8c114d4dd1ec46eba738acce2de4c7b34c04
Author: Adam Porter 
Commit: Adam Porter 

Comment: Add TODO
---
 activities.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/activities.el b/activities.el
index ddaa0f9c07..34443a2334 100644
--- a/activities.el
+++ b/activities.el
@@ -285,6 +285,10 @@ Only applies when `activities-tabs-mode' is disabled."
   :type 'boolean)
 
 (defcustom activities-anti-kill-predicates
+  ;; TODO(v0.7): Consider removing `activities-buffer-special-p'. from the
+  ;; default value.  Not sure if it's really a good idea (e.g. it
+  ;; would prevent Magit buffers from being killed, and for no good
+  ;; reason I can think of).
   '(activities-buffer-hidden-p activities-buffer-special-p)
   "Predicates which prevent a buffer from being killed.
 Used when suspending an activity and `activities-kill-buffers' is

[elpa] externals/listen 54f8764ff1 2/7: Fix: (listen-queue) oops

[ELPA Syncer]

branch: externals/listen
commit 54f8764ff14d97c281214d70a97f465e3af07720
Author: Adam Porter 
Commit: Adam Porter 

Fix: (listen-queue) oops

That's not an accessor.
---
 listen-queue.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/listen-queue.el b/listen-queue.el
index e7df106308..2e2a624705 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -226,7 +226,6 @@ Useful for when `save-excursion' does not preserve point."
   "l" (lambda (_) "Show (selected) tracks in library 
view."
 (call-interactively 
#'listen-library-from-queue))
   "!" (lambda (_) (call-interactively 
#'listen-queue-shell-command)
-(setf (listen-queue-buffer queue) (current-buffer))
 (listen-queue--annotate-buffer)
 (listen-queue-goto-current)))
 ;; NOTE: We pop to the buffer outside of `with-current-buffer' so

[elpa] externals/listen 355eebfaec 6/7: Fix: (listen-library) TRACKS argument/variable

[ELPA Syncer]

branch: externals/listen
commit 355eebfaec70d7f52e16b51e559614f6cc499bbf
Author: Adam Porter 
Commit: Adam Porter 

Fix: (listen-library) TRACKS argument/variable

Set the local variable to the original TRACKS value so it can be
bookmarked and restored properly (e.g. rebuilding the list of files
and tracks from the original directory argument rather than saving the
tracks objects in the bookmark record).
---
 listen-library.el | 9 -
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/listen-library.el b/listen-library.el
index e94ac8866d..936a7f1073 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -135,10 +135,7 @@ specified in which to show the view."
   ((file-directory-p path)
path
  (list tracks-function :name name)))
-  (let* ((tracks (cl-etypecase tracks
-   (function (funcall tracks))
-   (list tracks)))
- (buffer-name (if name
+  (let* ((buffer-name (if name
   (format "*Listen library: %s*" name)
 (generate-new-buffer-name (format "*Listen 
library*"
  (buffer (or buffer (get-buffer-create buffer-name)))
@@ -150,7 +147,9 @@ specified in which to show the view."
   (erase-buffer)
   (thread-last listen-library-taxy
taxy-emptied
-   (taxy-fill tracks)
+   (taxy-fill (cl-etypecase tracks
+(function (funcall tracks))
+(list tracks)))
;; (taxy-sort #'string< #'listen-queue-track-)
(taxy-sort* #'string< #'taxy-name)
taxy-magit-section-insert))

[elpa] externals/listen e34ad6221c 4/7: Fix: (listen-library) Reading paths interactively

[ELPA Syncer]

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

Fix: (listen-library) Reading paths interactively
---
 listen-library.el | 13 ++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/listen-library.el b/listen-library.el
index a204a38574..d778c05318 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -123,9 +123,16 @@ returns them.  Interactively, with prefix, NAME may be 
specified
 to show in the mode line and bookmark name.  BUFFER may be
 specified in which to show the view."
   (interactive
-   (list (list (read-file-name "View library for: "))
- :name (when current-prefix-arg
- (read-string "Library name: "
+   (let* ((path (read-file-name "View library for: "))
+  (tracks-function (lambda ()
+ ;; TODO: Use "&rest" for 
`listen-queue-tracks-for'?
+ (listen-queue-tracks-for
+  (if (file-directory-p path)
+  (directory-files-recursively path ".")
+(list path))
+ (list tracks-function
+   :name (when current-prefix-arg
+   (read-string "Library name: ")
   (let* ((tracks (cl-etypecase tracks
(function (funcall tracks))
(list tracks)))

[elpa] externals/listen 2d4e2d3b98 7/7: Fix: (listen-library) Start with point at beginning

[ELPA Syncer]

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

Fix: (listen-library) Start with point at beginning
---
 README.org| 1 +
 listen-library.el | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 4f9fe36ecf..8765ecd117 100644
--- a/README.org
+++ b/README.org
@@ -90,6 +90,7 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 *Fixes*
 + When reverting a queue's tracks from disk, re-detect the currently playing 
track by filename.
 + Queue bookmark handler.
++ Open library buffer with point at beginning.
 
 ** v0.6
 
diff --git a/listen-library.el b/listen-library.el
index 936a7f1073..6616b8e41a 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -152,7 +152,8 @@ specified in which to show the view."
 (list tracks)))
;; (taxy-sort #'string< #'listen-queue-track-)
(taxy-sort* #'string< #'taxy-name)
-   taxy-magit-section-insert))
+   taxy-magit-section-insert)
+  (goto-char (point-min)))
 (pop-to-buffer buffer)))
 
  Commands

[elpa] externals/listen d146e75db6 5/7: Change: (listen-library) Use path as default name

[ELPA Syncer]

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

Change: (listen-library) Use path as default name
---
 README.org|  1 +
 listen-library.el | 10 ++
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 5fbae10e8e..4f9fe36ecf 100644
--- a/README.org
+++ b/README.org
@@ -85,6 +85,7 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 + Transient ~qq~ command exits the transient.
 + Optimize updating of individual tracks in queue buffer.
 + Improve handling of maximum volume with VLC (allowing boosting over 100%).
++ Library buffer name defaults to given path.
 
 *Fixes*
 + When reverting a queue's tracks from disk, re-detect the currently playing 
track by filename.
diff --git a/listen-library.el b/listen-library.el
index d778c05318..e94ac8866d 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -129,10 +129,12 @@ specified in which to show the view."
  (listen-queue-tracks-for
   (if (file-directory-p path)
   (directory-files-recursively path ".")
-(list path))
- (list tracks-function
-   :name (when current-prefix-arg
-   (read-string "Library name: ")
+(list path)
+  (name (cond (current-prefix-arg
+   (read-string "Library name: "))
+  ((file-directory-p path)
+   path
+ (list tracks-function :name name)))
   (let* ((tracks (cl-etypecase tracks
(function (funcall tracks))
(list tracks)))

[elpa] externals/listen 879e381070 1/7: Fix: (listen-queue) for bookmark handler

[ELPA Syncer]

branch: externals/listen
commit 879e381070572a7ff5d735ffa99c519278fe4b1f
Author: Adam Porter 
Commit: Adam Porter 

Fix: (listen-queue) for bookmark handler

When the function returns, the current buffer must be the queue
buffer.
---
 README.org  |  1 +
 listen-queue.el | 10 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index a558636e05..5fbae10e8e 100644
--- a/README.org
+++ b/README.org
@@ -88,6 +88,7 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 
 *Fixes*
 + When reverting a queue's tracks from disk, re-detect the currently playing 
track by filename.
++ Queue bookmark handler.
 
 ** v0.6
 
diff --git a/listen-queue.el b/listen-queue.el
index 7804c0fd52..e7df106308 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -127,7 +127,8 @@ Useful for when `save-excursion' does not preserve point."
   (progn
 (pop-to-buffer buffer)
 (listen-queue-goto-current))
-(with-current-buffer (get-buffer-create (format "*Listen Queue: %s*" 
(listen-queue-name queue)))
+(with-current-buffer
+(setf buffer (get-buffer-create (format "*Listen Queue: %s*" 
(listen-queue-name queue
   (let ((inhibit-read-only t))
 (listen-queue-mode)
 (setf listen-queue queue)
@@ -225,9 +226,12 @@ Useful for when `save-excursion' does not preserve point."
   "l" (lambda (_) "Show (selected) tracks in library 
view."
 (call-interactively 
#'listen-library-from-queue))
   "!" (lambda (_) (call-interactively 
#'listen-queue-shell-command)
+(setf (listen-queue-buffer queue) (current-buffer))
 (listen-queue--annotate-buffer)
-(listen-queue-goto-current))
-  (pop-to-buffer (current-buffer)
+(listen-queue-goto-current)))
+;; NOTE: We pop to the buffer outside of `with-current-buffer' so
+;; `listen-queue--bookmark-handler' works correctly.
+(pop-to-buffer (current-buffer
 
 (defun listen-queue--annotate-buffer ()
   "Annotate current buffer.

[elpa] externals/listen updated (e9ea67350c -> 2d4e2d3b98)

[ELPA Syncer]

elpasync pushed a change to branch externals/listen.

  from  e9ea67350c Fix: (listen-queue-revert) Update current track by 
filename
   new  879e381070 Fix: (listen-queue) for bookmark handler
   new  54f8764ff1 Fix: (listen-queue) oops
   new  f854502091 Fix: (listen-queue) for bookmark handler
   new  e34ad6221c Fix: (listen-library) Reading paths interactively
   new  d146e75db6 Change: (listen-library) Use path as default name
   new  355eebfaec Fix: (listen-library) TRACKS argument/variable
   new  2d4e2d3b98 Fix: (listen-library) Start with point at beginning


Summary of changes:
 README.org|  3 +++
 listen-library.el | 27 ++-
 listen-queue.el   |  9 ++---
 3 files changed, 27 insertions(+), 12 deletions(-)

[elpa] externals/listen f854502091 3/7: Fix: (listen-queue) for bookmark handler

[ELPA Syncer]

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

Fix: (listen-queue) for bookmark handler

No, really, this time.
---
 listen-queue.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/listen-queue.el b/listen-queue.el
index 2e2a624705..8ac1797204 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -230,7 +230,7 @@ Useful for when `save-excursion' does not preserve point."
 (listen-queue-goto-current)))
 ;; NOTE: We pop to the buffer outside of `with-current-buffer' so
 ;; `listen-queue--bookmark-handler' works correctly.
-(pop-to-buffer (current-buffer
+(pop-to-buffer buffer)))
 
 (defun listen-queue--annotate-buffer ()
   "Annotate current buffer.

[nongnu] elpa/rust-mode 825a37dbf7 2/2: Merge pull request #530 from jroimartin/fix-rust-mode-autoload

[ELPA Syncer]

branch: elpa/rust-mode
commit 825a37dbf7b3a5c2ee44e3707c4ad081fdf7dd15
Merge: d8a09f218e db7d086233
Author: Sibi Prabakaran 
Commit: GitHub 

Merge pull request #530 from jroimartin/fix-rust-mode-autoload

Fix rust-mode lazy loading
---
 rust-mode.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rust-mode.el b/rust-mode.el
index 70c2a2c067..ec1ecba4d4 100644
--- a/rust-mode.el
+++ b/rust-mode.el
@@ -75,6 +75,9 @@ instead of `prog-mode'. This option requires emacs29+."
 (require 'rust-mode-treesitter)
   (require 'rust-prog-mode))
 
+;;;###autoload
+(autoload 'rust-mode "rust-mode" "Major mode for Rust code.")
+
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))
 

[nongnu] elpa/rust-mode db7d086233 1/2: Fix rust-mode lazy loading

[ELPA Syncer]

branch: elpa/rust-mode
commit db7d086233d7c37105ef39944f1b075e3a3dbe21
Author: Roi Martin 
Commit: Roi Martin 

Fix rust-mode lazy loading

This PR fixes the following error that happends when opening a .rs
file:

File mode specification error: (void-function rust-mode)

It conditionally autoloads the proper rust-mode version depending on
the user environment.

Fixes #528
---
 rust-mode.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rust-mode.el b/rust-mode.el
index 70c2a2c067..ec1ecba4d4 100644
--- a/rust-mode.el
+++ b/rust-mode.el
@@ -75,6 +75,9 @@ instead of `prog-mode'. This option requires emacs29+."
 (require 'rust-mode-treesitter)
   (require 'rust-prog-mode))
 
+;;;###autoload
+(autoload 'rust-mode "rust-mode" "Major mode for Rust code.")
+
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))