Re: [Orgmode] Re: Electric insert of headline stars

[Carsten Dominik]

On Oct 25, 2007, at 2:11 PM, Piotr Zielinski wrote:

> On 25/10/2007, Seweryn Kokot <address@hidden> 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