Re: line/wrap-prefix patch

[Stefan Monnier]

> (defun srb-adaptive-indent (beg end)
>   "Indent the region between BEG and END with adaptive filling."
>   (goto-char beg)
>   (let ((lbp (line-beginning-position))
>       (lep (line-end-position)))
>     (put-text-property lbp lep 'wrap-prefix (fill-context-prefix lbp lep)))
>   (while (re-search-forward "\n" (point-max) t)
>     (forward-char)
>     (let ((lbp (line-beginning-position))
>         (lep (line-end-position)))
>       (put-text-property lbp lep 'wrap-prefix (fill-context-prefix lbp 
> lep)))))

Toi avoid code-duplication:

 (defun srb-adaptive-indent (beg end)
   "Indent the region between BEG and END with adaptive filling."
   (goto-char beg)
   (while
       (let ((lbp (line-beginning-position))
             (lep (line-end-position)))
         (put-text-property lbp lep 'wrap-prefix (fill-context-prefix lbp lep))
         (search-forward "\n" end t))))

Actually this also fixes a "point-max vs end" confusion, and removes
a `forward-char' which didn't seem necessary.

>         (setq word-wrap nil))

Actually, this minor-mode seems independent from word-wrap, so it had
better not touch word-wrap at all.  Similarly, I'm not sure that
fringe-indicator-alist should be touched here.

>       (set-buffer-modified-p mod)))))

You should use restore-buffer-modified-p instead.

        Stefan