[elpa] externals/compat 62da199f0a: Version 29.1.3.2

[ELPA Syncer]

branch: externals/compat
commit 62da199f0a9c2f8917bfe74b3ec1882f9d6a9d02
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 29.1.3.2
---
 NEWS.org| 4 +++-
 compat.el   | 2 +-
 compat.texi | 6 +++---
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index e770170138..eaaf8031fa 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,6 @@
 #+title: compat.el - Changelog
 
-* Development
+* Release of "Compat" Version 29.1.3.2
 
 - compat-26: Add ~make-temp-file~ with optional argument TEXT.
 - compat-27: Mark ~compat-call dired-get-marked-files~ as obsolete. See the
@@ -9,6 +9,8 @@
 - compat-29: Add ~ert-with-temp-file~ and ~ert-with-temp-directory~.
 - compat-29: Add ~set-transient-map~ with optional arguments MESSAGE and 
TIMEOUT.
 
+(Release <2023-02-01 Wed>)
+
 * Release of "Compat" Version 29.1.3.1
 
 - Fix regression, which prevented loading Compat in interpreted mode. We ensure
diff --git a/compat.el b/compat.el
index 076c0cfa06..36963a516e 100644
--- a/compat.el
+++ b/compat.el
@@ -4,7 +4,7 @@
 
 ;; Author: Philip Kaludercic , Daniel Mendler 

 ;; Maintainer: Daniel Mendler , Compat Development 
<~pkal/compat-de...@lists.sr.ht>
-;; Version: 29.1.3.1
+;; Version: 29.1.3.2
 ;; URL: https://github.com/emacs-compat/compat
 ;; Package-Requires: ((emacs "24.4"))
 ;; Keywords: lisp
diff --git a/compat.texi b/compat.texi
index 86f23459dd..2867d350e7 100644
--- a/compat.texi
+++ b/compat.texi
@@ -31,7 +31,7 @@ modify this GNU manual.”
 @finalout
 @titlepage
 @title "Compat" Manual
-@subtitle For version 29.1.3.0
+@subtitle For version 29.1.3.2
 @author Philip Kaludercic, Daniel Mendler
 @page
 @vskip 0pt plus 1filll
@@ -46,7 +46,7 @@ modify this GNU manual.”
 
 This manual documents the usage of the "Compat" Emacs lisp library,
 the forward-compatibility library for Emacs Lisp, corresponding to
-version 29.1.3.0.
+version 29.1.3.2.
 
 @insertcopying
 @end ifnottex
@@ -106,7 +106,7 @@ The intended use-case for this library is for package 
developers to
 add as a dependency in the header:
 
 @example
-;; Package-Requires: ((emacs "24.4") (compat "29.1.3.0"))
+;; Package-Requires: ((emacs "24.4") (compat "29.1.3.2"))
 @end example
 
 There is no need to depend on @code{emacs} 24.4 specifically.  One can

[elpa] externals/ef-themes e60d89296a: Inherit 'mode-line' in powerline instead of 'mode-line-active'

[ELPA Syncer]

branch: externals/ef-themes
commit e60d89296a28090609275bf3abad0e1e3ec16461
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Inherit 'mode-line' in powerline instead of 'mode-line-active'

The latter is not available on Emacs 27.
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 93ade15c68..4c0c03357e 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1828,7 +1828,7 @@ Optional prefix argument MAPPINGS has the same meaning as 
for
 `(persp-selected-face ((,c :inherit mode-line-emphasis)))
  powerline
 `(powerline-active0 ((,c :background ,fg-dim :foreground ,bg-main)))
-`(powerline-active1 ((,c :inherit mode-line-active)))
+`(powerline-active1 ((,c :inherit mode-line)))
 `(powerline-active2 ((,c :inherit mode-line-inactive)))
 `(powerline-inactive0 ((,c :background ,bg-active :foreground ,fg-dim)))
 `(powerline-inactive1 ((,c :background ,bg-main :foreground ,fg-dim)))

[elpa] externals/standard-themes bd2291c6ab: Inherit 'mode-line' in powerline instead of 'mode-line-active'

[ELPA Syncer]

branch: externals/standard-themes
commit bd2291c6ab762cc4a467b90716389c0d4da06373
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Inherit 'mode-line' in powerline instead of 'mode-line-active'

The latter is not available on Emacs 27.
---
 standard-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/standard-themes.el b/standard-themes.el
index dd22f9ff6e..612e413a36 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -1869,7 +1869,7 @@ Optional prefix argument MAPPINGS has the same meaning as 
for
 `(persp-selected-face ((,c :inherit mode-line-emphasis)))
  powerline
 `(powerline-active0 ((,c :background ,fg-dim :foreground ,bg-main)))
-`(powerline-active1 ((,c :inherit mode-line-active)))
+`(powerline-active1 ((,c :inherit mode-line)))
 `(powerline-active2 ((,c :inherit mode-line-inactive)))
 `(powerline-inactive0 ((,c :background ,bg-active :foreground ,fg-dim)))
 `(powerline-inactive1 ((,c :background ,bg-main :foreground ,fg-dim)))

[elpa] externals/compat b1e2a804a4 1/2: Improve manual

[ELPA Syncer]

branch: externals/compat
commit b1e2a804a453ee93713a5a4ad8c45a134dffbcb8
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve manual
---
 compat.texi | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/compat.texi b/compat.texi
index 2867d350e7..2e013ccd26 100644
--- a/compat.texi
+++ b/compat.texi
@@ -223,7 +223,7 @@ macro @code{setopt} is such an example.
 
 @item
 The added or extended function belongs to the ``application level''
-and not the ``library level''.  Features which not preloaded often
+and not the ``library level''.  Features which are not preloaded often
 belong to the ``application level''.  Application examples are
 programming modes or modes like Dired, IRC and Gnus.  If these modes
 are extended with new functions, these are not ported back.
@@ -231,12 +231,17 @@ are extended with new functions, these are not ported 
back.
 @item
 An existing function or macro was extended by some new functionality.
 To support these cases, the function or macro would have to be
-advised. Since this is invasive and adds significant overhead, even
+advised.  Since this is invasive and adds significant overhead, even
 when the new feature is not used, Compat does not use advices.  As a
 compromise, compatibility functions and macros with a changed calling
 convention or behavior can be accessed via the @code{compat-function}
-and @code{compat-call} macros. An example is the function
-@code{plist-get}.
+and @code{compat-call} macros.  In this manual we call such
+definitions ``Extended Definitions''. An example is the function
+@code{plist-get}.  Note that extended functions are subject to closer
+scrutiny, since their usage is not completely painless thanks to
+@code{compat-call}.  If a particular extended function does not see
+much usage or the extension yields only marginal benefits, we may not
+provide it as part of Compat.
 
 @item
 Bug fixes are usually not ported back as part of Compat.  Sometimes

[elpa] externals/compat d85e90bf1f 2/2: CI: Do not ignore texi

[ELPA Syncer]

branch: externals/compat
commit d85e90bf1f917aae11367eb62d35d2c423c6173c
Author: Daniel Mendler 
Commit: Daniel Mendler 

CI: Do not ignore texi

We test in CI if the manuals builds.
---
 .github/workflows/makefile.yml | 2 --
 1 file changed, 2 deletions(-)

diff --git a/.github/workflows/makefile.yml b/.github/workflows/makefile.yml
index 0764e3452e..f0ae185a8f 100644
--- a/.github/workflows/makefile.yml
+++ b/.github/workflows/makefile.yml
@@ -5,12 +5,10 @@ on:
 paths-ignore:
   - '**.md'
   - '**.org'
-  - '**.texi'
   pull_request:
 paths-ignore:
   - '**.md'
   - '**.org'
-  - '**.texi'
 
 jobs:
   test:

[elpa] externals/compat updated (62da199f0a -> d85e90bf1f)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  62da199f0a Version 29.1.3.2
   new  b1e2a804a4 Improve manual
   new  d85e90bf1f CI: Do not ignore texi


Summary of changes:
 .github/workflows/makefile.yml |  2 --
 compat.texi| 13 +
 2 files changed, 9 insertions(+), 6 deletions(-)

[elpa] externals/realgud-lldb 74d442abc8 2/2: Merge branch 'master' of github.com:realgud/realgud-lldb

[ELPA Syncer]

branch: externals/realgud-lldb
commit 74d442abc8469bb6277702f9c60fa479848009b2
Merge: 3885efb54c 19a2c0a8b2
Author: rocky 
Commit: rocky 

Merge branch 'master' of github.com:realgud/realgud-lldb
---
 lldb/lldb.el | 8 
 1 file changed, 8 insertions(+)

