diff options
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/simple.el | 5 |
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) |