diff options
| -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. |