[nongnu] elpa/hl-block-mode 768d92aa93: Cleanup: replace elt with nth (list only version)

[ELPA Syncer]

branch: elpa/hl-block-mode
commit 768d92aa93c1894afb6f79feb5eb6b070ab24e4f
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: replace elt with nth (list only version)
---
 hl-block-mode.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index e8f6a3170e..b9888a8444 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -100,7 +100,7 @@ Useful for languages that use S-expressions to avoid overly 
nested highlighting.
 PT is typically the `(point)'."
   (let ((beg
          (ignore-errors
-           (elt (syntax-ppss pt) 1))))
+           (nth 1 (syntax-ppss pt)))))
     (when beg
       (cond
        ((memq (char-after beg) hl-block-bracket)
@@ -117,7 +117,7 @@ PT is typically the `(point)'."
            (hl-block--syntax-prev-bracket pt))
           (t
            (ignore-errors
-             (elt (syntax-ppss pt) 1))))))
+             (nth 1 (syntax-ppss pt)))))))
     (when beg
       ;; Note that `end' may be nil for un-matched brackets.
       ;; The caller must handle this case.
@@ -153,7 +153,7 @@ The point will only ever be moved backward."
     (while (and beg (>= beg line-min) end (<= end line-max))
       (setq beg
             (ignore-errors
-              (elt (syntax-ppss beg) 1)))
+              (nth 1 (syntax-ppss beg))))
       (when beg
         (setq end
               (ignore-errors