unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Stefan Monnier <monnier@IRO.UMontreal.CA>
To: Tak Ota <Takaaki.Ota@am.sony.com>
Cc: stephen@xemacs.org, emacs-devel@gnu.org
Subject: Re: collect-string
Date: Fri, 03 Dec 2010 17:56:51 -0500	[thread overview]
Message-ID: <jwvmxommpv6.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <20101203.143147.319196666.Takaaki.Ota@am.sony.com> (Tak Ota's message of "Fri, 3 Dec 2010 14:31:47 -0800")

>> > ! 		  '(0)
>> > ! 		;; construct a list of subexpression integers
>> > ! 		(mapcar 'string-to-number
>> > ! 			(split-string
>> > ! 			 (let ((default (car occur-collect-submatch-history)))
>> > ! 			   (read-from-minibuffer
>> > ! 			    (format "Subexpressions to collect (default %s): " default)
>> > ! 			    "" nil nil 'occur-collect-submatch-history default)
>> > ! 			   (car occur-collect-submatch-history)))))
>> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>> 
>> This should be `default', right?

> No, this is the new input value as read-from-minibuffer prepends this
> value to the history.

Oh, right, there's more parens than I thought.  You should use
`read-string' instead, which will take care of this ugliness.

>> Hmm... I didn't think of NLINES turning into a list of submatch-numbers,
>> but that makes me think that maybe we should go one step further and
>> turn it into a string, like the ones used in replace-match.
> This is truly brilliant.  Thank you very much.  I love this idea
> bouncing process.  See below.

It's not always as successful, sadly.  But yes, it turned out very well
this time.


        Stefan



  parent reply	other threads:[~2010-12-03 22:56 UTC|newest]

Thread overview: 58+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-10-28 18:56 simple useful functions Tak Ota
2010-10-29  3:39 ` Stephen J. Turnbull
2010-10-29 18:13   ` Tak Ota
2010-10-29 19:02     ` Drew Adams
2010-10-29 19:26       ` Andreas Schwab
2010-10-29 20:19         ` Drew Adams
2010-10-29 20:47           ` Andreas Schwab
2010-10-29 20:56             ` Chad Brown
2010-10-29 21:23               ` Drew Adams
2010-10-30  9:01       ` Stephen J. Turnbull
2010-10-30 10:55     ` Thierry Volpiatto
2010-11-02  0:40     ` Tak Ota
2010-11-02  2:22       ` Stephen J. Turnbull
2010-11-03  0:38         ` Tak Ota
2010-11-03  5:27           ` Stephen J. Turnbull
2010-11-03  8:09             ` Andreas Röhler
2010-11-03 10:13               ` Stephen J. Turnbull
2010-11-03 18:08                 ` Tak Ota
2010-11-03 18:01             ` Tak Ota
2010-11-04  2:10               ` Stephen J. Turnbull
2010-11-04  2:20                 ` Tak Ota
2010-11-04 13:58                 ` collect-string (was: simple useful functions) Stefan Monnier
2010-11-04 18:36                   ` Tak Ota
2010-11-04 20:18                     ` Tak Ota
2010-11-04 20:27                       ` Tak Ota
2010-11-05  7:52                         ` Andreas Röhler
2010-11-08 18:36                     ` collect-string Stefan Monnier
2010-11-09  0:18                       ` collect-string Tak Ota
2010-11-09  9:06                         ` collect-string Stephen J. Turnbull
2010-11-10  2:12                       ` collect-string Tak Ota
2010-11-30  2:14                         ` collect-string Tak Ota
2010-11-30  5:27                           ` collect-string Stephen J. Turnbull
2010-12-02  1:59                             ` collect-string Tak Ota
2010-12-02  7:00                               ` collect-string Stephen J. Turnbull
2010-12-02 14:16                         ` collect-string Stefan Monnier
2010-12-03  1:03                           ` collect-string Tak Ota
2010-12-03 19:17                             ` collect-string Stefan Monnier
2010-12-03 22:31                               ` collect-string Tak Ota
2010-12-03 22:40                                 ` collect-string Davis Herring
2010-12-03 22:47                                   ` collect-string Tak Ota
2010-12-03 22:56                                 ` Stefan Monnier [this message]
2010-12-03 23:15                                   ` collect-string Tak Ota
2010-12-04  2:01                                     ` collect-string Stefan Monnier
2010-12-04  2:07                                       ` collect-string Tak Ota
2010-12-04  3:27                                   ` collect-string Glenn Morris
2010-10-29  8:44 ` simple useful functions Andreas Schwab
2010-11-02  7:27 ` Andreas Röhler
2010-12-03 23:37 ` Tak Ota
2010-12-04  2:36   ` Stefan Monnier
2010-12-04  2:58     ` Tak Ota
2010-12-04  4:36       ` Stefan Monnier
2010-12-04  9:10         ` David Kastrup
2010-12-06 14:08         ` René Kyllingstad
2010-12-06 19:31           ` Stefan Monnier
2010-12-06 18:39         ` Tak Ota
2010-12-06 20:23           ` Stefan Monnier
2010-12-06 21:25             ` Tak Ota
2010-12-07  3:24               ` 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

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=jwvmxommpv6.fsf-monnier+emacs@gnu.org \
    --to=monnier@iro.umontreal.ca \
    --cc=Takaaki.Ota@am.sony.com \
    --cc=emacs-devel@gnu.org \
    --cc=stephen@xemacs.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 public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).