[elpa] externals/vertico-posframe updated (cd54c3f022 -> 47e9aa7543)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico-posframe.

  from  cd54c3f022 v0.5.2
   new  ef430c2a8a Add vertico-posframe-truncate-lines.
   new  47e9aa7543 v0.5.3


Summary of changes:
 vertico-posframe.el | 8 ++--
 1 file changed, 6 insertions(+), 2 deletions(-)

[elpa] externals/vertico-posframe 47e9aa7543 2/2: v0.5.3

[ELPA Syncer]

branch: externals/vertico-posframe
commit 47e9aa75431e76830d826f6b8e4466f62449819e
Author: Feng Shu 
Commit: Feng Shu 

v0.5.3
---
 vertico-posframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index c5d874ed06..d4f07a85e2 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -5,7 +5,7 @@
 ;; Author: Feng Shu 
 ;; Maintainer: Feng Shu 
 ;; URL: https://github.com/tumashu/vertico-posframe
-;; Version: 0.5.2
+;; Version: 0.5.3
 ;; Keywords: abbrev, convenience, matching, vertico
 ;; Package-Requires: ((emacs "26.0") (posframe "1.1.4") (vertico "0.13.0"))
 

[nongnu] elpa/projectile 20df208385: Update projects.adoc

[ELPA Syncer]

branch: elpa/projectile
commit 20df208385ce7b80207602c9931e31094eca85fb
Author: Garrett Thompson 
Commit: Bozhidar Batsov 

Update projects.adoc

Fix minor space typo
---
 doc/modules/ROOT/pages/projects.adoc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/modules/ROOT/pages/projects.adoc 
b/doc/modules/ROOT/pages/projects.adoc
index 6bfbf4a320..30daf4cd35 100644
--- a/doc/modules/ROOT/pages/projects.adoc
+++ b/doc/modules/ROOT/pages/projects.adoc
@@ -185,7 +185,7 @@ Let's see a couple of more complex examples.
 ;; Ruby + Minitest
 (projectile-register-project-type 'ruby-test '("Gemfile" "lib" "test")
   :project-file "Gemfile"
-  :compile"bundle exec rake"
+  :compile "bundle exec rake"
   :src-dir "lib/"
   :test "bundle exec rake test"
   :test-suffix "_test")

[elpa] externals/vertico-posframe ef430c2a8a 1/2: Add vertico-posframe-truncate-lines.

[ELPA Syncer]

branch: externals/vertico-posframe
commit ef430c2a8a69939bd8b358670fe83fb3e75a4ffd
Author: Feng Shu 
Commit: Feng Shu 

Add vertico-posframe-truncate-lines.

* vertico-posframe.el (vertico-posframe-truncate-lines): New custom.
(vertico-posframe--show): Use above custom.
---
 vertico-posframe.el | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index da91b38b02..c5d874ed06 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -84,6 +84,10 @@ When nil, Using current frame's font as fallback."
   "The min height of vertico-posframe."
   :type 'number)
 
+(defcustom vertico-posframe-truncate-lines t
+  "Non-nil means truncate lines in vertico-posframe."
+  :type 'boolean)
+
 (defcustom vertico-posframe-poshandler #'posframe-poshandler-frame-center
   "The posframe poshandler used by vertico-posframe."
   :type 'function)
@@ -219,7 +223,7 @@ is called, window-point will be set to WINDOW-POINT."
   :override-parameters vertico-posframe-parameters
   :refposhandler vertico-posframe-refposhandler
   :hidehandler #'vertico-posframe-hidehandler
-  :lines-truncate t
+  :lines-truncate vertico-posframe-truncate-lines
   (funcall vertico-posframe-size-function)
 ;; NOTE: `posframe-show' will force set window-point to 0, so we
 ;; need reset it again after `posframe-show'.

[elpa] externals/eev 0e332b0de3: Now `find-osm' can sort of handle links to Google Maps.

[ELPA Syncer]

branch: externals/eev
commit 0e332b0de3413a33acccd576e94e6e811abc407b
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Now `find-osm' can sort of handle links to Google Maps.
---
 ChangeLog |  7 +++
 VERSION   |  4 ++--
 eev-plinks.el |  8 +++-
 eev-tlinks.el | 10 --
 4 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5db41f924f..d6e6d23b80 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-03-21  Eduardo Ochs  
+
+   * eev-plinks.el (find-osm-str): new function.
+
+   * eev-tlinks.el (find-osm-links): include a link with
+   `find-osm-str'.
+
 2022-03-20  Eduardo Ochs  
 
* eev-eval.el (ee-goto-eol): new function.
diff --git a/VERSION b/VERSION
index ceb71189ec..f04b7b2e3b 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Mar 20 06:19:58 GMT 2022
-Sun Mar 20 03:19:58 -03 2022
+Mon Mar 21 07:22:30 GMT 2022
+Mon Mar 21 04:22:30 -03 2022
diff --git a/eev-plinks.el b/eev-plinks.el
index 3778ea055c..9676300f2c 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20220316
+;; Version:    20220321
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -458,6 +458,12 @@ viewer - installed for this to work, and Emacs 28 or 
later."
   (require 'osm)
   (find-dbsw-call `(osm-goto ,lat ,lon ,zoom)))
 
