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

[Thien-Thi Nguyen]

() "Sean O'Rourke" <address@hidden>
() Fri, 02 Nov 2007 12:18:55 -0700

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

i would prefer `(set-register register (cond ...))'.
likewise for other hunk.

thi