[Emacs-diffs] Changes to emacs/lisp/emulation/cua-gmrk.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-gmrk.el
diff -u emacs/lisp/emulation/cua-gmrk.el:1.10 
emacs/lisp/emulation/cua-gmrk.el:1.11
--- emacs/lisp/emulation/cua-gmrk.el:1.10       Mon Feb  6 11:37:04 2006
+++ emacs/lisp/emulation/cua-gmrk.el    Sun Apr  9 23:04:33 2006
@@ -143,7 +143,7 @@
       (let ((src-buf (current-buffer)))
        (save-excursion
          (if (equal (marker-buffer cua--global-mark-marker) src-buf)
-             (let ((text (buffer-substring-no-properties start end)))
+             (let ((text (filter-buffer-substring start end nil t)))
                (goto-char (marker-position cua--global-mark-marker))
                (insert text))
            (set-buffer (marker-buffer cua--global-mark-marker))
@@ -167,7 +167,7 @@
              (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 (buffer-substring-no-properties start end))
+               (let ((text (filter-buffer-substring start end nil t))
                      (p1 (copy-marker start))
                      (p2 (copy-marker end)))
                  (goto-char (marker-position cua--global-mark-marker))