+;; Test: (find-osm-str "43.7731,11.2562,17" "Il Duomo")
+;;
+(defun find-osm-str (latlonzoomstr &rest comments)
+  (apply 'find-osm (mapcar 'string-to-number
+  (split-string latlonzoomstr "[^-.0-9]+"
+
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 49093ab72a..8af273dab2 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20220225
+;; Version:20220321
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -2904,6 +2904,7 @@ how this works."
 ;; «find-osm-links»  (to ".find-osm-links")
 ;; Skel: (find-find-links-links-new "osm" "lat lon zoom" "")
 ;; Test: (find-osm-links)
+;;   (find-osm-links  43.7731  11.2562 17 "Il Duomo")
 ;;  See: (find-eev "eev-plinks.el" "find-osm")
 ;;
 (defun find-osm-links (&optional lat lon zoom &rest pos-spec-list)
@@ -2931,7 +2932,12 @@ how this works."
   `((find-osm ,lat ,lon ,zoom)
 (osm-goto ,lat ,lon ,zoom)
 (find-efunction 'find-osm)
-(find-efunction 'osm-goto)))
+(find-efunction 'osm-goto)
+""
+,(ee-template0 "\
+# (find-osm-str \"{lat},{lon},{zoom}\")
+# https://www.google.com.br/maps/@{lat},{lon},{zoom}z?hl=en";)
+))
 
 (defun ee-osm-lat  () (if (eq major-mode 'osm-mode) (osm--lat)))
 (defun ee-osm-lon  () (if (eq major-mode 'osm-mode) (osm--lon)))

[elpa] externals/org updated (7e78f664b2 -> b7c32d873d)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  7e78f664b2 Merge branch 'bugfix'
   new  847e332301 lisp/org-agenda.el: Fix bug in 
`org-agenda-highlight-todo'
   new  b7c32d873d Merge branch 'bugfix'


Summary of changes:
 lisp/org-agenda.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

[elpa] externals/org b7c32d873d: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit b7c32d873d3c96324a23221b73b8c02eee793dc1
Merge: 7e78f664b2 847e332301
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/org-agenda.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 9bc44a56eb..2d1a67d189 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7635,12 +7635,13 @@ The optional argument TYPE tells the agenda type."
  (concat
   (substring x 0 (match-end 1))
(unless (string= org-agenda-todo-keyword-format "")
-(format org-agenda-todo-keyword-format
-(match-string 2 x)))
-   ;; Remove `display' property as the icon could leak
-  ;; on the white space.
-  (org-add-props " " (org-plist-delete (text-properties-at 0 x)
-'display))
+ (format org-agenda-todo-keyword-format
+ (match-string 2 x)))
+   (unless (string= org-agenda-todo-keyword-format "")
+ ;; Remove `display' property as the icon could leak
+ ;; on the white space.
+ (org-add-props " " (org-plist-delete (text-properties-at 
0 x)
+  'display)))
(substring x (match-end 3)))
   x)))
 

[elpa] externals-release/org 847e332301: lisp/org-agenda.el: Fix bug in `org-agenda-highlight-todo'

[ELPA Syncer]

branch: externals-release/org
commit 847e3323018afef850c7e5a3bb159ace6e17d309
Author: Samim Pezeshki 
Commit: Ihor Radchenko 

lisp/org-agenda.el: Fix bug in `org-agenda-highlight-todo'

* lisp/org-agenda.el (org-agenda-highlight-todo): Skip formatting
the to-do keyword when `org-agenda-todo-keyword-format' is the
empty string.

TINYCHANGE
---
 lisp/org-agenda.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index ae0058e037..3f7804f789 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7180,12 +7180,13 @@ The optional argument TYPE tells the agenda type."
  (concat
   (substring x 0 (match-end 1))
(unless (string= org-agenda-todo-keyword-format "")
-(format org-agenda-todo-keyword-format
-(match-string 2 x)))
-   ;; Remove `display' property as the icon could leak
-  ;; on the white space.
-  (org-add-props " " (org-plist-delete (text-properties-at 0 x)
-'display))
+ (format org-agenda-todo-keyword-format
+ (match-string 2 x)))
+   (unless (string= org-agenda-todo-keyword-format "")
+ ;; Remove `display' property as the icon could leak
+ ;; on the white space.
+ (org-add-props " " (org-plist-delete (text-properties-at 
0 x)
+  'display)))
(substring x (match-end 3)))
   x)))
 

[elpa] externals/eglot afe2e1135f: ; * NEWS.md: document the new workspace-folders support

[ELPA Syncer]

branch: externals/eglot
commit afe2e1135fba26099ba363bac27d75a747870f32
Author: Felicián Németh 
Commit: Felicián Németh 

; * NEWS.md: document the new workspace-folders support
---
 NEWS.md | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index dcbcf1f2b4..ad087134be 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,10 @@
 # (upcoming)
 
+# Provide basic workspace-folders support ([#893][github#893])
+Eglot now advertises `project-root` and `project-external-roots` as
+workspace-folders.  (Configuring `tags-table-list` sets the external
+roots of a simple git project.)
+
 # Show project wide diagnosics ([#810][github#810])
 Some LSP servers report diagnostics for all files in the current
 workspace.  Flymake has as of version 1.2.1 the option to show
@@ -349,3 +354,4 @@ and now said bunch of references-->
 [github#803]: https://github.com/joaotavora/eglot/issues/803
 [github#810]: https://github.com/joaotavora/eglot/issues/810
 [github#813]: https://github.com/joaotavora/eglot/issues/813
+[github#893]: https://github.com/joaotavora/eglot/issues/893

[elpa] externals/hyperbole updated (78929bf90b -> 77e7a36c93)

[ELPA Syncer]

elpasync pushed a change to branch externals/hyperbole.

  from  78929bf90b Add test case for action key on hyphen in lisp symbol 
(#164)
   new  e34dc5e846 Fix hyrolo logical expressions not matching across whole 
entry trees
   new  86af1cf259 Add Koutliner Org-like [M-down] and [M-up] tree movement 
commands
   new  ba249ae703 Merge branch 'master' of hyperbole
   new  77e7a36c93 Add new Koutline key bindings for [M-down] and [M-up]


Summary of changes:
 ChangeLog  |  18 +++
 HY-NEWS|  48 +
 hib-kbd.el |   8 +--
 hyrolo.el  |  23 
 kotl/EXAMPLE.kotl  | 153 +++--
 kotl/kotl-mode.el  |  43 +--
 man/hyperbole.html |  95 ++---
 man/hyperbole.info | Bin 582143 -> 583804 bytes
 man/hyperbole.pdf  | Bin 1334690 -> 1335755 bytes
 man/hyperbole.texi |  85 ++---
 10 files changed, 297 insertions(+), 176 deletions(-)

[elpa] externals/hyperbole ba249ae703 3/4: Merge branch 'master' of hyperbole

[ELPA Syncer]

branch: externals/hyperbole
commit ba249ae70334873755a06529078695d13809f6d7
Merge: 86af1cf259 78929bf90b
Author: Bob Weiner 
Commit: Bob Weiner 

Merge branch 'master' of hyperbole
---
 ChangeLog|  9 +
 DEMO |  4 ++--
 FAST-DEMO|  2 +-
 HY-ANNOUNCE  |  2 +-
 HY-NEWS  | 20 ++--
 INSTALL  |  2 +-
 README   |  4 ++--
 README.md|  6 +++---
 man/hyperbole.texi   | 36 ++--
 test/hmouse-drv-tests.el | 21 +
 10 files changed, 64 insertions(+), 42 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6029e2b80c..711ac1675a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -16,6 +16,15 @@
 * hyrolo.el (hyrolo-fgrep): Fix to match logical expressions across an entire 
tree of entries
 when no matches within individual subentries.
 
+2022-03-20  Mats Lidell  
+
+* test/hmouse-drv-tests.el (hbut-key-press-on-hyphen-in-elisp-symbol): Add
+test case.
+
+2022-03-13  Mats Lidell  
+
+* man/hyperbole.texi: Fix spelling.
+
 2022-03-13  Bob Weiner  
 
 * hyrolo.el (hyrolo-sort): Simplify and fix multi-level entry sorting.
diff --git a/DEMO b/DEMO
index db0f615697..22102db6d1 100644
--- a/DEMO
+++ b/DEMO
@@ -271,7 +271,7 @@ buffers.
 By default, this command shows buffers with attached files only and prompts
 for the size of the grid to display.  With a negative prefix argument, the @
 command prompts for a shell glob-type pattern of files to match, e.g. 
*hypb*.el,
-and then chooses the smallest square grid patterns that can accomodate the 
number
+and then chooses the smallest square grid patterns that can accommodate the 
number
 of files matched, e.g. 3x3 or 4x4, etc.
 
 
@@ -1551,7 +1551,7 @@ displayed in a newly created and selected frame.
 So now you can rapidly put a bunch of buffers and files on your screen wherever
 you like.  Typically, a brief visual pulse is shown first at the source item 
and
 then in the destination window, to help you see that the transfer has been
-made.  An Assist Key Drag will move the the item list buffer to the destination
+made.  An Assist Key Drag will move the item list buffer to the destination
 (swapping buffers), just as it does with other buffers.  Practice these drags 
as
 they will prove very beneficial across time.
 
diff --git a/FAST-DEMO b/FAST-DEMO
index d562e559af..ae7066759e 100644
--- a/FAST-DEMO
+++ b/FAST-DEMO
@@ -84,7 +84,7 @@
 
 "(hyperbole)action-key-modeline-function" 
 
-   Double quoted Info manual refererences are also implicit buttons.
+   Double quoted Info manual references are also implicit buttons.
You can link to both nodes/sections in GNU Info manuals as well
as to specific lines referenced by an index entry, as shown
above, providing fine-grained structured document linking.  Remember
diff --git a/HY-ANNOUNCE b/HY-ANNOUNCE
index 762d7cdb5c..2d48a19fd4 100644
--- a/HY-ANNOUNCE
+++ b/HY-ANNOUNCE
@@ -99,7 +99,7 @@ all new, interactive DEMO and explore sections of interest:
 
{C-h h d d}
 
-To permanantly activate Hyperbole in your Emacs initialization file, add
+To permanently activate Hyperbole in your Emacs initialization file, add
 the line:
 
(hyperbole-mode 1)
diff --git a/HY-NEWS b/HY-NEWS
index 836985614b..b4493f9021 100644
--- a/HY-NEWS
+++ b/HY-NEWS
@@ -79,7 +79,7 @@
   "(hyperbole)Implicit Button Link Types".
 
   Elisp programmers should use the existing `defib' macro for full
-  flexibility in implicit button type creation.  See "hibytpes.el"
+  flexibility in implicit button type creation.  See "hibtypes.el"
   for examples and "(hyperbole)Programmatic Implicit Button Types"
   for documentation.
 
@@ -91,7 +91,7 @@
   test/ subdirectory.  Simply run 'make test' or 'make test-all' from the
   command-line when in the Hyperbole source directory and you should see
   all tests pass.  If any fail, you can press the Action Key to see the
-  source of the failure.  Full testing is suppored under POSIX systems
+  source of the failure.  Full testing is supported under POSIX systems
   only.  See "Makefile" and "test/MANIFEST".
  
   *** Implicit Button Types to Run Tests: The file "hypb-ert.el" contains two
@@ -189,7 +189,7 @@
 
   *** New Mail Tree Key Binding: The `kotl-mode:mail-tree' command that
   extracts the current view of a Koutline in text-only format and
-  creates an outgoing email messge with it, has moved from {C-c @}
+  creates an outgoing email message with it, has moved from {C-c @}
   to {C-c C-@} to prevent conflict with the global hycontrol-window-grid
   command bound to {C-c @}.
 
@@ -316,7 +316,7 @@
 
   *** Treat kbd Strings as Key Series Buttons: An Action Key press within
   the string of (kbd "string") issues the keys in string as if they were
-  pressed individually, ie.g the same as the key series

[elpa] externals/hyperbole 77e7a36c93 4/4: Add new Koutline key bindings for [M-down] and [M-up]

[ELPA Syncer]

branch: externals/hyperbole
commit 77e7a36c9391c7bd621e9294368d67de40716be0
Author: Bob Weiner 
Commit: Bob Weiner 

Add new Koutline key bindings for [M-down] and [M-up]
---
 kotl/kotl-mode.el | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index feec7988da..7b61253ce2 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -3,7 +3,7 @@
 ;; Author:   Bob Weiner
 ;;
 ;; Orig-Date:6/30/93
-;; Last-Mod: 20-Mar-22 at 15:36:24 by Bob Weiner
+;; Last-Mod: 20-Mar-22 at 22:34:26 by Bob Weiner
 ;;
 ;; Copyright (C) 1993-2021  Free Software Foundation, Inc.
 ;; See the "../HY-COPY" file for license information.
@@ -2424,9 +2424,9 @@ If arg is 0, make it 1; if arg is negative, move prior to 
that number of trees."
  (when (zerop n)
(setq to-tree (kcell-view:label)
 (if to-tree
-   (goto-char (+ (move-func from-tree to-tree nil)
+   (goto-char (+ (funcall move-func from-tree to-tree nil)
  point-offset))
-  (error "(kotl-mode:move-forward): Cannot move past %d trees at the same 
level" num-trees
+  (error "(kotl-mode:move-tree): Cannot move past %d trees at the same 
level" num-trees
 
 (defun kotl-mode:promote-tree (arg)
   "Move current tree a maximum of prefix ARG levels higher in current view.
@@ -3521,10 +3521,10 @@ Leave point at end of line now residing at START."
   (define-key kotl-mode-map "\C-c\C-u"  'kotl-mode:up-level)
   (define-key kotl-mode-map "\C-c\C-v"  'kvspec:activate)
   (define-key kotl-mode-map "\C-x\C-w"  'kfile:write)
-  (define-key kotl-mode-map [M-up]  'kotl-mode:transpose-lines-up)
-  (define-key kotl-mode-map (kbd "ESC ")'kotl-mode:transpose-lines-up)
-  (define-key kotl-mode-map [M-down]
'kotl-mode:transpose-lines-down)
-  (define-key kotl-mode-map (kbd "ESC ")  
'kotl-mode:transpose-lines-down)
+  (define-key kotl-mode-map [M-up]  'kotl-mode:move-tree-backward)
+  (define-key kotl-mode-map (kbd "ESC ")'kotl-mode:move-tree-backward)
+  (define-key kotl-mode-map [M-down]'kotl-mode:move-tree-forward)
+  (define-key kotl-mode-map (kbd "ESC ")  'kotl-mode:move-tree-forward)
   (mapc (lambda (key)
  (define-key kotl-mode-map key 'kotl-mode:promote-tree))
(list (kbd "M-") (kbd "ESC ") (kbd "C-c C-<") (kbd "C-c 
C-,")))

[elpa] externals/hyperbole e34dc5e846 1/4: Fix hyrolo logical expressions not matching across whole entry trees

[ELPA Syncer]

branch: externals/hyperbole
commit e34dc5e84611a47be8312bbf265d1b3ad72dd5ef
Author: Bob Weiner 
Commit: Bob Weiner 

Fix hyrolo logical expressions not matching across whole entry trees
---
 ChangeLog |  5 +
 hyrolo.el | 23 ++-
 2 files changed, 19 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dc3198a636..cce7ce1c29 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-03-20  Bob Weiner  
+
+* hyrolo.el (hyrolo-fgrep): Fix to match logical expressions across an entire 
tree of entries
+when no matches within individual subentries.
+
 2022-03-13  Bob Weiner  
 
 * hyrolo.el (hyrolo-sort): Simplify and fix multi-level entry sorting.
diff --git a/hyrolo.el b/hyrolo.el
index 1c9daa0271..2fda1b9a2b 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
 ;; Author:   Bob Weiner
 ;;
 ;; Orig-Date: 7-Jun-89 at 22:08:29
-;; Last-Mod: 13-Mar-22 at 10:47:52 by Bob Weiner
+;; Last-Mod: 20-Mar-22 at 10:53:11 by Bob Weiner
 ;;
 ;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -382,7 +382,7 @@ Return entry name if found, else nil."
 
 ;;;###autoload
 (defun hyrolo-fgrep (string &optional max-matches hyrolo-file count-only 
no-display)
-  "Display rolo entries matching STRING (or a logical match expression).
+  "Display rolo entries matching STRING (or a logical match expression) and 
return count of matches.
 To a maximum of optional prefix arg MAX-MATCHES, in file(s) from optional
 HYROLO-FILE or `hyrolo-file-list'.  Default is to find all matching entries.
 Each entry is displayed with all of its sub-entries.  Optional COUNT-ONLY
@@ -397,12 +397,17 @@ Return number of entries matched.  See also documentation 
for the variable
 `hyrolo-file-list' and the function `hyrolo-fgrep-logical' for documentation on
 the logical expression matching."
   (interactive "sFind rolo string (or logical expression): \nP")
-  (let ((total-matches
-(if (string-match "\(\\(and\\|or\\|xor\\|not\\)\\>" string)
-;; Search string contains embedded logic operators.
-(hyrolo-fgrep-logical string count-only nil t)
-  (hyrolo-grep (regexp-quote string) max-matches
-   hyrolo-file count-only no-display
+  (let ((total-matches 0))
+(if (string-match "\(\\(and\\|or\\|xor\\|not\\)\\>" string)
+   (progn
+ ;; Search string contains embedded logic operators.
+ ;; First try to match logical expression within a single
+ ;; subentry to minimize entries displayed.  If no match,
+ ;; then match across ancestors and descendants.
+ (when (zerop (setq total-matches (hyrolo-fgrep-logical string 
count-only nil t)))
+   (hyrolo-fgrep-logical string count-only t t)))
+  (setq total-matches (hyrolo-grep (regexp-quote string) max-matches
+  hyrolo-file count-only no-display)))
 (if (called-interactively-p 'interactive)
(message "%s matching entr%s found in rolo."
 (if (= total-matches 0) "No" total-matches)
@@ -426,7 +431,7 @@ the logical expression matching."
 
 ;;;###autoload
 (defun hyrolo-grep (regexp &optional max-matches hyrolo-file-or-bufs 
count-only no-display)
-  "Display rolo entries matching REGEXP.
+  "Display rolo entries matching REGEXP and return count of matches.
 To a maximum of prefix arg MAX-MATCHES, in buffer(s) from optional 
HYROLO-FILE-OR-BUFS or
 hyrolo-file-list.  Default is to find all matching entries.  Each entry is
 displayed with all of its sub-entries.  Optional COUNT-ONLY non-nil means don't

[elpa] externals/hyperbole 86af1cf259 2/4: Add Koutliner Org-like [M-down] and [M-up] tree movement commands

[ELPA Syncer]

branch: externals/hyperbole
commit 86af1cf259bbf6539b69a00bb7819c4f63a63169
Author: Bob Weiner 
Commit: Bob Weiner 

Add Koutliner Org-like [M-down] and [M-up] tree movement commands
---
 ChangeLog  |  13 +
 HY-NEWS|  48 +
 hib-kbd.el |   8 +--
 kotl/EXAMPLE.kotl  | 153 +++--
 kotl/kotl-mode.el  |  35 +++-
 man/hyperbole.html |  95 ++---
 man/hyperbole.info | Bin 582143 -> 583804 bytes
 man/hyperbole.pdf  | Bin 1334690 -> 1335755 bytes
 man/hyperbole.texi |  85 ++---
 9 files changed, 274 insertions(+), 163 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cce7ce1c29..6029e2b80c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,18 @@
 2022-03-20  Bob Weiner  
 
+* HY-NEWS (New Tree Promotion/Demotion Keys):
+  man/hyperbole.texi (Promoting and Demoting):
+  kotl/EXAMPLE.kotl: Fix 3d2 promotion/demotion tables.
+
+* hib-kbd.el (kbd-key:modified-key-regexp): Allow for square brackets around 
modified keys,
+like [M-down].
+
+* kotl/kotl-mode.el (kotl-mode:move-tree-backward, 
kotl-mode:move-tree-forward): Add to replicate
+Org mode M-up and M-down arrow tree movement and rebind these keys.
+  kotl/EXAMPLE.kotl: Doc new [M-down] and [M-up] key bindings.
+  man/hyperbole.texi (Relocating and Copying):
+  HY-NEWS (New Tree Movement Commands): Document these new commands.
+
 * hyrolo.el (hyrolo-fgrep): Fix to match logical expressions across an entire 
tree of entries
 when no matches within individual subentries.
 
diff --git a/HY-NEWS b/HY-NEWS
index fc0fce009b..836985614b 100644
--- a/HY-NEWS
+++ b/HY-NEWS
@@ -161,6 +161,32 @@
   Use a prefix arg with {TAB} to promote/demote Koutline trees when in
   a table since {TAB} moves between fields within a table.
 
+  *** New Tree Movement Commands: Like Org mode, {[M-down]} and {[M-up]} move
+  the current tree past or before other trees at the same level.  With a
+  prefix argument, move past that many trees.
+
+  *** New Tree Promotion/Demotion Keys: Tree promotion and demotion keys now
+  match many of the defaults in Org mode and Outline mode, plus some
+  easier to type ones.  The tables below summarize which keys work whether
+  inside an Org table or outside.  See "(hyperbole)Promoting and Demoting".
+
+  |+-|
+  | Promotion Inside Org Table | Demotion Inside Org Table   |
+  |+-|
+  | M-0 Shift-TAB or M-0 M-TAB | M-0 TAB |
+  | C-c C-,| C-c C-. |
+  | C-c C-<| C-c C-> |
+  |+-|
+
+  |-+|
+  | Promotion Outside Org Table | Demotion Outside Org Table |
+  |-+|
+  | Shift-TAB or M-TAB  | TAB|
+  | M-left  | M-right|
+  | C-c C-, | C-c C-.|
+  | C-c C-< | C-c C->|
+  |-+|
+
   *** New Mail Tree Key Binding: The `kotl-mode:mail-tree' command that
   extracts the current view of a Koutline in text-only format and
   creates an outgoing email messge with it, has moved from {C-c @}
@@ -174,28 +200,6 @@
   directly into other buffers without having to copy to a
   mail/message buffer first.
 
-  *** New Tree Demotion/Promotion Keys: Tree promotion and demotion keys now
-  match the defaults in Org mode and Outline mode, plus some easier to
-  type ones.  The tables below summarize which keys work whether inside
-  an Org table or outside.  See "(hyperbole)Promoting and Demoting".
-
-  |+-|
-  | Demotion Inside  Org Table | Promotion Inside  Org Table |
-  |+-|
-  | M-0 TAB| M-0 Shift-TAB or M-0 M-TAB  |
-  | C-c C-,| C-c C-. |
-  | C-c C-<| C-c C-> |
-  |+-|
-
-  |+-|
-  | Demotion Outside Org Table | Promotion Outside Org Table |
-  |+-|
-  | TAB| Shift-TAB or M-TAB  |
-  | M-left-arrow   | M-right-arrow   |
-  | C-c C-,| C-c C-. |
-  | C-c C-<| C-c C->   

[elpa] externals/vertico a92b1e47ff: vertico-repeat extension: Add vertico-repeat-select (Fix #182)

[ELPA Syncer]

branch: externals/vertico
commit a92b1e47ffe343e2c3096e2ea61af013a8a02af9
Author: Daniel Mendler 
Commit: Daniel Mendler 

vertico-repeat extension: Add vertico-repeat-select (Fix #182)
---
 extensions/vertico-repeat.el | 147 +--
 1 file changed, 99 insertions(+), 48 deletions(-)

diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index 4840f108da..1e73b31123 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -1,4 +1,4 @@
-;;; vertico-repeat.el --- Repeat the last Vertico session -*- lexical-binding: 
t -*-
+;;; vertico-repeat.el --- Repeat Vertico sessions -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2021, 2022  Free Software Foundation, Inc.
 
@@ -27,70 +27,121 @@
 ;;; Commentary:
 
 ;; This package is a Vertico extension, which enables repetition of the
-;; last Vertico session via the `vertico-repeat' command.
-;;
-;; (global-set-key "\M-r" #'vertico-repeat)
-;;
-;; It is necessary to register a minibuffer setup hook, which saves the
-;; Vertico state for repetition.
+;; Vertico sessions via the `vertico-repeat-last' and
+;; `vertico-repeat-select' commands. It is necessary to register a
+;; minibuffer setup hook, which saves the Vertico state for repetition.
 ;;
+;; (global-set-key "\M-r" #'vertico-repeat-last)
+;; (global-set-key "\M-R" #'vertico-repeat-select)
 ;; (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
 
 ;;; Code:
 
 (require 'vertico)
+(eval-when-compile (require 'cl-lib))
 
-(defvar-local vertico-repeat--restore nil)
-(defvar vertico-repeat--input nil)
-(defvar vertico-repeat--command nil)
-(defvar vertico-repeat--candidate nil)
+(defcustom vertico-repeat-filter
+  '(vertico-repeat-select
+execute-extended-command
+execute-extended-command-for-buffer)
+  "List of commands to filter out from the history."
+  :type '(repeat symbol)
+  :group 'vertico)
+
+(defvar vertico-repeat--history nil)
+(defvar-local vertico-repeat--command nil)
+(defvar-local vertico-repeat--input nil)
 
 (defun vertico-repeat--save-input ()
-  "Save current minibuffer content for `vertico-repeat'."
+  "Save current minibuffer input."
   (setq vertico-repeat--input (minibuffer-contents)))
 
-(defun vertico-repeat--save-candidate ()
-  "Save currently selected candidate for `vertico-repeat'."
-  (setq vertico-repeat--candidate
-(and vertico--lock-candidate
- (>= vertico--index 0)
- (nth vertico--index vertico--candidates
-
-(defun vertico-repeat--restore ()
-  "Restore Vertico status for `vertico-repeat'."
-  (setq vertico-repeat--restore t)
+(defun vertico-repeat--save-exit ()
+  "Save command session in `vertico-repeat--history'."
+  (add-to-history
+   'vertico-repeat--history
+   (list
+vertico-repeat--command
+vertico-repeat--input
+(and vertico--lock-candidate
+ (>= vertico--index 0)
+ (nth vertico--index vertico--candidates)
+
+(defun vertico-repeat--restore (session)
+  "Restore Vertico SESSION for `vertico-repeat'."
   (delete-minibuffer-contents)
-  (insert vertico-repeat--input)
-  (when vertico-repeat--candidate
-(run-at-time 0 nil
- (lambda ()
-   (when-let (idx (seq-position vertico--candidates 
vertico-repeat--candidate))
- (setq vertico--index idx
-   vertico--lock-candidate t)
- (vertico--exhibit))
-
-;;;###autoload
-(defun vertico-repeat ()
-  "Repeat last Vertico completion session."
-  (interactive)
-  (unless vertico-repeat--command
-(user-error "No repeatable Vertico session"))
-  (minibuffer-with-setup-hook
-  #'vertico-repeat--restore
-(command-execute (setq this-command vertico-repeat--command
+  (insert (cadr session))
+  (when (caddr session)
+(vertico--exhibit)
+(when-let (idx (seq-position vertico--candidates (caddr session)))
+  (setq vertico--index idx
+vertico--lock-candidate t)
+  (vertico--exhibit
 
 ;;;###autoload
 (defun vertico-repeat-save ()
-  "Save Vertico status for `vertico-repeat'.
+  "Save Vertico session for `vertico-repeat'.
 This function must be registered as `minibuffer-setup-hook'."
-  (when vertico--input
-(unless vertico-repeat--restore
-  (setq vertico-repeat--command this-command
-vertico-repeat--input ""
-vertico-repeat--candidate nil
-vertico-repeat--restore nil))
+  (when (and vertico--input (not (memq this-command vertico-repeat-filter)))
+(setq vertico-repeat--command this-command)
 (add-hook 'post-command-hook #'vertico-repeat--save-input nil 'local)
-(add-hook 'minibuffer-exit-hook #'vertico-repeat--save-candidate nil 
'local)))
+(add-hook 'minibuffer-exit-hook #'vertico-repeat--save-exit nil 'local)))
+
+;;;###autoload
+(defun vertico-repeat-last (&optional session)
+  "Repeat last Vertico completion SESSION."
+  (interactive
+   (list (or (car vertico-repeat--history)
+ 

[nongnu] elpa/git-commit b32521d543: magit-ediff-read-files: Handle renames in one-file logs

[ELPA Syncer]

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

magit-ediff-read-files: Handle renames in one-file logs

When a log uses "--follow" to show the history for a single file,
including history from before it was renamed, then the user might
invoke Ediff on a range where the name of the modified file does
not match the name stored in `magit-buffer-log-files'.

Try to determine which of the files that are being modified in that
range is an early incarnation of the file for which the log is shown.

This fails if the differences are too large for `git-diff' to still
consider the files to be renamed.  In that case fall back to having
users select the file themselves.

Closes #4377.
---
 lisp/magit-ediff.el | 24 +---
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/lisp/magit-ediff.el b/lisp/magit-ediff.el
index 114793efa2..4c5c084580 100644
--- a/lisp/magit-ediff.el
+++ b/lisp/magit-ediff.el
@@ -271,13 +271,23 @@ range)."
   "Read file in REVB, return it and the corresponding file in REVA.
 When FILEB is non-nil, use this as REVB's file instead of
 prompting for it."
-  (unless fileB
-(setq fileB (magit-read-file-choice
- (format "File to compare between %s and %s"
- revA (or revB "the working tree"))
- (magit-changed-files revA revB)
- (format "No changed files between %s and %s"
- revA (or revB "the working tree")
+  (unless (and fileB (member fileB (magit-revision-files revB)))
+(setq fileB
+  (or (and fileB
+   magit-buffer-log-files
+   (derived-mode-p 'magit-log-mode)
+   (member "--follow" magit-buffer-log-args)
+   (cdr (assoc fileB
+   (magit-renamed-files
+revB
+(oref (car (oref magit-root-section children))
+  value)
+  (magit-read-file-choice
+   (format "File to compare between %s and %s"
+   revA (or revB "the working tree"))
+   (magit-changed-files revA revB)
+   (format "No changed files between %s and %s"
+   revA (or revB "the working tree"))
   (list (or (car (member fileB (magit-revision-files revA)))
 (cdr (assoc fileB (magit-renamed-files revB revA)))
 (magit-read-file-choice

[nongnu] elpa/magit updated (e130206480 -> b32521d543)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  e130206480 Fix forge/force typo
  adds  b32521d543 magit-ediff-read-files: Handle renames in one-file logs

No new revisions were added by this update.

Summary of changes:
 lisp/magit-ediff.el | 24 +---
 1 file changed, 17 insertions(+), 7 deletions(-)

[nongnu] elpa/magit-section updated (e130206480 -> b32521d543)

[ELPA Syncer]

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

  from  e130206480 Fix forge/force typo
  adds  b32521d543 magit-ediff-read-files: Handle renames in one-file logs

No new revisions were added by this update.

Summary of changes:
 lisp/magit-ediff.el | 24 +---
 1 file changed, 17 insertions(+), 7 deletions(-)

[elpa] externals/mct 723c89ff0a: mct-avy: use autoloads for avy and embark

[ELPA Syncer]

branch: externals/mct
commit 723c89ff0a5009caa57ada473a0574d59b3b5477
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

mct-avy: use autoloads for avy and embark

In principle, mct-avy.el should be its own package and that is what I
might end up doing.  But let's keep it this way for the time being as I
am still experimenting with those extensions.

Thanks to Daniel Mendler for the feedback:

.
---
 mct-avy.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mct-avy.el b/mct-avy.el
index 11846cb5a4..cd5c1dfec3 100644
--- a/mct-avy.el
+++ b/mct-avy.el
@@ -5,7 +5,7 @@
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://gitlab.com/protesilaos/mct
 ;; Version: 0.5.0
-;; Package-Requires: ((emacs "27.1") (avy "0.5") (mct "0.5"))
+;; Package-Requires: ((emacs "27.1") (mct "0.5"))
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -36,7 +36,8 @@
  General utilities
 
 (require 'mct)
-(require 'avy)
+
+(declare-function avy-process "avy" (candidates &optional overlay-fn 
cleanup-fn))
 
 (defun mct-avy-choose (&optional fn)
   "Use Avy to go to completion candidate and optionally run FN."
@@ -81,6 +82,8 @@ completion where the minibuffer is not active."
   (interactive)
   (mct-avy-choose #'choose-completion))
 
+(declare-function embark-act "embark" (&optional arg))
+
 ;;;###autoload
 (defun mct-avy-embark-act ()
   "Use Avy to run `embark-act' on candidate.

[elpa] externals/org-modern 91ad14f155: org-modern-mode: Flush the font locking of the entire buffer (Fix #27)

[ELPA Syncer]

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

org-modern-mode: Flush the font locking of the entire buffer (Fix #27)
---
 org-modern.el | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index ad97072290..842a2e1ca4 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -507,10 +507,12 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
 '((" \\[\\(\\([0-9]+\\)%\\|\\([0-9]+\\)/\\([0-9]+\\)\\)\\]" (0 
(org-modern--statistics)))
 (font-lock-add-keywords nil org-modern--keywords 'append)
 (advice-add #'org-unfontify-region :after #'org-modern--unfontify))
-   (t (font-lock-remove-keywords nil org-modern--keywords)
-  (let ((org-modern-mode t))
-(org-modern--unfontify (point-min) (point-max)
-  (font-lock-flush))
+   (t (font-lock-remove-keywords nil org-modern--keywords)))
+  (save-restriction
+(widen)
+(let ((org-modern-mode t))
+  (org-modern--unfontify (point-min) (point-max)))
+(font-lock-flush)))
 
 (defun org-modern--unfontify (beg end &optional _)
   "Unfontify prettified elements between BEG and END."

[elpa] externals/embark updated (3a9e5e1744 -> 1bedea7531)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  3a9e5e1744 Remove some old obsolete definitions
   new  6a8e6ded2d Add mark/unmark functionality to embark collect buffers
   new  1bedea7531 Document marking functionality in Embark Collect buffers


Summary of changes:
 README.org  |  7 ++
 embark.el   | 79 -
 embark.texi |  7 ++
 3 files changed, 87 insertions(+), 6 deletions(-)

[elpa] externals/embark 1bedea7531 2/2: Document marking functionality in Embark Collect buffers

[ELPA Syncer]

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

Document marking functionality in Embark Collect buffers
---
 README.org  | 7 +++
 embark.texi | 7 +++
 2 files changed, 14 insertions(+)

diff --git a/README.org b/README.org
index 771b5c5a2a..c417e00b4e 100644
--- a/README.org
+++ b/README.org
@@ -160,6 +160,13 @@ sets:
   The candidates can be viewed in a grid or as a list showing
   additional annotations.
 
+  The Embark Collect buffer is "dired-like": you can mark and unmark
+  candidates with =m= and =u=, you can unmark all marked candidates with =U=
+  or toggle the marks with =t=. In an Embark Collect buffer
+  =embark-act-all= is bound to =A= and will act on all currently marked
+  candidates if there any, and will act on all candidates if none are
+  marked.
+
 - The =embark-export= command tries to open a buffer in an appropriate
   major mode for the set of candidates. If the candidates are files
   export produces a Dired buffer; if they are buffers, you get an
diff --git a/embark.texi b/embark.texi
index a23a4aa614..b514b54b90 100644
--- a/embark.texi
+++ b/embark.texi
@@ -253,6 +253,13 @@ candidates, for you to peruse and run actions on at your 
leisure.
 The candidates can be viewed in a grid or as a list showing
 additional annotations.
 
+The Embark Collect buffer is ``dired-like'': you can mark and unmark
+candidates with @samp{m} and @samp{u}, you can unmark all marked candidates 
with @samp{U}
+or toggle the marks with @samp{t}. In an Embark Collect buffer
+@samp{embark-act-all} is bound to @samp{A} and will act on all currently marked
+candidates if there any, and will act on all candidates if none are
+marked.
+
 @item
 The @samp{embark-export} command tries to open a buffer in an appropriate
 major mode for the set of candidates. If the candidates are files

[elpa] externals/embark 6a8e6ded2d 1/2: Add mark/unmark functionality to embark collect buffers

[ELPA Syncer]

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

Add mark/unmark functionality to embark collect buffers

This code is based on @minad's PR #467.
---
 embark.el | 79 ++-
 1 file changed, 73 insertions(+), 6 deletions(-)

diff --git a/embark.el b/embark.el
index 8cf2b605ee..ea2dc8eba4 100644
--- a/embark.el
+++ b/embark.el
@@ -2408,6 +2408,9 @@ default is `embark-collect'"
   "Face for annotations in Embark Collect.
 This is only used for annotation that are not already fontified.")
 
+(defface embark-collect-marked '((t (:inherit warning)))
+  "Face for marked candidates in an Embark Collect buffer.")
+
 (defcustom embark-collect-post-revert-hook nil
   "Hook run after an Embark Collect buffer is updated."
   :type 'hook)
@@ -2508,11 +2511,23 @@ all buffers."
   "Return candidates in Embark Collect buffer.
 This makes `embark-export' work in Embark Collect buffers."
   (when (derived-mode-p 'embark-collect-mode)
-(let ((fn (if (consp (car embark-collect--candidates)) #'car #'identity)))
-  (cons embark--type
-(mapcar (lambda (x)
-  (get-text-property 0 'embark--candidate (funcall fn x)))
-embark-collect--candidates)
+(cons embark--type
+  (or (save-excursion
+(mapcar (lambda (ov)
+  (goto-char (overlay-start ov))
+  (cadr (embark-target-collect-candidate)))
+(nreverse
+ (seq-filter
+  (lambda (ov)
+(eq (overlay-get ov 'face) 'embark-collect-marked))
+  (overlays-in (point-min) (point-max))
+  (let ((fn (if (consp (car embark-collect--candidates))
+#'car
+  #'identity))) 
+(mapcar (lambda (x)
+  (get-text-property 0 'embark--candidate
+ (funcall fn x)))
+embark-collect--candidates))
 
 (defun embark-completions-buffer-candidates ()
   "Return all candidates in a completions buffer."
@@ -2630,11 +2645,16 @@ For other Embark Collect buffers, run the default 
action on ENTRY."
   "Keymap for Embark collect mode."
   :parent tabulated-list-mode-map
   ("a" embark-act)
-  ("A" embark-collect-direct-action-minor-mode)
+  ("A" embark-act-all)
+  ("M-a" embark-collect-direct-action-minor-mode)
   ("z" embark-collect-zebra-minor-mode)
   ("M-q" embark-collect-toggle-view)
   ("v" embark-collect-toggle-view)
   ("e" embark-export)
+  ("t" embark-collect-toggle-marks)
+  ("m" embark-collect-mark)
+  ("u" embark-collect-unmark)
+  ("U" embark-collect-unmark-all)
   ("s" isearch-forward)
   ("f" forward-button)
   ("b" backward-button)
@@ -2810,6 +2830,52 @@ Refresh the buffer afterwards."
   (interactive)
   (embark-collect--toggle 'tabulated-list-use-header-line t nil))
 
+(defun embark-collect--marked-p (&optional location)
+  "Is the candidate at LOCATION marked?
+LOCATION defaults to point."
+  (seq-find (lambda (ov) (eq (overlay-get ov 'face) 'embark-collect-marked))
+(overlays-at (or location (point)
+
+(defun embark-collect-mark (&optional unmark)
+  "Mark the candidate at point in an Embark collect buffer.
+If called from Lisp with a non-nil UNMARK, instead unmark the
+candidate."
+  (interactive)
+  (unless (derived-mode-p 'embark-collect-mode)
+(user-error "Not in an Embark Collect mode buffer"))
+  (pcase (embark-target-collect-candidate)
+(`(,_type ,_cand ,start . ,end)
+ (if-let ((ov (embark-collect--marked-p)))
+ (when unmark (delete-overlay ov))
+   (unless unmark
+ (overlay-put (make-overlay start end)
+  'face 'embark-collect-marked)))
+ (forward-button 1 nil nil t))
+('nil (user-error "No candidate at point"
+
+(defun embark-collect-unmark ()
+  "Unmark the candidate at point in an Embark collect buffer."
+  (interactive)
+  (embark-collect-mark t))
+
+(defun embark-collect-unmark-all ()
+  "Unmark all marked candidates in an Embark Collect buffer."
+  (interactive)
+  (unless (derived-mode-p 'embark-collect-mode)
+(user-error "Not in an Embark Collect mode buffer"))
+  (dolist (ov (overlays-in (point-min) (point-max)))
+(when (eq (overlay-get ov 'face) 'embark-collect-marked)
+  (delete-overlay ov
+
+(defun embark-collect-toggle-marks ()
+  "Toggle marks: marked candidates become unmarked, and vice versa."
+  (interactive)
+  (unless (derived-mode-p 'embark-collect-mode)
+(user-error "Not in an Embark Collect mode buffer"))
+  (save-excursion
+(goto-char (point-min))
+(while (embark-collect-mark (embark-collect--marked-p)
+
 (defun embark-collect--update-candidates (buffer)
   "Update candidates for Embar

[elpa] externals/embark-consult updated (3a9e5e1744 -> 1bedea7531)

[ELPA Syncer]

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

  from  3a9e5e1744 Remove some old obsolete definitions
  adds  6a8e6ded2d Add mark/unmark functionality to embark collect buffers
  adds  1bedea7531 Document marking functionality in Embark Collect buffers

No new revisions were added by this update.

Summary of changes:
 README.org  |  7 ++
 embark.el   | 79 -
 embark.texi |  7 ++
 3 files changed, 87 insertions(+), 6 deletions(-)

[elpa] externals/debbugs 9692478693: * debbugs-gnu.el (debbugs-gnu-default-packages): Add "skribilo".

[Michael Albinus]

branch: externals/debbugs
commit 9692478693f2c9ca204141aff02b6abce4bbc733
Author: Michael Albinus 
Commit: Michael Albinus 

* debbugs-gnu.el (debbugs-gnu-default-packages): Add "skribilo".
---
 debbugs-gnu.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index ef28495265..64a076997d 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -288,6 +288,7 @@ If nil, the value of `send-mail-function' is used instead."
  (const "adns")
  (const "anubis")
  (const "auctex")
+ ;(const "autoconf")
  (const "automake")
  (const "automake-patches")
  (const "cc-mode")
@@ -314,6 +315,7 @@ If nil, the value of `send-mail-function' is used instead."
  (const "org-mode")
  (const "parted")
  (const "sed")
+ (const "skribilo")
  (const ,(propertize
  "spam"
  'face 'debbugs-gnu-done