Combining two short lisp routines

["B. T. Raven" <nihil@nihilo.net>]

Can these two routines be combined, maybe by not even visiting dict.txt,
but transferring everything to end of line from that buffer?

(defun sld (word);; run from rcirc channel
    "Regex Search dictionary for Eng Word at line beginning"
     (interactive"sWord:")
     (switch-to-buffer "dict.txt")
     (re-search-forward (concat  "^" word))
)

(defun ttb (beg end);; run from dict.txt buffer
  "Transfer text to other buffer\n"
  (interactive "r")

;; in dict.txt buffer mark stretch of text here interactively for
 ;;;copying back to channel buffer

  (switch-to-buffer (other-buffer))
  (yank)
)



Thanks,

Ed