[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Combining two short lisp routines
From: |
Barry Margolin |
Subject: |
Re: Combining two short lisp routines |
Date: |
Tue, 24 May 2011 20:01:55 -0000 |
User-agent: |
MT-NewsWatcher/3.5.3b3 (Intel Mac OS X) |
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 ***
- Re: Combining two short lisp routines,
Barry Margolin <=