Was the code changed on company backends? Debugger entered--Lisp error: (wrong-type-argument listp 1)

[rickalex21]

I'm constantly getting erros to the point that company has become unusable. I suspect
something was changed recently in the backends code? I've had this backend working
for a long time, is something wrong with it now?

Here are my backends:

 (setq company-tooltip-align-annotations t ; aligns annotation to the right
        company-tooltip-limit 12 ; bigger popup window
        company-idle-delay 0   ; decrease delay before autocompletion popup shows
        company-echo-delay (if (display-graphic-p) nil 0)
        company-minimum-prefix-length 2
        company-require-match nil
        company-dabbrev-ignore-case nil
        company-dabbrev-downcase nil
        company-dabbrev-minimum-length 10 ; Use buffer completion at 10 charcters.
        company-global-modes '(not erc-mode message-mode help-mode
                                   gud-mode eshell-mode shell-mode)
        ;;company-backends '((company-capf :with company-yasnippet)
        ;;                   (company-dabbrev-code company-keywords company-files)
        ;;                   company-dabbrev))

        ;; This puts snippet completion first.
        company-backends '((:separate company-yasnippet company-files company-bbdb company-semantic company-cmake company-capf :with company-tempo company-clang
        company-dabbrev-code company-gtags company-keywords
        company-oddmuse company-dabbrev))
        )

Here is the error: It's usually wrong-type-argument listp X

Debugger entered--Lisp error: (wrong-type-argument listp 1)
  length((nil . 1))
  (- (point) (length prefix))
  (char-before (- (point) (length prefix)))
  (memq (char-before (- (point) (length prefix))) '(46 60 62 40 41 91 123 125 34 39 96))
  (if (memq (char-before (- (point) (length prefix))) '(46 60 62 40 41 91 123 125 34 39 96)) nil prefix)
  (if prefix (if (memq (char-before (- (point) (length prefix))) '(46 60 62 40 41 91 123 125 34 39 96)) nil prefix) nil)
  (let* ((prefix (and t (funcall fn 'prefix)))) (if prefix (if (memq (char-before (- (point) (length prefix))) '(46 60 62 40 41 91 123 125 34 39 96)) nil prefix) nil))
  (if (eq cmd 'prefix) (let* ((prefix (and t (funcall fn 'prefix)))) (if prefix (if (memq (char-before (- (point) (length prefix))) '(46 60 62 40 41 91 123 125 34 39 96)) nil prefix) nil)) (progn (if (and (and (boundp 'lsp-mode) lsp-mode) arg (not (get-text-property 0 'yas-annotation-patch arg))) (progn (let* ((name (get-text-property 0 ... arg)) (snip (format "%s (Snippet)" name)) (len (length arg))) (put-text-property 0 len 'yas-annotation snip arg) (put-text-property 0 len 'yas-annotation-patch t arg)))) (funcall fn cmd arg)))
  my-company-yasnippet-disable-inline(#<subr company-yasnippet> prefix)
  apply(my-company-yasnippet-disable-inline #<subr company-yasnippet> prefix)
  company-yasnippet(prefix)
  company--force-sync(company-yasnippet (prefix) company-yasnippet)
  company--multi-prefix((company-yasnippet company-files company-bbdb company-semantic company-cmake company-capf))
  company--multi-backend-adapter((:separate company-yasnippet company-files company-bbdb company-semantic company-cmake company-capf :with company-tempo company-clang company-dabbrev-code company-gtags company-keywords company-oddmuse company-dabbrev) prefix)
  company--begin-new()
  company--perform()
  company-auto-begin()
  company-idle-begin(#<buffer 2024-01-16.org> #<window 7 on 2024-01-16.org> 6774 306)
  apply(company-idle-begin (#<buffer 2024-01-16.org> #<window 7 on 2024-01-16.org> 6774 306))
  timer-event-handler([t 26023 20335 732623 nil company-idle-begin (#<buffer 2024-01-16.org> #<window 7 on 2024-01-16.org> 6774 306) nil 508000 nil])
  sit-for(3)
  flyspell-check-word-p()
  flyspell-post-command-hook()

Thanks

[dgutov]

Hi!

You have a function somewhere that's called my-company-yasnippet-disable-inline. It would need an update.

[rickalex21]

Thanks for the suggestion. I'm going to comment out the advice and see if that helps. Honestly,
I don't know what it does, it was a config that I copied a long time ago and always had working
up until recently.

;; ............
      (defun my-company-yasnippet-disable-inline (fn cmd &optional arg &rest _ignore)
        "Enable yasnippet but disable it inline."
        (if (eq cmd  'prefix)
            (when-let ((prefix (funcall fn 'prefix)))
              (unless (memq (char-before (- (point) (length prefix)))
                            '(?. ?< ?> ?\( ?\) ?\[ ?{ ?} ?\" ?' ?`))
                prefix))
          (progn
            (when (and (bound-and-true-p lsp-mode)
                       arg (not (get-text-property 0 'yas-annotation-patch arg)))
              (let* ((name (get-text-property 0 'yas-annotation arg))
                     (snip (format "%s (Snippet)" name))
                     (len (length arg)))
                (put-text-property 0 len 'yas-annotation snip arg)
                (put-text-property 0 len 'yas-annotation-patch t arg)))
            (funcall fn cmd  arg))))
      ;;(advice-add #'company-yasnippet :around #'my-company-yasnippet-disable-inline)
))

[dgutov]

Good idea. Hopefully it's not needed in the latest version (covered by the features added since that day "a long time ago").

[rickalex21]

I haven't used emacs a whole lot lately but seems to be working fine. Ill come back later and close this if it
is no longer is causing problems.

Thanks for your help.