From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Barry Margolin Newsgroups: gmane.emacs.help Subject: Re: Combining two short lisp routines Date: Fri, 06 May 2011 17:51:12 -0400 Organization: A noiseless patient Spider Message-ID: References: NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1306268457 16822 80.91.229.12 (24 May 2011 20:20:57 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 24 May 2011 20:20:57 +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:20:49 2011 Return-path: 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 ) id 1QOy5t-0005EQ-U6 for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 22:20:46 +0200 Original-Received: from localhost ([::1]:56732 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QOy5t-0007Il-6w for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 16:20:45 -0400 Original-Path: usenet.stanford.edu!newsserver.news.garr.it!kanaga.switch.ch!news-zh.switch.ch!switch.ch!feeder.news-service.com!feeder.news-service.com!85.214.198.2.MISMATCH!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 62 Injection-Info: barmar.motzarella.org; posting-host="+bxBiZT/p0ZLLuDb5H+JCw"; logging-data="19731"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+1v1Xsq0C4MgCnlKAA/ond" User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X) Cancel-Lock: sha1:IRvi93XRVss+cnZI6MaB+lDR/y8= Original-Xref: usenet.stanford.edu gnu.emacs.help:186804 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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:81121 Archived-At: In article , "B. T. Raven" wrote: > Barry Margolin wrote: > > In article , > > "B. T. Raven" 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) ;; let isn't in re-search-forward > > is it? > > (progn (end-of-line) > > (point))))) > > (other-buffer) > > (insert text))) > > > > > Thanks, Barry. Am I right to assume that it's not possible somewhere in > that (let.. form to do interactive highlighting of just the part of the > definition that is of interest? There are usually many different foreign > language words associated with the English one at the beginning of the > line in dict.txt. Sure you can. I didn't see anything like that in the functions you asked to combine. -- 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 ***