From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas =?iso-8859-1?q?R=F6hler?= Newsgroups: gmane.emacs.help Subject: Re: forward-paragraph, paragraph-start trouble Date: Mon, 7 Apr 2008 16:32:03 +0200 Message-ID: <200804071632.04025.andreas.roehler@online.de> References: <873apznb22.fsf@earthlink.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1207578786 31546 80.91.229.12 (7 Apr 2008 14:33:06 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 7 Apr 2008 14:33:06 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Apr 07 16:33:38 2008 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JisPh-0007a6-1x for geh-help-gnu-emacs@m.gmane.org; Mon, 07 Apr 2008 16:33:37 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JisP3-0007Aa-Qj for geh-help-gnu-emacs@m.gmane.org; Mon, 07 Apr 2008 10:32:57 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JisOk-00076e-1z for help-gnu-emacs@gnu.org; Mon, 07 Apr 2008 10:32:38 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JisOi-00073k-DY for help-gnu-emacs@gnu.org; Mon, 07 Apr 2008 10:32:37 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JisOi-00073W-3w for help-gnu-emacs@gnu.org; Mon, 07 Apr 2008 10:32:36 -0400 Original-Received: from moutng.kundenserver.de ([212.227.126.186]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JisOh-0006jq-M9 for help-gnu-emacs@gnu.org; Mon, 07 Apr 2008 10:32:35 -0400 Original-Received: from noname (p54BE8DC9.dip0.t-ipconnect.de [84.190.141.201]) by mrelayeu.kundenserver.de (node=mrelayeu7) with ESMTP (Nemesis) id 0ML2xA-1JisOe1uQh-0000T8; Mon, 07 Apr 2008 16:32:34 +0200 User-Agent: KMail/1.9.5 In-Reply-To: <873apznb22.fsf@earthlink.net> Content-Disposition: inline X-Provags-ID: V01U2FsdGVkX1/lVoe+rKTw7AZwDXJwK3R8aZE4yIKsedzlWaZ 6NIrXLyg9ux9hrqBMeXekmSFHdyRuckciCZUCUVlouo8G9tKl8 hYAv++FibANwjnQ54nakQ== X-detected-kernel: by monty-python.gnu.org: Linux 2.6? (barebone, rare!) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:53138 Archived-At: Am Sonntag, 6. April 2008 01:20 schrieb John J Foerch: > =A0 line to compare the amount of > =A0 =A0 indentation. > =A0 =A0 =A0 =A0 Crazy though it may seem, > =A0 =A0 this sentence begins a new > =A0 =A0 paragraph. What about this? (defun my-paragraph-start (&optional indent this)=20 (interactive) (beginning-of-line) (or this (setq this (point-min))) (when (<=3D this (point))=20 (let* ((pos (point))=20 (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=F6hler