From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Barry Margolin <barmar@alum.mit.edu>
Newsgroups: gmane.emacs.help
Subject: Re: Combining two short lisp routines
Date: Fri, 06 May 2011 01:45:39 -0400
Organization: A noiseless patient Spider
Message-ID: <barmar-6EB8AF.01453906052011@reserved-multicast-range-not-delegated.example.com>
References: <LbCdnUvW4ImHql7QnZ2dnUVZ_r6dnZ2d@sysmatrix.net>
NNTP-Posting-Host: lo.gmane.org
X-Trace: dough.gmane.org 1306268316 15925 80.91.229.12 (24 May 2011 20:18:36 GMT)
X-Complaints-To: usenet@dough.gmane.org
NNTP-Posting-Date: Tue, 24 May 2011 20:18:36 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue May 24 22:18:32 2011
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([140.186.70.17])
	by lo.gmane.org with esmtp (Exim 4.69)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1QOy3k-0003nq-Ng
	for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 22:18:32 +0200
Original-Received: from localhost ([::1]:49184 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1QOy3k-00034f-3R
	for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 16:18:32 -0400
Original-Path: usenet.stanford.edu!news-transit.tcx.org.uk!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 46
Injection-Info: barmar.motzarella.org; posting-host="+bxBiZT/p0ZLLuDb5H+JCw"; 
	logging-data="28898";
	mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+PgDwyxIE4Cshoh12obOZC"
User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X)
Cancel-Lock: sha1:B6SGuZLfAZ4RJc8nAHuR2XOQiTo=
Original-Xref: usenet.stanford.edu gnu.emacs.help:186795
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: </archive/html/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:81107
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/81107>

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 ***