summaryrefslogtreecommitdiff
path: root/lisp/km-editing.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-12-23 19:44:22 -0500
committerKyle Meyer <kyle@kyleam.com>2020-12-24 00:25:22 -0500
commit991b0bb3a1d86b5ef2347597ca85a0fff5148c3b (patch)
tree063c390b0f8774d57c9ece0ffed684066f8e59ba /lisp/km-editing.el
parent5b7727428bcb0c4b79bb766097c7936cee98a5bb (diff)
downloademacs.d-991b0bb3a1d86b5ef2347597ca85a0fff5148c3b.tar.gz
Silence byte-compiler
Diffstat (limited to 'lisp/km-editing.el')
-rw-r--r--lisp/km-editing.el10
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)))