[Bug-AUCTeX] 11.86; AUCTeX should not fill when creating new environment

[Nicolas Richard]

Your bug report will be posted to the AUCTeX bug reporting list.
------------------------------------------------------------------------

Hello,

I often work without auto-fill-mode, and unfortunately whenever I
create a new environement with C-c C-e with the region active, the
environnement is filled. I thus suggest the following patch to the
function LaTeX-insert-environment :

/youngfrog/.emacs.d/elpa/auctex-11.86/latex.el
+++ #<buffer latex.el>
@@ -685,7 +685,7 @@
     (if active-mark
        (progn
          (or (assoc environment LaTeX-indent-environment-list)
-             (LaTeX-fill-region content-start (line-beginning-position 2)))
+	      (and auto-fill-function (LaTeX-fill-region content-start 
(line-beginning-position 2))))
          (set-mark content-start))
       (indent-according-to-mode))
     (save-excursion (beginning-of-line 2) (indent-according-to-mode))

I'm not quite sure this is the way to do it, but it works for me.


(Wait, am I really using a 2 years old version of AUCTeX ? Woah. Okay,
just tried updating to the latest version from cvs, and it is the same
behaviour.)

Emacs  : GNU Emacs 24.2.1 (i686-pc-linux-gnu)
 of 2012-08-29 on geodiff-mac3
Package: 11.86

current state:
==============
(setq
 AUCTeX-date "2010-02-21"
 window-system 'x
 LaTeX-version "2e"
 TeX-style-path '("/usr/local/var/auctex"
                  "/home/youngfrog/.emacs.d/elpa/auctex-11.86/style"
                  "/home/youngfrog/.emacs.d/auctex/auto"
                  "/home/youngfrog/.emacs.d/auctex/style" "auto" "style")
 TeX-auto-save t
 TeX-parse-self t
 TeX-master nil
 TeX-command-list '(("ps2pdf" "ps2pdf14 %f" TeX-run-command nil t :help
                     "Run ps2pdf14 on file")
                    ("Latexmk" "latexmk -f %(latexmkmode) %s" TeX-run-TeX nil t 
:help
                     "Run Latexmk on file")
                    ("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX 
nil
                     (plain-tex-mode ams-tex-mode texinfo-mode) :help "Run plain 
TeX")
                    ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode 
doctex-mode)
                     :help "Run LaTeX")
                    ("Makeinfo" "makeinfo %t" TeX-run-compile nil 
(texinfo-mode) :help
                     "Run Makeinfo with Info output")
                    ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil
                     (texinfo-mode) :help "Run Makeinfo with HTML output")
                    ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" 
TeX-run-TeX nil
                     (ams-tex-mode) :help "Run AMSTeX")
                    ("ConTeXt" "texexec --once --texutil %(execopts)%t" 
TeX-run-TeX nil
                     (context-mode) :help "Run ConTeXt once")
                    ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil
                     (context-mode) :help "Run ConTeXt until completion")
                    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run 
BibTeX")
                    ("View" "%V" TeX-run-discard-or-function t t :help "Run 
Viewer")
                    ("Print" "%p" TeX-run-command t t :help "Print the file")
                    ("Queue" "%q" TeX-run-background nil t :help "View the printer 
queue"
                     :visible TeX-queue-command)
                    ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help
                     "Generate PostScript file")
                    ("Index" "makeindex %s" TeX-run-command nil t :help
                     "Create index file")
                    ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help
                     "Check LaTeX file for correctness")
                    ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil 
t :help
                     "Spell-check the document")
                    ("Clean" "TeX-clean" TeX-run-function nil t :help
                     "Delete generated intermediate files")
                    ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help
                     "Delete generated intermediate and output files")
                    ("Other" "" TeX-run-command t t :help "Run an arbitrary 
command"))
 )