Mercurial > emacs
changeset 61112:c0f29f51c65c
(copy-to-register, append-to-register, prepend-to-register):
Use filter-buffer-substring.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 29 Mar 2005 20:54:04 +0000 |
| parents | 43d165e3db5b |
| children | b05fcd53a916 |
| files | lisp/register.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)))