Re: forward-paragraph, paragraph-start trouble

[Andreas Röhler]

Am Sonntag, 6. April 2008 01:20 schrieb John J Foerch:
>    line to compare the amount of
>     indentation.
>         Crazy though it may seem,
>     this sentence begins a new
>     paragraph.

What about this?

(defun my-paragraph-start (&optional indent this) 
  (interactive)
  (beginning-of-line)
  (or this (setq this (point-min)))
  (when (<= this (point)) 
    (let* ((pos (point)) 
           (this-indent (- (progn (skip-chars-forward " \t")(point))pos))
           (indent (or indent
                       this-indent)))
      (unless
          (< indent this-indent)
        (forward-line 1)
        (my-paragraph-start this-indent (point))))))


Andreas Röhler