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