mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(x-set-selection): Call buffer-substring, not

Browse Source 
substring.  Also fix docstring
This commit is contained in:
Gerd Moellmann 1999-11-12 13:09:37 +00:00
parent 8f011fdca9
commit 1b270b55c0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/select.el
View File

@ -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)))