changeset 67651:915b73d58795

(lazy-completion-table): Don't be fooled if the var holds a "list" (lambda ...) rather than a real completion list.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 19 Dec 2005 02:20:33 +0000
parents bb585f2cd98c
children c9928598ea58
files lisp/ChangeLog lisp/subr.el
diffstat 2 files changed, 12 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)
 
--- 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))))