(lazy-completion-table): Don't be fooled if the var holds

a "list" (lambda ...) rather than a real completion list.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 9dce17911d8..d1dbb850d8e 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2268,7 +2268,7 @@ from which the minibuffer was entered.  The return value of
   (let ((str (make-symbol "string")))
     `(dynamic-completion-table
       (lambda (,str)
-        (unless (listp ,var)
+        (when (functionp ,var)
           (setq ,var (,fun ,@args)))
         ,var))))