/[emacs]/emacs/lisp/register.el
ViewVC logotype

Diff of /emacs/lisp/register.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by rms, Sun Feb 27 10:34:59 2005 UTC revision 1.50 by rms, Tue Mar 29 20:54:04 2005 UTC
# Line 277  Interactively, second arg is non-nil if Line 277  Interactively, second arg is non-nil if
277  Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.  Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
278  START and END are buffer positions indicating what to copy."  START and END are buffer positions indicating what to copy."
279    (interactive "cCopy to register: \nr\nP")    (interactive "cCopy to register: \nr\nP")
280    (set-register register (buffer-substring start end))    (set-register register (filter-buffer-substring start end))
281    (if delete-flag (delete-region start end)))    (if delete-flag (delete-region start end)))
282    
283  (defun append-to-register (register start end &optional delete-flag)  (defun append-to-register (register start end &optional delete-flag)
# Line 289  START and END are buffer positions indic Line 289  START and END are buffer positions indic
289    (or (stringp (get-register register))    (or (stringp (get-register register))
290        (error "Register does not contain text"))        (error "Register does not contain text"))
291    (set-register register (concat (get-register register)    (set-register register (concat (get-register register)
292                              (buffer-substring start end)))                              (filter-buffer-substring start end)))
293    (if delete-flag (delete-region start end)))    (if delete-flag (delete-region start end)))
294    
295  (defun prepend-to-register (register start end &optional delete-flag)  (defun prepend-to-register (register start end &optional delete-flag)
# Line 300  START and END are buffer positions indic Line 300  START and END are buffer positions indic
300    (interactive "cPrepend to register: \nr\nP")    (interactive "cPrepend to register: \nr\nP")
301    (or (stringp (get-register register))    (or (stringp (get-register register))
302        (error "Register does not contain text"))        (error "Register does not contain text"))
303    (set-register register (concat (buffer-substring start end)    (set-register register (concat (filter-buffer-substring start end)
304                              (get-register register)))                              (get-register register)))
305    (if delete-flag (delete-region start end)))    (if delete-flag (delete-region start end)))
306    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26