diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-12 13:09:37 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-12 13:09:37 +0000 |
| commit | 1b270b55c0d8f27fa9ef114636145d3a0f135e69 (patch) | |
| tree | 2676369e7f5c637442c1e4244f9f64a8af1c8258 /lisp/select.el | |
| parent | 8f011fdca9778f08060bf9a1a977635e1e5281a3 (diff) | |
| download | emacs-1b270b55c0d8f27fa9ef114636145d3a0f135e69.tar.gz | |
(x-set-selection): Call buffer-substring, not
substring. Also fix docstring
Diffstat (limited to 'lisp/select.el')
| -rw-r--r-- | lisp/select.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/select.el b/lisp/select.el index 3933efdd1a8..b27287e4b4d 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -51,10 +51,11 @@ can alter the effective value of the selection. The data may also be a vector of valid non-vector selection values. -Interactively, the text of the region is used as the selection value." +Interactively, the text of the region is used as the selection value +if the prefix arg is set." (interactive (if (not current-prefix-arg) (list 'PRIMARY (read-string "Set text for pasting: ")) - (list 'PRIMARY (substring (region-beginning) (region-end))))) + (list 'PRIMARY (buffer-substring (region-beginning) (region-end))))) ;; This is for temporary compatibility with pre-release Emacs 19. (if (stringp type) (setq type (intern type))) |