Mercurial > emacs

diff lisp/subr.el @ 83423:b64b7e867d0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 677) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-677 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-463
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 26 Dec 2005 03:16:59 +0000
parents 14a4eb789b45 915b73d58795
children ec395f552d45
line wrap: on
line diff
--- a/lisp/subr.el	Mon Dec 26 02:21:31 2005 +0000
+++ b/lisp/subr.el	Mon Dec 26 03:16:59 2005 +0000
@@ -2280,7 +2280,7 @@
   (let ((str (make-symbol "string")))
     `(dynamic-completion-table
       (lambda (,str)
-        (unless (listp ,var)
+        (when (functionp ,var)
           (setq ,var (,fun ,@args)))
         ,var))))