diff options
author | Richard M. Stallman <rms@gnu.org> | 2005-03-29 20:54:04 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2005-03-29 20:54:04 +0000 |
commit | 13191e3233268b1ff9d948e9caae347fca30a7bb (patch) | |
tree | 2fca69f56aec0caf796f20e80c44626c77626dd4 /lisp/register.el | |
parent | 7fcce20f6949bffc680fd8bd828344fdf04b5748 (diff) | |
download | emacs-13191e3233268b1ff9d948e9caae347fca30a7bb.tar.gz |
(copy-to-register, append-to-register, prepend-to-register):
Use filter-buffer-substring.
Diffstat (limited to 'lisp/register.el')
-rw-r--r-- | lisp/register.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/register.el b/lisp/register.el index 253207c3140..eaa53446c56 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -277,7 +277,7 @@ Interactively, second arg is non-nil if prefix arg is supplied." 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 @@ START and END are buffer positions indicating what to append." (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 @@ START and END are buffer positions indicating what to prepend." (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))) |