[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

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

まだクリティカル・リージョンがありますね。情ない…。

(defun LaTeX--indent-to-left-margin ()
  (LaTeX-indent-line)
  (setq prefixcol (current-column))
  (setq fill-prefix nil))

(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))
       (unwind-protect
           (progn
             (fset 'indent-to-left-margin
                   (symbol-function 'LaTeX--indent-to-left-margin))
             (fill-region-as-paragraph from to justify-flag)
         (fset 'indent-to-left-margin
               (symbol-function 'indent-to-left-margin-original)))))))

-- 
川村 尚生