summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 2f878a9..15756c2 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -87,6 +87,16 @@ ARG). When called with multiple arguments or a list, it returns
87 (save-restriction 87 (save-restriction
88 (unfill-region (point-min) (point-max)))))) 88 (unfill-region (point-min) (point-max))))))
89 89
90(defun kill-ring-save-unfilled (start end &optional region)
91 "Unfill, kill, then re-fill the region defined by START and END positions.
92REGION is passed straight to `kill-ring-save'."
93 (interactive "*r")
94 (save-excursion
95 (save-restriction
96 (unfill-region start end)
97 (kill-ring-save start end region)
98 (fill-region start end))))
99
90(defmacro when-unfocused (name &rest forms) 100(defmacro when-unfocused (name &rest forms)
91 "Define a function NAME, executing FORMS, that fires when Emacs 101 "Define a function NAME, executing FORMS, that fires when Emacs
92is unfocused." 102is unfocused."