master 28eee191 3/3: ; * style/enumitem.el ("enumitem"): Slightly improve last change.

[Arash Esbati]

branch: master
commit 28eee191b21ab0e65feee0de1fa99bfb850e91f6
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    ; * style/enumitem.el ("enumitem"): Slightly improve last change.
---
 style/enumitem.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/style/enumitem.el b/style/enumitem.el
index 6363a244..5c120e33 100644
--- a/style/enumitem.el
+++ b/style/enumitem.el
@@ -238,8 +238,7 @@
        `(,env LaTeX-env-item-args
               [TeX-arg-key-val (LaTeX-enumitem-key-val-options)]))
       ;; Tell AUCTeX about parsed description like environments.
-      (when (or (string-equal type "description")
-                (string-equal type "description*"))
+      (when (member type '("description" "description*"))
         (add-to-list 'LaTeX-item-list `(,env . LaTeX-item-argument)))
       ;; Add new env's to `ispell-tex-skip-alist': skip the opt. arg:
       (TeX-ispell-skip-setcdr `((,env ispell-tex-arg-end 0))))))
@@ -356,15 +355,14 @@ macro.  Insert the value in brackets if OPTIONAL is 
non-nil."
                                   (mapcar #'cadr
                                           (LaTeX-enumitem-newlist-list)))
                                "Type")
-      (TeX-arg-string "Max-depth")
+      "Max-depth"
       ,(lambda (_optional)
          (save-excursion
            (re-search-backward "\\\\newlist{\\([^}]+\\)}{\\([^}]+\\)}"
                                (line-beginning-position) t))
          (let ((name (match-string-no-properties 1))
                (type (match-string-no-properties 2)))
-           (when (or (string-equal type "description")
-                     (string-equal type "description*"))
+           (when (member type '("description" "description*"))
              (add-to-list 'LaTeX-item-list `(,name . LaTeX-item-argument)))
            (LaTeX-add-enumitem-newlists (list name type)))))
 
@@ -433,8 +431,7 @@ macro.  Insert the value in brackets if OPTIONAL is 
non-nil."
             (dolist (env-type (LaTeX-enumitem-newlist-list))
               (let ((env   (car env-type))
                     (type  (cadr env-type)))
-                (when (or (string-equal type "enumerate")
-                          (string-equal type "enumerate*"))
+                (when (member type '("enumerate" "enumerate*"))
                   (push env enums))))
             enums))
        "List name"))