From: Carsten Dominik <carsten.dominik@gmail.com>
To: Piotr Zielinski <piotr.zielinski@gmail.com>
Cc: Seweryn Kokot <s.kokot@po.opole.pl>, emacs-orgmode@gnu.org
Subject: Re: Re: Electric insert of headline stars
Date: Thu, 25 Oct 2007 14:25:54 +0200 [thread overview]
Message-ID: <EA10B407-0257-41B8-8126-FC32AF20A349@science.uva.nl> (raw)
In-Reply-To: <3c12eb8d0710250511k51750491r5ecbfdb8df66b5dc@mail.gmail.com>
On Oct 25, 2007, at 2:11 PM, Piotr Zielinski wrote:
> On 25/10/2007, Seweryn Kokot <s.kokot@po.opole.pl> wrote:
>
>> A minor inconvenience is a warning when compiling the code
>
> First, here's the version after Bastien's and Carsten's comments:
>
> (defun local-org-insert-stars ()
> (interactive)
> (when (looking-back "^ +" (point-at-bol))
> (replace-string " " "*" nil (point-at-bol) (point)))
> (org-self-insert-command 1))
>
>> .emacs:2604:30:Warning: `replace-string' used from Lisp code
>> That command is designed for interactive use only.
>
>> How to get rid of this?
>
> This is what I came up with after following the suggestion from the
> manual, but it looks complicated to me, so I don't really like it:
>
>
> (defun local-org-insert-stars ()
> (interactive)
> (when (looking-back "^ +" (point-at-bol))
> (save-excursion
> (while (search-backward " " (point-at-bol) t)
> (replace-match "*" nil t))))
> (org-self-insert-command 1))
>
Another option would be:
(defun local-org-insert-stars ()
(interactive)
(if (looking-back "^ +" (point-at-bol))
(insert (make-string (prog1 (current-column) (replace-match
"")) ?*)
"* ")
(org-self-insert-command 1)))
- Carsten
next prev parent reply other threads:[~2007-10-25 12:26 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-10-25 10:15 Electric insert of headline stars Piotr Zielinski
2007-10-25 10:59 ` Carsten Dominik
2007-10-25 11:29 ` Bastien
2007-10-25 11:53 ` Seweryn Kokot
2007-10-25 12:11 ` Piotr Zielinski
2007-10-25 12:25 ` Carsten Dominik [this message]
2007-10-25 12:41 ` Seweryn Kokot
2007-10-25 13:03 ` Seweryn Kokot
2007-10-25 13:17 ` Bastien
2007-10-25 12:14 ` Carsten Dominik
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.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=EA10B407-0257-41B8-8126-FC32AF20A349@science.uva.nl \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=piotr.zielinski@gmail.com \
--cc=s.kokot@po.opole.pl \
/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/org-mode.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).