summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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.