From 8e77fbb49fc3b1f5afa4470cb14536cbe48ffe77 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Dec 2005 02:20:33 +0000 Subject: [PATCH] (lazy-completion-table): Don't be fooled if the var holds a "list" (lambda ...) rather than a real completion list. --- lisp/ChangeLog | 14 +++++++++++--- lisp/subr.el | 2 +- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1de28aabec7..f131be43db2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,14 @@ +2005-12-18 Stefan Monnier + + * subr.el (lazy-completion-table): Don't be fooled if the var holds + a "list" (lambda ...) rather than a real completion list. + + * emacs-lisp/cl-extra.el (cl-macroexpand-all): Fix code-walk for + lexical-let when encountering ((lambda (...) ...) ...). + 2005-12-17 Chong Yidong - * progmodes/sh-script.el (sh-mode): + * progmodes/sh-script.el (sh-mode): * language/ethio-util.el (ethio-fidel-to-sera-mail-or-marker): * textmodes/picture.el (picture-mode): Update docstrings. @@ -15,8 +23,8 @@ 2005-12-17 Chong Yidong - * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Capture - error from printing circular structures. + * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): + Capture error from printing circular structures. 2005-12-17 Martin Rudalics (tiny change) 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)))) -- 2.39.2