diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-08-07 12:52:15 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-08-07 12:52:15 +0800 |
| commit | 5fb50dd30236d8e64951c2f7e72a2d2e15257f24 (patch) | |
| tree | 07c1f8bf80a67478390a2dd8c483204e797d7725 /lisp/simple.el | |
| parent | c7feb5c081909de38c252eef8b90543de87063c3 (diff) | |
| download | emacs-5fb50dd30236d8e64951c2f7e72a2d2e15257f24.tar.gz | |
Preserve text properties when saving primary selection.
* lisp/simple.el (deactivate-mark): Preserve text properties when
saving the primary selection.
Fixes: debbugs:8384
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6b5da29b3bb..0877f396faa 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3960,9 +3960,8 @@ run `deactivate-mark-hook'." (or (x-selection-owner-p 'PRIMARY) (null (x-selection-exists-p 'PRIMARY)))) (x-set-selection 'PRIMARY - (buffer-substring-no-properties - (region-beginning) - (region-end)))))) + (buffer-substring (region-beginning) + (region-end)))))) (if (and (null force) (or (eq transient-mark-mode 'lambda) (and (eq (car-safe transient-mark-mode) 'only) |