[elpa] elpa 5886c49 41/51: Improve the insertation of "macro" environment

[Tassilo Horn]

branch: elpa
commit 5886c49d94ac761020bf2494afb42677987b3e90
Author: Arash Esbati <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Improve the insertation of "macro" environment
    
    * style/doc.el (LaTeX-env-no-comment): Check if argument
    `environment' is "macro" and query/insert a name prefixed with
    `TeX-esc'.
    (LaTeX-doc-after-insert-macrocode): Add "macro" environment.
    ("doc"): Run `LaTeX-env-no-comment' when "macro" environment is
    inserted.
    
    Signed-off-by: Mosè Giordano <address@hidden>
---
 style/doc.el |   11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/style/doc.el b/style/doc.el
index abd248d..6c98d66 100644
--- a/style/doc.el
+++ b/style/doc.el
@@ -31,7 +31,12 @@
 
 (defun LaTeX-env-no-comment (environment)
   "Insert ENVIRONMENT and make sure there is no commented empty line inside."
-  (LaTeX-insert-environment environment)
+  (LaTeX-insert-environment environment
+                           (when (string-equal environment "macro")
+                             (let ((macroname (TeX-read-string
+                                               (TeX-argument-prompt nil nil 
"Macro")
+                                               TeX-esc)))
+                               (format "{%s}" macroname))))
   (unless (TeX-active-mark)
     (when (save-excursion
            (beginning-of-line)
@@ -42,7 +47,7 @@
 
 (defun LaTeX-doc-after-insert-macrocode (env start end)
   "Make sure the macrocode environment is properly formatted after insertion."
-  (when (TeX-member env '("macrocode" "macrocode*") 'string-equal)
+  (when (TeX-member env '("macro" "macrocode" "macrocode*") 'string-equal)
     (save-excursion
       (goto-char end)
       (skip-chars-backward " \t")
@@ -70,7 +75,7 @@
     "theglossary"
     '("macrocode" LaTeX-env-no-comment)
     '("macrocode*" LaTeX-env-no-comment)
-    '("macro" "Macro"))
+    '("macro" LaTeX-env-no-comment))
    (TeX-add-symbols
     "EnableCrossrefs"
     "DisableCrossrefs"