# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1112129644 0
# Node ID c0f29f51c65c10ed1f05374591f17c805e6ec093
# Parent  43d165e3db5bf847c6ec11b51f3b9fa0ac8e8e6c
(copy-to-register, append-to-register, prepend-to-register):
Use filter-buffer-substring.

diff -r 43d165e3db5b -r c0f29f51c65c lisp/register.el
--- a/lisp/register.el	Tue Mar 29 20:53:19 2005 +0000
+++ b/lisp/register.el	Tue Mar 29 20:54:04 2005 +0000
@@ -277,7 +277,7 @@
 Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
 START and END are buffer positions indicating what to copy."
   (interactive "cCopy to register: \nr\nP")
-  (set-register register (buffer-substring start end))
+  (set-register register (filter-buffer-substring start end))
   (if delete-flag (delete-region start end)))
 
 (defun append-to-register (register start end &optional delete-flag)
@@ -289,7 +289,7 @@
   (or (stringp (get-register register))
       (error "Register does not contain text"))
   (set-register register (concat (get-register register)
-			    (buffer-substring start end)))
+			    (filter-buffer-substring start end)))
   (if delete-flag (delete-region start end)))
 
 (defun prepend-to-register (register start end &optional delete-flag)
@@ -300,7 +300,7 @@
   (interactive "cPrepend to register: \nr\nP")
   (or (stringp (get-register register))
       (error "Register does not contain text"))
-  (set-register register (concat (buffer-substring start end)
+  (set-register register (concat (filter-buffer-substring start end)
 			    (get-register register)))
   (if delete-flag (delete-region start end)))