diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-12-23 19:44:22 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-12-24 00:25:22 -0500 |
commit | 991b0bb3a1d86b5ef2347597ca85a0fff5148c3b (patch) | |
tree | 063c390b0f8774d57c9ece0ffed684066f8e59ba /lisp/km-editing.el | |
parent | 5b7727428bcb0c4b79bb766097c7936cee98a5bb (diff) | |
download | emacs.d-991b0bb3a1d86b5ef2347597ca85a0fff5148c3b.tar.gz |
Silence byte-compiler
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))) |