procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Don't signal error on empty register; use the text, instead.
This commit is contained in:
Thien-Thi Nguyen 2007-11-03 21:02:35 +00:00
parent 6159985a12
commit c81f72cebe
2 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-11-03 Sean O'Rourke <seano@cs.ucla.edu>
* register.el (append-to-register, prepend-to-register):
Don't signal error on empty register; use the text, instead.
2007-11-03 Michael Olson <mwolson@gnu.org>
* textmodes/remember.el (remember-buffer): Use

20
lisp/register.el
View file

@ -287,10 +287,12 @@ With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to append."
(interactive "cAppend to register: \nr\nP")
(or (stringp (get-register register))
(error "Register does not contain text"))
(set-register register (concat (get-register register)
(filter-buffer-substring start end)))
(let ((reg (get-register register))
(text (filter-buffer-substring start end)))
(set-register
register (cond ((not reg) text)
((stringp reg) (concat reg text))
(t (error "Register does not contain text")))))
(if delete-flag (delete-region start end)))
(defun prepend-to-register (register start end &optional delete-flag)
@ -299,10 +301,12 @@ With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
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 (filter-buffer-substring start end)
(get-register register)))
(let ((reg (get-register register))
(text (filter-buffer-substring start end)))
(set-register
register (cond ((not reg) text)
((stringp reg) (concat text reg))
(t (error "Register does not contain text")))))
(if delete-flag (delete-region start end)))
(defun copy-rectangle-to-register (register start end &optional delete-flag)