Samuel Wales <samologist@gmail.com> writes:

> very old code, maybe can be adjusted slightly to do what you want.
>
> (defun alpha-capitalize-sentences ()
>   (interactive)
>   (let ((b (region-beginning))
>         (e (region-end))
>         ;;i always use double spaces but i want sentence movement
>         ;;to be liberal -- that is to count more things as
>         ;;sentences.
>         (sentence-end-double-space nil)
>         ;;need to make it understand org headlines etc. also.
>         ;;don't know if this will help.  will fail on *bold*.
>         ;;non-idempotent.  use a vector function.
>         (sentence-end-without-space
>          (concat sentence-end-without-space "*")))
>     (save-excursion
>       (goto-char b)
>       (loop
>             while (< (point) (max b e))
>             do
>             (when (y-or-n-p "capitalize this sentence?")
>               (capitalize-word 1))
>             ;;forward-sentence-incl-org (headlines, items, other)
>             do
>             (let ((sentence-end-without-period t))
>               (forward-sentence))))
> ;;;    (replace-regexp "i" "I" t (region-beginning) (region-end))
>     (save-excursion
>       (perform-replace "i" "I"
>                        nil t t nil nil
>                        b e))))

Thanks for this Samuel, it does work, but I'm trying to find a way of
auto-capitalising my sentences as I write, whereas this only does it
when its called 'after' the event. But thanks anyway.

Thanks
Sharon.
-- 
A taste of linux = http://www.sharons.org.uk
TGmeds = http://www.tgmeds.org.uk
Debian 8.4, fluxbox 1.3.7, emacs 25.0.93