[elpa] externals/do-at-point 5b4ed8454e 34/44: Add write-region to region actions

[ELPA Syncer]

branch: externals/do-at-point
commit 5b4ed8454e1d44358e863f200fa9846dc084cdf6
Author: Philip Kaludercic <philip.kaludercic@fau.de>
Commit: Philip Kaludercic <philip.kaludercic@fau.de>

    Add write-region to region actions
---
 do-at-point.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/do-at-point.el b/do-at-point.el
index c26f873073..2cc631d64e 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -5,7 +5,7 @@
 ;; Author: Philip Kaludercic <philipk@posteo.net>
 ;; Maintainer: Philip Kaludercic <philipk@posteo.net>
 ;; URL: https://wwwcip.cs.fau.de/~oj14ozun/src+etc/do-at-point.el
-;; Version: $Id: do-at-point.el,v 1.32 2023/07/22 13:27:56 oj14ozun Exp 
oj14ozun $
+;; Version: $Id: do-at-point.el,v 1.33 2023/07/22 13:35:32 oj14ozun Exp 
oj14ozun $
 ;; Package-Version: 1
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: convenience
@@ -87,6 +87,10 @@ of this variable.")
            (isearch-yank-string str)))
      (?o "Occur" ,(lambda (str) (occur (regexp-quote str))))
      (?w "Kill-Save" ,#'kill-new)
+     (?W "Write region"
+        ,(lambda (beg end)
+           (let ((file (read-file-name "File: ")))
+             (write-region beg end file))))
      (?k "Kill" ,#'kill-region)
      (?n "Narrow" ,#'narrow-to-region)
      (?$ "Spell check" ,#'ispell-region)