Re: Combining two short lisp routines

[Barry Margolin]

In article <LbCdnUvW4ImHql7QnZ2dnUVZ_r6dnZ2d@sysmatrix.net>,
 "B. T. Raven" <nihil@nihilo.net> wrote:

> 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

(defun insert-definition (word)
  "Search for WORD in dictionary, insert definition here."
  (interactive "sWord:")
  (switch-to-buffer "dict.txt")
  (re-search-forward (concat "^" word)
  (let ((text (buffer-substring (point)
                                (progn (end-of-line)
                                       (point)))))
     (other-buffer)
     (insert text)))

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***