From: Stefan Monnier Date: Mon, 19 Dec 2005 02:20:33 +0000 (+0000) Subject: (lazy-completion-table): Don't be fooled if the var holds X-Git-Tag: emacs-pretest-22.0.90~5211 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e77fbb49fc3b1f5afa4470cb14536cbe48ffe77;p=emacs.git (lazy-completion-table): Don't be fooled if the var holds a "list" (lambda ...) rather than a real completion list. --- 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))))