# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1134958833 0
# Node ID 915b73d587952cab83a8052d081b1fdd5166f44d
# Parent  bb585f2cd98c269286f305219dd5ac24c6dc3536
(lazy-completion-table): Don't be fooled if the var holds
a "list" (lambda ...) rather than a real completion list.

diff -r bb585f2cd98c -r 915b73d58795 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 19 02:17:38 2005 +0000
+++ b/lisp/ChangeLog	Mon Dec 19 02:20:33 2005 +0000
@@ -1,6 +1,14 @@
+2005-12-18  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* 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  <cyd@stupidchicken.com>
 
-	* 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  <cyd@stupidchicken.com>
 
-	* 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  <rudalics@gmx.at>  (tiny change)
 
diff -r bb585f2cd98c -r 915b73d58795 lisp/subr.el
--- a/lisp/subr.el	Mon Dec 19 02:17:38 2005 +0000
+++ b/lisp/subr.el	Mon Dec 19 02:20:33 2005 +0000
@@ -2268,7 +2268,7 @@
   (let ((str (make-symbol "string")))
     `(dynamic-completion-table
       (lambda (,str)
-        (unless (listp ,var)
+        (when (functionp ,var)
           (setq ,var (,fun ,@args)))
         ,var))))