[debian-users:11393] Re: auctex-ja LaTeX-fill-paragraph

[Takao KAWAMURA <kawamura@debian.or.jp>]

> ずいぶん前に話題になった、Emacs20.[23]+auctex-jaで
> LaTeX-fill-paragraphが動かないという件ですが、以下のコードを.
> emacsに放り込めばうまく動くような気がするので報告します。

ちょっと危険なコードでした。auctex-jaが直されるまでは使われ
る方がおられるかもれないので修正しておきます。

(eval-after-load "latex"
  '(defun LaTeX-fill-region-as-para-do (from to justify-flag)
     "Fill region as one paragraph: break lines to fit `fill-column'."
     (let (indent-to-left-margin-original)
       (fset 'indent-to-left-margin-original
             (symbol-function 'indent-to-left-margin))
       (defun indent-to-left-margin ()
         (LaTeX-indent-line)
         (setq prefixcol (current-column))
         (setq fill-prefix nil))
       (unwind-protect
           (fill-region-as-paragraph from to justify-flag)
         (fset 'indent-to-left-margin
               (symbol-function 'indent-to-left-margin-original))))))

-- 
川村 尚生