From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.help Subject: Re: How to switch paragraph-indent-minor-mode off? Date: Wed, 25 Apr 2007 01:01:28 -0400 Message-ID: References: <87ps63gjmy.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1177479318 28194 80.91.229.12 (25 Apr 2007 05:35:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 25 Apr 2007 05:35:18 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Apr 25 07:35:17 2007 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 1Hga9o-0003hX-Uc for geh-help-gnu-emacs@m.gmane.org; Wed, 25 Apr 2007 07:35:13 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HgaFP-0002za-3U for geh-help-gnu-emacs@m.gmane.org; Wed, 25 Apr 2007 01:40:59 -0400 Original-Path: shelby.stanford.edu!newshub.stanford.edu!postnews.google.com!news3.google.com!out04b.usenetserver.com!news.usenetserver.com!in04.usenetserver.com!news.usenetserver.com!nx01.iad01.newshosting.com!newshosting.com!216.196.98.140.MISMATCH!border1.nntp.dca.giganews.com!nntp.giganews.com!local01.nntp.dca.giganews.com!nntp.umontreal.ca!news.umontreal.ca.POSTED!not-for-mail Original-NNTP-Posting-Date: Wed, 25 Apr 2007 00:01:28 -0500 Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.97 (gnu/linux) Cancel-Lock: sha1:/7GiSqnyMyPsU8O2U0t5DL3fYc4= Original-Lines: 32 Original-NNTP-Posting-Host: 132.204.27.213 Original-X-Trace: sv3-Om1/uBaiWW4LPa9WyzvXKYWuKxF3wFpFMzliBDMXSfFnxSaoVr2RjONYwVS1noah2LzdY9Lh08+7Ybb!DNgJfZ23E5DqHuT9uFzgYUiC61+q8aw4Y1OFmIqxjJvYNnuVOlUxxJWKQGHSSYhWtSPiZ5CMN51Q!87jwYFCGL/2L6weHqw== Original-X-Complaints-To: abuse@umontreal.ca X-DMCA-Complaints-To: abuse@umontreal.ca X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly X-Postfilter: 1.3.34 Original-Xref: shelby.stanford.edu gnu.emacs.help:147538 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:43141 Archived-At: > (define-minor-mode paragraph-indent-minor-mode > "Minor mode for editing text, with leading spaces starting a paragraph. > In this mode, you do not need blank lines between paragraphs when the > first line of the following paragraph starts with whitespace, as with > `paragraph-indent-text-mode'. > Turning on Paragraph-Indent minor mode runs the normal hook > `paragraph-indent-text-mode-hook'." And here I forgot the following line: nil nil nil > ;; Change the definition of a paragraph start. > (let ((ps-re "[ \t\n\f]\\|")) > (if (eq t (compare-strings ps-re nil nil > paragraph-start nil (length ps-re))) > (if (not paragraph-indent-minor-mode) > (set (make-local-variable 'paragraph-start) > (substring paragraph-start (length ps-re)))) > (if paragraph-indent-minor-mode > (set (make-local-variable 'paragraph-start) > (concat ps-re paragraph-start))))) > ;; Change the indentation function. > (if paragraph-indent-minor-mode > (set (make-local-variable 'indent-line-function) 'indent-to-left-margin) > (if (eq indent-line-function 'indent-to-left-margin) > (set (make-local-variable 'indent-line-function) 'indent-region)))) Sorry, Stefan