diff --git a/lldb/lldb.el b/lldb/lldb.el
index fc8f3901cc..30a7ea555b 100644
--- a/lldb/lldb.el
+++ b/lldb/lldb.el
@@ -81,6 +81,14 @@ fringe and marginal icons.
(with-current-buffer cmd-buf
  (set (make-local-variable 'realgud--lldb-file-remap)
   (make-hash-table :test 'equal))
+ ;; The following directs lldb to emit full paths
+ ;; when stopping at a breakpoint,
+ ;; which lets us find the file.
+ ;; Unfortunately lldb only emits base file names
+ ;; when setting breakpoints,
+ ;; so we still show an unhelpful prompt at that time.
+ (realgud-command "settings set frame-format frame #${frame.index}: 
${frame.pc}{ ${module.file.basename}{\`${function.name}}}{ at 
${line.file.fullpath}:${line.number}}\n"
+  nil nil nil)
  (realgud:remove-ansi-schmutz)
  )
   )

[elpa] externals/realgud-lldb 3885efb54c 1/2: Add GPLv3 LICENCSE

[ELPA Syncer]

branch: externals/realgud-lldb
commit 3885efb54c6331a4f6920b0f0d934c5c10f8fa73
Author: rocky 
Commit: rocky 

Add GPLv3 LICENCSE
---
 LICENSE | 674 
 1 file changed, 674 insertions(+)

diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..f288702d2f
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or seco

[nongnu] elpa/wgrep f40e1edb48 1/8: Fix whitespace

[ELPA Syncer]

branch: elpa/wgrep
commit f40e1edb483e9f392f3d421b3a1cf7ac3831f3dc
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix whitespace
---
 wgrep-ag.el  | 12 ++--
 wgrep-subtest.el |  1 -
 wgrep.el |  2 +-
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/wgrep-ag.el b/wgrep-ag.el
index 2cd9e8f39f..1ea4372722 100644
--- a/wgrep-ag.el
+++ b/wgrep-ag.el
@@ -67,14 +67,14 @@ when you manage to call ag with --nogroup.")
 (goto-char (point-min))
 ;; Look for the first useful result line.
 (if (re-search-forward (concat wgrep-ag-grouped-result-file-regexp
-  "\\|"
-  wgrep-ag-ungrouped-result-regexp))
-   (add-text-properties (point-min) (line-beginning-position)
-'(read-only t wgrep-header t))
+   "\\|"
+   wgrep-ag-ungrouped-result-regexp))
+(add-text-properties (point-min) (line-beginning-position)
+ '(read-only t wgrep-header t))
   ;; No results in this buffer, let's mark the whole thing as
   ;; header.
   (add-text-properties (point-min) (point-max)
-  '(read-only t wgrep-header t)))
+   '(read-only t wgrep-header t)))
 
 ;; OK, header dealt with. Now let's try find the footer.
 (goto-char (point-max))
@@ -87,7 +87,7 @@ when you manage to call ag with --nogroup.")
 ;; footer.
 (when (zerop (forward-line 1))
   (add-text-properties (point) (point-max)
-  '(read-only t wgrep-footer t)
+   '(read-only t wgrep-footer t)
 
 (defun wgrep-ag-parse-command-results ()
   ;; Note that this function is called with the buffer narrowed to
diff --git a/wgrep-subtest.el b/wgrep-subtest.el
index 7e4974a505..17529d3677 100644
--- a/wgrep-subtest.el
+++ b/wgrep-subtest.el
@@ -28,4 +28,3 @@
(wgrep-save-all-buffers)
;; compare file contents is valid
(should (equal "FOO2\nBAZ\n" (wgrep-test--get-contents file)))
-
diff --git a/wgrep.el b/wgrep.el
index e9833d7d46..9b525dddf0 100644
--- a/wgrep.el
+++ b/wgrep.el
@@ -1009,7 +1009,7 @@ These changes are not immediately saved to disk unless
  ((> all-length wgrep-too-many-file-length)
   (when (y-or-n-p (eval-when-compile
 (concat
- "Edited files are too many." 
+ "Edited files are too many."
  " Apply the changes to disk with non-confirmation?")))
 (setq wgrep-auto-apply-disk t
 (while tran

[nongnu] elpa/wgrep updated (f9687c28bb -> 712cfff548)

[ELPA Syncer]

elpasync pushed a change to branch elpa/wgrep.

  from  f9687c28bb Merge branch 'outline' of 
https://github.com/tarsiiformes/Emacs-wgrep into tarsiiformes-outline
   new  acea5b6902 add editorconfig
   new  f40e1edb48 Fix whitespace
   new  1f2a335b9c Use line-beginning-position instead of point-at-bol
   new  0ebf0781f8 Merge branch 'obsolete' of github.com:tarsiiformes/wgrep 
into tarsiiformes-obsolete
   new  6202978e74 Merge branch 'tarsiiformes-obsolete'
   new  3faf2e429e revision up
   new  b5ed28d959 apply editorconfig
   new  712cfff548 add gitignore temporary directory created when unittest


Summary of changes:
 .editorconfig| 12 
 .gitignore   |  1 +
 wgrep-ag.el  | 14 +++---
 wgrep-subtest.el |  1 -
 wgrep-test.el|  2 +-
 wgrep.el | 41 +
 6 files changed, 42 insertions(+), 29 deletions(-)
 create mode 100644 .editorconfig

[nongnu] elpa/wgrep 1f2a335b9c 2/8: Use line-beginning-position instead of point-at-bol

[ELPA Syncer]

branch: elpa/wgrep
commit 1f2a335b9c72b963668c31ee079ab943800b212e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use line-beginning-position instead of point-at-bol

Likewise use line-end-position instead of point-at-eol.

The point-at-{bol,eol} functions are obsolete since
Emacs 29 / b7e867b841f47dcff3aeaef9b5608a237386ce70.
---
 wgrep.el | 37 +++--
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/wgrep.el b/wgrep.el
index 9b525dddf0..1dc7176e5f 100644
--- a/wgrep.el
+++ b/wgrep.el
@@ -262,7 +262,8 @@ non editable region.")
   string)))
 
 (defun wgrep-delete-whole-line ()
-  (delete-region (point-at-bol) (point-at-bol 2)))
+  (delete-region (line-beginning-position)
+ (line-beginning-position 2)))
 
 (defun wgrep-goto-line (line)
   (goto-char (point-min))
@@ -338,7 +339,7 @@ non editable region.")
 (goto-char next)
 (while (and (not (eobp))
 (or (null (setq fn (get-text-property
-(point-at-bol)
+(line-beginning-position)
 'wgrep-line-filename)))
 (string= fn file)))
   (when fn
@@ -357,7 +358,7 @@ non editable region.")
 (with-current-buffer wgrep-sibling-buffer
   (when (wgrep-goto-grep-line file number)
 (buffer-substring-no-properties
- (point) (point-at-eol))
+ (point) (line-end-position))
 
 ;;;
 ;;; Prepare and parse grep <-> wgrep
@@ -469,8 +470,8 @@ non editable region.")
 (while (looking-at (format "^%s[-\0]%d-" fregexp next))
   (let ((start (match-beginning 0))
 (end (match-end 0))
-(bol (point-at-bol))
-(eol (point-at-eol)))
+(bol (line-beginning-position))
+(eol (line-end-position)))
 (put-text-property start end 'wgrep-line-filename filename)
 (put-text-property start end 'wgrep-line-number next)
 (put-text-property start (+ start flen) fprop filename)
@@ -513,9 +514,9 @@ non editable region.")
 (forward-line -1
(t
 ;; Add property but this may be removed by 
`wgrep-prepare-context-while'
-(put-text-property
- (point-at-bol) (point-at-eol)
- 'wgrep-ignore t)))
+(put-text-property (line-beginning-position)
+   (line-end-position)
+   'wgrep-ignore t)))
   (forward-line 1
 
 (defun wgrep-current-file-and-linum ()
@@ -600,15 +601,15 @@ non editable region.")
 
 ;; get overlay BEG and END is passed by `after-change-functions'
 (defun wgrep-editing-overlay (&optional start end)
-  (let ((beg (or start (point-at-bol)))
-(fin (or end (point-at-eol)))
+  (let ((beg (or start (line-beginning-position)))
+(fin (or end (line-end-position)))
 ov bol eol
 ;; beginning/end of grep
 bog eog)
 (goto-char beg)
-(setq bol (point-at-bol))
+(setq bol (line-beginning-position))
 (goto-char fin)
-(setq eol (point-at-eol))
+(setq eol (line-end-position))
 (catch 'done
   (dolist (o (overlays-in bol eol))
 ;; find overlay that have changed by user.
@@ -734,7 +735,7 @@ non editable region.")
 
 (defun wgrep-replace-to-new-line (new-text)
   ;; delete grep extracted region (restricted to a line)
-  (delete-region (point-at-bol) (point-at-eol))
+  (delete-region (line-beginning-position) (line-end-position))
   (let ((beg (point))
 end)
 (insert new-text)
@@ -746,7 +747,7 @@ non editable region.")
 
 (defun wgrep-flush-whole-line ()
   (wgrep-put-overlay-to-file-buffer
-   (point-at-bol) (point-at-eol))
+   (line-beginning-position) (line-end-position))
   (wgrep-delete-whole-line))
 
 ;; EDITOR ::= FILE (absolute-path) . EDITS
@@ -764,7 +765,7 @@ non editable region.")
 (let* ((name (get-text-property (point) 'wgrep-line-filename))
(linum (get-text-property (point) 'wgrep-line-number))
(start (next-single-property-change
-   (point) 'wgrep-line-filename nil (point-at-eol)))
+   (point) 'wgrep-line-filename nil (line-end-position)))
(file (expand-file-name name default-directory))
(file-error nil)
(old (overlay-get edit-field 'wgrep-old-text))
@@ -905,7 +906,7 @@ NEW may be nil this means deleting whole line."
 ;; Check buffer line was modified after execute grep.
 (unless (string= old
  (buffer-substring-no-properties
-  (point-at-bol) (point-at-eol)))
+  (line-beginning-position) (line-end-position)))
   (signal 'wgrep-error (list "Buffer was changed after grep.")))
 (cond
  (new
@@ -982,8 +983,8 @@ a file."
 (defun wgrep-maybe-echo-error-at-point ()
   (when (null (current-message))
 (let

[nongnu] elpa/wgrep 712cfff548 8/8: add gitignore temporary directory created when unittest

[ELPA Syncer]

branch: elpa/wgrep
commit 712cfff5484d64171bd9a58c5431eeba4ac123fa
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

add gitignore temporary directory created when unittest
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
index c531d9867f..8ee585341d 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *.elc
+ext

[nongnu] elpa/wgrep acea5b6902 3/8: add editorconfig

[ELPA Syncer]

branch: elpa/wgrep
commit acea5b690265759a09df52e76ce34ee8acb44c06
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

add editorconfig
---
 .editorconfig | 12 
 1 file changed, 12 insertions(+)

diff --git a/.editorconfig b/.editorconfig
new file mode 100644
index 00..d36d24dceb
--- /dev/null
+++ b/.editorconfig
@@ -0,0 +1,12 @@
+# Editor configuration, see https://editorconfig.org
+root = true
+
+[*]
+charset = utf-8
+indent_style = space
+indent_size = 2
+insert_final_newline = true
+trim_trailing_whitespace = true
+
+[*.md]
+trim_trailing_whitespace = false

[nongnu] elpa/wgrep 3faf2e429e 6/8: revision up

[ELPA Syncer]

branch: elpa/wgrep
commit 3faf2e429ee36f1c71cd637f0a550d31c5a0bf56
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

revision up
---
 wgrep-ag.el | 2 +-
 wgrep.el| 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/wgrep-ag.el b/wgrep-ag.el
index 1ea4372722..339c026757 100644
--- a/wgrep-ag.el
+++ b/wgrep-ag.el
@@ -7,7 +7,7 @@
 ;; Package-Requires: ((wgrep "2.3.2"))
 ;; URL: http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep-ag.el
 ;; Emacs: GNU Emacs 25 or later
-;; Version: 2.3.3
+;; Version: 2.3.4
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
diff --git a/wgrep.el b/wgrep.el
index 1dc7176e5f..f5312d855d 100644
--- a/wgrep.el
+++ b/wgrep.el
@@ -6,7 +6,7 @@
 ;; Keywords: grep edit extensions
 ;; URL: http://github.com/mhayashi1120/Emacs-wgrep/raw/master/wgrep.el
 ;; Emacs: GNU Emacs 25 or later
-;; Version: 2.3.3
+;; Version: 2.3.4
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as

[nongnu] elpa/wgrep 6202978e74 5/8: Merge branch 'tarsiiformes-obsolete'

[ELPA Syncer]

branch: elpa/wgrep
commit 6202978e7455218ae971197635f8504ff49dbd9a
Merge: acea5b6902 0ebf0781f8
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

Merge branch 'tarsiiformes-obsolete'
---
 wgrep-ag.el  | 12 ++--
 wgrep-subtest.el |  1 -
 wgrep.el | 39 ---
 3 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/wgrep-ag.el b/wgrep-ag.el
index 2cd9e8f39f..1ea4372722 100644
--- a/wgrep-ag.el
+++ b/wgrep-ag.el
@@ -67,14 +67,14 @@ when you manage to call ag with --nogroup.")
 (goto-char (point-min))
 ;; Look for the first useful result line.
 (if (re-search-forward (concat wgrep-ag-grouped-result-file-regexp
-  "\\|"
-  wgrep-ag-ungrouped-result-regexp))
-   (add-text-properties (point-min) (line-beginning-position)
-'(read-only t wgrep-header t))
+   "\\|"
+   wgrep-ag-ungrouped-result-regexp))
+(add-text-properties (point-min) (line-beginning-position)
+ '(read-only t wgrep-header t))
   ;; No results in this buffer, let's mark the whole thing as
   ;; header.
   (add-text-properties (point-min) (point-max)
-  '(read-only t wgrep-header t)))
+   '(read-only t wgrep-header t)))
 
 ;; OK, header dealt with. Now let's try find the footer.
 (goto-char (point-max))
@@ -87,7 +87,7 @@ when you manage to call ag with --nogroup.")
 ;; footer.
 (when (zerop (forward-line 1))
   (add-text-properties (point) (point-max)
-  '(read-only t wgrep-footer t)
+   '(read-only t wgrep-footer t)
 
 (defun wgrep-ag-parse-command-results ()
   ;; Note that this function is called with the buffer narrowed to
diff --git a/wgrep-subtest.el b/wgrep-subtest.el
index 7e4974a505..17529d3677 100644
--- a/wgrep-subtest.el
+++ b/wgrep-subtest.el
@@ -28,4 +28,3 @@
(wgrep-save-all-buffers)
;; compare file contents is valid
(should (equal "FOO2\nBAZ\n" (wgrep-test--get-contents file)))
-
diff --git a/wgrep.el b/wgrep.el
index e9833d7d46..1dc7176e5f 100644
--- a/wgrep.el
+++ b/wgrep.el
@@ -262,7 +262,8 @@ non editable region.")
   string)))
 
 (defun wgrep-delete-whole-line ()
-  (delete-region (point-at-bol) (point-at-bol 2)))
+  (delete-region (line-beginning-position)
+ (line-beginning-position 2)))
 
 (defun wgrep-goto-line (line)
   (goto-char (point-min))
@@ -338,7 +339,7 @@ non editable region.")
 (goto-char next)
 (while (and (not (eobp))
 (or (null (setq fn (get-text-property
-(point-at-bol)
+(line-beginning-position)
 'wgrep-line-filename)))
 (string= fn file)))
   (when fn
@@ -357,7 +358,7 @@ non editable region.")
 (with-current-buffer wgrep-sibling-buffer
   (when (wgrep-goto-grep-line file number)
 (buffer-substring-no-properties
- (point) (point-at-eol))
+ (point) (line-end-position))
 
 ;;;
 ;;; Prepare and parse grep <-> wgrep
@@ -469,8 +470,8 @@ non editable region.")
 (while (looking-at (format "^%s[-\0]%d-" fregexp next))
   (let ((start (match-beginning 0))
 (end (match-end 0))
-(bol (point-at-bol))
-(eol (point-at-eol)))
+(bol (line-beginning-position))
+(eol (line-end-position)))
 (put-text-property start end 'wgrep-line-filename filename)
 (put-text-property start end 'wgrep-line-number next)
 (put-text-property start (+ start flen) fprop filename)
@@ -513,9 +514,9 @@ non editable region.")
 (forward-line -1
(t
 ;; Add property but this may be removed by 
`wgrep-prepare-context-while'
-(put-text-property
- (point-at-bol) (point-at-eol)
- 'wgrep-ignore t)))
+(put-text-property (line-beginning-position)
+   (line-end-position)
+   'wgrep-ignore t)))
   (forward-line 1
 
 (defun wgrep-current-file-and-linum ()
@@ -600,15 +601,15 @@ non editable region.")
 
 ;; get overlay BEG and END is passed by `after-change-functions'
 (defun wgrep-editing-overlay (&optional start end)
-  (let ((beg (or start (point-at-bol)))
-(fin (or end (point-at-eol)))
+  (let ((beg (or start (line-beginning-position)))
+(fin (or end (line-end-position)))
 ov bol eol
 ;; beginning/end of grep
 bog eog)
 (goto-char beg)
-(setq bol (point-at-bol))
+(setq bol (line-beginning-position))
 (goto-char fin)
-(setq eol (point-at-eol))
+(setq eol (line-end-position))
 (catch 'done
   (dolist (o (overlays-

[nongnu] elpa/wgrep 0ebf0781f8 4/8: Merge branch 'obsolete' of github.com:tarsiiformes/wgrep into tarsiiformes-obsolete

[ELPA Syncer]

branch: elpa/wgrep
commit 0ebf0781f81a758d6df34d5ce0c9d7723f176239
Merge: acea5b6902 1f2a335b9c
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

Merge branch 'obsolete' of github.com:tarsiiformes/wgrep into 
tarsiiformes-obsolete
---
 wgrep-ag.el  | 12 ++--
 wgrep-subtest.el |  1 -
 wgrep.el | 39 ---
 3 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/wgrep-ag.el b/wgrep-ag.el
index 2cd9e8f39f..1ea4372722 100644
--- a/wgrep-ag.el
+++ b/wgrep-ag.el
@@ -67,14 +67,14 @@ when you manage to call ag with --nogroup.")
 (goto-char (point-min))
 ;; Look for the first useful result line.
 (if (re-search-forward (concat wgrep-ag-grouped-result-file-regexp
-  "\\|"
-  wgrep-ag-ungrouped-result-regexp))
-   (add-text-properties (point-min) (line-beginning-position)
-'(read-only t wgrep-header t))
+   "\\|"
+   wgrep-ag-ungrouped-result-regexp))
+(add-text-properties (point-min) (line-beginning-position)
+ '(read-only t wgrep-header t))
   ;; No results in this buffer, let's mark the whole thing as
   ;; header.
   (add-text-properties (point-min) (point-max)
-  '(read-only t wgrep-header t)))
+   '(read-only t wgrep-header t)))
 
 ;; OK, header dealt with. Now let's try find the footer.
 (goto-char (point-max))
@@ -87,7 +87,7 @@ when you manage to call ag with --nogroup.")
 ;; footer.
 (when (zerop (forward-line 1))
   (add-text-properties (point) (point-max)
-  '(read-only t wgrep-footer t)
+   '(read-only t wgrep-footer t)
 
 (defun wgrep-ag-parse-command-results ()
   ;; Note that this function is called with the buffer narrowed to
diff --git a/wgrep-subtest.el b/wgrep-subtest.el
index 7e4974a505..17529d3677 100644
--- a/wgrep-subtest.el
+++ b/wgrep-subtest.el
@@ -28,4 +28,3 @@
(wgrep-save-all-buffers)
;; compare file contents is valid
(should (equal "FOO2\nBAZ\n" (wgrep-test--get-contents file)))
-
diff --git a/wgrep.el b/wgrep.el
index e9833d7d46..1dc7176e5f 100644
--- a/wgrep.el
+++ b/wgrep.el
@@ -262,7 +262,8 @@ non editable region.")
   string)))
 
 (defun wgrep-delete-whole-line ()
-  (delete-region (point-at-bol) (point-at-bol 2)))
+  (delete-region (line-beginning-position)
+ (line-beginning-position 2)))
 
 (defun wgrep-goto-line (line)
   (goto-char (point-min))
@@ -338,7 +339,7 @@ non editable region.")
 (goto-char next)
 (while (and (not (eobp))
 (or (null (setq fn (get-text-property
-(point-at-bol)
+(line-beginning-position)
 'wgrep-line-filename)))
 (string= fn file)))
   (when fn
@@ -357,7 +358,7 @@ non editable region.")
 (with-current-buffer wgrep-sibling-buffer
   (when (wgrep-goto-grep-line file number)
 (buffer-substring-no-properties
- (point) (point-at-eol))
+ (point) (line-end-position))
 
 ;;;
 ;;; Prepare and parse grep <-> wgrep
@@ -469,8 +470,8 @@ non editable region.")
 (while (looking-at (format "^%s[-\0]%d-" fregexp next))
   (let ((start (match-beginning 0))
 (end (match-end 0))
-(bol (point-at-bol))
-(eol (point-at-eol)))
+(bol (line-beginning-position))
+(eol (line-end-position)))
 (put-text-property start end 'wgrep-line-filename filename)
 (put-text-property start end 'wgrep-line-number next)
 (put-text-property start (+ start flen) fprop filename)
@@ -513,9 +514,9 @@ non editable region.")
 (forward-line -1
(t
 ;; Add property but this may be removed by 
`wgrep-prepare-context-while'
-(put-text-property
- (point-at-bol) (point-at-eol)
- 'wgrep-ignore t)))
+(put-text-property (line-beginning-position)
+   (line-end-position)
+   'wgrep-ignore t)))
   (forward-line 1
 
 (defun wgrep-current-file-and-linum ()
@@ -600,15 +601,15 @@ non editable region.")
 
 ;; get overlay BEG and END is passed by `after-change-functions'
 (defun wgrep-editing-overlay (&optional start end)
-  (let ((beg (or start (point-at-bol)))
-(fin (or end (point-at-eol)))
+  (let ((beg (or start (line-beginning-position)))
+(fin (or end (line-end-position)))
 ov bol eol
 ;; beginning/end of grep
 bog eog)
 (goto-char beg)
-(setq bol (point-at-bol))
+(setq bol (line-beginning-position))
 (goto-char fin)
-(setq eol (point-at-eol))
+(setq eol (line-end-position)

[nongnu] elpa/wgrep b5ed28d959 7/8: apply editorconfig

[ELPA Syncer]

branch: elpa/wgrep
commit b5ed28d95964e09763b8ea469f843b655fe8fd94
Author: Masahiro Hayashi 
Commit: Masahiro Hayashi 

apply editorconfig
---
 wgrep-test.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wgrep-test.el b/wgrep-test.el
index fee811b705..6d6f333a3e 100644
--- a/wgrep-test.el
+++ b/wgrep-test.el
@@ -5,7 +5,7 @@
 
 (defun wgrep-test--wait (buf)
   (let ((proc (get-buffer-process buf)))
-(while (eq (process-status proc) 'run) 
+(while (eq (process-status proc) 'run)
   (sit-for 0.1))
 (sleep-for 0.2)
 (switch-to-buffer buf)))

[elpa] externals/org 9a00f6cd78: org-cite: Clarify how multiple bibliography sources are combined

[ELPA Syncer]

branch: externals/org
commit 9a00f6cd78f711cffd24ceb48ddcb0fcfae90f16
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-cite: Clarify how multiple bibliography sources are combined

* doc/org-manual.org (Citations): Clarify that all the global and
local bibliographies are used to search citation keys.

Link: https://orgmode.org/list/87fsc0gimd@uwaterloo.ca
---
 doc/org-manual.org | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index e20a9e3db2..0ed9b58e54 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -17013,6 +17013,9 @@ more "bibliography" keywords.
 #+bibliography: "/some/file/with spaces/in its name.bib"
 #+end_example
 
+Org mode uses all the local and global bibliographies combined to
+search for citation keys.
+
 #+kindex: C-c C-x @@
 #+findex: org-cite-insert
 One can then insert and edit citations using ~org-cite-insert~, called

[elpa] externals-release/org updated (32b64607ad -> 81c03fb850)

[ELPA Syncer]

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

  from  32b64607ad org-element-cache-map: Fix when inside indirect buffer
   new  2cf8430350 lisp/ob-sql.el: allow string in sql-connection-alist
   new  81c03fb850 lisp/ob-eval.el: Append newline to source block query


Summary of changes:
 lisp/ob-eval.el | 2 +-
 lisp/ob-sql.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/org b4a1133a18 1/2: org-babel-eval: Clarify the purpose of 4a751709b in code

[ELPA Syncer]

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

org-babel-eval: Clarify the purpose of 4a751709b in code

* lisp/ob-eval.el (org-babel-eval): Add comment.
---
 lisp/ob-eval.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/ob-eval.el b/lisp/ob-eval.el
index 405d6b36ad..0f8a6674e9 100644
--- a/lisp/ob-eval.el
+++ b/lisp/ob-eval.el
@@ -64,6 +64,7 @@ Writes QUERY into a temp-buffer that is processed with
   (let ((error-buffer (get-buffer-create " *Org-Babel Error*")) exit-code)
 (with-current-buffer error-buffer (erase-buffer))
 (with-temp-buffer
+  ;; Ensure trailing newline.  It is required for cmdproxy.exe.
   (insert query "\n")
   (setq exit-code
 (org-babel--shell-command-on-region

[elpa] externals-release/org 2cf8430350 1/2: lisp/ob-sql.el: allow string in sql-connection-alist

[ELPA Syncer]

branch: externals-release/org
commit 2cf8430350714a9b0417f8cfa181728a42968828
Author: Andreas Gerler 
Commit: Ihor Radchenko 

lisp/ob-sql.el: allow string in sql-connection-alist

* ob-sql.el (org-babel-find-db-connection-param): read
sql-connection-alist like sql.el/sql-connect and allow strings.

Signed-off-by: Andreas Gerler 
---
 lisp/ob-sql.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el
index 39a4573a54..f73e7003f6 100644
--- a/lisp/ob-sql.el
+++ b/lisp/ob-sql.el
@@ -234,7 +234,7 @@ database connections."
   (:database . sql-database)))
   (mapped-name (cdr (assq name name-mapping
  (cadr (assq mapped-name
- (cdr (assoc dbconnection sql-connection-alist
+ (cdr (assoc-string dbconnection sql-connection-alist 
t
 
 (defun org-babel-execute:sql (body params)
   "Execute a block of Sql code with Babel.

[elpa] externals/org updated (9a00f6cd78 -> c8d20d023f)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  9a00f6cd78 org-cite: Clarify how multiple bibliography sources are 
combined
   new  b4a1133a18 org-babel-eval: Clarify the purpose of 4a751709b in code
   new  2cf8430350 lisp/ob-sql.el: allow string in sql-connection-alist
   new  81c03fb850 lisp/ob-eval.el: Append newline to source block query
   new  c8d20d023f Merge branch 'bugfix'


Summary of changes:
 lisp/ob-eval.el | 1 +
 1 file changed, 1 insertion(+)

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

[ELPA Syncer]

branch: externals/org
commit c8d20d023f5a4011e6e77c245f265c9ee5cfc230
Merge: b4a1133a18 81c03fb850
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'

[elpa] externals-release/org 81c03fb850 2/2: lisp/ob-eval.el: Append newline to source block query

[ELPA Syncer]

branch: externals-release/org
commit 81c03fb850e78c505d25e927241d3939974e7acf
Author: Matthew Trzcinski 
Commit: Ihor Radchenko 

lisp/ob-eval.el: Append newline to source block query

* lisp/ob-eval.el (org-babel-eval): Newline facilitates working with
Windows cmdproxy.exe.

Reported-by: "Osher Jacob" 
Link: 
https://list.orgmode.org/orgmode/CAGsxwFZ88cybALCVGgma=5genmhua0rk6xnkbns_hdsmbgy...@mail.gmail.com/
---
 lisp/ob-eval.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-eval.el b/lisp/ob-eval.el
index 6f6edb949c..07e5307725 100644
--- a/lisp/ob-eval.el
+++ b/lisp/ob-eval.el
@@ -59,7 +59,7 @@ Writes QUERY into a temp-buffer that is processed with
   (let ((error-buffer (get-buffer-create " *Org-Babel Error*")) exit-code)
 (with-current-buffer error-buffer (erase-buffer))
 (with-temp-buffer
-  (insert query)
+  (insert query "\n")
   (setq exit-code
 (org-babel--shell-command-on-region
  command error-buffer))

[elpa] externals/brief 94471036e4: * brief.el: more compatibility issues fix resulted from earlier changes

[Luke Lee]

branch: externals/brief
commit 94471036e4fd356d6c8a7dd72622123e18c95e75
Author: Luke Lee 
Commit: Luke Lee 

* brief.el: more compatibility issues fix resulted from earlier changes

Due to the earlier dependency removing of 'cl' package , `incf' and
`decf' are no longer valid on new installations.  `cl-incf' and
`cl-decf' are used instead. Also fix new dependency for older Emacs
versions like v24.2.  Bump version again to deploy bug fix.
---
 brief.el | 33 +
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/brief.el b/brief.el
index a9b050d766..4ea46c1983 100644
--- a/brief.el
+++ b/brief.el
@@ -5,7 +5,7 @@
 ;; Author:   Luke Lee 
 ;; Maintainer:   Luke Lee 
 ;; Keywords: brief, emulations, crisp
-;; Version:  5.88.22.1
+;; Version:  5.88.22.2
 ;; Package-Requires: ((nadvice "0.3") (cl-lib "0.5"))
 
 ;; GNU Emacs is free software: you can redistribute it and/or modify
@@ -433,7 +433,7 @@
 ;;; Code:
 
 (eval-when-compile
-(require 'cl-lib)
+  (require 'cl-lib)
   ;; Quiet byte-compiler about argument number changes due to advice functions,
   ;; as well as other warnings that's known to be not important.
   (setq byte-compile-warnings
@@ -452,12 +452,13 @@
 ;; Relies on `cua-rectangle-mark-mode' to perform rectangle operations.
 (require 'cua-base)
 (require 'cua-rect)
+(require 'nadvice) ;; for older Emacs like 24.2
 ;; "replace" package is Emacs26 only, for `query-replace', it's autoloaded
 ;; so we don't need to "require" it explicitly, otherwise it will cause
 ;; backward compatibility issues.
 ;;(require 'replace)
 
-(defconst brief-version "5.88.22.1"
+(defconst brief-version "5.88.22.2"
   "Current version of this Brief editor mode/emulator.")
 
 ;;
@@ -2028,7 +2029,7 @@ compilation won't be counted in."
   (dolist (_ (window-list))
 (if (eq window curr)
 (throw 'break nil))
-(incf count 1)
+(cl-incf count 1)
 (setf curr (next-window curr
 (if (eq window curr)
 (other-window count)
@@ -2195,7 +2196,7 @@ newlines between them."
 (while (re-search-forward "[\n\C-m]" nil t 64)
   (setq done (+ 64 done)))
 (while (re-search-forward "[\n\C-m]" nil t 1)
-  (incf done))
+  (cl-incf done))
 done)
 (setq done
   (- (buffer-size) (forward-line (buffer-size
@@ -2335,7 +2336,7 @@ This is the number of newlines between them."
 ;;   (setq lines (+ lines (car l))
 ;; l (cdr l)))
 (while (> c 0)
-  (decf c)
+  (cl-decf c)
   (setq lines (+ lines (car l))
 l (cdr l)))
 ;; ;; Verification
@@ -2413,15 +2414,15 @@ out the internal delta value of the current window."
 ;; Increment at most 3 on X and 2 on Y directions, at the size of a
 ;; block cursor.
 (and (not (eq curr (window-at (+ xdelta left) (+ ydelta top
- (incf xdelta) ;; x+1
+ (cl-incf xdelta) ;; x+1
  (not (eq curr (window-at (+ xdelta left) (+ ydelta top
- (incf ydelta) ;; y+1
+ (cl-incf ydelta) ;; y+1
  (not (eq curr (window-at (+ xdelta left) (+ ydelta top
- (incf xdelta) ;; x+2 !
+ (cl-incf xdelta) ;; x+2 !
  (not (eq curr (window-at (+ xdelta left) (+ ydelta top
- (incf ydelta) ;; y+2 !
+ (cl-incf ydelta) ;; y+2 !
  (not (eq curr (window-at (+ xdelta left) (+ ydelta top
- (incf xdelta) ;; x+3 ?!
+ (cl-incf xdelta) ;; x+3 ?!
  (not (eq curr (window-at (+ xdelta left) (+ ydelta top
  (error ;; No, not trying y+3, it's an error
   "Either this window system or this code has a big problem"))
@@ -3244,7 +3245,7 @@ This is used in `brief-external-get-selection'")
 Also indicate the status change of the external helper process.  For
 Emacs <= v24 this is required before getting all the output of the
 external helper process."
-  (incf brief-external-process-status-changed)
+  (cl-incf brief-external-process-status-changed)
   ;;(message "brief--external-clipboard-sentinel %S %S %d"
   ;; (process-exit-status proc) event
   ;; brief-external-process-status-changed)
@@ -3426,7 +3427,7 @@ program."
 (accept-process-output proc
(* 0.01
   (brief-slowdown-factor)))
-(incf count)
+(cl-incf count)
 
 (when (zerop (logand count #xf))
   ;; 0.01 * 15 = 0.15 second each iteration.
@@ -3766,7 +3767,7 @@ This function does not support native Win32/Win64."
 (accept-process-output)
 ;;(sit-for 0.01 t)

[elpa] externals/transient c6cf2f2705 01/16: manual: Link to psionic-k's tutorial

[Jonas Bernoulli]

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

manual: Link to psionic-k's tutorial
---
 docs/transient.org  | 8 
 docs/transient.texi | 9 +
 2 files changed, 17 insertions(+)

diff --git a/docs/transient.org b/docs/transient.org
index 4e064d9e7d..a28e906e86 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -31,6 +31,14 @@ reading a new value in the minibuffer.
 Calling a suffix command usually causes the transient to be exited
 but suffix commands can also be configured to not exit the transient.
 
+#+begin_quote
+The second part of this manual, which describes how to modify existing
+transients and create new transients from scratch, can be hard to
+digest if you are just getting started.  A useful resource to get over
+that hurdle is Psionic K's interactive tutorial, available at
+https://github.com/positron-solutions/transient-showcase.
+#+end_quote
+
 #+texinfo: @noindent
 This manual is for Transient version 0.3.7.50-git.
 
diff --git a/docs/transient.texi b/docs/transient.texi
index 54a92db4bd..7bdf667351 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -64,6 +64,15 @@ reading a new value in the minibuffer.
 Calling a suffix command usually causes the transient to be exited
 but suffix commands can also be configured to not exit the transient.
 
+@quotation
+The second part of this manual, which describes how to modify existing
+transients and create new transients from scratch, can be hard to
+digest if you are just getting started.  A useful resource to get over
+that hurdle is Psionic K's interactive tutorial, available at
+@uref{https://github.com/positron-solutions/transient-showcase}.
+
+@end quotation
+
 @noindent
 This manual is for Transient version 0.3.7.50-git.
 

[elpa] externals/transient 72d1f05cbd 13/16: Revert "Deal with commands that use the minibuffer outside of interactive"

[Jonas Bernoulli]

branch: externals/transient
commit 72d1f05cbd353fceff4eb028dff0eccc3584303a
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Revert "Deal with commands that use the minibuffer outside of interactive"

This reverts commit 804c27f1f585c05a777c288fbcfa1c16a3c0cd45.

Doing that fixes #229 but reintroduces #222.  Unfortunately the
window is quickly closing to settle on the implementation that
will be included in Emacs 29.1.  I am choosing the lesser evil
here, but hope I can still finish an implementation that fixes
both issues.
---
 lisp/transient.el | 17 ++---
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index b1b8a90b8c..ab01332d90 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2211,7 +2211,7 @@ value.  Otherwise return CHILDREN as is."
 (delayed (if transient--exitp
  (apply-partially #'transient--post-exit this-command)
#'transient--resume-override))
-outside-interactive post-command abort-minibuffer)
+post-command abort-minibuffer)
 (unless abort-only
   (setq post-command
 (lambda () "@transient--delay-post-command"
@@ -2223,9 +2223,7 @@ value.  Otherwise return CHILDREN as is."
   (equal
(ignore-errors
  (string-to-multibyte (this-command-keys)))
-   (format "\M-x%s\r" this-command))
-  ;; Minibuffer used outside `interactive'.
-  (and outside-interactive 'post-cmd)
+   (format "\M-x%s\r" this-command))
 (transient--debug 'post-command-hook "act: %s" act)
 (when act
   (remove-hook 'transient--post-command-hook post-command)
@@ -2234,15 +2232,12 @@ value.  Otherwise return CHILDREN as is."
   (add-hook 'transient--post-command-hook post-command))
 (setq abort-minibuffer
   (lambda () "@transient--delay-post-command"
-(let ((act (and (= (minibuffer-depth) depth)
-(or (memq this-command transient--abort-commands)
-(equal (this-command-keys) "")
-(prog1 nil
-  (setq outside-interactive t))
+(let ((act (and (or (memq this-command transient--abort-commands)
+(equal (this-command-keys) ""))
+(= (minibuffer-depth) depth
   (transient--debug
'abort-minibuffer
-   "mini: %s|%s, act: %s" (minibuffer-depth) depth
-   (or act (and outside-interactive '->post-cmd)))
+   "mini: %s|%s, act %s" (minibuffer-depth) depth act)
   (when act
 (remove-hook 'transient--post-command-hook post-command)
 (remove-hook 'minibuffer-exit-hook abort-minibuffer)

[elpa] externals/transient 5337e5eb44 07/16: transient-define-{*}: Error if ARGLIST is missing

[Jonas Bernoulli]

branch: externals/transient
commit 5337e5eb449aeb00408240c2e669192f2cdc9343
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-define-{*}: Error if ARGLIST is missing

The ARGLIST added to `transient--expand-define-args' has to be
optional for backward compatibility with uses of the macros that
were expanded with a version of Transient that lacks this commit.

Closes #230.
---
 lisp/transient.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index cd15dd68fd..ac1f5ed381 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -860,7 +860,7 @@ to the setup function:
(indent defun)
(doc-string 3))
   (pcase-let ((`(,class ,slots ,suffixes ,docstr ,body)
-   (transient--expand-define-args args)))
+   (transient--expand-define-args args arglist)))
 `(progn
(defalias ',name
  ,(if body
@@ -913,7 +913,7 @@ ARGLIST.  The infix arguments are usually accessed by using
(indent defun)
(doc-string 3))
   (pcase-let ((`(,class ,slots ,_ ,docstr ,body)
-   (transient--expand-define-args args)))
+   (transient--expand-define-args args arglist)))
 `(progn
(defalias ',name (lambda ,arglist ,@body))
(put ',name 'interactive-only t)
@@ -921,7 +921,7 @@ ARGLIST.  The infix arguments are usually accessed by using
(put ',name 'transient--suffix
 (,(or class 'transient-suffix) :command ',name ,@slots)
 
-(defmacro transient-define-infix (name _arglist &rest args)
+(defmacro transient-define-infix (name arglist &rest args)
   "Define NAME as a transient infix command.
 
 ARGLIST is always ignored and reserved for future use.
@@ -962,7 +962,7 @@ keyword.
(indent defun)
(doc-string 3))
   (pcase-let ((`(,class ,slots ,_ ,docstr ,_)
-   (transient--expand-define-args args)))
+   (transient--expand-define-args args arglist)))
 `(progn
(defalias ',name ,(transient--default-infix-command))
(put ',name 'interactive-only t)
@@ -980,7 +980,9 @@ example, sets a variable use `transient-define-infix' 
instead.
 
 \(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)")
 
-(defun transient--expand-define-args (args)
+(defun transient--expand-define-args (args &optional arglist)
+  (unless (listp arglist)
+(error "Mandatory ARGLIST is missing"))
   (let (class keys suffixes docstr)
 (when (stringp (car args))
   (setq docstr (pop args)))

[elpa] externals/transient 402c7bd4a5 14/16: manual: Use two dashes to separate years in copyright

[Jonas Bernoulli]

branch: externals/transient
commit 402c7bd4a538a3352aa2320d00e34b7d647d0de2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

manual: Use two dashes to separate years in copyright
---
 docs/transient.org  | 2 +-
 docs/transient.texi | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 1551230f11..48d99633d4 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -2358,7 +2358,7 @@ necessary changes.  See its doc string for more 
information.
 :END:
 
 #+begin_quote
-Copyright (C) 2018-{{{year}}} Free Software Foundation, Inc.
+Copyright (C) 2018--{{{year}}} Free Software Foundation, Inc.
 
 You can redistribute this document and/or modify it under the terms
 of the GNU General Public License as published by the Free Software
diff --git a/docs/transient.texi b/docs/transient.texi
index 281c97e187..f0c5279187 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -8,7 +8,7 @@
 
 @copying
 @quotation
-Copyright (C) 2018-2023 Free Software Foundation, Inc.
+Copyright (C) 2018--2023 Free Software Foundation, Inc.
 
 You can redistribute this document and/or modify it under the terms
 of the GNU General Public License as published by the Free Software

[elpa] externals/transient 3a1484cce3 05/16: ci: Use new reusable workflows

[Jonas Bernoulli]

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

ci: Use new reusable workflows
---
 .github/workflows/manual.yml | 29 +++--
 .github/workflows/stats.yml  | 23 ---
 2 files changed, 15 insertions(+), 37 deletions(-)

diff --git a/.github/workflows/manual.yml b/.github/workflows/manual.yml
index 8c310e4906..ccf5900f60 100644
--- a/.github/workflows/manual.yml
+++ b/.github/workflows/manual.yml
@@ -1,26 +1,11 @@
-name: manual
+name: Manual
 on:
   push:
-branches: master
+branches: main
 jobs:
   manual:
-name: "Generate and distribute manual"
-runs-on: ubuntu-latest
-steps:
-  - name: Configure
-uses: magit/actions/config@main
-  - name: Install Emacs
-uses: magit/actions/install-emacs@main
-  - name: Install Texlive
-uses: magit/actions/install-texlive@main
-  - name: Install Org
-uses: magit/actions/install-org@main
-  - name: Generate manual
-uses: magit/actions/manual-generate@main
-  - name: Commit manual
-uses: magit/actions/manual-commit@main
-  - name: Publish manual
-uses: magit/actions/manual-publish@main
-with:
-  key-id: ${{ secrets.AWS_ACCESS_KEY_ID }}
-  secret: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
+name: Manual
+uses: emacscollective/workflows/.github/workflows/manual.yml@main
+secrets:
+  aws-access-key-id: ${{ secrets.AWS_ACCESS_KEY_ID }}
+  aws-secret-access-key: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
diff --git a/.github/workflows/stats.yml b/.github/workflows/stats.yml
index 96f261b489..6f65ecc4b6 100644
--- a/.github/workflows/stats.yml
+++ b/.github/workflows/stats.yml
@@ -1,18 +1,11 @@
-name: stats
+name: Statistics
 on:
   push:
-branches: master
+branches: main
 jobs:
-  manual:
-name: "Generate and distribute statistics"
-runs-on: ubuntu-latest
-steps:
-  - name: Install gitstats
-uses: magit/actions/install-gitstats@main
-  - name: Generate statistics
-uses: magit/actions/stats-generate@main
-  - name: Publish statistics
-uses: magit/actions/stats-publish@main
-with:
-  key-id: ${{ secrets.AWS_ACCESS_KEY_ID }}
-  secret: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
+  stats:
+name: Statistics
+uses: emacscollective/workflows/.github/workflows/stats.yml@main
+secrets:
+  aws-access-key-id: ${{ secrets.AWS_ACCESS_KEY_ID }}
+  aws-secret-access-key: ${{ secrets.AWS_SECRET_ACCESS_KEY }}

[elpa] externals/transient c3610b56f0 16/16: transient-font-lock-keywords: Add transient-define-groups

[Jonas Bernoulli]

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

transient-font-lock-keywords: Add transient-define-groups
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

[elpa] externals/transient b735dbdf5e 06/16: ci: Add compile workflow

[Jonas Bernoulli]

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

ci: Add compile workflow
---
 .github/workflows/compile.yml | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/.github/workflows/compile.yml b/.github/workflows/compile.yml
new file mode 100644
index 00..2c1a9879ba
--- /dev/null
+++ b/.github/workflows/compile.yml
@@ -0,0 +1,6 @@
+name: Compile
+on: [push, pull_request]
+jobs:
+  compile:
+name: Compile
+uses: emacscollective/workflows/.github/workflows/compile.yml@main

[elpa] externals/transient 4a823dbf7f 09/16: manual: Add an example for transient-append-suffix

[Jonas Bernoulli]

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

manual: Add an example for transient-append-suffix
---
 docs/transient.org  | 11 ++-
 docs/transient.texi | 11 ++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index a28e906e86..1551230f11 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -736,7 +736,16 @@ These options are mainly intended for developers.
 
 To an extent, transients can be customized interactively, see
 [[*Enabling and Disabling Suffixes]].  This section explains how existing
-transients can be further modified non-interactively.
+transients can be further modified non-interactively.  Let's begin
+with an example:
+
+#+begin_src emacs-lisp
+  (transient-append-suffix 'magit-patch-apply "-3"
+'("-R" "Apply in reverse" "--reverse"))
+#+end_src
+
+This inserts a new infix argument to toggle the ~--reverse~ argument
+after the infix argument that toggles ~-3~ in ~magit-patch-apply~.
 
 The following functions share a few arguments:
 
diff --git a/docs/transient.texi b/docs/transient.texi
index deca28cc7d..281c97e187 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -900,7 +900,16 @@ same customization.
 
 To an extent, transients can be customized interactively, see
 @ref{Enabling and Disabling Suffixes}.  This section explains how existing
-transients can be further modified non-interactively.
+transients can be further modified non-interactively.  Let's begin
+with an example:
+
+@lisp
+(transient-append-suffix 'magit-patch-apply "-3"
+  '("-R" "Apply in reverse" "--reverse"))
+@end lisp
+
+This inserts a new infix argument to toggle the @code{--reverse} argument
+after the infix argument that toggles @code{-3} in @code{magit-patch-apply}.
 
 The following functions share a few arguments:
 

[elpa] externals/transient f27c840aec 12/16: transient-suffix-object: Disambiguate duplicated suffix commands

[Jonas Bernoulli]

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

transient-suffix-object: Disambiguate duplicated suffix commands

This makes it possible to bind the same command multiple times as a
suffix of a transient command, but still have it do different things
depending on what binding is used, based on the value of some slot of
the corresponding suffix object, similar to how `self-insert-command'
inserts the pressed key.
---
 lisp/transient.el | 20 +++-
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 6afd9d9d5b..b1b8a90b8c 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1471,14 +1471,24 @@ probably use this instead:
 (cl-check-type command command))
   (if (or transient--prefix
   transient-current-prefix)
-  (cl-find-if (lambda (obj)
-(eq (transient--suffix-command obj)
+  (let ((suffixes
+ (cl-remove-if-not
+  (lambda (obj)
+(eq (transient--suffix-command obj)
+(or command
 ;; When `this-command' is `transient-set-level',
 ;; its reader needs to know what command is being
 ;; configured.
-(or command this-original-command)))
-  (or transient--suffixes
-  transient-current-suffixes))
+this-original-command)))
+  (or transient--suffixes
+  transient-current-suffixes
+(or (and (cdr suffixes)
+ (cl-find-if
+  (lambda (obj)
+(equal (listify-key-sequence (transient--kbd (oref obj 
key)))
+   (listify-key-sequence (this-command-keys
+  suffixes))
+(car suffixes)))
 (when-let* ((obj (get (or command this-command) 'transient--suffix))
 (obj (clone obj)))
   ;; Cannot use and-let* because of debbugs#31840.

[elpa] externals/transient 239be53b01 02/16: Bump copyright years

[Jonas Bernoulli]

branch: externals/transient
commit 239be53b01e003c5206087d850d9672a42dc4b32
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Bump copyright years
---
 docs/transient.texi | 2 +-
 lisp/transient.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/transient.texi b/docs/transient.texi
index 7bdf667351..deca28cc7d 100644
--- a/docs/transient.texi
+++ b/docs/transient.texi
@@ -8,7 +8,7 @@
 
 @copying
 @quotation
-Copyright (C) 2018-2022 Free Software Foundation, Inc.
+Copyright (C) 2018-2023 Free Software Foundation, Inc.
 
 You can redistribute this document and/or modify it under the terms
 of the GNU General Public License as published by the Free Software
diff --git a/lisp/transient.el b/lisp/transient.el
index a78da7401e..cd15dd68fd 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1,6 +1,6 @@
 ;;; transient.el --- Transient commands  -*- lexical-binding:t -*-
 
-;; Copyright (C) 2018-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2018-2023 Free Software Foundation, Inc.
 
 ;; Author: Jonas Bernoulli 
 ;; Homepage: https://github.com/magit/transient

[elpa] externals/transient updated (72d30284ab -> c3610b56f0)

[Jonas Bernoulli]

tarsius pushed a change to branch externals/transient.

  from  72d30284ab manual: Incorporate minor fixes from Emacs
   new  c6cf2f2705 manual: Link to psionic-k's tutorial
   new  239be53b01 Bump copyright years
   new  911dcb9631 readme: Add badges
   new  1c7b7055ae readme: Fix alt text
   new  3a1484cce3 ci: Use new reusable workflows
   new  b735dbdf5e ci: Add compile workflow
   new  5337e5eb44 transient-define-{*}: Error if ARGLIST is missing
   new  d800ce01e6 Use equal to compare with empty vector
   new  4a823dbf7f manual: Add an example for transient-append-suffix
   new  69c70b527d transient-columns: Fix docstring typo
   new  31c8211819 transient-parse-suffix{,es}: Correct docstrings
   new  f27c840aec transient-suffix-object: Disambiguate duplicated suffix 
commands
   new  72d1f05cbd Revert "Deal with commands that use the minibuffer 
outside of interactive"
   new  402c7bd4a5 manual: Use two dashes to separate years in copyright
   new  202086e4e6 transient-suffix-object: Limit use of 
this-original-command
   new  c3610b56f0 transient-font-lock-keywords: Add transient-define-groups


Summary of changes:
 .github/workflows/compile.yml |  6 
 .github/workflows/manual.yml  | 29 +
 .github/workflows/stats.yml   | 23 +-
 README.org|  7 +
 docs/transient.org| 21 +++--
 docs/transient.texi   | 22 +++--
 lisp/transient.el | 73 ---
 7 files changed, 108 insertions(+), 73 deletions(-)
 create mode 100644 .github/workflows/compile.yml

[elpa] externals/transient 1c7b7055ae 04/16: readme: Fix alt text

[Jonas Bernoulli]

branch: externals/transient
commit 1c7b7055ae20fdbedffbdb5c18ee6b949c8ed5f6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

readme: Fix alt text
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 22ceb00b3d..160471f52b 100644
--- a/README.org
+++ b/README.org
@@ -52,7 +52,7 @@ set using a command such as ~universal-argument~.
 
 #+html: 
 #+html: https://github.com/magit/transient/actions/workflows/compile.yml";>https://github.com/magit/transient/actions/workflows/compile.yml/badge.svg"/>
-#+html: https://github.com/magit/transient/actions/workflows/manual.yml";>https://github.com/magit/transient/actions/workflows/manual.yml/badge.svg"/>
+#+html: https://github.com/magit/transient/actions/workflows/manual.yml";>https://github.com/magit/transient/actions/workflows/manual.yml/badge.svg"/>
 #+html: https://elpa.gnu.org/packages/transient.html";>https://elpa.gnu.org/packages/transient.svg"/>
 #+html: https://stable.melpa.org/#/transient";>https://stable.melpa.org/packages/transient-badge.svg"/>
 #+html: https://melpa.org/#/transient";>https://melpa.org/packages/transient-badge.svg"/>

[elpa] externals/transient 911dcb9631 03/16: readme: Add badges

[Jonas Bernoulli]

branch: externals/transient
commit 911dcb9631c064d9e64e9bb3ea0145dbc42b9fc8
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

readme: Add badges
---
 README.org | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/README.org b/README.org
index 053fa92de9..22ceb00b3d 100644
--- a/README.org
+++ b/README.org
@@ -49,3 +49,10 @@ for any command that was called after the prefix arguments 
have been
 set using a command such as ~universal-argument~.
 
 [[http://readme.emacsair.me/transient.png]]
+
+#+html: 
+#+html: https://github.com/magit/transient/actions/workflows/compile.yml";>https://github.com/magit/transient/actions/workflows/compile.yml/badge.svg"/>
+#+html: https://github.com/magit/transient/actions/workflows/manual.yml";>https://github.com/magit/transient/actions/workflows/manual.yml/badge.svg"/>
+#+html: https://elpa.gnu.org/packages/transient.html";>https://elpa.gnu.org/packages/transient.svg"/>
+#+html: https://stable.melpa.org/#/transient";>https://stable.melpa.org/packages/transient-badge.svg"/>
+#+html: https://melpa.org/#/transient";>https://melpa.org/packages/transient-badge.svg"/>

[elpa] externals/transient 31c8211819 11/16: transient-parse-suffix{, es}: Correct docstrings

[Jonas Bernoulli]

branch: externals/transient
commit 31c8211819b47ae89a213cde65183049ad5580d6
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-parse-suffix{,es}: Correct docstrings
---
 lisp/transient.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 74c04b8c9b..6afd9d9d5b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1152,7 +1152,7 @@ example, sets a variable use `transient-define-infix' 
instead.
 PREFIX is a prefix command, a symbol.
 SUFFIX is a suffix command or a group specification (of
   the same forms as expected by `transient-define-prefix').
-Intended for use in PREFIX's `:setup-children' function."
+Intended for use in a group's `:setup-children' function."
   (eval (car (transient--parse-child prefix suffix
 
 (defun transient-parse-suffixes (prefix suffixes)
@@ -1160,7 +1160,7 @@ Intended for use in PREFIX's `:setup-children' function."
 PREFIX is a prefix command, a symbol.
 SUFFIXES is a list of suffix command or a group specification
   (of the same forms as expected by `transient-define-prefix').
-Intended for use in PREFIX's `:setup-children' function."
+Intended for use in a group's `:setup-children' function."
   (mapcar (apply-partially #'transient-parse-suffix prefix) suffixes))
 
 ;;; Edit

[elpa] externals/transient d800ce01e6 08/16: Use equal to compare with empty vector

[Jonas Bernoulli]

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

Use equal to compare with empty vector
---
 lisp/transient.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ac1f5ed381..33e1640440 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2205,7 +2205,7 @@ value.  Otherwise return CHILDREN as is."
 (unless abort-only
   (setq post-command
 (lambda () "@transient--delay-post-command"
-  (let ((act (and (not (eq (this-command-keys-vector) []))
+  (let ((act (and (not (equal (this-command-keys-vector) []))
   (or (eq this-command command)
   ;; `execute-extended-command' was
   ;; used to call another command
@@ -2243,7 +2243,7 @@ value.  Otherwise return CHILDREN as is."
   (transient--debug 'post-command)
   (transient--with-emergency-exit
 (cond
- ((and (eq (this-command-keys-vector) [])
+ ((and (equal (this-command-keys-vector) [])
(= (minibuffer-depth)
   (1+ transient--minibuffer-depth)))
   (transient--suspend-override)

[elpa] externals/transient 202086e4e6 15/16: transient-suffix-object: Limit use of this-original-command

[Jonas Bernoulli]

branch: externals/transient
commit 202086e4e641798fd18cc66891d2279793d8fcf3
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-suffix-object: Limit use of this-original-command

We only need to use `this-original-command' is `transient-set-level',
but for other commands it doesn't matter, so we used it for all
commands.  There is an exception though; when `this-original-command'
is `transient-push-button', then we need to use `this-command'.
---
 lisp/transient.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index ab01332d90..8b4d4da5ad 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1476,10 +1476,11 @@ probably use this instead:
   (lambda (obj)
 (eq (transient--suffix-command obj)
 (or command
-;; When `this-command' is `transient-set-level',
-;; its reader needs to know what command is being
-;; configured.
-this-original-command)))
+(if (eq this-command 'transient-set-level)
+;; This is how it can look up for which
+;; command it is setting the level.
+this-original-command
+  this-command
   (or transient--suffixes
   transient-current-suffixes
 (or (and (cdr suffixes)

[elpa] externals/transient 69c70b527d 10/16: transient-columns: Fix docstring typo

[Jonas Bernoulli]

branch: externals/transient
commit 69c70b527d3d9100f6f8fba78ec149ca8c5e2ecb
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient-columns: Fix docstring typo
---
 lisp/transient.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 33e1640440..74c04b8c9b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -799,8 +799,8 @@ They become the value of this argument.")
 (defclass transient-columns (transient-group) ()
   "Group class that displays elements organized in columns.
 Direct elements have to be groups whose elements have to be
-commands or string.  Each subgroup represents a column.  This
-class takes care of inserting the subgroups' elements.")
+commands or strings.  Each subgroup represents a column.
+This class takes care of inserting the subgroups' elements.")
 
 (defclass transient-subgroups (transient-group) ()
   "Group class that wraps other groups.

[elpa] externals/greader updated (92b8b1e204 -> a24dc35e59)

[ELPA Syncer]

elpasync pushed a change to branch externals/greader.

  from  92b8b1e204 Merge branch 'experimental'
   new  c3c9f87bb2 Better handling of sentences.
   new  a24dc35e59 greader-mac.el: support for `get-text' and `next-text' 
added.


Summary of changes:
 greader-mac.el | 22 ++
 greader.el | 24 +++-
 2 files changed, 37 insertions(+), 9 deletions(-)

[elpa] externals/greader a24dc35e59 2/2: greader-mac.el: support for `get-text' and `next-text' added.

[ELPA Syncer]

branch: externals/greader
commit a24dc35e593b1a54547eb16cc204479a5f9e4fc5
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-mac.el: support for `get-text' and `next-text' added.
---
 greader-mac.el | 22 ++
 1 file changed, 22 insertions(+)

diff --git a/greader-mac.el b/greader-mac.el
index 9275d9fedc..292cb2c10f 100644
--- a/greader-mac.el
+++ b/greader-mac.el
@@ -21,6 +21,9 @@ nil means to use the system voice."
   :tag "mac tts command"
   :type 'string)
 
+(defvar greader-mac-end-of-sentence-regexp "[.?!,][«»\"]?[\n ]"
+  "A regexp that matches the end of the string to send to the tts.")
+
 (defun greader-mac-set-rate (&optional rate)
   "Return a string suitable for setting mac RATE."
   (if (not rate)
@@ -58,6 +61,10 @@ When called interactively, this function reads a string from 
the minibuffer prov
   "Back-end main function of greader-mac.
 COMMAND must be a string suitable for `make-process'."
   (pcase command
+('get-text
+ (greader-mac-get-sentence))
+('next-text
+ (greader-mac-forward-sentence))
 ('executable
  greader-mac-executable-name)
 ('lang
@@ -76,6 +83,21 @@ COMMAND must be a string suitable for `make-process'."
  'not-implemented)))
 (put 'greader-mac 'greader-backend-name "greader-mac")
 
+(defun greader-mac-get-sentence ()
+  (let ((sentence-start (make-marker)))
+(setq sentence-start (point))
+(save-excursion
+  (when (not (eobp))
+   (if (not (re-search-forward greader-mac-end-of-sentence-regexp nil t))
+   (end-of-buffer))
+  (if (> (point) sentence-start)
+ (string-trim (buffer-substring-no-properties sentence-start (point)) 
"[ \t\n\r]+")
+   nil)
+
+(defun greader-mac-forward-sentence ()
+  (if (not (re-search-forward greader-mac-end-of-sentence-regexp nil t))
+  (end-of-buffer)))
+
 (defun greader--mac-get-voices ()
   "Return a list which contains all voices suitable for this backend."
   (with-temp-buffer

[elpa] externals/greader c3c9f87bb2 1/2: Better handling of sentences.

[ELPA Syncer]

branch: externals/greader
commit c3c9f87bb2f0686f98067b50ae869beb2ef72129
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Better handling of sentences.
---
 greader.el | 24 +++-
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/greader.el b/greader.el
index f48c309438..08c749ca66 100644
--- a/greader.el
+++ b/greader.el
@@ -494,17 +494,23 @@ if `GOTO-MARKER' is t and if you pass a prefix to this
 (insert arg)))
 
 (defun greader-forward-sentence ()
-  (forward-sentence))
+  (let ((result (greader-call-backend 'next-text)))
+(if (not (equal result 'not-implemented))
+   result
+  (forward-sentence
 
 (defun greader-get-sentence ()
-  (let ((sentence-start (make-marker)))
-(setq sentence-start (point))
-(save-excursion
-  (when (not (eobp))
-   (forward-sentence))
-  (if (> (point) sentence-start)
- (string-trim (buffer-substring-no-properties sentence-start (point)) 
"[ \t\n\r]+")
-   nil
+  (let ((result (greader-call-backend 'get-text)))
+(if (stringp result)
+   result
+  (let ((sentence-start (make-marker)))
+   (setq sentence-start (point))
+   (save-excursion
+ (when (not (eobp))
+   (forward-sentence))
+ (if (> (point) sentence-start)
+ (string-trim (buffer-substring-no-properties sentence-start 
(point)) "[ \t\n\r]+")
+   nil))
 
 (defun greader-sentence-at-point ()
   "Get sentence starting from point."

[nongnu] elpa/bash-completion ffb3f88aaf: Improve Bash process detection (#60)

[ELPA Syncer]

branch: elpa/bash-completion
commit ffb3f88aaf0db92ea4a2b6c60ea11d4a19245852
Author: montag451 
Commit: GitHub 

Improve Bash process detection (#60)

The current way of checking if a process is a Bash process is not
correct particularly with remote Bash processes. For example if the
user shell on the local machine is zsh then `shell-file-name' will be
equal to zsh and `bash-completion--current-shell' will return nil for
a remote Bash process (assuming `explicit-shell-file-name' is nil and
the ESHELL environment variable is not set). The new way of checking
if a process is a Bash process is more robust as it is not based on
the checking of the `explicit-shell-file-name' variable, the ESHELL
environment variable, the `shell-file-name' variable or the local
command used to launch the Bash process.
---
 bash-completion.el | 52 +---
 1 file changed, 37 insertions(+), 15 deletions(-)

diff --git a/bash-completion.el b/bash-completion.el
index a2f5f6df01..4457ed9c3d 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -113,6 +113,7 @@
 (require 'comint)
 (require 'cl-lib)
 (require 'shell)
+(require 'rx)
 
 ;;; Customization
 (defgroup bash-completion nil
@@ -1168,18 +1169,40 @@ is set to t."
   (bash-completion-kill process)
 (error nil)
 
-(defun bash-completion--current-shell ()
-  "Figure out what the shell associated with the current buffer is."
-  (let ((prog (or
-   (if (derived-mode-p 'shell-mode)
-   (or explicit-shell-file-name
-   (getenv "ESHELL")
-   shell-file-name))
-   (let ((process (get-buffer-process (current-buffer
- (when process
-   (car (process-command process)))
-(when prog
-  (file-name-nondirectory prog
+(defun bash-completion--process-command (process)
+  "Return the command that was executed to start PROCESS.
+It is similar to `process-command' but if the process is a remote
+process, it returns the remote command."
+  (with-current-buffer (process-buffer process)
+(or (and (file-remote-p default-directory)
+ (process-get process 'remote-command))
+(process-command process
+
+(defun bash-completion--process-start-program (process)
+  "Return the program that was executed to start PROCESS."
+  (car (bash-completion--process-command process)))
+
+(defun bash-completion--process-running-program (process)
+  "Return the program currently executed by PROCESS."
+  (with-current-buffer (process-buffer process)
+(let* ((remote (file-remote-p default-directory))
+   (pid (or (and remote (process-get process 'remote-pid))
+(process-id process
+  (file-truename (concat remote (format "/proc/%d/exe" pid))
+
+(defun bash-completion--is-bash-process (process)
+  "Return a non-nil value if PROCESS is a Bash process."
+  (pcase (process-get process 'is-bash)
+('true t)
+('false nil)
+(_ (let* ((res (cl-some
+(lambda (fun)
+  (bash-completion-starts-with
+   (file-name-nondirectory (funcall fun process)) "bash"))
+(list #'bash-completion--process-running-program
+  #'bash-completion--process-start-program
+ (process-put process 'is-bash (if res 'true 'false))
+ res
 
 (defun bash-completion--get-same-process ()
   "Return the BASH process associated with the current buffer.
@@ -1189,9 +1212,8 @@ associated with a command that looks like a bash shell.
 Completion will fallback to creating a separate process
 completion in these cases."
   (when (derived-mode-p 'comint-mode)
-(let* ((process (get-buffer-process (current-buffer)))
-   (shell (if process (bash-completion--current-shell
-  (when (and shell (bash-completion-starts-with shell "bash"))
+(let* ((process (get-buffer-process (current-buffer
+  (when (bash-completion--is-bash-process process)
 process
 
 (defun bash-completion--get-process ()

[nongnu] elpa/sweeprolog updated (9f283d440c -> 86b629b99b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/sweeprolog.

  from  9f283d440c * (sweeprolog-rename-variable): report results if 
interactive
   new  12590d7d32 ENHANCED: provide exact buffer positions for cross 
references
   new  78b8ceb0fc * (xref-backend-references): report progress while 
formatting refs
   new  2f1e6c035f Avoid moving cursor while renaming variables from 
context menu
   new  86b629b99b Announce recent changes in NEWS.org and bump version to 
0.15.0


Summary of changes:
 NEWS.org|  18 +++
 sweep.pl|  27 +--
 sweeprolog-tests.el |  22 +
 sweeprolog.el   | 132 
 4 files changed, 133 insertions(+), 66 deletions(-)

[nongnu] elpa/sweeprolog 12590d7d32 1/4: ENHANCED: provide exact buffer positions for cross references

[ELPA Syncer]

branch: elpa/sweeprolog
commit 12590d7d3295c1e69628f649023e318e8b2ac7bf
Author: Eshel Yaron 
Commit: Eshel Yaron 

ENHANCED: provide exact buffer positions for cross references

* sweep.pl (reference_span/5): new predicate.
(sweep_predicate_references/2): use it to find exact character offset of
predicate references.
* sweeprolog.el (xref-backend-references): adapt accordingly.
---
 sweep.pl| 27 +++
 sweeprolog-tests.el | 22 ++
 sweeprolog.el   | 12 
 3 files changed, 53 insertions(+), 8 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 0a02caf452..48a8c0dc0a 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -316,20 +316,39 @@ sweep_module_description([M0|P], [M|[P]]) :- 
atom_string(M0, M).
 sweep_predicate_references(MFN, Refs) :-
 term_string(M:F/N, MFN),
 pi_head(F/N, H),
-findall([B,Path|Line],
+findall([B, Path, From, Len],
 (xref_called(Path0, H, B0, _, Line),
  pi_head(B1, B0),
  term_string(B1, B),
- atom_string(Path0, Path)),
+ atom_string(Path0, Path),
+ reference_span(Path0, Line, H, From, Len)),
 Refs,
 Tail),
-findall([B,Path|Line],
+findall([B, Path, From, Len],
 (xref_called(Path0, M:H, B0, _, Line),
  pi_head(B1, B0),
  term_string(B1, B),
- atom_string(Path0, Path)),
+ atom_string(Path0, Path),
+ reference_span(Path0, Line, H, From, Len)),
 Tail).
 
+:- dynamic current_reference_span/2.
+
+reference_span(Path, Line, Head, From, Len) :-
+retractall(current_reference_span(_, _)),
+setup_call_cleanup(prolog_open_source(Path, Stream),
+   (   prolog_source:seek_to_line(Stream, Line),
+   prolog_colourise_term(Stream, Path, 
reference_span_(Head), [])
+   ),
+   prolog_close_source(Stream)),
+!,
+current_reference_span(From, Len).
+
+reference_span_(Head, goal_term(_, Goal), Beg0, Len) :-
+\+ \+ Head = Goal,
+Beg is Beg0 + 1,
+assertz(current_reference_span(Beg, Len)).
+reference_span_(_, _, _, _) :- true.
 
 sweep_predicate_location(MFN, [Path|Line]) :-
 term_string(M:F/N, MFN),
diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index b766af1eaf..9dad8f4560 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -302,6 +302,28 @@ foo(Foo) :- bar.
 (should (string= (buffer-string)
  "foo(Baz,Bar) :- spam(Bar,Baz)."
 
+(ert-deftest find-references ()
+  "Tests `sweeprolog-predicate-references'."
+  (let ((temp (make-temp-file "sweeprolog-test"
+  nil
+  ".pl"
+  ":- module(test_sweep_find_references, 
[caller/0]).
+
+caller :- callee, baz, callee.
+caller :- baz, callee, baz.
+
+callee.
+
+baz.
+"
+  )))
+(find-file-literally temp)
+(sweeprolog-mode)
+(should (equal (sweeprolog-predicate-references 
"test_sweep_find_references:callee/0")
+   (list (list "caller/0" temp 63 6)
+ (list "caller/0" temp 76 6)
+ (list "caller/0" temp 99 6))
+
 (ert-deftest forward-many-holes ()
   "Tests jumping over holes with `sweeprolog-forward-hole'."
   (let ((temp (make-temp-file "sweeprolog-test"
diff --git a/sweeprolog.el b/sweeprolog.el
index 33655612dd..1f283d76f0 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -4516,10 +4516,14 @@ accordingly."
 (cl-defmethod xref-backend-references ((_backend (eql sweeprolog)) mfn)
   (let ((refs (sweeprolog-predicate-references mfn)))
 (seq-map (lambda (loc)
-   (let ((by (car loc))
- (path (cadr loc))
- (line (or (cddr loc) 1)))
- (xref-make by (xref-make-file-location path line 0
+   (let* ((by   (nth 0 loc))
+  (file (nth 1 loc))
+  (beg  (nth 2 loc))
+  (buf (find-file-noselect file t)))
+ (xref-make (format "Call from %s at line %s" by
+(with-current-buffer buf
+  (line-number-at-pos beg t)))
+(xref-make-buffer-location buf beg
  refs)))
 
 (cl-defmethod xref-backend-apropos ((_backend (eql sweeprolog)) pattern)

[nongnu] elpa/sweeprolog 86b629b99b 4/4: Announce recent changes in NEWS.org and bump version to 0.15.0

[ELPA Syncer]

branch: elpa/sweeprolog
commit 86b629b99bdbe288372033132da58992aa70d517
Author: Eshel Yaron 
Commit: Eshel Yaron 

Announce recent changes in NEWS.org and bump version to 0.15.0
---
 NEWS.org  | 18 ++
 sweeprolog.el |  2 +-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index a18fcc969f..c3a56523e3 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -11,6 +11,24 @@ SWI-Prolog in Emacs.
 For further details, please consult the manual:
 [[https://eshelyaron.com/sweep.html][https://eshelyaron.com/sweep.html]].
 
+* Version 0.15.0 on 2023-02-01
+
+** New command ~sweeprolog-rename-variable~
+
+This command, bound to ~C-c C-r~ in ~sweeprolog-mode~ buffers,
+interactively renames a variable in the current clause.  You can now
+also rename variables by right-clicking on them and selecting ~Rename
+Variable~ with Context Menu mode enabled.
+
+** Jumping to predicate references now goes to the exact call position
+
+The cross reference information that Sweep provides is enhanced to
+include exact buffer positions for predicate references.  In prior
+versions, jumping to predicate references with ~M-?~
+(~xref-find-references~) would go to the beginning of the clause which
+invokes the given predicate, now it goes to the exact location of the
+invocation.
+
 * Version 0.14.1 on 2023-01-28
 
 ** New command ~sweeprolog-count-holes~
diff --git a/sweeprolog.el b/sweeprolog.el
index 5387997159..d59489830f 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <~eshel/d...@lists.sr.ht>
 ;; Keywords: prolog languages extensions
 ;; URL: https://git.sr.ht/~eshel/sweep
-;; Package-Version: 0.14.1
+;; Package-Version: 0.15.0
 ;; Package-Requires: ((emacs "28.1"))
 
 ;; This file is NOT part of GNU Emacs.

[nongnu] elpa/sweeprolog 2f1e6c035f 3/4: Avoid moving cursor while renaming variables from context menu

[ELPA Syncer]

branch: elpa/sweeprolog
commit 2f1e6c035fd256e15b18d38d0553c91ec740d59c
Author: Eshel Yaron 
Commit: Eshel Yaron 

Avoid moving cursor while renaming variables from context menu

* sweeprolog.el (sweeprolog-analyze-term-at-point): new optional
argument POINT.
(sweeprolog-rename-variable): use it instead of moving point during
prompting to avoid the cursor being displayed at the click position
when called from the context menu.
---
 sweeprolog.el | 109 +-
 1 file changed, 55 insertions(+), 54 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index f8acb87274..5387997159 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3439,10 +3439,11 @@ of them signal success by returning non-nil."
   (sweeprolog-analyze-buffer t)
   (remove-hook 'sweeprolog-analyze-region-fragment-hook cb t))
 
-(defun sweeprolog-analyze-term-at-point (cb)
-  (let ((sweeprolog--analyze-point (point)))
+(defun sweeprolog-analyze-term-at-point (cb &optional point)
+  (setq point (or point (point)))
+  (let ((sweeprolog--analyze-point point))
 (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)
-(sweeprolog-analyze-term (point))
+(sweeprolog-analyze-term point)
 (remove-hook 'sweeprolog-analyze-region-fragment-hook cb t)))
 
 (defun sweeprolog-definition-at-point (&optional point)
@@ -5335,7 +5336,8 @@ GOAL."
   (interactive)
   (sweeprolog-rename-variable sweeprolog-context-menu-variable-at-click
   nil
-  sweeprolog-context-menu-point-at-click))
+  sweeprolog-context-menu-point-at-click
+  t))
 
 (defun sweeprolog-context-menu-for-predicate (menu tok _beg _end _point)
   "Extend MENU with predicate-related commands if TOK describes one."
@@ -5529,8 +5531,8 @@ Deletes PROC if STRING contains an end of output marker 
string."
 
  Refactoring
 
-(defun sweeprolog--variables-at-point ()
-  "Return information about variables in the Prolog term at point.
+(defun sweeprolog--variables-at-point (point)
+  "Return information about variables in the Prolog term at POINT.
 
 Returns a cons cell (VAR-OCCURRENCES . VAR-AT-POINT).
 VAR-OCCURRENCES is an alist of elements (VAR . OCCURRENCES) where
@@ -5538,8 +5540,7 @@ VAR is a variable name and OCCURRENCES is itself an alist 
of
 elements (BEG . END) describing the beginning and end of
 occurrences of this variable in buffer positions.  VAR-AT-POINT
 is the name of the variable at point, if any."
-  (let ((point (point))
-(vars nil)
+  (let ((vars nil)
 (var-at-point nil))
 (sweeprolog-analyze-term-at-point
  (lambda (beg end arg)
@@ -5551,7 +5552,8 @@ is the name of the variable at point, if any."
 (push (cons beg end)
   (alist-get var vars nil nil #'string=))
 (when (<= beg point end)
-  (setq var-at-point var)))
+  (setq var-at-point var))
+ point)
 (cons vars var-at-point)))
 
 (defun sweeprolog--format-variable (var)
@@ -5568,57 +5570,56 @@ print a message with the number of replaced occurrences 
of OLD.
 Interactively, OLD, NEW and POINT are nil, and INTERACTIVE is t."
   (interactive (list nil nil nil t) sweeprolog-mode)
   (setq point (or point (point)))
-  (save-excursion
-(goto-char point)
-(let* ((term-var-occurrences (sweeprolog--variables-at-point))
-   (var-occurrences (car term-var-occurrences))
-   (var-at-point (cdr term-var-occurrences)))
-  (unless var-occurrences
-(user-error "No variables to rename here!"))
-  (let* ((max-var-len (apply #'max
- (mapcar #'length
- (mapcar #'car
- var-occurrences
- (completion-extra-properties
-  (list :annotation-function
-(lambda (key)
-  (let ((n (length (alist-get key var-occurrences nil nil 
#'string=
-(concat (make-string (- max-var-len (length key)) ? )
-(format " %d %s" n
-(ngettext "occurrence"
-  "occurrences"
-  n)))
- (old-name
-  (or old
-  (completing-read
-   (concat
-"Rename variable"
-(when-let ((def var-at-point))
-  (concat " (default " (sweeprolog--format-variable def) 
")"))
-": ")
-   var-occurrences nil t nil nil var-at-point)))
- (new-name
-  (or new
-  (read-string
-   (concat
-"Rename " (sweeprolog--format-variable old-name) " to: ")
-  

[nongnu] elpa/sweeprolog 78b8ceb0fc 2/4: * (xref-backend-references): report progress while formatting refs

[ELPA Syncer]

branch: elpa/sweeprolog
commit 78b8ceb0fcef5f516913d5868c74966fe06b9d44
Author: Eshel Yaron 
Commit: Eshel Yaron 

* (xref-backend-references): report progress while formatting refs
---
 sweeprolog.el | 25 ++---
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 1f283d76f0..f8acb87274 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -4514,17 +4514,20 @@ accordingly."
 (list (xref-make (concat path ":" (number-to-string line)) 
(xref-make-file-location path line 0)
 
 (cl-defmethod xref-backend-references ((_backend (eql sweeprolog)) mfn)
-  (let ((refs (sweeprolog-predicate-references mfn)))
-(seq-map (lambda (loc)
-   (let* ((by   (nth 0 loc))
-  (file (nth 1 loc))
-  (beg  (nth 2 loc))
-  (buf (find-file-noselect file t)))
- (xref-make (format "Call from %s at line %s" by
-(with-current-buffer buf
-  (line-number-at-pos beg t)))
-(xref-make-buffer-location buf beg
- refs)))
+  (let ((xref-items nil)
+(refs (sweeprolog-predicate-references mfn)))
+(dolist-with-progress-reporter (loc refs)
+"Formatting cross references... "
+  (push (let* ((by   (nth 0 loc))
+   (file (nth 1 loc))
+   (beg  (nth 2 loc))
+   (buf (find-file-noselect file t)))
+  (xref-make (format "Call from %s at line %s" by
+ (with-current-buffer buf
+   (line-number-at-pos beg t)))
+ (xref-make-buffer-location buf beg)))
+xref-items))
+(reverse xref-items)))
 
 (cl-defmethod xref-backend-apropos ((_backend (eql sweeprolog)) pattern)
   (let ((matches (sweeprolog-predicate-apropos pattern)))

[nongnu] elpa/org-auto-tangle 817eabf902: Update License.org

[ELPA Syncer]

branch: elpa/org-auto-tangle
commit 817eabf902e759e96782bdc54d2dab36c4a2c5ab
Author: nixyghast 
Commit: GitHub 

Update License.org
---
 License.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/License.org b/License.org
index b4f47f9806..0b1759d5c4 100644
--- a/License.org
+++ b/License.org
@@ -1,4 +1,4 @@
-Copyright (c) 2021-2022, Yilkal Argaw
+Copyright (c) 2021-2023, Yilkal Argaw
 
 Redistribution and use in source and binary forms, with or without
 modification, are permitted provided that the following conditions are met:

[elpa] externals/compat f3c4dbd7da: Update readme

[ELPA Syncer]

branch: externals/compat
commit f3c4dbd7da3f14d104e94fdb7dd0291fc6456536
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update readme
---
 compat.texi | 15 ++-
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/compat.texi b/compat.texi
index 2e013ccd26..7c18051fbc 100644
--- a/compat.texi
+++ b/compat.texi
@@ -253,11 +253,16 @@ benefits would be small given that Compat does not 
override existing
 definitions.
 
 @item
-New functionality depends on an entire new, non-trivial library.
-Sometimes these are provided via ELPA (xref, project, seq, map,
-@dots{}), but other times it would be infeasible to duplicate an
-entire library within Compat while also providing the necessary
-backwards compatibility.
+The definition belongs to an Emacs core package, which is also
+distributed via ELPA.  Compat does not have to provide backward
+compatibility for core packages since the updated package can be
+installed directly from ELPA. Examples include xref, project, seq, map
+and transient.
+
+@item
+New functionality depends on an entire new, non-trivial core library,
+which is infeasible to duplicate within Compat while also providing
+the necessary backwards compatibility.
 
 @item
 New functionality was implemented in the C core, and depends on

[elpa] externals/websocket 1f086f14f0: Update to version 1.14

[Andrew Hyatt]

branch: externals/websocket
commit 1f086f14f0f55f55eafd09f404f48e924157c1d1
Author: Andrew Hyatt 
Commit: Andrew Hyatt 

Update to version 1.14

This version has a bug fix for properly setting the websocket to closed 
when it
is closed abnormally.
---
 websocket.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/websocket.el b/websocket.el
index f1555228ae..3bcbe0f99e 100644
--- a/websocket.el
+++ b/websocket.el
@@ -5,7 +5,7 @@
 ;; Author: Andrew Hyatt 
 ;; Homepage: https://github.com/ahyatt/emacs-websocket
 ;; Keywords: Communication, Websocket, Server
-;; Version: 1.13.1
+;; Version: 1.14
 ;; Package-Requires: ((cl-lib "0.5"))
 ;;
 ;; This program is free software; you can redistribute it and/or
@@ -720,6 +720,7 @@ to the websocket protocol.
 
   (when (and (member status '(closed failed exit signal))
  (not (eq 'closed (websocket-ready-state websocket
+(setf (websocket-ready-state websocket) 'closed)
 (websocket-try-callback 'websocket-on-close 'on-close 
websocket))
 
 (defun websocket-ensure-handshake (url conn key protocols extensions 
custom-header-alist nowait)