[elpa] externals/vertico 996d1223d2: vertico-buffer: Ensure that marked region is highlighted

[ELPA Syncer]

branch: externals/vertico
commit 996d1223d2be41023c0331f00176a633a84a7d1d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-buffer: Ensure that marked region is highlighted
---
 CHANGELOG.org                |  5 +++--
 extensions/vertico-buffer.el | 10 ++++++++++
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 98f95ae021..da03b14ba2 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -4,8 +4,9 @@
 
 * Development
 
-- Add ~vertico-multiform-buffer~. Support toggling ~vertico-buffer-mode~ 
during an
-  active minibuffer session.
+- ~vertico-multiform-buffer~: New display toggle command.
+- ~vertico-buffer-mode~: Support toggling during an active minibuffer session.
+- ~vertico-buffer-mode~: Highlight active region.
 
 * Version 1.5 (2023-12-01)
 
diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index be6d231c8d..02856e57aa 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -104,6 +104,13 @@
       (when vertico-buffer-hide-prompt
         (window-resize mbwin (- (window-pixel-height mbwin)) nil nil 
'pixelwise)
         (set-window-vscroll mbwin 100))
+      (when transient-mark-mode
+        (with-silent-modifications
+          (vertico--remove-face (point-min) (point-max) 'region)
+          (when (use-region-p)
+            (add-face-text-property
+             (max (minibuffer-prompt-end) (region-beginning))
+             (region-end) 'region))))
       (let ((old cursor-in-non-selected-windows)
             (new (and (eq (selected-window) mbwin)
                       (if (memq cursor-type '(nil t)) 'box cursor-type))))
@@ -161,6 +168,9 @@
           (lambda ()
             (with-selected-window (active-minibuffer-window)
               (when vertico-buffer--restore
+                (when transient-mark-mode
+                  (with-silent-modifications
+                    (vertico--remove-face (point-min) (point-max) 'region)))
                 (remove-hook 'pre-redisplay-functions 
#'vertico-buffer--redisplay 'local)
                 (remove-hook 'minibuffer-exit-hook vertico-buffer--restore)
                 (fset vertico-buffer--restore nil)