From: Barry Margolin <barmar@alum.mit.edu>
To: help-gnu-emacs@gnu.org
Subject: Re: Combining two short lisp routines
Date: Fri, 06 May 2011 01:45:39 -0400 [thread overview]
Message-ID: <barmar-6EB8AF.01453906052011@reserved-multicast-range-not-delegated.example.com> (raw)
In-Reply-To: LbCdnUvW4ImHql7QnZ2dnUVZ_r6dnZ2d@sysmatrix.net
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 ***
next prev parent reply other threads:[~2011-05-06 5:45 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-05-05 23:47 Combining two short lisp routines B. T. Raven
2011-05-06 5:45 ` Barry Margolin [this message]
2011-05-06 13:14 ` B. T. Raven
2011-05-06 21:51 ` Barry Margolin
2011-05-07 3:34 ` B. T. Raven
2011-05-07 7:23 ` Barry Margolin
2011-05-07 22:37 ` B. T. Raven
2011-05-06 14:04 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=barmar-6EB8AF.01453906052011@reserved-multicast-range-not-delegated.example.com \
--to=barmar@alum.mit.edu \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.