diff options
| author | Ken Manheimer <ken.manheimer@gmail.com> | 2011-05-23 11:03:04 -0400 |
|---|---|---|
| committer | Ken Manheimer <ken.manheimer@gmail.com> | 2011-05-23 11:03:04 -0400 |
| commit | 381987c3504943e65eb920bed05e4a3599ef3a96 (patch) | |
| tree | e8575267e8cebb60573513f3ed1b7d202e19829a /lisp/allout.el | |
| parent | b776bc70b7ef7d5fb88d4e66a75c9215fa2fb6a3 (diff) | |
| download | emacs-381987c3504943e65eb920bed05e4a3599ef3a96.tar.gz | |
* allout.el (allout-inhibit-auto-fill-on-headline): Create new
customization variable and implement: If non-nil, auto-fill will be
inhibited while on topic's header line.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index 16a816549d2..168ba6edd3d 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -399,6 +399,12 @@ else allout's special hanging-indent maintaining auto-fill function, :type 'boolean :group 'allout) (make-variable-buffer-local 'allout-inhibit-auto-fill) +;;;_ = allout-inhibit-auto-fill-on-headline +(defcustom allout-inhibit-auto-fill-on-headline nil + "If non-nil, auto-fill will be inhibited while on topic's header line." + :type 'boolean + :group 'allout) +(make-variable-buffer-local 'allout-inhibit-auto-fill-on-headline) ;;;_ = allout-use-hanging-indents (defcustom allout-use-hanging-indents t "If non-nil, topic body text auto-indent defaults to indent of the header. @@ -3848,7 +3854,9 @@ topic prior to the current one." Maintains outline hanging topic indentation if `allout-use-hanging-indents' is set." - (when (not allout-inhibit-auto-fill) + (when (and (not allout-inhibit-auto-fill) + (or (not allout-inhibit-auto-fill-on-headline) + (not (allout-on-current-heading-p)))) (let ((fill-prefix (if allout-use-hanging-indents ;; Check for topic header indentation: (save-match-data |