consult-yank-pop gives a (void-function :append) error.

[nameiwillforget]

consult-yank-pop gives a (void-function :append) error.

Steps to reproduce:

1. Start Emacs with an empty clipboard and the following init:

(eval-when-compile (require 'use-package))
(require 'use-package-ensure)
(use-package consult)

2. Open some file and do consult-yank-pop.

3. Get a (void-function :append) error.

Before this, I deleted and reinstalled consult.

The consult-version is 20250821.1739 with revision c8bbb3f1e2fb.

The Emacs version is

GNU Emacs 30.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.43, cairo version 1.18.4)

My operating system is Guix Linux.

Note that yank-pop produces no error.

I used Edebug to trace down the error as far as I could. It occurs on line 1816, right after consult--preview-append-local-pch finishes.

The debugger produces the following output:

Debugger entered--Lisp error: (void-function :append)
  :append(#f(compiled-function () #<bytecode 0xffcb4d9603e474d>))
  #f(compiled-function () #<bytecode 0x11cd876aaf06db74>)()
  completing-read-default("Yank from kill-ring: " #f(compiled-function (str pred action) #<bytecode -0xeb190c7201cd7d6>) nil t nil t nil nil)
  completing-read("Yank from kill-ring: " #f(compiled-function (str pred action) #<bytecode -0xeb190c7201cd7d6>) nil t nil t nil nil)
  #f(compiled-function () #<bytecode -0xd40662c6108cadc>)()
  consult--with-preview-f(any #f(compiled-function (action cand) #<bytecode 0x1e4029e231902302>) #f(compiled-function (narrow input cand) #<bytecode -0xb4ff2a079ac23b7>) #f(compiled-function (&rest args2) #<bytecode 0x1e2be48c55fd1364>) nil #f(compiled-function () #<bytecode -0xd40662c6108cadc>))
  #f(compiled-function (table) #<bytecode 0x172d654b3e52363>)(#f(compiled-function (_) #<bytecode 0x447d4e8c54dbcfb>))
  consult--with-async-f(("e.conf.d/") #f(compiled-function (table) #<bytecode 0x172d654b3e52363>))
  consult--read-1(("e.conf.d/") :prompt "Yank from kill-ring: " :history t :sort nil :category kill-ring :require-match t :lookup consult--lookup-member :state #f(compiled-function (action cand) #<bytecode 0x1e4029e231902302>) :prompt "Select: " :preview-key any :sort t :async-wrap consult--async-wrap :lookup #f(compiled-function (selected &rest _) #<bytecode 0x4d2b3a4fae2deec>))
  apply(consult--read-1 ("e.conf.d/") (:prompt "Yank from kill-ring: " :history t :sort nil :category kill-ring :require-match t :lookup consult--lookup-member :state #f(compiled-function (action cand) #<bytecode 0x1e4029e231902302>) :prompt "Select: " :preview-key any :sort t :async-wrap consult--async-wrap :lookup #f(compiled-function (selected &rest _) #<bytecode 0x4d2b3a4fae2deec>)))
  consult--read(("e.conf.d/") :prompt "Yank from kill-ring: " :history t :sort nil :category kill-ring :require-match t :lookup consult--lookup-member :state #f(compiled-function (action cand) #<bytecode 0x1e4029e231902302>))
  consult--read-from-kill-ring()
  byte-code("\301 \10D\207" [current-prefix-arg consult--read-from-kill-ring] 2)
  call-interactively(consult-yank-from-kill-ring)
  consult-yank-pop()
  eval((consult-yank-pop) t)
  #f(compiled-function () #<bytecode -0x149ec0d7ffd9e0b6>)()
  #f(compiled-function () #<bytecode -0x5db3e1955cb81d1>)()
  eval-expression((consult-yank-pop) nil nil 127)
  funcall-interactively(eval-expression (consult-yank-pop) nil nil 127)
  command-execute(eval-expression record)
  execute-extended-command(nil "eval-expression" "eval-ex")
  funcall-interactively(execute-extended-command nil "eval-expression" "eval-ex")
  command-execute(execute-extended-command)

[minad]

Unfortunately I cannot reproduce this.

Get a (void-function :append) error.

This looks like a compile error.

[nameiwillforget]

Huh. I've installed it from Melpa and reinstalled it, as I mentioned. Anyway, I've now installed it using Guix and it works. Thanks!