[elpa] externals/auctex 41397e93cb 04/13: ; Improve last change

[Tassilo Horn]

branch: externals/auctex
commit 41397e93cb43ec0ba0db3ac88a9428c7519f71c5
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    ; Improve last change
    
    * style/algpseudocodex.el (LaTeX-arg-algpseudocodex-block):
    Simplify code.
---
 style/algpseudocodex.el | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/style/algpseudocodex.el b/style/algpseudocodex.el
index d9b0fe5a20..d2b9848d92 100644
--- a/style/algpseudocodex.el
+++ b/style/algpseudocodex.el
@@ -52,21 +52,13 @@ the number of arguments."
          (set-marker TeX-exit-mark (point))
          (insert TeX-grcl)
          (indent-according-to-mode))
-        ((and num (= num 2))
-         (indent-according-to-mode)
-         (insert TeX-grop)
-         (set-marker TeX-exit-mark (point))
-         (insert TeX-grcl TeX-grop TeX-grcl)
-         (LaTeX-newline)
-         (indent-according-to-mode)
-         (LaTeX-newline)
-         (insert TeX-esc "End" block)
-         (indent-according-to-mode))
-        ((and num (= num 1))
+        ((integerp num)
          (indent-according-to-mode)
          (insert TeX-grop)
          (set-marker TeX-exit-mark (point))
          (insert TeX-grcl)
+         (when (= num 2)
+           (insert TeX-grop TeX-grcl))
          (LaTeX-newline)
          (indent-according-to-mode)
          (LaTeX-newline)