diff options
| author | Case Duckworth | 2021-08-17 17:27:20 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-17 17:27:20 -0500 |
| commit | b8442da0be26da6894e7c168163f4025eed5eee2 (patch) | |
| tree | 4a93bf586bf8a833846132a6609487653323a3b5 | |
| parent | Re-enable limit on word count (diff) | |
| download | emacs-b8442da0be26da6894e7c168163f4025eed5eee2.tar.gz emacs-b8442da0be26da6894e7c168163f4025eed5eee2.zip | |
Indicate the region that's been copy-plain'd
| -rw-r--r-- | lisp/acdw.el | 8 |
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. |