andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copy-to-register, append-to-register, prepend-to-register):

Browse source 
Use filter-buffer-substring.
This commit is contained in:
Richard M. Stallman 2005-03-29 20:54:04 +00:00
parent 7fcce20f69
commit 13191e3233
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/register.el
View file

@ -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)))