comparison lisp/subr.el @ 83461:9b150bc96d33

Merged from [e-mail]--gnu-2005 (patch 187, 704) Patches applied: * [e-mail]/emacs--devo--0--base-0 tag of [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-704 * [e-mail]/emacs--devo--0--patch-1 Update from CVS * [e-mail]/emacs--devo--0--patch-2 Update from CVS * [e-mail]/emacs--devo--0--patch-3 Update from CVS * [e-mail]/emacs--devo--0--patch-4 Update from CVS * [e-mail]/emacs--devo--0--patch-5 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-6 Update from CVS * [e-mail]/emacs--devo--0--patch-7 Update from CVS * [e-mail]/emacs--devo--0--patch-8 Update from CVS * [e-mail]/emacs--devo--0--patch-9 Update from CVS * [e-mail]/emacs--devo--0--patch-10 Update from CVS * [e-mail]/emacs--devo--0--patch-11 Update from CVS * [e-mail]/emacs--devo--0--patch-12 Update from CVS * [e-mail]/emacs--devo--0--patch-13 Update from CVS * [e-mail]/emacs--devo--0--patch-14 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-15 Update from CVS * [e-mail]/emacs--devo--0--patch-16 Update from CVS * [e-mail]/emacs--devo--0--patch-17 Update from CVS * [e-mail]/emacs--devo--0--patch-18 Update from CVS * [e-mail]/emacs--devo--0--patch-19 Update from CVS * [e-mail]/emacs--devo--0--patch-20 Update from CVS * [e-mail]/emacs--devo--0--patch-21 Update from CVS * [e-mail]/emacs--devo--0--patch-22 Install ERC. * [e-mail]/emacs--devo--0--patch-23 Update from CVS * [e-mail]/emacs--devo--0--patch-24 Fix ERC compiler warnings. * [e-mail]/emacs--devo--0--patch-25 Use utf-8 encoding in ERC ChangeLogs. * [e-mail]/emacs--devo--0--patch-26 Update from CVS * [e-mail]/emacs--devo--0--patch-27 Merge ERC-related Viper hacks into Viper. * [e-mail]/emacs--devo--0--patch-28 Update from CVS * [e-mail]/emacs--devo--0--patch-29 Update from CVS * [e-mail]/emacs--devo--0--patch-30 Merge from erc--main--0 * [e-mail]/gnus--rel--5.10--base-0 tag of [e-mail]--gnu-2005/gnus--rel--5.10--patch-187 * [e-mail]/gnus--rel--5.10--patch-1 Update from CVS * [e-mail]/gnus--rel--5.10--patch-2 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-3 Update from CVS * [e-mail]/gnus--rel--5.10--patch-4 Update from CVS * [e-mail]/gnus--rel--5.10--patch-5 Update from CVS * [e-mail]/gnus--rel--5.10--patch-6 Update from CVS * [e-mail]/gnus--rel--5.10--patch-7 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-704 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-187 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-501

83460:dbd791ef90a1

If the completion table VAR is used for the first time (e.g., by passing VAR
as an argument to `try-completion'), the function FUN is called with no
arguments.  FUN must return the completion table that will be stored in VAR.
If completion is requested in the minibuffer, FUN will be called in the buffer
from which the minibuffer was entered.  The return value of
`lazy-completion-table' must be used to initialize the value of VAR."
  (declare (debug (symbol lambda-expr)))
  (let ((str (make-symbol "string")))
    `(dynamic-completion-table
      (lambda (,str)
        (when (functionp ,var)

83461:9b150bc96d33

If the completion table VAR is used for the first time (e.g., by passing VAR
as an argument to `try-completion'), the function FUN is called with no
arguments.  FUN must return the completion table that will be stored in VAR.
If completion is requested in the minibuffer, FUN will be called in the buffer
from which the minibuffer was entered.  The return value of
`lazy-completion-table' must be used to initialize the value of VAR.

You should give VAR a non-nil `risky-local-variable' property."
  (declare (debug (symbol lambda-expr)))
  (let ((str (make-symbol "string")))
    `(dynamic-completion-table
      (lambda (,str)
        (when (functionp ,var)