From b8442da0be26da6894e7c168163f4025eed5eee2 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 17 Aug 2021 17:27:20 -0500
Subject: Indicate the region that's been copy-plain'd
---
lisp/acdw.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/acdw.el b/lisp/acdw.el
index 8cbe16d..2be0c4e 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -318,9 +318,11 @@ With a prefix argument, run git pull on the repo first."
(insert s)
(let ((sentence-end-double-space nil))
(unfill-region (point-min) (point-max)))
- (copy-region-as-kill (point-min) (point-max))
- (when (called-interactively-p 'interactive)
- (indicate-copied-region)))))
+ (copy-region-as-kill (point-min) (point-max)))
+ (when (called-interactively-p 'interactive)
+ (indicate-copied-region))
+ (setq deactivate-mark t)
+ nil))
(defun acdw/dir (&optional file make-directory)
"Place Emacs files in one place.
--
cgit 1.4.1-21-gabe81