diff options
Diffstat (limited to 'lisp/km-editing.el')
| -rw-r--r-- | lisp/km-editing.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/km-editing.el b/lisp/km-editing.el index 63ca7d4..262d3aa 100644 --- a/lisp/km-editing.el +++ b/lisp/km-editing.el @@ -84,14 +84,14 @@ special case. (delete-blank-lines)))) ;;;###autoload -(defun km/export-wrapped-text (&optional xselect) +(defun km/export-wrapped-text (&optional select) "Export the text in current buffer as wrapped text. This is useful for preparing text in emacs and then exporting to a wrapped buffer for pasting text (e.g., into a web form). -With an active region, restrict export to this region. If -XSELECT is non-nil, copy the region with `x-select-text'." +With an active region, restrict export to this region. If SELECT +is non-nil, copy the region with `gui-select-text'" (interactive "P") (let ((wrapped-buffer (get-buffer-create "*Wrapped export*"))) (apply #'copy-to-buffer wrapped-buffer @@ -104,8 +104,8 @@ XSELECT is non-nil, copy the region with `x-select-text'." (forward-line -1) (km/unfill-paragraph) (forward-line 1)) - (when xselect - (x-select-text + (when select + (gui-select-text (buffer-substring-no-properties (point-min) (point-max))))) (pop-to-buffer wrapped-buffer))) |