bug#30364: 26.0.91; thread crash on macos

[Aaron Jensen <aaronjensen@gmail.com>]

From: Noam Postavsky (mailto:npostavs@users.sourceforge.net)
> I was going to check if this happens on systems other than macOS, but as
> far as I can tell, the code you posted doesn't define the function
> "company-dabbrev-thread". So I guess what you posted and what are
> running aren't quite the same…

Sorry, I think it was something like this:

(defun company-dabbrev-thread (arg callback)
  (make-thread
              (lambda ()
                (funcall callback
                         (let* ((case-fold-search company-dabbrev-ignore-case)
                                (words (company-dabbrev--search
(company-dabbrev--make-regexp)
                                                  company-dabbrev-time-limit
                                                  (pcase
company-dabbrev-other-buffers
                                                    (`t (list major-mode))
                                                    (`all `all))))
                                (downcase-p (if (eq
company-dabbrev-downcase 'case-replace)
                                                case-replace
                                              company-dabbrev-downcase)))
                           (setq words (company-dabbrev--filter arg words))
                           (if downcase-p
                               (mapcar 'downcase words)
                             words))))))

(company-dabbrev-thread "e" (lambda (words) (message "%S" words)))

I was going through multiple revisions and didn’t gist the right code.