Seweryn Kokot <[EMAIL PROTECTED]> writes:
>>
>> (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))
>
> It seems that the line
> "(when (looking-back "^ +" (point-at-bol))"
> is not required in the second version.
^^^^^^^^^^^^^^^ 1.
> And for me it's better to add and
> extra whitespace to directly type a heading name. I don't know if the
> line (insert " ") is correct in this case or it should be replaced with
> something (org-self-insert-command x)?
^^^^^^^^^^^^^^^ 2.
>
> (defun ks-org-insert-stars ()
> (interactive)
> (save-excursion
> (while (search-backward " " (point-at-bol) t)
> (replace-match "*" nil t)))
> (org-self-insert-command 1)
> (insert " "))
>
> Anyway I prefer the version without a warning and it is politically
> correct according to the manual :)
After some testing I withdraw the two things I wrote in my previous
post. Forget it! So I'm staying with the following version
(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))
--
Seweryn Kokot
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
