WiPscratch/error-API

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 99cfbf140c3..bde472588cc 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -312,14 +312,14 @@ are also supported; unsupported long options are silently ignored."
       (invalid-regexp
        ;; Maybe they wanted a literal file that just happens to
        ;; use characters special to shell wildcards.
-       (if (equal (cadr err) "Unmatched [ or [^")
+       (if (equal (error-slot-value err 2) "Unmatched [ or [^")
            (progn
              (setq wildcard-regexp (if (memq ?B switches) "[^~]\\'")
                    file (file-relative-name orig-file))
              (ls-lisp-insert-directory
               file switches (ls-lisp-time-index switches)
               nil full-directory-p))
-         (signal (car err) (cdr err)))))))
+         (signal err))))))
 
 (defun ls-lisp-insert-directory
   (file switches time-index wildcard-regexp full-directory-p)