[elpa] externals/debbugs a35646a979: Release debbugs 0.32

[Michael Albinus]

branch: externals/debbugs
commit a35646a9798226b8630fbd7a0691edc78ccd92b3
Author: Michael Albinus 
Commit: Michael Albinus 

Release debbugs 0.32

* debbugs-compat.el: New file.

* debbugs-gnu.el (debbugs-compat): Require it.
(debbugs-gnu-insert-changelog): Use `debbugs-compat-string-replace'.

* debbugs.el: Require Emacs 26.1.  Move version to 0.32.
(subr-x): Require it.
---
 debbugs-compat.el | 35 +++
 debbugs-gnu.el|  3 ++-
 debbugs.el|  5 +++--
 3 files changed, 40 insertions(+), 3 deletions(-)

diff --git a/debbugs-compat.el b/debbugs-compat.el
new file mode 100644
index 00..5ea13fbeab
--- /dev/null
+++ b/debbugs-compat.el
@@ -0,0 +1,35 @@
+;;; debbugs-compat.el --- Compatibility library for debbugs  -*- 
lexical-binding:t -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Michael Albinus 
+;; Keywords: comm, hypermedia
+;; Package: debbugs
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see .
+
+;; Function `string-replace' is new in Emacs 28.1.
+(defalias 'debbugs-compat-string-replace
+  (if (fboundp 'string-replace)
+  #'string-replace
+(lambda (from-string to-string in-string)
+  (let ((case-fold-search nil))
+(replace-regexp-in-string
+ (regexp-quote from-string) to-string in-string t t)
+
+(provide 'debbugs-compat)
+
+;;; debbugs-compat.el ends here
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 64a076997d..dd3bc24ea9 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -174,6 +174,7 @@
 ;;; Code:
 
 (require 'debbugs)
+(require 'debbugs-compat)
 (require 'tabulated-list)
 (require 'add-log)
 (eval-when-compile (require 'subr-x))
@@ -2708,7 +2709,7 @@ If SELECTIVELY, query the user before applying the patch."
(delete-region (line-beginning-position) (point-max))
(save-restriction
  (narrow-to-region (point) (point))
- (insert (string-replace "\r" "" changelog))
+ (insert (debbugs-compat-string-replace "\r" "" changelog))
  (indent-region (point-min) (point-max
   (let ((point (point)))
(when (string-match "\\(bug#[0-9]+\\)" subject)
diff --git a/debbugs.el b/debbugs.el
index bd55294ecf..eec36d475d 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -5,8 +5,8 @@
 ;; Author: Michael Albinus 
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.31
-;; Package-Requires: ((emacs "25.1") (soap-client "3.1.5"))
+;; Version: 0.32
+;; Package-Requires: ((emacs "26.1") (soap-client "3.1.5"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -38,6 +38,7 @@
 
 ;;; Code:
 
+(require 'subr-x)
 ;(setq soap-debug t url-debug t message-log-max t)
 (require 'soap-client)
 (eval-when-compile (require 'cl-lib))

[elpa] externals/mct 2754822e56: Avoid conflict with Emacs 29 candidate highlight

[ELPA Syncer]

branch: externals/mct
commit 2754822e56f1898a989054350492fa73239795ae
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Avoid conflict with Emacs 29 candidate highlight

Otherwise we get that face and the one MCT uses.
---
 mct.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/mct.el b/mct.el
index a11933deb8..0507ea8973 100644
--- a/mct.el
+++ b/mct.el
@@ -1106,6 +1106,7 @@ region.")
   (when (mct--minibuffer-p)
 (setq-local completion-show-help nil
 completion-wrap-movement nil ; Emacs 29
+completions-highlight-face nil
 truncate-lines t)
 (mct--setup-clean-completions)
 (mct--setup-appearance)

[elpa] externals/mct 4d96c20453: Update URL of git repo to SourceHut

[ELPA Syncer]

branch: externals/mct
commit 4d96c20453ee68902b413e259bdba17fbd27f6ce
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update URL of git repo to SourceHut

Read:
* 
* 

---
 README.org | 5 +++--
 mct-avy.el | 2 +-
 mct-tcm.el | 2 +-
 mct.el | 2 +-
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index b850797a4f..2985710dbe 100644
--- a/README.org
+++ b/README.org
@@ -802,7 +802,7 @@ mkdir manual-packages
 cd manual-packages
 
 # Clone this repo and name it "mct"
-git clone https://gitlab.com/protesilaos/mct.git mct
+git clone https://git.sr.ht/~protesilaos/mct mct
 #+end_src
 
 Finally, in your =init.el= (or equivalent) evaluate this:
@@ -1469,7 +1469,8 @@ MCT is meant to be a collective effort.  Every bit of 
help matters.
 
 + Manual :: 
 + Change log :: 
-+ Source code :: 
++ Source code :: 
++ Mailing list :: 
 
 * GNU Free Documentation License
 :PROPERTIES:
diff --git a/mct-avy.el b/mct-avy.el
index cd5c1dfec3..bcea09531e 100644
--- a/mct-avy.el
+++ b/mct-avy.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
-;; URL: https://gitlab.com/protesilaos/mct
+;; URL: https://git.sr.ht/~protesilaos/mct
 ;; Version: 0.5.0
 ;; Package-Requires: ((emacs "27.1") (mct "0.5"))
 
diff --git a/mct-tcm.el b/mct-tcm.el
index a869039af5..5656050011 100644
--- a/mct-tcm.el
+++ b/mct-tcm.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
-;; URL: https://gitlab.com/protesilaos/mct
+;; URL: https://git.sr.ht/~protesilaos/mct
 ;; Version: 0.5.0
 ;; Package-Requires: ((emacs "27.1") (mct "0.5"))
 
diff --git a/mct.el b/mct.el
index 0507ea8973..44efbb9bb0 100644
--- a/mct.el
+++ b/mct.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
-;; URL: https://gitlab.com/protesilaos/mct
+;; URL: https://git.sr.ht/~protesilaos/mct
 ;; Version: 0.5.0
 ;; Package-Requires: ((emacs "27.1"))
 

[elpa] externals/consult 4be77d450f 5/6: consult--buffer-preview: Use simpler restoration to fix #547

[ELPA Syncer]

branch: externals/consult
commit 4be77d450fd8d408a70ef17a83bba045362172a6
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--buffer-preview: Use simpler restoration to fix #547

Unfortunately we cannot restore the window configuration since this will 
also
close the *Completions* window. Furthermore the window configuration also 
messes
with the minibuffer, but at least this problem can be avoided on Emacs 28, 
where
`set-window-configuration` takes two additional arguments. Therefore we 
revert
to the simpler restoration technique now which may not give the correct 
result
under all circumstances.
---
 consult.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index ca568f72b6..82f622f7c5 100644
--- a/consult.el
+++ b/consult.el
@@ -4128,9 +4128,9 @@ Report progress and return a list of the results"
 (lambda (action cand)
   ;; Only preview in current window and other window.
   ;; Preview in frames and tabs is not possible since these don't get 
cleaned up.
-  (when (or (eq action 'preview)
-(eq consult--buffer-display #'switch-to-buffer)
-(eq consult--buffer-display #'switch-to-buffer-other-window))
+  (when (and (eq action 'preview)
+ (memq consult--buffer-display
+   '(switch-to-buffer switch-to-buffer-other-window)))
 (cond
  ((and cand (get-buffer cand))
   (consult--buffer-action cand 'norecord))

[elpa] externals/consult f49da22f07 6/6: README: Update URLs to Prot's repositories

[ELPA Syncer]

branch: externals/consult
commit f49da22f070082e0582decb439718581d61146ff
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update URLs to Prot's repositories
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index e46e71f159..7bf51faf5a 100644
--- a/README.org
+++ b/README.org
@@ -366,7 +366,7 @@ their descriptions.
candidates.
  - =consult-preview-at-point= and =consult-preview-at-point-mode=: Command and
minor mode which previews the candidate at point in the =*Completions*= 
buffer.
-   This mode is relevant if you use 
[[https://gitlab.com/protesilaos/mct][Mct]] or the default =*Completions*= UI.
+   This mode is relevant if you use 
[[https://git.sr.ht/~protesilaos/mct][Mct]] or the default =*Completions*= UI.
  - =consult-completion-in-region=: In case you don't use 
[[https://github.com/minad/corfu][Corfu]] as your in-buffer
completion UI, this function can be set as =completion-in-region-function=.
Then your minibuffer completion UI (e.g., Vertico or Icomplete) will be used
@@ -1032,7 +1032,7 @@ by Consult. Give them a try and find out which 
interaction model fits best for
 you!
 
 - The builtin completion UI, which pops up the =*Completions*= buffer.
-- [[https://gitlab.com/protesilaos/mct][mct by Protesilaos Stavrou]]: 
Minibuffer and Completions in Tandem, which builds
+- [[https://git.sr.ht/~protesilaos/mct][mct by Protesilaos Stavrou]]: 
Minibuffer and Completions in Tandem, which builds
   on the default completion UI.
 - [[https://github.com/raxod502/selectrum][selectrum by Radon Rosborough]]: 
Alternative vertical completion system.
 - [[https://github.com/oantolin/icomplete-vertical][icomplete-vertical by Omar 
Antolín Camarena]]: Vertical completion system based on Icomplete.
@@ -1179,7 +1179,7 @@ Code contributions:
 Advice and useful discussions:
 - [[https://github.com/clemera/][Clemens Radermacher]]
 - [[https://github.com/oantolin/][Omar Antolín Camarena]]
-- [[https://gitlab.com/protesilaos/][Protesilaos Stavrou]]
+- [[https://protesilaos.com][Protesilaos Stavrou]]
 - [[https://github.com/purcell/][Steve Purcell]]
 - [[https://github.com/alphapapa/][Adam Porter]]
 - [[https://github.com/manuel-uberti/][Manuel Uberti]]

[elpa] externals/consult d8d673c75b 2/6: consult--buffer-preview: Restore window configuration before buffer display

[ELPA Syncer]

branch: externals/consult
commit d8d673c75bcad1af1c552cd7c0b5017dc27f18c8
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--buffer-preview: Restore window configuration before buffer display

If the user sets switch-to-buffer-obey-display-actions and adjusts the
display-buffer-alist, the buffers may pop up at special places. Therefore we
must always restore the window configuration, before previewing the next 
buffer.
---
 consult.el | 11 +--
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index 2d17ee9d3c..0758df3ac9 100644
--- a/consult.el
+++ b/consult.el
@@ -4131,12 +4131,11 @@ Report progress and return a list of the results"
   (when (and (eq action 'preview)
  (memq consult--buffer-display
'(switch-to-buffer switch-to-buffer-other-window)))
-(cond
- ((and cand (get-buffer cand))
-  (unless orig-conf
-(setq orig-conf (current-window-configuration)))
-  (consult--buffer-action cand 'norecord))
- (t (ignore-errors (set-window-configuration orig-conf
+(if orig-conf
+(ignore-errors (set-window-configuration orig-conf))
+  (setq orig-conf (current-window-configuration)))
+(when (and cand (get-buffer cand))
+  (consult--buffer-action cand 'norecord))
 
 (defun consult--buffer-action (buffer &optional norecord)
   "Switch to BUFFER via `consult--buffer-display' function.

[elpa] externals/consult 42fb3eab4c 1/6: consult--buffer-preview: Restore window configuration properly (Fix #547)

[ELPA Syncer]

branch: externals/consult
commit 42fb3eab4c693b83d890a1431f80837e90488c2e
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--buffer-preview: Restore window configuration properly (Fix #547)
---
 consult.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index ca568f72b6..2d17ee9d3c 100644
--- a/consult.el
+++ b/consult.el
@@ -4124,18 +4124,19 @@ Report progress and return a list of the results"
 
 (defun consult--buffer-preview ()
   "Buffer preview function."
-  (let ((orig-buf (current-buffer)))
+  (let (orig-conf)
 (lambda (action cand)
   ;; Only preview in current window and other window.
   ;; Preview in frames and tabs is not possible since these don't get 
cleaned up.
-  (when (or (eq action 'preview)
-(eq consult--buffer-display #'switch-to-buffer)
-(eq consult--buffer-display #'switch-to-buffer-other-window))
+  (when (and (eq action 'preview)
+ (memq consult--buffer-display
+   '(switch-to-buffer switch-to-buffer-other-window)))
 (cond
  ((and cand (get-buffer cand))
+  (unless orig-conf
+(setq orig-conf (current-window-configuration)))
   (consult--buffer-action cand 'norecord))
- ((buffer-live-p orig-buf)
-  (consult--buffer-action orig-buf 'norecord)))
+ (t (ignore-errors (set-window-configuration orig-conf
 
 (defun consult--buffer-action (buffer &optional norecord)
   "Switch to BUFFER via `consult--buffer-display' function.

[elpa] externals/consult f5a178c438 4/6: Revert "consult--buffer-preview: Restore window configuration properly (Fix #547)"

[ELPA Syncer]

branch: externals/consult
commit f5a178c4387a354d08e13495aa0f6512a72b98c0
Author: Daniel Mendler 
Commit: Daniel Mendler 

Revert "consult--buffer-preview: Restore window configuration properly (Fix 
#547)"

This reverts commit 42fb3eab4c693b83d890a1431f80837e90488c2e.
---
 consult.el | 13 ++---
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/consult.el b/consult.el
index 2d17ee9d3c..ca568f72b6 100644
--- a/consult.el
+++ b/consult.el
@@ -4124,19 +4124,18 @@ Report progress and return a list of the results"
 
 (defun consult--buffer-preview ()
   "Buffer preview function."
-  (let (orig-conf)
+  (let ((orig-buf (current-buffer)))
 (lambda (action cand)
   ;; Only preview in current window and other window.
   ;; Preview in frames and tabs is not possible since these don't get 
cleaned up.
-  (when (and (eq action 'preview)
- (memq consult--buffer-display
-   '(switch-to-buffer switch-to-buffer-other-window)))
+  (when (or (eq action 'preview)
+(eq consult--buffer-display #'switch-to-buffer)
+(eq consult--buffer-display #'switch-to-buffer-other-window))
 (cond
  ((and cand (get-buffer cand))
-  (unless orig-conf
-(setq orig-conf (current-window-configuration)))
   (consult--buffer-action cand 'norecord))
- (t (ignore-errors (set-window-configuration orig-conf
+ ((buffer-live-p orig-buf)
+  (consult--buffer-action orig-buf 'norecord)))
 
 (defun consult--buffer-action (buffer &optional norecord)
   "Switch to BUFFER via `consult--buffer-display' function.

[elpa] externals/corfu 62e6057f63: README: Update URL of Prot's Mct

[ELPA Syncer]

branch: externals/corfu
commit 62e6057f639a2d3435d47e4716af01e84669f6c0
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update URL of Prot's Mct
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 0d29c7244e..f7ed544d55 100644
--- a/README.org
+++ b/README.org
@@ -440,7 +440,7 @@ The command ~corfu-move-to-minibuffer~ is defined here in 
terms of
 since for example the ~completion-at-point~ command (or the
 ~completion-in-region~ function) does not invoke Company.
 
-  - [[https://gitlab.com/protesilaos/mct][Mct]]: Protesilaos' Minibuffer 
Confines Transcended package supports both
+  - [[https://git.sr.ht/~protesilaos/mct][Mct]]: Protesilaos' Minibuffer 
Confines Transcended package supports both
 minibuffer completion and completion in region. It reuses the default
 completion UI for this purpose and installs a timer which live updates the
 completion buffer. The main advantage of Mct is that you work with a 
regular

[elpa] externals/consult 38c40831d7 3/6: Revert "consult--buffer-preview: Restore window configuration before buffer display"

[ELPA Syncer]

branch: externals/consult
commit 38c40831d7542726dec9545a176f02f4f15e1688
Author: Daniel Mendler 
Commit: Daniel Mendler 

Revert "consult--buffer-preview: Restore window configuration before buffer 
display"

This reverts commit d8d673c75bcad1af1c552cd7c0b5017dc27f18c8.
---
 consult.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index 0758df3ac9..2d17ee9d3c 100644
--- a/consult.el
+++ b/consult.el
@@ -4131,11 +4131,12 @@ Report progress and return a list of the results"
   (when (and (eq action 'preview)
  (memq consult--buffer-display
'(switch-to-buffer switch-to-buffer-other-window)))
-(if orig-conf
-(ignore-errors (set-window-configuration orig-conf))
-  (setq orig-conf (current-window-configuration)))
-(when (and cand (get-buffer cand))
-  (consult--buffer-action cand 'norecord))
+(cond
+ ((and cand (get-buffer cand))
+  (unless orig-conf
+(setq orig-conf (current-window-configuration)))
+  (consult--buffer-action cand 'norecord))
+ (t (ignore-errors (set-window-configuration orig-conf
 
 (defun consult--buffer-action (buffer &optional norecord)
   "Switch to BUFFER via `consult--buffer-display' function.

[elpa] externals/consult updated (e926d593d3 -> f49da22f07)

[ELPA Syncer]

elpasync pushed a change to branch externals/consult.

  from  e926d593d3 consult--preview-function: Fix preview in default 
completion
   new  42fb3eab4c consult--buffer-preview: Restore window configuration 
properly (Fix #547)
   new  d8d673c75b consult--buffer-preview: Restore window configuration 
before buffer display
   new  38c40831d7 Revert "consult--buffer-preview: Restore window 
configuration before buffer display"
   new  f5a178c438 Revert "consult--buffer-preview: Restore window 
configuration properly (Fix #547)"
   new  4be77d450f consult--buffer-preview: Use simpler restoration to fix 
#547
   new  f49da22f07 README: Update URLs to Prot's repositories


Summary of changes:
 README.org | 6 +++---
 consult.el | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

[elpa] externals/vertico 46e8e05650: README: Update URL of Prot's Mct

[ELPA Syncer]

branch: externals/vertico
commit 46e8e0565079b7161ada4beb94c8938ee9c04bfb
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Update URL of Prot's Mct
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 247eda9216..0c73f7ae1f 100644
--- a/README.org
+++ b/README.org
@@ -454,7 +454,7 @@ an integral part in how the users interacts with Emacs.
 
 There are other interactive completion UIs, which follow a similar philosophy:
 
-- [[https://gitlab.com/protesilaos/mct][Mct]]: Minibuffer and Completions in 
Tandem. Mct reuses the default ~*Completions*~
+- [[https://git.sr.ht/~protesilaos/mct][Mct]]: Minibuffer and Completions in 
Tandem. Mct reuses the default ~*Completions*~
   buffer and enhances it with automatic updates and additional keybindings, to
   select a candidate and move between minibuffer and completions buffer. Mct 
can
   be configured to open only when requested. Furthermore since Mct uses a fully

[elpa] externals/consult bbb53018ae: Disable preview for consult-buffer-other-window (See #547)

[ELPA Syncer]

branch: externals/consult
commit bbb53018aea11612d95067577d6a636db3406712
Author: Daniel Mendler 
Commit: Daniel Mendler 

Disable preview for consult-buffer-other-window (See #547)
---
 consult.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index 82f622f7c5..3d6499d319 100644
--- a/consult.el
+++ b/consult.el
@@ -4128,9 +4128,7 @@ Report progress and return a list of the results"
 (lambda (action cand)
   ;; Only preview in current window and other window.
   ;; Preview in frames and tabs is not possible since these don't get 
cleaned up.
-  (when (and (eq action 'preview)
- (memq consult--buffer-display
-   '(switch-to-buffer switch-to-buffer-other-window)))
+  (when (and (eq action 'preview) (eq consult--buffer-display 
#'switch-to-buffer))
 (cond
  ((and cand (get-buffer cand))
   (consult--buffer-action cand 'norecord))

[elpa] externals/consult d30213aa20: consult--buffer-preview: Reimplement preview for switch-buffer-other-window (See #547)

[ELPA Syncer]

branch: externals/consult
commit d30213aa209391e03b1c1011df92d91a1fc5ef32
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--buffer-preview: Reimplement preview for switch-buffer-other-window 
(See #547)

We manually control the other window. Hopefully this works in more 
scenarios.
---
 consult.el | 30 --
 1 file changed, 20 insertions(+), 10 deletions(-)

diff --git a/consult.el b/consult.el
index 3d6499d319..671564d0b0 100644
--- a/consult.el
+++ b/consult.el
@@ -4124,16 +4124,26 @@ Report progress and return a list of the results"
 
 (defun consult--buffer-preview ()
   "Buffer preview function."
-  (let ((orig-buf (current-buffer)))
-(lambda (action cand)
-  ;; Only preview in current window and other window.
-  ;; Preview in frames and tabs is not possible since these don't get 
cleaned up.
-  (when (and (eq action 'preview) (eq consult--buffer-display 
#'switch-to-buffer))
-(cond
- ((and cand (get-buffer cand))
-  (consult--buffer-action cand 'norecord))
- ((buffer-live-p orig-buf)
-  (consult--buffer-action orig-buf 'norecord)))
+  ;; Only preview in current window and other window.
+  ;; Preview in frames and tabs is not possible since these don't get cleaned 
up.
+  (if (memq consult--buffer-display
+'(switch-to-buffer switch-to-buffer-other-window))
+  (let ((orig-buf (current-buffer)) other-win)
+(lambda (action cand)
+  (when (eq action 'preview)
+(when (and (eq consult--buffer-display 
#'switch-to-buffer-other-window)
+   (not other-win))
+  (switch-to-buffer-other-window orig-buf)
+  (setq other-win (selected-window)))
+(let ((win (or other-win (selected-window
+  (when (window-live-p win)
+(with-selected-window win
+  (cond
+   ((and cand (get-buffer cand))
+(switch-to-buffer cand 'norecord))
+   ((buffer-live-p orig-buf)
+(switch-to-buffer orig-buf 'norecord)
+#'ignore))
 
 (defun consult--buffer-action (buffer &optional norecord)
   "Switch to BUFFER via `consult--buffer-display' function.

[elpa] externals/org-modern updated (c4dffd2a56 -> 2e851d3742)

[ELPA Syncer]

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

  from  c4dffd2a56 Use define-globalized-minor-mode
   new  f199137c20 Generalize org-modern-variable-pitch
   new  2e851d3742 org-modern-star: Use lighter star for n≥5


Summary of changes:
 example.org   |  4 ++--
 org-modern.el | 10 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

[elpa] externals/org-modern f199137c20 1/2: Generalize org-modern-variable-pitch

[ELPA Syncer]

branch: externals/org-modern
commit f199137c20570f7cd9056f52fb3ac994f8059af2
Author: Daniel Mendler 
Commit: Daniel Mendler 

Generalize org-modern-variable-pitch
---
 org-modern.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index bd4f02992e..304826bf55 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -49,7 +49,7 @@
   (when (facep 'org-modern-label)
 (set-face-attribute
  'org-modern-label nil
- :inherit (and org-modern-variable-pitch 'variable-pitch)
+ :inherit org-modern-variable-pitch
  :box (when org-modern-label-border
 (let ((border (if (eq org-modern-label-border 'auto)
   (max 3 (cond
@@ -170,9 +170,9 @@ If set to a string, e.g., \"‣\", the string is used as 
replacement for #+."
 Set to nil to disable the indicator."
   :type '(choice (const nil) (vector string)))
 
-(defcustom org-modern-variable-pitch t
-  "Prefer variable pitch for modern style."
-  :type 'boolean
+(defcustom org-modern-variable-pitch 'variable-pitch
+  "Use variable pitch for modern style labels."
+  :type 'symbol
   :set #'org-modern--setter)
 
 (defgroup org-modern-faces nil

[elpa] externals/org-modern 2e851d3742 2/2: org-modern-star: Use lighter star for n≥5

[ELPA Syncer]

branch: externals/org-modern
commit 2e851d3742b4c0f436f21314657cf8d1d999698e
Author: Daniel Mendler 
Commit: Daniel Mendler 

org-modern-star: Use lighter star for n≥5
---
 example.org   | 4 ++--
 org-modern.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/example.org b/example.org
index 2f971998ff..6182165e58 100644
--- a/example.org
+++ b/example.org
@@ -29,8 +29,8 @@ DRANGE:[2022-03-01]--[2022-04-01]
 DRANGE:<2022-03-01>--<2022-04-01>
 TRANGE:[2022-03-01 Tue 10:42-11:00]
 TIMESTAMP: [2022-02-21 Mon 13:00]
-DREPEATED:  <2022-02-26 Sat .+1d/2d +3d>
-TREPEATED:  <2022-02-26 Sat 10:00 .+1d/2d>
+DREPEATED: <2022-02-26 Sat .+1d/2d +3d>
+TREPEATED: <2022-02-26 Sat 10:00 .+1d/2d>
 
 * Blocks
 
diff --git a/org-modern.el b/org-modern.el
index 304826bf55..ca90648872 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -76,7 +76,7 @@ A value between 0.1 and 0.4 of `line-spacing' is recommended."
   :type '(choice (const nil) (const auto) integer)
   :set #'org-modern--setter)
 
-(defcustom org-modern-star ["◉""○""◈""◇""⁕"]
+(defcustom org-modern-star ["◉""○""◈""◇""✳"]
   "Replacement strings for headline stars for each level.
 Set to nil to disable styling the headlines."
   :type '(choice (const nil) (vector string)))

[elpa] externals/poke-mode caf4d7c02c: poke-smie-rules: add rule for methods

[ELPA Syncer]

branch: externals/poke-mode
commit caf4d7c02c5eadcff3f8ef5a1009bc8e844e5521
Author: Jose E. Marchesi 
Commit: Jose E. Marchesi 

poke-smie-rules: add rule for methods
---
 poke-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/poke-mode.el b/poke-mode.el
index a909e8..411ce49ea3 100644
--- a/poke-mode.el
+++ b/poke-mode.el
@@ -308,7 +308,7 @@
 (`(:elem . basic) poke-indent-basic)
 ;; (`(:list-intro . "=") t)
 (`(:after . "=") poke-indent-basic)
-((and `(:before . "{") (guard (smie-rule-parent-p "fun" "struct" "union")))
+((and `(:before . "{") (guard (smie-rule-parent-p "fun" "struct" "union" 
"method")))
  (smie-rule-parent 0))
 (`(:before . ,(or `"(" `"{"))
  (if (smie-rule-hanging-p) (smie-rule-parent)))

[nongnu] elpa/geiser 5b9532a571: A bit more tramp-friendliness

[ELPA Syncer]

branch: elpa/geiser
commit 5b9532a571b28f1f82f0eaaecc1f7792473bdc6c
Author: jao 
Commit: jao 

A bit more tramp-friendliness

Fixes #45.  Thanks to Brian Cully.
---
 elisp/geiser-compile.el | 2 +-
 elisp/geiser-edit.el| 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index c51360623c..903c570ca1 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -65,7 +65,7 @@ With prefix, restart REPL before compiling the file."
 (defun geiser-load-file (path)
   "Load Scheme file."
   (interactive "FScheme file: ")
-  (geiser-compile--file-op (expand-file-name path) nil "Loading"))
+  (geiser-compile--file-op (file-local-name (expand-file-name path)) nil 
"Loading"))
 
 (defun geiser-load-current-buffer (&optional restart-p)
   "Load current Scheme file.
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index cfa11fb3cc..d8fa0ab8cb 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -51,7 +51,9 @@ or following links in error buffers.")
   (cdr (assoc "name" loc)))
 
 (defsubst geiser-edit--location-file (loc)
-  (cdr (assoc "file" loc)))
+  (when-let ((file-name (cdr (assoc "file" loc
+(concat (or (file-remote-p default-directory) "")
+file-name)))
 
 (defsubst geiser-edit--to-number (x)
   (cond ((numberp x) x)

[nongnu] elpa/helm 576133622a 1/3: Restore helm-source-file-name-history removed in a previous commit

[ELPA Syncer]

branch: elpa/helm
commit 576133622aecd9ea86948b9e354c0feb4d2daf76
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Restore helm-source-file-name-history removed in a previous commit
---
 helm-files.el | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/helm-files.el b/helm-files.el
index 848e49ef04..7e2e3a18c1 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5996,6 +5996,13 @@ list."
 ;;
 (defvar helm--file-name-history-hide-deleted nil)
 
+(defvar helm-source-file-name-history
+  (helm-build-sync-source "File Name History"
+:candidates 'file-name-history
+:persistent-action #'ignore
+:filtered-candidate-transformer #'helm-file-name-history-transformer
+:action 'helm-type-file-actions))
+
 (defun helm-file-name-history-show-or-hide-deleted ()
   (interactive)
   (setq helm--file-name-history-hide-deleted

[nongnu] elpa/helm updated (1003539c2e -> cac2ffceef)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  1003539c2e Fix some warnings
   new  576133622a Restore helm-source-file-name-history removed in a 
previous commit
   new  a6634a17b6 Make file-name-history date more readable
   new  cac2ffceef Protect system processes calls (Issue #2497)


Summary of changes:
 helm-files.el |  9 -
 helm-lib.el   | 14 +-
 2 files changed, 17 insertions(+), 6 deletions(-)

[nongnu] elpa/helm cac2ffceef 3/3: Protect system processes calls (Issue #2497)

[ELPA Syncer]

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

Protect system processes calls (Issue #2497)
---
 helm-lib.el | 14 +-
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index a1b12408ca..5c407c7bbf 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1075,11 +1075,15 @@ than WIDTH."
 
 (defun helm-get-pid-from-process-name (process-name)
   "Get pid from running process PROCESS-NAME."
-  (cl-loop with process-list = (list-system-processes)
-for pid in process-list
-for process = (assoc-default 'comm (process-attributes pid))
-when (and process (string-match process-name process))
-return pid))
+  ;; Protect system processes calls (Issue #2497)
+  ;; Ensure `list-system-processes' and `process-attributes' don't run
+  ;; on remote (only Emacs-28/29+).
+  (cl-loop with default-directory = temporary-file-directory
+   with process-list = (list-system-processes)
+   for pid in process-list
+   for process = (assoc-default 'comm (process-attributes pid))
+   when (and process (string-match process-name process))
+   return pid))
 
 (defun helm-ff-find-printers ()
   "Return a list of available printers on Unix systems."

[nongnu] elpa/helm a6634a17b6 2/3: Make file-name-history date more readable

[ELPA Syncer]

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

Make file-name-history date more readable
---
 helm-files.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-files.el b/helm-files.el
index 7e2e3a18c1..29da19c190 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6020,7 +6020,7 @@ list."
 (defun helm-file-name-history-transformer (candidates _source)
   (cl-loop with lgst = (cl-loop for c in candidates maximize (length c))
for c in candidates
-   for last-access = (format-time-string "%d/%m/%Y:%X"
+   for last-access = (format-time-string "%d/%m/%Y  %X"
  (nth 4 (file-attributes c)))
for disp = (cond ((or (file-remote-p c)
  (and (fboundp 'tramp-archive-file-name-p)

[nongnu] elpa/helm-core updated (1003539c2e -> cac2ffceef)

[ELPA Syncer]

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

  from  1003539c2e Fix some warnings
  adds  576133622a Restore helm-source-file-name-history removed in a 
previous commit
  adds  a6634a17b6 Make file-name-history date more readable
  adds  cac2ffceef Protect system processes calls (Issue #2497)

No new revisions were added by this update.

Summary of changes:
 helm-files.el |  9 -
 helm-lib.el   | 14 +-
 2 files changed, 17 insertions(+), 6 deletions(-)

[elpa] externals/pulsar a5f4ea4a8c 9/9: Set pulsar-pulse-on-window-change to t by default

[ELPA Syncer]

branch: externals/pulsar
commit a5f4ea4a8c92eda6de9eaefd4068d9f8d344a708
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Set pulsar-pulse-on-window-change to t by default
---
 pulsar.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index b719a8ec0c..3a2af2a6a9 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -113,7 +113,7 @@ non-nil instead of specifying each of them in this list."
   :type '(repeat function)
   :group 'pulsar)
 
-(defcustom pulsar-pulse-on-window-change nil
+(defcustom pulsar-pulse-on-window-change t
   "When non-nil enable pulsing on every window change.
 This covers all commands or functions that affect the current
 window.  Users who prefer to trigger a pulse only after select

[elpa] externals/pulsar 1f977f61a6 3/9: Acknowledgements Ivan Popovych for commit b1a78dd

[ELPA Syncer]

branch: externals/pulsar
commit 1f977f61a606e652cdce523e597feb42815f54b5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledgements Ivan Popovych for commit b1a78dd
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index e4b43172f2..85cb2a11d0 100644
--- a/README.org
+++ b/README.org
@@ -277,7 +277,7 @@ Pulsar is meant to be a collective effort.  Every bit of 
help matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to the code or manual :: Aymeric Agon-Rambosson, Daniel
-  Mendler, JD Smith.
+  Mendler, Ivan Popovych, JD Smith.
 
 + Ideas and user feedback :: Mark Barton, Petter Storvik, Rudolf
   Adamkovič, Toon Claes, and user kb.

[elpa] externals/pulsar b549ce31b3 4/9: Document pulsar-pulse-on-window-change

[ELPA Syncer]

branch: externals/pulsar
commit b549ce31b34f5619cad42a70d133921b74d0b70f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document pulsar-pulse-on-window-change
---
 README.org | 43 +--
 1 file changed, 25 insertions(+), 18 deletions(-)

diff --git a/README.org b/README.org
index 85cb2a11d0..86d0f242ae 100644
--- a/README.org
+++ b/README.org
@@ -72,6 +72,11 @@ in the user option ~pulsar-pulse-functions~ and the effect 
takes place
 when either ~pulsar-mode~ (buffer-local) or ~pulsar-global-mode~ is
 enabled.
 
+There is no need to add all functions that affect the active window to
+the ~pulsar-pulse-functions~.  Instead, set the user option
+~pulsar-pulse-on-window-change~ to a non-nil value.  It will pulse the
+current line whenever the active window changes (it is part of
+{{{development-version}}}).
 
 #+vindex: pulsar-delay
 #+vindex: pulsar-iterations
@@ -173,30 +178,31 @@ Remember to read the doc string of each of these 
variables.
 (require 'pulsar)
 
 (setq pulsar-pulse-functions
-  '(isearch-repeat-forward
-isearch-repeat-backward
-recenter-top-bottom
+  ;; NOTE 2022-04-09: The commented out functions are from before
+  ;; the introduction of `pulsar-pulse-on-window-change'.  Try that
+  ;; instead.
+  '(recenter-top-bottom
 move-to-window-line-top-bottom
 reposition-window
-bookmark-jump
-other-window
-delete-window
-delete-other-windows
+;; bookmark-jump
+;; other-window
+;; delete-window
+;; delete-other-windows
 forward-page
 backward-page
 scroll-up-command
 scroll-down-command
-windmove-right
-windmove-left
-windmove-up
-windmove-down
-windmove-swap-states-right
-windmove-swap-states-left
-windmove-swap-states-up
-windmove-swap-states-down
-tab-new
-tab-close
-tab-next
+;; windmove-right
+;; windmove-left
+;; windmove-up
+;; windmove-down
+;; windmove-swap-states-right
+;; windmove-swap-states-left
+;; windmove-swap-states-up
+;; windmove-swap-states-down
+;; tab-new
+;; tab-close
+;; tab-next
 org-next-visible-heading
 org-previous-visible-heading
 org-forward-heading-same-level
@@ -207,6 +213,7 @@ Remember to read the doc string of each of these variables.
 outline-previous-visible-heading
 outline-up-heading))
 
+(setq pulsar-pulse-on-window-change t)
 (setq pulsar-pulse t)
 (setq pulsar-delay 0.055)
 (setq pulsar-iterations 10)

[elpa] externals/pulsar 88a9c6712d 5/9: Tweak pulse functions in light of new option

[ELPA Syncer]

branch: externals/pulsar
commit 88a9c6712dc09f95a67d2323ebd5a5363b60c408
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak pulse functions in light of new option

See 'pulsar-pulse-on-window-change'.
---
 pulsar.el | 38 ++
 1 file changed, 22 insertions(+), 16 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index 6b664eb32b..a782d60bc5 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -70,28 +70,30 @@ Extension of `pulse.el'."
  User options
 
 (defcustom pulsar-pulse-functions
+  ;; NOTE 2022-04-09: The commented out functions are from before the
+  ;; introduction of `pulsar-pulse-on-window-change'.  Try that instead.
   '(recenter-top-bottom
 move-to-window-line-top-bottom
 reposition-window
-bookmark-jump
-other-window
-delete-window
-delete-other-windows
+;; bookmark-jump
+;; other-window
+;; delete-window
+;; delete-other-windows
 forward-page
 backward-page
 scroll-up-command
 scroll-down-command
-windmove-right
-windmove-left
-windmove-up
-windmove-down
-windmove-swap-states-right
-windmove-swap-states-left
-windmove-swap-states-up
-windmove-swap-states-down
-tab-new
-tab-close
-tab-next
+;; windmove-right
+;; windmove-left
+;; windmove-up
+;; windmove-down
+;; windmove-swap-states-right
+;; windmove-swap-states-left
+;; windmove-swap-states-up
+;; windmove-swap-states-down
+;; tab-new
+;; tab-close
+;; tab-next
 org-next-visible-heading
 org-previous-visible-heading
 org-forward-heading-same-level
@@ -103,7 +105,11 @@ Extension of `pulse.el'."
 outline-up-heading)
   "Functions that `pulsar-pulse-line' after invocation.
 This only takes effect when `pulsar-mode' or `pulsar-global-mode'
-is enabled."
+is enabled.
+
+For functions/commands that change the current window, it is
+better to set the user option `pulsar-pulse-on-window-change' to
+non-nil instead of specifying each of them in this list."
   :type '(repeat function)
   :group 'pulsar)
 

[elpa] externals/pulsar db2fc2ad6a 2/9: Remove outdated comments from the manual

[ELPA Syncer]

branch: externals/pulsar
commit db2fc2ad6a1d61f415a3edbde2bf7c6aec89ae42
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove outdated comments from the manual
---
 README.org | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/README.org b/README.org
index 3b98d9663f..e4b43172f2 100644
--- a/README.org
+++ b/README.org
@@ -72,7 +72,6 @@ in the user option ~pulsar-pulse-functions~ and the effect 
takes place
 when either ~pulsar-mode~ (buffer-local) or ~pulsar-global-mode~ is
 enabled.
 
-[ The minor modes are part of {{{development-version}}} ]
 
 #+vindex: pulsar-delay
 #+vindex: pulsar-iterations
@@ -96,8 +95,6 @@ will pulse before fading away.  Whereas the 
~pulsar-highlight-line~
 command never pulses the line: the highlight stays in place as if
 ~pulsar-pulse~ is nil.
 
-[ The ~pulsar-highlight-dwim~ is part of {{{development-version}}} ]
-
 #+findex: pulsar-highlight-dwim
 A do-what-I-mean command is also on offer: ~pulsar-highlight-dwim~.  It
 highlights the current line line like ~pulsar-highlight-line~.  If the

[elpa] externals/pulsar updated (cdb7892a2b -> a5f4ea4a8c)

[ELPA Syncer]

elpasync pushed a change to branch externals/pulsar.

  from  cdb7892a2b Upgrade to version 0.3.0
   new  b1a78dd251 Add ability to pulse on every window change
   new  db2fc2ad6a Remove outdated comments from the manual
   new  1f977f61a6 Acknowledgements Ivan Popovych for commit b1a78dd
   new  b549ce31b3 Document pulsar-pulse-on-window-change
   new  88a9c6712d Tweak pulse functions in light of new option
   new  4a0efba85a Refine pulsar-pulse-on-window-change doc string
   new  a460384854 Tweak how rest ARG is used in private function
   new  a9e6f3e8d0 Check for non-nil pulsar-pulse-on-window-change
   new  a5f4ea4a8c Set pulsar-pulse-on-window-change to t by default


Summary of changes:
 README.org | 48 ++--
 pulsar.el  | 61 +++--
 2 files changed, 69 insertions(+), 40 deletions(-)

[elpa] externals/pulsar a460384854 7/9: Tweak how rest ARG is used in private function

[ELPA Syncer]

branch: externals/pulsar
commit a4603848544e211bb930f27d6ebf5b8137123ab7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak how rest ARG is used in private function
---
 pulsar.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index 9395d74490..68a61347d4 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -384,9 +384,9 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
 ;;;###autoload
 (define-globalized-minor-mode pulsar-global-mode pulsar-mode pulsar--on)
 
-(defun pulsar--pulse-on-window-change (arg)
-  "Run `pulsar-pulse-line' on window change, ARG is ignored."
   (when (or pulsar-mode pulsar-global-mode)
+(defun pulsar--pulse-on-window-change (&rest _)
+  "Run `pulsar-pulse-line' on window change."
 (pulsar-pulse-line)))
 
 (defun pulsar--post-command-pulse ()

[elpa] externals/pulsar a9e6f3e8d0 8/9: Check for non-nil pulsar-pulse-on-window-change

[ELPA Syncer]

branch: externals/pulsar
commit a9e6f3e8d06726283773fe2955b5a4a6a3a7537b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Check for non-nil pulsar-pulse-on-window-change
---
 pulsar.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index 68a61347d4..b719a8ec0c 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -384,9 +384,10 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
 ;;;###autoload
 (define-globalized-minor-mode pulsar-global-mode pulsar-mode pulsar--on)
 
-  (when (or pulsar-mode pulsar-global-mode)
 (defun pulsar--pulse-on-window-change (&rest _)
   "Run `pulsar-pulse-line' on window change."
+  (when (and pulsar-pulse-on-window-change
+ (or pulsar-mode pulsar-global-mode))
 (pulsar-pulse-line)))
 
 (defun pulsar--post-command-pulse ()

[elpa] externals/pulsar b1a78dd251 1/9: Add ability to pulse on every window change

[ELPA Syncer]

branch: externals/pulsar
commit b1a78dd25164e0df3f0197df3c06d0848ad8ab1e
Author: Ivan Popovych 
Commit: Protesilaos Stavrou 

Add ability to pulse on every window change

This adds new customization option `pulsar-pulse-on-window-change'
that when set to non-nil value enables pulsing on every window change
by adding pulse function to `window-selection-change-functions'.
---
 pulsar.el | 17 +++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index 3f3b4990d3..6b664eb32b 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -107,6 +107,11 @@ is enabled."
   :type '(repeat function)
   :group 'pulsar)
 
+(defcustom pulsar-pulse-on-window-change nil
+  "When non-nil enable pulsing on every window change."
+  :type 'boolean
+  :group 'pulsar)
+
 (defcustom pulsar-face 'pulsar-generic
   "Face of the regular pulse line effect (`pulsar-pulse-line').
 The default is `pulsar-generic' which reuses the standard face
@@ -353,8 +358,11 @@ For lines, do the same as `pulsar-highlight-line'."
 This is a buffer-local mode.  Also check `pulsar-global-mode'."
   :global nil
   (if pulsar-mode
-  (add-hook 'post-command-hook #'pulsar--post-command-pulse nil 'local)
-(remove-hook 'post-command-hook #'pulsar--post-command-pulse 'local)))
+  (progn
+(add-hook 'post-command-hook #'pulsar--post-command-pulse nil 'local)
+(add-hook 'window-selection-change-functions 
#'pulsar--pulse-on-window-change nil 'local))
+(remove-hook 'post-command-hook #'pulsar--post-command-pulse 'local)
+(remove-hook 'window-selection-change-functions 
#'pulsar--pulse-on-window-change 'local)))
 
 (defun pulsar--on ()
   "Enable `pulsar-mode'."
@@ -365,6 +373,11 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
 ;;;###autoload
 (define-globalized-minor-mode pulsar-global-mode pulsar-mode pulsar--on)
 
+(defun pulsar--pulse-on-window-change (arg)
+  "Run `pulsar-pulse-line' on window change, ARG is ignored."
+  (when (or pulsar-mode pulsar-global-mode)
+(pulsar-pulse-line)))
+
 (defun pulsar--post-command-pulse ()
   "Run `pulsar-pulse-line' for `pulsar-pulse-functions'."
   (when (and (or pulsar-mode pulsar-global-mode)

[elpa] externals/pulsar 4a0efba85a 6/9: Refine pulsar-pulse-on-window-change doc string

[ELPA Syncer]

branch: externals/pulsar
commit 4a0efba85a7eecf7666f7f2101011ec2481a4973
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Refine pulsar-pulse-on-window-change doc string
---
 pulsar.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index a782d60bc5..9395d74490 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -114,7 +114,12 @@ non-nil instead of specifying each of them in this list."
   :group 'pulsar)
 
 (defcustom pulsar-pulse-on-window-change nil
-  "When non-nil enable pulsing on every window change."
+  "When non-nil enable pulsing on every window change.
+This covers all commands or functions that affect the current
+window.  Users who prefer to trigger a pulse only after select
+functions (e.g. only after `other-window') are advised to set
+this variable to nil and update the `pulsar-pulse-functions'
+accordingly."
   :type 'boolean
   :group 'pulsar)
 

[elpa] externals/compat updated (7a97ee1860 -> 675da166e2)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  7a97ee1860 Bump version to 28.1.0.3
   new  bde913b310 Fix typo in the documentation string for compat-and-let*
   new  675da166e2 Mention and-let* in the MANUAL


Summary of changes:
 MANUAL  | 1 +
 compat-tests.el | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

[elpa] externals/compat 675da166e2 2/2: Mention and-let* in the MANUAL

[ELPA Syncer]

branch: externals/compat
commit 675da166e27521756c750f20aa65b13932959b18
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Mention and-let* in the MANUAL
---
 MANUAL | 1 +
 1 file changed, 1 insertion(+)

diff --git a/MANUAL b/MANUAL
index 10405e7437..5420efd3f0 100644
--- a/MANUAL
+++ b/MANUAL
@@ -228,6 +228,7 @@ provided by Compat by default:
 - Function: make-nearby-temp-file :: See [[info:elisp#Unique File 
Names][(elisp) Unique File Names]].
 - Variable: mounted-file-systems ::  Defined in ~files.el~.
 - Function: temporary-file-directory :: See [[info:elisp#Unique File 
Names][(elisp) Unique File Names]].
+- Macro: and-let* :: Defined in ~subr-x.el~.
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-26~ is required:

[elpa] externals/compat bde913b310 1/2: Fix typo in the documentation string for compat-and-let*

[ELPA Syncer]

branch: externals/compat
commit bde913b3105aff836437341654b84cb34598edc0
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Fix typo in the documentation string for compat-and-let*
---
 compat-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compat-tests.el b/compat-tests.el
index 890e6c5181..f89235708f 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1157,7 +1157,7 @@ being compared against."
(compat--if-let (((= 5 6))) t nil)))
 
 (ert-deftest compat-and-let* ()
-  "Check if `compat--if-let*' was implemented properly."
+  "Check if `compat--and-let*' was implemented properly."
   (should   ;trivial body
(compat--and-let*
 ((x 3)

[elpa] externals/compat 25d577ba88 1/2: Fix usage of if/when-let* in other macros

[ELPA Syncer]

branch: externals/compat
commit 25d577ba88e3783839f55efd4a3229d31ad43566
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Fix usage of if/when-let* in other macros
---
 compat-25.el | 4 ++--
 compat-26.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compat-25.el b/compat-25.el
index 707cbb67c2..36d58d21c9 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -152,7 +152,7 @@ This is like `when-let' but doesn't handle a VARLIST of the 
form
 \(SYMBOL SOMETHING) specially."
   :feature 'subr-x
   (declare (indent 1) (debug if-let*))
-  `(compat--if-let* ,varlist ,(macroexp-progn body)))
+  `(if-let* ,varlist ,(macroexp-progn body)))
 
 (compat-defmacro if-let (spec then &rest else)
   "Bind variables according to SPEC and evaluate THEN or ELSE.
@@ -179,7 +179,7 @@ with an old syntax that accepted only one binding."
  (not (listp (car spec
 ;; Adjust the single binding case
 (setq spec (list spec)))
-  `(compat--if-let* ,spec ,then ,(macroexp-progn else)))
+  `(if-let* ,spec ,then ,(macroexp-progn else)))
 
 (compat-defmacro when-let (spec &rest body)
   "Bind variables according to SPEC and conditionally evaluate BODY.
diff --git a/compat-26.el b/compat-26.el
index 955e188ca9..e9d0d70354 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -375,7 +375,7 @@ Like `when-let*', except if BODY is empty and all the 
bindings
 are non-nil, then the result is non-nil."
   :feature 'subr-x
   (declare (indent 1) (debug if-let*))
-  `(compat--when-let* ,varlist ,@(or body '(t
+  `(when-let* ,varlist ,@(or body '(t
 
 (provide 'compat-26)
 ;;; compat-26.el ends here

[elpa] externals/compat updated (675da166e2 -> 59180d1d65)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  675da166e2 Mention and-let* in the MANUAL
   new  25d577ba88 Fix usage of if/when-let* in other macros
   new  59180d1d65 Do not delete compat.texi when invoking "make clean"


Summary of changes:
 Makefile | 2 +-
 compat-25.el | 4 ++--
 compat-26.el | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

[elpa] externals/compat 59180d1d65 2/2: Do not delete compat.texi when invoking "make clean"

[ELPA Syncer]

branch: externals/compat
commit 59180d1d658434883a0d8431086d0098fb2044cd
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Do not delete compat.texi when invoking "make clean"
---
 Makefile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 6740ebe426..2a3350df29 100644
--- a/Makefile
+++ b/Makefile
@@ -21,7 +21,7 @@ test: compile
$(EMACS) -Q --batch -L . -l compat-tests.el -f 
ert-run-tests-batch-and-exit
 
 clean:
-   $(RM) $(BYTEC) compat.texi compat.info
+   $(RM) $(BYTEC) compat.info
 
 .el.elc:
$(EMACS) -Q --batch -L . -f batch-byte-compile $^

[nongnu] elpa/geiser dcbd8e81ac: autodoc: new-style eldoc interface

[ELPA Syncer]

branch: elpa/geiser
commit dcbd8e81ac19ec808a4980ea99e7ee3f4f354c79
Author: jao 
Commit: jao 

autodoc: new-style eldoc interface

We remove by-now obsolete usage of eldoc, and depend on the elpa
package to ensure backwards compatibility.
---
 elisp/geiser-autodoc.el | 63 +++--
 elisp/geiser.el |  2 +-
 2 files changed, 30 insertions(+), 35 deletions(-)

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 7bd8a8c649..54669a147d 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -1,6 +1,6 @@
-;;; geiser-autodoc.el -- autodoc mode
+;;; geiser-autodoc.el -- autodoc mode  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2015, 2016, 2021 Jose Antonio Ortega 
Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2015, 2016, 2021, 2022 Jose Antonio 
Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -58,22 +58,22 @@ when `geiser-autodoc-display-module-p' is on."
 (defsubst geiser-autodoc--clean-cache ()
   (setq geiser-autodoc--cached-signatures nil))
 
-(defun geiser-autodoc--show-signatures (ret)
+(defun geiser-autodoc--show-signatures (ret callback)
   (let ((res (geiser-eval--retort-result ret))
 (signs))
 (when res
   (dolist (item res)
 (push (cons (format "%s" (car item)) (cdr item)) signs))
-  (let ((str (geiser-autodoc--autodoc (geiser-syntax--scan-sexps) signs)))
-(when (not (string-equal str eldoc-last-message))
-  (eldoc-message str)))
+  (let ((str (geiser-autodoc--autodoc (geiser-syntax--scan-sexps) nil 
signs)))
+(funcall callback str))
   (setq geiser-autodoc--cached-signatures signs
 
-(defun geiser-autodoc--get-signatures (funs)
+(defun geiser-autodoc--get-signatures (funs callback)
   (when funs
 (let ((m (format "'(%s)" (mapconcat 'identity funs " "
   (geiser-eval--send `(:eval (:ge autodoc (:scm ,m)))
- 'geiser-autodoc--show-signatures)))
+ (lambda (r)
+   (geiser-autodoc--show-signatures r callback)
   (and (or (assoc (car funs) geiser-autodoc--cached-signatures)
(assoc (cadr funs) geiser-autodoc--cached-signatures))
geiser-autodoc--cached-signatures))
@@ -147,7 +147,7 @@ when `geiser-autodoc-display-module-p' is on."
 (args (cdr (assoc "args" signature)))
 (module (cdr (assoc "module" signature
 (if (not args)
-   (geiser-autodoc--value-str proc module (cdr (assoc "value" signature)))
+(geiser-autodoc--value-str proc module (cdr (assoc "value" signature)))
   (save-current-buffer
 (set-buffer (geiser-syntax--font-lock-buffer))
 (erase-buffer)
@@ -162,15 +162,18 @@ when `geiser-autodoc-display-module-p' is on."
 (insert ")")
 (buffer-substring (point-min) (point))
 
-(defun geiser-autodoc--autodoc (path &optional signs)
-  (let ((signs (or signs (geiser-autodoc--get-signatures (mapcar 'car path
+(defun geiser-autodoc--autodoc (path callback &optional signs)
+  (let ((signs (or signs
+   (geiser-autodoc--get-signatures (mapcar 'car path) 
callback)))
 (p (car path))
 (s))
-(while (and p (not s))
-  (unless (setq s (cdr (assoc (car p) signs)))
-(setq p (car path))
-(setq path (cdr path
-(when s (geiser-autodoc--str p s
+(if callback
+t
+  (while (and p (not s))
+(unless (setq s (cdr (assoc (car p) signs)))
+  (setq p (car path))
+  (setq path (cdr path
+  (when s (geiser-autodoc--str p s)
 
 
 ;;; Autodoc functions:
@@ -187,18 +190,18 @@ when `geiser-autodoc-display-module-p' is on."
 (defsubst geiser-autodoc--disinhibit-autodoc ()
   (setq geiser-autodoc--inhibit-function nil))
 
-(defsubst geiser-autodoc--autodoc-at-point ()
-  (geiser-autodoc--autodoc (geiser-syntax--scan-sexps)))
+(defsubst geiser-autodoc--autodoc-at-point (callback)
+  (geiser-autodoc--autodoc (geiser-syntax--scan-sexps) callback))
 
-(defun geiser-autodoc--eldoc-function ()
+(defun geiser-autodoc--eldoc-function (callback)
   (ignore-errors
 (when (not (geiser-autodoc--inhibit))
-  (geiser-autodoc--autodoc-at-point
+  (geiser-autodoc--autodoc-at-point callback
 
 (defun geiser-autodoc-show ()
   "Show the signature or value of the symbol at point in the echo area."
   (interactive)
-  (message (geiser-autodoc--autodoc-at-point)))
+  (message (geiser-autodoc--autodoc-at-point nil)))
 
 
 ;;; Autodoc mode:
@@ -218,8 +221,11 @@ displayed in the minibuffer."
   :lighter geiser-autodoc-mode-string
   :group 'geiser-autodoc
 
-  (set (make-local-variable 'eldoc-documentation-function)
-   (when geiser-autodoc-mode 'geiser-autodoc--eldoc-function))
+  (if geiser-autodoc-mode
+  (add-hook 'eldoc-documentation-functi

[nongnu] elpa/geiser 1300dd1a41: autodoc: make do without dependending on elpa's eldoc

[ELPA Syncer]

branch: elpa/geiser
commit 1300dd1a410a172588c529734a4fb1c8b58eaef1
Author: jao 
Commit: jao 

autodoc: make do without dependending on elpa's eldoc

Playing the trick of checking for eldoc-documentation-functions to
know wheter we're at a new enough version, and (hopefully) falling
back to the old implementation otherwise.
---
 elisp/geiser-autodoc.el | 17 ++---
 elisp/geiser.el |  2 +-
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 54669a147d..674e0dd5d6 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -193,10 +193,10 @@ when `geiser-autodoc-display-module-p' is on."
 (defsubst geiser-autodoc--autodoc-at-point (callback)
   (geiser-autodoc--autodoc (geiser-syntax--scan-sexps) callback))
 
-(defun geiser-autodoc--eldoc-function (callback)
+(defun geiser-autodoc--eldoc-function (&optional callback)
   (ignore-errors
 (when (not (geiser-autodoc--inhibit))
-  (geiser-autodoc--autodoc-at-point callback
+  (geiser-autodoc--autodoc-at-point (or callback 'eldoc-message)
 
 (defun geiser-autodoc-show ()
   "Show the signature or value of the symbol at point in the echo area."
@@ -221,11 +221,14 @@ displayed in the minibuffer."
   :lighter geiser-autodoc-mode-string
   :group 'geiser-autodoc
 
-  (if geiser-autodoc-mode
-  (add-hook 'eldoc-documentation-functions
-#'geiser-autodoc--eldoc-function nil t)
-(remove-hook 'eldoc-documentation-functions
- #'geiser-autodoc--eldoc-function t))
+  (if (boundp 'eldoc-documentation-functions)
+  (if geiser-autodoc-mode
+  (add-hook 'eldoc-documentation-functions
+#'geiser-autodoc--eldoc-function nil t)
+(remove-hook 'eldoc-documentation-functions
+ #'geiser-autodoc--eldoc-function t))
+(set (make-local-variable 'eldoc-documentation-function)
+ (when geiser-autodoc-mode 'geiser-autodoc--eldoc-function)))
   (set (make-local-variable 'eldoc-minor-mode-string) nil)
   (set (make-local-variable 'eldoc-idle-delay) geiser-autodoc-delay)
   (eldoc-mode (if geiser-autodoc-mode 1 -1))
diff --git a/elisp/geiser.el b/elisp/geiser.el
index e89f3d3736..7fad7d0167 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -11,7 +11,7 @@
 ;; Maintainer: Jose Antonio Ortega Ruiz (j...@gnu.org)
 ;; Keywords: languages, scheme, geiser
 ;; Homepage: https://gitlab.com/emacs-geiser/
-;; Package-Requires: ((emacs "25.1") (eldoc "1.11") (transient "0.3") (project 
"0.8.1"))
+;; Package-Requires: ((emacs "25.1") (transient "0.3") (project "0.8.1"))
 ;; SPDX-License-Identifier: BSD-3-Clause
 ;; Version: 0.23.2
 

[elpa] externals/flymake-proselint 2031f3df76 2/5: Update format

[ELPA Syncer]

branch: externals/flymake-proselint
commit 2031f3df76f59036bf67fd523ec6aad9642b1a3f
Author: Manuel Uberti 
Commit: Manuel Uberti 

Update format
---
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 10597e23a6..c3e705abeb 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@ This package makes it possible to use 
[proselint](http://proselint.com/) with Em
 
 ## Getting started
 
-`flymake-proselint` is listed on [GNU 
ELPA](http://elpa.gnu.org/packages/flymake-proselint.html), so you can use 
M-x list-packages to
+`flymake-proselint` is listed on [GNU 
ELPA](http://elpa.gnu.org/packages/flymake-proselint.html), so you can use `M-x 
list-packages` to
 install it.
 
 Then you just need to activate it in the modes you want your prose to be

[elpa] externals/flymake-proselint updated (1d240a7b69 -> 6a99865c7a)

[ELPA Syncer]

elpasync pushed a change to branch externals/flymake-proselint.

  from  1d240a7b69 Move to SourceHut
   new  de88c00d8b Update URL
   new  2031f3df76 Update format
   new  42b3ffa259 Move to SourceHut
   new  4e3ea1e3b2 Revert "Move to SourceHut"
   new  6a99865c7a Merge remote-tracking branch 'old-repo/master'


Summary of changes:
 README.md| 15 ++-
 flymake-proselint.el |  2 +-
 2 files changed, 15 insertions(+), 2 deletions(-)

[elpa] externals/flymake-proselint de88c00d8b 1/5: Update URL

[ELPA Syncer]

branch: externals/flymake-proselint
commit de88c00d8b5ead02f19c79fb19f70d30c4a10286
Author: Manuel Uberti 
Commit: Manuel Uberti 

Update URL
---
 flymake-proselint.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flymake-proselint.el b/flymake-proselint.el
index 2b0ab4bcec..fe2860b0e7 100644
--- a/flymake-proselint.el
+++ b/flymake-proselint.el
@@ -6,7 +6,7 @@
 ;; Version: 0.2.3
 ;; Keywords: convenience
 ;; Package-Requires: ((emacs "26.1"))
-;; URL: https://github.com/manuel-uberti/flymake-proselint
+;; URL: https://git.sr.ht/~manuel-uberti/flycheck-proselint
 
 ;; flymake-proselint is free software; you can redistribute it and/or modify it
 ;; under the terms of the GNU General Public License as published by the Free

[elpa] externals/flymake-proselint 4e3ea1e3b2 4/5: Revert "Move to SourceHut"

[ELPA Syncer]

branch: externals/flymake-proselint
commit 4e3ea1e3b280a21690c8620f97f8b2d56ab12eb3
Author: Manuel Uberti 
Commit: Manuel Uberti 

Revert "Move to SourceHut"

This reverts commit 42b3ffa259bac2df9161c8fee8ab8784c28b101d.
---
 README.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/README.md b/README.md
index 4baf58e994..c3e705abeb 100644
--- a/README.md
+++ b/README.md
@@ -15,3 +15,5 @@ checked with something like:
 (flymake-mode)
 (flymake-proselint-setup)))
 ```
+
+

[elpa] externals/flymake-proselint 42b3ffa259 3/5: Move to SourceHut

[ELPA Syncer]

branch: externals/flymake-proselint
commit 42b3ffa259bac2df9161c8fee8ab8784c28b101d
Author: Manuel Uberti 
Commit: Manuel Uberti 

Move to SourceHut
---
 README.md | 2 --
 1 file changed, 2 deletions(-)

diff --git a/README.md b/README.md
index c3e705abeb..4baf58e994 100644
--- a/README.md
+++ b/README.md
@@ -15,5 +15,3 @@ checked with something like:
 (flymake-mode)
 (flymake-proselint-setup)))
 ```
-
-

[elpa] externals/flymake-proselint 6a99865c7a 5/5: Merge remote-tracking branch 'old-repo/master'

[ELPA Syncer]

branch: externals/flymake-proselint
commit 6a99865c7ac6474b8c5d1f9a1ae2384667f06d36
Merge: 4e3ea1e3b2 1d240a7b69
Author: Manuel Uberti 
Commit: Manuel Uberti 

Merge remote-tracking branch 'old-repo/master'

* old-repo/master:
  Move to SourceHut
---
 README.md | 1 -
 1 file changed, 1 deletion(-)

diff --git a/README.md b/README.md
index c3e705abeb..6370174b7a 100644
--- a/README.md
+++ b/README.md
@@ -16,4 +16,3 @@ checked with something like:
 (flymake-proselint-setup)))
 ```
 
-