Re: patch: {append,prepend}-to-register on empty register

[Miles Bader]

Thien-Thi Nguyen <address@hidden> writes:
> i would prefer `(set-register register (cond ...))'.
> likewise for other hunk.

(let ((reg (get-register register))
      (text (filter-buffer-substring start end)))
  (cond ((stringp reg)
         (setq text (concat reg text)))
        (reg
         (error "Register does not contain text")))
  (set-register register text))

-miles
-- 
((lambda (x) (list x x)) (lambda (x) (list x x)))