Re: forward-paragraph, paragraph-start trouble

["Andreas Röhler" <andreas.roehler@online.de>]

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