Mercurial > emacs

changeset 69902:eea8aee5048b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-copy-region-to-global-mark) (cua-cut-region-to-global-mark): Use filter-buffer-substring.
author Kim F. Storm <storm@cua.dk>
date Sun, 09 Apr 2006 23:04:33 +0000
parents a1cf3efe0a2c
children 5b6c4153d145
files lisp/emulation/cua-gmrk.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-gmrk.el	Sun Apr 09 23:04:22 2006 +0000
+++ b/lisp/emulation/cua-gmrk.el	Sun Apr 09 23:04:33 2006 +0000
@@ -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))