branch: master
commit dc1a8ee51e5ed8365aa969c1e845ba6b70203848
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>

    Delete `LaTeX-env-contents'
    
    * doc/auctex.texi (Adding Environments):
    * latex.el (LaTeX-env-contents): Delete now unused function.
---
 doc/auctex.texi |  3 ---
 latex.el        | 19 -------------------
 2 files changed, 22 deletions(-)

diff --git a/doc/auctex.texi b/doc/auctex.texi
index 05695f0f..ca1eb339 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -5839,9 +5839,6 @@ Insert the given environment with width and height 
specifications.
 @item LaTeX-env-bib
 Insert the given environment with a label for a bibitem.
 
-@item LaTeX-env-contents
-Insert the given environment with a filename as its argument.
-
 @item LaTeX-env-args
 Insert the given environment with arguments.  You can use this as a hook
 in case you want to specify multiple complex arguments just like in
diff --git a/latex.el b/latex.el
index af9bc6be..e66f4116 100644
--- a/latex.el
+++ b/latex.el
@@ -1451,25 +1451,6 @@ Just like array and tabular."
   (delete-horizontal-space)
   (LaTeX-insert-item))
 
-(defun LaTeX-env-contents (environment)
-  "Insert ENVIRONMENT with optional argument and filename for contents."
-  (let* ((opt '("overwrite" "force" "nosearch" "nowarn"))
-         (arg (mapconcat #'identity
-                         (TeX-completing-read-multiple
-                          (TeX-argument-prompt t nil "Options")
-                          (if (string= environment "filecontents*")
-                              opt
-                            (cons "noheader" opt)))
-                         ",")))
-    (LaTeX-insert-environment environment
-                              (concat
-                               (when (and arg (not (string= arg "")))
-                                 (concat LaTeX-optop arg LaTeX-optcl))
-                               TeX-grop
-                               (TeX-read-string "File: ")
-                               TeX-grcl)))
-  (delete-horizontal-space))
-
 (defun LaTeX-env-args (environment &rest args)
   "Insert ENVIRONMENT and arguments defined by ARGS."
   (LaTeX-insert-environment environment)

Reply via email to