summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-17 17:27:20 -0500
committerCase Duckworth2021-08-17 17:27:20 -0500
commitb8442da0be26da6894e7c168163f4025eed5eee2 (patch)
tree4a93bf586bf8a833846132a6609487653323a3b5
parentRe-enable limit on word count (diff)
downloademacs-b8442da0be26da6894e7c168163f4025eed5eee2.tar.gz
emacs-b8442da0be26da6894e7c168163f4025eed5eee2.zip
Indicate the region that's been copy-plain'd
-rw-r--r--lisp/acdw.el8
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."
318 (insert s) 318 (insert s)
319 (let ((sentence-end-double-space nil)) 319 (let ((sentence-end-double-space nil))
320 (unfill-region (point-min) (point-max))) 320 (unfill-region (point-min) (point-max)))
321 (copy-region-as-kill (point-min) (point-max)) 321 (copy-region-as-kill (point-min) (point-max)))
322 (when (called-interactively-p 'interactive) 322 (when (called-interactively-p 'interactive)
323 (indicate-copied-region))))) 323 (indicate-copied-region))
324 (setq deactivate-mark t)
325 nil))
324 326
325(defun acdw/dir (&optional file make-directory) 327(defun acdw/dir (&optional file make-directory)
326 "Place Emacs files in one place. 328 "Place Emacs files in one place.