Preserve text properties when saving primary selection.

* lisp/simple.el (deactivate-mark): Preserve text properties when
saving the primary selection.

Fixes: debbugs:8384

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0d4a31ab65..7ec5cdb5565 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-07  Chong Yidong  <cyd@gnu.org>
+
+        * simple.el (deactivate-mark): Preserve text properties when
+        saving the primary selection (Bug#8384).
+
 2012-08-07  Kevin Ryde  <user42@zip.com.au>
 
         * woman.el (woman0-if): Quietly treat ".if v" as false (Bug#12109).
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)