1 files 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))
+      (copy-region-as-kill (point-min) (point-max)))
-      (when (called-interactively-p 'interactive)
+    (when (called-interactively-p 'interactive)
-        (indicate-copied-region)))))
+      (indicate-copied-region))
+    (setq deactivate-mark t)
+    nil))
 (defun acdw/dir (&optional file make-directory)
  "Place Emacs files in one place.