diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2010-05-07 02:46:09 +0200 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2010-05-07 02:46:09 +0200 |
commit | f83483ff69287a38536a0e3b9d10d3f9d729aed2 (patch) | |
tree | 8f05ea75ae1decde36381cf649d145439bfcd537 /lisp/emulation/cua-gmrk.el | |
parent | 06304e031fc9b5777a8fb10d1a3e22bf1dda2922 (diff) | |
download | emacs-f83483ff69287a38536a0e3b9d10d3f9d729aed2.tar.gz |
* cua-base.el, cua-gmrk.el: Fix use of `filter-buffer-substring'.
Diffstat (limited to 'lisp/emulation/cua-gmrk.el')
-rw-r--r-- | lisp/emulation/cua-gmrk.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emulation/cua-gmrk.el b/lisp/emulation/cua-gmrk.el index 6cb8bfe6e1c..6c69800d73c 100644 --- a/lisp/emulation/cua-gmrk.el +++ b/lisp/emulation/cua-gmrk.el @@ -137,8 +137,9 @@ With prefix argument, don't jump to global mark when cancelling it." (let ((src-buf (current-buffer))) (save-excursion (if (equal (marker-buffer cua--global-mark-marker) src-buf) - (let ((text (filter-buffer-substring start end nil t))) + (let ((text (filter-buffer-substring start end))) (goto-char (marker-position cua--global-mark-marker)) + (set-text-properties 0 (length text) text) (insert text)) (set-buffer (marker-buffer cua--global-mark-marker)) (goto-char (marker-position cua--global-mark-marker)) @@ -161,10 +162,11 @@ With prefix argument, don't jump to global mark when cancelling it." (if (and (< start (marker-position cua--global-mark-marker)) (< (marker-position cua--global-mark-marker) end)) (message "Can't move region into itself") - (let ((text (filter-buffer-substring start end nil t)) + (let ((text (filter-buffer-substring start end)) (p1 (copy-marker start)) (p2 (copy-marker end))) (goto-char (marker-position cua--global-mark-marker)) + (set-text-properties 0 (length text) text) (insert text) (cua--activate-global-mark) (delete-region (marker-position p1) (marker-position p2)) |