* Combining two short lisp routines
@ 2011-05-05 23:47 B. T. Raven
2011-05-06 5:45 ` Barry Margolin
0 siblings, 1 reply; 8+ messages in thread
From: B. T. Raven @ 2011-05-05 23:47 UTC (permalink / raw
To: help-gnu-emacs
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
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-05 23:47 Combining two short lisp routines B. T. Raven
@ 2011-05-06 5:45 ` Barry Margolin
2011-05-06 13:14 ` B. T. Raven
2011-05-06 14:04 ` Stefan Monnier
0 siblings, 2 replies; 8+ messages in thread
From: Barry Margolin @ 2011-05-06 5:45 UTC (permalink / raw
To: help-gnu-emacs
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 ***
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-06 5:45 ` Barry Margolin
@ 2011-05-06 13:14 ` B. T. Raven
2011-05-06 21:51 ` Barry Margolin
2011-05-06 14:04 ` Stefan Monnier
1 sibling, 1 reply; 8+ messages in thread
From: B. T. Raven @ 2011-05-06 13:14 UTC (permalink / raw
To: help-gnu-emacs
Barry Margolin wrote:
> 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) ;; 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.
Thanks again,
Ed
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-06 13:14 ` B. T. Raven
@ 2011-05-06 21:51 ` Barry Margolin
2011-05-07 3:34 ` B. T. Raven
0 siblings, 1 reply; 8+ messages in thread
From: Barry Margolin @ 2011-05-06 21:51 UTC (permalink / raw
To: help-gnu-emacs
In article <wMqdnfEhReeUaV7QnZ2dnUVZ_rmdnZ2d@sysmatrix.net>,
"B. T. Raven" <nihil@nihilo.net> wrote:
> Barry Margolin wrote:
> > 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) ;; 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 ***
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-06 21:51 ` Barry Margolin
@ 2011-05-07 3:34 ` B. T. Raven
2011-05-07 7:23 ` Barry Margolin
0 siblings, 1 reply; 8+ messages in thread
From: B. T. Raven @ 2011-05-07 3:34 UTC (permalink / raw
To: help-gnu-emacs
Barry Margolin wrote:
> In article <wMqdnfEhReeUaV7QnZ2dnUVZ_rmdnZ2d@sysmatrix.net>,
> "B. T. Raven" <nihil@nihilo.net> wrote:
>
>> Barry Margolin wrote:
>>> 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) ;; 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
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?
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-07 3:34 ` B. T. Raven
@ 2011-05-07 7:23 ` Barry Margolin
2011-05-07 22:37 ` B. T. Raven
0 siblings, 1 reply; 8+ messages in thread
From: Barry Margolin @ 2011-05-07 7:23 UTC (permalink / raw
To: help-gnu-emacs
In article <hNSdnWZJ_JJSIFnQnZ2dnUVZ_oWdnZ2d@sysmatrix.net>,
"B. T. Raven" <nihil@nihilo.net> wrote:
> Barry Margolin wrote:
> > In article <wMqdnfEhReeUaV7QnZ2dnUVZ_rmdnZ2d@sysmatrix.net>,
> > "B. T. Raven" <nihil@nihilo.net> wrote:
> >
> >> Barry Margolin wrote:
> >>> 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) ;; 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 ***
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-07 7:23 ` Barry Margolin
@ 2011-05-07 22:37 ` B. T. Raven
0 siblings, 0 replies; 8+ messages in thread
From: B. T. Raven @ 2011-05-07 22:37 UTC (permalink / raw
To: help-gnu-emacs
Barry Margolin wrote:
> In article <hNSdnWZJ_JJSIFnQnZ2dnUVZ_oWdnZ2d@sysmatrix.net>,
> "B. T. Raven" <nihil@nihilo.net> wrote:
>
>> Barry Margolin wrote:
>>> In article <wMqdnfEhReeUaV7QnZ2dnUVZ_rmdnZ2d@sysmatrix.net>,
>>> "B. T. Raven" <nihil@nihilo.net> wrote:
>>>
>>>> Barry Margolin wrote:
>>>>> 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) ;; 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.
>
Thanks, Barry. recursive-edit may be a little too advanced for me right
now. I only use it by accident when I notice all those brackets around
the buffer name in the mode line. top-level I can understand but not
that (throw 'exit nil).
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: Combining two short lisp routines
2011-05-06 5:45 ` Barry Margolin
2011-05-06 13:14 ` B. T. Raven
@ 2011-05-06 14:04 ` Stefan Monnier
1 sibling, 0 replies; 8+ messages in thread
From: Stefan Monnier @ 2011-05-06 14:04 UTC (permalink / raw
To: help-gnu-emacs
> (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)))
Please, never call switch-to-buffer and/or other-buffer from such
Lisp code. Use set-buffer instead.
Stefan
^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2011-05-07 22:37 UTC | newest]
Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-05-05 23:47 Combining two short lisp routines B. T. Raven
2011-05-06 5:45 ` Barry Margolin
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
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.