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: Sat, 07 May 2011 03:23:13 -0400 Organization: A noiseless patient Spider Message-ID: References: NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1306268587 17789 80.91.229.12 (24 May 2011 20:23:07 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 24 May 2011 20:23:07 +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:23:04 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 1QOy85-0006ms-5n for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 22:23:01 +0200 Original-Received: from localhost ([::1]:44250 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QOy84-00032Q-As for geh-help-gnu-emacs@m.gmane.org; Tue, 24 May 2011 16:23:00 -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: 95 Injection-Info: barmar.motzarella.org; posting-host="+bxBiZT/p0ZLLuDb5H+JCw"; logging-data="26588"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18dQrSWRh894qv5oPF1N5yN" User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X) Cancel-Lock: sha1:R6BTXzaeJu9hxITPG0Vtkrw/9Qo= Original-Xref: usenet.stanford.edu gnu.emacs.help:186807 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:81133 Archived-At: In article , "B. T. Raven" wrote: > Barry Margolin wrote: > > 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. > > > > > Okay, how would that be done? Also, what was Stefan complaining about > where he wanted to use set-buffer? The only thing suspicious I saw was > that the re-search-forward needed a close paren. My wish for interactive > selection in dict.txt was expressed in the comment: > > ;; in dict.txt buffer, mark stretch of text here interactively for > ;;;copying back to channel buffer You could start a recursive edit, during which you could mark the text you care about. Then exit the recursive edit and the function can copy the region and insert it into the other buffer. > > Now I think other-buffer needs two more arguments in case it's visible > > (other-buffer nil t) > > Is that right or does the first argument have to be a string? What Stefan was saying is that you should do something like: (let ((first-buffer (current-buffer))) (set-buffer "dict.txt") .... (set-buffer first-buffer)) switch-to-buffer and other-buffer are intended for interactive use, not use from programs. -- 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 ***